sharepoint.pp 3.5 MB

123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263646566676869707172737475767778798081828384858687888990919293949596979899100101102103104105106107108109110111112113114115116117118119120121122123124125126127128129130131132133134135136137138139140141142143144145146147148149150151152153154155156157158159160161162163164165166167168169170171172173174175176177178179180181182183184185186187188189190191192193194195196197198199200201202203204205206207208209210211212213214215216217218219220221222223224225226227228229230231232233234235236237238239240241242243244245246247248249250251252253254255256257258259260261262263264265266267268269270271272273274275276277278279280281282283284285286287288289290291292293294295296297298299300301302303304305306307308309310311312313314315316317318319320321322323324325326327328329330331332333334335336337338339340341342343344345346347348349350351352353354355356357358359360361362363364365366367368369370371372373374375376377378379380381382383384385386387388389390391392393394395396397398399400401402403404405406407408409410411412413414415416417418419420421422423424425426427428429430431432433434435436437438439440441442443444445446447448449450451452453454455456457458459460461462463464465466467468469470471472473474475476477478479480481482483484485486487488489490491492493494495496497498499500501502503504505506507508509510511512513514515516517518519520521522523524525526527528529530531532533534535536537538539540541542543544545546547548549550551552553554555556557558559560561562563564565566567568569570571572573574575576577578579580581582583584585586587588589590591592593594595596597598599600601602603604605606607608609610611612613614615616617618619620621622623624625626627628629630631632633634635636637638639640641642643644645646647648649650651652653654655656657658659660661662663664665666667668669670671672673674675676677678679680681682683684685686687688689690691692693694695696697698699700701702703704705706707708709710711712713714715716717718719720721722723724725726727728729730731732733734735736737738739740741742743744745746747748749750751752753754755756757758759760761762763764765766767768769770771772773774775776777778779780781782783784785786787788789790791792793794795796797798799800801802803804805806807808809810811812813814815816817818819820821822823824825826827828829830831832833834835836837838839840841842843844845846847848849850851852853854855856857858859860861862863864865866867868869870871872873874875876877878879880881882883884885886887888889890891892893894895896897898899900901902903904905906907908909910911912913914915916917918919920921922923924925926927928929930931932933934935936937938939940941942943944945946947948949950951952953954955956957958959960961962963964965966967968969970971972973974975976977978979980981982983984985986987988989990991992993994995996997998999100010011002100310041005100610071008100910101011101210131014101510161017101810191020102110221023102410251026102710281029103010311032103310341035103610371038103910401041104210431044104510461047104810491050105110521053105410551056105710581059106010611062106310641065106610671068106910701071107210731074107510761077107810791080108110821083108410851086108710881089109010911092109310941095109610971098109911001101110211031104110511061107110811091110111111121113111411151116111711181119112011211122112311241125112611271128112911301131113211331134113511361137113811391140114111421143114411451146114711481149115011511152115311541155115611571158115911601161116211631164116511661167116811691170117111721173117411751176117711781179118011811182118311841185118611871188118911901191119211931194119511961197119811991200120112021203120412051206120712081209121012111212121312141215121612171218121912201221122212231224122512261227122812291230123112321233123412351236123712381239124012411242124312441245124612471248124912501251125212531254125512561257125812591260126112621263126412651266126712681269127012711272127312741275127612771278127912801281128212831284128512861287128812891290129112921293129412951296129712981299130013011302130313041305130613071308130913101311131213131314131513161317131813191320132113221323132413251326132713281329133013311332133313341335133613371338133913401341134213431344134513461347134813491350135113521353135413551356135713581359136013611362136313641365136613671368136913701371137213731374137513761377137813791380138113821383138413851386138713881389139013911392139313941395139613971398139914001401140214031404140514061407140814091410141114121413141414151416141714181419142014211422142314241425142614271428142914301431143214331434143514361437143814391440144114421443144414451446144714481449145014511452145314541455145614571458145914601461146214631464146514661467146814691470147114721473147414751476147714781479148014811482148314841485148614871488148914901491149214931494149514961497149814991500150115021503150415051506150715081509151015111512151315141515151615171518151915201521152215231524152515261527152815291530153115321533153415351536153715381539154015411542154315441545154615471548154915501551155215531554155515561557155815591560156115621563156415651566156715681569157015711572157315741575157615771578157915801581158215831584158515861587158815891590159115921593159415951596159715981599160016011602160316041605160616071608160916101611161216131614161516161617161816191620162116221623162416251626162716281629163016311632163316341635163616371638163916401641164216431644164516461647164816491650165116521653165416551656165716581659166016611662166316641665166616671668166916701671167216731674167516761677167816791680168116821683168416851686168716881689169016911692169316941695169616971698169917001701170217031704170517061707170817091710171117121713171417151716171717181719172017211722172317241725172617271728172917301731173217331734173517361737173817391740174117421743174417451746174717481749175017511752175317541755175617571758175917601761176217631764176517661767176817691770177117721773177417751776177717781779178017811782178317841785178617871788178917901791179217931794179517961797179817991800180118021803180418051806180718081809181018111812181318141815181618171818181918201821182218231824182518261827182818291830183118321833183418351836183718381839184018411842184318441845184618471848184918501851185218531854185518561857185818591860186118621863186418651866186718681869187018711872187318741875187618771878187918801881188218831884188518861887188818891890189118921893189418951896189718981899190019011902190319041905190619071908190919101911191219131914191519161917191819191920192119221923192419251926192719281929193019311932193319341935193619371938193919401941194219431944194519461947194819491950195119521953195419551956195719581959196019611962196319641965196619671968196919701971197219731974197519761977197819791980198119821983198419851986198719881989199019911992199319941995199619971998199920002001200220032004200520062007200820092010201120122013201420152016201720182019202020212022202320242025202620272028202920302031203220332034203520362037203820392040204120422043204420452046204720482049205020512052205320542055205620572058205920602061206220632064206520662067206820692070207120722073207420752076207720782079208020812082208320842085208620872088208920902091209220932094209520962097209820992100210121022103210421052106210721082109211021112112211321142115211621172118211921202121212221232124212521262127212821292130213121322133213421352136213721382139214021412142214321442145214621472148214921502151215221532154215521562157215821592160216121622163216421652166216721682169217021712172217321742175217621772178217921802181218221832184218521862187218821892190219121922193219421952196219721982199220022012202220322042205220622072208220922102211221222132214221522162217221822192220222122222223222422252226222722282229223022312232223322342235223622372238223922402241224222432244224522462247224822492250225122522253225422552256225722582259226022612262226322642265226622672268226922702271227222732274227522762277227822792280228122822283228422852286228722882289229022912292229322942295229622972298229923002301230223032304230523062307230823092310231123122313231423152316231723182319232023212322232323242325232623272328232923302331233223332334233523362337233823392340234123422343234423452346234723482349235023512352235323542355235623572358235923602361236223632364236523662367236823692370237123722373237423752376237723782379238023812382238323842385238623872388238923902391239223932394239523962397239823992400240124022403240424052406240724082409241024112412241324142415241624172418241924202421242224232424242524262427242824292430243124322433243424352436243724382439244024412442244324442445244624472448244924502451245224532454245524562457245824592460246124622463246424652466246724682469247024712472247324742475247624772478247924802481248224832484248524862487248824892490249124922493249424952496249724982499250025012502250325042505250625072508250925102511251225132514251525162517251825192520252125222523252425252526252725282529253025312532253325342535253625372538253925402541254225432544254525462547254825492550255125522553255425552556255725582559256025612562256325642565256625672568256925702571257225732574257525762577257825792580258125822583258425852586258725882589259025912592259325942595259625972598259926002601260226032604260526062607260826092610261126122613261426152616261726182619262026212622262326242625262626272628262926302631263226332634263526362637263826392640264126422643264426452646264726482649265026512652265326542655265626572658265926602661266226632664266526662667266826692670267126722673267426752676267726782679268026812682268326842685268626872688268926902691269226932694269526962697269826992700270127022703270427052706270727082709271027112712271327142715271627172718271927202721272227232724272527262727272827292730273127322733273427352736273727382739274027412742274327442745274627472748274927502751275227532754275527562757275827592760276127622763276427652766276727682769277027712772277327742775277627772778277927802781278227832784278527862787278827892790279127922793279427952796279727982799280028012802280328042805280628072808280928102811281228132814281528162817281828192820282128222823282428252826282728282829283028312832283328342835283628372838283928402841284228432844284528462847284828492850285128522853285428552856285728582859286028612862286328642865286628672868286928702871287228732874287528762877287828792880288128822883288428852886288728882889289028912892289328942895289628972898289929002901290229032904290529062907290829092910291129122913291429152916291729182919292029212922292329242925292629272928292929302931293229332934293529362937293829392940294129422943294429452946294729482949295029512952295329542955295629572958295929602961296229632964296529662967296829692970297129722973297429752976297729782979298029812982298329842985298629872988298929902991299229932994299529962997299829993000300130023003300430053006300730083009301030113012301330143015301630173018301930203021302230233024302530263027302830293030303130323033303430353036303730383039304030413042304330443045304630473048304930503051305230533054305530563057305830593060306130623063306430653066306730683069307030713072307330743075307630773078307930803081308230833084308530863087308830893090309130923093309430953096309730983099310031013102310331043105310631073108310931103111311231133114311531163117311831193120312131223123312431253126312731283129313031313132313331343135313631373138313931403141314231433144314531463147314831493150315131523153315431553156315731583159316031613162316331643165316631673168316931703171317231733174317531763177317831793180318131823183318431853186318731883189319031913192319331943195319631973198319932003201320232033204320532063207320832093210321132123213321432153216321732183219322032213222322332243225322632273228322932303231323232333234323532363237323832393240324132423243324432453246324732483249325032513252325332543255325632573258325932603261326232633264326532663267326832693270327132723273327432753276327732783279328032813282328332843285328632873288328932903291329232933294329532963297329832993300330133023303330433053306330733083309331033113312331333143315331633173318331933203321332233233324332533263327332833293330333133323333333433353336333733383339334033413342334333443345334633473348334933503351335233533354335533563357335833593360336133623363336433653366336733683369337033713372337333743375337633773378337933803381338233833384338533863387338833893390339133923393339433953396339733983399340034013402340334043405340634073408340934103411341234133414341534163417341834193420342134223423342434253426342734283429343034313432343334343435343634373438343934403441344234433444344534463447344834493450345134523453345434553456345734583459346034613462346334643465346634673468346934703471347234733474347534763477347834793480348134823483348434853486348734883489349034913492349334943495349634973498349935003501350235033504350535063507350835093510351135123513351435153516351735183519352035213522352335243525352635273528352935303531353235333534353535363537353835393540354135423543354435453546354735483549355035513552355335543555355635573558355935603561356235633564356535663567356835693570357135723573357435753576357735783579358035813582358335843585358635873588358935903591359235933594359535963597359835993600360136023603360436053606360736083609361036113612361336143615361636173618361936203621362236233624362536263627362836293630363136323633363436353636363736383639364036413642364336443645364636473648364936503651365236533654365536563657365836593660366136623663366436653666366736683669367036713672367336743675367636773678367936803681368236833684368536863687368836893690369136923693369436953696369736983699370037013702370337043705370637073708370937103711371237133714371537163717371837193720372137223723372437253726372737283729373037313732373337343735373637373738373937403741374237433744374537463747374837493750375137523753375437553756375737583759376037613762376337643765376637673768376937703771377237733774377537763777377837793780378137823783378437853786378737883789379037913792379337943795379637973798379938003801380238033804380538063807380838093810381138123813381438153816381738183819382038213822382338243825382638273828382938303831383238333834383538363837383838393840384138423843384438453846384738483849385038513852385338543855385638573858385938603861386238633864386538663867386838693870387138723873387438753876387738783879388038813882388338843885388638873888388938903891389238933894389538963897389838993900390139023903390439053906390739083909391039113912391339143915391639173918391939203921392239233924392539263927392839293930393139323933393439353936393739383939394039413942394339443945394639473948394939503951395239533954395539563957395839593960396139623963396439653966396739683969397039713972397339743975397639773978397939803981398239833984398539863987398839893990399139923993399439953996399739983999400040014002400340044005400640074008400940104011401240134014401540164017401840194020402140224023402440254026402740284029403040314032403340344035403640374038403940404041404240434044404540464047404840494050405140524053405440554056405740584059406040614062406340644065406640674068406940704071407240734074407540764077407840794080408140824083408440854086408740884089409040914092409340944095409640974098409941004101410241034104410541064107410841094110411141124113411441154116411741184119412041214122412341244125412641274128412941304131413241334134413541364137413841394140414141424143414441454146414741484149415041514152415341544155415641574158415941604161416241634164416541664167416841694170417141724173417441754176417741784179418041814182418341844185418641874188418941904191419241934194419541964197419841994200420142024203420442054206420742084209421042114212421342144215421642174218421942204221422242234224422542264227422842294230423142324233423442354236423742384239424042414242424342444245424642474248424942504251425242534254425542564257425842594260426142624263426442654266426742684269427042714272427342744275427642774278427942804281428242834284428542864287428842894290429142924293429442954296429742984299430043014302430343044305430643074308430943104311431243134314431543164317431843194320432143224323432443254326432743284329433043314332433343344335433643374338433943404341434243434344434543464347434843494350435143524353435443554356435743584359436043614362436343644365436643674368436943704371437243734374437543764377437843794380438143824383438443854386438743884389439043914392439343944395439643974398439944004401440244034404440544064407440844094410441144124413441444154416441744184419442044214422442344244425442644274428442944304431443244334434443544364437443844394440444144424443444444454446444744484449445044514452445344544455445644574458445944604461446244634464446544664467446844694470447144724473447444754476447744784479448044814482448344844485448644874488448944904491449244934494449544964497449844994500450145024503450445054506450745084509451045114512451345144515451645174518451945204521452245234524452545264527452845294530453145324533453445354536453745384539454045414542454345444545454645474548454945504551455245534554455545564557455845594560456145624563456445654566456745684569457045714572457345744575457645774578457945804581458245834584458545864587458845894590459145924593459445954596459745984599460046014602460346044605460646074608460946104611461246134614461546164617461846194620462146224623462446254626462746284629463046314632463346344635463646374638463946404641464246434644464546464647464846494650465146524653465446554656465746584659466046614662466346644665466646674668466946704671467246734674467546764677467846794680468146824683468446854686468746884689469046914692469346944695469646974698469947004701470247034704470547064707470847094710471147124713471447154716471747184719472047214722472347244725472647274728472947304731473247334734473547364737473847394740474147424743474447454746474747484749475047514752475347544755475647574758475947604761476247634764476547664767476847694770477147724773477447754776477747784779478047814782478347844785478647874788478947904791479247934794479547964797479847994800480148024803480448054806480748084809481048114812481348144815481648174818481948204821482248234824482548264827482848294830483148324833483448354836483748384839484048414842484348444845484648474848484948504851485248534854485548564857485848594860486148624863486448654866486748684869487048714872487348744875487648774878487948804881488248834884488548864887488848894890489148924893489448954896489748984899490049014902490349044905490649074908490949104911491249134914491549164917491849194920492149224923492449254926492749284929493049314932493349344935493649374938493949404941494249434944494549464947494849494950495149524953495449554956495749584959496049614962496349644965496649674968496949704971497249734974497549764977497849794980498149824983498449854986498749884989499049914992499349944995499649974998499950005001500250035004500550065007500850095010501150125013501450155016501750185019502050215022502350245025502650275028502950305031503250335034503550365037503850395040504150425043504450455046504750485049505050515052505350545055505650575058505950605061506250635064506550665067506850695070507150725073507450755076507750785079508050815082508350845085508650875088508950905091509250935094509550965097509850995100510151025103510451055106510751085109511051115112511351145115511651175118511951205121512251235124512551265127512851295130513151325133513451355136513751385139514051415142514351445145514651475148514951505151515251535154515551565157515851595160516151625163516451655166516751685169517051715172517351745175517651775178517951805181518251835184518551865187518851895190519151925193519451955196519751985199520052015202520352045205520652075208520952105211521252135214521552165217521852195220522152225223522452255226522752285229523052315232523352345235523652375238523952405241524252435244524552465247524852495250525152525253525452555256525752585259526052615262526352645265526652675268526952705271527252735274527552765277527852795280528152825283528452855286528752885289529052915292529352945295529652975298529953005301530253035304530553065307530853095310531153125313531453155316531753185319532053215322532353245325532653275328532953305331533253335334533553365337533853395340534153425343534453455346534753485349535053515352535353545355535653575358535953605361536253635364536553665367536853695370537153725373537453755376537753785379538053815382538353845385538653875388538953905391539253935394539553965397539853995400540154025403540454055406540754085409541054115412541354145415541654175418541954205421542254235424542554265427542854295430543154325433543454355436543754385439544054415442544354445445544654475448544954505451545254535454545554565457545854595460546154625463546454655466546754685469547054715472547354745475547654775478547954805481548254835484548554865487548854895490549154925493549454955496549754985499550055015502550355045505550655075508550955105511551255135514551555165517551855195520552155225523552455255526552755285529553055315532553355345535553655375538553955405541554255435544554555465547554855495550555155525553555455555556555755585559556055615562556355645565556655675568556955705571557255735574557555765577557855795580558155825583558455855586558755885589559055915592559355945595559655975598559956005601560256035604560556065607560856095610561156125613561456155616561756185619562056215622562356245625562656275628562956305631563256335634563556365637563856395640564156425643564456455646564756485649565056515652565356545655565656575658565956605661566256635664566556665667566856695670567156725673567456755676567756785679568056815682568356845685568656875688568956905691569256935694569556965697569856995700570157025703570457055706570757085709571057115712571357145715571657175718571957205721572257235724572557265727572857295730573157325733573457355736573757385739574057415742574357445745574657475748574957505751575257535754575557565757575857595760576157625763576457655766576757685769577057715772577357745775577657775778577957805781578257835784578557865787578857895790579157925793579457955796579757985799580058015802580358045805580658075808580958105811581258135814581558165817581858195820582158225823582458255826582758285829583058315832583358345835583658375838583958405841584258435844584558465847584858495850585158525853585458555856585758585859586058615862586358645865586658675868586958705871587258735874587558765877587858795880588158825883588458855886588758885889589058915892589358945895589658975898589959005901590259035904590559065907590859095910591159125913591459155916591759185919592059215922592359245925592659275928592959305931593259335934593559365937593859395940594159425943594459455946594759485949595059515952595359545955595659575958595959605961596259635964596559665967596859695970597159725973597459755976597759785979598059815982598359845985598659875988598959905991599259935994599559965997599859996000600160026003600460056006600760086009601060116012601360146015601660176018601960206021602260236024602560266027602860296030603160326033603460356036603760386039604060416042604360446045604660476048604960506051605260536054605560566057605860596060606160626063606460656066606760686069607060716072607360746075607660776078607960806081608260836084608560866087608860896090609160926093609460956096609760986099610061016102610361046105610661076108610961106111611261136114611561166117611861196120612161226123612461256126612761286129613061316132613361346135613661376138613961406141614261436144614561466147614861496150615161526153615461556156615761586159616061616162616361646165616661676168616961706171617261736174617561766177617861796180618161826183618461856186618761886189619061916192619361946195619661976198619962006201620262036204620562066207620862096210621162126213621462156216621762186219622062216222622362246225622662276228622962306231623262336234623562366237623862396240624162426243624462456246624762486249625062516252625362546255625662576258625962606261626262636264626562666267626862696270627162726273627462756276627762786279628062816282628362846285628662876288628962906291629262936294629562966297629862996300630163026303630463056306630763086309631063116312631363146315631663176318631963206321632263236324632563266327632863296330633163326333633463356336633763386339634063416342634363446345634663476348634963506351635263536354635563566357635863596360636163626363636463656366636763686369637063716372637363746375637663776378637963806381638263836384638563866387638863896390639163926393639463956396639763986399640064016402640364046405640664076408640964106411641264136414641564166417641864196420642164226423642464256426642764286429643064316432643364346435643664376438643964406441644264436444644564466447644864496450645164526453645464556456645764586459646064616462646364646465646664676468646964706471647264736474647564766477647864796480648164826483648464856486648764886489649064916492649364946495649664976498649965006501650265036504650565066507650865096510651165126513651465156516651765186519652065216522652365246525652665276528652965306531653265336534653565366537653865396540654165426543654465456546654765486549655065516552655365546555655665576558655965606561656265636564656565666567656865696570657165726573657465756576657765786579658065816582658365846585658665876588658965906591659265936594659565966597659865996600660166026603660466056606660766086609661066116612661366146615661666176618661966206621662266236624662566266627662866296630663166326633663466356636663766386639664066416642664366446645664666476648664966506651665266536654665566566657665866596660666166626663666466656666666766686669667066716672667366746675667666776678667966806681668266836684668566866687668866896690669166926693669466956696669766986699670067016702670367046705670667076708670967106711671267136714671567166717671867196720672167226723672467256726672767286729673067316732673367346735673667376738673967406741674267436744674567466747674867496750675167526753675467556756675767586759676067616762676367646765676667676768676967706771677267736774677567766777677867796780678167826783678467856786678767886789679067916792679367946795679667976798679968006801680268036804680568066807680868096810681168126813681468156816681768186819682068216822682368246825682668276828682968306831683268336834683568366837683868396840684168426843684468456846684768486849685068516852685368546855685668576858685968606861686268636864686568666867686868696870687168726873687468756876687768786879688068816882688368846885688668876888688968906891689268936894689568966897689868996900690169026903690469056906690769086909691069116912691369146915691669176918691969206921692269236924692569266927692869296930693169326933693469356936693769386939694069416942694369446945694669476948694969506951695269536954695569566957695869596960696169626963696469656966696769686969697069716972697369746975697669776978697969806981698269836984698569866987698869896990699169926993699469956996699769986999700070017002700370047005700670077008700970107011701270137014701570167017701870197020702170227023702470257026702770287029703070317032703370347035703670377038703970407041704270437044704570467047704870497050705170527053705470557056705770587059706070617062706370647065706670677068706970707071707270737074707570767077707870797080708170827083708470857086708770887089709070917092709370947095709670977098709971007101710271037104710571067107710871097110711171127113711471157116711771187119712071217122712371247125712671277128712971307131713271337134713571367137713871397140714171427143714471457146714771487149715071517152715371547155715671577158715971607161716271637164716571667167716871697170717171727173717471757176717771787179718071817182718371847185718671877188718971907191719271937194719571967197719871997200720172027203720472057206720772087209721072117212721372147215721672177218721972207221722272237224722572267227722872297230723172327233723472357236723772387239724072417242724372447245724672477248724972507251725272537254725572567257725872597260726172627263726472657266726772687269727072717272727372747275727672777278727972807281728272837284728572867287728872897290729172927293729472957296729772987299730073017302730373047305730673077308730973107311731273137314731573167317731873197320732173227323732473257326732773287329733073317332733373347335733673377338733973407341734273437344734573467347734873497350735173527353735473557356735773587359736073617362736373647365736673677368736973707371737273737374737573767377737873797380738173827383738473857386738773887389739073917392739373947395739673977398739974007401740274037404740574067407740874097410741174127413741474157416741774187419742074217422742374247425742674277428742974307431743274337434743574367437743874397440744174427443744474457446744774487449745074517452745374547455745674577458745974607461746274637464746574667467746874697470747174727473747474757476747774787479748074817482748374847485748674877488748974907491749274937494749574967497749874997500750175027503750475057506750775087509751075117512751375147515751675177518751975207521752275237524752575267527752875297530753175327533753475357536753775387539754075417542754375447545754675477548754975507551755275537554755575567557755875597560756175627563756475657566756775687569757075717572757375747575757675777578757975807581758275837584758575867587758875897590759175927593759475957596759775987599760076017602760376047605760676077608760976107611761276137614761576167617761876197620762176227623762476257626762776287629763076317632763376347635763676377638763976407641764276437644764576467647764876497650765176527653765476557656765776587659766076617662766376647665766676677668766976707671767276737674767576767677767876797680768176827683768476857686768776887689769076917692769376947695769676977698769977007701770277037704770577067707770877097710771177127713771477157716771777187719772077217722772377247725772677277728772977307731773277337734773577367737773877397740774177427743774477457746774777487749775077517752775377547755775677577758775977607761776277637764776577667767776877697770777177727773777477757776777777787779778077817782778377847785778677877788778977907791779277937794779577967797779877997800780178027803780478057806780778087809781078117812781378147815781678177818781978207821782278237824782578267827782878297830783178327833783478357836783778387839784078417842784378447845784678477848784978507851785278537854785578567857785878597860786178627863786478657866786778687869787078717872787378747875787678777878787978807881788278837884788578867887788878897890789178927893789478957896789778987899790079017902790379047905790679077908790979107911791279137914791579167917791879197920792179227923792479257926792779287929793079317932793379347935793679377938793979407941794279437944794579467947794879497950795179527953795479557956795779587959796079617962796379647965796679677968796979707971797279737974797579767977797879797980798179827983798479857986798779887989799079917992799379947995799679977998799980008001800280038004800580068007800880098010801180128013801480158016801780188019802080218022802380248025802680278028802980308031803280338034803580368037803880398040804180428043804480458046804780488049805080518052805380548055805680578058805980608061806280638064806580668067806880698070807180728073807480758076807780788079808080818082808380848085808680878088808980908091809280938094809580968097809880998100810181028103810481058106810781088109811081118112811381148115811681178118811981208121812281238124812581268127812881298130813181328133813481358136813781388139814081418142814381448145814681478148814981508151815281538154815581568157815881598160816181628163816481658166816781688169817081718172817381748175817681778178817981808181818281838184818581868187818881898190819181928193819481958196819781988199820082018202820382048205820682078208820982108211821282138214821582168217821882198220822182228223822482258226822782288229823082318232823382348235823682378238823982408241824282438244824582468247824882498250825182528253825482558256825782588259826082618262826382648265826682678268826982708271827282738274827582768277827882798280828182828283828482858286828782888289829082918292829382948295829682978298829983008301830283038304830583068307830883098310831183128313831483158316831783188319832083218322832383248325832683278328832983308331833283338334833583368337833883398340834183428343834483458346834783488349835083518352835383548355835683578358835983608361836283638364836583668367836883698370837183728373837483758376837783788379838083818382838383848385838683878388838983908391839283938394839583968397839883998400840184028403840484058406840784088409841084118412841384148415841684178418841984208421842284238424842584268427842884298430843184328433843484358436843784388439844084418442844384448445844684478448844984508451845284538454845584568457845884598460846184628463846484658466846784688469847084718472847384748475847684778478847984808481848284838484848584868487848884898490849184928493849484958496849784988499850085018502850385048505850685078508850985108511851285138514851585168517851885198520852185228523852485258526852785288529853085318532853385348535853685378538853985408541854285438544854585468547854885498550855185528553855485558556855785588559856085618562856385648565856685678568856985708571857285738574857585768577857885798580858185828583858485858586858785888589859085918592859385948595859685978598859986008601860286038604860586068607860886098610861186128613861486158616861786188619862086218622862386248625862686278628862986308631863286338634863586368637863886398640864186428643864486458646864786488649865086518652865386548655865686578658865986608661866286638664866586668667866886698670867186728673867486758676867786788679868086818682868386848685868686878688868986908691869286938694869586968697869886998700870187028703870487058706870787088709871087118712871387148715871687178718871987208721872287238724872587268727872887298730873187328733873487358736873787388739874087418742874387448745874687478748874987508751875287538754875587568757875887598760876187628763876487658766876787688769877087718772877387748775877687778778877987808781878287838784878587868787878887898790879187928793879487958796879787988799880088018802880388048805880688078808880988108811881288138814881588168817881888198820882188228823882488258826882788288829883088318832883388348835883688378838883988408841884288438844884588468847884888498850885188528853885488558856885788588859886088618862886388648865886688678868886988708871887288738874887588768877887888798880888188828883888488858886888788888889889088918892889388948895889688978898889989008901890289038904890589068907890889098910891189128913891489158916891789188919892089218922892389248925892689278928892989308931893289338934893589368937893889398940894189428943894489458946894789488949895089518952895389548955895689578958895989608961896289638964896589668967896889698970897189728973897489758976897789788979898089818982898389848985898689878988898989908991899289938994899589968997899889999000900190029003900490059006900790089009901090119012901390149015901690179018901990209021902290239024902590269027902890299030903190329033903490359036903790389039904090419042904390449045904690479048904990509051905290539054905590569057905890599060906190629063906490659066906790689069907090719072907390749075907690779078907990809081908290839084908590869087908890899090909190929093909490959096909790989099910091019102910391049105910691079108910991109111911291139114911591169117911891199120912191229123912491259126912791289129913091319132913391349135913691379138913991409141914291439144914591469147914891499150915191529153915491559156915791589159916091619162916391649165916691679168916991709171917291739174917591769177917891799180918191829183918491859186918791889189919091919192919391949195919691979198919992009201920292039204920592069207920892099210921192129213921492159216921792189219922092219222922392249225922692279228922992309231923292339234923592369237923892399240924192429243924492459246924792489249925092519252925392549255925692579258925992609261926292639264926592669267926892699270927192729273927492759276927792789279928092819282928392849285928692879288928992909291929292939294929592969297929892999300930193029303930493059306930793089309931093119312931393149315931693179318931993209321932293239324932593269327932893299330933193329333933493359336933793389339934093419342934393449345934693479348934993509351935293539354935593569357935893599360936193629363936493659366936793689369937093719372937393749375937693779378937993809381938293839384938593869387938893899390939193929393939493959396939793989399940094019402940394049405940694079408940994109411941294139414941594169417941894199420942194229423942494259426942794289429943094319432943394349435943694379438943994409441944294439444944594469447944894499450945194529453945494559456945794589459946094619462946394649465946694679468946994709471947294739474947594769477947894799480948194829483948494859486948794889489949094919492949394949495949694979498949995009501950295039504950595069507950895099510951195129513951495159516951795189519952095219522952395249525952695279528952995309531953295339534953595369537953895399540954195429543954495459546954795489549955095519552955395549555955695579558955995609561956295639564956595669567956895699570957195729573957495759576957795789579958095819582958395849585958695879588958995909591959295939594959595969597959895999600960196029603960496059606960796089609961096119612961396149615961696179618961996209621962296239624962596269627962896299630963196329633963496359636963796389639964096419642964396449645964696479648964996509651965296539654965596569657965896599660966196629663966496659666966796689669967096719672967396749675967696779678967996809681968296839684968596869687968896899690969196929693969496959696969796989699970097019702970397049705970697079708970997109711971297139714971597169717971897199720972197229723972497259726972797289729973097319732973397349735973697379738973997409741974297439744974597469747974897499750975197529753975497559756975797589759976097619762976397649765976697679768976997709771977297739774977597769777977897799780978197829783978497859786978797889789979097919792979397949795979697979798979998009801980298039804980598069807980898099810981198129813981498159816981798189819982098219822982398249825982698279828982998309831983298339834983598369837983898399840984198429843984498459846984798489849985098519852985398549855985698579858985998609861986298639864986598669867986898699870987198729873987498759876987798789879988098819882988398849885988698879888988998909891989298939894989598969897989898999900990199029903990499059906990799089909991099119912991399149915991699179918991999209921992299239924992599269927992899299930993199329933993499359936993799389939994099419942994399449945994699479948994999509951995299539954995599569957995899599960996199629963996499659966996799689969997099719972997399749975997699779978997999809981998299839984998599869987998899899990999199929993999499959996999799989999100001000110002100031000410005100061000710008100091001010011100121001310014100151001610017100181001910020100211002210023100241002510026100271002810029100301003110032100331003410035100361003710038100391004010041100421004310044100451004610047100481004910050100511005210053100541005510056100571005810059100601006110062100631006410065100661006710068100691007010071100721007310074100751007610077100781007910080100811008210083100841008510086100871008810089100901009110092100931009410095100961009710098100991010010101101021010310104101051010610107101081010910110101111011210113101141011510116101171011810119101201012110122101231012410125101261012710128101291013010131101321013310134101351013610137101381013910140101411014210143101441014510146101471014810149101501015110152101531015410155101561015710158101591016010161101621016310164101651016610167101681016910170101711017210173101741017510176101771017810179101801018110182101831018410185101861018710188101891019010191101921019310194101951019610197101981019910200102011020210203102041020510206102071020810209102101021110212102131021410215102161021710218102191022010221102221022310224102251022610227102281022910230102311023210233102341023510236102371023810239102401024110242102431024410245102461024710248102491025010251102521025310254102551025610257102581025910260102611026210263102641026510266102671026810269102701027110272102731027410275102761027710278102791028010281102821028310284102851028610287102881028910290102911029210293102941029510296102971029810299103001030110302103031030410305103061030710308103091031010311103121031310314103151031610317103181031910320103211032210323103241032510326103271032810329103301033110332103331033410335103361033710338103391034010341103421034310344103451034610347103481034910350103511035210353103541035510356103571035810359103601036110362103631036410365103661036710368103691037010371103721037310374103751037610377103781037910380103811038210383103841038510386103871038810389103901039110392103931039410395103961039710398103991040010401104021040310404104051040610407104081040910410104111041210413104141041510416104171041810419104201042110422104231042410425104261042710428104291043010431104321043310434104351043610437104381043910440104411044210443104441044510446104471044810449104501045110452104531045410455104561045710458104591046010461104621046310464104651046610467104681046910470104711047210473104741047510476104771047810479104801048110482104831048410485104861048710488104891049010491104921049310494104951049610497104981049910500105011050210503105041050510506105071050810509105101051110512105131051410515105161051710518105191052010521105221052310524105251052610527105281052910530105311053210533105341053510536105371053810539105401054110542105431054410545105461054710548105491055010551105521055310554105551055610557105581055910560105611056210563105641056510566105671056810569105701057110572105731057410575105761057710578105791058010581105821058310584105851058610587105881058910590105911059210593105941059510596105971059810599106001060110602106031060410605106061060710608106091061010611106121061310614106151061610617106181061910620106211062210623106241062510626106271062810629106301063110632106331063410635106361063710638106391064010641106421064310644106451064610647106481064910650106511065210653106541065510656106571065810659106601066110662106631066410665106661066710668106691067010671106721067310674106751067610677106781067910680106811068210683106841068510686106871068810689106901069110692106931069410695106961069710698106991070010701107021070310704107051070610707107081070910710107111071210713107141071510716107171071810719107201072110722107231072410725107261072710728107291073010731107321073310734107351073610737107381073910740107411074210743107441074510746107471074810749107501075110752107531075410755107561075710758107591076010761107621076310764107651076610767107681076910770107711077210773107741077510776107771077810779107801078110782107831078410785107861078710788107891079010791107921079310794107951079610797107981079910800108011080210803108041080510806108071080810809108101081110812108131081410815108161081710818108191082010821108221082310824108251082610827108281082910830108311083210833108341083510836108371083810839108401084110842108431084410845108461084710848108491085010851108521085310854108551085610857108581085910860108611086210863108641086510866108671086810869108701087110872108731087410875108761087710878108791088010881108821088310884108851088610887108881088910890108911089210893108941089510896108971089810899109001090110902109031090410905109061090710908109091091010911109121091310914109151091610917109181091910920109211092210923109241092510926109271092810929109301093110932109331093410935109361093710938109391094010941109421094310944109451094610947109481094910950109511095210953109541095510956109571095810959109601096110962109631096410965109661096710968109691097010971109721097310974109751097610977109781097910980109811098210983109841098510986109871098810989109901099110992109931099410995109961099710998109991100011001110021100311004110051100611007110081100911010110111101211013110141101511016110171101811019110201102111022110231102411025110261102711028110291103011031110321103311034110351103611037110381103911040110411104211043110441104511046110471104811049110501105111052110531105411055110561105711058110591106011061110621106311064110651106611067110681106911070110711107211073110741107511076110771107811079110801108111082110831108411085110861108711088110891109011091110921109311094110951109611097110981109911100111011110211103111041110511106111071110811109111101111111112111131111411115111161111711118111191112011121111221112311124111251112611127111281112911130111311113211133111341113511136111371113811139111401114111142111431114411145111461114711148111491115011151111521115311154111551115611157111581115911160111611116211163111641116511166111671116811169111701117111172111731117411175111761117711178111791118011181111821118311184111851118611187111881118911190111911119211193111941119511196111971119811199112001120111202112031120411205112061120711208112091121011211112121121311214112151121611217112181121911220112211122211223112241122511226112271122811229112301123111232112331123411235112361123711238112391124011241112421124311244112451124611247112481124911250112511125211253112541125511256112571125811259112601126111262112631126411265112661126711268112691127011271112721127311274112751127611277112781127911280112811128211283112841128511286112871128811289112901129111292112931129411295112961129711298112991130011301113021130311304113051130611307113081130911310113111131211313113141131511316113171131811319113201132111322113231132411325113261132711328113291133011331113321133311334113351133611337113381133911340113411134211343113441134511346113471134811349113501135111352113531135411355113561135711358113591136011361113621136311364113651136611367113681136911370113711137211373113741137511376113771137811379113801138111382113831138411385113861138711388113891139011391113921139311394113951139611397113981139911400114011140211403114041140511406114071140811409114101141111412114131141411415114161141711418114191142011421114221142311424114251142611427114281142911430114311143211433114341143511436114371143811439114401144111442114431144411445114461144711448114491145011451114521145311454114551145611457114581145911460114611146211463114641146511466114671146811469114701147111472114731147411475114761147711478114791148011481114821148311484114851148611487114881148911490114911149211493114941149511496114971149811499115001150111502115031150411505115061150711508115091151011511115121151311514115151151611517115181151911520115211152211523115241152511526115271152811529115301153111532115331153411535115361153711538115391154011541115421154311544115451154611547115481154911550115511155211553115541155511556115571155811559115601156111562115631156411565115661156711568115691157011571115721157311574115751157611577115781157911580115811158211583115841158511586115871158811589115901159111592115931159411595115961159711598115991160011601116021160311604116051160611607116081160911610116111161211613116141161511616116171161811619116201162111622116231162411625116261162711628116291163011631116321163311634116351163611637116381163911640116411164211643116441164511646116471164811649116501165111652116531165411655116561165711658116591166011661116621166311664116651166611667116681166911670116711167211673116741167511676116771167811679116801168111682116831168411685116861168711688116891169011691116921169311694116951169611697116981169911700117011170211703117041170511706117071170811709117101171111712117131171411715117161171711718117191172011721117221172311724117251172611727117281172911730117311173211733117341173511736117371173811739117401174111742117431174411745117461174711748117491175011751117521175311754117551175611757117581175911760117611176211763117641176511766117671176811769117701177111772117731177411775117761177711778117791178011781117821178311784117851178611787117881178911790117911179211793117941179511796117971179811799118001180111802118031180411805118061180711808118091181011811118121181311814118151181611817118181181911820118211182211823118241182511826118271182811829118301183111832118331183411835118361183711838118391184011841118421184311844118451184611847118481184911850118511185211853118541185511856118571185811859118601186111862118631186411865118661186711868118691187011871118721187311874118751187611877118781187911880118811188211883118841188511886118871188811889118901189111892118931189411895118961189711898118991190011901119021190311904119051190611907119081190911910119111191211913119141191511916119171191811919119201192111922119231192411925119261192711928119291193011931119321193311934119351193611937119381193911940119411194211943119441194511946119471194811949119501195111952119531195411955119561195711958119591196011961119621196311964119651196611967119681196911970119711197211973119741197511976119771197811979119801198111982119831198411985119861198711988119891199011991119921199311994119951199611997119981199912000120011200212003120041200512006120071200812009120101201112012120131201412015120161201712018120191202012021120221202312024120251202612027120281202912030120311203212033120341203512036120371203812039120401204112042120431204412045120461204712048120491205012051120521205312054120551205612057120581205912060120611206212063120641206512066120671206812069120701207112072120731207412075120761207712078120791208012081120821208312084120851208612087120881208912090120911209212093120941209512096120971209812099121001210112102121031210412105121061210712108121091211012111121121211312114121151211612117121181211912120121211212212123121241212512126121271212812129121301213112132121331213412135121361213712138121391214012141121421214312144121451214612147121481214912150121511215212153121541215512156121571215812159121601216112162121631216412165121661216712168121691217012171121721217312174121751217612177121781217912180121811218212183121841218512186121871218812189121901219112192121931219412195121961219712198121991220012201122021220312204122051220612207122081220912210122111221212213122141221512216122171221812219122201222112222122231222412225122261222712228122291223012231122321223312234122351223612237122381223912240122411224212243122441224512246122471224812249122501225112252122531225412255122561225712258122591226012261122621226312264122651226612267122681226912270122711227212273122741227512276122771227812279122801228112282122831228412285122861228712288122891229012291122921229312294122951229612297122981229912300123011230212303123041230512306123071230812309123101231112312123131231412315123161231712318123191232012321123221232312324123251232612327123281232912330123311233212333123341233512336123371233812339123401234112342123431234412345123461234712348123491235012351123521235312354123551235612357123581235912360123611236212363123641236512366123671236812369123701237112372123731237412375123761237712378123791238012381123821238312384123851238612387123881238912390123911239212393123941239512396123971239812399124001240112402124031240412405124061240712408124091241012411124121241312414124151241612417124181241912420124211242212423124241242512426124271242812429124301243112432124331243412435124361243712438124391244012441124421244312444124451244612447124481244912450124511245212453124541245512456124571245812459124601246112462124631246412465124661246712468124691247012471124721247312474124751247612477124781247912480124811248212483124841248512486124871248812489124901249112492124931249412495124961249712498124991250012501125021250312504125051250612507125081250912510125111251212513125141251512516125171251812519125201252112522125231252412525125261252712528125291253012531125321253312534125351253612537125381253912540125411254212543125441254512546125471254812549125501255112552125531255412555125561255712558125591256012561125621256312564125651256612567125681256912570125711257212573125741257512576125771257812579125801258112582125831258412585125861258712588125891259012591125921259312594125951259612597125981259912600126011260212603126041260512606126071260812609126101261112612126131261412615126161261712618126191262012621126221262312624126251262612627126281262912630126311263212633126341263512636126371263812639126401264112642126431264412645126461264712648126491265012651126521265312654126551265612657126581265912660126611266212663126641266512666126671266812669126701267112672126731267412675126761267712678126791268012681126821268312684126851268612687126881268912690126911269212693126941269512696126971269812699127001270112702127031270412705127061270712708127091271012711127121271312714127151271612717127181271912720127211272212723127241272512726127271272812729127301273112732127331273412735127361273712738127391274012741127421274312744127451274612747127481274912750127511275212753127541275512756127571275812759127601276112762127631276412765127661276712768127691277012771127721277312774127751277612777127781277912780127811278212783127841278512786127871278812789127901279112792127931279412795127961279712798127991280012801128021280312804128051280612807128081280912810128111281212813128141281512816128171281812819128201282112822128231282412825128261282712828128291283012831128321283312834128351283612837128381283912840128411284212843128441284512846128471284812849128501285112852128531285412855128561285712858128591286012861128621286312864128651286612867128681286912870128711287212873128741287512876128771287812879128801288112882128831288412885128861288712888128891289012891128921289312894128951289612897128981289912900129011290212903129041290512906129071290812909129101291112912129131291412915129161291712918129191292012921129221292312924129251292612927129281292912930129311293212933129341293512936129371293812939129401294112942129431294412945129461294712948129491295012951129521295312954129551295612957129581295912960129611296212963129641296512966129671296812969129701297112972129731297412975129761297712978129791298012981129821298312984129851298612987129881298912990129911299212993129941299512996129971299812999130001300113002130031300413005130061300713008130091301013011130121301313014130151301613017130181301913020130211302213023130241302513026130271302813029130301303113032130331303413035130361303713038130391304013041130421304313044130451304613047130481304913050130511305213053130541305513056130571305813059130601306113062130631306413065130661306713068130691307013071130721307313074130751307613077130781307913080130811308213083130841308513086130871308813089130901309113092130931309413095130961309713098130991310013101131021310313104131051310613107131081310913110131111311213113131141311513116131171311813119131201312113122131231312413125131261312713128131291313013131131321313313134131351313613137131381313913140131411314213143131441314513146131471314813149131501315113152131531315413155131561315713158131591316013161131621316313164131651316613167131681316913170131711317213173131741317513176131771317813179131801318113182131831318413185131861318713188131891319013191131921319313194131951319613197131981319913200132011320213203132041320513206132071320813209132101321113212132131321413215132161321713218132191322013221132221322313224132251322613227132281322913230132311323213233132341323513236132371323813239132401324113242132431324413245132461324713248132491325013251132521325313254132551325613257132581325913260132611326213263132641326513266132671326813269132701327113272132731327413275132761327713278132791328013281132821328313284132851328613287132881328913290132911329213293132941329513296132971329813299133001330113302133031330413305133061330713308133091331013311133121331313314133151331613317133181331913320133211332213323133241332513326133271332813329133301333113332133331333413335133361333713338133391334013341133421334313344133451334613347133481334913350133511335213353133541335513356133571335813359133601336113362133631336413365133661336713368133691337013371133721337313374133751337613377133781337913380133811338213383133841338513386133871338813389133901339113392133931339413395133961339713398133991340013401134021340313404134051340613407134081340913410134111341213413134141341513416134171341813419134201342113422134231342413425134261342713428134291343013431134321343313434134351343613437134381343913440134411344213443134441344513446134471344813449134501345113452134531345413455134561345713458134591346013461134621346313464134651346613467134681346913470134711347213473134741347513476134771347813479134801348113482134831348413485134861348713488134891349013491134921349313494134951349613497134981349913500135011350213503135041350513506135071350813509135101351113512135131351413515135161351713518135191352013521135221352313524135251352613527135281352913530135311353213533135341353513536135371353813539135401354113542135431354413545135461354713548135491355013551135521355313554135551355613557135581355913560135611356213563135641356513566135671356813569135701357113572135731357413575135761357713578135791358013581135821358313584135851358613587135881358913590135911359213593135941359513596135971359813599136001360113602136031360413605136061360713608136091361013611136121361313614136151361613617136181361913620136211362213623136241362513626136271362813629136301363113632136331363413635136361363713638136391364013641136421364313644136451364613647136481364913650136511365213653136541365513656136571365813659136601366113662136631366413665136661366713668136691367013671136721367313674136751367613677136781367913680136811368213683136841368513686136871368813689136901369113692136931369413695136961369713698136991370013701137021370313704137051370613707137081370913710137111371213713137141371513716137171371813719137201372113722137231372413725137261372713728137291373013731137321373313734137351373613737137381373913740137411374213743137441374513746137471374813749137501375113752137531375413755137561375713758137591376013761137621376313764137651376613767137681376913770137711377213773137741377513776137771377813779137801378113782137831378413785137861378713788137891379013791137921379313794137951379613797137981379913800138011380213803138041380513806138071380813809138101381113812138131381413815138161381713818138191382013821138221382313824138251382613827138281382913830138311383213833138341383513836138371383813839138401384113842138431384413845138461384713848138491385013851138521385313854138551385613857138581385913860138611386213863138641386513866138671386813869138701387113872138731387413875138761387713878138791388013881138821388313884138851388613887138881388913890138911389213893138941389513896138971389813899139001390113902139031390413905139061390713908139091391013911139121391313914139151391613917139181391913920139211392213923139241392513926139271392813929139301393113932139331393413935139361393713938139391394013941139421394313944139451394613947139481394913950139511395213953139541395513956139571395813959139601396113962139631396413965139661396713968139691397013971139721397313974139751397613977139781397913980139811398213983139841398513986139871398813989139901399113992139931399413995139961399713998139991400014001140021400314004140051400614007140081400914010140111401214013140141401514016140171401814019140201402114022140231402414025140261402714028140291403014031140321403314034140351403614037140381403914040140411404214043140441404514046140471404814049140501405114052140531405414055140561405714058140591406014061140621406314064140651406614067140681406914070140711407214073140741407514076140771407814079140801408114082140831408414085140861408714088140891409014091140921409314094140951409614097140981409914100141011410214103141041410514106141071410814109141101411114112141131411414115141161411714118141191412014121141221412314124141251412614127141281412914130141311413214133141341413514136141371413814139141401414114142141431414414145141461414714148141491415014151141521415314154141551415614157141581415914160141611416214163141641416514166141671416814169141701417114172141731417414175141761417714178141791418014181141821418314184141851418614187141881418914190141911419214193141941419514196141971419814199142001420114202142031420414205142061420714208142091421014211142121421314214142151421614217142181421914220142211422214223142241422514226142271422814229142301423114232142331423414235142361423714238142391424014241142421424314244142451424614247142481424914250142511425214253142541425514256142571425814259142601426114262142631426414265142661426714268142691427014271142721427314274142751427614277142781427914280142811428214283142841428514286142871428814289142901429114292142931429414295142961429714298142991430014301143021430314304143051430614307143081430914310143111431214313143141431514316143171431814319143201432114322143231432414325143261432714328143291433014331143321433314334143351433614337143381433914340143411434214343143441434514346143471434814349143501435114352143531435414355143561435714358143591436014361143621436314364143651436614367143681436914370143711437214373143741437514376143771437814379143801438114382143831438414385143861438714388143891439014391143921439314394143951439614397143981439914400144011440214403144041440514406144071440814409144101441114412144131441414415144161441714418144191442014421144221442314424144251442614427144281442914430144311443214433144341443514436144371443814439144401444114442144431444414445144461444714448144491445014451144521445314454144551445614457144581445914460144611446214463144641446514466144671446814469144701447114472144731447414475144761447714478144791448014481144821448314484144851448614487144881448914490144911449214493144941449514496144971449814499145001450114502145031450414505145061450714508145091451014511145121451314514145151451614517145181451914520145211452214523145241452514526145271452814529145301453114532145331453414535145361453714538145391454014541145421454314544145451454614547145481454914550145511455214553145541455514556145571455814559145601456114562145631456414565145661456714568145691457014571145721457314574145751457614577145781457914580145811458214583145841458514586145871458814589145901459114592145931459414595145961459714598145991460014601146021460314604146051460614607146081460914610146111461214613146141461514616146171461814619146201462114622146231462414625146261462714628146291463014631146321463314634146351463614637146381463914640146411464214643146441464514646146471464814649146501465114652146531465414655146561465714658146591466014661146621466314664146651466614667146681466914670146711467214673146741467514676146771467814679146801468114682146831468414685146861468714688146891469014691146921469314694146951469614697146981469914700147011470214703147041470514706147071470814709147101471114712147131471414715147161471714718147191472014721147221472314724147251472614727147281472914730147311473214733147341473514736147371473814739147401474114742147431474414745147461474714748147491475014751147521475314754147551475614757147581475914760147611476214763147641476514766147671476814769147701477114772147731477414775147761477714778147791478014781147821478314784147851478614787147881478914790147911479214793147941479514796147971479814799148001480114802148031480414805148061480714808148091481014811148121481314814148151481614817148181481914820148211482214823148241482514826148271482814829148301483114832148331483414835148361483714838148391484014841148421484314844148451484614847148481484914850148511485214853148541485514856148571485814859148601486114862148631486414865148661486714868148691487014871148721487314874148751487614877148781487914880148811488214883148841488514886148871488814889148901489114892148931489414895148961489714898148991490014901149021490314904149051490614907149081490914910149111491214913149141491514916149171491814919149201492114922149231492414925149261492714928149291493014931149321493314934149351493614937149381493914940149411494214943149441494514946149471494814949149501495114952149531495414955149561495714958149591496014961149621496314964149651496614967149681496914970149711497214973149741497514976149771497814979149801498114982149831498414985149861498714988149891499014991149921499314994149951499614997149981499915000150011500215003150041500515006150071500815009150101501115012150131501415015150161501715018150191502015021150221502315024150251502615027150281502915030150311503215033150341503515036150371503815039150401504115042150431504415045150461504715048150491505015051150521505315054150551505615057150581505915060150611506215063150641506515066150671506815069150701507115072150731507415075150761507715078150791508015081150821508315084150851508615087150881508915090150911509215093150941509515096150971509815099151001510115102151031510415105151061510715108151091511015111151121511315114151151511615117151181511915120151211512215123151241512515126151271512815129151301513115132151331513415135151361513715138151391514015141151421514315144151451514615147151481514915150151511515215153151541515515156151571515815159151601516115162151631516415165151661516715168151691517015171151721517315174151751517615177151781517915180151811518215183151841518515186151871518815189151901519115192151931519415195151961519715198151991520015201152021520315204152051520615207152081520915210152111521215213152141521515216152171521815219152201522115222152231522415225152261522715228152291523015231152321523315234152351523615237152381523915240152411524215243152441524515246152471524815249152501525115252152531525415255152561525715258152591526015261152621526315264152651526615267152681526915270152711527215273152741527515276152771527815279152801528115282152831528415285152861528715288152891529015291152921529315294152951529615297152981529915300153011530215303153041530515306153071530815309153101531115312153131531415315153161531715318153191532015321153221532315324153251532615327153281532915330153311533215333153341533515336153371533815339153401534115342153431534415345153461534715348153491535015351153521535315354153551535615357153581535915360153611536215363153641536515366153671536815369153701537115372153731537415375153761537715378153791538015381153821538315384153851538615387153881538915390153911539215393153941539515396153971539815399154001540115402154031540415405154061540715408154091541015411154121541315414154151541615417154181541915420154211542215423154241542515426154271542815429154301543115432154331543415435154361543715438154391544015441154421544315444154451544615447154481544915450154511545215453154541545515456154571545815459154601546115462154631546415465154661546715468154691547015471154721547315474154751547615477154781547915480154811548215483154841548515486154871548815489154901549115492154931549415495154961549715498154991550015501155021550315504155051550615507155081550915510155111551215513155141551515516155171551815519155201552115522155231552415525155261552715528155291553015531155321553315534155351553615537155381553915540155411554215543155441554515546155471554815549155501555115552155531555415555155561555715558155591556015561155621556315564155651556615567155681556915570155711557215573155741557515576155771557815579155801558115582155831558415585155861558715588155891559015591155921559315594155951559615597155981559915600156011560215603156041560515606156071560815609156101561115612156131561415615156161561715618156191562015621156221562315624156251562615627156281562915630156311563215633156341563515636156371563815639156401564115642156431564415645156461564715648156491565015651156521565315654156551565615657156581565915660156611566215663156641566515666156671566815669156701567115672156731567415675156761567715678156791568015681156821568315684156851568615687156881568915690156911569215693156941569515696156971569815699157001570115702157031570415705157061570715708157091571015711157121571315714157151571615717157181571915720157211572215723157241572515726157271572815729157301573115732157331573415735157361573715738157391574015741157421574315744157451574615747157481574915750157511575215753157541575515756157571575815759157601576115762157631576415765157661576715768157691577015771157721577315774157751577615777157781577915780157811578215783157841578515786157871578815789157901579115792157931579415795157961579715798157991580015801158021580315804158051580615807158081580915810158111581215813158141581515816158171581815819158201582115822158231582415825158261582715828158291583015831158321583315834158351583615837158381583915840158411584215843158441584515846158471584815849158501585115852158531585415855158561585715858158591586015861158621586315864158651586615867158681586915870158711587215873158741587515876158771587815879158801588115882158831588415885158861588715888158891589015891158921589315894158951589615897158981589915900159011590215903159041590515906159071590815909159101591115912159131591415915159161591715918159191592015921159221592315924159251592615927159281592915930159311593215933159341593515936159371593815939159401594115942159431594415945159461594715948159491595015951159521595315954159551595615957159581595915960159611596215963159641596515966159671596815969159701597115972159731597415975159761597715978159791598015981159821598315984159851598615987159881598915990159911599215993159941599515996159971599815999160001600116002160031600416005160061600716008160091601016011160121601316014160151601616017160181601916020160211602216023160241602516026160271602816029160301603116032160331603416035160361603716038160391604016041160421604316044160451604616047160481604916050160511605216053160541605516056160571605816059160601606116062160631606416065160661606716068160691607016071160721607316074160751607616077160781607916080160811608216083160841608516086160871608816089160901609116092160931609416095160961609716098160991610016101161021610316104161051610616107161081610916110161111611216113161141611516116161171611816119161201612116122161231612416125161261612716128161291613016131161321613316134161351613616137161381613916140161411614216143161441614516146161471614816149161501615116152161531615416155161561615716158161591616016161161621616316164161651616616167161681616916170161711617216173161741617516176161771617816179161801618116182161831618416185161861618716188161891619016191161921619316194161951619616197161981619916200162011620216203162041620516206162071620816209162101621116212162131621416215162161621716218162191622016221162221622316224162251622616227162281622916230162311623216233162341623516236162371623816239162401624116242162431624416245162461624716248162491625016251162521625316254162551625616257162581625916260162611626216263162641626516266162671626816269162701627116272162731627416275162761627716278162791628016281162821628316284162851628616287162881628916290162911629216293162941629516296162971629816299163001630116302163031630416305163061630716308163091631016311163121631316314163151631616317163181631916320163211632216323163241632516326163271632816329163301633116332163331633416335163361633716338163391634016341163421634316344163451634616347163481634916350163511635216353163541635516356163571635816359163601636116362163631636416365163661636716368163691637016371163721637316374163751637616377163781637916380163811638216383163841638516386163871638816389163901639116392163931639416395163961639716398163991640016401164021640316404164051640616407164081640916410164111641216413164141641516416164171641816419164201642116422164231642416425164261642716428164291643016431164321643316434164351643616437164381643916440164411644216443164441644516446164471644816449164501645116452164531645416455164561645716458164591646016461164621646316464164651646616467164681646916470164711647216473164741647516476164771647816479164801648116482164831648416485164861648716488164891649016491164921649316494164951649616497164981649916500165011650216503165041650516506165071650816509165101651116512165131651416515165161651716518165191652016521165221652316524165251652616527165281652916530165311653216533165341653516536165371653816539165401654116542165431654416545165461654716548165491655016551165521655316554165551655616557165581655916560165611656216563165641656516566165671656816569165701657116572165731657416575165761657716578165791658016581165821658316584165851658616587165881658916590165911659216593165941659516596165971659816599166001660116602166031660416605166061660716608166091661016611166121661316614166151661616617166181661916620166211662216623166241662516626166271662816629166301663116632166331663416635166361663716638166391664016641166421664316644166451664616647166481664916650166511665216653166541665516656166571665816659166601666116662166631666416665166661666716668166691667016671166721667316674166751667616677166781667916680166811668216683166841668516686166871668816689166901669116692166931669416695166961669716698166991670016701167021670316704167051670616707167081670916710167111671216713167141671516716167171671816719167201672116722167231672416725167261672716728167291673016731167321673316734167351673616737167381673916740167411674216743167441674516746167471674816749167501675116752167531675416755167561675716758167591676016761167621676316764167651676616767167681676916770167711677216773167741677516776167771677816779167801678116782167831678416785167861678716788167891679016791167921679316794167951679616797167981679916800168011680216803168041680516806168071680816809168101681116812168131681416815168161681716818168191682016821168221682316824168251682616827168281682916830168311683216833168341683516836168371683816839168401684116842168431684416845168461684716848168491685016851168521685316854168551685616857168581685916860168611686216863168641686516866168671686816869168701687116872168731687416875168761687716878168791688016881168821688316884168851688616887168881688916890168911689216893168941689516896168971689816899169001690116902169031690416905169061690716908169091691016911169121691316914169151691616917169181691916920169211692216923169241692516926169271692816929169301693116932169331693416935169361693716938169391694016941169421694316944169451694616947169481694916950169511695216953169541695516956169571695816959169601696116962169631696416965169661696716968169691697016971169721697316974169751697616977169781697916980169811698216983169841698516986169871698816989169901699116992169931699416995169961699716998169991700017001170021700317004170051700617007170081700917010170111701217013170141701517016170171701817019170201702117022170231702417025170261702717028170291703017031170321703317034170351703617037170381703917040170411704217043170441704517046170471704817049170501705117052170531705417055170561705717058170591706017061170621706317064170651706617067170681706917070170711707217073170741707517076170771707817079170801708117082170831708417085170861708717088170891709017091170921709317094170951709617097170981709917100171011710217103171041710517106171071710817109171101711117112171131711417115171161711717118171191712017121171221712317124171251712617127171281712917130171311713217133171341713517136171371713817139171401714117142171431714417145171461714717148171491715017151171521715317154171551715617157171581715917160171611716217163171641716517166171671716817169171701717117172171731717417175171761717717178171791718017181171821718317184171851718617187171881718917190171911719217193171941719517196171971719817199172001720117202172031720417205172061720717208172091721017211172121721317214172151721617217172181721917220172211722217223172241722517226172271722817229172301723117232172331723417235172361723717238172391724017241172421724317244172451724617247172481724917250172511725217253172541725517256172571725817259172601726117262172631726417265172661726717268172691727017271172721727317274172751727617277172781727917280172811728217283172841728517286172871728817289172901729117292172931729417295172961729717298172991730017301173021730317304173051730617307173081730917310173111731217313173141731517316173171731817319173201732117322173231732417325173261732717328173291733017331173321733317334173351733617337173381733917340173411734217343173441734517346173471734817349173501735117352173531735417355173561735717358173591736017361173621736317364173651736617367173681736917370173711737217373173741737517376173771737817379173801738117382173831738417385173861738717388173891739017391173921739317394173951739617397173981739917400174011740217403174041740517406174071740817409174101741117412174131741417415174161741717418174191742017421174221742317424174251742617427174281742917430174311743217433174341743517436174371743817439174401744117442174431744417445174461744717448174491745017451174521745317454174551745617457174581745917460174611746217463174641746517466174671746817469174701747117472174731747417475174761747717478174791748017481174821748317484174851748617487174881748917490174911749217493174941749517496174971749817499175001750117502175031750417505175061750717508175091751017511175121751317514175151751617517175181751917520175211752217523175241752517526175271752817529175301753117532175331753417535175361753717538175391754017541175421754317544175451754617547175481754917550175511755217553175541755517556175571755817559175601756117562175631756417565175661756717568175691757017571175721757317574175751757617577175781757917580175811758217583175841758517586175871758817589175901759117592175931759417595175961759717598175991760017601176021760317604176051760617607176081760917610176111761217613176141761517616176171761817619176201762117622176231762417625176261762717628176291763017631176321763317634176351763617637176381763917640176411764217643176441764517646176471764817649176501765117652176531765417655176561765717658176591766017661176621766317664176651766617667176681766917670176711767217673176741767517676176771767817679176801768117682176831768417685176861768717688176891769017691176921769317694176951769617697176981769917700177011770217703177041770517706177071770817709177101771117712177131771417715177161771717718177191772017721177221772317724177251772617727177281772917730177311773217733177341773517736177371773817739177401774117742177431774417745177461774717748177491775017751177521775317754177551775617757177581775917760177611776217763177641776517766177671776817769177701777117772177731777417775177761777717778177791778017781177821778317784177851778617787177881778917790177911779217793177941779517796177971779817799178001780117802178031780417805178061780717808178091781017811178121781317814178151781617817178181781917820178211782217823178241782517826178271782817829178301783117832178331783417835178361783717838178391784017841178421784317844178451784617847178481784917850178511785217853178541785517856178571785817859178601786117862178631786417865178661786717868178691787017871178721787317874178751787617877178781787917880178811788217883178841788517886178871788817889178901789117892178931789417895178961789717898178991790017901179021790317904179051790617907179081790917910179111791217913179141791517916179171791817919179201792117922179231792417925179261792717928179291793017931179321793317934179351793617937179381793917940179411794217943179441794517946179471794817949179501795117952179531795417955179561795717958179591796017961179621796317964179651796617967179681796917970179711797217973179741797517976179771797817979179801798117982179831798417985179861798717988179891799017991179921799317994179951799617997179981799918000180011800218003180041800518006180071800818009180101801118012180131801418015180161801718018180191802018021180221802318024180251802618027180281802918030180311803218033180341803518036180371803818039180401804118042180431804418045180461804718048180491805018051180521805318054180551805618057180581805918060180611806218063180641806518066180671806818069180701807118072180731807418075180761807718078180791808018081180821808318084180851808618087180881808918090180911809218093180941809518096180971809818099181001810118102181031810418105181061810718108181091811018111181121811318114181151811618117181181811918120181211812218123181241812518126181271812818129181301813118132181331813418135181361813718138181391814018141181421814318144181451814618147181481814918150181511815218153181541815518156181571815818159181601816118162181631816418165181661816718168181691817018171181721817318174181751817618177181781817918180181811818218183181841818518186181871818818189181901819118192181931819418195181961819718198181991820018201182021820318204182051820618207182081820918210182111821218213182141821518216182171821818219182201822118222182231822418225182261822718228182291823018231182321823318234182351823618237182381823918240182411824218243182441824518246182471824818249182501825118252182531825418255182561825718258182591826018261182621826318264182651826618267182681826918270182711827218273182741827518276182771827818279182801828118282182831828418285182861828718288182891829018291182921829318294182951829618297182981829918300183011830218303183041830518306183071830818309183101831118312183131831418315183161831718318183191832018321183221832318324183251832618327183281832918330183311833218333183341833518336183371833818339183401834118342183431834418345183461834718348183491835018351183521835318354183551835618357183581835918360183611836218363183641836518366183671836818369183701837118372183731837418375183761837718378183791838018381183821838318384183851838618387183881838918390183911839218393183941839518396183971839818399184001840118402184031840418405184061840718408184091841018411184121841318414184151841618417184181841918420184211842218423184241842518426184271842818429184301843118432184331843418435184361843718438184391844018441184421844318444184451844618447184481844918450184511845218453184541845518456184571845818459184601846118462184631846418465184661846718468184691847018471184721847318474184751847618477184781847918480184811848218483184841848518486184871848818489184901849118492184931849418495184961849718498184991850018501185021850318504185051850618507185081850918510185111851218513185141851518516185171851818519185201852118522185231852418525185261852718528185291853018531185321853318534185351853618537185381853918540185411854218543185441854518546185471854818549185501855118552185531855418555185561855718558185591856018561185621856318564185651856618567185681856918570185711857218573185741857518576185771857818579185801858118582185831858418585185861858718588185891859018591185921859318594185951859618597185981859918600186011860218603186041860518606186071860818609186101861118612186131861418615186161861718618186191862018621186221862318624186251862618627186281862918630186311863218633186341863518636186371863818639186401864118642186431864418645186461864718648186491865018651186521865318654186551865618657186581865918660186611866218663186641866518666186671866818669186701867118672186731867418675186761867718678186791868018681186821868318684186851868618687186881868918690186911869218693186941869518696186971869818699187001870118702187031870418705187061870718708187091871018711187121871318714187151871618717187181871918720187211872218723187241872518726187271872818729187301873118732187331873418735187361873718738187391874018741187421874318744187451874618747187481874918750187511875218753187541875518756187571875818759187601876118762187631876418765187661876718768187691877018771187721877318774187751877618777187781877918780187811878218783187841878518786187871878818789187901879118792187931879418795187961879718798187991880018801188021880318804188051880618807188081880918810188111881218813188141881518816188171881818819188201882118822188231882418825188261882718828188291883018831188321883318834188351883618837188381883918840188411884218843188441884518846188471884818849188501885118852188531885418855188561885718858188591886018861188621886318864188651886618867188681886918870188711887218873188741887518876188771887818879188801888118882188831888418885188861888718888188891889018891188921889318894188951889618897188981889918900189011890218903189041890518906189071890818909189101891118912189131891418915189161891718918189191892018921189221892318924189251892618927189281892918930189311893218933189341893518936189371893818939189401894118942189431894418945189461894718948189491895018951189521895318954189551895618957189581895918960189611896218963189641896518966189671896818969189701897118972189731897418975189761897718978189791898018981189821898318984189851898618987189881898918990189911899218993189941899518996189971899818999190001900119002190031900419005190061900719008190091901019011190121901319014190151901619017190181901919020190211902219023190241902519026190271902819029190301903119032190331903419035190361903719038190391904019041190421904319044190451904619047190481904919050190511905219053190541905519056190571905819059190601906119062190631906419065190661906719068190691907019071190721907319074190751907619077190781907919080190811908219083190841908519086190871908819089190901909119092190931909419095190961909719098190991910019101191021910319104191051910619107191081910919110191111911219113191141911519116191171911819119191201912119122191231912419125191261912719128191291913019131191321913319134191351913619137191381913919140191411914219143191441914519146191471914819149191501915119152191531915419155191561915719158191591916019161191621916319164191651916619167191681916919170191711917219173191741917519176191771917819179191801918119182191831918419185191861918719188191891919019191191921919319194191951919619197191981919919200192011920219203192041920519206192071920819209192101921119212192131921419215192161921719218192191922019221192221922319224192251922619227192281922919230192311923219233192341923519236192371923819239192401924119242192431924419245192461924719248192491925019251192521925319254192551925619257192581925919260192611926219263192641926519266192671926819269192701927119272192731927419275192761927719278192791928019281192821928319284192851928619287192881928919290192911929219293192941929519296192971929819299193001930119302193031930419305193061930719308193091931019311193121931319314193151931619317193181931919320193211932219323193241932519326193271932819329193301933119332193331933419335193361933719338193391934019341193421934319344193451934619347193481934919350193511935219353193541935519356193571935819359193601936119362193631936419365193661936719368193691937019371193721937319374193751937619377193781937919380193811938219383193841938519386193871938819389193901939119392193931939419395193961939719398193991940019401194021940319404194051940619407194081940919410194111941219413194141941519416194171941819419194201942119422194231942419425194261942719428194291943019431194321943319434194351943619437194381943919440194411944219443194441944519446194471944819449194501945119452194531945419455194561945719458194591946019461194621946319464194651946619467194681946919470194711947219473194741947519476194771947819479194801948119482194831948419485194861948719488194891949019491194921949319494194951949619497194981949919500195011950219503195041950519506195071950819509195101951119512195131951419515195161951719518195191952019521195221952319524195251952619527195281952919530195311953219533195341953519536195371953819539195401954119542195431954419545195461954719548195491955019551195521955319554195551955619557195581955919560195611956219563195641956519566195671956819569195701957119572195731957419575195761957719578195791958019581195821958319584195851958619587195881958919590195911959219593195941959519596195971959819599196001960119602196031960419605196061960719608196091961019611196121961319614196151961619617196181961919620196211962219623196241962519626196271962819629196301963119632196331963419635196361963719638196391964019641196421964319644196451964619647196481964919650196511965219653196541965519656196571965819659196601966119662196631966419665196661966719668196691967019671196721967319674196751967619677196781967919680196811968219683196841968519686196871968819689196901969119692196931969419695196961969719698196991970019701197021970319704197051970619707197081970919710197111971219713197141971519716197171971819719197201972119722197231972419725197261972719728197291973019731197321973319734197351973619737197381973919740197411974219743197441974519746197471974819749197501975119752197531975419755197561975719758197591976019761197621976319764197651976619767197681976919770197711977219773197741977519776197771977819779197801978119782197831978419785197861978719788197891979019791197921979319794197951979619797197981979919800198011980219803198041980519806198071980819809198101981119812198131981419815198161981719818198191982019821198221982319824198251982619827198281982919830198311983219833198341983519836198371983819839198401984119842198431984419845198461984719848198491985019851198521985319854198551985619857198581985919860198611986219863198641986519866198671986819869198701987119872198731987419875198761987719878198791988019881198821988319884198851988619887198881988919890198911989219893198941989519896198971989819899199001990119902199031990419905199061990719908199091991019911199121991319914199151991619917199181991919920199211992219923199241992519926199271992819929199301993119932199331993419935199361993719938199391994019941199421994319944199451994619947199481994919950199511995219953199541995519956199571995819959199601996119962199631996419965199661996719968199691997019971199721997319974199751997619977199781997919980199811998219983199841998519986199871998819989199901999119992199931999419995199961999719998199992000020001200022000320004200052000620007200082000920010200112001220013200142001520016200172001820019200202002120022200232002420025200262002720028200292003020031200322003320034200352003620037200382003920040200412004220043200442004520046200472004820049200502005120052200532005420055200562005720058200592006020061200622006320064200652006620067200682006920070200712007220073200742007520076200772007820079200802008120082200832008420085200862008720088200892009020091200922009320094200952009620097200982009920100201012010220103201042010520106201072010820109201102011120112201132011420115201162011720118201192012020121201222012320124201252012620127201282012920130201312013220133201342013520136201372013820139201402014120142201432014420145201462014720148201492015020151201522015320154201552015620157201582015920160201612016220163201642016520166201672016820169201702017120172201732017420175201762017720178201792018020181201822018320184201852018620187201882018920190201912019220193201942019520196201972019820199202002020120202202032020420205202062020720208202092021020211202122021320214202152021620217202182021920220202212022220223202242022520226202272022820229202302023120232202332023420235202362023720238202392024020241202422024320244202452024620247202482024920250202512025220253202542025520256202572025820259202602026120262202632026420265202662026720268202692027020271202722027320274202752027620277202782027920280202812028220283202842028520286202872028820289202902029120292202932029420295202962029720298202992030020301203022030320304203052030620307203082030920310203112031220313203142031520316203172031820319203202032120322203232032420325203262032720328203292033020331203322033320334203352033620337203382033920340203412034220343203442034520346203472034820349203502035120352203532035420355203562035720358203592036020361203622036320364203652036620367203682036920370203712037220373203742037520376203772037820379203802038120382203832038420385203862038720388203892039020391203922039320394203952039620397203982039920400204012040220403204042040520406204072040820409204102041120412204132041420415204162041720418204192042020421204222042320424204252042620427204282042920430204312043220433204342043520436204372043820439204402044120442204432044420445204462044720448204492045020451204522045320454204552045620457204582045920460204612046220463204642046520466204672046820469204702047120472204732047420475204762047720478204792048020481204822048320484204852048620487204882048920490204912049220493204942049520496204972049820499205002050120502205032050420505205062050720508205092051020511205122051320514205152051620517205182051920520205212052220523205242052520526205272052820529205302053120532205332053420535205362053720538205392054020541205422054320544205452054620547205482054920550205512055220553205542055520556205572055820559205602056120562205632056420565205662056720568205692057020571205722057320574205752057620577205782057920580205812058220583205842058520586205872058820589205902059120592205932059420595205962059720598205992060020601206022060320604206052060620607206082060920610206112061220613206142061520616206172061820619206202062120622206232062420625206262062720628206292063020631206322063320634206352063620637206382063920640206412064220643206442064520646206472064820649206502065120652206532065420655206562065720658206592066020661206622066320664206652066620667206682066920670206712067220673206742067520676206772067820679206802068120682206832068420685206862068720688206892069020691206922069320694206952069620697206982069920700207012070220703207042070520706207072070820709207102071120712207132071420715207162071720718207192072020721207222072320724207252072620727207282072920730207312073220733207342073520736207372073820739207402074120742207432074420745207462074720748207492075020751207522075320754207552075620757207582075920760207612076220763207642076520766207672076820769207702077120772207732077420775207762077720778207792078020781207822078320784207852078620787207882078920790207912079220793207942079520796207972079820799208002080120802208032080420805208062080720808208092081020811208122081320814208152081620817208182081920820208212082220823208242082520826208272082820829208302083120832208332083420835208362083720838208392084020841208422084320844208452084620847208482084920850208512085220853208542085520856208572085820859208602086120862208632086420865208662086720868208692087020871208722087320874208752087620877208782087920880208812088220883208842088520886208872088820889208902089120892208932089420895208962089720898208992090020901209022090320904209052090620907209082090920910209112091220913209142091520916209172091820919209202092120922209232092420925209262092720928209292093020931209322093320934209352093620937209382093920940209412094220943209442094520946209472094820949209502095120952209532095420955209562095720958209592096020961209622096320964209652096620967209682096920970209712097220973209742097520976209772097820979209802098120982209832098420985209862098720988209892099020991209922099320994209952099620997209982099921000210012100221003210042100521006210072100821009210102101121012210132101421015210162101721018210192102021021210222102321024210252102621027210282102921030210312103221033210342103521036210372103821039210402104121042210432104421045210462104721048210492105021051210522105321054210552105621057210582105921060210612106221063210642106521066210672106821069210702107121072210732107421075210762107721078210792108021081210822108321084210852108621087210882108921090210912109221093210942109521096210972109821099211002110121102211032110421105211062110721108211092111021111211122111321114211152111621117211182111921120211212112221123211242112521126211272112821129211302113121132211332113421135211362113721138211392114021141211422114321144211452114621147211482114921150211512115221153211542115521156211572115821159211602116121162211632116421165211662116721168211692117021171211722117321174211752117621177211782117921180211812118221183211842118521186211872118821189211902119121192211932119421195211962119721198211992120021201212022120321204212052120621207212082120921210212112121221213212142121521216212172121821219212202122121222212232122421225212262122721228212292123021231212322123321234212352123621237212382123921240212412124221243212442124521246212472124821249212502125121252212532125421255212562125721258212592126021261212622126321264212652126621267212682126921270212712127221273212742127521276212772127821279212802128121282212832128421285212862128721288212892129021291212922129321294212952129621297212982129921300213012130221303213042130521306213072130821309213102131121312213132131421315213162131721318213192132021321213222132321324213252132621327213282132921330213312133221333213342133521336213372133821339213402134121342213432134421345213462134721348213492135021351213522135321354213552135621357213582135921360213612136221363213642136521366213672136821369213702137121372213732137421375213762137721378213792138021381213822138321384213852138621387213882138921390213912139221393213942139521396213972139821399214002140121402214032140421405214062140721408214092141021411214122141321414214152141621417214182141921420214212142221423214242142521426214272142821429214302143121432214332143421435214362143721438214392144021441214422144321444214452144621447214482144921450214512145221453214542145521456214572145821459214602146121462214632146421465214662146721468214692147021471214722147321474214752147621477214782147921480214812148221483214842148521486214872148821489214902149121492214932149421495214962149721498214992150021501215022150321504215052150621507215082150921510215112151221513215142151521516215172151821519215202152121522215232152421525215262152721528215292153021531215322153321534215352153621537215382153921540215412154221543215442154521546215472154821549215502155121552215532155421555215562155721558215592156021561215622156321564215652156621567215682156921570215712157221573215742157521576215772157821579215802158121582215832158421585215862158721588215892159021591215922159321594215952159621597215982159921600216012160221603216042160521606216072160821609216102161121612216132161421615216162161721618216192162021621216222162321624216252162621627216282162921630216312163221633216342163521636216372163821639216402164121642216432164421645216462164721648216492165021651216522165321654216552165621657216582165921660216612166221663216642166521666216672166821669216702167121672216732167421675216762167721678216792168021681216822168321684216852168621687216882168921690216912169221693216942169521696216972169821699217002170121702217032170421705217062170721708217092171021711217122171321714217152171621717217182171921720217212172221723217242172521726217272172821729217302173121732217332173421735217362173721738217392174021741217422174321744217452174621747217482174921750217512175221753217542175521756217572175821759217602176121762217632176421765217662176721768217692177021771217722177321774217752177621777217782177921780217812178221783217842178521786217872178821789217902179121792217932179421795217962179721798217992180021801218022180321804218052180621807218082180921810218112181221813218142181521816218172181821819218202182121822218232182421825218262182721828218292183021831218322183321834218352183621837218382183921840218412184221843218442184521846218472184821849218502185121852218532185421855218562185721858218592186021861218622186321864218652186621867218682186921870218712187221873218742187521876218772187821879218802188121882218832188421885218862188721888218892189021891218922189321894218952189621897218982189921900219012190221903219042190521906219072190821909219102191121912219132191421915219162191721918219192192021921219222192321924219252192621927219282192921930219312193221933219342193521936219372193821939219402194121942219432194421945219462194721948219492195021951219522195321954219552195621957219582195921960219612196221963219642196521966219672196821969219702197121972219732197421975219762197721978219792198021981219822198321984219852198621987219882198921990219912199221993219942199521996219972199821999220002200122002220032200422005220062200722008220092201022011220122201322014220152201622017220182201922020220212202222023220242202522026220272202822029220302203122032220332203422035220362203722038220392204022041220422204322044220452204622047220482204922050220512205222053220542205522056220572205822059220602206122062220632206422065220662206722068220692207022071220722207322074220752207622077220782207922080220812208222083220842208522086220872208822089220902209122092220932209422095220962209722098220992210022101221022210322104221052210622107221082210922110221112211222113221142211522116221172211822119221202212122122221232212422125221262212722128221292213022131221322213322134221352213622137221382213922140221412214222143221442214522146221472214822149221502215122152221532215422155221562215722158221592216022161221622216322164221652216622167221682216922170221712217222173221742217522176221772217822179221802218122182221832218422185221862218722188221892219022191221922219322194221952219622197221982219922200222012220222203222042220522206222072220822209222102221122212222132221422215222162221722218222192222022221222222222322224222252222622227222282222922230222312223222233222342223522236222372223822239222402224122242222432224422245222462224722248222492225022251222522225322254222552225622257222582225922260222612226222263222642226522266222672226822269222702227122272222732227422275222762227722278222792228022281222822228322284222852228622287222882228922290222912229222293222942229522296222972229822299223002230122302223032230422305223062230722308223092231022311223122231322314223152231622317223182231922320223212232222323223242232522326223272232822329223302233122332223332233422335223362233722338223392234022341223422234322344223452234622347223482234922350223512235222353223542235522356223572235822359223602236122362223632236422365223662236722368223692237022371223722237322374223752237622377223782237922380223812238222383223842238522386223872238822389223902239122392223932239422395223962239722398223992240022401224022240322404224052240622407224082240922410224112241222413224142241522416224172241822419224202242122422224232242422425224262242722428224292243022431224322243322434224352243622437224382243922440224412244222443224442244522446224472244822449224502245122452224532245422455224562245722458224592246022461224622246322464224652246622467224682246922470224712247222473224742247522476224772247822479224802248122482224832248422485224862248722488224892249022491224922249322494224952249622497224982249922500225012250222503225042250522506225072250822509225102251122512225132251422515225162251722518225192252022521225222252322524225252252622527225282252922530225312253222533225342253522536225372253822539225402254122542225432254422545225462254722548225492255022551225522255322554225552255622557225582255922560225612256222563225642256522566225672256822569225702257122572225732257422575225762257722578225792258022581225822258322584225852258622587225882258922590225912259222593225942259522596225972259822599226002260122602226032260422605226062260722608226092261022611226122261322614226152261622617226182261922620226212262222623226242262522626226272262822629226302263122632226332263422635226362263722638226392264022641226422264322644226452264622647226482264922650226512265222653226542265522656226572265822659226602266122662226632266422665226662266722668226692267022671226722267322674226752267622677226782267922680226812268222683226842268522686226872268822689226902269122692226932269422695226962269722698226992270022701227022270322704227052270622707227082270922710227112271222713227142271522716227172271822719227202272122722227232272422725227262272722728227292273022731227322273322734227352273622737227382273922740227412274222743227442274522746227472274822749227502275122752227532275422755227562275722758227592276022761227622276322764227652276622767227682276922770227712277222773227742277522776227772277822779227802278122782227832278422785227862278722788227892279022791227922279322794227952279622797227982279922800228012280222803228042280522806228072280822809228102281122812228132281422815228162281722818228192282022821228222282322824228252282622827228282282922830228312283222833228342283522836228372283822839228402284122842228432284422845228462284722848228492285022851228522285322854228552285622857228582285922860228612286222863228642286522866228672286822869228702287122872228732287422875228762287722878228792288022881228822288322884228852288622887228882288922890228912289222893228942289522896228972289822899229002290122902229032290422905229062290722908229092291022911229122291322914229152291622917229182291922920229212292222923229242292522926229272292822929229302293122932229332293422935229362293722938229392294022941229422294322944229452294622947229482294922950229512295222953229542295522956229572295822959229602296122962229632296422965229662296722968229692297022971229722297322974229752297622977229782297922980229812298222983229842298522986229872298822989229902299122992229932299422995229962299722998229992300023001230022300323004230052300623007230082300923010230112301223013230142301523016230172301823019230202302123022230232302423025230262302723028230292303023031230322303323034230352303623037230382303923040230412304223043230442304523046230472304823049230502305123052230532305423055230562305723058230592306023061230622306323064230652306623067230682306923070230712307223073230742307523076230772307823079230802308123082230832308423085230862308723088230892309023091230922309323094230952309623097230982309923100231012310223103231042310523106231072310823109231102311123112231132311423115231162311723118231192312023121231222312323124231252312623127231282312923130231312313223133231342313523136231372313823139231402314123142231432314423145231462314723148231492315023151231522315323154231552315623157231582315923160231612316223163231642316523166231672316823169231702317123172231732317423175231762317723178231792318023181231822318323184231852318623187231882318923190231912319223193231942319523196231972319823199232002320123202232032320423205232062320723208232092321023211232122321323214232152321623217232182321923220232212322223223232242322523226232272322823229232302323123232232332323423235232362323723238232392324023241232422324323244232452324623247232482324923250232512325223253232542325523256232572325823259232602326123262232632326423265232662326723268232692327023271232722327323274232752327623277232782327923280232812328223283232842328523286232872328823289232902329123292232932329423295232962329723298232992330023301233022330323304233052330623307233082330923310233112331223313233142331523316233172331823319233202332123322233232332423325233262332723328233292333023331233322333323334233352333623337233382333923340233412334223343233442334523346233472334823349233502335123352233532335423355233562335723358233592336023361233622336323364233652336623367233682336923370233712337223373233742337523376233772337823379233802338123382233832338423385233862338723388233892339023391233922339323394233952339623397233982339923400234012340223403234042340523406234072340823409234102341123412234132341423415234162341723418234192342023421234222342323424234252342623427234282342923430234312343223433234342343523436234372343823439234402344123442234432344423445234462344723448234492345023451234522345323454234552345623457234582345923460234612346223463234642346523466234672346823469234702347123472234732347423475234762347723478234792348023481234822348323484234852348623487234882348923490234912349223493234942349523496234972349823499235002350123502235032350423505235062350723508235092351023511235122351323514235152351623517235182351923520235212352223523235242352523526235272352823529235302353123532235332353423535235362353723538235392354023541235422354323544235452354623547235482354923550235512355223553235542355523556235572355823559235602356123562235632356423565235662356723568235692357023571235722357323574235752357623577235782357923580235812358223583235842358523586235872358823589235902359123592235932359423595235962359723598235992360023601236022360323604236052360623607236082360923610236112361223613236142361523616236172361823619236202362123622236232362423625236262362723628236292363023631236322363323634236352363623637236382363923640236412364223643236442364523646236472364823649236502365123652236532365423655236562365723658236592366023661236622366323664236652366623667236682366923670236712367223673236742367523676236772367823679236802368123682236832368423685236862368723688236892369023691236922369323694236952369623697236982369923700237012370223703237042370523706237072370823709237102371123712237132371423715237162371723718237192372023721237222372323724237252372623727237282372923730237312373223733237342373523736237372373823739237402374123742237432374423745237462374723748237492375023751237522375323754237552375623757237582375923760237612376223763237642376523766237672376823769237702377123772237732377423775237762377723778237792378023781237822378323784237852378623787237882378923790237912379223793237942379523796237972379823799238002380123802238032380423805238062380723808238092381023811238122381323814238152381623817238182381923820238212382223823238242382523826238272382823829238302383123832238332383423835238362383723838238392384023841238422384323844238452384623847238482384923850238512385223853238542385523856238572385823859238602386123862238632386423865238662386723868238692387023871238722387323874238752387623877238782387923880238812388223883238842388523886238872388823889238902389123892238932389423895238962389723898238992390023901239022390323904239052390623907239082390923910239112391223913239142391523916239172391823919239202392123922239232392423925239262392723928239292393023931239322393323934239352393623937239382393923940239412394223943239442394523946239472394823949239502395123952239532395423955239562395723958239592396023961239622396323964239652396623967239682396923970239712397223973239742397523976239772397823979239802398123982239832398423985239862398723988239892399023991239922399323994239952399623997239982399924000240012400224003240042400524006240072400824009240102401124012240132401424015240162401724018240192402024021240222402324024240252402624027240282402924030240312403224033240342403524036240372403824039240402404124042240432404424045240462404724048240492405024051240522405324054240552405624057240582405924060240612406224063240642406524066240672406824069240702407124072240732407424075240762407724078240792408024081240822408324084240852408624087240882408924090240912409224093240942409524096240972409824099241002410124102241032410424105241062410724108241092411024111241122411324114241152411624117241182411924120241212412224123241242412524126241272412824129241302413124132241332413424135241362413724138241392414024141241422414324144241452414624147241482414924150241512415224153241542415524156241572415824159241602416124162241632416424165241662416724168241692417024171241722417324174241752417624177241782417924180241812418224183241842418524186241872418824189241902419124192241932419424195241962419724198241992420024201242022420324204242052420624207242082420924210242112421224213242142421524216242172421824219242202422124222242232422424225242262422724228242292423024231242322423324234242352423624237242382423924240242412424224243242442424524246242472424824249242502425124252242532425424255242562425724258242592426024261242622426324264242652426624267242682426924270242712427224273242742427524276242772427824279242802428124282242832428424285242862428724288242892429024291242922429324294242952429624297242982429924300243012430224303243042430524306243072430824309243102431124312243132431424315243162431724318243192432024321243222432324324243252432624327243282432924330243312433224333243342433524336243372433824339243402434124342243432434424345243462434724348243492435024351243522435324354243552435624357243582435924360243612436224363243642436524366243672436824369243702437124372243732437424375243762437724378243792438024381243822438324384243852438624387243882438924390243912439224393243942439524396243972439824399244002440124402244032440424405244062440724408244092441024411244122441324414244152441624417244182441924420244212442224423244242442524426244272442824429244302443124432244332443424435244362443724438244392444024441244422444324444244452444624447244482444924450244512445224453244542445524456244572445824459244602446124462244632446424465244662446724468244692447024471244722447324474244752447624477244782447924480244812448224483244842448524486244872448824489244902449124492244932449424495244962449724498244992450024501245022450324504245052450624507245082450924510245112451224513245142451524516245172451824519245202452124522245232452424525245262452724528245292453024531245322453324534245352453624537245382453924540245412454224543245442454524546245472454824549245502455124552245532455424555245562455724558245592456024561245622456324564245652456624567245682456924570245712457224573245742457524576245772457824579245802458124582245832458424585245862458724588245892459024591245922459324594245952459624597245982459924600246012460224603246042460524606246072460824609246102461124612246132461424615246162461724618246192462024621246222462324624246252462624627246282462924630246312463224633246342463524636246372463824639246402464124642246432464424645246462464724648246492465024651246522465324654246552465624657246582465924660246612466224663246642466524666246672466824669246702467124672246732467424675246762467724678246792468024681246822468324684246852468624687246882468924690246912469224693246942469524696246972469824699247002470124702247032470424705247062470724708247092471024711247122471324714247152471624717247182471924720247212472224723247242472524726247272472824729247302473124732247332473424735247362473724738247392474024741247422474324744247452474624747247482474924750247512475224753247542475524756247572475824759247602476124762247632476424765247662476724768247692477024771247722477324774247752477624777247782477924780247812478224783247842478524786247872478824789247902479124792247932479424795247962479724798247992480024801248022480324804248052480624807248082480924810248112481224813248142481524816248172481824819248202482124822248232482424825248262482724828248292483024831248322483324834248352483624837248382483924840248412484224843248442484524846248472484824849248502485124852248532485424855248562485724858248592486024861248622486324864248652486624867248682486924870248712487224873248742487524876248772487824879248802488124882248832488424885248862488724888248892489024891248922489324894248952489624897248982489924900249012490224903249042490524906249072490824909249102491124912249132491424915249162491724918249192492024921249222492324924249252492624927249282492924930249312493224933249342493524936249372493824939249402494124942249432494424945249462494724948249492495024951249522495324954249552495624957249582495924960249612496224963249642496524966249672496824969249702497124972249732497424975249762497724978249792498024981249822498324984249852498624987249882498924990249912499224993249942499524996249972499824999250002500125002250032500425005250062500725008250092501025011250122501325014250152501625017250182501925020250212502225023250242502525026250272502825029250302503125032250332503425035250362503725038250392504025041250422504325044250452504625047250482504925050250512505225053250542505525056250572505825059250602506125062250632506425065250662506725068250692507025071250722507325074250752507625077250782507925080250812508225083250842508525086250872508825089250902509125092250932509425095250962509725098250992510025101251022510325104251052510625107251082510925110251112511225113251142511525116251172511825119251202512125122251232512425125251262512725128251292513025131251322513325134251352513625137251382513925140251412514225143251442514525146251472514825149251502515125152251532515425155251562515725158251592516025161251622516325164251652516625167251682516925170251712517225173251742517525176251772517825179251802518125182251832518425185251862518725188251892519025191251922519325194251952519625197251982519925200252012520225203252042520525206252072520825209252102521125212252132521425215252162521725218252192522025221252222522325224252252522625227252282522925230252312523225233252342523525236252372523825239252402524125242252432524425245252462524725248252492525025251252522525325254252552525625257252582525925260252612526225263252642526525266252672526825269252702527125272252732527425275252762527725278252792528025281252822528325284252852528625287252882528925290252912529225293252942529525296252972529825299253002530125302253032530425305253062530725308253092531025311253122531325314253152531625317253182531925320253212532225323253242532525326253272532825329253302533125332253332533425335253362533725338253392534025341253422534325344253452534625347253482534925350253512535225353253542535525356253572535825359253602536125362253632536425365253662536725368253692537025371253722537325374253752537625377253782537925380253812538225383253842538525386253872538825389253902539125392253932539425395253962539725398253992540025401254022540325404254052540625407254082540925410254112541225413254142541525416254172541825419254202542125422254232542425425254262542725428254292543025431254322543325434254352543625437254382543925440254412544225443254442544525446254472544825449254502545125452254532545425455254562545725458254592546025461254622546325464254652546625467254682546925470254712547225473254742547525476254772547825479254802548125482254832548425485254862548725488254892549025491254922549325494254952549625497254982549925500255012550225503255042550525506255072550825509255102551125512255132551425515255162551725518255192552025521255222552325524255252552625527255282552925530255312553225533255342553525536255372553825539255402554125542255432554425545255462554725548255492555025551255522555325554255552555625557255582555925560255612556225563255642556525566255672556825569255702557125572255732557425575255762557725578255792558025581255822558325584255852558625587255882558925590255912559225593255942559525596255972559825599256002560125602256032560425605256062560725608256092561025611256122561325614256152561625617256182561925620256212562225623256242562525626256272562825629256302563125632256332563425635256362563725638256392564025641256422564325644256452564625647256482564925650256512565225653256542565525656256572565825659256602566125662256632566425665256662566725668256692567025671256722567325674256752567625677256782567925680256812568225683256842568525686256872568825689256902569125692256932569425695256962569725698256992570025701257022570325704257052570625707257082570925710257112571225713257142571525716257172571825719257202572125722257232572425725257262572725728257292573025731257322573325734257352573625737257382573925740257412574225743257442574525746257472574825749257502575125752257532575425755257562575725758257592576025761257622576325764257652576625767257682576925770257712577225773257742577525776257772577825779257802578125782257832578425785257862578725788257892579025791257922579325794257952579625797257982579925800258012580225803258042580525806258072580825809258102581125812258132581425815258162581725818258192582025821258222582325824258252582625827258282582925830258312583225833258342583525836258372583825839258402584125842258432584425845258462584725848258492585025851258522585325854258552585625857258582585925860258612586225863258642586525866258672586825869258702587125872258732587425875258762587725878258792588025881258822588325884258852588625887258882588925890258912589225893258942589525896258972589825899259002590125902259032590425905259062590725908259092591025911259122591325914259152591625917259182591925920259212592225923259242592525926259272592825929259302593125932259332593425935259362593725938259392594025941259422594325944259452594625947259482594925950259512595225953259542595525956259572595825959259602596125962259632596425965259662596725968259692597025971259722597325974259752597625977259782597925980259812598225983259842598525986259872598825989259902599125992259932599425995259962599725998259992600026001260022600326004260052600626007260082600926010260112601226013260142601526016260172601826019260202602126022260232602426025260262602726028260292603026031260322603326034260352603626037260382603926040260412604226043260442604526046260472604826049260502605126052260532605426055260562605726058260592606026061260622606326064260652606626067260682606926070260712607226073260742607526076260772607826079260802608126082260832608426085260862608726088260892609026091260922609326094260952609626097260982609926100261012610226103261042610526106261072610826109261102611126112261132611426115261162611726118261192612026121261222612326124261252612626127261282612926130261312613226133261342613526136261372613826139261402614126142261432614426145261462614726148261492615026151261522615326154261552615626157261582615926160261612616226163261642616526166261672616826169261702617126172261732617426175261762617726178261792618026181261822618326184261852618626187261882618926190261912619226193261942619526196261972619826199262002620126202262032620426205262062620726208262092621026211262122621326214262152621626217262182621926220262212622226223262242622526226262272622826229262302623126232262332623426235262362623726238262392624026241262422624326244262452624626247262482624926250262512625226253262542625526256262572625826259262602626126262262632626426265262662626726268262692627026271262722627326274262752627626277262782627926280262812628226283262842628526286262872628826289262902629126292262932629426295262962629726298262992630026301263022630326304263052630626307263082630926310263112631226313263142631526316263172631826319263202632126322263232632426325263262632726328263292633026331263322633326334263352633626337263382633926340263412634226343263442634526346263472634826349263502635126352263532635426355263562635726358263592636026361263622636326364263652636626367263682636926370263712637226373263742637526376263772637826379263802638126382263832638426385263862638726388263892639026391263922639326394263952639626397263982639926400264012640226403264042640526406264072640826409264102641126412264132641426415264162641726418264192642026421264222642326424264252642626427264282642926430264312643226433264342643526436264372643826439264402644126442264432644426445264462644726448264492645026451264522645326454264552645626457264582645926460264612646226463264642646526466264672646826469264702647126472264732647426475264762647726478264792648026481264822648326484264852648626487264882648926490264912649226493264942649526496264972649826499265002650126502265032650426505265062650726508265092651026511265122651326514265152651626517265182651926520265212652226523265242652526526265272652826529265302653126532265332653426535265362653726538265392654026541265422654326544265452654626547265482654926550265512655226553265542655526556265572655826559265602656126562265632656426565265662656726568265692657026571265722657326574265752657626577265782657926580265812658226583265842658526586265872658826589265902659126592265932659426595265962659726598265992660026601266022660326604266052660626607266082660926610266112661226613266142661526616266172661826619266202662126622266232662426625266262662726628266292663026631266322663326634266352663626637266382663926640266412664226643266442664526646266472664826649266502665126652266532665426655266562665726658266592666026661266622666326664266652666626667266682666926670266712667226673266742667526676266772667826679266802668126682266832668426685266862668726688266892669026691266922669326694266952669626697266982669926700267012670226703267042670526706267072670826709267102671126712267132671426715267162671726718267192672026721267222672326724267252672626727267282672926730267312673226733267342673526736267372673826739267402674126742267432674426745267462674726748267492675026751267522675326754267552675626757267582675926760267612676226763267642676526766267672676826769267702677126772267732677426775267762677726778267792678026781267822678326784267852678626787267882678926790267912679226793267942679526796267972679826799268002680126802268032680426805268062680726808268092681026811268122681326814268152681626817268182681926820268212682226823268242682526826268272682826829268302683126832268332683426835268362683726838268392684026841268422684326844268452684626847268482684926850268512685226853268542685526856268572685826859268602686126862268632686426865268662686726868268692687026871268722687326874268752687626877268782687926880268812688226883268842688526886268872688826889268902689126892268932689426895268962689726898268992690026901269022690326904269052690626907269082690926910269112691226913269142691526916269172691826919269202692126922269232692426925269262692726928269292693026931269322693326934269352693626937269382693926940269412694226943269442694526946269472694826949269502695126952269532695426955269562695726958269592696026961269622696326964269652696626967269682696926970269712697226973269742697526976269772697826979269802698126982269832698426985269862698726988269892699026991269922699326994269952699626997269982699927000270012700227003270042700527006270072700827009270102701127012270132701427015270162701727018270192702027021270222702327024270252702627027270282702927030270312703227033270342703527036270372703827039270402704127042270432704427045270462704727048270492705027051270522705327054270552705627057270582705927060270612706227063270642706527066270672706827069270702707127072270732707427075270762707727078270792708027081270822708327084270852708627087270882708927090270912709227093270942709527096270972709827099271002710127102271032710427105271062710727108271092711027111271122711327114271152711627117271182711927120271212712227123271242712527126271272712827129271302713127132271332713427135271362713727138271392714027141271422714327144271452714627147271482714927150271512715227153271542715527156271572715827159271602716127162271632716427165271662716727168271692717027171271722717327174271752717627177271782717927180271812718227183271842718527186271872718827189271902719127192271932719427195271962719727198271992720027201272022720327204272052720627207272082720927210272112721227213272142721527216272172721827219272202722127222272232722427225272262722727228272292723027231272322723327234272352723627237272382723927240272412724227243272442724527246272472724827249272502725127252272532725427255272562725727258272592726027261272622726327264272652726627267272682726927270272712727227273272742727527276272772727827279272802728127282272832728427285272862728727288272892729027291272922729327294272952729627297272982729927300273012730227303273042730527306273072730827309273102731127312273132731427315273162731727318273192732027321273222732327324273252732627327273282732927330273312733227333273342733527336273372733827339273402734127342273432734427345273462734727348273492735027351273522735327354273552735627357273582735927360273612736227363273642736527366273672736827369273702737127372273732737427375273762737727378273792738027381273822738327384273852738627387273882738927390273912739227393273942739527396273972739827399274002740127402274032740427405274062740727408274092741027411274122741327414274152741627417274182741927420274212742227423274242742527426274272742827429274302743127432274332743427435274362743727438274392744027441274422744327444274452744627447274482744927450274512745227453274542745527456274572745827459274602746127462274632746427465274662746727468274692747027471274722747327474274752747627477274782747927480274812748227483274842748527486274872748827489274902749127492274932749427495274962749727498274992750027501275022750327504275052750627507275082750927510275112751227513275142751527516275172751827519275202752127522275232752427525275262752727528275292753027531275322753327534275352753627537275382753927540275412754227543275442754527546275472754827549275502755127552275532755427555275562755727558275592756027561275622756327564275652756627567275682756927570275712757227573275742757527576275772757827579275802758127582275832758427585275862758727588275892759027591275922759327594275952759627597275982759927600276012760227603276042760527606276072760827609276102761127612276132761427615276162761727618276192762027621276222762327624276252762627627276282762927630276312763227633276342763527636276372763827639276402764127642276432764427645276462764727648276492765027651276522765327654276552765627657276582765927660276612766227663276642766527666276672766827669276702767127672276732767427675276762767727678276792768027681276822768327684276852768627687276882768927690276912769227693276942769527696276972769827699277002770127702277032770427705277062770727708277092771027711277122771327714277152771627717277182771927720277212772227723277242772527726277272772827729277302773127732277332773427735277362773727738277392774027741277422774327744277452774627747277482774927750277512775227753277542775527756277572775827759277602776127762277632776427765277662776727768277692777027771277722777327774277752777627777277782777927780277812778227783277842778527786277872778827789277902779127792277932779427795277962779727798277992780027801278022780327804278052780627807278082780927810278112781227813278142781527816278172781827819278202782127822278232782427825278262782727828278292783027831278322783327834278352783627837278382783927840278412784227843278442784527846278472784827849278502785127852278532785427855278562785727858278592786027861278622786327864278652786627867278682786927870278712787227873278742787527876278772787827879278802788127882278832788427885278862788727888278892789027891278922789327894278952789627897278982789927900279012790227903279042790527906279072790827909279102791127912279132791427915279162791727918279192792027921279222792327924279252792627927279282792927930279312793227933279342793527936279372793827939279402794127942279432794427945279462794727948279492795027951279522795327954279552795627957279582795927960279612796227963279642796527966279672796827969279702797127972279732797427975279762797727978279792798027981279822798327984279852798627987279882798927990279912799227993279942799527996279972799827999280002800128002280032800428005280062800728008280092801028011280122801328014280152801628017280182801928020280212802228023280242802528026280272802828029280302803128032280332803428035280362803728038280392804028041280422804328044280452804628047280482804928050280512805228053280542805528056280572805828059280602806128062280632806428065280662806728068280692807028071280722807328074280752807628077280782807928080280812808228083280842808528086280872808828089280902809128092280932809428095280962809728098280992810028101281022810328104281052810628107281082810928110281112811228113281142811528116281172811828119281202812128122281232812428125281262812728128281292813028131281322813328134281352813628137281382813928140281412814228143281442814528146281472814828149281502815128152281532815428155281562815728158281592816028161281622816328164281652816628167281682816928170281712817228173281742817528176281772817828179281802818128182281832818428185281862818728188281892819028191281922819328194281952819628197281982819928200282012820228203282042820528206282072820828209282102821128212282132821428215282162821728218282192822028221282222822328224282252822628227282282822928230282312823228233282342823528236282372823828239282402824128242282432824428245282462824728248282492825028251282522825328254282552825628257282582825928260282612826228263282642826528266282672826828269282702827128272282732827428275282762827728278282792828028281282822828328284282852828628287282882828928290282912829228293282942829528296282972829828299283002830128302283032830428305283062830728308283092831028311283122831328314283152831628317283182831928320283212832228323283242832528326283272832828329283302833128332283332833428335283362833728338283392834028341283422834328344283452834628347283482834928350283512835228353283542835528356283572835828359283602836128362283632836428365283662836728368283692837028371283722837328374283752837628377283782837928380283812838228383283842838528386283872838828389283902839128392283932839428395283962839728398283992840028401284022840328404284052840628407284082840928410284112841228413284142841528416284172841828419284202842128422284232842428425284262842728428284292843028431284322843328434284352843628437284382843928440284412844228443284442844528446284472844828449284502845128452284532845428455284562845728458284592846028461284622846328464284652846628467284682846928470284712847228473284742847528476284772847828479284802848128482284832848428485284862848728488284892849028491284922849328494284952849628497284982849928500285012850228503285042850528506285072850828509285102851128512285132851428515285162851728518285192852028521285222852328524285252852628527285282852928530285312853228533285342853528536285372853828539285402854128542285432854428545285462854728548285492855028551285522855328554285552855628557285582855928560285612856228563285642856528566285672856828569285702857128572285732857428575285762857728578285792858028581285822858328584285852858628587285882858928590285912859228593285942859528596285972859828599286002860128602286032860428605286062860728608286092861028611286122861328614286152861628617286182861928620286212862228623286242862528626286272862828629286302863128632286332863428635286362863728638286392864028641286422864328644286452864628647286482864928650286512865228653286542865528656286572865828659286602866128662286632866428665286662866728668286692867028671286722867328674286752867628677286782867928680286812868228683286842868528686286872868828689286902869128692286932869428695286962869728698286992870028701287022870328704287052870628707287082870928710287112871228713287142871528716287172871828719287202872128722287232872428725287262872728728287292873028731287322873328734287352873628737287382873928740287412874228743287442874528746287472874828749287502875128752287532875428755287562875728758287592876028761287622876328764287652876628767287682876928770287712877228773287742877528776287772877828779287802878128782287832878428785287862878728788287892879028791287922879328794287952879628797287982879928800288012880228803288042880528806288072880828809288102881128812288132881428815288162881728818288192882028821288222882328824288252882628827288282882928830288312883228833288342883528836288372883828839288402884128842288432884428845288462884728848288492885028851288522885328854288552885628857288582885928860288612886228863288642886528866288672886828869288702887128872288732887428875288762887728878288792888028881288822888328884288852888628887288882888928890288912889228893288942889528896288972889828899289002890128902289032890428905289062890728908289092891028911289122891328914289152891628917289182891928920289212892228923289242892528926289272892828929289302893128932289332893428935289362893728938289392894028941289422894328944289452894628947289482894928950289512895228953289542895528956289572895828959289602896128962289632896428965289662896728968289692897028971289722897328974289752897628977289782897928980289812898228983289842898528986289872898828989289902899128992289932899428995289962899728998289992900029001290022900329004290052900629007290082900929010290112901229013290142901529016290172901829019290202902129022290232902429025290262902729028290292903029031290322903329034290352903629037290382903929040290412904229043290442904529046290472904829049290502905129052290532905429055290562905729058290592906029061290622906329064290652906629067290682906929070290712907229073290742907529076290772907829079290802908129082290832908429085290862908729088290892909029091290922909329094290952909629097290982909929100291012910229103291042910529106291072910829109291102911129112291132911429115291162911729118291192912029121291222912329124291252912629127291282912929130291312913229133291342913529136291372913829139291402914129142291432914429145291462914729148291492915029151291522915329154291552915629157291582915929160291612916229163291642916529166291672916829169291702917129172291732917429175291762917729178291792918029181291822918329184291852918629187291882918929190291912919229193291942919529196291972919829199292002920129202292032920429205292062920729208292092921029211292122921329214292152921629217292182921929220292212922229223292242922529226292272922829229292302923129232292332923429235292362923729238292392924029241292422924329244292452924629247292482924929250292512925229253292542925529256292572925829259292602926129262292632926429265292662926729268292692927029271292722927329274292752927629277292782927929280292812928229283292842928529286292872928829289292902929129292292932929429295292962929729298292992930029301293022930329304293052930629307293082930929310293112931229313293142931529316293172931829319293202932129322293232932429325293262932729328293292933029331293322933329334293352933629337293382933929340293412934229343293442934529346293472934829349293502935129352293532935429355293562935729358293592936029361293622936329364293652936629367293682936929370293712937229373293742937529376293772937829379293802938129382293832938429385293862938729388293892939029391293922939329394293952939629397293982939929400294012940229403294042940529406294072940829409294102941129412294132941429415294162941729418294192942029421294222942329424294252942629427294282942929430294312943229433294342943529436294372943829439294402944129442294432944429445294462944729448294492945029451294522945329454294552945629457294582945929460294612946229463294642946529466294672946829469294702947129472294732947429475294762947729478294792948029481294822948329484294852948629487294882948929490294912949229493294942949529496294972949829499295002950129502295032950429505295062950729508295092951029511295122951329514295152951629517295182951929520295212952229523295242952529526295272952829529295302953129532295332953429535295362953729538295392954029541295422954329544295452954629547295482954929550295512955229553295542955529556295572955829559295602956129562295632956429565295662956729568295692957029571295722957329574295752957629577295782957929580295812958229583295842958529586295872958829589295902959129592295932959429595295962959729598295992960029601296022960329604296052960629607296082960929610296112961229613296142961529616296172961829619296202962129622296232962429625296262962729628296292963029631296322963329634296352963629637296382963929640296412964229643296442964529646296472964829649296502965129652296532965429655296562965729658296592966029661296622966329664296652966629667296682966929670296712967229673296742967529676296772967829679296802968129682296832968429685296862968729688296892969029691296922969329694296952969629697296982969929700297012970229703297042970529706297072970829709297102971129712297132971429715297162971729718297192972029721297222972329724297252972629727297282972929730297312973229733297342973529736297372973829739297402974129742297432974429745297462974729748297492975029751297522975329754297552975629757297582975929760297612976229763297642976529766297672976829769297702977129772297732977429775297762977729778297792978029781297822978329784297852978629787297882978929790297912979229793297942979529796297972979829799298002980129802298032980429805298062980729808298092981029811298122981329814298152981629817298182981929820298212982229823298242982529826298272982829829298302983129832298332983429835298362983729838298392984029841298422984329844298452984629847298482984929850298512985229853298542985529856298572985829859298602986129862298632986429865298662986729868298692987029871298722987329874298752987629877298782987929880298812988229883298842988529886298872988829889298902989129892298932989429895298962989729898298992990029901299022990329904299052990629907299082990929910299112991229913299142991529916299172991829919299202992129922299232992429925299262992729928299292993029931299322993329934299352993629937299382993929940299412994229943299442994529946299472994829949299502995129952299532995429955299562995729958299592996029961299622996329964299652996629967299682996929970299712997229973299742997529976299772997829979299802998129982299832998429985299862998729988299892999029991299922999329994299952999629997299982999930000300013000230003300043000530006300073000830009300103001130012300133001430015300163001730018300193002030021300223002330024300253002630027300283002930030300313003230033300343003530036300373003830039300403004130042300433004430045300463004730048300493005030051300523005330054300553005630057300583005930060300613006230063300643006530066300673006830069300703007130072300733007430075300763007730078300793008030081300823008330084300853008630087300883008930090300913009230093300943009530096300973009830099301003010130102301033010430105301063010730108301093011030111301123011330114301153011630117301183011930120301213012230123301243012530126301273012830129301303013130132301333013430135301363013730138301393014030141301423014330144301453014630147301483014930150301513015230153301543015530156301573015830159301603016130162301633016430165301663016730168301693017030171301723017330174301753017630177301783017930180301813018230183301843018530186301873018830189301903019130192301933019430195301963019730198301993020030201302023020330204302053020630207302083020930210302113021230213302143021530216302173021830219302203022130222302233022430225302263022730228302293023030231302323023330234302353023630237302383023930240302413024230243302443024530246302473024830249302503025130252302533025430255302563025730258302593026030261302623026330264302653026630267302683026930270302713027230273302743027530276302773027830279302803028130282302833028430285302863028730288302893029030291302923029330294302953029630297302983029930300303013030230303303043030530306303073030830309303103031130312303133031430315303163031730318303193032030321303223032330324303253032630327303283032930330303313033230333303343033530336303373033830339303403034130342303433034430345303463034730348303493035030351303523035330354303553035630357303583035930360303613036230363303643036530366303673036830369303703037130372303733037430375303763037730378303793038030381303823038330384303853038630387303883038930390303913039230393303943039530396303973039830399304003040130402304033040430405304063040730408304093041030411304123041330414304153041630417304183041930420304213042230423304243042530426304273042830429304303043130432304333043430435304363043730438304393044030441304423044330444304453044630447304483044930450304513045230453304543045530456304573045830459304603046130462304633046430465304663046730468304693047030471304723047330474304753047630477304783047930480304813048230483304843048530486304873048830489304903049130492304933049430495304963049730498304993050030501305023050330504305053050630507305083050930510305113051230513305143051530516305173051830519305203052130522305233052430525305263052730528305293053030531305323053330534305353053630537305383053930540305413054230543305443054530546305473054830549305503055130552305533055430555305563055730558305593056030561305623056330564305653056630567305683056930570305713057230573305743057530576305773057830579305803058130582305833058430585305863058730588305893059030591305923059330594305953059630597305983059930600306013060230603306043060530606306073060830609306103061130612306133061430615306163061730618306193062030621306223062330624306253062630627306283062930630306313063230633306343063530636306373063830639306403064130642306433064430645306463064730648306493065030651306523065330654306553065630657306583065930660306613066230663306643066530666306673066830669306703067130672306733067430675306763067730678306793068030681306823068330684306853068630687306883068930690306913069230693306943069530696306973069830699307003070130702307033070430705307063070730708307093071030711307123071330714307153071630717307183071930720307213072230723307243072530726307273072830729307303073130732307333073430735307363073730738307393074030741307423074330744307453074630747307483074930750307513075230753307543075530756307573075830759307603076130762307633076430765307663076730768307693077030771307723077330774307753077630777307783077930780307813078230783307843078530786307873078830789307903079130792307933079430795307963079730798307993080030801308023080330804308053080630807308083080930810308113081230813308143081530816308173081830819308203082130822308233082430825308263082730828308293083030831308323083330834308353083630837308383083930840308413084230843308443084530846308473084830849308503085130852308533085430855308563085730858308593086030861308623086330864308653086630867308683086930870308713087230873308743087530876308773087830879308803088130882308833088430885308863088730888308893089030891308923089330894308953089630897308983089930900309013090230903309043090530906309073090830909309103091130912309133091430915309163091730918309193092030921309223092330924309253092630927309283092930930309313093230933309343093530936309373093830939309403094130942309433094430945309463094730948309493095030951309523095330954309553095630957309583095930960309613096230963309643096530966309673096830969309703097130972309733097430975309763097730978309793098030981309823098330984309853098630987309883098930990309913099230993309943099530996309973099830999310003100131002310033100431005310063100731008310093101031011310123101331014310153101631017310183101931020310213102231023310243102531026310273102831029310303103131032310333103431035310363103731038310393104031041310423104331044310453104631047310483104931050310513105231053310543105531056310573105831059310603106131062310633106431065310663106731068310693107031071310723107331074310753107631077310783107931080310813108231083310843108531086310873108831089310903109131092310933109431095310963109731098310993110031101311023110331104311053110631107311083110931110311113111231113311143111531116311173111831119311203112131122311233112431125311263112731128311293113031131311323113331134311353113631137311383113931140311413114231143311443114531146311473114831149311503115131152311533115431155311563115731158311593116031161311623116331164311653116631167311683116931170311713117231173311743117531176311773117831179311803118131182311833118431185311863118731188311893119031191311923119331194311953119631197311983119931200312013120231203312043120531206312073120831209312103121131212312133121431215312163121731218312193122031221312223122331224312253122631227312283122931230312313123231233312343123531236312373123831239312403124131242312433124431245312463124731248312493125031251312523125331254312553125631257312583125931260312613126231263312643126531266312673126831269312703127131272312733127431275312763127731278312793128031281312823128331284312853128631287312883128931290312913129231293312943129531296312973129831299313003130131302313033130431305313063130731308313093131031311313123131331314313153131631317313183131931320313213132231323313243132531326313273132831329313303133131332313333133431335313363133731338313393134031341313423134331344313453134631347313483134931350313513135231353313543135531356313573135831359313603136131362313633136431365313663136731368313693137031371313723137331374313753137631377313783137931380313813138231383313843138531386313873138831389313903139131392313933139431395313963139731398313993140031401314023140331404314053140631407314083140931410314113141231413314143141531416314173141831419314203142131422314233142431425314263142731428314293143031431314323143331434314353143631437314383143931440314413144231443314443144531446314473144831449314503145131452314533145431455314563145731458314593146031461314623146331464314653146631467314683146931470314713147231473314743147531476314773147831479314803148131482314833148431485314863148731488314893149031491314923149331494314953149631497314983149931500315013150231503315043150531506315073150831509315103151131512315133151431515315163151731518315193152031521315223152331524315253152631527315283152931530315313153231533315343153531536315373153831539315403154131542315433154431545315463154731548315493155031551315523155331554315553155631557315583155931560315613156231563315643156531566315673156831569315703157131572315733157431575315763157731578315793158031581315823158331584315853158631587315883158931590315913159231593315943159531596315973159831599316003160131602316033160431605316063160731608316093161031611316123161331614316153161631617316183161931620316213162231623316243162531626316273162831629316303163131632316333163431635316363163731638316393164031641316423164331644316453164631647316483164931650316513165231653316543165531656316573165831659316603166131662316633166431665316663166731668316693167031671316723167331674316753167631677316783167931680316813168231683316843168531686316873168831689316903169131692316933169431695316963169731698316993170031701317023170331704317053170631707317083170931710317113171231713317143171531716317173171831719317203172131722317233172431725317263172731728317293173031731317323173331734317353173631737317383173931740317413174231743317443174531746317473174831749317503175131752317533175431755317563175731758317593176031761317623176331764317653176631767317683176931770317713177231773317743177531776317773177831779317803178131782317833178431785317863178731788317893179031791317923179331794317953179631797317983179931800318013180231803318043180531806318073180831809318103181131812318133181431815318163181731818318193182031821318223182331824318253182631827318283182931830318313183231833318343183531836318373183831839318403184131842318433184431845318463184731848318493185031851318523185331854318553185631857318583185931860318613186231863318643186531866318673186831869318703187131872318733187431875318763187731878318793188031881318823188331884318853188631887318883188931890318913189231893318943189531896318973189831899319003190131902319033190431905319063190731908319093191031911319123191331914319153191631917319183191931920319213192231923319243192531926319273192831929319303193131932319333193431935319363193731938319393194031941319423194331944319453194631947319483194931950319513195231953319543195531956319573195831959319603196131962319633196431965319663196731968319693197031971319723197331974319753197631977319783197931980319813198231983319843198531986319873198831989319903199131992319933199431995319963199731998319993200032001320023200332004320053200632007320083200932010320113201232013320143201532016320173201832019320203202132022320233202432025320263202732028320293203032031320323203332034320353203632037320383203932040320413204232043320443204532046320473204832049320503205132052320533205432055320563205732058320593206032061320623206332064320653206632067320683206932070320713207232073320743207532076320773207832079320803208132082320833208432085320863208732088320893209032091320923209332094320953209632097320983209932100321013210232103321043210532106321073210832109321103211132112321133211432115321163211732118321193212032121321223212332124321253212632127321283212932130321313213232133321343213532136321373213832139321403214132142321433214432145321463214732148321493215032151321523215332154321553215632157321583215932160321613216232163321643216532166321673216832169321703217132172321733217432175321763217732178321793218032181321823218332184321853218632187321883218932190321913219232193321943219532196321973219832199322003220132202322033220432205322063220732208322093221032211322123221332214322153221632217322183221932220322213222232223322243222532226322273222832229322303223132232322333223432235322363223732238322393224032241322423224332244322453224632247322483224932250322513225232253322543225532256322573225832259322603226132262322633226432265322663226732268322693227032271322723227332274322753227632277322783227932280322813228232283322843228532286322873228832289322903229132292322933229432295322963229732298322993230032301323023230332304323053230632307323083230932310323113231232313323143231532316323173231832319323203232132322323233232432325323263232732328323293233032331323323233332334323353233632337323383233932340323413234232343323443234532346323473234832349323503235132352323533235432355323563235732358323593236032361323623236332364323653236632367323683236932370323713237232373323743237532376323773237832379323803238132382323833238432385323863238732388323893239032391323923239332394323953239632397323983239932400324013240232403324043240532406324073240832409324103241132412324133241432415324163241732418324193242032421324223242332424324253242632427324283242932430324313243232433324343243532436324373243832439324403244132442324433244432445324463244732448324493245032451324523245332454324553245632457324583245932460324613246232463324643246532466324673246832469324703247132472324733247432475324763247732478324793248032481324823248332484324853248632487324883248932490324913249232493324943249532496324973249832499325003250132502325033250432505325063250732508325093251032511325123251332514325153251632517325183251932520325213252232523325243252532526325273252832529325303253132532325333253432535325363253732538325393254032541325423254332544325453254632547325483254932550325513255232553325543255532556325573255832559325603256132562325633256432565325663256732568325693257032571325723257332574325753257632577325783257932580325813258232583325843258532586325873258832589325903259132592325933259432595325963259732598325993260032601326023260332604326053260632607326083260932610326113261232613326143261532616326173261832619326203262132622326233262432625326263262732628326293263032631326323263332634326353263632637326383263932640326413264232643326443264532646326473264832649326503265132652326533265432655326563265732658326593266032661326623266332664326653266632667326683266932670326713267232673326743267532676326773267832679326803268132682326833268432685326863268732688326893269032691326923269332694326953269632697326983269932700327013270232703327043270532706327073270832709327103271132712327133271432715327163271732718327193272032721327223272332724327253272632727327283272932730327313273232733327343273532736327373273832739327403274132742327433274432745327463274732748327493275032751327523275332754327553275632757327583275932760327613276232763327643276532766327673276832769327703277132772327733277432775327763277732778327793278032781327823278332784327853278632787327883278932790327913279232793327943279532796327973279832799328003280132802328033280432805328063280732808328093281032811328123281332814328153281632817328183281932820328213282232823328243282532826328273282832829328303283132832328333283432835328363283732838328393284032841328423284332844328453284632847328483284932850328513285232853328543285532856328573285832859328603286132862328633286432865328663286732868328693287032871328723287332874328753287632877328783287932880328813288232883328843288532886328873288832889328903289132892328933289432895328963289732898328993290032901329023290332904329053290632907329083290932910329113291232913329143291532916329173291832919329203292132922329233292432925329263292732928329293293032931329323293332934329353293632937329383293932940329413294232943329443294532946329473294832949329503295132952329533295432955329563295732958329593296032961329623296332964329653296632967329683296932970329713297232973329743297532976329773297832979329803298132982329833298432985329863298732988329893299032991329923299332994329953299632997329983299933000330013300233003330043300533006330073300833009330103301133012330133301433015330163301733018330193302033021330223302333024330253302633027330283302933030330313303233033330343303533036330373303833039330403304133042330433304433045330463304733048330493305033051330523305333054330553305633057330583305933060330613306233063330643306533066330673306833069330703307133072330733307433075330763307733078330793308033081330823308333084330853308633087330883308933090330913309233093330943309533096330973309833099331003310133102331033310433105331063310733108331093311033111331123311333114331153311633117331183311933120331213312233123331243312533126331273312833129331303313133132331333313433135331363313733138331393314033141331423314333144331453314633147331483314933150331513315233153331543315533156331573315833159331603316133162331633316433165331663316733168331693317033171331723317333174331753317633177331783317933180331813318233183331843318533186331873318833189331903319133192331933319433195331963319733198331993320033201332023320333204332053320633207332083320933210332113321233213332143321533216332173321833219332203322133222332233322433225332263322733228332293323033231332323323333234332353323633237332383323933240332413324233243332443324533246332473324833249332503325133252332533325433255332563325733258332593326033261332623326333264332653326633267332683326933270332713327233273332743327533276332773327833279332803328133282332833328433285332863328733288332893329033291332923329333294332953329633297332983329933300333013330233303333043330533306333073330833309333103331133312333133331433315333163331733318333193332033321333223332333324333253332633327333283332933330333313333233333333343333533336333373333833339333403334133342333433334433345333463334733348333493335033351333523335333354333553335633357333583335933360333613336233363333643336533366333673336833369333703337133372333733337433375333763337733378333793338033381333823338333384333853338633387333883338933390333913339233393333943339533396333973339833399334003340133402334033340433405334063340733408334093341033411334123341333414334153341633417334183341933420334213342233423334243342533426334273342833429334303343133432334333343433435334363343733438334393344033441334423344333444334453344633447334483344933450334513345233453334543345533456334573345833459334603346133462334633346433465334663346733468334693347033471334723347333474334753347633477334783347933480334813348233483334843348533486334873348833489334903349133492334933349433495334963349733498334993350033501335023350333504335053350633507335083350933510335113351233513335143351533516335173351833519335203352133522335233352433525335263352733528335293353033531335323353333534335353353633537335383353933540335413354233543335443354533546335473354833549335503355133552335533355433555335563355733558335593356033561335623356333564335653356633567335683356933570335713357233573335743357533576335773357833579335803358133582335833358433585335863358733588335893359033591335923359333594335953359633597335983359933600336013360233603336043360533606336073360833609336103361133612336133361433615336163361733618336193362033621336223362333624336253362633627336283362933630336313363233633336343363533636336373363833639336403364133642336433364433645336463364733648336493365033651336523365333654336553365633657336583365933660336613366233663336643366533666336673366833669336703367133672336733367433675336763367733678336793368033681336823368333684336853368633687336883368933690336913369233693336943369533696336973369833699337003370133702337033370433705337063370733708337093371033711337123371333714337153371633717337183371933720337213372233723337243372533726337273372833729337303373133732337333373433735337363373733738337393374033741337423374333744337453374633747337483374933750337513375233753337543375533756337573375833759337603376133762337633376433765337663376733768337693377033771337723377333774337753377633777337783377933780337813378233783337843378533786337873378833789337903379133792337933379433795337963379733798337993380033801338023380333804338053380633807338083380933810338113381233813338143381533816338173381833819338203382133822338233382433825338263382733828338293383033831338323383333834338353383633837338383383933840338413384233843338443384533846338473384833849338503385133852338533385433855338563385733858338593386033861338623386333864338653386633867338683386933870338713387233873338743387533876338773387833879338803388133882338833388433885338863388733888338893389033891338923389333894338953389633897338983389933900339013390233903339043390533906339073390833909339103391133912339133391433915339163391733918339193392033921339223392333924339253392633927339283392933930339313393233933339343393533936339373393833939339403394133942339433394433945339463394733948339493395033951339523395333954339553395633957339583395933960339613396233963339643396533966339673396833969339703397133972339733397433975339763397733978339793398033981339823398333984339853398633987339883398933990339913399233993339943399533996339973399833999340003400134002340033400434005340063400734008340093401034011340123401334014340153401634017340183401934020340213402234023340243402534026340273402834029340303403134032340333403434035340363403734038340393404034041340423404334044340453404634047340483404934050340513405234053340543405534056340573405834059340603406134062340633406434065340663406734068340693407034071340723407334074340753407634077340783407934080340813408234083340843408534086340873408834089340903409134092340933409434095340963409734098340993410034101341023410334104341053410634107341083410934110341113411234113341143411534116341173411834119341203412134122341233412434125341263412734128341293413034131341323413334134341353413634137341383413934140341413414234143341443414534146341473414834149341503415134152341533415434155341563415734158341593416034161341623416334164341653416634167341683416934170341713417234173341743417534176341773417834179341803418134182341833418434185341863418734188341893419034191341923419334194341953419634197341983419934200342013420234203342043420534206342073420834209342103421134212342133421434215342163421734218342193422034221342223422334224342253422634227342283422934230342313423234233342343423534236342373423834239342403424134242342433424434245342463424734248342493425034251342523425334254342553425634257342583425934260342613426234263342643426534266342673426834269342703427134272342733427434275342763427734278342793428034281342823428334284342853428634287342883428934290342913429234293342943429534296342973429834299343003430134302343033430434305343063430734308343093431034311343123431334314343153431634317343183431934320343213432234323343243432534326343273432834329343303433134332343333433434335343363433734338343393434034341343423434334344343453434634347343483434934350343513435234353343543435534356343573435834359343603436134362343633436434365343663436734368343693437034371343723437334374343753437634377343783437934380343813438234383343843438534386343873438834389343903439134392343933439434395343963439734398343993440034401344023440334404344053440634407344083440934410344113441234413344143441534416344173441834419344203442134422344233442434425344263442734428344293443034431344323443334434344353443634437344383443934440344413444234443344443444534446344473444834449344503445134452344533445434455344563445734458344593446034461344623446334464344653446634467344683446934470344713447234473344743447534476344773447834479344803448134482344833448434485344863448734488344893449034491344923449334494344953449634497344983449934500345013450234503345043450534506345073450834509345103451134512345133451434515345163451734518345193452034521345223452334524345253452634527345283452934530345313453234533345343453534536345373453834539345403454134542345433454434545345463454734548345493455034551345523455334554345553455634557345583455934560345613456234563345643456534566345673456834569345703457134572345733457434575345763457734578345793458034581345823458334584345853458634587345883458934590345913459234593345943459534596345973459834599346003460134602346033460434605346063460734608346093461034611346123461334614346153461634617346183461934620346213462234623346243462534626346273462834629346303463134632346333463434635346363463734638346393464034641346423464334644346453464634647346483464934650346513465234653346543465534656346573465834659346603466134662346633466434665346663466734668346693467034671346723467334674346753467634677346783467934680346813468234683346843468534686346873468834689346903469134692346933469434695346963469734698346993470034701347023470334704347053470634707347083470934710347113471234713347143471534716347173471834719347203472134722347233472434725347263472734728347293473034731347323473334734347353473634737347383473934740347413474234743347443474534746347473474834749347503475134752347533475434755347563475734758347593476034761347623476334764347653476634767347683476934770347713477234773347743477534776347773477834779347803478134782347833478434785347863478734788347893479034791347923479334794347953479634797347983479934800348013480234803348043480534806348073480834809348103481134812348133481434815348163481734818348193482034821348223482334824348253482634827348283482934830348313483234833348343483534836348373483834839348403484134842348433484434845348463484734848348493485034851348523485334854348553485634857348583485934860348613486234863348643486534866348673486834869348703487134872348733487434875348763487734878348793488034881348823488334884348853488634887348883488934890348913489234893348943489534896348973489834899349003490134902349033490434905349063490734908349093491034911349123491334914349153491634917349183491934920349213492234923349243492534926349273492834929349303493134932349333493434935349363493734938349393494034941349423494334944349453494634947349483494934950349513495234953349543495534956349573495834959349603496134962349633496434965349663496734968349693497034971349723497334974349753497634977349783497934980349813498234983349843498534986349873498834989349903499134992349933499434995349963499734998349993500035001350023500335004350053500635007350083500935010350113501235013350143501535016350173501835019350203502135022350233502435025350263502735028350293503035031350323503335034350353503635037350383503935040350413504235043350443504535046350473504835049350503505135052350533505435055350563505735058350593506035061350623506335064350653506635067350683506935070350713507235073350743507535076350773507835079350803508135082350833508435085350863508735088350893509035091350923509335094350953509635097350983509935100351013510235103351043510535106351073510835109351103511135112351133511435115351163511735118351193512035121351223512335124351253512635127351283512935130351313513235133351343513535136351373513835139351403514135142351433514435145351463514735148351493515035151351523515335154351553515635157351583515935160351613516235163351643516535166351673516835169351703517135172351733517435175351763517735178351793518035181351823518335184351853518635187351883518935190351913519235193351943519535196351973519835199352003520135202352033520435205352063520735208352093521035211352123521335214352153521635217352183521935220352213522235223352243522535226352273522835229352303523135232352333523435235352363523735238352393524035241352423524335244352453524635247352483524935250352513525235253352543525535256352573525835259352603526135262352633526435265352663526735268352693527035271352723527335274352753527635277352783527935280352813528235283352843528535286352873528835289352903529135292352933529435295352963529735298352993530035301353023530335304353053530635307353083530935310353113531235313353143531535316353173531835319353203532135322353233532435325353263532735328353293533035331353323533335334353353533635337353383533935340353413534235343353443534535346353473534835349353503535135352353533535435355353563535735358353593536035361353623536335364353653536635367353683536935370353713537235373353743537535376353773537835379353803538135382353833538435385353863538735388353893539035391353923539335394353953539635397353983539935400354013540235403354043540535406354073540835409354103541135412354133541435415354163541735418354193542035421354223542335424354253542635427354283542935430354313543235433354343543535436354373543835439354403544135442354433544435445354463544735448354493545035451354523545335454354553545635457354583545935460354613546235463354643546535466354673546835469354703547135472354733547435475354763547735478354793548035481354823548335484354853548635487354883548935490354913549235493354943549535496354973549835499355003550135502355033550435505355063550735508355093551035511355123551335514355153551635517355183551935520355213552235523355243552535526355273552835529355303553135532355333553435535355363553735538355393554035541355423554335544355453554635547355483554935550355513555235553355543555535556355573555835559355603556135562355633556435565355663556735568355693557035571355723557335574355753557635577355783557935580355813558235583355843558535586355873558835589355903559135592355933559435595355963559735598355993560035601356023560335604356053560635607356083560935610356113561235613356143561535616356173561835619356203562135622356233562435625356263562735628356293563035631356323563335634356353563635637356383563935640356413564235643356443564535646356473564835649356503565135652356533565435655356563565735658356593566035661356623566335664356653566635667356683566935670356713567235673356743567535676356773567835679356803568135682356833568435685356863568735688356893569035691356923569335694356953569635697356983569935700357013570235703357043570535706357073570835709357103571135712357133571435715357163571735718357193572035721357223572335724357253572635727357283572935730357313573235733357343573535736357373573835739357403574135742357433574435745357463574735748357493575035751357523575335754357553575635757357583575935760357613576235763357643576535766357673576835769357703577135772357733577435775357763577735778357793578035781357823578335784357853578635787357883578935790357913579235793357943579535796357973579835799358003580135802358033580435805358063580735808358093581035811358123581335814358153581635817358183581935820358213582235823358243582535826358273582835829358303583135832358333583435835358363583735838358393584035841358423584335844358453584635847358483584935850358513585235853358543585535856358573585835859358603586135862358633586435865358663586735868358693587035871358723587335874358753587635877358783587935880358813588235883358843588535886358873588835889358903589135892358933589435895358963589735898358993590035901359023590335904359053590635907359083590935910359113591235913359143591535916359173591835919359203592135922359233592435925359263592735928359293593035931359323593335934359353593635937359383593935940359413594235943359443594535946359473594835949359503595135952359533595435955359563595735958359593596035961359623596335964359653596635967359683596935970359713597235973359743597535976359773597835979359803598135982359833598435985359863598735988359893599035991359923599335994359953599635997359983599936000360013600236003360043600536006360073600836009360103601136012360133601436015360163601736018360193602036021360223602336024360253602636027360283602936030360313603236033360343603536036360373603836039360403604136042360433604436045360463604736048360493605036051360523605336054360553605636057360583605936060360613606236063360643606536066360673606836069360703607136072360733607436075360763607736078360793608036081360823608336084360853608636087360883608936090360913609236093360943609536096360973609836099361003610136102361033610436105361063610736108361093611036111361123611336114361153611636117361183611936120361213612236123361243612536126361273612836129361303613136132361333613436135361363613736138361393614036141361423614336144361453614636147361483614936150361513615236153361543615536156361573615836159361603616136162361633616436165361663616736168361693617036171361723617336174361753617636177361783617936180361813618236183361843618536186361873618836189361903619136192361933619436195361963619736198361993620036201362023620336204362053620636207362083620936210362113621236213362143621536216362173621836219362203622136222362233622436225362263622736228362293623036231362323623336234362353623636237362383623936240362413624236243362443624536246362473624836249362503625136252362533625436255362563625736258362593626036261362623626336264362653626636267362683626936270362713627236273362743627536276362773627836279362803628136282362833628436285362863628736288362893629036291362923629336294362953629636297362983629936300363013630236303363043630536306363073630836309363103631136312363133631436315363163631736318363193632036321363223632336324363253632636327363283632936330363313633236333363343633536336363373633836339363403634136342363433634436345363463634736348363493635036351363523635336354363553635636357363583635936360363613636236363363643636536366363673636836369363703637136372363733637436375363763637736378363793638036381363823638336384363853638636387363883638936390363913639236393363943639536396363973639836399364003640136402364033640436405364063640736408364093641036411364123641336414364153641636417364183641936420364213642236423364243642536426364273642836429364303643136432364333643436435364363643736438364393644036441364423644336444364453644636447364483644936450364513645236453364543645536456364573645836459364603646136462364633646436465364663646736468364693647036471364723647336474364753647636477364783647936480364813648236483364843648536486364873648836489364903649136492364933649436495364963649736498364993650036501365023650336504365053650636507365083650936510365113651236513365143651536516365173651836519365203652136522365233652436525365263652736528365293653036531365323653336534365353653636537365383653936540365413654236543365443654536546365473654836549365503655136552365533655436555365563655736558365593656036561365623656336564365653656636567365683656936570365713657236573365743657536576365773657836579365803658136582365833658436585365863658736588365893659036591365923659336594365953659636597365983659936600366013660236603366043660536606366073660836609366103661136612366133661436615366163661736618366193662036621366223662336624366253662636627366283662936630366313663236633366343663536636366373663836639366403664136642366433664436645366463664736648366493665036651366523665336654366553665636657366583665936660366613666236663366643666536666366673666836669366703667136672366733667436675366763667736678366793668036681366823668336684366853668636687366883668936690366913669236693366943669536696366973669836699367003670136702367033670436705367063670736708367093671036711367123671336714367153671636717367183671936720367213672236723367243672536726367273672836729367303673136732367333673436735367363673736738367393674036741367423674336744367453674636747367483674936750367513675236753367543675536756367573675836759367603676136762367633676436765367663676736768367693677036771367723677336774367753677636777367783677936780367813678236783367843678536786367873678836789367903679136792367933679436795367963679736798367993680036801368023680336804368053680636807368083680936810368113681236813368143681536816368173681836819368203682136822368233682436825368263682736828368293683036831368323683336834368353683636837368383683936840368413684236843368443684536846368473684836849368503685136852368533685436855368563685736858368593686036861368623686336864368653686636867368683686936870368713687236873368743687536876368773687836879368803688136882368833688436885368863688736888368893689036891368923689336894368953689636897368983689936900369013690236903369043690536906369073690836909369103691136912369133691436915369163691736918369193692036921369223692336924369253692636927369283692936930369313693236933369343693536936369373693836939369403694136942369433694436945369463694736948369493695036951369523695336954369553695636957369583695936960369613696236963369643696536966369673696836969369703697136972369733697436975369763697736978369793698036981369823698336984369853698636987369883698936990369913699236993369943699536996369973699836999370003700137002370033700437005370063700737008370093701037011370123701337014370153701637017370183701937020370213702237023370243702537026370273702837029370303703137032370333703437035370363703737038370393704037041370423704337044370453704637047370483704937050370513705237053370543705537056370573705837059370603706137062370633706437065370663706737068370693707037071370723707337074370753707637077370783707937080370813708237083370843708537086370873708837089370903709137092370933709437095370963709737098370993710037101371023710337104371053710637107371083710937110371113711237113371143711537116371173711837119371203712137122371233712437125371263712737128371293713037131371323713337134371353713637137371383713937140371413714237143371443714537146371473714837149371503715137152371533715437155371563715737158371593716037161371623716337164371653716637167371683716937170371713717237173371743717537176371773717837179371803718137182371833718437185371863718737188371893719037191371923719337194371953719637197371983719937200372013720237203372043720537206372073720837209372103721137212372133721437215372163721737218372193722037221372223722337224372253722637227372283722937230372313723237233372343723537236372373723837239372403724137242372433724437245372463724737248372493725037251372523725337254372553725637257372583725937260372613726237263372643726537266372673726837269372703727137272372733727437275372763727737278372793728037281372823728337284372853728637287372883728937290372913729237293372943729537296372973729837299373003730137302373033730437305373063730737308373093731037311373123731337314373153731637317373183731937320373213732237323373243732537326373273732837329373303733137332373333733437335373363733737338373393734037341373423734337344373453734637347373483734937350373513735237353373543735537356373573735837359373603736137362373633736437365373663736737368373693737037371373723737337374373753737637377373783737937380373813738237383373843738537386373873738837389373903739137392373933739437395373963739737398373993740037401374023740337404374053740637407374083740937410374113741237413374143741537416374173741837419374203742137422374233742437425374263742737428374293743037431374323743337434374353743637437374383743937440374413744237443374443744537446374473744837449374503745137452374533745437455374563745737458374593746037461374623746337464374653746637467374683746937470374713747237473374743747537476374773747837479374803748137482374833748437485374863748737488374893749037491374923749337494374953749637497374983749937500375013750237503375043750537506375073750837509375103751137512375133751437515375163751737518375193752037521375223752337524375253752637527375283752937530375313753237533375343753537536375373753837539375403754137542375433754437545375463754737548375493755037551375523755337554375553755637557375583755937560375613756237563375643756537566375673756837569375703757137572375733757437575375763757737578375793758037581375823758337584375853758637587375883758937590375913759237593375943759537596375973759837599376003760137602376033760437605376063760737608376093761037611376123761337614376153761637617376183761937620376213762237623376243762537626376273762837629376303763137632376333763437635376363763737638376393764037641376423764337644376453764637647376483764937650376513765237653376543765537656376573765837659376603766137662376633766437665376663766737668376693767037671376723767337674376753767637677376783767937680376813768237683376843768537686376873768837689376903769137692376933769437695376963769737698376993770037701377023770337704377053770637707377083770937710377113771237713377143771537716377173771837719377203772137722377233772437725377263772737728377293773037731377323773337734377353773637737377383773937740377413774237743377443774537746377473774837749377503775137752377533775437755377563775737758377593776037761377623776337764377653776637767377683776937770377713777237773377743777537776377773777837779377803778137782377833778437785377863778737788377893779037791377923779337794377953779637797377983779937800378013780237803378043780537806378073780837809378103781137812378133781437815378163781737818378193782037821378223782337824378253782637827378283782937830378313783237833378343783537836378373783837839378403784137842378433784437845378463784737848378493785037851378523785337854378553785637857378583785937860378613786237863378643786537866378673786837869378703787137872378733787437875378763787737878378793788037881378823788337884378853788637887378883788937890378913789237893378943789537896378973789837899379003790137902379033790437905379063790737908379093791037911379123791337914379153791637917379183791937920379213792237923379243792537926379273792837929379303793137932379333793437935379363793737938379393794037941379423794337944379453794637947379483794937950379513795237953379543795537956379573795837959379603796137962379633796437965379663796737968379693797037971379723797337974379753797637977379783797937980379813798237983379843798537986379873798837989379903799137992379933799437995379963799737998379993800038001380023800338004380053800638007380083800938010380113801238013380143801538016380173801838019380203802138022380233802438025380263802738028380293803038031380323803338034380353803638037380383803938040380413804238043380443804538046380473804838049380503805138052380533805438055380563805738058380593806038061380623806338064380653806638067380683806938070380713807238073380743807538076380773807838079380803808138082380833808438085380863808738088380893809038091380923809338094380953809638097380983809938100381013810238103381043810538106381073810838109381103811138112381133811438115381163811738118381193812038121381223812338124381253812638127381283812938130381313813238133381343813538136381373813838139381403814138142381433814438145381463814738148381493815038151381523815338154381553815638157381583815938160381613816238163381643816538166381673816838169381703817138172381733817438175381763817738178381793818038181381823818338184381853818638187381883818938190381913819238193381943819538196381973819838199382003820138202382033820438205382063820738208382093821038211382123821338214382153821638217382183821938220382213822238223382243822538226382273822838229382303823138232382333823438235382363823738238382393824038241382423824338244382453824638247382483824938250382513825238253382543825538256382573825838259382603826138262382633826438265382663826738268382693827038271382723827338274382753827638277382783827938280382813828238283382843828538286382873828838289382903829138292382933829438295382963829738298382993830038301383023830338304383053830638307383083830938310383113831238313383143831538316383173831838319383203832138322383233832438325383263832738328383293833038331383323833338334383353833638337383383833938340383413834238343383443834538346383473834838349383503835138352383533835438355383563835738358383593836038361383623836338364383653836638367383683836938370383713837238373383743837538376383773837838379383803838138382383833838438385383863838738388383893839038391383923839338394383953839638397383983839938400384013840238403384043840538406384073840838409384103841138412384133841438415384163841738418384193842038421384223842338424384253842638427384283842938430384313843238433384343843538436384373843838439384403844138442384433844438445384463844738448384493845038451384523845338454384553845638457384583845938460384613846238463384643846538466384673846838469384703847138472384733847438475384763847738478384793848038481384823848338484384853848638487384883848938490384913849238493384943849538496384973849838499385003850138502385033850438505385063850738508385093851038511385123851338514385153851638517385183851938520385213852238523385243852538526385273852838529385303853138532385333853438535385363853738538385393854038541385423854338544385453854638547385483854938550385513855238553385543855538556385573855838559385603856138562385633856438565385663856738568385693857038571385723857338574385753857638577385783857938580385813858238583385843858538586385873858838589385903859138592385933859438595385963859738598385993860038601386023860338604386053860638607386083860938610386113861238613386143861538616386173861838619386203862138622386233862438625386263862738628386293863038631386323863338634386353863638637386383863938640386413864238643386443864538646386473864838649386503865138652386533865438655386563865738658386593866038661386623866338664386653866638667386683866938670386713867238673386743867538676386773867838679386803868138682386833868438685386863868738688386893869038691386923869338694386953869638697386983869938700387013870238703387043870538706387073870838709387103871138712387133871438715387163871738718387193872038721387223872338724387253872638727387283872938730387313873238733387343873538736387373873838739387403874138742387433874438745387463874738748387493875038751387523875338754387553875638757387583875938760387613876238763387643876538766387673876838769387703877138772387733877438775387763877738778387793878038781387823878338784387853878638787387883878938790387913879238793387943879538796387973879838799388003880138802388033880438805388063880738808388093881038811388123881338814388153881638817388183881938820388213882238823388243882538826388273882838829388303883138832388333883438835388363883738838388393884038841388423884338844388453884638847388483884938850388513885238853388543885538856388573885838859388603886138862388633886438865388663886738868388693887038871388723887338874388753887638877388783887938880388813888238883388843888538886388873888838889388903889138892388933889438895388963889738898388993890038901389023890338904389053890638907389083890938910389113891238913389143891538916389173891838919389203892138922389233892438925389263892738928389293893038931389323893338934389353893638937389383893938940389413894238943389443894538946389473894838949389503895138952389533895438955389563895738958389593896038961389623896338964389653896638967389683896938970389713897238973389743897538976389773897838979389803898138982389833898438985389863898738988389893899038991389923899338994389953899638997389983899939000390013900239003390043900539006390073900839009390103901139012390133901439015390163901739018390193902039021390223902339024390253902639027390283902939030390313903239033390343903539036390373903839039390403904139042390433904439045390463904739048390493905039051390523905339054390553905639057390583905939060390613906239063390643906539066390673906839069390703907139072390733907439075390763907739078390793908039081390823908339084390853908639087390883908939090390913909239093390943909539096390973909839099391003910139102391033910439105391063910739108391093911039111391123911339114391153911639117391183911939120391213912239123391243912539126391273912839129391303913139132391333913439135391363913739138391393914039141391423914339144391453914639147391483914939150391513915239153391543915539156391573915839159391603916139162391633916439165391663916739168391693917039171391723917339174391753917639177391783917939180391813918239183391843918539186391873918839189391903919139192391933919439195391963919739198391993920039201392023920339204392053920639207392083920939210392113921239213392143921539216392173921839219392203922139222392233922439225392263922739228392293923039231392323923339234392353923639237392383923939240392413924239243392443924539246392473924839249392503925139252392533925439255392563925739258392593926039261392623926339264392653926639267392683926939270392713927239273392743927539276392773927839279392803928139282392833928439285392863928739288392893929039291392923929339294392953929639297392983929939300393013930239303393043930539306393073930839309393103931139312393133931439315393163931739318393193932039321393223932339324393253932639327393283932939330393313933239333393343933539336393373933839339393403934139342393433934439345393463934739348393493935039351393523935339354393553935639357393583935939360393613936239363393643936539366393673936839369393703937139372393733937439375393763937739378393793938039381393823938339384393853938639387393883938939390393913939239393393943939539396393973939839399394003940139402394033940439405394063940739408394093941039411394123941339414394153941639417394183941939420394213942239423394243942539426394273942839429394303943139432394333943439435394363943739438394393944039441394423944339444394453944639447394483944939450394513945239453394543945539456394573945839459394603946139462394633946439465394663946739468394693947039471394723947339474394753947639477394783947939480394813948239483394843948539486394873948839489394903949139492394933949439495394963949739498394993950039501395023950339504395053950639507395083950939510395113951239513395143951539516395173951839519395203952139522395233952439525395263952739528395293953039531395323953339534395353953639537395383953939540395413954239543395443954539546395473954839549395503955139552395533955439555395563955739558395593956039561395623956339564395653956639567395683956939570395713957239573395743957539576395773957839579395803958139582395833958439585395863958739588395893959039591395923959339594395953959639597395983959939600396013960239603396043960539606396073960839609396103961139612396133961439615396163961739618396193962039621396223962339624396253962639627396283962939630396313963239633396343963539636396373963839639396403964139642396433964439645396463964739648396493965039651396523965339654396553965639657396583965939660396613966239663396643966539666396673966839669396703967139672396733967439675396763967739678396793968039681396823968339684396853968639687396883968939690396913969239693396943969539696396973969839699397003970139702397033970439705397063970739708397093971039711397123971339714397153971639717397183971939720397213972239723397243972539726397273972839729397303973139732397333973439735397363973739738397393974039741397423974339744397453974639747397483974939750397513975239753397543975539756397573975839759397603976139762397633976439765397663976739768397693977039771397723977339774397753977639777397783977939780397813978239783397843978539786397873978839789397903979139792397933979439795397963979739798397993980039801398023980339804398053980639807398083980939810398113981239813398143981539816398173981839819398203982139822398233982439825398263982739828398293983039831398323983339834398353983639837398383983939840398413984239843398443984539846398473984839849398503985139852398533985439855398563985739858398593986039861398623986339864398653986639867398683986939870398713987239873398743987539876398773987839879398803988139882398833988439885398863988739888398893989039891398923989339894398953989639897398983989939900399013990239903399043990539906399073990839909399103991139912399133991439915399163991739918399193992039921399223992339924399253992639927399283992939930399313993239933399343993539936399373993839939399403994139942399433994439945399463994739948399493995039951399523995339954399553995639957399583995939960399613996239963399643996539966399673996839969399703997139972399733997439975399763997739978399793998039981399823998339984399853998639987399883998939990399913999239993399943999539996399973999839999400004000140002400034000440005400064000740008400094001040011400124001340014400154001640017400184001940020400214002240023400244002540026400274002840029400304003140032400334003440035400364003740038400394004040041400424004340044400454004640047400484004940050400514005240053400544005540056400574005840059400604006140062400634006440065400664006740068400694007040071400724007340074400754007640077400784007940080400814008240083400844008540086400874008840089400904009140092400934009440095400964009740098400994010040101401024010340104401054010640107401084010940110401114011240113401144011540116401174011840119401204012140122401234012440125401264012740128401294013040131401324013340134401354013640137401384013940140401414014240143401444014540146401474014840149401504015140152401534015440155401564015740158401594016040161401624016340164401654016640167401684016940170401714017240173401744017540176401774017840179401804018140182401834018440185401864018740188401894019040191401924019340194401954019640197401984019940200402014020240203402044020540206402074020840209402104021140212402134021440215402164021740218402194022040221402224022340224402254022640227402284022940230402314023240233402344023540236402374023840239402404024140242402434024440245402464024740248402494025040251402524025340254402554025640257402584025940260402614026240263402644026540266402674026840269402704027140272402734027440275402764027740278402794028040281402824028340284402854028640287402884028940290402914029240293402944029540296402974029840299403004030140302403034030440305403064030740308403094031040311403124031340314403154031640317403184031940320403214032240323403244032540326403274032840329403304033140332403334033440335403364033740338403394034040341403424034340344403454034640347403484034940350403514035240353403544035540356403574035840359403604036140362403634036440365403664036740368403694037040371403724037340374403754037640377403784037940380403814038240383403844038540386403874038840389403904039140392403934039440395403964039740398403994040040401404024040340404404054040640407404084040940410404114041240413404144041540416404174041840419404204042140422404234042440425404264042740428404294043040431404324043340434404354043640437404384043940440404414044240443404444044540446404474044840449404504045140452404534045440455404564045740458404594046040461404624046340464404654046640467404684046940470404714047240473404744047540476404774047840479404804048140482404834048440485404864048740488404894049040491404924049340494404954049640497404984049940500405014050240503405044050540506405074050840509405104051140512405134051440515405164051740518405194052040521405224052340524405254052640527405284052940530405314053240533405344053540536405374053840539405404054140542405434054440545405464054740548405494055040551405524055340554405554055640557405584055940560405614056240563405644056540566405674056840569405704057140572405734057440575405764057740578405794058040581405824058340584405854058640587405884058940590405914059240593405944059540596405974059840599406004060140602406034060440605406064060740608406094061040611406124061340614406154061640617406184061940620406214062240623406244062540626406274062840629406304063140632406334063440635406364063740638406394064040641406424064340644406454064640647406484064940650406514065240653406544065540656406574065840659406604066140662406634066440665406664066740668406694067040671406724067340674406754067640677406784067940680406814068240683406844068540686406874068840689406904069140692406934069440695406964069740698406994070040701407024070340704407054070640707407084070940710407114071240713407144071540716407174071840719407204072140722407234072440725407264072740728407294073040731407324073340734407354073640737407384073940740407414074240743407444074540746407474074840749407504075140752407534075440755407564075740758407594076040761407624076340764407654076640767407684076940770407714077240773407744077540776407774077840779407804078140782407834078440785407864078740788407894079040791407924079340794407954079640797407984079940800408014080240803408044080540806408074080840809408104081140812408134081440815408164081740818408194082040821408224082340824408254082640827408284082940830408314083240833408344083540836408374083840839408404084140842408434084440845408464084740848408494085040851408524085340854408554085640857408584085940860408614086240863408644086540866408674086840869408704087140872408734087440875408764087740878408794088040881408824088340884408854088640887408884088940890408914089240893408944089540896408974089840899409004090140902409034090440905409064090740908409094091040911409124091340914409154091640917409184091940920409214092240923409244092540926409274092840929409304093140932409334093440935409364093740938409394094040941409424094340944409454094640947409484094940950409514095240953409544095540956409574095840959409604096140962409634096440965409664096740968409694097040971409724097340974409754097640977409784097940980409814098240983409844098540986409874098840989409904099140992409934099440995409964099740998409994100041001410024100341004410054100641007410084100941010410114101241013410144101541016410174101841019410204102141022410234102441025410264102741028410294103041031410324103341034410354103641037410384103941040410414104241043410444104541046410474104841049410504105141052410534105441055410564105741058410594106041061410624106341064410654106641067410684106941070410714107241073410744107541076410774107841079410804108141082410834108441085410864108741088410894109041091410924109341094410954109641097410984109941100411014110241103411044110541106411074110841109411104111141112411134111441115411164111741118411194112041121411224112341124411254112641127411284112941130411314113241133411344113541136411374113841139411404114141142411434114441145411464114741148411494115041151411524115341154411554115641157411584115941160411614116241163411644116541166411674116841169411704117141172411734117441175411764117741178411794118041181411824118341184411854118641187411884118941190411914119241193411944119541196411974119841199412004120141202412034120441205412064120741208412094121041211412124121341214412154121641217412184121941220412214122241223412244122541226412274122841229412304123141232412334123441235412364123741238412394124041241412424124341244412454124641247412484124941250412514125241253412544125541256412574125841259412604126141262412634126441265412664126741268412694127041271412724127341274412754127641277412784127941280412814128241283412844128541286412874128841289412904129141292412934129441295412964129741298412994130041301413024130341304413054130641307413084130941310413114131241313413144131541316413174131841319413204132141322413234132441325413264132741328413294133041331413324133341334413354133641337413384133941340413414134241343413444134541346413474134841349413504135141352413534135441355413564135741358413594136041361413624136341364413654136641367413684136941370413714137241373413744137541376413774137841379413804138141382413834138441385413864138741388413894139041391413924139341394413954139641397413984139941400414014140241403414044140541406414074140841409414104141141412414134141441415414164141741418414194142041421414224142341424414254142641427414284142941430414314143241433414344143541436414374143841439414404144141442414434144441445414464144741448414494145041451414524145341454414554145641457414584145941460414614146241463414644146541466414674146841469414704147141472414734147441475414764147741478414794148041481414824148341484414854148641487414884148941490414914149241493414944149541496414974149841499415004150141502415034150441505415064150741508415094151041511415124151341514415154151641517415184151941520415214152241523415244152541526415274152841529415304153141532415334153441535415364153741538415394154041541415424154341544415454154641547415484154941550415514155241553415544155541556415574155841559415604156141562415634156441565415664156741568415694157041571415724157341574415754157641577415784157941580415814158241583415844158541586415874158841589415904159141592415934159441595415964159741598415994160041601416024160341604416054160641607416084160941610416114161241613416144161541616416174161841619416204162141622416234162441625416264162741628416294163041631416324163341634416354163641637416384163941640416414164241643416444164541646416474164841649416504165141652416534165441655416564165741658416594166041661416624166341664416654166641667416684166941670416714167241673416744167541676416774167841679416804168141682416834168441685416864168741688416894169041691416924169341694416954169641697416984169941700417014170241703417044170541706417074170841709417104171141712417134171441715417164171741718417194172041721417224172341724417254172641727417284172941730417314173241733417344173541736417374173841739417404174141742417434174441745417464174741748417494175041751417524175341754417554175641757417584175941760417614176241763417644176541766417674176841769417704177141772417734177441775417764177741778417794178041781417824178341784417854178641787417884178941790417914179241793417944179541796417974179841799418004180141802418034180441805418064180741808418094181041811418124181341814418154181641817418184181941820418214182241823418244182541826418274182841829418304183141832418334183441835418364183741838418394184041841418424184341844418454184641847418484184941850418514185241853418544185541856418574185841859418604186141862418634186441865418664186741868418694187041871418724187341874418754187641877418784187941880418814188241883418844188541886418874188841889418904189141892418934189441895418964189741898418994190041901419024190341904419054190641907419084190941910419114191241913419144191541916419174191841919419204192141922419234192441925419264192741928419294193041931419324193341934419354193641937419384193941940419414194241943419444194541946419474194841949419504195141952419534195441955419564195741958419594196041961419624196341964419654196641967419684196941970419714197241973419744197541976419774197841979419804198141982419834198441985419864198741988419894199041991419924199341994419954199641997419984199942000420014200242003420044200542006420074200842009420104201142012420134201442015420164201742018420194202042021420224202342024420254202642027420284202942030420314203242033420344203542036420374203842039420404204142042420434204442045420464204742048420494205042051420524205342054420554205642057420584205942060420614206242063420644206542066420674206842069420704207142072420734207442075420764207742078420794208042081420824208342084420854208642087420884208942090420914209242093420944209542096420974209842099421004210142102421034210442105421064210742108421094211042111421124211342114421154211642117421184211942120421214212242123421244212542126421274212842129421304213142132421334213442135421364213742138421394214042141421424214342144421454214642147421484214942150421514215242153421544215542156421574215842159421604216142162421634216442165421664216742168421694217042171421724217342174421754217642177421784217942180421814218242183421844218542186421874218842189421904219142192421934219442195421964219742198421994220042201422024220342204422054220642207422084220942210422114221242213422144221542216422174221842219422204222142222422234222442225422264222742228422294223042231422324223342234422354223642237422384223942240422414224242243422444224542246422474224842249422504225142252422534225442255422564225742258422594226042261422624226342264422654226642267422684226942270422714227242273422744227542276422774227842279422804228142282422834228442285422864228742288422894229042291422924229342294422954229642297422984229942300423014230242303423044230542306423074230842309423104231142312423134231442315423164231742318423194232042321423224232342324423254232642327423284232942330423314233242333423344233542336423374233842339423404234142342423434234442345423464234742348423494235042351423524235342354423554235642357423584235942360423614236242363423644236542366423674236842369423704237142372423734237442375423764237742378423794238042381423824238342384423854238642387423884238942390423914239242393423944239542396423974239842399424004240142402424034240442405424064240742408424094241042411424124241342414424154241642417424184241942420424214242242423424244242542426424274242842429424304243142432424334243442435424364243742438424394244042441424424244342444424454244642447424484244942450424514245242453424544245542456424574245842459424604246142462424634246442465424664246742468424694247042471424724247342474424754247642477424784247942480424814248242483424844248542486424874248842489424904249142492424934249442495424964249742498424994250042501425024250342504425054250642507425084250942510425114251242513425144251542516425174251842519425204252142522425234252442525425264252742528425294253042531425324253342534425354253642537425384253942540425414254242543425444254542546425474254842549425504255142552425534255442555425564255742558425594256042561425624256342564425654256642567425684256942570425714257242573425744257542576425774257842579425804258142582425834258442585425864258742588425894259042591425924259342594425954259642597425984259942600426014260242603426044260542606426074260842609426104261142612426134261442615426164261742618426194262042621426224262342624426254262642627426284262942630426314263242633426344263542636426374263842639426404264142642426434264442645426464264742648426494265042651426524265342654426554265642657426584265942660426614266242663426644266542666426674266842669426704267142672426734267442675426764267742678426794268042681426824268342684426854268642687426884268942690426914269242693426944269542696426974269842699427004270142702427034270442705427064270742708427094271042711427124271342714427154271642717427184271942720427214272242723427244272542726427274272842729427304273142732427334273442735427364273742738427394274042741427424274342744427454274642747427484274942750427514275242753427544275542756427574275842759427604276142762427634276442765427664276742768427694277042771427724277342774427754277642777427784277942780427814278242783427844278542786427874278842789427904279142792427934279442795427964279742798427994280042801428024280342804428054280642807428084280942810428114281242813428144281542816428174281842819428204282142822428234282442825428264282742828428294283042831428324283342834428354283642837428384283942840428414284242843428444284542846428474284842849428504285142852428534285442855428564285742858428594286042861428624286342864428654286642867428684286942870428714287242873428744287542876428774287842879428804288142882428834288442885428864288742888428894289042891428924289342894428954289642897428984289942900429014290242903429044290542906429074290842909429104291142912429134291442915429164291742918429194292042921429224292342924429254292642927429284292942930429314293242933429344293542936429374293842939429404294142942429434294442945429464294742948429494295042951429524295342954429554295642957429584295942960429614296242963429644296542966429674296842969429704297142972429734297442975429764297742978429794298042981429824298342984429854298642987429884298942990429914299242993429944299542996429974299842999430004300143002430034300443005430064300743008430094301043011430124301343014430154301643017430184301943020430214302243023430244302543026430274302843029430304303143032430334303443035430364303743038430394304043041430424304343044430454304643047430484304943050430514305243053430544305543056430574305843059430604306143062430634306443065430664306743068430694307043071430724307343074430754307643077430784307943080430814308243083430844308543086430874308843089430904309143092430934309443095430964309743098430994310043101431024310343104431054310643107431084310943110431114311243113431144311543116431174311843119431204312143122431234312443125431264312743128431294313043131431324313343134431354313643137431384313943140431414314243143431444314543146431474314843149431504315143152431534315443155431564315743158431594316043161431624316343164431654316643167431684316943170431714317243173431744317543176431774317843179431804318143182431834318443185431864318743188431894319043191431924319343194431954319643197431984319943200432014320243203432044320543206432074320843209432104321143212432134321443215432164321743218432194322043221432224322343224432254322643227432284322943230432314323243233432344323543236432374323843239432404324143242432434324443245432464324743248432494325043251432524325343254432554325643257432584325943260432614326243263432644326543266432674326843269432704327143272432734327443275432764327743278432794328043281432824328343284432854328643287432884328943290432914329243293432944329543296432974329843299433004330143302433034330443305433064330743308433094331043311433124331343314433154331643317433184331943320433214332243323433244332543326433274332843329433304333143332433334333443335433364333743338433394334043341433424334343344433454334643347433484334943350433514335243353433544335543356433574335843359433604336143362433634336443365433664336743368433694337043371433724337343374433754337643377433784337943380433814338243383433844338543386433874338843389433904339143392433934339443395433964339743398433994340043401434024340343404434054340643407434084340943410434114341243413434144341543416434174341843419434204342143422434234342443425434264342743428434294343043431434324343343434434354343643437434384343943440434414344243443434444344543446434474344843449434504345143452434534345443455434564345743458434594346043461434624346343464434654346643467434684346943470434714347243473434744347543476434774347843479434804348143482434834348443485434864348743488434894349043491434924349343494434954349643497434984349943500435014350243503435044350543506435074350843509435104351143512435134351443515435164351743518435194352043521435224352343524435254352643527435284352943530435314353243533435344353543536435374353843539435404354143542435434354443545435464354743548435494355043551435524355343554435554355643557435584355943560435614356243563435644356543566435674356843569435704357143572435734357443575435764357743578435794358043581435824358343584435854358643587435884358943590435914359243593435944359543596435974359843599436004360143602436034360443605436064360743608436094361043611436124361343614436154361643617436184361943620436214362243623436244362543626436274362843629436304363143632436334363443635436364363743638436394364043641436424364343644436454364643647436484364943650436514365243653436544365543656436574365843659436604366143662436634366443665436664366743668436694367043671436724367343674436754367643677436784367943680436814368243683436844368543686436874368843689436904369143692436934369443695436964369743698436994370043701437024370343704437054370643707437084370943710437114371243713437144371543716437174371843719437204372143722437234372443725437264372743728437294373043731437324373343734437354373643737437384373943740437414374243743437444374543746437474374843749437504375143752437534375443755437564375743758437594376043761437624376343764437654376643767437684376943770437714377243773437744377543776437774377843779437804378143782437834378443785437864378743788437894379043791437924379343794437954379643797437984379943800438014380243803438044380543806438074380843809438104381143812438134381443815438164381743818438194382043821438224382343824438254382643827438284382943830438314383243833438344383543836438374383843839438404384143842438434384443845438464384743848438494385043851438524385343854438554385643857438584385943860438614386243863438644386543866438674386843869438704387143872438734387443875438764387743878438794388043881438824388343884438854388643887438884388943890438914389243893438944389543896438974389843899439004390143902439034390443905439064390743908439094391043911439124391343914439154391643917439184391943920439214392243923439244392543926439274392843929439304393143932439334393443935439364393743938439394394043941439424394343944439454394643947439484394943950439514395243953439544395543956439574395843959439604396143962439634396443965439664396743968439694397043971439724397343974439754397643977439784397943980439814398243983439844398543986439874398843989439904399143992439934399443995439964399743998439994400044001440024400344004440054400644007440084400944010440114401244013440144401544016440174401844019440204402144022440234402444025440264402744028440294403044031440324403344034440354403644037440384403944040440414404244043440444404544046440474404844049440504405144052440534405444055440564405744058440594406044061440624406344064440654406644067440684406944070440714407244073440744407544076440774407844079440804408144082440834408444085440864408744088440894409044091440924409344094440954409644097440984409944100441014410244103441044410544106441074410844109441104411144112441134411444115441164411744118441194412044121441224412344124441254412644127441284412944130441314413244133441344413544136441374413844139441404414144142441434414444145441464414744148441494415044151441524415344154441554415644157441584415944160441614416244163441644416544166441674416844169441704417144172441734417444175441764417744178441794418044181441824418344184441854418644187441884418944190441914419244193441944419544196441974419844199442004420144202442034420444205442064420744208442094421044211442124421344214442154421644217442184421944220442214422244223442244422544226442274422844229442304423144232442334423444235442364423744238442394424044241442424424344244442454424644247442484424944250442514425244253442544425544256442574425844259442604426144262442634426444265442664426744268442694427044271442724427344274442754427644277442784427944280442814428244283442844428544286442874428844289442904429144292442934429444295442964429744298442994430044301443024430344304443054430644307443084430944310443114431244313443144431544316443174431844319443204432144322443234432444325443264432744328443294433044331443324433344334443354433644337443384433944340443414434244343443444434544346443474434844349443504435144352443534435444355443564435744358443594436044361443624436344364443654436644367443684436944370443714437244373443744437544376443774437844379443804438144382443834438444385443864438744388443894439044391443924439344394443954439644397443984439944400444014440244403444044440544406444074440844409444104441144412444134441444415444164441744418444194442044421444224442344424444254442644427444284442944430444314443244433444344443544436444374443844439444404444144442444434444444445444464444744448444494445044451444524445344454444554445644457444584445944460444614446244463444644446544466444674446844469444704447144472444734447444475444764447744478444794448044481444824448344484444854448644487444884448944490444914449244493444944449544496444974449844499445004450144502445034450444505445064450744508445094451044511445124451344514445154451644517445184451944520445214452244523445244452544526445274452844529445304453144532445334453444535445364453744538445394454044541445424454344544445454454644547445484454944550445514455244553445544455544556445574455844559445604456144562445634456444565445664456744568445694457044571445724457344574445754457644577445784457944580445814458244583445844458544586445874458844589445904459144592445934459444595445964459744598445994460044601446024460344604446054460644607446084460944610446114461244613446144461544616446174461844619446204462144622446234462444625446264462744628446294463044631446324463344634446354463644637446384463944640446414464244643446444464544646446474464844649446504465144652446534465444655446564465744658446594466044661446624466344664446654466644667446684466944670446714467244673446744467544676446774467844679446804468144682446834468444685446864468744688446894469044691446924469344694446954469644697446984469944700447014470244703447044470544706447074470844709447104471144712447134471444715447164471744718447194472044721447224472344724447254472644727447284472944730447314473244733447344473544736447374473844739447404474144742447434474444745447464474744748447494475044751447524475344754447554475644757447584475944760447614476244763447644476544766447674476844769447704477144772447734477444775447764477744778447794478044781447824478344784447854478644787447884478944790447914479244793447944479544796447974479844799448004480144802448034480444805448064480744808448094481044811448124481344814448154481644817448184481944820448214482244823448244482544826448274482844829448304483144832448334483444835448364483744838448394484044841448424484344844448454484644847448484484944850448514485244853448544485544856448574485844859448604486144862448634486444865448664486744868448694487044871448724487344874448754487644877448784487944880448814488244883448844488544886448874488844889448904489144892448934489444895448964489744898448994490044901449024490344904449054490644907449084490944910449114491244913449144491544916449174491844919449204492144922449234492444925449264492744928449294493044931449324493344934449354493644937449384493944940449414494244943449444494544946449474494844949449504495144952449534495444955449564495744958449594496044961449624496344964449654496644967449684496944970449714497244973449744497544976449774497844979449804498144982449834498444985449864498744988449894499044991449924499344994449954499644997449984499945000450014500245003450044500545006450074500845009450104501145012450134501445015450164501745018450194502045021450224502345024450254502645027450284502945030450314503245033450344503545036450374503845039450404504145042450434504445045450464504745048450494505045051450524505345054450554505645057450584505945060450614506245063450644506545066450674506845069450704507145072450734507445075450764507745078450794508045081450824508345084450854508645087450884508945090450914509245093450944509545096450974509845099451004510145102451034510445105451064510745108451094511045111451124511345114451154511645117451184511945120451214512245123451244512545126451274512845129451304513145132451334513445135451364513745138451394514045141451424514345144451454514645147451484514945150451514515245153451544515545156451574515845159451604516145162451634516445165451664516745168451694517045171451724517345174451754517645177451784517945180451814518245183451844518545186451874518845189451904519145192451934519445195451964519745198451994520045201452024520345204452054520645207452084520945210452114521245213452144521545216452174521845219452204522145222452234522445225452264522745228452294523045231452324523345234452354523645237452384523945240452414524245243452444524545246452474524845249452504525145252452534525445255452564525745258452594526045261452624526345264452654526645267452684526945270452714527245273452744527545276452774527845279452804528145282452834528445285452864528745288452894529045291452924529345294452954529645297452984529945300453014530245303453044530545306453074530845309453104531145312453134531445315453164531745318453194532045321453224532345324453254532645327453284532945330453314533245333453344533545336453374533845339453404534145342453434534445345453464534745348453494535045351453524535345354453554535645357453584535945360453614536245363453644536545366453674536845369453704537145372453734537445375453764537745378453794538045381453824538345384453854538645387453884538945390453914539245393453944539545396453974539845399454004540145402454034540445405454064540745408454094541045411454124541345414454154541645417454184541945420454214542245423454244542545426454274542845429454304543145432454334543445435454364543745438454394544045441454424544345444454454544645447454484544945450454514545245453454544545545456454574545845459454604546145462454634546445465454664546745468454694547045471454724547345474454754547645477454784547945480454814548245483454844548545486454874548845489454904549145492454934549445495454964549745498454994550045501455024550345504455054550645507455084550945510455114551245513455144551545516455174551845519455204552145522455234552445525455264552745528455294553045531455324553345534455354553645537455384553945540455414554245543455444554545546455474554845549455504555145552455534555445555455564555745558455594556045561455624556345564455654556645567455684556945570455714557245573455744557545576455774557845579455804558145582455834558445585455864558745588455894559045591455924559345594455954559645597455984559945600456014560245603456044560545606456074560845609456104561145612456134561445615456164561745618456194562045621456224562345624456254562645627456284562945630456314563245633456344563545636456374563845639456404564145642456434564445645456464564745648456494565045651456524565345654456554565645657456584565945660456614566245663456644566545666456674566845669456704567145672456734567445675456764567745678456794568045681456824568345684456854568645687456884568945690456914569245693456944569545696456974569845699457004570145702457034570445705457064570745708457094571045711457124571345714457154571645717457184571945720457214572245723457244572545726457274572845729457304573145732457334573445735457364573745738457394574045741457424574345744457454574645747457484574945750457514575245753457544575545756457574575845759457604576145762457634576445765457664576745768457694577045771457724577345774457754577645777457784577945780457814578245783457844578545786457874578845789457904579145792457934579445795457964579745798457994580045801458024580345804458054580645807458084580945810458114581245813458144581545816458174581845819458204582145822458234582445825458264582745828458294583045831458324583345834458354583645837458384583945840458414584245843458444584545846458474584845849458504585145852458534585445855458564585745858458594586045861458624586345864458654586645867458684586945870458714587245873458744587545876458774587845879458804588145882458834588445885458864588745888458894589045891458924589345894458954589645897458984589945900459014590245903459044590545906459074590845909459104591145912459134591445915459164591745918459194592045921459224592345924459254592645927459284592945930459314593245933459344593545936459374593845939459404594145942459434594445945459464594745948459494595045951459524595345954459554595645957459584595945960459614596245963459644596545966459674596845969459704597145972459734597445975459764597745978459794598045981459824598345984459854598645987459884598945990459914599245993459944599545996459974599845999460004600146002460034600446005460064600746008460094601046011460124601346014460154601646017460184601946020460214602246023460244602546026460274602846029460304603146032460334603446035460364603746038460394604046041460424604346044460454604646047460484604946050460514605246053460544605546056460574605846059460604606146062460634606446065460664606746068460694607046071460724607346074460754607646077460784607946080460814608246083460844608546086460874608846089460904609146092460934609446095460964609746098460994610046101461024610346104461054610646107461084610946110461114611246113461144611546116461174611846119461204612146122461234612446125461264612746128461294613046131461324613346134461354613646137461384613946140461414614246143461444614546146461474614846149461504615146152461534615446155461564615746158461594616046161461624616346164461654616646167461684616946170461714617246173461744617546176461774617846179461804618146182461834618446185461864618746188461894619046191461924619346194461954619646197461984619946200462014620246203462044620546206462074620846209462104621146212462134621446215462164621746218462194622046221462224622346224462254622646227462284622946230462314623246233462344623546236462374623846239462404624146242462434624446245462464624746248462494625046251462524625346254462554625646257462584625946260462614626246263462644626546266462674626846269462704627146272462734627446275462764627746278462794628046281462824628346284462854628646287462884628946290462914629246293462944629546296462974629846299463004630146302463034630446305463064630746308463094631046311463124631346314463154631646317463184631946320463214632246323463244632546326463274632846329463304633146332463334633446335463364633746338463394634046341463424634346344463454634646347463484634946350463514635246353463544635546356463574635846359463604636146362463634636446365463664636746368463694637046371463724637346374463754637646377463784637946380463814638246383463844638546386463874638846389463904639146392463934639446395463964639746398463994640046401464024640346404464054640646407464084640946410464114641246413464144641546416464174641846419464204642146422464234642446425464264642746428464294643046431464324643346434464354643646437464384643946440464414644246443464444644546446464474644846449464504645146452464534645446455464564645746458464594646046461464624646346464464654646646467464684646946470464714647246473464744647546476464774647846479464804648146482464834648446485464864648746488464894649046491464924649346494464954649646497464984649946500465014650246503465044650546506465074650846509465104651146512465134651446515465164651746518465194652046521465224652346524465254652646527465284652946530465314653246533465344653546536465374653846539465404654146542465434654446545465464654746548465494655046551465524655346554465554655646557465584655946560465614656246563465644656546566465674656846569465704657146572465734657446575465764657746578465794658046581465824658346584465854658646587465884658946590465914659246593465944659546596465974659846599466004660146602466034660446605466064660746608466094661046611466124661346614466154661646617466184661946620466214662246623466244662546626466274662846629466304663146632466334663446635466364663746638466394664046641466424664346644466454664646647466484664946650466514665246653466544665546656466574665846659466604666146662466634666446665466664666746668466694667046671466724667346674466754667646677466784667946680466814668246683466844668546686466874668846689466904669146692466934669446695466964669746698466994670046701467024670346704467054670646707467084670946710467114671246713467144671546716467174671846719467204672146722467234672446725467264672746728467294673046731467324673346734467354673646737467384673946740467414674246743467444674546746467474674846749467504675146752467534675446755467564675746758467594676046761467624676346764467654676646767467684676946770467714677246773467744677546776467774677846779467804678146782467834678446785467864678746788467894679046791467924679346794467954679646797467984679946800468014680246803468044680546806468074680846809468104681146812468134681446815468164681746818468194682046821468224682346824468254682646827468284682946830468314683246833468344683546836468374683846839468404684146842468434684446845468464684746848468494685046851468524685346854468554685646857468584685946860468614686246863468644686546866468674686846869468704687146872468734687446875468764687746878468794688046881468824688346884468854688646887468884688946890468914689246893468944689546896468974689846899469004690146902469034690446905469064690746908469094691046911469124691346914469154691646917469184691946920469214692246923469244692546926469274692846929469304693146932469334693446935469364693746938469394694046941469424694346944469454694646947469484694946950469514695246953469544695546956469574695846959469604696146962469634696446965469664696746968469694697046971469724697346974469754697646977469784697946980469814698246983469844698546986469874698846989469904699146992469934699446995469964699746998469994700047001470024700347004470054700647007470084700947010470114701247013470144701547016470174701847019470204702147022470234702447025470264702747028470294703047031470324703347034470354703647037470384703947040470414704247043470444704547046470474704847049470504705147052470534705447055470564705747058470594706047061470624706347064470654706647067470684706947070470714707247073470744707547076470774707847079470804708147082470834708447085470864708747088470894709047091470924709347094470954709647097470984709947100471014710247103471044710547106471074710847109471104711147112471134711447115471164711747118471194712047121471224712347124471254712647127471284712947130471314713247133471344713547136471374713847139471404714147142471434714447145471464714747148471494715047151471524715347154471554715647157471584715947160471614716247163471644716547166471674716847169471704717147172471734717447175471764717747178471794718047181471824718347184471854718647187471884718947190471914719247193471944719547196471974719847199472004720147202472034720447205472064720747208472094721047211472124721347214472154721647217472184721947220472214722247223472244722547226472274722847229472304723147232472334723447235472364723747238472394724047241472424724347244472454724647247472484724947250472514725247253472544725547256472574725847259472604726147262472634726447265472664726747268472694727047271472724727347274472754727647277472784727947280472814728247283472844728547286472874728847289472904729147292472934729447295472964729747298472994730047301473024730347304473054730647307473084730947310473114731247313473144731547316473174731847319473204732147322473234732447325473264732747328473294733047331473324733347334473354733647337473384733947340473414734247343473444734547346473474734847349473504735147352473534735447355473564735747358473594736047361473624736347364473654736647367473684736947370473714737247373473744737547376473774737847379473804738147382473834738447385473864738747388473894739047391473924739347394473954739647397473984739947400474014740247403474044740547406474074740847409474104741147412474134741447415474164741747418474194742047421474224742347424474254742647427474284742947430474314743247433474344743547436474374743847439474404744147442474434744447445474464744747448474494745047451474524745347454474554745647457474584745947460474614746247463474644746547466474674746847469474704747147472474734747447475474764747747478474794748047481474824748347484474854748647487474884748947490474914749247493474944749547496474974749847499475004750147502475034750447505475064750747508475094751047511475124751347514475154751647517475184751947520475214752247523475244752547526475274752847529475304753147532475334753447535475364753747538475394754047541475424754347544475454754647547475484754947550475514755247553475544755547556475574755847559475604756147562475634756447565475664756747568475694757047571475724757347574475754757647577475784757947580475814758247583475844758547586475874758847589475904759147592475934759447595475964759747598475994760047601476024760347604476054760647607476084760947610476114761247613476144761547616476174761847619476204762147622476234762447625476264762747628476294763047631476324763347634476354763647637476384763947640476414764247643476444764547646476474764847649476504765147652476534765447655476564765747658476594766047661476624766347664476654766647667476684766947670476714767247673476744767547676476774767847679476804768147682476834768447685476864768747688476894769047691476924769347694476954769647697476984769947700477014770247703477044770547706477074770847709477104771147712477134771447715477164771747718477194772047721477224772347724477254772647727477284772947730477314773247733477344773547736477374773847739477404774147742477434774447745477464774747748477494775047751477524775347754477554775647757477584775947760477614776247763477644776547766477674776847769477704777147772477734777447775477764777747778477794778047781477824778347784477854778647787477884778947790477914779247793477944779547796477974779847799478004780147802478034780447805478064780747808478094781047811478124781347814478154781647817478184781947820478214782247823478244782547826478274782847829478304783147832478334783447835478364783747838478394784047841478424784347844478454784647847478484784947850478514785247853478544785547856478574785847859478604786147862478634786447865478664786747868478694787047871478724787347874478754787647877478784787947880478814788247883478844788547886478874788847889478904789147892478934789447895478964789747898478994790047901479024790347904479054790647907479084790947910479114791247913479144791547916479174791847919479204792147922479234792447925479264792747928479294793047931479324793347934479354793647937479384793947940479414794247943479444794547946479474794847949479504795147952479534795447955479564795747958479594796047961479624796347964479654796647967479684796947970479714797247973479744797547976479774797847979479804798147982479834798447985479864798747988479894799047991479924799347994479954799647997479984799948000480014800248003480044800548006480074800848009480104801148012480134801448015480164801748018480194802048021480224802348024480254802648027480284802948030480314803248033480344803548036480374803848039480404804148042480434804448045480464804748048480494805048051480524805348054480554805648057480584805948060480614806248063480644806548066480674806848069480704807148072480734807448075480764807748078480794808048081480824808348084480854808648087480884808948090480914809248093480944809548096480974809848099481004810148102481034810448105481064810748108481094811048111481124811348114481154811648117481184811948120481214812248123481244812548126481274812848129481304813148132481334813448135481364813748138481394814048141481424814348144481454814648147481484814948150481514815248153481544815548156481574815848159481604816148162481634816448165481664816748168481694817048171481724817348174481754817648177481784817948180481814818248183481844818548186481874818848189481904819148192481934819448195481964819748198481994820048201482024820348204482054820648207482084820948210482114821248213482144821548216482174821848219482204822148222482234822448225482264822748228482294823048231482324823348234482354823648237482384823948240482414824248243482444824548246482474824848249482504825148252482534825448255482564825748258482594826048261482624826348264482654826648267482684826948270482714827248273482744827548276482774827848279482804828148282482834828448285482864828748288482894829048291482924829348294482954829648297482984829948300483014830248303483044830548306483074830848309483104831148312483134831448315483164831748318483194832048321483224832348324483254832648327483284832948330483314833248333483344833548336483374833848339483404834148342483434834448345483464834748348483494835048351483524835348354483554835648357483584835948360483614836248363483644836548366483674836848369483704837148372483734837448375483764837748378483794838048381483824838348384483854838648387483884838948390483914839248393483944839548396483974839848399484004840148402484034840448405484064840748408484094841048411484124841348414484154841648417484184841948420484214842248423484244842548426484274842848429484304843148432484334843448435484364843748438484394844048441484424844348444484454844648447484484844948450484514845248453484544845548456484574845848459484604846148462484634846448465484664846748468484694847048471484724847348474484754847648477484784847948480484814848248483484844848548486484874848848489484904849148492484934849448495484964849748498484994850048501485024850348504485054850648507485084850948510485114851248513485144851548516485174851848519485204852148522485234852448525485264852748528485294853048531485324853348534485354853648537485384853948540485414854248543485444854548546485474854848549485504855148552485534855448555485564855748558485594856048561485624856348564485654856648567485684856948570485714857248573485744857548576485774857848579485804858148582485834858448585485864858748588485894859048591485924859348594485954859648597485984859948600486014860248603486044860548606486074860848609486104861148612486134861448615486164861748618486194862048621486224862348624486254862648627486284862948630486314863248633486344863548636486374863848639486404864148642486434864448645486464864748648486494865048651486524865348654486554865648657486584865948660486614866248663486644866548666486674866848669486704867148672486734867448675486764867748678486794868048681486824868348684486854868648687486884868948690486914869248693486944869548696486974869848699487004870148702487034870448705487064870748708487094871048711487124871348714487154871648717487184871948720487214872248723487244872548726487274872848729487304873148732487334873448735487364873748738487394874048741487424874348744487454874648747487484874948750487514875248753487544875548756487574875848759487604876148762487634876448765487664876748768487694877048771487724877348774487754877648777487784877948780487814878248783487844878548786487874878848789487904879148792487934879448795487964879748798487994880048801488024880348804488054880648807488084880948810488114881248813488144881548816488174881848819488204882148822488234882448825488264882748828488294883048831488324883348834488354883648837488384883948840488414884248843488444884548846488474884848849488504885148852488534885448855488564885748858488594886048861488624886348864488654886648867488684886948870488714887248873488744887548876488774887848879488804888148882488834888448885488864888748888488894889048891488924889348894488954889648897488984889948900489014890248903489044890548906489074890848909489104891148912489134891448915489164891748918489194892048921489224892348924489254892648927489284892948930489314893248933489344893548936489374893848939489404894148942489434894448945489464894748948489494895048951489524895348954489554895648957489584895948960489614896248963489644896548966489674896848969489704897148972489734897448975489764897748978489794898048981489824898348984489854898648987489884898948990489914899248993489944899548996489974899848999490004900149002490034900449005490064900749008490094901049011490124901349014490154901649017490184901949020490214902249023490244902549026490274902849029490304903149032490334903449035490364903749038490394904049041490424904349044490454904649047490484904949050490514905249053490544905549056490574905849059490604906149062490634906449065490664906749068490694907049071490724907349074490754907649077490784907949080490814908249083490844908549086490874908849089490904909149092490934909449095490964909749098490994910049101491024910349104491054910649107491084910949110491114911249113491144911549116491174911849119491204912149122491234912449125491264912749128491294913049131491324913349134491354913649137491384913949140491414914249143491444914549146491474914849149491504915149152491534915449155491564915749158491594916049161491624916349164491654916649167491684916949170491714917249173491744917549176491774917849179491804918149182491834918449185491864918749188491894919049191491924919349194491954919649197491984919949200492014920249203492044920549206492074920849209492104921149212492134921449215492164921749218492194922049221492224922349224492254922649227492284922949230492314923249233492344923549236492374923849239492404924149242492434924449245492464924749248492494925049251492524925349254492554925649257492584925949260492614926249263492644926549266492674926849269492704927149272492734927449275492764927749278492794928049281492824928349284492854928649287492884928949290492914929249293492944929549296492974929849299493004930149302493034930449305493064930749308493094931049311493124931349314493154931649317493184931949320493214932249323493244932549326493274932849329493304933149332493334933449335493364933749338493394934049341493424934349344493454934649347493484934949350493514935249353493544935549356493574935849359493604936149362493634936449365493664936749368493694937049371493724937349374493754937649377493784937949380493814938249383493844938549386493874938849389493904939149392493934939449395493964939749398493994940049401494024940349404494054940649407494084940949410494114941249413494144941549416494174941849419494204942149422494234942449425494264942749428494294943049431494324943349434494354943649437494384943949440494414944249443494444944549446494474944849449494504945149452494534945449455494564945749458494594946049461494624946349464494654946649467494684946949470494714947249473494744947549476494774947849479494804948149482494834948449485494864948749488494894949049491494924949349494494954949649497494984949949500495014950249503495044950549506495074950849509495104951149512495134951449515495164951749518495194952049521495224952349524495254952649527495284952949530495314953249533495344953549536495374953849539495404954149542495434954449545495464954749548495494955049551495524955349554495554955649557495584955949560495614956249563495644956549566495674956849569495704957149572495734957449575495764957749578495794958049581495824958349584495854958649587495884958949590495914959249593495944959549596495974959849599496004960149602496034960449605496064960749608496094961049611496124961349614496154961649617496184961949620496214962249623496244962549626496274962849629496304963149632496334963449635496364963749638496394964049641496424964349644496454964649647496484964949650496514965249653496544965549656496574965849659496604966149662496634966449665496664966749668496694967049671496724967349674496754967649677496784967949680496814968249683496844968549686496874968849689496904969149692496934969449695496964969749698496994970049701497024970349704497054970649707497084970949710497114971249713497144971549716497174971849719497204972149722497234972449725497264972749728497294973049731497324973349734497354973649737497384973949740497414974249743497444974549746497474974849749497504975149752497534975449755497564975749758497594976049761497624976349764497654976649767497684976949770497714977249773497744977549776497774977849779497804978149782497834978449785497864978749788497894979049791497924979349794497954979649797497984979949800498014980249803498044980549806498074980849809498104981149812498134981449815498164981749818498194982049821498224982349824498254982649827498284982949830498314983249833498344983549836498374983849839498404984149842498434984449845498464984749848498494985049851498524985349854498554985649857498584985949860498614986249863498644986549866498674986849869498704987149872498734987449875498764987749878498794988049881498824988349884498854988649887498884988949890498914989249893498944989549896498974989849899499004990149902499034990449905499064990749908499094991049911499124991349914499154991649917499184991949920499214992249923499244992549926499274992849929499304993149932499334993449935499364993749938499394994049941499424994349944499454994649947499484994949950499514995249953499544995549956499574995849959499604996149962499634996449965499664996749968499694997049971499724997349974499754997649977499784997949980499814998249983499844998549986499874998849989499904999149992499934999449995499964999749998499995000050001500025000350004500055000650007500085000950010500115001250013500145001550016500175001850019500205002150022500235002450025500265002750028500295003050031500325003350034500355003650037500385003950040500415004250043500445004550046500475004850049500505005150052500535005450055500565005750058500595006050061500625006350064500655006650067500685006950070500715007250073500745007550076500775007850079500805008150082500835008450085500865008750088500895009050091500925009350094500955009650097500985009950100501015010250103501045010550106501075010850109501105011150112501135011450115501165011750118501195012050121501225012350124501255012650127501285012950130501315013250133501345013550136501375013850139501405014150142501435014450145501465014750148501495015050151501525015350154501555015650157501585015950160501615016250163501645016550166501675016850169501705017150172501735017450175501765017750178501795018050181501825018350184501855018650187501885018950190501915019250193501945019550196501975019850199502005020150202502035020450205502065020750208502095021050211502125021350214502155021650217502185021950220502215022250223502245022550226502275022850229502305023150232502335023450235502365023750238502395024050241502425024350244502455024650247502485024950250502515025250253502545025550256502575025850259502605026150262502635026450265502665026750268502695027050271502725027350274502755027650277502785027950280502815028250283502845028550286502875028850289502905029150292502935029450295502965029750298502995030050301503025030350304503055030650307503085030950310503115031250313503145031550316503175031850319503205032150322503235032450325503265032750328503295033050331503325033350334503355033650337503385033950340503415034250343503445034550346503475034850349503505035150352503535035450355503565035750358503595036050361503625036350364503655036650367503685036950370503715037250373503745037550376503775037850379503805038150382503835038450385503865038750388503895039050391503925039350394503955039650397503985039950400504015040250403504045040550406504075040850409504105041150412504135041450415504165041750418504195042050421504225042350424504255042650427504285042950430504315043250433504345043550436504375043850439504405044150442504435044450445504465044750448504495045050451504525045350454504555045650457504585045950460504615046250463504645046550466504675046850469504705047150472504735047450475504765047750478504795048050481504825048350484504855048650487504885048950490504915049250493504945049550496504975049850499505005050150502505035050450505505065050750508505095051050511505125051350514505155051650517505185051950520505215052250523505245052550526505275052850529505305053150532505335053450535505365053750538505395054050541505425054350544505455054650547505485054950550505515055250553505545055550556505575055850559505605056150562505635056450565505665056750568505695057050571505725057350574505755057650577505785057950580505815058250583505845058550586505875058850589505905059150592505935059450595505965059750598505995060050601506025060350604506055060650607506085060950610506115061250613506145061550616506175061850619506205062150622506235062450625506265062750628506295063050631506325063350634506355063650637506385063950640506415064250643506445064550646506475064850649506505065150652506535065450655506565065750658506595066050661506625066350664506655066650667506685066950670506715067250673506745067550676506775067850679506805068150682506835068450685506865068750688506895069050691506925069350694506955069650697506985069950700507015070250703507045070550706507075070850709507105071150712507135071450715507165071750718507195072050721507225072350724507255072650727507285072950730507315073250733507345073550736507375073850739507405074150742507435074450745507465074750748507495075050751507525075350754507555075650757507585075950760507615076250763507645076550766507675076850769507705077150772507735077450775507765077750778507795078050781507825078350784507855078650787507885078950790507915079250793507945079550796507975079850799508005080150802508035080450805508065080750808508095081050811508125081350814508155081650817508185081950820508215082250823508245082550826508275082850829508305083150832508335083450835508365083750838508395084050841508425084350844508455084650847508485084950850508515085250853508545085550856508575085850859508605086150862508635086450865508665086750868508695087050871508725087350874508755087650877508785087950880508815088250883508845088550886508875088850889508905089150892508935089450895508965089750898508995090050901509025090350904509055090650907509085090950910509115091250913509145091550916509175091850919509205092150922509235092450925509265092750928509295093050931509325093350934509355093650937509385093950940509415094250943509445094550946509475094850949509505095150952509535095450955509565095750958509595096050961509625096350964509655096650967509685096950970509715097250973509745097550976509775097850979509805098150982509835098450985509865098750988509895099050991509925099350994509955099650997509985099951000510015100251003510045100551006510075100851009510105101151012510135101451015510165101751018510195102051021510225102351024510255102651027510285102951030510315103251033510345103551036510375103851039510405104151042510435104451045510465104751048510495105051051510525105351054510555105651057510585105951060510615106251063510645106551066510675106851069510705107151072510735107451075510765107751078510795108051081510825108351084510855108651087510885108951090510915109251093510945109551096510975109851099511005110151102511035110451105511065110751108511095111051111511125111351114511155111651117511185111951120511215112251123511245112551126511275112851129511305113151132511335113451135511365113751138511395114051141511425114351144511455114651147511485114951150511515115251153511545115551156511575115851159511605116151162511635116451165511665116751168511695117051171511725117351174511755117651177511785117951180511815118251183511845118551186511875118851189511905119151192511935119451195511965119751198511995120051201512025120351204512055120651207512085120951210512115121251213512145121551216512175121851219512205122151222512235122451225512265122751228512295123051231512325123351234512355123651237512385123951240512415124251243512445124551246512475124851249512505125151252512535125451255512565125751258512595126051261512625126351264512655126651267512685126951270512715127251273512745127551276512775127851279512805128151282512835128451285512865128751288512895129051291512925129351294512955129651297512985129951300513015130251303513045130551306513075130851309513105131151312513135131451315513165131751318513195132051321513225132351324513255132651327513285132951330513315133251333513345133551336513375133851339513405134151342513435134451345513465134751348513495135051351513525135351354513555135651357513585135951360513615136251363513645136551366513675136851369513705137151372513735137451375513765137751378513795138051381513825138351384513855138651387513885138951390513915139251393513945139551396513975139851399514005140151402514035140451405514065140751408514095141051411514125141351414514155141651417514185141951420514215142251423514245142551426514275142851429514305143151432514335143451435514365143751438514395144051441514425144351444514455144651447514485144951450514515145251453514545145551456514575145851459514605146151462514635146451465514665146751468514695147051471514725147351474514755147651477514785147951480514815148251483514845148551486514875148851489514905149151492514935149451495514965149751498514995150051501515025150351504515055150651507515085150951510515115151251513515145151551516515175151851519515205152151522515235152451525515265152751528515295153051531515325153351534515355153651537515385153951540515415154251543515445154551546515475154851549515505155151552515535155451555515565155751558515595156051561515625156351564515655156651567515685156951570515715157251573515745157551576515775157851579515805158151582515835158451585515865158751588515895159051591515925159351594515955159651597515985159951600516015160251603516045160551606516075160851609516105161151612516135161451615516165161751618516195162051621516225162351624516255162651627516285162951630516315163251633516345163551636516375163851639516405164151642516435164451645516465164751648516495165051651516525165351654516555165651657516585165951660516615166251663516645166551666516675166851669516705167151672516735167451675516765167751678516795168051681516825168351684516855168651687516885168951690516915169251693516945169551696516975169851699517005170151702517035170451705517065170751708517095171051711517125171351714517155171651717517185171951720517215172251723517245172551726517275172851729517305173151732517335173451735517365173751738517395174051741517425174351744517455174651747517485174951750517515175251753517545175551756517575175851759517605176151762517635176451765517665176751768517695177051771517725177351774517755177651777517785177951780517815178251783517845178551786517875178851789517905179151792517935179451795517965179751798517995180051801518025180351804518055180651807518085180951810518115181251813518145181551816518175181851819518205182151822518235182451825518265182751828518295183051831518325183351834518355183651837518385183951840518415184251843518445184551846518475184851849518505185151852518535185451855518565185751858518595186051861518625186351864518655186651867518685186951870518715187251873518745187551876518775187851879518805188151882518835188451885518865188751888518895189051891518925189351894518955189651897518985189951900519015190251903519045190551906519075190851909519105191151912519135191451915519165191751918519195192051921519225192351924519255192651927519285192951930519315193251933519345193551936519375193851939519405194151942519435194451945519465194751948519495195051951519525195351954519555195651957519585195951960519615196251963519645196551966519675196851969519705197151972519735197451975519765197751978519795198051981519825198351984519855198651987519885198951990519915199251993519945199551996519975199851999520005200152002520035200452005520065200752008520095201052011520125201352014520155201652017520185201952020520215202252023520245202552026520275202852029520305203152032520335203452035520365203752038520395204052041520425204352044520455204652047520485204952050520515205252053520545205552056520575205852059520605206152062520635206452065520665206752068520695207052071520725207352074520755207652077520785207952080520815208252083520845208552086520875208852089520905209152092520935209452095520965209752098520995210052101521025210352104521055210652107521085210952110521115211252113521145211552116521175211852119521205212152122521235212452125521265212752128521295213052131521325213352134521355213652137521385213952140521415214252143521445214552146521475214852149521505215152152521535215452155521565215752158521595216052161521625216352164521655216652167521685216952170521715217252173521745217552176521775217852179521805218152182521835218452185521865218752188521895219052191521925219352194521955219652197521985219952200522015220252203522045220552206522075220852209522105221152212522135221452215522165221752218522195222052221522225222352224522255222652227522285222952230522315223252233522345223552236522375223852239522405224152242522435224452245522465224752248522495225052251522525225352254522555225652257522585225952260522615226252263522645226552266522675226852269522705227152272522735227452275522765227752278522795228052281522825228352284522855228652287522885228952290522915229252293522945229552296522975229852299523005230152302523035230452305523065230752308523095231052311523125231352314523155231652317523185231952320523215232252323523245232552326523275232852329523305233152332523335233452335523365233752338523395234052341523425234352344523455234652347523485234952350523515235252353523545235552356523575235852359523605236152362523635236452365523665236752368523695237052371523725237352374523755237652377523785237952380523815238252383523845238552386523875238852389523905239152392523935239452395523965239752398523995240052401524025240352404524055240652407524085240952410524115241252413524145241552416524175241852419524205242152422524235242452425524265242752428524295243052431524325243352434524355243652437524385243952440524415244252443524445244552446524475244852449524505245152452524535245452455524565245752458524595246052461524625246352464524655246652467524685246952470524715247252473524745247552476524775247852479524805248152482524835248452485524865248752488524895249052491524925249352494524955249652497524985249952500525015250252503525045250552506525075250852509525105251152512525135251452515525165251752518525195252052521525225252352524525255252652527525285252952530525315253252533525345253552536525375253852539525405254152542525435254452545525465254752548525495255052551525525255352554525555255652557525585255952560525615256252563525645256552566525675256852569525705257152572525735257452575525765257752578525795258052581525825258352584525855258652587525885258952590525915259252593525945259552596525975259852599526005260152602526035260452605526065260752608526095261052611526125261352614526155261652617526185261952620526215262252623526245262552626526275262852629526305263152632526335263452635526365263752638526395264052641526425264352644526455264652647526485264952650526515265252653526545265552656526575265852659526605266152662526635266452665526665266752668526695267052671526725267352674526755267652677526785267952680526815268252683526845268552686526875268852689526905269152692526935269452695526965269752698526995270052701527025270352704527055270652707527085270952710527115271252713527145271552716527175271852719527205272152722527235272452725527265272752728527295273052731527325273352734527355273652737527385273952740527415274252743527445274552746527475274852749527505275152752527535275452755527565275752758527595276052761527625276352764527655276652767527685276952770527715277252773527745277552776527775277852779527805278152782527835278452785527865278752788527895279052791527925279352794527955279652797527985279952800528015280252803528045280552806528075280852809528105281152812528135281452815528165281752818528195282052821528225282352824528255282652827528285282952830528315283252833528345283552836528375283852839528405284152842528435284452845528465284752848528495285052851528525285352854528555285652857528585285952860528615286252863528645286552866528675286852869528705287152872528735287452875528765287752878528795288052881528825288352884528855288652887528885288952890528915289252893528945289552896528975289852899529005290152902529035290452905529065290752908529095291052911529125291352914529155291652917529185291952920529215292252923529245292552926529275292852929529305293152932529335293452935529365293752938529395294052941529425294352944529455294652947529485294952950529515295252953529545295552956529575295852959529605296152962529635296452965529665296752968529695297052971529725297352974529755297652977529785297952980529815298252983529845298552986529875298852989529905299152992529935299452995529965299752998529995300053001530025300353004530055300653007530085300953010530115301253013530145301553016530175301853019530205302153022530235302453025530265302753028530295303053031530325303353034530355303653037530385303953040530415304253043530445304553046530475304853049530505305153052530535305453055530565305753058530595306053061530625306353064530655306653067530685306953070530715307253073530745307553076530775307853079530805308153082530835308453085530865308753088530895309053091530925309353094530955309653097530985309953100531015310253103531045310553106531075310853109531105311153112531135311453115531165311753118531195312053121531225312353124531255312653127531285312953130531315313253133531345313553136531375313853139531405314153142531435314453145531465314753148531495315053151531525315353154531555315653157531585315953160531615316253163531645316553166531675316853169531705317153172531735317453175531765317753178531795318053181531825318353184531855318653187531885318953190531915319253193531945319553196531975319853199532005320153202532035320453205532065320753208532095321053211532125321353214532155321653217532185321953220532215322253223532245322553226532275322853229532305323153232532335323453235532365323753238532395324053241532425324353244532455324653247532485324953250532515325253253532545325553256532575325853259532605326153262532635326453265532665326753268532695327053271532725327353274532755327653277532785327953280532815328253283532845328553286532875328853289532905329153292532935329453295532965329753298532995330053301533025330353304533055330653307533085330953310533115331253313533145331553316533175331853319533205332153322533235332453325533265332753328533295333053331533325333353334533355333653337533385333953340533415334253343533445334553346533475334853349533505335153352533535335453355533565335753358533595336053361533625336353364533655336653367533685336953370533715337253373533745337553376533775337853379533805338153382533835338453385533865338753388533895339053391533925339353394533955339653397533985339953400534015340253403534045340553406534075340853409534105341153412534135341453415534165341753418534195342053421534225342353424534255342653427534285342953430534315343253433534345343553436534375343853439534405344153442534435344453445534465344753448534495345053451534525345353454534555345653457534585345953460534615346253463534645346553466534675346853469534705347153472534735347453475534765347753478534795348053481534825348353484534855348653487534885348953490534915349253493534945349553496534975349853499535005350153502535035350453505535065350753508535095351053511535125351353514535155351653517535185351953520535215352253523535245352553526535275352853529535305353153532535335353453535535365353753538535395354053541535425354353544535455354653547535485354953550535515355253553535545355553556535575355853559535605356153562535635356453565535665356753568535695357053571535725357353574535755357653577535785357953580535815358253583535845358553586535875358853589535905359153592535935359453595535965359753598535995360053601536025360353604536055360653607536085360953610536115361253613536145361553616536175361853619536205362153622536235362453625536265362753628536295363053631536325363353634536355363653637536385363953640536415364253643536445364553646536475364853649536505365153652536535365453655536565365753658536595366053661536625366353664536655366653667536685366953670536715367253673536745367553676536775367853679536805368153682536835368453685536865368753688536895369053691536925369353694536955369653697536985369953700537015370253703537045370553706537075370853709537105371153712537135371453715537165371753718537195372053721537225372353724537255372653727537285372953730537315373253733537345373553736537375373853739537405374153742537435374453745537465374753748537495375053751537525375353754537555375653757537585375953760537615376253763537645376553766537675376853769537705377153772537735377453775537765377753778537795378053781537825378353784537855378653787537885378953790537915379253793537945379553796537975379853799538005380153802538035380453805538065380753808538095381053811538125381353814538155381653817538185381953820538215382253823538245382553826538275382853829538305383153832538335383453835538365383753838538395384053841538425384353844538455384653847538485384953850538515385253853538545385553856538575385853859538605386153862538635386453865538665386753868538695387053871538725387353874538755387653877538785387953880538815388253883538845388553886538875388853889538905389153892538935389453895538965389753898538995390053901539025390353904539055390653907539085390953910539115391253913539145391553916539175391853919539205392153922539235392453925539265392753928539295393053931539325393353934539355393653937539385393953940539415394253943539445394553946539475394853949539505395153952539535395453955539565395753958539595396053961539625396353964539655396653967539685396953970539715397253973539745397553976539775397853979539805398153982539835398453985539865398753988539895399053991539925399353994539955399653997539985399954000540015400254003540045400554006540075400854009540105401154012540135401454015540165401754018540195402054021540225402354024540255402654027540285402954030540315403254033540345403554036540375403854039540405404154042540435404454045540465404754048540495405054051540525405354054540555405654057540585405954060540615406254063540645406554066540675406854069540705407154072540735407454075540765407754078540795408054081540825408354084540855408654087540885408954090540915409254093540945409554096540975409854099541005410154102541035410454105541065410754108541095411054111541125411354114541155411654117541185411954120541215412254123541245412554126541275412854129541305413154132541335413454135541365413754138541395414054141541425414354144541455414654147541485414954150541515415254153541545415554156541575415854159541605416154162541635416454165541665416754168541695417054171541725417354174541755417654177541785417954180541815418254183541845418554186541875418854189541905419154192541935419454195541965419754198541995420054201542025420354204542055420654207542085420954210542115421254213542145421554216542175421854219542205422154222542235422454225542265422754228542295423054231542325423354234542355423654237542385423954240542415424254243542445424554246542475424854249542505425154252542535425454255542565425754258542595426054261542625426354264542655426654267542685426954270542715427254273542745427554276542775427854279542805428154282542835428454285542865428754288542895429054291542925429354294542955429654297542985429954300543015430254303543045430554306543075430854309543105431154312543135431454315543165431754318543195432054321543225432354324543255432654327543285432954330543315433254333543345433554336543375433854339543405434154342543435434454345543465434754348543495435054351543525435354354543555435654357543585435954360543615436254363543645436554366543675436854369543705437154372543735437454375543765437754378543795438054381543825438354384543855438654387543885438954390543915439254393543945439554396543975439854399544005440154402544035440454405544065440754408544095441054411544125441354414544155441654417544185441954420544215442254423544245442554426544275442854429544305443154432544335443454435544365443754438544395444054441544425444354444544455444654447544485444954450544515445254453544545445554456544575445854459544605446154462544635446454465544665446754468544695447054471544725447354474544755447654477544785447954480544815448254483544845448554486544875448854489544905449154492544935449454495544965449754498544995450054501545025450354504545055450654507545085450954510545115451254513545145451554516545175451854519545205452154522545235452454525545265452754528545295453054531545325453354534545355453654537545385453954540545415454254543545445454554546545475454854549545505455154552545535455454555545565455754558545595456054561545625456354564545655456654567545685456954570545715457254573545745457554576545775457854579545805458154582545835458454585545865458754588545895459054591545925459354594545955459654597545985459954600546015460254603546045460554606546075460854609546105461154612546135461454615546165461754618546195462054621546225462354624546255462654627546285462954630546315463254633546345463554636546375463854639546405464154642546435464454645546465464754648546495465054651546525465354654546555465654657546585465954660546615466254663546645466554666546675466854669546705467154672546735467454675546765467754678546795468054681546825468354684546855468654687546885468954690546915469254693546945469554696546975469854699547005470154702547035470454705547065470754708547095471054711547125471354714547155471654717547185471954720547215472254723547245472554726547275472854729547305473154732547335473454735547365473754738547395474054741547425474354744547455474654747547485474954750547515475254753547545475554756547575475854759547605476154762547635476454765547665476754768547695477054771547725477354774547755477654777547785477954780547815478254783547845478554786547875478854789547905479154792547935479454795547965479754798547995480054801548025480354804548055480654807548085480954810548115481254813548145481554816548175481854819548205482154822548235482454825548265482754828548295483054831548325483354834548355483654837548385483954840548415484254843548445484554846548475484854849548505485154852548535485454855548565485754858548595486054861548625486354864548655486654867548685486954870548715487254873548745487554876548775487854879548805488154882548835488454885548865488754888548895489054891548925489354894548955489654897548985489954900549015490254903549045490554906549075490854909549105491154912549135491454915549165491754918549195492054921549225492354924549255492654927549285492954930549315493254933549345493554936549375493854939549405494154942549435494454945549465494754948549495495054951549525495354954549555495654957549585495954960549615496254963549645496554966549675496854969549705497154972549735497454975549765497754978549795498054981549825498354984549855498654987549885498954990549915499254993549945499554996549975499854999550005500155002550035500455005550065500755008550095501055011550125501355014550155501655017550185501955020550215502255023550245502555026550275502855029550305503155032550335503455035550365503755038550395504055041550425504355044550455504655047550485504955050550515505255053550545505555056550575505855059550605506155062550635506455065550665506755068550695507055071550725507355074550755507655077550785507955080550815508255083550845508555086550875508855089550905509155092550935509455095550965509755098550995510055101551025510355104551055510655107551085510955110551115511255113551145511555116551175511855119551205512155122551235512455125551265512755128551295513055131551325513355134551355513655137551385513955140551415514255143551445514555146551475514855149551505515155152551535515455155551565515755158551595516055161551625516355164551655516655167551685516955170551715517255173551745517555176551775517855179551805518155182551835518455185551865518755188551895519055191551925519355194551955519655197551985519955200552015520255203552045520555206552075520855209552105521155212552135521455215552165521755218552195522055221552225522355224552255522655227552285522955230552315523255233552345523555236552375523855239552405524155242552435524455245552465524755248552495525055251552525525355254552555525655257552585525955260552615526255263552645526555266552675526855269552705527155272552735527455275552765527755278552795528055281552825528355284552855528655287552885528955290552915529255293552945529555296552975529855299553005530155302553035530455305553065530755308553095531055311553125531355314553155531655317553185531955320553215532255323553245532555326553275532855329553305533155332553335533455335553365533755338553395534055341553425534355344553455534655347553485534955350553515535255353553545535555356553575535855359553605536155362553635536455365553665536755368553695537055371553725537355374553755537655377553785537955380553815538255383553845538555386553875538855389553905539155392553935539455395553965539755398553995540055401554025540355404554055540655407554085540955410554115541255413554145541555416554175541855419554205542155422554235542455425554265542755428554295543055431554325543355434554355543655437554385543955440554415544255443554445544555446554475544855449554505545155452554535545455455554565545755458554595546055461554625546355464554655546655467554685546955470554715547255473554745547555476554775547855479554805548155482554835548455485554865548755488554895549055491554925549355494554955549655497554985549955500555015550255503555045550555506555075550855509555105551155512555135551455515555165551755518555195552055521555225552355524555255552655527555285552955530555315553255533555345553555536555375553855539555405554155542555435554455545555465554755548555495555055551555525555355554555555555655557555585555955560555615556255563555645556555566555675556855569555705557155572555735557455575555765557755578555795558055581555825558355584555855558655587555885558955590555915559255593555945559555596555975559855599556005560155602556035560455605556065560755608556095561055611556125561355614556155561655617556185561955620556215562255623556245562555626556275562855629556305563155632556335563455635556365563755638556395564055641556425564355644556455564655647556485564955650556515565255653556545565555656556575565855659556605566155662556635566455665556665566755668556695567055671556725567355674556755567655677556785567955680556815568255683556845568555686556875568855689556905569155692556935569455695556965569755698556995570055701557025570355704557055570655707557085570955710557115571255713557145571555716557175571855719557205572155722557235572455725557265572755728557295573055731557325573355734557355573655737557385573955740557415574255743557445574555746557475574855749557505575155752557535575455755557565575755758557595576055761557625576355764557655576655767557685576955770557715577255773557745577555776557775577855779557805578155782557835578455785557865578755788557895579055791557925579355794557955579655797557985579955800558015580255803558045580555806558075580855809558105581155812558135581455815558165581755818558195582055821558225582355824558255582655827558285582955830558315583255833558345583555836558375583855839558405584155842558435584455845558465584755848558495585055851558525585355854558555585655857558585585955860558615586255863558645586555866558675586855869558705587155872558735587455875558765587755878558795588055881558825588355884558855588655887558885588955890558915589255893558945589555896558975589855899559005590155902559035590455905559065590755908559095591055911559125591355914559155591655917559185591955920559215592255923559245592555926559275592855929559305593155932559335593455935559365593755938559395594055941559425594355944559455594655947559485594955950559515595255953559545595555956559575595855959559605596155962559635596455965559665596755968559695597055971559725597355974559755597655977559785597955980559815598255983559845598555986559875598855989559905599155992559935599455995559965599755998559995600056001560025600356004560055600656007560085600956010560115601256013560145601556016560175601856019560205602156022560235602456025560265602756028560295603056031560325603356034560355603656037560385603956040560415604256043560445604556046560475604856049560505605156052560535605456055560565605756058560595606056061560625606356064560655606656067560685606956070560715607256073560745607556076560775607856079560805608156082560835608456085560865608756088560895609056091560925609356094560955609656097560985609956100561015610256103561045610556106561075610856109561105611156112561135611456115561165611756118561195612056121561225612356124561255612656127561285612956130561315613256133561345613556136561375613856139561405614156142561435614456145561465614756148561495615056151561525615356154561555615656157561585615956160561615616256163561645616556166561675616856169561705617156172561735617456175561765617756178561795618056181561825618356184561855618656187561885618956190561915619256193561945619556196561975619856199562005620156202562035620456205562065620756208562095621056211562125621356214562155621656217562185621956220562215622256223562245622556226562275622856229562305623156232562335623456235562365623756238562395624056241562425624356244562455624656247562485624956250562515625256253562545625556256562575625856259562605626156262562635626456265562665626756268562695627056271562725627356274562755627656277562785627956280562815628256283562845628556286562875628856289562905629156292562935629456295562965629756298562995630056301563025630356304563055630656307563085630956310563115631256313563145631556316563175631856319563205632156322563235632456325563265632756328563295633056331563325633356334563355633656337563385633956340563415634256343563445634556346563475634856349563505635156352563535635456355563565635756358563595636056361563625636356364563655636656367563685636956370563715637256373563745637556376563775637856379563805638156382563835638456385563865638756388563895639056391563925639356394563955639656397563985639956400564015640256403564045640556406564075640856409564105641156412564135641456415564165641756418564195642056421564225642356424564255642656427564285642956430564315643256433564345643556436564375643856439564405644156442564435644456445564465644756448564495645056451564525645356454564555645656457564585645956460564615646256463564645646556466564675646856469564705647156472564735647456475564765647756478564795648056481564825648356484564855648656487564885648956490564915649256493564945649556496564975649856499565005650156502565035650456505565065650756508565095651056511565125651356514565155651656517565185651956520565215652256523565245652556526565275652856529565305653156532565335653456535565365653756538565395654056541565425654356544565455654656547565485654956550565515655256553565545655556556565575655856559565605656156562565635656456565565665656756568565695657056571565725657356574565755657656577565785657956580565815658256583565845658556586565875658856589565905659156592565935659456595565965659756598565995660056601566025660356604566055660656607566085660956610566115661256613566145661556616566175661856619566205662156622566235662456625566265662756628566295663056631566325663356634566355663656637566385663956640566415664256643566445664556646566475664856649566505665156652566535665456655566565665756658566595666056661566625666356664566655666656667566685666956670566715667256673566745667556676566775667856679566805668156682566835668456685566865668756688566895669056691566925669356694566955669656697566985669956700567015670256703567045670556706567075670856709567105671156712567135671456715567165671756718567195672056721567225672356724567255672656727567285672956730567315673256733567345673556736567375673856739567405674156742567435674456745567465674756748567495675056751567525675356754567555675656757567585675956760567615676256763567645676556766567675676856769567705677156772567735677456775567765677756778567795678056781567825678356784567855678656787567885678956790567915679256793567945679556796567975679856799568005680156802568035680456805568065680756808568095681056811568125681356814568155681656817568185681956820568215682256823568245682556826568275682856829568305683156832568335683456835568365683756838568395684056841568425684356844568455684656847568485684956850568515685256853568545685556856568575685856859568605686156862568635686456865568665686756868568695687056871568725687356874568755687656877568785687956880568815688256883568845688556886568875688856889568905689156892568935689456895568965689756898568995690056901569025690356904569055690656907569085690956910569115691256913569145691556916569175691856919569205692156922569235692456925569265692756928569295693056931569325693356934569355693656937569385693956940569415694256943569445694556946569475694856949569505695156952569535695456955569565695756958569595696056961569625696356964569655696656967569685696956970569715697256973569745697556976569775697856979569805698156982569835698456985569865698756988569895699056991569925699356994569955699656997569985699957000570015700257003570045700557006570075700857009570105701157012570135701457015570165701757018570195702057021570225702357024570255702657027570285702957030570315703257033570345703557036570375703857039570405704157042570435704457045570465704757048570495705057051570525705357054570555705657057570585705957060570615706257063570645706557066570675706857069570705707157072570735707457075570765707757078570795708057081570825708357084570855708657087570885708957090570915709257093570945709557096570975709857099571005710157102571035710457105571065710757108571095711057111571125711357114571155711657117571185711957120571215712257123571245712557126571275712857129571305713157132571335713457135571365713757138571395714057141571425714357144571455714657147571485714957150571515715257153571545715557156571575715857159571605716157162571635716457165571665716757168571695717057171571725717357174571755717657177571785717957180571815718257183571845718557186571875718857189571905719157192571935719457195571965719757198571995720057201572025720357204572055720657207572085720957210572115721257213572145721557216572175721857219572205722157222572235722457225572265722757228572295723057231572325723357234572355723657237572385723957240572415724257243572445724557246572475724857249572505725157252572535725457255572565725757258572595726057261572625726357264572655726657267572685726957270572715727257273572745727557276572775727857279572805728157282572835728457285572865728757288572895729057291572925729357294572955729657297572985729957300573015730257303573045730557306573075730857309573105731157312573135731457315573165731757318573195732057321573225732357324573255732657327573285732957330573315733257333573345733557336573375733857339573405734157342573435734457345573465734757348573495735057351573525735357354573555735657357573585735957360573615736257363573645736557366573675736857369573705737157372573735737457375573765737757378573795738057381573825738357384573855738657387573885738957390573915739257393573945739557396573975739857399574005740157402574035740457405574065740757408574095741057411574125741357414574155741657417574185741957420574215742257423574245742557426574275742857429574305743157432574335743457435574365743757438574395744057441574425744357444574455744657447574485744957450574515745257453574545745557456574575745857459574605746157462574635746457465574665746757468574695747057471574725747357474574755747657477574785747957480574815748257483574845748557486574875748857489574905749157492574935749457495574965749757498574995750057501575025750357504575055750657507575085750957510575115751257513575145751557516575175751857519575205752157522575235752457525575265752757528575295753057531575325753357534575355753657537575385753957540575415754257543575445754557546575475754857549575505755157552575535755457555575565755757558575595756057561575625756357564575655756657567575685756957570575715757257573575745757557576575775757857579575805758157582575835758457585575865758757588575895759057591575925759357594575955759657597575985759957600576015760257603576045760557606576075760857609576105761157612576135761457615576165761757618576195762057621576225762357624576255762657627576285762957630576315763257633576345763557636576375763857639576405764157642576435764457645576465764757648576495765057651576525765357654576555765657657576585765957660576615766257663576645766557666576675766857669576705767157672576735767457675576765767757678576795768057681576825768357684576855768657687576885768957690576915769257693576945769557696576975769857699577005770157702577035770457705577065770757708577095771057711577125771357714577155771657717577185771957720577215772257723577245772557726577275772857729577305773157732577335773457735577365773757738577395774057741577425774357744577455774657747577485774957750577515775257753577545775557756577575775857759577605776157762577635776457765577665776757768577695777057771577725777357774577755777657777577785777957780577815778257783577845778557786577875778857789577905779157792577935779457795577965779757798577995780057801578025780357804578055780657807578085780957810578115781257813578145781557816578175781857819578205782157822578235782457825578265782757828578295783057831578325783357834578355783657837578385783957840578415784257843578445784557846578475784857849578505785157852578535785457855578565785757858578595786057861578625786357864578655786657867578685786957870578715787257873578745787557876578775787857879578805788157882578835788457885578865788757888578895789057891578925789357894578955789657897578985789957900579015790257903579045790557906579075790857909579105791157912579135791457915579165791757918579195792057921579225792357924579255792657927579285792957930579315793257933579345793557936579375793857939579405794157942579435794457945579465794757948579495795057951579525795357954579555795657957579585795957960579615796257963579645796557966579675796857969579705797157972579735797457975579765797757978579795798057981579825798357984579855798657987579885798957990579915799257993579945799557996579975799857999580005800158002580035800458005580065800758008580095801058011580125801358014580155801658017580185801958020580215802258023580245802558026580275802858029580305803158032580335803458035580365803758038580395804058041580425804358044580455804658047580485804958050580515805258053580545805558056580575805858059580605806158062580635806458065580665806758068580695807058071580725807358074580755807658077580785807958080580815808258083580845808558086580875808858089580905809158092580935809458095580965809758098580995810058101581025810358104581055810658107581085810958110581115811258113581145811558116581175811858119581205812158122581235812458125581265812758128581295813058131581325813358134581355813658137581385813958140581415814258143581445814558146581475814858149581505815158152581535815458155581565815758158581595816058161581625816358164581655816658167581685816958170581715817258173581745817558176581775817858179581805818158182581835818458185581865818758188581895819058191581925819358194581955819658197581985819958200582015820258203582045820558206582075820858209582105821158212582135821458215582165821758218582195822058221582225822358224582255822658227582285822958230582315823258233582345823558236582375823858239582405824158242582435824458245582465824758248582495825058251582525825358254582555825658257582585825958260582615826258263582645826558266582675826858269582705827158272582735827458275582765827758278582795828058281582825828358284582855828658287582885828958290582915829258293582945829558296582975829858299583005830158302583035830458305583065830758308583095831058311583125831358314583155831658317583185831958320583215832258323583245832558326583275832858329583305833158332583335833458335583365833758338583395834058341583425834358344583455834658347583485834958350583515835258353583545835558356583575835858359583605836158362583635836458365583665836758368583695837058371583725837358374583755837658377583785837958380583815838258383583845838558386583875838858389583905839158392583935839458395583965839758398583995840058401584025840358404584055840658407584085840958410584115841258413584145841558416584175841858419584205842158422584235842458425584265842758428584295843058431584325843358434584355843658437584385843958440584415844258443584445844558446584475844858449584505845158452584535845458455584565845758458584595846058461584625846358464584655846658467584685846958470584715847258473584745847558476584775847858479584805848158482584835848458485584865848758488584895849058491584925849358494584955849658497584985849958500585015850258503585045850558506585075850858509585105851158512585135851458515585165851758518585195852058521585225852358524585255852658527585285852958530585315853258533585345853558536585375853858539585405854158542585435854458545585465854758548585495855058551585525855358554585555855658557585585855958560585615856258563585645856558566585675856858569585705857158572585735857458575585765857758578585795858058581585825858358584585855858658587585885858958590585915859258593585945859558596585975859858599586005860158602586035860458605586065860758608586095861058611586125861358614586155861658617586185861958620586215862258623586245862558626586275862858629586305863158632586335863458635586365863758638586395864058641586425864358644586455864658647586485864958650586515865258653586545865558656586575865858659586605866158662586635866458665586665866758668586695867058671586725867358674586755867658677586785867958680586815868258683586845868558686586875868858689586905869158692586935869458695586965869758698586995870058701587025870358704587055870658707587085870958710587115871258713587145871558716587175871858719587205872158722587235872458725587265872758728587295873058731587325873358734587355873658737587385873958740587415874258743587445874558746587475874858749587505875158752587535875458755587565875758758587595876058761587625876358764587655876658767587685876958770587715877258773587745877558776587775877858779587805878158782587835878458785587865878758788587895879058791587925879358794587955879658797587985879958800588015880258803588045880558806588075880858809588105881158812588135881458815588165881758818588195882058821588225882358824588255882658827588285882958830588315883258833588345883558836588375883858839588405884158842588435884458845588465884758848588495885058851588525885358854588555885658857588585885958860588615886258863588645886558866588675886858869588705887158872588735887458875588765887758878588795888058881588825888358884588855888658887588885888958890588915889258893588945889558896588975889858899589005890158902589035890458905589065890758908589095891058911589125891358914589155891658917589185891958920589215892258923589245892558926589275892858929589305893158932589335893458935589365893758938589395894058941589425894358944589455894658947589485894958950589515895258953589545895558956589575895858959589605896158962589635896458965589665896758968589695897058971589725897358974589755897658977589785897958980589815898258983589845898558986589875898858989589905899158992589935899458995589965899758998589995900059001590025900359004590055900659007590085900959010590115901259013590145901559016590175901859019590205902159022590235902459025590265902759028590295903059031590325903359034590355903659037590385903959040590415904259043590445904559046590475904859049590505905159052590535905459055590565905759058590595906059061590625906359064590655906659067590685906959070590715907259073590745907559076590775907859079590805908159082590835908459085590865908759088590895909059091590925909359094590955909659097590985909959100591015910259103591045910559106591075910859109591105911159112591135911459115591165911759118591195912059121591225912359124591255912659127591285912959130591315913259133591345913559136591375913859139591405914159142591435914459145591465914759148591495915059151591525915359154591555915659157591585915959160591615916259163591645916559166591675916859169591705917159172591735917459175591765917759178591795918059181591825918359184591855918659187591885918959190591915919259193591945919559196591975919859199592005920159202592035920459205592065920759208592095921059211592125921359214592155921659217592185921959220592215922259223592245922559226592275922859229592305923159232592335923459235592365923759238592395924059241592425924359244592455924659247592485924959250592515925259253592545925559256592575925859259592605926159262592635926459265592665926759268592695927059271592725927359274592755927659277592785927959280592815928259283592845928559286592875928859289592905929159292592935929459295592965929759298592995930059301593025930359304593055930659307593085930959310593115931259313593145931559316593175931859319593205932159322593235932459325593265932759328593295933059331593325933359334593355933659337593385933959340593415934259343593445934559346593475934859349593505935159352593535935459355593565935759358593595936059361593625936359364593655936659367593685936959370593715937259373593745937559376593775937859379593805938159382593835938459385593865938759388593895939059391593925939359394593955939659397593985939959400594015940259403594045940559406594075940859409594105941159412594135941459415594165941759418594195942059421594225942359424594255942659427594285942959430594315943259433594345943559436594375943859439594405944159442594435944459445594465944759448594495945059451594525945359454594555945659457594585945959460594615946259463594645946559466594675946859469594705947159472594735947459475594765947759478594795948059481594825948359484594855948659487594885948959490594915949259493594945949559496594975949859499595005950159502595035950459505595065950759508595095951059511595125951359514595155951659517595185951959520595215952259523595245952559526595275952859529595305953159532595335953459535595365953759538595395954059541595425954359544595455954659547595485954959550595515955259553595545955559556595575955859559595605956159562595635956459565595665956759568595695957059571595725957359574595755957659577595785957959580595815958259583595845958559586595875958859589595905959159592595935959459595595965959759598595995960059601596025960359604596055960659607596085960959610596115961259613596145961559616596175961859619596205962159622596235962459625596265962759628596295963059631596325963359634596355963659637596385963959640596415964259643596445964559646596475964859649596505965159652596535965459655596565965759658596595966059661596625966359664596655966659667596685966959670596715967259673596745967559676596775967859679596805968159682596835968459685596865968759688596895969059691596925969359694596955969659697596985969959700597015970259703597045970559706597075970859709597105971159712597135971459715597165971759718597195972059721597225972359724597255972659727597285972959730597315973259733597345973559736597375973859739597405974159742597435974459745597465974759748597495975059751597525975359754597555975659757597585975959760597615976259763597645976559766597675976859769597705977159772597735977459775597765977759778597795978059781597825978359784597855978659787597885978959790597915979259793597945979559796597975979859799598005980159802598035980459805598065980759808598095981059811598125981359814598155981659817598185981959820598215982259823598245982559826598275982859829598305983159832598335983459835598365983759838598395984059841598425984359844598455984659847598485984959850598515985259853598545985559856598575985859859598605986159862598635986459865598665986759868598695987059871598725987359874598755987659877598785987959880598815988259883598845988559886598875988859889598905989159892598935989459895598965989759898598995990059901599025990359904599055990659907599085990959910599115991259913599145991559916599175991859919599205992159922599235992459925599265992759928599295993059931599325993359934599355993659937599385993959940599415994259943599445994559946599475994859949599505995159952599535995459955599565995759958599595996059961599625996359964599655996659967599685996959970599715997259973599745997559976599775997859979599805998159982599835998459985599865998759988599895999059991599925999359994599955999659997599985999960000600016000260003600046000560006600076000860009600106001160012600136001460015600166001760018600196002060021600226002360024600256002660027600286002960030600316003260033600346003560036600376003860039600406004160042600436004460045600466004760048600496005060051600526005360054600556005660057600586005960060600616006260063600646006560066600676006860069600706007160072600736007460075600766007760078600796008060081600826008360084600856008660087600886008960090600916009260093600946009560096600976009860099601006010160102601036010460105601066010760108601096011060111601126011360114601156011660117601186011960120601216012260123601246012560126601276012860129601306013160132601336013460135601366013760138601396014060141601426014360144601456014660147601486014960150601516015260153601546015560156601576015860159601606016160162601636016460165601666016760168601696017060171601726017360174601756017660177601786017960180601816018260183601846018560186601876018860189601906019160192601936019460195601966019760198601996020060201602026020360204602056020660207602086020960210602116021260213602146021560216602176021860219602206022160222602236022460225602266022760228602296023060231602326023360234602356023660237602386023960240602416024260243602446024560246602476024860249602506025160252602536025460255602566025760258602596026060261602626026360264602656026660267602686026960270602716027260273602746027560276602776027860279602806028160282602836028460285602866028760288602896029060291602926029360294602956029660297602986029960300603016030260303603046030560306603076030860309603106031160312603136031460315603166031760318603196032060321603226032360324603256032660327603286032960330603316033260333603346033560336603376033860339603406034160342603436034460345603466034760348603496035060351603526035360354603556035660357603586035960360603616036260363603646036560366603676036860369603706037160372603736037460375603766037760378603796038060381603826038360384603856038660387603886038960390603916039260393603946039560396603976039860399604006040160402604036040460405604066040760408604096041060411604126041360414604156041660417604186041960420604216042260423604246042560426604276042860429604306043160432604336043460435604366043760438604396044060441604426044360444604456044660447604486044960450604516045260453604546045560456604576045860459604606046160462604636046460465604666046760468604696047060471604726047360474604756047660477604786047960480604816048260483604846048560486604876048860489604906049160492604936049460495604966049760498604996050060501605026050360504605056050660507605086050960510605116051260513605146051560516605176051860519605206052160522605236052460525605266052760528605296053060531605326053360534605356053660537605386053960540605416054260543605446054560546605476054860549605506055160552605536055460555605566055760558605596056060561605626056360564605656056660567605686056960570605716057260573605746057560576605776057860579605806058160582605836058460585605866058760588605896059060591605926059360594605956059660597605986059960600606016060260603606046060560606606076060860609606106061160612606136061460615606166061760618606196062060621606226062360624606256062660627606286062960630606316063260633606346063560636606376063860639606406064160642606436064460645606466064760648606496065060651606526065360654606556065660657606586065960660606616066260663606646066560666606676066860669606706067160672606736067460675606766067760678606796068060681606826068360684606856068660687606886068960690606916069260693606946069560696606976069860699607006070160702607036070460705607066070760708607096071060711607126071360714607156071660717607186071960720607216072260723607246072560726607276072860729607306073160732607336073460735607366073760738607396074060741607426074360744607456074660747607486074960750607516075260753607546075560756607576075860759607606076160762607636076460765607666076760768607696077060771607726077360774607756077660777607786077960780607816078260783607846078560786607876078860789607906079160792607936079460795607966079760798607996080060801608026080360804608056080660807608086080960810608116081260813608146081560816608176081860819608206082160822608236082460825608266082760828608296083060831608326083360834608356083660837608386083960840608416084260843608446084560846608476084860849608506085160852608536085460855608566085760858608596086060861608626086360864608656086660867608686086960870608716087260873608746087560876608776087860879608806088160882608836088460885608866088760888608896089060891608926089360894608956089660897608986089960900609016090260903609046090560906609076090860909609106091160912609136091460915609166091760918609196092060921609226092360924609256092660927609286092960930609316093260933609346093560936609376093860939609406094160942609436094460945609466094760948609496095060951609526095360954609556095660957609586095960960609616096260963609646096560966609676096860969609706097160972609736097460975609766097760978609796098060981609826098360984609856098660987609886098960990609916099260993609946099560996609976099860999610006100161002610036100461005610066100761008610096101061011610126101361014610156101661017610186101961020610216102261023610246102561026610276102861029610306103161032610336103461035610366103761038610396104061041610426104361044610456104661047610486104961050610516105261053610546105561056610576105861059610606106161062610636106461065610666106761068610696107061071610726107361074610756107661077610786107961080610816108261083610846108561086610876108861089610906109161092610936109461095610966109761098610996110061101611026110361104611056110661107611086110961110611116111261113611146111561116611176111861119611206112161122611236112461125611266112761128611296113061131611326113361134611356113661137611386113961140611416114261143611446114561146611476114861149611506115161152611536115461155611566115761158611596116061161611626116361164611656116661167611686116961170611716117261173611746117561176611776117861179611806118161182611836118461185611866118761188611896119061191611926119361194611956119661197611986119961200612016120261203612046120561206612076120861209612106121161212612136121461215612166121761218612196122061221612226122361224612256122661227612286122961230612316123261233612346123561236612376123861239612406124161242612436124461245612466124761248612496125061251612526125361254612556125661257612586125961260612616126261263612646126561266612676126861269612706127161272612736127461275612766127761278612796128061281612826128361284612856128661287612886128961290612916129261293612946129561296612976129861299613006130161302613036130461305613066130761308613096131061311613126131361314613156131661317613186131961320613216132261323613246132561326613276132861329613306133161332613336133461335613366133761338613396134061341613426134361344613456134661347613486134961350613516135261353613546135561356613576135861359613606136161362613636136461365613666136761368613696137061371613726137361374613756137661377613786137961380613816138261383613846138561386613876138861389613906139161392613936139461395613966139761398613996140061401614026140361404614056140661407614086140961410614116141261413614146141561416614176141861419614206142161422614236142461425614266142761428614296143061431614326143361434614356143661437614386143961440614416144261443614446144561446614476144861449614506145161452614536145461455614566145761458614596146061461614626146361464614656146661467614686146961470614716147261473614746147561476614776147861479614806148161482614836148461485614866148761488614896149061491614926149361494614956149661497614986149961500615016150261503615046150561506615076150861509615106151161512615136151461515615166151761518615196152061521615226152361524615256152661527615286152961530615316153261533615346153561536615376153861539615406154161542615436154461545615466154761548615496155061551615526155361554615556155661557615586155961560615616156261563615646156561566615676156861569615706157161572615736157461575615766157761578615796158061581615826158361584615856158661587615886158961590615916159261593615946159561596615976159861599616006160161602616036160461605616066160761608616096161061611616126161361614616156161661617616186161961620616216162261623616246162561626616276162861629616306163161632616336163461635616366163761638616396164061641616426164361644616456164661647616486164961650616516165261653616546165561656616576165861659616606166161662616636166461665616666166761668616696167061671616726167361674616756167661677616786167961680616816168261683616846168561686616876168861689616906169161692616936169461695616966169761698616996170061701617026170361704617056170661707617086170961710617116171261713617146171561716617176171861719617206172161722617236172461725617266172761728617296173061731617326173361734617356173661737617386173961740617416174261743617446174561746617476174861749617506175161752617536175461755617566175761758617596176061761617626176361764617656176661767617686176961770617716177261773617746177561776617776177861779617806178161782617836178461785617866178761788617896179061791617926179361794617956179661797617986179961800618016180261803618046180561806618076180861809618106181161812618136181461815618166181761818618196182061821618226182361824618256182661827618286182961830618316183261833618346183561836618376183861839618406184161842618436184461845618466184761848618496185061851618526185361854618556185661857618586185961860618616186261863618646186561866618676186861869618706187161872618736187461875618766187761878618796188061881618826188361884618856188661887618886188961890618916189261893618946189561896618976189861899619006190161902619036190461905619066190761908619096191061911619126191361914619156191661917619186191961920619216192261923619246192561926619276192861929619306193161932619336193461935619366193761938619396194061941619426194361944619456194661947619486194961950619516195261953619546195561956619576195861959619606196161962619636196461965619666196761968619696197061971619726197361974619756197661977619786197961980619816198261983619846198561986619876198861989619906199161992619936199461995619966199761998619996200062001620026200362004620056200662007620086200962010620116201262013620146201562016620176201862019620206202162022620236202462025620266202762028620296203062031620326203362034620356203662037620386203962040620416204262043620446204562046620476204862049620506205162052620536205462055620566205762058620596206062061620626206362064620656206662067620686206962070620716207262073620746207562076620776207862079620806208162082620836208462085620866208762088620896209062091620926209362094620956209662097620986209962100621016210262103621046210562106621076210862109621106211162112621136211462115621166211762118621196212062121621226212362124621256212662127621286212962130621316213262133621346213562136621376213862139621406214162142621436214462145621466214762148621496215062151621526215362154621556215662157621586215962160621616216262163621646216562166621676216862169621706217162172621736217462175621766217762178621796218062181621826218362184621856218662187621886218962190621916219262193621946219562196621976219862199622006220162202622036220462205622066220762208622096221062211622126221362214622156221662217622186221962220622216222262223622246222562226622276222862229622306223162232622336223462235622366223762238622396224062241622426224362244622456224662247622486224962250622516225262253622546225562256622576225862259622606226162262622636226462265622666226762268622696227062271622726227362274622756227662277622786227962280622816228262283622846228562286622876228862289622906229162292622936229462295622966229762298622996230062301623026230362304623056230662307623086230962310623116231262313623146231562316623176231862319623206232162322623236232462325623266232762328623296233062331623326233362334623356233662337623386233962340623416234262343623446234562346623476234862349623506235162352623536235462355623566235762358623596236062361623626236362364623656236662367623686236962370623716237262373623746237562376623776237862379623806238162382623836238462385623866238762388623896239062391623926239362394623956239662397623986239962400624016240262403624046240562406624076240862409624106241162412624136241462415624166241762418624196242062421624226242362424624256242662427624286242962430624316243262433624346243562436624376243862439624406244162442624436244462445624466244762448624496245062451624526245362454624556245662457624586245962460624616246262463624646246562466624676246862469624706247162472624736247462475624766247762478624796248062481624826248362484624856248662487624886248962490624916249262493624946249562496624976249862499625006250162502625036250462505625066250762508625096251062511625126251362514625156251662517625186251962520625216252262523625246252562526625276252862529625306253162532625336253462535625366253762538625396254062541625426254362544625456254662547625486254962550625516255262553625546255562556625576255862559625606256162562625636256462565625666256762568625696257062571625726257362574625756257662577625786257962580625816258262583625846258562586625876258862589625906259162592625936259462595625966259762598625996260062601626026260362604626056260662607626086260962610626116261262613626146261562616626176261862619626206262162622626236262462625626266262762628626296263062631626326263362634626356263662637626386263962640626416264262643626446264562646626476264862649626506265162652626536265462655626566265762658626596266062661626626266362664626656266662667626686266962670626716267262673626746267562676626776267862679626806268162682626836268462685626866268762688626896269062691626926269362694626956269662697626986269962700627016270262703627046270562706627076270862709627106271162712627136271462715627166271762718627196272062721627226272362724627256272662727627286272962730627316273262733627346273562736627376273862739627406274162742627436274462745627466274762748627496275062751627526275362754627556275662757627586275962760627616276262763627646276562766627676276862769627706277162772627736277462775627766277762778627796278062781627826278362784627856278662787627886278962790627916279262793627946279562796627976279862799628006280162802628036280462805628066280762808628096281062811628126281362814628156281662817628186281962820628216282262823628246282562826628276282862829628306283162832628336283462835628366283762838628396284062841628426284362844628456284662847628486284962850628516285262853628546285562856628576285862859628606286162862628636286462865628666286762868628696287062871628726287362874628756287662877628786287962880628816288262883628846288562886628876288862889628906289162892628936289462895628966289762898628996290062901629026290362904629056290662907629086290962910629116291262913629146291562916629176291862919629206292162922629236292462925629266292762928629296293062931629326293362934629356293662937629386293962940629416294262943629446294562946629476294862949629506295162952629536295462955629566295762958629596296062961629626296362964629656296662967629686296962970629716297262973629746297562976629776297862979629806298162982629836298462985629866298762988629896299062991629926299362994629956299662997629986299963000630016300263003630046300563006630076300863009630106301163012630136301463015630166301763018630196302063021630226302363024630256302663027630286302963030630316303263033630346303563036630376303863039630406304163042630436304463045630466304763048630496305063051630526305363054630556305663057630586305963060630616306263063630646306563066630676306863069630706307163072630736307463075630766307763078630796308063081630826308363084630856308663087630886308963090630916309263093630946309563096630976309863099631006310163102631036310463105631066310763108631096311063111631126311363114631156311663117631186311963120631216312263123631246312563126631276312863129631306313163132631336313463135631366313763138631396314063141631426314363144631456314663147631486314963150631516315263153631546315563156631576315863159631606316163162631636316463165631666316763168631696317063171631726317363174631756317663177631786317963180631816318263183631846318563186631876318863189631906319163192631936319463195631966319763198631996320063201632026320363204632056320663207632086320963210632116321263213632146321563216632176321863219632206322163222632236322463225632266322763228632296323063231632326323363234632356323663237632386323963240632416324263243632446324563246632476324863249632506325163252632536325463255632566325763258632596326063261632626326363264632656326663267632686326963270632716327263273632746327563276632776327863279632806328163282632836328463285632866328763288632896329063291632926329363294632956329663297632986329963300633016330263303633046330563306633076330863309633106331163312633136331463315633166331763318633196332063321633226332363324633256332663327633286332963330633316333263333633346333563336633376333863339633406334163342633436334463345633466334763348633496335063351633526335363354633556335663357633586335963360633616336263363633646336563366633676336863369633706337163372633736337463375633766337763378633796338063381633826338363384633856338663387633886338963390633916339263393633946339563396633976339863399634006340163402634036340463405634066340763408634096341063411634126341363414634156341663417634186341963420634216342263423634246342563426634276342863429634306343163432634336343463435634366343763438634396344063441634426344363444634456344663447634486344963450634516345263453634546345563456634576345863459634606346163462634636346463465634666346763468634696347063471634726347363474634756347663477634786347963480634816348263483634846348563486634876348863489634906349163492634936349463495634966349763498634996350063501635026350363504635056350663507635086350963510635116351263513635146351563516635176351863519635206352163522635236352463525635266352763528635296353063531635326353363534635356353663537635386353963540635416354263543635446354563546635476354863549635506355163552635536355463555635566355763558635596356063561635626356363564635656356663567635686356963570635716357263573635746357563576635776357863579635806358163582635836358463585635866358763588635896359063591635926359363594635956359663597635986359963600636016360263603636046360563606636076360863609636106361163612636136361463615636166361763618636196362063621636226362363624636256362663627636286362963630636316363263633636346363563636636376363863639636406364163642636436364463645636466364763648636496365063651636526365363654636556365663657636586365963660636616366263663636646366563666636676366863669636706367163672636736367463675636766367763678636796368063681636826368363684636856368663687636886368963690636916369263693636946369563696636976369863699637006370163702637036370463705637066370763708637096371063711637126371363714637156371663717637186371963720637216372263723637246372563726637276372863729637306373163732637336373463735637366373763738637396374063741637426374363744637456374663747637486374963750637516375263753637546375563756637576375863759637606376163762637636376463765637666376763768637696377063771637726377363774637756377663777637786377963780637816378263783637846378563786637876378863789637906379163792637936379463795637966379763798637996380063801638026380363804638056380663807638086380963810638116381263813638146381563816638176381863819638206382163822638236382463825638266382763828638296383063831638326383363834638356383663837638386383963840638416384263843638446384563846638476384863849638506385163852638536385463855638566385763858638596386063861638626386363864638656386663867638686386963870638716387263873638746387563876638776387863879638806388163882638836388463885638866388763888638896389063891638926389363894638956389663897638986389963900639016390263903639046390563906639076390863909639106391163912639136391463915639166391763918639196392063921639226392363924639256392663927639286392963930639316393263933639346393563936639376393863939639406394163942639436394463945639466394763948639496395063951639526395363954639556395663957639586395963960639616396263963639646396563966639676396863969639706397163972639736397463975639766397763978639796398063981639826398363984639856398663987639886398963990639916399263993639946399563996639976399863999640006400164002640036400464005640066400764008640096401064011640126401364014640156401664017640186401964020640216402264023640246402564026640276402864029640306403164032640336403464035640366403764038640396404064041640426404364044640456404664047640486404964050640516405264053640546405564056640576405864059640606406164062640636406464065640666406764068640696407064071640726407364074640756407664077640786407964080640816408264083640846408564086640876408864089640906409164092640936409464095640966409764098640996410064101641026410364104641056410664107641086410964110641116411264113641146411564116641176411864119641206412164122641236412464125641266412764128641296413064131641326413364134641356413664137641386413964140641416414264143641446414564146641476414864149641506415164152641536415464155641566415764158641596416064161641626416364164641656416664167641686416964170641716417264173641746417564176641776417864179641806418164182641836418464185641866418764188641896419064191641926419364194641956419664197641986419964200642016420264203642046420564206642076420864209642106421164212642136421464215642166421764218642196422064221642226422364224642256422664227642286422964230642316423264233642346423564236642376423864239642406424164242642436424464245642466424764248642496425064251642526425364254642556425664257642586425964260642616426264263642646426564266642676426864269642706427164272642736427464275642766427764278642796428064281642826428364284642856428664287642886428964290642916429264293642946429564296642976429864299643006430164302643036430464305643066430764308643096431064311643126431364314643156431664317643186431964320643216432264323643246432564326643276432864329643306433164332643336433464335643366433764338643396434064341643426434364344643456434664347643486434964350643516435264353643546435564356643576435864359643606436164362643636436464365643666436764368643696437064371643726437364374643756437664377643786437964380643816438264383643846438564386643876438864389643906439164392643936439464395643966439764398643996440064401644026440364404644056440664407644086440964410644116441264413644146441564416644176441864419644206442164422644236442464425644266442764428644296443064431644326443364434644356443664437644386443964440644416444264443644446444564446644476444864449644506445164452644536445464455644566445764458644596446064461644626446364464644656446664467644686446964470644716447264473644746447564476644776447864479644806448164482644836448464485644866448764488644896449064491644926449364494644956449664497644986449964500645016450264503645046450564506645076450864509645106451164512645136451464515645166451764518645196452064521645226452364524645256452664527645286452964530645316453264533645346453564536645376453864539645406454164542645436454464545645466454764548645496455064551645526455364554645556455664557645586455964560645616456264563645646456564566645676456864569645706457164572645736457464575645766457764578645796458064581645826458364584645856458664587645886458964590645916459264593645946459564596645976459864599646006460164602646036460464605646066460764608646096461064611646126461364614646156461664617646186461964620646216462264623646246462564626646276462864629646306463164632646336463464635646366463764638646396464064641646426464364644646456464664647646486464964650646516465264653646546465564656646576465864659646606466164662646636466464665646666466764668646696467064671646726467364674646756467664677646786467964680646816468264683646846468564686646876468864689646906469164692646936469464695646966469764698646996470064701647026470364704647056470664707647086470964710647116471264713647146471564716647176471864719647206472164722647236472464725647266472764728647296473064731647326473364734647356473664737647386473964740647416474264743647446474564746647476474864749647506475164752647536475464755647566475764758647596476064761647626476364764647656476664767647686476964770647716477264773647746477564776647776477864779647806478164782647836478464785647866478764788647896479064791647926479364794647956479664797647986479964800648016480264803648046480564806648076480864809648106481164812648136481464815648166481764818648196482064821648226482364824648256482664827648286482964830648316483264833648346483564836648376483864839648406484164842648436484464845648466484764848648496485064851648526485364854648556485664857648586485964860648616486264863648646486564866648676486864869648706487164872648736487464875648766487764878648796488064881648826488364884648856488664887648886488964890648916489264893648946489564896648976489864899649006490164902649036490464905649066490764908649096491064911649126491364914649156491664917649186491964920649216492264923649246492564926649276492864929649306493164932649336493464935649366493764938649396494064941649426494364944649456494664947649486494964950649516495264953649546495564956649576495864959649606496164962649636496464965649666496764968649696497064971649726497364974649756497664977649786497964980649816498264983649846498564986649876498864989649906499164992649936499464995649966499764998649996500065001650026500365004650056500665007650086500965010650116501265013650146501565016650176501865019650206502165022650236502465025650266502765028650296503065031650326503365034650356503665037650386503965040650416504265043650446504565046650476504865049650506505165052650536505465055650566505765058650596506065061650626506365064650656506665067650686506965070650716507265073650746507565076650776507865079650806508165082650836508465085650866508765088650896509065091650926509365094650956509665097650986509965100651016510265103651046510565106651076510865109651106511165112651136511465115651166511765118651196512065121651226512365124651256512665127651286512965130651316513265133651346513565136651376513865139651406514165142651436514465145651466514765148651496515065151651526515365154651556515665157651586515965160651616516265163651646516565166651676516865169651706517165172651736517465175651766517765178651796518065181651826518365184651856518665187651886518965190651916519265193651946519565196651976519865199652006520165202652036520465205652066520765208652096521065211652126521365214652156521665217652186521965220652216522265223652246522565226652276522865229652306523165232652336523465235652366523765238652396524065241652426524365244652456524665247652486524965250652516525265253652546525565256652576525865259652606526165262652636526465265652666526765268652696527065271652726527365274652756527665277652786527965280652816528265283652846528565286652876528865289652906529165292652936529465295652966529765298652996530065301653026530365304653056530665307653086530965310653116531265313653146531565316653176531865319653206532165322653236532465325653266532765328653296533065331653326533365334653356533665337653386533965340653416534265343653446534565346653476534865349653506535165352653536535465355653566535765358653596536065361653626536365364653656536665367653686536965370653716537265373653746537565376653776537865379653806538165382653836538465385653866538765388653896539065391653926539365394653956539665397653986539965400654016540265403654046540565406654076540865409654106541165412654136541465415654166541765418654196542065421654226542365424654256542665427654286542965430654316543265433654346543565436654376543865439654406544165442654436544465445654466544765448654496545065451654526545365454654556545665457654586545965460654616546265463654646546565466654676546865469654706547165472654736547465475654766547765478654796548065481654826548365484654856548665487654886548965490654916549265493654946549565496654976549865499655006550165502655036550465505655066550765508655096551065511655126551365514655156551665517655186551965520655216552265523655246552565526655276552865529655306553165532655336553465535655366553765538655396554065541655426554365544655456554665547655486554965550655516555265553655546555565556655576555865559655606556165562655636556465565655666556765568655696557065571655726557365574655756557665577655786557965580655816558265583655846558565586655876558865589655906559165592655936559465595655966559765598655996560065601656026560365604656056560665607656086560965610656116561265613656146561565616656176561865619656206562165622656236562465625656266562765628656296563065631656326563365634656356563665637656386563965640656416564265643656446564565646656476564865649656506565165652656536565465655656566565765658656596566065661656626566365664656656566665667656686566965670656716567265673656746567565676656776567865679656806568165682656836568465685656866568765688656896569065691656926569365694656956569665697656986569965700657016570265703657046570565706657076570865709657106571165712657136571465715657166571765718657196572065721657226572365724657256572665727657286572965730657316573265733657346573565736657376573865739657406574165742657436574465745657466574765748657496575065751657526575365754657556575665757657586575965760657616576265763657646576565766657676576865769657706577165772657736577465775657766577765778657796578065781657826578365784657856578665787657886578965790657916579265793657946579565796657976579865799658006580165802658036580465805658066580765808658096581065811658126581365814658156581665817658186581965820658216582265823658246582565826658276582865829658306583165832658336583465835658366583765838658396584065841658426584365844658456584665847658486584965850658516585265853658546585565856658576585865859658606586165862658636586465865658666586765868658696587065871658726587365874658756587665877658786587965880658816588265883658846588565886658876588865889658906589165892658936589465895658966589765898658996590065901659026590365904659056590665907659086590965910659116591265913659146591565916659176591865919659206592165922659236592465925659266592765928659296593065931659326593365934659356593665937659386593965940659416594265943659446594565946659476594865949659506595165952659536595465955659566595765958659596596065961659626596365964659656596665967659686596965970659716597265973659746597565976659776597865979659806598165982659836598465985659866598765988659896599065991659926599365994659956599665997659986599966000660016600266003660046600566006660076600866009660106601166012660136601466015660166601766018660196602066021660226602366024660256602666027660286602966030660316603266033660346603566036660376603866039660406604166042660436604466045660466604766048660496605066051660526605366054660556605666057660586605966060660616606266063660646606566066660676606866069660706607166072660736607466075660766607766078660796608066081660826608366084660856608666087660886608966090660916609266093660946609566096660976609866099661006610166102661036610466105661066610766108661096611066111661126611366114661156611666117661186611966120661216612266123661246612566126661276612866129661306613166132661336613466135661366613766138661396614066141661426614366144661456614666147661486614966150661516615266153661546615566156661576615866159661606616166162661636616466165661666616766168661696617066171661726617366174661756617666177661786617966180661816618266183661846618566186661876618866189661906619166192661936619466195661966619766198661996620066201662026620366204662056620666207662086620966210662116621266213662146621566216662176621866219662206622166222662236622466225662266622766228662296623066231662326623366234662356623666237662386623966240662416624266243662446624566246662476624866249662506625166252662536625466255662566625766258662596626066261662626626366264662656626666267662686626966270662716627266273662746627566276662776627866279662806628166282662836628466285662866628766288662896629066291662926629366294662956629666297662986629966300663016630266303663046630566306663076630866309663106631166312663136631466315663166631766318663196632066321663226632366324663256632666327663286632966330663316633266333663346633566336663376633866339663406634166342663436634466345663466634766348663496635066351663526635366354663556635666357663586635966360663616636266363663646636566366663676636866369663706637166372663736637466375663766637766378663796638066381663826638366384663856638666387663886638966390663916639266393663946639566396663976639866399664006640166402664036640466405664066640766408664096641066411664126641366414664156641666417664186641966420664216642266423664246642566426664276642866429664306643166432664336643466435664366643766438664396644066441664426644366444664456644666447664486644966450664516645266453664546645566456664576645866459664606646166462664636646466465664666646766468664696647066471664726647366474664756647666477664786647966480664816648266483664846648566486664876648866489664906649166492664936649466495664966649766498664996650066501665026650366504665056650666507665086650966510665116651266513665146651566516665176651866519665206652166522665236652466525665266652766528665296653066531665326653366534665356653666537665386653966540665416654266543665446654566546665476654866549665506655166552665536655466555665566655766558665596656066561665626656366564665656656666567665686656966570665716657266573665746657566576665776657866579665806658166582665836658466585665866658766588665896659066591665926659366594665956659666597665986659966600666016660266603666046660566606666076660866609666106661166612666136661466615666166661766618666196662066621666226662366624666256662666627666286662966630666316663266633666346663566636666376663866639666406664166642666436664466645666466664766648666496665066651666526665366654666556665666657666586665966660666616666266663666646666566666666676666866669666706667166672666736667466675666766667766678666796668066681666826668366684666856668666687666886668966690666916669266693666946669566696666976669866699667006670166702667036670466705667066670766708667096671066711667126671366714667156671666717667186671966720667216672266723667246672566726667276672866729667306673166732667336673466735667366673766738667396674066741667426674366744667456674666747667486674966750667516675266753667546675566756667576675866759667606676166762667636676466765667666676766768667696677066771667726677366774667756677666777667786677966780667816678266783667846678566786667876678866789667906679166792667936679466795667966679766798667996680066801668026680366804668056680666807668086680966810668116681266813668146681566816668176681866819668206682166822668236682466825668266682766828668296683066831668326683366834668356683666837668386683966840668416684266843668446684566846668476684866849668506685166852668536685466855668566685766858668596686066861668626686366864668656686666867668686686966870668716687266873668746687566876668776687866879668806688166882668836688466885668866688766888668896689066891668926689366894668956689666897668986689966900669016690266903669046690566906669076690866909669106691166912669136691466915669166691766918669196692066921669226692366924669256692666927669286692966930669316693266933669346693566936669376693866939669406694166942669436694466945669466694766948669496695066951669526695366954669556695666957669586695966960669616696266963669646696566966669676696866969669706697166972669736697466975669766697766978669796698066981669826698366984669856698666987669886698966990669916699266993669946699566996669976699866999670006700167002670036700467005670066700767008670096701067011670126701367014670156701667017670186701967020670216702267023670246702567026670276702867029670306703167032670336703467035670366703767038670396704067041670426704367044670456704667047670486704967050670516705267053670546705567056670576705867059670606706167062670636706467065670666706767068670696707067071670726707367074670756707667077670786707967080670816708267083670846708567086670876708867089670906709167092670936709467095670966709767098670996710067101671026710367104671056710667107671086710967110671116711267113671146711567116671176711867119671206712167122671236712467125671266712767128671296713067131671326713367134671356713667137671386713967140671416714267143671446714567146671476714867149671506715167152671536715467155671566715767158671596716067161671626716367164671656716667167671686716967170671716717267173671746717567176671776717867179671806718167182671836718467185671866718767188671896719067191671926719367194671956719667197671986719967200672016720267203672046720567206672076720867209672106721167212672136721467215672166721767218672196722067221672226722367224672256722667227672286722967230672316723267233672346723567236672376723867239672406724167242672436724467245672466724767248672496725067251672526725367254672556725667257672586725967260672616726267263672646726567266672676726867269672706727167272672736727467275672766727767278672796728067281672826728367284672856728667287672886728967290672916729267293672946729567296672976729867299673006730167302673036730467305673066730767308673096731067311673126731367314673156731667317673186731967320673216732267323673246732567326673276732867329673306733167332673336733467335673366733767338673396734067341673426734367344673456734667347673486734967350673516735267353673546735567356673576735867359673606736167362673636736467365673666736767368673696737067371673726737367374673756737667377673786737967380673816738267383673846738567386673876738867389673906739167392673936739467395673966739767398673996740067401674026740367404674056740667407674086740967410674116741267413674146741567416674176741867419674206742167422674236742467425674266742767428674296743067431674326743367434674356743667437674386743967440674416744267443674446744567446674476744867449674506745167452674536745467455674566745767458674596746067461674626746367464674656746667467674686746967470674716747267473674746747567476674776747867479674806748167482674836748467485674866748767488674896749067491674926749367494674956749667497674986749967500675016750267503675046750567506675076750867509675106751167512675136751467515675166751767518675196752067521675226752367524675256752667527675286752967530675316753267533675346753567536675376753867539675406754167542675436754467545675466754767548675496755067551675526755367554675556755667557675586755967560675616756267563675646756567566675676756867569675706757167572675736757467575675766757767578675796758067581675826758367584675856758667587675886758967590675916759267593675946759567596675976759867599676006760167602676036760467605676066760767608676096761067611676126761367614676156761667617676186761967620676216762267623676246762567626676276762867629676306763167632676336763467635676366763767638676396764067641676426764367644676456764667647676486764967650676516765267653676546765567656676576765867659676606766167662676636766467665676666766767668676696767067671676726767367674676756767667677676786767967680676816768267683676846768567686676876768867689676906769167692676936769467695676966769767698676996770067701677026770367704677056770667707677086770967710677116771267713677146771567716677176771867719677206772167722677236772467725677266772767728677296773067731677326773367734677356773667737677386773967740677416774267743677446774567746677476774867749677506775167752677536775467755677566775767758677596776067761677626776367764677656776667767677686776967770677716777267773677746777567776677776777867779677806778167782677836778467785677866778767788677896779067791677926779367794677956779667797677986779967800678016780267803678046780567806678076780867809678106781167812678136781467815678166781767818678196782067821678226782367824678256782667827678286782967830678316783267833678346783567836678376783867839678406784167842678436784467845678466784767848678496785067851678526785367854678556785667857678586785967860678616786267863678646786567866678676786867869678706787167872678736787467875678766787767878678796788067881678826788367884678856788667887678886788967890678916789267893678946789567896678976789867899679006790167902679036790467905679066790767908679096791067911679126791367914679156791667917679186791967920679216792267923679246792567926679276792867929679306793167932679336793467935679366793767938679396794067941679426794367944679456794667947679486794967950679516795267953679546795567956679576795867959679606796167962679636796467965679666796767968679696797067971679726797367974679756797667977679786797967980679816798267983679846798567986679876798867989679906799167992679936799467995679966799767998679996800068001680026800368004680056800668007680086800968010680116801268013680146801568016680176801868019680206802168022680236802468025680266802768028680296803068031680326803368034680356803668037680386803968040680416804268043680446804568046680476804868049680506805168052680536805468055680566805768058680596806068061680626806368064680656806668067680686806968070680716807268073680746807568076680776807868079680806808168082680836808468085680866808768088680896809068091680926809368094680956809668097680986809968100681016810268103681046810568106681076810868109681106811168112681136811468115681166811768118681196812068121681226812368124681256812668127681286812968130681316813268133681346813568136681376813868139681406814168142681436814468145681466814768148681496815068151681526815368154681556815668157681586815968160681616816268163681646816568166681676816868169681706817168172681736817468175681766817768178681796818068181681826818368184681856818668187681886818968190681916819268193681946819568196681976819868199682006820168202682036820468205682066820768208682096821068211682126821368214682156821668217682186821968220682216822268223682246822568226682276822868229682306823168232682336823468235682366823768238682396824068241682426824368244682456824668247682486824968250682516825268253682546825568256682576825868259682606826168262682636826468265682666826768268682696827068271682726827368274682756827668277682786827968280682816828268283682846828568286682876828868289682906829168292682936829468295682966829768298682996830068301683026830368304683056830668307683086830968310683116831268313683146831568316683176831868319683206832168322683236832468325683266832768328683296833068331683326833368334683356833668337683386833968340683416834268343683446834568346683476834868349683506835168352683536835468355683566835768358683596836068361683626836368364683656836668367683686836968370683716837268373683746837568376683776837868379683806838168382683836838468385683866838768388683896839068391683926839368394683956839668397683986839968400684016840268403684046840568406684076840868409684106841168412684136841468415684166841768418684196842068421684226842368424684256842668427684286842968430684316843268433684346843568436684376843868439684406844168442684436844468445684466844768448684496845068451684526845368454684556845668457684586845968460684616846268463684646846568466684676846868469684706847168472684736847468475684766847768478684796848068481684826848368484684856848668487684886848968490684916849268493684946849568496684976849868499685006850168502685036850468505685066850768508685096851068511685126851368514685156851668517685186851968520685216852268523685246852568526685276852868529685306853168532685336853468535685366853768538685396854068541685426854368544685456854668547685486854968550685516855268553685546855568556685576855868559685606856168562685636856468565685666856768568685696857068571685726857368574685756857668577685786857968580685816858268583685846858568586685876858868589685906859168592685936859468595685966859768598685996860068601686026860368604686056860668607686086860968610686116861268613686146861568616686176861868619686206862168622686236862468625686266862768628686296863068631686326863368634686356863668637686386863968640686416864268643686446864568646686476864868649686506865168652686536865468655686566865768658686596866068661686626866368664686656866668667686686866968670686716867268673686746867568676686776867868679686806868168682686836868468685686866868768688686896869068691686926869368694686956869668697686986869968700687016870268703687046870568706687076870868709687106871168712687136871468715687166871768718687196872068721687226872368724687256872668727687286872968730687316873268733687346873568736687376873868739687406874168742687436874468745687466874768748687496875068751687526875368754687556875668757687586875968760687616876268763687646876568766687676876868769687706877168772687736877468775687766877768778687796878068781687826878368784687856878668787687886878968790687916879268793687946879568796687976879868799688006880168802688036880468805688066880768808688096881068811688126881368814688156881668817688186881968820688216882268823688246882568826688276882868829688306883168832688336883468835688366883768838688396884068841688426884368844688456884668847688486884968850688516885268853688546885568856688576885868859688606886168862688636886468865688666886768868688696887068871688726887368874688756887668877688786887968880688816888268883688846888568886688876888868889688906889168892688936889468895688966889768898688996890068901689026890368904689056890668907689086890968910689116891268913689146891568916689176891868919689206892168922689236892468925689266892768928689296893068931689326893368934689356893668937689386893968940689416894268943689446894568946689476894868949689506895168952689536895468955689566895768958689596896068961689626896368964689656896668967689686896968970689716897268973689746897568976689776897868979689806898168982689836898468985689866898768988689896899068991689926899368994689956899668997689986899969000690016900269003690046900569006690076900869009690106901169012690136901469015690166901769018690196902069021690226902369024690256902669027690286902969030690316903269033690346903569036690376903869039690406904169042690436904469045690466904769048690496905069051690526905369054690556905669057690586905969060690616906269063690646906569066690676906869069690706907169072690736907469075690766907769078690796908069081690826908369084690856908669087690886908969090690916909269093690946909569096690976909869099691006910169102691036910469105691066910769108691096911069111691126911369114691156911669117691186911969120691216912269123691246912569126691276912869129691306913169132691336913469135691366913769138691396914069141691426914369144691456914669147691486914969150691516915269153691546915569156691576915869159691606916169162691636916469165691666916769168691696917069171691726917369174691756917669177691786917969180691816918269183691846918569186691876918869189691906919169192691936919469195691966919769198691996920069201692026920369204692056920669207692086920969210692116921269213692146921569216692176921869219692206922169222692236922469225692266922769228692296923069231692326923369234692356923669237692386923969240692416924269243692446924569246692476924869249692506925169252692536925469255692566925769258692596926069261692626926369264692656926669267692686926969270692716927269273692746927569276692776927869279692806928169282692836928469285692866928769288692896929069291692926929369294692956929669297692986929969300693016930269303693046930569306693076930869309693106931169312693136931469315693166931769318693196932069321693226932369324693256932669327693286932969330693316933269333693346933569336693376933869339693406934169342693436934469345693466934769348693496935069351693526935369354693556935669357693586935969360693616936269363693646936569366693676936869369693706937169372693736937469375693766937769378693796938069381693826938369384693856938669387693886938969390693916939269393693946939569396693976939869399694006940169402694036940469405694066940769408694096941069411694126941369414694156941669417694186941969420694216942269423694246942569426694276942869429694306943169432694336943469435694366943769438694396944069441694426944369444694456944669447694486944969450694516945269453694546945569456694576945869459694606946169462694636946469465694666946769468694696947069471694726947369474694756947669477694786947969480694816948269483694846948569486694876948869489694906949169492694936949469495694966949769498694996950069501695026950369504695056950669507695086950969510695116951269513695146951569516695176951869519695206952169522695236952469525695266952769528695296953069531695326953369534695356953669537695386953969540695416954269543695446954569546695476954869549695506955169552695536955469555695566955769558695596956069561695626956369564695656956669567695686956969570695716957269573695746957569576695776957869579695806958169582695836958469585695866958769588695896959069591695926959369594695956959669597695986959969600696016960269603696046960569606696076960869609696106961169612696136961469615696166961769618696196962069621696226962369624696256962669627696286962969630696316963269633696346963569636696376963869639696406964169642696436964469645696466964769648696496965069651696526965369654696556965669657696586965969660696616966269663696646966569666696676966869669696706967169672696736967469675696766967769678696796968069681696826968369684696856968669687696886968969690696916969269693696946969569696696976969869699697006970169702697036970469705697066970769708697096971069711697126971369714697156971669717697186971969720697216972269723697246972569726697276972869729697306973169732697336973469735697366973769738697396974069741697426974369744697456974669747697486974969750697516975269753697546975569756697576975869759697606976169762697636976469765697666976769768697696977069771697726977369774697756977669777697786977969780697816978269783697846978569786697876978869789697906979169792697936979469795697966979769798697996980069801698026980369804698056980669807698086980969810698116981269813698146981569816698176981869819698206982169822698236982469825698266982769828698296983069831698326983369834698356983669837698386983969840698416984269843698446984569846698476984869849698506985169852698536985469855698566985769858698596986069861698626986369864698656986669867698686986969870698716987269873698746987569876698776987869879698806988169882698836988469885698866988769888698896989069891698926989369894698956989669897698986989969900699016990269903699046990569906699076990869909699106991169912699136991469915699166991769918699196992069921699226992369924699256992669927699286992969930699316993269933699346993569936699376993869939699406994169942699436994469945699466994769948699496995069951699526995369954699556995669957699586995969960699616996269963699646996569966699676996869969699706997169972699736997469975699766997769978699796998069981699826998369984699856998669987699886998969990699916999269993699946999569996699976999869999700007000170002700037000470005700067000770008700097001070011700127001370014700157001670017700187001970020700217002270023700247002570026700277002870029700307003170032700337003470035700367003770038700397004070041700427004370044700457004670047700487004970050700517005270053700547005570056700577005870059700607006170062700637006470065700667006770068700697007070071700727007370074700757007670077700787007970080700817008270083700847008570086700877008870089700907009170092700937009470095700967009770098700997010070101701027010370104701057010670107701087010970110701117011270113701147011570116701177011870119701207012170122701237012470125701267012770128701297013070131701327013370134701357013670137701387013970140701417014270143701447014570146701477014870149701507015170152701537015470155701567015770158701597016070161701627016370164701657016670167701687016970170701717017270173701747017570176701777017870179701807018170182701837018470185701867018770188701897019070191701927019370194701957019670197701987019970200702017020270203702047020570206702077020870209702107021170212702137021470215702167021770218702197022070221702227022370224702257022670227702287022970230702317023270233702347023570236702377023870239702407024170242702437024470245702467024770248702497025070251702527025370254702557025670257702587025970260702617026270263702647026570266702677026870269702707027170272702737027470275702767027770278702797028070281702827028370284702857028670287702887028970290702917029270293702947029570296702977029870299703007030170302703037030470305703067030770308703097031070311703127031370314703157031670317703187031970320703217032270323703247032570326703277032870329703307033170332703337033470335703367033770338703397034070341703427034370344703457034670347703487034970350703517035270353703547035570356703577035870359703607036170362703637036470365703667036770368703697037070371703727037370374703757037670377703787037970380703817038270383703847038570386703877038870389703907039170392703937039470395703967039770398703997040070401704027040370404704057040670407704087040970410704117041270413704147041570416704177041870419704207042170422704237042470425704267042770428704297043070431704327043370434704357043670437704387043970440704417044270443704447044570446704477044870449704507045170452704537045470455704567045770458704597046070461704627046370464704657046670467704687046970470704717047270473704747047570476704777047870479704807048170482704837048470485704867048770488704897049070491704927049370494704957049670497704987049970500705017050270503705047050570506705077050870509705107051170512705137051470515705167051770518705197052070521705227052370524705257052670527705287052970530705317053270533705347053570536705377053870539705407054170542705437054470545705467054770548705497055070551705527055370554705557055670557705587055970560705617056270563705647056570566705677056870569705707057170572705737057470575705767057770578705797058070581705827058370584705857058670587705887058970590705917059270593705947059570596705977059870599706007060170602706037060470605706067060770608706097061070611706127061370614706157061670617706187061970620706217062270623706247062570626706277062870629706307063170632706337063470635706367063770638706397064070641706427064370644706457064670647706487064970650706517065270653706547065570656706577065870659706607066170662706637066470665706667066770668706697067070671706727067370674706757067670677706787067970680706817068270683706847068570686706877068870689706907069170692706937069470695706967069770698706997070070701707027070370704707057070670707707087070970710707117071270713707147071570716707177071870719707207072170722707237072470725707267072770728707297073070731707327073370734707357073670737707387073970740707417074270743707447074570746707477074870749707507075170752707537075470755707567075770758707597076070761707627076370764707657076670767707687076970770707717077270773707747077570776707777077870779707807078170782707837078470785707867078770788707897079070791707927079370794707957079670797707987079970800708017080270803708047080570806708077080870809708107081170812708137081470815708167081770818708197082070821708227082370824708257082670827708287082970830708317083270833708347083570836708377083870839708407084170842708437084470845708467084770848708497085070851708527085370854708557085670857708587085970860708617086270863708647086570866708677086870869708707087170872708737087470875708767087770878708797088070881708827088370884708857088670887708887088970890708917089270893708947089570896708977089870899709007090170902709037090470905709067090770908709097091070911709127091370914709157091670917709187091970920709217092270923709247092570926709277092870929709307093170932709337093470935709367093770938709397094070941709427094370944709457094670947709487094970950709517095270953709547095570956709577095870959709607096170962709637096470965709667096770968709697097070971709727097370974709757097670977709787097970980709817098270983709847098570986709877098870989709907099170992709937099470995709967099770998709997100071001710027100371004710057100671007710087100971010710117101271013710147101571016710177101871019710207102171022710237102471025710267102771028710297103071031710327103371034710357103671037710387103971040710417104271043710447104571046710477104871049710507105171052710537105471055710567105771058710597106071061710627106371064710657106671067710687106971070710717107271073710747107571076710777107871079710807108171082710837108471085710867108771088710897109071091710927109371094710957109671097710987109971100711017110271103711047110571106711077110871109711107111171112711137111471115711167111771118711197112071121711227112371124711257112671127711287112971130711317113271133711347113571136711377113871139711407114171142711437114471145711467114771148711497115071151711527115371154711557115671157711587115971160711617116271163711647116571166711677116871169711707117171172711737117471175711767117771178711797118071181711827118371184711857118671187711887118971190711917119271193711947119571196711977119871199712007120171202712037120471205712067120771208712097121071211712127121371214712157121671217712187121971220712217122271223712247122571226712277122871229712307123171232712337123471235712367123771238712397124071241712427124371244712457124671247712487124971250712517125271253712547125571256712577125871259712607126171262712637126471265712667126771268712697127071271712727127371274712757127671277712787127971280712817128271283712847128571286712877128871289712907129171292712937129471295712967129771298712997130071301713027130371304713057130671307713087130971310713117131271313713147131571316713177131871319713207132171322713237132471325713267132771328713297133071331713327133371334713357133671337713387133971340713417134271343713447134571346713477134871349713507135171352713537135471355713567135771358713597136071361713627136371364713657136671367713687136971370713717137271373713747137571376713777137871379713807138171382713837138471385713867138771388713897139071391713927139371394713957139671397713987139971400714017140271403714047140571406714077140871409714107141171412714137141471415714167141771418714197142071421714227142371424714257142671427714287142971430714317143271433714347143571436714377143871439714407144171442714437144471445714467144771448714497145071451714527145371454714557145671457714587145971460714617146271463714647146571466714677146871469714707147171472714737147471475714767147771478714797148071481714827148371484714857148671487714887148971490714917149271493714947149571496714977149871499715007150171502715037150471505715067150771508715097151071511715127151371514715157151671517715187151971520715217152271523715247152571526715277152871529715307153171532715337153471535715367153771538715397154071541715427154371544715457154671547715487154971550715517155271553715547155571556715577155871559715607156171562715637156471565715667156771568715697157071571715727157371574715757157671577715787157971580715817158271583715847158571586715877158871589715907159171592715937159471595715967159771598715997160071601716027160371604716057160671607716087160971610716117161271613716147161571616716177161871619716207162171622716237162471625716267162771628716297163071631716327163371634716357163671637716387163971640716417164271643716447164571646716477164871649716507165171652716537165471655716567165771658716597166071661716627166371664716657166671667716687166971670716717167271673716747167571676716777167871679716807168171682716837168471685716867168771688716897169071691716927169371694716957169671697716987169971700717017170271703717047170571706717077170871709717107171171712717137171471715717167171771718717197172071721717227172371724717257172671727717287172971730717317173271733717347173571736717377173871739717407174171742717437174471745717467174771748717497175071751717527175371754717557175671757717587175971760717617176271763717647176571766717677176871769717707177171772717737177471775717767177771778717797178071781717827178371784717857178671787717887178971790717917179271793717947179571796717977179871799718007180171802718037180471805718067180771808718097181071811718127181371814718157181671817718187181971820718217182271823718247182571826718277182871829718307183171832718337183471835718367183771838718397184071841718427184371844718457184671847718487184971850718517185271853718547185571856718577185871859718607186171862718637186471865718667186771868718697187071871718727187371874718757187671877718787187971880718817188271883718847188571886718877188871889718907189171892718937189471895718967189771898718997190071901719027190371904719057190671907719087190971910719117191271913719147191571916719177191871919719207192171922719237192471925719267192771928719297193071931719327193371934719357193671937719387193971940719417194271943719447194571946719477194871949719507195171952719537195471955719567195771958719597196071961719627196371964719657196671967719687196971970719717197271973719747197571976719777197871979719807198171982719837198471985719867198771988719897199071991719927199371994719957199671997719987199972000720017200272003720047200572006720077200872009720107201172012720137201472015720167201772018720197202072021720227202372024720257202672027720287202972030720317203272033720347203572036720377203872039720407204172042720437204472045720467204772048720497205072051720527205372054720557205672057720587205972060720617206272063720647206572066720677206872069720707207172072720737207472075720767207772078720797208072081720827208372084720857208672087720887208972090720917209272093720947209572096720977209872099721007210172102721037210472105721067210772108721097211072111721127211372114721157211672117721187211972120721217212272123721247212572126721277212872129721307213172132721337213472135721367213772138721397214072141721427214372144721457214672147721487214972150721517215272153721547215572156721577215872159721607216172162721637216472165721667216772168721697217072171721727217372174721757217672177721787217972180721817218272183721847218572186721877218872189721907219172192721937219472195721967219772198721997220072201722027220372204722057220672207722087220972210722117221272213722147221572216722177221872219722207222172222722237222472225722267222772228722297223072231722327223372234722357223672237722387223972240722417224272243722447224572246722477224872249722507225172252722537225472255722567225772258722597226072261722627226372264722657226672267722687226972270722717227272273722747227572276722777227872279722807228172282722837228472285722867228772288722897229072291722927229372294722957229672297722987229972300723017230272303723047230572306723077230872309723107231172312723137231472315723167231772318723197232072321723227232372324723257232672327723287232972330723317233272333723347233572336723377233872339723407234172342723437234472345723467234772348723497235072351723527235372354723557235672357723587235972360723617236272363723647236572366723677236872369723707237172372723737237472375723767237772378723797238072381723827238372384723857238672387723887238972390723917239272393723947239572396723977239872399724007240172402724037240472405724067240772408724097241072411724127241372414724157241672417724187241972420724217242272423724247242572426724277242872429724307243172432724337243472435724367243772438724397244072441724427244372444724457244672447724487244972450724517245272453724547245572456724577245872459724607246172462724637246472465724667246772468724697247072471724727247372474724757247672477724787247972480724817248272483724847248572486724877248872489724907249172492724937249472495724967249772498724997250072501725027250372504725057250672507725087250972510725117251272513725147251572516725177251872519725207252172522725237252472525725267252772528725297253072531725327253372534725357253672537725387253972540725417254272543725447254572546725477254872549725507255172552725537255472555725567255772558725597256072561725627256372564725657256672567725687256972570725717257272573725747257572576725777257872579725807258172582725837258472585725867258772588725897259072591725927259372594725957259672597725987259972600726017260272603726047260572606726077260872609726107261172612726137261472615726167261772618726197262072621726227262372624726257262672627726287262972630726317263272633726347263572636726377263872639726407264172642726437264472645726467264772648726497265072651726527265372654726557265672657726587265972660726617266272663726647266572666726677266872669726707267172672726737267472675726767267772678726797268072681726827268372684726857268672687726887268972690726917269272693726947269572696726977269872699727007270172702727037270472705727067270772708727097271072711727127271372714727157271672717727187271972720727217272272723727247272572726727277272872729727307273172732727337273472735727367273772738727397274072741727427274372744727457274672747727487274972750727517275272753727547275572756727577275872759727607276172762727637276472765727667276772768727697277072771727727277372774727757277672777727787277972780727817278272783727847278572786727877278872789727907279172792727937279472795727967279772798727997280072801728027280372804728057280672807728087280972810728117281272813728147281572816728177281872819728207282172822728237282472825728267282772828728297283072831728327283372834728357283672837728387283972840728417284272843728447284572846728477284872849728507285172852728537285472855728567285772858728597286072861728627286372864728657286672867728687286972870728717287272873728747287572876728777287872879728807288172882728837288472885728867288772888728897289072891728927289372894728957289672897728987289972900729017290272903729047290572906729077290872909729107291172912729137291472915729167291772918729197292072921729227292372924729257292672927729287292972930729317293272933729347293572936729377293872939729407294172942729437294472945729467294772948729497295072951729527295372954729557295672957729587295972960729617296272963729647296572966729677296872969729707297172972729737297472975729767297772978729797298072981729827298372984729857298672987729887298972990729917299272993729947299572996729977299872999730007300173002730037300473005730067300773008730097301073011730127301373014730157301673017730187301973020730217302273023730247302573026730277302873029730307303173032730337303473035730367303773038730397304073041730427304373044730457304673047730487304973050730517305273053730547305573056730577305873059730607306173062730637306473065730667306773068730697307073071730727307373074730757307673077730787307973080730817308273083730847308573086730877308873089730907309173092730937309473095730967309773098730997310073101731027310373104731057310673107731087310973110731117311273113731147311573116731177311873119731207312173122731237312473125731267312773128731297313073131731327313373134731357313673137731387313973140731417314273143731447314573146731477314873149731507315173152731537315473155731567315773158731597316073161731627316373164731657316673167731687316973170731717317273173731747317573176731777317873179731807318173182731837318473185731867318773188731897319073191731927319373194731957319673197731987319973200732017320273203732047320573206732077320873209732107321173212732137321473215732167321773218732197322073221732227322373224732257322673227732287322973230732317323273233732347323573236732377323873239732407324173242732437324473245732467324773248732497325073251732527325373254732557325673257732587325973260732617326273263732647326573266732677326873269732707327173272732737327473275732767327773278732797328073281732827328373284732857328673287732887328973290732917329273293732947329573296732977329873299733007330173302733037330473305733067330773308733097331073311733127331373314733157331673317733187331973320733217332273323733247332573326733277332873329733307333173332733337333473335733367333773338733397334073341733427334373344733457334673347733487334973350733517335273353733547335573356733577335873359733607336173362733637336473365733667336773368733697337073371733727337373374733757337673377733787337973380733817338273383733847338573386733877338873389733907339173392733937339473395733967339773398733997340073401734027340373404734057340673407734087340973410734117341273413734147341573416734177341873419734207342173422734237342473425734267342773428734297343073431734327343373434734357343673437734387343973440734417344273443734447344573446734477344873449734507345173452734537345473455734567345773458734597346073461734627346373464734657346673467734687346973470734717347273473734747347573476734777347873479734807348173482734837348473485734867348773488734897349073491734927349373494734957349673497734987349973500735017350273503735047350573506735077350873509735107351173512735137351473515735167351773518735197352073521735227352373524735257352673527735287352973530735317353273533735347353573536735377353873539735407354173542735437354473545735467354773548735497355073551735527355373554735557355673557735587355973560735617356273563735647356573566735677356873569735707357173572735737357473575735767357773578735797358073581735827358373584735857358673587735887358973590735917359273593735947359573596735977359873599736007360173602736037360473605736067360773608736097361073611736127361373614736157361673617736187361973620736217362273623736247362573626736277362873629736307363173632736337363473635736367363773638736397364073641736427364373644736457364673647736487364973650736517365273653736547365573656736577365873659736607366173662736637366473665736667366773668736697367073671736727367373674736757367673677736787367973680736817368273683736847368573686736877368873689736907369173692736937369473695736967369773698736997370073701737027370373704737057370673707737087370973710737117371273713737147371573716737177371873719737207372173722737237372473725737267372773728737297373073731737327373373734737357373673737737387373973740737417374273743737447374573746737477374873749737507375173752737537375473755737567375773758737597376073761737627376373764737657376673767737687376973770737717377273773737747377573776737777377873779737807378173782737837378473785737867378773788737897379073791737927379373794737957379673797737987379973800738017380273803738047380573806738077380873809738107381173812738137381473815738167381773818738197382073821738227382373824738257382673827738287382973830738317383273833738347383573836738377383873839738407384173842738437384473845738467384773848738497385073851738527385373854738557385673857738587385973860738617386273863738647386573866738677386873869738707387173872738737387473875738767387773878738797388073881738827388373884738857388673887738887388973890738917389273893738947389573896738977389873899739007390173902739037390473905739067390773908739097391073911739127391373914739157391673917739187391973920739217392273923739247392573926739277392873929739307393173932739337393473935739367393773938739397394073941739427394373944739457394673947739487394973950739517395273953739547395573956739577395873959739607396173962739637396473965739667396773968739697397073971739727397373974739757397673977739787397973980739817398273983739847398573986739877398873989739907399173992739937399473995739967399773998739997400074001740027400374004740057400674007740087400974010740117401274013740147401574016740177401874019740207402174022740237402474025740267402774028740297403074031740327403374034740357403674037740387403974040740417404274043740447404574046740477404874049740507405174052740537405474055740567405774058740597406074061740627406374064740657406674067740687406974070740717407274073740747407574076740777407874079740807408174082740837408474085740867408774088740897409074091740927409374094740957409674097740987409974100741017410274103741047410574106741077410874109741107411174112741137411474115741167411774118741197412074121741227412374124741257412674127741287412974130741317413274133741347413574136741377413874139741407414174142741437414474145741467414774148741497415074151741527415374154741557415674157741587415974160741617416274163741647416574166741677416874169741707417174172741737417474175741767417774178741797418074181741827418374184741857418674187741887418974190741917419274193741947419574196741977419874199742007420174202742037420474205742067420774208742097421074211742127421374214742157421674217742187421974220742217422274223742247422574226742277422874229742307423174232742337423474235742367423774238742397424074241742427424374244742457424674247742487424974250742517425274253742547425574256742577425874259742607426174262742637426474265742667426774268742697427074271742727427374274742757427674277742787427974280742817428274283742847428574286742877428874289742907429174292742937429474295742967429774298742997430074301743027430374304743057430674307743087430974310743117431274313743147431574316743177431874319743207432174322743237432474325743267432774328743297433074331743327433374334743357433674337743387433974340743417434274343743447434574346743477434874349743507435174352743537435474355743567435774358743597436074361743627436374364743657436674367743687436974370743717437274373743747437574376743777437874379743807438174382743837438474385743867438774388743897439074391743927439374394743957439674397743987439974400744017440274403744047440574406744077440874409744107441174412744137441474415744167441774418744197442074421744227442374424744257442674427744287442974430744317443274433744347443574436744377443874439744407444174442744437444474445744467444774448744497445074451744527445374454744557445674457744587445974460744617446274463744647446574466744677446874469744707447174472744737447474475744767447774478744797448074481744827448374484744857448674487744887448974490744917449274493744947449574496744977449874499745007450174502745037450474505745067450774508745097451074511745127451374514745157451674517745187451974520745217452274523745247452574526745277452874529745307453174532745337453474535745367453774538745397454074541745427454374544745457454674547745487454974550745517455274553745547455574556745577455874559745607456174562745637456474565745667456774568745697457074571745727457374574745757457674577745787457974580745817458274583745847458574586745877458874589745907459174592745937459474595745967459774598745997460074601746027460374604746057460674607746087460974610746117461274613746147461574616746177461874619746207462174622746237462474625746267462774628746297463074631746327463374634746357463674637746387463974640746417464274643746447464574646746477464874649746507465174652746537465474655746567465774658746597466074661746627466374664746657466674667746687466974670746717467274673746747467574676746777467874679746807468174682746837468474685746867468774688746897469074691746927469374694746957469674697746987469974700747017470274703747047470574706747077470874709747107471174712747137471474715747167471774718747197472074721747227472374724747257472674727747287472974730747317473274733747347473574736747377473874739747407474174742747437474474745747467474774748747497475074751747527475374754747557475674757747587475974760747617476274763747647476574766747677476874769747707477174772747737477474775747767477774778747797478074781747827478374784747857478674787747887478974790747917479274793747947479574796747977479874799748007480174802748037480474805748067480774808748097481074811748127481374814748157481674817748187481974820748217482274823748247482574826748277482874829748307483174832748337483474835748367483774838748397484074841748427484374844748457484674847748487484974850748517485274853748547485574856748577485874859748607486174862748637486474865748667486774868748697487074871748727487374874748757487674877748787487974880748817488274883748847488574886748877488874889748907489174892748937489474895748967489774898748997490074901749027490374904749057490674907749087490974910749117491274913749147491574916749177491874919749207492174922749237492474925749267492774928749297493074931749327493374934749357493674937749387493974940749417494274943749447494574946749477494874949749507495174952749537495474955749567495774958749597496074961749627496374964749657496674967749687496974970749717497274973749747497574976749777497874979749807498174982749837498474985749867498774988749897499074991749927499374994749957499674997749987499975000750017500275003750047500575006750077500875009750107501175012750137501475015750167501775018750197502075021750227502375024750257502675027750287502975030750317503275033750347503575036750377503875039750407504175042750437504475045750467504775048750497505075051750527505375054750557505675057750587505975060750617506275063750647506575066750677506875069750707507175072750737507475075750767507775078750797508075081750827508375084750857508675087750887508975090750917509275093750947509575096750977509875099751007510175102751037510475105751067510775108751097511075111751127511375114751157511675117751187511975120751217512275123751247512575126751277512875129751307513175132751337513475135751367513775138751397514075141751427514375144751457514675147751487514975150751517515275153751547515575156751577515875159751607516175162751637516475165751667516775168751697517075171751727517375174751757517675177751787517975180751817518275183751847518575186751877518875189751907519175192751937519475195751967519775198751997520075201752027520375204752057520675207752087520975210752117521275213752147521575216752177521875219752207522175222752237522475225752267522775228752297523075231752327523375234752357523675237752387523975240752417524275243752447524575246752477524875249752507525175252752537525475255752567525775258752597526075261752627526375264752657526675267752687526975270752717527275273752747527575276752777527875279752807528175282752837528475285752867528775288752897529075291752927529375294752957529675297752987529975300753017530275303753047530575306753077530875309753107531175312753137531475315753167531775318753197532075321753227532375324753257532675327753287532975330753317533275333753347533575336753377533875339753407534175342753437534475345753467534775348753497535075351753527535375354753557535675357753587535975360753617536275363753647536575366753677536875369753707537175372753737537475375753767537775378753797538075381753827538375384753857538675387753887538975390753917539275393753947539575396753977539875399754007540175402754037540475405754067540775408754097541075411754127541375414754157541675417754187541975420754217542275423754247542575426754277542875429754307543175432754337543475435754367543775438754397544075441754427544375444754457544675447754487544975450754517545275453754547545575456754577545875459754607546175462754637546475465754667546775468754697547075471754727547375474754757547675477754787547975480754817548275483754847548575486754877548875489754907549175492754937549475495754967549775498754997550075501755027550375504755057550675507755087550975510755117551275513755147551575516755177551875519755207552175522755237552475525755267552775528755297553075531755327553375534755357553675537755387553975540755417554275543755447554575546755477554875549755507555175552755537555475555755567555775558755597556075561755627556375564755657556675567755687556975570755717557275573755747557575576755777557875579755807558175582755837558475585755867558775588755897559075591755927559375594755957559675597755987559975600756017560275603756047560575606756077560875609756107561175612756137561475615756167561775618756197562075621756227562375624756257562675627756287562975630756317563275633756347563575636756377563875639756407564175642756437564475645756467564775648756497565075651756527565375654756557565675657756587565975660756617566275663756647566575666756677566875669756707567175672756737567475675756767567775678756797568075681756827568375684756857568675687756887568975690756917569275693756947569575696756977569875699757007570175702757037570475705757067570775708757097571075711757127571375714757157571675717757187571975720757217572275723757247572575726757277572875729757307573175732757337573475735757367573775738757397574075741757427574375744757457574675747757487574975750757517575275753757547575575756757577575875759757607576175762757637576475765757667576775768757697577075771757727577375774757757577675777757787577975780757817578275783757847578575786757877578875789757907579175792757937579475795757967579775798757997580075801758027580375804758057580675807758087580975810758117581275813758147581575816758177581875819758207582175822758237582475825758267582775828758297583075831758327583375834758357583675837758387583975840758417584275843758447584575846758477584875849758507585175852758537585475855758567585775858758597586075861758627586375864758657586675867758687586975870758717587275873758747587575876758777587875879758807588175882758837588475885758867588775888758897589075891758927589375894758957589675897758987589975900759017590275903759047590575906759077590875909759107591175912759137591475915759167591775918759197592075921759227592375924759257592675927759287592975930759317593275933759347593575936759377593875939759407594175942759437594475945759467594775948759497595075951759527595375954759557595675957759587595975960759617596275963759647596575966759677596875969759707597175972759737597475975759767597775978759797598075981759827598375984759857598675987759887598975990759917599275993759947599575996759977599875999760007600176002760037600476005760067600776008760097601076011760127601376014760157601676017760187601976020760217602276023760247602576026760277602876029760307603176032760337603476035760367603776038760397604076041760427604376044760457604676047760487604976050760517605276053760547605576056760577605876059760607606176062760637606476065760667606776068760697607076071760727607376074760757607676077760787607976080760817608276083760847608576086760877608876089760907609176092760937609476095760967609776098760997610076101761027610376104761057610676107761087610976110761117611276113761147611576116761177611876119761207612176122761237612476125761267612776128761297613076131761327613376134761357613676137761387613976140761417614276143761447614576146761477614876149761507615176152761537615476155761567615776158761597616076161761627616376164761657616676167761687616976170761717617276173761747617576176761777617876179761807618176182761837618476185761867618776188761897619076191761927619376194761957619676197761987619976200762017620276203762047620576206762077620876209762107621176212762137621476215762167621776218762197622076221762227622376224762257622676227762287622976230762317623276233762347623576236762377623876239762407624176242762437624476245762467624776248762497625076251762527625376254762557625676257762587625976260762617626276263762647626576266762677626876269762707627176272762737627476275762767627776278762797628076281762827628376284762857628676287762887628976290762917629276293762947629576296762977629876299763007630176302763037630476305763067630776308763097631076311763127631376314763157631676317763187631976320763217632276323763247632576326763277632876329763307633176332763337633476335763367633776338763397634076341763427634376344763457634676347763487634976350763517635276353763547635576356763577635876359763607636176362763637636476365763667636776368763697637076371763727637376374763757637676377763787637976380763817638276383763847638576386763877638876389763907639176392763937639476395763967639776398763997640076401764027640376404764057640676407764087640976410764117641276413764147641576416764177641876419764207642176422764237642476425764267642776428764297643076431764327643376434764357643676437764387643976440764417644276443764447644576446764477644876449764507645176452764537645476455764567645776458764597646076461764627646376464764657646676467764687646976470764717647276473764747647576476764777647876479764807648176482764837648476485764867648776488764897649076491764927649376494764957649676497764987649976500765017650276503765047650576506765077650876509765107651176512765137651476515765167651776518765197652076521765227652376524765257652676527765287652976530765317653276533765347653576536765377653876539765407654176542765437654476545765467654776548765497655076551765527655376554765557655676557765587655976560765617656276563765647656576566765677656876569765707657176572765737657476575765767657776578765797658076581765827658376584765857658676587765887658976590765917659276593765947659576596765977659876599766007660176602766037660476605766067660776608766097661076611766127661376614766157661676617766187661976620766217662276623766247662576626766277662876629766307663176632766337663476635766367663776638766397664076641766427664376644766457664676647766487664976650766517665276653766547665576656766577665876659766607666176662766637666476665766667666776668766697667076671766727667376674766757667676677766787667976680766817668276683766847668576686766877668876689766907669176692766937669476695766967669776698766997670076701767027670376704767057670676707767087670976710767117671276713767147671576716767177671876719767207672176722767237672476725767267672776728767297673076731767327673376734767357673676737767387673976740767417674276743767447674576746767477674876749767507675176752767537675476755767567675776758767597676076761767627676376764767657676676767767687676976770767717677276773767747677576776767777677876779767807678176782767837678476785767867678776788767897679076791767927679376794767957679676797767987679976800768017680276803768047680576806768077680876809768107681176812768137681476815768167681776818768197682076821768227682376824768257682676827768287682976830768317683276833768347683576836768377683876839768407684176842768437684476845768467684776848768497685076851768527685376854768557685676857768587685976860768617686276863768647686576866768677686876869768707687176872768737687476875768767687776878768797688076881768827688376884768857688676887768887688976890768917689276893768947689576896768977689876899769007690176902769037690476905769067690776908769097691076911769127691376914769157691676917769187691976920769217692276923769247692576926769277692876929769307693176932769337693476935769367693776938769397694076941769427694376944769457694676947769487694976950769517695276953769547695576956769577695876959769607696176962769637696476965769667696776968769697697076971769727697376974769757697676977769787697976980769817698276983769847698576986769877698876989769907699176992769937699476995769967699776998769997700077001770027700377004770057700677007770087700977010770117701277013770147701577016770177701877019770207702177022770237702477025770267702777028770297703077031770327703377034770357703677037770387703977040770417704277043770447704577046770477704877049770507705177052770537705477055770567705777058770597706077061770627706377064770657706677067770687706977070770717707277073770747707577076770777707877079770807708177082770837708477085770867708777088770897709077091770927709377094770957709677097770987709977100771017710277103771047710577106771077710877109771107711177112771137711477115771167711777118771197712077121771227712377124771257712677127771287712977130771317713277133771347713577136771377713877139771407714177142771437714477145771467714777148771497715077151771527715377154771557715677157771587715977160771617716277163771647716577166771677716877169771707717177172771737717477175771767717777178771797718077181771827718377184771857718677187771887718977190771917719277193771947719577196771977719877199772007720177202772037720477205772067720777208772097721077211772127721377214772157721677217772187721977220772217722277223772247722577226772277722877229772307723177232772337723477235772367723777238772397724077241772427724377244772457724677247772487724977250772517725277253772547725577256772577725877259772607726177262772637726477265772667726777268772697727077271772727727377274772757727677277772787727977280772817728277283772847728577286772877728877289772907729177292772937729477295772967729777298772997730077301773027730377304773057730677307773087730977310773117731277313773147731577316773177731877319773207732177322773237732477325773267732777328773297733077331773327733377334773357733677337773387733977340773417734277343773447734577346773477734877349773507735177352773537735477355773567735777358773597736077361773627736377364773657736677367773687736977370773717737277373773747737577376773777737877379773807738177382773837738477385773867738777388773897739077391773927739377394773957739677397773987739977400774017740277403774047740577406774077740877409774107741177412774137741477415774167741777418774197742077421774227742377424774257742677427774287742977430774317743277433774347743577436774377743877439774407744177442774437744477445774467744777448774497745077451774527745377454774557745677457774587745977460774617746277463774647746577466774677746877469774707747177472774737747477475774767747777478774797748077481774827748377484774857748677487774887748977490774917749277493774947749577496774977749877499775007750177502775037750477505775067750777508775097751077511775127751377514775157751677517775187751977520775217752277523775247752577526775277752877529775307753177532775337753477535775367753777538775397754077541775427754377544775457754677547775487754977550775517755277553775547755577556775577755877559775607756177562775637756477565775667756777568775697757077571775727757377574775757757677577775787757977580775817758277583775847758577586775877758877589775907759177592775937759477595775967759777598775997760077601776027760377604776057760677607776087760977610776117761277613776147761577616776177761877619776207762177622776237762477625776267762777628776297763077631776327763377634776357763677637776387763977640776417764277643776447764577646776477764877649776507765177652776537765477655776567765777658776597766077661776627766377664776657766677667776687766977670776717767277673776747767577676776777767877679776807768177682776837768477685776867768777688776897769077691776927769377694776957769677697776987769977700777017770277703777047770577706777077770877709777107771177712777137771477715777167771777718777197772077721777227772377724777257772677727777287772977730777317773277733777347773577736777377773877739777407774177742777437774477745777467774777748777497775077751777527775377754777557775677757777587775977760777617776277763777647776577766777677776877769777707777177772777737777477775777767777777778777797778077781777827778377784777857778677787777887778977790777917779277793777947779577796777977779877799778007780177802778037780477805778067780777808778097781077811778127781377814778157781677817778187781977820778217782277823778247782577826778277782877829778307783177832778337783477835778367783777838778397784077841778427784377844778457784677847778487784977850778517785277853778547785577856778577785877859778607786177862778637786477865778667786777868778697787077871778727787377874778757787677877778787787977880778817788277883778847788577886778877788877889778907789177892778937789477895778967789777898778997790077901779027790377904779057790677907779087790977910779117791277913779147791577916779177791877919779207792177922779237792477925779267792777928779297793077931779327793377934779357793677937779387793977940779417794277943779447794577946779477794877949779507795177952779537795477955779567795777958779597796077961779627796377964779657796677967779687796977970779717797277973779747797577976779777797877979779807798177982779837798477985779867798777988779897799077991779927799377994779957799677997779987799978000780017800278003780047800578006780077800878009780107801178012780137801478015780167801778018780197802078021780227802378024780257802678027780287802978030780317803278033780347803578036780377803878039780407804178042780437804478045780467804778048780497805078051780527805378054780557805678057780587805978060780617806278063780647806578066780677806878069780707807178072780737807478075780767807778078780797808078081780827808378084780857808678087780887808978090780917809278093780947809578096780977809878099781007810178102781037810478105781067810778108781097811078111781127811378114781157811678117781187811978120781217812278123781247812578126781277812878129781307813178132781337813478135781367813778138781397814078141781427814378144781457814678147781487814978150781517815278153781547815578156781577815878159781607816178162781637816478165781667816778168781697817078171781727817378174781757817678177781787817978180781817818278183781847818578186781877818878189781907819178192781937819478195781967819778198781997820078201782027820378204782057820678207782087820978210782117821278213782147821578216782177821878219782207822178222782237822478225782267822778228782297823078231782327823378234782357823678237782387823978240782417824278243782447824578246782477824878249782507825178252782537825478255782567825778258782597826078261782627826378264782657826678267782687826978270782717827278273782747827578276782777827878279782807828178282782837828478285782867828778288782897829078291782927829378294782957829678297782987829978300783017830278303783047830578306783077830878309783107831178312783137831478315783167831778318783197832078321783227832378324783257832678327783287832978330783317833278333783347833578336783377833878339783407834178342783437834478345783467834778348783497835078351783527835378354783557835678357783587835978360783617836278363783647836578366783677836878369783707837178372783737837478375783767837778378783797838078381783827838378384783857838678387783887838978390783917839278393783947839578396783977839878399784007840178402784037840478405784067840778408784097841078411784127841378414784157841678417784187841978420784217842278423784247842578426784277842878429784307843178432784337843478435784367843778438784397844078441784427844378444784457844678447784487844978450784517845278453784547845578456784577845878459784607846178462784637846478465784667846778468784697847078471784727847378474784757847678477784787847978480784817848278483784847848578486784877848878489784907849178492784937849478495784967849778498784997850078501785027850378504785057850678507785087850978510785117851278513785147851578516785177851878519785207852178522785237852478525785267852778528785297853078531785327853378534785357853678537785387853978540785417854278543785447854578546785477854878549785507855178552785537855478555785567855778558785597856078561785627856378564785657856678567785687856978570785717857278573785747857578576785777857878579785807858178582785837858478585785867858778588785897859078591785927859378594785957859678597785987859978600786017860278603786047860578606786077860878609786107861178612786137861478615786167861778618786197862078621786227862378624786257862678627786287862978630786317863278633786347863578636786377863878639786407864178642786437864478645786467864778648786497865078651786527865378654786557865678657786587865978660786617866278663786647866578666786677866878669786707867178672786737867478675786767867778678786797868078681786827868378684786857868678687786887868978690786917869278693786947869578696786977869878699787007870178702787037870478705787067870778708787097871078711787127871378714787157871678717787187871978720787217872278723787247872578726787277872878729787307873178732787337873478735787367873778738787397874078741787427874378744787457874678747787487874978750787517875278753787547875578756787577875878759787607876178762787637876478765787667876778768787697877078771787727877378774787757877678777787787877978780787817878278783787847878578786787877878878789787907879178792787937879478795787967879778798787997880078801788027880378804788057880678807788087880978810788117881278813788147881578816788177881878819788207882178822788237882478825788267882778828788297883078831788327883378834788357883678837788387883978840788417884278843788447884578846788477884878849788507885178852788537885478855788567885778858788597886078861788627886378864788657886678867788687886978870788717887278873788747887578876788777887878879788807888178882788837888478885788867888778888788897889078891788927889378894788957889678897788987889978900789017890278903789047890578906789077890878909789107891178912789137891478915789167891778918789197892078921789227892378924789257892678927789287892978930789317893278933789347893578936789377893878939789407894178942789437894478945789467894778948789497895078951789527895378954789557895678957789587895978960789617896278963789647896578966789677896878969789707897178972789737897478975789767897778978789797898078981789827898378984789857898678987789887898978990789917899278993789947899578996789977899878999790007900179002790037900479005790067900779008790097901079011790127901379014790157901679017790187901979020790217902279023790247902579026790277902879029790307903179032790337903479035790367903779038790397904079041790427904379044790457904679047790487904979050790517905279053790547905579056790577905879059790607906179062790637906479065790667906779068790697907079071790727907379074790757907679077790787907979080790817908279083790847908579086790877908879089790907909179092790937909479095790967909779098790997910079101791027910379104791057910679107791087910979110791117911279113791147911579116791177911879119791207912179122791237912479125791267912779128791297913079131791327913379134791357913679137791387913979140791417914279143791447914579146791477914879149791507915179152791537915479155791567915779158791597916079161791627916379164791657916679167791687916979170791717917279173791747917579176791777917879179791807918179182791837918479185791867918779188791897919079191791927919379194791957919679197791987919979200792017920279203792047920579206792077920879209792107921179212792137921479215792167921779218792197922079221792227922379224792257922679227792287922979230792317923279233792347923579236792377923879239792407924179242792437924479245792467924779248792497925079251792527925379254792557925679257792587925979260792617926279263792647926579266792677926879269792707927179272792737927479275792767927779278792797928079281792827928379284792857928679287792887928979290792917929279293792947929579296792977929879299793007930179302793037930479305793067930779308793097931079311793127931379314793157931679317793187931979320793217932279323793247932579326793277932879329793307933179332793337933479335793367933779338793397934079341793427934379344793457934679347793487934979350793517935279353793547935579356793577935879359793607936179362793637936479365793667936779368793697937079371793727937379374793757937679377793787937979380793817938279383793847938579386793877938879389793907939179392793937939479395793967939779398793997940079401794027940379404794057940679407794087940979410794117941279413794147941579416794177941879419794207942179422794237942479425794267942779428794297943079431794327943379434794357943679437794387943979440794417944279443794447944579446794477944879449794507945179452794537945479455794567945779458794597946079461794627946379464794657946679467794687946979470794717947279473794747947579476794777947879479794807948179482794837948479485794867948779488794897949079491794927949379494794957949679497794987949979500795017950279503795047950579506795077950879509795107951179512795137951479515795167951779518795197952079521795227952379524795257952679527795287952979530795317953279533795347953579536795377953879539795407954179542795437954479545795467954779548795497955079551795527955379554795557955679557795587955979560795617956279563795647956579566795677956879569795707957179572795737957479575795767957779578795797958079581795827958379584795857958679587795887958979590795917959279593795947959579596795977959879599796007960179602796037960479605796067960779608796097961079611796127961379614796157961679617796187961979620796217962279623796247962579626796277962879629796307963179632796337963479635796367963779638796397964079641796427964379644796457964679647796487964979650796517965279653796547965579656796577965879659796607966179662796637966479665796667966779668796697967079671796727967379674796757967679677796787967979680796817968279683796847968579686796877968879689796907969179692796937969479695796967969779698796997970079701797027970379704797057970679707797087970979710797117971279713797147971579716797177971879719797207972179722797237972479725797267972779728797297973079731797327973379734797357973679737797387973979740797417974279743797447974579746797477974879749797507975179752797537975479755797567975779758797597976079761797627976379764797657976679767797687976979770797717977279773797747977579776797777977879779797807978179782797837978479785797867978779788797897979079791797927979379794797957979679797797987979979800798017980279803798047980579806798077980879809798107981179812798137981479815798167981779818798197982079821798227982379824798257982679827798287982979830798317983279833798347983579836798377983879839798407984179842798437984479845798467984779848798497985079851798527985379854798557985679857798587985979860798617986279863798647986579866798677986879869798707987179872798737987479875798767987779878798797988079881798827988379884798857988679887798887988979890798917989279893798947989579896798977989879899799007990179902799037990479905799067990779908799097991079911799127991379914799157991679917799187991979920799217992279923799247992579926799277992879929799307993179932799337993479935799367993779938799397994079941799427994379944799457994679947799487994979950799517995279953799547995579956799577995879959799607996179962799637996479965799667996779968799697997079971799727997379974799757997679977799787997979980799817998279983799847998579986799877998879989799907999179992799937999479995799967999779998799998000080001800028000380004800058000680007800088000980010800118001280013800148001580016800178001880019800208002180022800238002480025800268002780028800298003080031800328003380034800358003680037800388003980040800418004280043800448004580046800478004880049800508005180052800538005480055800568005780058800598006080061800628006380064800658006680067800688006980070800718007280073800748007580076800778007880079800808008180082800838008480085800868008780088800898009080091800928009380094800958009680097800988009980100801018010280103801048010580106801078010880109801108011180112801138011480115801168011780118801198012080121801228012380124801258012680127801288012980130801318013280133801348013580136801378013880139801408014180142801438014480145801468014780148801498015080151801528015380154801558015680157801588015980160801618016280163801648016580166801678016880169801708017180172801738017480175801768017780178801798018080181801828018380184801858018680187801888018980190801918019280193801948019580196801978019880199802008020180202802038020480205802068020780208802098021080211802128021380214802158021680217802188021980220802218022280223802248022580226802278022880229802308023180232802338023480235802368023780238802398024080241802428024380244802458024680247802488024980250802518025280253802548025580256802578025880259802608026180262802638026480265802668026780268802698027080271802728027380274802758027680277802788027980280802818028280283802848028580286802878028880289802908029180292802938029480295802968029780298802998030080301803028030380304803058030680307803088030980310803118031280313803148031580316803178031880319803208032180322803238032480325803268032780328803298033080331803328033380334803358033680337803388033980340803418034280343803448034580346803478034880349803508035180352803538035480355803568035780358803598036080361803628036380364803658036680367803688036980370803718037280373803748037580376803778037880379803808038180382803838038480385803868038780388803898039080391803928039380394803958039680397803988039980400804018040280403804048040580406804078040880409804108041180412804138041480415804168041780418804198042080421804228042380424804258042680427804288042980430804318043280433804348043580436804378043880439804408044180442804438044480445804468044780448804498045080451804528045380454804558045680457804588045980460804618046280463804648046580466804678046880469804708047180472804738047480475804768047780478804798048080481804828048380484804858048680487804888048980490804918049280493804948049580496804978049880499805008050180502805038050480505805068050780508805098051080511805128051380514805158051680517805188051980520805218052280523805248052580526805278052880529805308053180532805338053480535805368053780538805398054080541805428054380544805458054680547805488054980550805518055280553805548055580556805578055880559805608056180562805638056480565805668056780568805698057080571805728057380574805758057680577805788057980580805818058280583805848058580586805878058880589805908059180592805938059480595805968059780598805998060080601806028060380604806058060680607806088060980610806118061280613806148061580616806178061880619806208062180622806238062480625806268062780628806298063080631806328063380634806358063680637806388063980640806418064280643806448064580646806478064880649806508065180652806538065480655806568065780658806598066080661806628066380664806658066680667806688066980670806718067280673806748067580676806778067880679806808068180682806838068480685806868068780688806898069080691806928069380694806958069680697806988069980700807018070280703807048070580706807078070880709807108071180712807138071480715807168071780718807198072080721807228072380724807258072680727807288072980730807318073280733807348073580736807378073880739807408074180742807438074480745807468074780748807498075080751807528075380754807558075680757807588075980760807618076280763807648076580766807678076880769807708077180772807738077480775807768077780778807798078080781807828078380784807858078680787807888078980790807918079280793807948079580796807978079880799808008080180802808038080480805808068080780808808098081080811808128081380814808158081680817808188081980820808218082280823808248082580826808278082880829808308083180832808338083480835808368083780838808398084080841808428084380844808458084680847808488084980850808518085280853808548085580856808578085880859808608086180862808638086480865808668086780868808698087080871808728087380874808758087680877808788087980880808818088280883808848088580886808878088880889808908089180892808938089480895808968089780898808998090080901809028090380904809058090680907809088090980910809118091280913809148091580916809178091880919809208092180922809238092480925809268092780928809298093080931809328093380934809358093680937809388093980940809418094280943809448094580946809478094880949809508095180952809538095480955809568095780958809598096080961809628096380964809658096680967809688096980970809718097280973809748097580976809778097880979809808098180982809838098480985809868098780988809898099080991809928099380994809958099680997809988099981000810018100281003810048100581006810078100881009810108101181012810138101481015810168101781018810198102081021810228102381024810258102681027810288102981030810318103281033810348103581036810378103881039810408104181042810438104481045810468104781048810498105081051810528105381054810558105681057810588105981060810618106281063810648106581066810678106881069810708107181072810738107481075810768107781078810798108081081810828108381084810858108681087810888108981090810918109281093810948109581096810978109881099811008110181102811038110481105811068110781108811098111081111811128111381114811158111681117811188111981120811218112281123811248112581126811278112881129811308113181132811338113481135811368113781138811398114081141811428114381144811458114681147811488114981150811518115281153811548115581156811578115881159811608116181162811638116481165811668116781168811698117081171811728117381174811758117681177811788117981180811818118281183811848118581186811878118881189811908119181192811938119481195811968119781198811998120081201812028120381204812058120681207812088120981210812118121281213812148121581216812178121881219812208122181222812238122481225812268122781228812298123081231812328123381234812358123681237812388123981240812418124281243812448124581246812478124881249812508125181252812538125481255812568125781258812598126081261812628126381264812658126681267812688126981270812718127281273812748127581276812778127881279812808128181282812838128481285812868128781288812898129081291812928129381294812958129681297812988129981300813018130281303813048130581306813078130881309813108131181312813138131481315813168131781318813198132081321813228132381324813258132681327813288132981330813318133281333813348133581336813378133881339813408134181342813438134481345813468134781348813498135081351813528135381354813558135681357813588135981360813618136281363813648136581366813678136881369813708137181372813738137481375813768137781378813798138081381813828138381384813858138681387813888138981390813918139281393813948139581396813978139881399814008140181402814038140481405814068140781408814098141081411814128141381414814158141681417814188141981420814218142281423814248142581426814278142881429814308143181432814338143481435814368143781438814398144081441814428144381444814458144681447814488144981450814518145281453814548145581456814578145881459814608146181462814638146481465814668146781468814698147081471814728147381474814758147681477814788147981480814818148281483814848148581486814878148881489814908149181492814938149481495814968149781498814998150081501815028150381504815058150681507815088150981510815118151281513815148151581516815178151881519815208152181522815238152481525815268152781528815298153081531815328153381534815358153681537815388153981540815418154281543815448154581546815478154881549815508155181552815538155481555815568155781558815598156081561815628156381564815658156681567815688156981570815718157281573815748157581576815778157881579815808158181582815838158481585815868158781588815898159081591815928159381594815958159681597815988159981600816018160281603816048160581606816078160881609816108161181612816138161481615816168161781618816198162081621816228162381624816258162681627816288162981630816318163281633816348163581636816378163881639816408164181642816438164481645816468164781648816498165081651816528165381654816558165681657816588165981660816618166281663816648166581666816678166881669816708167181672816738167481675816768167781678816798168081681816828168381684816858168681687816888168981690816918169281693816948169581696816978169881699817008170181702817038170481705817068170781708817098171081711817128171381714817158171681717817188171981720817218172281723817248172581726817278172881729817308173181732817338173481735817368173781738817398174081741817428174381744817458174681747817488174981750817518175281753817548175581756817578175881759817608176181762817638176481765817668176781768817698177081771817728177381774817758177681777817788177981780817818178281783817848178581786817878178881789817908179181792817938179481795817968179781798817998180081801818028180381804818058180681807818088180981810818118181281813818148181581816818178181881819818208182181822818238182481825818268182781828818298183081831818328183381834818358183681837818388183981840818418184281843818448184581846818478184881849818508185181852818538185481855818568185781858818598186081861818628186381864818658186681867818688186981870818718187281873818748187581876818778187881879818808188181882818838188481885818868188781888818898189081891818928189381894818958189681897818988189981900819018190281903819048190581906819078190881909819108191181912819138191481915819168191781918819198192081921819228192381924819258192681927819288192981930819318193281933819348193581936819378193881939819408194181942819438194481945819468194781948819498195081951819528195381954819558195681957819588195981960819618196281963819648196581966819678196881969819708197181972819738197481975819768197781978819798198081981819828198381984819858198681987819888198981990819918199281993819948199581996819978199881999820008200182002820038200482005820068200782008820098201082011820128201382014820158201682017820188201982020820218202282023820248202582026820278202882029820308203182032820338203482035820368203782038820398204082041820428204382044820458204682047820488204982050820518205282053820548205582056820578205882059820608206182062820638206482065820668206782068820698207082071820728207382074820758207682077820788207982080820818208282083820848208582086820878208882089820908209182092820938209482095820968209782098820998210082101821028210382104821058210682107821088210982110821118211282113821148211582116821178211882119821208212182122821238212482125821268212782128821298213082131821328213382134821358213682137821388213982140821418214282143821448214582146821478214882149821508215182152821538215482155821568215782158821598216082161821628216382164821658216682167821688216982170821718217282173821748217582176821778217882179821808218182182821838218482185821868218782188821898219082191821928219382194821958219682197821988219982200822018220282203822048220582206822078220882209822108221182212822138221482215822168221782218822198222082221822228222382224822258222682227822288222982230822318223282233822348223582236822378223882239822408224182242822438224482245822468224782248822498225082251822528225382254822558225682257822588225982260822618226282263822648226582266822678226882269822708227182272822738227482275822768227782278822798228082281822828228382284822858228682287822888228982290822918229282293822948229582296822978229882299823008230182302823038230482305823068230782308823098231082311823128231382314823158231682317823188231982320823218232282323823248232582326823278232882329823308233182332823338233482335823368233782338823398234082341823428234382344823458234682347823488234982350823518235282353823548235582356823578235882359823608236182362823638236482365823668236782368823698237082371823728237382374823758237682377823788237982380823818238282383823848238582386823878238882389823908239182392823938239482395823968239782398823998240082401824028240382404824058240682407824088240982410824118241282413824148241582416824178241882419824208242182422824238242482425824268242782428824298243082431824328243382434824358243682437824388243982440824418244282443824448244582446824478244882449824508245182452824538245482455824568245782458824598246082461824628246382464824658246682467824688246982470824718247282473824748247582476824778247882479824808248182482824838248482485824868248782488824898249082491824928249382494824958249682497824988249982500825018250282503825048250582506825078250882509825108251182512825138251482515825168251782518825198252082521825228252382524825258252682527825288252982530825318253282533825348253582536825378253882539825408254182542825438254482545825468254782548825498255082551825528255382554825558255682557825588255982560825618256282563825648256582566825678256882569825708257182572825738257482575825768257782578825798258082581825828258382584825858258682587825888258982590825918259282593825948259582596825978259882599826008260182602826038260482605826068260782608826098261082611826128261382614826158261682617826188261982620826218262282623826248262582626826278262882629826308263182632826338263482635826368263782638826398264082641826428264382644826458264682647826488264982650826518265282653826548265582656826578265882659826608266182662826638266482665826668266782668826698267082671826728267382674826758267682677826788267982680826818268282683826848268582686826878268882689826908269182692826938269482695826968269782698826998270082701827028270382704827058270682707827088270982710827118271282713827148271582716827178271882719827208272182722827238272482725827268272782728827298273082731827328273382734827358273682737827388273982740827418274282743827448274582746827478274882749827508275182752827538275482755827568275782758827598276082761827628276382764827658276682767827688276982770827718277282773827748277582776827778277882779827808278182782827838278482785827868278782788827898279082791827928279382794827958279682797827988279982800828018280282803828048280582806828078280882809828108281182812828138281482815828168281782818828198282082821828228282382824828258282682827828288282982830828318283282833828348283582836828378283882839828408284182842828438284482845828468284782848828498285082851828528285382854828558285682857828588285982860828618286282863828648286582866828678286882869828708287182872828738287482875828768287782878828798288082881828828288382884828858288682887828888288982890828918289282893828948289582896828978289882899829008290182902829038290482905829068290782908829098291082911829128291382914829158291682917829188291982920829218292282923829248292582926829278292882929829308293182932829338293482935829368293782938829398294082941829428294382944829458294682947829488294982950829518295282953829548295582956829578295882959829608296182962829638296482965829668296782968829698297082971829728297382974829758297682977829788297982980829818298282983829848298582986829878298882989829908299182992829938299482995829968299782998829998300083001830028300383004830058300683007830088300983010830118301283013830148301583016830178301883019830208302183022830238302483025830268302783028830298303083031830328303383034830358303683037830388303983040830418304283043830448304583046830478304883049830508305183052830538305483055830568305783058830598306083061830628306383064830658306683067830688306983070830718307283073830748307583076830778307883079830808308183082830838308483085830868308783088830898309083091830928309383094830958309683097830988309983100831018310283103831048310583106831078310883109831108311183112831138311483115831168311783118831198312083121831228312383124831258312683127831288312983130831318313283133831348313583136831378313883139831408314183142831438314483145831468314783148831498315083151831528315383154831558315683157831588315983160831618316283163831648316583166831678316883169831708317183172831738317483175831768317783178831798318083181831828318383184831858318683187831888318983190831918319283193831948319583196831978319883199832008320183202832038320483205832068320783208832098321083211832128321383214832158321683217832188321983220832218322283223832248322583226832278322883229832308323183232832338323483235832368323783238832398324083241832428324383244832458324683247832488324983250832518325283253832548325583256832578325883259832608326183262832638326483265832668326783268832698327083271832728327383274832758327683277832788327983280832818328283283832848328583286832878328883289832908329183292832938329483295832968329783298832998330083301833028330383304833058330683307833088330983310833118331283313833148331583316833178331883319833208332183322833238332483325833268332783328833298333083331833328333383334833358333683337833388333983340833418334283343833448334583346833478334883349833508335183352833538335483355833568335783358833598336083361833628336383364833658336683367833688336983370833718337283373833748337583376833778337883379833808338183382833838338483385833868338783388833898339083391833928339383394833958339683397833988339983400834018340283403834048340583406834078340883409834108341183412834138341483415834168341783418834198342083421834228342383424834258342683427834288342983430834318343283433834348343583436834378343883439834408344183442834438344483445834468344783448834498345083451834528345383454834558345683457834588345983460834618346283463834648346583466834678346883469834708347183472834738347483475834768347783478834798348083481834828348383484834858348683487834888348983490834918349283493834948349583496834978349883499835008350183502835038350483505835068350783508835098351083511835128351383514835158351683517835188351983520835218352283523835248352583526835278352883529835308353183532835338353483535835368353783538835398354083541835428354383544835458354683547835488354983550835518355283553835548355583556835578355883559835608356183562835638356483565835668356783568835698357083571835728357383574835758357683577835788357983580835818358283583835848358583586835878358883589835908359183592835938359483595835968359783598835998360083601836028360383604836058360683607836088360983610836118361283613836148361583616836178361883619836208362183622836238362483625836268362783628836298363083631836328363383634836358363683637836388363983640836418364283643836448364583646836478364883649836508365183652836538365483655836568365783658836598366083661836628366383664836658366683667836688366983670836718367283673836748367583676836778367883679836808368183682836838368483685836868368783688836898369083691836928369383694836958369683697836988369983700837018370283703837048370583706837078370883709837108371183712837138371483715837168371783718837198372083721837228372383724837258372683727837288372983730837318373283733837348373583736837378373883739837408374183742837438374483745837468374783748837498375083751837528375383754837558375683757837588375983760837618376283763837648376583766837678376883769837708377183772837738377483775837768377783778837798378083781837828378383784837858378683787837888378983790837918379283793837948379583796837978379883799838008380183802838038380483805838068380783808838098381083811838128381383814838158381683817838188381983820838218382283823838248382583826838278382883829838308383183832838338383483835838368383783838838398384083841838428384383844838458384683847838488384983850838518385283853838548385583856838578385883859838608386183862838638386483865838668386783868838698387083871838728387383874838758387683877838788387983880838818388283883838848388583886838878388883889838908389183892838938389483895838968389783898838998390083901839028390383904839058390683907839088390983910839118391283913839148391583916839178391883919839208392183922839238392483925839268392783928839298393083931839328393383934839358393683937839388393983940839418394283943839448394583946839478394883949839508395183952839538395483955839568395783958839598396083961839628396383964839658396683967839688396983970839718397283973839748397583976839778397883979839808398183982839838398483985839868398783988839898399083991839928399383994839958399683997839988399984000840018400284003840048400584006840078400884009840108401184012840138401484015840168401784018840198402084021840228402384024840258402684027840288402984030840318403284033840348403584036840378403884039840408404184042840438404484045840468404784048840498405084051840528405384054840558405684057840588405984060840618406284063840648406584066840678406884069840708407184072840738407484075840768407784078840798408084081840828408384084840858408684087840888408984090840918409284093840948409584096840978409884099841008410184102841038410484105841068410784108841098411084111841128411384114841158411684117841188411984120841218412284123841248412584126841278412884129841308413184132841338413484135841368413784138841398414084141841428414384144841458414684147841488414984150841518415284153841548415584156841578415884159841608416184162841638416484165841668416784168841698417084171841728417384174841758417684177841788417984180841818418284183841848418584186841878418884189841908419184192841938419484195841968419784198841998420084201842028420384204842058420684207842088420984210842118421284213842148421584216842178421884219842208422184222842238422484225842268422784228842298423084231842328423384234842358423684237842388423984240842418424284243842448424584246842478424884249842508425184252842538425484255842568425784258842598426084261842628426384264842658426684267842688426984270842718427284273842748427584276842778427884279842808428184282842838428484285842868428784288842898429084291842928429384294842958429684297842988429984300843018430284303843048430584306843078430884309843108431184312843138431484315843168431784318843198432084321843228432384324843258432684327843288432984330843318433284333843348433584336843378433884339843408434184342843438434484345843468434784348843498435084351843528435384354843558435684357843588435984360843618436284363843648436584366843678436884369843708437184372843738437484375843768437784378843798438084381843828438384384843858438684387843888438984390843918439284393843948439584396843978439884399844008440184402844038440484405844068440784408844098441084411844128441384414844158441684417844188441984420844218442284423844248442584426844278442884429844308443184432844338443484435844368443784438844398444084441844428444384444844458444684447844488444984450844518445284453844548445584456844578445884459844608446184462844638446484465844668446784468844698447084471844728447384474844758447684477844788447984480844818448284483844848448584486844878448884489844908449184492844938449484495844968449784498844998450084501845028450384504845058450684507845088450984510845118451284513845148451584516845178451884519845208452184522845238452484525845268452784528845298453084531845328453384534845358453684537845388453984540845418454284543845448454584546845478454884549845508455184552845538455484555845568455784558845598456084561845628456384564845658456684567845688456984570845718457284573845748457584576845778457884579845808458184582845838458484585845868458784588845898459084591845928459384594845958459684597845988459984600846018460284603846048460584606846078460884609846108461184612846138461484615846168461784618846198462084621846228462384624846258462684627846288462984630846318463284633846348463584636846378463884639846408464184642846438464484645846468464784648846498465084651846528465384654846558465684657846588465984660846618466284663846648466584666846678466884669846708467184672846738467484675846768467784678846798468084681846828468384684846858468684687846888468984690846918469284693846948469584696846978469884699847008470184702847038470484705847068470784708847098471084711847128471384714847158471684717847188471984720847218472284723847248472584726847278472884729847308473184732847338473484735847368473784738847398474084741847428474384744847458474684747847488474984750847518475284753847548475584756847578475884759847608476184762847638476484765847668476784768847698477084771847728477384774847758477684777847788477984780847818478284783847848478584786847878478884789847908479184792847938479484795847968479784798847998480084801848028480384804848058480684807848088480984810848118481284813848148481584816848178481884819848208482184822848238482484825848268482784828848298483084831848328483384834848358483684837848388483984840848418484284843848448484584846848478484884849848508485184852848538485484855848568485784858848598486084861848628486384864848658486684867848688486984870848718487284873848748487584876848778487884879848808488184882848838488484885848868488784888848898489084891848928489384894848958489684897848988489984900849018490284903849048490584906849078490884909849108491184912849138491484915849168491784918849198492084921849228492384924849258492684927849288492984930849318493284933849348493584936849378493884939849408494184942849438494484945849468494784948849498495084951849528495384954849558495684957849588495984960849618496284963849648496584966849678496884969849708497184972849738497484975849768497784978849798498084981849828498384984849858498684987849888498984990849918499284993849948499584996849978499884999850008500185002850038500485005850068500785008850098501085011850128501385014850158501685017850188501985020850218502285023850248502585026850278502885029850308503185032850338503485035850368503785038850398504085041850428504385044850458504685047850488504985050850518505285053850548505585056850578505885059850608506185062850638506485065850668506785068850698507085071850728507385074850758507685077850788507985080850818508285083850848508585086850878508885089850908509185092850938509485095850968509785098850998510085101851028510385104851058510685107851088510985110851118511285113851148511585116851178511885119851208512185122851238512485125851268512785128851298513085131851328513385134851358513685137851388513985140851418514285143851448514585146851478514885149851508515185152851538515485155851568515785158851598516085161851628516385164851658516685167851688516985170851718517285173851748517585176851778517885179851808518185182851838518485185851868518785188851898519085191851928519385194851958519685197851988519985200852018520285203852048520585206852078520885209852108521185212852138521485215852168521785218852198522085221852228522385224852258522685227852288522985230852318523285233852348523585236852378523885239852408524185242852438524485245852468524785248852498525085251852528525385254852558525685257852588525985260852618526285263852648526585266852678526885269852708527185272852738527485275852768527785278852798528085281852828528385284852858528685287852888528985290852918529285293852948529585296852978529885299853008530185302853038530485305853068530785308853098531085311853128531385314853158531685317853188531985320853218532285323853248532585326853278532885329853308533185332853338533485335853368533785338853398534085341853428534385344853458534685347853488534985350853518535285353853548535585356853578535885359853608536185362853638536485365853668536785368853698537085371853728537385374853758537685377853788537985380853818538285383853848538585386853878538885389853908539185392853938539485395853968539785398853998540085401854028540385404854058540685407854088540985410854118541285413854148541585416854178541885419854208542185422854238542485425854268542785428854298543085431854328543385434854358543685437854388543985440854418544285443854448544585446854478544885449854508545185452854538545485455854568545785458854598546085461854628546385464854658546685467854688546985470854718547285473854748547585476854778547885479854808548185482854838548485485854868548785488854898549085491854928549385494854958549685497854988549985500855018550285503855048550585506855078550885509855108551185512855138551485515855168551785518855198552085521855228552385524855258552685527855288552985530855318553285533855348553585536855378553885539855408554185542855438554485545855468554785548855498555085551855528555385554855558555685557855588555985560855618556285563855648556585566855678556885569855708557185572855738557485575855768557785578855798558085581855828558385584855858558685587855888558985590855918559285593855948559585596855978559885599856008560185602856038560485605856068560785608856098561085611856128561385614856158561685617856188561985620856218562285623856248562585626856278562885629856308563185632856338563485635856368563785638856398564085641856428564385644856458564685647856488564985650856518565285653856548565585656856578565885659856608566185662856638566485665856668566785668856698567085671856728567385674856758567685677856788567985680856818568285683856848568585686856878568885689856908569185692856938569485695856968569785698856998570085701857028570385704857058570685707857088570985710857118571285713857148571585716857178571885719857208572185722857238572485725857268572785728857298573085731857328573385734857358573685737857388573985740857418574285743857448574585746857478574885749857508575185752857538575485755857568575785758857598576085761857628576385764857658576685767857688576985770857718577285773857748577585776857778577885779857808578185782857838578485785857868578785788857898579085791857928579385794857958579685797857988579985800858018580285803858048580585806858078580885809858108581185812858138581485815858168581785818858198582085821858228582385824858258582685827858288582985830858318583285833858348583585836858378583885839858408584185842858438584485845858468584785848858498585085851858528585385854858558585685857858588585985860858618586285863858648586585866858678586885869858708587185872858738587485875858768587785878858798588085881858828588385884858858588685887858888588985890858918589285893858948589585896858978589885899859008590185902859038590485905859068590785908859098591085911859128591385914859158591685917859188591985920859218592285923859248592585926859278592885929859308593185932859338593485935859368593785938859398594085941859428594385944859458594685947859488594985950859518595285953859548595585956859578595885959859608596185962859638596485965859668596785968859698597085971859728597385974859758597685977859788597985980859818598285983859848598585986859878598885989859908599185992859938599485995859968599785998859998600086001860028600386004860058600686007860088600986010860118601286013860148601586016860178601886019860208602186022860238602486025860268602786028860298603086031860328603386034860358603686037860388603986040860418604286043860448604586046860478604886049860508605186052860538605486055860568605786058860598606086061860628606386064860658606686067860688606986070860718607286073860748607586076860778607886079860808608186082860838608486085860868608786088860898609086091860928609386094860958609686097860988609986100861018610286103861048610586106861078610886109861108611186112861138611486115861168611786118861198612086121861228612386124861258612686127861288612986130861318613286133861348613586136861378613886139861408614186142861438614486145861468614786148861498615086151861528615386154861558615686157861588615986160861618616286163861648616586166861678616886169861708617186172861738617486175861768617786178861798618086181861828618386184861858618686187861888618986190861918619286193861948619586196861978619886199862008620186202862038620486205862068620786208862098621086211862128621386214862158621686217862188621986220862218622286223862248622586226862278622886229862308623186232862338623486235862368623786238862398624086241862428624386244862458624686247862488624986250862518625286253862548625586256862578625886259862608626186262862638626486265862668626786268862698627086271862728627386274862758627686277862788627986280862818628286283862848628586286862878628886289862908629186292862938629486295862968629786298862998630086301863028630386304863058630686307863088630986310863118631286313863148631586316863178631886319863208632186322863238632486325863268632786328863298633086331863328633386334863358633686337863388633986340863418634286343863448634586346863478634886349863508635186352863538635486355863568635786358863598636086361863628636386364863658636686367863688636986370863718637286373863748637586376863778637886379863808638186382863838638486385863868638786388863898639086391863928639386394863958639686397863988639986400864018640286403864048640586406864078640886409864108641186412864138641486415864168641786418864198642086421864228642386424864258642686427864288642986430864318643286433864348643586436864378643886439864408644186442864438644486445864468644786448864498645086451864528645386454864558645686457864588645986460864618646286463864648646586466864678646886469864708647186472864738647486475864768647786478864798648086481864828648386484864858648686487864888648986490864918649286493864948649586496864978649886499865008650186502865038650486505865068650786508865098651086511865128651386514865158651686517865188651986520865218652286523865248652586526865278652886529865308653186532865338653486535865368653786538865398654086541865428654386544865458654686547865488654986550865518655286553865548655586556865578655886559865608656186562865638656486565865668656786568865698657086571865728657386574865758657686577865788657986580865818658286583865848658586586865878658886589865908659186592865938659486595865968659786598865998660086601866028660386604866058660686607866088660986610866118661286613866148661586616866178661886619866208662186622866238662486625866268662786628866298663086631866328663386634866358663686637866388663986640866418664286643866448664586646866478664886649866508665186652866538665486655866568665786658866598666086661866628666386664866658666686667866688666986670866718667286673866748667586676866778667886679866808668186682866838668486685866868668786688866898669086691866928669386694866958669686697866988669986700867018670286703867048670586706867078670886709867108671186712867138671486715867168671786718867198672086721867228672386724867258672686727867288672986730867318673286733867348673586736867378673886739867408674186742867438674486745867468674786748867498675086751867528675386754867558675686757867588675986760867618676286763867648676586766867678676886769867708677186772867738677486775867768677786778867798678086781867828678386784867858678686787867888678986790867918679286793867948679586796867978679886799868008680186802868038680486805868068680786808868098681086811868128681386814868158681686817868188681986820868218682286823868248682586826868278682886829868308683186832868338683486835868368683786838868398684086841868428684386844868458684686847868488684986850868518685286853868548685586856868578685886859868608686186862868638686486865868668686786868868698687086871868728687386874868758687686877868788687986880868818688286883868848688586886868878688886889868908689186892868938689486895868968689786898868998690086901869028690386904869058690686907869088690986910869118691286913869148691586916869178691886919869208692186922869238692486925869268692786928869298693086931869328693386934869358693686937869388693986940869418694286943869448694586946869478694886949869508695186952869538695486955869568695786958869598696086961869628696386964869658696686967869688696986970869718697286973869748697586976869778697886979869808698186982869838698486985869868698786988869898699086991869928699386994869958699686997869988699987000870018700287003870048700587006870078700887009870108701187012870138701487015870168701787018870198702087021870228702387024870258702687027870288702987030870318703287033870348703587036870378703887039870408704187042870438704487045870468704787048870498705087051870528705387054870558705687057870588705987060870618706287063870648706587066870678706887069870708707187072870738707487075870768707787078870798708087081870828708387084870858708687087870888708987090870918709287093870948709587096870978709887099871008710187102871038710487105871068710787108871098711087111871128711387114871158711687117871188711987120871218712287123871248712587126871278712887129871308713187132871338713487135871368713787138871398714087141871428714387144871458714687147871488714987150871518715287153871548715587156871578715887159871608716187162871638716487165871668716787168871698717087171871728717387174871758717687177871788717987180871818718287183871848718587186871878718887189871908719187192871938719487195871968719787198871998720087201872028720387204872058720687207872088720987210872118721287213872148721587216872178721887219872208722187222872238722487225872268722787228872298723087231872328723387234872358723687237872388723987240872418724287243872448724587246872478724887249872508725187252872538725487255872568725787258872598726087261872628726387264872658726687267872688726987270872718727287273872748727587276872778727887279872808728187282872838728487285872868728787288872898729087291872928729387294872958729687297872988729987300873018730287303873048730587306873078730887309873108731187312873138731487315873168731787318873198732087321873228732387324873258732687327873288732987330873318733287333873348733587336873378733887339873408734187342873438734487345873468734787348873498735087351873528735387354873558735687357873588735987360873618736287363873648736587366873678736887369873708737187372873738737487375873768737787378873798738087381873828738387384873858738687387873888738987390873918739287393873948739587396873978739887399874008740187402874038740487405874068740787408874098741087411874128741387414874158741687417874188741987420874218742287423874248742587426874278742887429874308743187432874338743487435874368743787438874398744087441874428744387444874458744687447874488744987450874518745287453874548745587456874578745887459874608746187462874638746487465874668746787468874698747087471874728747387474874758747687477874788747987480874818748287483874848748587486874878748887489874908749187492874938749487495874968749787498874998750087501875028750387504875058750687507875088750987510875118751287513875148751587516875178751887519875208752187522875238752487525875268752787528875298753087531875328753387534875358753687537875388753987540875418754287543875448754587546875478754887549875508755187552875538755487555875568755787558875598756087561875628756387564875658756687567875688756987570875718757287573875748757587576875778757887579875808758187582875838758487585875868758787588875898759087591875928759387594875958759687597875988759987600876018760287603876048760587606876078760887609876108761187612876138761487615876168761787618876198762087621876228762387624876258762687627876288762987630876318763287633876348763587636876378763887639876408764187642876438764487645876468764787648876498765087651876528765387654876558765687657876588765987660876618766287663876648766587666876678766887669876708767187672876738767487675876768767787678876798768087681876828768387684876858768687687876888768987690876918769287693876948769587696876978769887699877008770187702877038770487705877068770787708877098771087711877128771387714877158771687717877188771987720877218772287723877248772587726877278772887729877308773187732877338773487735877368773787738877398774087741877428774387744877458774687747877488774987750877518775287753877548775587756877578775887759877608776187762877638776487765877668776787768877698777087771877728777387774877758777687777877788777987780877818778287783877848778587786877878778887789877908779187792877938779487795877968779787798877998780087801878028780387804878058780687807878088780987810878118781287813878148781587816878178781887819878208782187822878238782487825878268782787828878298783087831878328783387834878358783687837878388783987840878418784287843878448784587846878478784887849878508785187852878538785487855878568785787858878598786087861878628786387864878658786687867878688786987870878718787287873878748787587876878778787887879878808788187882878838788487885878868788787888878898789087891878928789387894878958789687897878988789987900879018790287903879048790587906879078790887909879108791187912879138791487915879168791787918879198792087921879228792387924879258792687927879288792987930879318793287933879348793587936879378793887939879408794187942879438794487945879468794787948879498795087951879528795387954879558795687957879588795987960879618796287963879648796587966879678796887969879708797187972879738797487975879768797787978879798798087981879828798387984879858798687987879888798987990879918799287993879948799587996879978799887999880008800188002880038800488005880068800788008880098801088011880128801388014880158801688017880188801988020880218802288023880248802588026880278802888029880308803188032880338803488035880368803788038880398804088041880428804388044880458804688047880488804988050880518805288053880548805588056880578805888059880608806188062880638806488065880668806788068880698807088071880728807388074880758807688077880788807988080880818808288083880848808588086880878808888089880908809188092880938809488095880968809788098880998810088101881028810388104881058810688107881088810988110881118811288113881148811588116881178811888119881208812188122881238812488125881268812788128881298813088131881328813388134881358813688137881388813988140881418814288143881448814588146881478814888149881508815188152881538815488155881568815788158881598816088161881628816388164881658816688167881688816988170881718817288173881748817588176881778817888179881808818188182881838818488185881868818788188881898819088191881928819388194881958819688197881988819988200882018820288203882048820588206882078820888209882108821188212882138821488215882168821788218882198822088221882228822388224882258822688227882288822988230882318823288233882348823588236882378823888239882408824188242882438824488245882468824788248882498825088251882528825388254882558825688257882588825988260882618826288263882648826588266882678826888269882708827188272882738827488275882768827788278882798828088281882828828388284882858828688287882888828988290882918829288293882948829588296882978829888299883008830188302883038830488305883068830788308883098831088311883128831388314883158831688317883188831988320883218832288323883248832588326883278832888329883308833188332883338833488335883368833788338883398834088341883428834388344883458834688347883488834988350883518835288353883548835588356883578835888359883608836188362883638836488365883668836788368883698837088371883728837388374883758837688377883788837988380883818838288383883848838588386883878838888389883908839188392883938839488395883968839788398883998840088401884028840388404884058840688407884088840988410884118841288413884148841588416884178841888419884208842188422884238842488425884268842788428884298843088431884328843388434884358843688437884388843988440884418844288443884448844588446884478844888449884508845188452884538845488455884568845788458884598846088461884628846388464884658846688467884688846988470884718847288473884748847588476884778847888479884808848188482884838848488485884868848788488884898849088491884928849388494884958849688497884988849988500885018850288503885048850588506885078850888509885108851188512885138851488515885168851788518885198852088521885228852388524885258852688527885288852988530885318853288533885348853588536885378853888539885408854188542885438854488545885468854788548885498855088551885528855388554885558855688557885588855988560885618856288563885648856588566885678856888569885708857188572885738857488575885768857788578885798858088581885828858388584885858858688587885888858988590885918859288593885948859588596885978859888599886008860188602886038860488605886068860788608886098861088611886128861388614886158861688617886188861988620886218862288623886248862588626886278862888629886308863188632886338863488635886368863788638886398864088641886428864388644886458864688647886488864988650886518865288653886548865588656886578865888659886608866188662886638866488665886668866788668886698867088671886728867388674886758867688677886788867988680886818868288683886848868588686886878868888689886908869188692886938869488695886968869788698886998870088701887028870388704887058870688707887088870988710887118871288713887148871588716887178871888719887208872188722887238872488725887268872788728887298873088731887328873388734887358873688737887388873988740887418874288743887448874588746887478874888749887508875188752887538875488755887568875788758887598876088761887628876388764887658876688767887688876988770887718877288773887748877588776887778877888779887808878188782887838878488785887868878788788887898879088791887928879388794887958879688797887988879988800888018880288803888048880588806888078880888809888108881188812888138881488815888168881788818888198882088821888228882388824888258882688827888288882988830888318883288833888348883588836888378883888839888408884188842888438884488845888468884788848888498885088851888528885388854888558885688857888588885988860888618886288863888648886588866888678886888869888708887188872888738887488875888768887788878888798888088881888828888388884888858888688887888888888988890888918889288893888948889588896888978889888899889008890188902889038890488905889068890788908889098891088911889128891388914889158891688917889188891988920889218892288923889248892588926889278892888929889308893188932889338893488935889368893788938889398894088941889428894388944889458894688947889488894988950889518895288953889548895588956889578895888959889608896188962889638896488965889668896788968889698897088971889728897388974889758897688977889788897988980889818898288983889848898588986889878898888989889908899188992889938899488995889968899788998889998900089001890028900389004890058900689007890088900989010890118901289013890148901589016890178901889019890208902189022890238902489025890268902789028890298903089031890328903389034890358903689037890388903989040890418904289043890448904589046890478904889049890508905189052890538905489055890568905789058890598906089061890628906389064890658906689067890688906989070890718907289073890748907589076890778907889079890808908189082890838908489085890868908789088890898909089091890928909389094890958909689097890988909989100891018910289103891048910589106891078910889109891108911189112891138911489115891168911789118891198912089121891228912389124891258912689127891288912989130891318913289133891348913589136891378913889139891408914189142891438914489145891468914789148891498915089151891528915389154891558915689157891588915989160891618916289163891648916589166891678916889169891708917189172891738917489175891768917789178891798918089181891828918389184891858918689187891888918989190891918919289193891948919589196891978919889199892008920189202892038920489205892068920789208892098921089211892128921389214892158921689217892188921989220892218922289223892248922589226892278922889229892308923189232892338923489235892368923789238892398924089241892428924389244892458924689247892488924989250892518925289253892548925589256892578925889259892608926189262892638926489265892668926789268892698927089271892728927389274892758927689277892788927989280892818928289283892848928589286892878928889289892908929189292892938929489295892968929789298892998930089301893028930389304893058930689307893088930989310893118931289313893148931589316893178931889319893208932189322893238932489325893268932789328893298933089331893328933389334893358933689337893388933989340893418934289343893448934589346893478934889349893508935189352893538935489355893568935789358893598936089361893628936389364893658936689367893688936989370893718937289373893748937589376893778937889379893808938189382893838938489385893868938789388893898939089391893928939389394893958939689397893988939989400894018940289403894048940589406894078940889409894108941189412894138941489415894168941789418894198942089421894228942389424894258942689427894288942989430894318943289433894348943589436894378943889439894408944189442894438944489445894468944789448894498945089451894528945389454894558945689457894588945989460894618946289463894648946589466894678946889469894708947189472894738947489475894768947789478894798948089481894828948389484894858948689487894888948989490894918949289493894948949589496894978949889499895008950189502895038950489505895068950789508895098951089511895128951389514895158951689517895188951989520895218952289523895248952589526895278952889529895308953189532895338953489535895368953789538895398954089541895428954389544895458954689547895488954989550895518955289553895548955589556895578955889559895608956189562895638956489565895668956789568895698957089571895728957389574895758957689577895788957989580895818958289583895848958589586895878958889589895908959189592895938959489595895968959789598895998960089601896028960389604896058960689607896088960989610896118961289613896148961589616896178961889619896208962189622896238962489625896268962789628896298963089631896328963389634896358963689637896388963989640896418964289643896448964589646896478964889649896508965189652896538965489655896568965789658896598966089661896628966389664896658966689667896688966989670896718967289673896748967589676896778967889679896808968189682896838968489685896868968789688896898969089691896928969389694896958969689697896988969989700897018970289703897048970589706897078970889709897108971189712897138971489715897168971789718897198972089721897228972389724897258972689727897288972989730897318973289733897348973589736897378973889739897408974189742897438974489745897468974789748897498975089751897528975389754897558975689757897588975989760897618976289763897648976589766897678976889769897708977189772897738977489775897768977789778897798978089781897828978389784897858978689787897888978989790897918979289793897948979589796897978979889799898008980189802898038980489805898068980789808898098981089811898128981389814898158981689817898188981989820898218982289823898248982589826898278982889829898308983189832898338983489835898368983789838898398984089841898428984389844898458984689847898488984989850898518985289853898548985589856898578985889859898608986189862898638986489865898668986789868898698987089871898728987389874898758987689877898788987989880898818988289883898848988589886898878988889889898908989189892898938989489895898968989789898898998990089901899028990389904899058990689907899088990989910899118991289913899148991589916899178991889919899208992189922899238992489925899268992789928899298993089931899328993389934899358993689937899388993989940899418994289943899448994589946899478994889949899508995189952899538995489955899568995789958899598996089961899628996389964899658996689967899688996989970899718997289973899748997589976899778997889979899808998189982899838998489985899868998789988899898999089991899928999389994899958999689997899988999990000900019000290003900049000590006900079000890009900109001190012900139001490015900169001790018900199002090021900229002390024900259002690027900289002990030900319003290033900349003590036900379003890039900409004190042900439004490045900469004790048900499005090051900529005390054900559005690057900589005990060900619006290063900649006590066900679006890069900709007190072900739007490075900769007790078900799008090081900829008390084900859008690087900889008990090900919009290093900949009590096900979009890099901009010190102901039010490105901069010790108901099011090111901129011390114901159011690117901189011990120901219012290123901249012590126901279012890129901309013190132901339013490135901369013790138901399014090141901429014390144901459014690147901489014990150901519015290153901549015590156901579015890159901609016190162901639016490165901669016790168901699017090171901729017390174901759017690177901789017990180901819018290183901849018590186901879018890189901909019190192901939019490195901969019790198901999020090201902029020390204902059020690207902089020990210902119021290213902149021590216902179021890219902209022190222902239022490225902269022790228902299023090231902329023390234902359023690237902389023990240902419024290243902449024590246902479024890249902509025190252902539025490255902569025790258902599026090261902629026390264902659026690267902689026990270902719027290273902749027590276902779027890279902809028190282902839028490285902869028790288902899029090291902929029390294902959029690297902989029990300903019030290303903049030590306903079030890309903109031190312903139031490315903169031790318903199032090321903229032390324903259032690327903289032990330903319033290333903349033590336903379033890339903409034190342903439034490345903469034790348903499035090351903529035390354903559035690357903589035990360903619036290363903649036590366903679036890369903709037190372903739037490375903769037790378903799038090381903829038390384903859038690387903889038990390903919039290393903949039590396903979039890399904009040190402904039040490405904069040790408904099041090411904129041390414904159041690417904189041990420904219042290423904249042590426904279042890429904309043190432904339043490435904369043790438904399044090441904429044390444904459044690447904489044990450904519045290453904549045590456904579045890459904609046190462904639046490465904669046790468904699047090471904729047390474904759047690477904789047990480904819048290483904849048590486904879048890489904909049190492904939049490495904969049790498904999050090501905029050390504905059050690507905089050990510905119051290513905149051590516905179051890519905209052190522905239052490525905269052790528905299053090531905329053390534905359053690537905389053990540905419054290543905449054590546905479054890549905509055190552905539055490555905569055790558905599056090561905629056390564905659056690567905689056990570905719057290573905749057590576905779057890579905809058190582905839058490585905869058790588905899059090591905929059390594905959059690597905989059990600906019060290603906049060590606906079060890609906109061190612906139061490615906169061790618906199062090621906229062390624906259062690627906289062990630906319063290633906349063590636906379063890639906409064190642906439064490645906469064790648906499065090651906529065390654906559065690657906589065990660906619066290663906649066590666906679066890669906709067190672906739067490675906769067790678906799068090681906829068390684906859068690687906889068990690906919069290693906949069590696906979069890699907009070190702907039070490705907069070790708907099071090711907129071390714907159071690717907189071990720907219072290723907249072590726907279072890729907309073190732907339073490735907369073790738907399074090741907429074390744907459074690747907489074990750907519075290753907549075590756907579075890759907609076190762907639076490765907669076790768907699077090771907729077390774907759077690777907789077990780907819078290783907849078590786907879078890789907909079190792907939079490795907969079790798907999080090801908029080390804908059080690807908089080990810908119081290813908149081590816908179081890819908209082190822908239082490825908269082790828908299083090831908329083390834908359083690837908389083990840908419084290843908449084590846908479084890849908509085190852908539085490855908569085790858908599086090861908629086390864908659086690867908689086990870908719087290873908749087590876908779087890879908809088190882908839088490885908869088790888908899089090891908929089390894908959089690897908989089990900909019090290903909049090590906909079090890909909109091190912909139091490915909169091790918909199092090921909229092390924909259092690927909289092990930909319093290933909349093590936909379093890939909409094190942909439094490945909469094790948909499095090951909529095390954909559095690957909589095990960909619096290963909649096590966909679096890969909709097190972909739097490975909769097790978909799098090981909829098390984909859098690987909889098990990909919099290993909949099590996909979099890999910009100191002910039100491005910069100791008910099101091011910129101391014910159101691017910189101991020910219102291023910249102591026910279102891029910309103191032910339103491035910369103791038910399104091041910429104391044910459104691047910489104991050910519105291053910549105591056910579105891059910609106191062910639106491065910669106791068910699107091071910729107391074910759107691077910789107991080910819108291083910849108591086910879108891089910909109191092910939109491095910969109791098910999110091101911029110391104911059110691107911089110991110911119111291113911149111591116911179111891119911209112191122911239112491125911269112791128911299113091131911329113391134911359113691137911389113991140911419114291143911449114591146911479114891149911509115191152911539115491155911569115791158911599116091161911629116391164911659116691167911689116991170911719117291173911749117591176911779117891179911809118191182911839118491185911869118791188911899119091191911929119391194911959119691197911989119991200912019120291203912049120591206912079120891209912109121191212912139121491215912169121791218912199122091221912229122391224912259122691227912289122991230912319123291233912349123591236912379123891239912409124191242912439124491245912469124791248912499125091251912529125391254912559125691257912589125991260912619126291263912649126591266912679126891269912709127191272912739127491275912769127791278912799128091281912829128391284912859128691287912889128991290912919129291293912949129591296912979129891299913009130191302913039130491305913069130791308913099131091311913129131391314913159131691317913189131991320913219132291323913249132591326913279132891329913309133191332913339133491335913369133791338913399134091341913429134391344913459134691347913489134991350913519135291353913549135591356913579135891359913609136191362913639136491365913669136791368913699137091371913729137391374913759137691377913789137991380913819138291383913849138591386913879138891389913909139191392913939139491395913969139791398913999140091401914029140391404914059140691407914089140991410914119141291413914149141591416914179141891419914209142191422914239142491425914269142791428914299143091431914329143391434914359143691437914389143991440914419144291443914449144591446914479144891449914509145191452914539145491455914569145791458914599146091461914629146391464914659146691467914689146991470914719147291473914749147591476914779147891479914809148191482914839148491485914869148791488914899149091491914929149391494914959149691497914989149991500915019150291503915049150591506915079150891509915109151191512915139151491515915169151791518915199152091521915229152391524915259152691527915289152991530915319153291533915349153591536915379153891539915409154191542915439154491545915469154791548915499155091551915529155391554915559155691557915589155991560915619156291563915649156591566915679156891569915709157191572915739157491575915769157791578915799158091581915829158391584915859158691587915889158991590915919159291593915949159591596915979159891599916009160191602916039160491605916069160791608916099161091611916129161391614916159161691617916189161991620916219162291623916249162591626916279162891629916309163191632916339163491635916369163791638916399164091641916429164391644916459164691647916489164991650916519165291653916549165591656916579165891659916609166191662916639166491665916669166791668916699167091671916729167391674916759167691677916789167991680916819168291683916849168591686916879168891689916909169191692916939169491695916969169791698916999170091701917029170391704917059170691707917089170991710917119171291713917149171591716917179171891719917209172191722917239172491725917269172791728917299173091731917329173391734917359173691737917389173991740917419174291743917449174591746917479174891749917509175191752917539175491755917569175791758917599176091761917629176391764917659176691767917689176991770917719177291773917749177591776917779177891779917809178191782917839178491785917869178791788917899179091791917929179391794917959179691797917989179991800918019180291803918049180591806918079180891809918109181191812918139181491815918169181791818918199182091821918229182391824918259182691827918289182991830918319183291833918349183591836918379183891839918409184191842918439184491845918469184791848918499185091851918529185391854918559185691857918589185991860918619186291863918649186591866918679186891869918709187191872918739187491875918769187791878918799188091881918829188391884918859188691887918889188991890918919189291893918949189591896918979189891899919009190191902919039190491905919069190791908919099191091911919129191391914919159191691917919189191991920919219192291923919249192591926919279192891929919309193191932919339193491935919369193791938919399194091941919429194391944919459194691947919489194991950919519195291953919549195591956919579195891959919609196191962919639196491965919669196791968919699197091971919729197391974919759197691977919789197991980919819198291983919849198591986919879198891989919909199191992919939199491995919969199791998919999200092001920029200392004920059200692007920089200992010920119201292013920149201592016920179201892019920209202192022920239202492025920269202792028920299203092031920329203392034920359203692037920389203992040920419204292043920449204592046920479204892049920509205192052920539205492055920569205792058920599206092061920629206392064920659206692067920689206992070920719207292073920749207592076920779207892079920809208192082920839208492085920869208792088920899209092091920929209392094920959209692097920989209992100921019210292103921049210592106921079210892109921109211192112921139211492115921169211792118921199212092121921229212392124921259212692127921289212992130921319213292133921349213592136921379213892139921409214192142921439214492145921469214792148921499215092151921529215392154921559215692157921589215992160921619216292163921649216592166921679216892169921709217192172921739217492175921769217792178921799218092181921829218392184921859218692187921889218992190921919219292193921949219592196921979219892199922009220192202922039220492205922069220792208922099221092211922129221392214922159221692217922189221992220922219222292223922249222592226922279222892229922309223192232922339223492235922369223792238922399224092241922429224392244922459224692247922489224992250922519225292253922549225592256922579225892259922609226192262922639226492265922669226792268922699227092271922729227392274922759227692277922789227992280922819228292283922849228592286922879228892289922909229192292922939229492295922969229792298922999230092301923029230392304923059230692307923089230992310923119231292313923149231592316923179231892319923209232192322923239232492325923269232792328923299233092331923329233392334923359233692337923389233992340923419234292343923449234592346923479234892349923509235192352923539235492355923569235792358923599236092361923629236392364923659236692367923689236992370923719237292373923749237592376923779237892379923809238192382923839238492385923869238792388923899239092391923929239392394923959239692397923989239992400924019240292403924049240592406924079240892409924109241192412924139241492415924169241792418924199242092421924229242392424924259242692427924289242992430924319243292433924349243592436924379243892439924409244192442924439244492445924469244792448924499245092451924529245392454924559245692457924589245992460924619246292463924649246592466924679246892469924709247192472924739247492475924769247792478924799248092481924829248392484924859248692487924889248992490924919249292493924949249592496924979249892499925009250192502925039250492505925069250792508925099251092511925129251392514925159251692517925189251992520925219252292523925249252592526925279252892529925309253192532925339253492535925369253792538925399254092541925429254392544925459254692547925489254992550925519255292553925549255592556925579255892559925609256192562925639256492565925669256792568925699257092571925729257392574925759257692577925789257992580925819258292583925849258592586925879258892589925909259192592925939259492595925969259792598925999260092601926029260392604926059260692607926089260992610926119261292613926149261592616926179261892619926209262192622926239262492625926269262792628926299263092631926329263392634926359263692637926389263992640926419264292643926449264592646926479264892649926509265192652926539265492655926569265792658926599266092661926629266392664926659266692667926689266992670926719267292673926749267592676926779267892679926809268192682926839268492685926869268792688926899269092691926929269392694926959269692697926989269992700927019270292703927049270592706927079270892709927109271192712927139271492715927169271792718927199272092721927229272392724927259272692727927289272992730927319273292733927349273592736927379273892739927409274192742927439274492745927469274792748927499275092751927529275392754927559275692757927589275992760927619276292763927649276592766927679276892769927709277192772927739277492775927769277792778927799278092781927829278392784927859278692787927889278992790927919279292793927949279592796927979279892799928009280192802928039280492805928069280792808928099281092811928129281392814928159281692817928189281992820928219282292823928249282592826928279282892829928309283192832928339283492835928369283792838928399284092841928429284392844928459284692847928489284992850928519285292853928549285592856928579285892859928609286192862928639286492865928669286792868928699287092871928729287392874928759287692877928789287992880928819288292883928849288592886928879288892889928909289192892928939289492895928969289792898928999290092901929029290392904929059290692907929089290992910929119291292913929149291592916929179291892919929209292192922929239292492925929269292792928929299293092931929329293392934929359293692937929389293992940929419294292943929449294592946929479294892949929509295192952929539295492955929569295792958929599296092961929629296392964929659296692967929689296992970929719297292973929749297592976929779297892979929809298192982929839298492985929869298792988929899299092991929929299392994929959299692997929989299993000930019300293003930049300593006930079300893009930109301193012930139301493015930169301793018930199302093021930229302393024930259302693027930289302993030930319303293033930349303593036930379303893039930409304193042930439304493045930469304793048930499305093051930529305393054930559305693057930589305993060930619306293063930649306593066930679306893069930709307193072930739307493075930769307793078930799308093081930829308393084930859308693087930889308993090930919309293093930949309593096930979309893099931009310193102931039310493105931069310793108931099311093111931129311393114931159311693117931189311993120931219312293123931249312593126931279312893129931309313193132931339313493135931369313793138931399314093141931429314393144931459314693147931489314993150931519315293153931549315593156931579315893159931609316193162931639316493165931669316793168931699317093171931729317393174931759317693177931789317993180931819318293183931849318593186931879318893189931909319193192931939319493195931969319793198931999320093201932029320393204932059320693207932089320993210932119321293213932149321593216932179321893219932209322193222932239322493225932269322793228932299323093231932329323393234932359323693237932389323993240932419324293243932449324593246932479324893249932509325193252932539325493255932569325793258932599326093261932629326393264932659326693267932689326993270932719327293273932749327593276932779327893279932809328193282932839328493285932869328793288932899329093291932929329393294932959329693297932989329993300933019330293303933049330593306933079330893309933109331193312933139331493315933169331793318933199332093321933229332393324933259332693327933289332993330933319333293333933349333593336933379333893339933409334193342933439334493345933469334793348933499335093351933529335393354933559335693357933589335993360933619336293363933649336593366933679336893369933709337193372933739337493375933769337793378933799338093381933829338393384933859338693387933889338993390933919339293393933949339593396933979339893399934009340193402934039340493405934069340793408934099341093411934129341393414934159341693417934189341993420934219342293423934249342593426934279342893429934309343193432934339343493435934369343793438934399344093441934429344393444934459344693447934489344993450934519345293453934549345593456934579345893459934609346193462934639346493465934669346793468934699347093471934729347393474934759347693477934789347993480934819348293483934849348593486934879348893489934909349193492934939349493495934969349793498934999350093501935029350393504935059350693507935089350993510935119351293513935149351593516935179351893519935209352193522935239352493525935269352793528935299353093531935329353393534935359353693537935389353993540935419354293543935449354593546935479354893549935509355193552935539355493555935569355793558935599356093561935629356393564935659356693567935689356993570935719357293573935749357593576935779357893579935809358193582935839358493585935869358793588935899359093591935929359393594935959359693597935989359993600936019360293603936049360593606936079360893609936109361193612936139361493615936169361793618936199362093621936229362393624936259362693627936289362993630936319363293633936349363593636936379363893639936409364193642936439364493645936469364793648936499365093651936529365393654936559365693657936589365993660936619366293663936649366593666936679366893669936709367193672936739367493675936769367793678936799368093681936829368393684936859368693687936889368993690936919369293693936949369593696936979369893699937009370193702937039370493705937069370793708937099371093711937129371393714937159371693717937189371993720937219372293723937249372593726937279372893729937309373193732937339373493735937369373793738937399374093741937429374393744937459374693747937489374993750937519375293753937549375593756937579375893759937609376193762937639376493765937669376793768937699377093771937729377393774937759377693777937789377993780937819378293783937849378593786937879378893789937909379193792937939379493795937969379793798937999380093801938029380393804938059380693807938089380993810938119381293813938149381593816938179381893819938209382193822938239382493825938269382793828938299383093831938329383393834938359383693837938389383993840938419384293843938449384593846938479384893849938509385193852938539385493855938569385793858938599386093861938629386393864938659386693867938689386993870938719387293873938749387593876938779387893879938809388193882938839388493885938869388793888938899389093891938929389393894938959389693897938989389993900939019390293903939049390593906939079390893909939109391193912939139391493915939169391793918939199392093921939229392393924939259392693927939289392993930939319393293933939349393593936939379393893939939409394193942939439394493945939469394793948939499395093951939529395393954939559395693957939589395993960939619396293963939649396593966939679396893969939709397193972939739397493975939769397793978939799398093981939829398393984939859398693987939889398993990939919399293993939949399593996939979399893999940009400194002940039400494005940069400794008940099401094011940129401394014940159401694017940189401994020940219402294023940249402594026940279402894029940309403194032940339403494035940369403794038940399404094041940429404394044940459404694047940489404994050940519405294053940549405594056940579405894059940609406194062940639406494065940669406794068940699407094071940729407394074940759407694077940789407994080940819408294083940849408594086940879408894089940909409194092940939409494095940969409794098940999410094101941029410394104941059410694107941089410994110941119411294113941149411594116941179411894119941209412194122941239412494125941269412794128941299413094131941329413394134941359413694137941389413994140941419414294143941449414594146941479414894149941509415194152941539415494155941569415794158941599416094161941629416394164941659416694167941689416994170941719417294173941749417594176941779417894179941809418194182941839418494185941869418794188941899419094191941929419394194941959419694197941989419994200942019420294203942049420594206942079420894209942109421194212942139421494215942169421794218942199422094221942229422394224942259422694227942289422994230942319423294233942349423594236942379423894239942409424194242942439424494245942469424794248942499425094251942529425394254942559425694257942589425994260942619426294263942649426594266942679426894269942709427194272942739427494275942769427794278942799428094281942829428394284942859428694287942889428994290942919429294293942949429594296942979429894299943009430194302943039430494305943069430794308943099431094311943129431394314943159431694317943189431994320943219432294323943249432594326943279432894329943309433194332943339433494335943369433794338943399434094341943429434394344943459434694347943489434994350943519435294353943549435594356943579435894359943609436194362943639436494365943669436794368943699437094371943729437394374943759437694377943789437994380943819438294383943849438594386943879438894389943909439194392943939439494395943969439794398943999440094401944029440394404944059440694407944089440994410944119441294413944149441594416944179441894419944209442194422944239442494425944269442794428944299443094431944329443394434944359443694437944389443994440944419444294443944449444594446944479444894449944509445194452944539445494455944569445794458944599446094461944629446394464944659446694467944689446994470944719447294473944749447594476944779447894479944809448194482944839448494485944869448794488944899449094491944929449394494944959449694497944989449994500945019450294503945049450594506945079450894509945109451194512945139451494515945169451794518945199452094521945229452394524945259452694527945289452994530945319453294533945349453594536945379453894539945409454194542945439454494545945469454794548945499455094551945529455394554945559455694557945589455994560945619456294563945649456594566945679456894569945709457194572945739457494575945769457794578945799458094581945829458394584945859458694587945889458994590945919459294593945949459594596945979459894599946009460194602946039460494605946069460794608946099461094611946129461394614946159461694617946189461994620946219462294623946249462594626946279462894629946309463194632946339463494635946369463794638946399464094641946429464394644946459464694647946489464994650946519465294653946549465594656946579465894659946609466194662946639466494665946669466794668946699467094671946729467394674946759467694677946789467994680946819468294683946849468594686946879468894689946909469194692946939469494695946969469794698946999470094701947029470394704947059470694707947089470994710947119471294713947149471594716947179471894719947209472194722947239472494725947269472794728947299473094731947329473394734947359473694737947389473994740947419474294743947449474594746947479474894749947509475194752947539475494755947569475794758947599476094761947629476394764947659476694767947689476994770947719477294773947749477594776947779477894779947809478194782947839478494785947869478794788947899479094791947929479394794947959479694797947989479994800948019480294803948049480594806948079480894809948109481194812948139481494815948169481794818948199482094821948229482394824948259482694827948289482994830948319483294833948349483594836948379483894839948409484194842948439484494845948469484794848948499485094851948529485394854948559485694857948589485994860948619486294863948649486594866948679486894869948709487194872948739487494875948769487794878948799488094881948829488394884948859488694887948889488994890948919489294893948949489594896948979489894899949009490194902949039490494905949069490794908949099491094911949129491394914949159491694917949189491994920949219492294923949249492594926949279492894929949309493194932949339493494935949369493794938949399494094941949429494394944949459494694947949489494994950949519495294953949549495594956949579495894959949609496194962949639496494965949669496794968949699497094971949729497394974949759497694977949789497994980949819498294983949849498594986949879498894989949909499194992949939499494995949969499794998949999500095001950029500395004950059500695007950089500995010950119501295013950149501595016950179501895019950209502195022950239502495025950269502795028950299503095031950329503395034950359503695037950389503995040950419504295043950449504595046950479504895049950509505195052950539505495055950569505795058950599506095061950629506395064950659506695067950689506995070950719507295073950749507595076950779507895079950809508195082950839508495085950869508795088950899509095091950929509395094950959509695097950989509995100951019510295103951049510595106951079510895109951109511195112951139511495115951169511795118951199512095121951229512395124951259512695127951289512995130951319513295133951349513595136951379513895139951409514195142951439514495145951469514795148951499515095151951529515395154951559515695157951589515995160951619516295163951649516595166951679516895169951709517195172951739517495175951769517795178951799518095181951829518395184951859518695187951889518995190951919519295193951949519595196951979519895199952009520195202952039520495205952069520795208952099521095211952129521395214952159521695217952189521995220952219522295223952249522595226952279522895229952309523195232952339523495235952369523795238952399524095241952429524395244952459524695247952489524995250952519525295253952549525595256952579525895259952609526195262952639526495265952669526795268952699527095271952729527395274952759527695277952789527995280952819528295283952849528595286952879528895289952909529195292952939529495295952969529795298952999530095301953029530395304953059530695307953089530995310953119531295313953149531595316953179531895319953209532195322953239532495325953269532795328953299533095331953329533395334953359533695337953389533995340953419534295343953449534595346953479534895349953509535195352953539535495355953569535795358953599536095361953629536395364953659536695367953689536995370953719537295373953749537595376953779537895379953809538195382953839538495385953869538795388953899539095391953929539395394953959539695397953989539995400954019540295403954049540595406954079540895409954109541195412954139541495415954169541795418954199542095421954229542395424954259542695427954289542995430954319543295433954349543595436954379543895439954409544195442954439544495445954469544795448954499545095451954529545395454954559545695457954589545995460954619546295463954649546595466954679546895469954709547195472954739547495475954769547795478954799548095481954829548395484954859548695487954889548995490954919549295493954949549595496954979549895499955009550195502955039550495505955069550795508955099551095511955129551395514955159551695517955189551995520955219552295523955249552595526955279552895529955309553195532955339553495535955369553795538955399554095541955429554395544955459554695547955489554995550955519555295553955549555595556955579555895559955609556195562955639556495565955669556795568955699557095571955729557395574955759557695577955789557995580955819558295583955849558595586955879558895589955909559195592955939559495595955969559795598955999560095601956029560395604956059560695607956089560995610956119561295613956149561595616956179561895619956209562195622956239562495625956269562795628956299563095631956329563395634956359563695637956389563995640956419564295643956449564595646956479564895649956509565195652956539565495655956569565795658956599566095661956629566395664956659566695667956689566995670956719567295673956749567595676956779567895679956809568195682956839568495685956869568795688956899569095691956929569395694956959569695697956989569995700957019570295703957049570595706957079570895709957109571195712957139571495715957169571795718957199572095721957229572395724957259572695727957289572995730957319573295733957349573595736957379573895739957409574195742957439574495745957469574795748957499575095751957529575395754957559575695757957589575995760957619576295763957649576595766957679576895769957709577195772957739577495775957769577795778957799578095781957829578395784957859578695787957889578995790957919579295793957949579595796957979579895799958009580195802958039580495805958069580795808958099581095811958129581395814958159581695817958189581995820958219582295823958249582595826958279582895829958309583195832958339583495835958369583795838958399584095841958429584395844958459584695847958489584995850958519585295853958549585595856958579585895859958609586195862958639586495865958669586795868958699587095871958729587395874958759587695877958789587995880958819588295883958849588595886958879588895889958909589195892958939589495895958969589795898958999590095901959029590395904959059590695907959089590995910959119591295913959149591595916959179591895919959209592195922959239592495925959269592795928959299593095931959329593395934959359593695937959389593995940959419594295943959449594595946959479594895949959509595195952959539595495955959569595795958959599596095961959629596395964959659596695967959689596995970959719597295973959749597595976959779597895979959809598195982959839598495985959869598795988959899599095991959929599395994959959599695997959989599996000960019600296003960049600596006960079600896009960109601196012960139601496015960169601796018960199602096021960229602396024960259602696027960289602996030960319603296033960349603596036960379603896039960409604196042960439604496045960469604796048960499605096051960529605396054960559605696057960589605996060960619606296063960649606596066960679606896069960709607196072960739607496075960769607796078960799608096081960829608396084960859608696087960889608996090960919609296093960949609596096960979609896099961009610196102961039610496105961069610796108961099611096111961129611396114961159611696117961189611996120961219612296123961249612596126961279612896129961309613196132961339613496135961369613796138961399614096141961429614396144961459614696147961489614996150961519615296153961549615596156961579615896159961609616196162961639616496165961669616796168961699617096171961729617396174961759617696177961789617996180961819618296183961849618596186961879618896189961909619196192961939619496195961969619796198961999620096201962029620396204962059620696207962089620996210962119621296213962149621596216962179621896219962209622196222962239622496225962269622796228962299623096231962329623396234962359623696237962389623996240962419624296243962449624596246962479624896249962509625196252962539625496255962569625796258962599626096261962629626396264962659626696267962689626996270962719627296273962749627596276962779627896279962809628196282962839628496285962869628796288962899629096291962929629396294962959629696297962989629996300963019630296303963049630596306963079630896309963109631196312963139631496315963169631796318963199632096321963229632396324963259632696327963289632996330963319633296333963349633596336963379633896339963409634196342963439634496345963469634796348963499635096351963529635396354963559635696357963589635996360963619636296363963649636596366963679636896369963709637196372963739637496375963769637796378963799638096381963829638396384963859638696387963889638996390963919639296393963949639596396963979639896399964009640196402964039640496405964069640796408964099641096411964129641396414964159641696417964189641996420964219642296423964249642596426964279642896429964309643196432964339643496435964369643796438964399644096441964429644396444964459644696447964489644996450964519645296453964549645596456964579645896459964609646196462964639646496465964669646796468964699647096471964729647396474964759647696477964789647996480964819648296483964849648596486964879648896489964909649196492964939649496495964969649796498964999650096501965029650396504965059650696507965089650996510965119651296513965149651596516965179651896519965209652196522965239652496525965269652796528965299653096531965329653396534965359653696537965389653996540965419654296543965449654596546965479654896549965509655196552965539655496555965569655796558965599656096561965629656396564965659656696567965689656996570965719657296573965749657596576965779657896579965809658196582965839658496585965869658796588965899659096591965929659396594965959659696597965989659996600966019660296603966049660596606966079660896609966109661196612966139661496615966169661796618966199662096621966229662396624966259662696627966289662996630966319663296633966349663596636966379663896639966409664196642966439664496645966469664796648966499665096651966529665396654966559665696657966589665996660966619666296663966649666596666966679666896669966709667196672966739667496675966769667796678966799668096681966829668396684966859668696687966889668996690966919669296693966949669596696966979669896699967009670196702967039670496705967069670796708967099671096711967129671396714967159671696717967189671996720967219672296723967249672596726967279672896729967309673196732967339673496735967369673796738967399674096741967429674396744967459674696747967489674996750967519675296753967549675596756967579675896759967609676196762967639676496765967669676796768967699677096771967729677396774967759677696777967789677996780967819678296783967849678596786967879678896789967909679196792967939679496795967969679796798967999680096801968029680396804968059680696807968089680996810968119681296813968149681596816968179681896819968209682196822968239682496825968269682796828968299683096831968329683396834968359683696837968389683996840968419684296843968449684596846968479684896849968509685196852968539685496855968569685796858968599686096861968629686396864968659686696867968689686996870968719687296873968749687596876968779687896879968809688196882968839688496885968869688796888968899689096891968929689396894968959689696897968989689996900969019690296903969049690596906969079690896909969109691196912969139691496915969169691796918969199692096921969229692396924969259692696927969289692996930969319693296933969349693596936969379693896939969409694196942969439694496945969469694796948969499695096951969529695396954969559695696957969589695996960969619696296963969649696596966969679696896969969709697196972969739697496975969769697796978969799698096981969829698396984969859698696987969889698996990969919699296993969949699596996969979699896999970009700197002970039700497005970069700797008970099701097011970129701397014970159701697017970189701997020970219702297023970249702597026970279702897029970309703197032970339703497035970369703797038970399704097041970429704397044970459704697047970489704997050970519705297053970549705597056970579705897059970609706197062970639706497065970669706797068970699707097071970729707397074970759707697077970789707997080970819708297083970849708597086970879708897089970909709197092970939709497095970969709797098970999710097101971029710397104971059710697107971089710997110971119711297113971149711597116971179711897119971209712197122971239712497125971269712797128971299713097131971329713397134971359713697137971389713997140971419714297143971449714597146971479714897149971509715197152971539715497155971569715797158971599716097161971629716397164971659716697167971689716997170971719717297173971749717597176971779717897179971809718197182971839718497185971869718797188971899719097191971929719397194971959719697197971989719997200972019720297203972049720597206972079720897209972109721197212972139721497215972169721797218972199722097221972229722397224972259722697227972289722997230972319723297233972349723597236972379723897239972409724197242972439724497245972469724797248972499725097251972529725397254972559725697257972589725997260972619726297263972649726597266972679726897269972709727197272972739727497275972769727797278972799728097281972829728397284972859728697287972889728997290972919729297293972949729597296972979729897299973009730197302973039730497305973069730797308973099731097311973129731397314973159731697317973189731997320973219732297323973249732597326973279732897329973309733197332973339733497335973369733797338973399734097341973429734397344973459734697347973489734997350973519735297353973549735597356973579735897359973609736197362973639736497365973669736797368973699737097371973729737397374973759737697377973789737997380973819738297383973849738597386973879738897389973909739197392973939739497395973969739797398973999740097401974029740397404974059740697407974089740997410974119741297413974149741597416974179741897419974209742197422974239742497425974269742797428974299743097431974329743397434974359743697437974389743997440974419744297443974449744597446974479744897449974509745197452974539745497455974569745797458974599746097461974629746397464974659746697467974689746997470974719747297473974749747597476974779747897479974809748197482974839748497485974869748797488974899749097491974929749397494974959749697497974989749997500975019750297503975049750597506975079750897509975109751197512975139751497515975169751797518975199752097521975229752397524975259752697527975289752997530975319753297533975349753597536975379753897539975409754197542975439754497545975469754797548975499755097551975529755397554975559755697557975589755997560975619756297563975649756597566975679756897569975709757197572975739757497575975769757797578975799758097581975829758397584975859758697587975889758997590975919759297593975949759597596975979759897599976009760197602976039760497605976069760797608976099761097611976129761397614976159761697617976189761997620976219762297623976249762597626976279762897629976309763197632976339763497635976369763797638976399764097641976429764397644976459764697647976489764997650976519765297653976549765597656976579765897659976609766197662976639766497665976669766797668976699767097671976729767397674976759767697677976789767997680976819768297683976849768597686976879768897689976909769197692976939769497695976969769797698976999770097701977029770397704977059770697707977089770997710977119771297713977149771597716977179771897719977209772197722977239772497725977269772797728977299773097731977329773397734977359773697737977389773997740977419774297743977449774597746977479774897749977509775197752977539775497755977569775797758977599776097761977629776397764977659776697767977689776997770977719777297773977749777597776977779777897779977809778197782977839778497785977869778797788977899779097791977929779397794977959779697797977989779997800978019780297803978049780597806978079780897809978109781197812978139781497815978169781797818978199782097821978229782397824978259782697827978289782997830978319783297833978349783597836978379783897839978409784197842978439784497845978469784797848978499785097851978529785397854978559785697857978589785997860978619786297863978649786597866978679786897869978709787197872978739787497875978769787797878978799788097881978829788397884978859788697887978889788997890978919789297893978949789597896978979789897899979009790197902979039790497905979069790797908979099791097911979129791397914979159791697917979189791997920979219792297923979249792597926979279792897929979309793197932979339793497935979369793797938979399794097941979429794397944979459794697947979489794997950979519795297953979549795597956979579795897959979609796197962979639796497965979669796797968979699797097971979729797397974979759797697977979789797997980979819798297983979849798597986979879798897989979909799197992979939799497995979969799797998979999800098001980029800398004980059800698007980089800998010980119801298013980149801598016980179801898019980209802198022980239802498025980269802798028980299803098031980329803398034980359803698037980389803998040980419804298043980449804598046980479804898049980509805198052980539805498055980569805798058980599806098061980629806398064980659806698067980689806998070980719807298073980749807598076980779807898079980809808198082980839808498085980869808798088980899809098091980929809398094980959809698097980989809998100981019810298103981049810598106981079810898109981109811198112981139811498115981169811798118981199812098121981229812398124981259812698127981289812998130981319813298133981349813598136981379813898139981409814198142981439814498145981469814798148981499815098151981529815398154981559815698157981589815998160981619816298163981649816598166981679816898169981709817198172981739817498175981769817798178981799818098181981829818398184981859818698187981889818998190981919819298193981949819598196981979819898199982009820198202982039820498205982069820798208982099821098211982129821398214982159821698217982189821998220982219822298223982249822598226982279822898229982309823198232982339823498235982369823798238982399824098241982429824398244982459824698247982489824998250982519825298253982549825598256982579825898259982609826198262982639826498265982669826798268982699827098271982729827398274982759827698277982789827998280982819828298283982849828598286982879828898289982909829198292982939829498295982969829798298982999830098301983029830398304983059830698307983089830998310983119831298313983149831598316983179831898319983209832198322983239832498325983269832798328983299833098331983329833398334983359833698337983389833998340983419834298343983449834598346983479834898349983509835198352983539835498355983569835798358983599836098361983629836398364983659836698367983689836998370983719837298373983749837598376983779837898379983809838198382983839838498385983869838798388983899839098391983929839398394983959839698397983989839998400984019840298403984049840598406984079840898409984109841198412984139841498415984169841798418984199842098421984229842398424984259842698427984289842998430984319843298433984349843598436984379843898439984409844198442984439844498445984469844798448984499845098451984529845398454984559845698457984589845998460984619846298463984649846598466984679846898469984709847198472984739847498475984769847798478984799848098481984829848398484984859848698487984889848998490984919849298493984949849598496984979849898499985009850198502985039850498505985069850798508985099851098511985129851398514985159851698517985189851998520985219852298523985249852598526985279852898529985309853198532985339853498535985369853798538985399854098541985429854398544985459854698547985489854998550985519855298553985549855598556985579855898559985609856198562985639856498565985669856798568985699857098571985729857398574985759857698577985789857998580985819858298583985849858598586985879858898589985909859198592985939859498595985969859798598985999860098601986029860398604986059860698607986089860998610986119861298613986149861598616986179861898619986209862198622986239862498625986269862798628986299863098631986329863398634986359863698637986389863998640986419864298643986449864598646986479864898649986509865198652986539865498655986569865798658986599866098661986629866398664986659866698667986689866998670986719867298673986749867598676986779867898679986809868198682986839868498685986869868798688986899869098691986929869398694986959869698697986989869998700987019870298703987049870598706987079870898709987109871198712987139871498715987169871798718987199872098721987229872398724987259872698727987289872998730987319873298733987349873598736987379873898739987409874198742987439874498745987469874798748987499875098751987529875398754987559875698757987589875998760987619876298763987649876598766987679876898769987709877198772987739877498775987769877798778987799878098781987829878398784987859878698787987889878998790987919879298793987949879598796987979879898799988009880198802988039880498805988069880798808988099881098811988129881398814988159881698817988189881998820988219882298823988249882598826988279882898829988309883198832988339883498835988369883798838988399884098841988429884398844988459884698847988489884998850988519885298853988549885598856988579885898859988609886198862988639886498865988669886798868988699887098871988729887398874988759887698877988789887998880988819888298883988849888598886988879888898889988909889198892988939889498895988969889798898988999890098901989029890398904989059890698907989089890998910989119891298913989149891598916989179891898919989209892198922989239892498925989269892798928989299893098931989329893398934989359893698937989389893998940989419894298943989449894598946989479894898949989509895198952989539895498955989569895798958989599896098961989629896398964989659896698967989689896998970989719897298973989749897598976989779897898979989809898198982989839898498985989869898798988989899899098991989929899398994989959899698997989989899999000990019900299003990049900599006990079900899009990109901199012990139901499015990169901799018990199902099021990229902399024990259902699027990289902999030990319903299033990349903599036990379903899039990409904199042990439904499045990469904799048990499905099051990529905399054990559905699057990589905999060990619906299063990649906599066990679906899069990709907199072990739907499075990769907799078990799908099081990829908399084990859908699087990889908999090990919909299093990949909599096990979909899099991009910199102991039910499105991069910799108991099911099111991129911399114991159911699117991189911999120991219912299123991249912599126991279912899129991309913199132991339913499135991369913799138991399914099141991429914399144991459914699147991489914999150991519915299153991549915599156991579915899159991609916199162991639916499165991669916799168991699917099171991729917399174991759917699177991789917999180991819918299183991849918599186991879918899189991909919199192991939919499195991969919799198991999920099201992029920399204992059920699207992089920999210992119921299213992149921599216992179921899219992209922199222992239922499225992269922799228992299923099231992329923399234992359923699237992389923999240992419924299243992449924599246992479924899249992509925199252992539925499255992569925799258992599926099261992629926399264992659926699267992689926999270992719927299273992749927599276992779927899279992809928199282992839928499285992869928799288992899929099291992929929399294992959929699297992989929999300993019930299303993049930599306993079930899309993109931199312993139931499315993169931799318993199932099321993229932399324993259932699327993289932999330993319933299333993349933599336993379933899339993409934199342993439934499345993469934799348993499935099351993529935399354993559935699357993589935999360993619936299363993649936599366993679936899369993709937199372993739937499375993769937799378993799938099381993829938399384993859938699387993889938999390993919939299393993949939599396993979939899399994009940199402994039940499405994069940799408994099941099411994129941399414994159941699417994189941999420994219942299423994249942599426994279942899429994309943199432994339943499435994369943799438994399944099441994429944399444994459944699447994489944999450994519945299453994549945599456994579945899459994609946199462994639946499465994669946799468994699947099471994729947399474994759947699477994789947999480994819948299483994849948599486994879948899489994909949199492994939949499495994969949799498994999950099501995029950399504995059950699507995089950999510995119951299513995149951599516995179951899519995209952199522995239952499525995269952799528995299953099531995329953399534995359953699537995389953999540995419954299543995449954599546995479954899549995509955199552995539955499555995569955799558995599956099561995629956399564995659956699567995689956999570995719957299573995749957599576995779957899579995809958199582995839958499585995869958799588995899959099591995929959399594995959959699597995989959999600996019960299603996049960599606996079960899609996109961199612996139961499615996169961799618996199962099621996229962399624996259962699627996289962999630996319963299633996349963599636996379963899639996409964199642996439964499645996469964799648996499965099651996529965399654996559965699657996589965999660996619966299663996649966599666996679966899669996709967199672996739967499675996769967799678996799968099681996829968399684996859968699687996889968999690996919969299693996949969599696996979969899699997009970199702997039970499705997069970799708997099971099711997129971399714997159971699717997189971999720997219972299723997249972599726997279972899729997309973199732997339973499735997369973799738997399974099741997429974399744997459974699747997489974999750997519975299753997549975599756997579975899759997609976199762997639976499765997669976799768997699977099771997729977399774997759977699777997789977999780997819978299783997849978599786997879978899789997909979199792997939979499795997969979799798997999980099801998029980399804998059980699807998089980999810998119981299813998149981599816998179981899819998209982199822998239982499825998269982799828998299983099831998329983399834998359983699837998389983999840998419984299843998449984599846998479984899849998509985199852998539985499855998569985799858998599986099861998629986399864998659986699867998689986999870998719987299873998749987599876998779987899879998809988199882998839988499885998869988799888998899989099891998929989399894998959989699897998989989999900999019990299903999049990599906999079990899909999109991199912999139991499915999169991799918999199992099921999229992399924999259992699927999289992999930999319993299933999349993599936999379993899939999409994199942999439994499945999469994799948999499995099951999529995399954999559995699957999589995999960999619996299963999649996599966999679996899969999709997199972999739997499975999769997799978999799998099981999829998399984999859998699987999889998999990999919999299993999949999599996999979999899999100000100001100002100003100004100005100006100007100008100009100010100011100012100013100014100015100016100017100018100019100020100021100022100023100024100025100026100027100028100029100030100031100032100033100034100035100036100037100038100039100040100041100042100043100044100045100046100047100048100049100050100051100052100053100054100055100056100057100058100059100060100061100062100063100064100065100066100067100068100069100070100071100072100073100074100075100076100077100078100079100080100081100082100083100084100085100086100087100088100089100090100091100092100093100094100095100096100097100098100099100100100101100102100103100104100105100106100107100108100109100110100111100112100113100114100115100116100117100118100119100120100121100122100123100124100125100126100127100128100129100130100131100132100133100134100135100136100137100138100139100140100141100142100143100144100145100146100147100148100149100150100151100152100153100154100155100156100157100158100159100160100161100162100163100164100165100166100167100168100169100170100171100172100173100174100175100176100177100178100179100180100181100182100183100184100185100186100187100188100189100190100191100192100193100194100195100196100197100198100199100200100201100202100203100204100205100206100207100208100209100210100211100212100213100214100215100216100217100218100219100220100221100222100223100224100225100226100227100228100229100230100231100232100233100234100235100236100237100238100239100240100241100242100243100244100245100246100247100248100249100250100251100252100253100254100255100256100257100258100259100260100261100262100263100264100265100266100267100268100269100270100271100272100273100274100275100276100277100278100279100280100281100282100283100284100285100286100287100288100289100290100291100292100293100294100295100296100297100298100299100300100301100302100303100304100305100306100307100308100309100310100311100312100313100314100315100316100317100318100319100320100321100322100323100324100325100326100327100328100329100330100331100332100333100334100335100336100337100338100339100340100341100342100343100344100345100346100347100348100349100350100351100352100353100354100355100356100357100358100359100360100361100362100363100364100365100366100367100368100369100370100371100372100373100374100375100376100377100378100379100380100381100382100383100384100385100386100387100388100389100390100391100392100393100394100395100396100397100398100399100400100401100402100403100404100405100406100407100408100409100410100411100412100413100414100415100416100417100418100419100420100421100422100423100424100425100426100427100428100429100430100431100432100433100434100435100436100437100438100439100440100441100442100443100444100445100446100447100448100449100450100451100452100453100454100455100456100457100458100459100460100461100462100463100464100465100466100467100468100469100470100471100472100473100474100475100476100477100478100479100480100481100482100483100484100485100486100487100488100489100490100491100492100493100494100495100496100497100498100499100500100501100502100503100504100505100506100507100508100509100510100511100512100513100514100515100516100517100518100519100520100521100522100523100524100525100526100527100528100529100530100531100532100533100534100535100536100537100538100539100540100541100542100543100544100545100546100547100548100549100550100551100552100553100554100555100556100557100558100559100560100561100562100563100564100565100566100567100568100569100570100571100572100573100574100575100576100577100578100579100580100581100582100583100584100585100586100587100588100589100590100591100592100593100594100595100596100597100598100599100600100601100602100603100604100605100606100607100608100609100610100611100612100613100614100615100616100617100618100619100620100621100622100623100624100625100626100627100628100629100630100631100632100633100634100635100636100637100638100639100640100641100642100643100644100645100646100647100648100649100650100651100652100653100654100655100656100657100658100659100660100661100662100663100664100665100666100667100668100669100670100671100672100673100674100675100676100677100678100679100680100681100682100683100684100685100686100687100688100689100690100691100692100693100694100695100696100697100698100699100700100701100702100703100704100705100706100707100708100709100710100711100712100713100714100715100716100717100718100719100720100721100722100723100724100725100726100727100728100729100730100731100732100733100734100735100736100737100738100739100740100741100742100743100744100745100746100747100748100749100750100751100752100753100754100755100756100757100758100759100760100761100762100763100764100765100766100767100768100769100770100771100772100773100774100775100776100777100778100779100780100781100782100783100784100785100786100787100788100789100790100791100792100793100794100795100796100797100798100799100800100801100802100803100804100805100806100807100808100809100810100811100812100813100814100815100816100817100818100819100820100821100822100823100824100825100826100827100828100829100830100831100832100833100834100835100836100837100838100839100840100841100842100843100844100845100846100847100848100849100850100851100852100853100854100855100856100857100858100859100860100861100862100863100864100865100866100867100868100869100870100871100872100873100874100875100876100877100878100879100880100881100882100883100884100885100886100887100888100889100890100891100892100893100894100895100896100897100898100899100900100901100902100903100904100905100906100907100908100909100910100911100912100913100914100915100916100917100918100919100920100921100922100923100924100925100926100927100928100929100930100931100932100933100934100935100936100937100938100939100940100941100942100943100944100945100946100947100948100949100950100951100952100953100954100955100956100957100958100959100960100961100962100963100964100965100966100967100968100969100970100971100972100973100974100975100976100977100978100979100980100981100982100983100984100985100986100987100988100989100990100991100992100993100994100995100996100997100998100999101000101001101002101003101004101005101006101007101008101009101010101011101012101013101014101015101016101017101018101019101020101021101022101023101024101025101026101027101028101029101030101031101032101033101034101035101036101037101038101039101040101041101042101043101044101045101046101047101048101049101050101051101052101053101054101055101056101057101058101059101060101061101062101063101064101065101066101067101068101069101070101071101072101073101074101075101076101077101078101079101080101081101082101083101084101085101086101087101088101089101090101091101092101093101094101095101096101097101098101099101100101101101102101103101104101105101106101107101108101109101110101111101112101113101114101115101116101117101118101119101120101121101122101123101124101125101126101127101128101129101130101131101132101133101134101135101136101137101138101139101140101141101142101143101144101145101146101147101148101149101150101151101152101153101154101155101156101157101158101159101160101161101162101163101164101165101166101167101168101169101170101171101172101173101174101175101176101177101178101179101180101181101182101183101184101185101186101187101188101189101190101191101192101193101194101195101196101197101198101199101200101201101202101203101204101205101206101207101208101209101210101211101212101213101214101215101216101217101218101219101220101221101222101223101224101225101226101227101228101229101230101231101232101233101234101235101236101237101238101239101240101241101242101243101244101245101246101247101248101249101250101251101252101253101254101255101256101257101258101259101260101261101262101263101264101265101266101267101268101269101270101271101272101273101274101275101276101277101278101279101280101281101282101283101284101285101286101287101288101289101290101291101292101293101294101295101296101297101298101299101300101301101302101303101304101305101306101307101308101309101310101311101312101313101314101315101316101317101318101319101320101321101322101323101324101325101326101327101328101329101330101331101332101333101334101335101336101337101338101339101340101341101342101343101344101345101346101347101348101349101350101351101352101353101354101355101356101357101358101359101360101361101362101363101364101365101366101367101368101369101370101371101372101373101374101375101376101377101378101379101380101381101382101383101384101385101386101387101388101389101390101391101392101393101394101395101396101397101398101399101400101401101402101403101404101405101406101407101408101409101410101411101412101413101414101415101416101417101418101419101420101421101422101423101424101425101426101427101428101429101430101431101432101433101434101435101436101437101438101439101440101441101442101443101444101445101446101447101448101449101450101451101452101453101454101455101456101457101458101459101460101461101462101463101464101465101466101467101468101469101470101471101472101473101474101475101476101477101478101479101480101481101482101483101484101485101486101487101488101489101490101491101492101493101494101495101496101497101498101499101500101501101502101503101504101505101506101507101508101509101510101511101512101513101514101515101516101517101518101519101520101521101522101523101524101525101526101527101528101529101530101531101532101533101534101535101536101537101538101539101540101541101542101543101544101545101546101547101548101549101550101551101552101553101554101555101556101557101558101559101560101561101562101563101564101565101566101567101568101569101570101571101572101573101574101575101576101577101578101579101580101581101582101583101584101585101586101587101588101589101590101591101592101593101594101595101596101597101598101599101600101601101602101603101604101605101606101607101608101609101610101611101612101613101614101615101616101617101618101619101620101621101622101623101624101625101626101627101628101629101630101631101632101633101634101635101636101637101638101639101640101641101642101643101644101645101646101647101648101649101650101651101652101653101654101655101656101657101658101659101660101661101662101663101664101665101666101667101668101669101670101671101672101673101674101675101676101677101678101679101680101681101682101683101684101685101686101687101688101689101690101691101692101693101694101695101696101697101698101699101700101701101702101703101704101705101706101707101708101709101710101711101712101713101714101715101716101717101718101719101720101721101722101723101724101725101726101727101728101729101730101731101732101733101734101735101736101737101738101739101740101741101742101743101744101745101746101747101748101749101750101751101752101753101754101755101756101757101758101759101760101761101762101763101764101765101766101767101768101769101770101771101772101773101774101775101776101777101778101779101780101781101782101783101784101785101786101787101788101789101790101791101792101793101794101795101796101797101798101799101800101801101802101803101804101805101806101807101808101809101810101811101812101813101814101815101816101817101818101819101820101821101822101823101824101825101826101827101828101829101830101831101832101833101834101835101836101837101838101839101840101841101842101843101844101845101846101847101848101849101850101851101852101853101854101855101856101857101858101859101860101861101862101863101864101865101866101867101868101869101870101871101872101873101874101875101876101877101878101879101880101881101882101883101884101885101886101887101888101889101890101891101892101893101894101895101896101897101898101899101900101901101902101903101904101905101906101907101908101909101910101911101912101913101914101915101916101917101918101919101920101921101922101923101924101925101926101927101928101929101930101931101932101933101934101935101936101937101938101939101940101941101942101943101944101945101946101947101948101949101950101951101952101953101954101955101956101957101958101959101960101961101962101963101964101965101966101967101968101969101970101971101972101973101974101975101976101977101978101979101980101981101982101983101984101985101986101987101988101989101990101991101992101993101994101995101996101997101998101999102000102001102002102003102004102005102006102007102008102009102010102011102012102013102014102015102016102017102018102019102020102021102022102023102024102025102026102027102028102029102030102031102032102033102034102035102036102037102038102039102040102041102042102043102044102045102046102047102048102049102050102051102052102053102054102055102056102057102058102059102060102061102062102063102064102065102066102067102068102069102070102071102072102073102074102075102076102077102078102079102080102081102082102083102084102085102086102087102088102089102090102091102092102093102094102095102096102097102098102099102100102101102102102103102104102105102106102107102108102109102110102111102112102113102114102115102116102117102118102119102120102121102122102123102124102125102126102127102128102129102130102131102132102133102134102135102136102137102138102139102140102141102142102143102144102145102146102147102148102149102150102151102152102153102154102155102156102157102158102159102160102161102162102163102164102165102166102167102168102169102170102171102172102173102174102175102176102177102178102179102180102181102182102183102184102185102186102187102188102189102190102191102192102193102194102195102196102197102198102199102200102201102202102203102204102205102206102207102208102209102210102211102212102213102214102215102216102217102218102219102220102221102222102223102224102225102226102227102228102229102230102231102232102233102234102235102236102237102238102239102240102241102242102243102244102245102246102247102248102249102250102251102252102253102254102255102256102257102258102259102260102261102262102263102264102265102266102267102268102269102270102271102272102273102274102275102276102277102278102279102280102281102282102283102284102285102286102287102288102289102290102291102292102293102294102295102296102297102298102299102300102301102302102303102304102305102306102307102308102309102310102311102312102313102314102315102316102317102318102319102320102321102322102323102324102325102326102327102328102329102330102331102332102333102334102335102336102337102338102339102340102341102342102343102344102345102346102347102348102349102350102351102352102353102354102355102356102357102358102359102360102361102362102363102364102365102366102367102368102369102370102371102372102373102374102375102376102377102378102379102380102381102382102383102384102385102386102387102388102389102390102391102392102393102394102395102396102397102398102399102400102401102402102403102404102405102406102407102408102409102410102411102412102413102414102415102416102417102418102419102420102421102422102423102424102425102426102427102428102429102430102431102432102433102434102435102436102437102438102439102440102441102442102443102444102445102446102447102448102449102450102451102452102453102454102455102456102457102458102459102460102461102462102463102464102465102466102467102468102469102470102471102472102473102474102475102476102477102478102479102480102481102482102483102484102485102486102487102488102489102490102491102492102493102494102495102496102497102498102499102500102501102502102503102504102505102506102507102508102509102510102511102512102513102514102515102516102517102518102519102520102521102522102523102524102525102526102527102528102529102530102531102532102533102534102535102536102537102538102539102540102541102542102543102544102545102546102547102548102549102550102551102552102553102554102555102556102557102558102559102560102561102562102563102564102565102566102567102568102569102570102571102572102573102574102575102576102577102578102579102580102581102582102583102584102585102586102587102588102589102590102591102592102593102594102595102596102597102598102599102600102601102602102603102604102605102606102607102608102609102610102611102612102613102614102615102616102617102618102619102620102621102622102623102624102625102626102627102628102629102630102631102632102633102634102635102636102637102638102639102640102641102642102643102644102645102646102647102648102649102650102651102652102653102654102655102656102657102658102659102660102661102662102663102664102665102666102667102668102669102670102671102672102673102674102675102676102677102678102679102680102681102682102683102684102685102686102687102688102689102690102691102692102693102694102695102696102697102698102699102700102701102702102703102704102705102706102707102708102709102710102711102712102713102714102715102716102717102718102719102720102721102722102723102724102725102726102727102728102729102730102731102732102733102734102735102736102737102738102739102740102741102742102743102744102745102746102747102748102749102750102751102752102753102754102755102756102757102758102759102760102761102762102763102764102765102766102767102768102769102770102771102772102773102774102775102776102777102778102779102780102781102782102783102784102785102786102787102788102789102790102791102792102793102794102795102796102797102798102799102800102801102802102803102804102805102806102807102808102809102810102811102812102813102814102815102816102817102818102819102820102821102822102823102824102825102826102827102828102829102830102831102832102833102834102835102836102837102838102839102840102841102842102843102844102845102846102847102848102849102850102851102852102853102854102855102856102857102858102859102860102861102862102863102864102865102866102867102868102869102870102871102872102873102874102875102876102877102878102879102880102881102882102883102884102885102886102887102888102889102890102891102892102893102894102895102896102897102898102899102900102901102902102903102904102905102906102907102908102909102910102911102912102913102914102915102916102917102918102919102920102921102922102923102924102925102926102927102928102929102930102931102932102933102934102935102936102937102938102939102940102941102942102943102944102945102946102947102948102949102950102951102952102953102954102955102956102957102958102959102960102961102962102963102964102965102966102967102968102969102970102971102972102973102974102975102976102977102978102979102980102981102982102983102984102985102986102987102988102989102990102991102992102993102994102995102996102997102998102999103000103001103002103003103004103005103006103007103008103009103010103011103012103013103014103015103016103017103018103019103020103021103022103023103024103025103026103027103028103029103030103031103032103033103034103035103036103037103038103039103040103041103042103043103044103045103046103047103048103049103050103051103052103053103054103055103056103057103058103059103060103061103062103063103064103065103066103067103068103069103070103071103072103073103074103075103076103077103078103079103080103081103082103083103084103085103086103087103088103089103090103091103092103093103094103095103096103097103098103099103100103101103102103103103104103105103106103107103108103109103110103111103112103113103114103115103116103117103118103119103120103121103122103123103124103125103126103127103128103129103130103131103132103133103134103135103136103137103138103139103140103141103142103143103144103145103146103147103148103149103150103151103152103153103154103155103156103157103158103159103160103161103162103163103164103165103166103167103168103169103170103171103172103173103174103175103176103177103178103179103180103181103182103183103184103185103186103187103188103189103190103191103192103193103194103195103196103197103198103199103200103201103202103203103204103205103206103207103208103209103210103211103212103213103214103215103216103217103218103219103220103221103222103223103224103225103226103227103228103229103230103231103232103233103234103235103236103237103238103239103240103241103242103243103244103245103246103247103248103249103250103251103252103253103254103255103256103257103258103259103260103261103262103263103264103265103266103267103268103269103270103271103272103273103274103275103276103277103278103279103280103281103282103283103284103285103286103287103288103289103290103291103292103293103294103295103296103297103298103299103300103301103302103303103304103305103306103307103308103309103310103311103312103313103314103315103316103317103318103319103320103321103322103323103324103325103326103327103328103329103330103331103332103333103334103335103336103337103338103339103340103341103342103343103344103345103346103347103348103349103350103351103352103353103354103355103356103357103358103359103360103361103362103363103364103365103366103367103368103369103370103371103372103373103374103375103376103377103378103379103380103381103382103383103384103385103386103387103388103389103390103391103392103393103394103395103396103397103398103399103400103401103402103403103404103405103406103407103408103409103410103411103412103413103414103415103416103417103418103419103420103421103422103423103424103425103426103427103428103429103430103431103432103433103434103435103436103437103438103439103440103441103442103443103444103445103446103447103448103449103450103451103452103453103454103455103456103457103458103459103460103461103462103463103464103465103466103467103468103469103470103471103472103473103474103475103476103477103478103479103480103481103482103483103484103485103486103487103488103489103490103491103492103493103494103495103496103497103498103499103500103501103502103503103504103505103506103507103508103509103510103511103512103513103514103515103516103517103518103519103520103521103522103523103524103525103526103527103528103529103530103531103532103533103534103535103536103537103538103539103540103541103542103543103544103545103546103547103548103549103550103551103552103553103554103555103556103557103558103559103560103561103562103563103564103565103566103567103568103569103570103571103572103573103574103575103576103577103578103579103580103581103582103583103584103585103586103587103588103589103590103591103592103593103594103595103596103597103598103599103600103601103602103603103604103605103606103607103608103609103610103611103612103613103614103615103616103617103618103619103620103621103622103623103624103625103626103627103628103629103630103631103632103633103634103635103636103637103638103639103640103641103642103643103644103645103646103647103648103649103650103651103652103653103654103655103656103657103658103659103660103661103662103663103664103665103666103667103668103669103670103671103672103673103674103675103676103677103678103679103680103681103682103683103684103685103686103687103688103689103690103691103692103693103694103695103696103697103698103699103700103701103702103703103704103705103706103707103708103709103710103711103712103713103714103715103716103717103718103719103720103721103722103723103724103725103726103727103728103729103730103731103732103733103734103735103736103737103738103739103740103741103742103743103744103745103746103747103748103749103750103751103752103753103754103755103756103757103758103759103760103761103762103763103764103765103766103767103768103769103770103771103772103773103774103775103776103777103778103779103780103781103782103783103784103785103786103787103788103789103790103791103792103793103794103795103796103797103798103799103800103801103802103803103804103805103806103807103808103809103810103811103812103813103814103815103816103817103818103819103820103821103822103823103824103825103826103827103828103829103830103831103832103833103834103835103836103837103838103839103840103841103842103843103844103845103846103847103848103849103850103851103852103853103854103855103856103857103858103859103860103861103862103863103864103865103866103867103868103869103870103871103872103873103874103875103876103877103878103879103880103881103882103883103884103885103886103887103888103889103890103891103892103893103894103895103896103897103898103899103900103901103902103903103904103905103906103907103908103909103910103911103912103913103914103915103916103917103918103919103920103921103922103923103924103925103926103927103928103929103930103931103932103933103934103935103936103937103938103939103940103941103942103943103944103945103946103947103948103949103950103951103952103953103954103955103956103957103958103959103960103961103962103963103964103965103966103967103968103969103970103971103972103973103974103975103976103977103978103979103980103981103982103983103984103985103986103987103988103989103990103991103992103993103994103995103996103997103998103999104000104001104002104003104004104005104006104007104008104009104010104011104012104013104014104015104016104017104018104019104020104021104022104023104024104025104026104027104028104029104030104031104032104033104034104035104036104037104038104039104040104041104042104043104044104045104046104047104048104049104050104051104052104053104054104055104056104057104058104059104060104061104062104063104064104065104066104067104068104069104070104071104072104073104074104075104076104077104078104079104080104081104082104083104084104085104086104087104088104089104090104091104092104093104094104095104096104097104098104099104100104101104102104103104104104105104106104107104108104109104110104111104112104113104114104115104116104117104118104119104120104121104122104123104124104125104126104127104128104129104130104131104132104133104134104135104136104137104138104139104140104141104142104143104144104145104146104147104148104149104150104151104152104153104154104155104156104157104158104159104160104161104162104163104164104165104166104167104168104169104170104171104172104173104174104175104176104177104178104179104180104181104182104183104184104185104186104187104188104189104190104191104192104193104194104195104196104197104198104199104200104201104202104203104204104205104206104207104208104209104210104211104212104213104214104215104216104217104218104219104220104221104222104223104224104225104226104227104228104229104230104231104232104233104234104235104236104237104238104239104240104241104242104243104244104245104246104247104248104249104250104251104252104253104254104255104256104257104258104259104260104261104262104263104264104265104266104267104268104269104270104271104272104273104274104275104276104277104278104279104280104281104282104283104284104285104286104287104288104289104290104291104292104293104294104295104296104297104298104299104300104301104302104303104304104305104306104307104308104309104310104311104312104313104314104315104316104317104318104319104320104321104322104323104324104325104326104327104328104329104330104331104332104333104334104335104336104337104338104339104340104341104342104343104344104345104346104347104348104349104350104351104352104353104354104355104356104357104358104359104360104361104362104363104364104365104366104367104368104369104370104371104372104373104374104375104376104377104378104379104380104381104382104383104384104385104386104387104388104389104390104391104392104393104394104395104396104397104398104399104400104401104402104403104404104405104406104407104408104409104410104411104412104413104414104415104416104417104418104419104420104421104422104423104424104425104426104427104428104429104430104431104432104433104434104435104436104437104438104439104440104441104442104443104444104445104446104447104448104449104450104451104452104453104454104455104456104457104458104459104460104461104462104463104464104465104466104467104468104469104470104471104472104473104474104475104476104477104478104479104480104481104482104483104484104485104486104487104488104489104490104491104492104493104494104495104496104497104498104499104500104501104502104503104504104505104506104507104508104509104510104511104512104513104514104515104516104517104518104519104520104521104522104523104524104525104526104527104528104529104530104531104532104533104534104535104536104537104538104539104540104541104542104543104544104545104546104547104548104549104550104551104552104553104554104555104556104557104558104559104560104561104562104563104564104565104566104567104568104569104570104571104572104573104574104575104576104577104578104579104580104581104582104583104584104585104586104587104588104589104590104591104592104593104594104595104596104597104598104599104600104601104602104603104604104605104606104607104608104609104610104611104612104613104614104615104616104617104618104619104620104621104622104623104624104625104626104627104628104629104630104631104632104633104634104635104636104637104638104639104640104641104642104643104644104645104646104647104648104649104650104651104652104653104654104655104656104657104658104659104660104661104662104663104664104665104666104667104668104669104670104671104672104673104674104675104676104677104678104679104680104681104682104683104684104685104686104687104688104689104690104691104692104693104694104695104696104697104698104699104700104701104702104703104704104705104706104707104708104709104710104711104712104713104714104715104716104717104718104719104720104721104722104723104724104725104726104727104728104729104730104731104732104733104734104735104736104737104738104739104740104741104742104743104744104745104746104747104748104749104750104751104752104753104754104755104756104757104758104759104760104761104762104763104764104765104766104767104768104769104770104771104772104773104774104775104776104777104778104779104780104781104782104783104784104785104786104787104788104789104790104791104792104793104794104795104796104797104798104799104800104801104802104803104804104805104806104807104808104809104810104811104812104813104814104815104816104817104818104819104820104821104822104823104824104825104826104827104828104829104830104831104832104833104834104835104836104837104838104839104840104841104842104843104844104845104846104847104848104849104850104851104852104853104854104855104856104857104858104859104860104861104862104863104864104865104866104867104868104869104870104871104872104873104874104875104876104877104878104879104880104881104882104883104884104885104886104887104888104889104890104891104892104893104894104895104896104897104898104899104900104901104902104903104904104905104906104907104908104909104910104911104912104913104914104915104916104917104918104919104920104921104922104923104924104925104926104927104928104929104930104931104932104933104934104935104936104937104938104939104940104941104942104943104944104945104946104947104948104949104950104951104952104953104954104955104956104957104958104959104960104961104962104963104964104965104966104967104968104969104970104971104972104973104974104975104976104977104978104979104980104981104982104983104984104985104986104987104988104989104990104991104992104993104994104995104996104997104998104999105000105001105002105003105004105005105006105007105008105009105010105011105012105013105014105015105016105017105018105019105020105021105022105023105024105025105026105027105028105029105030105031105032105033105034105035105036105037105038105039105040105041105042105043105044105045105046105047105048105049105050105051105052105053105054105055105056105057105058105059105060105061105062105063105064105065105066105067105068105069105070105071105072105073105074105075105076105077105078105079105080105081105082105083105084105085105086105087105088105089105090105091105092105093105094105095105096105097105098105099105100105101105102105103105104105105105106105107105108105109105110105111105112105113105114105115105116105117105118105119105120105121105122105123105124105125105126105127105128105129105130105131105132105133105134105135105136105137105138105139105140105141105142105143105144105145105146105147105148105149105150105151105152105153105154105155105156105157105158105159105160105161105162105163105164105165105166105167105168105169105170105171105172105173105174105175105176105177105178105179105180105181105182105183105184105185105186105187105188105189105190105191105192105193105194105195105196105197105198105199105200105201105202105203105204105205105206105207105208105209105210105211105212105213105214105215105216105217105218105219105220105221105222105223105224105225105226105227105228105229105230105231105232105233105234105235105236105237105238105239105240105241105242105243105244105245105246105247105248105249105250105251105252105253105254105255105256105257105258105259105260105261105262105263105264105265105266105267105268105269105270105271105272105273105274105275105276105277105278105279105280105281105282105283105284105285105286105287105288105289105290105291105292105293105294105295105296105297105298105299105300105301105302105303105304105305105306105307105308105309105310105311105312105313105314105315105316105317105318105319105320105321105322105323105324105325105326105327105328105329105330105331105332105333105334105335105336105337105338105339105340105341105342105343105344105345105346105347105348105349105350105351105352105353105354105355105356105357105358105359105360105361105362105363105364105365105366105367105368105369105370105371105372105373105374105375105376105377105378105379105380105381105382105383105384105385105386105387105388105389105390105391105392105393105394105395105396105397105398105399105400105401105402105403105404105405105406105407105408105409105410105411105412105413105414105415105416105417105418105419105420105421105422105423105424105425105426105427105428105429105430105431105432105433105434105435105436105437105438105439105440105441105442105443105444105445105446105447105448105449105450105451105452105453105454105455105456105457105458105459105460105461105462105463105464105465105466105467105468105469105470105471105472105473105474105475105476105477105478105479105480105481105482105483105484105485105486105487105488105489105490105491105492105493105494105495105496105497105498105499105500105501105502105503105504105505105506105507105508105509105510105511105512105513105514105515105516105517105518105519105520105521105522105523105524105525105526105527105528105529105530105531105532105533105534105535105536105537105538105539105540105541105542105543105544105545105546105547105548105549105550105551105552105553105554105555105556105557105558105559105560105561105562105563105564105565105566105567105568105569105570105571105572105573105574105575105576105577105578105579105580105581105582105583105584105585105586105587105588105589105590105591105592105593105594105595105596105597105598105599105600105601105602105603105604105605105606105607105608105609105610105611105612105613105614105615105616105617105618105619105620105621105622105623105624105625105626105627105628105629105630105631105632105633105634105635105636105637105638105639105640105641105642105643105644105645105646105647105648105649105650105651105652105653105654105655105656105657105658105659105660105661105662105663105664105665105666105667105668105669105670105671105672105673105674105675105676105677105678105679105680105681105682105683105684105685105686105687105688105689105690105691105692105693105694105695105696105697105698105699105700105701105702105703105704105705105706105707105708105709105710105711105712105713105714105715105716105717105718105719105720105721105722105723105724105725105726105727105728105729105730105731105732105733105734105735105736105737105738105739105740105741105742105743105744105745105746105747105748105749105750105751105752105753105754105755105756105757105758105759105760105761105762105763105764105765105766105767105768105769105770105771105772105773105774105775105776105777105778105779105780105781105782105783105784105785105786105787105788105789105790105791105792105793105794105795105796105797105798105799105800105801105802105803105804105805105806105807105808105809105810105811105812105813105814105815105816105817105818105819105820105821105822105823105824105825105826105827105828105829105830105831105832105833105834105835105836105837105838105839105840105841105842105843105844105845105846105847105848105849105850105851105852105853105854105855105856105857105858105859105860105861105862105863105864105865105866105867105868105869105870105871105872105873105874105875105876105877105878105879105880105881105882105883105884105885105886105887105888105889105890105891105892105893105894105895105896105897105898105899105900105901105902105903105904105905105906105907105908105909105910105911105912105913105914105915105916105917105918105919105920105921105922105923105924105925105926105927105928105929105930105931105932105933105934105935105936105937105938105939105940105941105942105943105944105945105946105947105948105949105950105951105952105953105954105955105956105957105958105959105960105961105962105963105964105965105966105967105968105969105970105971105972105973105974105975105976105977105978105979105980105981105982105983105984105985105986105987105988105989105990105991105992105993105994105995105996105997105998105999106000106001106002106003106004106005106006106007106008106009106010106011106012106013106014106015106016106017106018106019106020106021106022106023106024106025106026106027106028106029106030106031106032106033106034106035106036106037106038106039106040106041106042106043106044106045106046106047106048106049106050106051106052106053106054106055106056106057106058106059106060106061106062106063106064106065106066106067106068106069106070106071106072106073106074106075106076106077106078106079106080106081106082106083106084106085106086106087106088106089106090106091106092106093106094106095106096106097106098106099106100106101106102106103106104106105106106106107106108106109106110106111106112106113106114106115106116106117106118106119106120106121106122106123106124106125106126106127106128106129106130106131106132106133106134106135106136106137106138106139106140106141106142106143106144106145106146106147106148106149106150106151106152106153106154106155106156106157106158106159106160106161106162106163106164106165106166106167106168106169106170106171106172106173106174106175106176106177106178106179106180106181106182106183106184106185106186106187106188106189106190106191106192106193106194106195106196106197106198106199106200106201106202106203106204106205106206106207106208106209106210106211106212106213106214106215106216106217106218106219106220106221106222106223106224106225106226106227106228106229106230106231106232106233106234106235106236106237106238106239106240106241106242106243106244106245106246106247106248106249106250106251106252106253106254106255106256106257106258106259106260106261106262106263106264106265106266106267106268106269106270106271106272106273106274106275106276106277106278106279106280106281106282106283106284106285106286106287106288106289106290106291106292106293106294106295106296106297106298106299106300106301106302106303106304106305106306106307106308106309106310106311106312106313106314106315106316106317106318106319106320106321106322106323106324106325106326106327106328106329106330106331106332106333106334106335106336106337106338106339106340106341106342106343106344106345106346106347106348106349106350106351106352106353106354106355106356106357106358106359106360106361106362106363106364106365106366106367106368106369106370106371106372106373106374106375106376106377106378106379106380106381106382106383106384106385106386106387106388106389106390106391106392106393106394106395106396106397106398106399106400106401106402106403106404106405106406106407106408106409106410106411106412106413106414106415106416106417106418106419106420106421106422106423106424106425106426106427106428106429106430106431106432106433106434106435106436106437106438106439106440106441106442106443106444106445106446106447106448106449106450106451106452106453106454106455106456106457106458106459106460106461106462106463106464106465106466106467106468106469106470106471106472106473106474106475106476106477106478106479106480106481106482106483106484106485106486106487106488106489106490106491106492106493106494106495106496106497106498106499106500106501106502106503106504106505106506106507106508106509106510106511106512106513106514106515106516106517106518106519106520106521106522106523106524106525106526106527106528106529106530106531106532106533106534106535106536106537106538106539106540106541106542106543106544106545106546106547106548106549106550106551106552106553106554106555106556106557106558106559106560106561106562106563106564106565106566106567106568106569106570106571106572106573106574106575106576106577106578106579106580106581106582106583106584106585106586106587106588106589106590106591106592106593106594106595106596106597106598106599106600106601106602106603106604106605106606106607106608106609106610106611106612106613106614106615106616106617106618106619106620106621106622106623106624106625106626106627106628106629106630106631106632106633106634106635106636106637106638106639106640106641106642106643106644106645106646106647106648106649106650106651106652106653106654106655106656106657106658106659106660106661106662106663106664106665106666106667106668106669106670106671106672106673106674106675106676106677106678106679106680106681106682106683106684106685106686106687106688106689106690106691106692106693106694106695106696106697106698106699106700106701106702106703106704106705106706106707106708106709106710106711106712106713106714106715106716106717106718106719106720106721106722106723106724106725106726106727106728106729106730106731106732106733106734106735106736106737106738106739106740106741106742106743106744106745106746106747106748106749106750106751106752106753106754106755106756106757106758106759106760106761106762106763106764106765106766106767106768106769106770106771106772106773106774106775106776106777106778106779106780106781106782106783106784106785106786106787106788106789106790106791106792106793106794106795106796106797106798106799106800106801106802106803106804106805106806106807106808106809106810106811106812106813106814106815106816106817106818106819106820106821106822106823106824106825106826106827106828106829106830106831106832106833106834106835106836106837106838106839106840106841106842106843106844106845106846106847106848106849106850106851106852106853106854106855106856106857106858106859106860106861106862106863106864106865106866106867106868106869106870106871106872106873106874106875106876106877106878106879106880106881106882106883106884106885106886106887106888106889106890106891106892106893106894106895106896106897106898106899106900106901106902106903106904106905106906106907106908106909106910106911106912106913106914106915106916106917106918106919106920106921106922106923106924106925106926106927106928106929106930106931106932106933106934106935106936106937106938106939106940106941106942106943106944106945106946106947106948106949106950106951106952106953106954106955106956106957106958106959106960106961106962106963106964106965106966106967106968106969106970106971106972106973106974106975106976106977106978106979106980106981106982106983106984106985106986106987106988106989106990106991106992106993106994106995106996106997106998106999107000107001107002107003107004107005107006107007107008107009107010107011107012107013107014107015107016107017107018107019107020107021107022107023107024107025107026107027107028107029107030107031107032107033107034107035107036107037107038107039107040107041107042107043107044107045107046107047107048107049107050107051107052107053107054107055107056107057107058107059107060107061107062107063107064107065107066107067107068107069107070107071107072107073107074107075107076107077107078107079107080107081107082107083107084107085107086107087107088107089107090107091107092107093107094107095107096107097107098107099107100107101107102107103107104107105107106107107107108107109107110107111107112107113107114107115107116107117107118107119107120107121107122107123107124107125107126107127107128107129107130107131107132107133107134107135107136107137107138107139107140107141107142107143107144107145107146107147107148107149107150107151107152107153107154107155107156107157107158107159107160107161107162107163107164107165107166107167107168107169107170107171107172107173107174107175107176107177107178107179107180107181107182107183107184107185107186107187107188107189107190107191107192107193107194107195107196107197107198107199107200107201107202107203107204107205107206107207107208107209107210107211107212107213107214107215107216107217107218107219107220107221107222107223107224107225107226107227107228107229107230107231107232107233107234107235107236107237107238107239107240107241107242107243107244107245107246107247107248107249107250107251107252107253107254107255107256107257107258107259107260107261107262107263107264107265107266107267107268107269107270107271107272107273107274107275107276107277107278107279107280107281107282107283107284107285107286107287107288107289107290107291107292107293107294107295107296107297107298107299107300107301107302107303107304107305107306107307107308107309107310107311107312107313107314107315107316107317107318107319107320107321107322107323107324107325107326107327107328107329107330107331107332107333107334107335107336107337107338107339107340107341107342107343107344107345107346107347107348107349107350107351107352107353107354107355107356107357107358107359107360107361107362107363107364107365107366107367107368107369107370107371107372107373107374107375107376107377107378107379107380107381107382107383107384107385107386107387107388107389107390107391107392107393107394107395107396107397107398107399107400107401107402107403107404107405107406107407107408107409107410107411107412107413107414107415107416107417107418107419107420107421107422107423107424107425107426107427107428107429107430107431107432107433107434107435107436107437107438107439107440107441107442107443107444107445107446107447107448107449107450107451107452107453107454107455107456107457107458107459107460107461107462107463107464107465107466107467107468107469107470107471107472107473107474107475107476107477107478107479107480107481107482107483107484107485107486107487107488107489107490107491107492107493107494107495107496107497107498107499107500107501107502107503107504107505107506107507107508107509107510107511107512107513107514107515107516107517107518107519107520107521107522107523107524107525107526107527107528107529107530107531107532107533107534107535107536107537107538107539107540107541107542107543107544107545107546107547107548107549107550107551107552107553107554107555107556107557107558107559107560107561107562107563107564107565107566107567107568107569107570107571107572107573107574107575107576107577107578107579107580107581107582107583107584107585107586107587107588107589107590107591107592107593107594107595107596107597107598107599107600107601107602107603107604107605107606107607107608107609107610107611107612107613107614107615107616107617107618107619107620107621107622107623107624107625107626107627107628107629107630107631107632107633107634107635107636107637107638107639107640107641107642107643107644107645107646107647107648107649107650107651107652107653107654107655107656107657107658107659107660107661107662107663107664107665107666107667107668107669107670107671107672107673107674107675107676107677107678107679107680107681107682107683107684107685107686107687107688107689107690107691107692107693107694107695107696107697107698107699107700107701107702107703107704107705107706107707107708107709107710107711107712107713107714107715107716107717107718107719107720107721107722107723107724107725107726107727107728107729107730107731107732107733107734107735107736107737107738107739107740107741107742107743107744107745107746107747107748107749107750107751107752107753107754107755107756107757107758107759107760107761107762107763107764107765107766107767107768107769107770107771107772107773107774107775107776107777107778107779107780107781107782107783107784107785107786107787107788107789107790107791107792107793107794107795107796107797107798107799107800107801107802107803107804107805107806107807107808107809107810107811107812107813107814107815107816107817107818107819107820107821107822107823107824107825107826107827107828107829107830107831107832107833107834107835107836107837107838107839107840107841107842107843107844107845107846107847107848107849107850107851107852107853107854107855107856107857107858107859107860107861107862107863107864107865107866107867107868107869107870107871107872107873107874107875107876107877107878107879107880107881107882107883107884107885107886107887107888107889107890107891107892107893107894107895107896107897107898107899107900107901107902107903107904107905107906107907107908107909107910107911107912107913107914107915107916107917107918107919107920107921107922107923107924107925107926107927107928107929107930107931107932107933107934107935107936107937107938107939107940107941107942107943107944107945107946107947107948107949107950107951107952107953107954107955107956107957107958107959107960107961107962107963107964107965107966107967107968107969107970107971107972107973107974107975107976107977107978107979107980107981107982107983107984107985107986107987107988107989107990107991107992107993107994107995107996107997107998107999108000108001108002108003108004108005108006108007108008108009108010108011108012108013108014108015108016108017108018108019108020108021108022108023108024108025108026108027108028108029108030108031108032108033108034108035108036108037108038108039108040108041108042108043108044108045108046108047108048108049108050108051108052108053108054108055108056108057108058108059108060108061108062108063108064108065108066108067108068108069108070108071108072108073108074108075108076108077108078108079108080108081108082108083108084108085108086108087108088108089108090108091108092108093108094108095108096108097108098108099108100108101108102108103108104108105108106108107108108108109108110108111108112108113108114108115108116108117108118108119108120108121108122108123108124108125108126108127108128108129108130108131108132108133108134108135108136108137108138108139108140108141108142108143108144108145108146108147108148108149108150108151108152108153108154108155108156108157108158108159108160108161108162108163108164108165108166108167108168108169108170108171108172108173108174108175108176108177108178108179108180108181108182108183108184108185108186108187108188108189108190108191108192108193108194108195108196108197108198108199108200108201108202108203108204108205108206108207108208108209108210108211108212108213108214108215108216108217108218108219108220108221108222108223108224108225108226108227108228108229108230108231108232108233108234108235108236108237108238108239108240108241108242108243108244108245108246108247108248108249108250108251108252108253108254108255108256108257108258108259108260108261108262108263108264108265108266108267108268108269108270108271108272108273108274108275108276108277108278108279108280108281108282108283108284108285108286108287108288108289108290108291108292108293108294108295108296108297108298108299108300108301108302108303108304108305108306108307108308108309108310108311108312108313108314108315108316108317108318108319108320108321108322108323108324108325108326108327108328108329108330108331108332108333108334108335108336108337108338108339108340108341108342108343108344108345108346108347108348108349108350108351108352108353108354108355108356108357108358108359108360108361108362108363108364108365108366108367108368108369108370108371108372108373108374108375108376108377108378108379108380108381108382108383108384108385108386108387108388108389108390108391108392108393108394108395108396108397108398108399108400108401108402108403108404108405108406108407108408108409108410108411108412108413108414108415108416108417108418108419108420108421108422108423108424108425108426108427108428108429108430108431108432108433108434108435108436108437108438108439108440108441108442108443108444108445108446108447108448108449108450108451108452108453108454108455108456108457108458108459108460108461108462108463108464108465108466108467108468108469108470108471108472108473108474108475108476108477108478108479108480108481108482108483108484108485108486108487108488108489108490108491108492108493108494108495108496108497108498108499108500108501108502108503108504108505108506108507108508108509108510108511108512108513108514108515108516108517108518108519108520108521108522108523108524108525108526108527108528108529108530108531108532108533108534108535108536108537108538108539108540108541108542108543108544108545108546108547108548108549108550108551108552108553108554108555108556108557108558108559108560108561108562108563108564108565108566108567108568108569108570108571108572108573108574108575108576108577108578108579108580108581108582108583108584108585108586108587108588108589108590108591108592108593108594108595108596108597108598108599108600108601108602108603108604108605108606108607108608108609108610108611108612108613108614108615108616108617108618108619108620108621108622108623108624108625108626108627108628108629108630108631108632108633108634108635108636108637108638108639108640108641108642108643108644108645108646108647108648108649108650108651108652108653108654108655108656108657108658108659108660108661108662108663108664108665108666108667108668108669108670108671108672108673108674108675108676108677108678108679108680108681108682108683108684108685108686108687108688108689108690108691108692108693108694108695108696108697108698108699108700108701108702108703108704108705108706108707108708108709108710108711108712108713108714108715108716108717108718108719108720108721108722108723108724108725108726108727108728108729108730108731108732108733108734108735108736108737108738108739108740108741108742108743108744108745108746108747108748108749108750108751108752108753108754108755108756108757108758108759108760108761108762108763108764108765108766108767108768108769108770108771108772108773108774108775108776108777108778108779108780108781108782108783108784108785108786108787108788108789108790108791108792108793108794108795108796108797108798108799108800108801108802108803108804108805108806108807108808108809108810108811108812108813108814108815108816108817108818108819108820108821108822108823108824108825108826108827108828108829108830108831108832108833108834108835108836108837108838108839108840108841108842108843108844108845108846108847108848108849108850108851108852108853108854108855108856108857108858108859108860108861108862108863108864108865108866108867108868108869108870108871108872108873108874108875108876108877108878108879108880108881108882108883108884108885108886108887108888108889108890108891108892108893108894108895108896108897108898108899108900108901108902108903108904108905108906108907108908108909108910108911108912108913108914108915108916108917108918108919108920108921108922108923108924108925108926108927108928108929108930108931108932108933108934108935108936108937108938108939108940108941108942108943108944108945108946108947108948108949108950108951108952108953108954108955108956108957108958108959108960108961108962108963108964108965108966108967108968108969108970108971108972108973108974108975108976108977108978108979108980108981108982108983108984108985108986108987108988108989108990108991108992108993108994108995108996108997108998108999109000109001109002109003109004109005109006109007109008109009109010109011109012109013109014109015109016109017109018109019109020109021109022109023109024109025109026109027109028109029109030109031109032109033109034109035109036109037109038109039109040109041109042109043109044109045109046109047109048109049109050109051109052109053109054109055109056109057109058109059109060109061109062109063109064109065109066109067109068109069109070109071109072109073109074109075109076109077109078109079109080109081109082109083109084109085109086109087109088109089109090109091109092109093109094109095109096109097109098109099109100109101109102109103109104109105109106109107109108109109109110109111109112109113109114109115109116109117109118109119109120109121109122109123109124109125109126109127109128109129109130109131109132109133109134109135109136109137109138109139109140109141109142109143109144109145109146109147109148109149109150109151109152109153109154109155109156109157109158109159109160109161109162109163109164109165109166109167109168109169109170109171109172109173109174109175109176109177109178109179109180109181109182109183109184109185109186109187109188109189109190109191109192109193109194109195109196109197109198109199109200109201109202109203109204109205109206109207109208109209109210109211109212109213109214109215109216109217109218109219109220109221109222109223109224109225109226109227109228109229109230109231109232109233109234109235109236109237109238109239109240109241109242109243109244109245109246109247109248109249109250109251109252109253109254109255109256109257109258109259109260109261109262109263109264109265109266109267109268109269109270109271109272109273109274109275109276109277109278109279109280109281109282109283109284109285109286109287109288109289109290109291109292109293109294109295109296109297109298109299109300109301109302109303109304109305109306109307109308109309109310109311109312109313109314109315109316109317109318109319109320109321109322109323109324109325109326109327109328109329109330109331109332109333109334109335109336109337109338109339109340109341109342109343109344109345109346109347109348109349109350109351109352109353109354109355109356109357109358109359109360109361109362109363109364109365109366109367109368109369109370109371109372109373109374109375109376109377109378109379109380109381109382109383109384109385109386109387109388109389109390109391109392109393109394109395109396109397109398109399109400109401109402109403109404109405109406109407109408109409109410109411109412109413109414109415109416109417109418109419109420109421109422109423109424109425109426109427109428109429109430109431109432109433109434109435109436109437109438109439109440109441109442109443109444109445109446109447109448109449109450109451109452109453109454109455109456109457109458109459109460109461109462109463109464109465109466109467109468109469109470109471109472109473109474109475109476109477109478109479109480109481109482109483109484109485109486109487109488109489109490109491109492109493109494109495109496109497109498109499109500109501109502109503109504109505109506109507109508109509109510109511109512109513109514109515109516109517109518109519109520109521109522109523109524109525109526109527109528109529109530109531109532109533109534109535109536109537109538109539109540109541109542109543109544109545109546109547109548109549109550109551109552109553109554109555109556109557109558109559109560109561109562109563109564109565109566109567109568109569109570109571109572109573109574109575109576109577109578109579109580109581109582109583109584109585109586109587109588109589109590109591109592109593109594109595109596109597109598109599109600109601109602109603109604109605109606109607109608109609109610109611109612109613109614109615109616109617109618109619109620109621109622109623109624109625109626109627109628109629109630109631109632109633109634109635109636109637109638109639109640109641109642109643109644109645109646109647109648109649109650109651109652109653109654109655109656109657109658109659109660109661109662109663109664109665109666109667109668109669109670109671109672109673109674109675109676109677109678109679109680109681109682109683109684109685109686109687109688109689109690109691109692109693109694109695109696109697109698109699109700109701109702109703109704109705109706109707109708109709109710109711109712109713109714109715109716109717109718109719109720109721109722109723109724109725109726109727109728109729109730109731109732109733109734109735109736109737109738109739109740109741109742109743109744109745109746109747109748109749109750109751109752109753109754109755109756109757109758109759109760109761109762109763109764109765109766109767109768109769109770109771109772109773109774109775109776109777109778109779109780109781109782109783109784109785109786109787109788109789109790109791109792109793109794109795109796109797109798109799109800109801109802109803109804109805109806109807109808109809109810109811109812109813109814109815109816109817109818109819109820109821109822109823109824109825109826109827109828109829109830109831109832109833109834109835109836109837109838109839109840109841109842109843109844109845109846109847109848109849109850109851109852109853109854109855109856109857109858109859109860109861109862109863109864109865109866109867109868109869109870109871109872109873109874109875109876109877109878109879109880109881109882109883109884109885109886109887109888109889109890109891109892109893109894109895109896109897109898109899109900109901109902109903109904109905109906109907109908109909109910109911109912109913109914109915109916109917109918109919109920109921109922109923109924109925109926109927109928109929109930109931109932109933109934109935109936109937109938109939109940109941109942109943109944109945109946109947109948109949109950109951109952109953109954109955109956109957109958109959109960109961109962109963109964109965109966109967109968109969109970109971109972109973109974109975109976109977109978109979109980109981109982109983109984109985109986109987109988109989109990109991109992109993109994109995109996109997109998109999110000110001110002110003110004110005110006110007110008110009110010110011110012110013110014110015110016110017110018110019110020110021110022110023110024110025110026110027110028110029110030110031110032110033110034110035110036110037110038110039110040110041110042110043110044110045110046110047110048110049110050110051110052110053110054110055110056110057110058110059110060110061110062110063110064110065110066110067110068110069110070110071110072110073110074110075110076110077110078110079110080110081110082110083110084110085110086110087110088110089110090110091110092110093110094110095110096110097110098110099110100110101110102110103110104110105110106110107110108110109110110110111110112110113110114110115110116110117110118110119110120110121110122110123110124110125110126110127110128110129110130110131110132110133110134110135110136110137110138110139110140110141110142110143110144110145110146110147110148110149110150110151110152110153110154110155110156110157110158110159110160110161110162110163110164110165110166110167110168110169110170110171110172110173110174110175110176110177110178110179110180110181110182110183110184110185110186110187110188110189110190110191110192110193110194110195110196110197110198110199110200110201110202110203110204110205110206110207110208110209110210110211110212110213110214110215110216110217110218110219110220110221110222110223110224110225110226110227110228110229110230110231110232110233110234110235110236110237110238110239110240110241110242110243110244110245110246110247110248110249110250110251110252110253110254110255110256110257110258110259110260110261110262110263110264110265110266110267110268110269110270110271110272110273110274110275110276110277110278110279110280110281110282110283110284110285110286110287110288110289110290110291110292110293110294110295110296110297110298110299110300110301110302110303110304110305110306110307110308110309110310110311110312110313110314110315110316110317110318110319110320110321110322110323110324110325110326110327110328110329110330110331110332110333110334110335110336110337110338110339110340110341110342110343110344110345110346110347110348110349110350110351110352110353110354110355110356110357110358110359110360110361110362110363110364110365110366110367110368110369110370110371110372110373110374110375110376110377110378110379110380110381110382110383110384110385110386110387110388110389110390110391110392110393110394110395110396110397110398110399110400110401110402110403110404110405110406110407110408110409110410110411110412110413110414110415110416110417110418110419110420110421110422110423110424110425110426110427110428110429110430110431110432110433110434110435110436110437110438110439110440110441110442110443110444110445110446110447110448110449110450110451110452110453110454110455110456110457110458110459110460110461110462110463110464110465110466110467110468110469110470110471110472110473110474110475110476110477110478110479110480110481110482110483110484110485110486110487110488110489110490110491110492110493110494110495110496110497110498110499110500110501110502110503110504110505110506110507110508110509110510110511110512110513110514110515110516110517110518110519110520110521110522110523110524110525110526110527110528110529110530110531110532110533110534110535110536110537110538110539110540110541110542110543110544110545110546110547110548110549110550110551110552110553110554110555110556110557110558110559110560110561110562110563110564110565110566110567110568110569110570110571110572110573110574110575110576110577110578110579110580110581110582110583110584110585110586110587110588110589110590110591110592110593110594110595110596110597110598110599110600110601110602110603110604110605110606110607110608110609110610110611110612110613110614110615110616110617110618110619110620110621110622110623110624110625110626110627110628110629110630110631110632110633110634110635110636110637110638110639110640110641110642110643110644110645110646110647110648110649110650110651110652110653110654110655110656110657110658110659110660110661110662110663110664110665110666110667110668110669110670110671110672110673110674110675110676110677110678110679110680110681110682110683110684110685110686110687110688110689110690110691110692110693110694110695110696110697110698110699110700110701110702110703110704110705110706110707110708110709110710110711110712110713110714110715110716110717110718110719110720110721110722110723110724110725110726110727110728110729110730110731110732110733110734110735110736110737110738110739110740110741110742110743110744110745110746110747110748110749110750110751110752110753110754110755110756110757110758110759110760110761110762110763110764110765110766110767110768110769110770110771110772110773110774110775110776110777110778110779110780110781110782110783110784110785110786110787110788110789110790110791110792110793110794110795110796110797110798110799110800110801110802110803110804110805110806110807110808110809110810110811110812110813110814110815110816110817110818110819110820110821110822110823110824110825110826110827110828110829110830110831110832110833110834110835110836110837110838110839110840110841110842110843110844110845110846110847110848110849110850110851110852110853110854110855110856110857110858110859110860110861110862110863110864110865110866110867110868110869110870110871110872110873110874110875110876110877110878110879110880110881110882110883110884110885110886110887110888110889110890110891110892110893110894110895110896110897110898110899110900110901110902110903110904110905110906110907110908110909110910110911110912110913110914110915110916110917110918110919110920110921110922110923110924110925110926110927110928110929110930110931110932110933110934110935110936110937110938110939110940110941110942110943110944110945110946110947110948110949110950110951110952110953110954110955110956110957110958110959110960110961110962110963110964110965110966110967110968110969110970110971110972110973110974110975110976110977110978110979110980110981110982110983110984110985110986110987110988110989110990110991110992110993110994110995110996110997110998110999111000111001111002111003111004111005111006111007111008111009111010111011111012111013111014111015111016111017111018111019111020111021111022111023111024111025111026111027111028111029111030111031111032111033111034111035111036111037111038111039111040111041111042111043111044111045111046111047111048111049111050111051111052111053111054111055111056111057111058111059111060111061111062111063111064111065111066111067111068111069111070111071111072111073111074111075111076111077111078111079111080111081111082111083111084111085111086111087111088111089111090111091111092111093111094111095111096111097111098111099111100111101111102111103111104111105111106111107111108111109111110111111111112111113111114111115111116111117111118111119111120111121111122111123111124111125111126111127111128111129111130111131111132111133111134111135111136111137111138111139111140111141111142111143111144111145111146111147111148111149111150111151111152111153111154111155111156111157111158111159111160111161111162111163111164111165111166111167111168111169111170111171111172111173111174111175111176111177111178111179111180111181111182111183111184111185111186111187111188111189111190111191111192111193111194111195111196111197111198111199111200111201111202111203111204111205111206111207111208111209111210111211111212111213111214111215111216111217111218111219111220111221111222111223111224111225111226111227111228111229111230111231111232111233111234111235111236111237111238111239111240111241111242111243111244111245111246111247111248111249111250111251111252111253111254111255111256111257111258111259111260111261111262111263111264111265111266111267111268111269111270111271111272111273111274111275111276111277111278111279111280111281111282111283111284111285111286111287111288111289111290111291111292111293111294111295111296111297111298111299111300111301111302111303111304111305111306111307111308111309111310111311111312111313111314111315111316111317111318111319111320111321111322111323111324111325111326111327111328111329111330111331111332111333111334111335111336111337111338111339111340111341111342111343111344111345111346111347111348111349111350111351111352111353111354111355111356111357111358111359111360111361111362111363111364111365111366111367111368111369111370111371111372111373111374111375111376111377111378111379111380111381111382111383111384111385111386111387111388111389111390111391111392111393111394111395111396111397111398111399111400111401111402111403111404111405111406111407111408111409111410111411111412111413111414111415111416111417111418111419111420111421111422111423111424111425111426111427111428111429111430111431111432111433111434111435111436111437111438111439111440111441111442111443111444111445111446111447111448111449111450111451111452111453111454111455111456111457111458111459111460111461111462111463111464111465111466111467111468111469111470111471111472111473111474111475111476111477111478111479111480111481111482111483111484111485111486111487111488111489111490111491111492111493111494111495111496111497111498111499111500111501111502111503111504111505111506111507111508111509111510111511111512111513111514111515111516111517111518111519111520111521111522111523111524111525111526111527111528111529111530111531111532111533111534111535111536111537111538111539111540111541111542111543111544111545111546111547111548111549111550111551111552111553111554111555111556111557111558111559111560111561111562111563111564111565111566111567111568111569111570111571111572111573111574111575111576111577111578111579111580111581111582111583111584111585111586111587111588111589111590111591111592111593111594111595111596111597111598111599111600111601111602111603111604111605111606111607111608111609111610111611111612111613111614111615111616111617111618111619111620111621111622111623111624111625111626111627111628111629111630111631111632111633111634111635111636111637111638111639111640111641111642111643111644111645111646111647111648111649111650111651111652111653111654111655111656111657111658111659111660111661111662111663111664111665111666111667111668111669111670111671111672111673111674111675111676111677111678111679111680111681111682111683111684111685111686111687111688111689111690111691111692111693111694111695111696111697111698111699111700111701111702111703111704111705111706111707111708111709111710111711111712111713111714111715111716111717111718111719111720111721111722111723111724111725111726111727111728111729111730111731111732111733111734111735111736111737111738111739111740111741111742111743111744111745111746111747111748111749111750111751111752111753111754111755111756111757111758111759111760111761111762111763111764111765111766111767111768111769111770111771111772111773111774111775111776111777111778111779111780111781111782111783111784111785111786111787111788111789111790111791111792111793111794111795111796111797111798111799111800111801111802111803111804111805111806111807111808111809111810111811111812111813111814111815111816111817111818111819111820111821111822111823111824111825111826111827111828111829111830111831111832111833111834111835111836111837111838111839111840111841111842111843111844111845111846111847111848111849111850111851111852111853111854111855111856111857111858111859111860111861111862111863111864111865111866111867111868111869111870111871111872111873111874111875111876111877111878111879111880111881111882111883111884111885111886111887111888111889111890111891111892111893111894111895111896111897111898111899111900111901111902111903111904111905111906111907111908111909111910111911111912111913111914111915111916111917111918111919111920111921111922111923111924111925111926111927111928111929111930111931111932111933111934111935111936111937111938111939111940111941111942111943111944111945111946111947111948111949111950111951111952111953111954111955111956111957111958111959111960111961111962111963111964111965111966111967111968111969111970111971111972111973111974111975111976111977111978111979111980111981111982111983111984111985111986111987111988111989111990111991111992111993111994111995111996111997111998111999112000112001112002112003112004112005112006112007112008112009112010112011112012112013112014112015112016112017112018112019112020112021112022112023112024112025112026112027112028112029112030112031112032112033112034112035112036112037112038112039112040112041112042112043112044112045112046112047112048112049112050112051112052112053112054112055112056112057112058112059112060112061112062112063112064112065112066112067112068112069112070112071112072112073112074112075112076112077112078112079112080112081112082112083112084112085112086112087112088112089112090112091112092112093112094112095112096112097112098112099112100112101112102112103112104112105112106112107112108112109112110112111112112112113112114112115112116112117112118112119112120112121112122112123112124112125112126112127112128112129112130112131112132112133112134112135112136112137112138112139112140112141112142112143112144112145112146112147112148112149112150112151112152112153112154112155112156112157112158112159112160112161112162112163112164112165112166112167112168112169112170112171112172112173112174112175112176112177112178112179112180112181112182112183112184112185112186112187112188112189112190112191112192112193112194112195112196112197112198112199112200112201112202112203112204112205112206112207112208112209112210112211112212112213112214112215112216112217112218112219112220112221112222112223112224112225112226112227112228112229112230112231112232112233112234112235112236112237112238112239112240112241112242112243112244112245112246112247112248112249112250112251112252112253112254112255112256112257112258112259112260112261112262112263112264112265112266112267112268112269112270112271112272112273112274112275112276112277112278112279112280112281112282112283112284112285112286112287112288112289112290112291112292112293112294112295112296112297112298112299112300112301112302112303112304112305112306112307112308112309112310112311112312112313112314112315112316112317112318112319112320112321112322112323112324112325112326112327112328112329112330112331112332112333112334112335112336112337112338112339112340112341112342112343112344112345112346112347112348112349112350112351112352112353112354112355112356112357112358112359112360112361112362112363112364112365112366112367112368112369112370112371112372112373112374112375112376112377112378112379112380112381112382112383112384112385112386112387112388112389112390112391112392112393112394112395112396112397112398112399112400112401112402112403112404112405112406112407112408112409112410112411112412112413112414112415112416112417112418112419112420112421112422112423112424112425112426112427112428112429112430112431112432112433112434112435112436112437112438112439112440112441112442112443112444112445112446112447112448112449112450112451112452112453112454112455112456112457112458112459112460112461112462112463112464112465112466112467112468112469112470112471112472112473112474112475112476112477112478112479112480112481112482112483112484112485112486112487112488112489112490112491112492112493112494112495112496112497112498112499112500112501112502112503112504112505112506112507112508112509112510112511112512112513112514112515112516112517112518112519112520112521112522112523112524112525112526112527112528112529112530112531112532112533112534112535112536112537112538112539112540112541112542112543112544112545112546112547112548112549112550112551112552112553112554112555112556112557112558112559112560112561112562112563112564112565112566112567112568112569112570112571112572112573112574112575112576112577112578112579112580112581112582112583112584112585112586112587112588112589112590112591112592112593112594112595112596112597112598112599112600112601112602112603112604112605112606112607112608112609112610112611112612112613112614112615112616112617112618112619112620112621112622112623112624112625112626112627112628112629112630112631112632112633112634112635112636112637112638112639112640112641112642112643112644112645112646112647112648112649112650112651112652112653112654112655112656112657112658112659112660112661112662112663112664112665112666112667112668112669112670112671112672112673112674112675112676112677112678112679112680112681112682112683112684112685112686112687112688112689112690112691112692112693112694112695112696112697112698112699112700112701112702112703112704112705112706112707112708112709112710112711112712112713112714112715112716112717112718112719112720112721112722112723112724112725112726112727112728112729112730112731112732112733112734112735112736112737112738112739112740112741112742112743112744112745112746112747112748112749112750112751112752112753112754112755112756112757112758112759112760112761112762112763112764112765112766112767112768112769112770112771112772112773112774112775112776112777112778112779112780112781112782112783112784112785112786112787112788112789112790112791112792112793112794112795112796112797112798112799112800112801112802112803112804112805112806112807112808112809112810112811112812112813112814112815112816112817112818112819112820112821112822112823112824112825112826112827112828112829112830112831112832112833112834112835112836112837112838112839112840112841112842112843112844112845112846112847112848112849112850112851112852112853112854112855112856112857112858112859112860112861112862112863112864112865112866112867112868112869112870112871112872112873112874112875112876112877112878112879112880112881112882112883112884112885112886112887112888112889112890112891112892112893112894112895112896112897112898112899112900112901112902112903112904112905112906112907112908112909112910112911112912112913112914112915112916112917112918112919112920112921112922112923112924112925112926112927112928112929112930112931112932112933112934112935112936112937112938112939112940112941112942112943112944112945112946112947112948112949112950112951112952112953112954112955112956112957112958112959112960112961112962112963112964112965112966112967112968112969112970112971112972112973112974112975112976112977112978112979112980112981112982112983112984112985112986112987112988112989112990112991112992112993112994112995112996112997112998112999113000113001113002113003113004113005113006113007113008113009113010113011113012113013113014113015113016113017113018113019113020113021113022113023113024113025113026113027113028113029113030113031113032113033113034113035113036113037113038113039113040113041113042113043113044113045113046113047113048113049113050113051113052113053113054113055113056113057113058113059113060113061113062113063113064113065113066113067113068113069113070113071113072113073113074113075113076113077113078113079113080113081113082113083113084113085113086113087113088113089113090113091113092113093113094113095113096113097113098113099113100113101113102113103113104113105113106113107113108113109113110113111113112113113113114113115113116113117113118113119113120113121113122113123113124113125113126113127113128113129113130113131113132113133113134113135113136113137113138113139113140113141113142113143113144113145113146113147113148113149113150113151113152113153113154113155113156113157113158113159113160113161113162113163113164113165113166113167113168113169113170113171113172113173113174113175113176113177113178113179113180113181113182113183113184113185113186113187113188113189113190113191113192113193113194113195113196113197113198113199113200113201113202113203113204113205113206113207113208113209113210113211113212113213113214113215113216113217113218113219113220113221113222113223113224113225113226113227113228113229113230113231113232113233113234113235113236113237113238113239113240113241113242113243113244113245113246113247113248113249113250113251113252113253113254113255113256113257113258113259113260113261113262113263113264113265113266113267113268113269113270113271113272113273113274113275113276113277113278113279113280113281113282113283113284113285113286113287113288113289113290113291113292113293113294113295113296113297113298113299113300113301113302113303113304113305113306113307113308113309113310113311113312113313113314113315113316113317113318113319113320113321113322113323113324113325113326113327113328113329113330113331113332113333113334113335113336113337113338113339113340113341113342113343113344113345113346113347113348113349113350113351113352113353113354113355113356113357113358113359113360113361113362113363113364113365113366113367113368113369113370113371113372113373113374113375113376113377113378113379113380113381113382113383113384113385113386113387113388113389113390113391113392113393113394113395113396113397113398113399113400113401113402113403113404113405113406113407113408113409113410113411113412113413113414113415113416113417113418113419113420113421113422113423113424113425113426113427113428113429113430113431113432113433113434113435113436113437113438113439113440113441113442113443113444113445113446113447113448113449113450113451113452113453113454113455113456113457113458113459113460113461113462113463113464113465113466113467113468113469113470113471113472113473113474113475113476113477113478113479113480113481113482113483113484113485113486113487113488113489113490113491113492113493113494113495113496113497113498113499113500113501113502113503113504113505113506113507113508113509113510113511113512113513113514113515113516113517113518113519113520113521113522113523113524113525113526113527113528113529113530113531113532113533113534113535113536113537113538113539113540113541113542113543113544113545113546113547113548113549113550113551113552113553113554113555113556113557113558113559113560113561113562113563113564113565113566113567113568113569113570113571113572113573113574113575113576113577113578113579113580113581113582113583113584113585113586113587113588113589113590113591113592113593113594113595113596113597113598113599113600113601113602113603113604113605113606113607113608113609113610113611113612113613113614113615113616113617113618113619113620113621113622113623113624113625113626113627113628113629113630113631113632113633113634113635113636113637113638113639113640113641113642113643113644113645113646113647113648113649113650113651113652113653113654113655113656113657113658113659113660113661113662113663113664113665113666113667113668113669113670113671113672113673113674113675113676113677113678113679113680113681113682113683113684113685113686113687113688113689113690113691113692113693113694113695113696113697113698113699113700113701113702113703113704113705113706113707113708113709113710113711113712113713113714113715113716113717113718113719113720113721113722113723113724113725113726113727113728113729113730113731113732113733113734113735113736113737113738113739113740113741113742113743113744113745113746113747113748113749113750113751113752113753113754113755113756113757113758113759113760113761113762113763113764113765113766113767113768113769113770113771113772113773113774113775113776113777113778113779113780113781113782113783113784113785113786113787113788113789113790113791113792113793113794113795113796113797113798113799113800113801113802113803113804113805113806113807113808113809113810113811113812113813113814113815113816113817113818113819113820113821113822113823113824113825113826113827113828113829113830113831113832113833113834113835113836113837113838113839113840113841113842113843113844113845113846113847113848113849113850113851113852113853113854113855113856113857113858113859113860113861113862113863113864113865113866113867113868113869113870113871113872113873113874113875113876113877113878113879113880113881113882113883113884113885113886113887113888113889113890113891113892113893113894113895113896113897113898113899113900113901113902113903113904113905113906113907113908113909113910113911113912113913113914113915113916113917113918113919113920113921113922113923113924113925113926113927113928113929113930113931113932113933113934113935113936113937113938113939113940113941113942113943113944113945113946113947113948113949113950113951113952113953113954113955113956113957113958113959113960113961113962113963113964113965113966113967113968113969113970113971113972113973113974113975113976113977113978113979113980113981113982113983113984113985113986113987113988113989113990113991113992113993113994113995113996113997113998113999114000114001114002114003114004114005114006114007114008114009114010114011114012114013114014114015114016114017114018114019114020114021114022114023114024114025114026114027114028114029114030114031114032114033114034114035114036114037114038114039114040114041114042114043114044114045114046114047114048114049114050114051114052114053114054114055114056114057114058114059114060114061114062114063114064114065114066114067114068114069114070114071114072114073114074114075114076114077114078114079114080114081114082114083114084114085114086114087114088114089114090114091114092114093114094114095114096114097114098114099114100114101114102114103114104114105114106114107114108114109114110114111114112114113114114114115114116114117114118114119114120114121114122114123114124114125114126114127114128114129114130114131114132114133114134114135114136114137114138114139114140114141114142114143114144114145114146114147114148114149114150114151114152114153114154114155114156114157114158114159114160114161114162114163114164114165114166114167114168114169114170114171114172114173114174114175114176114177114178114179114180114181114182114183114184114185114186114187114188114189114190114191114192114193114194114195114196114197114198114199114200114201114202114203114204114205114206114207114208114209114210114211114212114213114214114215114216114217114218114219114220114221114222114223114224114225114226114227114228114229114230114231114232114233114234114235114236114237114238114239114240114241114242114243114244114245114246114247114248114249114250114251114252114253114254114255114256114257114258114259114260114261114262114263114264114265114266114267114268114269114270114271114272114273114274114275114276114277114278114279114280114281114282114283114284114285114286114287114288114289114290114291114292114293114294114295114296114297114298114299114300114301114302114303114304114305114306114307114308114309114310114311114312114313114314114315114316114317114318114319114320114321114322114323114324114325114326114327114328114329114330114331114332114333114334114335114336114337114338114339114340114341114342114343114344114345114346114347114348114349114350114351114352114353114354114355114356114357114358114359114360114361114362114363114364114365114366114367114368114369114370114371114372114373114374114375114376114377114378114379114380114381114382114383114384114385114386114387114388114389114390114391114392114393114394114395114396114397114398114399114400114401114402114403114404114405114406114407114408114409114410114411114412114413114414114415114416114417114418114419114420114421114422114423114424114425114426114427114428114429114430114431114432114433114434114435114436114437114438114439114440114441114442114443114444114445114446114447114448114449114450114451114452114453114454114455114456114457114458114459114460114461114462114463114464114465114466114467114468114469114470114471114472114473114474114475114476114477114478114479114480114481114482114483114484114485114486114487114488114489114490114491114492114493114494114495114496114497114498114499114500114501114502114503114504114505114506114507114508114509114510114511114512114513114514114515114516114517114518114519114520114521114522114523114524114525114526114527114528114529114530114531114532114533114534114535114536114537114538114539114540114541114542114543114544114545114546114547114548114549114550114551114552114553114554114555114556114557114558114559114560114561114562114563114564114565114566114567114568114569114570114571114572114573114574114575114576114577114578114579114580114581114582114583114584114585114586114587114588114589114590114591114592114593114594114595114596114597114598114599114600114601114602114603114604114605114606114607114608114609114610114611114612114613114614114615114616114617114618114619114620114621114622114623114624114625114626114627114628114629114630114631114632114633114634114635114636114637114638114639114640114641114642114643114644114645114646114647114648114649114650114651114652114653114654114655114656114657114658114659114660114661114662114663114664114665114666114667114668114669114670114671114672114673114674114675114676114677114678114679114680114681114682114683114684114685114686114687114688114689114690114691114692114693114694114695114696114697114698114699114700114701114702114703114704114705114706114707114708114709114710114711114712114713114714114715114716114717114718114719114720114721114722114723114724114725114726114727114728114729114730114731114732114733114734114735114736114737114738114739114740114741114742114743114744114745114746114747114748114749114750114751114752114753114754114755114756114757114758114759114760114761114762114763114764114765114766114767114768114769114770114771114772114773114774114775114776114777114778114779114780114781114782114783114784114785114786114787114788114789114790114791114792114793114794114795114796114797114798114799114800114801114802114803114804114805114806114807114808114809114810114811114812114813114814114815114816114817114818114819114820114821114822114823114824114825114826114827114828114829114830114831114832114833114834114835114836114837114838114839114840114841114842114843114844114845114846114847114848114849114850114851114852114853114854114855114856114857114858114859114860114861114862114863114864114865114866114867114868114869114870114871114872114873114874114875114876114877114878114879114880114881114882114883114884114885114886114887114888114889114890114891114892114893114894114895114896114897114898114899114900114901114902114903114904114905114906114907114908114909114910114911114912114913114914114915114916114917114918114919114920114921114922114923114924114925114926114927114928114929114930114931114932114933114934114935114936114937114938114939114940114941114942114943114944114945114946114947114948114949114950114951114952114953114954114955114956114957114958114959114960114961114962114963114964114965114966114967114968114969114970114971114972114973114974114975114976114977114978114979114980114981114982114983114984114985114986114987114988114989114990114991114992114993114994114995114996114997114998114999115000115001115002115003115004115005115006115007115008115009115010115011115012115013115014115015115016115017115018115019115020115021115022115023115024115025115026115027115028115029115030115031115032115033115034115035115036115037115038115039115040115041115042115043115044115045115046115047115048115049115050115051115052115053115054115055115056115057115058115059115060115061115062115063115064115065115066115067115068115069115070115071115072115073115074115075115076115077115078115079115080115081115082115083115084115085115086115087115088115089115090115091115092115093115094115095115096115097115098115099115100115101115102115103115104115105115106115107115108115109115110115111115112115113115114115115115116115117115118115119115120115121115122115123115124115125115126115127115128115129115130115131115132115133115134115135115136115137115138115139115140115141115142115143115144115145115146115147115148115149115150115151115152115153115154115155115156115157115158115159115160115161115162115163115164115165115166115167115168115169115170115171115172115173115174115175115176115177115178115179115180115181115182115183115184115185115186115187115188115189115190115191115192115193115194115195115196115197115198115199115200115201115202115203115204115205115206115207115208115209115210115211115212115213115214115215115216115217115218115219115220115221115222115223115224115225115226115227115228115229115230115231115232115233115234115235115236115237115238115239115240115241115242115243115244115245115246115247115248115249115250115251115252115253115254115255115256115257115258115259115260115261115262115263115264115265115266115267115268115269115270115271115272115273115274115275115276115277115278115279115280115281115282115283115284115285115286115287115288115289115290115291115292115293115294115295115296115297115298115299115300115301115302115303115304115305115306115307115308115309115310115311115312115313115314115315115316115317115318115319115320115321115322115323115324115325115326115327115328115329115330115331115332115333115334115335115336115337115338115339115340115341115342115343115344115345115346115347115348115349115350115351115352115353115354115355115356115357115358115359115360115361115362115363115364115365115366115367115368115369115370115371115372115373115374115375115376115377115378115379115380115381115382115383115384115385115386115387115388115389115390115391115392115393115394115395115396115397115398115399115400115401115402115403115404115405115406115407115408115409115410115411115412115413115414115415115416115417115418115419115420115421115422115423115424115425115426115427115428115429115430115431115432115433115434115435115436115437115438115439115440115441115442115443115444115445115446115447115448115449115450115451115452115453115454115455115456115457115458115459115460115461115462115463115464115465115466115467115468115469115470115471115472115473115474115475115476115477115478115479115480115481115482115483115484115485115486115487115488115489115490115491115492115493115494115495115496115497115498115499115500115501115502115503115504115505115506115507115508115509115510115511115512115513115514115515115516115517115518115519115520115521115522115523115524115525115526115527115528115529115530115531115532115533115534115535115536115537115538115539115540115541115542115543115544115545115546115547115548115549115550115551115552115553115554115555115556115557115558115559115560115561115562115563115564115565115566115567115568115569115570115571115572115573115574115575115576115577115578115579115580115581115582115583115584115585115586115587115588115589115590115591115592115593115594115595115596115597115598115599115600115601115602115603115604115605115606115607115608115609115610115611115612115613115614115615115616115617115618115619115620115621115622115623115624115625115626115627115628115629115630115631115632115633115634115635115636115637115638115639115640115641115642115643115644115645115646115647115648115649115650115651115652115653115654115655115656115657115658115659115660115661115662115663115664115665115666115667115668115669115670115671115672115673115674115675115676115677115678115679115680115681115682115683115684115685115686115687115688115689115690115691115692115693115694115695115696115697115698115699115700115701115702115703115704115705115706115707115708115709115710115711115712115713115714115715115716115717115718115719115720115721115722115723115724115725115726115727115728115729115730115731115732115733115734115735115736115737115738115739115740115741115742115743115744115745115746115747115748115749115750115751115752115753115754115755115756115757115758115759115760115761115762115763115764115765115766115767115768115769115770115771115772115773115774115775115776115777115778115779115780115781115782115783115784115785115786115787115788115789115790115791115792115793115794115795115796115797115798115799115800115801115802115803115804115805115806115807115808115809115810115811115812115813115814115815115816115817115818115819115820115821115822115823115824115825115826115827115828115829115830115831115832115833115834115835115836115837115838115839115840115841115842115843115844115845115846115847115848115849115850115851115852115853115854115855115856115857115858115859115860115861115862115863115864115865115866115867115868115869115870115871115872115873115874115875115876115877115878115879115880115881115882115883115884115885115886115887115888115889115890115891115892115893115894115895115896115897115898115899115900115901115902115903115904115905115906115907115908115909115910115911115912115913115914115915115916115917115918115919115920115921115922115923115924115925115926115927115928115929115930115931115932115933115934115935115936115937115938115939115940115941115942115943115944115945115946115947115948115949115950115951115952115953115954115955115956115957115958115959115960115961115962115963115964115965115966115967115968115969115970115971115972115973115974115975115976115977115978115979115980115981115982115983115984115985115986115987115988115989115990115991115992115993115994115995115996115997115998115999116000116001116002116003116004116005116006116007116008116009116010116011116012116013116014116015116016116017116018116019116020116021116022116023116024116025116026116027116028116029116030116031116032116033116034116035116036116037116038116039116040116041116042116043116044116045116046116047116048116049116050116051116052116053116054116055116056116057116058116059116060116061116062116063116064116065116066116067116068116069116070116071116072116073116074116075116076116077116078116079116080116081116082116083116084116085116086116087116088116089116090116091116092116093116094116095116096116097116098116099116100116101116102116103116104116105116106116107116108116109116110116111116112116113116114116115116116116117116118116119116120116121116122116123116124116125116126116127116128116129116130116131116132116133116134116135116136116137116138116139116140116141116142116143116144116145116146116147116148116149116150116151116152116153116154116155116156116157116158116159116160116161116162116163116164116165116166116167116168116169116170116171116172116173116174116175116176116177116178116179116180116181116182116183116184116185116186116187116188116189116190116191116192116193116194116195116196116197116198116199116200116201116202116203116204116205116206116207116208116209116210116211116212116213116214116215116216116217116218116219116220116221116222116223116224116225116226116227116228116229116230116231116232116233116234116235116236116237116238116239116240116241116242116243116244116245116246116247116248116249116250116251116252116253116254116255116256116257116258116259116260116261116262116263116264116265116266116267116268116269116270116271116272116273116274116275116276116277116278116279116280116281116282116283116284116285116286116287116288116289116290116291116292116293116294116295116296116297116298116299116300116301116302116303116304116305116306116307116308116309116310116311116312116313116314116315116316116317116318116319116320116321116322116323116324116325116326116327116328116329116330116331116332116333116334116335116336116337116338116339116340116341116342116343116344116345116346116347116348116349116350116351116352116353116354116355116356116357116358116359116360116361116362116363116364116365116366116367116368116369116370116371116372116373116374116375116376116377116378116379116380116381116382116383116384116385116386116387116388116389116390116391116392116393116394116395116396116397116398116399116400116401116402116403116404116405116406116407116408116409116410116411116412116413116414116415116416116417116418116419116420116421116422116423116424116425116426116427116428116429116430116431116432116433116434116435116436116437116438116439116440116441116442116443116444116445116446116447116448116449116450116451116452116453116454116455116456116457116458116459116460116461116462116463116464116465116466116467116468116469116470116471116472116473116474116475116476116477116478116479116480116481116482116483116484116485116486116487116488116489116490116491116492116493116494116495116496116497116498116499116500116501116502116503116504116505116506116507116508116509116510116511116512116513116514116515116516116517116518116519116520116521116522116523116524116525116526116527116528116529116530116531116532116533116534116535116536116537116538116539116540116541116542116543116544116545116546116547116548116549116550116551116552116553116554116555116556116557116558116559116560116561116562116563116564116565116566116567116568116569116570116571116572116573116574116575116576116577116578116579116580116581116582116583116584116585116586116587116588116589116590116591116592116593116594116595116596116597116598116599116600116601116602116603116604116605116606116607116608116609116610116611116612116613116614116615116616116617116618116619116620116621116622116623116624116625116626116627116628116629116630116631116632116633116634116635116636116637116638116639116640116641116642116643116644116645116646116647116648116649116650116651116652116653116654116655116656116657116658116659116660116661116662116663116664116665116666116667116668116669116670116671116672116673116674116675116676116677116678116679116680116681116682116683116684116685116686116687116688116689116690116691116692116693116694116695116696116697116698116699116700116701116702116703116704116705116706116707116708116709116710116711116712116713116714116715116716116717116718116719116720116721116722116723116724116725116726116727116728116729116730116731116732116733116734116735116736116737116738116739116740116741116742116743116744116745116746116747116748116749116750116751116752116753116754116755116756116757116758116759116760116761116762116763116764116765116766116767116768116769116770116771116772116773116774116775116776116777116778116779116780116781116782116783116784116785116786116787116788116789116790116791116792116793116794116795116796116797116798116799116800116801116802116803116804116805116806116807116808116809116810116811116812116813116814116815116816116817116818116819116820116821116822116823116824116825116826116827116828116829116830116831116832116833116834116835116836116837116838116839116840116841116842116843116844116845116846116847116848116849116850116851116852116853116854116855116856116857116858116859116860116861116862116863116864116865116866116867116868116869116870116871116872116873116874116875116876116877116878116879116880116881116882116883116884116885116886116887116888116889116890116891116892116893116894116895116896116897116898116899116900116901116902116903116904116905116906116907116908116909116910116911116912116913116914116915116916116917116918116919116920116921116922116923116924116925116926116927116928116929116930116931116932116933116934116935116936116937116938116939116940116941116942116943116944116945116946116947116948116949116950116951116952116953116954116955116956116957116958116959116960116961116962116963116964116965116966116967116968116969116970116971116972116973116974116975116976116977116978116979116980116981116982116983116984116985116986116987116988116989116990116991116992116993116994116995116996116997116998116999117000117001117002117003117004117005117006117007117008117009117010117011117012117013117014117015117016117017117018117019117020117021117022117023117024117025117026117027117028117029117030117031117032117033117034117035117036117037117038117039117040117041117042117043117044117045117046117047117048117049117050117051117052117053117054117055117056117057117058117059117060117061117062117063117064117065117066117067117068117069117070117071117072117073117074117075117076117077117078117079117080117081117082117083117084117085117086117087117088117089117090117091117092117093117094117095117096117097117098117099117100117101117102117103117104117105117106117107117108117109117110117111117112117113117114117115117116117117117118117119117120117121117122117123117124117125117126117127117128117129117130117131117132117133117134117135117136117137117138117139117140117141117142117143117144117145117146117147117148117149117150117151117152117153117154117155117156117157117158117159117160117161117162117163117164117165117166117167117168117169117170117171117172117173117174117175117176117177117178117179117180117181117182117183117184117185117186117187117188117189117190117191117192117193117194117195117196117197117198117199117200117201117202117203117204117205117206117207117208117209117210117211117212117213117214117215117216117217117218117219117220117221117222117223117224117225117226117227117228117229117230117231117232117233117234117235117236117237117238117239117240117241117242117243117244117245117246117247117248117249117250117251117252117253117254117255117256117257117258117259117260117261117262117263117264117265117266117267117268117269117270117271117272117273117274117275117276117277117278117279117280117281117282117283117284117285117286117287117288117289117290117291117292117293117294117295117296117297117298117299117300117301117302117303117304117305117306117307117308117309117310117311117312117313117314117315117316117317117318117319117320117321117322117323117324117325117326117327117328117329117330117331117332117333117334117335117336117337117338117339117340117341117342117343117344117345117346117347117348117349117350117351117352117353117354117355117356117357117358117359117360117361117362117363117364117365117366117367117368117369117370117371117372117373117374117375117376117377117378117379117380117381117382117383117384117385117386117387117388117389117390117391117392117393117394117395117396117397117398117399117400117401117402117403117404117405117406117407117408117409117410117411117412117413117414117415117416117417117418117419117420117421117422117423117424117425117426117427117428117429117430117431117432117433117434117435117436117437117438117439117440117441117442117443117444117445117446117447117448117449117450117451117452117453117454117455117456117457117458117459117460117461117462117463117464117465117466117467117468117469117470117471117472117473117474117475117476117477117478117479117480117481117482117483117484117485117486117487117488117489117490117491117492117493117494117495117496117497117498117499117500117501117502117503117504117505117506117507117508117509117510117511117512117513117514117515117516117517117518117519117520117521117522117523117524117525117526117527117528117529117530117531117532117533117534117535117536117537117538117539117540117541117542117543117544117545117546117547117548117549117550117551117552117553117554117555117556117557117558117559117560117561117562117563117564117565117566117567117568117569117570117571117572117573117574117575117576117577117578117579117580117581117582117583117584117585117586117587117588117589117590117591117592117593117594117595117596117597117598117599117600117601117602117603117604117605117606117607117608117609117610117611117612117613117614117615117616117617117618117619117620117621117622117623117624117625117626117627117628117629117630117631117632117633117634117635117636117637117638117639117640117641117642117643117644117645117646117647117648117649117650117651117652117653117654117655117656117657117658117659117660117661117662117663117664117665117666117667117668117669117670117671117672117673117674117675117676117677117678117679117680117681117682117683117684117685117686117687117688117689117690117691117692117693117694117695117696117697117698117699117700117701117702117703117704117705117706117707117708117709117710117711117712117713117714117715117716117717117718117719117720117721117722117723117724117725117726117727117728117729117730117731117732117733117734117735117736117737117738117739117740117741117742117743117744117745117746117747117748117749117750117751117752117753117754117755117756117757117758117759117760117761117762117763117764117765117766117767117768117769117770117771117772117773117774117775117776117777117778117779117780117781117782117783117784117785117786117787117788117789117790117791117792117793117794117795117796117797117798117799117800117801117802117803117804117805117806117807117808117809117810117811117812117813117814117815117816117817117818117819117820117821117822117823117824117825117826117827117828117829117830117831117832117833117834117835117836117837117838117839117840117841117842117843117844117845117846117847117848117849117850117851117852117853117854117855117856117857117858117859117860117861117862117863117864117865117866117867117868117869117870117871117872117873117874117875117876117877117878117879117880117881117882117883117884117885117886117887117888117889117890117891117892117893117894117895117896117897117898117899117900117901117902117903117904117905117906117907117908117909117910117911117912117913117914117915117916117917117918117919117920117921117922117923117924117925117926117927117928117929117930117931117932117933117934117935117936117937117938117939117940117941117942117943117944117945117946117947117948117949117950117951117952117953117954117955117956117957117958117959117960117961117962117963117964117965117966117967117968117969117970117971117972117973117974117975117976117977117978117979117980117981117982117983117984117985117986117987117988117989117990117991117992117993117994117995117996117997117998117999118000118001118002118003118004118005118006118007118008118009118010118011118012118013118014118015118016118017118018118019118020118021118022118023118024118025118026118027118028118029118030118031118032118033118034118035118036118037118038118039118040118041118042118043118044118045118046118047118048118049118050118051118052118053118054118055118056118057118058118059118060118061118062118063118064118065118066118067118068118069118070118071118072118073118074118075118076118077118078118079118080118081118082118083118084118085118086118087118088118089118090118091118092118093118094118095118096118097118098118099118100118101118102118103118104118105118106118107118108118109118110118111118112118113118114118115118116118117118118118119118120118121118122118123118124118125118126118127118128118129118130118131118132118133118134118135118136118137118138118139118140118141118142118143118144118145118146118147118148118149118150118151118152118153118154118155118156118157118158118159118160118161118162118163118164118165118166118167118168118169118170118171118172118173118174118175118176118177118178118179118180118181118182118183118184118185118186118187118188118189118190118191118192118193118194118195118196118197118198118199118200118201118202118203118204118205118206118207118208118209118210118211118212118213118214118215118216118217118218118219118220118221118222118223118224118225118226118227118228118229118230118231118232118233118234118235118236118237118238118239118240118241118242118243118244118245118246118247118248118249118250118251118252118253118254118255118256118257118258118259118260118261118262118263118264118265118266118267118268118269118270118271118272118273118274118275118276118277118278118279118280118281118282118283118284118285118286118287118288118289118290118291118292118293118294118295118296118297118298118299118300118301118302118303118304118305118306118307118308118309118310118311118312118313118314118315118316118317118318118319118320118321118322118323118324118325118326118327118328118329118330118331118332118333118334118335118336118337118338118339118340118341118342118343118344118345118346118347118348118349118350118351118352118353118354118355118356118357118358118359118360118361118362118363118364118365118366118367118368118369118370118371118372118373118374118375118376118377118378118379118380118381118382118383118384118385118386118387118388118389118390118391118392118393118394118395118396118397118398118399118400118401118402118403118404118405118406118407118408118409118410118411118412118413118414118415118416118417118418118419118420118421118422118423118424118425118426118427118428118429118430118431118432118433118434118435118436118437118438118439118440118441118442118443118444118445118446118447118448118449118450118451118452118453118454118455118456118457118458118459118460118461118462118463118464118465118466118467118468118469118470118471118472118473118474118475118476118477118478118479118480118481118482118483118484118485118486118487118488118489118490118491118492118493118494118495118496118497118498118499118500118501118502118503118504118505118506118507118508118509118510118511118512118513118514118515118516118517118518118519118520118521118522118523118524118525118526118527118528118529118530118531118532118533118534118535118536118537118538118539118540118541118542118543118544118545118546118547118548118549118550118551118552118553118554118555118556118557118558118559118560118561118562118563118564118565118566118567118568118569118570118571118572118573118574118575118576118577118578118579118580118581118582118583118584118585118586118587118588118589118590118591118592118593118594118595118596118597118598118599118600118601118602118603118604118605118606118607118608118609118610118611118612118613118614118615118616118617118618118619118620118621118622118623118624118625118626118627118628118629118630118631118632118633118634118635118636118637118638118639118640118641118642118643118644118645118646118647118648118649118650118651118652118653118654118655118656118657118658118659118660118661118662118663118664118665118666118667118668118669118670118671118672118673118674118675118676118677118678118679118680118681118682118683118684118685118686118687118688118689118690118691118692118693118694118695118696118697118698118699118700118701118702118703118704118705118706118707118708118709118710118711118712118713118714118715118716118717118718118719118720118721118722118723118724118725118726118727118728118729118730118731118732118733118734118735118736118737118738118739118740118741118742118743118744118745118746118747118748118749118750118751118752118753118754118755118756118757118758118759118760118761118762118763118764118765118766118767118768118769118770118771118772118773118774118775118776118777118778118779118780118781118782118783118784118785118786118787118788118789118790118791118792118793118794118795118796118797118798118799118800118801118802118803118804118805118806118807118808118809118810118811118812118813118814118815118816118817118818118819118820118821118822118823118824118825118826118827118828118829118830118831118832118833118834118835118836118837118838118839118840118841118842118843118844118845118846118847118848118849118850118851118852118853118854118855118856118857118858118859118860118861118862118863118864118865118866118867118868118869118870118871118872118873118874118875118876118877118878118879118880118881118882118883118884118885118886118887118888118889118890118891118892118893118894118895118896118897118898118899118900118901118902118903118904118905118906118907118908118909118910118911118912118913118914118915118916118917118918118919118920118921118922118923118924118925118926118927118928118929118930118931118932118933118934118935118936118937118938118939118940118941118942118943118944118945118946118947118948118949118950118951118952118953118954118955118956118957118958118959118960118961118962118963118964118965118966118967118968118969118970118971118972118973118974118975118976118977118978118979118980118981118982118983118984118985118986118987118988118989118990118991118992118993118994118995118996118997118998118999119000119001119002119003119004119005119006119007119008119009119010119011119012119013119014119015119016119017119018119019119020119021119022119023119024119025119026119027119028119029119030119031119032119033119034119035119036119037119038119039119040119041119042119043119044119045119046119047119048119049119050119051119052119053119054119055119056119057119058119059119060119061119062119063119064119065119066119067119068119069119070119071119072119073119074119075119076119077119078119079119080119081119082119083119084119085119086119087119088119089119090119091119092119093119094119095119096119097119098119099119100119101119102119103119104119105119106119107119108119109119110119111119112119113119114119115119116119117119118119119119120119121119122119123119124119125119126119127119128119129119130119131119132119133119134119135119136119137119138119139119140119141119142119143119144119145119146119147119148119149119150119151119152119153119154119155119156119157119158119159119160119161119162119163119164119165119166119167119168119169119170119171119172119173119174119175119176119177119178119179119180119181119182119183119184119185119186119187119188119189119190119191119192119193119194119195119196119197119198119199119200119201119202119203119204119205119206119207119208119209119210119211119212
  1. unit sharepoint;
  2. {$MODE objfpc}
  3. {$H+}
  4. interface
  5. uses sysutils, classes, fpjson, restbase, odatabase, odataservice;
  6. (*
  7. Options used to generate:
  8. OData version : ODataV2
  9. BasecomplexType : TODataObject
  10. BaseEntityType : TODataEntity
  11. BaseEntityContainerType : TODataEntityContainer
  12. BaseServiceType : TODataService
  13. BaseEntitySetType : TODataEntitySet
  14. SchemaAncestor : TObject
  15. FieldPrefix : F
  16. ServiceSuffix :
  17. EnumerationMode : emScoped
  18. *)
  19. type
  20. // Needed for binary data
  21. TByteArray = Array of byte;
  22. TInt16Array = Array of SmallInt;
  23. //
  24. TSPKeyValue = class;
  25. TSPKeyValueArray = Array of TSPKeyValue;
  26. TSPSimpleDataRow = class;
  27. TSPSimpleDataRowArray = Array of TSPSimpleDataRow;
  28. TSPSimpleDataTable = class;
  29. TSPSimpleDataTableArray = Array of TSPSimpleDataTable;
  30. TSPMethodInformation = class;
  31. TSPMethodInformationArray = Array of TSPMethodInformation;
  32. TSPParameterInformation = class;
  33. TSPParameterInformationArray = Array of TSPParameterInformation;
  34. TSPPropertyInformation = class;
  35. TSPPropertyInformationArray = Array of TSPPropertyInformation;
  36. TSPContentTypeId = class;
  37. TSPContentTypeIdArray = Array of TSPContentTypeId;
  38. TSPFieldLookupValue = class;
  39. TSPFieldLookupValueArray = Array of TSPFieldLookupValue;
  40. TSPFieldUserValue = class;
  41. TSPFieldUserValueArray = Array of TSPFieldUserValue;
  42. TSPCreatableItemInfoCollection = class;
  43. TSPCreatableItemInfoCollectionArray = Array of TSPCreatableItemInfoCollection;
  44. TSPCreatableItemInfo = class;
  45. TSPCreatableItemInfoArray = Array of TSPCreatableItemInfo;
  46. TSPMenuNode = class;
  47. TSPMenuNodeArray = Array of TSPMenuNode;
  48. TSPMenuState = class;
  49. TSPMenuStateArray = Array of TSPMenuState;
  50. TSPNavigationNodeCreationInformation = class;
  51. TSPNavigationNodeCreationInformationArray = Array of TSPNavigationNodeCreationInformation;
  52. TSPRelatedItem = class;
  53. TSPRelatedItemArray = Array of TSPRelatedItem;
  54. TSPAppLicenseCollection = class;
  55. TSPAppLicenseCollectionArray = Array of TSPAppLicenseCollection;
  56. TSPAppLicense = class;
  57. TSPAppLicenseArray = Array of TSPAppLicense;
  58. TSPAttachmentCreationInformation = class;
  59. TSPAttachmentCreationInformationArray = Array of TSPAttachmentCreationInformation;
  60. TSPBasePermissions = class;
  61. TSPBasePermissionsArray = Array of TSPBasePermissions;
  62. TSPChangeLogItemQuery = class;
  63. TSPChangeLogItemQueryArray = Array of TSPChangeLogItemQuery;
  64. TSPChangeQuery = class;
  65. TSPChangeQueryArray = Array of TSPChangeQuery;
  66. TSPChangeToken = class;
  67. TSPChangeTokenArray = Array of TSPChangeToken;
  68. TSPContentTypeCreationInformation = class;
  69. TSPContentTypeCreationInformationArray = Array of TSPContentTypeCreationInformation;
  70. TSPContextWebInformation = class;
  71. TSPContextWebInformationArray = Array of TSPContextWebInformation;
  72. TSPDocumentLibraryInformation = class;
  73. TSPDocumentLibraryInformationArray = Array of TSPDocumentLibraryInformation;
  74. TSPEventReceiverDefinitionCreationInformation = class;
  75. TSPEventReceiverDefinitionCreationInformationArray = Array of TSPEventReceiverDefinitionCreationInformation;
  76. TSPListDataValidationFailure = class;
  77. TSPListDataValidationFailureArray = Array of TSPListDataValidationFailure;
  78. TSPFieldCalculatedErrorValue = class;
  79. TSPFieldCalculatedErrorValueArray = Array of TSPFieldCalculatedErrorValue;
  80. TSPFieldCreationInformation = class;
  81. TSPFieldCreationInformationArray = Array of TSPFieldCreationInformation;
  82. TSPFieldGeolocationValue = class;
  83. TSPFieldGeolocationValueArray = Array of TSPFieldGeolocationValue;
  84. TSPFieldRatingScaleQuestionAnswer = class;
  85. TSPFieldRatingScaleQuestionAnswerArray = Array of TSPFieldRatingScaleQuestionAnswer;
  86. TSPFieldUrlValue = class;
  87. TSPFieldUrlValueArray = Array of TSPFieldUrlValue;
  88. TSPFileCreationInformation = class;
  89. TSPFileCreationInformationArray = Array of TSPFileCreationInformation;
  90. TSPGroupCreationInformation = class;
  91. TSPGroupCreationInformationArray = Array of TSPGroupCreationInformation;
  92. TSPSPInvitationCreationResult = class;
  93. TSPSPInvitationCreationResultArray = Array of TSPSPInvitationCreationResult;
  94. TSPLanguage = class;
  95. TSPLanguageArray = Array of TSPLanguage;
  96. TSPListCreationInformation = class;
  97. TSPListCreationInformationArray = Array of TSPListCreationInformation;
  98. TSPListDataSource = class;
  99. TSPListDataSourceArray = Array of TSPListDataSource;
  100. TSPListDataValidationExceptionValue = class;
  101. TSPListDataValidationExceptionValueArray = Array of TSPListDataValidationExceptionValue;
  102. TSPListItemCollectionPosition = class;
  103. TSPListItemCollectionPositionArray = Array of TSPListItemCollectionPosition;
  104. TSPListItemCreationInformation = class;
  105. TSPListItemCreationInformationArray = Array of TSPListItemCreationInformation;
  106. TSPListItemFormUpdateValue = class;
  107. TSPListItemFormUpdateValueArray = Array of TSPListItemFormUpdateValue;
  108. TSPCamlQuery = class;
  109. TSPCamlQueryArray = Array of TSPCamlQuery;
  110. TSPRenderListContextMenuDataParameters = class;
  111. TSPRenderListContextMenuDataParametersArray = Array of TSPRenderListContextMenuDataParameters;
  112. TSPRenderListDataOverrideParameters = class;
  113. TSPRenderListDataOverrideParametersArray = Array of TSPRenderListDataOverrideParameters;
  114. TSPRenderListDataParameters = class;
  115. TSPRenderListDataParametersArray = Array of TSPRenderListDataParameters;
  116. TSPRenderListFilterDataParameters = class;
  117. TSPRenderListFilterDataParametersArray = Array of TSPRenderListFilterDataParameters;
  118. TSPRoleDefinitionCreationInformation = class;
  119. TSPRoleDefinitionCreationInformationArray = Array of TSPRoleDefinitionCreationInformation;
  120. TSPUpgradeInfo = class;
  121. TSPUpgradeInfoArray = Array of TSPUpgradeInfo;
  122. TSPSubwebQuery = class;
  123. TSPSubwebQueryArray = Array of TSPSubwebQuery;
  124. TSPTenantAppInformation = class;
  125. TSPTenantAppInformationArray = Array of TSPTenantAppInformation;
  126. TSPTimeZoneInformation = class;
  127. TSPTimeZoneInformationArray = Array of TSPTimeZoneInformation;
  128. TSPUsageInfo = class;
  129. TSPUsageInfoArray = Array of TSPUsageInfo;
  130. TSPUserCreationInformation = class;
  131. TSPUserCreationInformationArray = Array of TSPUserCreationInformation;
  132. TSPUserIdInfo = class;
  133. TSPUserIdInfoArray = Array of TSPUserIdInfo;
  134. TSPViewCreationInformation = class;
  135. TSPViewCreationInformationArray = Array of TSPViewCreationInformation;
  136. TSPWebCreationInformation = class;
  137. TSPWebCreationInformationArray = Array of TSPWebCreationInformation;
  138. TSPWebInfoCreationInformation = class;
  139. TSPWebInfoCreationInformationArray = Array of TSPWebInfoCreationInformation;
  140. TSPWebRequestInfo = class;
  141. TSPWebRequestInfoArray = Array of TSPWebRequestInfo;
  142. TSPWebResponseInfo = class;
  143. TSPWebResponseInfoArray = Array of TSPWebResponseInfo;
  144. TSPXmlSchemaFieldCreationInformation = class;
  145. TSPXmlSchemaFieldCreationInformationArray = Array of TSPXmlSchemaFieldCreationInformation;
  146. TSPApiMetadata = class;
  147. TSPApiMetadataArray = Array of TSPApiMetadata;
  148. TSPTypeInformation = class;
  149. TSPTypeInformationArray = Array of TSPTypeInformation;
  150. TSPSite = class;
  151. TSPSiteArray = Array of TSPSite;
  152. TSPAudit = class;
  153. TSPAuditArray = Array of TSPAudit;
  154. TSPEventReceiverDefinition = class;
  155. TSPEventReceiverDefinitionArray = Array of TSPEventReceiverDefinition;
  156. TSPFeature = class;
  157. TSPFeatureArray = Array of TSPFeature;
  158. TSPPrincipal = class;
  159. TSPPrincipalArray = Array of TSPPrincipal;
  160. TSPUser = class;
  161. TSPUserArray = Array of TSPUser;
  162. TSPGroup = class;
  163. TSPGroupArray = Array of TSPGroup;
  164. TSPRecycleBinItem = class;
  165. TSPRecycleBinItemArray = Array of TSPRecycleBinItem;
  166. TSPSecurableObject = class;
  167. TSPSecurableObjectArray = Array of TSPSecurableObject;
  168. TSPRoleAssignment = class;
  169. TSPRoleAssignmentArray = Array of TSPRoleAssignment;
  170. TSPRoleDefinition = class;
  171. TSPRoleDefinitionArray = Array of TSPRoleDefinition;
  172. TSPWeb = class;
  173. TSPWebArray = Array of TSPWeb;
  174. TSPPropertyValues = class;
  175. TSPPropertyValuesArray = Array of TSPPropertyValues;
  176. TSPAppTile = class;
  177. TSPAppTileArray = Array of TSPAppTile;
  178. TSPContentType = class;
  179. TSPContentTypeArray = Array of TSPContentType;
  180. TSPUserResource = class;
  181. TSPUserResourceArray = Array of TSPUserResource;
  182. TSPFieldLink = class;
  183. TSPFieldLinkArray = Array of TSPFieldLink;
  184. TSPField = class;
  185. TSPFieldArray = Array of TSPField;
  186. TSPSPDataLeakagePreventionStatusInfo = class;
  187. TSPSPDataLeakagePreventionStatusInfoArray = Array of TSPSPDataLeakagePreventionStatusInfo;
  188. TSPFolder = class;
  189. TSPFolderArray = Array of TSPFolder;
  190. TSP_File = class;
  191. TSP_FileArray = Array of TSP_File;
  192. TSPListItem = class;
  193. TSPListItemArray = Array of TSPListItem;
  194. TSPAttachment = class;
  195. TSPAttachmentArray = Array of TSPAttachment;
  196. TSPDlpPolicyTip = class;
  197. TSPDlpPolicyTipArray = Array of TSPDlpPolicyTip;
  198. TSPFieldStringValues = class;
  199. TSPFieldStringValuesArray = Array of TSPFieldStringValues;
  200. TSPList = class;
  201. TSPListArray = Array of TSPList;
  202. TSPCreatablesInfo = class;
  203. TSPCreatablesInfoArray = Array of TSPCreatablesInfo;
  204. TSPView = class;
  205. TSPViewArray = Array of TSPView;
  206. TSPViewFieldCollection = class;
  207. TSPViewFieldCollectionArray = Array of TSPViewFieldCollection;
  208. TSPForm = class;
  209. TSPFormArray = Array of TSPForm;
  210. TSPInformationRightsManagementSettings = class;
  211. TSPInformationRightsManagementSettingsArray = Array of TSPInformationRightsManagementSettings;
  212. TSPUserCustomAction = class;
  213. TSPUserCustomActionArray = Array of TSPUserCustomAction;
  214. TSPFileVersion = class;
  215. TSPFileVersionArray = Array of TSPFileVersion;
  216. TSPListTemplate = class;
  217. TSPListTemplateArray = Array of TSPListTemplate;
  218. TSPNavigation = class;
  219. TSPNavigationArray = Array of TSPNavigation;
  220. TSPNavigationNode = class;
  221. TSPNavigationNodeArray = Array of TSPNavigationNode;
  222. TSPWebInformation = class;
  223. TSPWebInformationArray = Array of TSPWebInformation;
  224. TSPPushNotificationSubscriber = class;
  225. TSPPushNotificationSubscriberArray = Array of TSPPushNotificationSubscriber;
  226. TSPRegionalSettings = class;
  227. TSPRegionalSettingsArray = Array of TSPRegionalSettings;
  228. TSPTimeZone = class;
  229. TSPTimeZoneArray = Array of TSPTimeZone;
  230. TSPThemeInfo = class;
  231. TSPThemeInfoArray = Array of TSPThemeInfo;
  232. TSPSPAppLicenseManager = class;
  233. TSPSPAppLicenseManagerArray = Array of TSPSPAppLicenseManager;
  234. TSPSolutionExporter = class;
  235. TSPSolutionExporterArray = Array of TSPSolutionExporter;
  236. TSPUserSolution = class;
  237. TSPUserSolutionArray = Array of TSPUserSolution;
  238. TSPAppCatalog = class;
  239. TSPAppCatalogArray = Array of TSPAppCatalog;
  240. TSPAppInstanceErrorDetails = class;
  241. TSPAppInstanceErrorDetailsArray = Array of TSPAppInstanceErrorDetails;
  242. TSPAppInstance = class;
  243. TSPAppInstanceArray = Array of TSPAppInstance;
  244. TSPApp = class;
  245. TSPAppArray = Array of TSPApp;
  246. TSPAlternateUrl = class;
  247. TSPAlternateUrlArray = Array of TSPAlternateUrl;
  248. TSPObjectSharingSettings = class;
  249. TSPObjectSharingSettingsArray = Array of TSPObjectSharingSettings;
  250. TSPObjectSharingInformation = class;
  251. TSPObjectSharingInformationArray = Array of TSPObjectSharingInformation;
  252. TSPObjectSharingInformationUser = class;
  253. TSPObjectSharingInformationUserArray = Array of TSPObjectSharingInformationUser;
  254. TSPSharePointSharingSettings = class;
  255. TSPSharePointSharingSettingsArray = Array of TSPSharePointSharingSettings;
  256. TSPPickerSettings = class;
  257. TSPPickerSettingsArray = Array of TSPPickerSettings;
  258. TSPRelatedItemManager = class;
  259. TSPRelatedItemManagerArray = Array of TSPRelatedItemManager;
  260. TSPServerSettings = class;
  261. TSPServerSettingsArray = Array of TSPServerSettings;
  262. TSPSharingResult = class;
  263. TSPSharingResultArray = Array of TSPSharingResult;
  264. TSPAccessRequests = class;
  265. TSPAccessRequestsArray = Array of TSPAccessRequests;
  266. TSPAppContextSite = class;
  267. TSPAppContextSiteArray = Array of TSPAppContextSite;
  268. TSPChange = class;
  269. TSPChangeArray = Array of TSPChange;
  270. TSPChangeAlert = class;
  271. TSPChangeAlertArray = Array of TSPChangeAlert;
  272. TSPChangeContentType = class;
  273. TSPChangeContentTypeArray = Array of TSPChangeContentType;
  274. TSPChangeField = class;
  275. TSPChangeFieldArray = Array of TSPChangeField;
  276. TSPChangeFile = class;
  277. TSPChangeFileArray = Array of TSPChangeFile;
  278. TSPChangeFolder = class;
  279. TSPChangeFolderArray = Array of TSPChangeFolder;
  280. TSPChangeGroup = class;
  281. TSPChangeGroupArray = Array of TSPChangeGroup;
  282. TSPChangeItem = class;
  283. TSPChangeItemArray = Array of TSPChangeItem;
  284. TSPChangeList = class;
  285. TSPChangeListArray = Array of TSPChangeList;
  286. TSPChangeSite = class;
  287. TSPChangeSiteArray = Array of TSPChangeSite;
  288. TSPChangeUser = class;
  289. TSPChangeUserArray = Array of TSPChangeUser;
  290. TSPChangeView = class;
  291. TSPChangeViewArray = Array of TSPChangeView;
  292. TSPChangeWeb = class;
  293. TSPChangeWebArray = Array of TSPChangeWeb;
  294. TSPCompatibilityRange = class;
  295. TSPCompatibilityRangeArray = Array of TSPCompatibilityRange;
  296. TSPRequestContext = class;
  297. TSPRequestContextArray = Array of TSPRequestContext;
  298. TSPFieldCalculated = class;
  299. TSPFieldCalculatedArray = Array of TSPFieldCalculated;
  300. TSPFieldMultiChoice = class;
  301. TSPFieldMultiChoiceArray = Array of TSPFieldMultiChoice;
  302. TSPFieldChoice = class;
  303. TSPFieldChoiceArray = Array of TSPFieldChoice;
  304. TSPFieldComputed = class;
  305. TSPFieldComputedArray = Array of TSPFieldComputed;
  306. TSPFieldNumber = class;
  307. TSPFieldNumberArray = Array of TSPFieldNumber;
  308. TSPFieldCurrency = class;
  309. TSPFieldCurrencyArray = Array of TSPFieldCurrency;
  310. TSPFieldDateTime = class;
  311. TSPFieldDateTimeArray = Array of TSPFieldDateTime;
  312. TSPFieldGeolocation = class;
  313. TSPFieldGeolocationArray = Array of TSPFieldGeolocation;
  314. TSPFieldGuid = class;
  315. TSPFieldGuidArray = Array of TSPFieldGuid;
  316. TSPFieldLookup = class;
  317. TSPFieldLookupArray = Array of TSPFieldLookup;
  318. TSPFieldMultiLineText = class;
  319. TSPFieldMultiLineTextArray = Array of TSPFieldMultiLineText;
  320. TSPFieldRatingScale = class;
  321. TSPFieldRatingScaleArray = Array of TSPFieldRatingScale;
  322. TSPFieldText = class;
  323. TSPFieldTextArray = Array of TSPFieldText;
  324. TSPFieldUrl = class;
  325. TSPFieldUrlArray = Array of TSPFieldUrl;
  326. TSPFieldUser = class;
  327. TSPFieldUserArray = Array of TSPFieldUser;
  328. TSPMountedFolderInfo = class;
  329. TSPMountedFolderInfoArray = Array of TSPMountedFolderInfo;
  330. TSPMountPoint = class;
  331. TSPMountPointArray = Array of TSPMountPoint;
  332. TSPMountPointInfo = class;
  333. TSPMountPointInfoArray = Array of TSPMountPointInfo;
  334. TSPMoveCopyUtil = class;
  335. TSPMoveCopyUtilArray = Array of TSPMoveCopyUtil;
  336. TSPRelatedField = class;
  337. TSPRelatedFieldArray = Array of TSPRelatedField;
  338. TSPRemoteWeb = class;
  339. TSPRemoteWebArray = Array of TSPRemoteWeb;
  340. TSPRequestUserContext = class;
  341. TSPRequestUserContextArray = Array of TSPRequestUserContext;
  342. TSPSiteUrl = class;
  343. TSPSiteUrlArray = Array of TSPSiteUrl;
  344. TSPTenantAppInstance = class;
  345. TSPTenantAppInstanceArray = Array of TSPTenantAppInstance;
  346. TSPWebProxy = class;
  347. TSPWebProxyArray = Array of TSPWebProxy;
  348. TSPWebTemplate = class;
  349. TSPWebTemplateArray = Array of TSPWebTemplate;
  350. TSPTenantAppUtility = class;
  351. TSPTenantAppUtilityArray = Array of TSPTenantAppUtility;
  352. TSPTenantSettings = class;
  353. TSPTenantSettingsArray = Array of TSPTenantSettings;
  354. TSPAppPrincipalIdentityProvider = class;
  355. TSPAppPrincipalIdentityProviderArray = Array of TSPAppPrincipalIdentityProvider;
  356. TSPAppPrincipalManager = class;
  357. TSPAppPrincipalManagerArray = Array of TSPAppPrincipalManager;
  358. TSPAppPrincipalCredential = class;
  359. TSPAppPrincipalCredentialArray = Array of TSPAppPrincipalCredential;
  360. TSPAppPrincipalName = class;
  361. TSPAppPrincipalNameArray = Array of TSPAppPrincipalName;
  362. TMS_AppDataExternalEntityItemValue = class;
  363. TMS_AppDataExternalEntityItemValueArray = Array of TMS_AppDataExternalEntityItemValue;
  364. TMS_AppDataDocumentEntityItemValue = class;
  365. TMS_AppDataDocumentEntityItemValueArray = Array of TMS_AppDataDocumentEntityItemValue;
  366. TMS_AppDataEntityItemValue = class;
  367. TMS_AppDataEntityItemValueArray = Array of TMS_AppDataEntityItemValue;
  368. TMS_AppDataEntityTypeCreationInformation = class;
  369. TMS_AppDataEntityTypeCreationInformationArray = Array of TMS_AppDataEntityTypeCreationInformation;
  370. TMS_AppDataExternalEntityTypeCreationInformation = class;
  371. TMS_AppDataExternalEntityTypeCreationInformationArray = Array of TMS_AppDataExternalEntityTypeCreationInformation;
  372. TMS_AppDataFieldCreationInformation = class;
  373. TMS_AppDataFieldCreationInformationArray = Array of TMS_AppDataFieldCreationInformation;
  374. TMS_AppDataItemQuery = class;
  375. TMS_AppDataItemQueryArray = Array of TMS_AppDataItemQuery;
  376. TMS_AppDataItemCollectionQuery = class;
  377. TMS_AppDataItemCollectionQueryArray = Array of TMS_AppDataItemCollectionQuery;
  378. TMS_AppDataUrlFieldValue = class;
  379. TMS_AppDataUrlFieldValueArray = Array of TMS_AppDataUrlFieldValue;
  380. TMS_AppDataUserEntityItemValue = class;
  381. TMS_AppDataUserEntityItemValueArray = Array of TMS_AppDataUserEntityItemValue;
  382. TMS_AppDataApp = class;
  383. TMS_AppDataAppArray = Array of TMS_AppDataApp;
  384. TMS_AppDataEntityTypeBase = class;
  385. TMS_AppDataEntityTypeBaseArray = Array of TMS_AppDataEntityTypeBase;
  386. TMS_AppDataField = class;
  387. TMS_AppDataFieldArray = Array of TMS_AppDataField;
  388. TMS_AppDataEntityType = class;
  389. TMS_AppDataEntityTypeArray = Array of TMS_AppDataEntityType;
  390. TMS_AppDataEntityItem = class;
  391. TMS_AppDataEntityItemArray = Array of TMS_AppDataEntityItem;
  392. TMS_AppDataExternalEntityType = class;
  393. TMS_AppDataExternalEntityTypeArray = Array of TMS_AppDataExternalEntityType;
  394. TMS_AppDataStoreContextBase = class;
  395. TMS_AppDataStoreContextBaseArray = Array of TMS_AppDataStoreContextBase;
  396. TMS_AppDataODataStoreContext = class;
  397. TMS_AppDataODataStoreContextArray = Array of TMS_AppDataODataStoreContext;
  398. TMS_AppDataRequestContext = class;
  399. TMS_AppDataRequestContextArray = Array of TMS_AppDataRequestContext;
  400. TMS_AppDataSqlStoreContext = class;
  401. TMS_AppDataSqlStoreContextArray = Array of TMS_AppDataSqlStoreContext;
  402. TSP_DirectoryLinkRequestSchema = class;
  403. TSP_DirectoryLinkRequestSchemaArray = Array of TSP_DirectoryLinkRequestSchema;
  404. TSP_DirectoryDirectorySession = class;
  405. TSP_DirectoryDirectorySessionArray = Array of TSP_DirectoryDirectorySession;
  406. TSP_DirectoryGroupAndUserStatus = class;
  407. TSP_DirectoryGroupAndUserStatusArray = Array of TSP_DirectoryGroupAndUserStatus;
  408. TSP_DirectoryGroup = class;
  409. TSP_DirectoryGroupArray = Array of TSP_DirectoryGroup;
  410. TSP_DirectoryLinkCollection = class;
  411. TSP_DirectoryLinkCollectionArray = Array of TSP_DirectoryLinkCollection;
  412. TSP_DirectoryMembershipResult = class;
  413. TSP_DirectoryMembershipResultArray = Array of TSP_DirectoryMembershipResult;
  414. TSP_DirectoryMembersInfo = class;
  415. TSP_DirectoryMembersInfoArray = Array of TSP_DirectoryMembersInfo;
  416. TSP_DirectoryMyGroupsResult = class;
  417. TSP_DirectoryMyGroupsResultArray = Array of TSP_DirectoryMyGroupsResult;
  418. TSP_DirectoryPropertyDictionary = class;
  419. TSP_DirectoryPropertyDictionaryArray = Array of TSP_DirectoryPropertyDictionary;
  420. TSP_Directory_Property = class;
  421. TSP_Directory_PropertyArray = Array of TSP_Directory_Property;
  422. TSP_DirectorySPHelper = class;
  423. TSP_DirectorySPHelperArray = Array of TSP_DirectorySPHelper;
  424. TSP_DirectoryUserRequestSchema = class;
  425. TSP_DirectoryUserRequestSchemaArray = Array of TSP_DirectoryUserRequestSchema;
  426. TSP_DirectoryUser = class;
  427. TSP_DirectoryUserArray = Array of TSP_DirectoryUser;
  428. TMS_FileServicesUserInformation = class;
  429. TMS_FileServicesUserInformationArray = Array of TMS_FileServicesUserInformation;
  430. TMS_FileServicesFileSystemItem = class;
  431. TMS_FileServicesFileSystemItemArray = Array of TMS_FileServicesFileSystemItem;
  432. TMS_FileServices_File = class;
  433. TMS_FileServices_FileArray = Array of TMS_FileServices_File;
  434. TMS_FileServicesFileService = class;
  435. TMS_FileServicesFileServiceArray = Array of TMS_FileServicesFileService;
  436. TMS_FileServicesFolder = class;
  437. TMS_FileServicesFolderArray = Array of TMS_FileServicesFolder;
  438. TMS_FileServicesMeFileService = class;
  439. TMS_FileServicesMeFileServiceArray = Array of TMS_FileServicesMeFileService;
  440. TSP_Directory_ProviderDirectoryObjectData = class;
  441. TSP_Directory_ProviderDirectoryObjectDataArray = Array of TSP_Directory_ProviderDirectoryObjectData;
  442. TSP_Directory_ProviderSchemaData = class;
  443. TSP_Directory_ProviderSchemaDataArray = Array of TSP_Directory_ProviderSchemaData;
  444. TSP_Directory_ProviderPropertyData = class;
  445. TSP_Directory_ProviderPropertyDataArray = Array of TSP_Directory_ProviderPropertyData;
  446. TSP_Directory_ProviderRelationData = class;
  447. TSP_Directory_ProviderRelationDataArray = Array of TSP_Directory_ProviderRelationData;
  448. TSP_Directory_ProviderRelationSetData = class;
  449. TSP_Directory_ProviderRelationSetDataArray = Array of TSP_Directory_ProviderRelationSetData;
  450. TSP_Directory_ProviderResourceData = class;
  451. TSP_Directory_ProviderResourceDataArray = Array of TSP_Directory_ProviderResourceData;
  452. TSP_Directory_ProviderStateData = class;
  453. TSP_Directory_ProviderStateDataArray = Array of TSP_Directory_ProviderStateData;
  454. TSP_Directory_ProviderSharePointDirectoryProvider = class;
  455. TSP_Directory_ProviderSharePointDirectoryProviderArray = Array of TSP_Directory_ProviderSharePointDirectoryProvider;
  456. TSP_MicrofeedMicroBlogEntityCollection = class;
  457. TSP_MicrofeedMicroBlogEntityCollectionArray = Array of TSP_MicrofeedMicroBlogEntityCollection;
  458. TSP_MicrofeedMicroBlogEntity = class;
  459. TSP_MicrofeedMicroBlogEntityArray = Array of TSP_MicrofeedMicroBlogEntity;
  460. TSP_MicrofeedMicrofeedPostDefinition = class;
  461. TSP_MicrofeedMicrofeedPostDefinitionArray = Array of TSP_MicrofeedMicrofeedPostDefinition;
  462. TSP_MicrofeedMicrofeedDataLinkCollection = class;
  463. TSP_MicrofeedMicrofeedDataLinkCollectionArray = Array of TSP_MicrofeedMicrofeedDataLinkCollection;
  464. TSP_MicrofeedMicrofeedDataLink = class;
  465. TSP_MicrofeedMicrofeedDataLinkArray = Array of TSP_MicrofeedMicrofeedDataLink;
  466. TSP_MicrofeedMicrofeedDataQuery = class;
  467. TSP_MicrofeedMicrofeedDataQueryArray = Array of TSP_MicrofeedMicrofeedDataQuery;
  468. TSP_MicrofeedMicrofeedLinkAction = class;
  469. TSP_MicrofeedMicrofeedLinkActionArray = Array of TSP_MicrofeedMicrofeedLinkAction;
  470. TSP_MicrofeedMicrofeedLink = class;
  471. TSP_MicrofeedMicrofeedLinkArray = Array of TSP_MicrofeedMicrofeedLink;
  472. TSP_MicrofeedMicrofeedPostCollection = class;
  473. TSP_MicrofeedMicrofeedPostCollectionArray = Array of TSP_MicrofeedMicrofeedPostCollection;
  474. TSP_MicrofeedMicrofeedPost = class;
  475. TSP_MicrofeedMicrofeedPostArray = Array of TSP_MicrofeedMicrofeedPost;
  476. TSP_MicrofeedMicrofeedPostDefinitionNames = class;
  477. TSP_MicrofeedMicrofeedPostDefinitionNamesArray = Array of TSP_MicrofeedMicrofeedPostDefinitionNames;
  478. TSP_MicrofeedMicrofeedPostDefinitionNameCollection = class;
  479. TSP_MicrofeedMicrofeedPostDefinitionNameCollectionArray = Array of TSP_MicrofeedMicrofeedPostDefinitionNameCollection;
  480. TSP_MicrofeedMicrofeedPostOptions = class;
  481. TSP_MicrofeedMicrofeedPostOptionsArray = Array of TSP_MicrofeedMicrofeedPostOptions;
  482. TSP_MicrofeedMicrofeedRetrievalOptions = class;
  483. TSP_MicrofeedMicrofeedRetrievalOptionsArray = Array of TSP_MicrofeedMicrofeedRetrievalOptions;
  484. TSP_MicrofeedMicrofeedThreadCollection = class;
  485. TSP_MicrofeedMicrofeedThreadCollectionArray = Array of TSP_MicrofeedMicrofeedThreadCollection;
  486. TSP_MicrofeedMicrofeedThread = class;
  487. TSP_MicrofeedMicrofeedThreadArray = Array of TSP_MicrofeedMicrofeedThread;
  488. TSP_MicrofeedMicrofeedUserPostCollection = class;
  489. TSP_MicrofeedMicrofeedUserPostCollectionArray = Array of TSP_MicrofeedMicrofeedUserPostCollection;
  490. TSP_MicrofeedMicrofeedUserPosts = class;
  491. TSP_MicrofeedMicrofeedUserPostsArray = Array of TSP_MicrofeedMicrofeedUserPosts;
  492. TSP_MicrofeedMicrofeedPostDefinitionManager = class;
  493. TSP_MicrofeedMicrofeedPostDefinitionManagerArray = Array of TSP_MicrofeedMicrofeedPostDefinitionManager;
  494. TSP_MicrofeedMicrofeedAttachmentStore = class;
  495. TSP_MicrofeedMicrofeedAttachmentStoreArray = Array of TSP_MicrofeedMicrofeedAttachmentStore;
  496. TSP_MicrofeedMicrofeedData = class;
  497. TSP_MicrofeedMicrofeedDataArray = Array of TSP_MicrofeedMicrofeedData;
  498. TSP_MicrofeedMicrofeedManager = class;
  499. TSP_MicrofeedMicrofeedManagerArray = Array of TSP_MicrofeedMicrofeedManager;
  500. TSP_MicrofeedMicrofeedPostOptionCollection = class;
  501. TSP_MicrofeedMicrofeedPostOptionCollectionArray = Array of TSP_MicrofeedMicrofeedPostOptionCollection;
  502. TSP_MicrofeedMicrofeedStore = class;
  503. TSP_MicrofeedMicrofeedStoreArray = Array of TSP_MicrofeedMicrofeedStore;
  504. TSP_SocialSocialActorInfo = class;
  505. TSP_SocialSocialActorInfoArray = Array of TSP_SocialSocialActorInfo;
  506. TSP_SocialSocialActor = class;
  507. TSP_SocialSocialActorArray = Array of TSP_SocialSocialActor;
  508. TSP_SocialSocialAttachmentAction = class;
  509. TSP_SocialSocialAttachmentActionArray = Array of TSP_SocialSocialAttachmentAction;
  510. TSP_SocialSocialAttachment = class;
  511. TSP_SocialSocialAttachmentArray = Array of TSP_SocialSocialAttachment;
  512. TSP_SocialSocialDataItem = class;
  513. TSP_SocialSocialDataItemArray = Array of TSP_SocialSocialDataItem;
  514. TSP_SocialSocialDataOverlay = class;
  515. TSP_SocialSocialDataOverlayArray = Array of TSP_SocialSocialDataOverlay;
  516. TSP_SocialSocialExceptionDetails = class;
  517. TSP_SocialSocialExceptionDetailsArray = Array of TSP_SocialSocialExceptionDetails;
  518. TSP_SocialSocialFeedOptions = class;
  519. TSP_SocialSocialFeedOptionsArray = Array of TSP_SocialSocialFeedOptions;
  520. TSP_SocialSocialFeed = class;
  521. TSP_SocialSocialFeedArray = Array of TSP_SocialSocialFeed;
  522. TSP_SocialSocialThread = class;
  523. TSP_SocialSocialThreadArray = Array of TSP_SocialSocialThread;
  524. TSP_SocialSocialPostReference = class;
  525. TSP_SocialSocialPostReferenceArray = Array of TSP_SocialSocialPostReference;
  526. TSP_SocialSocialPost = class;
  527. TSP_SocialSocialPostArray = Array of TSP_SocialSocialPost;
  528. TSP_SocialSocialPostActorInfo = class;
  529. TSP_SocialSocialPostActorInfoArray = Array of TSP_SocialSocialPostActorInfo;
  530. TSP_SocialSocialLink = class;
  531. TSP_SocialSocialLinkArray = Array of TSP_SocialSocialLink;
  532. TSP_SocialSocialPostCreationData = class;
  533. TSP_SocialSocialPostCreationDataArray = Array of TSP_SocialSocialPostCreationData;
  534. TSP_SocialSocialPostDefinitionData = class;
  535. TSP_SocialSocialPostDefinitionDataArray = Array of TSP_SocialSocialPostDefinitionData;
  536. TSP_SocialSocialPostDefinitionDataItem = class;
  537. TSP_SocialSocialPostDefinitionDataItemArray = Array of TSP_SocialSocialPostDefinitionDataItem;
  538. TSP_SocialSocialRestPostCreationData = class;
  539. TSP_SocialSocialRestPostCreationDataArray = Array of TSP_SocialSocialRestPostCreationData;
  540. TSP_SocialSocialAnnouncementManager = class;
  541. TSP_SocialSocialAnnouncementManagerArray = Array of TSP_SocialSocialAnnouncementManager;
  542. TSP_SocialSocialFeedManager = class;
  543. TSP_SocialSocialFeedManagerArray = Array of TSP_SocialSocialFeedManager;
  544. TSP_SocialSocialFollowingManager = class;
  545. TSP_SocialSocialFollowingManagerArray = Array of TSP_SocialSocialFollowingManager;
  546. TSP_SocialSocialRestActor = class;
  547. TSP_SocialSocialRestActorArray = Array of TSP_SocialSocialRestActor;
  548. TSP_SocialSocialRestFeedManager = class;
  549. TSP_SocialSocialRestFeedManagerArray = Array of TSP_SocialSocialRestFeedManager;
  550. TSP_SocialSocialRestFeed = class;
  551. TSP_SocialSocialRestFeedArray = Array of TSP_SocialSocialRestFeed;
  552. TSP_SocialSocialRestFollowingManager = class;
  553. TSP_SocialSocialRestFollowingManagerArray = Array of TSP_SocialSocialRestFollowingManager;
  554. TSP_SocialSocialRestThread = class;
  555. TSP_SocialSocialRestThreadArray = Array of TSP_SocialSocialRestThread;
  556. TSP_UserProfilesFollowedItem = class;
  557. TSP_UserProfilesFollowedItemArray = Array of TSP_UserProfilesFollowedItem;
  558. TSP_UserProfilesFollowResult = class;
  559. TSP_UserProfilesFollowResultArray = Array of TSP_UserProfilesFollowResult;
  560. TSP_UserProfilesHashTag = class;
  561. TSP_UserProfilesHashTagArray = Array of TSP_UserProfilesHashTag;
  562. TSP_UserProfilesFollowedContent = class;
  563. TSP_UserProfilesFollowedContentArray = Array of TSP_UserProfilesFollowedContent;
  564. TSP_UserProfilesFollowedItemData = class;
  565. TSP_UserProfilesFollowedItemDataArray = Array of TSP_UserProfilesFollowedItemData;
  566. TSP_UserProfilesHashTagCollection = class;
  567. TSP_UserProfilesHashTagCollectionArray = Array of TSP_UserProfilesHashTagCollection;
  568. TSP_UserProfilesPeopleManager = class;
  569. TSP_UserProfilesPeopleManagerArray = Array of TSP_UserProfilesPeopleManager;
  570. TSP_UserProfilesPersonProperties = class;
  571. TSP_UserProfilesPersonPropertiesArray = Array of TSP_UserProfilesPersonProperties;
  572. TSP_UserProfilesProfileImageStore = class;
  573. TSP_UserProfilesProfileImageStoreArray = Array of TSP_UserProfilesProfileImageStore;
  574. TSP_UserProfilesProfileLoader = class;
  575. TSP_UserProfilesProfileLoaderArray = Array of TSP_UserProfilesProfileLoader;
  576. TSP_UserProfilesUserProfilePropertiesForUser = class;
  577. TSP_UserProfilesUserProfilePropertiesForUserArray = Array of TSP_UserProfilesUserProfilePropertiesForUser;
  578. TSP_UserProfilesUserProfile = class;
  579. TSP_UserProfilesUserProfileArray = Array of TSP_UserProfilesUserProfile;
  580. TPSAssignmentCreationInformation = class;
  581. TPSAssignmentCreationInformationArray = Array of TPSAssignmentCreationInformation;
  582. TPSCalendarCreationInformation = class;
  583. TPSCalendarCreationInformationArray = Array of TPSCalendarCreationInformation;
  584. TPSCalendarExceptionCreationInformation = class;
  585. TPSCalendarExceptionCreationInformationArray = Array of TPSCalendarExceptionCreationInformation;
  586. TPSCustomFieldCreationInformation = class;
  587. TPSCustomFieldCreationInformationArray = Array of TPSCustomFieldCreationInformation;
  588. TPSEnterpriseProjectTypeCreationInformation = class;
  589. TPSEnterpriseProjectTypeCreationInformationArray = Array of TPSEnterpriseProjectTypeCreationInformation;
  590. TPSProjectDetailPageCreationInformation = class;
  591. TPSProjectDetailPageCreationInformationArray = Array of TPSProjectDetailPageCreationInformation;
  592. TPSEnterpriseResourceCreationInformation = class;
  593. TPSEnterpriseResourceCreationInformationArray = Array of TPSEnterpriseResourceCreationInformation;
  594. TPSEventHandlerCreationInformation = class;
  595. TPSEventHandlerCreationInformationArray = Array of TPSEventHandlerCreationInformation;
  596. TPSLookupEntryCreationInformation = class;
  597. TPSLookupEntryCreationInformationArray = Array of TPSLookupEntryCreationInformation;
  598. TPSLookupEntryValue = class;
  599. TPSLookupEntryValueArray = Array of TPSLookupEntryValue;
  600. TPSLookupMask = class;
  601. TPSLookupMaskArray = Array of TPSLookupMask;
  602. TPSLookupTableCreationInformation = class;
  603. TPSLookupTableCreationInformationArray = Array of TPSLookupTableCreationInformation;
  604. TPSPhaseCreationInformation = class;
  605. TPSPhaseCreationInformationArray = Array of TPSPhaseCreationInformation;
  606. TPSPlanAssignmentCreationInformation = class;
  607. TPSPlanAssignmentCreationInformationArray = Array of TPSPlanAssignmentCreationInformation;
  608. TPSPlanAssignmentIntervalCreationInformation = class;
  609. TPSPlanAssignmentIntervalCreationInformationArray = Array of TPSPlanAssignmentIntervalCreationInformation;
  610. TPSProjectCreationInformation = class;
  611. TPSProjectCreationInformationArray = Array of TPSProjectCreationInformation;
  612. TPSProjectResourceCreationInformation = class;
  613. TPSProjectResourceCreationInformationArray = Array of TPSProjectResourceCreationInformation;
  614. TPSStageCreationInformation = class;
  615. TPSStageCreationInformationArray = Array of TPSStageCreationInformation;
  616. TPSStageCustomFieldCreationInformation = class;
  617. TPSStageCustomFieldCreationInformationArray = Array of TPSStageCustomFieldCreationInformation;
  618. TPSStageDetailPageCreationInformation = class;
  619. TPSStageDetailPageCreationInformationArray = Array of TPSStageDetailPageCreationInformation;
  620. TPSStatusAssignmentCreationInformation = class;
  621. TPSStatusAssignmentCreationInformationArray = Array of TPSStatusAssignmentCreationInformation;
  622. TPSStatusTaskCreationInformation = class;
  623. TPSStatusTaskCreationInformationArray = Array of TPSStatusTaskCreationInformation;
  624. TPSTaskCreationInformation = class;
  625. TPSTaskCreationInformationArray = Array of TPSTaskCreationInformation;
  626. TPSTaskLinkCreationInformation = class;
  627. TPSTaskLinkCreationInformationArray = Array of TPSTaskLinkCreationInformation;
  628. TPSTimeSheetLineCreationInformation = class;
  629. TPSTimeSheetLineCreationInformationArray = Array of TPSTimeSheetLineCreationInformation;
  630. TPSTimeSheetWorkCreationInformation = class;
  631. TPSTimeSheetWorkCreationInformationArray = Array of TPSTimeSheetWorkCreationInformation;
  632. TPSEntityType = class;
  633. TPSEntityTypeArray = Array of TPSEntityType;
  634. TPSLookupTables = class;
  635. TPSLookupTablesArray = Array of TPSLookupTables;
  636. TPSAssignment = class;
  637. TPSAssignmentArray = Array of TPSAssignment;
  638. TPSCustomField = class;
  639. TPSCustomFieldArray = Array of TPSCustomField;
  640. TPSLookupEntry = class;
  641. TPSLookupEntryArray = Array of TPSLookupEntry;
  642. TPSLookupTable = class;
  643. TPSLookupTableArray = Array of TPSLookupTable;
  644. TPSCalendarException = class;
  645. TPSCalendarExceptionArray = Array of TPSCalendarException;
  646. TPSCalendar = class;
  647. TPSCalendarArray = Array of TPSCalendar;
  648. TPSBaseCalendarException = class;
  649. TPSBaseCalendarExceptionArray = Array of TPSBaseCalendarException;
  650. TPSDraftAssignment = class;
  651. TPSDraftAssignmentArray = Array of TPSDraftAssignment;
  652. TPSProjectResource = class;
  653. TPSProjectResourceArray = Array of TPSProjectResource;
  654. TPSEnterpriseResource = class;
  655. TPSEnterpriseResourceArray = Array of TPSEnterpriseResource;
  656. TPSStatusAssignment = class;
  657. TPSStatusAssignmentArray = Array of TPSStatusAssignment;
  658. TPSProject = class;
  659. TPSProjectArray = Array of TPSProject;
  660. TPSEnterpriseProjectType = class;
  661. TPSEnterpriseProjectTypeArray = Array of TPSEnterpriseProjectType;
  662. TPSProjectDetailPage = class;
  663. TPSProjectDetailPageArray = Array of TPSProjectDetailPage;
  664. TPSPhase = class;
  665. TPSPhaseArray = Array of TPSPhase;
  666. TPSStage = class;
  667. TPSStageArray = Array of TPSStage;
  668. TPSStageCustomField = class;
  669. TPSStageCustomFieldArray = Array of TPSStageCustomField;
  670. TPSStageDetailPage = class;
  671. TPSStageDetailPageArray = Array of TPSStageDetailPage;
  672. TPSQueueJob = class;
  673. TPSQueueJobArray = Array of TPSQueueJob;
  674. TPSPublishedProject = class;
  675. TPSPublishedProjectArray = Array of TPSPublishedProject;
  676. TPSPublishedAssignment = class;
  677. TPSPublishedAssignmentArray = Array of TPSPublishedAssignment;
  678. TPSPublishedProjectResource = class;
  679. TPSPublishedProjectResourceArray = Array of TPSPublishedProjectResource;
  680. TPSTask = class;
  681. TPSTaskArray = Array of TPSTask;
  682. TPSPublishedTask = class;
  683. TPSPublishedTaskArray = Array of TPSPublishedTask;
  684. TPSTaskLink = class;
  685. TPSTaskLinkArray = Array of TPSTaskLink;
  686. TPSPublishedTaskLink = class;
  687. TPSPublishedTaskLinkArray = Array of TPSPublishedTaskLink;
  688. TPSDraftProject = class;
  689. TPSDraftProjectArray = Array of TPSDraftProject;
  690. TPSDraftProjectResource = class;
  691. TPSDraftProjectResourceArray = Array of TPSDraftProjectResource;
  692. TPSDraftTaskLink = class;
  693. TPSDraftTaskLinkArray = Array of TPSDraftTaskLink;
  694. TPSDraftTask = class;
  695. TPSDraftTaskArray = Array of TPSDraftTask;
  696. TPSStatusTask = class;
  697. TPSStatusTaskArray = Array of TPSStatusTask;
  698. TPSEntityTypes = class;
  699. TPSEntityTypesArray = Array of TPSEntityTypes;
  700. TPSEvent = class;
  701. TPSEventArray = Array of TPSEvent;
  702. TPSEventHandler = class;
  703. TPSEventHandlerArray = Array of TPSEventHandler;
  704. TPSLookupCost = class;
  705. TPSLookupCostArray = Array of TPSLookupCost;
  706. TPSLookupDate = class;
  707. TPSLookupDateArray = Array of TPSLookupDate;
  708. TPSLookupDuration = class;
  709. TPSLookupDurationArray = Array of TPSLookupDuration;
  710. TPSLookupNumber = class;
  711. TPSLookupNumberArray = Array of TPSLookupNumber;
  712. TPSLookupText = class;
  713. TPSLookupTextArray = Array of TPSLookupText;
  714. TPSPlanAssignment = class;
  715. TPSPlanAssignmentArray = Array of TPSPlanAssignment;
  716. TPSPlanAssignmentInterval = class;
  717. TPSPlanAssignmentIntervalArray = Array of TPSPlanAssignmentInterval;
  718. TPSProjectServerData = class;
  719. TPSProjectServerDataArray = Array of TPSProjectServerData;
  720. TPSProjectServer = class;
  721. TPSProjectServerArray = Array of TPSProjectServer;
  722. TPSTimeSheetPeriod = class;
  723. TPSTimeSheetPeriodArray = Array of TPSTimeSheetPeriod;
  724. TPSTimeSheet = class;
  725. TPSTimeSheetArray = Array of TPSTimeSheet;
  726. TPSTimeSheetLine = class;
  727. TPSTimeSheetLineArray = Array of TPSTimeSheetLine;
  728. TPSTimeSheetWork = class;
  729. TPSTimeSheetWorkArray = Array of TPSTimeSheetWork;
  730. TPSWorkflowActivities = class;
  731. TPSWorkflowActivitiesArray = Array of TPSWorkflowActivities;
  732. TPSWorkflowDesigner = class;
  733. TPSWorkflowDesignerArray = Array of TPSWorkflowDesigner;
  734. TPSWorkflowDesignerField = class;
  735. TPSWorkflowDesignerFieldArray = Array of TPSWorkflowDesignerField;
  736. TPSResourceCalendarException = class;
  737. TPSResourceCalendarExceptionArray = Array of TPSResourceCalendarException;
  738. TPSResourcePlan = class;
  739. TPSResourcePlanArray = Array of TPSResourcePlan;
  740. TPSServiceStatus = class;
  741. TPSServiceStatusArray = Array of TPSServiceStatus;
  742. TPSTaskServiceOdataEndpoint = class;
  743. TPSTaskServiceOdataEndpointArray = Array of TPSTaskServiceOdataEndpoint;
  744. TPSTimePhase = class;
  745. TPSTimePhaseArray = Array of TPSTimePhase;
  746. TSP_PublishingPersonMagazineData = class;
  747. TSP_PublishingPersonMagazineDataArray = Array of TSP_PublishingPersonMagazineData;
  748. TSP_PublishingPersonMagazinePeopleBasicInfo = class;
  749. TSP_PublishingPersonMagazinePeopleBasicInfoArray = Array of TSP_PublishingPersonMagazinePeopleBasicInfo;
  750. TSP_PublishingPersonMagazinePeopleModel = class;
  751. TSP_PublishingPersonMagazinePeopleModelArray = Array of TSP_PublishingPersonMagazinePeopleModel;
  752. TSP_PublishingPersonMagazineUserProfileDirectsData = class;
  753. TSP_PublishingPersonMagazineUserProfileDirectsDataArray = Array of TSP_PublishingPersonMagazineUserProfileDirectsData;
  754. TSP_PublishingPersonMagazineUserProfile = class;
  755. TSP_PublishingPersonMagazineUserProfileArray = Array of TSP_PublishingPersonMagazineUserProfile;
  756. TSP_PublishingPersonMagazineUserProfileData = class;
  757. TSP_PublishingPersonMagazineUserProfileDataArray = Array of TSP_PublishingPersonMagazineUserProfileData;
  758. TSP_PublishingPublishSiteInformation = class;
  759. TSP_PublishingPublishSiteInformationArray = Array of TSP_PublishingPublishSiteInformation;
  760. TSP_PublishingVideoItem = class;
  761. TSP_PublishingVideoItemArray = Array of TSP_PublishingVideoItem;
  762. TSP_PublishingPersonMagazine = class;
  763. TSP_PublishingPersonMagazineArray = Array of TSP_PublishingPersonMagazine;
  764. TSP_PublishingPointPublishingDocProps = class;
  765. TSP_PublishingPointPublishingDocPropsArray = Array of TSP_PublishingPointPublishingDocProps;
  766. TSP_PublishingPointPublishingMagazineProps = class;
  767. TSP_PublishingPointPublishingMagazinePropsArray = Array of TSP_PublishingPointPublishingMagazineProps;
  768. TSP_PublishingPointPublishingPost = class;
  769. TSP_PublishingPointPublishingPostArray = Array of TSP_PublishingPointPublishingPost;
  770. TSP_PublishingPointPublishingPostServiceManager = class;
  771. TSP_PublishingPointPublishingPostServiceManagerArray = Array of TSP_PublishingPointPublishingPostServiceManager;
  772. TSP_PublishingPointPublishingUser = class;
  773. TSP_PublishingPointPublishingUserArray = Array of TSP_PublishingPointPublishingUser;
  774. TSP_PublishingPointPublishingSiteManager = class;
  775. TSP_PublishingPointPublishingSiteManagerArray = Array of TSP_PublishingPointPublishingSiteManager;
  776. TSP_PublishingPointPublishingSiteStatus = class;
  777. TSP_PublishingPointPublishingSiteStatusArray = Array of TSP_PublishingPointPublishingSiteStatus;
  778. TSP_PublishingSpotlightChannel = class;
  779. TSP_PublishingSpotlightChannelArray = Array of TSP_PublishingSpotlightChannel;
  780. TSP_PublishingVideoChannel = class;
  781. TSP_PublishingVideoChannelArray = Array of TSP_PublishingVideoChannel;
  782. TSP_PublishingSearch = class;
  783. TSP_PublishingSearchArray = Array of TSP_PublishingSearch;
  784. TSP_PublishingSpotlightVideo = class;
  785. TSP_PublishingSpotlightVideoArray = Array of TSP_PublishingSpotlightVideo;
  786. TSP_PublishingVideoPermissionGroup = class;
  787. TSP_PublishingVideoPermissionGroupArray = Array of TSP_PublishingVideoPermissionGroup;
  788. TSP_PublishingVideoServiceDiscoverer = class;
  789. TSP_PublishingVideoServiceDiscovererArray = Array of TSP_PublishingVideoServiceDiscoverer;
  790. TSP_PublishingVideoServiceManager = class;
  791. TSP_PublishingVideoServiceManagerArray = Array of TSP_PublishingVideoServiceManager;
  792. TMicrosoft_SharePoint_Client_Search_QueryPersonalResultSuggestion = class;
  793. TMicrosoft_SharePoint_Client_Search_QueryPersonalResultSuggestionArray = Array of TMicrosoft_SharePoint_Client_Search_QueryPersonalResultSuggestion;
  794. TMicrosoft_SharePoint_Client_Search_QueryQueryAutoCompletionMatch = class;
  795. TMicrosoft_SharePoint_Client_Search_QueryQueryAutoCompletionMatchArray = Array of TMicrosoft_SharePoint_Client_Search_QueryQueryAutoCompletionMatch;
  796. TMicrosoft_SharePoint_Client_Search_QueryQueryAutoCompletionResults = class;
  797. TMicrosoft_SharePoint_Client_Search_QueryQueryAutoCompletionResultsArray = Array of TMicrosoft_SharePoint_Client_Search_QueryQueryAutoCompletionResults;
  798. TMicrosoft_SharePoint_Client_Search_QueryQueryAutoCompletion = class;
  799. TMicrosoft_SharePoint_Client_Search_QueryQueryAutoCompletionArray = Array of TMicrosoft_SharePoint_Client_Search_QueryQueryAutoCompletion;
  800. TMicrosoft_SharePoint_Client_Search_QueryQueryPropertyValue = class;
  801. TMicrosoft_SharePoint_Client_Search_QueryQueryPropertyValueArray = Array of TMicrosoft_SharePoint_Client_Search_QueryQueryPropertyValue;
  802. TMicrosoft_SharePoint_Client_Search_QueryQuerySuggestionQuery = class;
  803. TMicrosoft_SharePoint_Client_Search_QueryQuerySuggestionQueryArray = Array of TMicrosoft_SharePoint_Client_Search_QueryQuerySuggestionQuery;
  804. TMicrosoft_SharePoint_Client_Search_QueryQuerySuggestionRange = class;
  805. TMicrosoft_SharePoint_Client_Search_QueryQuerySuggestionRangeArray = Array of TMicrosoft_SharePoint_Client_Search_QueryQuerySuggestionRange;
  806. TMicrosoft_SharePoint_Client_Search_QueryQuerySuggestionResults = class;
  807. TMicrosoft_SharePoint_Client_Search_QueryQuerySuggestionResultsArray = Array of TMicrosoft_SharePoint_Client_Search_QueryQuerySuggestionResults;
  808. TMicrosoft_SharePoint_Client_Search_QueryReorderingRule = class;
  809. TMicrosoft_SharePoint_Client_Search_QueryReorderingRuleArray = Array of TMicrosoft_SharePoint_Client_Search_QueryReorderingRule;
  810. TMicrosoft_SharePoint_Client_Search_QuerySort = class;
  811. TMicrosoft_SharePoint_Client_Search_QuerySortArray = Array of TMicrosoft_SharePoint_Client_Search_QuerySort;
  812. TMicrosoft_SharePoint_Client_Search_QueryStringCollection = class;
  813. TMicrosoft_SharePoint_Client_Search_QueryStringCollectionArray = Array of TMicrosoft_SharePoint_Client_Search_QueryStringCollection;
  814. TMicrosoft_SharePoint_Client_Search_QueryQueryPersonalizationData = class;
  815. TMicrosoft_SharePoint_Client_Search_QueryQueryPersonalizationDataArray = Array of TMicrosoft_SharePoint_Client_Search_QueryQueryPersonalizationData;
  816. TMicrosoft_SharePoint_Client_Search_QueryRankingLabeling = class;
  817. TMicrosoft_SharePoint_Client_Search_QueryRankingLabelingArray = Array of TMicrosoft_SharePoint_Client_Search_QueryRankingLabeling;
  818. TMicrosoft_SharePoint_Client_Search_QueryReorderingRuleCollection = class;
  819. TMicrosoft_SharePoint_Client_Search_QueryReorderingRuleCollectionArray = Array of TMicrosoft_SharePoint_Client_Search_QueryReorderingRuleCollection;
  820. TMicrosoft_SharePoint_Client_Search_QuerySortCollection = class;
  821. TMicrosoft_SharePoint_Client_Search_QuerySortCollectionArray = Array of TMicrosoft_SharePoint_Client_Search_QuerySortCollection;
  822. TMicrosoft_Office_Server_Search_RESTCustomResult = class;
  823. TMicrosoft_Office_Server_Search_RESTCustomResultArray = Array of TMicrosoft_Office_Server_Search_RESTCustomResult;
  824. TMicrosoft_Office_Server_Search_RESTQueryProperty = class;
  825. TMicrosoft_Office_Server_Search_RESTQueryPropertyArray = Array of TMicrosoft_Office_Server_Search_RESTQueryProperty;
  826. TMicrosoft_Office_Server_Search_RESTQueryResult = class;
  827. TMicrosoft_Office_Server_Search_RESTQueryResultArray = Array of TMicrosoft_Office_Server_Search_RESTQueryResult;
  828. TMicrosoft_Office_Server_Search_RESTRefinementResults = class;
  829. TMicrosoft_Office_Server_Search_RESTRefinementResultsArray = Array of TMicrosoft_Office_Server_Search_RESTRefinementResults;
  830. TMicrosoft_Office_Server_Search_RESTRefiner = class;
  831. TMicrosoft_Office_Server_Search_RESTRefinerArray = Array of TMicrosoft_Office_Server_Search_RESTRefiner;
  832. TMicrosoft_Office_Server_Search_RESTRefinerEntry = class;
  833. TMicrosoft_Office_Server_Search_RESTRefinerEntryArray = Array of TMicrosoft_Office_Server_Search_RESTRefinerEntry;
  834. TMicrosoft_Office_Server_Search_RESTRelevantResults = class;
  835. TMicrosoft_Office_Server_Search_RESTRelevantResultsArray = Array of TMicrosoft_Office_Server_Search_RESTRelevantResults;
  836. TMicrosoft_Office_Server_Search_RESTSpecialTermResults = class;
  837. TMicrosoft_Office_Server_Search_RESTSpecialTermResultsArray = Array of TMicrosoft_Office_Server_Search_RESTSpecialTermResults;
  838. TMicrosoft_Office_Server_Search_RESTSpecialTermResult = class;
  839. TMicrosoft_Office_Server_Search_RESTSpecialTermResultArray = Array of TMicrosoft_Office_Server_Search_RESTSpecialTermResult;
  840. TMicrosoft_Office_Server_Search_RESTSearchRequest = class;
  841. TMicrosoft_Office_Server_Search_RESTSearchRequestArray = Array of TMicrosoft_Office_Server_Search_RESTSearchRequest;
  842. TMicrosoft_Office_Server_Search_RESTSearchResult = class;
  843. TMicrosoft_Office_Server_Search_RESTSearchResultArray = Array of TMicrosoft_Office_Server_Search_RESTSearchResult;
  844. TMicrosoft_Office_Server_Search_RESTSearchService = class;
  845. TMicrosoft_Office_Server_Search_RESTSearchServiceArray = Array of TMicrosoft_Office_Server_Search_RESTSearchService;
  846. TMicrosoft_SharePoint_Client_Search_AnalyticsAnalyticsAction = class;
  847. TMicrosoft_SharePoint_Client_Search_AnalyticsAnalyticsActionArray = Array of TMicrosoft_SharePoint_Client_Search_AnalyticsAnalyticsAction;
  848. TMicrosoft_SharePoint_Client_Search_AnalyticsAnalyticsActor = class;
  849. TMicrosoft_SharePoint_Client_Search_AnalyticsAnalyticsActorArray = Array of TMicrosoft_SharePoint_Client_Search_AnalyticsAnalyticsActor;
  850. TMicrosoft_SharePoint_Client_Search_AnalyticsAnalyticsItem = class;
  851. TMicrosoft_SharePoint_Client_Search_AnalyticsAnalyticsItemArray = Array of TMicrosoft_SharePoint_Client_Search_AnalyticsAnalyticsItem;
  852. TMicrosoft_SharePoint_Client_Search_AnalyticsAnalyticsSignal = class;
  853. TMicrosoft_SharePoint_Client_Search_AnalyticsAnalyticsSignalArray = Array of TMicrosoft_SharePoint_Client_Search_AnalyticsAnalyticsSignal;
  854. TMicrosoft_SharePoint_Client_Search_AnalyticsSignalStore = class;
  855. TMicrosoft_SharePoint_Client_Search_AnalyticsSignalStoreArray = Array of TMicrosoft_SharePoint_Client_Search_AnalyticsSignalStore;
  856. TMicrosoft_SharePoint_YammerWacToken = class;
  857. TMicrosoft_SharePoint_YammerWacTokenArray = Array of TMicrosoft_SharePoint_YammerWacToken;
  858. TMicrosoft_SharePoint_YammerWacApi = class;
  859. TMicrosoft_SharePoint_YammerWacApiArray = Array of TMicrosoft_SharePoint_YammerWacApi;
  860. TMicrosoft_SharePoint_PortalCollaborationMailboxResponse = class;
  861. TMicrosoft_SharePoint_PortalCollaborationMailboxResponseArray = Array of TMicrosoft_SharePoint_PortalCollaborationMailboxResponse;
  862. TMicrosoft_SharePoint_PortalCollaborationMailbox = class;
  863. TMicrosoft_SharePoint_PortalCollaborationMailboxArray = Array of TMicrosoft_SharePoint_PortalCollaborationMailbox;
  864. TMicrosoft_SharePoint_PortalCommunityModeration = class;
  865. TMicrosoft_SharePoint_PortalCommunityModerationArray = Array of TMicrosoft_SharePoint_PortalCommunityModeration;
  866. TMicrosoft_SharePoint_PortalMySiteRecommendations = class;
  867. TMicrosoft_SharePoint_PortalMySiteRecommendationsArray = Array of TMicrosoft_SharePoint_PortalMySiteRecommendations;
  868. TMicrosoft_SharePoint_Portal_UserProfilesSharedWithMeDocumentUser = class;
  869. TMicrosoft_SharePoint_Portal_UserProfilesSharedWithMeDocumentUserArray = Array of TMicrosoft_SharePoint_Portal_UserProfilesSharedWithMeDocumentUser;
  870. TMicrosoft_SharePoint_Portal_UserProfilesMySiteLinks = class;
  871. TMicrosoft_SharePoint_Portal_UserProfilesMySiteLinksArray = Array of TMicrosoft_SharePoint_Portal_UserProfilesMySiteLinks;
  872. TMicrosoft_SharePoint_Portal_UserProfilesMySiteDismissStatusText = class;
  873. TMicrosoft_SharePoint_Portal_UserProfilesMySiteDismissStatusTextArray = Array of TMicrosoft_SharePoint_Portal_UserProfilesMySiteDismissStatusText;
  874. TMicrosoft_SharePoint_Portal_UserProfilesMySiteDocumentMoveUtility = class;
  875. TMicrosoft_SharePoint_Portal_UserProfilesMySiteDocumentMoveUtilityArray = Array of TMicrosoft_SharePoint_Portal_UserProfilesMySiteDocumentMoveUtility;
  876. TMicrosoft_SharePoint_Portal_UserProfilesSharedWithMeDocument = class;
  877. TMicrosoft_SharePoint_Portal_UserProfilesSharedWithMeDocumentArray = Array of TMicrosoft_SharePoint_Portal_UserProfilesSharedWithMeDocument;
  878. TMicrosoft_SharePoint_Portal_UserProfilesDocumentsSharedWithMe = class;
  879. TMicrosoft_SharePoint_Portal_UserProfilesDocumentsSharedWithMeArray = Array of TMicrosoft_SharePoint_Portal_UserProfilesDocumentsSharedWithMe;
  880. TMicrosoft_SharePoint_Portal_UserProfilesDocumentsSharedWithGroup = class;
  881. TMicrosoft_SharePoint_Portal_UserProfilesDocumentsSharedWithGroupArray = Array of TMicrosoft_SharePoint_Portal_UserProfilesDocumentsSharedWithGroup;
  882. TMicrosoft_SharePoint_Portal_UserProfilesDocumentsSharedWithPerson = class;
  883. TMicrosoft_SharePoint_Portal_UserProfilesDocumentsSharedWithPersonArray = Array of TMicrosoft_SharePoint_Portal_UserProfilesDocumentsSharedWithPerson;
  884. TMicrosoft_SharePoint_Portal_UserProfilesPromotedSites = class;
  885. TMicrosoft_SharePoint_Portal_UserProfilesPromotedSitesArray = Array of TMicrosoft_SharePoint_Portal_UserProfilesPromotedSites;
  886. TMicrosoft_SharePoint_Portal_ProjectMyRecsCacheBlob = class;
  887. TMicrosoft_SharePoint_Portal_ProjectMyRecsCacheBlobArray = Array of TMicrosoft_SharePoint_Portal_ProjectMyRecsCacheBlob;
  888. TMicrosoft_SharePoint_Portal_ProjectMyRecsQueryInfo = class;
  889. TMicrosoft_SharePoint_Portal_ProjectMyRecsQueryInfoArray = Array of TMicrosoft_SharePoint_Portal_ProjectMyRecsQueryInfo;
  890. TSP_SiteHealthSiteHealthResult = class;
  891. TSP_SiteHealthSiteHealthResultArray = Array of TSP_SiteHealthSiteHealthResult;
  892. TSP_SiteHealthSiteHealthSummary = class;
  893. TSP_SiteHealthSiteHealthSummaryArray = Array of TSP_SiteHealthSiteHealthSummary;
  894. TMicrosoft_SharePoint_AdministrationUsageEntry = class;
  895. TMicrosoft_SharePoint_AdministrationUsageEntryArray = Array of TMicrosoft_SharePoint_AdministrationUsageEntry;
  896. TMicrosoft_SharePoint_AdministrationSPAppStateQueryJobDefinition = class;
  897. TMicrosoft_SharePoint_AdministrationSPAppStateQueryJobDefinitionArray = Array of TMicrosoft_SharePoint_AdministrationSPAppStateQueryJobDefinition;
  898. TMicrosoft_SharePoint_AdministrationSPFarm = class;
  899. TMicrosoft_SharePoint_AdministrationSPFarmArray = Array of TMicrosoft_SharePoint_AdministrationSPFarm;
  900. TMicrosoft_SharePoint_AdministrationFeatureDefinition = class;
  901. TMicrosoft_SharePoint_AdministrationFeatureDefinitionArray = Array of TMicrosoft_SharePoint_AdministrationFeatureDefinition;
  902. TMicrosoft_SharePoint_AdministrationSPTenantAppInstanceData = class;
  903. TMicrosoft_SharePoint_AdministrationSPTenantAppInstanceDataArray = Array of TMicrosoft_SharePoint_AdministrationSPTenantAppInstanceData;
  904. TMicrosoft_SharePoint_AdministrationSPWebApplication = class;
  905. TMicrosoft_SharePoint_AdministrationSPWebApplicationArray = Array of TMicrosoft_SharePoint_AdministrationSPWebApplication;
  906. TMicrosoft_SharePoint_AdministrationSPWebService = class;
  907. TMicrosoft_SharePoint_AdministrationSPWebServiceArray = Array of TMicrosoft_SharePoint_AdministrationSPWebService;
  908. TMicrosoft_SharePoint_AdministrationSPAnalyticsUsageService = class;
  909. TMicrosoft_SharePoint_AdministrationSPAnalyticsUsageServiceArray = Array of TMicrosoft_SharePoint_AdministrationSPAnalyticsUsageService;
  910. TSP_UI_ApplicationPagesClientPeoplePickerQueryParameters = class;
  911. TSP_UI_ApplicationPagesClientPeoplePickerQueryParametersArray = Array of TSP_UI_ApplicationPagesClientPeoplePickerQueryParameters;
  912. TSP_UI_ApplicationPagesClientPeoplePickerWebServiceInterface = class;
  913. TSP_UI_ApplicationPagesClientPeoplePickerWebServiceInterfaceArray = Array of TSP_UI_ApplicationPagesClientPeoplePickerWebServiceInterface;
  914. TSP_PageInstrumentationPageImpressionClient = class;
  915. TSP_PageInstrumentationPageImpressionClientArray = Array of TSP_PageInstrumentationPageImpressionClient;
  916. TSP_PageInstrumentationClickManager = class;
  917. TSP_PageInstrumentationClickManagerArray = Array of TSP_PageInstrumentationClickManager;
  918. TSP_UtilitiesEmailProperties = class;
  919. TSP_UtilitiesEmailPropertiesArray = Array of TSP_UtilitiesEmailProperties;
  920. TSP_UtilitiesPrincipalInfo = class;
  921. TSP_UtilitiesPrincipalInfoArray = Array of TSP_UtilitiesPrincipalInfo;
  922. TSP_UtilitiesWikiPageCreationInformation = class;
  923. TSP_UtilitiesWikiPageCreationInformationArray = Array of TSP_UtilitiesWikiPageCreationInformation;
  924. TSP_UtilitiesMarketplaceUtilities = class;
  925. TSP_UtilitiesMarketplaceUtilitiesArray = Array of TSP_UtilitiesMarketplaceUtilities;
  926. TSP_UtilitiesUtility = class;
  927. TSP_UtilitiesUtilityArray = Array of TSP_UtilitiesUtility;
  928. TSP_WebPartsTileData = class;
  929. TSP_WebPartsTileDataArray = Array of TSP_WebPartsTileData;
  930. TSP_WebPartsLimitedWebPartManager = class;
  931. TSP_WebPartsLimitedWebPartManagerArray = Array of TSP_WebPartsLimitedWebPartManager;
  932. TSP_WebPartsWebPartDefinition = class;
  933. TSP_WebPartsWebPartDefinitionArray = Array of TSP_WebPartsWebPartDefinition;
  934. TSP_WebPartsWebPart = class;
  935. TSP_WebPartsWebPartArray = Array of TSP_WebPartsWebPart;
  936. TSP_WorkflowWorkflowAssociationCreationInformation = class;
  937. TSP_WorkflowWorkflowAssociationCreationInformationArray = Array of TSP_WorkflowWorkflowAssociationCreationInformation;
  938. TSP_WorkflowWorkflowAssociation = class;
  939. TSP_WorkflowWorkflowAssociationArray = Array of TSP_WorkflowWorkflowAssociation;
  940. TSP_WorkflowWorkflowTemplate = class;
  941. TSP_WorkflowWorkflowTemplateArray = Array of TSP_WorkflowWorkflowTemplate;
  942. TSP_WorkflowSPWorkflow = class;
  943. TSP_WorkflowSPWorkflowArray = Array of TSP_WorkflowSPWorkflow;
  944. TSP_WorkflowSPWorkflowManager = class;
  945. TSP_WorkflowSPWorkflowManagerArray = Array of TSP_WorkflowSPWorkflowManager;
  946. TSP_WorkflowSPWorkflowTask = class;
  947. TSP_WorkflowSPWorkflowTaskArray = Array of TSP_WorkflowSPWorkflowTask;
  948. TSP_SharingUserRoleAssignment = class;
  949. TSP_SharingUserRoleAssignmentArray = Array of TSP_SharingUserRoleAssignment;
  950. TSP_SharingUserSharingResult = class;
  951. TSP_SharingUserSharingResultArray = Array of TSP_SharingUserSharingResult;
  952. TSP_SharingDocumentSharingManager = class;
  953. TSP_SharingDocumentSharingManagerArray = Array of TSP_SharingDocumentSharingManager;
  954. TSP_SharingWebSharingManager = class;
  955. TSP_SharingWebSharingManagerArray = Array of TSP_SharingWebSharingManager;
  956. TSP_TaxonomyTaxonomyFieldValue = class;
  957. TSP_TaxonomyTaxonomyFieldValueArray = Array of TSP_TaxonomyTaxonomyFieldValue;
  958. TSP_TranslationTranslationItemInfo = class;
  959. TSP_TranslationTranslationItemInfoArray = Array of TSP_TranslationTranslationItemInfo;
  960. TSP_TranslationTranslationJobInfo = class;
  961. TSP_TranslationTranslationJobInfoArray = Array of TSP_TranslationTranslationJobInfo;
  962. TSP_TranslationSyncTranslator = class;
  963. TSP_TranslationSyncTranslatorArray = Array of TSP_TranslationSyncTranslator;
  964. TSP_TranslationTranslationJob = class;
  965. TSP_TranslationTranslationJobArray = Array of TSP_TranslationTranslationJob;
  966. TSP_TranslationTranslationJobStatus = class;
  967. TSP_TranslationTranslationJobStatusArray = Array of TSP_TranslationTranslationJobStatus;
  968. TSP_TranslationVariationsTranslationTimerJob = class;
  969. TSP_TranslationVariationsTranslationTimerJobArray = Array of TSP_TranslationVariationsTranslationTimerJob;
  970. TMicrosoft_Online_SharePoint_TenantAdministrationSPOTenantWebTemplate = class;
  971. TMicrosoft_Online_SharePoint_TenantAdministrationSPOTenantWebTemplateArray = Array of TMicrosoft_Online_SharePoint_TenantAdministrationSPOTenantWebTemplate;
  972. TMicrosoft_Online_SharePoint_TenantAdministrationSPOTenantWebTemplateCollection = class;
  973. TMicrosoft_Online_SharePoint_TenantAdministrationSPOTenantWebTemplateCollectionArray = Array of TMicrosoft_Online_SharePoint_TenantAdministrationSPOTenantWebTemplateCollection;
  974. TMicrosoft_Online_AppData_AccessAccessApp = class;
  975. TMicrosoft_Online_AppData_AccessAccessAppArray = Array of TMicrosoft_Online_AppData_AccessAccessApp;
  976. TSP_WorkManagement_OMBaseSession = class;
  977. TSP_WorkManagement_OMBaseSessionArray = Array of TSP_WorkManagement_OMBaseSession;
  978. TSP_WorkManagement_OMBooleanCriterion = class;
  979. TSP_WorkManagement_OMBooleanCriterionArray = Array of TSP_WorkManagement_OMBooleanCriterion;
  980. TSP_WorkManagement_OMCalloutInfo = class;
  981. TSP_WorkManagement_OMCalloutInfoArray = Array of TSP_WorkManagement_OMCalloutInfo;
  982. TSP_WorkManagement_OMCreateRefreshJobResult = class;
  983. TSP_WorkManagement_OMCreateRefreshJobResultArray = Array of TSP_WorkManagement_OMCreateRefreshJobResult;
  984. TSP_WorkManagement_OMCustomAttributeFilter = class;
  985. TSP_WorkManagement_OMCustomAttributeFilterArray = Array of TSP_WorkManagement_OMCustomAttributeFilter;
  986. TSP_WorkManagement_OMDashboardScriptExtensionInfo = class;
  987. TSP_WorkManagement_OMDashboardScriptExtensionInfoArray = Array of TSP_WorkManagement_OMDashboardScriptExtensionInfo;
  988. TSP_WorkManagement_OMDateRangeCriterion = class;
  989. TSP_WorkManagement_OMDateRangeCriterionArray = Array of TSP_WorkManagement_OMDateRangeCriterion;
  990. TSP_WorkManagement_OMExchangeUserSyncState = class;
  991. TSP_WorkManagement_OMExchangeUserSyncStateArray = Array of TSP_WorkManagement_OMExchangeUserSyncState;
  992. TSP_WorkManagement_OMLocation = class;
  993. TSP_WorkManagement_OMLocationArray = Array of TSP_WorkManagement_OMLocation;
  994. TSP_WorkManagement_OMLocationDisplaySetting = class;
  995. TSP_WorkManagement_OMLocationDisplaySettingArray = Array of TSP_WorkManagement_OMLocationDisplaySetting;
  996. TSP_WorkManagement_OMLocationFilter = class;
  997. TSP_WorkManagement_OMLocationFilterArray = Array of TSP_WorkManagement_OMLocationFilter;
  998. TSP_WorkManagement_OMTask = class;
  999. TSP_WorkManagement_OMTaskArray = Array of TSP_WorkManagement_OMTask;
  1000. TSP_WorkManagement_OMLocationOrientedSortableSession = class;
  1001. TSP_WorkManagement_OMLocationOrientedSortableSessionArray = Array of TSP_WorkManagement_OMLocationOrientedSortableSession;
  1002. TSP_WorkManagement_OMLocationOrientedUserOrderedSession = class;
  1003. TSP_WorkManagement_OMLocationOrientedUserOrderedSessionArray = Array of TSP_WorkManagement_OMLocationOrientedUserOrderedSession;
  1004. TSP_WorkManagement_OMLocationUpdateResult = class;
  1005. TSP_WorkManagement_OMLocationUpdateResultArray = Array of TSP_WorkManagement_OMLocationUpdateResult;
  1006. TSP_WorkManagement_OMNameCriterion = class;
  1007. TSP_WorkManagement_OMNameCriterionArray = Array of TSP_WorkManagement_OMNameCriterion;
  1008. TSP_WorkManagement_OMNonTaskDataReadResult = class;
  1009. TSP_WorkManagement_OMNonTaskDataReadResultArray = Array of TSP_WorkManagement_OMNonTaskDataReadResult;
  1010. TSP_WorkManagement_OMPersistedProperties = class;
  1011. TSP_WorkManagement_OMPersistedPropertiesArray = Array of TSP_WorkManagement_OMPersistedProperties;
  1012. TSP_WorkManagement_OMRefreshHistory = class;
  1013. TSP_WorkManagement_OMRefreshHistoryArray = Array of TSP_WorkManagement_OMRefreshHistory;
  1014. TSP_WorkManagement_OMRefreshResult = class;
  1015. TSP_WorkManagement_OMRefreshResultArray = Array of TSP_WorkManagement_OMRefreshResult;
  1016. TSP_WorkManagement_OMProviderRefreshStatus = class;
  1017. TSP_WorkManagement_OMProviderRefreshStatusArray = Array of TSP_WorkManagement_OMProviderRefreshStatus;
  1018. TSP_WorkManagement_OMUserSettings = class;
  1019. TSP_WorkManagement_OMUserSettingsArray = Array of TSP_WorkManagement_OMUserSettings;
  1020. TSP_WorkManagement_OMOrderInfo = class;
  1021. TSP_WorkManagement_OMOrderInfoArray = Array of TSP_WorkManagement_OMOrderInfo;
  1022. TSP_WorkManagement_OMProviderErrorInfo = class;
  1023. TSP_WorkManagement_OMProviderErrorInfoArray = Array of TSP_WorkManagement_OMProviderErrorInfo;
  1024. TSP_WorkManagement_OMRefreshHealthInfo = class;
  1025. TSP_WorkManagement_OMRefreshHealthInfoArray = Array of TSP_WorkManagement_OMRefreshHealthInfo;
  1026. TSP_WorkManagement_OMSortableSessionManager = class;
  1027. TSP_WorkManagement_OMSortableSessionManagerArray = Array of TSP_WorkManagement_OMSortableSessionManager;
  1028. TSP_WorkManagement_OMSortableSession = class;
  1029. TSP_WorkManagement_OMSortableSessionArray = Array of TSP_WorkManagement_OMSortableSession;
  1030. TSP_WorkManagement_OMSortableTaskQuery = class;
  1031. TSP_WorkManagement_OMSortableTaskQueryArray = Array of TSP_WorkManagement_OMSortableTaskQuery;
  1032. TSP_WorkManagement_OMTaskQuery = class;
  1033. TSP_WorkManagement_OMTaskQueryArray = Array of TSP_WorkManagement_OMTaskQuery;
  1034. TSP_WorkManagement_OMTaskFilter = class;
  1035. TSP_WorkManagement_OMTaskFilterArray = Array of TSP_WorkManagement_OMTaskFilter;
  1036. TSP_WorkManagement_OMTaskQueryByLocationResult = class;
  1037. TSP_WorkManagement_OMTaskQueryByLocationResultArray = Array of TSP_WorkManagement_OMTaskQueryByLocationResult;
  1038. TSP_WorkManagement_OMTaskQueryResult = class;
  1039. TSP_WorkManagement_OMTaskQueryResultArray = Array of TSP_WorkManagement_OMTaskQueryResult;
  1040. TSP_WorkManagement_OMTaskRefreshResult = class;
  1041. TSP_WorkManagement_OMTaskRefreshResultArray = Array of TSP_WorkManagement_OMTaskRefreshResult;
  1042. TSP_WorkManagement_OMTaskWriteResult = class;
  1043. TSP_WorkManagement_OMTaskWriteResultArray = Array of TSP_WorkManagement_OMTaskWriteResult;
  1044. TSP_WorkManagement_OMUserOrderedSessionManager = class;
  1045. TSP_WorkManagement_OMUserOrderedSessionManagerArray = Array of TSP_WorkManagement_OMUserOrderedSessionManager;
  1046. TSP_WorkManagement_OMUserOrderedSession = class;
  1047. TSP_WorkManagement_OMUserOrderedSessionArray = Array of TSP_WorkManagement_OMUserOrderedSession;
  1048. TSP_WorkManagement_OMUserSettingsManager = class;
  1049. TSP_WorkManagement_OMUserSettingsManagerArray = Array of TSP_WorkManagement_OMUserSettingsManager;
  1050. TSP_WorkManagement_OMViewSelectionInfo = class;
  1051. TSP_WorkManagement_OMViewSelectionInfoArray = Array of TSP_WorkManagement_OMViewSelectionInfo;
  1052. TMicrosoft_AppServicesApp = class;
  1053. TMicrosoft_AppServicesAppArray = Array of TMicrosoft_AppServicesApp;
  1054. TMicrosoft_AppServicesAppStore = class;
  1055. TMicrosoft_AppServicesAppStoreArray = Array of TMicrosoft_AppServicesAppStore;
  1056. TSP_CompliancePolicyPolicyEvaluationInfo = class;
  1057. TSP_CompliancePolicyPolicyEvaluationInfoArray = Array of TSP_CompliancePolicyPolicyEvaluationInfo;
  1058. TSP_CompliancePolicySPPolicyStoreProxy = class;
  1059. TSP_CompliancePolicySPPolicyStoreProxyArray = Array of TSP_CompliancePolicySPPolicyStoreProxy;
  1060. TSPO_IdentitySPOIdentityHelper = class;
  1061. TSPO_IdentitySPOIdentityHelperArray = Array of TSPO_IdentitySPOIdentityHelper;
  1062. TOBA_Server_ServerWrapperDiagnostics = class;
  1063. TOBA_Server_ServerWrapperDiagnosticsArray = Array of TOBA_Server_ServerWrapperDiagnostics;
  1064. TOBA_Server_ServerWrapperReporting = class;
  1065. TOBA_Server_ServerWrapperReportingArray = Array of TOBA_Server_ServerWrapperReporting;
  1066. TOBA_Server_ServerWrapperTaskflow = class;
  1067. TOBA_Server_ServerWrapperTaskflowArray = Array of TOBA_Server_ServerWrapperTaskflow;
  1068. TSP_WorkflowServicesWorkflowDefinition = class;
  1069. TSP_WorkflowServicesWorkflowDefinitionArray = Array of TSP_WorkflowServicesWorkflowDefinition;
  1070. TSP_WorkflowServicesWorkflowDeploymentService = class;
  1071. TSP_WorkflowServicesWorkflowDeploymentServiceArray = Array of TSP_WorkflowServicesWorkflowDeploymentService;
  1072. TSP_WorkflowServicesWorkflowInstance = class;
  1073. TSP_WorkflowServicesWorkflowInstanceArray = Array of TSP_WorkflowServicesWorkflowInstance;
  1074. TSP_WorkflowServicesWorkflowInstanceService = class;
  1075. TSP_WorkflowServicesWorkflowInstanceServiceArray = Array of TSP_WorkflowServicesWorkflowInstanceService;
  1076. TSP_WorkflowServicesInteropService = class;
  1077. TSP_WorkflowServicesInteropServiceArray = Array of TSP_WorkflowServicesInteropService;
  1078. TSP_WorkflowServicesWorkflowServicesManager = class;
  1079. TSP_WorkflowServicesWorkflowServicesManagerArray = Array of TSP_WorkflowServicesWorkflowServicesManager;
  1080. TSP_WorkflowServicesWorkflowSubscription = class;
  1081. TSP_WorkflowServicesWorkflowSubscriptionArray = Array of TSP_WorkflowServicesWorkflowSubscription;
  1082. TSP_WorkflowServicesWorkflowSubscriptionService = class;
  1083. TSP_WorkflowServicesWorkflowSubscriptionServiceArray = Array of TSP_WorkflowServicesWorkflowSubscriptionService;
  1084. TSP_WorkflowServicesWorkflowMessagingService = class;
  1085. TSP_WorkflowServicesWorkflowMessagingServiceArray = Array of TSP_WorkflowServicesWorkflowMessagingService;
  1086. TMicrosoft_Office_Server_ReputationModelReputation = class;
  1087. TMicrosoft_Office_Server_ReputationModelReputationArray = Array of TMicrosoft_Office_Server_ReputationModelReputation;
  1088. TMicrosoft_SharePoint_Client_Search_AdministrationDocumentCrawlLog = class;
  1089. TMicrosoft_SharePoint_Client_Search_AdministrationDocumentCrawlLogArray = Array of TMicrosoft_SharePoint_Client_Search_AdministrationDocumentCrawlLog;
  1090. TMicrosoft_BusinessData_Infrastructure_SecureStoreConnectionSettings = class;
  1091. TMicrosoft_BusinessData_Infrastructure_SecureStoreConnectionSettingsArray = Array of TMicrosoft_BusinessData_Infrastructure_SecureStoreConnectionSettings;
  1092. TMicrosoft_Office_SecureStoreService_ServerTargetApplicationField = class;
  1093. TMicrosoft_Office_SecureStoreService_ServerTargetApplicationFieldArray = Array of TMicrosoft_Office_SecureStoreService_ServerTargetApplicationField;
  1094. TMicrosoft_Office_SecureStoreService_ServerTargetApplication = class;
  1095. TMicrosoft_Office_SecureStoreService_ServerTargetApplicationArray = Array of TMicrosoft_Office_SecureStoreService_ServerTargetApplication;
  1096. TMicrosoft_SharePoint_AppManagementSPAppPrincipalInfo = class;
  1097. TMicrosoft_SharePoint_AppManagementSPAppPrincipalInfoArray = Array of TMicrosoft_SharePoint_AppManagementSPAppPrincipalInfo;
  1098. TMicrosoft_SharePoint_Flighting_RuntimeSPFlight = class;
  1099. TMicrosoft_SharePoint_Flighting_RuntimeSPFlightArray = Array of TMicrosoft_SharePoint_Flighting_RuntimeSPFlight;
  1100. TMicrosoft_SharePoint_Marketplace_CorporateCuratedGallerySPCorporateCuratedGallerySettingsBase = class;
  1101. TMicrosoft_SharePoint_Marketplace_CorporateCuratedGallerySPCorporateCuratedGallerySettingsBaseArray = Array of TMicrosoft_SharePoint_Marketplace_CorporateCuratedGallerySPCorporateCuratedGallerySettingsBase;
  1102. TMicrosoft_SharePoint_Marketplace_CorporateCuratedGallerySPCorporateCuratedGallerySettingsFactory = class;
  1103. TMicrosoft_SharePoint_Marketplace_CorporateCuratedGallerySPCorporateCuratedGallerySettingsFactoryArray = Array of TMicrosoft_SharePoint_Marketplace_CorporateCuratedGallerySPCorporateCuratedGallerySettingsFactory;
  1104. TMicrosoft_SharePoint_MarketplaceSPMarketplaceSettings = class;
  1105. TMicrosoft_SharePoint_MarketplaceSPMarketplaceSettingsArray = Array of TMicrosoft_SharePoint_MarketplaceSPMarketplaceSettings;
  1106. TMicrosoft_SharePoint_Portal_WebControlsRecentDocument = class;
  1107. TMicrosoft_SharePoint_Portal_WebControlsRecentDocumentArray = Array of TMicrosoft_SharePoint_Portal_WebControlsRecentDocument;
  1108. TSP_BusinessData_RuntimeEntityIdentity = class;
  1109. TSP_BusinessData_RuntimeEntityIdentityArray = Array of TSP_BusinessData_RuntimeEntityIdentity;
  1110. TSP_BusinessData_RuntimeNotificationCallback = class;
  1111. TSP_BusinessData_RuntimeNotificationCallbackArray = Array of TSP_BusinessData_RuntimeNotificationCallback;
  1112. TSP_BusinessData_RuntimeSubscription = class;
  1113. TSP_BusinessData_RuntimeSubscriptionArray = Array of TSP_BusinessData_RuntimeSubscription;
  1114. TSP_BusinessData_RuntimeEntityInstance = class;
  1115. TSP_BusinessData_RuntimeEntityInstanceArray = Array of TSP_BusinessData_RuntimeEntityInstance;
  1116. TSP_BusinessData_RuntimeEntityFieldValueDictionary = class;
  1117. TSP_BusinessData_RuntimeEntityFieldValueDictionaryArray = Array of TSP_BusinessData_RuntimeEntityFieldValueDictionary;
  1118. TSP_BusinessDataEntityField = class;
  1119. TSP_BusinessDataEntityFieldArray = Array of TSP_BusinessDataEntityField;
  1120. TSP_BusinessDataFilter = class;
  1121. TSP_BusinessDataFilterArray = Array of TSP_BusinessDataFilter;
  1122. TSP_BusinessDataEntityIdentifier = class;
  1123. TSP_BusinessDataEntityIdentifierArray = Array of TSP_BusinessDataEntityIdentifier;
  1124. TSP_BusinessDataLobSystemInstance = class;
  1125. TSP_BusinessDataLobSystemInstanceArray = Array of TSP_BusinessDataLobSystemInstance;
  1126. TSP_BusinessDataTypeDescriptor = class;
  1127. TSP_BusinessDataTypeDescriptorArray = Array of TSP_BusinessDataTypeDescriptor;
  1128. TSP_BusinessDataEntity = class;
  1129. TSP_BusinessDataEntityArray = Array of TSP_BusinessDataEntity;
  1130. TSP_BusinessDataLobSystem = class;
  1131. TSP_BusinessDataLobSystemArray = Array of TSP_BusinessDataLobSystem;
  1132. TSP_BusinessDataMethodExecutionResult = class;
  1133. TSP_BusinessDataMethodExecutionResultArray = Array of TSP_BusinessDataMethodExecutionResult;
  1134. TSP_BusinessDataEntityView = class;
  1135. TSP_BusinessDataEntityViewArray = Array of TSP_BusinessDataEntityView;
  1136. TSP_BusinessDataAppBdcCatalog = class;
  1137. TSP_BusinessDataAppBdcCatalogArray = Array of TSP_BusinessDataAppBdcCatalog;
  1138. TSP_AnalyticsAnalyticsUsageEntry = class;
  1139. TSP_AnalyticsAnalyticsUsageEntryArray = Array of TSP_AnalyticsAnalyticsUsageEntry;
  1140. TSP_BusinessData_InfrastructureExternalSubscriptionStore = class;
  1141. TSP_BusinessData_InfrastructureExternalSubscriptionStoreArray = Array of TSP_BusinessData_InfrastructureExternalSubscriptionStore;
  1142. TMicrosoft_SharePoint_Navigation_RESTNavigationServiceRest = class;
  1143. TMicrosoft_SharePoint_Navigation_RESTNavigationServiceRestArray = Array of TMicrosoft_SharePoint_Navigation_RESTNavigationServiceRest;
  1144. TMicrosoft_SharePoint_PackagingAppDetails = class;
  1145. TMicrosoft_SharePoint_PackagingAppDetailsArray = Array of TMicrosoft_SharePoint_PackagingAppDetails;
  1146. TMicrosoft_SharePoint_PackagingAppIconInfo = class;
  1147. TMicrosoft_SharePoint_PackagingAppIconInfoArray = Array of TMicrosoft_SharePoint_PackagingAppIconInfo;
  1148. TSP_OAuthNativeClient = class;
  1149. TSP_OAuthNativeClientArray = Array of TSP_OAuthNativeClient;
  1150. TMicrosoft_SharePoint_WebControlsModuleLink = class;
  1151. TMicrosoft_SharePoint_WebControlsModuleLinkArray = Array of TMicrosoft_SharePoint_WebControlsModuleLink;
  1152. TMicrosoft_SharePoint_WebControlsResourceManifestInformation = class;
  1153. TMicrosoft_SharePoint_WebControlsResourceManifestInformationArray = Array of TMicrosoft_SharePoint_WebControlsResourceManifestInformation;
  1154. TMicrosoft_Online_SharePoint_PointPublishingPointPublishingAdmin = class;
  1155. TMicrosoft_Online_SharePoint_PointPublishingPointPublishingAdminArray = Array of TMicrosoft_Online_SharePoint_PointPublishingPointPublishingAdmin;
  1156. TMicrosoft_Online_SharePoint_TenantAdmin_MiddleTierDDIAdapter = class;
  1157. TMicrosoft_Online_SharePoint_TenantAdmin_MiddleTierDDIAdapterArray = Array of TMicrosoft_Online_SharePoint_TenantAdmin_MiddleTierDDIAdapter;
  1158. TMicrosoft_Online_SharePoint_TenantManagementExternalUser = class;
  1159. TMicrosoft_Online_SharePoint_TenantManagementExternalUserArray = Array of TMicrosoft_Online_SharePoint_TenantManagementExternalUser;
  1160. TMicrosoft_Online_SharePoint_TenantManagementGetExternalUsersResults = class;
  1161. TMicrosoft_Online_SharePoint_TenantManagementGetExternalUsersResultsArray = Array of TMicrosoft_Online_SharePoint_TenantManagementGetExternalUsersResults;
  1162. TMicrosoft_Online_SharePoint_TenantManagementOffice365Tenant = class;
  1163. TMicrosoft_Online_SharePoint_TenantManagementOffice365TenantArray = Array of TMicrosoft_Online_SharePoint_TenantManagementOffice365Tenant;
  1164. TMicrosoft_Online_SharePoint_TenantManagementRemoveExternalUsersResults = class;
  1165. TMicrosoft_Online_SharePoint_TenantManagementRemoveExternalUsersResultsArray = Array of TMicrosoft_Online_SharePoint_TenantManagementRemoveExternalUsersResults;
  1166. TSP_DataOData__x005f_catalogs_x002f_appdataItem = class;
  1167. TSP_DataOData__x005f_catalogs_x002f_appdataItemArray = Array of TSP_DataOData__x005f_catalogs_x002f_appdataItem;
  1168. TSP_DataUserInfoItem = class;
  1169. TSP_DataUserInfoItemArray = Array of TSP_DataUserInfoItem;
  1170. TSP_DataOData__x005f_catalogs_x002f_designItem = class;
  1171. TSP_DataOData__x005f_catalogs_x002f_designItemArray = Array of TSP_DataOData__x005f_catalogs_x002f_designItem;
  1172. TSP_DataContentTypeSyncLogListItem = class;
  1173. TSP_DataContentTypeSyncLogListItemArray = Array of TSP_DataContentTypeSyncLogListItem;
  1174. TSP_DataIWConvertedFormsItem = class;
  1175. TSP_DataIWConvertedFormsItemArray = Array of TSP_DataIWConvertedFormsItem;
  1176. TSP_DataDocumentsItem = class;
  1177. TSP_DataDocumentsItemArray = Array of TSP_DataDocumentsItem;
  1178. TSP_DataFormServerTemplatesItem = class;
  1179. TSP_DataFormServerTemplatesItemArray = Array of TSP_DataFormServerTemplatesItem;
  1180. TSP_DataOData__x005f_catalogs_x002f_ltItem = class;
  1181. TSP_DataOData__x005f_catalogs_x002f_ltItemArray = Array of TSP_DataOData__x005f_catalogs_x002f_ltItem;
  1182. TSP_DataOData__x005f_catalogs_x002f_MaintenanceLogsItem = class;
  1183. TSP_DataOData__x005f_catalogs_x002f_MaintenanceLogsItemArray = Array of TSP_DataOData__x005f_catalogs_x002f_MaintenanceLogsItem;
  1184. TSP_DataOData__x005f_catalogs_x002f_masterpageItem = class;
  1185. TSP_DataOData__x005f_catalogs_x002f_masterpageItemArray = Array of TSP_DataOData__x005f_catalogs_x002f_masterpageItem;
  1186. TSP_DataPublishedFeedListItem = class;
  1187. TSP_DataPublishedFeedListItemArray = Array of TSP_DataPublishedFeedListItem;
  1188. TSP_DataTaxonomyHiddenListListItem = class;
  1189. TSP_DataTaxonomyHiddenListListItemArray = Array of TSP_DataTaxonomyHiddenListListItem;
  1190. TSP_DataSiteAssetsItem = class;
  1191. TSP_DataSiteAssetsItemArray = Array of TSP_DataSiteAssetsItem;
  1192. TSP_DataSocialItem = class;
  1193. TSP_DataSocialItemArray = Array of TSP_DataSocialItem;
  1194. TSP_DataOData__x005f_catalogs_x002f_solutionsItem = class;
  1195. TSP_DataOData__x005f_catalogs_x002f_solutionsItemArray = Array of TSP_DataOData__x005f_catalogs_x002f_solutionsItem;
  1196. TSP_DataStyle_x0020_LibraryItem = class;
  1197. TSP_DataStyle_x0020_LibraryItemArray = Array of TSP_DataStyle_x0020_LibraryItem;
  1198. TSP_DataOData__x005f_catalogs_x002f_themeItem = class;
  1199. TSP_DataOData__x005f_catalogs_x002f_themeItemArray = Array of TSP_DataOData__x005f_catalogs_x002f_themeItem;
  1200. TSP_DataOData__x005f_catalogs_x002f_wpItem = class;
  1201. TSP_DataOData__x005f_catalogs_x002f_wpItemArray = Array of TSP_DataOData__x005f_catalogs_x002f_wpItem;
  1202. TSPApiData = class;
  1203. TSPApiDataArray = Array of TSPApiData;
  1204. TSPAppsEntitySet = class;
  1205. TSPAppsEntitySetArray = Array of TSPAppsEntitySet;
  1206. TSPFilesEntitySet = class;
  1207. TSPFilesEntitySetArray = Array of TSPFilesEntitySet;
  1208. TSPListsEntitySet = class;
  1209. TSPListsEntitySetArray = Array of TSPListsEntitySet;
  1210. TSPMesEntitySet = class;
  1211. TSPMesEntitySetArray = Array of TSPMesEntitySet;
  1212. TSPSitesEntitySet = class;
  1213. TSPSitesEntitySetArray = Array of TSPSitesEntitySet;
  1214. TSPWebsEntitySet = class;
  1215. TSPWebsEntitySetArray = Array of TSPWebsEntitySet;
  1216. TSPAppStoresEntitySet = class;
  1217. TSPAppStoresEntitySetArray = Array of TSPAppStoresEntitySet;
  1218. TSPConnectionSettingssEntitySet = class;
  1219. TSPConnectionSettingssEntitySetArray = Array of TSPConnectionSettingssEntitySet;
  1220. TSPTargetApplicationsEntitySet = class;
  1221. TSPTargetApplicationsEntitySetArray = Array of TSPTargetApplicationsEntitySet;
  1222. TSPTargetApplicationFieldsEntitySet = class;
  1223. TSPTargetApplicationFieldsEntitySetArray = Array of TSPTargetApplicationFieldsEntitySet;
  1224. TSPReputationsEntitySet = class;
  1225. TSPReputationsEntitySetArray = Array of TSPReputationsEntitySet;
  1226. TSPSearchServicesEntitySet = class;
  1227. TSPSearchServicesEntitySetArray = Array of TSPSearchServicesEntitySet;
  1228. TSPApps1EntitySet = class;
  1229. TSPApps1EntitySetArray = Array of TSPApps1EntitySet;
  1230. TSPPointPublishingAdminsEntitySet = class;
  1231. TSPPointPublishingAdminsEntitySetArray = Array of TSPPointPublishingAdminsEntitySet;
  1232. TSPDDIAdaptersEntitySet = class;
  1233. TSPDDIAdaptersEntitySetArray = Array of TSPDDIAdaptersEntitySet;
  1234. TSPSPOTenantWebTemplateCollectionsEntitySet = class;
  1235. TSPSPOTenantWebTemplateCollectionsEntitySetArray = Array of TSPSPOTenantWebTemplateCollectionsEntitySet;
  1236. TSPExternalUsersEntitySet = class;
  1237. TSPExternalUsersEntitySetArray = Array of TSPExternalUsersEntitySet;
  1238. TSPGetExternalUsersResultssEntitySet = class;
  1239. TSPGetExternalUsersResultssEntitySetArray = Array of TSPGetExternalUsersResultssEntitySet;
  1240. TSPOffice365TenantsEntitySet = class;
  1241. TSPOffice365TenantsEntitySetArray = Array of TSPOffice365TenantsEntitySet;
  1242. TSPRemoveExternalUsersResultssEntitySet = class;
  1243. TSPRemoveExternalUsersResultssEntitySetArray = Array of TSPRemoveExternalUsersResultssEntitySet;
  1244. TSPFeatureDefinitionsEntitySet = class;
  1245. TSPFeatureDefinitionsEntitySetArray = Array of TSPFeatureDefinitionsEntitySet;
  1246. TSPSPAnalyticsUsageServicesEntitySet = class;
  1247. TSPSPAnalyticsUsageServicesEntitySetArray = Array of TSPSPAnalyticsUsageServicesEntitySet;
  1248. TSPSPAppStateQueryJobDefinitionsEntitySet = class;
  1249. TSPSPAppStateQueryJobDefinitionsEntitySetArray = Array of TSPSPAppStateQueryJobDefinitionsEntitySet;
  1250. TSPSPFarmsEntitySet = class;
  1251. TSPSPFarmsEntitySetArray = Array of TSPSPFarmsEntitySet;
  1252. TSPSPTenantAppInstanceDatasEntitySet = class;
  1253. TSPSPTenantAppInstanceDatasEntitySetArray = Array of TSPSPTenantAppInstanceDatasEntitySet;
  1254. TSPSPWebApplicationsEntitySet = class;
  1255. TSPSPWebApplicationsEntitySetArray = Array of TSPSPWebApplicationsEntitySet;
  1256. TSPSPWebServicesEntitySet = class;
  1257. TSPSPWebServicesEntitySetArray = Array of TSPSPWebServicesEntitySet;
  1258. TSPSPAppPrincipalInfosEntitySet = class;
  1259. TSPSPAppPrincipalInfosEntitySetArray = Array of TSPSPAppPrincipalInfosEntitySet;
  1260. TSPDocumentCrawlLogsEntitySet = class;
  1261. TSPDocumentCrawlLogsEntitySetArray = Array of TSPDocumentCrawlLogsEntitySet;
  1262. TSPSignalStoresEntitySet = class;
  1263. TSPSignalStoresEntitySetArray = Array of TSPSignalStoresEntitySet;
  1264. TSPQueryPersonalizationDatasEntitySet = class;
  1265. TSPQueryPersonalizationDatasEntitySetArray = Array of TSPQueryPersonalizationDatasEntitySet;
  1266. TSPRankingLabelingsEntitySet = class;
  1267. TSPRankingLabelingsEntitySetArray = Array of TSPRankingLabelingsEntitySet;
  1268. TSPReorderingRuleCollectionsEntitySet = class;
  1269. TSPReorderingRuleCollectionsEntitySetArray = Array of TSPReorderingRuleCollectionsEntitySet;
  1270. TSPSortCollectionsEntitySet = class;
  1271. TSPSortCollectionsEntitySetArray = Array of TSPSortCollectionsEntitySet;
  1272. TSPStringCollectionsEntitySet = class;
  1273. TSPStringCollectionsEntitySetArray = Array of TSPStringCollectionsEntitySet;
  1274. TSPSPFlightsEntitySet = class;
  1275. TSPSPFlightsEntitySetArray = Array of TSPSPFlightsEntitySet;
  1276. TSPSPCorporateCuratedGallerySettingsBasesEntitySet = class;
  1277. TSPSPCorporateCuratedGallerySettingsBasesEntitySetArray = Array of TSPSPCorporateCuratedGallerySettingsBasesEntitySet;
  1278. TSPSPCorporateCuratedGallerySettingsFactorysEntitySet = class;
  1279. TSPSPCorporateCuratedGallerySettingsFactorysEntitySetArray = Array of TSPSPCorporateCuratedGallerySettingsFactorysEntitySet;
  1280. TSPSPMarketplaceSettingssEntitySet = class;
  1281. TSPSPMarketplaceSettingssEntitySetArray = Array of TSPSPMarketplaceSettingssEntitySet;
  1282. TSPNavigationServiceRestsEntitySet = class;
  1283. TSPNavigationServiceRestsEntitySetArray = Array of TSPNavigationServiceRestsEntitySet;
  1284. TSPAppDetailssEntitySet = class;
  1285. TSPAppDetailssEntitySetArray = Array of TSPAppDetailssEntitySet;
  1286. TSPAppIconInfosEntitySet = class;
  1287. TSPAppIconInfosEntitySetArray = Array of TSPAppIconInfosEntitySet;
  1288. TSPCollaborationMailboxsEntitySet = class;
  1289. TSPCollaborationMailboxsEntitySetArray = Array of TSPCollaborationMailboxsEntitySet;
  1290. TSPCommunityModerationsEntitySet = class;
  1291. TSPCommunityModerationsEntitySetArray = Array of TSPCommunityModerationsEntitySet;
  1292. TSPMySiteRecommendationssEntitySet = class;
  1293. TSPMySiteRecommendationssEntitySetArray = Array of TSPMySiteRecommendationssEntitySet;
  1294. TSPDocumentsSharedWithGroupsEntitySet = class;
  1295. TSPDocumentsSharedWithGroupsEntitySetArray = Array of TSPDocumentsSharedWithGroupsEntitySet;
  1296. TSPDocumentsSharedWithMesEntitySet = class;
  1297. TSPDocumentsSharedWithMesEntitySetArray = Array of TSPDocumentsSharedWithMesEntitySet;
  1298. TSPDocumentsSharedWithPersonsEntitySet = class;
  1299. TSPDocumentsSharedWithPersonsEntitySetArray = Array of TSPDocumentsSharedWithPersonsEntitySet;
  1300. TSPMySiteDismissStatusTextsEntitySet = class;
  1301. TSPMySiteDismissStatusTextsEntitySetArray = Array of TSPMySiteDismissStatusTextsEntitySet;
  1302. TSPMySiteDocumentMoveUtilitysEntitySet = class;
  1303. TSPMySiteDocumentMoveUtilitysEntitySetArray = Array of TSPMySiteDocumentMoveUtilitysEntitySet;
  1304. TSPMySiteLinkssEntitySet = class;
  1305. TSPMySiteLinkssEntitySetArray = Array of TSPMySiteLinkssEntitySet;
  1306. TSPPromotedSitessEntitySet = class;
  1307. TSPPromotedSitessEntitySetArray = Array of TSPPromotedSitessEntitySet;
  1308. TSPSharedWithMeDocumentsEntitySet = class;
  1309. TSPSharedWithMeDocumentsEntitySetArray = Array of TSPSharedWithMeDocumentsEntitySet;
  1310. TSPRecentDocumentsEntitySet = class;
  1311. TSPRecentDocumentsEntitySetArray = Array of TSPRecentDocumentsEntitySet;
  1312. TSPModuleLinksEntitySet = class;
  1313. TSPModuleLinksEntitySetArray = Array of TSPModuleLinksEntitySet;
  1314. TSPResourceManifestInformationsEntitySet = class;
  1315. TSPResourceManifestInformationsEntitySetArray = Array of TSPResourceManifestInformationsEntitySet;
  1316. TSPWacApisEntitySet = class;
  1317. TSPWacApisEntitySetArray = Array of TSPWacApisEntitySet;
  1318. TSPEntityItemsEntitySet = class;
  1319. TSPEntityItemsEntitySetArray = Array of TSPEntityItemsEntitySet;
  1320. TSPEntityTypesEntitySet = class;
  1321. TSPEntityTypesEntitySetArray = Array of TSPEntityTypesEntitySet;
  1322. TSPEntityTypeBasesEntitySet = class;
  1323. TSPEntityTypeBasesEntitySetArray = Array of TSPEntityTypeBasesEntitySet;
  1324. TSPExternalEntityTypesEntitySet = class;
  1325. TSPExternalEntityTypesEntitySetArray = Array of TSPExternalEntityTypesEntitySet;
  1326. TSPFieldsEntitySet = class;
  1327. TSPFieldsEntitySetArray = Array of TSPFieldsEntitySet;
  1328. TSPODataStoreContextsEntitySet = class;
  1329. TSPODataStoreContextsEntitySetArray = Array of TSPODataStoreContextsEntitySet;
  1330. TSPRequestContextsEntitySet = class;
  1331. TSPRequestContextsEntitySetArray = Array of TSPRequestContextsEntitySet;
  1332. TSPSqlStoreContextsEntitySet = class;
  1333. TSPSqlStoreContextsEntitySetArray = Array of TSPSqlStoreContextsEntitySet;
  1334. TSPStoreContextBasesEntitySet = class;
  1335. TSPStoreContextBasesEntitySetArray = Array of TSPStoreContextBasesEntitySet;
  1336. TSPFiles1EntitySet = class;
  1337. TSPFiles1EntitySetArray = Array of TSPFiles1EntitySet;
  1338. TSPFileServicesEntitySet = class;
  1339. TSPFileServicesEntitySetArray = Array of TSPFileServicesEntitySet;
  1340. TSPFoldersEntitySet = class;
  1341. TSPFoldersEntitySetArray = Array of TSPFoldersEntitySet;
  1342. TSPMeFileServicesEntitySet = class;
  1343. TSPMeFileServicesEntitySetArray = Array of TSPMeFileServicesEntitySet;
  1344. TSPDiagnosticssEntitySet = class;
  1345. TSPDiagnosticssEntitySetArray = Array of TSPDiagnosticssEntitySet;
  1346. TSPReportingsEntitySet = class;
  1347. TSPReportingsEntitySetArray = Array of TSPReportingsEntitySet;
  1348. TSPTaskflowsEntitySet = class;
  1349. TSPTaskflowsEntitySetArray = Array of TSPTaskflowsEntitySet;
  1350. TSPAssignmentsEntitySet = class;
  1351. TSPAssignmentsEntitySetArray = Array of TSPAssignmentsEntitySet;
  1352. TSPBaseCalendarExceptionsEntitySet = class;
  1353. TSPBaseCalendarExceptionsEntitySetArray = Array of TSPBaseCalendarExceptionsEntitySet;
  1354. TSPCalendarsEntitySet = class;
  1355. TSPCalendarsEntitySetArray = Array of TSPCalendarsEntitySet;
  1356. TSPCalendarExceptionsEntitySet = class;
  1357. TSPCalendarExceptionsEntitySetArray = Array of TSPCalendarExceptionsEntitySet;
  1358. TSPCustomFieldsEntitySet = class;
  1359. TSPCustomFieldsEntitySetArray = Array of TSPCustomFieldsEntitySet;
  1360. TSPDraftAssignmentsEntitySet = class;
  1361. TSPDraftAssignmentsEntitySetArray = Array of TSPDraftAssignmentsEntitySet;
  1362. TSPDraftProjectsEntitySet = class;
  1363. TSPDraftProjectsEntitySetArray = Array of TSPDraftProjectsEntitySet;
  1364. TSPDraftProjectResourcesEntitySet = class;
  1365. TSPDraftProjectResourcesEntitySetArray = Array of TSPDraftProjectResourcesEntitySet;
  1366. TSPDraftTasksEntitySet = class;
  1367. TSPDraftTasksEntitySetArray = Array of TSPDraftTasksEntitySet;
  1368. TSPDraftTaskLinksEntitySet = class;
  1369. TSPDraftTaskLinksEntitySetArray = Array of TSPDraftTaskLinksEntitySet;
  1370. TSPEnterpriseProjectTypesEntitySet = class;
  1371. TSPEnterpriseProjectTypesEntitySetArray = Array of TSPEnterpriseProjectTypesEntitySet;
  1372. TSPEnterpriseResourcesEntitySet = class;
  1373. TSPEnterpriseResourcesEntitySetArray = Array of TSPEnterpriseResourcesEntitySet;
  1374. TSPEntityTypes1EntitySet = class;
  1375. TSPEntityTypes1EntitySetArray = Array of TSPEntityTypes1EntitySet;
  1376. TSPEntityTypessEntitySet = class;
  1377. TSPEntityTypessEntitySetArray = Array of TSPEntityTypessEntitySet;
  1378. TSPEventsEntitySet = class;
  1379. TSPEventsEntitySetArray = Array of TSPEventsEntitySet;
  1380. TSPEventHandlersEntitySet = class;
  1381. TSPEventHandlersEntitySetArray = Array of TSPEventHandlersEntitySet;
  1382. TSPLookupCostsEntitySet = class;
  1383. TSPLookupCostsEntitySetArray = Array of TSPLookupCostsEntitySet;
  1384. TSPLookupDatesEntitySet = class;
  1385. TSPLookupDatesEntitySetArray = Array of TSPLookupDatesEntitySet;
  1386. TSPLookupDurationsEntitySet = class;
  1387. TSPLookupDurationsEntitySetArray = Array of TSPLookupDurationsEntitySet;
  1388. TSPLookupEntrysEntitySet = class;
  1389. TSPLookupEntrysEntitySetArray = Array of TSPLookupEntrysEntitySet;
  1390. TSPLookupNumbersEntitySet = class;
  1391. TSPLookupNumbersEntitySetArray = Array of TSPLookupNumbersEntitySet;
  1392. TSPLookupTablesEntitySet = class;
  1393. TSPLookupTablesEntitySetArray = Array of TSPLookupTablesEntitySet;
  1394. TSPLookupTablessEntitySet = class;
  1395. TSPLookupTablessEntitySetArray = Array of TSPLookupTablessEntitySet;
  1396. TSPLookupTextsEntitySet = class;
  1397. TSPLookupTextsEntitySetArray = Array of TSPLookupTextsEntitySet;
  1398. TSPPhasesEntitySet = class;
  1399. TSPPhasesEntitySetArray = Array of TSPPhasesEntitySet;
  1400. TSPPlanAssignmentsEntitySet = class;
  1401. TSPPlanAssignmentsEntitySetArray = Array of TSPPlanAssignmentsEntitySet;
  1402. TSPPlanAssignmentIntervalsEntitySet = class;
  1403. TSPPlanAssignmentIntervalsEntitySetArray = Array of TSPPlanAssignmentIntervalsEntitySet;
  1404. TSPProjectsEntitySet = class;
  1405. TSPProjectsEntitySetArray = Array of TSPProjectsEntitySet;
  1406. TSPProjectDetailPagesEntitySet = class;
  1407. TSPProjectDetailPagesEntitySetArray = Array of TSPProjectDetailPagesEntitySet;
  1408. TSPProjectResourcesEntitySet = class;
  1409. TSPProjectResourcesEntitySetArray = Array of TSPProjectResourcesEntitySet;
  1410. TSPProjectServersEntitySet = class;
  1411. TSPProjectServersEntitySetArray = Array of TSPProjectServersEntitySet;
  1412. TSPProjectServerDatasEntitySet = class;
  1413. TSPProjectServerDatasEntitySetArray = Array of TSPProjectServerDatasEntitySet;
  1414. TSPPublishedAssignmentsEntitySet = class;
  1415. TSPPublishedAssignmentsEntitySetArray = Array of TSPPublishedAssignmentsEntitySet;
  1416. TSPPublishedProjectsEntitySet = class;
  1417. TSPPublishedProjectsEntitySetArray = Array of TSPPublishedProjectsEntitySet;
  1418. TSPPublishedProjectResourcesEntitySet = class;
  1419. TSPPublishedProjectResourcesEntitySetArray = Array of TSPPublishedProjectResourcesEntitySet;
  1420. TSPPublishedTasksEntitySet = class;
  1421. TSPPublishedTasksEntitySetArray = Array of TSPPublishedTasksEntitySet;
  1422. TSPPublishedTaskLinksEntitySet = class;
  1423. TSPPublishedTaskLinksEntitySetArray = Array of TSPPublishedTaskLinksEntitySet;
  1424. TSPQueueJobsEntitySet = class;
  1425. TSPQueueJobsEntitySetArray = Array of TSPQueueJobsEntitySet;
  1426. TSPResourceCalendarExceptionsEntitySet = class;
  1427. TSPResourceCalendarExceptionsEntitySetArray = Array of TSPResourceCalendarExceptionsEntitySet;
  1428. TSPResourcePlansEntitySet = class;
  1429. TSPResourcePlansEntitySetArray = Array of TSPResourcePlansEntitySet;
  1430. TSPServiceStatussEntitySet = class;
  1431. TSPServiceStatussEntitySetArray = Array of TSPServiceStatussEntitySet;
  1432. TSPStagesEntitySet = class;
  1433. TSPStagesEntitySetArray = Array of TSPStagesEntitySet;
  1434. TSPStageCustomFieldsEntitySet = class;
  1435. TSPStageCustomFieldsEntitySetArray = Array of TSPStageCustomFieldsEntitySet;
  1436. TSPStageDetailPagesEntitySet = class;
  1437. TSPStageDetailPagesEntitySetArray = Array of TSPStageDetailPagesEntitySet;
  1438. TSPStatusAssignmentsEntitySet = class;
  1439. TSPStatusAssignmentsEntitySetArray = Array of TSPStatusAssignmentsEntitySet;
  1440. TSPStatusTasksEntitySet = class;
  1441. TSPStatusTasksEntitySetArray = Array of TSPStatusTasksEntitySet;
  1442. TSPTasksEntitySet = class;
  1443. TSPTasksEntitySetArray = Array of TSPTasksEntitySet;
  1444. TSPTaskLinksEntitySet = class;
  1445. TSPTaskLinksEntitySetArray = Array of TSPTaskLinksEntitySet;
  1446. TSPTaskServiceOdataEndpointsEntitySet = class;
  1447. TSPTaskServiceOdataEndpointsEntitySetArray = Array of TSPTaskServiceOdataEndpointsEntitySet;
  1448. TSPTimePhasesEntitySet = class;
  1449. TSPTimePhasesEntitySetArray = Array of TSPTimePhasesEntitySet;
  1450. TSPTimeSheetsEntitySet = class;
  1451. TSPTimeSheetsEntitySetArray = Array of TSPTimeSheetsEntitySet;
  1452. TSPTimeSheetLinesEntitySet = class;
  1453. TSPTimeSheetLinesEntitySetArray = Array of TSPTimeSheetLinesEntitySet;
  1454. TSPTimeSheetPeriodsEntitySet = class;
  1455. TSPTimeSheetPeriodsEntitySetArray = Array of TSPTimeSheetPeriodsEntitySet;
  1456. TSPTimeSheetWorksEntitySet = class;
  1457. TSPTimeSheetWorksEntitySetArray = Array of TSPTimeSheetWorksEntitySet;
  1458. TSPWorkflowActivitiessEntitySet = class;
  1459. TSPWorkflowActivitiessEntitySetArray = Array of TSPWorkflowActivitiessEntitySet;
  1460. TSPWorkflowDesignersEntitySet = class;
  1461. TSPWorkflowDesignersEntitySetArray = Array of TSPWorkflowDesignersEntitySet;
  1462. TSPWorkflowDesignerFieldsEntitySet = class;
  1463. TSPWorkflowDesignerFieldsEntitySetArray = Array of TSPWorkflowDesignerFieldsEntitySet;
  1464. TSPAccessRequestssEntitySet = class;
  1465. TSPAccessRequestssEntitySetArray = Array of TSPAccessRequestssEntitySet;
  1466. TSPAlternateUrlsEntitySet = class;
  1467. TSPAlternateUrlsEntitySetArray = Array of TSPAlternateUrlsEntitySet;
  1468. TSPAnalyticsUsageEntrysEntitySet = class;
  1469. TSPAnalyticsUsageEntrysEntitySetArray = Array of TSPAnalyticsUsageEntrysEntitySet;
  1470. TSPApiMetadatasEntitySet = class;
  1471. TSPApiMetadatasEntitySetArray = Array of TSPApiMetadatasEntitySet;
  1472. TSPApps12EntitySet = class;
  1473. TSPApps12EntitySetArray = Array of TSPApps12EntitySet;
  1474. TSPAppCatalogsEntitySet = class;
  1475. TSPAppCatalogsEntitySetArray = Array of TSPAppCatalogsEntitySet;
  1476. TSPAppContextSitesEntitySet = class;
  1477. TSPAppContextSitesEntitySetArray = Array of TSPAppContextSitesEntitySet;
  1478. TSPAppInstancesEntitySet = class;
  1479. TSPAppInstancesEntitySetArray = Array of TSPAppInstancesEntitySet;
  1480. TSPAppInstanceErrorDetailssEntitySet = class;
  1481. TSPAppInstanceErrorDetailssEntitySetArray = Array of TSPAppInstanceErrorDetailssEntitySet;
  1482. TSPAppTilesEntitySet = class;
  1483. TSPAppTilesEntitySetArray = Array of TSPAppTilesEntitySet;
  1484. TSPAttachmentsEntitySet = class;
  1485. TSPAttachmentsEntitySetArray = Array of TSPAttachmentsEntitySet;
  1486. TSPAuditsEntitySet = class;
  1487. TSPAuditsEntitySetArray = Array of TSPAuditsEntitySet;
  1488. TSPAppBdcCatalogsEntitySet = class;
  1489. TSPAppBdcCatalogsEntitySetArray = Array of TSPAppBdcCatalogsEntitySet;
  1490. TSPEntitysEntitySet = class;
  1491. TSPEntitysEntitySetArray = Array of TSPEntitysEntitySet;
  1492. TSPEntityFieldsEntitySet = class;
  1493. TSPEntityFieldsEntitySetArray = Array of TSPEntityFieldsEntitySet;
  1494. TSPEntityIdentifiersEntitySet = class;
  1495. TSPEntityIdentifiersEntitySetArray = Array of TSPEntityIdentifiersEntitySet;
  1496. TSPEntityViewsEntitySet = class;
  1497. TSPEntityViewsEntitySetArray = Array of TSPEntityViewsEntitySet;
  1498. TSPFiltersEntitySet = class;
  1499. TSPFiltersEntitySetArray = Array of TSPFiltersEntitySet;
  1500. TSPExternalSubscriptionStoresEntitySet = class;
  1501. TSPExternalSubscriptionStoresEntitySetArray = Array of TSPExternalSubscriptionStoresEntitySet;
  1502. TSPLobSystemsEntitySet = class;
  1503. TSPLobSystemsEntitySetArray = Array of TSPLobSystemsEntitySet;
  1504. TSPLobSystemInstancesEntitySet = class;
  1505. TSPLobSystemInstancesEntitySetArray = Array of TSPLobSystemInstancesEntitySet;
  1506. TSPMethodExecutionResultsEntitySet = class;
  1507. TSPMethodExecutionResultsEntitySetArray = Array of TSPMethodExecutionResultsEntitySet;
  1508. TSPEntityFieldValueDictionarysEntitySet = class;
  1509. TSPEntityFieldValueDictionarysEntitySetArray = Array of TSPEntityFieldValueDictionarysEntitySet;
  1510. TSPEntityIdentitysEntitySet = class;
  1511. TSPEntityIdentitysEntitySetArray = Array of TSPEntityIdentitysEntitySet;
  1512. TSPEntityInstancesEntitySet = class;
  1513. TSPEntityInstancesEntitySetArray = Array of TSPEntityInstancesEntitySet;
  1514. TSPNotificationCallbacksEntitySet = class;
  1515. TSPNotificationCallbacksEntitySetArray = Array of TSPNotificationCallbacksEntitySet;
  1516. TSPSubscriptionsEntitySet = class;
  1517. TSPSubscriptionsEntitySetArray = Array of TSPSubscriptionsEntitySet;
  1518. TSPTypeDescriptorsEntitySet = class;
  1519. TSPTypeDescriptorsEntitySetArray = Array of TSPTypeDescriptorsEntitySet;
  1520. TSPChangesEntitySet = class;
  1521. TSPChangesEntitySetArray = Array of TSPChangesEntitySet;
  1522. TSPCompatibilityRangesEntitySet = class;
  1523. TSPCompatibilityRangesEntitySetArray = Array of TSPCompatibilityRangesEntitySet;
  1524. TSPPolicyEvaluationInfosEntitySet = class;
  1525. TSPPolicyEvaluationInfosEntitySetArray = Array of TSPPolicyEvaluationInfosEntitySet;
  1526. TSPSPPolicyStoreProxysEntitySet = class;
  1527. TSPSPPolicyStoreProxysEntitySetArray = Array of TSPSPPolicyStoreProxysEntitySet;
  1528. TSPContentTypesEntitySet = class;
  1529. TSPContentTypesEntitySetArray = Array of TSPContentTypesEntitySet;
  1530. TSPCreatablesInfosEntitySet = class;
  1531. TSPCreatablesInfosEntitySetArray = Array of TSPCreatablesInfosEntitySet;
  1532. TSPDirectorySessionsEntitySet = class;
  1533. TSPDirectorySessionsEntitySetArray = Array of TSPDirectorySessionsEntitySet;
  1534. TSPGroupsEntitySet = class;
  1535. TSPGroupsEntitySetArray = Array of TSPGroupsEntitySet;
  1536. TSPGroupAndUserStatussEntitySet = class;
  1537. TSPGroupAndUserStatussEntitySetArray = Array of TSPGroupAndUserStatussEntitySet;
  1538. TSPLinkCollectionsEntitySet = class;
  1539. TSPLinkCollectionsEntitySetArray = Array of TSPLinkCollectionsEntitySet;
  1540. TSPMembershipResultsEntitySet = class;
  1541. TSPMembershipResultsEntitySetArray = Array of TSPMembershipResultsEntitySet;
  1542. TSPMembersInfosEntitySet = class;
  1543. TSPMembersInfosEntitySetArray = Array of TSPMembersInfosEntitySet;
  1544. TSPMyGroupsResultsEntitySet = class;
  1545. TSPMyGroupsResultsEntitySetArray = Array of TSPMyGroupsResultsEntitySet;
  1546. TSPPropertysEntitySet = class;
  1547. TSPPropertysEntitySetArray = Array of TSPPropertysEntitySet;
  1548. TSPPropertyDictionarysEntitySet = class;
  1549. TSPPropertyDictionarysEntitySetArray = Array of TSPPropertyDictionarysEntitySet;
  1550. TSPSharePointDirectoryProvidersEntitySet = class;
  1551. TSPSharePointDirectoryProvidersEntitySetArray = Array of TSPSharePointDirectoryProvidersEntitySet;
  1552. TSPSPHelpersEntitySet = class;
  1553. TSPSPHelpersEntitySetArray = Array of TSPSPHelpersEntitySet;
  1554. TSPUsersEntitySet = class;
  1555. TSPUsersEntitySetArray = Array of TSPUsersEntitySet;
  1556. TSPUserRequestSchemasEntitySet = class;
  1557. TSPUserRequestSchemasEntitySetArray = Array of TSPUserRequestSchemasEntitySet;
  1558. TSPDlpPolicyTipsEntitySet = class;
  1559. TSPDlpPolicyTipsEntitySetArray = Array of TSPDlpPolicyTipsEntitySet;
  1560. TSPEventReceiverDefinitionsEntitySet = class;
  1561. TSPEventReceiverDefinitionsEntitySetArray = Array of TSPEventReceiverDefinitionsEntitySet;
  1562. TSPFeaturesEntitySet = class;
  1563. TSPFeaturesEntitySetArray = Array of TSPFeaturesEntitySet;
  1564. TSPFields1EntitySet = class;
  1565. TSPFields1EntitySetArray = Array of TSPFields1EntitySet;
  1566. TSPFieldLinksEntitySet = class;
  1567. TSPFieldLinksEntitySetArray = Array of TSPFieldLinksEntitySet;
  1568. TSPFieldStringValuessEntitySet = class;
  1569. TSPFieldStringValuessEntitySetArray = Array of TSPFieldStringValuessEntitySet;
  1570. TSPFiles12EntitySet = class;
  1571. TSPFiles12EntitySetArray = Array of TSPFiles12EntitySet;
  1572. TSPFileVersionsEntitySet = class;
  1573. TSPFileVersionsEntitySetArray = Array of TSPFileVersionsEntitySet;
  1574. TSPFolders1EntitySet = class;
  1575. TSPFolders1EntitySetArray = Array of TSPFolders1EntitySet;
  1576. TSPFormsEntitySet = class;
  1577. TSPFormsEntitySetArray = Array of TSPFormsEntitySet;
  1578. TSPGroups1EntitySet = class;
  1579. TSPGroups1EntitySetArray = Array of TSPGroups1EntitySet;
  1580. TSPInformationRightsManagementSettingssEntitySet = class;
  1581. TSPInformationRightsManagementSettingssEntitySetArray = Array of TSPInformationRightsManagementSettingssEntitySet;
  1582. TSPListItemsEntitySet = class;
  1583. TSPListItemsEntitySetArray = Array of TSPListItemsEntitySet;
  1584. TSPListTemplatesEntitySet = class;
  1585. TSPListTemplatesEntitySetArray = Array of TSPListTemplatesEntitySet;
  1586. TSPMicrofeedAttachmentStoresEntitySet = class;
  1587. TSPMicrofeedAttachmentStoresEntitySetArray = Array of TSPMicrofeedAttachmentStoresEntitySet;
  1588. TSPMicrofeedDatasEntitySet = class;
  1589. TSPMicrofeedDatasEntitySetArray = Array of TSPMicrofeedDatasEntitySet;
  1590. TSPMicrofeedManagersEntitySet = class;
  1591. TSPMicrofeedManagersEntitySetArray = Array of TSPMicrofeedManagersEntitySet;
  1592. TSPMicrofeedPostDefinitionManagersEntitySet = class;
  1593. TSPMicrofeedPostDefinitionManagersEntitySetArray = Array of TSPMicrofeedPostDefinitionManagersEntitySet;
  1594. TSPMicrofeedPostOptionCollectionsEntitySet = class;
  1595. TSPMicrofeedPostOptionCollectionsEntitySetArray = Array of TSPMicrofeedPostOptionCollectionsEntitySet;
  1596. TSPMicrofeedStoresEntitySet = class;
  1597. TSPMicrofeedStoresEntitySetArray = Array of TSPMicrofeedStoresEntitySet;
  1598. TSPMountedFolderInfosEntitySet = class;
  1599. TSPMountedFolderInfosEntitySetArray = Array of TSPMountedFolderInfosEntitySet;
  1600. TSPMountPointsEntitySet = class;
  1601. TSPMountPointsEntitySetArray = Array of TSPMountPointsEntitySet;
  1602. TSPMountPointInfosEntitySet = class;
  1603. TSPMountPointInfosEntitySetArray = Array of TSPMountPointInfosEntitySet;
  1604. TSPMoveCopyUtilsEntitySet = class;
  1605. TSPMoveCopyUtilsEntitySetArray = Array of TSPMoveCopyUtilsEntitySet;
  1606. TSPNavigationsEntitySet = class;
  1607. TSPNavigationsEntitySetArray = Array of TSPNavigationsEntitySet;
  1608. TSPNavigationNodesEntitySet = class;
  1609. TSPNavigationNodesEntitySetArray = Array of TSPNavigationNodesEntitySet;
  1610. TSPNativeClientsEntitySet = class;
  1611. TSPNativeClientsEntitySetArray = Array of TSPNativeClientsEntitySet;
  1612. TSPObjectSharingInformationsEntitySet = class;
  1613. TSPObjectSharingInformationsEntitySetArray = Array of TSPObjectSharingInformationsEntitySet;
  1614. TSPObjectSharingInformationUsersEntitySet = class;
  1615. TSPObjectSharingInformationUsersEntitySetArray = Array of TSPObjectSharingInformationUsersEntitySet;
  1616. TSPObjectSharingSettingssEntitySet = class;
  1617. TSPObjectSharingSettingssEntitySetArray = Array of TSPObjectSharingSettingssEntitySet;
  1618. TSPClickManagersEntitySet = class;
  1619. TSPClickManagersEntitySetArray = Array of TSPClickManagersEntitySet;
  1620. TSPPickerSettingssEntitySet = class;
  1621. TSPPickerSettingssEntitySetArray = Array of TSPPickerSettingssEntitySet;
  1622. TSPPrincipalsEntitySet = class;
  1623. TSPPrincipalsEntitySetArray = Array of TSPPrincipalsEntitySet;
  1624. TSPPropertyValuessEntitySet = class;
  1625. TSPPropertyValuessEntitySetArray = Array of TSPPropertyValuessEntitySet;
  1626. TSPPersonMagazinesEntitySet = class;
  1627. TSPPersonMagazinesEntitySetArray = Array of TSPPersonMagazinesEntitySet;
  1628. TSPPointPublishingDocPropssEntitySet = class;
  1629. TSPPointPublishingDocPropssEntitySetArray = Array of TSPPointPublishingDocPropssEntitySet;
  1630. TSPPointPublishingMagazinePropssEntitySet = class;
  1631. TSPPointPublishingMagazinePropssEntitySetArray = Array of TSPPointPublishingMagazinePropssEntitySet;
  1632. TSPPointPublishingPostsEntitySet = class;
  1633. TSPPointPublishingPostsEntitySetArray = Array of TSPPointPublishingPostsEntitySet;
  1634. TSPPointPublishingPostServiceManagersEntitySet = class;
  1635. TSPPointPublishingPostServiceManagersEntitySetArray = Array of TSPPointPublishingPostServiceManagersEntitySet;
  1636. TSPPointPublishingSiteManagersEntitySet = class;
  1637. TSPPointPublishingSiteManagersEntitySetArray = Array of TSPPointPublishingSiteManagersEntitySet;
  1638. TSPPointPublishingSiteStatussEntitySet = class;
  1639. TSPPointPublishingSiteStatussEntitySetArray = Array of TSPPointPublishingSiteStatussEntitySet;
  1640. TSPPointPublishingUsersEntitySet = class;
  1641. TSPPointPublishingUsersEntitySetArray = Array of TSPPointPublishingUsersEntitySet;
  1642. TSPSearchsEntitySet = class;
  1643. TSPSearchsEntitySetArray = Array of TSPSearchsEntitySet;
  1644. TSPSpotlightChannelsEntitySet = class;
  1645. TSPSpotlightChannelsEntitySetArray = Array of TSPSpotlightChannelsEntitySet;
  1646. TSPSpotlightVideosEntitySet = class;
  1647. TSPSpotlightVideosEntitySetArray = Array of TSPSpotlightVideosEntitySet;
  1648. TSPVideoChannelsEntitySet = class;
  1649. TSPVideoChannelsEntitySetArray = Array of TSPVideoChannelsEntitySet;
  1650. TSPVideoItemsEntitySet = class;
  1651. TSPVideoItemsEntitySetArray = Array of TSPVideoItemsEntitySet;
  1652. TSPVideoPermissionGroupsEntitySet = class;
  1653. TSPVideoPermissionGroupsEntitySetArray = Array of TSPVideoPermissionGroupsEntitySet;
  1654. TSPVideoServiceDiscoverersEntitySet = class;
  1655. TSPVideoServiceDiscoverersEntitySetArray = Array of TSPVideoServiceDiscoverersEntitySet;
  1656. TSPVideoServiceManagersEntitySet = class;
  1657. TSPVideoServiceManagersEntitySetArray = Array of TSPVideoServiceManagersEntitySet;
  1658. TSPPushNotificationSubscribersEntitySet = class;
  1659. TSPPushNotificationSubscribersEntitySetArray = Array of TSPPushNotificationSubscribersEntitySet;
  1660. TSPRecycleBinItemsEntitySet = class;
  1661. TSPRecycleBinItemsEntitySetArray = Array of TSPRecycleBinItemsEntitySet;
  1662. TSPRegionalSettingssEntitySet = class;
  1663. TSPRegionalSettingssEntitySetArray = Array of TSPRegionalSettingssEntitySet;
  1664. TSPRelatedFieldsEntitySet = class;
  1665. TSPRelatedFieldsEntitySetArray = Array of TSPRelatedFieldsEntitySet;
  1666. TSPRelatedItemManagersEntitySet = class;
  1667. TSPRelatedItemManagersEntitySetArray = Array of TSPRelatedItemManagersEntitySet;
  1668. TSPRemoteWebsEntitySet = class;
  1669. TSPRemoteWebsEntitySetArray = Array of TSPRemoteWebsEntitySet;
  1670. TSPRequestContexts1EntitySet = class;
  1671. TSPRequestContexts1EntitySetArray = Array of TSPRequestContexts1EntitySet;
  1672. TSPRoleAssignmentsEntitySet = class;
  1673. TSPRoleAssignmentsEntitySetArray = Array of TSPRoleAssignmentsEntitySet;
  1674. TSPRoleDefinitionsEntitySet = class;
  1675. TSPRoleDefinitionsEntitySetArray = Array of TSPRoleDefinitionsEntitySet;
  1676. TSPSecurableObjectsEntitySet = class;
  1677. TSPSecurableObjectsEntitySetArray = Array of TSPSecurableObjectsEntitySet;
  1678. TSPServerSettingssEntitySet = class;
  1679. TSPServerSettingssEntitySetArray = Array of TSPServerSettingssEntitySet;
  1680. TSPSharePointSharingSettingssEntitySet = class;
  1681. TSPSharePointSharingSettingssEntitySetArray = Array of TSPSharePointSharingSettingssEntitySet;
  1682. TSPDocumentSharingManagersEntitySet = class;
  1683. TSPDocumentSharingManagersEntitySetArray = Array of TSPDocumentSharingManagersEntitySet;
  1684. TSPWebSharingManagersEntitySet = class;
  1685. TSPWebSharingManagersEntitySetArray = Array of TSPWebSharingManagersEntitySet;
  1686. TSPSharingResultsEntitySet = class;
  1687. TSPSharingResultsEntitySetArray = Array of TSPSharingResultsEntitySet;
  1688. TSPSiteHealthSummarysEntitySet = class;
  1689. TSPSiteHealthSummarysEntitySetArray = Array of TSPSiteHealthSummarysEntitySet;
  1690. TSPSiteUrlsEntitySet = class;
  1691. TSPSiteUrlsEntitySetArray = Array of TSPSiteUrlsEntitySet;
  1692. TSPSocialAnnouncementManagersEntitySet = class;
  1693. TSPSocialAnnouncementManagersEntitySetArray = Array of TSPSocialAnnouncementManagersEntitySet;
  1694. TSPSocialFeedManagersEntitySet = class;
  1695. TSPSocialFeedManagersEntitySetArray = Array of TSPSocialFeedManagersEntitySet;
  1696. TSPSocialFollowingManagersEntitySet = class;
  1697. TSPSocialFollowingManagersEntitySetArray = Array of TSPSocialFollowingManagersEntitySet;
  1698. TSPSocialRestActorsEntitySet = class;
  1699. TSPSocialRestActorsEntitySetArray = Array of TSPSocialRestActorsEntitySet;
  1700. TSPSocialRestFeedsEntitySet = class;
  1701. TSPSocialRestFeedsEntitySetArray = Array of TSPSocialRestFeedsEntitySet;
  1702. TSPSocialRestFeedManagersEntitySet = class;
  1703. TSPSocialRestFeedManagersEntitySetArray = Array of TSPSocialRestFeedManagersEntitySet;
  1704. TSPSocialRestFollowingManagersEntitySet = class;
  1705. TSPSocialRestFollowingManagersEntitySetArray = Array of TSPSocialRestFollowingManagersEntitySet;
  1706. TSPSocialRestThreadsEntitySet = class;
  1707. TSPSocialRestThreadsEntitySetArray = Array of TSPSocialRestThreadsEntitySet;
  1708. TSPSolutionExportersEntitySet = class;
  1709. TSPSolutionExportersEntitySetArray = Array of TSPSolutionExportersEntitySet;
  1710. TSPSPAppLicenseManagersEntitySet = class;
  1711. TSPSPAppLicenseManagersEntitySetArray = Array of TSPSPAppLicenseManagersEntitySet;
  1712. TSPSPDataLeakagePreventionStatusInfosEntitySet = class;
  1713. TSPSPDataLeakagePreventionStatusInfosEntitySetArray = Array of TSPSPDataLeakagePreventionStatusInfosEntitySet;
  1714. TSPTenantAppInstancesEntitySet = class;
  1715. TSPTenantAppInstancesEntitySetArray = Array of TSPTenantAppInstancesEntitySet;
  1716. TSPTenantAppUtilitysEntitySet = class;
  1717. TSPTenantAppUtilitysEntitySetArray = Array of TSPTenantAppUtilitysEntitySet;
  1718. TSPTenantSettingssEntitySet = class;
  1719. TSPTenantSettingssEntitySetArray = Array of TSPTenantSettingssEntitySet;
  1720. TSPThemeInfosEntitySet = class;
  1721. TSPThemeInfosEntitySetArray = Array of TSPThemeInfosEntitySet;
  1722. TSPTimeZonesEntitySet = class;
  1723. TSPTimeZonesEntitySetArray = Array of TSPTimeZonesEntitySet;
  1724. TSPSyncTranslatorsEntitySet = class;
  1725. TSPSyncTranslatorsEntitySetArray = Array of TSPSyncTranslatorsEntitySet;
  1726. TSPTranslationJobsEntitySet = class;
  1727. TSPTranslationJobsEntitySetArray = Array of TSPTranslationJobsEntitySet;
  1728. TSPTranslationJobStatussEntitySet = class;
  1729. TSPTranslationJobStatussEntitySetArray = Array of TSPTranslationJobStatussEntitySet;
  1730. TSPVariationsTranslationTimerJobsEntitySet = class;
  1731. TSPVariationsTranslationTimerJobsEntitySetArray = Array of TSPVariationsTranslationTimerJobsEntitySet;
  1732. TSPTypeInformationsEntitySet = class;
  1733. TSPTypeInformationsEntitySetArray = Array of TSPTypeInformationsEntitySet;
  1734. TSPClientPeoplePickerWebServiceInterfacesEntitySet = class;
  1735. TSPClientPeoplePickerWebServiceInterfacesEntitySetArray = Array of TSPClientPeoplePickerWebServiceInterfacesEntitySet;
  1736. TSPUsers1EntitySet = class;
  1737. TSPUsers1EntitySetArray = Array of TSPUsers1EntitySet;
  1738. TSPUserCustomActionsEntitySet = class;
  1739. TSPUserCustomActionsEntitySetArray = Array of TSPUserCustomActionsEntitySet;
  1740. TSPFollowedContentsEntitySet = class;
  1741. TSPFollowedContentsEntitySetArray = Array of TSPFollowedContentsEntitySet;
  1742. TSPFollowedItemDatasEntitySet = class;
  1743. TSPFollowedItemDatasEntitySetArray = Array of TSPFollowedItemDatasEntitySet;
  1744. TSPHashTagCollectionsEntitySet = class;
  1745. TSPHashTagCollectionsEntitySetArray = Array of TSPHashTagCollectionsEntitySet;
  1746. TSPPeopleManagersEntitySet = class;
  1747. TSPPeopleManagersEntitySetArray = Array of TSPPeopleManagersEntitySet;
  1748. TSPPersonPropertiessEntitySet = class;
  1749. TSPPersonPropertiessEntitySetArray = Array of TSPPersonPropertiessEntitySet;
  1750. TSPProfileImageStoresEntitySet = class;
  1751. TSPProfileImageStoresEntitySetArray = Array of TSPProfileImageStoresEntitySet;
  1752. TSPProfileLoadersEntitySet = class;
  1753. TSPProfileLoadersEntitySetArray = Array of TSPProfileLoadersEntitySet;
  1754. TSPUserProfilesEntitySet = class;
  1755. TSPUserProfilesEntitySetArray = Array of TSPUserProfilesEntitySet;
  1756. TSPUserProfilePropertiesForUsersEntitySet = class;
  1757. TSPUserProfilePropertiesForUsersEntitySetArray = Array of TSPUserProfilePropertiesForUsersEntitySet;
  1758. TSPUserResourcesEntitySet = class;
  1759. TSPUserResourcesEntitySetArray = Array of TSPUserResourcesEntitySet;
  1760. TSPUserSolutionsEntitySet = class;
  1761. TSPUserSolutionsEntitySetArray = Array of TSPUserSolutionsEntitySet;
  1762. TSPMarketplaceUtilitiessEntitySet = class;
  1763. TSPMarketplaceUtilitiessEntitySetArray = Array of TSPMarketplaceUtilitiessEntitySet;
  1764. TSPUtilitysEntitySet = class;
  1765. TSPUtilitysEntitySetArray = Array of TSPUtilitysEntitySet;
  1766. TSPViewsEntitySet = class;
  1767. TSPViewsEntitySetArray = Array of TSPViewsEntitySet;
  1768. TSPViewFieldCollectionsEntitySet = class;
  1769. TSPViewFieldCollectionsEntitySetArray = Array of TSPViewFieldCollectionsEntitySet;
  1770. TSPWebInformationsEntitySet = class;
  1771. TSPWebInformationsEntitySetArray = Array of TSPWebInformationsEntitySet;
  1772. TSPLimitedWebPartManagersEntitySet = class;
  1773. TSPLimitedWebPartManagersEntitySetArray = Array of TSPLimitedWebPartManagersEntitySet;
  1774. TSPWebPartsEntitySet = class;
  1775. TSPWebPartsEntitySetArray = Array of TSPWebPartsEntitySet;
  1776. TSPWebPartDefinitionsEntitySet = class;
  1777. TSPWebPartDefinitionsEntitySetArray = Array of TSPWebPartDefinitionsEntitySet;
  1778. TSPWebProxysEntitySet = class;
  1779. TSPWebProxysEntitySetArray = Array of TSPWebProxysEntitySet;
  1780. TSPWebTemplatesEntitySet = class;
  1781. TSPWebTemplatesEntitySetArray = Array of TSPWebTemplatesEntitySet;
  1782. TSPSPWorkflowsEntitySet = class;
  1783. TSPSPWorkflowsEntitySetArray = Array of TSPSPWorkflowsEntitySet;
  1784. TSPSPWorkflowManagersEntitySet = class;
  1785. TSPSPWorkflowManagersEntitySetArray = Array of TSPSPWorkflowManagersEntitySet;
  1786. TSPWorkflowAssociationsEntitySet = class;
  1787. TSPWorkflowAssociationsEntitySetArray = Array of TSPWorkflowAssociationsEntitySet;
  1788. TSPWorkflowTemplatesEntitySet = class;
  1789. TSPWorkflowTemplatesEntitySetArray = Array of TSPWorkflowTemplatesEntitySet;
  1790. TSPInteropServicesEntitySet = class;
  1791. TSPInteropServicesEntitySetArray = Array of TSPInteropServicesEntitySet;
  1792. TSPWorkflowDefinitionsEntitySet = class;
  1793. TSPWorkflowDefinitionsEntitySetArray = Array of TSPWorkflowDefinitionsEntitySet;
  1794. TSPWorkflowDeploymentServicesEntitySet = class;
  1795. TSPWorkflowDeploymentServicesEntitySetArray = Array of TSPWorkflowDeploymentServicesEntitySet;
  1796. TSPWorkflowInstancesEntitySet = class;
  1797. TSPWorkflowInstancesEntitySetArray = Array of TSPWorkflowInstancesEntitySet;
  1798. TSPWorkflowInstanceServicesEntitySet = class;
  1799. TSPWorkflowInstanceServicesEntitySetArray = Array of TSPWorkflowInstanceServicesEntitySet;
  1800. TSPWorkflowMessagingServicesEntitySet = class;
  1801. TSPWorkflowMessagingServicesEntitySetArray = Array of TSPWorkflowMessagingServicesEntitySet;
  1802. TSPWorkflowServicesManagersEntitySet = class;
  1803. TSPWorkflowServicesManagersEntitySetArray = Array of TSPWorkflowServicesManagersEntitySet;
  1804. TSPWorkflowSubscriptionsEntitySet = class;
  1805. TSPWorkflowSubscriptionsEntitySetArray = Array of TSPWorkflowSubscriptionsEntitySet;
  1806. TSPWorkflowSubscriptionServicesEntitySet = class;
  1807. TSPWorkflowSubscriptionServicesEntitySetArray = Array of TSPWorkflowSubscriptionServicesEntitySet;
  1808. TSPBaseSessionsEntitySet = class;
  1809. TSPBaseSessionsEntitySetArray = Array of TSPBaseSessionsEntitySet;
  1810. TSPBooleanCriterionsEntitySet = class;
  1811. TSPBooleanCriterionsEntitySetArray = Array of TSPBooleanCriterionsEntitySet;
  1812. TSPCalloutInfosEntitySet = class;
  1813. TSPCalloutInfosEntitySetArray = Array of TSPCalloutInfosEntitySet;
  1814. TSPCreateRefreshJobResultsEntitySet = class;
  1815. TSPCreateRefreshJobResultsEntitySetArray = Array of TSPCreateRefreshJobResultsEntitySet;
  1816. TSPCustomAttributeFiltersEntitySet = class;
  1817. TSPCustomAttributeFiltersEntitySetArray = Array of TSPCustomAttributeFiltersEntitySet;
  1818. TSPDashboardScriptExtensionInfosEntitySet = class;
  1819. TSPDashboardScriptExtensionInfosEntitySetArray = Array of TSPDashboardScriptExtensionInfosEntitySet;
  1820. TSPDateRangeCriterionsEntitySet = class;
  1821. TSPDateRangeCriterionsEntitySetArray = Array of TSPDateRangeCriterionsEntitySet;
  1822. TSPExchangeUserSyncStatesEntitySet = class;
  1823. TSPExchangeUserSyncStatesEntitySetArray = Array of TSPExchangeUserSyncStatesEntitySet;
  1824. TSPLocationsEntitySet = class;
  1825. TSPLocationsEntitySetArray = Array of TSPLocationsEntitySet;
  1826. TSPLocationDisplaySettingsEntitySet = class;
  1827. TSPLocationDisplaySettingsEntitySetArray = Array of TSPLocationDisplaySettingsEntitySet;
  1828. TSPLocationFiltersEntitySet = class;
  1829. TSPLocationFiltersEntitySetArray = Array of TSPLocationFiltersEntitySet;
  1830. TSPLocationUpdateResultsEntitySet = class;
  1831. TSPLocationUpdateResultsEntitySetArray = Array of TSPLocationUpdateResultsEntitySet;
  1832. TSPNameCriterionsEntitySet = class;
  1833. TSPNameCriterionsEntitySetArray = Array of TSPNameCriterionsEntitySet;
  1834. TSPNonTaskDataReadResultsEntitySet = class;
  1835. TSPNonTaskDataReadResultsEntitySetArray = Array of TSPNonTaskDataReadResultsEntitySet;
  1836. TSPOrderInfosEntitySet = class;
  1837. TSPOrderInfosEntitySetArray = Array of TSPOrderInfosEntitySet;
  1838. TSPPersistedPropertiessEntitySet = class;
  1839. TSPPersistedPropertiessEntitySetArray = Array of TSPPersistedPropertiessEntitySet;
  1840. TSPProviderErrorInfosEntitySet = class;
  1841. TSPProviderErrorInfosEntitySetArray = Array of TSPProviderErrorInfosEntitySet;
  1842. TSPProviderRefreshStatussEntitySet = class;
  1843. TSPProviderRefreshStatussEntitySetArray = Array of TSPProviderRefreshStatussEntitySet;
  1844. TSPRefreshHealthInfosEntitySet = class;
  1845. TSPRefreshHealthInfosEntitySetArray = Array of TSPRefreshHealthInfosEntitySet;
  1846. TSPRefreshHistorysEntitySet = class;
  1847. TSPRefreshHistorysEntitySetArray = Array of TSPRefreshHistorysEntitySet;
  1848. TSPRefreshResultsEntitySet = class;
  1849. TSPRefreshResultsEntitySetArray = Array of TSPRefreshResultsEntitySet;
  1850. TSPSortableSessionManagersEntitySet = class;
  1851. TSPSortableSessionManagersEntitySetArray = Array of TSPSortableSessionManagersEntitySet;
  1852. TSPSortableTaskQuerysEntitySet = class;
  1853. TSPSortableTaskQuerysEntitySetArray = Array of TSPSortableTaskQuerysEntitySet;
  1854. TSPTasks1EntitySet = class;
  1855. TSPTasks1EntitySetArray = Array of TSPTasks1EntitySet;
  1856. TSPTaskFiltersEntitySet = class;
  1857. TSPTaskFiltersEntitySetArray = Array of TSPTaskFiltersEntitySet;
  1858. TSPTaskQuerysEntitySet = class;
  1859. TSPTaskQuerysEntitySetArray = Array of TSPTaskQuerysEntitySet;
  1860. TSPTaskQueryByLocationResultsEntitySet = class;
  1861. TSPTaskQueryByLocationResultsEntitySetArray = Array of TSPTaskQueryByLocationResultsEntitySet;
  1862. TSPTaskQueryResultsEntitySet = class;
  1863. TSPTaskQueryResultsEntitySetArray = Array of TSPTaskQueryResultsEntitySet;
  1864. TSPTaskRefreshResultsEntitySet = class;
  1865. TSPTaskRefreshResultsEntitySetArray = Array of TSPTaskRefreshResultsEntitySet;
  1866. TSPTaskWriteResultsEntitySet = class;
  1867. TSPTaskWriteResultsEntitySetArray = Array of TSPTaskWriteResultsEntitySet;
  1868. TSPUserOrderedSessionManagersEntitySet = class;
  1869. TSPUserOrderedSessionManagersEntitySetArray = Array of TSPUserOrderedSessionManagersEntitySet;
  1870. TSPUserSettingssEntitySet = class;
  1871. TSPUserSettingssEntitySetArray = Array of TSPUserSettingssEntitySet;
  1872. TSPUserSettingsManagersEntitySet = class;
  1873. TSPUserSettingsManagersEntitySetArray = Array of TSPUserSettingsManagersEntitySet;
  1874. TSPViewSelectionInfosEntitySet = class;
  1875. TSPViewSelectionInfosEntitySetArray = Array of TSPViewSelectionInfosEntitySet;
  1876. TSPSPOIdentityHelpersEntitySet = class;
  1877. TSPSPOIdentityHelpersEntitySetArray = Array of TSPSPOIdentityHelpersEntitySet;
  1878. TSPAppPrincipalIdentityProvidersEntitySet = class;
  1879. TSPAppPrincipalIdentityProvidersEntitySetArray = Array of TSPAppPrincipalIdentityProvidersEntitySet;
  1880. TSPAppPrincipalManagersEntitySet = class;
  1881. TSPAppPrincipalManagersEntitySetArray = Array of TSPAppPrincipalManagersEntitySet;
  1882. TSPAppPrincipalCredentialsEntitySet = class;
  1883. TSPAppPrincipalCredentialsEntitySetArray = Array of TSPAppPrincipalCredentialsEntitySet;
  1884. TSPAppPrincipalNamesEntitySet = class;
  1885. TSPAppPrincipalNamesEntitySetArray = Array of TSPAppPrincipalNamesEntitySet;
  1886. TSPDraftProjectResources1EntitySet = class;
  1887. TSPDraftProjectResources1EntitySetArray = Array of TSPDraftProjectResources1EntitySet;
  1888. TSP_DataUserInfoItemImplicitEntitySet = class;
  1889. TSP_DataUserInfoItemImplicitEntitySetArray = Array of TSP_DataUserInfoItemImplicitEntitySet;
  1890. TSP_DataTaxonomyHiddenListListItemImplicitEntitySet = class;
  1891. TSP_DataTaxonomyHiddenListListItemImplicitEntitySetArray = Array of TSP_DataTaxonomyHiddenListListItemImplicitEntitySet;
  1892. TSPService = class;
  1893. TSPServiceArray = Array of TSPService;
  1894. //
  1895. // Enumerations
  1896. {$SCOPEDENUMS ON}
  1897. { --------------------------------------------------------------------
  1898. SP: KeyValue
  1899. --------------------------------------------------------------------}
  1900. TSPKeyValue = Class(TODataEntity)
  1901. private
  1902. FKey : string;
  1903. FValue : string;
  1904. FValueType : string;
  1905. procedure SetKey(AIndex: Integer; const AValue: string);
  1906. procedure SetValue(AIndex: Integer; const AValue: string);
  1907. procedure SetValueType(AIndex: Integer; const AValue: string);
  1908. public
  1909. class function ObjectRestKind : String; Override;
  1910. published
  1911. Property Key : string index 0 read FKey write SetKey;
  1912. Property Value : string index 8 read FValue write SetValue;
  1913. Property ValueType : string index 16 read FValueType write SetValueType;
  1914. end;
  1915. { --------------------------------------------------------------------
  1916. SP: SimpleDataRow
  1917. --------------------------------------------------------------------}
  1918. TSPSimpleDataRow = Class(TODataEntity)
  1919. private
  1920. FCells : TSPKeyValueArray;
  1921. procedure SetCells(AIndex: Integer; const AValue: TSPKeyValueArray);
  1922. protected
  1923. {$IFDEF VER2_6}
  1924. procedure SetArrayLength(const AName: String; ALength: Longint)
  1925. ; Override;
  1926. {$ENDIF VER2_6}
  1927. public
  1928. class function ObjectRestKind : String; Override;
  1929. published
  1930. Property Cells : TSPKeyValueArray index 0 read FCells write SetCells;
  1931. end;
  1932. { --------------------------------------------------------------------
  1933. SP: SimpleDataTable
  1934. --------------------------------------------------------------------}
  1935. TSPSimpleDataTable = Class(TODataEntity)
  1936. private
  1937. FRows : TSPSimpleDataRowArray;
  1938. procedure SetRows(AIndex: Integer; const AValue: TSPSimpleDataRowArray);
  1939. protected
  1940. {$IFDEF VER2_6}
  1941. procedure SetArrayLength(const AName: String; ALength: Longint)
  1942. ; Override;
  1943. {$ENDIF VER2_6}
  1944. public
  1945. class function ObjectRestKind : String; Override;
  1946. published
  1947. Property Rows : TSPSimpleDataRowArray index 0 read FRows write SetRows;
  1948. end;
  1949. { --------------------------------------------------------------------
  1950. SP: MethodInformation
  1951. --------------------------------------------------------------------}
  1952. TSPMethodInformation = Class(TODataEntity)
  1953. private
  1954. FIsBeta : boolean;
  1955. FName : string;
  1956. FParameters : TSPParameterInformationArray;
  1957. FReturnTypeFullName : string;
  1958. procedure SetIsBeta(AIndex: Integer; const AValue: boolean);
  1959. procedure SetName(AIndex: Integer; const AValue: string);
  1960. procedure SetParameters(AIndex: Integer;
  1961. const AValue: TSPParameterInformationArray);
  1962. procedure SetReturnTypeFullName(AIndex: Integer; const AValue: string);
  1963. protected
  1964. {$IFDEF VER2_6}
  1965. procedure SetArrayLength(const AName: String; ALength: Longint)
  1966. ; Override;
  1967. {$ENDIF VER2_6}
  1968. public
  1969. class function ObjectRestKind : String; Override;
  1970. published
  1971. Property IsBeta : boolean index 0 read FIsBeta write SetIsBeta;
  1972. Property Name : string index 8 read FName write SetName;
  1973. Property Parameters : TSPParameterInformationArray index 16 read FParameters write SetParameters;
  1974. Property ReturnTypeFullName : string index 24 read FReturnTypeFullName write SetReturnTypeFullName;
  1975. end;
  1976. { --------------------------------------------------------------------
  1977. SP: ParameterInformation
  1978. --------------------------------------------------------------------}
  1979. TSPParameterInformation = Class(TODataEntity)
  1980. private
  1981. FName : string;
  1982. FParameterTypeFullName : string;
  1983. procedure SetName(AIndex: Integer; const AValue: string);
  1984. procedure SetParameterTypeFullName(AIndex: Integer;
  1985. const AValue: string);
  1986. public
  1987. class function ObjectRestKind : String; Override;
  1988. published
  1989. Property Name : string index 0 read FName write SetName;
  1990. Property ParameterTypeFullName : string index 8 read FParameterTypeFullName write SetParameterTypeFullName;
  1991. end;
  1992. { --------------------------------------------------------------------
  1993. SP: PropertyInformation
  1994. --------------------------------------------------------------------}
  1995. TSPPropertyInformation = Class(TODataEntity)
  1996. private
  1997. FExcludeFromDefaultRetrieval : boolean;
  1998. FIsBeta : boolean;
  1999. FName : string;
  2000. FPropertyTypeFullName : string;
  2001. FReadOnly : boolean;
  2002. procedure SetExcludeFromDefaultRetrieval(AIndex: Integer;
  2003. const AValue: boolean);
  2004. procedure SetIsBeta(AIndex: Integer; const AValue: boolean);
  2005. procedure SetName(AIndex: Integer; const AValue: string);
  2006. procedure SetPropertyTypeFullName(AIndex: Integer; const AValue: string);
  2007. procedure SetReadOnly(AIndex: Integer; const AValue: boolean);
  2008. public
  2009. class function ObjectRestKind : String; Override;
  2010. published
  2011. Property ExcludeFromDefaultRetrieval : boolean index 0 read FExcludeFromDefaultRetrieval write SetExcludeFromDefaultRetrieval;
  2012. Property IsBeta : boolean index 8 read FIsBeta write SetIsBeta;
  2013. Property Name : string index 16 read FName write SetName;
  2014. Property PropertyTypeFullName : string index 24 read FPropertyTypeFullName write SetPropertyTypeFullName;
  2015. Property ReadOnly : boolean index 32 read FReadOnly write SetReadOnly;
  2016. end;
  2017. { --------------------------------------------------------------------
  2018. SP: ContentTypeId
  2019. --------------------------------------------------------------------}
  2020. TSPContentTypeId = Class(TODataEntity)
  2021. private
  2022. FStringValue : string;
  2023. procedure SetStringValue(AIndex: Integer; const AValue: string);
  2024. public
  2025. class function ObjectRestKind : String; Override;
  2026. published
  2027. Property StringValue : string index 0 read FStringValue write SetStringValue;
  2028. end;
  2029. { --------------------------------------------------------------------
  2030. SP: FieldLookupValue
  2031. --------------------------------------------------------------------}
  2032. TSPFieldLookupValue = Class(TODataEntity)
  2033. private
  2034. FLookupId : TInt32;
  2035. FLookupValue : string;
  2036. procedure SetLookupId(AIndex: Integer; const AValue: TInt32);
  2037. procedure SetLookupValue(AIndex: Integer; const AValue: string);
  2038. public
  2039. class function ObjectRestKind : String; Override;
  2040. published
  2041. Property LookupId : TInt32 index 0 read FLookupId write SetLookupId;
  2042. Property LookupValue : string index 8 read FLookupValue write SetLookupValue;
  2043. end;
  2044. { --------------------------------------------------------------------
  2045. SP: FieldUserValue
  2046. --------------------------------------------------------------------}
  2047. TSPFieldUserValue = Class(TODataEntity)
  2048. private
  2049. FEmail : string;
  2050. procedure SetEmail(AIndex: Integer; const AValue: string);
  2051. public
  2052. class function ObjectRestKind : String; Override;
  2053. published
  2054. Property Email : string index 0 read FEmail write SetEmail;
  2055. end;
  2056. { --------------------------------------------------------------------
  2057. SP: CreatableItemInfoCollection
  2058. --------------------------------------------------------------------}
  2059. TSPCreatableItemInfoCollection = Class(TODataEntity)
  2060. private
  2061. FItems : TSPCreatableItemInfoArray;
  2062. procedure SetItems(AIndex: Integer;
  2063. const AValue: TSPCreatableItemInfoArray);
  2064. protected
  2065. {$IFDEF VER2_6}
  2066. procedure SetArrayLength(const AName: String; ALength: Longint)
  2067. ; Override;
  2068. {$ENDIF VER2_6}
  2069. public
  2070. class function ObjectRestKind : String; Override;
  2071. published
  2072. Property Items : TSPCreatableItemInfoArray index 0 read FItems write SetItems;
  2073. end;
  2074. { --------------------------------------------------------------------
  2075. SP: CreatableItemInfo
  2076. --------------------------------------------------------------------}
  2077. TSPCreatableItemInfo = Class(TODataEntity)
  2078. private
  2079. FDocumentTemplate : TInt32;
  2080. FFileExtension : string;
  2081. FItemType : string;
  2082. procedure SetDocumentTemplate(AIndex: Integer; const AValue: TInt32);
  2083. procedure SetFileExtension(AIndex: Integer; const AValue: string);
  2084. procedure SetItemType(AIndex: Integer; const AValue: string);
  2085. public
  2086. class function ObjectRestKind : String; Override;
  2087. published
  2088. Property DocumentTemplate : TInt32 index 0 read FDocumentTemplate write SetDocumentTemplate;
  2089. Property FileExtension : string index 8 read FFileExtension write SetFileExtension;
  2090. Property ItemType : string index 16 read FItemType write SetItemType;
  2091. end;
  2092. { --------------------------------------------------------------------
  2093. SP: MenuNode
  2094. --------------------------------------------------------------------}
  2095. TSPMenuNode = Class(TODataEntity)
  2096. private
  2097. FCustomProperties : TSPKeyValueArray;
  2098. FFriendlyUrlSegment : string;
  2099. FIsHidden : boolean;
  2100. FKey : string;
  2101. FNodes : TSPMenuNodeArray;
  2102. FNodeType : TInt32;
  2103. FSimpleUrl : string;
  2104. FTitle : string;
  2105. procedure SetCustomProperties(AIndex: Integer;
  2106. const AValue: TSPKeyValueArray);
  2107. procedure SetFriendlyUrlSegment(AIndex: Integer; const AValue: string);
  2108. procedure SetIsHidden(AIndex: Integer; const AValue: boolean);
  2109. procedure SetKey(AIndex: Integer; const AValue: string);
  2110. procedure SetNodes(AIndex: Integer; const AValue: TSPMenuNodeArray);
  2111. procedure SetNodeType(AIndex: Integer; const AValue: TInt32);
  2112. procedure SetSimpleUrl(AIndex: Integer; const AValue: string);
  2113. procedure SetTitle(AIndex: Integer; const AValue: string);
  2114. protected
  2115. {$IFDEF VER2_6}
  2116. procedure SetArrayLength(const AName: String; ALength: Longint)
  2117. ; Override;
  2118. {$ENDIF VER2_6}
  2119. public
  2120. class function ObjectRestKind : String; Override;
  2121. published
  2122. Property CustomProperties : TSPKeyValueArray index 0 read FCustomProperties write SetCustomProperties;
  2123. Property FriendlyUrlSegment : string index 8 read FFriendlyUrlSegment write SetFriendlyUrlSegment;
  2124. Property IsHidden : boolean index 16 read FIsHidden write SetIsHidden;
  2125. Property Key : string index 24 read FKey write SetKey;
  2126. Property Nodes : TSPMenuNodeArray index 32 read FNodes write SetNodes;
  2127. Property NodeType : TInt32 index 40 read FNodeType write SetNodeType;
  2128. Property SimpleUrl : string index 48 read FSimpleUrl write SetSimpleUrl;
  2129. Property Title : string index 56 read FTitle write SetTitle;
  2130. end;
  2131. { --------------------------------------------------------------------
  2132. SP: MenuState
  2133. --------------------------------------------------------------------}
  2134. TSPMenuState = Class(TODataEntity)
  2135. private
  2136. FFriendlyUrlPrefix : string;
  2137. FNodes : TSPMenuNodeArray;
  2138. FSimpleUrl : string;
  2139. FSPSitePrefix : string;
  2140. FSPWebPrefix : string;
  2141. FStartingNodeKey : string;
  2142. FStartingNodeTitle : string;
  2143. FVersion : string;
  2144. procedure SetFriendlyUrlPrefix(AIndex: Integer; const AValue: string);
  2145. procedure SetNodes(AIndex: Integer; const AValue: TSPMenuNodeArray);
  2146. procedure SetSimpleUrl(AIndex: Integer; const AValue: string);
  2147. procedure SetSPSitePrefix(AIndex: Integer; const AValue: string);
  2148. procedure SetSPWebPrefix(AIndex: Integer; const AValue: string);
  2149. procedure SetStartingNodeKey(AIndex: Integer; const AValue: string);
  2150. procedure SetStartingNodeTitle(AIndex: Integer; const AValue: string);
  2151. procedure SetVersion(AIndex: Integer; const AValue: string);
  2152. protected
  2153. {$IFDEF VER2_6}
  2154. procedure SetArrayLength(const AName: String; ALength: Longint)
  2155. ; Override;
  2156. {$ENDIF VER2_6}
  2157. public
  2158. class function ObjectRestKind : String; Override;
  2159. published
  2160. Property FriendlyUrlPrefix : string index 0 read FFriendlyUrlPrefix write SetFriendlyUrlPrefix;
  2161. Property Nodes : TSPMenuNodeArray index 8 read FNodes write SetNodes;
  2162. Property SimpleUrl : string index 16 read FSimpleUrl write SetSimpleUrl;
  2163. Property SPSitePrefix : string index 24 read FSPSitePrefix write SetSPSitePrefix;
  2164. Property SPWebPrefix : string index 32 read FSPWebPrefix write SetSPWebPrefix;
  2165. Property StartingNodeKey : string index 40 read FStartingNodeKey write SetStartingNodeKey;
  2166. Property StartingNodeTitle : string index 48 read FStartingNodeTitle write SetStartingNodeTitle;
  2167. Property Version : string index 56 read FVersion write SetVersion;
  2168. end;
  2169. { --------------------------------------------------------------------
  2170. SP: NavigationNodeCreationInformation
  2171. --------------------------------------------------------------------}
  2172. TSPNavigationNodeCreationInformation = Class(TODataEntity)
  2173. private
  2174. FAsLastNode : boolean;
  2175. FIsExternal : boolean;
  2176. FTitle : string;
  2177. FUrl : string;
  2178. procedure SetAsLastNode(AIndex: Integer; const AValue: boolean);
  2179. procedure SetIsExternal(AIndex: Integer; const AValue: boolean);
  2180. procedure SetTitle(AIndex: Integer; const AValue: string);
  2181. procedure SetUrl(AIndex: Integer; const AValue: string);
  2182. public
  2183. class function ObjectRestKind : String; Override;
  2184. published
  2185. Property AsLastNode : boolean index 0 read FAsLastNode write SetAsLastNode;
  2186. Property IsExternal : boolean index 8 read FIsExternal write SetIsExternal;
  2187. Property Title : string index 16 read FTitle write SetTitle;
  2188. Property Url : string index 24 read FUrl write SetUrl;
  2189. end;
  2190. { --------------------------------------------------------------------
  2191. SP: RelatedItem
  2192. --------------------------------------------------------------------}
  2193. TSPRelatedItem = Class(TODataEntity)
  2194. private
  2195. FIconUrl : string;
  2196. FItemId : TInt32;
  2197. FListId : string;
  2198. FTitle : string;
  2199. FUrl : string;
  2200. FWebId : string;
  2201. procedure SetIconUrl(AIndex: Integer; const AValue: string);
  2202. procedure SetItemId(AIndex: Integer; const AValue: TInt32);
  2203. procedure SetListId(AIndex: Integer; const AValue: string);
  2204. procedure SetTitle(AIndex: Integer; const AValue: string);
  2205. procedure SetUrl(AIndex: Integer; const AValue: string);
  2206. procedure SetWebId(AIndex: Integer; const AValue: string);
  2207. public
  2208. class function ObjectRestKind : String; Override;
  2209. published
  2210. Property IconUrl : string index 0 read FIconUrl write SetIconUrl;
  2211. Property ItemId : TInt32 index 8 read FItemId write SetItemId;
  2212. Property ListId : string index 16 read FListId write SetListId;
  2213. Property Title : string index 24 read FTitle write SetTitle;
  2214. Property Url : string index 32 read FUrl write SetUrl;
  2215. Property WebId : string index 40 read FWebId write SetWebId;
  2216. end;
  2217. { --------------------------------------------------------------------
  2218. SP: AppLicenseCollection
  2219. --------------------------------------------------------------------}
  2220. TSPAppLicenseCollection = Class(TODataEntity)
  2221. private
  2222. FItems : TSPAppLicenseArray;
  2223. procedure SetItems(AIndex: Integer; const AValue: TSPAppLicenseArray);
  2224. protected
  2225. {$IFDEF VER2_6}
  2226. procedure SetArrayLength(const AName: String; ALength: Longint)
  2227. ; Override;
  2228. {$ENDIF VER2_6}
  2229. public
  2230. class function ObjectRestKind : String; Override;
  2231. published
  2232. Property Items : TSPAppLicenseArray index 0 read FItems write SetItems;
  2233. end;
  2234. { --------------------------------------------------------------------
  2235. SP: AppLicense
  2236. --------------------------------------------------------------------}
  2237. TSPAppLicense = Class(TODataEntity)
  2238. private
  2239. FRawXMLLicenseToken : string;
  2240. procedure SetRawXMLLicenseToken(AIndex: Integer; const AValue: string);
  2241. public
  2242. class function ObjectRestKind : String; Override;
  2243. published
  2244. Property RawXMLLicenseToken : string index 0 read FRawXMLLicenseToken write SetRawXMLLicenseToken;
  2245. end;
  2246. { --------------------------------------------------------------------
  2247. SP: AttachmentCreationInformation
  2248. --------------------------------------------------------------------}
  2249. TSPAttachmentCreationInformation = Class(TODataEntity)
  2250. private
  2251. FFileName : string;
  2252. procedure SetFileName(AIndex: Integer; const AValue: string);
  2253. public
  2254. class function ObjectRestKind : String; Override;
  2255. published
  2256. Property FileName : string index 0 read FFileName write SetFileName;
  2257. end;
  2258. { --------------------------------------------------------------------
  2259. SP: BasePermissions
  2260. --------------------------------------------------------------------}
  2261. TSPBasePermissions = Class(TODataEntity)
  2262. private
  2263. FHigh : int64;
  2264. FLow : int64;
  2265. procedure SetHigh(AIndex: Integer; const AValue: int64);
  2266. procedure SetLow(AIndex: Integer; const AValue: int64);
  2267. public
  2268. class function ObjectRestKind : String; Override;
  2269. published
  2270. Property High : int64 index 0 read FHigh write SetHigh;
  2271. Property Low : int64 index 8 read FLow write SetLow;
  2272. end;
  2273. { --------------------------------------------------------------------
  2274. SP: ChangeLogItemQuery
  2275. --------------------------------------------------------------------}
  2276. TSPChangeLogItemQuery = Class(TODataEntity)
  2277. private
  2278. FChangeToken : string;
  2279. FContains : string;
  2280. FQuery : string;
  2281. FQueryOptions : string;
  2282. FRowLimit : string;
  2283. FViewFields : string;
  2284. FViewName : string;
  2285. procedure SetChangeToken(AIndex: Integer; const AValue: string);
  2286. procedure SetContains(AIndex: Integer; const AValue: string);
  2287. procedure SetQuery(AIndex: Integer; const AValue: string);
  2288. procedure SetQueryOptions(AIndex: Integer; const AValue: string);
  2289. procedure SetRowLimit(AIndex: Integer; const AValue: string);
  2290. procedure SetViewFields(AIndex: Integer; const AValue: string);
  2291. procedure SetViewName(AIndex: Integer; const AValue: string);
  2292. public
  2293. class function ObjectRestKind : String; Override;
  2294. published
  2295. Property ChangeToken : string index 0 read FChangeToken write SetChangeToken;
  2296. Property Contains : string index 8 read FContains write SetContains;
  2297. Property Query : string index 16 read FQuery write SetQuery;
  2298. Property QueryOptions : string index 24 read FQueryOptions write SetQueryOptions;
  2299. Property RowLimit : string index 32 read FRowLimit write SetRowLimit;
  2300. Property ViewFields : string index 40 read FViewFields write SetViewFields;
  2301. Property ViewName : string index 48 read FViewName write SetViewName;
  2302. end;
  2303. { --------------------------------------------------------------------
  2304. SP: ChangeQuery
  2305. --------------------------------------------------------------------}
  2306. TSPChangeQuery = Class(TODataEntity)
  2307. private
  2308. FAdd : boolean;
  2309. FAlert : boolean;
  2310. FChangeTokenEnd : TSPChangeToken;
  2311. FChangeTokenStart : TSPChangeToken;
  2312. FContentType : boolean;
  2313. FDeleteObject : boolean;
  2314. FField : boolean;
  2315. F_File : boolean;
  2316. FFolder : boolean;
  2317. FGroup : boolean;
  2318. FGroupMembershipAdd : boolean;
  2319. FGroupMembershipDelete : boolean;
  2320. FItem : boolean;
  2321. FList : boolean;
  2322. FMove : boolean;
  2323. FNavigation : boolean;
  2324. FRename : boolean;
  2325. FRestore : boolean;
  2326. FRoleAssignmentAdd : boolean;
  2327. FRoleAssignmentDelete : boolean;
  2328. FRoleDefinitionAdd : boolean;
  2329. FRoleDefinitionDelete : boolean;
  2330. FRoleDefinitionUpdate : boolean;
  2331. FSecurityPolicy : boolean;
  2332. FSite : boolean;
  2333. FSystemUpdate : boolean;
  2334. FUpdate : boolean;
  2335. FUser : boolean;
  2336. FView : boolean;
  2337. FWeb : boolean;
  2338. procedure SetAdd(AIndex: Integer; const AValue: boolean);
  2339. procedure SetAlert(AIndex: Integer; const AValue: boolean);
  2340. procedure SetChangeTokenEnd(AIndex: Integer;
  2341. const AValue: TSPChangeToken);
  2342. procedure SetChangeTokenStart(AIndex: Integer;
  2343. const AValue: TSPChangeToken);
  2344. procedure SetContentType(AIndex: Integer; const AValue: boolean);
  2345. procedure SetDeleteObject(AIndex: Integer; const AValue: boolean);
  2346. procedure SetField(AIndex: Integer; const AValue: boolean);
  2347. procedure Set_File(AIndex: Integer; const AValue: boolean);
  2348. procedure SetFolder(AIndex: Integer; const AValue: boolean);
  2349. procedure SetGroup(AIndex: Integer; const AValue: boolean);
  2350. procedure SetGroupMembershipAdd(AIndex: Integer; const AValue: boolean);
  2351. procedure SetGroupMembershipDelete(AIndex: Integer;
  2352. const AValue: boolean);
  2353. procedure SetItem(AIndex: Integer; const AValue: boolean);
  2354. procedure SetList(AIndex: Integer; const AValue: boolean);
  2355. procedure SetMove(AIndex: Integer; const AValue: boolean);
  2356. procedure SetNavigation(AIndex: Integer; const AValue: boolean);
  2357. procedure SetRename(AIndex: Integer; const AValue: boolean);
  2358. procedure SetRestore(AIndex: Integer; const AValue: boolean);
  2359. procedure SetRoleAssignmentAdd(AIndex: Integer; const AValue: boolean);
  2360. procedure SetRoleAssignmentDelete(AIndex: Integer;
  2361. const AValue: boolean);
  2362. procedure SetRoleDefinitionAdd(AIndex: Integer; const AValue: boolean);
  2363. procedure SetRoleDefinitionDelete(AIndex: Integer;
  2364. const AValue: boolean);
  2365. procedure SetRoleDefinitionUpdate(AIndex: Integer;
  2366. const AValue: boolean);
  2367. procedure SetSecurityPolicy(AIndex: Integer; const AValue: boolean);
  2368. procedure SetSite(AIndex: Integer; const AValue: boolean);
  2369. procedure SetSystemUpdate(AIndex: Integer; const AValue: boolean);
  2370. procedure SetUpdate(AIndex: Integer; const AValue: boolean);
  2371. procedure SetUser(AIndex: Integer; const AValue: boolean);
  2372. procedure SetView(AIndex: Integer; const AValue: boolean);
  2373. procedure SetWeb(AIndex: Integer; const AValue: boolean);
  2374. public
  2375. class function ObjectRestKind : String; Override;
  2376. class function ExportPropertyName(const AName: String) : String
  2377. ; Override;
  2378. published
  2379. Property Add : boolean index 0 read FAdd write SetAdd;
  2380. Property Alert : boolean index 8 read FAlert write SetAlert;
  2381. Property ChangeTokenEnd : TSPChangeToken index 16 read FChangeTokenEnd write SetChangeTokenEnd;
  2382. Property ChangeTokenStart : TSPChangeToken index 24 read FChangeTokenStart write SetChangeTokenStart;
  2383. Property ContentType : boolean index 32 read FContentType write SetContentType;
  2384. Property DeleteObject : boolean index 40 read FDeleteObject write SetDeleteObject;
  2385. Property Field : boolean index 48 read FField write SetField;
  2386. Property _File : boolean index 56 read F_File write Set_File;
  2387. Property Folder : boolean index 64 read FFolder write SetFolder;
  2388. Property Group : boolean index 72 read FGroup write SetGroup;
  2389. Property GroupMembershipAdd : boolean index 80 read FGroupMembershipAdd write SetGroupMembershipAdd;
  2390. Property GroupMembershipDelete : boolean index 88 read FGroupMembershipDelete write SetGroupMembershipDelete;
  2391. Property Item : boolean index 96 read FItem write SetItem;
  2392. Property List : boolean index 104 read FList write SetList;
  2393. Property Move : boolean index 112 read FMove write SetMove;
  2394. Property Navigation : boolean index 120 read FNavigation write SetNavigation;
  2395. Property Rename : boolean index 128 read FRename write SetRename;
  2396. Property Restore : boolean index 136 read FRestore write SetRestore;
  2397. Property RoleAssignmentAdd : boolean index 144 read FRoleAssignmentAdd write SetRoleAssignmentAdd;
  2398. Property RoleAssignmentDelete : boolean index 152 read FRoleAssignmentDelete write SetRoleAssignmentDelete;
  2399. Property RoleDefinitionAdd : boolean index 160 read FRoleDefinitionAdd write SetRoleDefinitionAdd;
  2400. Property RoleDefinitionDelete : boolean index 168 read FRoleDefinitionDelete write SetRoleDefinitionDelete;
  2401. Property RoleDefinitionUpdate : boolean index 176 read FRoleDefinitionUpdate write SetRoleDefinitionUpdate;
  2402. Property SecurityPolicy : boolean index 184 read FSecurityPolicy write SetSecurityPolicy;
  2403. Property Site : boolean index 192 read FSite write SetSite;
  2404. Property SystemUpdate : boolean index 200 read FSystemUpdate write SetSystemUpdate;
  2405. Property Update : boolean index 208 read FUpdate write SetUpdate;
  2406. Property User : boolean index 216 read FUser write SetUser;
  2407. Property View : boolean index 224 read FView write SetView;
  2408. Property Web : boolean index 232 read FWeb write SetWeb;
  2409. end;
  2410. { --------------------------------------------------------------------
  2411. SP: ChangeToken
  2412. --------------------------------------------------------------------}
  2413. TSPChangeToken = Class(TODataEntity)
  2414. private
  2415. FStringValue : string;
  2416. procedure SetStringValue(AIndex: Integer; const AValue: string);
  2417. public
  2418. class function ObjectRestKind : String; Override;
  2419. published
  2420. Property StringValue : string index 0 read FStringValue write SetStringValue;
  2421. end;
  2422. { --------------------------------------------------------------------
  2423. SP: ContentTypeCreationInformation
  2424. --------------------------------------------------------------------}
  2425. TSPContentTypeCreationInformation = Class(TODataEntity)
  2426. private
  2427. FDescription : string;
  2428. FGroup : string;
  2429. FId : string;
  2430. FName : string;
  2431. procedure SetDescription(AIndex: Integer; const AValue: string);
  2432. procedure SetGroup(AIndex: Integer; const AValue: string);
  2433. procedure SetId(AIndex: Integer; const AValue: string);
  2434. procedure SetName(AIndex: Integer; const AValue: string);
  2435. public
  2436. class function ObjectRestKind : String; Override;
  2437. published
  2438. Property Description : string index 0 read FDescription write SetDescription;
  2439. Property Group : string index 8 read FGroup write SetGroup;
  2440. Property Id : string index 16 read FId write SetId;
  2441. Property Name : string index 24 read FName write SetName;
  2442. end;
  2443. { --------------------------------------------------------------------
  2444. SP: ContextWebInformation
  2445. --------------------------------------------------------------------}
  2446. TSPContextWebInformation = Class(TODataEntity)
  2447. private
  2448. FFormDigestTimeoutSeconds : TInt32;
  2449. FFormDigestValue : string;
  2450. FLibraryVersion : string;
  2451. FSiteFullUrl : string;
  2452. FSupportedSchemaVersions : TStringArray;
  2453. FWebFullUrl : string;
  2454. procedure SetFormDigestTimeoutSeconds(AIndex: Integer;
  2455. const AValue: TInt32);
  2456. procedure SetFormDigestValue(AIndex: Integer; const AValue: string);
  2457. procedure SetLibraryVersion(AIndex: Integer; const AValue: string);
  2458. procedure SetSiteFullUrl(AIndex: Integer; const AValue: string);
  2459. procedure SetSupportedSchemaVersions(AIndex: Integer;
  2460. const AValue: TStringArray);
  2461. procedure SetWebFullUrl(AIndex: Integer; const AValue: string);
  2462. protected
  2463. {$IFDEF VER2_6}
  2464. procedure SetArrayLength(const AName: String; ALength: Longint)
  2465. ; Override;
  2466. {$ENDIF VER2_6}
  2467. public
  2468. class function ObjectRestKind : String; Override;
  2469. published
  2470. Property FormDigestTimeoutSeconds : TInt32 index 0 read FFormDigestTimeoutSeconds write SetFormDigestTimeoutSeconds;
  2471. Property FormDigestValue : string index 8 read FFormDigestValue write SetFormDigestValue;
  2472. Property LibraryVersion : string index 16 read FLibraryVersion write SetLibraryVersion;
  2473. Property SiteFullUrl : string index 24 read FSiteFullUrl write SetSiteFullUrl;
  2474. Property SupportedSchemaVersions : TStringArray index 32 read FSupportedSchemaVersions write SetSupportedSchemaVersions;
  2475. Property WebFullUrl : string index 40 read FWebFullUrl write SetWebFullUrl;
  2476. end;
  2477. { --------------------------------------------------------------------
  2478. SP: DocumentLibraryInformation
  2479. --------------------------------------------------------------------}
  2480. TSPDocumentLibraryInformation = Class(TODataEntity)
  2481. private
  2482. FModified : TDateTime;
  2483. FModifiedFriendlyDisplay : string;
  2484. FServerRelativeUrl : string;
  2485. FTitle : string;
  2486. procedure SetModified(AIndex: Integer; const AValue: TDateTime);
  2487. procedure SetModifiedFriendlyDisplay(AIndex: Integer;
  2488. const AValue: string);
  2489. procedure SetServerRelativeUrl(AIndex: Integer; const AValue: string);
  2490. procedure SetTitle(AIndex: Integer; const AValue: string);
  2491. public
  2492. class function ObjectRestKind : String; Override;
  2493. published
  2494. Property Modified : TDateTime index 0 read FModified write SetModified;
  2495. Property ModifiedFriendlyDisplay : string index 8 read FModifiedFriendlyDisplay write SetModifiedFriendlyDisplay;
  2496. Property ServerRelativeUrl : string index 16 read FServerRelativeUrl write SetServerRelativeUrl;
  2497. Property Title : string index 24 read FTitle write SetTitle;
  2498. end;
  2499. { --------------------------------------------------------------------
  2500. SP: EventReceiverDefinitionCreationInformation
  2501. --------------------------------------------------------------------}
  2502. TSPEventReceiverDefinitionCreationInformation = Class(TODataEntity)
  2503. private
  2504. FReceiverAssembly : string;
  2505. FReceiverClass : string;
  2506. FReceiverName : string;
  2507. FSequenceNumber : TInt32;
  2508. FSynchronization : TInt32;
  2509. FEventType : TInt32;
  2510. FReceiverUrl : string;
  2511. procedure SetReceiverAssembly(AIndex: Integer; const AValue: string);
  2512. procedure SetReceiverClass(AIndex: Integer; const AValue: string);
  2513. procedure SetReceiverName(AIndex: Integer; const AValue: string);
  2514. procedure SetSequenceNumber(AIndex: Integer; const AValue: TInt32);
  2515. procedure SetSynchronization(AIndex: Integer; const AValue: TInt32);
  2516. procedure SetEventType(AIndex: Integer; const AValue: TInt32);
  2517. procedure SetReceiverUrl(AIndex: Integer; const AValue: string);
  2518. public
  2519. class function ObjectRestKind : String; Override;
  2520. published
  2521. Property ReceiverAssembly : string index 0 read FReceiverAssembly write SetReceiverAssembly;
  2522. Property ReceiverClass : string index 8 read FReceiverClass write SetReceiverClass;
  2523. Property ReceiverName : string index 16 read FReceiverName write SetReceiverName;
  2524. Property SequenceNumber : TInt32 index 24 read FSequenceNumber write SetSequenceNumber;
  2525. Property Synchronization : TInt32 index 32 read FSynchronization write SetSynchronization;
  2526. Property EventType : TInt32 index 40 read FEventType write SetEventType;
  2527. Property ReceiverUrl : string index 48 read FReceiverUrl write SetReceiverUrl;
  2528. end;
  2529. { --------------------------------------------------------------------
  2530. SP: ListDataValidationFailure
  2531. --------------------------------------------------------------------}
  2532. TSPListDataValidationFailure = Class(TODataEntity)
  2533. private
  2534. FDisplayName : string;
  2535. FMessage : string;
  2536. FName : string;
  2537. FReason : TInt32;
  2538. FValidationType : TInt32;
  2539. procedure SetDisplayName(AIndex: Integer; const AValue: string);
  2540. procedure SetMessage(AIndex: Integer; const AValue: string);
  2541. procedure SetName(AIndex: Integer; const AValue: string);
  2542. procedure SetReason(AIndex: Integer; const AValue: TInt32);
  2543. procedure SetValidationType(AIndex: Integer; const AValue: TInt32);
  2544. public
  2545. class function ObjectRestKind : String; Override;
  2546. published
  2547. Property DisplayName : string index 0 read FDisplayName write SetDisplayName;
  2548. Property Message : string index 8 read FMessage write SetMessage;
  2549. Property Name : string index 16 read FName write SetName;
  2550. Property Reason : TInt32 index 24 read FReason write SetReason;
  2551. Property ValidationType : TInt32 index 32 read FValidationType write SetValidationType;
  2552. end;
  2553. { --------------------------------------------------------------------
  2554. SP: FieldCalculatedErrorValue
  2555. --------------------------------------------------------------------}
  2556. TSPFieldCalculatedErrorValue = Class(TODataEntity)
  2557. private
  2558. FErrorMessage : string;
  2559. procedure SetErrorMessage(AIndex: Integer; const AValue: string);
  2560. public
  2561. class function ObjectRestKind : String; Override;
  2562. published
  2563. Property ErrorMessage : string index 0 read FErrorMessage write SetErrorMessage;
  2564. end;
  2565. { --------------------------------------------------------------------
  2566. SP: FieldCreationInformation
  2567. --------------------------------------------------------------------}
  2568. TSPFieldCreationInformation = Class(TODataEntity)
  2569. private
  2570. FChoices : TStringArray;
  2571. FIsCompactName : boolean;
  2572. FLookupFieldName : string;
  2573. FLookupListId : TGUIDString;
  2574. FLookupWebId : TGUIDString;
  2575. FRequired : boolean;
  2576. FTitle : string;
  2577. FFieldTypeKind : TInt32;
  2578. procedure SetChoices(AIndex: Integer; const AValue: TStringArray);
  2579. procedure SetIsCompactName(AIndex: Integer; const AValue: boolean);
  2580. procedure SetLookupFieldName(AIndex: Integer; const AValue: string);
  2581. procedure SetLookupListId(AIndex: Integer; const AValue: TGUIDString);
  2582. procedure SetLookupWebId(AIndex: Integer; const AValue: TGUIDString);
  2583. procedure SetRequired(AIndex: Integer; const AValue: boolean);
  2584. procedure SetTitle(AIndex: Integer; const AValue: string);
  2585. procedure SetFieldTypeKind(AIndex: Integer; const AValue: TInt32);
  2586. protected
  2587. {$IFDEF VER2_6}
  2588. procedure SetArrayLength(const AName: String; ALength: Longint)
  2589. ; Override;
  2590. {$ENDIF VER2_6}
  2591. public
  2592. class function ObjectRestKind : String; Override;
  2593. published
  2594. Property Choices : TStringArray index 0 read FChoices write SetChoices;
  2595. Property IsCompactName : boolean index 8 read FIsCompactName write SetIsCompactName;
  2596. Property LookupFieldName : string index 16 read FLookupFieldName write SetLookupFieldName;
  2597. Property LookupListId : TGUIDString index 24 read FLookupListId write SetLookupListId;
  2598. Property LookupWebId : TGUIDString index 32 read FLookupWebId write SetLookupWebId;
  2599. Property Required : boolean index 40 read FRequired write SetRequired;
  2600. Property Title : string index 48 read FTitle write SetTitle;
  2601. Property FieldTypeKind : TInt32 index 56 read FFieldTypeKind write SetFieldTypeKind;
  2602. end;
  2603. { --------------------------------------------------------------------
  2604. SP: FieldGeolocationValue
  2605. --------------------------------------------------------------------}
  2606. TSPFieldGeolocationValue = Class(TODataEntity)
  2607. private
  2608. FAltitude : Double;
  2609. FLatitude : Double;
  2610. FLongitude : Double;
  2611. FMeasure : Double;
  2612. procedure SetAltitude(AIndex: Integer; const AValue: Double);
  2613. procedure SetLatitude(AIndex: Integer; const AValue: Double);
  2614. procedure SetLongitude(AIndex: Integer; const AValue: Double);
  2615. procedure SetMeasure(AIndex: Integer; const AValue: Double);
  2616. public
  2617. class function ObjectRestKind : String; Override;
  2618. published
  2619. Property Altitude : Double index 0 read FAltitude write SetAltitude;
  2620. Property Latitude : Double index 8 read FLatitude write SetLatitude;
  2621. Property Longitude : Double index 16 read FLongitude write SetLongitude;
  2622. Property Measure : Double index 24 read FMeasure write SetMeasure;
  2623. end;
  2624. { --------------------------------------------------------------------
  2625. SP: FieldRatingScaleQuestionAnswer
  2626. --------------------------------------------------------------------}
  2627. TSPFieldRatingScaleQuestionAnswer = Class(TODataEntity)
  2628. private
  2629. FAnswer : TInt32;
  2630. FQuestion : string;
  2631. procedure SetAnswer(AIndex: Integer; const AValue: TInt32);
  2632. procedure SetQuestion(AIndex: Integer; const AValue: string);
  2633. public
  2634. class function ObjectRestKind : String; Override;
  2635. published
  2636. Property Answer : TInt32 index 0 read FAnswer write SetAnswer;
  2637. Property Question : string index 8 read FQuestion write SetQuestion;
  2638. end;
  2639. { --------------------------------------------------------------------
  2640. SP: FieldUrlValue
  2641. --------------------------------------------------------------------}
  2642. TSPFieldUrlValue = Class(TODataEntity)
  2643. private
  2644. FDescription : string;
  2645. FUrl : string;
  2646. procedure SetDescription(AIndex: Integer; const AValue: string);
  2647. procedure SetUrl(AIndex: Integer; const AValue: string);
  2648. public
  2649. class function ObjectRestKind : String; Override;
  2650. published
  2651. Property Description : string index 0 read FDescription write SetDescription;
  2652. Property Url : string index 8 read FUrl write SetUrl;
  2653. end;
  2654. { --------------------------------------------------------------------
  2655. SP: FileCreationInformation
  2656. --------------------------------------------------------------------}
  2657. TSPFileCreationInformation = Class(TODataEntity)
  2658. private
  2659. FContent : TBinary;
  2660. FOverwrite : boolean;
  2661. FUrl : string;
  2662. procedure SetContent(AIndex: Integer; const AValue: TBinary);
  2663. procedure SetOverwrite(AIndex: Integer; const AValue: boolean);
  2664. procedure SetUrl(AIndex: Integer; const AValue: string);
  2665. public
  2666. class function ObjectRestKind : String; Override;
  2667. published
  2668. Property Content : TBinary index 0 read FContent write SetContent;
  2669. Property Overwrite : boolean index 8 read FOverwrite write SetOverwrite;
  2670. Property Url : string index 16 read FUrl write SetUrl;
  2671. end;
  2672. { --------------------------------------------------------------------
  2673. SP: GroupCreationInformation
  2674. --------------------------------------------------------------------}
  2675. TSPGroupCreationInformation = Class(TODataEntity)
  2676. private
  2677. FDescription : string;
  2678. FTitle : string;
  2679. procedure SetDescription(AIndex: Integer; const AValue: string);
  2680. procedure SetTitle(AIndex: Integer; const AValue: string);
  2681. public
  2682. class function ObjectRestKind : String; Override;
  2683. published
  2684. Property Description : string index 0 read FDescription write SetDescription;
  2685. Property Title : string index 8 read FTitle write SetTitle;
  2686. end;
  2687. { --------------------------------------------------------------------
  2688. SP: SPInvitationCreationResult
  2689. --------------------------------------------------------------------}
  2690. TSPSPInvitationCreationResult = Class(TODataEntity)
  2691. private
  2692. FEmail : string;
  2693. FInvitationLink : string;
  2694. FSucceeded : boolean;
  2695. procedure SetEmail(AIndex: Integer; const AValue: string);
  2696. procedure SetInvitationLink(AIndex: Integer; const AValue: string);
  2697. procedure SetSucceeded(AIndex: Integer; const AValue: boolean);
  2698. public
  2699. class function ObjectRestKind : String; Override;
  2700. published
  2701. Property Email : string index 0 read FEmail write SetEmail;
  2702. Property InvitationLink : string index 8 read FInvitationLink write SetInvitationLink;
  2703. Property Succeeded : boolean index 16 read FSucceeded write SetSucceeded;
  2704. end;
  2705. { --------------------------------------------------------------------
  2706. SP: Language
  2707. --------------------------------------------------------------------}
  2708. TSPLanguage = Class(TODataEntity)
  2709. private
  2710. FDisplayName : string;
  2711. FLanguageTag : string;
  2712. FLcid : TInt32;
  2713. procedure SetDisplayName(AIndex: Integer; const AValue: string);
  2714. procedure SetLanguageTag(AIndex: Integer; const AValue: string);
  2715. procedure SetLcid(AIndex: Integer; const AValue: TInt32);
  2716. public
  2717. class function ObjectRestKind : String; Override;
  2718. published
  2719. Property DisplayName : string index 0 read FDisplayName write SetDisplayName;
  2720. Property LanguageTag : string index 8 read FLanguageTag write SetLanguageTag;
  2721. Property Lcid : TInt32 index 16 read FLcid write SetLcid;
  2722. end;
  2723. { --------------------------------------------------------------------
  2724. SP: ListCreationInformation
  2725. --------------------------------------------------------------------}
  2726. TSPListCreationInformation = Class(TODataEntity)
  2727. private
  2728. FCustomSchemaXml : string;
  2729. FDataSourceProperties : TSPKeyValueArray;
  2730. FDescription : string;
  2731. FDocumentTemplateType : TInt32;
  2732. FQuickLaunchOption : TInt32;
  2733. FTemplateFeatureId : TGUIDString;
  2734. FTemplateType : TInt32;
  2735. FTitle : string;
  2736. FUrl : string;
  2737. procedure SetCustomSchemaXml(AIndex: Integer; const AValue: string);
  2738. procedure SetDataSourceProperties(AIndex: Integer;
  2739. const AValue: TSPKeyValueArray);
  2740. procedure SetDescription(AIndex: Integer; const AValue: string);
  2741. procedure SetDocumentTemplateType(AIndex: Integer; const AValue: TInt32);
  2742. procedure SetQuickLaunchOption(AIndex: Integer; const AValue: TInt32);
  2743. procedure SetTemplateFeatureId(AIndex: Integer;
  2744. const AValue: TGUIDString);
  2745. procedure SetTemplateType(AIndex: Integer; const AValue: TInt32);
  2746. procedure SetTitle(AIndex: Integer; const AValue: string);
  2747. procedure SetUrl(AIndex: Integer; const AValue: string);
  2748. protected
  2749. {$IFDEF VER2_6}
  2750. procedure SetArrayLength(const AName: String; ALength: Longint)
  2751. ; Override;
  2752. {$ENDIF VER2_6}
  2753. public
  2754. class function ObjectRestKind : String; Override;
  2755. published
  2756. Property CustomSchemaXml : string index 0 read FCustomSchemaXml write SetCustomSchemaXml;
  2757. Property DataSourceProperties : TSPKeyValueArray index 8 read FDataSourceProperties write SetDataSourceProperties;
  2758. Property Description : string index 16 read FDescription write SetDescription;
  2759. Property DocumentTemplateType : TInt32 index 24 read FDocumentTemplateType write SetDocumentTemplateType;
  2760. Property QuickLaunchOption : TInt32 index 32 read FQuickLaunchOption write SetQuickLaunchOption;
  2761. Property TemplateFeatureId : TGUIDString index 40 read FTemplateFeatureId write SetTemplateFeatureId;
  2762. Property TemplateType : TInt32 index 48 read FTemplateType write SetTemplateType;
  2763. Property Title : string index 56 read FTitle write SetTitle;
  2764. Property Url : string index 64 read FUrl write SetUrl;
  2765. end;
  2766. { --------------------------------------------------------------------
  2767. SP: ListDataSource
  2768. --------------------------------------------------------------------}
  2769. TSPListDataSource = Class(TODataEntity)
  2770. private
  2771. FProperties : TSPKeyValueArray;
  2772. procedure SetProperties(AIndex: Integer; const AValue: TSPKeyValueArray);
  2773. protected
  2774. {$IFDEF VER2_6}
  2775. procedure SetArrayLength(const AName: String; ALength: Longint)
  2776. ; Override;
  2777. {$ENDIF VER2_6}
  2778. public
  2779. class function ObjectRestKind : String; Override;
  2780. published
  2781. Property Properties : TSPKeyValueArray index 0 read FProperties write SetProperties;
  2782. end;
  2783. { --------------------------------------------------------------------
  2784. SP: ListDataValidationExceptionValue
  2785. --------------------------------------------------------------------}
  2786. TSPListDataValidationExceptionValue = Class(TODataEntity)
  2787. private
  2788. FFieldFailures : TSPListDataValidationFailureArray;
  2789. FItemFailure : TSPListDataValidationFailure;
  2790. procedure SetFieldFailures(AIndex: Integer;
  2791. const AValue: TSPListDataValidationFailureArray);
  2792. procedure SetItemFailure(AIndex: Integer;
  2793. const AValue: TSPListDataValidationFailure);
  2794. protected
  2795. {$IFDEF VER2_6}
  2796. procedure SetArrayLength(const AName: String; ALength: Longint)
  2797. ; Override;
  2798. {$ENDIF VER2_6}
  2799. public
  2800. class function ObjectRestKind : String; Override;
  2801. published
  2802. Property FieldFailures : TSPListDataValidationFailureArray index 0 read FFieldFailures write SetFieldFailures;
  2803. Property ItemFailure : TSPListDataValidationFailure index 8 read FItemFailure write SetItemFailure;
  2804. end;
  2805. { --------------------------------------------------------------------
  2806. SP: ListItemCollectionPosition
  2807. --------------------------------------------------------------------}
  2808. TSPListItemCollectionPosition = Class(TODataEntity)
  2809. private
  2810. FPagingInfo : string;
  2811. procedure SetPagingInfo(AIndex: Integer; const AValue: string);
  2812. public
  2813. class function ObjectRestKind : String; Override;
  2814. published
  2815. Property PagingInfo : string index 0 read FPagingInfo write SetPagingInfo;
  2816. end;
  2817. { --------------------------------------------------------------------
  2818. SP: ListItemCreationInformation
  2819. --------------------------------------------------------------------}
  2820. TSPListItemCreationInformation = Class(TODataEntity)
  2821. private
  2822. FFolderUrl : string;
  2823. FLeafName : string;
  2824. FUnderlyingObjectType : TInt32;
  2825. procedure SetFolderUrl(AIndex: Integer; const AValue: string);
  2826. procedure SetLeafName(AIndex: Integer; const AValue: string);
  2827. procedure SetUnderlyingObjectType(AIndex: Integer; const AValue: TInt32);
  2828. public
  2829. class function ObjectRestKind : String; Override;
  2830. published
  2831. Property FolderUrl : string index 0 read FFolderUrl write SetFolderUrl;
  2832. Property LeafName : string index 8 read FLeafName write SetLeafName;
  2833. Property UnderlyingObjectType : TInt32 index 16 read FUnderlyingObjectType write SetUnderlyingObjectType;
  2834. end;
  2835. { --------------------------------------------------------------------
  2836. SP: ListItemFormUpdateValue
  2837. --------------------------------------------------------------------}
  2838. TSPListItemFormUpdateValue = Class(TODataEntity)
  2839. private
  2840. FErrorMessage : string;
  2841. FFieldName : string;
  2842. FFieldValue : string;
  2843. FHasException : boolean;
  2844. procedure SetErrorMessage(AIndex: Integer; const AValue: string);
  2845. procedure SetFieldName(AIndex: Integer; const AValue: string);
  2846. procedure SetFieldValue(AIndex: Integer; const AValue: string);
  2847. procedure SetHasException(AIndex: Integer; const AValue: boolean);
  2848. public
  2849. class function ObjectRestKind : String; Override;
  2850. published
  2851. Property ErrorMessage : string index 0 read FErrorMessage write SetErrorMessage;
  2852. Property FieldName : string index 8 read FFieldName write SetFieldName;
  2853. Property FieldValue : string index 16 read FFieldValue write SetFieldValue;
  2854. Property HasException : boolean index 24 read FHasException write SetHasException;
  2855. end;
  2856. { --------------------------------------------------------------------
  2857. SP: CamlQuery
  2858. --------------------------------------------------------------------}
  2859. TSPCamlQuery = Class(TODataEntity)
  2860. private
  2861. FDatesInUtc : boolean;
  2862. FFolderServerRelativeUrl : string;
  2863. FListItemCollectionPosition : TSPListItemCollectionPosition;
  2864. FViewXml : string;
  2865. procedure SetDatesInUtc(AIndex: Integer; const AValue: boolean);
  2866. procedure SetFolderServerRelativeUrl(AIndex: Integer;
  2867. const AValue: string);
  2868. procedure SetListItemCollectionPosition(AIndex: Integer;
  2869. const AValue: TSPListItemCollectionPosition);
  2870. procedure SetViewXml(AIndex: Integer; const AValue: string);
  2871. public
  2872. class function ObjectRestKind : String; Override;
  2873. published
  2874. Property DatesInUtc : boolean index 0 read FDatesInUtc write SetDatesInUtc;
  2875. Property FolderServerRelativeUrl : string index 8 read FFolderServerRelativeUrl write SetFolderServerRelativeUrl;
  2876. Property ListItemCollectionPosition : TSPListItemCollectionPosition index 16 read FListItemCollectionPosition write SetListItemCollectionPosition;
  2877. Property ViewXml : string index 24 read FViewXml write SetViewXml;
  2878. end;
  2879. { --------------------------------------------------------------------
  2880. SP: RenderListContextMenuDataParameters
  2881. --------------------------------------------------------------------}
  2882. TSPRenderListContextMenuDataParameters = Class(TODataEntity)
  2883. private
  2884. FCascDelWarnMessage : string;
  2885. FCustomAction : string;
  2886. FField : string;
  2887. FID : string;
  2888. FInplaceFullListSearch : string;
  2889. FInplaceSearchQuery : string;
  2890. FIsCSR : string;
  2891. FIsXslView : string;
  2892. FItemId : string;
  2893. FListViewPageUrl : string;
  2894. FOverrideScope : string;
  2895. FRootFolder : string;
  2896. FView : string;
  2897. FViewCount : string;
  2898. procedure SetCascDelWarnMessage(AIndex: Integer; const AValue: string);
  2899. procedure SetCustomAction(AIndex: Integer; const AValue: string);
  2900. procedure SetField(AIndex: Integer; const AValue: string);
  2901. procedure SetID(AIndex: Integer; const AValue: string);
  2902. procedure SetInplaceFullListSearch(AIndex: Integer;
  2903. const AValue: string);
  2904. procedure SetInplaceSearchQuery(AIndex: Integer; const AValue: string);
  2905. procedure SetIsCSR(AIndex: Integer; const AValue: string);
  2906. procedure SetIsXslView(AIndex: Integer; const AValue: string);
  2907. procedure SetItemId(AIndex: Integer; const AValue: string);
  2908. procedure SetListViewPageUrl(AIndex: Integer; const AValue: string);
  2909. procedure SetOverrideScope(AIndex: Integer; const AValue: string);
  2910. procedure SetRootFolder(AIndex: Integer; const AValue: string);
  2911. procedure SetView(AIndex: Integer; const AValue: string);
  2912. procedure SetViewCount(AIndex: Integer; const AValue: string);
  2913. public
  2914. class function ObjectRestKind : String; Override;
  2915. published
  2916. Property CascDelWarnMessage : string index 0 read FCascDelWarnMessage write SetCascDelWarnMessage;
  2917. Property CustomAction : string index 8 read FCustomAction write SetCustomAction;
  2918. Property Field : string index 16 read FField write SetField;
  2919. Property ID : string index 24 read FID write SetID;
  2920. Property InplaceFullListSearch : string index 32 read FInplaceFullListSearch write SetInplaceFullListSearch;
  2921. Property InplaceSearchQuery : string index 40 read FInplaceSearchQuery write SetInplaceSearchQuery;
  2922. Property IsCSR : string index 48 read FIsCSR write SetIsCSR;
  2923. Property IsXslView : string index 56 read FIsXslView write SetIsXslView;
  2924. Property ItemId : string index 64 read FItemId write SetItemId;
  2925. Property ListViewPageUrl : string index 72 read FListViewPageUrl write SetListViewPageUrl;
  2926. Property OverrideScope : string index 80 read FOverrideScope write SetOverrideScope;
  2927. Property RootFolder : string index 88 read FRootFolder write SetRootFolder;
  2928. Property View : string index 96 read FView write SetView;
  2929. Property ViewCount : string index 104 read FViewCount write SetViewCount;
  2930. end;
  2931. { --------------------------------------------------------------------
  2932. SP: RenderListDataOverrideParameters
  2933. --------------------------------------------------------------------}
  2934. TSPRenderListDataOverrideParameters = Class(TODataEntity)
  2935. private
  2936. FCascDelWarnMessage : string;
  2937. FCustomAction : string;
  2938. FDrillDown : string;
  2939. FField : string;
  2940. FFieldInternalName : string;
  2941. FFilter : string;
  2942. FFilterData : string;
  2943. FFilterData1 : string;
  2944. FFilterData10 : string;
  2945. FFilterData2 : string;
  2946. FFilterData3 : string;
  2947. FFilterData4 : string;
  2948. FFilterData5 : string;
  2949. FFilterData6 : string;
  2950. FFilterData7 : string;
  2951. FFilterData8 : string;
  2952. FFilterData9 : string;
  2953. FFilterField : string;
  2954. FFilterField1 : string;
  2955. FFilterField10 : string;
  2956. FFilterField2 : string;
  2957. FFilterField3 : string;
  2958. FFilterField4 : string;
  2959. FFilterField5 : string;
  2960. FFilterField6 : string;
  2961. FFilterField7 : string;
  2962. FFilterField8 : string;
  2963. FFilterField9 : string;
  2964. FFilterFields : string;
  2965. FFilterFields1 : string;
  2966. FFilterFields10 : string;
  2967. FFilterFields2 : string;
  2968. FFilterFields3 : string;
  2969. FFilterFields4 : string;
  2970. FFilterFields5 : string;
  2971. FFilterFields6 : string;
  2972. FFilterFields7 : string;
  2973. FFilterFields8 : string;
  2974. FFilterFields9 : string;
  2975. FFilterLookupId : string;
  2976. FFilterLookupId1 : string;
  2977. FFilterLookupId10 : string;
  2978. FFilterLookupId2 : string;
  2979. FFilterLookupId3 : string;
  2980. FFilterLookupId4 : string;
  2981. FFilterLookupId5 : string;
  2982. FFilterLookupId6 : string;
  2983. FFilterLookupId7 : string;
  2984. FFilterLookupId8 : string;
  2985. FFilterLookupId9 : string;
  2986. FFilterOp : string;
  2987. FFilterOp1 : string;
  2988. FFilterOp10 : string;
  2989. FFilterOp2 : string;
  2990. FFilterOp3 : string;
  2991. FFilterOp4 : string;
  2992. FFilterOp5 : string;
  2993. FFilterOp6 : string;
  2994. FFilterOp7 : string;
  2995. FFilterOp8 : string;
  2996. FFilterOp9 : string;
  2997. FFilterValue : string;
  2998. FFilterValue1 : string;
  2999. FFilterValue10 : string;
  3000. FFilterValue2 : string;
  3001. FFilterValue3 : string;
  3002. FFilterValue4 : string;
  3003. FFilterValue5 : string;
  3004. FFilterValue6 : string;
  3005. FFilterValue7 : string;
  3006. FFilterValue8 : string;
  3007. FFilterValue9 : string;
  3008. FFilterValues : string;
  3009. FFilterValues1 : string;
  3010. FFilterValues10 : string;
  3011. FFilterValues2 : string;
  3012. FFilterValues3 : string;
  3013. FFilterValues4 : string;
  3014. FFilterValues5 : string;
  3015. FFilterValues6 : string;
  3016. FFilterValues7 : string;
  3017. FFilterValues8 : string;
  3018. FFilterValues9 : string;
  3019. FGroupString : string;
  3020. FHasOverrideSelectCommand : string;
  3021. FID : string;
  3022. FInplaceFullListSearch : string;
  3023. FInplaceSearchQuery : string;
  3024. FIsCSR : string;
  3025. FIsGroupRender : string;
  3026. FIsXslView : string;
  3027. FListViewPageUrl : string;
  3028. FOverrideScope : string;
  3029. FOverrideSelectCommand : string;
  3030. FPageFirstRow : string;
  3031. FPageLastRow : string;
  3032. FRootFolder : string;
  3033. FSortDir : string;
  3034. FSortDir1 : string;
  3035. FSortDir10 : string;
  3036. FSortDir2 : string;
  3037. FSortDir3 : string;
  3038. FSortDir4 : string;
  3039. FSortDir5 : string;
  3040. FSortDir6 : string;
  3041. FSortDir7 : string;
  3042. FSortDir8 : string;
  3043. FSortDir9 : string;
  3044. FSortField : string;
  3045. FSortField1 : string;
  3046. FSortField10 : string;
  3047. FSortField2 : string;
  3048. FSortField3 : string;
  3049. FSortField4 : string;
  3050. FSortField5 : string;
  3051. FSortField6 : string;
  3052. FSortField7 : string;
  3053. FSortField8 : string;
  3054. FSortField9 : string;
  3055. FSortFields : string;
  3056. FSortFieldValues : string;
  3057. FView : string;
  3058. FViewCount : string;
  3059. FViewId : string;
  3060. FWebPartId : string;
  3061. procedure SetCascDelWarnMessage(AIndex: Integer; const AValue: string);
  3062. procedure SetCustomAction(AIndex: Integer; const AValue: string);
  3063. procedure SetDrillDown(AIndex: Integer; const AValue: string);
  3064. procedure SetField(AIndex: Integer; const AValue: string);
  3065. procedure SetFieldInternalName(AIndex: Integer; const AValue: string);
  3066. procedure SetFilter(AIndex: Integer; const AValue: string);
  3067. procedure SetFilterData(AIndex: Integer; const AValue: string);
  3068. procedure SetFilterData1(AIndex: Integer; const AValue: string);
  3069. procedure SetFilterData10(AIndex: Integer; const AValue: string);
  3070. procedure SetFilterData2(AIndex: Integer; const AValue: string);
  3071. procedure SetFilterData3(AIndex: Integer; const AValue: string);
  3072. procedure SetFilterData4(AIndex: Integer; const AValue: string);
  3073. procedure SetFilterData5(AIndex: Integer; const AValue: string);
  3074. procedure SetFilterData6(AIndex: Integer; const AValue: string);
  3075. procedure SetFilterData7(AIndex: Integer; const AValue: string);
  3076. procedure SetFilterData8(AIndex: Integer; const AValue: string);
  3077. procedure SetFilterData9(AIndex: Integer; const AValue: string);
  3078. procedure SetFilterField(AIndex: Integer; const AValue: string);
  3079. procedure SetFilterField1(AIndex: Integer; const AValue: string);
  3080. procedure SetFilterField10(AIndex: Integer; const AValue: string);
  3081. procedure SetFilterField2(AIndex: Integer; const AValue: string);
  3082. procedure SetFilterField3(AIndex: Integer; const AValue: string);
  3083. procedure SetFilterField4(AIndex: Integer; const AValue: string);
  3084. procedure SetFilterField5(AIndex: Integer; const AValue: string);
  3085. procedure SetFilterField6(AIndex: Integer; const AValue: string);
  3086. procedure SetFilterField7(AIndex: Integer; const AValue: string);
  3087. procedure SetFilterField8(AIndex: Integer; const AValue: string);
  3088. procedure SetFilterField9(AIndex: Integer; const AValue: string);
  3089. procedure SetFilterFields(AIndex: Integer; const AValue: string);
  3090. procedure SetFilterFields1(AIndex: Integer; const AValue: string);
  3091. procedure SetFilterFields10(AIndex: Integer; const AValue: string);
  3092. procedure SetFilterFields2(AIndex: Integer; const AValue: string);
  3093. procedure SetFilterFields3(AIndex: Integer; const AValue: string);
  3094. procedure SetFilterFields4(AIndex: Integer; const AValue: string);
  3095. procedure SetFilterFields5(AIndex: Integer; const AValue: string);
  3096. procedure SetFilterFields6(AIndex: Integer; const AValue: string);
  3097. procedure SetFilterFields7(AIndex: Integer; const AValue: string);
  3098. procedure SetFilterFields8(AIndex: Integer; const AValue: string);
  3099. procedure SetFilterFields9(AIndex: Integer; const AValue: string);
  3100. procedure SetFilterLookupId(AIndex: Integer; const AValue: string);
  3101. procedure SetFilterLookupId1(AIndex: Integer; const AValue: string);
  3102. procedure SetFilterLookupId10(AIndex: Integer; const AValue: string);
  3103. procedure SetFilterLookupId2(AIndex: Integer; const AValue: string);
  3104. procedure SetFilterLookupId3(AIndex: Integer; const AValue: string);
  3105. procedure SetFilterLookupId4(AIndex: Integer; const AValue: string);
  3106. procedure SetFilterLookupId5(AIndex: Integer; const AValue: string);
  3107. procedure SetFilterLookupId6(AIndex: Integer; const AValue: string);
  3108. procedure SetFilterLookupId7(AIndex: Integer; const AValue: string);
  3109. procedure SetFilterLookupId8(AIndex: Integer; const AValue: string);
  3110. procedure SetFilterLookupId9(AIndex: Integer; const AValue: string);
  3111. procedure SetFilterOp(AIndex: Integer; const AValue: string);
  3112. procedure SetFilterOp1(AIndex: Integer; const AValue: string);
  3113. procedure SetFilterOp10(AIndex: Integer; const AValue: string);
  3114. procedure SetFilterOp2(AIndex: Integer; const AValue: string);
  3115. procedure SetFilterOp3(AIndex: Integer; const AValue: string);
  3116. procedure SetFilterOp4(AIndex: Integer; const AValue: string);
  3117. procedure SetFilterOp5(AIndex: Integer; const AValue: string);
  3118. procedure SetFilterOp6(AIndex: Integer; const AValue: string);
  3119. procedure SetFilterOp7(AIndex: Integer; const AValue: string);
  3120. procedure SetFilterOp8(AIndex: Integer; const AValue: string);
  3121. procedure SetFilterOp9(AIndex: Integer; const AValue: string);
  3122. procedure SetFilterValue(AIndex: Integer; const AValue: string);
  3123. procedure SetFilterValue1(AIndex: Integer; const AValue: string);
  3124. procedure SetFilterValue10(AIndex: Integer; const AValue: string);
  3125. procedure SetFilterValue2(AIndex: Integer; const AValue: string);
  3126. procedure SetFilterValue3(AIndex: Integer; const AValue: string);
  3127. procedure SetFilterValue4(AIndex: Integer; const AValue: string);
  3128. procedure SetFilterValue5(AIndex: Integer; const AValue: string);
  3129. procedure SetFilterValue6(AIndex: Integer; const AValue: string);
  3130. procedure SetFilterValue7(AIndex: Integer; const AValue: string);
  3131. procedure SetFilterValue8(AIndex: Integer; const AValue: string);
  3132. procedure SetFilterValue9(AIndex: Integer; const AValue: string);
  3133. procedure SetFilterValues(AIndex: Integer; const AValue: string);
  3134. procedure SetFilterValues1(AIndex: Integer; const AValue: string);
  3135. procedure SetFilterValues10(AIndex: Integer; const AValue: string);
  3136. procedure SetFilterValues2(AIndex: Integer; const AValue: string);
  3137. procedure SetFilterValues3(AIndex: Integer; const AValue: string);
  3138. procedure SetFilterValues4(AIndex: Integer; const AValue: string);
  3139. procedure SetFilterValues5(AIndex: Integer; const AValue: string);
  3140. procedure SetFilterValues6(AIndex: Integer; const AValue: string);
  3141. procedure SetFilterValues7(AIndex: Integer; const AValue: string);
  3142. procedure SetFilterValues8(AIndex: Integer; const AValue: string);
  3143. procedure SetFilterValues9(AIndex: Integer; const AValue: string);
  3144. procedure SetGroupString(AIndex: Integer; const AValue: string);
  3145. procedure SetHasOverrideSelectCommand(AIndex: Integer;
  3146. const AValue: string);
  3147. procedure SetID(AIndex: Integer; const AValue: string);
  3148. procedure SetInplaceFullListSearch(AIndex: Integer;
  3149. const AValue: string);
  3150. procedure SetInplaceSearchQuery(AIndex: Integer; const AValue: string);
  3151. procedure SetIsCSR(AIndex: Integer; const AValue: string);
  3152. procedure SetIsGroupRender(AIndex: Integer; const AValue: string);
  3153. procedure SetIsXslView(AIndex: Integer; const AValue: string);
  3154. procedure SetListViewPageUrl(AIndex: Integer; const AValue: string);
  3155. procedure SetOverrideScope(AIndex: Integer; const AValue: string);
  3156. procedure SetOverrideSelectCommand(AIndex: Integer;
  3157. const AValue: string);
  3158. procedure SetPageFirstRow(AIndex: Integer; const AValue: string);
  3159. procedure SetPageLastRow(AIndex: Integer; const AValue: string);
  3160. procedure SetRootFolder(AIndex: Integer; const AValue: string);
  3161. procedure SetSortDir(AIndex: Integer; const AValue: string);
  3162. procedure SetSortDir1(AIndex: Integer; const AValue: string);
  3163. procedure SetSortDir10(AIndex: Integer; const AValue: string);
  3164. procedure SetSortDir2(AIndex: Integer; const AValue: string);
  3165. procedure SetSortDir3(AIndex: Integer; const AValue: string);
  3166. procedure SetSortDir4(AIndex: Integer; const AValue: string);
  3167. procedure SetSortDir5(AIndex: Integer; const AValue: string);
  3168. procedure SetSortDir6(AIndex: Integer; const AValue: string);
  3169. procedure SetSortDir7(AIndex: Integer; const AValue: string);
  3170. procedure SetSortDir8(AIndex: Integer; const AValue: string);
  3171. procedure SetSortDir9(AIndex: Integer; const AValue: string);
  3172. procedure SetSortField(AIndex: Integer; const AValue: string);
  3173. procedure SetSortField1(AIndex: Integer; const AValue: string);
  3174. procedure SetSortField10(AIndex: Integer; const AValue: string);
  3175. procedure SetSortField2(AIndex: Integer; const AValue: string);
  3176. procedure SetSortField3(AIndex: Integer; const AValue: string);
  3177. procedure SetSortField4(AIndex: Integer; const AValue: string);
  3178. procedure SetSortField5(AIndex: Integer; const AValue: string);
  3179. procedure SetSortField6(AIndex: Integer; const AValue: string);
  3180. procedure SetSortField7(AIndex: Integer; const AValue: string);
  3181. procedure SetSortField8(AIndex: Integer; const AValue: string);
  3182. procedure SetSortField9(AIndex: Integer; const AValue: string);
  3183. procedure SetSortFields(AIndex: Integer; const AValue: string);
  3184. procedure SetSortFieldValues(AIndex: Integer; const AValue: string);
  3185. procedure SetView(AIndex: Integer; const AValue: string);
  3186. procedure SetViewCount(AIndex: Integer; const AValue: string);
  3187. procedure SetViewId(AIndex: Integer; const AValue: string);
  3188. procedure SetWebPartId(AIndex: Integer; const AValue: string);
  3189. public
  3190. class function ObjectRestKind : String; Override;
  3191. published
  3192. Property CascDelWarnMessage : string index 0 read FCascDelWarnMessage write SetCascDelWarnMessage;
  3193. Property CustomAction : string index 8 read FCustomAction write SetCustomAction;
  3194. Property DrillDown : string index 16 read FDrillDown write SetDrillDown;
  3195. Property Field : string index 24 read FField write SetField;
  3196. Property FieldInternalName : string index 32 read FFieldInternalName write SetFieldInternalName;
  3197. Property Filter : string index 40 read FFilter write SetFilter;
  3198. Property FilterData : string index 48 read FFilterData write SetFilterData;
  3199. Property FilterData1 : string index 56 read FFilterData1 write SetFilterData1;
  3200. Property FilterData10 : string index 64 read FFilterData10 write SetFilterData10;
  3201. Property FilterData2 : string index 72 read FFilterData2 write SetFilterData2;
  3202. Property FilterData3 : string index 80 read FFilterData3 write SetFilterData3;
  3203. Property FilterData4 : string index 88 read FFilterData4 write SetFilterData4;
  3204. Property FilterData5 : string index 96 read FFilterData5 write SetFilterData5;
  3205. Property FilterData6 : string index 104 read FFilterData6 write SetFilterData6;
  3206. Property FilterData7 : string index 112 read FFilterData7 write SetFilterData7;
  3207. Property FilterData8 : string index 120 read FFilterData8 write SetFilterData8;
  3208. Property FilterData9 : string index 128 read FFilterData9 write SetFilterData9;
  3209. Property FilterField : string index 136 read FFilterField write SetFilterField;
  3210. Property FilterField1 : string index 144 read FFilterField1 write SetFilterField1;
  3211. Property FilterField10 : string index 152 read FFilterField10 write SetFilterField10;
  3212. Property FilterField2 : string index 160 read FFilterField2 write SetFilterField2;
  3213. Property FilterField3 : string index 168 read FFilterField3 write SetFilterField3;
  3214. Property FilterField4 : string index 176 read FFilterField4 write SetFilterField4;
  3215. Property FilterField5 : string index 184 read FFilterField5 write SetFilterField5;
  3216. Property FilterField6 : string index 192 read FFilterField6 write SetFilterField6;
  3217. Property FilterField7 : string index 200 read FFilterField7 write SetFilterField7;
  3218. Property FilterField8 : string index 208 read FFilterField8 write SetFilterField8;
  3219. Property FilterField9 : string index 216 read FFilterField9 write SetFilterField9;
  3220. Property FilterFields : string index 224 read FFilterFields write SetFilterFields;
  3221. Property FilterFields1 : string index 232 read FFilterFields1 write SetFilterFields1;
  3222. Property FilterFields10 : string index 240 read FFilterFields10 write SetFilterFields10;
  3223. Property FilterFields2 : string index 248 read FFilterFields2 write SetFilterFields2;
  3224. Property FilterFields3 : string index 256 read FFilterFields3 write SetFilterFields3;
  3225. Property FilterFields4 : string index 264 read FFilterFields4 write SetFilterFields4;
  3226. Property FilterFields5 : string index 272 read FFilterFields5 write SetFilterFields5;
  3227. Property FilterFields6 : string index 280 read FFilterFields6 write SetFilterFields6;
  3228. Property FilterFields7 : string index 288 read FFilterFields7 write SetFilterFields7;
  3229. Property FilterFields8 : string index 296 read FFilterFields8 write SetFilterFields8;
  3230. Property FilterFields9 : string index 304 read FFilterFields9 write SetFilterFields9;
  3231. Property FilterLookupId : string index 312 read FFilterLookupId write SetFilterLookupId;
  3232. Property FilterLookupId1 : string index 320 read FFilterLookupId1 write SetFilterLookupId1;
  3233. Property FilterLookupId10 : string index 328 read FFilterLookupId10 write SetFilterLookupId10;
  3234. Property FilterLookupId2 : string index 336 read FFilterLookupId2 write SetFilterLookupId2;
  3235. Property FilterLookupId3 : string index 344 read FFilterLookupId3 write SetFilterLookupId3;
  3236. Property FilterLookupId4 : string index 352 read FFilterLookupId4 write SetFilterLookupId4;
  3237. Property FilterLookupId5 : string index 360 read FFilterLookupId5 write SetFilterLookupId5;
  3238. Property FilterLookupId6 : string index 368 read FFilterLookupId6 write SetFilterLookupId6;
  3239. Property FilterLookupId7 : string index 376 read FFilterLookupId7 write SetFilterLookupId7;
  3240. Property FilterLookupId8 : string index 384 read FFilterLookupId8 write SetFilterLookupId8;
  3241. Property FilterLookupId9 : string index 392 read FFilterLookupId9 write SetFilterLookupId9;
  3242. Property FilterOp : string index 400 read FFilterOp write SetFilterOp;
  3243. Property FilterOp1 : string index 408 read FFilterOp1 write SetFilterOp1;
  3244. Property FilterOp10 : string index 416 read FFilterOp10 write SetFilterOp10;
  3245. Property FilterOp2 : string index 424 read FFilterOp2 write SetFilterOp2;
  3246. Property FilterOp3 : string index 432 read FFilterOp3 write SetFilterOp3;
  3247. Property FilterOp4 : string index 440 read FFilterOp4 write SetFilterOp4;
  3248. Property FilterOp5 : string index 448 read FFilterOp5 write SetFilterOp5;
  3249. Property FilterOp6 : string index 456 read FFilterOp6 write SetFilterOp6;
  3250. Property FilterOp7 : string index 464 read FFilterOp7 write SetFilterOp7;
  3251. Property FilterOp8 : string index 472 read FFilterOp8 write SetFilterOp8;
  3252. Property FilterOp9 : string index 480 read FFilterOp9 write SetFilterOp9;
  3253. Property FilterValue : string index 488 read FFilterValue write SetFilterValue;
  3254. Property FilterValue1 : string index 496 read FFilterValue1 write SetFilterValue1;
  3255. Property FilterValue10 : string index 504 read FFilterValue10 write SetFilterValue10;
  3256. Property FilterValue2 : string index 512 read FFilterValue2 write SetFilterValue2;
  3257. Property FilterValue3 : string index 520 read FFilterValue3 write SetFilterValue3;
  3258. Property FilterValue4 : string index 528 read FFilterValue4 write SetFilterValue4;
  3259. Property FilterValue5 : string index 536 read FFilterValue5 write SetFilterValue5;
  3260. Property FilterValue6 : string index 544 read FFilterValue6 write SetFilterValue6;
  3261. Property FilterValue7 : string index 552 read FFilterValue7 write SetFilterValue7;
  3262. Property FilterValue8 : string index 560 read FFilterValue8 write SetFilterValue8;
  3263. Property FilterValue9 : string index 568 read FFilterValue9 write SetFilterValue9;
  3264. Property FilterValues : string index 576 read FFilterValues write SetFilterValues;
  3265. Property FilterValues1 : string index 584 read FFilterValues1 write SetFilterValues1;
  3266. Property FilterValues10 : string index 592 read FFilterValues10 write SetFilterValues10;
  3267. Property FilterValues2 : string index 600 read FFilterValues2 write SetFilterValues2;
  3268. Property FilterValues3 : string index 608 read FFilterValues3 write SetFilterValues3;
  3269. Property FilterValues4 : string index 616 read FFilterValues4 write SetFilterValues4;
  3270. Property FilterValues5 : string index 624 read FFilterValues5 write SetFilterValues5;
  3271. Property FilterValues6 : string index 632 read FFilterValues6 write SetFilterValues6;
  3272. Property FilterValues7 : string index 640 read FFilterValues7 write SetFilterValues7;
  3273. Property FilterValues8 : string index 648 read FFilterValues8 write SetFilterValues8;
  3274. Property FilterValues9 : string index 656 read FFilterValues9 write SetFilterValues9;
  3275. Property GroupString : string index 664 read FGroupString write SetGroupString;
  3276. Property HasOverrideSelectCommand : string index 672 read FHasOverrideSelectCommand write SetHasOverrideSelectCommand;
  3277. Property ID : string index 680 read FID write SetID;
  3278. Property InplaceFullListSearch : string index 688 read FInplaceFullListSearch write SetInplaceFullListSearch;
  3279. Property InplaceSearchQuery : string index 696 read FInplaceSearchQuery write SetInplaceSearchQuery;
  3280. Property IsCSR : string index 704 read FIsCSR write SetIsCSR;
  3281. Property IsGroupRender : string index 712 read FIsGroupRender write SetIsGroupRender;
  3282. Property IsXslView : string index 720 read FIsXslView write SetIsXslView;
  3283. Property ListViewPageUrl : string index 728 read FListViewPageUrl write SetListViewPageUrl;
  3284. Property OverrideScope : string index 736 read FOverrideScope write SetOverrideScope;
  3285. Property OverrideSelectCommand : string index 744 read FOverrideSelectCommand write SetOverrideSelectCommand;
  3286. Property PageFirstRow : string index 752 read FPageFirstRow write SetPageFirstRow;
  3287. Property PageLastRow : string index 760 read FPageLastRow write SetPageLastRow;
  3288. Property RootFolder : string index 768 read FRootFolder write SetRootFolder;
  3289. Property SortDir : string index 776 read FSortDir write SetSortDir;
  3290. Property SortDir1 : string index 784 read FSortDir1 write SetSortDir1;
  3291. Property SortDir10 : string index 792 read FSortDir10 write SetSortDir10;
  3292. Property SortDir2 : string index 800 read FSortDir2 write SetSortDir2;
  3293. Property SortDir3 : string index 808 read FSortDir3 write SetSortDir3;
  3294. Property SortDir4 : string index 816 read FSortDir4 write SetSortDir4;
  3295. Property SortDir5 : string index 824 read FSortDir5 write SetSortDir5;
  3296. Property SortDir6 : string index 832 read FSortDir6 write SetSortDir6;
  3297. Property SortDir7 : string index 840 read FSortDir7 write SetSortDir7;
  3298. Property SortDir8 : string index 848 read FSortDir8 write SetSortDir8;
  3299. Property SortDir9 : string index 856 read FSortDir9 write SetSortDir9;
  3300. Property SortField : string index 864 read FSortField write SetSortField;
  3301. Property SortField1 : string index 872 read FSortField1 write SetSortField1;
  3302. Property SortField10 : string index 880 read FSortField10 write SetSortField10;
  3303. Property SortField2 : string index 888 read FSortField2 write SetSortField2;
  3304. Property SortField3 : string index 896 read FSortField3 write SetSortField3;
  3305. Property SortField4 : string index 904 read FSortField4 write SetSortField4;
  3306. Property SortField5 : string index 912 read FSortField5 write SetSortField5;
  3307. Property SortField6 : string index 920 read FSortField6 write SetSortField6;
  3308. Property SortField7 : string index 928 read FSortField7 write SetSortField7;
  3309. Property SortField8 : string index 936 read FSortField8 write SetSortField8;
  3310. Property SortField9 : string index 944 read FSortField9 write SetSortField9;
  3311. Property SortFields : string index 952 read FSortFields write SetSortFields;
  3312. Property SortFieldValues : string index 960 read FSortFieldValues write SetSortFieldValues;
  3313. Property View : string index 968 read FView write SetView;
  3314. Property ViewCount : string index 976 read FViewCount write SetViewCount;
  3315. Property ViewId : string index 984 read FViewId write SetViewId;
  3316. Property WebPartId : string index 992 read FWebPartId write SetWebPartId;
  3317. end;
  3318. { --------------------------------------------------------------------
  3319. SP: RenderListDataParameters
  3320. --------------------------------------------------------------------}
  3321. TSPRenderListDataParameters = Class(TODataEntity)
  3322. private
  3323. FFolderServerRelativeUrl : string;
  3324. FPaging : string;
  3325. FRenderOptions : TInt32;
  3326. FViewXml : string;
  3327. procedure SetFolderServerRelativeUrl(AIndex: Integer;
  3328. const AValue: string);
  3329. procedure SetPaging(AIndex: Integer; const AValue: string);
  3330. procedure SetRenderOptions(AIndex: Integer; const AValue: TInt32);
  3331. procedure SetViewXml(AIndex: Integer; const AValue: string);
  3332. public
  3333. class function ObjectRestKind : String; Override;
  3334. published
  3335. Property FolderServerRelativeUrl : string index 0 read FFolderServerRelativeUrl write SetFolderServerRelativeUrl;
  3336. Property Paging : string index 8 read FPaging write SetPaging;
  3337. Property RenderOptions : TInt32 index 16 read FRenderOptions write SetRenderOptions;
  3338. Property ViewXml : string index 24 read FViewXml write SetViewXml;
  3339. end;
  3340. { --------------------------------------------------------------------
  3341. SP: RenderListFilterDataParameters
  3342. --------------------------------------------------------------------}
  3343. TSPRenderListFilterDataParameters = Class(TODataEntity)
  3344. private
  3345. FFieldInternalName : string;
  3346. FOverrideScope : string;
  3347. FProcessQStringToCAML : string;
  3348. FViewId : string;
  3349. procedure SetFieldInternalName(AIndex: Integer; const AValue: string);
  3350. procedure SetOverrideScope(AIndex: Integer; const AValue: string);
  3351. procedure SetProcessQStringToCAML(AIndex: Integer; const AValue: string);
  3352. procedure SetViewId(AIndex: Integer; const AValue: string);
  3353. public
  3354. class function ObjectRestKind : String; Override;
  3355. published
  3356. Property FieldInternalName : string index 0 read FFieldInternalName write SetFieldInternalName;
  3357. Property OverrideScope : string index 8 read FOverrideScope write SetOverrideScope;
  3358. Property ProcessQStringToCAML : string index 16 read FProcessQStringToCAML write SetProcessQStringToCAML;
  3359. Property ViewId : string index 24 read FViewId write SetViewId;
  3360. end;
  3361. { --------------------------------------------------------------------
  3362. SP: RoleDefinitionCreationInformation
  3363. --------------------------------------------------------------------}
  3364. TSPRoleDefinitionCreationInformation = Class(TODataEntity)
  3365. private
  3366. FBasePermissions : TSPBasePermissions;
  3367. FDescription : string;
  3368. FName : string;
  3369. FOrder : TInt32;
  3370. procedure SetBasePermissions(AIndex: Integer;
  3371. const AValue: TSPBasePermissions);
  3372. procedure SetDescription(AIndex: Integer; const AValue: string);
  3373. procedure SetName(AIndex: Integer; const AValue: string);
  3374. procedure SetOrder(AIndex: Integer; const AValue: TInt32);
  3375. public
  3376. class function ObjectRestKind : String; Override;
  3377. published
  3378. Property BasePermissions : TSPBasePermissions index 0 read FBasePermissions write SetBasePermissions;
  3379. Property Description : string index 8 read FDescription write SetDescription;
  3380. Property Name : string index 16 read FName write SetName;
  3381. Property Order : TInt32 index 24 read FOrder write SetOrder;
  3382. end;
  3383. { --------------------------------------------------------------------
  3384. SP: UpgradeInfo
  3385. --------------------------------------------------------------------}
  3386. TSPUpgradeInfo = Class(TODataEntity)
  3387. private
  3388. FErrorFile : string;
  3389. FErrors : TInt32;
  3390. FLastUpdated : TDateTime;
  3391. FLogFile : string;
  3392. FRequestDate : TDateTime;
  3393. FRetryCount : TInt32;
  3394. FStartTime : TDateTime;
  3395. FStatus : TInt32;
  3396. FUpgradeType : TInt32;
  3397. FWarnings : TInt32;
  3398. procedure SetErrorFile(AIndex: Integer; const AValue: string);
  3399. procedure SetErrors(AIndex: Integer; const AValue: TInt32);
  3400. procedure SetLastUpdated(AIndex: Integer; const AValue: TDateTime);
  3401. procedure SetLogFile(AIndex: Integer; const AValue: string);
  3402. procedure SetRequestDate(AIndex: Integer; const AValue: TDateTime);
  3403. procedure SetRetryCount(AIndex: Integer; const AValue: TInt32);
  3404. procedure SetStartTime(AIndex: Integer; const AValue: TDateTime);
  3405. procedure SetStatus(AIndex: Integer; const AValue: TInt32);
  3406. procedure SetUpgradeType(AIndex: Integer; const AValue: TInt32);
  3407. procedure SetWarnings(AIndex: Integer; const AValue: TInt32);
  3408. public
  3409. class function ObjectRestKind : String; Override;
  3410. published
  3411. Property ErrorFile : string index 0 read FErrorFile write SetErrorFile;
  3412. Property Errors : TInt32 index 8 read FErrors write SetErrors;
  3413. Property LastUpdated : TDateTime index 16 read FLastUpdated write SetLastUpdated;
  3414. Property LogFile : string index 24 read FLogFile write SetLogFile;
  3415. Property RequestDate : TDateTime index 32 read FRequestDate write SetRequestDate;
  3416. Property RetryCount : TInt32 index 40 read FRetryCount write SetRetryCount;
  3417. Property StartTime : TDateTime index 48 read FStartTime write SetStartTime;
  3418. Property Status : TInt32 index 56 read FStatus write SetStatus;
  3419. Property UpgradeType : TInt32 index 64 read FUpgradeType write SetUpgradeType;
  3420. Property Warnings : TInt32 index 72 read FWarnings write SetWarnings;
  3421. end;
  3422. { --------------------------------------------------------------------
  3423. SP: SubwebQuery
  3424. --------------------------------------------------------------------}
  3425. TSPSubwebQuery = Class(TODataEntity)
  3426. private
  3427. FConfigurationFilter : TInt32;
  3428. FWebTemplateFilter : TInt32;
  3429. procedure SetConfigurationFilter(AIndex: Integer; const AValue: TInt32);
  3430. procedure SetWebTemplateFilter(AIndex: Integer; const AValue: TInt32);
  3431. public
  3432. class function ObjectRestKind : String; Override;
  3433. published
  3434. Property ConfigurationFilter : TInt32 index 0 read FConfigurationFilter write SetConfigurationFilter;
  3435. Property WebTemplateFilter : TInt32 index 8 read FWebTemplateFilter write SetWebTemplateFilter;
  3436. end;
  3437. { --------------------------------------------------------------------
  3438. SP: TenantAppInformation
  3439. --------------------------------------------------------------------}
  3440. TSPTenantAppInformation = Class(TODataEntity)
  3441. private
  3442. FAppPrincipalId : string;
  3443. FAppWebFullUrl : string;
  3444. FCreationTime : TDateTime;
  3445. FIconAbsoluteUrl : string;
  3446. FIconFallbackAbsoluteUrl : string;
  3447. FId : TGUIDString;
  3448. FLaunchUrl : string;
  3449. FPackageFingerprint : TBinary;
  3450. FProductId : TGUIDString;
  3451. FRemoteAppUrl : string;
  3452. FStatus : TInt32;
  3453. FTitle : string;
  3454. procedure SetAppPrincipalId(AIndex: Integer; const AValue: string);
  3455. procedure SetAppWebFullUrl(AIndex: Integer; const AValue: string);
  3456. procedure SetCreationTime(AIndex: Integer; const AValue: TDateTime);
  3457. procedure SetIconAbsoluteUrl(AIndex: Integer; const AValue: string);
  3458. procedure SetIconFallbackAbsoluteUrl(AIndex: Integer;
  3459. const AValue: string);
  3460. procedure SetId(AIndex: Integer; const AValue: TGUIDString);
  3461. procedure SetLaunchUrl(AIndex: Integer; const AValue: string);
  3462. procedure SetPackageFingerprint(AIndex: Integer; const AValue: TBinary);
  3463. procedure SetProductId(AIndex: Integer; const AValue: TGUIDString);
  3464. procedure SetRemoteAppUrl(AIndex: Integer; const AValue: string);
  3465. procedure SetStatus(AIndex: Integer; const AValue: TInt32);
  3466. procedure SetTitle(AIndex: Integer; const AValue: string);
  3467. public
  3468. class function ObjectRestKind : String; Override;
  3469. published
  3470. Property AppPrincipalId : string index 0 read FAppPrincipalId write SetAppPrincipalId;
  3471. Property AppWebFullUrl : string index 8 read FAppWebFullUrl write SetAppWebFullUrl;
  3472. Property CreationTime : TDateTime index 16 read FCreationTime write SetCreationTime;
  3473. Property IconAbsoluteUrl : string index 24 read FIconAbsoluteUrl write SetIconAbsoluteUrl;
  3474. Property IconFallbackAbsoluteUrl : string index 32 read FIconFallbackAbsoluteUrl write SetIconFallbackAbsoluteUrl;
  3475. Property Id : TGUIDString index 40 read FId write SetId;
  3476. Property LaunchUrl : string index 48 read FLaunchUrl write SetLaunchUrl;
  3477. Property PackageFingerprint : TBinary index 56 read FPackageFingerprint write SetPackageFingerprint;
  3478. Property ProductId : TGUIDString index 64 read FProductId write SetProductId;
  3479. Property RemoteAppUrl : string index 72 read FRemoteAppUrl write SetRemoteAppUrl;
  3480. Property Status : TInt32 index 80 read FStatus write SetStatus;
  3481. Property Title : string index 88 read FTitle write SetTitle;
  3482. end;
  3483. { --------------------------------------------------------------------
  3484. SP: TimeZoneInformation
  3485. --------------------------------------------------------------------}
  3486. TSPTimeZoneInformation = Class(TODataEntity)
  3487. private
  3488. FBias : TInt32;
  3489. FDaylightBias : TInt32;
  3490. FStandardBias : TInt32;
  3491. procedure SetBias(AIndex: Integer; const AValue: TInt32);
  3492. procedure SetDaylightBias(AIndex: Integer; const AValue: TInt32);
  3493. procedure SetStandardBias(AIndex: Integer; const AValue: TInt32);
  3494. public
  3495. class function ObjectRestKind : String; Override;
  3496. published
  3497. Property Bias : TInt32 index 0 read FBias write SetBias;
  3498. Property DaylightBias : TInt32 index 8 read FDaylightBias write SetDaylightBias;
  3499. Property StandardBias : TInt32 index 16 read FStandardBias write SetStandardBias;
  3500. end;
  3501. { --------------------------------------------------------------------
  3502. SP: UsageInfo
  3503. --------------------------------------------------------------------}
  3504. TSPUsageInfo = Class(TODataEntity)
  3505. private
  3506. FBandwidth : int64;
  3507. FDiscussionStorage : int64;
  3508. FHits : int64;
  3509. FStorage : int64;
  3510. FStoragePercentageUsed : Double;
  3511. FVisits : int64;
  3512. procedure SetBandwidth(AIndex: Integer; const AValue: int64);
  3513. procedure SetDiscussionStorage(AIndex: Integer; const AValue: int64);
  3514. procedure SetHits(AIndex: Integer; const AValue: int64);
  3515. procedure SetStorage(AIndex: Integer; const AValue: int64);
  3516. procedure SetStoragePercentageUsed(AIndex: Integer;
  3517. const AValue: Double);
  3518. procedure SetVisits(AIndex: Integer; const AValue: int64);
  3519. public
  3520. class function ObjectRestKind : String; Override;
  3521. published
  3522. Property Bandwidth : int64 index 0 read FBandwidth write SetBandwidth;
  3523. Property DiscussionStorage : int64 index 8 read FDiscussionStorage write SetDiscussionStorage;
  3524. Property Hits : int64 index 16 read FHits write SetHits;
  3525. Property Storage : int64 index 24 read FStorage write SetStorage;
  3526. Property StoragePercentageUsed : Double index 32 read FStoragePercentageUsed write SetStoragePercentageUsed;
  3527. Property Visits : int64 index 40 read FVisits write SetVisits;
  3528. end;
  3529. { --------------------------------------------------------------------
  3530. SP: UserCreationInformation
  3531. --------------------------------------------------------------------}
  3532. TSPUserCreationInformation = Class(TODataEntity)
  3533. private
  3534. FEmail : string;
  3535. FLoginName : string;
  3536. FTitle : string;
  3537. procedure SetEmail(AIndex: Integer; const AValue: string);
  3538. procedure SetLoginName(AIndex: Integer; const AValue: string);
  3539. procedure SetTitle(AIndex: Integer; const AValue: string);
  3540. public
  3541. class function ObjectRestKind : String; Override;
  3542. published
  3543. Property Email : string index 0 read FEmail write SetEmail;
  3544. Property LoginName : string index 8 read FLoginName write SetLoginName;
  3545. Property Title : string index 16 read FTitle write SetTitle;
  3546. end;
  3547. { --------------------------------------------------------------------
  3548. SP: UserIdInfo
  3549. --------------------------------------------------------------------}
  3550. TSPUserIdInfo = Class(TODataEntity)
  3551. private
  3552. FNameId : string;
  3553. FNameIdIssuer : string;
  3554. procedure SetNameId(AIndex: Integer; const AValue: string);
  3555. procedure SetNameIdIssuer(AIndex: Integer; const AValue: string);
  3556. public
  3557. class function ObjectRestKind : String; Override;
  3558. published
  3559. Property NameId : string index 0 read FNameId write SetNameId;
  3560. Property NameIdIssuer : string index 8 read FNameIdIssuer write SetNameIdIssuer;
  3561. end;
  3562. { --------------------------------------------------------------------
  3563. SP: ViewCreationInformation
  3564. --------------------------------------------------------------------}
  3565. TSPViewCreationInformation = Class(TODataEntity)
  3566. private
  3567. FPaged : boolean;
  3568. FPersonalView : boolean;
  3569. FQuery : string;
  3570. FRowLimit : TInt32;
  3571. FSetAsDefaultView : boolean;
  3572. FTitle : string;
  3573. FViewFields : TStringArray;
  3574. FViewTypeKind : TInt32;
  3575. procedure SetPaged(AIndex: Integer; const AValue: boolean);
  3576. procedure SetPersonalView(AIndex: Integer; const AValue: boolean);
  3577. procedure SetQuery(AIndex: Integer; const AValue: string);
  3578. procedure SetRowLimit(AIndex: Integer; const AValue: TInt32);
  3579. procedure SetSetAsDefaultView(AIndex: Integer; const AValue: boolean);
  3580. procedure SetTitle(AIndex: Integer; const AValue: string);
  3581. procedure SetViewFields(AIndex: Integer; const AValue: TStringArray);
  3582. procedure SetViewTypeKind(AIndex: Integer; const AValue: TInt32);
  3583. protected
  3584. {$IFDEF VER2_6}
  3585. procedure SetArrayLength(const AName: String; ALength: Longint)
  3586. ; Override;
  3587. {$ENDIF VER2_6}
  3588. public
  3589. class function ObjectRestKind : String; Override;
  3590. published
  3591. Property Paged : boolean index 0 read FPaged write SetPaged;
  3592. Property PersonalView : boolean index 8 read FPersonalView write SetPersonalView;
  3593. Property Query : string index 16 read FQuery write SetQuery;
  3594. Property RowLimit : TInt32 index 24 read FRowLimit write SetRowLimit;
  3595. Property SetAsDefaultView : boolean index 32 read FSetAsDefaultView write SetSetAsDefaultView;
  3596. Property Title : string index 40 read FTitle write SetTitle;
  3597. Property ViewFields : TStringArray index 48 read FViewFields write SetViewFields;
  3598. Property ViewTypeKind : TInt32 index 56 read FViewTypeKind write SetViewTypeKind;
  3599. end;
  3600. { --------------------------------------------------------------------
  3601. SP: WebCreationInformation
  3602. --------------------------------------------------------------------}
  3603. TSPWebCreationInformation = Class(TODataEntity)
  3604. private
  3605. FDescription : string;
  3606. FLanguage : TInt32;
  3607. FTitle : string;
  3608. FUrl : string;
  3609. FUseSamePermissionsAsParentSite : boolean;
  3610. FWebTemplate : string;
  3611. procedure SetDescription(AIndex: Integer; const AValue: string);
  3612. procedure SetLanguage(AIndex: Integer; const AValue: TInt32);
  3613. procedure SetTitle(AIndex: Integer; const AValue: string);
  3614. procedure SetUrl(AIndex: Integer; const AValue: string);
  3615. procedure SetUseSamePermissionsAsParentSite(AIndex: Integer;
  3616. const AValue: boolean);
  3617. procedure SetWebTemplate(AIndex: Integer; const AValue: string);
  3618. public
  3619. class function ObjectRestKind : String; Override;
  3620. published
  3621. Property Description : string index 0 read FDescription write SetDescription;
  3622. Property Language : TInt32 index 8 read FLanguage write SetLanguage;
  3623. Property Title : string index 16 read FTitle write SetTitle;
  3624. Property Url : string index 24 read FUrl write SetUrl;
  3625. Property UseSamePermissionsAsParentSite : boolean index 32 read FUseSamePermissionsAsParentSite write SetUseSamePermissionsAsParentSite;
  3626. Property WebTemplate : string index 40 read FWebTemplate write SetWebTemplate;
  3627. end;
  3628. { --------------------------------------------------------------------
  3629. SP: WebInfoCreationInformation
  3630. --------------------------------------------------------------------}
  3631. TSPWebInfoCreationInformation = Class(TODataEntity)
  3632. private
  3633. FDescription : string;
  3634. FLanguage : TInt32;
  3635. FTitle : string;
  3636. FUrl : string;
  3637. FUseUniquePermissions : boolean;
  3638. FWebTemplate : string;
  3639. procedure SetDescription(AIndex: Integer; const AValue: string);
  3640. procedure SetLanguage(AIndex: Integer; const AValue: TInt32);
  3641. procedure SetTitle(AIndex: Integer; const AValue: string);
  3642. procedure SetUrl(AIndex: Integer; const AValue: string);
  3643. procedure SetUseUniquePermissions(AIndex: Integer;
  3644. const AValue: boolean);
  3645. procedure SetWebTemplate(AIndex: Integer; const AValue: string);
  3646. public
  3647. class function ObjectRestKind : String; Override;
  3648. published
  3649. Property Description : string index 0 read FDescription write SetDescription;
  3650. Property Language : TInt32 index 8 read FLanguage write SetLanguage;
  3651. Property Title : string index 16 read FTitle write SetTitle;
  3652. Property Url : string index 24 read FUrl write SetUrl;
  3653. Property UseUniquePermissions : boolean index 32 read FUseUniquePermissions write SetUseUniquePermissions;
  3654. Property WebTemplate : string index 40 read FWebTemplate write SetWebTemplate;
  3655. end;
  3656. { --------------------------------------------------------------------
  3657. SP: WebRequestInfo
  3658. --------------------------------------------------------------------}
  3659. TSPWebRequestInfo = Class(TODataEntity)
  3660. private
  3661. FBody : string;
  3662. FHeaders : TSPKeyValueArray;
  3663. FMethod : string;
  3664. FUrl : string;
  3665. procedure SetBody(AIndex: Integer; const AValue: string);
  3666. procedure SetHeaders(AIndex: Integer; const AValue: TSPKeyValueArray);
  3667. procedure SetMethod(AIndex: Integer; const AValue: string);
  3668. procedure SetUrl(AIndex: Integer; const AValue: string);
  3669. protected
  3670. {$IFDEF VER2_6}
  3671. procedure SetArrayLength(const AName: String; ALength: Longint)
  3672. ; Override;
  3673. {$ENDIF VER2_6}
  3674. public
  3675. class function ObjectRestKind : String; Override;
  3676. published
  3677. Property Body : string index 0 read FBody write SetBody;
  3678. Property Headers : TSPKeyValueArray index 8 read FHeaders write SetHeaders;
  3679. Property Method : string index 16 read FMethod write SetMethod;
  3680. Property Url : string index 24 read FUrl write SetUrl;
  3681. end;
  3682. { --------------------------------------------------------------------
  3683. SP: WebResponseInfo
  3684. --------------------------------------------------------------------}
  3685. TSPWebResponseInfo = Class(TODataEntity)
  3686. private
  3687. FBody : string;
  3688. FHeaders : TSPKeyValueArray;
  3689. FStatusCode : TInt32;
  3690. procedure SetBody(AIndex: Integer; const AValue: string);
  3691. procedure SetHeaders(AIndex: Integer; const AValue: TSPKeyValueArray);
  3692. procedure SetStatusCode(AIndex: Integer; const AValue: TInt32);
  3693. protected
  3694. {$IFDEF VER2_6}
  3695. procedure SetArrayLength(const AName: String; ALength: Longint)
  3696. ; Override;
  3697. {$ENDIF VER2_6}
  3698. public
  3699. class function ObjectRestKind : String; Override;
  3700. published
  3701. Property Body : string index 0 read FBody write SetBody;
  3702. Property Headers : TSPKeyValueArray index 8 read FHeaders write SetHeaders;
  3703. Property StatusCode : TInt32 index 16 read FStatusCode write SetStatusCode;
  3704. end;
  3705. { --------------------------------------------------------------------
  3706. SP: XmlSchemaFieldCreationInformation
  3707. --------------------------------------------------------------------}
  3708. TSPXmlSchemaFieldCreationInformation = Class(TODataEntity)
  3709. private
  3710. FOptions : TInt32;
  3711. FSchemaXml : string;
  3712. procedure SetOptions(AIndex: Integer; const AValue: TInt32);
  3713. procedure SetSchemaXml(AIndex: Integer; const AValue: string);
  3714. public
  3715. class function ObjectRestKind : String; Override;
  3716. published
  3717. Property Options : TInt32 index 0 read FOptions write SetOptions;
  3718. Property SchemaXml : string index 8 read FSchemaXml write SetSchemaXml;
  3719. end;
  3720. { --------------------------------------------------------------------
  3721. SP: ApiMetadata
  3722. --------------------------------------------------------------------}
  3723. TSPApiMetadata = Class(TODataEntity)
  3724. private
  3725. FId4a81de82eeb94d6080ea5bf63e27023a : string;
  3726. procedure SetId4a81de82eeb94d6080ea5bf63e27023a(AIndex: Integer;
  3727. const AValue: string);
  3728. public
  3729. class function ObjectRestKind : String; Override;
  3730. function KeyAsURLPart : String; Override;
  3731. function Current(AService: TODataService) : TSPApiMetadata;
  3732. function Types(AService: TODataService) : TSPTypeInformation;
  3733. published
  3734. Property Id4a81de82eeb94d6080ea5bf63e27023a : string index 0 read FId4a81de82eeb94d6080ea5bf63e27023a write SetId4a81de82eeb94d6080ea5bf63e27023a;
  3735. end;
  3736. { --------------------------------------------------------------------
  3737. SP: TypeInformation
  3738. --------------------------------------------------------------------}
  3739. TSPTypeInformation = Class(TODataEntity)
  3740. private
  3741. FBaseTypeFullName : string;
  3742. FFullName : string;
  3743. FIsValueObject : boolean;
  3744. FMethods : TSPMethodInformationArray;
  3745. FProperties : TSPPropertyInformationArray;
  3746. procedure SetBaseTypeFullName(AIndex: Integer; const AValue: string);
  3747. procedure SetFullName(AIndex: Integer; const AValue: string);
  3748. procedure SetIsValueObject(AIndex: Integer; const AValue: boolean);
  3749. procedure SetMethods(AIndex: Integer;
  3750. const AValue: TSPMethodInformationArray);
  3751. procedure SetProperties(AIndex: Integer;
  3752. const AValue: TSPPropertyInformationArray);
  3753. protected
  3754. {$IFDEF VER2_6}
  3755. procedure SetArrayLength(const AName: String; ALength: Longint)
  3756. ; Override;
  3757. {$ENDIF VER2_6}
  3758. public
  3759. class function ObjectRestKind : String; Override;
  3760. function KeyAsURLPart : String; Override;
  3761. published
  3762. Property BaseTypeFullName : string index 0 read FBaseTypeFullName write SetBaseTypeFullName;
  3763. Property FullName : string index 8 read FFullName write SetFullName;
  3764. Property IsValueObject : boolean index 16 read FIsValueObject write SetIsValueObject;
  3765. Property Methods : TSPMethodInformationArray index 24 read FMethods write SetMethods;
  3766. Property Properties : TSPPropertyInformationArray index 32 read FProperties write SetProperties;
  3767. end;
  3768. { --------------------------------------------------------------------
  3769. SP: Site
  3770. --------------------------------------------------------------------}
  3771. TSPSite = Class(TODataEntity)
  3772. private
  3773. FAllowCreateDeclarativeWorkflow : boolean;
  3774. FAllowDesigner : boolean;
  3775. FAllowMasterPageEditing : boolean;
  3776. FAllowRevertFromTemplate : boolean;
  3777. FAllowSaveDeclarativeWorkflowAsTemplate : boolean;
  3778. FAllowSavePublishDeclarativeWorkflow : boolean;
  3779. FAllowSelfServiceUpgrade : boolean;
  3780. FAllowSelfServiceUpgradeEvaluation : boolean;
  3781. FAuditLogTrimmingRetention : TInt32;
  3782. FCanUpgrade : boolean;
  3783. FCompatibilityLevel : TInt32;
  3784. FExternalSharingTipsEnabled : boolean;
  3785. FId : TGUIDString;
  3786. FLockIssue : string;
  3787. FMaxItemsPerThrottledOperation : TInt32;
  3788. FNeedsB2BUpgrade : boolean;
  3789. FPrimaryUri : string;
  3790. FReadOnly : boolean;
  3791. FRequiredDesignerVersion : string;
  3792. FSandboxedCodeActivationCapability : TInt32;
  3793. FServerRelativeUrl : string;
  3794. FShareByEmailEnabled : boolean;
  3795. FShareByLinkEnabled : boolean;
  3796. FShowUrlStructure : boolean;
  3797. FTrimAuditLog : boolean;
  3798. FUIVersionConfigurationEnabled : boolean;
  3799. FUpgradeInfo : TSPUpgradeInfo;
  3800. FUpgradeReminderDate : TDateTime;
  3801. FUpgradeScheduled : boolean;
  3802. FUpgradeScheduledDate : TDateTime;
  3803. FUpgrading : boolean;
  3804. FUrl : string;
  3805. FUsage : TSPUsageInfo;
  3806. procedure SetAllowCreateDeclarativeWorkflow(AIndex: Integer;
  3807. const AValue: boolean);
  3808. procedure SetAllowDesigner(AIndex: Integer; const AValue: boolean);
  3809. procedure SetAllowMasterPageEditing(AIndex: Integer;
  3810. const AValue: boolean);
  3811. procedure SetAllowRevertFromTemplate(AIndex: Integer;
  3812. const AValue: boolean);
  3813. procedure SetAllowSaveDeclarativeWorkflowAsTemplate(AIndex: Integer;
  3814. const AValue: boolean);
  3815. procedure SetAllowSavePublishDeclarativeWorkflow(AIndex: Integer;
  3816. const AValue: boolean);
  3817. procedure SetAllowSelfServiceUpgrade(AIndex: Integer;
  3818. const AValue: boolean);
  3819. procedure SetAllowSelfServiceUpgradeEvaluation(AIndex: Integer;
  3820. const AValue: boolean);
  3821. procedure SetAuditLogTrimmingRetention(AIndex: Integer;
  3822. const AValue: TInt32);
  3823. procedure SetCanUpgrade(AIndex: Integer; const AValue: boolean);
  3824. procedure SetCompatibilityLevel(AIndex: Integer; const AValue: TInt32);
  3825. procedure SetExternalSharingTipsEnabled(AIndex: Integer;
  3826. const AValue: boolean);
  3827. procedure SetId(AIndex: Integer; const AValue: TGUIDString);
  3828. procedure SetLockIssue(AIndex: Integer; const AValue: string);
  3829. procedure SetMaxItemsPerThrottledOperation(AIndex: Integer;
  3830. const AValue: TInt32);
  3831. procedure SetNeedsB2BUpgrade(AIndex: Integer; const AValue: boolean);
  3832. procedure SetPrimaryUri(AIndex: Integer; const AValue: string);
  3833. procedure SetReadOnly(AIndex: Integer; const AValue: boolean);
  3834. procedure SetRequiredDesignerVersion(AIndex: Integer;
  3835. const AValue: string);
  3836. procedure SetSandboxedCodeActivationCapability(AIndex: Integer;
  3837. const AValue: TInt32);
  3838. procedure SetServerRelativeUrl(AIndex: Integer; const AValue: string);
  3839. procedure SetShareByEmailEnabled(AIndex: Integer; const AValue: boolean);
  3840. procedure SetShareByLinkEnabled(AIndex: Integer; const AValue: boolean);
  3841. procedure SetShowUrlStructure(AIndex: Integer; const AValue: boolean);
  3842. procedure SetTrimAuditLog(AIndex: Integer; const AValue: boolean);
  3843. procedure SetUIVersionConfigurationEnabled(AIndex: Integer;
  3844. const AValue: boolean);
  3845. procedure SetUpgradeInfo(AIndex: Integer; const AValue: TSPUpgradeInfo);
  3846. procedure SetUpgradeReminderDate(AIndex: Integer;
  3847. const AValue: TDateTime);
  3848. procedure SetUpgradeScheduled(AIndex: Integer; const AValue: boolean);
  3849. procedure SetUpgradeScheduledDate(AIndex: Integer;
  3850. const AValue: TDateTime);
  3851. procedure SetUpgrading(AIndex: Integer; const AValue: boolean);
  3852. procedure SetUrl(AIndex: Integer; const AValue: string);
  3853. procedure SetUsage(AIndex: Integer; const AValue: TSPUsageInfo);
  3854. public
  3855. class function ObjectRestKind : String; Override;
  3856. function KeyAsURLPart : String; Override;
  3857. function Audit(AService: TODataService) : TSPAudit;
  3858. function EventReceivers(AService: TODataService)
  3859. : TSPEventReceiverDefinition;
  3860. function Features(AService: TODataService) : TSPFeature;
  3861. function Owner(AService: TODataService) : TSPUser;
  3862. function RecycleBin(AService: TODataService) : TSPRecycleBinItem;
  3863. function RootWeb(AService: TODataService) : TSPWeb;
  3864. function SecondaryContact(AService: TODataService) : TSPUser;
  3865. function UserCustomActions(AService: TODataService)
  3866. : TSPUserCustomAction;
  3867. published
  3868. Property AllowCreateDeclarativeWorkflow : boolean index 0 read FAllowCreateDeclarativeWorkflow write SetAllowCreateDeclarativeWorkflow;
  3869. Property AllowDesigner : boolean index 8 read FAllowDesigner write SetAllowDesigner;
  3870. Property AllowMasterPageEditing : boolean index 16 read FAllowMasterPageEditing write SetAllowMasterPageEditing;
  3871. Property AllowRevertFromTemplate : boolean index 24 read FAllowRevertFromTemplate write SetAllowRevertFromTemplate;
  3872. Property AllowSaveDeclarativeWorkflowAsTemplate : boolean index 32 read FAllowSaveDeclarativeWorkflowAsTemplate write SetAllowSaveDeclarativeWorkflowAsTemplate;
  3873. Property AllowSavePublishDeclarativeWorkflow : boolean index 40 read FAllowSavePublishDeclarativeWorkflow write SetAllowSavePublishDeclarativeWorkflow;
  3874. Property AllowSelfServiceUpgrade : boolean index 48 read FAllowSelfServiceUpgrade write SetAllowSelfServiceUpgrade;
  3875. Property AllowSelfServiceUpgradeEvaluation : boolean index 56 read FAllowSelfServiceUpgradeEvaluation write SetAllowSelfServiceUpgradeEvaluation;
  3876. Property AuditLogTrimmingRetention : TInt32 index 64 read FAuditLogTrimmingRetention write SetAuditLogTrimmingRetention;
  3877. Property CanUpgrade : boolean index 72 read FCanUpgrade write SetCanUpgrade;
  3878. Property CompatibilityLevel : TInt32 index 80 read FCompatibilityLevel write SetCompatibilityLevel;
  3879. Property ExternalSharingTipsEnabled : boolean index 88 read FExternalSharingTipsEnabled write SetExternalSharingTipsEnabled;
  3880. Property Id : TGUIDString index 96 read FId write SetId;
  3881. Property LockIssue : string index 104 read FLockIssue write SetLockIssue;
  3882. Property MaxItemsPerThrottledOperation : TInt32 index 112 read FMaxItemsPerThrottledOperation write SetMaxItemsPerThrottledOperation;
  3883. Property NeedsB2BUpgrade : boolean index 120 read FNeedsB2BUpgrade write SetNeedsB2BUpgrade;
  3884. Property PrimaryUri : string index 128 read FPrimaryUri write SetPrimaryUri;
  3885. Property ReadOnly : boolean index 136 read FReadOnly write SetReadOnly;
  3886. Property RequiredDesignerVersion : string index 144 read FRequiredDesignerVersion write SetRequiredDesignerVersion;
  3887. Property SandboxedCodeActivationCapability : TInt32 index 152 read FSandboxedCodeActivationCapability write SetSandboxedCodeActivationCapability;
  3888. Property ServerRelativeUrl : string index 160 read FServerRelativeUrl write SetServerRelativeUrl;
  3889. Property ShareByEmailEnabled : boolean index 168 read FShareByEmailEnabled write SetShareByEmailEnabled;
  3890. Property ShareByLinkEnabled : boolean index 176 read FShareByLinkEnabled write SetShareByLinkEnabled;
  3891. Property ShowUrlStructure : boolean index 184 read FShowUrlStructure write SetShowUrlStructure;
  3892. Property TrimAuditLog : boolean index 192 read FTrimAuditLog write SetTrimAuditLog;
  3893. Property UIVersionConfigurationEnabled : boolean index 200 read FUIVersionConfigurationEnabled write SetUIVersionConfigurationEnabled;
  3894. Property UpgradeInfo : TSPUpgradeInfo index 208 read FUpgradeInfo write SetUpgradeInfo;
  3895. Property UpgradeReminderDate : TDateTime index 216 read FUpgradeReminderDate write SetUpgradeReminderDate;
  3896. Property UpgradeScheduled : boolean index 224 read FUpgradeScheduled write SetUpgradeScheduled;
  3897. Property UpgradeScheduledDate : TDateTime index 232 read FUpgradeScheduledDate write SetUpgradeScheduledDate;
  3898. Property Upgrading : boolean index 240 read FUpgrading write SetUpgrading;
  3899. Property Url : string index 248 read FUrl write SetUrl;
  3900. Property Usage : TSPUsageInfo index 256 read FUsage write SetUsage;
  3901. end;
  3902. { --------------------------------------------------------------------
  3903. SP: Audit
  3904. --------------------------------------------------------------------}
  3905. TSPAudit = Class(TODataEntity)
  3906. private
  3907. FAuditFlags : TInt32;
  3908. procedure SetAuditFlags(AIndex: Integer; const AValue: TInt32);
  3909. public
  3910. class function ObjectRestKind : String; Override;
  3911. function KeyAsURLPart : String; Override;
  3912. published
  3913. Property AuditFlags : TInt32 index 0 read FAuditFlags write SetAuditFlags;
  3914. end;
  3915. { --------------------------------------------------------------------
  3916. SP: EventReceiverDefinition
  3917. --------------------------------------------------------------------}
  3918. TSPEventReceiverDefinition = Class(TODataEntity)
  3919. private
  3920. FReceiverAssembly : string;
  3921. FReceiverClass : string;
  3922. FReceiverId : TGUIDString;
  3923. FReceiverName : string;
  3924. FSequenceNumber : TInt32;
  3925. FSynchronization : TInt32;
  3926. FEventType : TInt32;
  3927. FReceiverUrl : string;
  3928. procedure SetReceiverAssembly(AIndex: Integer; const AValue: string);
  3929. procedure SetReceiverClass(AIndex: Integer; const AValue: string);
  3930. procedure SetReceiverId(AIndex: Integer; const AValue: TGUIDString);
  3931. procedure SetReceiverName(AIndex: Integer; const AValue: string);
  3932. procedure SetSequenceNumber(AIndex: Integer; const AValue: TInt32);
  3933. procedure SetSynchronization(AIndex: Integer; const AValue: TInt32);
  3934. procedure SetEventType(AIndex: Integer; const AValue: TInt32);
  3935. procedure SetReceiverUrl(AIndex: Integer; const AValue: string);
  3936. public
  3937. class function ObjectRestKind : String; Override;
  3938. function KeyAsURLPart : String; Override;
  3939. published
  3940. Property ReceiverAssembly : string index 0 read FReceiverAssembly write SetReceiverAssembly;
  3941. Property ReceiverClass : string index 8 read FReceiverClass write SetReceiverClass;
  3942. Property ReceiverId : TGUIDString index 16 read FReceiverId write SetReceiverId;
  3943. Property ReceiverName : string index 24 read FReceiverName write SetReceiverName;
  3944. Property SequenceNumber : TInt32 index 32 read FSequenceNumber write SetSequenceNumber;
  3945. Property Synchronization : TInt32 index 40 read FSynchronization write SetSynchronization;
  3946. Property EventType : TInt32 index 48 read FEventType write SetEventType;
  3947. Property ReceiverUrl : string index 56 read FReceiverUrl write SetReceiverUrl;
  3948. end;
  3949. { --------------------------------------------------------------------
  3950. SP: Feature
  3951. --------------------------------------------------------------------}
  3952. TSPFeature = Class(TODataEntity)
  3953. private
  3954. FDefinitionId : TGUIDString;
  3955. FDisplayName : string;
  3956. procedure SetDefinitionId(AIndex: Integer; const AValue: TGUIDString);
  3957. procedure SetDisplayName(AIndex: Integer; const AValue: string);
  3958. public
  3959. class function ObjectRestKind : String; Override;
  3960. function KeyAsURLPart : String; Override;
  3961. published
  3962. Property DefinitionId : TGUIDString index 0 read FDefinitionId write SetDefinitionId;
  3963. Property DisplayName : string index 8 read FDisplayName write SetDisplayName;
  3964. end;
  3965. { --------------------------------------------------------------------
  3966. SP: Principal
  3967. --------------------------------------------------------------------}
  3968. TSPPrincipal = Class(TODataEntity)
  3969. private
  3970. FId : TInt32;
  3971. FIsHiddenInUI : boolean;
  3972. FLoginName : string;
  3973. FTitle : string;
  3974. FPrincipalType : TInt32;
  3975. procedure SetId(AIndex: Integer; const AValue: TInt32);
  3976. procedure SetIsHiddenInUI(AIndex: Integer; const AValue: boolean);
  3977. procedure SetLoginName(AIndex: Integer; const AValue: string);
  3978. procedure SetTitle(AIndex: Integer; const AValue: string);
  3979. procedure SetPrincipalType(AIndex: Integer; const AValue: TInt32);
  3980. public
  3981. class function ObjectRestKind : String; Override;
  3982. function KeyAsURLPart : String; Override;
  3983. published
  3984. Property Id : TInt32 index 0 read FId write SetId;
  3985. Property IsHiddenInUI : boolean index 8 read FIsHiddenInUI write SetIsHiddenInUI;
  3986. Property LoginName : string index 16 read FLoginName write SetLoginName;
  3987. Property Title : string index 24 read FTitle write SetTitle;
  3988. Property PrincipalType : TInt32 index 32 read FPrincipalType write SetPrincipalType;
  3989. end;
  3990. { --------------------------------------------------------------------
  3991. SP: User
  3992. --------------------------------------------------------------------}
  3993. TSPUser = Class(TSPPrincipal)
  3994. private
  3995. FEmail : string;
  3996. FIsShareByEmailGuestUser : boolean;
  3997. FIsSiteAdmin : boolean;
  3998. FUserId : TSPUserIdInfo;
  3999. procedure SetEmail(AIndex: Integer; const AValue: string);
  4000. procedure SetIsShareByEmailGuestUser(AIndex: Integer;
  4001. const AValue: boolean);
  4002. procedure SetIsSiteAdmin(AIndex: Integer; const AValue: boolean);
  4003. procedure SetUserId(AIndex: Integer; const AValue: TSPUserIdInfo);
  4004. public
  4005. class function ObjectRestKind : String; Override;
  4006. function Groups(AService: TODataService) : TSPGroup;
  4007. published
  4008. Property Email : string index 40 read FEmail write SetEmail;
  4009. Property IsShareByEmailGuestUser : boolean index 48 read FIsShareByEmailGuestUser write SetIsShareByEmailGuestUser;
  4010. Property IsSiteAdmin : boolean index 56 read FIsSiteAdmin write SetIsSiteAdmin;
  4011. Property UserId : TSPUserIdInfo index 64 read FUserId write SetUserId;
  4012. end;
  4013. { --------------------------------------------------------------------
  4014. SP: Group
  4015. --------------------------------------------------------------------}
  4016. TSPGroup = Class(TSPPrincipal)
  4017. private
  4018. FAllowMembersEditMembership : boolean;
  4019. FAllowRequestToJoinLeave : boolean;
  4020. FAutoAcceptRequestToJoinLeave : boolean;
  4021. FCanCurrentUserEditMembership : boolean;
  4022. FCanCurrentUserManageGroup : boolean;
  4023. FCanCurrentUserViewMembership : boolean;
  4024. FDescription : string;
  4025. FOnlyAllowMembersViewMembership : boolean;
  4026. FOwnerTitle : string;
  4027. FRequestToJoinLeaveEmailSetting : string;
  4028. procedure SetAllowMembersEditMembership(AIndex: Integer;
  4029. const AValue: boolean);
  4030. procedure SetAllowRequestToJoinLeave(AIndex: Integer;
  4031. const AValue: boolean);
  4032. procedure SetAutoAcceptRequestToJoinLeave(AIndex: Integer;
  4033. const AValue: boolean);
  4034. procedure SetCanCurrentUserEditMembership(AIndex: Integer;
  4035. const AValue: boolean);
  4036. procedure SetCanCurrentUserManageGroup(AIndex: Integer;
  4037. const AValue: boolean);
  4038. procedure SetCanCurrentUserViewMembership(AIndex: Integer;
  4039. const AValue: boolean);
  4040. procedure SetDescription(AIndex: Integer; const AValue: string);
  4041. procedure SetOnlyAllowMembersViewMembership(AIndex: Integer;
  4042. const AValue: boolean);
  4043. procedure SetOwnerTitle(AIndex: Integer; const AValue: string);
  4044. procedure SetRequestToJoinLeaveEmailSetting(AIndex: Integer;
  4045. const AValue: string);
  4046. public
  4047. class function ObjectRestKind : String; Override;
  4048. function Owner(AService: TODataService) : TSPPrincipal;
  4049. function Users(AService: TODataService) : TSPUser;
  4050. published
  4051. Property AllowMembersEditMembership : boolean index 40 read FAllowMembersEditMembership write SetAllowMembersEditMembership;
  4052. Property AllowRequestToJoinLeave : boolean index 48 read FAllowRequestToJoinLeave write SetAllowRequestToJoinLeave;
  4053. Property AutoAcceptRequestToJoinLeave : boolean index 56 read FAutoAcceptRequestToJoinLeave write SetAutoAcceptRequestToJoinLeave;
  4054. Property CanCurrentUserEditMembership : boolean index 64 read FCanCurrentUserEditMembership write SetCanCurrentUserEditMembership;
  4055. Property CanCurrentUserManageGroup : boolean index 72 read FCanCurrentUserManageGroup write SetCanCurrentUserManageGroup;
  4056. Property CanCurrentUserViewMembership : boolean index 80 read FCanCurrentUserViewMembership write SetCanCurrentUserViewMembership;
  4057. Property Description : string index 88 read FDescription write SetDescription;
  4058. Property OnlyAllowMembersViewMembership : boolean index 96 read FOnlyAllowMembersViewMembership write SetOnlyAllowMembersViewMembership;
  4059. Property OwnerTitle : string index 104 read FOwnerTitle write SetOwnerTitle;
  4060. Property RequestToJoinLeaveEmailSetting : string index 112 read FRequestToJoinLeaveEmailSetting write SetRequestToJoinLeaveEmailSetting;
  4061. end;
  4062. { --------------------------------------------------------------------
  4063. SP: RecycleBinItem
  4064. --------------------------------------------------------------------}
  4065. TSPRecycleBinItem = Class(TODataEntity)
  4066. private
  4067. FDeletedDate : TDateTime;
  4068. FDirName : string;
  4069. FId : TGUIDString;
  4070. FItemState : TInt32;
  4071. FItemType : TInt32;
  4072. FLeafName : string;
  4073. FSize : int64;
  4074. FTitle : string;
  4075. procedure SetDeletedDate(AIndex: Integer; const AValue: TDateTime);
  4076. procedure SetDirName(AIndex: Integer; const AValue: string);
  4077. procedure SetId(AIndex: Integer; const AValue: TGUIDString);
  4078. procedure SetItemState(AIndex: Integer; const AValue: TInt32);
  4079. procedure SetItemType(AIndex: Integer; const AValue: TInt32);
  4080. procedure SetLeafName(AIndex: Integer; const AValue: string);
  4081. procedure SetSize(AIndex: Integer; const AValue: int64);
  4082. procedure SetTitle(AIndex: Integer; const AValue: string);
  4083. public
  4084. class function ObjectRestKind : String; Override;
  4085. function KeyAsURLPart : String; Override;
  4086. function Author(AService: TODataService) : TSPUser;
  4087. function DeletedBy(AService: TODataService) : TSPUser;
  4088. published
  4089. Property DeletedDate : TDateTime index 0 read FDeletedDate write SetDeletedDate;
  4090. Property DirName : string index 8 read FDirName write SetDirName;
  4091. Property Id : TGUIDString index 16 read FId write SetId;
  4092. Property ItemState : TInt32 index 24 read FItemState write SetItemState;
  4093. Property ItemType : TInt32 index 32 read FItemType write SetItemType;
  4094. Property LeafName : string index 40 read FLeafName write SetLeafName;
  4095. Property Size : int64 index 48 read FSize write SetSize;
  4096. Property Title : string index 56 read FTitle write SetTitle;
  4097. end;
  4098. { --------------------------------------------------------------------
  4099. SP: SecurableObject
  4100. --------------------------------------------------------------------}
  4101. TSPSecurableObject = Class(TODataEntity)
  4102. private
  4103. FHasUniqueRoleAssignments : boolean;
  4104. procedure SetHasUniqueRoleAssignments(AIndex: Integer;
  4105. const AValue: boolean);
  4106. public
  4107. class function ObjectRestKind : String; Override;
  4108. function KeyAsURLPart : String; Override;
  4109. function FirstUniqueAncestorSecurableObject(AService: TODataService)
  4110. : TSPSecurableObject;
  4111. function RoleAssignments(AService: TODataService) : TSPRoleAssignment;
  4112. published
  4113. Property HasUniqueRoleAssignments : boolean index 0 read FHasUniqueRoleAssignments write SetHasUniqueRoleAssignments;
  4114. end;
  4115. { --------------------------------------------------------------------
  4116. SP: RoleAssignment
  4117. --------------------------------------------------------------------}
  4118. TSPRoleAssignment = Class(TODataEntity)
  4119. private
  4120. FPrincipalId : TInt32;
  4121. procedure SetPrincipalId(AIndex: Integer; const AValue: TInt32);
  4122. public
  4123. class function ObjectRestKind : String; Override;
  4124. function KeyAsURLPart : String; Override;
  4125. function Member(AService: TODataService) : TSPPrincipal;
  4126. function RoleDefinitionBindings(AService: TODataService)
  4127. : TSPRoleDefinition;
  4128. published
  4129. Property PrincipalId : TInt32 index 0 read FPrincipalId write SetPrincipalId;
  4130. end;
  4131. { --------------------------------------------------------------------
  4132. SP: RoleDefinition
  4133. --------------------------------------------------------------------}
  4134. TSPRoleDefinition = Class(TODataEntity)
  4135. private
  4136. FBasePermissions : TSPBasePermissions;
  4137. FDescription : string;
  4138. FHidden : boolean;
  4139. FId : TInt32;
  4140. FName : string;
  4141. FOrder : TInt32;
  4142. FRoleTypeKind : TInt32;
  4143. procedure SetBasePermissions(AIndex: Integer;
  4144. const AValue: TSPBasePermissions);
  4145. procedure SetDescription(AIndex: Integer; const AValue: string);
  4146. procedure SetHidden(AIndex: Integer; const AValue: boolean);
  4147. procedure SetId(AIndex: Integer; const AValue: TInt32);
  4148. procedure SetName(AIndex: Integer; const AValue: string);
  4149. procedure SetOrder(AIndex: Integer; const AValue: TInt32);
  4150. procedure SetRoleTypeKind(AIndex: Integer; const AValue: TInt32);
  4151. public
  4152. class function ObjectRestKind : String; Override;
  4153. function KeyAsURLPart : String; Override;
  4154. published
  4155. Property BasePermissions : TSPBasePermissions index 0 read FBasePermissions write SetBasePermissions;
  4156. Property Description : string index 8 read FDescription write SetDescription;
  4157. Property Hidden : boolean index 16 read FHidden write SetHidden;
  4158. Property Id : TInt32 index 24 read FId write SetId;
  4159. Property Name : string index 32 read FName write SetName;
  4160. Property Order : TInt32 index 40 read FOrder write SetOrder;
  4161. Property RoleTypeKind : TInt32 index 48 read FRoleTypeKind write SetRoleTypeKind;
  4162. end;
  4163. { --------------------------------------------------------------------
  4164. SP: Web
  4165. --------------------------------------------------------------------}
  4166. TSPWeb = Class(TSPSecurableObject)
  4167. private
  4168. FAllowCreateDeclarativeWorkflowForCurrentUser : boolean;
  4169. FAllowDesignerForCurrentUser : boolean;
  4170. FAllowMasterPageEditingForCurrentUser : boolean;
  4171. FAllowRevertFromTemplateForCurrentUser : boolean;
  4172. FAllowRssFeeds : boolean;
  4173. FAllowSaveDeclarativeWorkflowAsTemplateForCurrentUser : boolean;
  4174. FAllowSavePublishDeclarativeWorkflowForCurrentUser : boolean;
  4175. FAlternateCssUrl : string;
  4176. FAppInstanceId : TGUIDString;
  4177. FConfiguration : TInt16;
  4178. FContainsConfidentialInfo : boolean;
  4179. FCreated : TDateTime;
  4180. FCustomMasterUrl : string;
  4181. FDescription : string;
  4182. FDesignerDownloadUrlForCurrentUser : string;
  4183. FDocumentLibraryCalloutOfficeWebAppPreviewersDisabled : boolean;
  4184. FEffectiveBasePermissions : TSPBasePermissions;
  4185. FEnableMinimalDownload : boolean;
  4186. FId : TGUIDString;
  4187. FIsMultilingual : boolean;
  4188. FLanguage : TInt32;
  4189. FLastItemModifiedDate : TDateTime;
  4190. FMasterUrl : string;
  4191. FMembersCanShare : boolean;
  4192. FOverwriteTranslationsOnChange : boolean;
  4193. FQuickLaunchEnabled : boolean;
  4194. FRecycleBinEnabled : boolean;
  4195. FSaveSiteAsTemplateEnabled : boolean;
  4196. FServerRelativeUrl : string;
  4197. FShowUrlStructureForCurrentUser : boolean;
  4198. FSiteLogoUrl : string;
  4199. FSupportedUILanguageIds : TInt32Array;
  4200. FSyndicationEnabled : boolean;
  4201. FThemeData : string;
  4202. FThirdPartyMdmEnabled : boolean;
  4203. FTitle : string;
  4204. FTreeViewEnabled : boolean;
  4205. FUIVersion : TInt32;
  4206. FUIVersionConfigurationEnabled : boolean;
  4207. FUrl : string;
  4208. FWebTemplate : string;
  4209. procedure SetAllowCreateDeclarativeWorkflowForCurrentUser
  4210. (AIndex: Integer;
  4211. const AValue: boolean);
  4212. procedure SetAllowDesignerForCurrentUser(AIndex: Integer;
  4213. const AValue: boolean);
  4214. procedure SetAllowMasterPageEditingForCurrentUser(AIndex: Integer;
  4215. const AValue: boolean);
  4216. procedure SetAllowRevertFromTemplateForCurrentUser(AIndex: Integer;
  4217. const AValue: boolean);
  4218. procedure SetAllowRssFeeds(AIndex: Integer; const AValue: boolean);
  4219. procedure SetAllowSaveDeclarativeWorkflowAsTemplateForCurrentUser
  4220. (AIndex: Integer;
  4221. const AValue: boolean);
  4222. procedure SetAllowSavePublishDeclarativeWorkflowForCurrentUser
  4223. (AIndex: Integer;
  4224. const AValue: boolean);
  4225. procedure SetAlternateCssUrl(AIndex: Integer; const AValue: string);
  4226. procedure SetAppInstanceId(AIndex: Integer; const AValue: TGUIDString);
  4227. procedure SetConfiguration(AIndex: Integer; const AValue: TInt16);
  4228. procedure SetContainsConfidentialInfo(AIndex: Integer;
  4229. const AValue: boolean);
  4230. procedure SetCreated(AIndex: Integer; const AValue: TDateTime);
  4231. procedure SetCustomMasterUrl(AIndex: Integer; const AValue: string);
  4232. procedure SetDescription(AIndex: Integer; const AValue: string);
  4233. procedure SetDesignerDownloadUrlForCurrentUser(AIndex: Integer;
  4234. const AValue: string);
  4235. procedure SetDocumentLibraryCalloutOfficeWebAppPreviewersDisabled
  4236. (AIndex: Integer;
  4237. const AValue: boolean);
  4238. procedure SetEffectiveBasePermissions(AIndex: Integer;
  4239. const AValue: TSPBasePermissions);
  4240. procedure SetEnableMinimalDownload(AIndex: Integer;
  4241. const AValue: boolean);
  4242. procedure SetId(AIndex: Integer; const AValue: TGUIDString);
  4243. procedure SetIsMultilingual(AIndex: Integer; const AValue: boolean);
  4244. procedure SetLanguage(AIndex: Integer; const AValue: TInt32);
  4245. procedure SetLastItemModifiedDate(AIndex: Integer;
  4246. const AValue: TDateTime);
  4247. procedure SetMasterUrl(AIndex: Integer; const AValue: string);
  4248. procedure SetMembersCanShare(AIndex: Integer; const AValue: boolean);
  4249. procedure SetOverwriteTranslationsOnChange(AIndex: Integer;
  4250. const AValue: boolean);
  4251. procedure SetQuickLaunchEnabled(AIndex: Integer; const AValue: boolean);
  4252. procedure SetRecycleBinEnabled(AIndex: Integer; const AValue: boolean);
  4253. procedure SetSaveSiteAsTemplateEnabled(AIndex: Integer;
  4254. const AValue: boolean);
  4255. procedure SetServerRelativeUrl(AIndex: Integer; const AValue: string);
  4256. procedure SetShowUrlStructureForCurrentUser(AIndex: Integer;
  4257. const AValue: boolean);
  4258. procedure SetSiteLogoUrl(AIndex: Integer; const AValue: string);
  4259. procedure SetSupportedUILanguageIds(AIndex: Integer;
  4260. const AValue: TInt32Array);
  4261. procedure SetSyndicationEnabled(AIndex: Integer; const AValue: boolean);
  4262. procedure SetThemeData(AIndex: Integer; const AValue: string);
  4263. procedure SetThirdPartyMdmEnabled(AIndex: Integer;
  4264. const AValue: boolean);
  4265. procedure SetTitle(AIndex: Integer; const AValue: string);
  4266. procedure SetTreeViewEnabled(AIndex: Integer; const AValue: boolean);
  4267. procedure SetUIVersion(AIndex: Integer; const AValue: TInt32);
  4268. procedure SetUIVersionConfigurationEnabled(AIndex: Integer;
  4269. const AValue: boolean);
  4270. procedure SetUrl(AIndex: Integer; const AValue: string);
  4271. procedure SetWebTemplate(AIndex: Integer; const AValue: string);
  4272. protected
  4273. {$IFDEF VER2_6}
  4274. procedure SetArrayLength(const AName: String; ALength: Longint)
  4275. ; Override;
  4276. {$ENDIF VER2_6}
  4277. public
  4278. class function ObjectRestKind : String; Override;
  4279. function AllProperties(AService: TODataService) : TSPPropertyValues;
  4280. function AppTiles(AService: TODataService) : TSPAppTile;
  4281. function AssociatedMemberGroup(AService: TODataService) : TSPGroup;
  4282. function AssociatedOwnerGroup(AService: TODataService) : TSPGroup;
  4283. function AssociatedVisitorGroup(AService: TODataService) : TSPGroup;
  4284. function AvailableContentTypes(AService: TODataService) : TSPContentType;
  4285. function AvailableFields(AService: TODataService) : TSPField;
  4286. function ContentTypes(AService: TODataService) : TSPContentType;
  4287. function CurrentUser(AService: TODataService) : TSPUser;
  4288. function DataLeakagePreventionStatusInfo(AService: TODataService)
  4289. : TSPSPDataLeakagePreventionStatusInfo;
  4290. function DescriptionResource(AService: TODataService) : TSPUserResource;
  4291. function EventReceivers(AService: TODataService)
  4292. : TSPEventReceiverDefinition;
  4293. function Features(AService: TODataService) : TSPFeature;
  4294. function Fields(AService: TODataService) : TSPField;
  4295. function Folders(AService: TODataService) : TSPFolder;
  4296. function Lists(AService: TODataService) : TSPList;
  4297. function ListTemplates(AService: TODataService) : TSPListTemplate;
  4298. function Navigation(AService: TODataService) : TSPNavigation;
  4299. function ParentWeb(AService: TODataService) : TSPWebInformation;
  4300. function PushNotificationSubscribers(AService: TODataService)
  4301. : TSPPushNotificationSubscriber;
  4302. function RecycleBin(AService: TODataService) : TSPRecycleBinItem;
  4303. function RegionalSettings(AService: TODataService) : TSPRegionalSettings;
  4304. function RoleDefinitions(AService: TODataService) : TSPRoleDefinition;
  4305. function RootFolder(AService: TODataService) : TSPFolder;
  4306. function SiteGroups(AService: TODataService) : TSPGroup;
  4307. function SiteUserInfoList(AService: TODataService) : TSPList;
  4308. function SiteUsers(AService: TODataService) : TSPUser;
  4309. function ThemeInfo(AService: TODataService) : TSPThemeInfo;
  4310. function TitleResource(AService: TODataService) : TSPUserResource;
  4311. function UserCustomActions(AService: TODataService)
  4312. : TSPUserCustomAction;
  4313. function Webs(AService: TODataService) : TSPWeb;
  4314. function WebInfos(AService: TODataService) : TSPWebInformation;
  4315. function WorkflowAssociations(AService: TODataService)
  4316. : TSP_WorkflowWorkflowAssociation;
  4317. function WorkflowTemplates(AService: TODataService)
  4318. : TSP_WorkflowWorkflowTemplate;
  4319. published
  4320. Property AllowCreateDeclarativeWorkflowForCurrentUser : boolean index 8 read FAllowCreateDeclarativeWorkflowForCurrentUser write SetAllowCreateDeclarativeWorkflowForCurrentUser;
  4321. Property AllowDesignerForCurrentUser : boolean index 16 read FAllowDesignerForCurrentUser write SetAllowDesignerForCurrentUser;
  4322. Property AllowMasterPageEditingForCurrentUser : boolean index 24 read FAllowMasterPageEditingForCurrentUser write SetAllowMasterPageEditingForCurrentUser;
  4323. Property AllowRevertFromTemplateForCurrentUser : boolean index 32 read FAllowRevertFromTemplateForCurrentUser write SetAllowRevertFromTemplateForCurrentUser;
  4324. Property AllowRssFeeds : boolean index 40 read FAllowRssFeeds write SetAllowRssFeeds;
  4325. Property AllowSaveDeclarativeWorkflowAsTemplateForCurrentUser : boolean index 48 read FAllowSaveDeclarativeWorkflowAsTemplateForCurrentUser write SetAllowSaveDeclarativeWorkflowAsTemplateForCurrentUser;
  4326. Property AllowSavePublishDeclarativeWorkflowForCurrentUser : boolean index 56 read FAllowSavePublishDeclarativeWorkflowForCurrentUser write SetAllowSavePublishDeclarativeWorkflowForCurrentUser;
  4327. Property AlternateCssUrl : string index 64 read FAlternateCssUrl write SetAlternateCssUrl;
  4328. Property AppInstanceId : TGUIDString index 72 read FAppInstanceId write SetAppInstanceId;
  4329. Property Configuration : TInt16 index 80 read FConfiguration write SetConfiguration;
  4330. Property ContainsConfidentialInfo : boolean index 88 read FContainsConfidentialInfo write SetContainsConfidentialInfo;
  4331. Property Created : TDateTime index 96 read FCreated write SetCreated;
  4332. Property CustomMasterUrl : string index 104 read FCustomMasterUrl write SetCustomMasterUrl;
  4333. Property Description : string index 112 read FDescription write SetDescription;
  4334. Property DesignerDownloadUrlForCurrentUser : string index 120 read FDesignerDownloadUrlForCurrentUser write SetDesignerDownloadUrlForCurrentUser;
  4335. Property DocumentLibraryCalloutOfficeWebAppPreviewersDisabled : boolean index 128 read FDocumentLibraryCalloutOfficeWebAppPreviewersDisabled write SetDocumentLibraryCalloutOfficeWebAppPreviewersDisabled;
  4336. Property EffectiveBasePermissions : TSPBasePermissions index 136 read FEffectiveBasePermissions write SetEffectiveBasePermissions;
  4337. Property EnableMinimalDownload : boolean index 144 read FEnableMinimalDownload write SetEnableMinimalDownload;
  4338. Property Id : TGUIDString index 152 read FId write SetId;
  4339. Property IsMultilingual : boolean index 160 read FIsMultilingual write SetIsMultilingual;
  4340. Property Language : TInt32 index 168 read FLanguage write SetLanguage;
  4341. Property LastItemModifiedDate : TDateTime index 176 read FLastItemModifiedDate write SetLastItemModifiedDate;
  4342. Property MasterUrl : string index 184 read FMasterUrl write SetMasterUrl;
  4343. Property MembersCanShare : boolean index 192 read FMembersCanShare write SetMembersCanShare;
  4344. Property OverwriteTranslationsOnChange : boolean index 200 read FOverwriteTranslationsOnChange write SetOverwriteTranslationsOnChange;
  4345. Property QuickLaunchEnabled : boolean index 208 read FQuickLaunchEnabled write SetQuickLaunchEnabled;
  4346. Property RecycleBinEnabled : boolean index 216 read FRecycleBinEnabled write SetRecycleBinEnabled;
  4347. Property SaveSiteAsTemplateEnabled : boolean index 224 read FSaveSiteAsTemplateEnabled write SetSaveSiteAsTemplateEnabled;
  4348. Property ServerRelativeUrl : string index 232 read FServerRelativeUrl write SetServerRelativeUrl;
  4349. Property ShowUrlStructureForCurrentUser : boolean index 240 read FShowUrlStructureForCurrentUser write SetShowUrlStructureForCurrentUser;
  4350. Property SiteLogoUrl : string index 248 read FSiteLogoUrl write SetSiteLogoUrl;
  4351. Property SupportedUILanguageIds : TInt32Array index 256 read FSupportedUILanguageIds write SetSupportedUILanguageIds;
  4352. Property SyndicationEnabled : boolean index 264 read FSyndicationEnabled write SetSyndicationEnabled;
  4353. Property ThemeData : string index 272 read FThemeData write SetThemeData;
  4354. Property ThirdPartyMdmEnabled : boolean index 280 read FThirdPartyMdmEnabled write SetThirdPartyMdmEnabled;
  4355. Property Title : string index 288 read FTitle write SetTitle;
  4356. Property TreeViewEnabled : boolean index 296 read FTreeViewEnabled write SetTreeViewEnabled;
  4357. Property UIVersion : TInt32 index 304 read FUIVersion write SetUIVersion;
  4358. Property UIVersionConfigurationEnabled : boolean index 312 read FUIVersionConfigurationEnabled write SetUIVersionConfigurationEnabled;
  4359. Property Url : string index 320 read FUrl write SetUrl;
  4360. Property WebTemplate : string index 328 read FWebTemplate write SetWebTemplate;
  4361. end;
  4362. { --------------------------------------------------------------------
  4363. SP: PropertyValues
  4364. --------------------------------------------------------------------}
  4365. TSPPropertyValues = Class(TODataEntity)
  4366. private
  4367. FId4a81de82eeb94d6080ea5bf63e27023a : string;
  4368. procedure SetId4a81de82eeb94d6080ea5bf63e27023a(AIndex: Integer;
  4369. const AValue: string);
  4370. public
  4371. class function ObjectRestKind : String; Override;
  4372. function KeyAsURLPart : String; Override;
  4373. published
  4374. Property Id4a81de82eeb94d6080ea5bf63e27023a : string index 0 read FId4a81de82eeb94d6080ea5bf63e27023a write SetId4a81de82eeb94d6080ea5bf63e27023a;
  4375. end;
  4376. { --------------------------------------------------------------------
  4377. SP: AppTile
  4378. --------------------------------------------------------------------}
  4379. TSPAppTile = Class(TODataEntity)
  4380. private
  4381. FAppType : TInt32;
  4382. FChildCount : TInt32;
  4383. FLastModified : string;
  4384. FTarget : string;
  4385. FThumbnail : string;
  4386. FTitle : string;
  4387. procedure SetAppType(AIndex: Integer; const AValue: TInt32);
  4388. procedure SetChildCount(AIndex: Integer; const AValue: TInt32);
  4389. procedure SetLastModified(AIndex: Integer; const AValue: string);
  4390. procedure SetTarget(AIndex: Integer; const AValue: string);
  4391. procedure SetThumbnail(AIndex: Integer; const AValue: string);
  4392. procedure SetTitle(AIndex: Integer; const AValue: string);
  4393. public
  4394. class function ObjectRestKind : String; Override;
  4395. function KeyAsURLPart : String; Override;
  4396. published
  4397. Property AppType : TInt32 index 0 read FAppType write SetAppType;
  4398. Property ChildCount : TInt32 index 8 read FChildCount write SetChildCount;
  4399. Property LastModified : string index 16 read FLastModified write SetLastModified;
  4400. Property Target : string index 24 read FTarget write SetTarget;
  4401. Property Thumbnail : string index 32 read FThumbnail write SetThumbnail;
  4402. Property Title : string index 40 read FTitle write SetTitle;
  4403. end;
  4404. { --------------------------------------------------------------------
  4405. SP: ContentType
  4406. --------------------------------------------------------------------}
  4407. TSPContentType = Class(TODataEntity)
  4408. private
  4409. FDescription : string;
  4410. FDisplayFormTemplateName : string;
  4411. FDisplayFormUrl : string;
  4412. FDocumentTemplate : string;
  4413. FDocumentTemplateUrl : string;
  4414. FEditFormTemplateName : string;
  4415. FEditFormUrl : string;
  4416. FGroup : string;
  4417. FHidden : boolean;
  4418. FId : TSPContentTypeId;
  4419. FJSLink : string;
  4420. FMobileDisplayFormUrl : string;
  4421. FMobileEditFormUrl : string;
  4422. FMobileNewFormUrl : string;
  4423. FName : string;
  4424. FNewFormTemplateName : string;
  4425. FNewFormUrl : string;
  4426. FReadOnly : boolean;
  4427. FSchemaXml : string;
  4428. FSchemaXmlWithResourceTokens : string;
  4429. FScope : string;
  4430. FSealed : boolean;
  4431. FStringId : string;
  4432. procedure SetDescription(AIndex: Integer; const AValue: string);
  4433. procedure SetDisplayFormTemplateName(AIndex: Integer;
  4434. const AValue: string);
  4435. procedure SetDisplayFormUrl(AIndex: Integer; const AValue: string);
  4436. procedure SetDocumentTemplate(AIndex: Integer; const AValue: string);
  4437. procedure SetDocumentTemplateUrl(AIndex: Integer; const AValue: string);
  4438. procedure SetEditFormTemplateName(AIndex: Integer; const AValue: string);
  4439. procedure SetEditFormUrl(AIndex: Integer; const AValue: string);
  4440. procedure SetGroup(AIndex: Integer; const AValue: string);
  4441. procedure SetHidden(AIndex: Integer; const AValue: boolean);
  4442. procedure SetId(AIndex: Integer; const AValue: TSPContentTypeId);
  4443. procedure SetJSLink(AIndex: Integer; const AValue: string);
  4444. procedure SetMobileDisplayFormUrl(AIndex: Integer; const AValue: string);
  4445. procedure SetMobileEditFormUrl(AIndex: Integer; const AValue: string);
  4446. procedure SetMobileNewFormUrl(AIndex: Integer; const AValue: string);
  4447. procedure SetName(AIndex: Integer; const AValue: string);
  4448. procedure SetNewFormTemplateName(AIndex: Integer; const AValue: string);
  4449. procedure SetNewFormUrl(AIndex: Integer; const AValue: string);
  4450. procedure SetReadOnly(AIndex: Integer; const AValue: boolean);
  4451. procedure SetSchemaXml(AIndex: Integer; const AValue: string);
  4452. procedure SetSchemaXmlWithResourceTokens(AIndex: Integer;
  4453. const AValue: string);
  4454. procedure SetScope(AIndex: Integer; const AValue: string);
  4455. procedure SetSealed(AIndex: Integer; const AValue: boolean);
  4456. procedure SetStringId(AIndex: Integer; const AValue: string);
  4457. public
  4458. class function ObjectRestKind : String; Override;
  4459. function KeyAsURLPart : String; Override;
  4460. function DescriptionResource(AService: TODataService) : TSPUserResource;
  4461. function FieldLinks(AService: TODataService) : TSPFieldLink;
  4462. function Fields(AService: TODataService) : TSPField;
  4463. function NameResource(AService: TODataService) : TSPUserResource;
  4464. function Parent(AService: TODataService) : TSPContentType;
  4465. function WorkflowAssociations(AService: TODataService)
  4466. : TSP_WorkflowWorkflowAssociation;
  4467. published
  4468. Property Description : string index 0 read FDescription write SetDescription;
  4469. Property DisplayFormTemplateName : string index 8 read FDisplayFormTemplateName write SetDisplayFormTemplateName;
  4470. Property DisplayFormUrl : string index 16 read FDisplayFormUrl write SetDisplayFormUrl;
  4471. Property DocumentTemplate : string index 24 read FDocumentTemplate write SetDocumentTemplate;
  4472. Property DocumentTemplateUrl : string index 32 read FDocumentTemplateUrl write SetDocumentTemplateUrl;
  4473. Property EditFormTemplateName : string index 40 read FEditFormTemplateName write SetEditFormTemplateName;
  4474. Property EditFormUrl : string index 48 read FEditFormUrl write SetEditFormUrl;
  4475. Property Group : string index 56 read FGroup write SetGroup;
  4476. Property Hidden : boolean index 64 read FHidden write SetHidden;
  4477. Property Id : TSPContentTypeId index 72 read FId write SetId;
  4478. Property JSLink : string index 80 read FJSLink write SetJSLink;
  4479. Property MobileDisplayFormUrl : string index 88 read FMobileDisplayFormUrl write SetMobileDisplayFormUrl;
  4480. Property MobileEditFormUrl : string index 96 read FMobileEditFormUrl write SetMobileEditFormUrl;
  4481. Property MobileNewFormUrl : string index 104 read FMobileNewFormUrl write SetMobileNewFormUrl;
  4482. Property Name : string index 112 read FName write SetName;
  4483. Property NewFormTemplateName : string index 120 read FNewFormTemplateName write SetNewFormTemplateName;
  4484. Property NewFormUrl : string index 128 read FNewFormUrl write SetNewFormUrl;
  4485. Property ReadOnly : boolean index 136 read FReadOnly write SetReadOnly;
  4486. Property SchemaXml : string index 144 read FSchemaXml write SetSchemaXml;
  4487. Property SchemaXmlWithResourceTokens : string index 152 read FSchemaXmlWithResourceTokens write SetSchemaXmlWithResourceTokens;
  4488. Property Scope : string index 160 read FScope write SetScope;
  4489. Property Sealed : boolean index 168 read FSealed write SetSealed;
  4490. Property StringId : string index 176 read FStringId write SetStringId;
  4491. end;
  4492. { --------------------------------------------------------------------
  4493. SP: UserResource
  4494. --------------------------------------------------------------------}
  4495. TSPUserResource = Class(TODataEntity)
  4496. private
  4497. FId4a81de82eeb94d6080ea5bf63e27023a : string;
  4498. procedure SetId4a81de82eeb94d6080ea5bf63e27023a(AIndex: Integer;
  4499. const AValue: string);
  4500. public
  4501. class function ObjectRestKind : String; Override;
  4502. function KeyAsURLPart : String; Override;
  4503. published
  4504. Property Id4a81de82eeb94d6080ea5bf63e27023a : string index 0 read FId4a81de82eeb94d6080ea5bf63e27023a write SetId4a81de82eeb94d6080ea5bf63e27023a;
  4505. end;
  4506. { --------------------------------------------------------------------
  4507. SP: FieldLink
  4508. --------------------------------------------------------------------}
  4509. TSPFieldLink = Class(TODataEntity)
  4510. private
  4511. FFieldInternalName : string;
  4512. FHidden : boolean;
  4513. FId : TGUIDString;
  4514. FName : string;
  4515. FRequired : boolean;
  4516. procedure SetFieldInternalName(AIndex: Integer; const AValue: string);
  4517. procedure SetHidden(AIndex: Integer; const AValue: boolean);
  4518. procedure SetId(AIndex: Integer; const AValue: TGUIDString);
  4519. procedure SetName(AIndex: Integer; const AValue: string);
  4520. procedure SetRequired(AIndex: Integer; const AValue: boolean);
  4521. public
  4522. class function ObjectRestKind : String; Override;
  4523. function KeyAsURLPart : String; Override;
  4524. published
  4525. Property FieldInternalName : string index 0 read FFieldInternalName write SetFieldInternalName;
  4526. Property Hidden : boolean index 8 read FHidden write SetHidden;
  4527. Property Id : TGUIDString index 16 read FId write SetId;
  4528. Property Name : string index 24 read FName write SetName;
  4529. Property Required : boolean index 32 read FRequired write SetRequired;
  4530. end;
  4531. { --------------------------------------------------------------------
  4532. SP: Field
  4533. --------------------------------------------------------------------}
  4534. TSPField = Class(TODataEntity)
  4535. private
  4536. FAutoIndexed : boolean;
  4537. FCanBeDeleted : boolean;
  4538. FDefaultValue : string;
  4539. FDescription : string;
  4540. FDirection : string;
  4541. FEnforceUniqueValues : boolean;
  4542. FEntityPropertyName : string;
  4543. FFilterable : boolean;
  4544. FFromBaseType : boolean;
  4545. FGroup : string;
  4546. FHidden : boolean;
  4547. FId : TGUIDString;
  4548. FIndexed : boolean;
  4549. FInternalName : string;
  4550. FJSLink : string;
  4551. FReadOnlyField : boolean;
  4552. FRequired : boolean;
  4553. FSchemaXml : string;
  4554. FSchemaXmlWithResourceTokens : string;
  4555. FScope : string;
  4556. FSealed : boolean;
  4557. FSortable : boolean;
  4558. FStaticName : string;
  4559. FTitle : string;
  4560. FFieldTypeKind : TInt32;
  4561. FTypeAsString : string;
  4562. FTypeDisplayName : string;
  4563. FTypeShortDescription : string;
  4564. FValidationFormula : string;
  4565. FValidationMessage : string;
  4566. procedure SetAutoIndexed(AIndex: Integer; const AValue: boolean);
  4567. procedure SetCanBeDeleted(AIndex: Integer; const AValue: boolean);
  4568. procedure SetDefaultValue(AIndex: Integer; const AValue: string);
  4569. procedure SetDescription(AIndex: Integer; const AValue: string);
  4570. procedure SetDirection(AIndex: Integer; const AValue: string);
  4571. procedure SetEnforceUniqueValues(AIndex: Integer; const AValue: boolean);
  4572. procedure SetEntityPropertyName(AIndex: Integer; const AValue: string);
  4573. procedure SetFilterable(AIndex: Integer; const AValue: boolean);
  4574. procedure SetFromBaseType(AIndex: Integer; const AValue: boolean);
  4575. procedure SetGroup(AIndex: Integer; const AValue: string);
  4576. procedure SetHidden(AIndex: Integer; const AValue: boolean);
  4577. procedure SetId(AIndex: Integer; const AValue: TGUIDString);
  4578. procedure SetIndexed(AIndex: Integer; const AValue: boolean);
  4579. procedure SetInternalName(AIndex: Integer; const AValue: string);
  4580. procedure SetJSLink(AIndex: Integer; const AValue: string);
  4581. procedure SetReadOnlyField(AIndex: Integer; const AValue: boolean);
  4582. procedure SetRequired(AIndex: Integer; const AValue: boolean);
  4583. procedure SetSchemaXml(AIndex: Integer; const AValue: string);
  4584. procedure SetSchemaXmlWithResourceTokens(AIndex: Integer;
  4585. const AValue: string);
  4586. procedure SetScope(AIndex: Integer; const AValue: string);
  4587. procedure SetSealed(AIndex: Integer; const AValue: boolean);
  4588. procedure SetSortable(AIndex: Integer; const AValue: boolean);
  4589. procedure SetStaticName(AIndex: Integer; const AValue: string);
  4590. procedure SetTitle(AIndex: Integer; const AValue: string);
  4591. procedure SetFieldTypeKind(AIndex: Integer; const AValue: TInt32);
  4592. procedure SetTypeAsString(AIndex: Integer; const AValue: string);
  4593. procedure SetTypeDisplayName(AIndex: Integer; const AValue: string);
  4594. procedure SetTypeShortDescription(AIndex: Integer; const AValue: string);
  4595. procedure SetValidationFormula(AIndex: Integer; const AValue: string);
  4596. procedure SetValidationMessage(AIndex: Integer; const AValue: string);
  4597. public
  4598. class function ObjectRestKind : String; Override;
  4599. function KeyAsURLPart : String; Override;
  4600. function DescriptionResource(AService: TODataService) : TSPUserResource;
  4601. function TitleResource(AService: TODataService) : TSPUserResource;
  4602. published
  4603. Property AutoIndexed : boolean index 0 read FAutoIndexed write SetAutoIndexed;
  4604. Property CanBeDeleted : boolean index 8 read FCanBeDeleted write SetCanBeDeleted;
  4605. Property DefaultValue : string index 16 read FDefaultValue write SetDefaultValue;
  4606. Property Description : string index 24 read FDescription write SetDescription;
  4607. Property Direction : string index 32 read FDirection write SetDirection;
  4608. Property EnforceUniqueValues : boolean index 40 read FEnforceUniqueValues write SetEnforceUniqueValues;
  4609. Property EntityPropertyName : string index 48 read FEntityPropertyName write SetEntityPropertyName;
  4610. Property Filterable : boolean index 56 read FFilterable write SetFilterable;
  4611. Property FromBaseType : boolean index 64 read FFromBaseType write SetFromBaseType;
  4612. Property Group : string index 72 read FGroup write SetGroup;
  4613. Property Hidden : boolean index 80 read FHidden write SetHidden;
  4614. Property Id : TGUIDString index 88 read FId write SetId;
  4615. Property Indexed : boolean index 96 read FIndexed write SetIndexed;
  4616. Property InternalName : string index 104 read FInternalName write SetInternalName;
  4617. Property JSLink : string index 112 read FJSLink write SetJSLink;
  4618. Property ReadOnlyField : boolean index 120 read FReadOnlyField write SetReadOnlyField;
  4619. Property Required : boolean index 128 read FRequired write SetRequired;
  4620. Property SchemaXml : string index 136 read FSchemaXml write SetSchemaXml;
  4621. Property SchemaXmlWithResourceTokens : string index 144 read FSchemaXmlWithResourceTokens write SetSchemaXmlWithResourceTokens;
  4622. Property Scope : string index 152 read FScope write SetScope;
  4623. Property Sealed : boolean index 160 read FSealed write SetSealed;
  4624. Property Sortable : boolean index 168 read FSortable write SetSortable;
  4625. Property StaticName : string index 176 read FStaticName write SetStaticName;
  4626. Property Title : string index 184 read FTitle write SetTitle;
  4627. Property FieldTypeKind : TInt32 index 192 read FFieldTypeKind write SetFieldTypeKind;
  4628. Property TypeAsString : string index 200 read FTypeAsString write SetTypeAsString;
  4629. Property TypeDisplayName : string index 208 read FTypeDisplayName write SetTypeDisplayName;
  4630. Property TypeShortDescription : string index 216 read FTypeShortDescription write SetTypeShortDescription;
  4631. Property ValidationFormula : string index 224 read FValidationFormula write SetValidationFormula;
  4632. Property ValidationMessage : string index 232 read FValidationMessage write SetValidationMessage;
  4633. end;
  4634. { --------------------------------------------------------------------
  4635. SP: SPDataLeakagePreventionStatusInfo
  4636. --------------------------------------------------------------------}
  4637. TSPSPDataLeakagePreventionStatusInfo = Class(TODataEntity)
  4638. private
  4639. FContainsConfidentialInfo : boolean;
  4640. FContainsConfidentialInfoLearnMoreUrl : string;
  4641. FExternalSharingTipsEnabled : boolean;
  4642. FExternalSharingTipsLearnMoreUrl : string;
  4643. procedure SetContainsConfidentialInfo(AIndex: Integer;
  4644. const AValue: boolean);
  4645. procedure SetContainsConfidentialInfoLearnMoreUrl(AIndex: Integer;
  4646. const AValue: string);
  4647. procedure SetExternalSharingTipsEnabled(AIndex: Integer;
  4648. const AValue: boolean);
  4649. procedure SetExternalSharingTipsLearnMoreUrl(AIndex: Integer;
  4650. const AValue: string);
  4651. public
  4652. class function ObjectRestKind : String; Override;
  4653. function KeyAsURLPart : String; Override;
  4654. published
  4655. Property ContainsConfidentialInfo : boolean index 0 read FContainsConfidentialInfo write SetContainsConfidentialInfo;
  4656. Property ContainsConfidentialInfoLearnMoreUrl : string index 8 read FContainsConfidentialInfoLearnMoreUrl write SetContainsConfidentialInfoLearnMoreUrl;
  4657. Property ExternalSharingTipsEnabled : boolean index 16 read FExternalSharingTipsEnabled write SetExternalSharingTipsEnabled;
  4658. Property ExternalSharingTipsLearnMoreUrl : string index 24 read FExternalSharingTipsLearnMoreUrl write SetExternalSharingTipsLearnMoreUrl;
  4659. end;
  4660. { --------------------------------------------------------------------
  4661. SP: Folder
  4662. --------------------------------------------------------------------}
  4663. TSPFolder = Class(TODataEntity)
  4664. private
  4665. FContentTypeOrder : TSPContentTypeIdArray;
  4666. FExists : boolean;
  4667. FItemCount : TInt32;
  4668. FName : string;
  4669. FProgID : string;
  4670. FServerRelativeUrl : string;
  4671. FTimeCreated : TDateTime;
  4672. FTimeLastModified : TDateTime;
  4673. FUniqueContentTypeOrder : TSPContentTypeIdArray;
  4674. FUniqueId : TGUIDString;
  4675. FWelcomePage : string;
  4676. procedure SetContentTypeOrder(AIndex: Integer;
  4677. const AValue: TSPContentTypeIdArray);
  4678. procedure SetExists(AIndex: Integer; const AValue: boolean);
  4679. procedure SetItemCount(AIndex: Integer; const AValue: TInt32);
  4680. procedure SetName(AIndex: Integer; const AValue: string);
  4681. procedure SetProgID(AIndex: Integer; const AValue: string);
  4682. procedure SetServerRelativeUrl(AIndex: Integer; const AValue: string);
  4683. procedure SetTimeCreated(AIndex: Integer; const AValue: TDateTime);
  4684. procedure SetTimeLastModified(AIndex: Integer; const AValue: TDateTime);
  4685. procedure SetUniqueContentTypeOrder(AIndex: Integer;
  4686. const AValue: TSPContentTypeIdArray);
  4687. procedure SetUniqueId(AIndex: Integer; const AValue: TGUIDString);
  4688. procedure SetWelcomePage(AIndex: Integer; const AValue: string);
  4689. protected
  4690. {$IFDEF VER2_6}
  4691. procedure SetArrayLength(const AName: String; ALength: Longint)
  4692. ; Override;
  4693. {$ENDIF VER2_6}
  4694. public
  4695. class function ObjectRestKind : String; Override;
  4696. function KeyAsURLPart : String; Override;
  4697. function Files(AService: TODataService) : TSP_File;
  4698. function ListItemAllFields(AService: TODataService) : TSPListItem;
  4699. function ParentFolder(AService: TODataService) : TSPFolder;
  4700. function Properties(AService: TODataService) : TSPPropertyValues;
  4701. function Folders(AService: TODataService) : TSPFolder;
  4702. published
  4703. Property ContentTypeOrder : TSPContentTypeIdArray index 0 read FContentTypeOrder write SetContentTypeOrder;
  4704. Property Exists : boolean index 8 read FExists write SetExists;
  4705. Property ItemCount : TInt32 index 16 read FItemCount write SetItemCount;
  4706. Property Name : string index 24 read FName write SetName;
  4707. Property ProgID : string index 32 read FProgID write SetProgID;
  4708. Property ServerRelativeUrl : string index 40 read FServerRelativeUrl write SetServerRelativeUrl;
  4709. Property TimeCreated : TDateTime index 48 read FTimeCreated write SetTimeCreated;
  4710. Property TimeLastModified : TDateTime index 56 read FTimeLastModified write SetTimeLastModified;
  4711. Property UniqueContentTypeOrder : TSPContentTypeIdArray index 64 read FUniqueContentTypeOrder write SetUniqueContentTypeOrder;
  4712. Property UniqueId : TGUIDString index 72 read FUniqueId write SetUniqueId;
  4713. Property WelcomePage : string index 80 read FWelcomePage write SetWelcomePage;
  4714. end;
  4715. { --------------------------------------------------------------------
  4716. SP: File
  4717. --------------------------------------------------------------------}
  4718. TSP_File = Class(TODataEntity)
  4719. private
  4720. FCheckInComment : string;
  4721. FCheckOutType : TInt32;
  4722. FContentTag : string;
  4723. FCustomizedPageStatus : TInt32;
  4724. FETag : string;
  4725. FExists : boolean;
  4726. F_Length : int64;
  4727. FLevel : Byte;
  4728. FLinkingUrl : string;
  4729. FMajorVersion : TInt32;
  4730. FMinorVersion : TInt32;
  4731. FName : string;
  4732. FServerRelativeUrl : string;
  4733. FTimeCreated : TDateTime;
  4734. FTimeLastModified : TDateTime;
  4735. FTitle : string;
  4736. FUIVersion : TInt32;
  4737. FUIVersionLabel : string;
  4738. FUniqueId : TGUIDString;
  4739. procedure SetCheckInComment(AIndex: Integer; const AValue: string);
  4740. procedure SetCheckOutType(AIndex: Integer; const AValue: TInt32);
  4741. procedure SetContentTag(AIndex: Integer; const AValue: string);
  4742. procedure SetCustomizedPageStatus(AIndex: Integer; const AValue: TInt32);
  4743. procedure SetETag(AIndex: Integer; const AValue: string);
  4744. procedure SetExists(AIndex: Integer; const AValue: boolean);
  4745. procedure Set_Length(AIndex: Integer; const AValue: int64);
  4746. procedure SetLevel(AIndex: Integer; const AValue: Byte);
  4747. procedure SetLinkingUrl(AIndex: Integer; const AValue: string);
  4748. procedure SetMajorVersion(AIndex: Integer; const AValue: TInt32);
  4749. procedure SetMinorVersion(AIndex: Integer; const AValue: TInt32);
  4750. procedure SetName(AIndex: Integer; const AValue: string);
  4751. procedure SetServerRelativeUrl(AIndex: Integer; const AValue: string);
  4752. procedure SetTimeCreated(AIndex: Integer; const AValue: TDateTime);
  4753. procedure SetTimeLastModified(AIndex: Integer; const AValue: TDateTime);
  4754. procedure SetTitle(AIndex: Integer; const AValue: string);
  4755. procedure SetUIVersion(AIndex: Integer; const AValue: TInt32);
  4756. procedure SetUIVersionLabel(AIndex: Integer; const AValue: string);
  4757. procedure SetUniqueId(AIndex: Integer; const AValue: TGUIDString);
  4758. public
  4759. class function ObjectRestKind : String; Override;
  4760. class function ExportPropertyName(const AName: String) : String
  4761. ; Override;
  4762. function KeyAsURLPart : String; Override;
  4763. function Author(AService: TODataService) : TSPUser;
  4764. function CheckedOutByUser(AService: TODataService) : TSPUser;
  4765. function ListItemAllFields(AService: TODataService) : TSPListItem;
  4766. function LockedByUser(AService: TODataService) : TSPUser;
  4767. function ModifiedBy(AService: TODataService) : TSPUser;
  4768. function Versions(AService: TODataService) : TSPFileVersion;
  4769. published
  4770. Property CheckInComment : string index 0 read FCheckInComment write SetCheckInComment;
  4771. Property CheckOutType : TInt32 index 8 read FCheckOutType write SetCheckOutType;
  4772. Property ContentTag : string index 16 read FContentTag write SetContentTag;
  4773. Property CustomizedPageStatus : TInt32 index 24 read FCustomizedPageStatus write SetCustomizedPageStatus;
  4774. Property ETag : string index 32 read FETag write SetETag;
  4775. Property Exists : boolean index 40 read FExists write SetExists;
  4776. Property _Length : int64 index 48 read F_Length write Set_Length;
  4777. Property Level : Byte index 56 read FLevel write SetLevel;
  4778. Property LinkingUrl : string index 64 read FLinkingUrl write SetLinkingUrl;
  4779. Property MajorVersion : TInt32 index 72 read FMajorVersion write SetMajorVersion;
  4780. Property MinorVersion : TInt32 index 80 read FMinorVersion write SetMinorVersion;
  4781. Property Name : string index 88 read FName write SetName;
  4782. Property ServerRelativeUrl : string index 96 read FServerRelativeUrl write SetServerRelativeUrl;
  4783. Property TimeCreated : TDateTime index 104 read FTimeCreated write SetTimeCreated;
  4784. Property TimeLastModified : TDateTime index 112 read FTimeLastModified write SetTimeLastModified;
  4785. Property Title : string index 120 read FTitle write SetTitle;
  4786. Property UIVersion : TInt32 index 128 read FUIVersion write SetUIVersion;
  4787. Property UIVersionLabel : string index 136 read FUIVersionLabel write SetUIVersionLabel;
  4788. Property UniqueId : TGUIDString index 144 read FUniqueId write SetUniqueId;
  4789. end;
  4790. { --------------------------------------------------------------------
  4791. SP: ListItem
  4792. --------------------------------------------------------------------}
  4793. TSPListItem = Class(TSPSecurableObject)
  4794. private
  4795. FDisplayName : string;
  4796. FEffectiveBasePermissions : TSPBasePermissions;
  4797. FEffectiveBasePermissionsForUI : TSPBasePermissions;
  4798. FFileSystemObjectType : TInt32;
  4799. FId : TInt32;
  4800. FClient_Title : string;
  4801. procedure SetDisplayName(AIndex: Integer; const AValue: string);
  4802. procedure SetEffectiveBasePermissions(AIndex: Integer;
  4803. const AValue: TSPBasePermissions);
  4804. procedure SetEffectiveBasePermissionsForUI(AIndex: Integer;
  4805. const AValue: TSPBasePermissions);
  4806. procedure SetFileSystemObjectType(AIndex: Integer; const AValue: TInt32);
  4807. procedure SetId(AIndex: Integer; const AValue: TInt32);
  4808. procedure SetClient_Title(AIndex: Integer; const AValue: string);
  4809. public
  4810. class function ObjectRestKind : String; Override;
  4811. function AttachmentFiles(AService: TODataService) : TSPAttachment;
  4812. function ContentType(AService: TODataService) : TSPContentType;
  4813. function GetDlpPolicyTip(AService: TODataService) : TSPDlpPolicyTip;
  4814. function FieldValuesAsHtml(AService: TODataService)
  4815. : TSPFieldStringValues;
  4816. function FieldValuesAsText(AService: TODataService)
  4817. : TSPFieldStringValues;
  4818. function FieldValuesForEdit(AService: TODataService)
  4819. : TSPFieldStringValues;
  4820. function _File(AService: TODataService) : TSP_File;
  4821. function Folder(AService: TODataService) : TSPFolder;
  4822. function ParentList(AService: TODataService) : TSPList;
  4823. published
  4824. Property DisplayName : string index 8 read FDisplayName write SetDisplayName;
  4825. Property EffectiveBasePermissions : TSPBasePermissions index 16 read FEffectiveBasePermissions write SetEffectiveBasePermissions;
  4826. Property EffectiveBasePermissionsForUI : TSPBasePermissions index 24 read FEffectiveBasePermissionsForUI write SetEffectiveBasePermissionsForUI;
  4827. Property FileSystemObjectType : TInt32 index 32 read FFileSystemObjectType write SetFileSystemObjectType;
  4828. Property Id : TInt32 index 40 read FId write SetId;
  4829. Property Client_Title : string index 48 read FClient_Title write SetClient_Title;
  4830. end;
  4831. { --------------------------------------------------------------------
  4832. SP: Attachment
  4833. --------------------------------------------------------------------}
  4834. TSPAttachment = Class(TODataEntity)
  4835. private
  4836. FFileName : string;
  4837. FServerRelativeUrl : string;
  4838. procedure SetFileName(AIndex: Integer; const AValue: string);
  4839. procedure SetServerRelativeUrl(AIndex: Integer; const AValue: string);
  4840. public
  4841. class function ObjectRestKind : String; Override;
  4842. function KeyAsURLPart : String; Override;
  4843. published
  4844. Property FileName : string index 0 read FFileName write SetFileName;
  4845. Property ServerRelativeUrl : string index 8 read FServerRelativeUrl write SetServerRelativeUrl;
  4846. end;
  4847. { --------------------------------------------------------------------
  4848. SP: DlpPolicyTip
  4849. --------------------------------------------------------------------}
  4850. TSPDlpPolicyTip = Class(TODataEntity)
  4851. private
  4852. FAppliedActionsText : string;
  4853. FComplianceUrl : string;
  4854. FGeneralText : string;
  4855. FLastProcessedTime : TDateTime;
  4856. FMatchedConditionDescriptions : TStringArray;
  4857. FOverrideOptions : TInt32;
  4858. procedure SetAppliedActionsText(AIndex: Integer; const AValue: string);
  4859. procedure SetComplianceUrl(AIndex: Integer; const AValue: string);
  4860. procedure SetGeneralText(AIndex: Integer; const AValue: string);
  4861. procedure SetLastProcessedTime(AIndex: Integer; const AValue: TDateTime);
  4862. procedure SetMatchedConditionDescriptions(AIndex: Integer;
  4863. const AValue: TStringArray);
  4864. procedure SetOverrideOptions(AIndex: Integer; const AValue: TInt32);
  4865. protected
  4866. {$IFDEF VER2_6}
  4867. procedure SetArrayLength(const AName: String; ALength: Longint)
  4868. ; Override;
  4869. {$ENDIF VER2_6}
  4870. public
  4871. class function ObjectRestKind : String; Override;
  4872. function KeyAsURLPart : String; Override;
  4873. published
  4874. Property AppliedActionsText : string index 0 read FAppliedActionsText write SetAppliedActionsText;
  4875. Property ComplianceUrl : string index 8 read FComplianceUrl write SetComplianceUrl;
  4876. Property GeneralText : string index 16 read FGeneralText write SetGeneralText;
  4877. Property LastProcessedTime : TDateTime index 24 read FLastProcessedTime write SetLastProcessedTime;
  4878. Property MatchedConditionDescriptions : TStringArray index 32 read FMatchedConditionDescriptions write SetMatchedConditionDescriptions;
  4879. Property OverrideOptions : TInt32 index 40 read FOverrideOptions write SetOverrideOptions;
  4880. end;
  4881. { --------------------------------------------------------------------
  4882. SP: FieldStringValues
  4883. --------------------------------------------------------------------}
  4884. TSPFieldStringValues = Class(TODataEntity)
  4885. private
  4886. FId4a81de82eeb94d6080ea5bf63e27023a : string;
  4887. procedure SetId4a81de82eeb94d6080ea5bf63e27023a(AIndex: Integer;
  4888. const AValue: string);
  4889. public
  4890. class function ObjectRestKind : String; Override;
  4891. function KeyAsURLPart : String; Override;
  4892. published
  4893. Property Id4a81de82eeb94d6080ea5bf63e27023a : string index 0 read FId4a81de82eeb94d6080ea5bf63e27023a write SetId4a81de82eeb94d6080ea5bf63e27023a;
  4894. end;
  4895. { --------------------------------------------------------------------
  4896. SP: List
  4897. --------------------------------------------------------------------}
  4898. TSPList = Class(TSPSecurableObject)
  4899. private
  4900. FAllowContentTypes : boolean;
  4901. FBaseTemplate : TInt32;
  4902. FBaseType : TInt32;
  4903. FBrowserFileHandling : TInt32;
  4904. FContentTypesEnabled : boolean;
  4905. FCrawlNonDefaultViews : boolean;
  4906. FCreated : TDateTime;
  4907. FDataSource : TSPListDataSource;
  4908. FDefaultContentApprovalWorkflowId : TGUIDString;
  4909. FDefaultDisplayFormUrl : string;
  4910. FDefaultEditFormUrl : string;
  4911. FDefaultNewFormUrl : string;
  4912. FDefaultViewUrl : string;
  4913. FDescription : string;
  4914. FDirection : string;
  4915. FDocumentTemplateUrl : string;
  4916. FDraftVersionVisibility : TInt32;
  4917. FEffectiveBasePermissions : TSPBasePermissions;
  4918. FEffectiveBasePermissionsForUI : TSPBasePermissions;
  4919. FEnableAttachments : boolean;
  4920. FEnableFolderCreation : boolean;
  4921. FEnableMinorVersions : boolean;
  4922. FEnableModeration : boolean;
  4923. FEnableVersioning : boolean;
  4924. FEntityTypeName : string;
  4925. FFileSavePostProcessingEnabled : boolean;
  4926. FForceCheckout : boolean;
  4927. FHasExternalDataSource : boolean;
  4928. FHidden : boolean;
  4929. FId : TGUIDString;
  4930. FImageUrl : string;
  4931. FIrmEnabled : boolean;
  4932. FIrmExpire : boolean;
  4933. FIrmReject : boolean;
  4934. FIsApplicationList : boolean;
  4935. FIsCatalog : boolean;
  4936. FIsPrivate : boolean;
  4937. FIsSiteAssetsLibrary : boolean;
  4938. FItemCount : TInt32;
  4939. FLastItemDeletedDate : TDateTime;
  4940. FLastItemModifiedDate : TDateTime;
  4941. FListItemEntityTypeFullName : string;
  4942. FMajorVersionLimit : TInt32;
  4943. FMajorWithMinorVersionsLimit : TInt32;
  4944. FMultipleDataList : boolean;
  4945. FNoCrawl : boolean;
  4946. FOnQuickLaunch : boolean;
  4947. FParentWebUrl : string;
  4948. FParserDisabled : boolean;
  4949. FSchemaXml : string;
  4950. FServerTemplateCanCreateFolders : boolean;
  4951. FTemplateFeatureId : TGUIDString;
  4952. FTitle : string;
  4953. FValidationFormula : string;
  4954. FValidationMessage : string;
  4955. procedure SetAllowContentTypes(AIndex: Integer; const AValue: boolean);
  4956. procedure SetBaseTemplate(AIndex: Integer; const AValue: TInt32);
  4957. procedure SetBaseType(AIndex: Integer; const AValue: TInt32);
  4958. procedure SetBrowserFileHandling(AIndex: Integer; const AValue: TInt32);
  4959. procedure SetContentTypesEnabled(AIndex: Integer; const AValue: boolean);
  4960. procedure SetCrawlNonDefaultViews(AIndex: Integer;
  4961. const AValue: boolean);
  4962. procedure SetCreated(AIndex: Integer; const AValue: TDateTime);
  4963. procedure SetDataSource(AIndex: Integer;
  4964. const AValue: TSPListDataSource);
  4965. procedure SetDefaultContentApprovalWorkflowId(AIndex: Integer;
  4966. const AValue: TGUIDString);
  4967. procedure SetDefaultDisplayFormUrl(AIndex: Integer;
  4968. const AValue: string);
  4969. procedure SetDefaultEditFormUrl(AIndex: Integer; const AValue: string);
  4970. procedure SetDefaultNewFormUrl(AIndex: Integer; const AValue: string);
  4971. procedure SetDefaultViewUrl(AIndex: Integer; const AValue: string);
  4972. procedure SetDescription(AIndex: Integer; const AValue: string);
  4973. procedure SetDirection(AIndex: Integer; const AValue: string);
  4974. procedure SetDocumentTemplateUrl(AIndex: Integer; const AValue: string);
  4975. procedure SetDraftVersionVisibility(AIndex: Integer;
  4976. const AValue: TInt32);
  4977. procedure SetEffectiveBasePermissions(AIndex: Integer;
  4978. const AValue: TSPBasePermissions);
  4979. procedure SetEffectiveBasePermissionsForUI(AIndex: Integer;
  4980. const AValue: TSPBasePermissions);
  4981. procedure SetEnableAttachments(AIndex: Integer; const AValue: boolean);
  4982. procedure SetEnableFolderCreation(AIndex: Integer;
  4983. const AValue: boolean);
  4984. procedure SetEnableMinorVersions(AIndex: Integer; const AValue: boolean);
  4985. procedure SetEnableModeration(AIndex: Integer; const AValue: boolean);
  4986. procedure SetEnableVersioning(AIndex: Integer; const AValue: boolean);
  4987. procedure SetEntityTypeName(AIndex: Integer; const AValue: string);
  4988. procedure SetFileSavePostProcessingEnabled(AIndex: Integer;
  4989. const AValue: boolean);
  4990. procedure SetForceCheckout(AIndex: Integer; const AValue: boolean);
  4991. procedure SetHasExternalDataSource(AIndex: Integer;
  4992. const AValue: boolean);
  4993. procedure SetHidden(AIndex: Integer; const AValue: boolean);
  4994. procedure SetId(AIndex: Integer; const AValue: TGUIDString);
  4995. procedure SetImageUrl(AIndex: Integer; const AValue: string);
  4996. procedure SetIrmEnabled(AIndex: Integer; const AValue: boolean);
  4997. procedure SetIrmExpire(AIndex: Integer; const AValue: boolean);
  4998. procedure SetIrmReject(AIndex: Integer; const AValue: boolean);
  4999. procedure SetIsApplicationList(AIndex: Integer; const AValue: boolean);
  5000. procedure SetIsCatalog(AIndex: Integer; const AValue: boolean);
  5001. procedure SetIsPrivate(AIndex: Integer; const AValue: boolean);
  5002. procedure SetIsSiteAssetsLibrary(AIndex: Integer; const AValue: boolean);
  5003. procedure SetItemCount(AIndex: Integer; const AValue: TInt32);
  5004. procedure SetLastItemDeletedDate(AIndex: Integer;
  5005. const AValue: TDateTime);
  5006. procedure SetLastItemModifiedDate(AIndex: Integer;
  5007. const AValue: TDateTime);
  5008. procedure SetListItemEntityTypeFullName(AIndex: Integer;
  5009. const AValue: string);
  5010. procedure SetMajorVersionLimit(AIndex: Integer; const AValue: TInt32);
  5011. procedure SetMajorWithMinorVersionsLimit(AIndex: Integer;
  5012. const AValue: TInt32);
  5013. procedure SetMultipleDataList(AIndex: Integer; const AValue: boolean);
  5014. procedure SetNoCrawl(AIndex: Integer; const AValue: boolean);
  5015. procedure SetOnQuickLaunch(AIndex: Integer; const AValue: boolean);
  5016. procedure SetParentWebUrl(AIndex: Integer; const AValue: string);
  5017. procedure SetParserDisabled(AIndex: Integer; const AValue: boolean);
  5018. procedure SetSchemaXml(AIndex: Integer; const AValue: string);
  5019. procedure SetServerTemplateCanCreateFolders(AIndex: Integer;
  5020. const AValue: boolean);
  5021. procedure SetTemplateFeatureId(AIndex: Integer;
  5022. const AValue: TGUIDString);
  5023. procedure SetTitle(AIndex: Integer; const AValue: string);
  5024. procedure SetValidationFormula(AIndex: Integer; const AValue: string);
  5025. procedure SetValidationMessage(AIndex: Integer; const AValue: string);
  5026. public
  5027. class function ObjectRestKind : String; Override;
  5028. function ContentTypes(AService: TODataService) : TSPContentType;
  5029. function CreatablesInfo(AService: TODataService) : TSPCreatablesInfo;
  5030. function DefaultView(AService: TODataService) : TSPView;
  5031. function DescriptionResource(AService: TODataService) : TSPUserResource;
  5032. function EventReceivers(AService: TODataService)
  5033. : TSPEventReceiverDefinition;
  5034. function Fields(AService: TODataService) : TSPField;
  5035. function Forms(AService: TODataService) : TSPForm;
  5036. function InformationRightsManagementSettings(AService: TODataService)
  5037. : TSPInformationRightsManagementSettings;
  5038. function Items(AService: TODataService) : TSPListItem;
  5039. function ParentWeb(AService: TODataService) : TSPWeb;
  5040. function RootFolder(AService: TODataService) : TSPFolder;
  5041. function TitleResource(AService: TODataService) : TSPUserResource;
  5042. function UserCustomActions(AService: TODataService)
  5043. : TSPUserCustomAction;
  5044. function Views(AService: TODataService) : TSPView;
  5045. function WorkflowAssociations(AService: TODataService)
  5046. : TSP_WorkflowWorkflowAssociation;
  5047. published
  5048. Property AllowContentTypes : boolean index 8 read FAllowContentTypes write SetAllowContentTypes;
  5049. Property BaseTemplate : TInt32 index 16 read FBaseTemplate write SetBaseTemplate;
  5050. Property BaseType : TInt32 index 24 read FBaseType write SetBaseType;
  5051. Property BrowserFileHandling : TInt32 index 32 read FBrowserFileHandling write SetBrowserFileHandling;
  5052. Property ContentTypesEnabled : boolean index 40 read FContentTypesEnabled write SetContentTypesEnabled;
  5053. Property CrawlNonDefaultViews : boolean index 48 read FCrawlNonDefaultViews write SetCrawlNonDefaultViews;
  5054. Property Created : TDateTime index 56 read FCreated write SetCreated;
  5055. Property DataSource : TSPListDataSource index 64 read FDataSource write SetDataSource;
  5056. Property DefaultContentApprovalWorkflowId : TGUIDString index 72 read FDefaultContentApprovalWorkflowId write SetDefaultContentApprovalWorkflowId;
  5057. Property DefaultDisplayFormUrl : string index 80 read FDefaultDisplayFormUrl write SetDefaultDisplayFormUrl;
  5058. Property DefaultEditFormUrl : string index 88 read FDefaultEditFormUrl write SetDefaultEditFormUrl;
  5059. Property DefaultNewFormUrl : string index 96 read FDefaultNewFormUrl write SetDefaultNewFormUrl;
  5060. Property DefaultViewUrl : string index 104 read FDefaultViewUrl write SetDefaultViewUrl;
  5061. Property Description : string index 112 read FDescription write SetDescription;
  5062. Property Direction : string index 120 read FDirection write SetDirection;
  5063. Property DocumentTemplateUrl : string index 128 read FDocumentTemplateUrl write SetDocumentTemplateUrl;
  5064. Property DraftVersionVisibility : TInt32 index 136 read FDraftVersionVisibility write SetDraftVersionVisibility;
  5065. Property EffectiveBasePermissions : TSPBasePermissions index 144 read FEffectiveBasePermissions write SetEffectiveBasePermissions;
  5066. Property EffectiveBasePermissionsForUI : TSPBasePermissions index 152 read FEffectiveBasePermissionsForUI write SetEffectiveBasePermissionsForUI;
  5067. Property EnableAttachments : boolean index 160 read FEnableAttachments write SetEnableAttachments;
  5068. Property EnableFolderCreation : boolean index 168 read FEnableFolderCreation write SetEnableFolderCreation;
  5069. Property EnableMinorVersions : boolean index 176 read FEnableMinorVersions write SetEnableMinorVersions;
  5070. Property EnableModeration : boolean index 184 read FEnableModeration write SetEnableModeration;
  5071. Property EnableVersioning : boolean index 192 read FEnableVersioning write SetEnableVersioning;
  5072. Property EntityTypeName : string index 200 read FEntityTypeName write SetEntityTypeName;
  5073. Property FileSavePostProcessingEnabled : boolean index 208 read FFileSavePostProcessingEnabled write SetFileSavePostProcessingEnabled;
  5074. Property ForceCheckout : boolean index 216 read FForceCheckout write SetForceCheckout;
  5075. Property HasExternalDataSource : boolean index 224 read FHasExternalDataSource write SetHasExternalDataSource;
  5076. Property Hidden : boolean index 232 read FHidden write SetHidden;
  5077. Property Id : TGUIDString index 240 read FId write SetId;
  5078. Property ImageUrl : string index 248 read FImageUrl write SetImageUrl;
  5079. Property IrmEnabled : boolean index 256 read FIrmEnabled write SetIrmEnabled;
  5080. Property IrmExpire : boolean index 264 read FIrmExpire write SetIrmExpire;
  5081. Property IrmReject : boolean index 272 read FIrmReject write SetIrmReject;
  5082. Property IsApplicationList : boolean index 280 read FIsApplicationList write SetIsApplicationList;
  5083. Property IsCatalog : boolean index 288 read FIsCatalog write SetIsCatalog;
  5084. Property IsPrivate : boolean index 296 read FIsPrivate write SetIsPrivate;
  5085. Property IsSiteAssetsLibrary : boolean index 304 read FIsSiteAssetsLibrary write SetIsSiteAssetsLibrary;
  5086. Property ItemCount : TInt32 index 312 read FItemCount write SetItemCount;
  5087. Property LastItemDeletedDate : TDateTime index 320 read FLastItemDeletedDate write SetLastItemDeletedDate;
  5088. Property LastItemModifiedDate : TDateTime index 328 read FLastItemModifiedDate write SetLastItemModifiedDate;
  5089. Property ListItemEntityTypeFullName : string index 336 read FListItemEntityTypeFullName write SetListItemEntityTypeFullName;
  5090. Property MajorVersionLimit : TInt32 index 344 read FMajorVersionLimit write SetMajorVersionLimit;
  5091. Property MajorWithMinorVersionsLimit : TInt32 index 352 read FMajorWithMinorVersionsLimit write SetMajorWithMinorVersionsLimit;
  5092. Property MultipleDataList : boolean index 360 read FMultipleDataList write SetMultipleDataList;
  5093. Property NoCrawl : boolean index 368 read FNoCrawl write SetNoCrawl;
  5094. Property OnQuickLaunch : boolean index 376 read FOnQuickLaunch write SetOnQuickLaunch;
  5095. Property ParentWebUrl : string index 384 read FParentWebUrl write SetParentWebUrl;
  5096. Property ParserDisabled : boolean index 392 read FParserDisabled write SetParserDisabled;
  5097. Property SchemaXml : string index 400 read FSchemaXml write SetSchemaXml;
  5098. Property ServerTemplateCanCreateFolders : boolean index 408 read FServerTemplateCanCreateFolders write SetServerTemplateCanCreateFolders;
  5099. Property TemplateFeatureId : TGUIDString index 416 read FTemplateFeatureId write SetTemplateFeatureId;
  5100. Property Title : string index 424 read FTitle write SetTitle;
  5101. Property ValidationFormula : string index 432 read FValidationFormula write SetValidationFormula;
  5102. Property ValidationMessage : string index 440 read FValidationMessage write SetValidationMessage;
  5103. end;
  5104. { --------------------------------------------------------------------
  5105. SP: CreatablesInfo
  5106. --------------------------------------------------------------------}
  5107. TSPCreatablesInfo = Class(TODataEntity)
  5108. private
  5109. FCanCreateFolders : boolean;
  5110. FCanCreateItems : boolean;
  5111. FCanUploadFiles : boolean;
  5112. FCreatablesCollection : TSPCreatableItemInfoCollection;
  5113. procedure SetCanCreateFolders(AIndex: Integer; const AValue: boolean);
  5114. procedure SetCanCreateItems(AIndex: Integer; const AValue: boolean);
  5115. procedure SetCanUploadFiles(AIndex: Integer; const AValue: boolean);
  5116. procedure SetCreatablesCollection(AIndex: Integer;
  5117. const AValue: TSPCreatableItemInfoCollection);
  5118. public
  5119. class function ObjectRestKind : String; Override;
  5120. function KeyAsURLPart : String; Override;
  5121. published
  5122. Property CanCreateFolders : boolean index 0 read FCanCreateFolders write SetCanCreateFolders;
  5123. Property CanCreateItems : boolean index 8 read FCanCreateItems write SetCanCreateItems;
  5124. Property CanUploadFiles : boolean index 16 read FCanUploadFiles write SetCanUploadFiles;
  5125. Property CreatablesCollection : TSPCreatableItemInfoCollection index 24 read FCreatablesCollection write SetCreatablesCollection;
  5126. end;
  5127. { --------------------------------------------------------------------
  5128. SP: View
  5129. --------------------------------------------------------------------}
  5130. TSPView = Class(TODataEntity)
  5131. private
  5132. FAggregations : string;
  5133. FAggregationsStatus : string;
  5134. FBaseViewId : string;
  5135. FContentTypeId : TSPContentTypeId;
  5136. FDefaultView : boolean;
  5137. FDefaultViewForContentType : boolean;
  5138. FEditorModified : boolean;
  5139. FFormats : string;
  5140. FHidden : boolean;
  5141. FHtmlSchemaXml : string;
  5142. FId : TGUIDString;
  5143. FImageUrl : string;
  5144. FIncludeRootFolder : boolean;
  5145. FViewJoins : string;
  5146. FJSLink : string;
  5147. FListViewXml : string;
  5148. FMethod : string;
  5149. FMobileDefaultView : boolean;
  5150. FMobileView : boolean;
  5151. FModerationType : string;
  5152. FOrderedView : boolean;
  5153. FPaged : boolean;
  5154. FPersonalView : boolean;
  5155. FViewProjectedFields : string;
  5156. FViewQuery : string;
  5157. FReadOnlyView : boolean;
  5158. FRequiresClientIntegration : boolean;
  5159. FRowLimit : TInt32;
  5160. FScope : TInt32;
  5161. FServerRelativeUrl : string;
  5162. FStyleId : string;
  5163. FThreaded : boolean;
  5164. FTitle : string;
  5165. FToolbar : string;
  5166. FToolbarTemplateName : string;
  5167. FViewType : string;
  5168. FViewData : string;
  5169. procedure SetAggregations(AIndex: Integer; const AValue: string);
  5170. procedure SetAggregationsStatus(AIndex: Integer; const AValue: string);
  5171. procedure SetBaseViewId(AIndex: Integer; const AValue: string);
  5172. procedure SetContentTypeId(AIndex: Integer;
  5173. const AValue: TSPContentTypeId);
  5174. procedure SetDefaultView(AIndex: Integer; const AValue: boolean);
  5175. procedure SetDefaultViewForContentType(AIndex: Integer;
  5176. const AValue: boolean);
  5177. procedure SetEditorModified(AIndex: Integer; const AValue: boolean);
  5178. procedure SetFormats(AIndex: Integer; const AValue: string);
  5179. procedure SetHidden(AIndex: Integer; const AValue: boolean);
  5180. procedure SetHtmlSchemaXml(AIndex: Integer; const AValue: string);
  5181. procedure SetId(AIndex: Integer; const AValue: TGUIDString);
  5182. procedure SetImageUrl(AIndex: Integer; const AValue: string);
  5183. procedure SetIncludeRootFolder(AIndex: Integer; const AValue: boolean);
  5184. procedure SetViewJoins(AIndex: Integer; const AValue: string);
  5185. procedure SetJSLink(AIndex: Integer; const AValue: string);
  5186. procedure SetListViewXml(AIndex: Integer; const AValue: string);
  5187. procedure SetMethod(AIndex: Integer; const AValue: string);
  5188. procedure SetMobileDefaultView(AIndex: Integer; const AValue: boolean);
  5189. procedure SetMobileView(AIndex: Integer; const AValue: boolean);
  5190. procedure SetModerationType(AIndex: Integer; const AValue: string);
  5191. procedure SetOrderedView(AIndex: Integer; const AValue: boolean);
  5192. procedure SetPaged(AIndex: Integer; const AValue: boolean);
  5193. procedure SetPersonalView(AIndex: Integer; const AValue: boolean);
  5194. procedure SetViewProjectedFields(AIndex: Integer; const AValue: string);
  5195. procedure SetViewQuery(AIndex: Integer; const AValue: string);
  5196. procedure SetReadOnlyView(AIndex: Integer; const AValue: boolean);
  5197. procedure SetRequiresClientIntegration(AIndex: Integer;
  5198. const AValue: boolean);
  5199. procedure SetRowLimit(AIndex: Integer; const AValue: TInt32);
  5200. procedure SetScope(AIndex: Integer; const AValue: TInt32);
  5201. procedure SetServerRelativeUrl(AIndex: Integer; const AValue: string);
  5202. procedure SetStyleId(AIndex: Integer; const AValue: string);
  5203. procedure SetThreaded(AIndex: Integer; const AValue: boolean);
  5204. procedure SetTitle(AIndex: Integer; const AValue: string);
  5205. procedure SetToolbar(AIndex: Integer; const AValue: string);
  5206. procedure SetToolbarTemplateName(AIndex: Integer; const AValue: string);
  5207. procedure SetViewType(AIndex: Integer; const AValue: string);
  5208. procedure SetViewData(AIndex: Integer; const AValue: string);
  5209. public
  5210. class function ObjectRestKind : String; Override;
  5211. function KeyAsURLPart : String; Override;
  5212. function ViewFields(AService: TODataService) : TSPViewFieldCollection;
  5213. published
  5214. Property Aggregations : string index 0 read FAggregations write SetAggregations;
  5215. Property AggregationsStatus : string index 8 read FAggregationsStatus write SetAggregationsStatus;
  5216. Property BaseViewId : string index 16 read FBaseViewId write SetBaseViewId;
  5217. Property ContentTypeId : TSPContentTypeId index 24 read FContentTypeId write SetContentTypeId;
  5218. Property DefaultView : boolean index 32 read FDefaultView write SetDefaultView;
  5219. Property DefaultViewForContentType : boolean index 40 read FDefaultViewForContentType write SetDefaultViewForContentType;
  5220. Property EditorModified : boolean index 48 read FEditorModified write SetEditorModified;
  5221. Property Formats : string index 56 read FFormats write SetFormats;
  5222. Property Hidden : boolean index 64 read FHidden write SetHidden;
  5223. Property HtmlSchemaXml : string index 72 read FHtmlSchemaXml write SetHtmlSchemaXml;
  5224. Property Id : TGUIDString index 80 read FId write SetId;
  5225. Property ImageUrl : string index 88 read FImageUrl write SetImageUrl;
  5226. Property IncludeRootFolder : boolean index 96 read FIncludeRootFolder write SetIncludeRootFolder;
  5227. Property ViewJoins : string index 104 read FViewJoins write SetViewJoins;
  5228. Property JSLink : string index 112 read FJSLink write SetJSLink;
  5229. Property ListViewXml : string index 120 read FListViewXml write SetListViewXml;
  5230. Property Method : string index 128 read FMethod write SetMethod;
  5231. Property MobileDefaultView : boolean index 136 read FMobileDefaultView write SetMobileDefaultView;
  5232. Property MobileView : boolean index 144 read FMobileView write SetMobileView;
  5233. Property ModerationType : string index 152 read FModerationType write SetModerationType;
  5234. Property OrderedView : boolean index 160 read FOrderedView write SetOrderedView;
  5235. Property Paged : boolean index 168 read FPaged write SetPaged;
  5236. Property PersonalView : boolean index 176 read FPersonalView write SetPersonalView;
  5237. Property ViewProjectedFields : string index 184 read FViewProjectedFields write SetViewProjectedFields;
  5238. Property ViewQuery : string index 192 read FViewQuery write SetViewQuery;
  5239. Property ReadOnlyView : boolean index 200 read FReadOnlyView write SetReadOnlyView;
  5240. Property RequiresClientIntegration : boolean index 208 read FRequiresClientIntegration write SetRequiresClientIntegration;
  5241. Property RowLimit : TInt32 index 216 read FRowLimit write SetRowLimit;
  5242. Property Scope : TInt32 index 224 read FScope write SetScope;
  5243. Property ServerRelativeUrl : string index 232 read FServerRelativeUrl write SetServerRelativeUrl;
  5244. Property StyleId : string index 240 read FStyleId write SetStyleId;
  5245. Property Threaded : boolean index 248 read FThreaded write SetThreaded;
  5246. Property Title : string index 256 read FTitle write SetTitle;
  5247. Property Toolbar : string index 264 read FToolbar write SetToolbar;
  5248. Property ToolbarTemplateName : string index 272 read FToolbarTemplateName write SetToolbarTemplateName;
  5249. Property ViewType : string index 280 read FViewType write SetViewType;
  5250. Property ViewData : string index 288 read FViewData write SetViewData;
  5251. end;
  5252. { --------------------------------------------------------------------
  5253. SP: ViewFieldCollection
  5254. --------------------------------------------------------------------}
  5255. TSPViewFieldCollection = Class(TODataEntity)
  5256. private
  5257. FSchemaXml : string;
  5258. FItems : TStringArray;
  5259. procedure SetSchemaXml(AIndex: Integer; const AValue: string);
  5260. procedure SetItems(AIndex: Integer; const AValue: TStringArray);
  5261. protected
  5262. {$IFDEF VER2_6}
  5263. procedure SetArrayLength(const AName: String; ALength: Longint)
  5264. ; Override;
  5265. {$ENDIF VER2_6}
  5266. public
  5267. class function ObjectRestKind : String; Override;
  5268. function KeyAsURLPart : String; Override;
  5269. published
  5270. Property SchemaXml : string index 0 read FSchemaXml write SetSchemaXml;
  5271. Property Items : TStringArray index 8 read FItems write SetItems;
  5272. end;
  5273. { --------------------------------------------------------------------
  5274. SP: Form
  5275. --------------------------------------------------------------------}
  5276. TSPForm = Class(TODataEntity)
  5277. private
  5278. FId : TGUIDString;
  5279. FServerRelativeUrl : string;
  5280. FFormType : TInt32;
  5281. procedure SetId(AIndex: Integer; const AValue: TGUIDString);
  5282. procedure SetServerRelativeUrl(AIndex: Integer; const AValue: string);
  5283. procedure SetFormType(AIndex: Integer; const AValue: TInt32);
  5284. public
  5285. class function ObjectRestKind : String; Override;
  5286. function KeyAsURLPart : String; Override;
  5287. published
  5288. Property Id : TGUIDString index 0 read FId write SetId;
  5289. Property ServerRelativeUrl : string index 8 read FServerRelativeUrl write SetServerRelativeUrl;
  5290. Property FormType : TInt32 index 16 read FFormType write SetFormType;
  5291. end;
  5292. { --------------------------------------------------------------------
  5293. SP: InformationRightsManagementSettings
  5294. --------------------------------------------------------------------}
  5295. TSPInformationRightsManagementSettings = Class(TODataEntity)
  5296. private
  5297. FAllowPrint : boolean;
  5298. FAllowScript : boolean;
  5299. FAllowWriteCopy : boolean;
  5300. FDisableDocumentBrowserView : boolean;
  5301. FDocumentAccessExpireDays : TInt32;
  5302. FDocumentLibraryProtectionExpireDate : TDateTime;
  5303. FEnableDocumentAccessExpire : boolean;
  5304. FEnableDocumentBrowserPublishingView : boolean;
  5305. FEnableGroupProtection : boolean;
  5306. FEnableLicenseCacheExpire : boolean;
  5307. FGroupName : string;
  5308. FLicenseCacheExpireDays : TInt32;
  5309. FPolicyDescription : string;
  5310. FPolicyTitle : string;
  5311. procedure SetAllowPrint(AIndex: Integer; const AValue: boolean);
  5312. procedure SetAllowScript(AIndex: Integer; const AValue: boolean);
  5313. procedure SetAllowWriteCopy(AIndex: Integer; const AValue: boolean);
  5314. procedure SetDisableDocumentBrowserView(AIndex: Integer;
  5315. const AValue: boolean);
  5316. procedure SetDocumentAccessExpireDays(AIndex: Integer;
  5317. const AValue: TInt32);
  5318. procedure SetDocumentLibraryProtectionExpireDate(AIndex: Integer;
  5319. const AValue: TDateTime);
  5320. procedure SetEnableDocumentAccessExpire(AIndex: Integer;
  5321. const AValue: boolean);
  5322. procedure SetEnableDocumentBrowserPublishingView(AIndex: Integer;
  5323. const AValue: boolean);
  5324. procedure SetEnableGroupProtection(AIndex: Integer;
  5325. const AValue: boolean);
  5326. procedure SetEnableLicenseCacheExpire(AIndex: Integer;
  5327. const AValue: boolean);
  5328. procedure SetGroupName(AIndex: Integer; const AValue: string);
  5329. procedure SetLicenseCacheExpireDays(AIndex: Integer;
  5330. const AValue: TInt32);
  5331. procedure SetPolicyDescription(AIndex: Integer; const AValue: string);
  5332. procedure SetPolicyTitle(AIndex: Integer; const AValue: string);
  5333. public
  5334. class function ObjectRestKind : String; Override;
  5335. function KeyAsURLPart : String; Override;
  5336. published
  5337. Property AllowPrint : boolean index 0 read FAllowPrint write SetAllowPrint;
  5338. Property AllowScript : boolean index 8 read FAllowScript write SetAllowScript;
  5339. Property AllowWriteCopy : boolean index 16 read FAllowWriteCopy write SetAllowWriteCopy;
  5340. Property DisableDocumentBrowserView : boolean index 24 read FDisableDocumentBrowserView write SetDisableDocumentBrowserView;
  5341. Property DocumentAccessExpireDays : TInt32 index 32 read FDocumentAccessExpireDays write SetDocumentAccessExpireDays;
  5342. Property DocumentLibraryProtectionExpireDate : TDateTime index 40 read FDocumentLibraryProtectionExpireDate write SetDocumentLibraryProtectionExpireDate;
  5343. Property EnableDocumentAccessExpire : boolean index 48 read FEnableDocumentAccessExpire write SetEnableDocumentAccessExpire;
  5344. Property EnableDocumentBrowserPublishingView : boolean index 56 read FEnableDocumentBrowserPublishingView write SetEnableDocumentBrowserPublishingView;
  5345. Property EnableGroupProtection : boolean index 64 read FEnableGroupProtection write SetEnableGroupProtection;
  5346. Property EnableLicenseCacheExpire : boolean index 72 read FEnableLicenseCacheExpire write SetEnableLicenseCacheExpire;
  5347. Property GroupName : string index 80 read FGroupName write SetGroupName;
  5348. Property LicenseCacheExpireDays : TInt32 index 88 read FLicenseCacheExpireDays write SetLicenseCacheExpireDays;
  5349. Property PolicyDescription : string index 96 read FPolicyDescription write SetPolicyDescription;
  5350. Property PolicyTitle : string index 104 read FPolicyTitle write SetPolicyTitle;
  5351. end;
  5352. { --------------------------------------------------------------------
  5353. SP: UserCustomAction
  5354. --------------------------------------------------------------------}
  5355. TSPUserCustomAction = Class(TODataEntity)
  5356. private
  5357. FCommandUIExtension : string;
  5358. FDescription : string;
  5359. FGroup : string;
  5360. FId : TGUIDString;
  5361. FImageUrl : string;
  5362. FLocation : string;
  5363. FName : string;
  5364. FRegistrationId : string;
  5365. FRegistrationType : TInt32;
  5366. FRights : TSPBasePermissions;
  5367. FScope : TInt32;
  5368. FScriptBlock : string;
  5369. FScriptSrc : string;
  5370. FSequence : TInt32;
  5371. FTitle : string;
  5372. FUrl : string;
  5373. FVersionOfUserCustomAction : string;
  5374. procedure SetCommandUIExtension(AIndex: Integer; const AValue: string);
  5375. procedure SetDescription(AIndex: Integer; const AValue: string);
  5376. procedure SetGroup(AIndex: Integer; const AValue: string);
  5377. procedure SetId(AIndex: Integer; const AValue: TGUIDString);
  5378. procedure SetImageUrl(AIndex: Integer; const AValue: string);
  5379. procedure SetLocation(AIndex: Integer; const AValue: string);
  5380. procedure SetName(AIndex: Integer; const AValue: string);
  5381. procedure SetRegistrationId(AIndex: Integer; const AValue: string);
  5382. procedure SetRegistrationType(AIndex: Integer; const AValue: TInt32);
  5383. procedure SetRights(AIndex: Integer; const AValue: TSPBasePermissions);
  5384. procedure SetScope(AIndex: Integer; const AValue: TInt32);
  5385. procedure SetScriptBlock(AIndex: Integer; const AValue: string);
  5386. procedure SetScriptSrc(AIndex: Integer; const AValue: string);
  5387. procedure SetSequence(AIndex: Integer; const AValue: TInt32);
  5388. procedure SetTitle(AIndex: Integer; const AValue: string);
  5389. procedure SetUrl(AIndex: Integer; const AValue: string);
  5390. procedure SetVersionOfUserCustomAction(AIndex: Integer;
  5391. const AValue: string);
  5392. public
  5393. class function ObjectRestKind : String; Override;
  5394. function KeyAsURLPart : String; Override;
  5395. published
  5396. Property CommandUIExtension : string index 0 read FCommandUIExtension write SetCommandUIExtension;
  5397. Property Description : string index 8 read FDescription write SetDescription;
  5398. Property Group : string index 16 read FGroup write SetGroup;
  5399. Property Id : TGUIDString index 24 read FId write SetId;
  5400. Property ImageUrl : string index 32 read FImageUrl write SetImageUrl;
  5401. Property Location : string index 40 read FLocation write SetLocation;
  5402. Property Name : string index 48 read FName write SetName;
  5403. Property RegistrationId : string index 56 read FRegistrationId write SetRegistrationId;
  5404. Property RegistrationType : TInt32 index 64 read FRegistrationType write SetRegistrationType;
  5405. Property Rights : TSPBasePermissions index 72 read FRights write SetRights;
  5406. Property Scope : TInt32 index 80 read FScope write SetScope;
  5407. Property ScriptBlock : string index 88 read FScriptBlock write SetScriptBlock;
  5408. Property ScriptSrc : string index 96 read FScriptSrc write SetScriptSrc;
  5409. Property Sequence : TInt32 index 104 read FSequence write SetSequence;
  5410. Property Title : string index 112 read FTitle write SetTitle;
  5411. Property Url : string index 120 read FUrl write SetUrl;
  5412. Property VersionOfUserCustomAction : string index 128 read FVersionOfUserCustomAction write SetVersionOfUserCustomAction;
  5413. end;
  5414. { --------------------------------------------------------------------
  5415. SP: FileVersion
  5416. --------------------------------------------------------------------}
  5417. TSPFileVersion = Class(TODataEntity)
  5418. private
  5419. FCheckInComment : string;
  5420. FCreated : TDateTime;
  5421. FID : TInt32;
  5422. FIsCurrentVersion : boolean;
  5423. F_Length : int64;
  5424. FSize : TInt32;
  5425. FUrl : string;
  5426. FVersionLabel : string;
  5427. procedure SetCheckInComment(AIndex: Integer; const AValue: string);
  5428. procedure SetCreated(AIndex: Integer; const AValue: TDateTime);
  5429. procedure SetID(AIndex: Integer; const AValue: TInt32);
  5430. procedure SetIsCurrentVersion(AIndex: Integer; const AValue: boolean);
  5431. procedure Set_Length(AIndex: Integer; const AValue: int64);
  5432. procedure SetSize(AIndex: Integer; const AValue: TInt32);
  5433. procedure SetUrl(AIndex: Integer; const AValue: string);
  5434. procedure SetVersionLabel(AIndex: Integer; const AValue: string);
  5435. public
  5436. class function ObjectRestKind : String; Override;
  5437. class function ExportPropertyName(const AName: String) : String
  5438. ; Override;
  5439. function KeyAsURLPart : String; Override;
  5440. function CreatedBy(AService: TODataService) : TSPUser;
  5441. published
  5442. Property CheckInComment : string index 0 read FCheckInComment write SetCheckInComment;
  5443. Property Created : TDateTime index 8 read FCreated write SetCreated;
  5444. Property ID : TInt32 index 16 read FID write SetID;
  5445. Property IsCurrentVersion : boolean index 24 read FIsCurrentVersion write SetIsCurrentVersion;
  5446. Property _Length : int64 index 32 read F_Length write Set_Length;
  5447. Property Size : TInt32 index 40 read FSize write SetSize;
  5448. Property Url : string index 48 read FUrl write SetUrl;
  5449. Property VersionLabel : string index 56 read FVersionLabel write SetVersionLabel;
  5450. end;
  5451. { --------------------------------------------------------------------
  5452. SP: ListTemplate
  5453. --------------------------------------------------------------------}
  5454. TSPListTemplate = Class(TODataEntity)
  5455. private
  5456. FAllowsFolderCreation : boolean;
  5457. FBaseType : TInt32;
  5458. FDescription : string;
  5459. FFeatureId : TGUIDString;
  5460. FHidden : boolean;
  5461. FImageUrl : string;
  5462. FInternalName : string;
  5463. FIsCustomTemplate : boolean;
  5464. FName : string;
  5465. FOnQuickLaunch : boolean;
  5466. FListTemplateTypeKind : TInt32;
  5467. FUnique : boolean;
  5468. procedure SetAllowsFolderCreation(AIndex: Integer;
  5469. const AValue: boolean);
  5470. procedure SetBaseType(AIndex: Integer; const AValue: TInt32);
  5471. procedure SetDescription(AIndex: Integer; const AValue: string);
  5472. procedure SetFeatureId(AIndex: Integer; const AValue: TGUIDString);
  5473. procedure SetHidden(AIndex: Integer; const AValue: boolean);
  5474. procedure SetImageUrl(AIndex: Integer; const AValue: string);
  5475. procedure SetInternalName(AIndex: Integer; const AValue: string);
  5476. procedure SetIsCustomTemplate(AIndex: Integer; const AValue: boolean);
  5477. procedure SetName(AIndex: Integer; const AValue: string);
  5478. procedure SetOnQuickLaunch(AIndex: Integer; const AValue: boolean);
  5479. procedure SetListTemplateTypeKind(AIndex: Integer; const AValue: TInt32);
  5480. procedure SetUnique(AIndex: Integer; const AValue: boolean);
  5481. public
  5482. class function ObjectRestKind : String; Override;
  5483. function KeyAsURLPart : String; Override;
  5484. published
  5485. Property AllowsFolderCreation : boolean index 0 read FAllowsFolderCreation write SetAllowsFolderCreation;
  5486. Property BaseType : TInt32 index 8 read FBaseType write SetBaseType;
  5487. Property Description : string index 16 read FDescription write SetDescription;
  5488. Property FeatureId : TGUIDString index 24 read FFeatureId write SetFeatureId;
  5489. Property Hidden : boolean index 32 read FHidden write SetHidden;
  5490. Property ImageUrl : string index 40 read FImageUrl write SetImageUrl;
  5491. Property InternalName : string index 48 read FInternalName write SetInternalName;
  5492. Property IsCustomTemplate : boolean index 56 read FIsCustomTemplate write SetIsCustomTemplate;
  5493. Property Name : string index 64 read FName write SetName;
  5494. Property OnQuickLaunch : boolean index 72 read FOnQuickLaunch write SetOnQuickLaunch;
  5495. Property ListTemplateTypeKind : TInt32 index 80 read FListTemplateTypeKind write SetListTemplateTypeKind;
  5496. Property Unique : boolean index 88 read FUnique write SetUnique;
  5497. end;
  5498. { --------------------------------------------------------------------
  5499. SP: Navigation
  5500. --------------------------------------------------------------------}
  5501. TSPNavigation = Class(TODataEntity)
  5502. private
  5503. FUseShared : boolean;
  5504. procedure SetUseShared(AIndex: Integer; const AValue: boolean);
  5505. public
  5506. class function ObjectRestKind : String; Override;
  5507. function KeyAsURLPart : String; Override;
  5508. function QuickLaunch(AService: TODataService) : TSPNavigationNode;
  5509. function TopNavigationBar(AService: TODataService) : TSPNavigationNode;
  5510. published
  5511. Property UseShared : boolean index 0 read FUseShared write SetUseShared;
  5512. end;
  5513. { --------------------------------------------------------------------
  5514. SP: NavigationNode
  5515. --------------------------------------------------------------------}
  5516. TSPNavigationNode = Class(TODataEntity)
  5517. private
  5518. FId : TInt32;
  5519. FIsDocLib : boolean;
  5520. FIsExternal : boolean;
  5521. FIsVisible : boolean;
  5522. FTitle : string;
  5523. FUrl : string;
  5524. procedure SetId(AIndex: Integer; const AValue: TInt32);
  5525. procedure SetIsDocLib(AIndex: Integer; const AValue: boolean);
  5526. procedure SetIsExternal(AIndex: Integer; const AValue: boolean);
  5527. procedure SetIsVisible(AIndex: Integer; const AValue: boolean);
  5528. procedure SetTitle(AIndex: Integer; const AValue: string);
  5529. procedure SetUrl(AIndex: Integer; const AValue: string);
  5530. public
  5531. class function ObjectRestKind : String; Override;
  5532. function KeyAsURLPart : String; Override;
  5533. function Children(AService: TODataService) : TSPNavigationNode;
  5534. published
  5535. Property Id : TInt32 index 0 read FId write SetId;
  5536. Property IsDocLib : boolean index 8 read FIsDocLib write SetIsDocLib;
  5537. Property IsExternal : boolean index 16 read FIsExternal write SetIsExternal;
  5538. Property IsVisible : boolean index 24 read FIsVisible write SetIsVisible;
  5539. Property Title : string index 32 read FTitle write SetTitle;
  5540. Property Url : string index 40 read FUrl write SetUrl;
  5541. end;
  5542. { --------------------------------------------------------------------
  5543. SP: WebInformation
  5544. --------------------------------------------------------------------}
  5545. TSPWebInformation = Class(TODataEntity)
  5546. private
  5547. FConfiguration : TInt16;
  5548. FCreated : TDateTime;
  5549. FDescription : string;
  5550. FId : TGUIDString;
  5551. FLanguage : TInt32;
  5552. FLastItemModifiedDate : TDateTime;
  5553. FServerRelativeUrl : string;
  5554. FTitle : string;
  5555. FWebTemplate : string;
  5556. FWebTemplateId : TInt32;
  5557. procedure SetConfiguration(AIndex: Integer; const AValue: TInt16);
  5558. procedure SetCreated(AIndex: Integer; const AValue: TDateTime);
  5559. procedure SetDescription(AIndex: Integer; const AValue: string);
  5560. procedure SetId(AIndex: Integer; const AValue: TGUIDString);
  5561. procedure SetLanguage(AIndex: Integer; const AValue: TInt32);
  5562. procedure SetLastItemModifiedDate(AIndex: Integer;
  5563. const AValue: TDateTime);
  5564. procedure SetServerRelativeUrl(AIndex: Integer; const AValue: string);
  5565. procedure SetTitle(AIndex: Integer; const AValue: string);
  5566. procedure SetWebTemplate(AIndex: Integer; const AValue: string);
  5567. procedure SetWebTemplateId(AIndex: Integer; const AValue: TInt32);
  5568. public
  5569. class function ObjectRestKind : String; Override;
  5570. function KeyAsURLPart : String; Override;
  5571. published
  5572. Property Configuration : TInt16 index 0 read FConfiguration write SetConfiguration;
  5573. Property Created : TDateTime index 8 read FCreated write SetCreated;
  5574. Property Description : string index 16 read FDescription write SetDescription;
  5575. Property Id : TGUIDString index 24 read FId write SetId;
  5576. Property Language : TInt32 index 32 read FLanguage write SetLanguage;
  5577. Property LastItemModifiedDate : TDateTime index 40 read FLastItemModifiedDate write SetLastItemModifiedDate;
  5578. Property ServerRelativeUrl : string index 48 read FServerRelativeUrl write SetServerRelativeUrl;
  5579. Property Title : string index 56 read FTitle write SetTitle;
  5580. Property WebTemplate : string index 64 read FWebTemplate write SetWebTemplate;
  5581. Property WebTemplateId : TInt32 index 72 read FWebTemplateId write SetWebTemplateId;
  5582. end;
  5583. { --------------------------------------------------------------------
  5584. SP: PushNotificationSubscriber
  5585. --------------------------------------------------------------------}
  5586. TSPPushNotificationSubscriber = Class(TODataEntity)
  5587. private
  5588. FCustomArgs : string;
  5589. FDeviceAppInstanceId : TGUIDString;
  5590. FLastModifiedTimeStamp : TDateTime;
  5591. FRegistrationTimeStamp : TDateTime;
  5592. FServiceToken : string;
  5593. FSubscriberType : string;
  5594. procedure SetCustomArgs(AIndex: Integer; const AValue: string);
  5595. procedure SetDeviceAppInstanceId(AIndex: Integer;
  5596. const AValue: TGUIDString);
  5597. procedure SetLastModifiedTimeStamp(AIndex: Integer;
  5598. const AValue: TDateTime);
  5599. procedure SetRegistrationTimeStamp(AIndex: Integer;
  5600. const AValue: TDateTime);
  5601. procedure SetServiceToken(AIndex: Integer; const AValue: string);
  5602. procedure SetSubscriberType(AIndex: Integer; const AValue: string);
  5603. public
  5604. class function ObjectRestKind : String; Override;
  5605. function KeyAsURLPart : String; Override;
  5606. function User(AService: TODataService) : TSPUser;
  5607. published
  5608. Property CustomArgs : string index 0 read FCustomArgs write SetCustomArgs;
  5609. Property DeviceAppInstanceId : TGUIDString index 8 read FDeviceAppInstanceId write SetDeviceAppInstanceId;
  5610. Property LastModifiedTimeStamp : TDateTime index 16 read FLastModifiedTimeStamp write SetLastModifiedTimeStamp;
  5611. Property RegistrationTimeStamp : TDateTime index 24 read FRegistrationTimeStamp write SetRegistrationTimeStamp;
  5612. Property ServiceToken : string index 32 read FServiceToken write SetServiceToken;
  5613. Property SubscriberType : string index 40 read FSubscriberType write SetSubscriberType;
  5614. end;
  5615. { --------------------------------------------------------------------
  5616. SP: RegionalSettings
  5617. --------------------------------------------------------------------}
  5618. TSPRegionalSettings = Class(TODataEntity)
  5619. private
  5620. FAdjustHijriDays : TInt16;
  5621. FAlternateCalendarType : TInt16;
  5622. FAM : string;
  5623. FCalendarType : TInt16;
  5624. FCollation : TInt16;
  5625. FCollationLCID : TInt32;
  5626. FDateFormat : TInt32;
  5627. FDateSeparator : string;
  5628. FDecimalSeparator : string;
  5629. FDigitGrouping : string;
  5630. FFirstDayOfWeek : TInt32;
  5631. FFirstWeekOfYear : TInt16;
  5632. FIsEastAsia : boolean;
  5633. FIsRightToLeft : boolean;
  5634. FIsUIRightToLeft : boolean;
  5635. FListSeparator : string;
  5636. FLocaleId : TInt32;
  5637. FNegativeSign : string;
  5638. FNegNumberMode : TInt32;
  5639. FPM : string;
  5640. FPositiveSign : string;
  5641. FShowWeeks : boolean;
  5642. FThousandSeparator : string;
  5643. FTime24 : boolean;
  5644. FTimeMarkerPosition : TInt32;
  5645. FTimeSeparator : string;
  5646. FWorkDayEndHour : TInt16;
  5647. FWorkDays : TInt16;
  5648. FWorkDayStartHour : TInt16;
  5649. procedure SetAdjustHijriDays(AIndex: Integer; const AValue: TInt16);
  5650. procedure SetAlternateCalendarType(AIndex: Integer;
  5651. const AValue: TInt16);
  5652. procedure SetAM(AIndex: Integer; const AValue: string);
  5653. procedure SetCalendarType(AIndex: Integer; const AValue: TInt16);
  5654. procedure SetCollation(AIndex: Integer; const AValue: TInt16);
  5655. procedure SetCollationLCID(AIndex: Integer; const AValue: TInt32);
  5656. procedure SetDateFormat(AIndex: Integer; const AValue: TInt32);
  5657. procedure SetDateSeparator(AIndex: Integer; const AValue: string);
  5658. procedure SetDecimalSeparator(AIndex: Integer; const AValue: string);
  5659. procedure SetDigitGrouping(AIndex: Integer; const AValue: string);
  5660. procedure SetFirstDayOfWeek(AIndex: Integer; const AValue: TInt32);
  5661. procedure SetFirstWeekOfYear(AIndex: Integer; const AValue: TInt16);
  5662. procedure SetIsEastAsia(AIndex: Integer; const AValue: boolean);
  5663. procedure SetIsRightToLeft(AIndex: Integer; const AValue: boolean);
  5664. procedure SetIsUIRightToLeft(AIndex: Integer; const AValue: boolean);
  5665. procedure SetListSeparator(AIndex: Integer; const AValue: string);
  5666. procedure SetLocaleId(AIndex: Integer; const AValue: TInt32);
  5667. procedure SetNegativeSign(AIndex: Integer; const AValue: string);
  5668. procedure SetNegNumberMode(AIndex: Integer; const AValue: TInt32);
  5669. procedure SetPM(AIndex: Integer; const AValue: string);
  5670. procedure SetPositiveSign(AIndex: Integer; const AValue: string);
  5671. procedure SetShowWeeks(AIndex: Integer; const AValue: boolean);
  5672. procedure SetThousandSeparator(AIndex: Integer; const AValue: string);
  5673. procedure SetTime24(AIndex: Integer; const AValue: boolean);
  5674. procedure SetTimeMarkerPosition(AIndex: Integer; const AValue: TInt32);
  5675. procedure SetTimeSeparator(AIndex: Integer; const AValue: string);
  5676. procedure SetWorkDayEndHour(AIndex: Integer; const AValue: TInt16);
  5677. procedure SetWorkDays(AIndex: Integer; const AValue: TInt16);
  5678. procedure SetWorkDayStartHour(AIndex: Integer; const AValue: TInt16);
  5679. public
  5680. class function ObjectRestKind : String; Override;
  5681. function KeyAsURLPart : String; Override;
  5682. function GlobalTimeZones(AService: TODataService) : TSPTimeZone;
  5683. function TimeZone(AService: TODataService) : TSPTimeZone;
  5684. function TimeZones(AService: TODataService) : TSPTimeZone;
  5685. published
  5686. Property AdjustHijriDays : TInt16 index 0 read FAdjustHijriDays write SetAdjustHijriDays;
  5687. Property AlternateCalendarType : TInt16 index 8 read FAlternateCalendarType write SetAlternateCalendarType;
  5688. Property AM : string index 16 read FAM write SetAM;
  5689. Property CalendarType : TInt16 index 24 read FCalendarType write SetCalendarType;
  5690. Property Collation : TInt16 index 32 read FCollation write SetCollation;
  5691. Property CollationLCID : TInt32 index 40 read FCollationLCID write SetCollationLCID;
  5692. Property DateFormat : TInt32 index 48 read FDateFormat write SetDateFormat;
  5693. Property DateSeparator : string index 56 read FDateSeparator write SetDateSeparator;
  5694. Property DecimalSeparator : string index 64 read FDecimalSeparator write SetDecimalSeparator;
  5695. Property DigitGrouping : string index 72 read FDigitGrouping write SetDigitGrouping;
  5696. Property FirstDayOfWeek : TInt32 index 80 read FFirstDayOfWeek write SetFirstDayOfWeek;
  5697. Property FirstWeekOfYear : TInt16 index 88 read FFirstWeekOfYear write SetFirstWeekOfYear;
  5698. Property IsEastAsia : boolean index 96 read FIsEastAsia write SetIsEastAsia;
  5699. Property IsRightToLeft : boolean index 104 read FIsRightToLeft write SetIsRightToLeft;
  5700. Property IsUIRightToLeft : boolean index 112 read FIsUIRightToLeft write SetIsUIRightToLeft;
  5701. Property ListSeparator : string index 120 read FListSeparator write SetListSeparator;
  5702. Property LocaleId : TInt32 index 128 read FLocaleId write SetLocaleId;
  5703. Property NegativeSign : string index 136 read FNegativeSign write SetNegativeSign;
  5704. Property NegNumberMode : TInt32 index 144 read FNegNumberMode write SetNegNumberMode;
  5705. Property PM : string index 152 read FPM write SetPM;
  5706. Property PositiveSign : string index 160 read FPositiveSign write SetPositiveSign;
  5707. Property ShowWeeks : boolean index 168 read FShowWeeks write SetShowWeeks;
  5708. Property ThousandSeparator : string index 176 read FThousandSeparator write SetThousandSeparator;
  5709. Property Time24 : boolean index 184 read FTime24 write SetTime24;
  5710. Property TimeMarkerPosition : TInt32 index 192 read FTimeMarkerPosition write SetTimeMarkerPosition;
  5711. Property TimeSeparator : string index 200 read FTimeSeparator write SetTimeSeparator;
  5712. Property WorkDayEndHour : TInt16 index 208 read FWorkDayEndHour write SetWorkDayEndHour;
  5713. Property WorkDays : TInt16 index 216 read FWorkDays write SetWorkDays;
  5714. Property WorkDayStartHour : TInt16 index 224 read FWorkDayStartHour write SetWorkDayStartHour;
  5715. end;
  5716. { --------------------------------------------------------------------
  5717. SP: TimeZone
  5718. --------------------------------------------------------------------}
  5719. TSPTimeZone = Class(TODataEntity)
  5720. private
  5721. FDescription : string;
  5722. FId : TInt32;
  5723. FInformation : TSPTimeZoneInformation;
  5724. procedure SetDescription(AIndex: Integer; const AValue: string);
  5725. procedure SetId(AIndex: Integer; const AValue: TInt32);
  5726. procedure SetInformation(AIndex: Integer;
  5727. const AValue: TSPTimeZoneInformation);
  5728. public
  5729. class function ObjectRestKind : String; Override;
  5730. function KeyAsURLPart : String; Override;
  5731. published
  5732. Property Description : string index 0 read FDescription write SetDescription;
  5733. Property Id : TInt32 index 8 read FId write SetId;
  5734. Property Information : TSPTimeZoneInformation index 16 read FInformation write SetInformation;
  5735. end;
  5736. { --------------------------------------------------------------------
  5737. SP: ThemeInfo
  5738. --------------------------------------------------------------------}
  5739. TSPThemeInfo = Class(TODataEntity)
  5740. private
  5741. FAccessibleDescription : string;
  5742. FThemeBackgroundImageUri : string;
  5743. procedure SetAccessibleDescription(AIndex: Integer;
  5744. const AValue: string);
  5745. procedure SetThemeBackgroundImageUri(AIndex: Integer;
  5746. const AValue: string);
  5747. public
  5748. class function ObjectRestKind : String; Override;
  5749. function KeyAsURLPart : String; Override;
  5750. published
  5751. Property AccessibleDescription : string index 0 read FAccessibleDescription write SetAccessibleDescription;
  5752. Property ThemeBackgroundImageUri : string index 8 read FThemeBackgroundImageUri write SetThemeBackgroundImageUri;
  5753. end;
  5754. { --------------------------------------------------------------------
  5755. SP: SPAppLicenseManager
  5756. --------------------------------------------------------------------}
  5757. TSPSPAppLicenseManager = Class(TODataEntity)
  5758. private
  5759. FId4a81de82eeb94d6080ea5bf63e27023a : string;
  5760. procedure SetId4a81de82eeb94d6080ea5bf63e27023a(AIndex: Integer;
  5761. const AValue: string);
  5762. public
  5763. class function ObjectRestKind : String; Override;
  5764. function KeyAsURLPart : String; Override;
  5765. published
  5766. Property Id4a81de82eeb94d6080ea5bf63e27023a : string index 0 read FId4a81de82eeb94d6080ea5bf63e27023a write SetId4a81de82eeb94d6080ea5bf63e27023a;
  5767. end;
  5768. { --------------------------------------------------------------------
  5769. SP: SolutionExporter
  5770. --------------------------------------------------------------------}
  5771. TSPSolutionExporter = Class(TODataEntity)
  5772. private
  5773. FId4a81de82eeb94d6080ea5bf63e27023a : string;
  5774. procedure SetId4a81de82eeb94d6080ea5bf63e27023a(AIndex: Integer;
  5775. const AValue: string);
  5776. public
  5777. class function ObjectRestKind : String; Override;
  5778. function KeyAsURLPart : String; Override;
  5779. published
  5780. Property Id4a81de82eeb94d6080ea5bf63e27023a : string index 0 read FId4a81de82eeb94d6080ea5bf63e27023a write SetId4a81de82eeb94d6080ea5bf63e27023a;
  5781. end;
  5782. { --------------------------------------------------------------------
  5783. SP: UserSolution
  5784. --------------------------------------------------------------------}
  5785. TSPUserSolution = Class(TODataEntity)
  5786. private
  5787. FId4a81de82eeb94d6080ea5bf63e27023a : string;
  5788. procedure SetId4a81de82eeb94d6080ea5bf63e27023a(AIndex: Integer;
  5789. const AValue: string);
  5790. public
  5791. class function ObjectRestKind : String; Override;
  5792. function KeyAsURLPart : String; Override;
  5793. published
  5794. Property Id4a81de82eeb94d6080ea5bf63e27023a : string index 0 read FId4a81de82eeb94d6080ea5bf63e27023a write SetId4a81de82eeb94d6080ea5bf63e27023a;
  5795. end;
  5796. { --------------------------------------------------------------------
  5797. SP: AppCatalog
  5798. --------------------------------------------------------------------}
  5799. TSPAppCatalog = Class(TODataEntity)
  5800. private
  5801. FId4a81de82eeb94d6080ea5bf63e27023a : string;
  5802. procedure SetId4a81de82eeb94d6080ea5bf63e27023a(AIndex: Integer;
  5803. const AValue: string);
  5804. public
  5805. class function ObjectRestKind : String; Override;
  5806. function KeyAsURLPart : String; Override;
  5807. published
  5808. Property Id4a81de82eeb94d6080ea5bf63e27023a : string index 0 read FId4a81de82eeb94d6080ea5bf63e27023a write SetId4a81de82eeb94d6080ea5bf63e27023a;
  5809. end;
  5810. { --------------------------------------------------------------------
  5811. SP: AppInstanceErrorDetails
  5812. --------------------------------------------------------------------}
  5813. TSPAppInstanceErrorDetails = Class(TODataEntity)
  5814. private
  5815. FCorrelationId : TGUIDString;
  5816. FErrorDetail : string;
  5817. FErrorType : TInt32;
  5818. FErrorTypeName : string;
  5819. FExceptionMessage : string;
  5820. FSource : TInt32;
  5821. FSourceName : string;
  5822. procedure SetCorrelationId(AIndex: Integer; const AValue: TGUIDString);
  5823. procedure SetErrorDetail(AIndex: Integer; const AValue: string);
  5824. procedure SetErrorType(AIndex: Integer; const AValue: TInt32);
  5825. procedure SetErrorTypeName(AIndex: Integer; const AValue: string);
  5826. procedure SetExceptionMessage(AIndex: Integer; const AValue: string);
  5827. procedure SetSource(AIndex: Integer; const AValue: TInt32);
  5828. procedure SetSourceName(AIndex: Integer; const AValue: string);
  5829. public
  5830. class function ObjectRestKind : String; Override;
  5831. function KeyAsURLPart : String; Override;
  5832. published
  5833. Property CorrelationId : TGUIDString index 0 read FCorrelationId write SetCorrelationId;
  5834. Property ErrorDetail : string index 8 read FErrorDetail write SetErrorDetail;
  5835. Property ErrorType : TInt32 index 16 read FErrorType write SetErrorType;
  5836. Property ErrorTypeName : string index 24 read FErrorTypeName write SetErrorTypeName;
  5837. Property ExceptionMessage : string index 32 read FExceptionMessage write SetExceptionMessage;
  5838. Property Source : TInt32 index 40 read FSource write SetSource;
  5839. Property SourceName : string index 48 read FSourceName write SetSourceName;
  5840. end;
  5841. { --------------------------------------------------------------------
  5842. SP: AppInstance
  5843. --------------------------------------------------------------------}
  5844. TSPAppInstance = Class(TODataEntity)
  5845. private
  5846. FAppPrincipalId : string;
  5847. FAppWebFullUrl : string;
  5848. FId : TGUIDString;
  5849. FImageFallbackUrl : string;
  5850. FImageUrl : string;
  5851. FInError : boolean;
  5852. FStartPage : string;
  5853. FPackageFingerprint : TBinary;
  5854. FProductId : TGUIDString;
  5855. FRemoteAppUrl : string;
  5856. FSettingsPageUrl : string;
  5857. FSiteId : TGUIDString;
  5858. FStatus : TInt32;
  5859. FTitle : string;
  5860. FWebId : TGUIDString;
  5861. procedure SetAppPrincipalId(AIndex: Integer; const AValue: string);
  5862. procedure SetAppWebFullUrl(AIndex: Integer; const AValue: string);
  5863. procedure SetId(AIndex: Integer; const AValue: TGUIDString);
  5864. procedure SetImageFallbackUrl(AIndex: Integer; const AValue: string);
  5865. procedure SetImageUrl(AIndex: Integer; const AValue: string);
  5866. procedure SetInError(AIndex: Integer; const AValue: boolean);
  5867. procedure SetStartPage(AIndex: Integer; const AValue: string);
  5868. procedure SetPackageFingerprint(AIndex: Integer; const AValue: TBinary);
  5869. procedure SetProductId(AIndex: Integer; const AValue: TGUIDString);
  5870. procedure SetRemoteAppUrl(AIndex: Integer; const AValue: string);
  5871. procedure SetSettingsPageUrl(AIndex: Integer; const AValue: string);
  5872. procedure SetSiteId(AIndex: Integer; const AValue: TGUIDString);
  5873. procedure SetStatus(AIndex: Integer; const AValue: TInt32);
  5874. procedure SetTitle(AIndex: Integer; const AValue: string);
  5875. procedure SetWebId(AIndex: Integer; const AValue: TGUIDString);
  5876. public
  5877. class function ObjectRestKind : String; Override;
  5878. function KeyAsURLPart : String; Override;
  5879. published
  5880. Property AppPrincipalId : string index 0 read FAppPrincipalId write SetAppPrincipalId;
  5881. Property AppWebFullUrl : string index 8 read FAppWebFullUrl write SetAppWebFullUrl;
  5882. Property Id : TGUIDString index 16 read FId write SetId;
  5883. Property ImageFallbackUrl : string index 24 read FImageFallbackUrl write SetImageFallbackUrl;
  5884. Property ImageUrl : string index 32 read FImageUrl write SetImageUrl;
  5885. Property InError : boolean index 40 read FInError write SetInError;
  5886. Property StartPage : string index 48 read FStartPage write SetStartPage;
  5887. Property PackageFingerprint : TBinary index 56 read FPackageFingerprint write SetPackageFingerprint;
  5888. Property ProductId : TGUIDString index 64 read FProductId write SetProductId;
  5889. Property RemoteAppUrl : string index 72 read FRemoteAppUrl write SetRemoteAppUrl;
  5890. Property SettingsPageUrl : string index 80 read FSettingsPageUrl write SetSettingsPageUrl;
  5891. Property SiteId : TGUIDString index 88 read FSiteId write SetSiteId;
  5892. Property Status : TInt32 index 96 read FStatus write SetStatus;
  5893. Property Title : string index 104 read FTitle write SetTitle;
  5894. Property WebId : TGUIDString index 112 read FWebId write SetWebId;
  5895. end;
  5896. { --------------------------------------------------------------------
  5897. SP: App
  5898. --------------------------------------------------------------------}
  5899. TSPApp = Class(TODataEntity)
  5900. private
  5901. FAssetId : string;
  5902. FContentMarket : string;
  5903. FVersionString : string;
  5904. procedure SetAssetId(AIndex: Integer; const AValue: string);
  5905. procedure SetContentMarket(AIndex: Integer; const AValue: string);
  5906. procedure SetVersionString(AIndex: Integer; const AValue: string);
  5907. public
  5908. class function ObjectRestKind : String; Override;
  5909. function KeyAsURLPart : String; Override;
  5910. published
  5911. Property AssetId : string index 0 read FAssetId write SetAssetId;
  5912. Property ContentMarket : string index 8 read FContentMarket write SetContentMarket;
  5913. Property VersionString : string index 16 read FVersionString write SetVersionString;
  5914. end;
  5915. { --------------------------------------------------------------------
  5916. SP: AlternateUrl
  5917. --------------------------------------------------------------------}
  5918. TSPAlternateUrl = Class(TODataEntity)
  5919. private
  5920. FUri : string;
  5921. FUrlZone : TInt32;
  5922. procedure SetUri(AIndex: Integer; const AValue: string);
  5923. procedure SetUrlZone(AIndex: Integer; const AValue: TInt32);
  5924. public
  5925. class function ObjectRestKind : String; Override;
  5926. function KeyAsURLPart : String; Override;
  5927. published
  5928. Property Uri : string index 0 read FUri write SetUri;
  5929. Property UrlZone : TInt32 index 8 read FUrlZone write SetUrlZone;
  5930. end;
  5931. { --------------------------------------------------------------------
  5932. SP: ObjectSharingSettings
  5933. --------------------------------------------------------------------}
  5934. TSPObjectSharingSettings = Class(TODataEntity)
  5935. private
  5936. FAccessRequestMode : boolean;
  5937. FCanCurrentUserManageReadonlyLink : boolean;
  5938. FCanCurrentUserManageReadWriteLink : boolean;
  5939. FCanCurrentUserRetrieveReadonlyLink : boolean;
  5940. FCanCurrentUserRetrieveReadWriteLink : boolean;
  5941. FCanCurrentUserShareExternally : boolean;
  5942. FCanCurrentUserShareInternally : boolean;
  5943. FCanSendEmail : boolean;
  5944. FCanSendLink : boolean;
  5945. FCanShareFolder : boolean;
  5946. FGroupsList : TSPKeyValueArray;
  5947. FHasEditRole : boolean;
  5948. FHasReadRole : boolean;
  5949. FInheritingWebLink : string;
  5950. FIsGuestUser : boolean;
  5951. FIsPictureLibrary : boolean;
  5952. FIsUserSiteAdmin : boolean;
  5953. FItemId : string;
  5954. FItemName : string;
  5955. FItemUrl : string;
  5956. FListId : TGUIDString;
  5957. FPermissionsOnlyMode : boolean;
  5958. FRoles : TSPKeyValueArray;
  5959. FShareByEmailEnabled : boolean;
  5960. FShowExternalSharingWarning : boolean;
  5961. FSimplifiedRoles : TSPKeyValueArray;
  5962. FSupportsAclPropagation : boolean;
  5963. FWebUrl : string;
  5964. procedure SetAccessRequestMode(AIndex: Integer; const AValue: boolean);
  5965. procedure SetCanCurrentUserManageReadonlyLink(AIndex: Integer;
  5966. const AValue: boolean);
  5967. procedure SetCanCurrentUserManageReadWriteLink(AIndex: Integer;
  5968. const AValue: boolean);
  5969. procedure SetCanCurrentUserRetrieveReadonlyLink(AIndex: Integer;
  5970. const AValue: boolean);
  5971. procedure SetCanCurrentUserRetrieveReadWriteLink(AIndex: Integer;
  5972. const AValue: boolean);
  5973. procedure SetCanCurrentUserShareExternally(AIndex: Integer;
  5974. const AValue: boolean);
  5975. procedure SetCanCurrentUserShareInternally(AIndex: Integer;
  5976. const AValue: boolean);
  5977. procedure SetCanSendEmail(AIndex: Integer; const AValue: boolean);
  5978. procedure SetCanSendLink(AIndex: Integer; const AValue: boolean);
  5979. procedure SetCanShareFolder(AIndex: Integer; const AValue: boolean);
  5980. procedure SetGroupsList(AIndex: Integer; const AValue: TSPKeyValueArray);
  5981. procedure SetHasEditRole(AIndex: Integer; const AValue: boolean);
  5982. procedure SetHasReadRole(AIndex: Integer; const AValue: boolean);
  5983. procedure SetInheritingWebLink(AIndex: Integer; const AValue: string);
  5984. procedure SetIsGuestUser(AIndex: Integer; const AValue: boolean);
  5985. procedure SetIsPictureLibrary(AIndex: Integer; const AValue: boolean);
  5986. procedure SetIsUserSiteAdmin(AIndex: Integer; const AValue: boolean);
  5987. procedure SetItemId(AIndex: Integer; const AValue: string);
  5988. procedure SetItemName(AIndex: Integer; const AValue: string);
  5989. procedure SetItemUrl(AIndex: Integer; const AValue: string);
  5990. procedure SetListId(AIndex: Integer; const AValue: TGUIDString);
  5991. procedure SetPermissionsOnlyMode(AIndex: Integer; const AValue: boolean);
  5992. procedure SetRoles(AIndex: Integer; const AValue: TSPKeyValueArray);
  5993. procedure SetShareByEmailEnabled(AIndex: Integer; const AValue: boolean);
  5994. procedure SetShowExternalSharingWarning(AIndex: Integer;
  5995. const AValue: boolean);
  5996. procedure SetSimplifiedRoles(AIndex: Integer;
  5997. const AValue: TSPKeyValueArray);
  5998. procedure SetSupportsAclPropagation(AIndex: Integer;
  5999. const AValue: boolean);
  6000. procedure SetWebUrl(AIndex: Integer; const AValue: string);
  6001. protected
  6002. {$IFDEF VER2_6}
  6003. procedure SetArrayLength(const AName: String; ALength: Longint)
  6004. ; Override;
  6005. {$ENDIF VER2_6}
  6006. public
  6007. class function ObjectRestKind : String; Override;
  6008. function KeyAsURLPart : String; Override;
  6009. function ObjectSharingInformation(AService: TODataService)
  6010. : TSPObjectSharingInformation;
  6011. function SharePointSettings(AService: TODataService)
  6012. : TSPSharePointSharingSettings;
  6013. published
  6014. Property AccessRequestMode : boolean index 0 read FAccessRequestMode write SetAccessRequestMode;
  6015. Property CanCurrentUserManageReadonlyLink : boolean index 8 read FCanCurrentUserManageReadonlyLink write SetCanCurrentUserManageReadonlyLink;
  6016. Property CanCurrentUserManageReadWriteLink : boolean index 16 read FCanCurrentUserManageReadWriteLink write SetCanCurrentUserManageReadWriteLink;
  6017. Property CanCurrentUserRetrieveReadonlyLink : boolean index 24 read FCanCurrentUserRetrieveReadonlyLink write SetCanCurrentUserRetrieveReadonlyLink;
  6018. Property CanCurrentUserRetrieveReadWriteLink : boolean index 32 read FCanCurrentUserRetrieveReadWriteLink write SetCanCurrentUserRetrieveReadWriteLink;
  6019. Property CanCurrentUserShareExternally : boolean index 40 read FCanCurrentUserShareExternally write SetCanCurrentUserShareExternally;
  6020. Property CanCurrentUserShareInternally : boolean index 48 read FCanCurrentUserShareInternally write SetCanCurrentUserShareInternally;
  6021. Property CanSendEmail : boolean index 56 read FCanSendEmail write SetCanSendEmail;
  6022. Property CanSendLink : boolean index 64 read FCanSendLink write SetCanSendLink;
  6023. Property CanShareFolder : boolean index 72 read FCanShareFolder write SetCanShareFolder;
  6024. Property GroupsList : TSPKeyValueArray index 80 read FGroupsList write SetGroupsList;
  6025. Property HasEditRole : boolean index 88 read FHasEditRole write SetHasEditRole;
  6026. Property HasReadRole : boolean index 96 read FHasReadRole write SetHasReadRole;
  6027. Property InheritingWebLink : string index 104 read FInheritingWebLink write SetInheritingWebLink;
  6028. Property IsGuestUser : boolean index 112 read FIsGuestUser write SetIsGuestUser;
  6029. Property IsPictureLibrary : boolean index 120 read FIsPictureLibrary write SetIsPictureLibrary;
  6030. Property IsUserSiteAdmin : boolean index 128 read FIsUserSiteAdmin write SetIsUserSiteAdmin;
  6031. Property ItemId : string index 136 read FItemId write SetItemId;
  6032. Property ItemName : string index 144 read FItemName write SetItemName;
  6033. Property ItemUrl : string index 152 read FItemUrl write SetItemUrl;
  6034. Property ListId : TGUIDString index 160 read FListId write SetListId;
  6035. Property PermissionsOnlyMode : boolean index 168 read FPermissionsOnlyMode write SetPermissionsOnlyMode;
  6036. Property Roles : TSPKeyValueArray index 176 read FRoles write SetRoles;
  6037. Property ShareByEmailEnabled : boolean index 184 read FShareByEmailEnabled write SetShareByEmailEnabled;
  6038. Property ShowExternalSharingWarning : boolean index 192 read FShowExternalSharingWarning write SetShowExternalSharingWarning;
  6039. Property SimplifiedRoles : TSPKeyValueArray index 200 read FSimplifiedRoles write SetSimplifiedRoles;
  6040. Property SupportsAclPropagation : boolean index 208 read FSupportsAclPropagation write SetSupportsAclPropagation;
  6041. Property WebUrl : string index 216 read FWebUrl write SetWebUrl;
  6042. end;
  6043. { --------------------------------------------------------------------
  6044. SP: ObjectSharingInformation
  6045. --------------------------------------------------------------------}
  6046. TSPObjectSharingInformation = Class(TODataEntity)
  6047. private
  6048. FAnonymousEditLink : string;
  6049. FAnonymousViewLink : string;
  6050. FCanBeShared : boolean;
  6051. FCanBeUnshared : boolean;
  6052. FCanManagePermissions : boolean;
  6053. FHasPendingAccessRequests : boolean;
  6054. FHasPermissionLevels : boolean;
  6055. FIsSharedWithCurrentUser : boolean;
  6056. FIsSharedWithGuest : boolean;
  6057. FIsSharedWithMany : boolean;
  6058. FIsSharedWithSecurityGroup : boolean;
  6059. FPendingAccessRequestsLink : string;
  6060. procedure SetAnonymousEditLink(AIndex: Integer; const AValue: string);
  6061. procedure SetAnonymousViewLink(AIndex: Integer; const AValue: string);
  6062. procedure SetCanBeShared(AIndex: Integer; const AValue: boolean);
  6063. procedure SetCanBeUnshared(AIndex: Integer; const AValue: boolean);
  6064. procedure SetCanManagePermissions(AIndex: Integer;
  6065. const AValue: boolean);
  6066. procedure SetHasPendingAccessRequests(AIndex: Integer;
  6067. const AValue: boolean);
  6068. procedure SetHasPermissionLevels(AIndex: Integer; const AValue: boolean);
  6069. procedure SetIsSharedWithCurrentUser(AIndex: Integer;
  6070. const AValue: boolean);
  6071. procedure SetIsSharedWithGuest(AIndex: Integer; const AValue: boolean);
  6072. procedure SetIsSharedWithMany(AIndex: Integer; const AValue: boolean);
  6073. procedure SetIsSharedWithSecurityGroup(AIndex: Integer;
  6074. const AValue: boolean);
  6075. procedure SetPendingAccessRequestsLink(AIndex: Integer;
  6076. const AValue: string);
  6077. public
  6078. class function ObjectRestKind : String; Override;
  6079. function KeyAsURLPart : String; Override;
  6080. function SharedWithUsersCollection(AService: TODataService)
  6081. : TSPObjectSharingInformationUser;
  6082. published
  6083. Property AnonymousEditLink : string index 0 read FAnonymousEditLink write SetAnonymousEditLink;
  6084. Property AnonymousViewLink : string index 8 read FAnonymousViewLink write SetAnonymousViewLink;
  6085. Property CanBeShared : boolean index 16 read FCanBeShared write SetCanBeShared;
  6086. Property CanBeUnshared : boolean index 24 read FCanBeUnshared write SetCanBeUnshared;
  6087. Property CanManagePermissions : boolean index 32 read FCanManagePermissions write SetCanManagePermissions;
  6088. Property HasPendingAccessRequests : boolean index 40 read FHasPendingAccessRequests write SetHasPendingAccessRequests;
  6089. Property HasPermissionLevels : boolean index 48 read FHasPermissionLevels write SetHasPermissionLevels;
  6090. Property IsSharedWithCurrentUser : boolean index 56 read FIsSharedWithCurrentUser write SetIsSharedWithCurrentUser;
  6091. Property IsSharedWithGuest : boolean index 64 read FIsSharedWithGuest write SetIsSharedWithGuest;
  6092. Property IsSharedWithMany : boolean index 72 read FIsSharedWithMany write SetIsSharedWithMany;
  6093. Property IsSharedWithSecurityGroup : boolean index 80 read FIsSharedWithSecurityGroup write SetIsSharedWithSecurityGroup;
  6094. Property PendingAccessRequestsLink : string index 88 read FPendingAccessRequestsLink write SetPendingAccessRequestsLink;
  6095. end;
  6096. { --------------------------------------------------------------------
  6097. SP: ObjectSharingInformationUser
  6098. --------------------------------------------------------------------}
  6099. TSPObjectSharingInformationUser = Class(TODataEntity)
  6100. private
  6101. FCustomRoleNames : string;
  6102. FDepartment : string;
  6103. FEmail : string;
  6104. FHasEditPermission : boolean;
  6105. FHasViewPermission : boolean;
  6106. FId : TInt32;
  6107. FIsDomainGroup : boolean;
  6108. FIsSiteAdmin : boolean;
  6109. FJobTitle : string;
  6110. FLoginName : string;
  6111. FName : string;
  6112. FPicture : string;
  6113. FSipAddress : string;
  6114. procedure SetCustomRoleNames(AIndex: Integer; const AValue: string);
  6115. procedure SetDepartment(AIndex: Integer; const AValue: string);
  6116. procedure SetEmail(AIndex: Integer; const AValue: string);
  6117. procedure SetHasEditPermission(AIndex: Integer; const AValue: boolean);
  6118. procedure SetHasViewPermission(AIndex: Integer; const AValue: boolean);
  6119. procedure SetId(AIndex: Integer; const AValue: TInt32);
  6120. procedure SetIsDomainGroup(AIndex: Integer; const AValue: boolean);
  6121. procedure SetIsSiteAdmin(AIndex: Integer; const AValue: boolean);
  6122. procedure SetJobTitle(AIndex: Integer; const AValue: string);
  6123. procedure SetLoginName(AIndex: Integer; const AValue: string);
  6124. procedure SetName(AIndex: Integer; const AValue: string);
  6125. procedure SetPicture(AIndex: Integer; const AValue: string);
  6126. procedure SetSipAddress(AIndex: Integer; const AValue: string);
  6127. public
  6128. class function ObjectRestKind : String; Override;
  6129. function KeyAsURLPart : String; Override;
  6130. function Principal(AService: TODataService) : TSPPrincipal;
  6131. function User(AService: TODataService) : TSPUser;
  6132. published
  6133. Property CustomRoleNames : string index 0 read FCustomRoleNames write SetCustomRoleNames;
  6134. Property Department : string index 8 read FDepartment write SetDepartment;
  6135. Property Email : string index 16 read FEmail write SetEmail;
  6136. Property HasEditPermission : boolean index 24 read FHasEditPermission write SetHasEditPermission;
  6137. Property HasViewPermission : boolean index 32 read FHasViewPermission write SetHasViewPermission;
  6138. Property Id : TInt32 index 40 read FId write SetId;
  6139. Property IsDomainGroup : boolean index 48 read FIsDomainGroup write SetIsDomainGroup;
  6140. Property IsSiteAdmin : boolean index 56 read FIsSiteAdmin write SetIsSiteAdmin;
  6141. Property JobTitle : string index 64 read FJobTitle write SetJobTitle;
  6142. Property LoginName : string index 72 read FLoginName write SetLoginName;
  6143. Property Name : string index 80 read FName write SetName;
  6144. Property Picture : string index 88 read FPicture write SetPicture;
  6145. Property SipAddress : string index 96 read FSipAddress write SetSipAddress;
  6146. end;
  6147. { --------------------------------------------------------------------
  6148. SP: SharePointSharingSettings
  6149. --------------------------------------------------------------------}
  6150. TSPSharePointSharingSettings = Class(TODataEntity)
  6151. private
  6152. FAddToGroupModeName : string;
  6153. FGroupNameLines : TStringArray;
  6154. FGroupRoleDefinitionNamesLines : TStringArray;
  6155. FIsMobileView : boolean;
  6156. FPanelGivePermissionsVisible : boolean;
  6157. FPanelShowHideMoreOptionsVisible : boolean;
  6158. FPanelSimplifiedRoleSelectorVisible : boolean;
  6159. FRequiredScriptFileLinks : TStringArray;
  6160. FRoleDefinitionNameLines : TStringArray;
  6161. FSelectedGroup : string;
  6162. FSharedWithEnabled : boolean;
  6163. FSharingCssLink : string;
  6164. FTabbedDialogEnabled : boolean;
  6165. FTabToShow : TInt32;
  6166. FtxtEmailSubjectText : string;
  6167. FUserDisplayUrl : string;
  6168. procedure SetAddToGroupModeName(AIndex: Integer; const AValue: string);
  6169. procedure SetGroupNameLines(AIndex: Integer; const AValue: TStringArray);
  6170. procedure SetGroupRoleDefinitionNamesLines(AIndex: Integer;
  6171. const AValue: TStringArray);
  6172. procedure SetIsMobileView(AIndex: Integer; const AValue: boolean);
  6173. procedure SetPanelGivePermissionsVisible(AIndex: Integer;
  6174. const AValue: boolean);
  6175. procedure SetPanelShowHideMoreOptionsVisible(AIndex: Integer;
  6176. const AValue: boolean);
  6177. procedure SetPanelSimplifiedRoleSelectorVisible(AIndex: Integer;
  6178. const AValue: boolean);
  6179. procedure SetRequiredScriptFileLinks(AIndex: Integer;
  6180. const AValue: TStringArray);
  6181. procedure SetRoleDefinitionNameLines(AIndex: Integer;
  6182. const AValue: TStringArray);
  6183. procedure SetSelectedGroup(AIndex: Integer; const AValue: string);
  6184. procedure SetSharedWithEnabled(AIndex: Integer; const AValue: boolean);
  6185. procedure SetSharingCssLink(AIndex: Integer; const AValue: string);
  6186. procedure SetTabbedDialogEnabled(AIndex: Integer; const AValue: boolean);
  6187. procedure SetTabToShow(AIndex: Integer; const AValue: TInt32);
  6188. procedure SettxtEmailSubjectText(AIndex: Integer; const AValue: string);
  6189. procedure SetUserDisplayUrl(AIndex: Integer; const AValue: string);
  6190. protected
  6191. {$IFDEF VER2_6}
  6192. procedure SetArrayLength(const AName: String; ALength: Longint)
  6193. ; Override;
  6194. {$ENDIF VER2_6}
  6195. public
  6196. class function ObjectRestKind : String; Override;
  6197. function KeyAsURLPart : String; Override;
  6198. function PickerProperties(AService: TODataService) : TSPPickerSettings;
  6199. published
  6200. Property AddToGroupModeName : string index 0 read FAddToGroupModeName write SetAddToGroupModeName;
  6201. Property GroupNameLines : TStringArray index 8 read FGroupNameLines write SetGroupNameLines;
  6202. Property GroupRoleDefinitionNamesLines : TStringArray index 16 read FGroupRoleDefinitionNamesLines write SetGroupRoleDefinitionNamesLines;
  6203. Property IsMobileView : boolean index 24 read FIsMobileView write SetIsMobileView;
  6204. Property PanelGivePermissionsVisible : boolean index 32 read FPanelGivePermissionsVisible write SetPanelGivePermissionsVisible;
  6205. Property PanelShowHideMoreOptionsVisible : boolean index 40 read FPanelShowHideMoreOptionsVisible write SetPanelShowHideMoreOptionsVisible;
  6206. Property PanelSimplifiedRoleSelectorVisible : boolean index 48 read FPanelSimplifiedRoleSelectorVisible write SetPanelSimplifiedRoleSelectorVisible;
  6207. Property RequiredScriptFileLinks : TStringArray index 56 read FRequiredScriptFileLinks write SetRequiredScriptFileLinks;
  6208. Property RoleDefinitionNameLines : TStringArray index 64 read FRoleDefinitionNameLines write SetRoleDefinitionNameLines;
  6209. Property SelectedGroup : string index 72 read FSelectedGroup write SetSelectedGroup;
  6210. Property SharedWithEnabled : boolean index 80 read FSharedWithEnabled write SetSharedWithEnabled;
  6211. Property SharingCssLink : string index 88 read FSharingCssLink write SetSharingCssLink;
  6212. Property TabbedDialogEnabled : boolean index 96 read FTabbedDialogEnabled write SetTabbedDialogEnabled;
  6213. Property TabToShow : TInt32 index 104 read FTabToShow write SetTabToShow;
  6214. Property txtEmailSubjectText : string index 112 read FtxtEmailSubjectText write SettxtEmailSubjectText;
  6215. Property UserDisplayUrl : string index 120 read FUserDisplayUrl write SetUserDisplayUrl;
  6216. end;
  6217. { --------------------------------------------------------------------
  6218. SP: PickerSettings
  6219. --------------------------------------------------------------------}
  6220. TSPPickerSettings = Class(TODataEntity)
  6221. private
  6222. FAllowEmailAddresses : boolean;
  6223. FPrincipalAccountType : string;
  6224. FPrincipalSource : TInt32;
  6225. FVisibleSuggestions : TInt32;
  6226. procedure SetAllowEmailAddresses(AIndex: Integer; const AValue: boolean);
  6227. procedure SetPrincipalAccountType(AIndex: Integer; const AValue: string);
  6228. procedure SetPrincipalSource(AIndex: Integer; const AValue: TInt32);
  6229. procedure SetVisibleSuggestions(AIndex: Integer; const AValue: TInt32);
  6230. public
  6231. class function ObjectRestKind : String; Override;
  6232. function KeyAsURLPart : String; Override;
  6233. published
  6234. Property AllowEmailAddresses : boolean index 0 read FAllowEmailAddresses write SetAllowEmailAddresses;
  6235. Property PrincipalAccountType : string index 8 read FPrincipalAccountType write SetPrincipalAccountType;
  6236. Property PrincipalSource : TInt32 index 16 read FPrincipalSource write SetPrincipalSource;
  6237. Property VisibleSuggestions : TInt32 index 24 read FVisibleSuggestions write SetVisibleSuggestions;
  6238. end;
  6239. { --------------------------------------------------------------------
  6240. SP: RelatedItemManager
  6241. --------------------------------------------------------------------}
  6242. TSPRelatedItemManager = Class(TODataEntity)
  6243. private
  6244. FId4a81de82eeb94d6080ea5bf63e27023a : string;
  6245. procedure SetId4a81de82eeb94d6080ea5bf63e27023a(AIndex: Integer;
  6246. const AValue: string);
  6247. public
  6248. class function ObjectRestKind : String; Override;
  6249. function KeyAsURLPart : String; Override;
  6250. published
  6251. Property Id4a81de82eeb94d6080ea5bf63e27023a : string index 0 read FId4a81de82eeb94d6080ea5bf63e27023a write SetId4a81de82eeb94d6080ea5bf63e27023a;
  6252. end;
  6253. { --------------------------------------------------------------------
  6254. SP: ServerSettings
  6255. --------------------------------------------------------------------}
  6256. TSPServerSettings = Class(TODataEntity)
  6257. private
  6258. FId4a81de82eeb94d6080ea5bf63e27023a : string;
  6259. procedure SetId4a81de82eeb94d6080ea5bf63e27023a(AIndex: Integer;
  6260. const AValue: string);
  6261. public
  6262. class function ObjectRestKind : String; Override;
  6263. function KeyAsURLPart : String; Override;
  6264. published
  6265. Property Id4a81de82eeb94d6080ea5bf63e27023a : string index 0 read FId4a81de82eeb94d6080ea5bf63e27023a write SetId4a81de82eeb94d6080ea5bf63e27023a;
  6266. end;
  6267. { --------------------------------------------------------------------
  6268. SP: SharingResult
  6269. --------------------------------------------------------------------}
  6270. TSPSharingResult = Class(TODataEntity)
  6271. private
  6272. FErrorMessage : string;
  6273. FIconUrl : string;
  6274. FInvitedUsers : TSPSPInvitationCreationResultArray;
  6275. FName : string;
  6276. FPermissionsPageRelativeUrl : string;
  6277. FStatusCode : TInt32;
  6278. FUniquelyPermissionedUsers : TSP_SharingUserSharingResultArray;
  6279. FUrl : string;
  6280. FUsersAddedToGroup : TSP_SharingUserSharingResultArray;
  6281. procedure SetErrorMessage(AIndex: Integer; const AValue: string);
  6282. procedure SetIconUrl(AIndex: Integer; const AValue: string);
  6283. procedure SetInvitedUsers(AIndex: Integer;
  6284. const AValue: TSPSPInvitationCreationResultArray);
  6285. procedure SetName(AIndex: Integer; const AValue: string);
  6286. procedure SetPermissionsPageRelativeUrl(AIndex: Integer;
  6287. const AValue: string);
  6288. procedure SetStatusCode(AIndex: Integer; const AValue: TInt32);
  6289. procedure SetUniquelyPermissionedUsers(AIndex: Integer;
  6290. const AValue: TSP_SharingUserSharingResultArray);
  6291. procedure SetUrl(AIndex: Integer; const AValue: string);
  6292. procedure SetUsersAddedToGroup(AIndex: Integer;
  6293. const AValue: TSP_SharingUserSharingResultArray);
  6294. protected
  6295. {$IFDEF VER2_6}
  6296. procedure SetArrayLength(const AName: String; ALength: Longint)
  6297. ; Override;
  6298. {$ENDIF VER2_6}
  6299. public
  6300. class function ObjectRestKind : String; Override;
  6301. function KeyAsURLPart : String; Override;
  6302. function GroupsSharedWith(AService: TODataService) : TSPGroup;
  6303. function GroupUsersAddedTo(AService: TODataService) : TSPGroup;
  6304. function UsersWithAccessRequests(AService: TODataService) : TSPUser;
  6305. published
  6306. Property ErrorMessage : string index 0 read FErrorMessage write SetErrorMessage;
  6307. Property IconUrl : string index 8 read FIconUrl write SetIconUrl;
  6308. Property InvitedUsers : TSPSPInvitationCreationResultArray index 16 read FInvitedUsers write SetInvitedUsers;
  6309. Property Name : string index 24 read FName write SetName;
  6310. Property PermissionsPageRelativeUrl : string index 32 read FPermissionsPageRelativeUrl write SetPermissionsPageRelativeUrl;
  6311. Property StatusCode : TInt32 index 40 read FStatusCode write SetStatusCode;
  6312. Property UniquelyPermissionedUsers : TSP_SharingUserSharingResultArray index 48 read FUniquelyPermissionedUsers write SetUniquelyPermissionedUsers;
  6313. Property Url : string index 56 read FUrl write SetUrl;
  6314. Property UsersAddedToGroup : TSP_SharingUserSharingResultArray index 64 read FUsersAddedToGroup write SetUsersAddedToGroup;
  6315. end;
  6316. { --------------------------------------------------------------------
  6317. SP: AccessRequests
  6318. --------------------------------------------------------------------}
  6319. TSPAccessRequests = Class(TODataEntity)
  6320. private
  6321. FId4a81de82eeb94d6080ea5bf63e27023a : string;
  6322. procedure SetId4a81de82eeb94d6080ea5bf63e27023a(AIndex: Integer;
  6323. const AValue: string);
  6324. public
  6325. class function ObjectRestKind : String; Override;
  6326. function KeyAsURLPart : String; Override;
  6327. published
  6328. Property Id4a81de82eeb94d6080ea5bf63e27023a : string index 0 read FId4a81de82eeb94d6080ea5bf63e27023a write SetId4a81de82eeb94d6080ea5bf63e27023a;
  6329. end;
  6330. { --------------------------------------------------------------------
  6331. SP: AppContextSite
  6332. --------------------------------------------------------------------}
  6333. TSPAppContextSite = Class(TODataEntity)
  6334. private
  6335. FId4a81de82eeb94d6080ea5bf63e27023a : string;
  6336. procedure SetId4a81de82eeb94d6080ea5bf63e27023a(AIndex: Integer;
  6337. const AValue: string);
  6338. public
  6339. class function ObjectRestKind : String; Override;
  6340. function KeyAsURLPart : String; Override;
  6341. function Site(AService: TODataService) : TSPSite;
  6342. function Web(AService: TODataService) : TSPWeb;
  6343. published
  6344. Property Id4a81de82eeb94d6080ea5bf63e27023a : string index 0 read FId4a81de82eeb94d6080ea5bf63e27023a write SetId4a81de82eeb94d6080ea5bf63e27023a;
  6345. end;
  6346. { --------------------------------------------------------------------
  6347. SP: Change
  6348. --------------------------------------------------------------------}
  6349. TSPChange = Class(TODataEntity)
  6350. private
  6351. FChangeToken : TSPChangeToken;
  6352. FChangeType : TInt32;
  6353. FSiteId : TGUIDString;
  6354. FTime : TDateTime;
  6355. procedure SetChangeToken(AIndex: Integer; const AValue: TSPChangeToken);
  6356. procedure SetChangeType(AIndex: Integer; const AValue: TInt32);
  6357. procedure SetSiteId(AIndex: Integer; const AValue: TGUIDString);
  6358. procedure SetTime(AIndex: Integer; const AValue: TDateTime);
  6359. public
  6360. class function ObjectRestKind : String; Override;
  6361. function KeyAsURLPart : String; Override;
  6362. published
  6363. Property ChangeToken : TSPChangeToken index 0 read FChangeToken write SetChangeToken;
  6364. Property ChangeType : TInt32 index 8 read FChangeType write SetChangeType;
  6365. Property SiteId : TGUIDString index 16 read FSiteId write SetSiteId;
  6366. Property Time : TDateTime index 24 read FTime write SetTime;
  6367. end;
  6368. { --------------------------------------------------------------------
  6369. SP: ChangeAlert
  6370. --------------------------------------------------------------------}
  6371. TSPChangeAlert = Class(TSPChange)
  6372. private
  6373. FAlertId : TGUIDString;
  6374. FWebId : TGUIDString;
  6375. procedure SetAlertId(AIndex: Integer; const AValue: TGUIDString);
  6376. procedure SetWebId(AIndex: Integer; const AValue: TGUIDString);
  6377. public
  6378. class function ObjectRestKind : String; Override;
  6379. published
  6380. Property AlertId : TGUIDString index 32 read FAlertId write SetAlertId;
  6381. Property WebId : TGUIDString index 40 read FWebId write SetWebId;
  6382. end;
  6383. { --------------------------------------------------------------------
  6384. SP: ChangeContentType
  6385. --------------------------------------------------------------------}
  6386. TSPChangeContentType = Class(TSPChange)
  6387. private
  6388. FContentTypeId : TSPContentTypeId;
  6389. FWebId : TGUIDString;
  6390. procedure SetContentTypeId(AIndex: Integer;
  6391. const AValue: TSPContentTypeId);
  6392. procedure SetWebId(AIndex: Integer; const AValue: TGUIDString);
  6393. public
  6394. class function ObjectRestKind : String; Override;
  6395. published
  6396. Property ContentTypeId : TSPContentTypeId index 32 read FContentTypeId write SetContentTypeId;
  6397. Property WebId : TGUIDString index 40 read FWebId write SetWebId;
  6398. end;
  6399. { --------------------------------------------------------------------
  6400. SP: ChangeField
  6401. --------------------------------------------------------------------}
  6402. TSPChangeField = Class(TSPChange)
  6403. private
  6404. FFieldId : TGUIDString;
  6405. FWebId : TGUIDString;
  6406. procedure SetFieldId(AIndex: Integer; const AValue: TGUIDString);
  6407. procedure SetWebId(AIndex: Integer; const AValue: TGUIDString);
  6408. public
  6409. class function ObjectRestKind : String; Override;
  6410. published
  6411. Property FieldId : TGUIDString index 32 read FFieldId write SetFieldId;
  6412. Property WebId : TGUIDString index 40 read FWebId write SetWebId;
  6413. end;
  6414. { --------------------------------------------------------------------
  6415. SP: ChangeFile
  6416. --------------------------------------------------------------------}
  6417. TSPChangeFile = Class(TSPChange)
  6418. private
  6419. FUniqueId : TGUIDString;
  6420. FWebId : TGUIDString;
  6421. procedure SetUniqueId(AIndex: Integer; const AValue: TGUIDString);
  6422. procedure SetWebId(AIndex: Integer; const AValue: TGUIDString);
  6423. public
  6424. class function ObjectRestKind : String; Override;
  6425. published
  6426. Property UniqueId : TGUIDString index 32 read FUniqueId write SetUniqueId;
  6427. Property WebId : TGUIDString index 40 read FWebId write SetWebId;
  6428. end;
  6429. { --------------------------------------------------------------------
  6430. SP: ChangeFolder
  6431. --------------------------------------------------------------------}
  6432. TSPChangeFolder = Class(TSPChange)
  6433. private
  6434. FUniqueId : TGUIDString;
  6435. FWebId : TGUIDString;
  6436. procedure SetUniqueId(AIndex: Integer; const AValue: TGUIDString);
  6437. procedure SetWebId(AIndex: Integer; const AValue: TGUIDString);
  6438. public
  6439. class function ObjectRestKind : String; Override;
  6440. published
  6441. Property UniqueId : TGUIDString index 32 read FUniqueId write SetUniqueId;
  6442. Property WebId : TGUIDString index 40 read FWebId write SetWebId;
  6443. end;
  6444. { --------------------------------------------------------------------
  6445. SP: ChangeGroup
  6446. --------------------------------------------------------------------}
  6447. TSPChangeGroup = Class(TSPChange)
  6448. private
  6449. FGroupId : TInt32;
  6450. procedure SetGroupId(AIndex: Integer; const AValue: TInt32);
  6451. public
  6452. class function ObjectRestKind : String; Override;
  6453. published
  6454. Property GroupId : TInt32 index 32 read FGroupId write SetGroupId;
  6455. end;
  6456. { --------------------------------------------------------------------
  6457. SP: ChangeItem
  6458. --------------------------------------------------------------------}
  6459. TSPChangeItem = Class(TSPChange)
  6460. private
  6461. FItemId : TInt32;
  6462. FListId : TGUIDString;
  6463. FWebId : TGUIDString;
  6464. procedure SetItemId(AIndex: Integer; const AValue: TInt32);
  6465. procedure SetListId(AIndex: Integer; const AValue: TGUIDString);
  6466. procedure SetWebId(AIndex: Integer; const AValue: TGUIDString);
  6467. public
  6468. class function ObjectRestKind : String; Override;
  6469. published
  6470. Property ItemId : TInt32 index 32 read FItemId write SetItemId;
  6471. Property ListId : TGUIDString index 40 read FListId write SetListId;
  6472. Property WebId : TGUIDString index 48 read FWebId write SetWebId;
  6473. end;
  6474. { --------------------------------------------------------------------
  6475. SP: ChangeList
  6476. --------------------------------------------------------------------}
  6477. TSPChangeList = Class(TSPChange)
  6478. private
  6479. FListId : TGUIDString;
  6480. FWebId : TGUIDString;
  6481. procedure SetListId(AIndex: Integer; const AValue: TGUIDString);
  6482. procedure SetWebId(AIndex: Integer; const AValue: TGUIDString);
  6483. public
  6484. class function ObjectRestKind : String; Override;
  6485. published
  6486. Property ListId : TGUIDString index 32 read FListId write SetListId;
  6487. Property WebId : TGUIDString index 40 read FWebId write SetWebId;
  6488. end;
  6489. { --------------------------------------------------------------------
  6490. SP: ChangeSite
  6491. --------------------------------------------------------------------}
  6492. TSPChangeSite = Class(TSPChange)
  6493. public
  6494. class function ObjectRestKind : String; Override;
  6495. end;
  6496. { --------------------------------------------------------------------
  6497. SP: ChangeUser
  6498. --------------------------------------------------------------------}
  6499. TSPChangeUser = Class(TSPChange)
  6500. private
  6501. FActivate : boolean;
  6502. FUserId : TInt32;
  6503. procedure SetActivate(AIndex: Integer; const AValue: boolean);
  6504. procedure SetUserId(AIndex: Integer; const AValue: TInt32);
  6505. public
  6506. class function ObjectRestKind : String; Override;
  6507. published
  6508. Property Activate : boolean index 32 read FActivate write SetActivate;
  6509. Property UserId : TInt32 index 40 read FUserId write SetUserId;
  6510. end;
  6511. { --------------------------------------------------------------------
  6512. SP: ChangeView
  6513. --------------------------------------------------------------------}
  6514. TSPChangeView = Class(TSPChange)
  6515. private
  6516. FViewId : TGUIDString;
  6517. FListId : TGUIDString;
  6518. FWebId : TGUIDString;
  6519. procedure SetViewId(AIndex: Integer; const AValue: TGUIDString);
  6520. procedure SetListId(AIndex: Integer; const AValue: TGUIDString);
  6521. procedure SetWebId(AIndex: Integer; const AValue: TGUIDString);
  6522. public
  6523. class function ObjectRestKind : String; Override;
  6524. published
  6525. Property ViewId : TGUIDString index 32 read FViewId write SetViewId;
  6526. Property ListId : TGUIDString index 40 read FListId write SetListId;
  6527. Property WebId : TGUIDString index 48 read FWebId write SetWebId;
  6528. end;
  6529. { --------------------------------------------------------------------
  6530. SP: ChangeWeb
  6531. --------------------------------------------------------------------}
  6532. TSPChangeWeb = Class(TSPChange)
  6533. private
  6534. FWebId : TGUIDString;
  6535. procedure SetWebId(AIndex: Integer; const AValue: TGUIDString);
  6536. public
  6537. class function ObjectRestKind : String; Override;
  6538. published
  6539. Property WebId : TGUIDString index 32 read FWebId write SetWebId;
  6540. end;
  6541. { --------------------------------------------------------------------
  6542. SP: CompatibilityRange
  6543. --------------------------------------------------------------------}
  6544. TSPCompatibilityRange = Class(TODataEntity)
  6545. private
  6546. FId4a81de82eeb94d6080ea5bf63e27023a : string;
  6547. procedure SetId4a81de82eeb94d6080ea5bf63e27023a(AIndex: Integer;
  6548. const AValue: string);
  6549. public
  6550. class function ObjectRestKind : String; Override;
  6551. function KeyAsURLPart : String; Override;
  6552. published
  6553. Property Id4a81de82eeb94d6080ea5bf63e27023a : string index 0 read FId4a81de82eeb94d6080ea5bf63e27023a write SetId4a81de82eeb94d6080ea5bf63e27023a;
  6554. end;
  6555. { --------------------------------------------------------------------
  6556. SP: RequestContext
  6557. --------------------------------------------------------------------}
  6558. TSPRequestContext = Class(TODataEntity)
  6559. private
  6560. FId4a81de82eeb94d6080ea5bf63e27023a : string;
  6561. procedure SetId4a81de82eeb94d6080ea5bf63e27023a(AIndex: Integer;
  6562. const AValue: string);
  6563. public
  6564. class function ObjectRestKind : String; Override;
  6565. function KeyAsURLPart : String; Override;
  6566. function Current(AService: TODataService) : TSPRequestContext;
  6567. function List(AService: TODataService) : TSPList;
  6568. function Site(AService: TODataService) : TSPSite;
  6569. function Web(AService: TODataService) : TSPWeb;
  6570. published
  6571. Property Id4a81de82eeb94d6080ea5bf63e27023a : string index 0 read FId4a81de82eeb94d6080ea5bf63e27023a write SetId4a81de82eeb94d6080ea5bf63e27023a;
  6572. end;
  6573. { --------------------------------------------------------------------
  6574. SP: FieldCalculated
  6575. --------------------------------------------------------------------}
  6576. TSPFieldCalculated = Class(TSPField)
  6577. private
  6578. FDateFormat : TInt32;
  6579. FFormula : string;
  6580. FOutputType : TInt32;
  6581. procedure SetDateFormat(AIndex: Integer; const AValue: TInt32);
  6582. procedure SetFormula(AIndex: Integer; const AValue: string);
  6583. procedure SetOutputType(AIndex: Integer; const AValue: TInt32);
  6584. public
  6585. class function ObjectRestKind : String; Override;
  6586. published
  6587. Property DateFormat : TInt32 index 240 read FDateFormat write SetDateFormat;
  6588. Property Formula : string index 248 read FFormula write SetFormula;
  6589. Property OutputType : TInt32 index 256 read FOutputType write SetOutputType;
  6590. end;
  6591. { --------------------------------------------------------------------
  6592. SP: FieldMultiChoice
  6593. --------------------------------------------------------------------}
  6594. TSPFieldMultiChoice = Class(TSPField)
  6595. private
  6596. FFillInChoice : boolean;
  6597. FMappings : string;
  6598. FChoices : TStringArray;
  6599. procedure SetFillInChoice(AIndex: Integer; const AValue: boolean);
  6600. procedure SetMappings(AIndex: Integer; const AValue: string);
  6601. procedure SetChoices(AIndex: Integer; const AValue: TStringArray);
  6602. protected
  6603. {$IFDEF VER2_6}
  6604. procedure SetArrayLength(const AName: String; ALength: Longint)
  6605. ; Override;
  6606. {$ENDIF VER2_6}
  6607. public
  6608. class function ObjectRestKind : String; Override;
  6609. published
  6610. Property FillInChoice : boolean index 240 read FFillInChoice write SetFillInChoice;
  6611. Property Mappings : string index 248 read FMappings write SetMappings;
  6612. Property Choices : TStringArray index 256 read FChoices write SetChoices;
  6613. end;
  6614. { --------------------------------------------------------------------
  6615. SP: FieldChoice
  6616. --------------------------------------------------------------------}
  6617. TSPFieldChoice = Class(TSPFieldMultiChoice)
  6618. private
  6619. FEditFormat : TInt32;
  6620. procedure SetEditFormat(AIndex: Integer; const AValue: TInt32);
  6621. public
  6622. class function ObjectRestKind : String; Override;
  6623. published
  6624. Property EditFormat : TInt32 index 264 read FEditFormat write SetEditFormat;
  6625. end;
  6626. { --------------------------------------------------------------------
  6627. SP: FieldComputed
  6628. --------------------------------------------------------------------}
  6629. TSPFieldComputed = Class(TSPField)
  6630. private
  6631. FEnableLookup : boolean;
  6632. procedure SetEnableLookup(AIndex: Integer; const AValue: boolean);
  6633. public
  6634. class function ObjectRestKind : String; Override;
  6635. published
  6636. Property EnableLookup : boolean index 240 read FEnableLookup write SetEnableLookup;
  6637. end;
  6638. { --------------------------------------------------------------------
  6639. SP: FieldNumber
  6640. --------------------------------------------------------------------}
  6641. TSPFieldNumber = Class(TSPField)
  6642. private
  6643. FMaximumValue : Double;
  6644. FMinimumValue : Double;
  6645. procedure SetMaximumValue(AIndex: Integer; const AValue: Double);
  6646. procedure SetMinimumValue(AIndex: Integer; const AValue: Double);
  6647. public
  6648. class function ObjectRestKind : String; Override;
  6649. published
  6650. Property MaximumValue : Double index 240 read FMaximumValue write SetMaximumValue;
  6651. Property MinimumValue : Double index 248 read FMinimumValue write SetMinimumValue;
  6652. end;
  6653. { --------------------------------------------------------------------
  6654. SP: FieldCurrency
  6655. --------------------------------------------------------------------}
  6656. TSPFieldCurrency = Class(TSPFieldNumber)
  6657. private
  6658. FCurrencyLocaleId : TInt32;
  6659. procedure SetCurrencyLocaleId(AIndex: Integer; const AValue: TInt32);
  6660. public
  6661. class function ObjectRestKind : String; Override;
  6662. published
  6663. Property CurrencyLocaleId : TInt32 index 256 read FCurrencyLocaleId write SetCurrencyLocaleId;
  6664. end;
  6665. { --------------------------------------------------------------------
  6666. SP: FieldDateTime
  6667. --------------------------------------------------------------------}
  6668. TSPFieldDateTime = Class(TSPField)
  6669. private
  6670. FDateTimeCalendarType : TInt32;
  6671. FDisplayFormat : TInt32;
  6672. FFriendlyDisplayFormat : TInt32;
  6673. procedure SetDateTimeCalendarType(AIndex: Integer; const AValue: TInt32);
  6674. procedure SetDisplayFormat(AIndex: Integer; const AValue: TInt32);
  6675. procedure SetFriendlyDisplayFormat(AIndex: Integer;
  6676. const AValue: TInt32);
  6677. public
  6678. class function ObjectRestKind : String; Override;
  6679. published
  6680. Property DateTimeCalendarType : TInt32 index 240 read FDateTimeCalendarType write SetDateTimeCalendarType;
  6681. Property DisplayFormat : TInt32 index 248 read FDisplayFormat write SetDisplayFormat;
  6682. Property FriendlyDisplayFormat : TInt32 index 256 read FFriendlyDisplayFormat write SetFriendlyDisplayFormat;
  6683. end;
  6684. { --------------------------------------------------------------------
  6685. SP: FieldGeolocation
  6686. --------------------------------------------------------------------}
  6687. TSPFieldGeolocation = Class(TSPField)
  6688. public
  6689. class function ObjectRestKind : String; Override;
  6690. end;
  6691. { --------------------------------------------------------------------
  6692. SP: FieldGuid
  6693. --------------------------------------------------------------------}
  6694. TSPFieldGuid = Class(TSPField)
  6695. public
  6696. class function ObjectRestKind : String; Override;
  6697. end;
  6698. { --------------------------------------------------------------------
  6699. SP: FieldLookup
  6700. --------------------------------------------------------------------}
  6701. TSPFieldLookup = Class(TSPField)
  6702. private
  6703. FAllowMultipleValues : boolean;
  6704. FIsRelationship : boolean;
  6705. FLookupField : string;
  6706. FLookupList : string;
  6707. FLookupWebId : TGUIDString;
  6708. FPrimaryFieldId : string;
  6709. FRelationshipDeleteBehavior : TInt32;
  6710. procedure SetAllowMultipleValues(AIndex: Integer; const AValue: boolean);
  6711. procedure SetIsRelationship(AIndex: Integer; const AValue: boolean);
  6712. procedure SetLookupField(AIndex: Integer; const AValue: string);
  6713. procedure SetLookupList(AIndex: Integer; const AValue: string);
  6714. procedure SetLookupWebId(AIndex: Integer; const AValue: TGUIDString);
  6715. procedure SetPrimaryFieldId(AIndex: Integer; const AValue: string);
  6716. procedure SetRelationshipDeleteBehavior(AIndex: Integer;
  6717. const AValue: TInt32);
  6718. public
  6719. class function ObjectRestKind : String; Override;
  6720. published
  6721. Property AllowMultipleValues : boolean index 240 read FAllowMultipleValues write SetAllowMultipleValues;
  6722. Property IsRelationship : boolean index 248 read FIsRelationship write SetIsRelationship;
  6723. Property LookupField : string index 256 read FLookupField write SetLookupField;
  6724. Property LookupList : string index 264 read FLookupList write SetLookupList;
  6725. Property LookupWebId : TGUIDString index 272 read FLookupWebId write SetLookupWebId;
  6726. Property PrimaryFieldId : string index 280 read FPrimaryFieldId write SetPrimaryFieldId;
  6727. Property RelationshipDeleteBehavior : TInt32 index 288 read FRelationshipDeleteBehavior write SetRelationshipDeleteBehavior;
  6728. end;
  6729. { --------------------------------------------------------------------
  6730. SP: FieldMultiLineText
  6731. --------------------------------------------------------------------}
  6732. TSPFieldMultiLineText = Class(TSPField)
  6733. private
  6734. FAllowHyperlink : boolean;
  6735. FAppendOnly : boolean;
  6736. FNumberOfLines : TInt32;
  6737. FRestrictedMode : boolean;
  6738. FRichText : boolean;
  6739. FWikiLinking : boolean;
  6740. procedure SetAllowHyperlink(AIndex: Integer; const AValue: boolean);
  6741. procedure SetAppendOnly(AIndex: Integer; const AValue: boolean);
  6742. procedure SetNumberOfLines(AIndex: Integer; const AValue: TInt32);
  6743. procedure SetRestrictedMode(AIndex: Integer; const AValue: boolean);
  6744. procedure SetRichText(AIndex: Integer; const AValue: boolean);
  6745. procedure SetWikiLinking(AIndex: Integer; const AValue: boolean);
  6746. public
  6747. class function ObjectRestKind : String; Override;
  6748. published
  6749. Property AllowHyperlink : boolean index 240 read FAllowHyperlink write SetAllowHyperlink;
  6750. Property AppendOnly : boolean index 248 read FAppendOnly write SetAppendOnly;
  6751. Property NumberOfLines : TInt32 index 256 read FNumberOfLines write SetNumberOfLines;
  6752. Property RestrictedMode : boolean index 264 read FRestrictedMode write SetRestrictedMode;
  6753. Property RichText : boolean index 272 read FRichText write SetRichText;
  6754. Property WikiLinking : boolean index 280 read FWikiLinking write SetWikiLinking;
  6755. end;
  6756. { --------------------------------------------------------------------
  6757. SP: FieldRatingScale
  6758. --------------------------------------------------------------------}
  6759. TSPFieldRatingScale = Class(TSPFieldMultiChoice)
  6760. private
  6761. FGridEndNumber : TInt32;
  6762. FGridNAOptionText : string;
  6763. FGridStartNumber : TInt32;
  6764. FGridTextRangeAverage : string;
  6765. FGridTextRangeHigh : string;
  6766. FGridTextRangeLow : string;
  6767. FRangeCount : TInt32;
  6768. procedure SetGridEndNumber(AIndex: Integer; const AValue: TInt32);
  6769. procedure SetGridNAOptionText(AIndex: Integer; const AValue: string);
  6770. procedure SetGridStartNumber(AIndex: Integer; const AValue: TInt32);
  6771. procedure SetGridTextRangeAverage(AIndex: Integer; const AValue: string);
  6772. procedure SetGridTextRangeHigh(AIndex: Integer; const AValue: string);
  6773. procedure SetGridTextRangeLow(AIndex: Integer; const AValue: string);
  6774. procedure SetRangeCount(AIndex: Integer; const AValue: TInt32);
  6775. public
  6776. class function ObjectRestKind : String; Override;
  6777. published
  6778. Property GridEndNumber : TInt32 index 264 read FGridEndNumber write SetGridEndNumber;
  6779. Property GridNAOptionText : string index 272 read FGridNAOptionText write SetGridNAOptionText;
  6780. Property GridStartNumber : TInt32 index 280 read FGridStartNumber write SetGridStartNumber;
  6781. Property GridTextRangeAverage : string index 288 read FGridTextRangeAverage write SetGridTextRangeAverage;
  6782. Property GridTextRangeHigh : string index 296 read FGridTextRangeHigh write SetGridTextRangeHigh;
  6783. Property GridTextRangeLow : string index 304 read FGridTextRangeLow write SetGridTextRangeLow;
  6784. Property RangeCount : TInt32 index 312 read FRangeCount write SetRangeCount;
  6785. end;
  6786. { --------------------------------------------------------------------
  6787. SP: FieldText
  6788. --------------------------------------------------------------------}
  6789. TSPFieldText = Class(TSPField)
  6790. private
  6791. FMaxLength : TInt32;
  6792. procedure SetMaxLength(AIndex: Integer; const AValue: TInt32);
  6793. public
  6794. class function ObjectRestKind : String; Override;
  6795. published
  6796. Property MaxLength : TInt32 index 240 read FMaxLength write SetMaxLength;
  6797. end;
  6798. { --------------------------------------------------------------------
  6799. SP: FieldUrl
  6800. --------------------------------------------------------------------}
  6801. TSPFieldUrl = Class(TSPField)
  6802. private
  6803. FDisplayFormat : TInt32;
  6804. procedure SetDisplayFormat(AIndex: Integer; const AValue: TInt32);
  6805. public
  6806. class function ObjectRestKind : String; Override;
  6807. published
  6808. Property DisplayFormat : TInt32 index 240 read FDisplayFormat write SetDisplayFormat;
  6809. end;
  6810. { --------------------------------------------------------------------
  6811. SP: FieldUser
  6812. --------------------------------------------------------------------}
  6813. TSPFieldUser = Class(TSPFieldLookup)
  6814. private
  6815. FAllowDisplay : boolean;
  6816. FPresence : boolean;
  6817. FSelectionGroup : TInt32;
  6818. FSelectionMode : TInt32;
  6819. procedure SetAllowDisplay(AIndex: Integer; const AValue: boolean);
  6820. procedure SetPresence(AIndex: Integer; const AValue: boolean);
  6821. procedure SetSelectionGroup(AIndex: Integer; const AValue: TInt32);
  6822. procedure SetSelectionMode(AIndex: Integer; const AValue: TInt32);
  6823. public
  6824. class function ObjectRestKind : String; Override;
  6825. published
  6826. Property AllowDisplay : boolean index 296 read FAllowDisplay write SetAllowDisplay;
  6827. Property Presence : boolean index 304 read FPresence write SetPresence;
  6828. Property SelectionGroup : TInt32 index 312 read FSelectionGroup write SetSelectionGroup;
  6829. Property SelectionMode : TInt32 index 320 read FSelectionMode write SetSelectionMode;
  6830. end;
  6831. { --------------------------------------------------------------------
  6832. SP: MountedFolderInfo
  6833. --------------------------------------------------------------------}
  6834. TSPMountedFolderInfo = Class(TODataEntity)
  6835. private
  6836. FFolderUrl : string;
  6837. FHasEditPermission : boolean;
  6838. FItemId : TInt32;
  6839. FListTemplateType : TInt32;
  6840. FListViewUrl : string;
  6841. FWebUrl : string;
  6842. procedure SetFolderUrl(AIndex: Integer; const AValue: string);
  6843. procedure SetHasEditPermission(AIndex: Integer; const AValue: boolean);
  6844. procedure SetItemId(AIndex: Integer; const AValue: TInt32);
  6845. procedure SetListTemplateType(AIndex: Integer; const AValue: TInt32);
  6846. procedure SetListViewUrl(AIndex: Integer; const AValue: string);
  6847. procedure SetWebUrl(AIndex: Integer; const AValue: string);
  6848. public
  6849. class function ObjectRestKind : String; Override;
  6850. function KeyAsURLPart : String; Override;
  6851. published
  6852. Property FolderUrl : string index 0 read FFolderUrl write SetFolderUrl;
  6853. Property HasEditPermission : boolean index 8 read FHasEditPermission write SetHasEditPermission;
  6854. Property ItemId : TInt32 index 16 read FItemId write SetItemId;
  6855. Property ListTemplateType : TInt32 index 24 read FListTemplateType write SetListTemplateType;
  6856. Property ListViewUrl : string index 32 read FListViewUrl write SetListViewUrl;
  6857. Property WebUrl : string index 40 read FWebUrl write SetWebUrl;
  6858. end;
  6859. { --------------------------------------------------------------------
  6860. SP: MountPoint
  6861. --------------------------------------------------------------------}
  6862. TSPMountPoint = Class(TODataEntity)
  6863. private
  6864. FId4a81de82eeb94d6080ea5bf63e27023a : string;
  6865. procedure SetId4a81de82eeb94d6080ea5bf63e27023a(AIndex: Integer;
  6866. const AValue: string);
  6867. public
  6868. class function ObjectRestKind : String; Override;
  6869. function KeyAsURLPart : String; Override;
  6870. published
  6871. Property Id4a81de82eeb94d6080ea5bf63e27023a : string index 0 read FId4a81de82eeb94d6080ea5bf63e27023a write SetId4a81de82eeb94d6080ea5bf63e27023a;
  6872. end;
  6873. { --------------------------------------------------------------------
  6874. SP: MountPointInfo
  6875. --------------------------------------------------------------------}
  6876. TSPMountPointInfo = Class(TODataEntity)
  6877. private
  6878. FName : string;
  6879. FRedirectUrl : string;
  6880. procedure SetName(AIndex: Integer; const AValue: string);
  6881. procedure SetRedirectUrl(AIndex: Integer; const AValue: string);
  6882. public
  6883. class function ObjectRestKind : String; Override;
  6884. function KeyAsURLPart : String; Override;
  6885. published
  6886. Property Name : string index 0 read FName write SetName;
  6887. Property RedirectUrl : string index 8 read FRedirectUrl write SetRedirectUrl;
  6888. end;
  6889. { --------------------------------------------------------------------
  6890. SP: MoveCopyUtil
  6891. --------------------------------------------------------------------}
  6892. TSPMoveCopyUtil = Class(TODataEntity)
  6893. private
  6894. FId4a81de82eeb94d6080ea5bf63e27023a : string;
  6895. procedure SetId4a81de82eeb94d6080ea5bf63e27023a(AIndex: Integer;
  6896. const AValue: string);
  6897. public
  6898. class function ObjectRestKind : String; Override;
  6899. function KeyAsURLPart : String; Override;
  6900. published
  6901. Property Id4a81de82eeb94d6080ea5bf63e27023a : string index 0 read FId4a81de82eeb94d6080ea5bf63e27023a write SetId4a81de82eeb94d6080ea5bf63e27023a;
  6902. end;
  6903. { --------------------------------------------------------------------
  6904. SP: RelatedField
  6905. --------------------------------------------------------------------}
  6906. TSPRelatedField = Class(TODataEntity)
  6907. private
  6908. FFieldId : TGUIDString;
  6909. FListId : TGUIDString;
  6910. FRelationshipDeleteBehavior : TInt32;
  6911. FWebId : TGUIDString;
  6912. procedure SetFieldId(AIndex: Integer; const AValue: TGUIDString);
  6913. procedure SetListId(AIndex: Integer; const AValue: TGUIDString);
  6914. procedure SetRelationshipDeleteBehavior(AIndex: Integer;
  6915. const AValue: TInt32);
  6916. procedure SetWebId(AIndex: Integer; const AValue: TGUIDString);
  6917. public
  6918. class function ObjectRestKind : String; Override;
  6919. function KeyAsURLPart : String; Override;
  6920. function LookupList(AService: TODataService) : TSPList;
  6921. published
  6922. Property FieldId : TGUIDString index 0 read FFieldId write SetFieldId;
  6923. Property ListId : TGUIDString index 8 read FListId write SetListId;
  6924. Property RelationshipDeleteBehavior : TInt32 index 16 read FRelationshipDeleteBehavior write SetRelationshipDeleteBehavior;
  6925. Property WebId : TGUIDString index 24 read FWebId write SetWebId;
  6926. end;
  6927. { --------------------------------------------------------------------
  6928. SP: RemoteWeb
  6929. --------------------------------------------------------------------}
  6930. TSPRemoteWeb = Class(TODataEntity)
  6931. private
  6932. FCanSendEmail : boolean;
  6933. FShareByEmailEnabled : boolean;
  6934. FShareByLinkEnabled : boolean;
  6935. procedure SetCanSendEmail(AIndex: Integer; const AValue: boolean);
  6936. procedure SetShareByEmailEnabled(AIndex: Integer; const AValue: boolean);
  6937. procedure SetShareByLinkEnabled(AIndex: Integer; const AValue: boolean);
  6938. public
  6939. class function ObjectRestKind : String; Override;
  6940. function KeyAsURLPart : String; Override;
  6941. published
  6942. Property CanSendEmail : boolean index 0 read FCanSendEmail write SetCanSendEmail;
  6943. Property ShareByEmailEnabled : boolean index 8 read FShareByEmailEnabled write SetShareByEmailEnabled;
  6944. Property ShareByLinkEnabled : boolean index 16 read FShareByLinkEnabled write SetShareByLinkEnabled;
  6945. end;
  6946. { --------------------------------------------------------------------
  6947. SP: RequestUserContext
  6948. --------------------------------------------------------------------}
  6949. TSPRequestUserContext = Class(TODataEntity)
  6950. private
  6951. FId4a81de82eeb94d6080ea5bf63e27023a : string;
  6952. procedure SetId4a81de82eeb94d6080ea5bf63e27023a(AIndex: Integer;
  6953. const AValue: string);
  6954. public
  6955. class function ObjectRestKind : String; Override;
  6956. function KeyAsURLPart : String; Override;
  6957. function Current(AService: TODataService) : TSPRequestUserContext;
  6958. function User(AService: TODataService) : TSPUser;
  6959. published
  6960. Property Id4a81de82eeb94d6080ea5bf63e27023a : string index 0 read FId4a81de82eeb94d6080ea5bf63e27023a write SetId4a81de82eeb94d6080ea5bf63e27023a;
  6961. end;
  6962. { --------------------------------------------------------------------
  6963. SP: SiteUrl
  6964. --------------------------------------------------------------------}
  6965. TSPSiteUrl = Class(TODataEntity)
  6966. private
  6967. FId4a81de82eeb94d6080ea5bf63e27023a : string;
  6968. procedure SetId4a81de82eeb94d6080ea5bf63e27023a(AIndex: Integer;
  6969. const AValue: string);
  6970. public
  6971. class function ObjectRestKind : String; Override;
  6972. function KeyAsURLPart : String; Override;
  6973. published
  6974. Property Id4a81de82eeb94d6080ea5bf63e27023a : string index 0 read FId4a81de82eeb94d6080ea5bf63e27023a write SetId4a81de82eeb94d6080ea5bf63e27023a;
  6975. end;
  6976. { --------------------------------------------------------------------
  6977. SP: TenantAppInstance
  6978. --------------------------------------------------------------------}
  6979. TSPTenantAppInstance = Class(TODataEntity)
  6980. private
  6981. FId : TGUIDString;
  6982. FSiteId : TGUIDString;
  6983. FWebId : TGUIDString;
  6984. procedure SetId(AIndex: Integer; const AValue: TGUIDString);
  6985. procedure SetSiteId(AIndex: Integer; const AValue: TGUIDString);
  6986. procedure SetWebId(AIndex: Integer; const AValue: TGUIDString);
  6987. public
  6988. class function ObjectRestKind : String; Override;
  6989. function KeyAsURLPart : String; Override;
  6990. published
  6991. Property Id : TGUIDString index 0 read FId write SetId;
  6992. Property SiteId : TGUIDString index 8 read FSiteId write SetSiteId;
  6993. Property WebId : TGUIDString index 16 read FWebId write SetWebId;
  6994. end;
  6995. { --------------------------------------------------------------------
  6996. SP: WebProxy
  6997. --------------------------------------------------------------------}
  6998. TSPWebProxy = Class(TODataEntity)
  6999. private
  7000. FId4a81de82eeb94d6080ea5bf63e27023a : string;
  7001. procedure SetId4a81de82eeb94d6080ea5bf63e27023a(AIndex: Integer;
  7002. const AValue: string);
  7003. public
  7004. class function ObjectRestKind : String; Override;
  7005. function KeyAsURLPart : String; Override;
  7006. published
  7007. Property Id4a81de82eeb94d6080ea5bf63e27023a : string index 0 read FId4a81de82eeb94d6080ea5bf63e27023a write SetId4a81de82eeb94d6080ea5bf63e27023a;
  7008. end;
  7009. { --------------------------------------------------------------------
  7010. SP: WebTemplate
  7011. --------------------------------------------------------------------}
  7012. TSPWebTemplate = Class(TODataEntity)
  7013. private
  7014. FDescription : string;
  7015. FDisplayCategory : string;
  7016. FId : TInt32;
  7017. FImageUrl : string;
  7018. FIsHidden : boolean;
  7019. FIsRootWebOnly : boolean;
  7020. FIsSubWebOnly : boolean;
  7021. FLcid : TInt32;
  7022. FName : string;
  7023. FTitle : string;
  7024. procedure SetDescription(AIndex: Integer; const AValue: string);
  7025. procedure SetDisplayCategory(AIndex: Integer; const AValue: string);
  7026. procedure SetId(AIndex: Integer; const AValue: TInt32);
  7027. procedure SetImageUrl(AIndex: Integer; const AValue: string);
  7028. procedure SetIsHidden(AIndex: Integer; const AValue: boolean);
  7029. procedure SetIsRootWebOnly(AIndex: Integer; const AValue: boolean);
  7030. procedure SetIsSubWebOnly(AIndex: Integer; const AValue: boolean);
  7031. procedure SetLcid(AIndex: Integer; const AValue: TInt32);
  7032. procedure SetName(AIndex: Integer; const AValue: string);
  7033. procedure SetTitle(AIndex: Integer; const AValue: string);
  7034. public
  7035. class function ObjectRestKind : String; Override;
  7036. function KeyAsURLPart : String; Override;
  7037. published
  7038. Property Description : string index 0 read FDescription write SetDescription;
  7039. Property DisplayCategory : string index 8 read FDisplayCategory write SetDisplayCategory;
  7040. Property Id : TInt32 index 16 read FId write SetId;
  7041. Property ImageUrl : string index 24 read FImageUrl write SetImageUrl;
  7042. Property IsHidden : boolean index 32 read FIsHidden write SetIsHidden;
  7043. Property IsRootWebOnly : boolean index 40 read FIsRootWebOnly write SetIsRootWebOnly;
  7044. Property IsSubWebOnly : boolean index 48 read FIsSubWebOnly write SetIsSubWebOnly;
  7045. Property Lcid : TInt32 index 56 read FLcid write SetLcid;
  7046. Property Name : string index 64 read FName write SetName;
  7047. Property Title : string index 72 read FTitle write SetTitle;
  7048. end;
  7049. { --------------------------------------------------------------------
  7050. SP: TenantAppUtility
  7051. --------------------------------------------------------------------}
  7052. TSPTenantAppUtility = Class(TODataEntity)
  7053. private
  7054. FId4a81de82eeb94d6080ea5bf63e27023a : string;
  7055. procedure SetId4a81de82eeb94d6080ea5bf63e27023a(AIndex: Integer;
  7056. const AValue: string);
  7057. public
  7058. class function ObjectRestKind : String; Override;
  7059. function KeyAsURLPart : String; Override;
  7060. published
  7061. Property Id4a81de82eeb94d6080ea5bf63e27023a : string index 0 read FId4a81de82eeb94d6080ea5bf63e27023a write SetId4a81de82eeb94d6080ea5bf63e27023a;
  7062. end;
  7063. { --------------------------------------------------------------------
  7064. SP: TenantSettings
  7065. --------------------------------------------------------------------}
  7066. TSPTenantSettings = Class(TODataEntity)
  7067. private
  7068. FCorporateCatalogUrl : string;
  7069. procedure SetCorporateCatalogUrl(AIndex: Integer; const AValue: string);
  7070. public
  7071. class function ObjectRestKind : String; Override;
  7072. function KeyAsURLPart : String; Override;
  7073. function Current(AService: TODataService) : TSPTenantSettings;
  7074. published
  7075. Property CorporateCatalogUrl : string index 0 read FCorporateCatalogUrl write SetCorporateCatalogUrl;
  7076. end;
  7077. { --------------------------------------------------------------------
  7078. SP: AppPrincipalIdentityProvider
  7079. --------------------------------------------------------------------}
  7080. TSPAppPrincipalIdentityProvider = Class(TODataEntity)
  7081. private
  7082. FId4a81de82eeb94d6080ea5bf63e27023a : string;
  7083. procedure SetId4a81de82eeb94d6080ea5bf63e27023a(AIndex: Integer;
  7084. const AValue: string);
  7085. public
  7086. class function ObjectRestKind : String; Override;
  7087. function KeyAsURLPart : String; Override;
  7088. function External(AService: TODataService)
  7089. : TSPAppPrincipalIdentityProvider;
  7090. published
  7091. Property Id4a81de82eeb94d6080ea5bf63e27023a : string index 0 read FId4a81de82eeb94d6080ea5bf63e27023a write SetId4a81de82eeb94d6080ea5bf63e27023a;
  7092. end;
  7093. { --------------------------------------------------------------------
  7094. SP: AppPrincipalManager
  7095. --------------------------------------------------------------------}
  7096. TSPAppPrincipalManager = Class(TODataEntity)
  7097. private
  7098. FId4a81de82eeb94d6080ea5bf63e27023a : string;
  7099. procedure SetId4a81de82eeb94d6080ea5bf63e27023a(AIndex: Integer;
  7100. const AValue: string);
  7101. public
  7102. class function ObjectRestKind : String; Override;
  7103. function KeyAsURLPart : String; Override;
  7104. published
  7105. Property Id4a81de82eeb94d6080ea5bf63e27023a : string index 0 read FId4a81de82eeb94d6080ea5bf63e27023a write SetId4a81de82eeb94d6080ea5bf63e27023a;
  7106. end;
  7107. { --------------------------------------------------------------------
  7108. SP: AppPrincipalCredential
  7109. --------------------------------------------------------------------}
  7110. TSPAppPrincipalCredential = Class(TODataEntity)
  7111. private
  7112. FId4a81de82eeb94d6080ea5bf63e27023a : string;
  7113. procedure SetId4a81de82eeb94d6080ea5bf63e27023a(AIndex: Integer;
  7114. const AValue: string);
  7115. public
  7116. class function ObjectRestKind : String; Override;
  7117. function KeyAsURLPart : String; Override;
  7118. published
  7119. Property Id4a81de82eeb94d6080ea5bf63e27023a : string index 0 read FId4a81de82eeb94d6080ea5bf63e27023a write SetId4a81de82eeb94d6080ea5bf63e27023a;
  7120. end;
  7121. { --------------------------------------------------------------------
  7122. SP: AppPrincipalName
  7123. --------------------------------------------------------------------}
  7124. TSPAppPrincipalName = Class(TODataEntity)
  7125. private
  7126. FId4a81de82eeb94d6080ea5bf63e27023a : string;
  7127. procedure SetId4a81de82eeb94d6080ea5bf63e27023a(AIndex: Integer;
  7128. const AValue: string);
  7129. public
  7130. class function ObjectRestKind : String; Override;
  7131. function KeyAsURLPart : String; Override;
  7132. published
  7133. Property Id4a81de82eeb94d6080ea5bf63e27023a : string index 0 read FId4a81de82eeb94d6080ea5bf63e27023a write SetId4a81de82eeb94d6080ea5bf63e27023a;
  7134. end;
  7135. { --------------------------------------------------------------------
  7136. MS.AppData: ExternalEntityItemValue
  7137. --------------------------------------------------------------------}
  7138. TMS_AppDataExternalEntityItemValue = Class(TODataEntity)
  7139. private
  7140. FId : string;
  7141. procedure SetId(AIndex: Integer; const AValue: string);
  7142. public
  7143. class function ObjectRestKind : String; Override;
  7144. published
  7145. Property Id : string index 0 read FId write SetId;
  7146. end;
  7147. { --------------------------------------------------------------------
  7148. MS.AppData: DocumentEntityItemValue
  7149. --------------------------------------------------------------------}
  7150. TMS_AppDataDocumentEntityItemValue = Class(TODataEntity)
  7151. private
  7152. FCreated : TDateTime;
  7153. FModified : TDateTime;
  7154. FPreviewFrameUrl : string;
  7155. FTitle : string;
  7156. procedure SetCreated(AIndex: Integer; const AValue: TDateTime);
  7157. procedure SetModified(AIndex: Integer; const AValue: TDateTime);
  7158. procedure SetPreviewFrameUrl(AIndex: Integer; const AValue: string);
  7159. procedure SetTitle(AIndex: Integer; const AValue: string);
  7160. public
  7161. class function ObjectRestKind : String; Override;
  7162. published
  7163. Property Created : TDateTime index 0 read FCreated write SetCreated;
  7164. Property Modified : TDateTime index 8 read FModified write SetModified;
  7165. Property PreviewFrameUrl : string index 16 read FPreviewFrameUrl write SetPreviewFrameUrl;
  7166. Property Title : string index 24 read FTitle write SetTitle;
  7167. end;
  7168. { --------------------------------------------------------------------
  7169. MS.AppData: EntityItemValue
  7170. --------------------------------------------------------------------}
  7171. TMS_AppDataEntityItemValue = Class(TODataEntity)
  7172. private
  7173. FFieldValues : TSPKeyValueArray;
  7174. FId : TInt32;
  7175. procedure SetFieldValues(AIndex: Integer;
  7176. const AValue: TSPKeyValueArray);
  7177. procedure SetId(AIndex: Integer; const AValue: TInt32);
  7178. protected
  7179. {$IFDEF VER2_6}
  7180. procedure SetArrayLength(const AName: String; ALength: Longint)
  7181. ; Override;
  7182. {$ENDIF VER2_6}
  7183. public
  7184. class function ObjectRestKind : String; Override;
  7185. published
  7186. Property FieldValues : TSPKeyValueArray index 0 read FFieldValues write SetFieldValues;
  7187. Property Id : TInt32 index 8 read FId write SetId;
  7188. end;
  7189. { --------------------------------------------------------------------
  7190. MS.AppData: EntityTypeCreationInformation
  7191. --------------------------------------------------------------------}
  7192. TMS_AppDataEntityTypeCreationInformation = Class(TODataEntity)
  7193. private
  7194. FName : string;
  7195. FTitle : string;
  7196. procedure SetName(AIndex: Integer; const AValue: string);
  7197. procedure SetTitle(AIndex: Integer; const AValue: string);
  7198. public
  7199. class function ObjectRestKind : String; Override;
  7200. published
  7201. Property Name : string index 0 read FName write SetName;
  7202. Property Title : string index 8 read FTitle write SetTitle;
  7203. end;
  7204. { --------------------------------------------------------------------
  7205. MS.AppData: ExternalEntityTypeCreationInformation
  7206. --------------------------------------------------------------------}
  7207. TMS_AppDataExternalEntityTypeCreationInformation = Class(TODataEntity)
  7208. private
  7209. FKind : TInt32;
  7210. FName : string;
  7211. FProperties : string;
  7212. FServiceUrl : string;
  7213. FTitle : string;
  7214. procedure SetKind(AIndex: Integer; const AValue: TInt32);
  7215. procedure SetName(AIndex: Integer; const AValue: string);
  7216. procedure SetProperties(AIndex: Integer; const AValue: string);
  7217. procedure SetServiceUrl(AIndex: Integer; const AValue: string);
  7218. procedure SetTitle(AIndex: Integer; const AValue: string);
  7219. public
  7220. class function ObjectRestKind : String; Override;
  7221. published
  7222. Property Kind : TInt32 index 0 read FKind write SetKind;
  7223. Property Name : string index 8 read FName write SetName;
  7224. Property Properties : string index 16 read FProperties write SetProperties;
  7225. Property ServiceUrl : string index 24 read FServiceUrl write SetServiceUrl;
  7226. Property Title : string index 32 read FTitle write SetTitle;
  7227. end;
  7228. { --------------------------------------------------------------------
  7229. MS.AppData: FieldCreationInformation
  7230. --------------------------------------------------------------------}
  7231. TMS_AppDataFieldCreationInformation = Class(TODataEntity)
  7232. private
  7233. FExternalServiceUrl : string;
  7234. FFieldType : TInt32;
  7235. FLookupTargetEntityTypeId : TGUIDString;
  7236. FName : string;
  7237. FTitle : string;
  7238. procedure SetExternalServiceUrl(AIndex: Integer; const AValue: string);
  7239. procedure SetFieldType(AIndex: Integer; const AValue: TInt32);
  7240. procedure SetLookupTargetEntityTypeId(AIndex: Integer;
  7241. const AValue: TGUIDString);
  7242. procedure SetName(AIndex: Integer; const AValue: string);
  7243. procedure SetTitle(AIndex: Integer; const AValue: string);
  7244. public
  7245. class function ObjectRestKind : String; Override;
  7246. published
  7247. Property ExternalServiceUrl : string index 0 read FExternalServiceUrl write SetExternalServiceUrl;
  7248. Property FieldType : TInt32 index 8 read FFieldType write SetFieldType;
  7249. Property LookupTargetEntityTypeId : TGUIDString index 16 read FLookupTargetEntityTypeId write SetLookupTargetEntityTypeId;
  7250. Property Name : string index 24 read FName write SetName;
  7251. Property Title : string index 32 read FTitle write SetTitle;
  7252. end;
  7253. { --------------------------------------------------------------------
  7254. MS.AppData: ItemQuery
  7255. --------------------------------------------------------------------}
  7256. TMS_AppDataItemQuery = Class(TODataEntity)
  7257. private
  7258. FExpand : string;
  7259. FSelect : string;
  7260. procedure SetExpand(AIndex: Integer; const AValue: string);
  7261. procedure SetSelect(AIndex: Integer; const AValue: string);
  7262. public
  7263. class function ObjectRestKind : String; Override;
  7264. published
  7265. Property Expand : string index 0 read FExpand write SetExpand;
  7266. Property Select : string index 8 read FSelect write SetSelect;
  7267. end;
  7268. { --------------------------------------------------------------------
  7269. MS.AppData: ItemCollectionQuery
  7270. --------------------------------------------------------------------}
  7271. TMS_AppDataItemCollectionQuery = Class(TODataEntity)
  7272. private
  7273. FFilter : string;
  7274. FIncludeAllItemsCount : boolean;
  7275. FOrderBy : string;
  7276. FSkip : TInt32;
  7277. FTop : TInt32;
  7278. procedure SetFilter(AIndex: Integer; const AValue: string);
  7279. procedure SetIncludeAllItemsCount(AIndex: Integer;
  7280. const AValue: boolean);
  7281. procedure SetOrderBy(AIndex: Integer; const AValue: string);
  7282. procedure SetSkip(AIndex: Integer; const AValue: TInt32);
  7283. procedure SetTop(AIndex: Integer; const AValue: TInt32);
  7284. public
  7285. class function ObjectRestKind : String; Override;
  7286. published
  7287. Property Filter : string index 0 read FFilter write SetFilter;
  7288. Property IncludeAllItemsCount : boolean index 8 read FIncludeAllItemsCount write SetIncludeAllItemsCount;
  7289. Property OrderBy : string index 16 read FOrderBy write SetOrderBy;
  7290. Property Skip : TInt32 index 24 read FSkip write SetSkip;
  7291. Property Top : TInt32 index 32 read FTop write SetTop;
  7292. end;
  7293. { --------------------------------------------------------------------
  7294. MS.AppData: UrlFieldValue
  7295. --------------------------------------------------------------------}
  7296. TMS_AppDataUrlFieldValue = Class(TODataEntity)
  7297. private
  7298. FText : string;
  7299. FUrl : string;
  7300. procedure SetText(AIndex: Integer; const AValue: string);
  7301. procedure SetUrl(AIndex: Integer; const AValue: string);
  7302. public
  7303. class function ObjectRestKind : String; Override;
  7304. published
  7305. Property Text : string index 0 read FText write SetText;
  7306. Property Url : string index 8 read FUrl write SetUrl;
  7307. end;
  7308. { --------------------------------------------------------------------
  7309. MS.AppData: UserEntityItemValue
  7310. --------------------------------------------------------------------}
  7311. TMS_AppDataUserEntityItemValue = Class(TODataEntity)
  7312. private
  7313. FDepartment : string;
  7314. FDisplayName : string;
  7315. FEmail : string;
  7316. FJobTitle : string;
  7317. FLoginName : string;
  7318. FMobilePhone : string;
  7319. FPhone : string;
  7320. FPrincipleType : TInt32;
  7321. FSipAddress : string;
  7322. procedure SetDepartment(AIndex: Integer; const AValue: string);
  7323. procedure SetDisplayName(AIndex: Integer; const AValue: string);
  7324. procedure SetEmail(AIndex: Integer; const AValue: string);
  7325. procedure SetJobTitle(AIndex: Integer; const AValue: string);
  7326. procedure SetLoginName(AIndex: Integer; const AValue: string);
  7327. procedure SetMobilePhone(AIndex: Integer; const AValue: string);
  7328. procedure SetPhone(AIndex: Integer; const AValue: string);
  7329. procedure SetPrincipleType(AIndex: Integer; const AValue: TInt32);
  7330. procedure SetSipAddress(AIndex: Integer; const AValue: string);
  7331. public
  7332. class function ObjectRestKind : String; Override;
  7333. published
  7334. Property Department : string index 0 read FDepartment write SetDepartment;
  7335. Property DisplayName : string index 8 read FDisplayName write SetDisplayName;
  7336. Property Email : string index 16 read FEmail write SetEmail;
  7337. Property JobTitle : string index 24 read FJobTitle write SetJobTitle;
  7338. Property LoginName : string index 32 read FLoginName write SetLoginName;
  7339. Property MobilePhone : string index 40 read FMobilePhone write SetMobilePhone;
  7340. Property Phone : string index 48 read FPhone write SetPhone;
  7341. Property PrincipleType : TInt32 index 56 read FPrincipleType write SetPrincipleType;
  7342. Property SipAddress : string index 64 read FSipAddress write SetSipAddress;
  7343. end;
  7344. { --------------------------------------------------------------------
  7345. MS.AppData: App
  7346. --------------------------------------------------------------------}
  7347. TMS_AppDataApp = Class(TODataEntity)
  7348. private
  7349. FId : TGUIDString;
  7350. FName : string;
  7351. procedure SetId(AIndex: Integer; const AValue: TGUIDString);
  7352. procedure SetName(AIndex: Integer; const AValue: string);
  7353. public
  7354. class function ObjectRestKind : String; Override;
  7355. function KeyAsURLPart : String; Override;
  7356. function EntityTypes(AService: TODataService) : TMS_AppDataEntityType;
  7357. function ExternalEntityTypes(AService: TODataService)
  7358. : TMS_AppDataExternalEntityType;
  7359. published
  7360. Property Id : TGUIDString index 0 read FId write SetId;
  7361. Property Name : string index 8 read FName write SetName;
  7362. end;
  7363. { --------------------------------------------------------------------
  7364. MS.AppData: EntityTypeBase
  7365. --------------------------------------------------------------------}
  7366. TMS_AppDataEntityTypeBase = Class(TODataEntity)
  7367. private
  7368. FId : TGUIDString;
  7369. FName : string;
  7370. procedure SetId(AIndex: Integer; const AValue: TGUIDString);
  7371. procedure SetName(AIndex: Integer; const AValue: string);
  7372. public
  7373. class function ObjectRestKind : String; Override;
  7374. function KeyAsURLPart : String; Override;
  7375. function Fields(AService: TODataService) : TMS_AppDataField;
  7376. published
  7377. Property Id : TGUIDString index 0 read FId write SetId;
  7378. Property Name : string index 8 read FName write SetName;
  7379. end;
  7380. { --------------------------------------------------------------------
  7381. MS.AppData: Field
  7382. --------------------------------------------------------------------}
  7383. TMS_AppDataField = Class(TODataEntity)
  7384. private
  7385. FExternalServiceUrl : string;
  7386. FFieldType : TInt32;
  7387. FId : TGUIDString;
  7388. FLookupTargetAppId : TGUIDString;
  7389. FLookupTargetEntityTypeId : TGUIDString;
  7390. FName : string;
  7391. FProperties : TSPKeyValueArray;
  7392. FSystemField : boolean;
  7393. FTitle : string;
  7394. procedure SetExternalServiceUrl(AIndex: Integer; const AValue: string);
  7395. procedure SetFieldType(AIndex: Integer; const AValue: TInt32);
  7396. procedure SetId(AIndex: Integer; const AValue: TGUIDString);
  7397. procedure SetLookupTargetAppId(AIndex: Integer;
  7398. const AValue: TGUIDString);
  7399. procedure SetLookupTargetEntityTypeId(AIndex: Integer;
  7400. const AValue: TGUIDString);
  7401. procedure SetName(AIndex: Integer; const AValue: string);
  7402. procedure SetProperties(AIndex: Integer; const AValue: TSPKeyValueArray);
  7403. procedure SetSystemField(AIndex: Integer; const AValue: boolean);
  7404. procedure SetTitle(AIndex: Integer; const AValue: string);
  7405. protected
  7406. {$IFDEF VER2_6}
  7407. procedure SetArrayLength(const AName: String; ALength: Longint)
  7408. ; Override;
  7409. {$ENDIF VER2_6}
  7410. public
  7411. class function ObjectRestKind : String; Override;
  7412. function KeyAsURLPart : String; Override;
  7413. published
  7414. Property ExternalServiceUrl : string index 0 read FExternalServiceUrl write SetExternalServiceUrl;
  7415. Property FieldType : TInt32 index 8 read FFieldType write SetFieldType;
  7416. Property Id : TGUIDString index 16 read FId write SetId;
  7417. Property LookupTargetAppId : TGUIDString index 24 read FLookupTargetAppId write SetLookupTargetAppId;
  7418. Property LookupTargetEntityTypeId : TGUIDString index 32 read FLookupTargetEntityTypeId write SetLookupTargetEntityTypeId;
  7419. Property Name : string index 40 read FName write SetName;
  7420. Property Properties : TSPKeyValueArray index 48 read FProperties write SetProperties;
  7421. Property SystemField : boolean index 56 read FSystemField write SetSystemField;
  7422. Property Title : string index 64 read FTitle write SetTitle;
  7423. end;
  7424. { --------------------------------------------------------------------
  7425. MS.AppData: EntityType
  7426. --------------------------------------------------------------------}
  7427. TMS_AppDataEntityType = Class(TMS_AppDataEntityTypeBase)
  7428. private
  7429. FTitle : string;
  7430. procedure SetTitle(AIndex: Integer; const AValue: string);
  7431. public
  7432. class function ObjectRestKind : String; Override;
  7433. function Items(AService: TODataService) : TMS_AppDataEntityItem;
  7434. published
  7435. Property Title : string index 16 read FTitle write SetTitle;
  7436. end;
  7437. { --------------------------------------------------------------------
  7438. MS.AppData: EntityItem
  7439. --------------------------------------------------------------------}
  7440. TMS_AppDataEntityItem = Class(TODataEntity)
  7441. private
  7442. FETag : string;
  7443. FFieldValues : TSPKeyValueArray;
  7444. FId : TInt32;
  7445. procedure SetETag(AIndex: Integer; const AValue: string);
  7446. procedure SetFieldValues(AIndex: Integer;
  7447. const AValue: TSPKeyValueArray);
  7448. procedure SetId(AIndex: Integer; const AValue: TInt32);
  7449. protected
  7450. {$IFDEF VER2_6}
  7451. procedure SetArrayLength(const AName: String; ALength: Longint)
  7452. ; Override;
  7453. {$ENDIF VER2_6}
  7454. public
  7455. class function ObjectRestKind : String; Override;
  7456. function KeyAsURLPart : String; Override;
  7457. published
  7458. Property ETag : string index 0 read FETag write SetETag;
  7459. Property FieldValues : TSPKeyValueArray index 8 read FFieldValues write SetFieldValues;
  7460. Property Id : TInt32 index 16 read FId write SetId;
  7461. end;
  7462. { --------------------------------------------------------------------
  7463. MS.AppData: ExternalEntityType
  7464. --------------------------------------------------------------------}
  7465. TMS_AppDataExternalEntityType = Class(TMS_AppDataEntityTypeBase)
  7466. private
  7467. FKind : TInt32;
  7468. FServiceUrl : string;
  7469. procedure SetKind(AIndex: Integer; const AValue: TInt32);
  7470. procedure SetServiceUrl(AIndex: Integer; const AValue: string);
  7471. public
  7472. class function ObjectRestKind : String; Override;
  7473. published
  7474. Property Kind : TInt32 index 16 read FKind write SetKind;
  7475. Property ServiceUrl : string index 24 read FServiceUrl write SetServiceUrl;
  7476. end;
  7477. { --------------------------------------------------------------------
  7478. MS.AppData: StoreContextBase
  7479. --------------------------------------------------------------------}
  7480. TMS_AppDataStoreContextBase = Class(TODataEntity)
  7481. private
  7482. FId4a81de82eeb94d6080ea5bf63e27023a : string;
  7483. procedure SetId4a81de82eeb94d6080ea5bf63e27023a(AIndex: Integer;
  7484. const AValue: string);
  7485. public
  7486. class function ObjectRestKind : String; Override;
  7487. function KeyAsURLPart : String; Override;
  7488. published
  7489. Property Id4a81de82eeb94d6080ea5bf63e27023a : string index 0 read FId4a81de82eeb94d6080ea5bf63e27023a write SetId4a81de82eeb94d6080ea5bf63e27023a;
  7490. end;
  7491. { --------------------------------------------------------------------
  7492. MS.AppData: ODataStoreContext
  7493. --------------------------------------------------------------------}
  7494. TMS_AppDataODataStoreContext = Class(TMS_AppDataStoreContextBase)
  7495. public
  7496. class function ObjectRestKind : String; Override;
  7497. end;
  7498. { --------------------------------------------------------------------
  7499. MS.AppData: RequestContext
  7500. --------------------------------------------------------------------}
  7501. TMS_AppDataRequestContext = Class(TODataEntity)
  7502. private
  7503. FId4a81de82eeb94d6080ea5bf63e27023a : string;
  7504. procedure SetId4a81de82eeb94d6080ea5bf63e27023a(AIndex: Integer;
  7505. const AValue: string);
  7506. public
  7507. class function ObjectRestKind : String; Override;
  7508. function KeyAsURLPart : String; Override;
  7509. function App(AService: TODataService) : TMS_AppDataApp;
  7510. function Current(AService: TODataService) : TMS_AppDataRequestContext;
  7511. published
  7512. Property Id4a81de82eeb94d6080ea5bf63e27023a : string index 0 read FId4a81de82eeb94d6080ea5bf63e27023a write SetId4a81de82eeb94d6080ea5bf63e27023a;
  7513. end;
  7514. { --------------------------------------------------------------------
  7515. MS.AppData: SqlStoreContext
  7516. --------------------------------------------------------------------}
  7517. TMS_AppDataSqlStoreContext = Class(TMS_AppDataStoreContextBase)
  7518. public
  7519. class function ObjectRestKind : String; Override;
  7520. end;
  7521. { --------------------------------------------------------------------
  7522. SP.Directory: LinkRequestSchema
  7523. --------------------------------------------------------------------}
  7524. TSP_DirectoryLinkRequestSchema = Class(TODataEntity)
  7525. private
  7526. FCount : TInt32;
  7527. FIncludeTotalCount : boolean;
  7528. FName : string;
  7529. FOffset : TInt32;
  7530. procedure SetCount(AIndex: Integer; const AValue: TInt32);
  7531. procedure SetIncludeTotalCount(AIndex: Integer; const AValue: boolean);
  7532. procedure SetName(AIndex: Integer; const AValue: string);
  7533. procedure SetOffset(AIndex: Integer; const AValue: TInt32);
  7534. public
  7535. class function ObjectRestKind : String; Override;
  7536. published
  7537. Property Count : TInt32 index 0 read FCount write SetCount;
  7538. Property IncludeTotalCount : boolean index 8 read FIncludeTotalCount write SetIncludeTotalCount;
  7539. Property Name : string index 16 read FName write SetName;
  7540. Property Offset : TInt32 index 24 read FOffset write SetOffset;
  7541. end;
  7542. { --------------------------------------------------------------------
  7543. SP.Directory: DirectorySession
  7544. --------------------------------------------------------------------}
  7545. TSP_DirectoryDirectorySession = Class(TODataEntity)
  7546. private
  7547. FSessionOptions : TInt32;
  7548. procedure SetSessionOptions(AIndex: Integer; const AValue: TInt32);
  7549. public
  7550. class function ObjectRestKind : String; Override;
  7551. function KeyAsURLPart : String; Override;
  7552. published
  7553. Property SessionOptions : TInt32 index 0 read FSessionOptions write SetSessionOptions;
  7554. end;
  7555. { --------------------------------------------------------------------
  7556. SP.Directory: GroupAndUserStatus
  7557. --------------------------------------------------------------------}
  7558. TSP_DirectoryGroupAndUserStatus = Class(TODataEntity)
  7559. private
  7560. FStatus : TInt32;
  7561. procedure SetStatus(AIndex: Integer; const AValue: TInt32);
  7562. public
  7563. class function ObjectRestKind : String; Override;
  7564. function KeyAsURLPart : String; Override;
  7565. function Group(AService: TODataService) : TSP_DirectoryGroup;
  7566. published
  7567. Property Status : TInt32 index 0 read FStatus write SetStatus;
  7568. end;
  7569. { --------------------------------------------------------------------
  7570. SP.Directory: Group
  7571. --------------------------------------------------------------------}
  7572. TSP_DirectoryGroup = Class(TODataEntity)
  7573. private
  7574. FAlias : string;
  7575. FCalendarUrl : string;
  7576. FDescription : string;
  7577. FDirectoryObjectType : TInt32;
  7578. FDisplayName : string;
  7579. FDocumentsUrl : string;
  7580. FEditGroupUrl : string;
  7581. FId : TGUIDString;
  7582. FInboxUrl : string;
  7583. FIsPublic : boolean;
  7584. FPeopleUrl : string;
  7585. FPictureUrl : string;
  7586. FPrincipalName : string;
  7587. FSiteUrl : string;
  7588. procedure SetAlias(AIndex: Integer; const AValue: string);
  7589. procedure SetCalendarUrl(AIndex: Integer; const AValue: string);
  7590. procedure SetDescription(AIndex: Integer; const AValue: string);
  7591. procedure SetDirectoryObjectType(AIndex: Integer; const AValue: TInt32);
  7592. procedure SetDisplayName(AIndex: Integer; const AValue: string);
  7593. procedure SetDocumentsUrl(AIndex: Integer; const AValue: string);
  7594. procedure SetEditGroupUrl(AIndex: Integer; const AValue: string);
  7595. procedure SetId(AIndex: Integer; const AValue: TGUIDString);
  7596. procedure SetInboxUrl(AIndex: Integer; const AValue: string);
  7597. procedure SetIsPublic(AIndex: Integer; const AValue: boolean);
  7598. procedure SetPeopleUrl(AIndex: Integer; const AValue: string);
  7599. procedure SetPictureUrl(AIndex: Integer; const AValue: string);
  7600. procedure SetPrincipalName(AIndex: Integer; const AValue: string);
  7601. procedure SetSiteUrl(AIndex: Integer; const AValue: string);
  7602. public
  7603. class function ObjectRestKind : String; Override;
  7604. function KeyAsURLPart : String; Override;
  7605. function Members(AService: TODataService) : TSP_DirectoryLinkCollection;
  7606. function Owners(AService: TODataService) : TSP_DirectoryLinkCollection;
  7607. published
  7608. Property Alias : string index 0 read FAlias write SetAlias;
  7609. Property CalendarUrl : string index 8 read FCalendarUrl write SetCalendarUrl;
  7610. Property Description : string index 16 read FDescription write SetDescription;
  7611. Property DirectoryObjectType : TInt32 index 24 read FDirectoryObjectType write SetDirectoryObjectType;
  7612. Property DisplayName : string index 32 read FDisplayName write SetDisplayName;
  7613. Property DocumentsUrl : string index 40 read FDocumentsUrl write SetDocumentsUrl;
  7614. Property EditGroupUrl : string index 48 read FEditGroupUrl write SetEditGroupUrl;
  7615. Property Id : TGUIDString index 56 read FId write SetId;
  7616. Property InboxUrl : string index 64 read FInboxUrl write SetInboxUrl;
  7617. Property IsPublic : boolean index 72 read FIsPublic write SetIsPublic;
  7618. Property PeopleUrl : string index 80 read FPeopleUrl write SetPeopleUrl;
  7619. Property PictureUrl : string index 88 read FPictureUrl write SetPictureUrl;
  7620. Property PrincipalName : string index 96 read FPrincipalName write SetPrincipalName;
  7621. Property SiteUrl : string index 104 read FSiteUrl write SetSiteUrl;
  7622. end;
  7623. { --------------------------------------------------------------------
  7624. SP.Directory: LinkCollection
  7625. --------------------------------------------------------------------}
  7626. TSP_DirectoryLinkCollection = Class(TODataEntity)
  7627. private
  7628. FCount : TInt32;
  7629. FOffset : TInt32;
  7630. FTotalCount : TInt32;
  7631. procedure SetCount(AIndex: Integer; const AValue: TInt32);
  7632. procedure SetOffset(AIndex: Integer; const AValue: TInt32);
  7633. procedure SetTotalCount(AIndex: Integer; const AValue: TInt32);
  7634. public
  7635. class function ObjectRestKind : String; Override;
  7636. function KeyAsURLPart : String; Override;
  7637. published
  7638. Property Count : TInt32 index 0 read FCount write SetCount;
  7639. Property Offset : TInt32 index 8 read FOffset write SetOffset;
  7640. Property TotalCount : TInt32 index 16 read FTotalCount write SetTotalCount;
  7641. end;
  7642. { --------------------------------------------------------------------
  7643. SP.Directory: MembershipResult
  7644. --------------------------------------------------------------------}
  7645. TSP_DirectoryMembershipResult = Class(TODataEntity)
  7646. private
  7647. FId4a81de82eeb94d6080ea5bf63e27023a : string;
  7648. FGroupsList : TGuidStringArray;
  7649. procedure SetId4a81de82eeb94d6080ea5bf63e27023a(AIndex: Integer;
  7650. const AValue: string);
  7651. procedure SetGroupsList(AIndex: Integer; const AValue: TGuidStringArray);
  7652. protected
  7653. {$IFDEF VER2_6}
  7654. procedure SetArrayLength(const AName: String; ALength: Longint)
  7655. ; Override;
  7656. {$ENDIF VER2_6}
  7657. public
  7658. class function ObjectRestKind : String; Override;
  7659. function KeyAsURLPart : String; Override;
  7660. published
  7661. Property Id4a81de82eeb94d6080ea5bf63e27023a : string index 0 read FId4a81de82eeb94d6080ea5bf63e27023a write SetId4a81de82eeb94d6080ea5bf63e27023a;
  7662. Property GroupsList : TGuidStringArray index 8 read FGroupsList write SetGroupsList;
  7663. end;
  7664. { --------------------------------------------------------------------
  7665. SP.Directory: MembersInfo
  7666. --------------------------------------------------------------------}
  7667. TSP_DirectoryMembersInfo = Class(TODataEntity)
  7668. private
  7669. FMemberNames : TStringArray;
  7670. FTotalCount : TInt32;
  7671. procedure SetMemberNames(AIndex: Integer; const AValue: TStringArray);
  7672. procedure SetTotalCount(AIndex: Integer; const AValue: TInt32);
  7673. protected
  7674. {$IFDEF VER2_6}
  7675. procedure SetArrayLength(const AName: String; ALength: Longint)
  7676. ; Override;
  7677. {$ENDIF VER2_6}
  7678. public
  7679. class function ObjectRestKind : String; Override;
  7680. function KeyAsURLPart : String; Override;
  7681. published
  7682. Property MemberNames : TStringArray index 0 read FMemberNames write SetMemberNames;
  7683. Property TotalCount : TInt32 index 8 read FTotalCount write SetTotalCount;
  7684. end;
  7685. { --------------------------------------------------------------------
  7686. SP.Directory: MyGroupsResult
  7687. --------------------------------------------------------------------}
  7688. TSP_DirectoryMyGroupsResult = Class(TODataEntity)
  7689. private
  7690. FHasNext : boolean;
  7691. FHasPrev : boolean;
  7692. procedure SetHasNext(AIndex: Integer; const AValue: boolean);
  7693. procedure SetHasPrev(AIndex: Integer; const AValue: boolean);
  7694. public
  7695. class function ObjectRestKind : String; Override;
  7696. function KeyAsURLPart : String; Override;
  7697. published
  7698. Property HasNext : boolean index 0 read FHasNext write SetHasNext;
  7699. Property HasPrev : boolean index 8 read FHasPrev write SetHasPrev;
  7700. end;
  7701. { --------------------------------------------------------------------
  7702. SP.Directory: PropertyDictionary
  7703. --------------------------------------------------------------------}
  7704. TSP_DirectoryPropertyDictionary = Class(TODataEntity)
  7705. private
  7706. FId4a81de82eeb94d6080ea5bf63e27023a : string;
  7707. procedure SetId4a81de82eeb94d6080ea5bf63e27023a(AIndex: Integer;
  7708. const AValue: string);
  7709. public
  7710. class function ObjectRestKind : String; Override;
  7711. function KeyAsURLPart : String; Override;
  7712. published
  7713. Property Id4a81de82eeb94d6080ea5bf63e27023a : string index 0 read FId4a81de82eeb94d6080ea5bf63e27023a write SetId4a81de82eeb94d6080ea5bf63e27023a;
  7714. end;
  7715. { --------------------------------------------------------------------
  7716. SP.Directory: Property
  7717. --------------------------------------------------------------------}
  7718. TSP_Directory_Property = Class(TODataEntity)
  7719. private
  7720. FIsInitialized : boolean;
  7721. FIsModified : boolean;
  7722. FName : string;
  7723. FValue : string;
  7724. procedure SetIsInitialized(AIndex: Integer; const AValue: boolean);
  7725. procedure SetIsModified(AIndex: Integer; const AValue: boolean);
  7726. procedure SetName(AIndex: Integer; const AValue: string);
  7727. procedure SetValue(AIndex: Integer; const AValue: string);
  7728. public
  7729. class function ObjectRestKind : String; Override;
  7730. function KeyAsURLPart : String; Override;
  7731. published
  7732. Property IsInitialized : boolean index 0 read FIsInitialized write SetIsInitialized;
  7733. Property IsModified : boolean index 8 read FIsModified write SetIsModified;
  7734. Property Name : string index 16 read FName write SetName;
  7735. Property Value : string index 24 read FValue write SetValue;
  7736. end;
  7737. { --------------------------------------------------------------------
  7738. SP.Directory: SPHelper
  7739. --------------------------------------------------------------------}
  7740. TSP_DirectorySPHelper = Class(TODataEntity)
  7741. private
  7742. FId4a81de82eeb94d6080ea5bf63e27023a : string;
  7743. procedure SetId4a81de82eeb94d6080ea5bf63e27023a(AIndex: Integer;
  7744. const AValue: string);
  7745. public
  7746. class function ObjectRestKind : String; Override;
  7747. function KeyAsURLPart : String; Override;
  7748. published
  7749. Property Id4a81de82eeb94d6080ea5bf63e27023a : string index 0 read FId4a81de82eeb94d6080ea5bf63e27023a write SetId4a81de82eeb94d6080ea5bf63e27023a;
  7750. end;
  7751. { --------------------------------------------------------------------
  7752. SP.Directory: UserRequestSchema
  7753. --------------------------------------------------------------------}
  7754. TSP_DirectoryUserRequestSchema = Class(TODataEntity)
  7755. private
  7756. FId4a81de82eeb94d6080ea5bf63e27023a : string;
  7757. FLinks : TSP_DirectoryLinkRequestSchemaArray;
  7758. FProperties : TStringArray;
  7759. FResources : TStringArray;
  7760. procedure SetId4a81de82eeb94d6080ea5bf63e27023a(AIndex: Integer;
  7761. const AValue: string);
  7762. procedure SetLinks(AIndex: Integer;
  7763. const AValue: TSP_DirectoryLinkRequestSchemaArray);
  7764. procedure SetProperties(AIndex: Integer; const AValue: TStringArray);
  7765. procedure SetResources(AIndex: Integer; const AValue: TStringArray);
  7766. protected
  7767. {$IFDEF VER2_6}
  7768. procedure SetArrayLength(const AName: String; ALength: Longint)
  7769. ; Override;
  7770. {$ENDIF VER2_6}
  7771. public
  7772. class function ObjectRestKind : String; Override;
  7773. function KeyAsURLPart : String; Override;
  7774. published
  7775. Property Id4a81de82eeb94d6080ea5bf63e27023a : string index 0 read FId4a81de82eeb94d6080ea5bf63e27023a write SetId4a81de82eeb94d6080ea5bf63e27023a;
  7776. Property Links : TSP_DirectoryLinkRequestSchemaArray index 8 read FLinks write SetLinks;
  7777. Property Properties : TStringArray index 16 read FProperties write SetProperties;
  7778. Property Resources : TStringArray index 24 read FResources write SetResources;
  7779. end;
  7780. { --------------------------------------------------------------------
  7781. SP.Directory: User
  7782. --------------------------------------------------------------------}
  7783. TSP_DirectoryUser = Class(TODataEntity)
  7784. private
  7785. FAboutMe : string;
  7786. FAlias : string;
  7787. FBirthday : TDateTime;
  7788. FDisplayName : string;
  7789. FHireDate : TDateTime;
  7790. FId : TGUIDString;
  7791. FInterests : TStringArray;
  7792. FMail : string;
  7793. FMySite : string;
  7794. FPastProjects : TStringArray;
  7795. FPreferredName : string;
  7796. FPrincipalName : string;
  7797. FResponsibilities : TStringArray;
  7798. FSchools : TStringArray;
  7799. FSkills : TStringArray;
  7800. FTags : TStringArray;
  7801. procedure SetAboutMe(AIndex: Integer; const AValue: string);
  7802. procedure SetAlias(AIndex: Integer; const AValue: string);
  7803. procedure SetBirthday(AIndex: Integer; const AValue: TDateTime);
  7804. procedure SetDisplayName(AIndex: Integer; const AValue: string);
  7805. procedure SetHireDate(AIndex: Integer; const AValue: TDateTime);
  7806. procedure SetId(AIndex: Integer; const AValue: TGUIDString);
  7807. procedure SetInterests(AIndex: Integer; const AValue: TStringArray);
  7808. procedure SetMail(AIndex: Integer; const AValue: string);
  7809. procedure SetMySite(AIndex: Integer; const AValue: string);
  7810. procedure SetPastProjects(AIndex: Integer; const AValue: TStringArray);
  7811. procedure SetPreferredName(AIndex: Integer; const AValue: string);
  7812. procedure SetPrincipalName(AIndex: Integer; const AValue: string);
  7813. procedure SetResponsibilities(AIndex: Integer;
  7814. const AValue: TStringArray);
  7815. procedure SetSchools(AIndex: Integer; const AValue: TStringArray);
  7816. procedure SetSkills(AIndex: Integer; const AValue: TStringArray);
  7817. procedure SetTags(AIndex: Integer; const AValue: TStringArray);
  7818. protected
  7819. {$IFDEF VER2_6}
  7820. procedure SetArrayLength(const AName: String; ALength: Longint)
  7821. ; Override;
  7822. {$ENDIF VER2_6}
  7823. public
  7824. class function ObjectRestKind : String; Override;
  7825. function KeyAsURLPart : String; Override;
  7826. function Properties(AService: TODataService)
  7827. : TSP_DirectoryPropertyDictionary;
  7828. published
  7829. Property AboutMe : string index 0 read FAboutMe write SetAboutMe;
  7830. Property Alias : string index 8 read FAlias write SetAlias;
  7831. Property Birthday : TDateTime index 16 read FBirthday write SetBirthday;
  7832. Property DisplayName : string index 24 read FDisplayName write SetDisplayName;
  7833. Property HireDate : TDateTime index 32 read FHireDate write SetHireDate;
  7834. Property Id : TGUIDString index 40 read FId write SetId;
  7835. Property Interests : TStringArray index 48 read FInterests write SetInterests;
  7836. Property Mail : string index 56 read FMail write SetMail;
  7837. Property MySite : string index 64 read FMySite write SetMySite;
  7838. Property PastProjects : TStringArray index 72 read FPastProjects write SetPastProjects;
  7839. Property PreferredName : string index 80 read FPreferredName write SetPreferredName;
  7840. Property PrincipalName : string index 88 read FPrincipalName write SetPrincipalName;
  7841. Property Responsibilities : TStringArray index 96 read FResponsibilities write SetResponsibilities;
  7842. Property Schools : TStringArray index 104 read FSchools write SetSchools;
  7843. Property Skills : TStringArray index 112 read FSkills write SetSkills;
  7844. Property Tags : TStringArray index 120 read FTags write SetTags;
  7845. end;
  7846. { --------------------------------------------------------------------
  7847. MS.FileServices: UserInformation
  7848. --------------------------------------------------------------------}
  7849. TMS_FileServicesUserInformation = Class(TODataEntity)
  7850. private
  7851. FId : string;
  7852. FName : string;
  7853. FPuid : string;
  7854. procedure SetId(AIndex: Integer; const AValue: string);
  7855. procedure SetName(AIndex: Integer; const AValue: string);
  7856. procedure SetPuid(AIndex: Integer; const AValue: string);
  7857. public
  7858. class function ObjectRestKind : String; Override;
  7859. published
  7860. Property Id : string index 0 read FId write SetId;
  7861. Property Name : string index 8 read FName write SetName;
  7862. Property Puid : string index 16 read FPuid write SetPuid;
  7863. end;
  7864. { --------------------------------------------------------------------
  7865. MS.FileServices: FileSystemItem
  7866. --------------------------------------------------------------------}
  7867. TMS_FileServicesFileSystemItem = Class(TODataEntity)
  7868. private
  7869. FCreatedBy : TMS_FileServicesUserInformation;
  7870. FETag : string;
  7871. FId : string;
  7872. FLastModifiedBy : TMS_FileServicesUserInformation;
  7873. FName : string;
  7874. FSize : TInt32;
  7875. FTimeCreated : TDateTime;
  7876. FTimeLastModified : TDateTime;
  7877. FUrl : string;
  7878. procedure SetCreatedBy(AIndex: Integer;
  7879. const AValue: TMS_FileServicesUserInformation);
  7880. procedure SetETag(AIndex: Integer; const AValue: string);
  7881. procedure SetId(AIndex: Integer; const AValue: string);
  7882. procedure SetLastModifiedBy(AIndex: Integer;
  7883. const AValue: TMS_FileServicesUserInformation);
  7884. procedure SetName(AIndex: Integer; const AValue: string);
  7885. procedure SetSize(AIndex: Integer; const AValue: TInt32);
  7886. procedure SetTimeCreated(AIndex: Integer; const AValue: TDateTime);
  7887. procedure SetTimeLastModified(AIndex: Integer; const AValue: TDateTime);
  7888. procedure SetUrl(AIndex: Integer; const AValue: string);
  7889. public
  7890. class function ObjectRestKind : String; Override;
  7891. function KeyAsURLPart : String; Override;
  7892. published
  7893. Property CreatedBy : TMS_FileServicesUserInformation index 0 read FCreatedBy write SetCreatedBy;
  7894. Property ETag : string index 8 read FETag write SetETag;
  7895. Property Id : string index 16 read FId write SetId;
  7896. Property LastModifiedBy : TMS_FileServicesUserInformation index 24 read FLastModifiedBy write SetLastModifiedBy;
  7897. Property Name : string index 32 read FName write SetName;
  7898. Property Size : TInt32 index 40 read FSize write SetSize;
  7899. Property TimeCreated : TDateTime index 48 read FTimeCreated write SetTimeCreated;
  7900. Property TimeLastModified : TDateTime index 56 read FTimeLastModified write SetTimeLastModified;
  7901. Property Url : string index 64 read FUrl write SetUrl;
  7902. end;
  7903. { --------------------------------------------------------------------
  7904. MS.FileServices: File
  7905. --------------------------------------------------------------------}
  7906. TMS_FileServices_File = Class(TMS_FileServicesFileSystemItem)
  7907. public
  7908. class function ObjectRestKind : String; Override;
  7909. end;
  7910. { --------------------------------------------------------------------
  7911. MS.FileServices: FileService
  7912. --------------------------------------------------------------------}
  7913. TMS_FileServicesFileService = Class(TODataEntity)
  7914. private
  7915. FId4a81de82eeb94d6080ea5bf63e27023a : string;
  7916. procedure SetId4a81de82eeb94d6080ea5bf63e27023a(AIndex: Integer;
  7917. const AValue: string);
  7918. public
  7919. class function ObjectRestKind : String; Override;
  7920. function KeyAsURLPart : String; Override;
  7921. published
  7922. Property Id4a81de82eeb94d6080ea5bf63e27023a : string index 0 read FId4a81de82eeb94d6080ea5bf63e27023a write SetId4a81de82eeb94d6080ea5bf63e27023a;
  7923. end;
  7924. { --------------------------------------------------------------------
  7925. MS.FileServices: Folder
  7926. --------------------------------------------------------------------}
  7927. TMS_FileServicesFolder = Class(TMS_FileServicesFileSystemItem)
  7928. private
  7929. FChildrenCount : TInt32;
  7930. procedure SetChildrenCount(AIndex: Integer; const AValue: TInt32);
  7931. public
  7932. class function ObjectRestKind : String; Override;
  7933. function Children(AService: TODataService)
  7934. : TMS_FileServicesFileSystemItem;
  7935. published
  7936. Property ChildrenCount : TInt32 index 72 read FChildrenCount write SetChildrenCount;
  7937. end;
  7938. { --------------------------------------------------------------------
  7939. MS.FileServices: MeFileService
  7940. --------------------------------------------------------------------}
  7941. TMS_FileServicesMeFileService = Class(TODataEntity)
  7942. private
  7943. FId4a81de82eeb94d6080ea5bf63e27023a : string;
  7944. procedure SetId4a81de82eeb94d6080ea5bf63e27023a(AIndex: Integer;
  7945. const AValue: string);
  7946. public
  7947. class function ObjectRestKind : String; Override;
  7948. function KeyAsURLPart : String; Override;
  7949. published
  7950. Property Id4a81de82eeb94d6080ea5bf63e27023a : string index 0 read FId4a81de82eeb94d6080ea5bf63e27023a write SetId4a81de82eeb94d6080ea5bf63e27023a;
  7951. end;
  7952. { --------------------------------------------------------------------
  7953. SP.Directory.Provider: DirectoryObjectData
  7954. --------------------------------------------------------------------}
  7955. TSP_Directory_ProviderDirectoryObjectData = Class(TODataEntity)
  7956. private
  7957. FChangeMarker : string;
  7958. FDirectoryObjectSubType : TInt32;
  7959. FDirectoryObjectType : TInt32;
  7960. FId : TGUIDString;
  7961. FIsNew : boolean;
  7962. FLastModifiedTime : TDateTime;
  7963. FTenantContextId : TGUIDString;
  7964. FVersion : int64;
  7965. procedure SetChangeMarker(AIndex: Integer; const AValue: string);
  7966. procedure SetDirectoryObjectSubType(AIndex: Integer;
  7967. const AValue: TInt32);
  7968. procedure SetDirectoryObjectType(AIndex: Integer; const AValue: TInt32);
  7969. procedure SetId(AIndex: Integer; const AValue: TGUIDString);
  7970. procedure SetIsNew(AIndex: Integer; const AValue: boolean);
  7971. procedure SetLastModifiedTime(AIndex: Integer; const AValue: TDateTime);
  7972. procedure SetTenantContextId(AIndex: Integer; const AValue: TGUIDString);
  7973. procedure SetVersion(AIndex: Integer; const AValue: int64);
  7974. public
  7975. class function ObjectRestKind : String; Override;
  7976. published
  7977. Property ChangeMarker : string index 0 read FChangeMarker write SetChangeMarker;
  7978. Property DirectoryObjectSubType : TInt32 index 8 read FDirectoryObjectSubType write SetDirectoryObjectSubType;
  7979. Property DirectoryObjectType : TInt32 index 16 read FDirectoryObjectType write SetDirectoryObjectType;
  7980. Property Id : TGUIDString index 24 read FId write SetId;
  7981. Property IsNew : boolean index 32 read FIsNew write SetIsNew;
  7982. Property LastModifiedTime : TDateTime index 40 read FLastModifiedTime write SetLastModifiedTime;
  7983. Property TenantContextId : TGUIDString index 48 read FTenantContextId write SetTenantContextId;
  7984. Property Version : int64 index 56 read FVersion write SetVersion;
  7985. end;
  7986. { --------------------------------------------------------------------
  7987. SP.Directory.Provider: SchemaData
  7988. --------------------------------------------------------------------}
  7989. TSP_Directory_ProviderSchemaData = Class(TODataEntity)
  7990. private
  7991. FDelayLoad : boolean;
  7992. FIsInitialized : boolean;
  7993. FName : string;
  7994. FPrivacy : TInt32;
  7995. procedure SetDelayLoad(AIndex: Integer; const AValue: boolean);
  7996. procedure SetIsInitialized(AIndex: Integer; const AValue: boolean);
  7997. procedure SetName(AIndex: Integer; const AValue: string);
  7998. procedure SetPrivacy(AIndex: Integer; const AValue: TInt32);
  7999. public
  8000. class function ObjectRestKind : String; Override;
  8001. published
  8002. Property DelayLoad : boolean index 0 read FDelayLoad write SetDelayLoad;
  8003. Property IsInitialized : boolean index 8 read FIsInitialized write SetIsInitialized;
  8004. Property Name : string index 16 read FName write SetName;
  8005. Property Privacy : TInt32 index 24 read FPrivacy write SetPrivacy;
  8006. end;
  8007. { --------------------------------------------------------------------
  8008. SP.Directory.Provider: PropertyData
  8009. --------------------------------------------------------------------}
  8010. TSP_Directory_ProviderPropertyData = Class(TODataEntity)
  8011. private
  8012. FValue : TBinary;
  8013. procedure SetValue(AIndex: Integer; const AValue: TBinary);
  8014. public
  8015. class function ObjectRestKind : String; Override;
  8016. published
  8017. Property Value : TBinary index 0 read FValue write SetValue;
  8018. end;
  8019. { --------------------------------------------------------------------
  8020. SP.Directory.Provider: RelationData
  8021. --------------------------------------------------------------------}
  8022. TSP_Directory_ProviderRelationData = Class(TODataEntity)
  8023. private
  8024. FValue : TBinary;
  8025. procedure SetValue(AIndex: Integer; const AValue: TBinary);
  8026. public
  8027. class function ObjectRestKind : String; Override;
  8028. published
  8029. Property Value : TBinary index 0 read FValue write SetValue;
  8030. end;
  8031. { --------------------------------------------------------------------
  8032. SP.Directory.Provider: RelationSetData
  8033. --------------------------------------------------------------------}
  8034. TSP_Directory_ProviderRelationSetData = Class(TODataEntity)
  8035. private
  8036. FTotalCount : TInt32;
  8037. procedure SetTotalCount(AIndex: Integer; const AValue: TInt32);
  8038. public
  8039. class function ObjectRestKind : String; Override;
  8040. published
  8041. Property TotalCount : TInt32 index 0 read FTotalCount write SetTotalCount;
  8042. end;
  8043. { --------------------------------------------------------------------
  8044. SP.Directory.Provider: ResourceData
  8045. --------------------------------------------------------------------}
  8046. TSP_Directory_ProviderResourceData = Class(TODataEntity)
  8047. private
  8048. FErrorCode : TInt32;
  8049. FErrorMessage : string;
  8050. FState : TInt32;
  8051. FValue : TBinary;
  8052. procedure SetErrorCode(AIndex: Integer; const AValue: TInt32);
  8053. procedure SetErrorMessage(AIndex: Integer; const AValue: string);
  8054. procedure SetState(AIndex: Integer; const AValue: TInt32);
  8055. procedure SetValue(AIndex: Integer; const AValue: TBinary);
  8056. public
  8057. class function ObjectRestKind : String; Override;
  8058. published
  8059. Property ErrorCode : TInt32 index 0 read FErrorCode write SetErrorCode;
  8060. Property ErrorMessage : string index 8 read FErrorMessage write SetErrorMessage;
  8061. Property State : TInt32 index 16 read FState write SetState;
  8062. Property Value : TBinary index 24 read FValue write SetValue;
  8063. end;
  8064. { --------------------------------------------------------------------
  8065. SP.Directory.Provider: StateData
  8066. --------------------------------------------------------------------}
  8067. TSP_Directory_ProviderStateData = Class(TODataEntity)
  8068. private
  8069. FAdapterName : string;
  8070. FValue : TBinary;
  8071. procedure SetAdapterName(AIndex: Integer; const AValue: string);
  8072. procedure SetValue(AIndex: Integer; const AValue: TBinary);
  8073. public
  8074. class function ObjectRestKind : String; Override;
  8075. published
  8076. Property AdapterName : string index 0 read FAdapterName write SetAdapterName;
  8077. Property Value : TBinary index 8 read FValue write SetValue;
  8078. end;
  8079. { --------------------------------------------------------------------
  8080. SP.Directory.Provider: SharePointDirectoryProvider
  8081. --------------------------------------------------------------------}
  8082. TSP_Directory_ProviderSharePointDirectoryProvider = Class(TODataEntity)
  8083. private
  8084. FId4a81de82eeb94d6080ea5bf63e27023a : string;
  8085. procedure SetId4a81de82eeb94d6080ea5bf63e27023a(AIndex: Integer;
  8086. const AValue: string);
  8087. public
  8088. class function ObjectRestKind : String; Override;
  8089. function KeyAsURLPart : String; Override;
  8090. published
  8091. Property Id4a81de82eeb94d6080ea5bf63e27023a : string index 0 read FId4a81de82eeb94d6080ea5bf63e27023a write SetId4a81de82eeb94d6080ea5bf63e27023a;
  8092. end;
  8093. { --------------------------------------------------------------------
  8094. SP.Microfeed: MicroBlogEntityCollection
  8095. --------------------------------------------------------------------}
  8096. TSP_MicrofeedMicroBlogEntityCollection = Class(TODataEntity)
  8097. private
  8098. FItems : TSP_MicrofeedMicroBlogEntityArray;
  8099. procedure SetItems(AIndex: Integer;
  8100. const AValue: TSP_MicrofeedMicroBlogEntityArray);
  8101. protected
  8102. {$IFDEF VER2_6}
  8103. procedure SetArrayLength(const AName: String; ALength: Longint)
  8104. ; Override;
  8105. {$ENDIF VER2_6}
  8106. public
  8107. class function ObjectRestKind : String; Override;
  8108. published
  8109. Property Items : TSP_MicrofeedMicroBlogEntityArray index 0 read FItems write SetItems;
  8110. end;
  8111. { --------------------------------------------------------------------
  8112. SP.Microfeed: MicroBlogEntity
  8113. --------------------------------------------------------------------}
  8114. TSP_MicrofeedMicroBlogEntity = Class(TODataEntity)
  8115. private
  8116. FAccountName : string;
  8117. FCanFollow : boolean;
  8118. FDescription : string;
  8119. FDisplayName : string;
  8120. FEmail : string;
  8121. FEntityType : TInt32;
  8122. FEntityURI : string;
  8123. FFollowedContentURI : string;
  8124. FIdentifier : string;
  8125. FIsFollowedByMe : boolean;
  8126. FLatestPost : string;
  8127. FLibraryName : string;
  8128. FLibraryUri : string;
  8129. FPersonalURI : string;
  8130. FPictureURI : string;
  8131. FStatus : TInt32;
  8132. FTitle : string;
  8133. procedure SetAccountName(AIndex: Integer; const AValue: string);
  8134. procedure SetCanFollow(AIndex: Integer; const AValue: boolean);
  8135. procedure SetDescription(AIndex: Integer; const AValue: string);
  8136. procedure SetDisplayName(AIndex: Integer; const AValue: string);
  8137. procedure SetEmail(AIndex: Integer; const AValue: string);
  8138. procedure SetEntityType(AIndex: Integer; const AValue: TInt32);
  8139. procedure SetEntityURI(AIndex: Integer; const AValue: string);
  8140. procedure SetFollowedContentURI(AIndex: Integer; const AValue: string);
  8141. procedure SetIdentifier(AIndex: Integer; const AValue: string);
  8142. procedure SetIsFollowedByMe(AIndex: Integer; const AValue: boolean);
  8143. procedure SetLatestPost(AIndex: Integer; const AValue: string);
  8144. procedure SetLibraryName(AIndex: Integer; const AValue: string);
  8145. procedure SetLibraryUri(AIndex: Integer; const AValue: string);
  8146. procedure SetPersonalURI(AIndex: Integer; const AValue: string);
  8147. procedure SetPictureURI(AIndex: Integer; const AValue: string);
  8148. procedure SetStatus(AIndex: Integer; const AValue: TInt32);
  8149. procedure SetTitle(AIndex: Integer; const AValue: string);
  8150. public
  8151. class function ObjectRestKind : String; Override;
  8152. published
  8153. Property AccountName : string index 0 read FAccountName write SetAccountName;
  8154. Property CanFollow : boolean index 8 read FCanFollow write SetCanFollow;
  8155. Property Description : string index 16 read FDescription write SetDescription;
  8156. Property DisplayName : string index 24 read FDisplayName write SetDisplayName;
  8157. Property Email : string index 32 read FEmail write SetEmail;
  8158. Property EntityType : TInt32 index 40 read FEntityType write SetEntityType;
  8159. Property EntityURI : string index 48 read FEntityURI write SetEntityURI;
  8160. Property FollowedContentURI : string index 56 read FFollowedContentURI write SetFollowedContentURI;
  8161. Property Identifier : string index 64 read FIdentifier write SetIdentifier;
  8162. Property IsFollowedByMe : boolean index 72 read FIsFollowedByMe write SetIsFollowedByMe;
  8163. Property LatestPost : string index 80 read FLatestPost write SetLatestPost;
  8164. Property LibraryName : string index 88 read FLibraryName write SetLibraryName;
  8165. Property LibraryUri : string index 96 read FLibraryUri write SetLibraryUri;
  8166. Property PersonalURI : string index 104 read FPersonalURI write SetPersonalURI;
  8167. Property PictureURI : string index 112 read FPictureURI write SetPictureURI;
  8168. Property Status : TInt32 index 120 read FStatus write SetStatus;
  8169. Property Title : string index 128 read FTitle write SetTitle;
  8170. end;
  8171. { --------------------------------------------------------------------
  8172. SP.Microfeed: MicrofeedPostDefinition
  8173. --------------------------------------------------------------------}
  8174. TSP_MicrofeedMicrofeedPostDefinition = Class(TODataEntity)
  8175. private
  8176. FCanDelete : boolean;
  8177. FCanFollowUp : boolean;
  8178. FCanHaveAttachments : boolean;
  8179. FCanLike : boolean;
  8180. FCanLock : boolean;
  8181. FCanReply : boolean;
  8182. FCreationTime : TDateTime;
  8183. FDefinitionId : int64;
  8184. FDefinitionName : string;
  8185. FDefinitionVersion : TInt32;
  8186. FEnablePeopleList : boolean;
  8187. FIsDefault : boolean;
  8188. FIsEnabled : boolean;
  8189. FIsNotification : boolean;
  8190. FIsPrivate : boolean;
  8191. FIsUserPost : boolean;
  8192. FLastUpdateTime : TDateTime;
  8193. FPartitionId : TGUIDString;
  8194. FPersistToCache : boolean;
  8195. FPersistToPrivateFolder : boolean;
  8196. FPersistToPublishedFeed : boolean;
  8197. FReferenceLikePostName : string;
  8198. FReferenceMentionPostName : string;
  8199. FReferenceReplyPostName : string;
  8200. FRenderPostAuthorImage : boolean;
  8201. FResourceFileName : string;
  8202. FSecurityTrimContentUrl : boolean;
  8203. FSmallImageSizePreferred : boolean;
  8204. procedure SetCanDelete(AIndex: Integer; const AValue: boolean);
  8205. procedure SetCanFollowUp(AIndex: Integer; const AValue: boolean);
  8206. procedure SetCanHaveAttachments(AIndex: Integer; const AValue: boolean);
  8207. procedure SetCanLike(AIndex: Integer; const AValue: boolean);
  8208. procedure SetCanLock(AIndex: Integer; const AValue: boolean);
  8209. procedure SetCanReply(AIndex: Integer; const AValue: boolean);
  8210. procedure SetCreationTime(AIndex: Integer; const AValue: TDateTime);
  8211. procedure SetDefinitionId(AIndex: Integer; const AValue: int64);
  8212. procedure SetDefinitionName(AIndex: Integer; const AValue: string);
  8213. procedure SetDefinitionVersion(AIndex: Integer; const AValue: TInt32);
  8214. procedure SetEnablePeopleList(AIndex: Integer; const AValue: boolean);
  8215. procedure SetIsDefault(AIndex: Integer; const AValue: boolean);
  8216. procedure SetIsEnabled(AIndex: Integer; const AValue: boolean);
  8217. procedure SetIsNotification(AIndex: Integer; const AValue: boolean);
  8218. procedure SetIsPrivate(AIndex: Integer; const AValue: boolean);
  8219. procedure SetIsUserPost(AIndex: Integer; const AValue: boolean);
  8220. procedure SetLastUpdateTime(AIndex: Integer; const AValue: TDateTime);
  8221. procedure SetPartitionId(AIndex: Integer; const AValue: TGUIDString);
  8222. procedure SetPersistToCache(AIndex: Integer; const AValue: boolean);
  8223. procedure SetPersistToPrivateFolder(AIndex: Integer;
  8224. const AValue: boolean);
  8225. procedure SetPersistToPublishedFeed(AIndex: Integer;
  8226. const AValue: boolean);
  8227. procedure SetReferenceLikePostName(AIndex: Integer;
  8228. const AValue: string);
  8229. procedure SetReferenceMentionPostName(AIndex: Integer;
  8230. const AValue: string);
  8231. procedure SetReferenceReplyPostName(AIndex: Integer;
  8232. const AValue: string);
  8233. procedure SetRenderPostAuthorImage(AIndex: Integer;
  8234. const AValue: boolean);
  8235. procedure SetResourceFileName(AIndex: Integer; const AValue: string);
  8236. procedure SetSecurityTrimContentUrl(AIndex: Integer;
  8237. const AValue: boolean);
  8238. procedure SetSmallImageSizePreferred(AIndex: Integer;
  8239. const AValue: boolean);
  8240. public
  8241. class function ObjectRestKind : String; Override;
  8242. published
  8243. Property CanDelete : boolean index 0 read FCanDelete write SetCanDelete;
  8244. Property CanFollowUp : boolean index 8 read FCanFollowUp write SetCanFollowUp;
  8245. Property CanHaveAttachments : boolean index 16 read FCanHaveAttachments write SetCanHaveAttachments;
  8246. Property CanLike : boolean index 24 read FCanLike write SetCanLike;
  8247. Property CanLock : boolean index 32 read FCanLock write SetCanLock;
  8248. Property CanReply : boolean index 40 read FCanReply write SetCanReply;
  8249. Property CreationTime : TDateTime index 48 read FCreationTime write SetCreationTime;
  8250. Property DefinitionId : int64 index 56 read FDefinitionId write SetDefinitionId;
  8251. Property DefinitionName : string index 64 read FDefinitionName write SetDefinitionName;
  8252. Property DefinitionVersion : TInt32 index 72 read FDefinitionVersion write SetDefinitionVersion;
  8253. Property EnablePeopleList : boolean index 80 read FEnablePeopleList write SetEnablePeopleList;
  8254. Property IsDefault : boolean index 88 read FIsDefault write SetIsDefault;
  8255. Property IsEnabled : boolean index 96 read FIsEnabled write SetIsEnabled;
  8256. Property IsNotification : boolean index 104 read FIsNotification write SetIsNotification;
  8257. Property IsPrivate : boolean index 112 read FIsPrivate write SetIsPrivate;
  8258. Property IsUserPost : boolean index 120 read FIsUserPost write SetIsUserPost;
  8259. Property LastUpdateTime : TDateTime index 128 read FLastUpdateTime write SetLastUpdateTime;
  8260. Property PartitionId : TGUIDString index 136 read FPartitionId write SetPartitionId;
  8261. Property PersistToCache : boolean index 144 read FPersistToCache write SetPersistToCache;
  8262. Property PersistToPrivateFolder : boolean index 152 read FPersistToPrivateFolder write SetPersistToPrivateFolder;
  8263. Property PersistToPublishedFeed : boolean index 160 read FPersistToPublishedFeed write SetPersistToPublishedFeed;
  8264. Property ReferenceLikePostName : string index 168 read FReferenceLikePostName write SetReferenceLikePostName;
  8265. Property ReferenceMentionPostName : string index 176 read FReferenceMentionPostName write SetReferenceMentionPostName;
  8266. Property ReferenceReplyPostName : string index 184 read FReferenceReplyPostName write SetReferenceReplyPostName;
  8267. Property RenderPostAuthorImage : boolean index 192 read FRenderPostAuthorImage write SetRenderPostAuthorImage;
  8268. Property ResourceFileName : string index 200 read FResourceFileName write SetResourceFileName;
  8269. Property SecurityTrimContentUrl : boolean index 208 read FSecurityTrimContentUrl write SetSecurityTrimContentUrl;
  8270. Property SmallImageSizePreferred : boolean index 216 read FSmallImageSizePreferred write SetSmallImageSizePreferred;
  8271. end;
  8272. { --------------------------------------------------------------------
  8273. SP.Microfeed: MicrofeedDataLinkCollection
  8274. --------------------------------------------------------------------}
  8275. TSP_MicrofeedMicrofeedDataLinkCollection = Class(TODataEntity)
  8276. private
  8277. FItems : TSP_MicrofeedMicrofeedDataLinkArray;
  8278. procedure SetItems(AIndex: Integer;
  8279. const AValue: TSP_MicrofeedMicrofeedDataLinkArray);
  8280. protected
  8281. {$IFDEF VER2_6}
  8282. procedure SetArrayLength(const AName: String; ALength: Longint)
  8283. ; Override;
  8284. {$ENDIF VER2_6}
  8285. public
  8286. class function ObjectRestKind : String; Override;
  8287. published
  8288. Property Items : TSP_MicrofeedMicrofeedDataLinkArray index 0 read FItems write SetItems;
  8289. end;
  8290. { --------------------------------------------------------------------
  8291. SP.Microfeed: MicrofeedDataLink
  8292. --------------------------------------------------------------------}
  8293. TSP_MicrofeedMicrofeedDataLink = Class(TODataEntity)
  8294. private
  8295. FDataLinkType : TInt32;
  8296. FDateTimeValue : TDateTime;
  8297. FName : string;
  8298. FPlaceHolderName : string;
  8299. FStringValue : string;
  8300. FUniqueId : TGUIDString;
  8301. FUriValue : string;
  8302. procedure SetDataLinkType(AIndex: Integer; const AValue: TInt32);
  8303. procedure SetDateTimeValue(AIndex: Integer; const AValue: TDateTime);
  8304. procedure SetName(AIndex: Integer; const AValue: string);
  8305. procedure SetPlaceHolderName(AIndex: Integer; const AValue: string);
  8306. procedure SetStringValue(AIndex: Integer; const AValue: string);
  8307. procedure SetUniqueId(AIndex: Integer; const AValue: TGUIDString);
  8308. procedure SetUriValue(AIndex: Integer; const AValue: string);
  8309. public
  8310. class function ObjectRestKind : String; Override;
  8311. published
  8312. Property DataLinkType : TInt32 index 0 read FDataLinkType write SetDataLinkType;
  8313. Property DateTimeValue : TDateTime index 8 read FDateTimeValue write SetDateTimeValue;
  8314. Property Name : string index 16 read FName write SetName;
  8315. Property PlaceHolderName : string index 24 read FPlaceHolderName write SetPlaceHolderName;
  8316. Property StringValue : string index 32 read FStringValue write SetStringValue;
  8317. Property UniqueId : TGUIDString index 40 read FUniqueId write SetUniqueId;
  8318. Property UriValue : string index 48 read FUriValue write SetUriValue;
  8319. end;
  8320. { --------------------------------------------------------------------
  8321. SP.Microfeed: MicrofeedDataQuery
  8322. --------------------------------------------------------------------}
  8323. TSP_MicrofeedMicrofeedDataQuery = Class(TODataEntity)
  8324. private
  8325. FItemLimit : int64;
  8326. FQuery : string;
  8327. FViewFields : TStringArray;
  8328. FViewFieldsOnly : boolean;
  8329. procedure SetItemLimit(AIndex: Integer; const AValue: int64);
  8330. procedure SetQuery(AIndex: Integer; const AValue: string);
  8331. procedure SetViewFields(AIndex: Integer; const AValue: TStringArray);
  8332. procedure SetViewFieldsOnly(AIndex: Integer; const AValue: boolean);
  8333. protected
  8334. {$IFDEF VER2_6}
  8335. procedure SetArrayLength(const AName: String; ALength: Longint)
  8336. ; Override;
  8337. {$ENDIF VER2_6}
  8338. public
  8339. class function ObjectRestKind : String; Override;
  8340. published
  8341. Property ItemLimit : int64 index 0 read FItemLimit write SetItemLimit;
  8342. Property Query : string index 8 read FQuery write SetQuery;
  8343. Property ViewFields : TStringArray index 16 read FViewFields write SetViewFields;
  8344. Property ViewFieldsOnly : boolean index 24 read FViewFieldsOnly write SetViewFieldsOnly;
  8345. end;
  8346. { --------------------------------------------------------------------
  8347. SP.Microfeed: MicrofeedLinkAction
  8348. --------------------------------------------------------------------}
  8349. TSP_MicrofeedMicrofeedLinkAction = Class(TODataEntity)
  8350. private
  8351. FActionUri : string;
  8352. FHeight : int64;
  8353. FKind : TInt32;
  8354. FWidth : int64;
  8355. procedure SetActionUri(AIndex: Integer; const AValue: string);
  8356. procedure SetHeight(AIndex: Integer; const AValue: int64);
  8357. procedure SetKind(AIndex: Integer; const AValue: TInt32);
  8358. procedure SetWidth(AIndex: Integer; const AValue: int64);
  8359. public
  8360. class function ObjectRestKind : String; Override;
  8361. published
  8362. Property ActionUri : string index 0 read FActionUri write SetActionUri;
  8363. Property Height : int64 index 8 read FHeight write SetHeight;
  8364. Property Kind : TInt32 index 16 read FKind write SetKind;
  8365. Property Width : int64 index 24 read FWidth write SetWidth;
  8366. end;
  8367. { --------------------------------------------------------------------
  8368. SP.Microfeed: MicrofeedLink
  8369. --------------------------------------------------------------------}
  8370. TSP_MicrofeedMicrofeedLink = Class(TODataEntity)
  8371. private
  8372. FClickAction : TSP_MicrofeedMicrofeedLinkAction;
  8373. FContentUri : string;
  8374. FDescription : string;
  8375. FHeight : int64;
  8376. FHref : string;
  8377. F_Length : int64;
  8378. FLinkType : TInt32;
  8379. FName : string;
  8380. FPreviewHeight : int64;
  8381. FPreviewPictureUrl : string;
  8382. FPreviewWidth : int64;
  8383. FStatus : TInt32;
  8384. FWidth : int64;
  8385. procedure SetClickAction(AIndex: Integer;
  8386. const AValue: TSP_MicrofeedMicrofeedLinkAction);
  8387. procedure SetContentUri(AIndex: Integer; const AValue: string);
  8388. procedure SetDescription(AIndex: Integer; const AValue: string);
  8389. procedure SetHeight(AIndex: Integer; const AValue: int64);
  8390. procedure SetHref(AIndex: Integer; const AValue: string);
  8391. procedure Set_Length(AIndex: Integer; const AValue: int64);
  8392. procedure SetLinkType(AIndex: Integer; const AValue: TInt32);
  8393. procedure SetName(AIndex: Integer; const AValue: string);
  8394. procedure SetPreviewHeight(AIndex: Integer; const AValue: int64);
  8395. procedure SetPreviewPictureUrl(AIndex: Integer; const AValue: string);
  8396. procedure SetPreviewWidth(AIndex: Integer; const AValue: int64);
  8397. procedure SetStatus(AIndex: Integer; const AValue: TInt32);
  8398. procedure SetWidth(AIndex: Integer; const AValue: int64);
  8399. public
  8400. class function ObjectRestKind : String; Override;
  8401. class function ExportPropertyName(const AName: String) : String
  8402. ; Override;
  8403. published
  8404. Property ClickAction : TSP_MicrofeedMicrofeedLinkAction index 0 read FClickAction write SetClickAction;
  8405. Property ContentUri : string index 8 read FContentUri write SetContentUri;
  8406. Property Description : string index 16 read FDescription write SetDescription;
  8407. Property Height : int64 index 24 read FHeight write SetHeight;
  8408. Property Href : string index 32 read FHref write SetHref;
  8409. Property _Length : int64 index 40 read F_Length write Set_Length;
  8410. Property LinkType : TInt32 index 48 read FLinkType write SetLinkType;
  8411. Property Name : string index 56 read FName write SetName;
  8412. Property PreviewHeight : int64 index 64 read FPreviewHeight write SetPreviewHeight;
  8413. Property PreviewPictureUrl : string index 72 read FPreviewPictureUrl write SetPreviewPictureUrl;
  8414. Property PreviewWidth : int64 index 80 read FPreviewWidth write SetPreviewWidth;
  8415. Property Status : TInt32 index 88 read FStatus write SetStatus;
  8416. Property Width : int64 index 96 read FWidth write SetWidth;
  8417. end;
  8418. { --------------------------------------------------------------------
  8419. SP.Microfeed: MicrofeedPostCollection
  8420. --------------------------------------------------------------------}
  8421. TSP_MicrofeedMicrofeedPostCollection = Class(TODataEntity)
  8422. private
  8423. FItems : TSP_MicrofeedMicrofeedPostArray;
  8424. procedure SetItems(AIndex: Integer;
  8425. const AValue: TSP_MicrofeedMicrofeedPostArray);
  8426. protected
  8427. {$IFDEF VER2_6}
  8428. procedure SetArrayLength(const AName: String; ALength: Longint)
  8429. ; Override;
  8430. {$ENDIF VER2_6}
  8431. public
  8432. class function ObjectRestKind : String; Override;
  8433. published
  8434. Property Items : TSP_MicrofeedMicrofeedPostArray index 0 read FItems write SetItems;
  8435. end;
  8436. { --------------------------------------------------------------------
  8437. SP.Microfeed: MicrofeedPost
  8438. --------------------------------------------------------------------}
  8439. TSP_MicrofeedMicrofeedPost = Class(TODataEntity)
  8440. private
  8441. FAuthorIndex : TInt32;
  8442. FBreadCrumb : string;
  8443. FCanDelete : boolean;
  8444. FCanFollowUp : boolean;
  8445. FCanHaveAttachments : boolean;
  8446. FCanLike : boolean;
  8447. FCanLock : boolean;
  8448. FCanReply : boolean;
  8449. FContent : string;
  8450. FCreated : TDateTime;
  8451. FFooter : string;
  8452. FID : string;
  8453. FILikeIt : boolean;
  8454. FLikersList : TInt32Array;
  8455. FLocked : boolean;
  8456. FMediaLink : TSP_MicrofeedMicrofeedLink;
  8457. FMicroBlogType : TInt32;
  8458. FModified : TDateTime;
  8459. FPeopleCount : TInt32;
  8460. FPostImageUri : string;
  8461. FPostSource : string;
  8462. FPostSourceUri : string;
  8463. FReferenceID : string;
  8464. FRenderPostAuthorImage : boolean;
  8465. FReplyCount : TInt32;
  8466. FSmallImageSizePreferred : boolean;
  8467. FTitle : string;
  8468. procedure SetAuthorIndex(AIndex: Integer; const AValue: TInt32);
  8469. procedure SetBreadCrumb(AIndex: Integer; const AValue: string);
  8470. procedure SetCanDelete(AIndex: Integer; const AValue: boolean);
  8471. procedure SetCanFollowUp(AIndex: Integer; const AValue: boolean);
  8472. procedure SetCanHaveAttachments(AIndex: Integer; const AValue: boolean);
  8473. procedure SetCanLike(AIndex: Integer; const AValue: boolean);
  8474. procedure SetCanLock(AIndex: Integer; const AValue: boolean);
  8475. procedure SetCanReply(AIndex: Integer; const AValue: boolean);
  8476. procedure SetContent(AIndex: Integer; const AValue: string);
  8477. procedure SetCreated(AIndex: Integer; const AValue: TDateTime);
  8478. procedure SetFooter(AIndex: Integer; const AValue: string);
  8479. procedure SetID(AIndex: Integer; const AValue: string);
  8480. procedure SetILikeIt(AIndex: Integer; const AValue: boolean);
  8481. procedure SetLikersList(AIndex: Integer; const AValue: TInt32Array);
  8482. procedure SetLocked(AIndex: Integer; const AValue: boolean);
  8483. procedure SetMediaLink(AIndex: Integer;
  8484. const AValue: TSP_MicrofeedMicrofeedLink);
  8485. procedure SetMicroBlogType(AIndex: Integer; const AValue: TInt32);
  8486. procedure SetModified(AIndex: Integer; const AValue: TDateTime);
  8487. procedure SetPeopleCount(AIndex: Integer; const AValue: TInt32);
  8488. procedure SetPostImageUri(AIndex: Integer; const AValue: string);
  8489. procedure SetPostSource(AIndex: Integer; const AValue: string);
  8490. procedure SetPostSourceUri(AIndex: Integer; const AValue: string);
  8491. procedure SetReferenceID(AIndex: Integer; const AValue: string);
  8492. procedure SetRenderPostAuthorImage(AIndex: Integer;
  8493. const AValue: boolean);
  8494. procedure SetReplyCount(AIndex: Integer; const AValue: TInt32);
  8495. procedure SetSmallImageSizePreferred(AIndex: Integer;
  8496. const AValue: boolean);
  8497. procedure SetTitle(AIndex: Integer; const AValue: string);
  8498. protected
  8499. {$IFDEF VER2_6}
  8500. procedure SetArrayLength(const AName: String; ALength: Longint)
  8501. ; Override;
  8502. {$ENDIF VER2_6}
  8503. public
  8504. class function ObjectRestKind : String; Override;
  8505. published
  8506. Property AuthorIndex : TInt32 index 0 read FAuthorIndex write SetAuthorIndex;
  8507. Property BreadCrumb : string index 8 read FBreadCrumb write SetBreadCrumb;
  8508. Property CanDelete : boolean index 16 read FCanDelete write SetCanDelete;
  8509. Property CanFollowUp : boolean index 24 read FCanFollowUp write SetCanFollowUp;
  8510. Property CanHaveAttachments : boolean index 32 read FCanHaveAttachments write SetCanHaveAttachments;
  8511. Property CanLike : boolean index 40 read FCanLike write SetCanLike;
  8512. Property CanLock : boolean index 48 read FCanLock write SetCanLock;
  8513. Property CanReply : boolean index 56 read FCanReply write SetCanReply;
  8514. Property Content : string index 64 read FContent write SetContent;
  8515. Property Created : TDateTime index 72 read FCreated write SetCreated;
  8516. Property Footer : string index 80 read FFooter write SetFooter;
  8517. Property ID : string index 88 read FID write SetID;
  8518. Property ILikeIt : boolean index 96 read FILikeIt write SetILikeIt;
  8519. Property LikersList : TInt32Array index 104 read FLikersList write SetLikersList;
  8520. Property Locked : boolean index 112 read FLocked write SetLocked;
  8521. Property MediaLink : TSP_MicrofeedMicrofeedLink index 120 read FMediaLink write SetMediaLink;
  8522. Property MicroBlogType : TInt32 index 128 read FMicroBlogType write SetMicroBlogType;
  8523. Property Modified : TDateTime index 136 read FModified write SetModified;
  8524. Property PeopleCount : TInt32 index 144 read FPeopleCount write SetPeopleCount;
  8525. Property PostImageUri : string index 152 read FPostImageUri write SetPostImageUri;
  8526. Property PostSource : string index 160 read FPostSource write SetPostSource;
  8527. Property PostSourceUri : string index 168 read FPostSourceUri write SetPostSourceUri;
  8528. Property ReferenceID : string index 176 read FReferenceID write SetReferenceID;
  8529. Property RenderPostAuthorImage : boolean index 184 read FRenderPostAuthorImage write SetRenderPostAuthorImage;
  8530. Property ReplyCount : TInt32 index 192 read FReplyCount write SetReplyCount;
  8531. Property SmallImageSizePreferred : boolean index 200 read FSmallImageSizePreferred write SetSmallImageSizePreferred;
  8532. Property Title : string index 208 read FTitle write SetTitle;
  8533. end;
  8534. { --------------------------------------------------------------------
  8535. SP.Microfeed: MicrofeedPostDefinitionNames
  8536. --------------------------------------------------------------------}
  8537. TSP_MicrofeedMicrofeedPostDefinitionNames = Class(TODataEntity)
  8538. public
  8539. class function ObjectRestKind : String; Override;
  8540. end;
  8541. { --------------------------------------------------------------------
  8542. SP.Microfeed: MicrofeedPostDefinitionNameCollection
  8543. --------------------------------------------------------------------}
  8544. TSP_MicrofeedMicrofeedPostDefinitionNameCollection = Class(TODataEntity)
  8545. private
  8546. FItems : TStringArray;
  8547. procedure SetItems(AIndex: Integer; const AValue: TStringArray);
  8548. protected
  8549. {$IFDEF VER2_6}
  8550. procedure SetArrayLength(const AName: String; ALength: Longint)
  8551. ; Override;
  8552. {$ENDIF VER2_6}
  8553. public
  8554. class function ObjectRestKind : String; Override;
  8555. published
  8556. Property Items : TStringArray index 0 read FItems write SetItems;
  8557. end;
  8558. { --------------------------------------------------------------------
  8559. SP.Microfeed: MicrofeedPostOptions
  8560. --------------------------------------------------------------------}
  8561. TSP_MicrofeedMicrofeedPostOptions = Class(TODataEntity)
  8562. private
  8563. FContent : string;
  8564. FContentFormattingOption : TInt32;
  8565. FDataLinks : TSP_MicrofeedMicrofeedDataLinkCollection;
  8566. FDefinitionName : string;
  8567. FMediaLink : TSP_MicrofeedMicrofeedLink;
  8568. FPeopleList : TStringArray;
  8569. FPostSource : string;
  8570. FPostSourceUri : string;
  8571. FRefThread_ReferenceID : string;
  8572. FRefThread_RefReply : string;
  8573. FRefThread_RefRoot : string;
  8574. FTargetActor : string;
  8575. FUpdateStatusText : boolean;
  8576. procedure SetContent(AIndex: Integer; const AValue: string);
  8577. procedure SetContentFormattingOption(AIndex: Integer;
  8578. const AValue: TInt32);
  8579. procedure SetDataLinks(AIndex: Integer;
  8580. const AValue: TSP_MicrofeedMicrofeedDataLinkCollection);
  8581. procedure SetDefinitionName(AIndex: Integer; const AValue: string);
  8582. procedure SetMediaLink(AIndex: Integer;
  8583. const AValue: TSP_MicrofeedMicrofeedLink);
  8584. procedure SetPeopleList(AIndex: Integer; const AValue: TStringArray);
  8585. procedure SetPostSource(AIndex: Integer; const AValue: string);
  8586. procedure SetPostSourceUri(AIndex: Integer; const AValue: string);
  8587. procedure SetRefThread_ReferenceID(AIndex: Integer;
  8588. const AValue: string);
  8589. procedure SetRefThread_RefReply(AIndex: Integer; const AValue: string);
  8590. procedure SetRefThread_RefRoot(AIndex: Integer; const AValue: string);
  8591. procedure SetTargetActor(AIndex: Integer; const AValue: string);
  8592. procedure SetUpdateStatusText(AIndex: Integer; const AValue: boolean);
  8593. protected
  8594. {$IFDEF VER2_6}
  8595. procedure SetArrayLength(const AName: String; ALength: Longint)
  8596. ; Override;
  8597. {$ENDIF VER2_6}
  8598. public
  8599. class function ObjectRestKind : String; Override;
  8600. published
  8601. Property Content : string index 0 read FContent write SetContent;
  8602. Property ContentFormattingOption : TInt32 index 8 read FContentFormattingOption write SetContentFormattingOption;
  8603. Property DataLinks : TSP_MicrofeedMicrofeedDataLinkCollection index 16 read FDataLinks write SetDataLinks;
  8604. Property DefinitionName : string index 24 read FDefinitionName write SetDefinitionName;
  8605. Property MediaLink : TSP_MicrofeedMicrofeedLink index 32 read FMediaLink write SetMediaLink;
  8606. Property PeopleList : TStringArray index 40 read FPeopleList write SetPeopleList;
  8607. Property PostSource : string index 48 read FPostSource write SetPostSource;
  8608. Property PostSourceUri : string index 56 read FPostSourceUri write SetPostSourceUri;
  8609. Property RefThread_ReferenceID : string index 64 read FRefThread_ReferenceID write SetRefThread_ReferenceID;
  8610. Property RefThread_RefReply : string index 72 read FRefThread_RefReply write SetRefThread_RefReply;
  8611. Property RefThread_RefRoot : string index 80 read FRefThread_RefRoot write SetRefThread_RefRoot;
  8612. Property TargetActor : string index 88 read FTargetActor write SetTargetActor;
  8613. Property UpdateStatusText : boolean index 96 read FUpdateStatusText write SetUpdateStatusText;
  8614. end;
  8615. { --------------------------------------------------------------------
  8616. SP.Microfeed: MicrofeedRetrievalOptions
  8617. --------------------------------------------------------------------}
  8618. TSP_MicrofeedMicrofeedRetrievalOptions = Class(TODataEntity)
  8619. private
  8620. FContentFormattingOption : TInt32;
  8621. FContentOnly : boolean;
  8622. FDropAllSecurityTrimmablePosts : boolean;
  8623. FGatherUnreadMentionCountForUser : boolean;
  8624. FIncludedTypes : TInt32;
  8625. FNewerThan : TDateTime;
  8626. FOlderThan : TDateTime;
  8627. FPostDefinitionFilter : TStringArray;
  8628. FResultSortOrder : TInt32;
  8629. FThreadCount : TInt32;
  8630. procedure SetContentFormattingOption(AIndex: Integer;
  8631. const AValue: TInt32);
  8632. procedure SetContentOnly(AIndex: Integer; const AValue: boolean);
  8633. procedure SetDropAllSecurityTrimmablePosts(AIndex: Integer;
  8634. const AValue: boolean);
  8635. procedure SetGatherUnreadMentionCountForUser(AIndex: Integer;
  8636. const AValue: boolean);
  8637. procedure SetIncludedTypes(AIndex: Integer; const AValue: TInt32);
  8638. procedure SetNewerThan(AIndex: Integer; const AValue: TDateTime);
  8639. procedure SetOlderThan(AIndex: Integer; const AValue: TDateTime);
  8640. procedure SetPostDefinitionFilter(AIndex: Integer;
  8641. const AValue: TStringArray);
  8642. procedure SetResultSortOrder(AIndex: Integer; const AValue: TInt32);
  8643. procedure SetThreadCount(AIndex: Integer; const AValue: TInt32);
  8644. protected
  8645. {$IFDEF VER2_6}
  8646. procedure SetArrayLength(const AName: String; ALength: Longint)
  8647. ; Override;
  8648. {$ENDIF VER2_6}
  8649. public
  8650. class function ObjectRestKind : String; Override;
  8651. published
  8652. Property ContentFormattingOption : TInt32 index 0 read FContentFormattingOption write SetContentFormattingOption;
  8653. Property ContentOnly : boolean index 8 read FContentOnly write SetContentOnly;
  8654. Property DropAllSecurityTrimmablePosts : boolean index 16 read FDropAllSecurityTrimmablePosts write SetDropAllSecurityTrimmablePosts;
  8655. Property GatherUnreadMentionCountForUser : boolean index 24 read FGatherUnreadMentionCountForUser write SetGatherUnreadMentionCountForUser;
  8656. Property IncludedTypes : TInt32 index 32 read FIncludedTypes write SetIncludedTypes;
  8657. Property NewerThan : TDateTime index 40 read FNewerThan write SetNewerThan;
  8658. Property OlderThan : TDateTime index 48 read FOlderThan write SetOlderThan;
  8659. Property PostDefinitionFilter : TStringArray index 56 read FPostDefinitionFilter write SetPostDefinitionFilter;
  8660. Property ResultSortOrder : TInt32 index 64 read FResultSortOrder write SetResultSortOrder;
  8661. Property ThreadCount : TInt32 index 72 read FThreadCount write SetThreadCount;
  8662. end;
  8663. { --------------------------------------------------------------------
  8664. SP.Microfeed: MicrofeedThreadCollection
  8665. --------------------------------------------------------------------}
  8666. TSP_MicrofeedMicrofeedThreadCollection = Class(TODataEntity)
  8667. private
  8668. FCurrentUserUnreadMentionCount : TInt32;
  8669. FNewestProcessed : TDateTime;
  8670. FOldestProcessed : TDateTime;
  8671. FItems : TSP_MicrofeedMicrofeedThreadArray;
  8672. procedure SetCurrentUserUnreadMentionCount(AIndex: Integer;
  8673. const AValue: TInt32);
  8674. procedure SetNewestProcessed(AIndex: Integer; const AValue: TDateTime);
  8675. procedure SetOldestProcessed(AIndex: Integer; const AValue: TDateTime);
  8676. procedure SetItems(AIndex: Integer;
  8677. const AValue: TSP_MicrofeedMicrofeedThreadArray);
  8678. protected
  8679. {$IFDEF VER2_6}
  8680. procedure SetArrayLength(const AName: String; ALength: Longint)
  8681. ; Override;
  8682. {$ENDIF VER2_6}
  8683. public
  8684. class function ObjectRestKind : String; Override;
  8685. published
  8686. Property CurrentUserUnreadMentionCount : TInt32 index 0 read FCurrentUserUnreadMentionCount write SetCurrentUserUnreadMentionCount;
  8687. Property NewestProcessed : TDateTime index 8 read FNewestProcessed write SetNewestProcessed;
  8688. Property OldestProcessed : TDateTime index 16 read FOldestProcessed write SetOldestProcessed;
  8689. Property Items : TSP_MicrofeedMicrofeedThreadArray index 24 read FItems write SetItems;
  8690. end;
  8691. { --------------------------------------------------------------------
  8692. SP.Microfeed: MicrofeedThread
  8693. --------------------------------------------------------------------}
  8694. TSP_MicrofeedMicrofeedThread = Class(TODataEntity)
  8695. private
  8696. FCanFollowUp : boolean;
  8697. FCanHaveAttachments : boolean;
  8698. FCanLike : boolean;
  8699. FCanReply : boolean;
  8700. FDataLinks : TSP_MicrofeedMicrofeedDataLinkArray;
  8701. FDefinitionId : int64;
  8702. FDefinitionName : string;
  8703. FIdentifier : string;
  8704. FLocked : boolean;
  8705. FMicrofeedEntities : TSP_MicrofeedMicroBlogEntityArray;
  8706. FOwnerIndex : TInt32;
  8707. FRefReply : TSP_MicrofeedMicrofeedPost;
  8708. FRefRoot : TSP_MicrofeedMicrofeedPost;
  8709. FRenderPostAuthorImage : boolean;
  8710. FReplies : TSP_MicrofeedMicrofeedPostCollection;
  8711. FReplyCount : TInt32;
  8712. FRootPost : TSP_MicrofeedMicrofeedPost;
  8713. FSmallImageSizePreferred : boolean;
  8714. FStatus : TInt32;
  8715. procedure SetCanFollowUp(AIndex: Integer; const AValue: boolean);
  8716. procedure SetCanHaveAttachments(AIndex: Integer; const AValue: boolean);
  8717. procedure SetCanLike(AIndex: Integer; const AValue: boolean);
  8718. procedure SetCanReply(AIndex: Integer; const AValue: boolean);
  8719. procedure SetDataLinks(AIndex: Integer;
  8720. const AValue: TSP_MicrofeedMicrofeedDataLinkArray);
  8721. procedure SetDefinitionId(AIndex: Integer; const AValue: int64);
  8722. procedure SetDefinitionName(AIndex: Integer; const AValue: string);
  8723. procedure SetIdentifier(AIndex: Integer; const AValue: string);
  8724. procedure SetLocked(AIndex: Integer; const AValue: boolean);
  8725. procedure SetMicrofeedEntities(AIndex: Integer;
  8726. const AValue: TSP_MicrofeedMicroBlogEntityArray);
  8727. procedure SetOwnerIndex(AIndex: Integer; const AValue: TInt32);
  8728. procedure SetRefReply(AIndex: Integer;
  8729. const AValue: TSP_MicrofeedMicrofeedPost);
  8730. procedure SetRefRoot(AIndex: Integer;
  8731. const AValue: TSP_MicrofeedMicrofeedPost);
  8732. procedure SetRenderPostAuthorImage(AIndex: Integer;
  8733. const AValue: boolean);
  8734. procedure SetReplies(AIndex: Integer;
  8735. const AValue: TSP_MicrofeedMicrofeedPostCollection);
  8736. procedure SetReplyCount(AIndex: Integer; const AValue: TInt32);
  8737. procedure SetRootPost(AIndex: Integer;
  8738. const AValue: TSP_MicrofeedMicrofeedPost);
  8739. procedure SetSmallImageSizePreferred(AIndex: Integer;
  8740. const AValue: boolean);
  8741. procedure SetStatus(AIndex: Integer; const AValue: TInt32);
  8742. protected
  8743. {$IFDEF VER2_6}
  8744. procedure SetArrayLength(const AName: String; ALength: Longint)
  8745. ; Override;
  8746. {$ENDIF VER2_6}
  8747. public
  8748. class function ObjectRestKind : String; Override;
  8749. published
  8750. Property CanFollowUp : boolean index 0 read FCanFollowUp write SetCanFollowUp;
  8751. Property CanHaveAttachments : boolean index 8 read FCanHaveAttachments write SetCanHaveAttachments;
  8752. Property CanLike : boolean index 16 read FCanLike write SetCanLike;
  8753. Property CanReply : boolean index 24 read FCanReply write SetCanReply;
  8754. Property DataLinks : TSP_MicrofeedMicrofeedDataLinkArray index 32 read FDataLinks write SetDataLinks;
  8755. Property DefinitionId : int64 index 40 read FDefinitionId write SetDefinitionId;
  8756. Property DefinitionName : string index 48 read FDefinitionName write SetDefinitionName;
  8757. Property Identifier : string index 56 read FIdentifier write SetIdentifier;
  8758. Property Locked : boolean index 64 read FLocked write SetLocked;
  8759. Property MicrofeedEntities : TSP_MicrofeedMicroBlogEntityArray index 72 read FMicrofeedEntities write SetMicrofeedEntities;
  8760. Property OwnerIndex : TInt32 index 80 read FOwnerIndex write SetOwnerIndex;
  8761. Property RefReply : TSP_MicrofeedMicrofeedPost index 88 read FRefReply write SetRefReply;
  8762. Property RefRoot : TSP_MicrofeedMicrofeedPost index 96 read FRefRoot write SetRefRoot;
  8763. Property RenderPostAuthorImage : boolean index 104 read FRenderPostAuthorImage write SetRenderPostAuthorImage;
  8764. Property Replies : TSP_MicrofeedMicrofeedPostCollection index 112 read FReplies write SetReplies;
  8765. Property ReplyCount : TInt32 index 120 read FReplyCount write SetReplyCount;
  8766. Property RootPost : TSP_MicrofeedMicrofeedPost index 128 read FRootPost write SetRootPost;
  8767. Property SmallImageSizePreferred : boolean index 136 read FSmallImageSizePreferred write SetSmallImageSizePreferred;
  8768. Property Status : TInt32 index 144 read FStatus write SetStatus;
  8769. end;
  8770. { --------------------------------------------------------------------
  8771. SP.Microfeed: MicrofeedUserPostCollection
  8772. --------------------------------------------------------------------}
  8773. TSP_MicrofeedMicrofeedUserPostCollection = Class(TODataEntity)
  8774. private
  8775. FItems : TSP_MicrofeedMicrofeedUserPostsArray;
  8776. procedure SetItems(AIndex: Integer;
  8777. const AValue: TSP_MicrofeedMicrofeedUserPostsArray);
  8778. protected
  8779. {$IFDEF VER2_6}
  8780. procedure SetArrayLength(const AName: String; ALength: Longint)
  8781. ; Override;
  8782. {$ENDIF VER2_6}
  8783. public
  8784. class function ObjectRestKind : String; Override;
  8785. published
  8786. Property Items : TSP_MicrofeedMicrofeedUserPostsArray index 0 read FItems write SetItems;
  8787. end;
  8788. { --------------------------------------------------------------------
  8789. SP.Microfeed: MicrofeedUserPosts
  8790. --------------------------------------------------------------------}
  8791. TSP_MicrofeedMicrofeedUserPosts = Class(TODataEntity)
  8792. private
  8793. FAccountName : string;
  8794. procedure SetAccountName(AIndex: Integer; const AValue: string);
  8795. public
  8796. class function ObjectRestKind : String; Override;
  8797. published
  8798. Property AccountName : string index 0 read FAccountName write SetAccountName;
  8799. end;
  8800. { --------------------------------------------------------------------
  8801. SP.Microfeed: MicrofeedPostDefinitionManager
  8802. --------------------------------------------------------------------}
  8803. TSP_MicrofeedMicrofeedPostDefinitionManager = Class(TODataEntity)
  8804. private
  8805. FId4a81de82eeb94d6080ea5bf63e27023a : string;
  8806. procedure SetId4a81de82eeb94d6080ea5bf63e27023a(AIndex: Integer;
  8807. const AValue: string);
  8808. public
  8809. class function ObjectRestKind : String; Override;
  8810. function KeyAsURLPart : String; Override;
  8811. published
  8812. Property Id4a81de82eeb94d6080ea5bf63e27023a : string index 0 read FId4a81de82eeb94d6080ea5bf63e27023a write SetId4a81de82eeb94d6080ea5bf63e27023a;
  8813. end;
  8814. { --------------------------------------------------------------------
  8815. SP.Microfeed: MicrofeedAttachmentStore
  8816. --------------------------------------------------------------------}
  8817. TSP_MicrofeedMicrofeedAttachmentStore = Class(TODataEntity)
  8818. private
  8819. FId4a81de82eeb94d6080ea5bf63e27023a : string;
  8820. procedure SetId4a81de82eeb94d6080ea5bf63e27023a(AIndex: Integer;
  8821. const AValue: string);
  8822. public
  8823. class function ObjectRestKind : String; Override;
  8824. function KeyAsURLPart : String; Override;
  8825. published
  8826. Property Id4a81de82eeb94d6080ea5bf63e27023a : string index 0 read FId4a81de82eeb94d6080ea5bf63e27023a write SetId4a81de82eeb94d6080ea5bf63e27023a;
  8827. end;
  8828. { --------------------------------------------------------------------
  8829. SP.Microfeed: MicrofeedData
  8830. --------------------------------------------------------------------}
  8831. TSP_MicrofeedMicrofeedData = Class(TODataEntity)
  8832. private
  8833. FCreated : TDateTime;
  8834. FData : TSPKeyValueArray;
  8835. FDefinitionId : TInt32;
  8836. FItemType : TInt32;
  8837. FModified : TDateTime;
  8838. FTargetIdentifier : string;
  8839. FVersion : string;
  8840. procedure SetCreated(AIndex: Integer; const AValue: TDateTime);
  8841. procedure SetData(AIndex: Integer; const AValue: TSPKeyValueArray);
  8842. procedure SetDefinitionId(AIndex: Integer; const AValue: TInt32);
  8843. procedure SetItemType(AIndex: Integer; const AValue: TInt32);
  8844. procedure SetModified(AIndex: Integer; const AValue: TDateTime);
  8845. procedure SetTargetIdentifier(AIndex: Integer; const AValue: string);
  8846. procedure SetVersion(AIndex: Integer; const AValue: string);
  8847. protected
  8848. {$IFDEF VER2_6}
  8849. procedure SetArrayLength(const AName: String; ALength: Longint)
  8850. ; Override;
  8851. {$ENDIF VER2_6}
  8852. public
  8853. class function ObjectRestKind : String; Override;
  8854. function KeyAsURLPart : String; Override;
  8855. published
  8856. Property Created : TDateTime index 0 read FCreated write SetCreated;
  8857. Property Data : TSPKeyValueArray index 8 read FData write SetData;
  8858. Property DefinitionId : TInt32 index 16 read FDefinitionId write SetDefinitionId;
  8859. Property ItemType : TInt32 index 24 read FItemType write SetItemType;
  8860. Property Modified : TDateTime index 32 read FModified write SetModified;
  8861. Property TargetIdentifier : string index 40 read FTargetIdentifier write SetTargetIdentifier;
  8862. Property Version : string index 48 read FVersion write SetVersion;
  8863. end;
  8864. { --------------------------------------------------------------------
  8865. SP.Microfeed: MicrofeedManager
  8866. --------------------------------------------------------------------}
  8867. TSP_MicrofeedMicrofeedManager = Class(TODataEntity)
  8868. private
  8869. FCurrentUser : TSP_MicrofeedMicroBlogEntity;
  8870. FIsFeedActivityPublic : boolean;
  8871. FStaticThreadLink : string;
  8872. procedure SetCurrentUser(AIndex: Integer;
  8873. const AValue: TSP_MicrofeedMicroBlogEntity);
  8874. procedure SetIsFeedActivityPublic(AIndex: Integer;
  8875. const AValue: boolean);
  8876. procedure SetStaticThreadLink(AIndex: Integer; const AValue: string);
  8877. public
  8878. class function ObjectRestKind : String; Override;
  8879. function KeyAsURLPart : String; Override;
  8880. published
  8881. Property CurrentUser : TSP_MicrofeedMicroBlogEntity index 0 read FCurrentUser write SetCurrentUser;
  8882. Property IsFeedActivityPublic : boolean index 8 read FIsFeedActivityPublic write SetIsFeedActivityPublic;
  8883. Property StaticThreadLink : string index 16 read FStaticThreadLink write SetStaticThreadLink;
  8884. end;
  8885. { --------------------------------------------------------------------
  8886. SP.Microfeed: MicrofeedPostOptionCollection
  8887. --------------------------------------------------------------------}
  8888. TSP_MicrofeedMicrofeedPostOptionCollection = Class(TODataEntity)
  8889. private
  8890. FId4a81de82eeb94d6080ea5bf63e27023a : string;
  8891. FItems : TSP_MicrofeedMicrofeedPostOptionsArray;
  8892. procedure SetId4a81de82eeb94d6080ea5bf63e27023a(AIndex: Integer;
  8893. const AValue: string);
  8894. procedure SetItems(AIndex: Integer;
  8895. const AValue: TSP_MicrofeedMicrofeedPostOptionsArray);
  8896. protected
  8897. {$IFDEF VER2_6}
  8898. procedure SetArrayLength(const AName: String; ALength: Longint)
  8899. ; Override;
  8900. {$ENDIF VER2_6}
  8901. public
  8902. class function ObjectRestKind : String; Override;
  8903. function KeyAsURLPart : String; Override;
  8904. published
  8905. Property Id4a81de82eeb94d6080ea5bf63e27023a : string index 0 read FId4a81de82eeb94d6080ea5bf63e27023a write SetId4a81de82eeb94d6080ea5bf63e27023a;
  8906. Property Items : TSP_MicrofeedMicrofeedPostOptionsArray index 8 read FItems write SetItems;
  8907. end;
  8908. { --------------------------------------------------------------------
  8909. SP.Microfeed: MicrofeedStore
  8910. --------------------------------------------------------------------}
  8911. TSP_MicrofeedMicrofeedStore = Class(TODataEntity)
  8912. private
  8913. FId4a81de82eeb94d6080ea5bf63e27023a : string;
  8914. procedure SetId4a81de82eeb94d6080ea5bf63e27023a(AIndex: Integer;
  8915. const AValue: string);
  8916. public
  8917. class function ObjectRestKind : String; Override;
  8918. function KeyAsURLPart : String; Override;
  8919. published
  8920. Property Id4a81de82eeb94d6080ea5bf63e27023a : string index 0 read FId4a81de82eeb94d6080ea5bf63e27023a write SetId4a81de82eeb94d6080ea5bf63e27023a;
  8921. end;
  8922. { --------------------------------------------------------------------
  8923. SP.Social: SocialActorInfo
  8924. --------------------------------------------------------------------}
  8925. TSP_SocialSocialActorInfo = Class(TODataEntity)
  8926. private
  8927. FAccountName : string;
  8928. FActorType : TInt32;
  8929. FContentUri : string;
  8930. FId : string;
  8931. FTagGuid : TGUIDString;
  8932. procedure SetAccountName(AIndex: Integer; const AValue: string);
  8933. procedure SetActorType(AIndex: Integer; const AValue: TInt32);
  8934. procedure SetContentUri(AIndex: Integer; const AValue: string);
  8935. procedure SetId(AIndex: Integer; const AValue: string);
  8936. procedure SetTagGuid(AIndex: Integer; const AValue: TGUIDString);
  8937. public
  8938. class function ObjectRestKind : String; Override;
  8939. published
  8940. Property AccountName : string index 0 read FAccountName write SetAccountName;
  8941. Property ActorType : TInt32 index 8 read FActorType write SetActorType;
  8942. Property ContentUri : string index 16 read FContentUri write SetContentUri;
  8943. Property Id : string index 24 read FId write SetId;
  8944. Property TagGuid : TGUIDString index 32 read FTagGuid write SetTagGuid;
  8945. end;
  8946. { --------------------------------------------------------------------
  8947. SP.Social: SocialActor
  8948. --------------------------------------------------------------------}
  8949. TSP_SocialSocialActor = Class(TODataEntity)
  8950. private
  8951. FAccountName : string;
  8952. FActorType : TInt32;
  8953. FCanFollow : boolean;
  8954. FContentUri : string;
  8955. FEmailAddress : string;
  8956. FFollowedContentUri : string;
  8957. FId : string;
  8958. FImageUri : string;
  8959. FIsFollowed : boolean;
  8960. FLibraryUri : string;
  8961. FName : string;
  8962. FPersonalSiteUri : string;
  8963. FStatus : TInt32;
  8964. FStatusText : string;
  8965. FTagGuid : TGUIDString;
  8966. FTitle : string;
  8967. FUri : string;
  8968. procedure SetAccountName(AIndex: Integer; const AValue: string);
  8969. procedure SetActorType(AIndex: Integer; const AValue: TInt32);
  8970. procedure SetCanFollow(AIndex: Integer; const AValue: boolean);
  8971. procedure SetContentUri(AIndex: Integer; const AValue: string);
  8972. procedure SetEmailAddress(AIndex: Integer; const AValue: string);
  8973. procedure SetFollowedContentUri(AIndex: Integer; const AValue: string);
  8974. procedure SetId(AIndex: Integer; const AValue: string);
  8975. procedure SetImageUri(AIndex: Integer; const AValue: string);
  8976. procedure SetIsFollowed(AIndex: Integer; const AValue: boolean);
  8977. procedure SetLibraryUri(AIndex: Integer; const AValue: string);
  8978. procedure SetName(AIndex: Integer; const AValue: string);
  8979. procedure SetPersonalSiteUri(AIndex: Integer; const AValue: string);
  8980. procedure SetStatus(AIndex: Integer; const AValue: TInt32);
  8981. procedure SetStatusText(AIndex: Integer; const AValue: string);
  8982. procedure SetTagGuid(AIndex: Integer; const AValue: TGUIDString);
  8983. procedure SetTitle(AIndex: Integer; const AValue: string);
  8984. procedure SetUri(AIndex: Integer; const AValue: string);
  8985. public
  8986. class function ObjectRestKind : String; Override;
  8987. published
  8988. Property AccountName : string index 0 read FAccountName write SetAccountName;
  8989. Property ActorType : TInt32 index 8 read FActorType write SetActorType;
  8990. Property CanFollow : boolean index 16 read FCanFollow write SetCanFollow;
  8991. Property ContentUri : string index 24 read FContentUri write SetContentUri;
  8992. Property EmailAddress : string index 32 read FEmailAddress write SetEmailAddress;
  8993. Property FollowedContentUri : string index 40 read FFollowedContentUri write SetFollowedContentUri;
  8994. Property Id : string index 48 read FId write SetId;
  8995. Property ImageUri : string index 56 read FImageUri write SetImageUri;
  8996. Property IsFollowed : boolean index 64 read FIsFollowed write SetIsFollowed;
  8997. Property LibraryUri : string index 72 read FLibraryUri write SetLibraryUri;
  8998. Property Name : string index 80 read FName write SetName;
  8999. Property PersonalSiteUri : string index 88 read FPersonalSiteUri write SetPersonalSiteUri;
  9000. Property Status : TInt32 index 96 read FStatus write SetStatus;
  9001. Property StatusText : string index 104 read FStatusText write SetStatusText;
  9002. Property TagGuid : TGUIDString index 112 read FTagGuid write SetTagGuid;
  9003. Property Title : string index 120 read FTitle write SetTitle;
  9004. Property Uri : string index 128 read FUri write SetUri;
  9005. end;
  9006. { --------------------------------------------------------------------
  9007. SP.Social: SocialAttachmentAction
  9008. --------------------------------------------------------------------}
  9009. TSP_SocialSocialAttachmentAction = Class(TODataEntity)
  9010. private
  9011. FActionKind : TInt32;
  9012. FActionUri : string;
  9013. FHeight : int64;
  9014. FWidth : int64;
  9015. procedure SetActionKind(AIndex: Integer; const AValue: TInt32);
  9016. procedure SetActionUri(AIndex: Integer; const AValue: string);
  9017. procedure SetHeight(AIndex: Integer; const AValue: int64);
  9018. procedure SetWidth(AIndex: Integer; const AValue: int64);
  9019. public
  9020. class function ObjectRestKind : String; Override;
  9021. published
  9022. Property ActionKind : TInt32 index 0 read FActionKind write SetActionKind;
  9023. Property ActionUri : string index 8 read FActionUri write SetActionUri;
  9024. Property Height : int64 index 16 read FHeight write SetHeight;
  9025. Property Width : int64 index 24 read FWidth write SetWidth;
  9026. end;
  9027. { --------------------------------------------------------------------
  9028. SP.Social: SocialAttachment
  9029. --------------------------------------------------------------------}
  9030. TSP_SocialSocialAttachment = Class(TODataEntity)
  9031. private
  9032. FAttachmentKind : TInt32;
  9033. FClickAction : TSP_SocialSocialAttachmentAction;
  9034. FContentUri : string;
  9035. FDescription : string;
  9036. FHeight : int64;
  9037. F_Length : int64;
  9038. FName : string;
  9039. FPreviewHeight : int64;
  9040. FPreviewUri : string;
  9041. FPreviewWidth : int64;
  9042. FUri : string;
  9043. FWidth : int64;
  9044. procedure SetAttachmentKind(AIndex: Integer; const AValue: TInt32);
  9045. procedure SetClickAction(AIndex: Integer;
  9046. const AValue: TSP_SocialSocialAttachmentAction);
  9047. procedure SetContentUri(AIndex: Integer; const AValue: string);
  9048. procedure SetDescription(AIndex: Integer; const AValue: string);
  9049. procedure SetHeight(AIndex: Integer; const AValue: int64);
  9050. procedure Set_Length(AIndex: Integer; const AValue: int64);
  9051. procedure SetName(AIndex: Integer; const AValue: string);
  9052. procedure SetPreviewHeight(AIndex: Integer; const AValue: int64);
  9053. procedure SetPreviewUri(AIndex: Integer; const AValue: string);
  9054. procedure SetPreviewWidth(AIndex: Integer; const AValue: int64);
  9055. procedure SetUri(AIndex: Integer; const AValue: string);
  9056. procedure SetWidth(AIndex: Integer; const AValue: int64);
  9057. public
  9058. class function ObjectRestKind : String; Override;
  9059. class function ExportPropertyName(const AName: String) : String
  9060. ; Override;
  9061. published
  9062. Property AttachmentKind : TInt32 index 0 read FAttachmentKind write SetAttachmentKind;
  9063. Property ClickAction : TSP_SocialSocialAttachmentAction index 8 read FClickAction write SetClickAction;
  9064. Property ContentUri : string index 16 read FContentUri write SetContentUri;
  9065. Property Description : string index 24 read FDescription write SetDescription;
  9066. Property Height : int64 index 32 read FHeight write SetHeight;
  9067. Property _Length : int64 index 40 read F_Length write Set_Length;
  9068. Property Name : string index 48 read FName write SetName;
  9069. Property PreviewHeight : int64 index 56 read FPreviewHeight write SetPreviewHeight;
  9070. Property PreviewUri : string index 64 read FPreviewUri write SetPreviewUri;
  9071. Property PreviewWidth : int64 index 72 read FPreviewWidth write SetPreviewWidth;
  9072. Property Uri : string index 80 read FUri write SetUri;
  9073. Property Width : int64 index 88 read FWidth write SetWidth;
  9074. end;
  9075. { --------------------------------------------------------------------
  9076. SP.Social: SocialDataItem
  9077. --------------------------------------------------------------------}
  9078. TSP_SocialSocialDataItem = Class(TODataEntity)
  9079. private
  9080. FAccountName : string;
  9081. FItemType : TInt32;
  9082. FTagGuid : TGUIDString;
  9083. FText : string;
  9084. FUri : string;
  9085. procedure SetAccountName(AIndex: Integer; const AValue: string);
  9086. procedure SetItemType(AIndex: Integer; const AValue: TInt32);
  9087. procedure SetTagGuid(AIndex: Integer; const AValue: TGUIDString);
  9088. procedure SetText(AIndex: Integer; const AValue: string);
  9089. procedure SetUri(AIndex: Integer; const AValue: string);
  9090. public
  9091. class function ObjectRestKind : String; Override;
  9092. published
  9093. Property AccountName : string index 0 read FAccountName write SetAccountName;
  9094. Property ItemType : TInt32 index 8 read FItemType write SetItemType;
  9095. Property TagGuid : TGUIDString index 16 read FTagGuid write SetTagGuid;
  9096. Property Text : string index 24 read FText write SetText;
  9097. Property Uri : string index 32 read FUri write SetUri;
  9098. end;
  9099. { --------------------------------------------------------------------
  9100. SP.Social: SocialDataOverlay
  9101. --------------------------------------------------------------------}
  9102. TSP_SocialSocialDataOverlay = Class(TODataEntity)
  9103. private
  9104. FActorIndexes : TInt32Array;
  9105. FIndex : TInt32;
  9106. F_Length : TInt32;
  9107. FLinkUri : string;
  9108. FOverlayType : TInt32;
  9109. procedure SetActorIndexes(AIndex: Integer; const AValue: TInt32Array);
  9110. procedure SetIndex(AIndex: Integer; const AValue: TInt32);
  9111. procedure Set_Length(AIndex: Integer; const AValue: TInt32);
  9112. procedure SetLinkUri(AIndex: Integer; const AValue: string);
  9113. procedure SetOverlayType(AIndex: Integer; const AValue: TInt32);
  9114. protected
  9115. {$IFDEF VER2_6}
  9116. procedure SetArrayLength(const AName: String; ALength: Longint)
  9117. ; Override;
  9118. {$ENDIF VER2_6}
  9119. public
  9120. class function ObjectRestKind : String; Override;
  9121. class function ExportPropertyName(const AName: String) : String
  9122. ; Override;
  9123. published
  9124. Property ActorIndexes : TInt32Array index 0 read FActorIndexes write SetActorIndexes;
  9125. Property Index : TInt32 index 8 read FIndex write SetIndex;
  9126. Property _Length : TInt32 index 16 read F_Length write Set_Length;
  9127. Property LinkUri : string index 24 read FLinkUri write SetLinkUri;
  9128. Property OverlayType : TInt32 index 32 read FOverlayType write SetOverlayType;
  9129. end;
  9130. { --------------------------------------------------------------------
  9131. SP.Social: SocialExceptionDetails
  9132. --------------------------------------------------------------------}
  9133. TSP_SocialSocialExceptionDetails = Class(TODataEntity)
  9134. private
  9135. FInternalErrorCode : TInt32;
  9136. FInternalMessage : string;
  9137. FInternalStackTrace : string;
  9138. FInternalTypeName : string;
  9139. FStatus : TInt32;
  9140. procedure SetInternalErrorCode(AIndex: Integer; const AValue: TInt32);
  9141. procedure SetInternalMessage(AIndex: Integer; const AValue: string);
  9142. procedure SetInternalStackTrace(AIndex: Integer; const AValue: string);
  9143. procedure SetInternalTypeName(AIndex: Integer; const AValue: string);
  9144. procedure SetStatus(AIndex: Integer; const AValue: TInt32);
  9145. public
  9146. class function ObjectRestKind : String; Override;
  9147. published
  9148. Property InternalErrorCode : TInt32 index 0 read FInternalErrorCode write SetInternalErrorCode;
  9149. Property InternalMessage : string index 8 read FInternalMessage write SetInternalMessage;
  9150. Property InternalStackTrace : string index 16 read FInternalStackTrace write SetInternalStackTrace;
  9151. Property InternalTypeName : string index 24 read FInternalTypeName write SetInternalTypeName;
  9152. Property Status : TInt32 index 32 read FStatus write SetStatus;
  9153. end;
  9154. { --------------------------------------------------------------------
  9155. SP.Social: SocialFeedOptions
  9156. --------------------------------------------------------------------}
  9157. TSP_SocialSocialFeedOptions = Class(TODataEntity)
  9158. private
  9159. FMaxThreadCount : TInt32;
  9160. FNewerThan : TDateTime;
  9161. FOlderThan : TDateTime;
  9162. FSortOrder : TInt32;
  9163. procedure SetMaxThreadCount(AIndex: Integer; const AValue: TInt32);
  9164. procedure SetNewerThan(AIndex: Integer; const AValue: TDateTime);
  9165. procedure SetOlderThan(AIndex: Integer; const AValue: TDateTime);
  9166. procedure SetSortOrder(AIndex: Integer; const AValue: TInt32);
  9167. public
  9168. class function ObjectRestKind : String; Override;
  9169. published
  9170. Property MaxThreadCount : TInt32 index 0 read FMaxThreadCount write SetMaxThreadCount;
  9171. Property NewerThan : TDateTime index 8 read FNewerThan write SetNewerThan;
  9172. Property OlderThan : TDateTime index 16 read FOlderThan write SetOlderThan;
  9173. Property SortOrder : TInt32 index 24 read FSortOrder write SetSortOrder;
  9174. end;
  9175. { --------------------------------------------------------------------
  9176. SP.Social: SocialFeed
  9177. --------------------------------------------------------------------}
  9178. TSP_SocialSocialFeed = Class(TODataEntity)
  9179. private
  9180. FAttributes : TInt32;
  9181. FNewestProcessed : TDateTime;
  9182. FOldestProcessed : TDateTime;
  9183. FThreads : TSP_SocialSocialThreadArray;
  9184. FUnreadMentionCount : TInt32;
  9185. procedure SetAttributes(AIndex: Integer; const AValue: TInt32);
  9186. procedure SetNewestProcessed(AIndex: Integer; const AValue: TDateTime);
  9187. procedure SetOldestProcessed(AIndex: Integer; const AValue: TDateTime);
  9188. procedure SetThreads(AIndex: Integer;
  9189. const AValue: TSP_SocialSocialThreadArray);
  9190. procedure SetUnreadMentionCount(AIndex: Integer; const AValue: TInt32);
  9191. protected
  9192. {$IFDEF VER2_6}
  9193. procedure SetArrayLength(const AName: String; ALength: Longint)
  9194. ; Override;
  9195. {$ENDIF VER2_6}
  9196. public
  9197. class function ObjectRestKind : String; Override;
  9198. published
  9199. Property Attributes : TInt32 index 0 read FAttributes write SetAttributes;
  9200. Property NewestProcessed : TDateTime index 8 read FNewestProcessed write SetNewestProcessed;
  9201. Property OldestProcessed : TDateTime index 16 read FOldestProcessed write SetOldestProcessed;
  9202. Property Threads : TSP_SocialSocialThreadArray index 24 read FThreads write SetThreads;
  9203. Property UnreadMentionCount : TInt32 index 32 read FUnreadMentionCount write SetUnreadMentionCount;
  9204. end;
  9205. { --------------------------------------------------------------------
  9206. SP.Social: SocialThread
  9207. --------------------------------------------------------------------}
  9208. TSP_SocialSocialThread = Class(TODataEntity)
  9209. private
  9210. FActors : TSP_SocialSocialActorArray;
  9211. FAttributes : TInt32;
  9212. FId : string;
  9213. FOwnerIndex : TInt32;
  9214. FPermalink : string;
  9215. FPostReference : TSP_SocialSocialPostReference;
  9216. FReplies : TSP_SocialSocialPostArray;
  9217. FRootPost : TSP_SocialSocialPost;
  9218. FStatus : TInt32;
  9219. FThreadType : TInt32;
  9220. FTotalReplyCount : TInt32;
  9221. procedure SetActors(AIndex: Integer;
  9222. const AValue: TSP_SocialSocialActorArray);
  9223. procedure SetAttributes(AIndex: Integer; const AValue: TInt32);
  9224. procedure SetId(AIndex: Integer; const AValue: string);
  9225. procedure SetOwnerIndex(AIndex: Integer; const AValue: TInt32);
  9226. procedure SetPermalink(AIndex: Integer; const AValue: string);
  9227. procedure SetPostReference(AIndex: Integer;
  9228. const AValue: TSP_SocialSocialPostReference);
  9229. procedure SetReplies(AIndex: Integer;
  9230. const AValue: TSP_SocialSocialPostArray);
  9231. procedure SetRootPost(AIndex: Integer;
  9232. const AValue: TSP_SocialSocialPost);
  9233. procedure SetStatus(AIndex: Integer; const AValue: TInt32);
  9234. procedure SetThreadType(AIndex: Integer; const AValue: TInt32);
  9235. procedure SetTotalReplyCount(AIndex: Integer; const AValue: TInt32);
  9236. protected
  9237. {$IFDEF VER2_6}
  9238. procedure SetArrayLength(const AName: String; ALength: Longint)
  9239. ; Override;
  9240. {$ENDIF VER2_6}
  9241. public
  9242. class function ObjectRestKind : String; Override;
  9243. published
  9244. Property Actors : TSP_SocialSocialActorArray index 0 read FActors write SetActors;
  9245. Property Attributes : TInt32 index 8 read FAttributes write SetAttributes;
  9246. Property Id : string index 16 read FId write SetId;
  9247. Property OwnerIndex : TInt32 index 24 read FOwnerIndex write SetOwnerIndex;
  9248. Property Permalink : string index 32 read FPermalink write SetPermalink;
  9249. Property PostReference : TSP_SocialSocialPostReference index 40 read FPostReference write SetPostReference;
  9250. Property Replies : TSP_SocialSocialPostArray index 48 read FReplies write SetReplies;
  9251. Property RootPost : TSP_SocialSocialPost index 56 read FRootPost write SetRootPost;
  9252. Property Status : TInt32 index 64 read FStatus write SetStatus;
  9253. Property ThreadType : TInt32 index 72 read FThreadType write SetThreadType;
  9254. Property TotalReplyCount : TInt32 index 80 read FTotalReplyCount write SetTotalReplyCount;
  9255. end;
  9256. { --------------------------------------------------------------------
  9257. SP.Social: SocialPostReference
  9258. --------------------------------------------------------------------}
  9259. TSP_SocialSocialPostReference = Class(TODataEntity)
  9260. private
  9261. FDigest : TSP_SocialSocialThread;
  9262. FPost : TSP_SocialSocialPost;
  9263. FThreadId : string;
  9264. FThreadOwnerIndex : TInt32;
  9265. procedure SetDigest(AIndex: Integer;
  9266. const AValue: TSP_SocialSocialThread);
  9267. procedure SetPost(AIndex: Integer; const AValue: TSP_SocialSocialPost);
  9268. procedure SetThreadId(AIndex: Integer; const AValue: string);
  9269. procedure SetThreadOwnerIndex(AIndex: Integer; const AValue: TInt32);
  9270. public
  9271. class function ObjectRestKind : String; Override;
  9272. published
  9273. Property Digest : TSP_SocialSocialThread index 0 read FDigest write SetDigest;
  9274. Property Post : TSP_SocialSocialPost index 8 read FPost write SetPost;
  9275. Property ThreadId : string index 16 read FThreadId write SetThreadId;
  9276. Property ThreadOwnerIndex : TInt32 index 24 read FThreadOwnerIndex write SetThreadOwnerIndex;
  9277. end;
  9278. { --------------------------------------------------------------------
  9279. SP.Social: SocialPost
  9280. --------------------------------------------------------------------}
  9281. TSP_SocialSocialPost = Class(TODataEntity)
  9282. private
  9283. FAttachment : TSP_SocialSocialAttachment;
  9284. FAttributes : TInt32;
  9285. FAuthorIndex : TInt32;
  9286. FCreatedTime : TDateTime;
  9287. FId : string;
  9288. FLikerInfo : TSP_SocialSocialPostActorInfo;
  9289. FModifiedTime : TDateTime;
  9290. FOverlays : TSP_SocialSocialDataOverlayArray;
  9291. FPostType : TInt32;
  9292. FPreferredImageUri : string;
  9293. FSource : TSP_SocialSocialLink;
  9294. FText : string;
  9295. procedure SetAttachment(AIndex: Integer;
  9296. const AValue: TSP_SocialSocialAttachment);
  9297. procedure SetAttributes(AIndex: Integer; const AValue: TInt32);
  9298. procedure SetAuthorIndex(AIndex: Integer; const AValue: TInt32);
  9299. procedure SetCreatedTime(AIndex: Integer; const AValue: TDateTime);
  9300. procedure SetId(AIndex: Integer; const AValue: string);
  9301. procedure SetLikerInfo(AIndex: Integer;
  9302. const AValue: TSP_SocialSocialPostActorInfo);
  9303. procedure SetModifiedTime(AIndex: Integer; const AValue: TDateTime);
  9304. procedure SetOverlays(AIndex: Integer;
  9305. const AValue: TSP_SocialSocialDataOverlayArray);
  9306. procedure SetPostType(AIndex: Integer; const AValue: TInt32);
  9307. procedure SetPreferredImageUri(AIndex: Integer; const AValue: string);
  9308. procedure SetSource(AIndex: Integer; const AValue: TSP_SocialSocialLink);
  9309. procedure SetText(AIndex: Integer; const AValue: string);
  9310. protected
  9311. {$IFDEF VER2_6}
  9312. procedure SetArrayLength(const AName: String; ALength: Longint)
  9313. ; Override;
  9314. {$ENDIF VER2_6}
  9315. public
  9316. class function ObjectRestKind : String; Override;
  9317. published
  9318. Property Attachment : TSP_SocialSocialAttachment index 0 read FAttachment write SetAttachment;
  9319. Property Attributes : TInt32 index 8 read FAttributes write SetAttributes;
  9320. Property AuthorIndex : TInt32 index 16 read FAuthorIndex write SetAuthorIndex;
  9321. Property CreatedTime : TDateTime index 24 read FCreatedTime write SetCreatedTime;
  9322. Property Id : string index 32 read FId write SetId;
  9323. Property LikerInfo : TSP_SocialSocialPostActorInfo index 40 read FLikerInfo write SetLikerInfo;
  9324. Property ModifiedTime : TDateTime index 48 read FModifiedTime write SetModifiedTime;
  9325. Property Overlays : TSP_SocialSocialDataOverlayArray index 56 read FOverlays write SetOverlays;
  9326. Property PostType : TInt32 index 64 read FPostType write SetPostType;
  9327. Property PreferredImageUri : string index 72 read FPreferredImageUri write SetPreferredImageUri;
  9328. Property Source : TSP_SocialSocialLink index 80 read FSource write SetSource;
  9329. Property Text : string index 88 read FText write SetText;
  9330. end;
  9331. { --------------------------------------------------------------------
  9332. SP.Social: SocialPostActorInfo
  9333. --------------------------------------------------------------------}
  9334. TSP_SocialSocialPostActorInfo = Class(TODataEntity)
  9335. private
  9336. FIncludesCurrentUser : boolean;
  9337. FIndexes : TInt32Array;
  9338. FTotalCount : TInt32;
  9339. procedure SetIncludesCurrentUser(AIndex: Integer; const AValue: boolean);
  9340. procedure SetIndexes(AIndex: Integer; const AValue: TInt32Array);
  9341. procedure SetTotalCount(AIndex: Integer; const AValue: TInt32);
  9342. protected
  9343. {$IFDEF VER2_6}
  9344. procedure SetArrayLength(const AName: String; ALength: Longint)
  9345. ; Override;
  9346. {$ENDIF VER2_6}
  9347. public
  9348. class function ObjectRestKind : String; Override;
  9349. published
  9350. Property IncludesCurrentUser : boolean index 0 read FIncludesCurrentUser write SetIncludesCurrentUser;
  9351. Property Indexes : TInt32Array index 8 read FIndexes write SetIndexes;
  9352. Property TotalCount : TInt32 index 16 read FTotalCount write SetTotalCount;
  9353. end;
  9354. { --------------------------------------------------------------------
  9355. SP.Social: SocialLink
  9356. --------------------------------------------------------------------}
  9357. TSP_SocialSocialLink = Class(TODataEntity)
  9358. private
  9359. FText : string;
  9360. FUri : string;
  9361. procedure SetText(AIndex: Integer; const AValue: string);
  9362. procedure SetUri(AIndex: Integer; const AValue: string);
  9363. public
  9364. class function ObjectRestKind : String; Override;
  9365. published
  9366. Property Text : string index 0 read FText write SetText;
  9367. Property Uri : string index 8 read FUri write SetUri;
  9368. end;
  9369. { --------------------------------------------------------------------
  9370. SP.Social: SocialPostCreationData
  9371. --------------------------------------------------------------------}
  9372. TSP_SocialSocialPostCreationData = Class(TODataEntity)
  9373. private
  9374. FAttachment : TSP_SocialSocialAttachment;
  9375. FContentItems : TSP_SocialSocialDataItemArray;
  9376. FContentText : string;
  9377. FDefinitionData : TSP_SocialSocialPostDefinitionData;
  9378. FSecurityUris : TStringArray;
  9379. FSource : TSP_SocialSocialLink;
  9380. FUpdateStatusText : boolean;
  9381. procedure SetAttachment(AIndex: Integer;
  9382. const AValue: TSP_SocialSocialAttachment);
  9383. procedure SetContentItems(AIndex: Integer;
  9384. const AValue: TSP_SocialSocialDataItemArray);
  9385. procedure SetContentText(AIndex: Integer; const AValue: string);
  9386. procedure SetDefinitionData(AIndex: Integer;
  9387. const AValue: TSP_SocialSocialPostDefinitionData);
  9388. procedure SetSecurityUris(AIndex: Integer; const AValue: TStringArray);
  9389. procedure SetSource(AIndex: Integer; const AValue: TSP_SocialSocialLink);
  9390. procedure SetUpdateStatusText(AIndex: Integer; const AValue: boolean);
  9391. protected
  9392. {$IFDEF VER2_6}
  9393. procedure SetArrayLength(const AName: String; ALength: Longint)
  9394. ; Override;
  9395. {$ENDIF VER2_6}
  9396. public
  9397. class function ObjectRestKind : String; Override;
  9398. published
  9399. Property Attachment : TSP_SocialSocialAttachment index 0 read FAttachment write SetAttachment;
  9400. Property ContentItems : TSP_SocialSocialDataItemArray index 8 read FContentItems write SetContentItems;
  9401. Property ContentText : string index 16 read FContentText write SetContentText;
  9402. Property DefinitionData : TSP_SocialSocialPostDefinitionData index 24 read FDefinitionData write SetDefinitionData;
  9403. Property SecurityUris : TStringArray index 32 read FSecurityUris write SetSecurityUris;
  9404. Property Source : TSP_SocialSocialLink index 40 read FSource write SetSource;
  9405. Property UpdateStatusText : boolean index 48 read FUpdateStatusText write SetUpdateStatusText;
  9406. end;
  9407. { --------------------------------------------------------------------
  9408. SP.Social: SocialPostDefinitionData
  9409. --------------------------------------------------------------------}
  9410. TSP_SocialSocialPostDefinitionData = Class(TODataEntity)
  9411. private
  9412. FItems : TSP_SocialSocialPostDefinitionDataItemArray;
  9413. FName : string;
  9414. procedure SetItems(AIndex: Integer;
  9415. const AValue: TSP_SocialSocialPostDefinitionDataItemArray);
  9416. procedure SetName(AIndex: Integer; const AValue: string);
  9417. protected
  9418. {$IFDEF VER2_6}
  9419. procedure SetArrayLength(const AName: String; ALength: Longint)
  9420. ; Override;
  9421. {$ENDIF VER2_6}
  9422. public
  9423. class function ObjectRestKind : String; Override;
  9424. published
  9425. Property Items : TSP_SocialSocialPostDefinitionDataItemArray index 0 read FItems write SetItems;
  9426. Property Name : string index 8 read FName write SetName;
  9427. end;
  9428. { --------------------------------------------------------------------
  9429. SP.Social: SocialPostDefinitionDataItem
  9430. --------------------------------------------------------------------}
  9431. TSP_SocialSocialPostDefinitionDataItem = Class(TODataEntity)
  9432. private
  9433. FAccountName : string;
  9434. FItemType : TInt32;
  9435. FPlaceholderName : string;
  9436. FTagGuid : TGUIDString;
  9437. FText : string;
  9438. FUri : string;
  9439. procedure SetAccountName(AIndex: Integer; const AValue: string);
  9440. procedure SetItemType(AIndex: Integer; const AValue: TInt32);
  9441. procedure SetPlaceholderName(AIndex: Integer; const AValue: string);
  9442. procedure SetTagGuid(AIndex: Integer; const AValue: TGUIDString);
  9443. procedure SetText(AIndex: Integer; const AValue: string);
  9444. procedure SetUri(AIndex: Integer; const AValue: string);
  9445. public
  9446. class function ObjectRestKind : String; Override;
  9447. published
  9448. Property AccountName : string index 0 read FAccountName write SetAccountName;
  9449. Property ItemType : TInt32 index 8 read FItemType write SetItemType;
  9450. Property PlaceholderName : string index 16 read FPlaceholderName write SetPlaceholderName;
  9451. Property TagGuid : TGUIDString index 24 read FTagGuid write SetTagGuid;
  9452. Property Text : string index 32 read FText write SetText;
  9453. Property Uri : string index 40 read FUri write SetUri;
  9454. end;
  9455. { --------------------------------------------------------------------
  9456. SP.Social: SocialRestPostCreationData
  9457. --------------------------------------------------------------------}
  9458. TSP_SocialSocialRestPostCreationData = Class(TODataEntity)
  9459. private
  9460. FID : string;
  9461. FcreationData : TSP_SocialSocialPostCreationData;
  9462. procedure SetID(AIndex: Integer; const AValue: string);
  9463. procedure SetcreationData(AIndex: Integer;
  9464. const AValue: TSP_SocialSocialPostCreationData);
  9465. public
  9466. class function ObjectRestKind : String; Override;
  9467. published
  9468. Property ID : string index 0 read FID write SetID;
  9469. Property creationData : TSP_SocialSocialPostCreationData index 8 read FcreationData write SetcreationData;
  9470. end;
  9471. { --------------------------------------------------------------------
  9472. SP.Social: SocialAnnouncementManager
  9473. --------------------------------------------------------------------}
  9474. TSP_SocialSocialAnnouncementManager = Class(TODataEntity)
  9475. private
  9476. FId4a81de82eeb94d6080ea5bf63e27023a : string;
  9477. procedure SetId4a81de82eeb94d6080ea5bf63e27023a(AIndex: Integer;
  9478. const AValue: string);
  9479. public
  9480. class function ObjectRestKind : String; Override;
  9481. function KeyAsURLPart : String; Override;
  9482. published
  9483. Property Id4a81de82eeb94d6080ea5bf63e27023a : string index 0 read FId4a81de82eeb94d6080ea5bf63e27023a write SetId4a81de82eeb94d6080ea5bf63e27023a;
  9484. end;
  9485. { --------------------------------------------------------------------
  9486. SP.Social: SocialFeedManager
  9487. --------------------------------------------------------------------}
  9488. TSP_SocialSocialFeedManager = Class(TODataEntity)
  9489. private
  9490. FOwner : TSP_SocialSocialActor;
  9491. FPersonalSitePortalUri : string;
  9492. procedure SetOwner(AIndex: Integer; const AValue: TSP_SocialSocialActor);
  9493. procedure SetPersonalSitePortalUri(AIndex: Integer;
  9494. const AValue: string);
  9495. public
  9496. class function ObjectRestKind : String; Override;
  9497. function KeyAsURLPart : String; Override;
  9498. published
  9499. Property Owner : TSP_SocialSocialActor index 0 read FOwner write SetOwner;
  9500. Property PersonalSitePortalUri : string index 8 read FPersonalSitePortalUri write SetPersonalSitePortalUri;
  9501. end;
  9502. { --------------------------------------------------------------------
  9503. SP.Social: SocialFollowingManager
  9504. --------------------------------------------------------------------}
  9505. TSP_SocialSocialFollowingManager = Class(TODataEntity)
  9506. private
  9507. FFollowedDocumentsUri : string;
  9508. FFollowedSitesUri : string;
  9509. procedure SetFollowedDocumentsUri(AIndex: Integer; const AValue: string);
  9510. procedure SetFollowedSitesUri(AIndex: Integer; const AValue: string);
  9511. public
  9512. class function ObjectRestKind : String; Override;
  9513. function KeyAsURLPart : String; Override;
  9514. published
  9515. Property FollowedDocumentsUri : string index 0 read FFollowedDocumentsUri write SetFollowedDocumentsUri;
  9516. Property FollowedSitesUri : string index 8 read FFollowedSitesUri write SetFollowedSitesUri;
  9517. end;
  9518. { --------------------------------------------------------------------
  9519. SP.Social: SocialRestActor
  9520. --------------------------------------------------------------------}
  9521. TSP_SocialSocialRestActor = Class(TODataEntity)
  9522. private
  9523. FFollowableItem : string;
  9524. FFollowableItemActor : TSP_SocialSocialActor;
  9525. FMe : TSP_SocialSocialActor;
  9526. procedure SetFollowableItem(AIndex: Integer; const AValue: string);
  9527. procedure SetFollowableItemActor(AIndex: Integer;
  9528. const AValue: TSP_SocialSocialActor);
  9529. procedure SetMe(AIndex: Integer; const AValue: TSP_SocialSocialActor);
  9530. public
  9531. class function ObjectRestKind : String; Override;
  9532. function KeyAsURLPart : String; Override;
  9533. published
  9534. Property FollowableItem : string index 0 read FFollowableItem write SetFollowableItem;
  9535. Property FollowableItemActor : TSP_SocialSocialActor index 8 read FFollowableItemActor write SetFollowableItemActor;
  9536. Property Me : TSP_SocialSocialActor index 16 read FMe write SetMe;
  9537. end;
  9538. { --------------------------------------------------------------------
  9539. SP.Social: SocialRestFeedManager
  9540. --------------------------------------------------------------------}
  9541. TSP_SocialSocialRestFeedManager = Class(TODataEntity)
  9542. private
  9543. FId4a81de82eeb94d6080ea5bf63e27023a : string;
  9544. procedure SetId4a81de82eeb94d6080ea5bf63e27023a(AIndex: Integer;
  9545. const AValue: string);
  9546. public
  9547. class function ObjectRestKind : String; Override;
  9548. function KeyAsURLPart : String; Override;
  9549. published
  9550. Property Id4a81de82eeb94d6080ea5bf63e27023a : string index 0 read FId4a81de82eeb94d6080ea5bf63e27023a write SetId4a81de82eeb94d6080ea5bf63e27023a;
  9551. end;
  9552. { --------------------------------------------------------------------
  9553. SP.Social: SocialRestFeed
  9554. --------------------------------------------------------------------}
  9555. TSP_SocialSocialRestFeed = Class(TODataEntity)
  9556. private
  9557. FId4a81de82eeb94d6080ea5bf63e27023a : string;
  9558. FSocialFeed : TSP_SocialSocialFeed;
  9559. procedure SetId4a81de82eeb94d6080ea5bf63e27023a(AIndex: Integer;
  9560. const AValue: string);
  9561. procedure SetSocialFeed(AIndex: Integer;
  9562. const AValue: TSP_SocialSocialFeed);
  9563. public
  9564. class function ObjectRestKind : String; Override;
  9565. function KeyAsURLPart : String; Override;
  9566. published
  9567. Property Id4a81de82eeb94d6080ea5bf63e27023a : string index 0 read FId4a81de82eeb94d6080ea5bf63e27023a write SetId4a81de82eeb94d6080ea5bf63e27023a;
  9568. Property SocialFeed : TSP_SocialSocialFeed index 8 read FSocialFeed write SetSocialFeed;
  9569. end;
  9570. { --------------------------------------------------------------------
  9571. SP.Social: SocialRestFollowingManager
  9572. --------------------------------------------------------------------}
  9573. TSP_SocialSocialRestFollowingManager = Class(TODataEntity)
  9574. private
  9575. FFollowedDocumentsUri : string;
  9576. FFollowedSitesUri : string;
  9577. FMyFollowedDocumentsUri : string;
  9578. FMyFollowedSitesUri : string;
  9579. FSocialActor : TSP_SocialSocialActor;
  9580. procedure SetFollowedDocumentsUri(AIndex: Integer; const AValue: string);
  9581. procedure SetFollowedSitesUri(AIndex: Integer; const AValue: string);
  9582. procedure SetMyFollowedDocumentsUri(AIndex: Integer;
  9583. const AValue: string);
  9584. procedure SetMyFollowedSitesUri(AIndex: Integer; const AValue: string);
  9585. procedure SetSocialActor(AIndex: Integer;
  9586. const AValue: TSP_SocialSocialActor);
  9587. public
  9588. class function ObjectRestKind : String; Override;
  9589. function KeyAsURLPart : String; Override;
  9590. published
  9591. Property FollowedDocumentsUri : string index 0 read FFollowedDocumentsUri write SetFollowedDocumentsUri;
  9592. Property FollowedSitesUri : string index 8 read FFollowedSitesUri write SetFollowedSitesUri;
  9593. Property MyFollowedDocumentsUri : string index 16 read FMyFollowedDocumentsUri write SetMyFollowedDocumentsUri;
  9594. Property MyFollowedSitesUri : string index 24 read FMyFollowedSitesUri write SetMyFollowedSitesUri;
  9595. Property SocialActor : TSP_SocialSocialActor index 32 read FSocialActor write SetSocialActor;
  9596. end;
  9597. { --------------------------------------------------------------------
  9598. SP.Social: SocialRestThread
  9599. --------------------------------------------------------------------}
  9600. TSP_SocialSocialRestThread = Class(TODataEntity)
  9601. private
  9602. FID : string;
  9603. FSocialThread : TSP_SocialSocialThread;
  9604. procedure SetID(AIndex: Integer; const AValue: string);
  9605. procedure SetSocialThread(AIndex: Integer;
  9606. const AValue: TSP_SocialSocialThread);
  9607. public
  9608. class function ObjectRestKind : String; Override;
  9609. function KeyAsURLPart : String; Override;
  9610. published
  9611. Property ID : string index 0 read FID write SetID;
  9612. Property SocialThread : TSP_SocialSocialThread index 8 read FSocialThread write SetSocialThread;
  9613. end;
  9614. { --------------------------------------------------------------------
  9615. SP.UserProfiles: FollowedItem
  9616. --------------------------------------------------------------------}
  9617. TSP_UserProfilesFollowedItem = Class(TODataEntity)
  9618. private
  9619. FData : TSPKeyValueArray;
  9620. FFileType : string;
  9621. FFileTypeProgid : string;
  9622. FFlags : string;
  9623. FGroupId : TGUIDString;
  9624. FHasFeed : boolean;
  9625. FHidden : boolean;
  9626. FIconUrl : string;
  9627. FItemId : TInt32;
  9628. FItemType : TInt32;
  9629. FListId : TGUIDString;
  9630. FParentUrl : string;
  9631. FPinned : TInt32;
  9632. FServerUrlProgid : string;
  9633. FSiteId : TGUIDString;
  9634. FSubtype : TInt32;
  9635. FTitle : string;
  9636. FUniqueId : TGUIDString;
  9637. FUrl : string;
  9638. FWebId : TGUIDString;
  9639. procedure SetData(AIndex: Integer; const AValue: TSPKeyValueArray);
  9640. procedure SetFileType(AIndex: Integer; const AValue: string);
  9641. procedure SetFileTypeProgid(AIndex: Integer; const AValue: string);
  9642. procedure SetFlags(AIndex: Integer; const AValue: string);
  9643. procedure SetGroupId(AIndex: Integer; const AValue: TGUIDString);
  9644. procedure SetHasFeed(AIndex: Integer; const AValue: boolean);
  9645. procedure SetHidden(AIndex: Integer; const AValue: boolean);
  9646. procedure SetIconUrl(AIndex: Integer; const AValue: string);
  9647. procedure SetItemId(AIndex: Integer; const AValue: TInt32);
  9648. procedure SetItemType(AIndex: Integer; const AValue: TInt32);
  9649. procedure SetListId(AIndex: Integer; const AValue: TGUIDString);
  9650. procedure SetParentUrl(AIndex: Integer; const AValue: string);
  9651. procedure SetPinned(AIndex: Integer; const AValue: TInt32);
  9652. procedure SetServerUrlProgid(AIndex: Integer; const AValue: string);
  9653. procedure SetSiteId(AIndex: Integer; const AValue: TGUIDString);
  9654. procedure SetSubtype(AIndex: Integer; const AValue: TInt32);
  9655. procedure SetTitle(AIndex: Integer; const AValue: string);
  9656. procedure SetUniqueId(AIndex: Integer; const AValue: TGUIDString);
  9657. procedure SetUrl(AIndex: Integer; const AValue: string);
  9658. procedure SetWebId(AIndex: Integer; const AValue: TGUIDString);
  9659. protected
  9660. {$IFDEF VER2_6}
  9661. procedure SetArrayLength(const AName: String; ALength: Longint)
  9662. ; Override;
  9663. {$ENDIF VER2_6}
  9664. public
  9665. class function ObjectRestKind : String; Override;
  9666. published
  9667. Property Data : TSPKeyValueArray index 0 read FData write SetData;
  9668. Property FileType : string index 8 read FFileType write SetFileType;
  9669. Property FileTypeProgid : string index 16 read FFileTypeProgid write SetFileTypeProgid;
  9670. Property Flags : string index 24 read FFlags write SetFlags;
  9671. Property GroupId : TGUIDString index 32 read FGroupId write SetGroupId;
  9672. Property HasFeed : boolean index 40 read FHasFeed write SetHasFeed;
  9673. Property Hidden : boolean index 48 read FHidden write SetHidden;
  9674. Property IconUrl : string index 56 read FIconUrl write SetIconUrl;
  9675. Property ItemId : TInt32 index 64 read FItemId write SetItemId;
  9676. Property ItemType : TInt32 index 72 read FItemType write SetItemType;
  9677. Property ListId : TGUIDString index 80 read FListId write SetListId;
  9678. Property ParentUrl : string index 88 read FParentUrl write SetParentUrl;
  9679. Property Pinned : TInt32 index 96 read FPinned write SetPinned;
  9680. Property ServerUrlProgid : string index 104 read FServerUrlProgid write SetServerUrlProgid;
  9681. Property SiteId : TGUIDString index 112 read FSiteId write SetSiteId;
  9682. Property Subtype : TInt32 index 120 read FSubtype write SetSubtype;
  9683. Property Title : string index 128 read FTitle write SetTitle;
  9684. Property UniqueId : TGUIDString index 136 read FUniqueId write SetUniqueId;
  9685. Property Url : string index 144 read FUrl write SetUrl;
  9686. Property WebId : TGUIDString index 152 read FWebId write SetWebId;
  9687. end;
  9688. { --------------------------------------------------------------------
  9689. SP.UserProfiles: FollowResult
  9690. --------------------------------------------------------------------}
  9691. TSP_UserProfilesFollowResult = Class(TODataEntity)
  9692. private
  9693. FItem : TSP_UserProfilesFollowedItem;
  9694. FResultType : TInt32;
  9695. procedure SetItem(AIndex: Integer;
  9696. const AValue: TSP_UserProfilesFollowedItem);
  9697. procedure SetResultType(AIndex: Integer; const AValue: TInt32);
  9698. public
  9699. class function ObjectRestKind : String; Override;
  9700. published
  9701. Property Item : TSP_UserProfilesFollowedItem index 0 read FItem write SetItem;
  9702. Property ResultType : TInt32 index 8 read FResultType write SetResultType;
  9703. end;
  9704. { --------------------------------------------------------------------
  9705. SP.UserProfiles: HashTag
  9706. --------------------------------------------------------------------}
  9707. TSP_UserProfilesHashTag = Class(TODataEntity)
  9708. private
  9709. FName : string;
  9710. FUseCount : int64;
  9711. procedure SetName(AIndex: Integer; const AValue: string);
  9712. procedure SetUseCount(AIndex: Integer; const AValue: int64);
  9713. public
  9714. class function ObjectRestKind : String; Override;
  9715. published
  9716. Property Name : string index 0 read FName write SetName;
  9717. Property UseCount : int64 index 8 read FUseCount write SetUseCount;
  9718. end;
  9719. { --------------------------------------------------------------------
  9720. SP.UserProfiles: FollowedContent
  9721. --------------------------------------------------------------------}
  9722. TSP_UserProfilesFollowedContent = Class(TODataEntity)
  9723. private
  9724. FFollowedDocumentsUrl : string;
  9725. FFollowedSitesUrl : string;
  9726. procedure SetFollowedDocumentsUrl(AIndex: Integer; const AValue: string);
  9727. procedure SetFollowedSitesUrl(AIndex: Integer; const AValue: string);
  9728. public
  9729. class function ObjectRestKind : String; Override;
  9730. function KeyAsURLPart : String; Override;
  9731. published
  9732. Property FollowedDocumentsUrl : string index 0 read FFollowedDocumentsUrl write SetFollowedDocumentsUrl;
  9733. Property FollowedSitesUrl : string index 8 read FFollowedSitesUrl write SetFollowedSitesUrl;
  9734. end;
  9735. { --------------------------------------------------------------------
  9736. SP.UserProfiles: FollowedItemData
  9737. --------------------------------------------------------------------}
  9738. TSP_UserProfilesFollowedItemData = Class(TODataEntity)
  9739. private
  9740. FId4a81de82eeb94d6080ea5bf63e27023a : string;
  9741. FProperties : TSPKeyValueArray;
  9742. procedure SetId4a81de82eeb94d6080ea5bf63e27023a(AIndex: Integer;
  9743. const AValue: string);
  9744. procedure SetProperties(AIndex: Integer; const AValue: TSPKeyValueArray);
  9745. protected
  9746. {$IFDEF VER2_6}
  9747. procedure SetArrayLength(const AName: String; ALength: Longint)
  9748. ; Override;
  9749. {$ENDIF VER2_6}
  9750. public
  9751. class function ObjectRestKind : String; Override;
  9752. function KeyAsURLPart : String; Override;
  9753. published
  9754. Property Id4a81de82eeb94d6080ea5bf63e27023a : string index 0 read FId4a81de82eeb94d6080ea5bf63e27023a write SetId4a81de82eeb94d6080ea5bf63e27023a;
  9755. Property Properties : TSPKeyValueArray index 8 read FProperties write SetProperties;
  9756. end;
  9757. { --------------------------------------------------------------------
  9758. SP.UserProfiles: HashTagCollection
  9759. --------------------------------------------------------------------}
  9760. TSP_UserProfilesHashTagCollection = Class(TODataEntity)
  9761. private
  9762. FId4a81de82eeb94d6080ea5bf63e27023a : string;
  9763. FItems : TSP_UserProfilesHashTagArray;
  9764. procedure SetId4a81de82eeb94d6080ea5bf63e27023a(AIndex: Integer;
  9765. const AValue: string);
  9766. procedure SetItems(AIndex: Integer;
  9767. const AValue: TSP_UserProfilesHashTagArray);
  9768. protected
  9769. {$IFDEF VER2_6}
  9770. procedure SetArrayLength(const AName: String; ALength: Longint)
  9771. ; Override;
  9772. {$ENDIF VER2_6}
  9773. public
  9774. class function ObjectRestKind : String; Override;
  9775. function KeyAsURLPart : String; Override;
  9776. published
  9777. Property Id4a81de82eeb94d6080ea5bf63e27023a : string index 0 read FId4a81de82eeb94d6080ea5bf63e27023a write SetId4a81de82eeb94d6080ea5bf63e27023a;
  9778. Property Items : TSP_UserProfilesHashTagArray index 8 read FItems write SetItems;
  9779. end;
  9780. { --------------------------------------------------------------------
  9781. SP.UserProfiles: PeopleManager
  9782. --------------------------------------------------------------------}
  9783. TSP_UserProfilesPeopleManager = Class(TODataEntity)
  9784. private
  9785. FEditProfileLink : string;
  9786. FIsMyPeopleListPublic : boolean;
  9787. procedure SetEditProfileLink(AIndex: Integer; const AValue: string);
  9788. procedure SetIsMyPeopleListPublic(AIndex: Integer;
  9789. const AValue: boolean);
  9790. public
  9791. class function ObjectRestKind : String; Override;
  9792. function KeyAsURLPart : String; Override;
  9793. published
  9794. Property EditProfileLink : string index 0 read FEditProfileLink write SetEditProfileLink;
  9795. Property IsMyPeopleListPublic : boolean index 8 read FIsMyPeopleListPublic write SetIsMyPeopleListPublic;
  9796. end;
  9797. { --------------------------------------------------------------------
  9798. SP.UserProfiles: PersonProperties
  9799. --------------------------------------------------------------------}
  9800. TSP_UserProfilesPersonProperties = Class(TODataEntity)
  9801. private
  9802. FAccountName : string;
  9803. FDirectReports : TStringArray;
  9804. FDisplayName : string;
  9805. FEmail : string;
  9806. FExtendedManagers : TStringArray;
  9807. FExtendedReports : TStringArray;
  9808. FIsFollowed : boolean;
  9809. FLatestPost : string;
  9810. FPeers : TStringArray;
  9811. FPersonalUrl : string;
  9812. FPictureUrl : string;
  9813. FTitle : string;
  9814. FUserProfileProperties : TSPKeyValueArray;
  9815. FUserUrl : string;
  9816. procedure SetAccountName(AIndex: Integer; const AValue: string);
  9817. procedure SetDirectReports(AIndex: Integer; const AValue: TStringArray);
  9818. procedure SetDisplayName(AIndex: Integer; const AValue: string);
  9819. procedure SetEmail(AIndex: Integer; const AValue: string);
  9820. procedure SetExtendedManagers(AIndex: Integer;
  9821. const AValue: TStringArray);
  9822. procedure SetExtendedReports(AIndex: Integer;
  9823. const AValue: TStringArray);
  9824. procedure SetIsFollowed(AIndex: Integer; const AValue: boolean);
  9825. procedure SetLatestPost(AIndex: Integer; const AValue: string);
  9826. procedure SetPeers(AIndex: Integer; const AValue: TStringArray);
  9827. procedure SetPersonalUrl(AIndex: Integer; const AValue: string);
  9828. procedure SetPictureUrl(AIndex: Integer; const AValue: string);
  9829. procedure SetTitle(AIndex: Integer; const AValue: string);
  9830. procedure SetUserProfileProperties(AIndex: Integer;
  9831. const AValue: TSPKeyValueArray);
  9832. procedure SetUserUrl(AIndex: Integer; const AValue: string);
  9833. protected
  9834. {$IFDEF VER2_6}
  9835. procedure SetArrayLength(const AName: String; ALength: Longint)
  9836. ; Override;
  9837. {$ENDIF VER2_6}
  9838. public
  9839. class function ObjectRestKind : String; Override;
  9840. function KeyAsURLPart : String; Override;
  9841. published
  9842. Property AccountName : string index 0 read FAccountName write SetAccountName;
  9843. Property DirectReports : TStringArray index 8 read FDirectReports write SetDirectReports;
  9844. Property DisplayName : string index 16 read FDisplayName write SetDisplayName;
  9845. Property Email : string index 24 read FEmail write SetEmail;
  9846. Property ExtendedManagers : TStringArray index 32 read FExtendedManagers write SetExtendedManagers;
  9847. Property ExtendedReports : TStringArray index 40 read FExtendedReports write SetExtendedReports;
  9848. Property IsFollowed : boolean index 48 read FIsFollowed write SetIsFollowed;
  9849. Property LatestPost : string index 56 read FLatestPost write SetLatestPost;
  9850. Property Peers : TStringArray index 64 read FPeers write SetPeers;
  9851. Property PersonalUrl : string index 72 read FPersonalUrl write SetPersonalUrl;
  9852. Property PictureUrl : string index 80 read FPictureUrl write SetPictureUrl;
  9853. Property Title : string index 88 read FTitle write SetTitle;
  9854. Property UserProfileProperties : TSPKeyValueArray index 96 read FUserProfileProperties write SetUserProfileProperties;
  9855. Property UserUrl : string index 104 read FUserUrl write SetUserUrl;
  9856. end;
  9857. { --------------------------------------------------------------------
  9858. SP.UserProfiles: ProfileImageStore
  9859. --------------------------------------------------------------------}
  9860. TSP_UserProfilesProfileImageStore = Class(TODataEntity)
  9861. private
  9862. FId4a81de82eeb94d6080ea5bf63e27023a : string;
  9863. procedure SetId4a81de82eeb94d6080ea5bf63e27023a(AIndex: Integer;
  9864. const AValue: string);
  9865. public
  9866. class function ObjectRestKind : String; Override;
  9867. function KeyAsURLPart : String; Override;
  9868. published
  9869. Property Id4a81de82eeb94d6080ea5bf63e27023a : string index 0 read FId4a81de82eeb94d6080ea5bf63e27023a write SetId4a81de82eeb94d6080ea5bf63e27023a;
  9870. end;
  9871. { --------------------------------------------------------------------
  9872. SP.UserProfiles: ProfileLoader
  9873. --------------------------------------------------------------------}
  9874. TSP_UserProfilesProfileLoader = Class(TODataEntity)
  9875. private
  9876. FId4a81de82eeb94d6080ea5bf63e27023a : string;
  9877. procedure SetId4a81de82eeb94d6080ea5bf63e27023a(AIndex: Integer;
  9878. const AValue: string);
  9879. public
  9880. class function ObjectRestKind : String; Override;
  9881. function KeyAsURLPart : String; Override;
  9882. published
  9883. Property Id4a81de82eeb94d6080ea5bf63e27023a : string index 0 read FId4a81de82eeb94d6080ea5bf63e27023a write SetId4a81de82eeb94d6080ea5bf63e27023a;
  9884. end;
  9885. { --------------------------------------------------------------------
  9886. SP.UserProfiles: UserProfilePropertiesForUser
  9887. --------------------------------------------------------------------}
  9888. TSP_UserProfilesUserProfilePropertiesForUser = Class(TODataEntity)
  9889. private
  9890. FAccountName : string;
  9891. procedure SetAccountName(AIndex: Integer; const AValue: string);
  9892. public
  9893. class function ObjectRestKind : String; Override;
  9894. function KeyAsURLPart : String; Override;
  9895. published
  9896. Property AccountName : string index 0 read FAccountName write SetAccountName;
  9897. end;
  9898. { --------------------------------------------------------------------
  9899. SP.UserProfiles: UserProfile
  9900. --------------------------------------------------------------------}
  9901. TSP_UserProfilesUserProfile = Class(TODataEntity)
  9902. private
  9903. FAccountName : string;
  9904. FDisplayName : string;
  9905. FIsPeopleListPublic : boolean;
  9906. FIsPrivacySettingOn : boolean;
  9907. FIsSelf : boolean;
  9908. FJobTitle : string;
  9909. FMySiteFirstRunExperience : TInt32;
  9910. FMySiteHostUrl : string;
  9911. FO15FirstRunExperience : TInt32;
  9912. FPersonalSiteCapabilities : TInt32;
  9913. FPersonalSiteFirstCreationError : string;
  9914. FPersonalSiteFirstCreationTime : TDateTime;
  9915. FPersonalSiteInstantiationState : TInt32;
  9916. FPersonalSiteLastCreationTime : TDateTime;
  9917. FPersonalSiteNumberOfRetries : TInt32;
  9918. FPictureImportEnabled : boolean;
  9919. FPictureUrl : string;
  9920. FPublicUrl : string;
  9921. FSipAddress : string;
  9922. FUrlToCreatePersonalSite : string;
  9923. procedure SetAccountName(AIndex: Integer; const AValue: string);
  9924. procedure SetDisplayName(AIndex: Integer; const AValue: string);
  9925. procedure SetIsPeopleListPublic(AIndex: Integer; const AValue: boolean);
  9926. procedure SetIsPrivacySettingOn(AIndex: Integer; const AValue: boolean);
  9927. procedure SetIsSelf(AIndex: Integer; const AValue: boolean);
  9928. procedure SetJobTitle(AIndex: Integer; const AValue: string);
  9929. procedure SetMySiteFirstRunExperience(AIndex: Integer;
  9930. const AValue: TInt32);
  9931. procedure SetMySiteHostUrl(AIndex: Integer; const AValue: string);
  9932. procedure SetO15FirstRunExperience(AIndex: Integer;
  9933. const AValue: TInt32);
  9934. procedure SetPersonalSiteCapabilities(AIndex: Integer;
  9935. const AValue: TInt32);
  9936. procedure SetPersonalSiteFirstCreationError(AIndex: Integer;
  9937. const AValue: string);
  9938. procedure SetPersonalSiteFirstCreationTime(AIndex: Integer;
  9939. const AValue: TDateTime);
  9940. procedure SetPersonalSiteInstantiationState(AIndex: Integer;
  9941. const AValue: TInt32);
  9942. procedure SetPersonalSiteLastCreationTime(AIndex: Integer;
  9943. const AValue: TDateTime);
  9944. procedure SetPersonalSiteNumberOfRetries(AIndex: Integer;
  9945. const AValue: TInt32);
  9946. procedure SetPictureImportEnabled(AIndex: Integer;
  9947. const AValue: boolean);
  9948. procedure SetPictureUrl(AIndex: Integer; const AValue: string);
  9949. procedure SetPublicUrl(AIndex: Integer; const AValue: string);
  9950. procedure SetSipAddress(AIndex: Integer; const AValue: string);
  9951. procedure SetUrlToCreatePersonalSite(AIndex: Integer;
  9952. const AValue: string);
  9953. public
  9954. class function ObjectRestKind : String; Override;
  9955. function KeyAsURLPart : String; Override;
  9956. function FollowedContent(AService: TODataService)
  9957. : TSP_UserProfilesFollowedContent;
  9958. function PersonalSite(AService: TODataService) : TSPSite;
  9959. published
  9960. Property AccountName : string index 0 read FAccountName write SetAccountName;
  9961. Property DisplayName : string index 8 read FDisplayName write SetDisplayName;
  9962. Property IsPeopleListPublic : boolean index 16 read FIsPeopleListPublic write SetIsPeopleListPublic;
  9963. Property IsPrivacySettingOn : boolean index 24 read FIsPrivacySettingOn write SetIsPrivacySettingOn;
  9964. Property IsSelf : boolean index 32 read FIsSelf write SetIsSelf;
  9965. Property JobTitle : string index 40 read FJobTitle write SetJobTitle;
  9966. Property MySiteFirstRunExperience : TInt32 index 48 read FMySiteFirstRunExperience write SetMySiteFirstRunExperience;
  9967. Property MySiteHostUrl : string index 56 read FMySiteHostUrl write SetMySiteHostUrl;
  9968. Property O15FirstRunExperience : TInt32 index 64 read FO15FirstRunExperience write SetO15FirstRunExperience;
  9969. Property PersonalSiteCapabilities : TInt32 index 72 read FPersonalSiteCapabilities write SetPersonalSiteCapabilities;
  9970. Property PersonalSiteFirstCreationError : string index 80 read FPersonalSiteFirstCreationError write SetPersonalSiteFirstCreationError;
  9971. Property PersonalSiteFirstCreationTime : TDateTime index 88 read FPersonalSiteFirstCreationTime write SetPersonalSiteFirstCreationTime;
  9972. Property PersonalSiteInstantiationState : TInt32 index 96 read FPersonalSiteInstantiationState write SetPersonalSiteInstantiationState;
  9973. Property PersonalSiteLastCreationTime : TDateTime index 104 read FPersonalSiteLastCreationTime write SetPersonalSiteLastCreationTime;
  9974. Property PersonalSiteNumberOfRetries : TInt32 index 112 read FPersonalSiteNumberOfRetries write SetPersonalSiteNumberOfRetries;
  9975. Property PictureImportEnabled : boolean index 120 read FPictureImportEnabled write SetPictureImportEnabled;
  9976. Property PictureUrl : string index 128 read FPictureUrl write SetPictureUrl;
  9977. Property PublicUrl : string index 136 read FPublicUrl write SetPublicUrl;
  9978. Property SipAddress : string index 144 read FSipAddress write SetSipAddress;
  9979. Property UrlToCreatePersonalSite : string index 152 read FUrlToCreatePersonalSite write SetUrlToCreatePersonalSite;
  9980. end;
  9981. { --------------------------------------------------------------------
  9982. PS: AssignmentCreationInformation
  9983. --------------------------------------------------------------------}
  9984. TPSAssignmentCreationInformation = Class(TODataEntity)
  9985. private
  9986. FFinish : TDateTime;
  9987. FId : TGUIDString;
  9988. FNotes : string;
  9989. FResourceId : TGUIDString;
  9990. FStart : TDateTime;
  9991. FTaskId : TGUIDString;
  9992. procedure SetFinish(AIndex: Integer; const AValue: TDateTime);
  9993. procedure SetId(AIndex: Integer; const AValue: TGUIDString);
  9994. procedure SetNotes(AIndex: Integer; const AValue: string);
  9995. procedure SetResourceId(AIndex: Integer; const AValue: TGUIDString);
  9996. procedure SetStart(AIndex: Integer; const AValue: TDateTime);
  9997. procedure SetTaskId(AIndex: Integer; const AValue: TGUIDString);
  9998. public
  9999. class function ObjectRestKind : String; Override;
  10000. published
  10001. Property Finish : TDateTime index 0 read FFinish write SetFinish;
  10002. Property Id : TGUIDString index 8 read FId write SetId;
  10003. Property Notes : string index 16 read FNotes write SetNotes;
  10004. Property ResourceId : TGUIDString index 24 read FResourceId write SetResourceId;
  10005. Property Start : TDateTime index 32 read FStart write SetStart;
  10006. Property TaskId : TGUIDString index 40 read FTaskId write SetTaskId;
  10007. end;
  10008. { --------------------------------------------------------------------
  10009. PS: CalendarCreationInformation
  10010. --------------------------------------------------------------------}
  10011. TPSCalendarCreationInformation = Class(TODataEntity)
  10012. private
  10013. FId : TGUIDString;
  10014. FName : string;
  10015. FOriginalId : TGUIDString;
  10016. procedure SetId(AIndex: Integer; const AValue: TGUIDString);
  10017. procedure SetName(AIndex: Integer; const AValue: string);
  10018. procedure SetOriginalId(AIndex: Integer; const AValue: TGUIDString);
  10019. public
  10020. class function ObjectRestKind : String; Override;
  10021. published
  10022. Property Id : TGUIDString index 0 read FId write SetId;
  10023. Property Name : string index 8 read FName write SetName;
  10024. Property OriginalId : TGUIDString index 16 read FOriginalId write SetOriginalId;
  10025. end;
  10026. { --------------------------------------------------------------------
  10027. PS: CalendarExceptionCreationInformation
  10028. --------------------------------------------------------------------}
  10029. TPSCalendarExceptionCreationInformation = Class(TODataEntity)
  10030. private
  10031. FFinish : TDateTime;
  10032. FName : string;
  10033. FRecurrenceDays : TInt32;
  10034. FRecurrenceFrequency : TInt32;
  10035. FRecurrenceMonth : TInt32;
  10036. FRecurrenceMonthDay : TInt32;
  10037. FRecurrenceType : TInt32;
  10038. FRecurrenceWeek : TInt32;
  10039. FShift1Finish : TInt32;
  10040. FShift1Start : TInt32;
  10041. FShift2Finish : TInt32;
  10042. FShift2Start : TInt32;
  10043. FShift3Finish : TInt32;
  10044. FShift3Start : TInt32;
  10045. FShift4Finish : TInt32;
  10046. FShift4Start : TInt32;
  10047. FShift5Finish : TInt32;
  10048. FShift5Start : TInt32;
  10049. FStart : TDateTime;
  10050. procedure SetFinish(AIndex: Integer; const AValue: TDateTime);
  10051. procedure SetName(AIndex: Integer; const AValue: string);
  10052. procedure SetRecurrenceDays(AIndex: Integer; const AValue: TInt32);
  10053. procedure SetRecurrenceFrequency(AIndex: Integer; const AValue: TInt32);
  10054. procedure SetRecurrenceMonth(AIndex: Integer; const AValue: TInt32);
  10055. procedure SetRecurrenceMonthDay(AIndex: Integer; const AValue: TInt32);
  10056. procedure SetRecurrenceType(AIndex: Integer; const AValue: TInt32);
  10057. procedure SetRecurrenceWeek(AIndex: Integer; const AValue: TInt32);
  10058. procedure SetShift1Finish(AIndex: Integer; const AValue: TInt32);
  10059. procedure SetShift1Start(AIndex: Integer; const AValue: TInt32);
  10060. procedure SetShift2Finish(AIndex: Integer; const AValue: TInt32);
  10061. procedure SetShift2Start(AIndex: Integer; const AValue: TInt32);
  10062. procedure SetShift3Finish(AIndex: Integer; const AValue: TInt32);
  10063. procedure SetShift3Start(AIndex: Integer; const AValue: TInt32);
  10064. procedure SetShift4Finish(AIndex: Integer; const AValue: TInt32);
  10065. procedure SetShift4Start(AIndex: Integer; const AValue: TInt32);
  10066. procedure SetShift5Finish(AIndex: Integer; const AValue: TInt32);
  10067. procedure SetShift5Start(AIndex: Integer; const AValue: TInt32);
  10068. procedure SetStart(AIndex: Integer; const AValue: TDateTime);
  10069. public
  10070. class function ObjectRestKind : String; Override;
  10071. published
  10072. Property Finish : TDateTime index 0 read FFinish write SetFinish;
  10073. Property Name : string index 8 read FName write SetName;
  10074. Property RecurrenceDays : TInt32 index 16 read FRecurrenceDays write SetRecurrenceDays;
  10075. Property RecurrenceFrequency : TInt32 index 24 read FRecurrenceFrequency write SetRecurrenceFrequency;
  10076. Property RecurrenceMonth : TInt32 index 32 read FRecurrenceMonth write SetRecurrenceMonth;
  10077. Property RecurrenceMonthDay : TInt32 index 40 read FRecurrenceMonthDay write SetRecurrenceMonthDay;
  10078. Property RecurrenceType : TInt32 index 48 read FRecurrenceType write SetRecurrenceType;
  10079. Property RecurrenceWeek : TInt32 index 56 read FRecurrenceWeek write SetRecurrenceWeek;
  10080. Property Shift1Finish : TInt32 index 64 read FShift1Finish write SetShift1Finish;
  10081. Property Shift1Start : TInt32 index 72 read FShift1Start write SetShift1Start;
  10082. Property Shift2Finish : TInt32 index 80 read FShift2Finish write SetShift2Finish;
  10083. Property Shift2Start : TInt32 index 88 read FShift2Start write SetShift2Start;
  10084. Property Shift3Finish : TInt32 index 96 read FShift3Finish write SetShift3Finish;
  10085. Property Shift3Start : TInt32 index 104 read FShift3Start write SetShift3Start;
  10086. Property Shift4Finish : TInt32 index 112 read FShift4Finish write SetShift4Finish;
  10087. Property Shift4Start : TInt32 index 120 read FShift4Start write SetShift4Start;
  10088. Property Shift5Finish : TInt32 index 128 read FShift5Finish write SetShift5Finish;
  10089. Property Shift5Start : TInt32 index 136 read FShift5Start write SetShift5Start;
  10090. Property Start : TDateTime index 144 read FStart write SetStart;
  10091. end;
  10092. { --------------------------------------------------------------------
  10093. PS: CustomFieldCreationInformation
  10094. --------------------------------------------------------------------}
  10095. TPSCustomFieldCreationInformation = Class(TODataEntity)
  10096. private
  10097. FDescription : string;
  10098. FEntityTypeId : TGUIDString;
  10099. FFieldType : TInt32;
  10100. FFormula : string;
  10101. FId : TGUIDString;
  10102. FIsEditableInVisibility : boolean;
  10103. FIsMultilineText : boolean;
  10104. FIsRequired : boolean;
  10105. FIsWorkflowControlled : boolean;
  10106. FLookupAllowMultiSelect : boolean;
  10107. FLookupDefaultValue : TGUIDString;
  10108. FLookupTableId : TGUIDString;
  10109. FName : string;
  10110. procedure SetDescription(AIndex: Integer; const AValue: string);
  10111. procedure SetEntityTypeId(AIndex: Integer; const AValue: TGUIDString);
  10112. procedure SetFieldType(AIndex: Integer; const AValue: TInt32);
  10113. procedure SetFormula(AIndex: Integer; const AValue: string);
  10114. procedure SetId(AIndex: Integer; const AValue: TGUIDString);
  10115. procedure SetIsEditableInVisibility(AIndex: Integer;
  10116. const AValue: boolean);
  10117. procedure SetIsMultilineText(AIndex: Integer; const AValue: boolean);
  10118. procedure SetIsRequired(AIndex: Integer; const AValue: boolean);
  10119. procedure SetIsWorkflowControlled(AIndex: Integer;
  10120. const AValue: boolean);
  10121. procedure SetLookupAllowMultiSelect(AIndex: Integer;
  10122. const AValue: boolean);
  10123. procedure SetLookupDefaultValue(AIndex: Integer;
  10124. const AValue: TGUIDString);
  10125. procedure SetLookupTableId(AIndex: Integer; const AValue: TGUIDString);
  10126. procedure SetName(AIndex: Integer; const AValue: string);
  10127. public
  10128. class function ObjectRestKind : String; Override;
  10129. published
  10130. Property Description : string index 0 read FDescription write SetDescription;
  10131. Property EntityTypeId : TGUIDString index 8 read FEntityTypeId write SetEntityTypeId;
  10132. Property FieldType : TInt32 index 16 read FFieldType write SetFieldType;
  10133. Property Formula : string index 24 read FFormula write SetFormula;
  10134. Property Id : TGUIDString index 32 read FId write SetId;
  10135. Property IsEditableInVisibility : boolean index 40 read FIsEditableInVisibility write SetIsEditableInVisibility;
  10136. Property IsMultilineText : boolean index 48 read FIsMultilineText write SetIsMultilineText;
  10137. Property IsRequired : boolean index 56 read FIsRequired write SetIsRequired;
  10138. Property IsWorkflowControlled : boolean index 64 read FIsWorkflowControlled write SetIsWorkflowControlled;
  10139. Property LookupAllowMultiSelect : boolean index 72 read FLookupAllowMultiSelect write SetLookupAllowMultiSelect;
  10140. Property LookupDefaultValue : TGUIDString index 80 read FLookupDefaultValue write SetLookupDefaultValue;
  10141. Property LookupTableId : TGUIDString index 88 read FLookupTableId write SetLookupTableId;
  10142. Property Name : string index 96 read FName write SetName;
  10143. end;
  10144. { --------------------------------------------------------------------
  10145. PS: EnterpriseProjectTypeCreationInformation
  10146. --------------------------------------------------------------------}
  10147. TPSEnterpriseProjectTypeCreationInformation = Class(TODataEntity)
  10148. private
  10149. FDescription : string;
  10150. FId : TGUIDString;
  10151. FImageUrl : string;
  10152. FIsDefault : boolean;
  10153. FIsManaged : boolean;
  10154. FName : string;
  10155. FOrder : TInt32;
  10156. FProjectDetailPages : TPSProjectDetailPageCreationInformationArray;
  10157. FProjectPlanTemplateId : TGUIDString;
  10158. FWorkflowAssociationId : TGUIDString;
  10159. FWorkflowAssociationName : string;
  10160. FWorkspaceTemplateName : string;
  10161. procedure SetDescription(AIndex: Integer; const AValue: string);
  10162. procedure SetId(AIndex: Integer; const AValue: TGUIDString);
  10163. procedure SetImageUrl(AIndex: Integer; const AValue: string);
  10164. procedure SetIsDefault(AIndex: Integer; const AValue: boolean);
  10165. procedure SetIsManaged(AIndex: Integer; const AValue: boolean);
  10166. procedure SetName(AIndex: Integer; const AValue: string);
  10167. procedure SetOrder(AIndex: Integer; const AValue: TInt32);
  10168. procedure SetProjectDetailPages(AIndex: Integer;
  10169. const AValue: TPSProjectDetailPageCreationInformationArray);
  10170. procedure SetProjectPlanTemplateId(AIndex: Integer;
  10171. const AValue: TGUIDString);
  10172. procedure SetWorkflowAssociationId(AIndex: Integer;
  10173. const AValue: TGUIDString);
  10174. procedure SetWorkflowAssociationName(AIndex: Integer;
  10175. const AValue: string);
  10176. procedure SetWorkspaceTemplateName(AIndex: Integer;
  10177. const AValue: string);
  10178. protected
  10179. {$IFDEF VER2_6}
  10180. procedure SetArrayLength(const AName: String; ALength: Longint)
  10181. ; Override;
  10182. {$ENDIF VER2_6}
  10183. public
  10184. class function ObjectRestKind : String; Override;
  10185. published
  10186. Property Description : string index 0 read FDescription write SetDescription;
  10187. Property Id : TGUIDString index 8 read FId write SetId;
  10188. Property ImageUrl : string index 16 read FImageUrl write SetImageUrl;
  10189. Property IsDefault : boolean index 24 read FIsDefault write SetIsDefault;
  10190. Property IsManaged : boolean index 32 read FIsManaged write SetIsManaged;
  10191. Property Name : string index 40 read FName write SetName;
  10192. Property Order : TInt32 index 48 read FOrder write SetOrder;
  10193. Property ProjectDetailPages : TPSProjectDetailPageCreationInformationArray index 56 read FProjectDetailPages write SetProjectDetailPages;
  10194. Property ProjectPlanTemplateId : TGUIDString index 64 read FProjectPlanTemplateId write SetProjectPlanTemplateId;
  10195. Property WorkflowAssociationId : TGUIDString index 72 read FWorkflowAssociationId write SetWorkflowAssociationId;
  10196. Property WorkflowAssociationName : string index 80 read FWorkflowAssociationName write SetWorkflowAssociationName;
  10197. Property WorkspaceTemplateName : string index 88 read FWorkspaceTemplateName write SetWorkspaceTemplateName;
  10198. end;
  10199. { --------------------------------------------------------------------
  10200. PS: ProjectDetailPageCreationInformation
  10201. --------------------------------------------------------------------}
  10202. TPSProjectDetailPageCreationInformation = Class(TODataEntity)
  10203. private
  10204. FId : TGUIDString;
  10205. FIsCreate : boolean;
  10206. FPosition : TInt32;
  10207. procedure SetId(AIndex: Integer; const AValue: TGUIDString);
  10208. procedure SetIsCreate(AIndex: Integer; const AValue: boolean);
  10209. procedure SetPosition(AIndex: Integer; const AValue: TInt32);
  10210. public
  10211. class function ObjectRestKind : String; Override;
  10212. published
  10213. Property Id : TGUIDString index 0 read FId write SetId;
  10214. Property IsCreate : boolean index 8 read FIsCreate write SetIsCreate;
  10215. Property Position : TInt32 index 16 read FPosition write SetPosition;
  10216. end;
  10217. { --------------------------------------------------------------------
  10218. PS: EnterpriseResourceCreationInformation
  10219. --------------------------------------------------------------------}
  10220. TPSEnterpriseResourceCreationInformation = Class(TODataEntity)
  10221. private
  10222. FId : TGUIDString;
  10223. FIsBudget : boolean;
  10224. FIsGeneric : boolean;
  10225. FIsInactive : boolean;
  10226. FName : string;
  10227. FResourceType : TInt32;
  10228. procedure SetId(AIndex: Integer; const AValue: TGUIDString);
  10229. procedure SetIsBudget(AIndex: Integer; const AValue: boolean);
  10230. procedure SetIsGeneric(AIndex: Integer; const AValue: boolean);
  10231. procedure SetIsInactive(AIndex: Integer; const AValue: boolean);
  10232. procedure SetName(AIndex: Integer; const AValue: string);
  10233. procedure SetResourceType(AIndex: Integer; const AValue: TInt32);
  10234. public
  10235. class function ObjectRestKind : String; Override;
  10236. published
  10237. Property Id : TGUIDString index 0 read FId write SetId;
  10238. Property IsBudget : boolean index 8 read FIsBudget write SetIsBudget;
  10239. Property IsGeneric : boolean index 16 read FIsGeneric write SetIsGeneric;
  10240. Property IsInactive : boolean index 24 read FIsInactive write SetIsInactive;
  10241. Property Name : string index 32 read FName write SetName;
  10242. Property ResourceType : TInt32 index 40 read FResourceType write SetResourceType;
  10243. end;
  10244. { --------------------------------------------------------------------
  10245. PS: EventHandlerCreationInformation
  10246. --------------------------------------------------------------------}
  10247. TPSEventHandlerCreationInformation = Class(TODataEntity)
  10248. private
  10249. FAssemblyName : string;
  10250. FCancelOnError : boolean;
  10251. FClassName : string;
  10252. FDescription : string;
  10253. FEndpointUrl : string;
  10254. FEventId : TInt32;
  10255. FId : TGUIDString;
  10256. FName : string;
  10257. FOrder : TInt32;
  10258. procedure SetAssemblyName(AIndex: Integer; const AValue: string);
  10259. procedure SetCancelOnError(AIndex: Integer; const AValue: boolean);
  10260. procedure SetClassName(AIndex: Integer; const AValue: string);
  10261. procedure SetDescription(AIndex: Integer; const AValue: string);
  10262. procedure SetEndpointUrl(AIndex: Integer; const AValue: string);
  10263. procedure SetEventId(AIndex: Integer; const AValue: TInt32);
  10264. procedure SetId(AIndex: Integer; const AValue: TGUIDString);
  10265. procedure SetName(AIndex: Integer; const AValue: string);
  10266. procedure SetOrder(AIndex: Integer; const AValue: TInt32);
  10267. public
  10268. class function ObjectRestKind : String; Override;
  10269. published
  10270. Property AssemblyName : string index 0 read FAssemblyName write SetAssemblyName;
  10271. Property CancelOnError : boolean index 8 read FCancelOnError write SetCancelOnError;
  10272. Property ClassName : string index 16 read FClassName write SetClassName;
  10273. Property Description : string index 24 read FDescription write SetDescription;
  10274. Property EndpointUrl : string index 32 read FEndpointUrl write SetEndpointUrl;
  10275. Property EventId : TInt32 index 40 read FEventId write SetEventId;
  10276. Property Id : TGUIDString index 48 read FId write SetId;
  10277. Property Name : string index 56 read FName write SetName;
  10278. Property Order : TInt32 index 64 read FOrder write SetOrder;
  10279. end;
  10280. { --------------------------------------------------------------------
  10281. PS: LookupEntryCreationInformation
  10282. --------------------------------------------------------------------}
  10283. TPSLookupEntryCreationInformation = Class(TODataEntity)
  10284. private
  10285. FDescription : string;
  10286. FId : TGUIDString;
  10287. FParentId : TGUIDString;
  10288. FSortIndex : double;
  10289. FValue : TPSLookupEntryValue;
  10290. procedure SetDescription(AIndex: Integer; const AValue: string);
  10291. procedure SetId(AIndex: Integer; const AValue: TGUIDString);
  10292. procedure SetParentId(AIndex: Integer; const AValue: TGUIDString);
  10293. procedure SetSortIndex(AIndex: Integer; const AValue: double);
  10294. procedure SetValue(AIndex: Integer; const AValue: TPSLookupEntryValue);
  10295. public
  10296. class function ObjectRestKind : String; Override;
  10297. published
  10298. Property Description : string index 0 read FDescription write SetDescription;
  10299. Property Id : TGUIDString index 8 read FId write SetId;
  10300. Property ParentId : TGUIDString index 16 read FParentId write SetParentId;
  10301. Property SortIndex : double index 24 read FSortIndex write SetSortIndex;
  10302. Property Value : TPSLookupEntryValue index 32 read FValue write SetValue;
  10303. end;
  10304. { --------------------------------------------------------------------
  10305. PS: LookupEntryValue
  10306. --------------------------------------------------------------------}
  10307. TPSLookupEntryValue = Class(TODataEntity)
  10308. private
  10309. FDateValue : TDateTime;
  10310. FDurationValue : string;
  10311. FNumberValue : double;
  10312. FTextValue : string;
  10313. procedure SetDateValue(AIndex: Integer; const AValue: TDateTime);
  10314. procedure SetDurationValue(AIndex: Integer; const AValue: string);
  10315. procedure SetNumberValue(AIndex: Integer; const AValue: double);
  10316. procedure SetTextValue(AIndex: Integer; const AValue: string);
  10317. public
  10318. class function ObjectRestKind : String; Override;
  10319. published
  10320. Property DateValue : TDateTime index 0 read FDateValue write SetDateValue;
  10321. Property DurationValue : string index 8 read FDurationValue write SetDurationValue;
  10322. Property NumberValue : double index 16 read FNumberValue write SetNumberValue;
  10323. Property TextValue : string index 24 read FTextValue write SetTextValue;
  10324. end;
  10325. { --------------------------------------------------------------------
  10326. PS: LookupMask
  10327. --------------------------------------------------------------------}
  10328. TPSLookupMask = Class(TODataEntity)
  10329. private
  10330. F_Length : TInt32;
  10331. FMaskType : TInt32;
  10332. FSeparator : string;
  10333. procedure Set_Length(AIndex: Integer; const AValue: TInt32);
  10334. procedure SetMaskType(AIndex: Integer; const AValue: TInt32);
  10335. procedure SetSeparator(AIndex: Integer; const AValue: string);
  10336. public
  10337. class function ObjectRestKind : String; Override;
  10338. class function ExportPropertyName(const AName: String) : String
  10339. ; Override;
  10340. published
  10341. Property _Length : TInt32 index 0 read F_Length write Set_Length;
  10342. Property MaskType : TInt32 index 8 read FMaskType write SetMaskType;
  10343. Property Separator : string index 16 read FSeparator write SetSeparator;
  10344. end;
  10345. { --------------------------------------------------------------------
  10346. PS: LookupTableCreationInformation
  10347. --------------------------------------------------------------------}
  10348. TPSLookupTableCreationInformation = Class(TODataEntity)
  10349. private
  10350. FEntries : TPSLookupEntryCreationInformationArray;
  10351. FId : TGUIDString;
  10352. FMasks : TPSLookupMaskArray;
  10353. FName : string;
  10354. FSortOrder : TInt32;
  10355. procedure SetEntries(AIndex: Integer;
  10356. const AValue: TPSLookupEntryCreationInformationArray);
  10357. procedure SetId(AIndex: Integer; const AValue: TGUIDString);
  10358. procedure SetMasks(AIndex: Integer; const AValue: TPSLookupMaskArray);
  10359. procedure SetName(AIndex: Integer; const AValue: string);
  10360. procedure SetSortOrder(AIndex: Integer; const AValue: TInt32);
  10361. protected
  10362. {$IFDEF VER2_6}
  10363. procedure SetArrayLength(const AName: String; ALength: Longint)
  10364. ; Override;
  10365. {$ENDIF VER2_6}
  10366. public
  10367. class function ObjectRestKind : String; Override;
  10368. published
  10369. Property Entries : TPSLookupEntryCreationInformationArray index 0 read FEntries write SetEntries;
  10370. Property Id : TGUIDString index 8 read FId write SetId;
  10371. Property Masks : TPSLookupMaskArray index 16 read FMasks write SetMasks;
  10372. Property Name : string index 24 read FName write SetName;
  10373. Property SortOrder : TInt32 index 32 read FSortOrder write SetSortOrder;
  10374. end;
  10375. { --------------------------------------------------------------------
  10376. PS: PhaseCreationInformation
  10377. --------------------------------------------------------------------}
  10378. TPSPhaseCreationInformation = Class(TODataEntity)
  10379. private
  10380. FDescription : string;
  10381. FId : TGUIDString;
  10382. FName : string;
  10383. procedure SetDescription(AIndex: Integer; const AValue: string);
  10384. procedure SetId(AIndex: Integer; const AValue: TGUIDString);
  10385. procedure SetName(AIndex: Integer; const AValue: string);
  10386. public
  10387. class function ObjectRestKind : String; Override;
  10388. published
  10389. Property Description : string index 0 read FDescription write SetDescription;
  10390. Property Id : TGUIDString index 8 read FId write SetId;
  10391. Property Name : string index 16 read FName write SetName;
  10392. end;
  10393. { --------------------------------------------------------------------
  10394. PS: PlanAssignmentCreationInformation
  10395. --------------------------------------------------------------------}
  10396. TPSPlanAssignmentCreationInformation = Class(TODataEntity)
  10397. private
  10398. FBookingType : TInt32;
  10399. FId : TGUIDString;
  10400. FIntervals : TPSPlanAssignmentIntervalCreationInformationArray;
  10401. FResourceId : TGUIDString;
  10402. procedure SetBookingType(AIndex: Integer; const AValue: TInt32);
  10403. procedure SetId(AIndex: Integer; const AValue: TGUIDString);
  10404. procedure SetIntervals(AIndex: Integer;
  10405. const AValue: TPSPlanAssignmentIntervalCreationInformationArray);
  10406. procedure SetResourceId(AIndex: Integer; const AValue: TGUIDString);
  10407. protected
  10408. {$IFDEF VER2_6}
  10409. procedure SetArrayLength(const AName: String; ALength: Longint)
  10410. ; Override;
  10411. {$ENDIF VER2_6}
  10412. public
  10413. class function ObjectRestKind : String; Override;
  10414. published
  10415. Property BookingType : TInt32 index 0 read FBookingType write SetBookingType;
  10416. Property Id : TGUIDString index 8 read FId write SetId;
  10417. Property Intervals : TPSPlanAssignmentIntervalCreationInformationArray index 16 read FIntervals write SetIntervals;
  10418. Property ResourceId : TGUIDString index 24 read FResourceId write SetResourceId;
  10419. end;
  10420. { --------------------------------------------------------------------
  10421. PS: PlanAssignmentIntervalCreationInformation
  10422. --------------------------------------------------------------------}
  10423. TPSPlanAssignmentIntervalCreationInformation = Class(TODataEntity)
  10424. private
  10425. FDuration : string;
  10426. FInterval : TDateTime;
  10427. procedure SetDuration(AIndex: Integer; const AValue: string);
  10428. procedure SetInterval(AIndex: Integer; const AValue: TDateTime);
  10429. public
  10430. class function ObjectRestKind : String; Override;
  10431. published
  10432. Property Duration : string index 0 read FDuration write SetDuration;
  10433. Property Interval : TDateTime index 8 read FInterval write SetInterval;
  10434. end;
  10435. { --------------------------------------------------------------------
  10436. PS: ProjectCreationInformation
  10437. --------------------------------------------------------------------}
  10438. TPSProjectCreationInformation = Class(TODataEntity)
  10439. private
  10440. FDescription : string;
  10441. FEnterpriseProjectTypeId : TGUIDString;
  10442. FId : TGUIDString;
  10443. FListId : TGUIDString;
  10444. FName : string;
  10445. FStart : TDateTime;
  10446. FWebId : TGUIDString;
  10447. procedure SetDescription(AIndex: Integer; const AValue: string);
  10448. procedure SetEnterpriseProjectTypeId(AIndex: Integer;
  10449. const AValue: TGUIDString);
  10450. procedure SetId(AIndex: Integer; const AValue: TGUIDString);
  10451. procedure SetListId(AIndex: Integer; const AValue: TGUIDString);
  10452. procedure SetName(AIndex: Integer; const AValue: string);
  10453. procedure SetStart(AIndex: Integer; const AValue: TDateTime);
  10454. procedure SetWebId(AIndex: Integer; const AValue: TGUIDString);
  10455. public
  10456. class function ObjectRestKind : String; Override;
  10457. published
  10458. Property Description : string index 0 read FDescription write SetDescription;
  10459. Property EnterpriseProjectTypeId : TGUIDString index 8 read FEnterpriseProjectTypeId write SetEnterpriseProjectTypeId;
  10460. Property Id : TGUIDString index 16 read FId write SetId;
  10461. Property ListId : TGUIDString index 24 read FListId write SetListId;
  10462. Property Name : string index 32 read FName write SetName;
  10463. Property Start : TDateTime index 40 read FStart write SetStart;
  10464. Property WebId : TGUIDString index 48 read FWebId write SetWebId;
  10465. end;
  10466. { --------------------------------------------------------------------
  10467. PS: ProjectResourceCreationInformation
  10468. --------------------------------------------------------------------}
  10469. TPSProjectResourceCreationInformation = Class(TODataEntity)
  10470. private
  10471. FAccount : string;
  10472. FEmail : string;
  10473. FId : TGUIDString;
  10474. FName : string;
  10475. FNotes : string;
  10476. procedure SetAccount(AIndex: Integer; const AValue: string);
  10477. procedure SetEmail(AIndex: Integer; const AValue: string);
  10478. procedure SetId(AIndex: Integer; const AValue: TGUIDString);
  10479. procedure SetName(AIndex: Integer; const AValue: string);
  10480. procedure SetNotes(AIndex: Integer; const AValue: string);
  10481. public
  10482. class function ObjectRestKind : String; Override;
  10483. published
  10484. Property Account : string index 0 read FAccount write SetAccount;
  10485. Property Email : string index 8 read FEmail write SetEmail;
  10486. Property Id : TGUIDString index 16 read FId write SetId;
  10487. Property Name : string index 24 read FName write SetName;
  10488. Property Notes : string index 32 read FNotes write SetNotes;
  10489. end;
  10490. { --------------------------------------------------------------------
  10491. PS: StageCreationInformation
  10492. --------------------------------------------------------------------}
  10493. TPSStageCreationInformation = Class(TODataEntity)
  10494. private
  10495. FBehavior : TInt32;
  10496. FCheckInRequired : boolean;
  10497. FCustomFields : TPSStageCustomFieldCreationInformationArray;
  10498. FDescription : string;
  10499. FId : TGUIDString;
  10500. FName : string;
  10501. FPhaseId : TGUIDString;
  10502. FProjectDetailPages : TPSStageDetailPageCreationInformationArray;
  10503. FSubmitDescription : string;
  10504. FWorkflowStatusPageId : TGUIDString;
  10505. procedure SetBehavior(AIndex: Integer; const AValue: TInt32);
  10506. procedure SetCheckInRequired(AIndex: Integer; const AValue: boolean);
  10507. procedure SetCustomFields(AIndex: Integer;
  10508. const AValue: TPSStageCustomFieldCreationInformationArray);
  10509. procedure SetDescription(AIndex: Integer; const AValue: string);
  10510. procedure SetId(AIndex: Integer; const AValue: TGUIDString);
  10511. procedure SetName(AIndex: Integer; const AValue: string);
  10512. procedure SetPhaseId(AIndex: Integer; const AValue: TGUIDString);
  10513. procedure SetProjectDetailPages(AIndex: Integer;
  10514. const AValue: TPSStageDetailPageCreationInformationArray);
  10515. procedure SetSubmitDescription(AIndex: Integer; const AValue: string);
  10516. procedure SetWorkflowStatusPageId(AIndex: Integer;
  10517. const AValue: TGUIDString);
  10518. protected
  10519. {$IFDEF VER2_6}
  10520. procedure SetArrayLength(const AName: String; ALength: Longint)
  10521. ; Override;
  10522. {$ENDIF VER2_6}
  10523. public
  10524. class function ObjectRestKind : String; Override;
  10525. published
  10526. Property Behavior : TInt32 index 0 read FBehavior write SetBehavior;
  10527. Property CheckInRequired : boolean index 8 read FCheckInRequired write SetCheckInRequired;
  10528. Property CustomFields : TPSStageCustomFieldCreationInformationArray index 16 read FCustomFields write SetCustomFields;
  10529. Property Description : string index 24 read FDescription write SetDescription;
  10530. Property Id : TGUIDString index 32 read FId write SetId;
  10531. Property Name : string index 40 read FName write SetName;
  10532. Property PhaseId : TGUIDString index 48 read FPhaseId write SetPhaseId;
  10533. Property ProjectDetailPages : TPSStageDetailPageCreationInformationArray index 56 read FProjectDetailPages write SetProjectDetailPages;
  10534. Property SubmitDescription : string index 64 read FSubmitDescription write SetSubmitDescription;
  10535. Property WorkflowStatusPageId : TGUIDString index 72 read FWorkflowStatusPageId write SetWorkflowStatusPageId;
  10536. end;
  10537. { --------------------------------------------------------------------
  10538. PS: StageCustomFieldCreationInformation
  10539. --------------------------------------------------------------------}
  10540. TPSStageCustomFieldCreationInformation = Class(TODataEntity)
  10541. private
  10542. FId : TGUIDString;
  10543. FReadOnly : boolean;
  10544. FRequired : boolean;
  10545. procedure SetId(AIndex: Integer; const AValue: TGUIDString);
  10546. procedure SetReadOnly(AIndex: Integer; const AValue: boolean);
  10547. procedure SetRequired(AIndex: Integer; const AValue: boolean);
  10548. public
  10549. class function ObjectRestKind : String; Override;
  10550. published
  10551. Property Id : TGUIDString index 0 read FId write SetId;
  10552. Property ReadOnly : boolean index 8 read FReadOnly write SetReadOnly;
  10553. Property Required : boolean index 16 read FRequired write SetRequired;
  10554. end;
  10555. { --------------------------------------------------------------------
  10556. PS: StageDetailPageCreationInformation
  10557. --------------------------------------------------------------------}
  10558. TPSStageDetailPageCreationInformation = Class(TODataEntity)
  10559. private
  10560. FDescription : string;
  10561. FId : TGUIDString;
  10562. FPosition : TInt32;
  10563. FRequiresAttention : boolean;
  10564. procedure SetDescription(AIndex: Integer; const AValue: string);
  10565. procedure SetId(AIndex: Integer; const AValue: TGUIDString);
  10566. procedure SetPosition(AIndex: Integer; const AValue: TInt32);
  10567. procedure SetRequiresAttention(AIndex: Integer; const AValue: boolean);
  10568. public
  10569. class function ObjectRestKind : String; Override;
  10570. published
  10571. Property Description : string index 0 read FDescription write SetDescription;
  10572. Property Id : TGUIDString index 8 read FId write SetId;
  10573. Property Position : TInt32 index 16 read FPosition write SetPosition;
  10574. Property RequiresAttention : boolean index 24 read FRequiresAttention write SetRequiresAttention;
  10575. end;
  10576. { --------------------------------------------------------------------
  10577. PS: StatusAssignmentCreationInformation
  10578. --------------------------------------------------------------------}
  10579. TPSStatusAssignmentCreationInformation = Class(TODataEntity)
  10580. private
  10581. FComment : string;
  10582. FId : TGUIDString;
  10583. FProjectId : TGUIDString;
  10584. FTask : TPSStatusTaskCreationInformation;
  10585. procedure SetComment(AIndex: Integer; const AValue: string);
  10586. procedure SetId(AIndex: Integer; const AValue: TGUIDString);
  10587. procedure SetProjectId(AIndex: Integer; const AValue: TGUIDString);
  10588. procedure SetTask(AIndex: Integer;
  10589. const AValue: TPSStatusTaskCreationInformation);
  10590. public
  10591. class function ObjectRestKind : String; Override;
  10592. published
  10593. Property Comment : string index 0 read FComment write SetComment;
  10594. Property Id : TGUIDString index 8 read FId write SetId;
  10595. Property ProjectId : TGUIDString index 16 read FProjectId write SetProjectId;
  10596. Property Task : TPSStatusTaskCreationInformation index 24 read FTask write SetTask;
  10597. end;
  10598. { --------------------------------------------------------------------
  10599. PS: StatusTaskCreationInformation
  10600. --------------------------------------------------------------------}
  10601. TPSStatusTaskCreationInformation = Class(TODataEntity)
  10602. private
  10603. FFinish : TDateTime;
  10604. FId : TGUIDString;
  10605. FName : string;
  10606. FParentId : TGUIDString;
  10607. FStart : TDateTime;
  10608. FWork : string;
  10609. procedure SetFinish(AIndex: Integer; const AValue: TDateTime);
  10610. procedure SetId(AIndex: Integer; const AValue: TGUIDString);
  10611. procedure SetName(AIndex: Integer; const AValue: string);
  10612. procedure SetParentId(AIndex: Integer; const AValue: TGUIDString);
  10613. procedure SetStart(AIndex: Integer; const AValue: TDateTime);
  10614. procedure SetWork(AIndex: Integer; const AValue: string);
  10615. public
  10616. class function ObjectRestKind : String; Override;
  10617. published
  10618. Property Finish : TDateTime index 0 read FFinish write SetFinish;
  10619. Property Id : TGUIDString index 8 read FId write SetId;
  10620. Property Name : string index 16 read FName write SetName;
  10621. Property ParentId : TGUIDString index 24 read FParentId write SetParentId;
  10622. Property Start : TDateTime index 32 read FStart write SetStart;
  10623. Property Work : string index 40 read FWork write SetWork;
  10624. end;
  10625. { --------------------------------------------------------------------
  10626. PS: TaskCreationInformation
  10627. --------------------------------------------------------------------}
  10628. TPSTaskCreationInformation = Class(TODataEntity)
  10629. private
  10630. FAddAfterId : TGUIDString;
  10631. FDuration : string;
  10632. FFinish : TDateTime;
  10633. FId : TGUIDString;
  10634. FIsManual : boolean;
  10635. FName : string;
  10636. FNotes : string;
  10637. FParentId : TGUIDString;
  10638. FStart : TDateTime;
  10639. procedure SetAddAfterId(AIndex: Integer; const AValue: TGUIDString);
  10640. procedure SetDuration(AIndex: Integer; const AValue: string);
  10641. procedure SetFinish(AIndex: Integer; const AValue: TDateTime);
  10642. procedure SetId(AIndex: Integer; const AValue: TGUIDString);
  10643. procedure SetIsManual(AIndex: Integer; const AValue: boolean);
  10644. procedure SetName(AIndex: Integer; const AValue: string);
  10645. procedure SetNotes(AIndex: Integer; const AValue: string);
  10646. procedure SetParentId(AIndex: Integer; const AValue: TGUIDString);
  10647. procedure SetStart(AIndex: Integer; const AValue: TDateTime);
  10648. public
  10649. class function ObjectRestKind : String; Override;
  10650. published
  10651. Property AddAfterId : TGUIDString index 0 read FAddAfterId write SetAddAfterId;
  10652. Property Duration : string index 8 read FDuration write SetDuration;
  10653. Property Finish : TDateTime index 16 read FFinish write SetFinish;
  10654. Property Id : TGUIDString index 24 read FId write SetId;
  10655. Property IsManual : boolean index 32 read FIsManual write SetIsManual;
  10656. Property Name : string index 40 read FName write SetName;
  10657. Property Notes : string index 48 read FNotes write SetNotes;
  10658. Property ParentId : TGUIDString index 56 read FParentId write SetParentId;
  10659. Property Start : TDateTime index 64 read FStart write SetStart;
  10660. end;
  10661. { --------------------------------------------------------------------
  10662. PS: TaskLinkCreationInformation
  10663. --------------------------------------------------------------------}
  10664. TPSTaskLinkCreationInformation = Class(TODataEntity)
  10665. private
  10666. FDependencyType : TInt32;
  10667. FEndId : TGUIDString;
  10668. FId : TGUIDString;
  10669. FStartId : TGUIDString;
  10670. procedure SetDependencyType(AIndex: Integer; const AValue: TInt32);
  10671. procedure SetEndId(AIndex: Integer; const AValue: TGUIDString);
  10672. procedure SetId(AIndex: Integer; const AValue: TGUIDString);
  10673. procedure SetStartId(AIndex: Integer; const AValue: TGUIDString);
  10674. public
  10675. class function ObjectRestKind : String; Override;
  10676. published
  10677. Property DependencyType : TInt32 index 0 read FDependencyType write SetDependencyType;
  10678. Property EndId : TGUIDString index 8 read FEndId write SetEndId;
  10679. Property Id : TGUIDString index 16 read FId write SetId;
  10680. Property StartId : TGUIDString index 24 read FStartId write SetStartId;
  10681. end;
  10682. { --------------------------------------------------------------------
  10683. PS: TimeSheetLineCreationInformation
  10684. --------------------------------------------------------------------}
  10685. TPSTimeSheetLineCreationInformation = Class(TODataEntity)
  10686. private
  10687. FAssignmentId : TGUIDString;
  10688. FComment : string;
  10689. FId : TGUIDString;
  10690. FLineClass : TInt32;
  10691. FProjectId : TGUIDString;
  10692. FTaskName : string;
  10693. procedure SetAssignmentId(AIndex: Integer; const AValue: TGUIDString);
  10694. procedure SetComment(AIndex: Integer; const AValue: string);
  10695. procedure SetId(AIndex: Integer; const AValue: TGUIDString);
  10696. procedure SetLineClass(AIndex: Integer; const AValue: TInt32);
  10697. procedure SetProjectId(AIndex: Integer; const AValue: TGUIDString);
  10698. procedure SetTaskName(AIndex: Integer; const AValue: string);
  10699. public
  10700. class function ObjectRestKind : String; Override;
  10701. published
  10702. Property AssignmentId : TGUIDString index 0 read FAssignmentId write SetAssignmentId;
  10703. Property Comment : string index 8 read FComment write SetComment;
  10704. Property Id : TGUIDString index 16 read FId write SetId;
  10705. Property LineClass : TInt32 index 24 read FLineClass write SetLineClass;
  10706. Property ProjectId : TGUIDString index 32 read FProjectId write SetProjectId;
  10707. Property TaskName : string index 40 read FTaskName write SetTaskName;
  10708. end;
  10709. { --------------------------------------------------------------------
  10710. PS: TimeSheetWorkCreationInformation
  10711. --------------------------------------------------------------------}
  10712. TPSTimeSheetWorkCreationInformation = Class(TODataEntity)
  10713. private
  10714. FActualWork : string;
  10715. FComment : string;
  10716. F_End : TDateTime;
  10717. FNonBillableOvertimeWork : string;
  10718. FNonBillableWork : string;
  10719. FOvertimeWork : string;
  10720. FPlannedWork : string;
  10721. FStart : TDateTime;
  10722. procedure SetActualWork(AIndex: Integer; const AValue: string);
  10723. procedure SetComment(AIndex: Integer; const AValue: string);
  10724. procedure Set_End(AIndex: Integer; const AValue: TDateTime);
  10725. procedure SetNonBillableOvertimeWork(AIndex: Integer;
  10726. const AValue: string);
  10727. procedure SetNonBillableWork(AIndex: Integer; const AValue: string);
  10728. procedure SetOvertimeWork(AIndex: Integer; const AValue: string);
  10729. procedure SetPlannedWork(AIndex: Integer; const AValue: string);
  10730. procedure SetStart(AIndex: Integer; const AValue: TDateTime);
  10731. public
  10732. class function ObjectRestKind : String; Override;
  10733. class function ExportPropertyName(const AName: String) : String
  10734. ; Override;
  10735. published
  10736. Property ActualWork : string index 0 read FActualWork write SetActualWork;
  10737. Property Comment : string index 8 read FComment write SetComment;
  10738. Property _End : TDateTime index 16 read F_End write Set_End;
  10739. Property NonBillableOvertimeWork : string index 24 read FNonBillableOvertimeWork write SetNonBillableOvertimeWork;
  10740. Property NonBillableWork : string index 32 read FNonBillableWork write SetNonBillableWork;
  10741. Property OvertimeWork : string index 40 read FOvertimeWork write SetOvertimeWork;
  10742. Property PlannedWork : string index 48 read FPlannedWork write SetPlannedWork;
  10743. Property Start : TDateTime index 56 read FStart write SetStart;
  10744. end;
  10745. { --------------------------------------------------------------------
  10746. PS: EntityType
  10747. --------------------------------------------------------------------}
  10748. TPSEntityType = Class(TODataEntity)
  10749. private
  10750. FName : string;
  10751. FID : TGUIDString;
  10752. procedure SetName(AIndex: Integer; const AValue: string);
  10753. procedure SetID(AIndex: Integer; const AValue: TGUIDString);
  10754. public
  10755. class function ObjectRestKind : String; Override;
  10756. function KeyAsURLPart : String; Override;
  10757. published
  10758. Property Name : string index 0 read FName write SetName;
  10759. Property ID : TGUIDString index 8 read FID write SetID;
  10760. end;
  10761. { --------------------------------------------------------------------
  10762. PS: LookupTables
  10763. --------------------------------------------------------------------}
  10764. TPSLookupTables = Class(TODataEntity)
  10765. private
  10766. FId4a81de82eeb94d6080ea5bf63e27023a : string;
  10767. procedure SetId4a81de82eeb94d6080ea5bf63e27023a(AIndex: Integer;
  10768. const AValue: string);
  10769. public
  10770. class function ObjectRestKind : String; Override;
  10771. function KeyAsURLPart : String; Override;
  10772. published
  10773. Property Id4a81de82eeb94d6080ea5bf63e27023a : string index 0 read FId4a81de82eeb94d6080ea5bf63e27023a write SetId4a81de82eeb94d6080ea5bf63e27023a;
  10774. end;
  10775. { --------------------------------------------------------------------
  10776. PS: Assignment
  10777. --------------------------------------------------------------------}
  10778. TPSAssignment = Class(TODataEntity)
  10779. private
  10780. FActualCostWorkPerformed : Double;
  10781. FActualOvertimeCost : Double;
  10782. FBaselineCost : Double;
  10783. FBaselineCostPerUse : Double;
  10784. FBaselineFinish : TDateTime;
  10785. FBaselineStart : TDateTime;
  10786. FBaselineWork : string;
  10787. FBaselineWorkMilliseconds : TInt32;
  10788. FBaselineWorkTimeSpan : TTime;
  10789. FBudgetedCostWorkPerformed : Double;
  10790. FBudgetedCostWorkScheduled : Double;
  10791. FCostVariance : Double;
  10792. FCostVarianceAtCompletion : Double;
  10793. FCreated : TDateTime;
  10794. FCurrentCostVariance : Double;
  10795. FFinishVariance : string;
  10796. FFinishVarianceMilliseconds : TInt32;
  10797. FFinishVarianceTimeSpan : TTime;
  10798. FId : TGUIDString;
  10799. FIsConfirmed : boolean;
  10800. FIsOverAllocated : boolean;
  10801. FIsPublished : boolean;
  10802. FIsResponsePending : boolean;
  10803. FIsUpdateNeeded : boolean;
  10804. FLevelingDelay : string;
  10805. FLevelingDelayMilliseconds : TInt32;
  10806. FLevelingDelayTimeSpan : TTime;
  10807. FModified : TDateTime;
  10808. FOvertimeCost : Double;
  10809. FRemainingCost : Double;
  10810. FRemainingOvertimeCost : Double;
  10811. FResume : TDateTime;
  10812. FScheduleCostVariance : Double;
  10813. FStart : TDateTime;
  10814. FStartVariance : string;
  10815. FStartVarianceMilliseconds : TInt32;
  10816. FStartVarianceTimeSpan : TTime;
  10817. FStop : TDateTime;
  10818. FWorkVariance : string;
  10819. FWorkVarianceMilliseconds : TInt32;
  10820. FWorkVarianceTimeSpan : TTime;
  10821. procedure SetActualCostWorkPerformed(AIndex: Integer;
  10822. const AValue: Double);
  10823. procedure SetActualOvertimeCost(AIndex: Integer; const AValue: Double);
  10824. procedure SetBaselineCost(AIndex: Integer; const AValue: Double);
  10825. procedure SetBaselineCostPerUse(AIndex: Integer; const AValue: Double);
  10826. procedure SetBaselineFinish(AIndex: Integer; const AValue: TDateTime);
  10827. procedure SetBaselineStart(AIndex: Integer; const AValue: TDateTime);
  10828. procedure SetBaselineWork(AIndex: Integer; const AValue: string);
  10829. procedure SetBaselineWorkMilliseconds(AIndex: Integer;
  10830. const AValue: TInt32);
  10831. procedure SetBaselineWorkTimeSpan(AIndex: Integer; const AValue: TTime);
  10832. procedure SetBudgetedCostWorkPerformed(AIndex: Integer;
  10833. const AValue: Double);
  10834. procedure SetBudgetedCostWorkScheduled(AIndex: Integer;
  10835. const AValue: Double);
  10836. procedure SetCostVariance(AIndex: Integer; const AValue: Double);
  10837. procedure SetCostVarianceAtCompletion(AIndex: Integer;
  10838. const AValue: Double);
  10839. procedure SetCreated(AIndex: Integer; const AValue: TDateTime);
  10840. procedure SetCurrentCostVariance(AIndex: Integer; const AValue: Double);
  10841. procedure SetFinishVariance(AIndex: Integer; const AValue: string);
  10842. procedure SetFinishVarianceMilliseconds(AIndex: Integer;
  10843. const AValue: TInt32);
  10844. procedure SetFinishVarianceTimeSpan(AIndex: Integer;
  10845. const AValue: TTime);
  10846. procedure SetId(AIndex: Integer; const AValue: TGUIDString);
  10847. procedure SetIsConfirmed(AIndex: Integer; const AValue: boolean);
  10848. procedure SetIsOverAllocated(AIndex: Integer; const AValue: boolean);
  10849. procedure SetIsPublished(AIndex: Integer; const AValue: boolean);
  10850. procedure SetIsResponsePending(AIndex: Integer; const AValue: boolean);
  10851. procedure SetIsUpdateNeeded(AIndex: Integer; const AValue: boolean);
  10852. procedure SetLevelingDelay(AIndex: Integer; const AValue: string);
  10853. procedure SetLevelingDelayMilliseconds(AIndex: Integer;
  10854. const AValue: TInt32);
  10855. procedure SetLevelingDelayTimeSpan(AIndex: Integer; const AValue: TTime);
  10856. procedure SetModified(AIndex: Integer; const AValue: TDateTime);
  10857. procedure SetOvertimeCost(AIndex: Integer; const AValue: Double);
  10858. procedure SetRemainingCost(AIndex: Integer; const AValue: Double);
  10859. procedure SetRemainingOvertimeCost(AIndex: Integer;
  10860. const AValue: Double);
  10861. procedure SetResume(AIndex: Integer; const AValue: TDateTime);
  10862. procedure SetScheduleCostVariance(AIndex: Integer; const AValue: Double);
  10863. procedure SetStart(AIndex: Integer; const AValue: TDateTime);
  10864. procedure SetStartVariance(AIndex: Integer; const AValue: string);
  10865. procedure SetStartVarianceMilliseconds(AIndex: Integer;
  10866. const AValue: TInt32);
  10867. procedure SetStartVarianceTimeSpan(AIndex: Integer; const AValue: TTime);
  10868. procedure SetStop(AIndex: Integer; const AValue: TDateTime);
  10869. procedure SetWorkVariance(AIndex: Integer; const AValue: string);
  10870. procedure SetWorkVarianceMilliseconds(AIndex: Integer;
  10871. const AValue: TInt32);
  10872. procedure SetWorkVarianceTimeSpan(AIndex: Integer; const AValue: TTime);
  10873. public
  10874. class function ObjectRestKind : String; Override;
  10875. function KeyAsURLPart : String; Override;
  10876. function CustomFields(AService: TODataService) : TPSCustomField;
  10877. published
  10878. Property ActualCostWorkPerformed : Double index 0 read FActualCostWorkPerformed write SetActualCostWorkPerformed;
  10879. Property ActualOvertimeCost : Double index 8 read FActualOvertimeCost write SetActualOvertimeCost;
  10880. Property BaselineCost : Double index 16 read FBaselineCost write SetBaselineCost;
  10881. Property BaselineCostPerUse : Double index 24 read FBaselineCostPerUse write SetBaselineCostPerUse;
  10882. Property BaselineFinish : TDateTime index 32 read FBaselineFinish write SetBaselineFinish;
  10883. Property BaselineStart : TDateTime index 40 read FBaselineStart write SetBaselineStart;
  10884. Property BaselineWork : string index 48 read FBaselineWork write SetBaselineWork;
  10885. Property BaselineWorkMilliseconds : TInt32 index 56 read FBaselineWorkMilliseconds write SetBaselineWorkMilliseconds;
  10886. Property BaselineWorkTimeSpan : TTime index 64 read FBaselineWorkTimeSpan write SetBaselineWorkTimeSpan;
  10887. Property BudgetedCostWorkPerformed : Double index 72 read FBudgetedCostWorkPerformed write SetBudgetedCostWorkPerformed;
  10888. Property BudgetedCostWorkScheduled : Double index 80 read FBudgetedCostWorkScheduled write SetBudgetedCostWorkScheduled;
  10889. Property CostVariance : Double index 88 read FCostVariance write SetCostVariance;
  10890. Property CostVarianceAtCompletion : Double index 96 read FCostVarianceAtCompletion write SetCostVarianceAtCompletion;
  10891. Property Created : TDateTime index 104 read FCreated write SetCreated;
  10892. Property CurrentCostVariance : Double index 112 read FCurrentCostVariance write SetCurrentCostVariance;
  10893. Property FinishVariance : string index 120 read FFinishVariance write SetFinishVariance;
  10894. Property FinishVarianceMilliseconds : TInt32 index 128 read FFinishVarianceMilliseconds write SetFinishVarianceMilliseconds;
  10895. Property FinishVarianceTimeSpan : TTime index 136 read FFinishVarianceTimeSpan write SetFinishVarianceTimeSpan;
  10896. Property Id : TGUIDString index 144 read FId write SetId;
  10897. Property IsConfirmed : boolean index 152 read FIsConfirmed write SetIsConfirmed;
  10898. Property IsOverAllocated : boolean index 160 read FIsOverAllocated write SetIsOverAllocated;
  10899. Property IsPublished : boolean index 168 read FIsPublished write SetIsPublished;
  10900. Property IsResponsePending : boolean index 176 read FIsResponsePending write SetIsResponsePending;
  10901. Property IsUpdateNeeded : boolean index 184 read FIsUpdateNeeded write SetIsUpdateNeeded;
  10902. Property LevelingDelay : string index 192 read FLevelingDelay write SetLevelingDelay;
  10903. Property LevelingDelayMilliseconds : TInt32 index 200 read FLevelingDelayMilliseconds write SetLevelingDelayMilliseconds;
  10904. Property LevelingDelayTimeSpan : TTime index 208 read FLevelingDelayTimeSpan write SetLevelingDelayTimeSpan;
  10905. Property Modified : TDateTime index 216 read FModified write SetModified;
  10906. Property OvertimeCost : Double index 224 read FOvertimeCost write SetOvertimeCost;
  10907. Property RemainingCost : Double index 232 read FRemainingCost write SetRemainingCost;
  10908. Property RemainingOvertimeCost : Double index 240 read FRemainingOvertimeCost write SetRemainingOvertimeCost;
  10909. Property Resume : TDateTime index 248 read FResume write SetResume;
  10910. Property ScheduleCostVariance : Double index 256 read FScheduleCostVariance write SetScheduleCostVariance;
  10911. Property Start : TDateTime index 264 read FStart write SetStart;
  10912. Property StartVariance : string index 272 read FStartVariance write SetStartVariance;
  10913. Property StartVarianceMilliseconds : TInt32 index 280 read FStartVarianceMilliseconds write SetStartVarianceMilliseconds;
  10914. Property StartVarianceTimeSpan : TTime index 288 read FStartVarianceTimeSpan write SetStartVarianceTimeSpan;
  10915. Property Stop : TDateTime index 296 read FStop write SetStop;
  10916. Property WorkVariance : string index 304 read FWorkVariance write SetWorkVariance;
  10917. Property WorkVarianceMilliseconds : TInt32 index 312 read FWorkVarianceMilliseconds write SetWorkVarianceMilliseconds;
  10918. Property WorkVarianceTimeSpan : TTime index 320 read FWorkVarianceTimeSpan write SetWorkVarianceTimeSpan;
  10919. end;
  10920. { --------------------------------------------------------------------
  10921. PS: CustomField
  10922. --------------------------------------------------------------------}
  10923. TPSCustomField = Class(TODataEntity)
  10924. private
  10925. FAppAlternateId : TGUIDString;
  10926. FDescription : string;
  10927. FEntityTypeId : TGUIDString;
  10928. FFieldType : TInt32;
  10929. FFormula : string;
  10930. FId : TGUIDString;
  10931. FInternalName : string;
  10932. FIsEditableInVisibility : boolean;
  10933. FIsMultilineText : boolean;
  10934. FIsRequired : boolean;
  10935. FIsWorkflowControlled : boolean;
  10936. FLookupAllowMultiSelect : boolean;
  10937. FLookupDefaultValue : TGUIDString;
  10938. FLookupTableId : TGUIDString;
  10939. FName : string;
  10940. FRollsDownToAssignments : boolean;
  10941. FRollupType : TInt32;
  10942. procedure SetAppAlternateId(AIndex: Integer; const AValue: TGUIDString);
  10943. procedure SetDescription(AIndex: Integer; const AValue: string);
  10944. procedure SetEntityTypeId(AIndex: Integer; const AValue: TGUIDString);
  10945. procedure SetFieldType(AIndex: Integer; const AValue: TInt32);
  10946. procedure SetFormula(AIndex: Integer; const AValue: string);
  10947. procedure SetId(AIndex: Integer; const AValue: TGUIDString);
  10948. procedure SetInternalName(AIndex: Integer; const AValue: string);
  10949. procedure SetIsEditableInVisibility(AIndex: Integer;
  10950. const AValue: boolean);
  10951. procedure SetIsMultilineText(AIndex: Integer; const AValue: boolean);
  10952. procedure SetIsRequired(AIndex: Integer; const AValue: boolean);
  10953. procedure SetIsWorkflowControlled(AIndex: Integer;
  10954. const AValue: boolean);
  10955. procedure SetLookupAllowMultiSelect(AIndex: Integer;
  10956. const AValue: boolean);
  10957. procedure SetLookupDefaultValue(AIndex: Integer;
  10958. const AValue: TGUIDString);
  10959. procedure SetLookupTableId(AIndex: Integer; const AValue: TGUIDString);
  10960. procedure SetName(AIndex: Integer; const AValue: string);
  10961. procedure SetRollsDownToAssignments(AIndex: Integer;
  10962. const AValue: boolean);
  10963. procedure SetRollupType(AIndex: Integer; const AValue: TInt32);
  10964. public
  10965. class function ObjectRestKind : String; Override;
  10966. function KeyAsURLPart : String; Override;
  10967. function EntityType(AService: TODataService) : TPSEntityType;
  10968. function LookupEntries(AService: TODataService) : TPSLookupEntry;
  10969. function LookupTable(AService: TODataService) : TPSLookupTable;
  10970. published
  10971. Property AppAlternateId : TGUIDString index 0 read FAppAlternateId write SetAppAlternateId;
  10972. Property Description : string index 8 read FDescription write SetDescription;
  10973. Property EntityTypeId : TGUIDString index 16 read FEntityTypeId write SetEntityTypeId;
  10974. Property FieldType : TInt32 index 24 read FFieldType write SetFieldType;
  10975. Property Formula : string index 32 read FFormula write SetFormula;
  10976. Property Id : TGUIDString index 40 read FId write SetId;
  10977. Property InternalName : string index 48 read FInternalName write SetInternalName;
  10978. Property IsEditableInVisibility : boolean index 56 read FIsEditableInVisibility write SetIsEditableInVisibility;
  10979. Property IsMultilineText : boolean index 64 read FIsMultilineText write SetIsMultilineText;
  10980. Property IsRequired : boolean index 72 read FIsRequired write SetIsRequired;
  10981. Property IsWorkflowControlled : boolean index 80 read FIsWorkflowControlled write SetIsWorkflowControlled;
  10982. Property LookupAllowMultiSelect : boolean index 88 read FLookupAllowMultiSelect write SetLookupAllowMultiSelect;
  10983. Property LookupDefaultValue : TGUIDString index 96 read FLookupDefaultValue write SetLookupDefaultValue;
  10984. Property LookupTableId : TGUIDString index 104 read FLookupTableId write SetLookupTableId;
  10985. Property Name : string index 112 read FName write SetName;
  10986. Property RollsDownToAssignments : boolean index 120 read FRollsDownToAssignments write SetRollsDownToAssignments;
  10987. Property RollupType : TInt32 index 128 read FRollupType write SetRollupType;
  10988. end;
  10989. { --------------------------------------------------------------------
  10990. PS: LookupEntry
  10991. --------------------------------------------------------------------}
  10992. TPSLookupEntry = Class(TODataEntity)
  10993. private
  10994. FAppAlternateId : TGUIDString;
  10995. FDescription : string;
  10996. FFullValue : string;
  10997. FId : TGUIDString;
  10998. FInternalName : string;
  10999. FSortIndex : double;
  11000. procedure SetAppAlternateId(AIndex: Integer; const AValue: TGUIDString);
  11001. procedure SetDescription(AIndex: Integer; const AValue: string);
  11002. procedure SetFullValue(AIndex: Integer; const AValue: string);
  11003. procedure SetId(AIndex: Integer; const AValue: TGUIDString);
  11004. procedure SetInternalName(AIndex: Integer; const AValue: string);
  11005. procedure SetSortIndex(AIndex: Integer; const AValue: double);
  11006. public
  11007. class function ObjectRestKind : String; Override;
  11008. function KeyAsURLPart : String; Override;
  11009. published
  11010. Property AppAlternateId : TGUIDString index 0 read FAppAlternateId write SetAppAlternateId;
  11011. Property Description : string index 8 read FDescription write SetDescription;
  11012. Property FullValue : string index 16 read FFullValue write SetFullValue;
  11013. Property Id : TGUIDString index 24 read FId write SetId;
  11014. Property InternalName : string index 32 read FInternalName write SetInternalName;
  11015. Property SortIndex : double index 40 read FSortIndex write SetSortIndex;
  11016. end;
  11017. { --------------------------------------------------------------------
  11018. PS: LookupTable
  11019. --------------------------------------------------------------------}
  11020. TPSLookupTable = Class(TODataEntity)
  11021. private
  11022. FAppAlternateId : TGUIDString;
  11023. FFieldType : TInt32;
  11024. FId : TGUIDString;
  11025. FMasks : TPSLookupMaskArray;
  11026. FName : string;
  11027. FSortOrder : TInt32;
  11028. procedure SetAppAlternateId(AIndex: Integer; const AValue: TGUIDString);
  11029. procedure SetFieldType(AIndex: Integer; const AValue: TInt32);
  11030. procedure SetId(AIndex: Integer; const AValue: TGUIDString);
  11031. procedure SetMasks(AIndex: Integer; const AValue: TPSLookupMaskArray);
  11032. procedure SetName(AIndex: Integer; const AValue: string);
  11033. procedure SetSortOrder(AIndex: Integer; const AValue: TInt32);
  11034. protected
  11035. {$IFDEF VER2_6}
  11036. procedure SetArrayLength(const AName: String; ALength: Longint)
  11037. ; Override;
  11038. {$ENDIF VER2_6}
  11039. public
  11040. class function ObjectRestKind : String; Override;
  11041. function KeyAsURLPart : String; Override;
  11042. function Entries(AService: TODataService) : TPSLookupEntry;
  11043. published
  11044. Property AppAlternateId : TGUIDString index 0 read FAppAlternateId write SetAppAlternateId;
  11045. Property FieldType : TInt32 index 8 read FFieldType write SetFieldType;
  11046. Property Id : TGUIDString index 16 read FId write SetId;
  11047. Property Masks : TPSLookupMaskArray index 24 read FMasks write SetMasks;
  11048. Property Name : string index 32 read FName write SetName;
  11049. Property SortOrder : TInt32 index 40 read FSortOrder write SetSortOrder;
  11050. end;
  11051. { --------------------------------------------------------------------
  11052. PS: CalendarException
  11053. --------------------------------------------------------------------}
  11054. TPSCalendarException = Class(TODataEntity)
  11055. private
  11056. FFinish : TDateTime;
  11057. FId : TInt32;
  11058. FName : string;
  11059. FRecurrenceDays : TInt32;
  11060. FRecurrenceFrequency : TInt32;
  11061. FRecurrenceMonth : TInt32;
  11062. FRecurrenceMonthDay : TInt32;
  11063. FRecurrenceType : TInt32;
  11064. FRecurrenceWeek : TInt32;
  11065. FShift1Finish : TInt32;
  11066. FShift1Start : TInt32;
  11067. FShift2Finish : TInt32;
  11068. FShift2Start : TInt32;
  11069. FShift3Finish : TInt32;
  11070. FShift3Start : TInt32;
  11071. FShift4Finish : TInt32;
  11072. FShift4Start : TInt32;
  11073. FShift5Finish : TInt32;
  11074. FShift5Start : TInt32;
  11075. FStart : TDateTime;
  11076. procedure SetFinish(AIndex: Integer; const AValue: TDateTime);
  11077. procedure SetId(AIndex: Integer; const AValue: TInt32);
  11078. procedure SetName(AIndex: Integer; const AValue: string);
  11079. procedure SetRecurrenceDays(AIndex: Integer; const AValue: TInt32);
  11080. procedure SetRecurrenceFrequency(AIndex: Integer; const AValue: TInt32);
  11081. procedure SetRecurrenceMonth(AIndex: Integer; const AValue: TInt32);
  11082. procedure SetRecurrenceMonthDay(AIndex: Integer; const AValue: TInt32);
  11083. procedure SetRecurrenceType(AIndex: Integer; const AValue: TInt32);
  11084. procedure SetRecurrenceWeek(AIndex: Integer; const AValue: TInt32);
  11085. procedure SetShift1Finish(AIndex: Integer; const AValue: TInt32);
  11086. procedure SetShift1Start(AIndex: Integer; const AValue: TInt32);
  11087. procedure SetShift2Finish(AIndex: Integer; const AValue: TInt32);
  11088. procedure SetShift2Start(AIndex: Integer; const AValue: TInt32);
  11089. procedure SetShift3Finish(AIndex: Integer; const AValue: TInt32);
  11090. procedure SetShift3Start(AIndex: Integer; const AValue: TInt32);
  11091. procedure SetShift4Finish(AIndex: Integer; const AValue: TInt32);
  11092. procedure SetShift4Start(AIndex: Integer; const AValue: TInt32);
  11093. procedure SetShift5Finish(AIndex: Integer; const AValue: TInt32);
  11094. procedure SetShift5Start(AIndex: Integer; const AValue: TInt32);
  11095. procedure SetStart(AIndex: Integer; const AValue: TDateTime);
  11096. public
  11097. class function ObjectRestKind : String; Override;
  11098. function KeyAsURLPart : String; Override;
  11099. function Calendar(AService: TODataService) : TPSCalendar;
  11100. published
  11101. Property Finish : TDateTime index 0 read FFinish write SetFinish;
  11102. Property Id : TInt32 index 8 read FId write SetId;
  11103. Property Name : string index 16 read FName write SetName;
  11104. Property RecurrenceDays : TInt32 index 24 read FRecurrenceDays write SetRecurrenceDays;
  11105. Property RecurrenceFrequency : TInt32 index 32 read FRecurrenceFrequency write SetRecurrenceFrequency;
  11106. Property RecurrenceMonth : TInt32 index 40 read FRecurrenceMonth write SetRecurrenceMonth;
  11107. Property RecurrenceMonthDay : TInt32 index 48 read FRecurrenceMonthDay write SetRecurrenceMonthDay;
  11108. Property RecurrenceType : TInt32 index 56 read FRecurrenceType write SetRecurrenceType;
  11109. Property RecurrenceWeek : TInt32 index 64 read FRecurrenceWeek write SetRecurrenceWeek;
  11110. Property Shift1Finish : TInt32 index 72 read FShift1Finish write SetShift1Finish;
  11111. Property Shift1Start : TInt32 index 80 read FShift1Start write SetShift1Start;
  11112. Property Shift2Finish : TInt32 index 88 read FShift2Finish write SetShift2Finish;
  11113. Property Shift2Start : TInt32 index 96 read FShift2Start write SetShift2Start;
  11114. Property Shift3Finish : TInt32 index 104 read FShift3Finish write SetShift3Finish;
  11115. Property Shift3Start : TInt32 index 112 read FShift3Start write SetShift3Start;
  11116. Property Shift4Finish : TInt32 index 120 read FShift4Finish write SetShift4Finish;
  11117. Property Shift4Start : TInt32 index 128 read FShift4Start write SetShift4Start;
  11118. Property Shift5Finish : TInt32 index 136 read FShift5Finish write SetShift5Finish;
  11119. Property Shift5Start : TInt32 index 144 read FShift5Start write SetShift5Start;
  11120. Property Start : TDateTime index 152 read FStart write SetStart;
  11121. end;
  11122. { --------------------------------------------------------------------
  11123. PS: Calendar
  11124. --------------------------------------------------------------------}
  11125. TPSCalendar = Class(TODataEntity)
  11126. private
  11127. FCreated : TDateTime;
  11128. FId : TGUIDString;
  11129. FIsStandardCalendar : boolean;
  11130. FModified : TDateTime;
  11131. FName : string;
  11132. FOriginalId : TGUIDString;
  11133. procedure SetCreated(AIndex: Integer; const AValue: TDateTime);
  11134. procedure SetId(AIndex: Integer; const AValue: TGUIDString);
  11135. procedure SetIsStandardCalendar(AIndex: Integer; const AValue: boolean);
  11136. procedure SetModified(AIndex: Integer; const AValue: TDateTime);
  11137. procedure SetName(AIndex: Integer; const AValue: string);
  11138. procedure SetOriginalId(AIndex: Integer; const AValue: TGUIDString);
  11139. public
  11140. class function ObjectRestKind : String; Override;
  11141. function KeyAsURLPart : String; Override;
  11142. function BaseCalendarExceptions(AService: TODataService)
  11143. : TPSCalendarException;
  11144. published
  11145. Property Created : TDateTime index 0 read FCreated write SetCreated;
  11146. Property Id : TGUIDString index 8 read FId write SetId;
  11147. Property IsStandardCalendar : boolean index 16 read FIsStandardCalendar write SetIsStandardCalendar;
  11148. Property Modified : TDateTime index 24 read FModified write SetModified;
  11149. Property Name : string index 32 read FName write SetName;
  11150. Property OriginalId : TGUIDString index 40 read FOriginalId write SetOriginalId;
  11151. end;
  11152. { --------------------------------------------------------------------
  11153. PS: BaseCalendarException
  11154. --------------------------------------------------------------------}
  11155. TPSBaseCalendarException = Class(TPSCalendarException)
  11156. public
  11157. class function ObjectRestKind : String; Override;
  11158. end;
  11159. { --------------------------------------------------------------------
  11160. PS: DraftAssignment
  11161. --------------------------------------------------------------------}
  11162. TPSDraftAssignment = Class(TPSAssignment)
  11163. private
  11164. FActualCost : Double;
  11165. FActualFinish : TDateTime;
  11166. FActualOvertimeWork : string;
  11167. FActualOvertimeWorkMilliseconds : TInt32;
  11168. FActualOvertimeWorkTimeSpan : TTime;
  11169. FActualStart : TDateTime;
  11170. FActualWork : string;
  11171. FActualWorkMilliseconds : TInt32;
  11172. FActualWorkTimeSpan : TTime;
  11173. FBudgetedCost : Double;
  11174. FBudgetedWork : string;
  11175. FBudgetedWorkMilliseconds : TInt32;
  11176. FBudgetedWorkTimeSpan : TTime;
  11177. FCost : Double;
  11178. FDefaultBookingType : TInt32;
  11179. FDelay : string;
  11180. FDelayMilliseconds : TInt32;
  11181. FDelayTimeSpan : TTime;
  11182. FFinish : TDateTime;
  11183. FIsLockedByManager : boolean;
  11184. FIsWorkResource : boolean;
  11185. FNotes : string;
  11186. FOvertimeWork : string;
  11187. FOvertimeWorkMilliseconds : TInt32;
  11188. FOvertimeWorkTimeSpan : TTime;
  11189. FPercentWorkComplete : TInt32;
  11190. FRegularWork : string;
  11191. FRegularWorkMilliseconds : TInt32;
  11192. FRegularWorkTimeSpan : TTime;
  11193. FRemainingOvertimeWork : string;
  11194. FRemainingOvertimeWorkMilliseconds : TInt32;
  11195. FRemainingOvertimeWorkTimeSpan : TTime;
  11196. FRemainingWork : string;
  11197. FRemainingWorkMilliseconds : TInt32;
  11198. FRemainingWorkTimeSpan : TTime;
  11199. FResourceCapacity : Double;
  11200. FResourceId : TGUIDString;
  11201. FTaskId : TGUIDString;
  11202. FWork : string;
  11203. FWorkMilliseconds : TInt32;
  11204. FWorkTimeSpan : TTime;
  11205. procedure SetActualCost(AIndex: Integer; const AValue: Double);
  11206. procedure SetActualFinish(AIndex: Integer; const AValue: TDateTime);
  11207. procedure SetActualOvertimeWork(AIndex: Integer; const AValue: string);
  11208. procedure SetActualOvertimeWorkMilliseconds(AIndex: Integer;
  11209. const AValue: TInt32);
  11210. procedure SetActualOvertimeWorkTimeSpan(AIndex: Integer;
  11211. const AValue: TTime);
  11212. procedure SetActualStart(AIndex: Integer; const AValue: TDateTime);
  11213. procedure SetActualWork(AIndex: Integer; const AValue: string);
  11214. procedure SetActualWorkMilliseconds(AIndex: Integer;
  11215. const AValue: TInt32);
  11216. procedure SetActualWorkTimeSpan(AIndex: Integer; const AValue: TTime);
  11217. procedure SetBudgetedCost(AIndex: Integer; const AValue: Double);
  11218. procedure SetBudgetedWork(AIndex: Integer; const AValue: string);
  11219. procedure SetBudgetedWorkMilliseconds(AIndex: Integer;
  11220. const AValue: TInt32);
  11221. procedure SetBudgetedWorkTimeSpan(AIndex: Integer; const AValue: TTime);
  11222. procedure SetCost(AIndex: Integer; const AValue: Double);
  11223. procedure SetDefaultBookingType(AIndex: Integer; const AValue: TInt32);
  11224. procedure SetDelay(AIndex: Integer; const AValue: string);
  11225. procedure SetDelayMilliseconds(AIndex: Integer; const AValue: TInt32);
  11226. procedure SetDelayTimeSpan(AIndex: Integer; const AValue: TTime);
  11227. procedure SetFinish(AIndex: Integer; const AValue: TDateTime);
  11228. procedure SetIsLockedByManager(AIndex: Integer; const AValue: boolean);
  11229. procedure SetIsWorkResource(AIndex: Integer; const AValue: boolean);
  11230. procedure SetNotes(AIndex: Integer; const AValue: string);
  11231. procedure SetOvertimeWork(AIndex: Integer; const AValue: string);
  11232. procedure SetOvertimeWorkMilliseconds(AIndex: Integer;
  11233. const AValue: TInt32);
  11234. procedure SetOvertimeWorkTimeSpan(AIndex: Integer; const AValue: TTime);
  11235. procedure SetPercentWorkComplete(AIndex: Integer; const AValue: TInt32);
  11236. procedure SetRegularWork(AIndex: Integer; const AValue: string);
  11237. procedure SetRegularWorkMilliseconds(AIndex: Integer;
  11238. const AValue: TInt32);
  11239. procedure SetRegularWorkTimeSpan(AIndex: Integer; const AValue: TTime);
  11240. procedure SetRemainingOvertimeWork(AIndex: Integer;
  11241. const AValue: string);
  11242. procedure SetRemainingOvertimeWorkMilliseconds(AIndex: Integer;
  11243. const AValue: TInt32);
  11244. procedure SetRemainingOvertimeWorkTimeSpan(AIndex: Integer;
  11245. const AValue: TTime);
  11246. procedure SetRemainingWork(AIndex: Integer; const AValue: string);
  11247. procedure SetRemainingWorkMilliseconds(AIndex: Integer;
  11248. const AValue: TInt32);
  11249. procedure SetRemainingWorkTimeSpan(AIndex: Integer; const AValue: TTime);
  11250. procedure SetResourceCapacity(AIndex: Integer; const AValue: Double);
  11251. procedure SetResourceId(AIndex: Integer; const AValue: TGUIDString);
  11252. procedure SetTaskId(AIndex: Integer; const AValue: TGUIDString);
  11253. procedure SetWork(AIndex: Integer; const AValue: string);
  11254. procedure SetWorkMilliseconds(AIndex: Integer; const AValue: TInt32);
  11255. procedure SetWorkTimeSpan(AIndex: Integer; const AValue: TTime);
  11256. public
  11257. class function ObjectRestKind : String; Override;
  11258. function Owner(AService: TODataService) : TSPUser;
  11259. function Parent(AService: TODataService) : TPSDraftAssignment;
  11260. function Resource(AService: TODataService) : TPSDraftProjectResource;
  11261. function Task(AService: TODataService) : TPSDraftTask;
  11262. published
  11263. Property ActualCost : Double index 328 read FActualCost write SetActualCost;
  11264. Property ActualFinish : TDateTime index 336 read FActualFinish write SetActualFinish;
  11265. Property ActualOvertimeWork : string index 344 read FActualOvertimeWork write SetActualOvertimeWork;
  11266. Property ActualOvertimeWorkMilliseconds : TInt32 index 352 read FActualOvertimeWorkMilliseconds write SetActualOvertimeWorkMilliseconds;
  11267. Property ActualOvertimeWorkTimeSpan : TTime index 360 read FActualOvertimeWorkTimeSpan write SetActualOvertimeWorkTimeSpan;
  11268. Property ActualStart : TDateTime index 368 read FActualStart write SetActualStart;
  11269. Property ActualWork : string index 376 read FActualWork write SetActualWork;
  11270. Property ActualWorkMilliseconds : TInt32 index 384 read FActualWorkMilliseconds write SetActualWorkMilliseconds;
  11271. Property ActualWorkTimeSpan : TTime index 392 read FActualWorkTimeSpan write SetActualWorkTimeSpan;
  11272. Property BudgetedCost : Double index 400 read FBudgetedCost write SetBudgetedCost;
  11273. Property BudgetedWork : string index 408 read FBudgetedWork write SetBudgetedWork;
  11274. Property BudgetedWorkMilliseconds : TInt32 index 416 read FBudgetedWorkMilliseconds write SetBudgetedWorkMilliseconds;
  11275. Property BudgetedWorkTimeSpan : TTime index 424 read FBudgetedWorkTimeSpan write SetBudgetedWorkTimeSpan;
  11276. Property Cost : Double index 432 read FCost write SetCost;
  11277. Property DefaultBookingType : TInt32 index 440 read FDefaultBookingType write SetDefaultBookingType;
  11278. Property Delay : string index 448 read FDelay write SetDelay;
  11279. Property DelayMilliseconds : TInt32 index 456 read FDelayMilliseconds write SetDelayMilliseconds;
  11280. Property DelayTimeSpan : TTime index 464 read FDelayTimeSpan write SetDelayTimeSpan;
  11281. Property Finish : TDateTime index 472 read FFinish write SetFinish;
  11282. Property IsLockedByManager : boolean index 480 read FIsLockedByManager write SetIsLockedByManager;
  11283. Property IsWorkResource : boolean index 488 read FIsWorkResource write SetIsWorkResource;
  11284. Property Notes : string index 496 read FNotes write SetNotes;
  11285. Property OvertimeWork : string index 504 read FOvertimeWork write SetOvertimeWork;
  11286. Property OvertimeWorkMilliseconds : TInt32 index 512 read FOvertimeWorkMilliseconds write SetOvertimeWorkMilliseconds;
  11287. Property OvertimeWorkTimeSpan : TTime index 520 read FOvertimeWorkTimeSpan write SetOvertimeWorkTimeSpan;
  11288. Property PercentWorkComplete : TInt32 index 528 read FPercentWorkComplete write SetPercentWorkComplete;
  11289. Property RegularWork : string index 536 read FRegularWork write SetRegularWork;
  11290. Property RegularWorkMilliseconds : TInt32 index 544 read FRegularWorkMilliseconds write SetRegularWorkMilliseconds;
  11291. Property RegularWorkTimeSpan : TTime index 552 read FRegularWorkTimeSpan write SetRegularWorkTimeSpan;
  11292. Property RemainingOvertimeWork : string index 560 read FRemainingOvertimeWork write SetRemainingOvertimeWork;
  11293. Property RemainingOvertimeWorkMilliseconds : TInt32 index 568 read FRemainingOvertimeWorkMilliseconds write SetRemainingOvertimeWorkMilliseconds;
  11294. Property RemainingOvertimeWorkTimeSpan : TTime index 576 read FRemainingOvertimeWorkTimeSpan write SetRemainingOvertimeWorkTimeSpan;
  11295. Property RemainingWork : string index 584 read FRemainingWork write SetRemainingWork;
  11296. Property RemainingWorkMilliseconds : TInt32 index 592 read FRemainingWorkMilliseconds write SetRemainingWorkMilliseconds;
  11297. Property RemainingWorkTimeSpan : TTime index 600 read FRemainingWorkTimeSpan write SetRemainingWorkTimeSpan;
  11298. Property ResourceCapacity : Double index 608 read FResourceCapacity write SetResourceCapacity;
  11299. Property ResourceId : TGUIDString index 616 read FResourceId write SetResourceId;
  11300. Property TaskId : TGUIDString index 624 read FTaskId write SetTaskId;
  11301. Property Work : string index 632 read FWork write SetWork;
  11302. Property WorkMilliseconds : TInt32 index 640 read FWorkMilliseconds write SetWorkMilliseconds;
  11303. Property WorkTimeSpan : TTime index 648 read FWorkTimeSpan write SetWorkTimeSpan;
  11304. end;
  11305. { --------------------------------------------------------------------
  11306. PS: ProjectResource
  11307. --------------------------------------------------------------------}
  11308. TPSProjectResource = Class(TODataEntity)
  11309. private
  11310. FActualCost : Double;
  11311. FActualCostWorkPerformed : string;
  11312. FActualCostWorkPerformedMilliseconds : TInt32;
  11313. FActualCostWorkPerformedTimeSpan : TTime;
  11314. FActualOvertimeCost : Double;
  11315. FActualOvertimeWork : string;
  11316. FActualOvertimeWorkMilliseconds : TInt32;
  11317. FActualOvertimeWorkTimeSpan : TTime;
  11318. FActualWork : string;
  11319. FActualWorkMilliseconds : TInt32;
  11320. FActualWorkTimeSpan : TTime;
  11321. FAvailableFrom : TDateTime;
  11322. FAvailableTo : TDateTime;
  11323. FBaselineCost : Double;
  11324. FBaselineWork : string;
  11325. FBaselineWorkMilliseconds : TInt32;
  11326. FBaselineWorkTimeSpan : TTime;
  11327. FBudetCostWorkPerformed : Double;
  11328. FBudgetedCost : Double;
  11329. FBudgetedCostWorkScheduled : Double;
  11330. FBudgetedWork : string;
  11331. FBudgetedWorkMilliseconds : TInt32;
  11332. FBudgetedWorkTimeSpan : TTime;
  11333. FCost : Double;
  11334. FCostVariance : Double;
  11335. FCostVarianceAtCompletion : Double;
  11336. FCreated : TDateTime;
  11337. FCurrentCostVariance : Double;
  11338. FFinish : TDateTime;
  11339. FId : TGUIDString;
  11340. FIsBudgeted : boolean;
  11341. FIsGenericResource : boolean;
  11342. FIsOverAllocated : boolean;
  11343. FModified : TDateTime;
  11344. FNotes : string;
  11345. FOvertimeCost : Double;
  11346. FOvertimeWork : string;
  11347. FOvertimeWorkMilliseconds : TInt32;
  11348. FOvertimeWorkTimeSpan : TTime;
  11349. FPeakWork : string;
  11350. FPeakWorkMilliseconds : TInt32;
  11351. FPeakWorkTimeSpan : TTime;
  11352. FPercentWorkComplete : TInt32;
  11353. FRegularWork : string;
  11354. FRegularWorkMilliseconds : TInt32;
  11355. FRegularWorkTimeSpan : TTime;
  11356. FRemainingCost : Double;
  11357. FRemainingOvertimeCost : Double;
  11358. FRemainingOvertimeWork : string;
  11359. FRemainingOvertimeWorkMilliseconds : TInt32;
  11360. FRemainingOvertimeWorkTimeSpan : TTime;
  11361. FRemainingWork : string;
  11362. FRemainingWorkMilliseconds : TInt32;
  11363. FRemainingWorkTimeSpan : TTime;
  11364. FScheduleCostVariance : Double;
  11365. FStart : TDateTime;
  11366. FWork : string;
  11367. FWorkMilliseconds : TInt32;
  11368. FWorkTimeSpan : TTime;
  11369. FWorkVariance : string;
  11370. FWorkVarianceMilliseconds : TInt32;
  11371. FWorkVarianceTimeSpan : TTime;
  11372. procedure SetActualCost(AIndex: Integer; const AValue: Double);
  11373. procedure SetActualCostWorkPerformed(AIndex: Integer;
  11374. const AValue: string);
  11375. procedure SetActualCostWorkPerformedMilliseconds(AIndex: Integer;
  11376. const AValue: TInt32);
  11377. procedure SetActualCostWorkPerformedTimeSpan(AIndex: Integer;
  11378. const AValue: TTime);
  11379. procedure SetActualOvertimeCost(AIndex: Integer; const AValue: Double);
  11380. procedure SetActualOvertimeWork(AIndex: Integer; const AValue: string);
  11381. procedure SetActualOvertimeWorkMilliseconds(AIndex: Integer;
  11382. const AValue: TInt32);
  11383. procedure SetActualOvertimeWorkTimeSpan(AIndex: Integer;
  11384. const AValue: TTime);
  11385. procedure SetActualWork(AIndex: Integer; const AValue: string);
  11386. procedure SetActualWorkMilliseconds(AIndex: Integer;
  11387. const AValue: TInt32);
  11388. procedure SetActualWorkTimeSpan(AIndex: Integer; const AValue: TTime);
  11389. procedure SetAvailableFrom(AIndex: Integer; const AValue: TDateTime);
  11390. procedure SetAvailableTo(AIndex: Integer; const AValue: TDateTime);
  11391. procedure SetBaselineCost(AIndex: Integer; const AValue: Double);
  11392. procedure SetBaselineWork(AIndex: Integer; const AValue: string);
  11393. procedure SetBaselineWorkMilliseconds(AIndex: Integer;
  11394. const AValue: TInt32);
  11395. procedure SetBaselineWorkTimeSpan(AIndex: Integer; const AValue: TTime);
  11396. procedure SetBudetCostWorkPerformed(AIndex: Integer;
  11397. const AValue: Double);
  11398. procedure SetBudgetedCost(AIndex: Integer; const AValue: Double);
  11399. procedure SetBudgetedCostWorkScheduled(AIndex: Integer;
  11400. const AValue: Double);
  11401. procedure SetBudgetedWork(AIndex: Integer; const AValue: string);
  11402. procedure SetBudgetedWorkMilliseconds(AIndex: Integer;
  11403. const AValue: TInt32);
  11404. procedure SetBudgetedWorkTimeSpan(AIndex: Integer; const AValue: TTime);
  11405. procedure SetCost(AIndex: Integer; const AValue: Double);
  11406. procedure SetCostVariance(AIndex: Integer; const AValue: Double);
  11407. procedure SetCostVarianceAtCompletion(AIndex: Integer;
  11408. const AValue: Double);
  11409. procedure SetCreated(AIndex: Integer; const AValue: TDateTime);
  11410. procedure SetCurrentCostVariance(AIndex: Integer; const AValue: Double);
  11411. procedure SetFinish(AIndex: Integer; const AValue: TDateTime);
  11412. procedure SetId(AIndex: Integer; const AValue: TGUIDString);
  11413. procedure SetIsBudgeted(AIndex: Integer; const AValue: boolean);
  11414. procedure SetIsGenericResource(AIndex: Integer; const AValue: boolean);
  11415. procedure SetIsOverAllocated(AIndex: Integer; const AValue: boolean);
  11416. procedure SetModified(AIndex: Integer; const AValue: TDateTime);
  11417. procedure SetNotes(AIndex: Integer; const AValue: string);
  11418. procedure SetOvertimeCost(AIndex: Integer; const AValue: Double);
  11419. procedure SetOvertimeWork(AIndex: Integer; const AValue: string);
  11420. procedure SetOvertimeWorkMilliseconds(AIndex: Integer;
  11421. const AValue: TInt32);
  11422. procedure SetOvertimeWorkTimeSpan(AIndex: Integer; const AValue: TTime);
  11423. procedure SetPeakWork(AIndex: Integer; const AValue: string);
  11424. procedure SetPeakWorkMilliseconds(AIndex: Integer; const AValue: TInt32);
  11425. procedure SetPeakWorkTimeSpan(AIndex: Integer; const AValue: TTime);
  11426. procedure SetPercentWorkComplete(AIndex: Integer; const AValue: TInt32);
  11427. procedure SetRegularWork(AIndex: Integer; const AValue: string);
  11428. procedure SetRegularWorkMilliseconds(AIndex: Integer;
  11429. const AValue: TInt32);
  11430. procedure SetRegularWorkTimeSpan(AIndex: Integer; const AValue: TTime);
  11431. procedure SetRemainingCost(AIndex: Integer; const AValue: Double);
  11432. procedure SetRemainingOvertimeCost(AIndex: Integer;
  11433. const AValue: Double);
  11434. procedure SetRemainingOvertimeWork(AIndex: Integer;
  11435. const AValue: string);
  11436. procedure SetRemainingOvertimeWorkMilliseconds(AIndex: Integer;
  11437. const AValue: TInt32);
  11438. procedure SetRemainingOvertimeWorkTimeSpan(AIndex: Integer;
  11439. const AValue: TTime);
  11440. procedure SetRemainingWork(AIndex: Integer; const AValue: string);
  11441. procedure SetRemainingWorkMilliseconds(AIndex: Integer;
  11442. const AValue: TInt32);
  11443. procedure SetRemainingWorkTimeSpan(AIndex: Integer; const AValue: TTime);
  11444. procedure SetScheduleCostVariance(AIndex: Integer; const AValue: Double);
  11445. procedure SetStart(AIndex: Integer; const AValue: TDateTime);
  11446. procedure SetWork(AIndex: Integer; const AValue: string);
  11447. procedure SetWorkMilliseconds(AIndex: Integer; const AValue: TInt32);
  11448. procedure SetWorkTimeSpan(AIndex: Integer; const AValue: TTime);
  11449. procedure SetWorkVariance(AIndex: Integer; const AValue: string);
  11450. procedure SetWorkVarianceMilliseconds(AIndex: Integer;
  11451. const AValue: TInt32);
  11452. procedure SetWorkVarianceTimeSpan(AIndex: Integer; const AValue: TTime);
  11453. public
  11454. class function ObjectRestKind : String; Override;
  11455. function KeyAsURLPart : String; Override;
  11456. function CustomFields(AService: TODataService) : TPSCustomField;
  11457. function EnterpriseResource(AService: TODataService)
  11458. : TPSEnterpriseResource;
  11459. published
  11460. Property ActualCost : Double index 0 read FActualCost write SetActualCost;
  11461. Property ActualCostWorkPerformed : string index 8 read FActualCostWorkPerformed write SetActualCostWorkPerformed;
  11462. Property ActualCostWorkPerformedMilliseconds : TInt32 index 16 read FActualCostWorkPerformedMilliseconds write SetActualCostWorkPerformedMilliseconds;
  11463. Property ActualCostWorkPerformedTimeSpan : TTime index 24 read FActualCostWorkPerformedTimeSpan write SetActualCostWorkPerformedTimeSpan;
  11464. Property ActualOvertimeCost : Double index 32 read FActualOvertimeCost write SetActualOvertimeCost;
  11465. Property ActualOvertimeWork : string index 40 read FActualOvertimeWork write SetActualOvertimeWork;
  11466. Property ActualOvertimeWorkMilliseconds : TInt32 index 48 read FActualOvertimeWorkMilliseconds write SetActualOvertimeWorkMilliseconds;
  11467. Property ActualOvertimeWorkTimeSpan : TTime index 56 read FActualOvertimeWorkTimeSpan write SetActualOvertimeWorkTimeSpan;
  11468. Property ActualWork : string index 64 read FActualWork write SetActualWork;
  11469. Property ActualWorkMilliseconds : TInt32 index 72 read FActualWorkMilliseconds write SetActualWorkMilliseconds;
  11470. Property ActualWorkTimeSpan : TTime index 80 read FActualWorkTimeSpan write SetActualWorkTimeSpan;
  11471. Property AvailableFrom : TDateTime index 88 read FAvailableFrom write SetAvailableFrom;
  11472. Property AvailableTo : TDateTime index 96 read FAvailableTo write SetAvailableTo;
  11473. Property BaselineCost : Double index 104 read FBaselineCost write SetBaselineCost;
  11474. Property BaselineWork : string index 112 read FBaselineWork write SetBaselineWork;
  11475. Property BaselineWorkMilliseconds : TInt32 index 120 read FBaselineWorkMilliseconds write SetBaselineWorkMilliseconds;
  11476. Property BaselineWorkTimeSpan : TTime index 128 read FBaselineWorkTimeSpan write SetBaselineWorkTimeSpan;
  11477. Property BudetCostWorkPerformed : Double index 136 read FBudetCostWorkPerformed write SetBudetCostWorkPerformed;
  11478. Property BudgetedCost : Double index 144 read FBudgetedCost write SetBudgetedCost;
  11479. Property BudgetedCostWorkScheduled : Double index 152 read FBudgetedCostWorkScheduled write SetBudgetedCostWorkScheduled;
  11480. Property BudgetedWork : string index 160 read FBudgetedWork write SetBudgetedWork;
  11481. Property BudgetedWorkMilliseconds : TInt32 index 168 read FBudgetedWorkMilliseconds write SetBudgetedWorkMilliseconds;
  11482. Property BudgetedWorkTimeSpan : TTime index 176 read FBudgetedWorkTimeSpan write SetBudgetedWorkTimeSpan;
  11483. Property Cost : Double index 184 read FCost write SetCost;
  11484. Property CostVariance : Double index 192 read FCostVariance write SetCostVariance;
  11485. Property CostVarianceAtCompletion : Double index 200 read FCostVarianceAtCompletion write SetCostVarianceAtCompletion;
  11486. Property Created : TDateTime index 208 read FCreated write SetCreated;
  11487. Property CurrentCostVariance : Double index 216 read FCurrentCostVariance write SetCurrentCostVariance;
  11488. Property Finish : TDateTime index 224 read FFinish write SetFinish;
  11489. Property Id : TGUIDString index 232 read FId write SetId;
  11490. Property IsBudgeted : boolean index 240 read FIsBudgeted write SetIsBudgeted;
  11491. Property IsGenericResource : boolean index 248 read FIsGenericResource write SetIsGenericResource;
  11492. Property IsOverAllocated : boolean index 256 read FIsOverAllocated write SetIsOverAllocated;
  11493. Property Modified : TDateTime index 264 read FModified write SetModified;
  11494. Property Notes : string index 272 read FNotes write SetNotes;
  11495. Property OvertimeCost : Double index 280 read FOvertimeCost write SetOvertimeCost;
  11496. Property OvertimeWork : string index 288 read FOvertimeWork write SetOvertimeWork;
  11497. Property OvertimeWorkMilliseconds : TInt32 index 296 read FOvertimeWorkMilliseconds write SetOvertimeWorkMilliseconds;
  11498. Property OvertimeWorkTimeSpan : TTime index 304 read FOvertimeWorkTimeSpan write SetOvertimeWorkTimeSpan;
  11499. Property PeakWork : string index 312 read FPeakWork write SetPeakWork;
  11500. Property PeakWorkMilliseconds : TInt32 index 320 read FPeakWorkMilliseconds write SetPeakWorkMilliseconds;
  11501. Property PeakWorkTimeSpan : TTime index 328 read FPeakWorkTimeSpan write SetPeakWorkTimeSpan;
  11502. Property PercentWorkComplete : TInt32 index 336 read FPercentWorkComplete write SetPercentWorkComplete;
  11503. Property RegularWork : string index 344 read FRegularWork write SetRegularWork;
  11504. Property RegularWorkMilliseconds : TInt32 index 352 read FRegularWorkMilliseconds write SetRegularWorkMilliseconds;
  11505. Property RegularWorkTimeSpan : TTime index 360 read FRegularWorkTimeSpan write SetRegularWorkTimeSpan;
  11506. Property RemainingCost : Double index 368 read FRemainingCost write SetRemainingCost;
  11507. Property RemainingOvertimeCost : Double index 376 read FRemainingOvertimeCost write SetRemainingOvertimeCost;
  11508. Property RemainingOvertimeWork : string index 384 read FRemainingOvertimeWork write SetRemainingOvertimeWork;
  11509. Property RemainingOvertimeWorkMilliseconds : TInt32 index 392 read FRemainingOvertimeWorkMilliseconds write SetRemainingOvertimeWorkMilliseconds;
  11510. Property RemainingOvertimeWorkTimeSpan : TTime index 400 read FRemainingOvertimeWorkTimeSpan write SetRemainingOvertimeWorkTimeSpan;
  11511. Property RemainingWork : string index 408 read FRemainingWork write SetRemainingWork;
  11512. Property RemainingWorkMilliseconds : TInt32 index 416 read FRemainingWorkMilliseconds write SetRemainingWorkMilliseconds;
  11513. Property RemainingWorkTimeSpan : TTime index 424 read FRemainingWorkTimeSpan write SetRemainingWorkTimeSpan;
  11514. Property ScheduleCostVariance : Double index 432 read FScheduleCostVariance write SetScheduleCostVariance;
  11515. Property Start : TDateTime index 440 read FStart write SetStart;
  11516. Property Work : string index 448 read FWork write SetWork;
  11517. Property WorkMilliseconds : TInt32 index 456 read FWorkMilliseconds write SetWorkMilliseconds;
  11518. Property WorkTimeSpan : TTime index 464 read FWorkTimeSpan write SetWorkTimeSpan;
  11519. Property WorkVariance : string index 472 read FWorkVariance write SetWorkVariance;
  11520. Property WorkVarianceMilliseconds : TInt32 index 480 read FWorkVarianceMilliseconds write SetWorkVarianceMilliseconds;
  11521. Property WorkVarianceTimeSpan : TTime index 488 read FWorkVarianceTimeSpan write SetWorkVarianceTimeSpan;
  11522. end;
  11523. { --------------------------------------------------------------------
  11524. PS: EnterpriseResource
  11525. --------------------------------------------------------------------}
  11526. TPSEnterpriseResource = Class(TODataEntity)
  11527. private
  11528. FCanLevel : boolean;
  11529. FCode : string;
  11530. FCostAccrual : TInt32;
  11531. FCostCenter : string;
  11532. FCreated : TDateTime;
  11533. FDefaultBookingType : TInt32;
  11534. FEmail : string;
  11535. FExternalId : string;
  11536. FGroup : string;
  11537. FHireDate : TDateTime;
  11538. FId : TGUIDString;
  11539. FInitials : string;
  11540. FIsActive : boolean;
  11541. FIsBudget : boolean;
  11542. FIsCheckedOut : boolean;
  11543. FIsGeneric : boolean;
  11544. FIsTeam : boolean;
  11545. FMaterialLabel : string;
  11546. FModified : TDateTime;
  11547. FName : string;
  11548. FPhonetics : string;
  11549. FResourceType : TInt32;
  11550. FTerminationDate : TDateTime;
  11551. procedure SetCanLevel(AIndex: Integer; const AValue: boolean);
  11552. procedure SetCode(AIndex: Integer; const AValue: string);
  11553. procedure SetCostAccrual(AIndex: Integer; const AValue: TInt32);
  11554. procedure SetCostCenter(AIndex: Integer; const AValue: string);
  11555. procedure SetCreated(AIndex: Integer; const AValue: TDateTime);
  11556. procedure SetDefaultBookingType(AIndex: Integer; const AValue: TInt32);
  11557. procedure SetEmail(AIndex: Integer; const AValue: string);
  11558. procedure SetExternalId(AIndex: Integer; const AValue: string);
  11559. procedure SetGroup(AIndex: Integer; const AValue: string);
  11560. procedure SetHireDate(AIndex: Integer; const AValue: TDateTime);
  11561. procedure SetId(AIndex: Integer; const AValue: TGUIDString);
  11562. procedure SetInitials(AIndex: Integer; const AValue: string);
  11563. procedure SetIsActive(AIndex: Integer; const AValue: boolean);
  11564. procedure SetIsBudget(AIndex: Integer; const AValue: boolean);
  11565. procedure SetIsCheckedOut(AIndex: Integer; const AValue: boolean);
  11566. procedure SetIsGeneric(AIndex: Integer; const AValue: boolean);
  11567. procedure SetIsTeam(AIndex: Integer; const AValue: boolean);
  11568. procedure SetMaterialLabel(AIndex: Integer; const AValue: string);
  11569. procedure SetModified(AIndex: Integer; const AValue: TDateTime);
  11570. procedure SetName(AIndex: Integer; const AValue: string);
  11571. procedure SetPhonetics(AIndex: Integer; const AValue: string);
  11572. procedure SetResourceType(AIndex: Integer; const AValue: TInt32);
  11573. procedure SetTerminationDate(AIndex: Integer; const AValue: TDateTime);
  11574. public
  11575. class function ObjectRestKind : String; Override;
  11576. function KeyAsURLPart : String; Override;
  11577. function Assignments(AService: TODataService) : TPSStatusAssignment;
  11578. function BaseCalendar(AService: TODataService) : TPSCalendar;
  11579. function CustomFields(AService: TODataService) : TPSCustomField;
  11580. function DefaultAssignmentOwner(AService: TODataService) : TSPUser;
  11581. function ResourceCalendarExceptions(AService: TODataService)
  11582. : TPSCalendarException;
  11583. function _Self(AService: TODataService) : TPSEnterpriseResource;
  11584. function TimesheetManager(AService: TODataService) : TSPUser;
  11585. function User(AService: TODataService) : TSPUser;
  11586. published
  11587. Property CanLevel : boolean index 0 read FCanLevel write SetCanLevel;
  11588. Property Code : string index 8 read FCode write SetCode;
  11589. Property CostAccrual : TInt32 index 16 read FCostAccrual write SetCostAccrual;
  11590. Property CostCenter : string index 24 read FCostCenter write SetCostCenter;
  11591. Property Created : TDateTime index 32 read FCreated write SetCreated;
  11592. Property DefaultBookingType : TInt32 index 40 read FDefaultBookingType write SetDefaultBookingType;
  11593. Property Email : string index 48 read FEmail write SetEmail;
  11594. Property ExternalId : string index 56 read FExternalId write SetExternalId;
  11595. Property Group : string index 64 read FGroup write SetGroup;
  11596. Property HireDate : TDateTime index 72 read FHireDate write SetHireDate;
  11597. Property Id : TGUIDString index 80 read FId write SetId;
  11598. Property Initials : string index 88 read FInitials write SetInitials;
  11599. Property IsActive : boolean index 96 read FIsActive write SetIsActive;
  11600. Property IsBudget : boolean index 104 read FIsBudget write SetIsBudget;
  11601. Property IsCheckedOut : boolean index 112 read FIsCheckedOut write SetIsCheckedOut;
  11602. Property IsGeneric : boolean index 120 read FIsGeneric write SetIsGeneric;
  11603. Property IsTeam : boolean index 128 read FIsTeam write SetIsTeam;
  11604. Property MaterialLabel : string index 136 read FMaterialLabel write SetMaterialLabel;
  11605. Property Modified : TDateTime index 144 read FModified write SetModified;
  11606. Property Name : string index 152 read FName write SetName;
  11607. Property Phonetics : string index 160 read FPhonetics write SetPhonetics;
  11608. Property ResourceType : TInt32 index 168 read FResourceType write SetResourceType;
  11609. Property TerminationDate : TDateTime index 176 read FTerminationDate write SetTerminationDate;
  11610. end;
  11611. { --------------------------------------------------------------------
  11612. PS: StatusAssignment
  11613. --------------------------------------------------------------------}
  11614. TPSStatusAssignment = Class(TODataEntity)
  11615. private
  11616. FActualFinish : TDateTime;
  11617. FActualOvertime : string;
  11618. FActualOvertimeMilliseconds : TInt32;
  11619. FActualOvertimeTimeSpan : TTime;
  11620. FActualStart : TDateTime;
  11621. FActualWork : string;
  11622. FActualWorkMilliseconds : TInt32;
  11623. FActualWorkTimeSpan : TTime;
  11624. FComments : string;
  11625. FFinish : TDateTime;
  11626. FId : TGUIDString;
  11627. FIsConfirmed : boolean;
  11628. FName : string;
  11629. FOvertime : string;
  11630. FOvertimeMilliseconds : TInt32;
  11631. FOvertimeTimeSpan : TTime;
  11632. FPercentComplete : TInt16;
  11633. FRegularWork : string;
  11634. FRegularWorkMilliseconds : TInt32;
  11635. FRegularWorkTimeSpan : TTime;
  11636. FRemainingOvertime : string;
  11637. FRemainingOvertimeMilliseconds : TInt32;
  11638. FRemainingOvertimeTimeSpan : TTime;
  11639. FRemainingWork : string;
  11640. FRemainingWorkMilliseconds : TInt32;
  11641. FRemainingWorkTimeSpan : TTime;
  11642. FStart : TDateTime;
  11643. FWork : string;
  11644. FWorkMilliseconds : TInt32;
  11645. FWorkTimeSpan : TTime;
  11646. procedure SetActualFinish(AIndex: Integer; const AValue: TDateTime);
  11647. procedure SetActualOvertime(AIndex: Integer; const AValue: string);
  11648. procedure SetActualOvertimeMilliseconds(AIndex: Integer;
  11649. const AValue: TInt32);
  11650. procedure SetActualOvertimeTimeSpan(AIndex: Integer;
  11651. const AValue: TTime);
  11652. procedure SetActualStart(AIndex: Integer; const AValue: TDateTime);
  11653. procedure SetActualWork(AIndex: Integer; const AValue: string);
  11654. procedure SetActualWorkMilliseconds(AIndex: Integer;
  11655. const AValue: TInt32);
  11656. procedure SetActualWorkTimeSpan(AIndex: Integer; const AValue: TTime);
  11657. procedure SetComments(AIndex: Integer; const AValue: string);
  11658. procedure SetFinish(AIndex: Integer; const AValue: TDateTime);
  11659. procedure SetId(AIndex: Integer; const AValue: TGUIDString);
  11660. procedure SetIsConfirmed(AIndex: Integer; const AValue: boolean);
  11661. procedure SetName(AIndex: Integer; const AValue: string);
  11662. procedure SetOvertime(AIndex: Integer; const AValue: string);
  11663. procedure SetOvertimeMilliseconds(AIndex: Integer; const AValue: TInt32);
  11664. procedure SetOvertimeTimeSpan(AIndex: Integer; const AValue: TTime);
  11665. procedure SetPercentComplete(AIndex: Integer; const AValue: TInt16);
  11666. procedure SetRegularWork(AIndex: Integer; const AValue: string);
  11667. procedure SetRegularWorkMilliseconds(AIndex: Integer;
  11668. const AValue: TInt32);
  11669. procedure SetRegularWorkTimeSpan(AIndex: Integer; const AValue: TTime);
  11670. procedure SetRemainingOvertime(AIndex: Integer; const AValue: string);
  11671. procedure SetRemainingOvertimeMilliseconds(AIndex: Integer;
  11672. const AValue: TInt32);
  11673. procedure SetRemainingOvertimeTimeSpan(AIndex: Integer;
  11674. const AValue: TTime);
  11675. procedure SetRemainingWork(AIndex: Integer; const AValue: string);
  11676. procedure SetRemainingWorkMilliseconds(AIndex: Integer;
  11677. const AValue: TInt32);
  11678. procedure SetRemainingWorkTimeSpan(AIndex: Integer; const AValue: TTime);
  11679. procedure SetStart(AIndex: Integer; const AValue: TDateTime);
  11680. procedure SetWork(AIndex: Integer; const AValue: string);
  11681. procedure SetWorkMilliseconds(AIndex: Integer; const AValue: TInt32);
  11682. procedure SetWorkTimeSpan(AIndex: Integer; const AValue: TTime);
  11683. public
  11684. class function ObjectRestKind : String; Override;
  11685. function KeyAsURLPart : String; Override;
  11686. function CustomFields(AService: TODataService) : TPSCustomField;
  11687. function Project(AService: TODataService) : TPSPublishedProject;
  11688. function Resource(AService: TODataService) : TPSEnterpriseResource;
  11689. function Task(AService: TODataService) : TPSStatusTask;
  11690. published
  11691. Property ActualFinish : TDateTime index 0 read FActualFinish write SetActualFinish;
  11692. Property ActualOvertime : string index 8 read FActualOvertime write SetActualOvertime;
  11693. Property ActualOvertimeMilliseconds : TInt32 index 16 read FActualOvertimeMilliseconds write SetActualOvertimeMilliseconds;
  11694. Property ActualOvertimeTimeSpan : TTime index 24 read FActualOvertimeTimeSpan write SetActualOvertimeTimeSpan;
  11695. Property ActualStart : TDateTime index 32 read FActualStart write SetActualStart;
  11696. Property ActualWork : string index 40 read FActualWork write SetActualWork;
  11697. Property ActualWorkMilliseconds : TInt32 index 48 read FActualWorkMilliseconds write SetActualWorkMilliseconds;
  11698. Property ActualWorkTimeSpan : TTime index 56 read FActualWorkTimeSpan write SetActualWorkTimeSpan;
  11699. Property Comments : string index 64 read FComments write SetComments;
  11700. Property Finish : TDateTime index 72 read FFinish write SetFinish;
  11701. Property Id : TGUIDString index 80 read FId write SetId;
  11702. Property IsConfirmed : boolean index 88 read FIsConfirmed write SetIsConfirmed;
  11703. Property Name : string index 96 read FName write SetName;
  11704. Property Overtime : string index 104 read FOvertime write SetOvertime;
  11705. Property OvertimeMilliseconds : TInt32 index 112 read FOvertimeMilliseconds write SetOvertimeMilliseconds;
  11706. Property OvertimeTimeSpan : TTime index 120 read FOvertimeTimeSpan write SetOvertimeTimeSpan;
  11707. Property PercentComplete : TInt16 index 128 read FPercentComplete write SetPercentComplete;
  11708. Property RegularWork : string index 136 read FRegularWork write SetRegularWork;
  11709. Property RegularWorkMilliseconds : TInt32 index 144 read FRegularWorkMilliseconds write SetRegularWorkMilliseconds;
  11710. Property RegularWorkTimeSpan : TTime index 152 read FRegularWorkTimeSpan write SetRegularWorkTimeSpan;
  11711. Property RemainingOvertime : string index 160 read FRemainingOvertime write SetRemainingOvertime;
  11712. Property RemainingOvertimeMilliseconds : TInt32 index 168 read FRemainingOvertimeMilliseconds write SetRemainingOvertimeMilliseconds;
  11713. Property RemainingOvertimeTimeSpan : TTime index 176 read FRemainingOvertimeTimeSpan write SetRemainingOvertimeTimeSpan;
  11714. Property RemainingWork : string index 184 read FRemainingWork write SetRemainingWork;
  11715. Property RemainingWorkMilliseconds : TInt32 index 192 read FRemainingWorkMilliseconds write SetRemainingWorkMilliseconds;
  11716. Property RemainingWorkTimeSpan : TTime index 200 read FRemainingWorkTimeSpan write SetRemainingWorkTimeSpan;
  11717. Property Start : TDateTime index 208 read FStart write SetStart;
  11718. Property Work : string index 216 read FWork write SetWork;
  11719. Property WorkMilliseconds : TInt32 index 224 read FWorkMilliseconds write SetWorkMilliseconds;
  11720. Property WorkTimeSpan : TTime index 232 read FWorkTimeSpan write SetWorkTimeSpan;
  11721. end;
  11722. { --------------------------------------------------------------------
  11723. PS: Project
  11724. --------------------------------------------------------------------}
  11725. TPSProject = Class(TODataEntity)
  11726. private
  11727. FApprovedEnd : TDateTime;
  11728. FApprovedStart : TDateTime;
  11729. FCheckedOutDate : TDateTime;
  11730. FCheckOutDescription : string;
  11731. FCheckOutId : TGUIDString;
  11732. FCreatedDate : TDateTime;
  11733. FDefaultOvertimeRateUnits : TInt32;
  11734. FDefaultStandardRateUnits : TInt32;
  11735. FHasMppPendingImport : boolean;
  11736. FId : TGUIDString;
  11737. FIsCheckedOut : boolean;
  11738. FLastPublishedDate : TDateTime;
  11739. FLastSavedDate : TDateTime;
  11740. FListId : TGUIDString;
  11741. FOptimizerDecision : TInt32;
  11742. FPercentComplete : TInt32;
  11743. FPlannerDecision : TInt32;
  11744. FProjectSiteUrl : string;
  11745. FProjectType : TInt32;
  11746. FSummaryTaskId : TGUIDString;
  11747. FTaskListId : TGUIDString;
  11748. FWebId : TGUIDString;
  11749. procedure SetApprovedEnd(AIndex: Integer; const AValue: TDateTime);
  11750. procedure SetApprovedStart(AIndex: Integer; const AValue: TDateTime);
  11751. procedure SetCheckedOutDate(AIndex: Integer; const AValue: TDateTime);
  11752. procedure SetCheckOutDescription(AIndex: Integer; const AValue: string);
  11753. procedure SetCheckOutId(AIndex: Integer; const AValue: TGUIDString);
  11754. procedure SetCreatedDate(AIndex: Integer; const AValue: TDateTime);
  11755. procedure SetDefaultOvertimeRateUnits(AIndex: Integer;
  11756. const AValue: TInt32);
  11757. procedure SetDefaultStandardRateUnits(AIndex: Integer;
  11758. const AValue: TInt32);
  11759. procedure SetHasMppPendingImport(AIndex: Integer; const AValue: boolean);
  11760. procedure SetId(AIndex: Integer; const AValue: TGUIDString);
  11761. procedure SetIsCheckedOut(AIndex: Integer; const AValue: boolean);
  11762. procedure SetLastPublishedDate(AIndex: Integer; const AValue: TDateTime);
  11763. procedure SetLastSavedDate(AIndex: Integer; const AValue: TDateTime);
  11764. procedure SetListId(AIndex: Integer; const AValue: TGUIDString);
  11765. procedure SetOptimizerDecision(AIndex: Integer; const AValue: TInt32);
  11766. procedure SetPercentComplete(AIndex: Integer; const AValue: TInt32);
  11767. procedure SetPlannerDecision(AIndex: Integer; const AValue: TInt32);
  11768. procedure SetProjectSiteUrl(AIndex: Integer; const AValue: string);
  11769. procedure SetProjectType(AIndex: Integer; const AValue: TInt32);
  11770. procedure SetSummaryTaskId(AIndex: Integer; const AValue: TGUIDString);
  11771. procedure SetTaskListId(AIndex: Integer; const AValue: TGUIDString);
  11772. procedure SetWebId(AIndex: Integer; const AValue: TGUIDString);
  11773. public
  11774. class function ObjectRestKind : String; Override;
  11775. function KeyAsURLPart : String; Override;
  11776. function CheckedOutBy(AService: TODataService) : TSPUser;
  11777. function CustomFields(AService: TODataService) : TPSCustomField;
  11778. function EnterpriseProjectType(AService: TODataService)
  11779. : TPSEnterpriseProjectType;
  11780. function Phase(AService: TODataService) : TPSPhase;
  11781. function QueueJobs(AService: TODataService) : TPSQueueJob;
  11782. function Stage(AService: TODataService) : TPSStage;
  11783. published
  11784. Property ApprovedEnd : TDateTime index 0 read FApprovedEnd write SetApprovedEnd;
  11785. Property ApprovedStart : TDateTime index 8 read FApprovedStart write SetApprovedStart;
  11786. Property CheckedOutDate : TDateTime index 16 read FCheckedOutDate write SetCheckedOutDate;
  11787. Property CheckOutDescription : string index 24 read FCheckOutDescription write SetCheckOutDescription;
  11788. Property CheckOutId : TGUIDString index 32 read FCheckOutId write SetCheckOutId;
  11789. Property CreatedDate : TDateTime index 40 read FCreatedDate write SetCreatedDate;
  11790. Property DefaultOvertimeRateUnits : TInt32 index 48 read FDefaultOvertimeRateUnits write SetDefaultOvertimeRateUnits;
  11791. Property DefaultStandardRateUnits : TInt32 index 56 read FDefaultStandardRateUnits write SetDefaultStandardRateUnits;
  11792. Property HasMppPendingImport : boolean index 64 read FHasMppPendingImport write SetHasMppPendingImport;
  11793. Property Id : TGUIDString index 72 read FId write SetId;
  11794. Property IsCheckedOut : boolean index 80 read FIsCheckedOut write SetIsCheckedOut;
  11795. Property LastPublishedDate : TDateTime index 88 read FLastPublishedDate write SetLastPublishedDate;
  11796. Property LastSavedDate : TDateTime index 96 read FLastSavedDate write SetLastSavedDate;
  11797. Property ListId : TGUIDString index 104 read FListId write SetListId;
  11798. Property OptimizerDecision : TInt32 index 112 read FOptimizerDecision write SetOptimizerDecision;
  11799. Property PercentComplete : TInt32 index 120 read FPercentComplete write SetPercentComplete;
  11800. Property PlannerDecision : TInt32 index 128 read FPlannerDecision write SetPlannerDecision;
  11801. Property ProjectSiteUrl : string index 136 read FProjectSiteUrl write SetProjectSiteUrl;
  11802. Property ProjectType : TInt32 index 144 read FProjectType write SetProjectType;
  11803. Property SummaryTaskId : TGUIDString index 152 read FSummaryTaskId write SetSummaryTaskId;
  11804. Property TaskListId : TGUIDString index 160 read FTaskListId write SetTaskListId;
  11805. Property WebId : TGUIDString index 168 read FWebId write SetWebId;
  11806. end;
  11807. { --------------------------------------------------------------------
  11808. PS: EnterpriseProjectType
  11809. --------------------------------------------------------------------}
  11810. TPSEnterpriseProjectType = Class(TODataEntity)
  11811. private
  11812. FDescription : string;
  11813. FId : TGUIDString;
  11814. FImageUrl : string;
  11815. FIsDefault : boolean;
  11816. FIsManaged : boolean;
  11817. FName : string;
  11818. FOrder : TInt32;
  11819. FProjectPlanTemplateId : TGUIDString;
  11820. FWorkflowAssociationId : TGUIDString;
  11821. FWorkflowAssociationName : string;
  11822. FWorkspaceTemplateName : string;
  11823. procedure SetDescription(AIndex: Integer; const AValue: string);
  11824. procedure SetId(AIndex: Integer; const AValue: TGUIDString);
  11825. procedure SetImageUrl(AIndex: Integer; const AValue: string);
  11826. procedure SetIsDefault(AIndex: Integer; const AValue: boolean);
  11827. procedure SetIsManaged(AIndex: Integer; const AValue: boolean);
  11828. procedure SetName(AIndex: Integer; const AValue: string);
  11829. procedure SetOrder(AIndex: Integer; const AValue: TInt32);
  11830. procedure SetProjectPlanTemplateId(AIndex: Integer;
  11831. const AValue: TGUIDString);
  11832. procedure SetWorkflowAssociationId(AIndex: Integer;
  11833. const AValue: TGUIDString);
  11834. procedure SetWorkflowAssociationName(AIndex: Integer;
  11835. const AValue: string);
  11836. procedure SetWorkspaceTemplateName(AIndex: Integer;
  11837. const AValue: string);
  11838. public
  11839. class function ObjectRestKind : String; Override;
  11840. function KeyAsURLPart : String; Override;
  11841. function ProjectDetailPages(AService: TODataService)
  11842. : TPSProjectDetailPage;
  11843. published
  11844. Property Description : string index 0 read FDescription write SetDescription;
  11845. Property Id : TGUIDString index 8 read FId write SetId;
  11846. Property ImageUrl : string index 16 read FImageUrl write SetImageUrl;
  11847. Property IsDefault : boolean index 24 read FIsDefault write SetIsDefault;
  11848. Property IsManaged : boolean index 32 read FIsManaged write SetIsManaged;
  11849. Property Name : string index 40 read FName write SetName;
  11850. Property Order : TInt32 index 48 read FOrder write SetOrder;
  11851. Property ProjectPlanTemplateId : TGUIDString index 56 read FProjectPlanTemplateId write SetProjectPlanTemplateId;
  11852. Property WorkflowAssociationId : TGUIDString index 64 read FWorkflowAssociationId write SetWorkflowAssociationId;
  11853. Property WorkflowAssociationName : string index 72 read FWorkflowAssociationName write SetWorkflowAssociationName;
  11854. Property WorkspaceTemplateName : string index 80 read FWorkspaceTemplateName write SetWorkspaceTemplateName;
  11855. end;
  11856. { --------------------------------------------------------------------
  11857. PS: ProjectDetailPage
  11858. --------------------------------------------------------------------}
  11859. TPSProjectDetailPage = Class(TODataEntity)
  11860. private
  11861. FId : TGUIDString;
  11862. FName : string;
  11863. FPageType : TInt32;
  11864. procedure SetId(AIndex: Integer; const AValue: TGUIDString);
  11865. procedure SetName(AIndex: Integer; const AValue: string);
  11866. procedure SetPageType(AIndex: Integer; const AValue: TInt32);
  11867. public
  11868. class function ObjectRestKind : String; Override;
  11869. function KeyAsURLPart : String; Override;
  11870. function Item(AService: TODataService) : TSPListItem;
  11871. published
  11872. Property Id : TGUIDString index 0 read FId write SetId;
  11873. Property Name : string index 8 read FName write SetName;
  11874. Property PageType : TInt32 index 16 read FPageType write SetPageType;
  11875. end;
  11876. { --------------------------------------------------------------------
  11877. PS: Phase
  11878. --------------------------------------------------------------------}
  11879. TPSPhase = Class(TODataEntity)
  11880. private
  11881. FDescription : string;
  11882. FId : TGUIDString;
  11883. FName : string;
  11884. procedure SetDescription(AIndex: Integer; const AValue: string);
  11885. procedure SetId(AIndex: Integer; const AValue: TGUIDString);
  11886. procedure SetName(AIndex: Integer; const AValue: string);
  11887. public
  11888. class function ObjectRestKind : String; Override;
  11889. function KeyAsURLPart : String; Override;
  11890. function Stages(AService: TODataService) : TPSStage;
  11891. published
  11892. Property Description : string index 0 read FDescription write SetDescription;
  11893. Property Id : TGUIDString index 8 read FId write SetId;
  11894. Property Name : string index 16 read FName write SetName;
  11895. end;
  11896. { --------------------------------------------------------------------
  11897. PS: Stage
  11898. --------------------------------------------------------------------}
  11899. TPSStage = Class(TODataEntity)
  11900. private
  11901. FBehavior : TInt32;
  11902. FCheckInRequired : boolean;
  11903. FDescription : string;
  11904. FId : TGUIDString;
  11905. FName : string;
  11906. FSubmitDescription : string;
  11907. procedure SetBehavior(AIndex: Integer; const AValue: TInt32);
  11908. procedure SetCheckInRequired(AIndex: Integer; const AValue: boolean);
  11909. procedure SetDescription(AIndex: Integer; const AValue: string);
  11910. procedure SetId(AIndex: Integer; const AValue: TGUIDString);
  11911. procedure SetName(AIndex: Integer; const AValue: string);
  11912. procedure SetSubmitDescription(AIndex: Integer; const AValue: string);
  11913. public
  11914. class function ObjectRestKind : String; Override;
  11915. function KeyAsURLPart : String; Override;
  11916. function CustomFields(AService: TODataService) : TPSStageCustomField;
  11917. function Phase(AService: TODataService) : TPSPhase;
  11918. function ProjectDetailPages(AService: TODataService)
  11919. : TPSStageDetailPage;
  11920. function WorkflowStatusPage(AService: TODataService)
  11921. : TPSProjectDetailPage;
  11922. published
  11923. Property Behavior : TInt32 index 0 read FBehavior write SetBehavior;
  11924. Property CheckInRequired : boolean index 8 read FCheckInRequired write SetCheckInRequired;
  11925. Property Description : string index 16 read FDescription write SetDescription;
  11926. Property Id : TGUIDString index 24 read FId write SetId;
  11927. Property Name : string index 32 read FName write SetName;
  11928. Property SubmitDescription : string index 40 read FSubmitDescription write SetSubmitDescription;
  11929. end;
  11930. { --------------------------------------------------------------------
  11931. PS: StageCustomField
  11932. --------------------------------------------------------------------}
  11933. TPSStageCustomField = Class(TODataEntity)
  11934. private
  11935. FId : TGUIDString;
  11936. FName : string;
  11937. FReadOnly : boolean;
  11938. FRequired : boolean;
  11939. procedure SetId(AIndex: Integer; const AValue: TGUIDString);
  11940. procedure SetName(AIndex: Integer; const AValue: string);
  11941. procedure SetReadOnly(AIndex: Integer; const AValue: boolean);
  11942. procedure SetRequired(AIndex: Integer; const AValue: boolean);
  11943. public
  11944. class function ObjectRestKind : String; Override;
  11945. function KeyAsURLPart : String; Override;
  11946. function Stage(AService: TODataService) : TPSStage;
  11947. published
  11948. Property Id : TGUIDString index 0 read FId write SetId;
  11949. Property Name : string index 8 read FName write SetName;
  11950. Property ReadOnly : boolean index 16 read FReadOnly write SetReadOnly;
  11951. Property Required : boolean index 24 read FRequired write SetRequired;
  11952. end;
  11953. { --------------------------------------------------------------------
  11954. PS: StageDetailPage
  11955. --------------------------------------------------------------------}
  11956. TPSStageDetailPage = Class(TODataEntity)
  11957. private
  11958. FDescription : string;
  11959. FId : TGUIDString;
  11960. FPosition : TInt32;
  11961. FRequiresAttention : boolean;
  11962. procedure SetDescription(AIndex: Integer; const AValue: string);
  11963. procedure SetId(AIndex: Integer; const AValue: TGUIDString);
  11964. procedure SetPosition(AIndex: Integer; const AValue: TInt32);
  11965. procedure SetRequiresAttention(AIndex: Integer; const AValue: boolean);
  11966. public
  11967. class function ObjectRestKind : String; Override;
  11968. function KeyAsURLPart : String; Override;
  11969. function Page(AService: TODataService) : TPSProjectDetailPage;
  11970. function Stage(AService: TODataService) : TPSStage;
  11971. published
  11972. Property Description : string index 0 read FDescription write SetDescription;
  11973. Property Id : TGUIDString index 8 read FId write SetId;
  11974. Property Position : TInt32 index 16 read FPosition write SetPosition;
  11975. Property RequiresAttention : boolean index 24 read FRequiresAttention write SetRequiresAttention;
  11976. end;
  11977. { --------------------------------------------------------------------
  11978. PS: QueueJob
  11979. --------------------------------------------------------------------}
  11980. TPSQueueJob = Class(TODataEntity)
  11981. private
  11982. FId : TGUIDString;
  11983. FJobState : TInt32;
  11984. FMessageType : TInt32;
  11985. FPercentComplete : TInt32;
  11986. FWaitMilliseconds : TInt32;
  11987. FWaitTime : TTime;
  11988. procedure SetId(AIndex: Integer; const AValue: TGUIDString);
  11989. procedure SetJobState(AIndex: Integer; const AValue: TInt32);
  11990. procedure SetMessageType(AIndex: Integer; const AValue: TInt32);
  11991. procedure SetPercentComplete(AIndex: Integer; const AValue: TInt32);
  11992. procedure SetWaitMilliseconds(AIndex: Integer; const AValue: TInt32);
  11993. procedure SetWaitTime(AIndex: Integer; const AValue: TTime);
  11994. public
  11995. class function ObjectRestKind : String; Override;
  11996. function KeyAsURLPart : String; Override;
  11997. function Project(AService: TODataService) : TPSProject;
  11998. function Submitter(AService: TODataService) : TSPUser;
  11999. published
  12000. Property Id : TGUIDString index 0 read FId write SetId;
  12001. Property JobState : TInt32 index 8 read FJobState write SetJobState;
  12002. Property MessageType : TInt32 index 16 read FMessageType write SetMessageType;
  12003. Property PercentComplete : TInt32 index 24 read FPercentComplete write SetPercentComplete;
  12004. Property WaitMilliseconds : TInt32 index 32 read FWaitMilliseconds write SetWaitMilliseconds;
  12005. Property WaitTime : TTime index 40 read FWaitTime write SetWaitTime;
  12006. end;
  12007. { --------------------------------------------------------------------
  12008. PS: PublishedProject
  12009. --------------------------------------------------------------------}
  12010. TPSPublishedProject = Class(TPSProject)
  12011. private
  12012. FCalculateActualCosts : boolean;
  12013. FCalculatesActualCosts : boolean;
  12014. FCriticalSlackLimit : TInt32;
  12015. FCurrencyCode : string;
  12016. FCurrencyDigits : TInt32;
  12017. FCurrencyPosition : TInt32;
  12018. FCurrencySymbol : string;
  12019. FCurrentDate : TDateTime;
  12020. FDaysPerMonth : TInt16;
  12021. FDefaultEffortDriven : boolean;
  12022. FDefaultEstimatedDuration : boolean;
  12023. FDefaultFinishTime : TDateTime;
  12024. FDefaultFixedCostAccrual : TInt32;
  12025. FDefaultOvertimeRate : Double;
  12026. FDefaultStandardRate : Double;
  12027. FDefaultStartTime : TDateTime;
  12028. FDefaultTaskType : TInt32;
  12029. FDefaultWorkFormat : TInt32;
  12030. FDescription : string;
  12031. FEnterpriseProjectTypeId : TGUIDString;
  12032. FFinishDate : TDateTime;
  12033. FFiscalYearStartMonth : TInt16;
  12034. FHonorConstraints : boolean;
  12035. FIsEnterpriseProject : boolean;
  12036. FMinutesPerDay : TInt32;
  12037. FMinutesPerWeek : TInt32;
  12038. FMoveActualIfLater : boolean;
  12039. FMoveActualToStatus : boolean;
  12040. FMoveRemainingIfEarlier : boolean;
  12041. FMoveRemainingToStatus : boolean;
  12042. FMultipleCriticalPaths : boolean;
  12043. FName : string;
  12044. FNewTasksAreManual : boolean;
  12045. FNumberFiscalYearFromStart : boolean;
  12046. FProtectedActualsSynch : boolean;
  12047. FScheduledFromStart : boolean;
  12048. FShowEstimatedDurations : boolean;
  12049. FSplitInProgress : boolean;
  12050. FSpreadActualCostsToStatus : boolean;
  12051. FSpreadPercentCompleteToStatus : boolean;
  12052. FStartDate : TDateTime;
  12053. FStatusDate : TDateTime;
  12054. FTrackingMode : TInt32;
  12055. FWeekStartDay : TInt16;
  12056. FWinprojVersion : double;
  12057. procedure SetCalculateActualCosts(AIndex: Integer;
  12058. const AValue: boolean);
  12059. procedure SetCalculatesActualCosts(AIndex: Integer;
  12060. const AValue: boolean);
  12061. procedure SetCriticalSlackLimit(AIndex: Integer; const AValue: TInt32);
  12062. procedure SetCurrencyCode(AIndex: Integer; const AValue: string);
  12063. procedure SetCurrencyDigits(AIndex: Integer; const AValue: TInt32);
  12064. procedure SetCurrencyPosition(AIndex: Integer; const AValue: TInt32);
  12065. procedure SetCurrencySymbol(AIndex: Integer; const AValue: string);
  12066. procedure SetCurrentDate(AIndex: Integer; const AValue: TDateTime);
  12067. procedure SetDaysPerMonth(AIndex: Integer; const AValue: TInt16);
  12068. procedure SetDefaultEffortDriven(AIndex: Integer; const AValue: boolean);
  12069. procedure SetDefaultEstimatedDuration(AIndex: Integer;
  12070. const AValue: boolean);
  12071. procedure SetDefaultFinishTime(AIndex: Integer; const AValue: TDateTime);
  12072. procedure SetDefaultFixedCostAccrual(AIndex: Integer;
  12073. const AValue: TInt32);
  12074. procedure SetDefaultOvertimeRate(AIndex: Integer; const AValue: Double);
  12075. procedure SetDefaultStandardRate(AIndex: Integer; const AValue: Double);
  12076. procedure SetDefaultStartTime(AIndex: Integer; const AValue: TDateTime);
  12077. procedure SetDefaultTaskType(AIndex: Integer; const AValue: TInt32);
  12078. procedure SetDefaultWorkFormat(AIndex: Integer; const AValue: TInt32);
  12079. procedure SetDescription(AIndex: Integer; const AValue: string);
  12080. procedure SetEnterpriseProjectTypeId(AIndex: Integer;
  12081. const AValue: TGUIDString);
  12082. procedure SetFinishDate(AIndex: Integer; const AValue: TDateTime);
  12083. procedure SetFiscalYearStartMonth(AIndex: Integer; const AValue: TInt16);
  12084. procedure SetHonorConstraints(AIndex: Integer; const AValue: boolean);
  12085. procedure SetIsEnterpriseProject(AIndex: Integer; const AValue: boolean);
  12086. procedure SetMinutesPerDay(AIndex: Integer; const AValue: TInt32);
  12087. procedure SetMinutesPerWeek(AIndex: Integer; const AValue: TInt32);
  12088. procedure SetMoveActualIfLater(AIndex: Integer; const AValue: boolean);
  12089. procedure SetMoveActualToStatus(AIndex: Integer; const AValue: boolean);
  12090. procedure SetMoveRemainingIfEarlier(AIndex: Integer;
  12091. const AValue: boolean);
  12092. procedure SetMoveRemainingToStatus(AIndex: Integer;
  12093. const AValue: boolean);
  12094. procedure SetMultipleCriticalPaths(AIndex: Integer;
  12095. const AValue: boolean);
  12096. procedure SetName(AIndex: Integer; const AValue: string);
  12097. procedure SetNewTasksAreManual(AIndex: Integer; const AValue: boolean);
  12098. procedure SetNumberFiscalYearFromStart(AIndex: Integer;
  12099. const AValue: boolean);
  12100. procedure SetProtectedActualsSynch(AIndex: Integer;
  12101. const AValue: boolean);
  12102. procedure SetScheduledFromStart(AIndex: Integer; const AValue: boolean);
  12103. procedure SetShowEstimatedDurations(AIndex: Integer;
  12104. const AValue: boolean);
  12105. procedure SetSplitInProgress(AIndex: Integer; const AValue: boolean);
  12106. procedure SetSpreadActualCostsToStatus(AIndex: Integer;
  12107. const AValue: boolean);
  12108. procedure SetSpreadPercentCompleteToStatus(AIndex: Integer;
  12109. const AValue: boolean);
  12110. procedure SetStartDate(AIndex: Integer; const AValue: TDateTime);
  12111. procedure SetStatusDate(AIndex: Integer; const AValue: TDateTime);
  12112. procedure SetTrackingMode(AIndex: Integer; const AValue: TInt32);
  12113. procedure SetWeekStartDay(AIndex: Integer; const AValue: TInt16);
  12114. procedure SetWinprojVersion(AIndex: Integer; const AValue: double);
  12115. public
  12116. class function ObjectRestKind : String; Override;
  12117. function Assignments(AService: TODataService) : TPSPublishedAssignment;
  12118. function Calendar(AService: TODataService) : TPSCalendar;
  12119. function Draft(AService: TODataService) : TPSDraftProject;
  12120. function IncludeCustomFields(AService: TODataService)
  12121. : TPSPublishedProject;
  12122. function Owner(AService: TODataService) : TSPUser;
  12123. function ProjectResources(AService: TODataService)
  12124. : TPSPublishedProjectResource;
  12125. function TaskLinks(AService: TODataService) : TPSPublishedTaskLink;
  12126. function Tasks(AService: TODataService) : TPSPublishedTask;
  12127. published
  12128. Property CalculateActualCosts : boolean index 176 read FCalculateActualCosts write SetCalculateActualCosts;
  12129. Property CalculatesActualCosts : boolean index 184 read FCalculatesActualCosts write SetCalculatesActualCosts;
  12130. Property CriticalSlackLimit : TInt32 index 192 read FCriticalSlackLimit write SetCriticalSlackLimit;
  12131. Property CurrencyCode : string index 200 read FCurrencyCode write SetCurrencyCode;
  12132. Property CurrencyDigits : TInt32 index 208 read FCurrencyDigits write SetCurrencyDigits;
  12133. Property CurrencyPosition : TInt32 index 216 read FCurrencyPosition write SetCurrencyPosition;
  12134. Property CurrencySymbol : string index 224 read FCurrencySymbol write SetCurrencySymbol;
  12135. Property CurrentDate : TDateTime index 232 read FCurrentDate write SetCurrentDate;
  12136. Property DaysPerMonth : TInt16 index 240 read FDaysPerMonth write SetDaysPerMonth;
  12137. Property DefaultEffortDriven : boolean index 248 read FDefaultEffortDriven write SetDefaultEffortDriven;
  12138. Property DefaultEstimatedDuration : boolean index 256 read FDefaultEstimatedDuration write SetDefaultEstimatedDuration;
  12139. Property DefaultFinishTime : TDateTime index 264 read FDefaultFinishTime write SetDefaultFinishTime;
  12140. Property DefaultFixedCostAccrual : TInt32 index 272 read FDefaultFixedCostAccrual write SetDefaultFixedCostAccrual;
  12141. Property DefaultOvertimeRate : Double index 280 read FDefaultOvertimeRate write SetDefaultOvertimeRate;
  12142. Property DefaultStandardRate : Double index 288 read FDefaultStandardRate write SetDefaultStandardRate;
  12143. Property DefaultStartTime : TDateTime index 296 read FDefaultStartTime write SetDefaultStartTime;
  12144. Property DefaultTaskType : TInt32 index 304 read FDefaultTaskType write SetDefaultTaskType;
  12145. Property DefaultWorkFormat : TInt32 index 312 read FDefaultWorkFormat write SetDefaultWorkFormat;
  12146. Property Description : string index 320 read FDescription write SetDescription;
  12147. Property EnterpriseProjectTypeId : TGUIDString index 328 read FEnterpriseProjectTypeId write SetEnterpriseProjectTypeId;
  12148. Property FinishDate : TDateTime index 336 read FFinishDate write SetFinishDate;
  12149. Property FiscalYearStartMonth : TInt16 index 344 read FFiscalYearStartMonth write SetFiscalYearStartMonth;
  12150. Property HonorConstraints : boolean index 352 read FHonorConstraints write SetHonorConstraints;
  12151. Property IsEnterpriseProject : boolean index 360 read FIsEnterpriseProject write SetIsEnterpriseProject;
  12152. Property MinutesPerDay : TInt32 index 368 read FMinutesPerDay write SetMinutesPerDay;
  12153. Property MinutesPerWeek : TInt32 index 376 read FMinutesPerWeek write SetMinutesPerWeek;
  12154. Property MoveActualIfLater : boolean index 384 read FMoveActualIfLater write SetMoveActualIfLater;
  12155. Property MoveActualToStatus : boolean index 392 read FMoveActualToStatus write SetMoveActualToStatus;
  12156. Property MoveRemainingIfEarlier : boolean index 400 read FMoveRemainingIfEarlier write SetMoveRemainingIfEarlier;
  12157. Property MoveRemainingToStatus : boolean index 408 read FMoveRemainingToStatus write SetMoveRemainingToStatus;
  12158. Property MultipleCriticalPaths : boolean index 416 read FMultipleCriticalPaths write SetMultipleCriticalPaths;
  12159. Property Name : string index 424 read FName write SetName;
  12160. Property NewTasksAreManual : boolean index 432 read FNewTasksAreManual write SetNewTasksAreManual;
  12161. Property NumberFiscalYearFromStart : boolean index 440 read FNumberFiscalYearFromStart write SetNumberFiscalYearFromStart;
  12162. Property ProtectedActualsSynch : boolean index 448 read FProtectedActualsSynch write SetProtectedActualsSynch;
  12163. Property ScheduledFromStart : boolean index 456 read FScheduledFromStart write SetScheduledFromStart;
  12164. Property ShowEstimatedDurations : boolean index 464 read FShowEstimatedDurations write SetShowEstimatedDurations;
  12165. Property SplitInProgress : boolean index 472 read FSplitInProgress write SetSplitInProgress;
  12166. Property SpreadActualCostsToStatus : boolean index 480 read FSpreadActualCostsToStatus write SetSpreadActualCostsToStatus;
  12167. Property SpreadPercentCompleteToStatus : boolean index 488 read FSpreadPercentCompleteToStatus write SetSpreadPercentCompleteToStatus;
  12168. Property StartDate : TDateTime index 496 read FStartDate write SetStartDate;
  12169. Property StatusDate : TDateTime index 504 read FStatusDate write SetStatusDate;
  12170. Property TrackingMode : TInt32 index 512 read FTrackingMode write SetTrackingMode;
  12171. Property WeekStartDay : TInt16 index 520 read FWeekStartDay write SetWeekStartDay;
  12172. Property WinprojVersion : double index 528 read FWinprojVersion write SetWinprojVersion;
  12173. end;
  12174. { --------------------------------------------------------------------
  12175. PS: PublishedAssignment
  12176. --------------------------------------------------------------------}
  12177. TPSPublishedAssignment = Class(TPSAssignment)
  12178. private
  12179. FActualCost : Double;
  12180. FActualFinish : TDateTime;
  12181. FActualOvertimeWork : string;
  12182. FActualOvertimeWorkMilliseconds : TInt32;
  12183. FActualOvertimeWorkTimeSpan : TTime;
  12184. FActualStart : TDateTime;
  12185. FActualWork : string;
  12186. FActualWorkMilliseconds : TInt32;
  12187. FActualWorkTimeSpan : TTime;
  12188. FBudgetedCost : Double;
  12189. FBudgetedWork : string;
  12190. FBudgetedWorkMilliseconds : TInt32;
  12191. FBudgetedWorkTimeSpan : TTime;
  12192. FCost : Double;
  12193. FDefaultBookingType : TInt32;
  12194. FDelay : string;
  12195. FDelayMilliseconds : TInt32;
  12196. FDelayTimeSpan : TTime;
  12197. FFinish : TDateTime;
  12198. FIsLockedByManager : boolean;
  12199. FIsWorkResource : boolean;
  12200. FNotes : string;
  12201. FOvertimeWork : string;
  12202. FOvertimeWorkMilliseconds : TInt32;
  12203. FOvertimeWorkTimeSpan : TTime;
  12204. FPercentWorkComplete : TInt32;
  12205. FRegularWork : string;
  12206. FRegularWorkMilliseconds : TInt32;
  12207. FRegularWorkTimeSpan : TTime;
  12208. FRemainingOvertimeWork : string;
  12209. FRemainingOvertimeWorkMilliseconds : TInt32;
  12210. FRemainingOvertimeWorkTimeSpan : TTime;
  12211. FRemainingWork : string;
  12212. FRemainingWorkMilliseconds : TInt32;
  12213. FRemainingWorkTimeSpan : TTime;
  12214. FResourceCapacity : Double;
  12215. FWork : string;
  12216. FWorkMilliseconds : TInt32;
  12217. FWorkTimeSpan : TTime;
  12218. procedure SetActualCost(AIndex: Integer; const AValue: Double);
  12219. procedure SetActualFinish(AIndex: Integer; const AValue: TDateTime);
  12220. procedure SetActualOvertimeWork(AIndex: Integer; const AValue: string);
  12221. procedure SetActualOvertimeWorkMilliseconds(AIndex: Integer;
  12222. const AValue: TInt32);
  12223. procedure SetActualOvertimeWorkTimeSpan(AIndex: Integer;
  12224. const AValue: TTime);
  12225. procedure SetActualStart(AIndex: Integer; const AValue: TDateTime);
  12226. procedure SetActualWork(AIndex: Integer; const AValue: string);
  12227. procedure SetActualWorkMilliseconds(AIndex: Integer;
  12228. const AValue: TInt32);
  12229. procedure SetActualWorkTimeSpan(AIndex: Integer; const AValue: TTime);
  12230. procedure SetBudgetedCost(AIndex: Integer; const AValue: Double);
  12231. procedure SetBudgetedWork(AIndex: Integer; const AValue: string);
  12232. procedure SetBudgetedWorkMilliseconds(AIndex: Integer;
  12233. const AValue: TInt32);
  12234. procedure SetBudgetedWorkTimeSpan(AIndex: Integer; const AValue: TTime);
  12235. procedure SetCost(AIndex: Integer; const AValue: Double);
  12236. procedure SetDefaultBookingType(AIndex: Integer; const AValue: TInt32);
  12237. procedure SetDelay(AIndex: Integer; const AValue: string);
  12238. procedure SetDelayMilliseconds(AIndex: Integer; const AValue: TInt32);
  12239. procedure SetDelayTimeSpan(AIndex: Integer; const AValue: TTime);
  12240. procedure SetFinish(AIndex: Integer; const AValue: TDateTime);
  12241. procedure SetIsLockedByManager(AIndex: Integer; const AValue: boolean);
  12242. procedure SetIsWorkResource(AIndex: Integer; const AValue: boolean);
  12243. procedure SetNotes(AIndex: Integer; const AValue: string);
  12244. procedure SetOvertimeWork(AIndex: Integer; const AValue: string);
  12245. procedure SetOvertimeWorkMilliseconds(AIndex: Integer;
  12246. const AValue: TInt32);
  12247. procedure SetOvertimeWorkTimeSpan(AIndex: Integer; const AValue: TTime);
  12248. procedure SetPercentWorkComplete(AIndex: Integer; const AValue: TInt32);
  12249. procedure SetRegularWork(AIndex: Integer; const AValue: string);
  12250. procedure SetRegularWorkMilliseconds(AIndex: Integer;
  12251. const AValue: TInt32);
  12252. procedure SetRegularWorkTimeSpan(AIndex: Integer; const AValue: TTime);
  12253. procedure SetRemainingOvertimeWork(AIndex: Integer;
  12254. const AValue: string);
  12255. procedure SetRemainingOvertimeWorkMilliseconds(AIndex: Integer;
  12256. const AValue: TInt32);
  12257. procedure SetRemainingOvertimeWorkTimeSpan(AIndex: Integer;
  12258. const AValue: TTime);
  12259. procedure SetRemainingWork(AIndex: Integer; const AValue: string);
  12260. procedure SetRemainingWorkMilliseconds(AIndex: Integer;
  12261. const AValue: TInt32);
  12262. procedure SetRemainingWorkTimeSpan(AIndex: Integer; const AValue: TTime);
  12263. procedure SetResourceCapacity(AIndex: Integer; const AValue: Double);
  12264. procedure SetWork(AIndex: Integer; const AValue: string);
  12265. procedure SetWorkMilliseconds(AIndex: Integer; const AValue: TInt32);
  12266. procedure SetWorkTimeSpan(AIndex: Integer; const AValue: TTime);
  12267. public
  12268. class function ObjectRestKind : String; Override;
  12269. function Owner(AService: TODataService) : TSPUser;
  12270. function Parent(AService: TODataService) : TPSPublishedAssignment;
  12271. function Resource(AService: TODataService) : TPSPublishedProjectResource;
  12272. function Task(AService: TODataService) : TPSPublishedTask;
  12273. published
  12274. Property ActualCost : Double index 328 read FActualCost write SetActualCost;
  12275. Property ActualFinish : TDateTime index 336 read FActualFinish write SetActualFinish;
  12276. Property ActualOvertimeWork : string index 344 read FActualOvertimeWork write SetActualOvertimeWork;
  12277. Property ActualOvertimeWorkMilliseconds : TInt32 index 352 read FActualOvertimeWorkMilliseconds write SetActualOvertimeWorkMilliseconds;
  12278. Property ActualOvertimeWorkTimeSpan : TTime index 360 read FActualOvertimeWorkTimeSpan write SetActualOvertimeWorkTimeSpan;
  12279. Property ActualStart : TDateTime index 368 read FActualStart write SetActualStart;
  12280. Property ActualWork : string index 376 read FActualWork write SetActualWork;
  12281. Property ActualWorkMilliseconds : TInt32 index 384 read FActualWorkMilliseconds write SetActualWorkMilliseconds;
  12282. Property ActualWorkTimeSpan : TTime index 392 read FActualWorkTimeSpan write SetActualWorkTimeSpan;
  12283. Property BudgetedCost : Double index 400 read FBudgetedCost write SetBudgetedCost;
  12284. Property BudgetedWork : string index 408 read FBudgetedWork write SetBudgetedWork;
  12285. Property BudgetedWorkMilliseconds : TInt32 index 416 read FBudgetedWorkMilliseconds write SetBudgetedWorkMilliseconds;
  12286. Property BudgetedWorkTimeSpan : TTime index 424 read FBudgetedWorkTimeSpan write SetBudgetedWorkTimeSpan;
  12287. Property Cost : Double index 432 read FCost write SetCost;
  12288. Property DefaultBookingType : TInt32 index 440 read FDefaultBookingType write SetDefaultBookingType;
  12289. Property Delay : string index 448 read FDelay write SetDelay;
  12290. Property DelayMilliseconds : TInt32 index 456 read FDelayMilliseconds write SetDelayMilliseconds;
  12291. Property DelayTimeSpan : TTime index 464 read FDelayTimeSpan write SetDelayTimeSpan;
  12292. Property Finish : TDateTime index 472 read FFinish write SetFinish;
  12293. Property IsLockedByManager : boolean index 480 read FIsLockedByManager write SetIsLockedByManager;
  12294. Property IsWorkResource : boolean index 488 read FIsWorkResource write SetIsWorkResource;
  12295. Property Notes : string index 496 read FNotes write SetNotes;
  12296. Property OvertimeWork : string index 504 read FOvertimeWork write SetOvertimeWork;
  12297. Property OvertimeWorkMilliseconds : TInt32 index 512 read FOvertimeWorkMilliseconds write SetOvertimeWorkMilliseconds;
  12298. Property OvertimeWorkTimeSpan : TTime index 520 read FOvertimeWorkTimeSpan write SetOvertimeWorkTimeSpan;
  12299. Property PercentWorkComplete : TInt32 index 528 read FPercentWorkComplete write SetPercentWorkComplete;
  12300. Property RegularWork : string index 536 read FRegularWork write SetRegularWork;
  12301. Property RegularWorkMilliseconds : TInt32 index 544 read FRegularWorkMilliseconds write SetRegularWorkMilliseconds;
  12302. Property RegularWorkTimeSpan : TTime index 552 read FRegularWorkTimeSpan write SetRegularWorkTimeSpan;
  12303. Property RemainingOvertimeWork : string index 560 read FRemainingOvertimeWork write SetRemainingOvertimeWork;
  12304. Property RemainingOvertimeWorkMilliseconds : TInt32 index 568 read FRemainingOvertimeWorkMilliseconds write SetRemainingOvertimeWorkMilliseconds;
  12305. Property RemainingOvertimeWorkTimeSpan : TTime index 576 read FRemainingOvertimeWorkTimeSpan write SetRemainingOvertimeWorkTimeSpan;
  12306. Property RemainingWork : string index 584 read FRemainingWork write SetRemainingWork;
  12307. Property RemainingWorkMilliseconds : TInt32 index 592 read FRemainingWorkMilliseconds write SetRemainingWorkMilliseconds;
  12308. Property RemainingWorkTimeSpan : TTime index 600 read FRemainingWorkTimeSpan write SetRemainingWorkTimeSpan;
  12309. Property ResourceCapacity : Double index 608 read FResourceCapacity write SetResourceCapacity;
  12310. Property Work : string index 616 read FWork write SetWork;
  12311. Property WorkMilliseconds : TInt32 index 624 read FWorkMilliseconds write SetWorkMilliseconds;
  12312. Property WorkTimeSpan : TTime index 632 read FWorkTimeSpan write SetWorkTimeSpan;
  12313. end;
  12314. { --------------------------------------------------------------------
  12315. PS: PublishedProjectResource
  12316. --------------------------------------------------------------------}
  12317. TPSPublishedProjectResource = Class(TPSProjectResource)
  12318. private
  12319. FCanLevel : boolean;
  12320. FCode : string;
  12321. FCostAccrual : TInt32;
  12322. FCostCenter : string;
  12323. FCostPerUse : Double;
  12324. FDefaultBookingType : TInt32;
  12325. FEmail : string;
  12326. FGroup : string;
  12327. FInitials : string;
  12328. FMaterialLabel : string;
  12329. FMaximumCapacity : Double;
  12330. FName : string;
  12331. FOvertimeRate : Double;
  12332. FOvertimeRateUnits : TInt32;
  12333. FPhonetics : string;
  12334. FStandardRate : Double;
  12335. FStandardRateUnits : TInt32;
  12336. procedure SetCanLevel(AIndex: Integer; const AValue: boolean);
  12337. procedure SetCode(AIndex: Integer; const AValue: string);
  12338. procedure SetCostAccrual(AIndex: Integer; const AValue: TInt32);
  12339. procedure SetCostCenter(AIndex: Integer; const AValue: string);
  12340. procedure SetCostPerUse(AIndex: Integer; const AValue: Double);
  12341. procedure SetDefaultBookingType(AIndex: Integer; const AValue: TInt32);
  12342. procedure SetEmail(AIndex: Integer; const AValue: string);
  12343. procedure SetGroup(AIndex: Integer; const AValue: string);
  12344. procedure SetInitials(AIndex: Integer; const AValue: string);
  12345. procedure SetMaterialLabel(AIndex: Integer; const AValue: string);
  12346. procedure SetMaximumCapacity(AIndex: Integer; const AValue: Double);
  12347. procedure SetName(AIndex: Integer; const AValue: string);
  12348. procedure SetOvertimeRate(AIndex: Integer; const AValue: Double);
  12349. procedure SetOvertimeRateUnits(AIndex: Integer; const AValue: TInt32);
  12350. procedure SetPhonetics(AIndex: Integer; const AValue: string);
  12351. procedure SetStandardRate(AIndex: Integer; const AValue: Double);
  12352. procedure SetStandardRateUnits(AIndex: Integer; const AValue: TInt32);
  12353. public
  12354. class function ObjectRestKind : String; Override;
  12355. function Assignments(AService: TODataService) : TPSPublishedAssignment;
  12356. function DefaultAssignmentOwner(AService: TODataService) : TSPUser;
  12357. published
  12358. Property CanLevel : boolean index 496 read FCanLevel write SetCanLevel;
  12359. Property Code : string index 504 read FCode write SetCode;
  12360. Property CostAccrual : TInt32 index 512 read FCostAccrual write SetCostAccrual;
  12361. Property CostCenter : string index 520 read FCostCenter write SetCostCenter;
  12362. Property CostPerUse : Double index 528 read FCostPerUse write SetCostPerUse;
  12363. Property DefaultBookingType : TInt32 index 536 read FDefaultBookingType write SetDefaultBookingType;
  12364. Property Email : string index 544 read FEmail write SetEmail;
  12365. Property Group : string index 552 read FGroup write SetGroup;
  12366. Property Initials : string index 560 read FInitials write SetInitials;
  12367. Property MaterialLabel : string index 568 read FMaterialLabel write SetMaterialLabel;
  12368. Property MaximumCapacity : Double index 576 read FMaximumCapacity write SetMaximumCapacity;
  12369. Property Name : string index 584 read FName write SetName;
  12370. Property OvertimeRate : Double index 592 read FOvertimeRate write SetOvertimeRate;
  12371. Property OvertimeRateUnits : TInt32 index 600 read FOvertimeRateUnits write SetOvertimeRateUnits;
  12372. Property Phonetics : string index 608 read FPhonetics write SetPhonetics;
  12373. Property StandardRate : Double index 616 read FStandardRate write SetStandardRate;
  12374. Property StandardRateUnits : TInt32 index 624 read FStandardRateUnits write SetStandardRateUnits;
  12375. end;
  12376. { --------------------------------------------------------------------
  12377. PS: Task
  12378. --------------------------------------------------------------------}
  12379. TPSTask = Class(TODataEntity)
  12380. private
  12381. FActualDuration : string;
  12382. FActualDurationMilliseconds : TInt32;
  12383. FActualDurationTimeSpan : TTime;
  12384. FBaselineCost : Double;
  12385. FBaselineDuration : string;
  12386. FBaselineDurationMilliseconds : TInt32;
  12387. FBaselineDurationTimeSpan : TTime;
  12388. FBaselineFinish : TDateTime;
  12389. FBaselineStart : TDateTime;
  12390. FBaselineWork : string;
  12391. FBaselineWorkMilliseconds : TInt32;
  12392. FBaselineWorkTimeSpan : TTime;
  12393. FBudgetCost : Double;
  12394. FCostPerformanceIndex : Double;
  12395. FCostVariance : Double;
  12396. FCostVarianceAtCompletion : Double;
  12397. FCostVariancePercentage : TInt32;
  12398. FCreated : TDateTime;
  12399. FDurationVariance : string;
  12400. FDurationVarianceMilliseconds : TInt32;
  12401. FDurationVarianceTimeSpan : TTime;
  12402. FEarliestFinish : TDateTime;
  12403. FEarliestStart : TDateTime;
  12404. FEstimateAtCompletion : Double;
  12405. FFinishSlack : string;
  12406. FFinishSlackMilliseconds : TInt32;
  12407. FFinishSlackTimeSpan : TTime;
  12408. FFinishVariance : string;
  12409. FFinishVarianceMilliseconds : TInt32;
  12410. FFinishVarianceTimeSpan : TTime;
  12411. FFreeSlack : string;
  12412. FFreeSlackMilliseconds : TInt32;
  12413. FFreeSlackTimeSpan : TTime;
  12414. FId : TGUIDString;
  12415. FIsCritical : boolean;
  12416. FIsExternalTask : boolean;
  12417. FIsOverAllocated : boolean;
  12418. FIsRecurring : boolean;
  12419. FIsRecurringSummary : boolean;
  12420. FIsRolledUp : boolean;
  12421. FIsSubProject : boolean;
  12422. FIsSubProjectReadOnly : boolean;
  12423. FIsSubProjectScheduledFromFinish : boolean;
  12424. FIsSummary : boolean;
  12425. FLatestFinish : TDateTime;
  12426. FLatestStart : TDateTime;
  12427. FModified : TDateTime;
  12428. FNotes : string;
  12429. FOutlinePosition : string;
  12430. FOvertimeCost : Double;
  12431. FOvertimeWork : string;
  12432. FOvertimeWorkMilliseconds : TInt32;
  12433. FOvertimeWorkTimeSpan : TTime;
  12434. FPercentWorkComplete : TInt32;
  12435. FPreLevelingFinish : TDateTime;
  12436. FPreLevelingStart : TDateTime;
  12437. FRegularWork : string;
  12438. FRegularWorkMilliseconds : TInt32;
  12439. FRegularWorkTimeSpan : TTime;
  12440. FRemainingCost : Double;
  12441. FRemainingOvertimeCost : Double;
  12442. FRemainingOvertimeWork : string;
  12443. FRemainingOvertimeWorkMilliseconds : TInt32;
  12444. FRemainingOvertimeWorkTimeSpan : TTime;
  12445. FRemainingWork : string;
  12446. FRemainingWorkMilliseconds : TInt32;
  12447. FRemainingWorkTimeSpan : TTime;
  12448. FResume : TDateTime;
  12449. FScheduleCostVariance : Double;
  12450. FScheduledDuration : string;
  12451. FScheduledDurationMilliseconds : TInt32;
  12452. FScheduledDurationTimeSpan : TTime;
  12453. FScheduledFinish : TDateTime;
  12454. FScheduledStart : TDateTime;
  12455. FSchedulePerformanceIndex : Double;
  12456. FScheduleVariancePercentage : TInt32;
  12457. FStartSlack : string;
  12458. FStartSlackMilliseconds : TInt32;
  12459. FStartSlackTimeSpan : TTime;
  12460. FStartVariance : string;
  12461. FStartVarianceMilliseconds : TInt32;
  12462. FStartVarianceTimeSpan : TTime;
  12463. FStop : TDateTime;
  12464. FToCompletePerformanceIndex : Double;
  12465. FTotalSlack : string;
  12466. FTotalSlackMilliseconds : TInt32;
  12467. FTotalSlackTimeSpan : TTime;
  12468. FWorkBreakdownStructure : string;
  12469. FWorkVariance : string;
  12470. FWorkVarianceMilliseconds : TInt32;
  12471. FWorkVarianceTimeSpan : TTime;
  12472. procedure SetActualDuration(AIndex: Integer; const AValue: string);
  12473. procedure SetActualDurationMilliseconds(AIndex: Integer;
  12474. const AValue: TInt32);
  12475. procedure SetActualDurationTimeSpan(AIndex: Integer;
  12476. const AValue: TTime);
  12477. procedure SetBaselineCost(AIndex: Integer; const AValue: Double);
  12478. procedure SetBaselineDuration(AIndex: Integer; const AValue: string);
  12479. procedure SetBaselineDurationMilliseconds(AIndex: Integer;
  12480. const AValue: TInt32);
  12481. procedure SetBaselineDurationTimeSpan(AIndex: Integer;
  12482. const AValue: TTime);
  12483. procedure SetBaselineFinish(AIndex: Integer; const AValue: TDateTime);
  12484. procedure SetBaselineStart(AIndex: Integer; const AValue: TDateTime);
  12485. procedure SetBaselineWork(AIndex: Integer; const AValue: string);
  12486. procedure SetBaselineWorkMilliseconds(AIndex: Integer;
  12487. const AValue: TInt32);
  12488. procedure SetBaselineWorkTimeSpan(AIndex: Integer; const AValue: TTime);
  12489. procedure SetBudgetCost(AIndex: Integer; const AValue: Double);
  12490. procedure SetCostPerformanceIndex(AIndex: Integer; const AValue: Double);
  12491. procedure SetCostVariance(AIndex: Integer; const AValue: Double);
  12492. procedure SetCostVarianceAtCompletion(AIndex: Integer;
  12493. const AValue: Double);
  12494. procedure SetCostVariancePercentage(AIndex: Integer;
  12495. const AValue: TInt32);
  12496. procedure SetCreated(AIndex: Integer; const AValue: TDateTime);
  12497. procedure SetDurationVariance(AIndex: Integer; const AValue: string);
  12498. procedure SetDurationVarianceMilliseconds(AIndex: Integer;
  12499. const AValue: TInt32);
  12500. procedure SetDurationVarianceTimeSpan(AIndex: Integer;
  12501. const AValue: TTime);
  12502. procedure SetEarliestFinish(AIndex: Integer; const AValue: TDateTime);
  12503. procedure SetEarliestStart(AIndex: Integer; const AValue: TDateTime);
  12504. procedure SetEstimateAtCompletion(AIndex: Integer; const AValue: Double);
  12505. procedure SetFinishSlack(AIndex: Integer; const AValue: string);
  12506. procedure SetFinishSlackMilliseconds(AIndex: Integer;
  12507. const AValue: TInt32);
  12508. procedure SetFinishSlackTimeSpan(AIndex: Integer; const AValue: TTime);
  12509. procedure SetFinishVariance(AIndex: Integer; const AValue: string);
  12510. procedure SetFinishVarianceMilliseconds(AIndex: Integer;
  12511. const AValue: TInt32);
  12512. procedure SetFinishVarianceTimeSpan(AIndex: Integer;
  12513. const AValue: TTime);
  12514. procedure SetFreeSlack(AIndex: Integer; const AValue: string);
  12515. procedure SetFreeSlackMilliseconds(AIndex: Integer;
  12516. const AValue: TInt32);
  12517. procedure SetFreeSlackTimeSpan(AIndex: Integer; const AValue: TTime);
  12518. procedure SetId(AIndex: Integer; const AValue: TGUIDString);
  12519. procedure SetIsCritical(AIndex: Integer; const AValue: boolean);
  12520. procedure SetIsExternalTask(AIndex: Integer; const AValue: boolean);
  12521. procedure SetIsOverAllocated(AIndex: Integer; const AValue: boolean);
  12522. procedure SetIsRecurring(AIndex: Integer; const AValue: boolean);
  12523. procedure SetIsRecurringSummary(AIndex: Integer; const AValue: boolean);
  12524. procedure SetIsRolledUp(AIndex: Integer; const AValue: boolean);
  12525. procedure SetIsSubProject(AIndex: Integer; const AValue: boolean);
  12526. procedure SetIsSubProjectReadOnly(AIndex: Integer;
  12527. const AValue: boolean);
  12528. procedure SetIsSubProjectScheduledFromFinish(AIndex: Integer;
  12529. const AValue: boolean);
  12530. procedure SetIsSummary(AIndex: Integer; const AValue: boolean);
  12531. procedure SetLatestFinish(AIndex: Integer; const AValue: TDateTime);
  12532. procedure SetLatestStart(AIndex: Integer; const AValue: TDateTime);
  12533. procedure SetModified(AIndex: Integer; const AValue: TDateTime);
  12534. procedure SetNotes(AIndex: Integer; const AValue: string);
  12535. procedure SetOutlinePosition(AIndex: Integer; const AValue: string);
  12536. procedure SetOvertimeCost(AIndex: Integer; const AValue: Double);
  12537. procedure SetOvertimeWork(AIndex: Integer; const AValue: string);
  12538. procedure SetOvertimeWorkMilliseconds(AIndex: Integer;
  12539. const AValue: TInt32);
  12540. procedure SetOvertimeWorkTimeSpan(AIndex: Integer; const AValue: TTime);
  12541. procedure SetPercentWorkComplete(AIndex: Integer; const AValue: TInt32);
  12542. procedure SetPreLevelingFinish(AIndex: Integer; const AValue: TDateTime);
  12543. procedure SetPreLevelingStart(AIndex: Integer; const AValue: TDateTime);
  12544. procedure SetRegularWork(AIndex: Integer; const AValue: string);
  12545. procedure SetRegularWorkMilliseconds(AIndex: Integer;
  12546. const AValue: TInt32);
  12547. procedure SetRegularWorkTimeSpan(AIndex: Integer; const AValue: TTime);
  12548. procedure SetRemainingCost(AIndex: Integer; const AValue: Double);
  12549. procedure SetRemainingOvertimeCost(AIndex: Integer;
  12550. const AValue: Double);
  12551. procedure SetRemainingOvertimeWork(AIndex: Integer;
  12552. const AValue: string);
  12553. procedure SetRemainingOvertimeWorkMilliseconds(AIndex: Integer;
  12554. const AValue: TInt32);
  12555. procedure SetRemainingOvertimeWorkTimeSpan(AIndex: Integer;
  12556. const AValue: TTime);
  12557. procedure SetRemainingWork(AIndex: Integer; const AValue: string);
  12558. procedure SetRemainingWorkMilliseconds(AIndex: Integer;
  12559. const AValue: TInt32);
  12560. procedure SetRemainingWorkTimeSpan(AIndex: Integer; const AValue: TTime);
  12561. procedure SetResume(AIndex: Integer; const AValue: TDateTime);
  12562. procedure SetScheduleCostVariance(AIndex: Integer; const AValue: Double);
  12563. procedure SetScheduledDuration(AIndex: Integer; const AValue: string);
  12564. procedure SetScheduledDurationMilliseconds(AIndex: Integer;
  12565. const AValue: TInt32);
  12566. procedure SetScheduledDurationTimeSpan(AIndex: Integer;
  12567. const AValue: TTime);
  12568. procedure SetScheduledFinish(AIndex: Integer; const AValue: TDateTime);
  12569. procedure SetScheduledStart(AIndex: Integer; const AValue: TDateTime);
  12570. procedure SetSchedulePerformanceIndex(AIndex: Integer;
  12571. const AValue: Double);
  12572. procedure SetScheduleVariancePercentage(AIndex: Integer;
  12573. const AValue: TInt32);
  12574. procedure SetStartSlack(AIndex: Integer; const AValue: string);
  12575. procedure SetStartSlackMilliseconds(AIndex: Integer;
  12576. const AValue: TInt32);
  12577. procedure SetStartSlackTimeSpan(AIndex: Integer; const AValue: TTime);
  12578. procedure SetStartVariance(AIndex: Integer; const AValue: string);
  12579. procedure SetStartVarianceMilliseconds(AIndex: Integer;
  12580. const AValue: TInt32);
  12581. procedure SetStartVarianceTimeSpan(AIndex: Integer; const AValue: TTime);
  12582. procedure SetStop(AIndex: Integer; const AValue: TDateTime);
  12583. procedure SetToCompletePerformanceIndex(AIndex: Integer;
  12584. const AValue: Double);
  12585. procedure SetTotalSlack(AIndex: Integer; const AValue: string);
  12586. procedure SetTotalSlackMilliseconds(AIndex: Integer;
  12587. const AValue: TInt32);
  12588. procedure SetTotalSlackTimeSpan(AIndex: Integer; const AValue: TTime);
  12589. procedure SetWorkBreakdownStructure(AIndex: Integer;
  12590. const AValue: string);
  12591. procedure SetWorkVariance(AIndex: Integer; const AValue: string);
  12592. procedure SetWorkVarianceMilliseconds(AIndex: Integer;
  12593. const AValue: TInt32);
  12594. procedure SetWorkVarianceTimeSpan(AIndex: Integer; const AValue: TTime);
  12595. public
  12596. class function ObjectRestKind : String; Override;
  12597. function KeyAsURLPart : String; Override;
  12598. function CustomFields(AService: TODataService) : TPSCustomField;
  12599. function SubProject(AService: TODataService) : TPSPublishedProject;
  12600. published
  12601. Property ActualDuration : string index 0 read FActualDuration write SetActualDuration;
  12602. Property ActualDurationMilliseconds : TInt32 index 8 read FActualDurationMilliseconds write SetActualDurationMilliseconds;
  12603. Property ActualDurationTimeSpan : TTime index 16 read FActualDurationTimeSpan write SetActualDurationTimeSpan;
  12604. Property BaselineCost : Double index 24 read FBaselineCost write SetBaselineCost;
  12605. Property BaselineDuration : string index 32 read FBaselineDuration write SetBaselineDuration;
  12606. Property BaselineDurationMilliseconds : TInt32 index 40 read FBaselineDurationMilliseconds write SetBaselineDurationMilliseconds;
  12607. Property BaselineDurationTimeSpan : TTime index 48 read FBaselineDurationTimeSpan write SetBaselineDurationTimeSpan;
  12608. Property BaselineFinish : TDateTime index 56 read FBaselineFinish write SetBaselineFinish;
  12609. Property BaselineStart : TDateTime index 64 read FBaselineStart write SetBaselineStart;
  12610. Property BaselineWork : string index 72 read FBaselineWork write SetBaselineWork;
  12611. Property BaselineWorkMilliseconds : TInt32 index 80 read FBaselineWorkMilliseconds write SetBaselineWorkMilliseconds;
  12612. Property BaselineWorkTimeSpan : TTime index 88 read FBaselineWorkTimeSpan write SetBaselineWorkTimeSpan;
  12613. Property BudgetCost : Double index 96 read FBudgetCost write SetBudgetCost;
  12614. Property CostPerformanceIndex : Double index 104 read FCostPerformanceIndex write SetCostPerformanceIndex;
  12615. Property CostVariance : Double index 112 read FCostVariance write SetCostVariance;
  12616. Property CostVarianceAtCompletion : Double index 120 read FCostVarianceAtCompletion write SetCostVarianceAtCompletion;
  12617. Property CostVariancePercentage : TInt32 index 128 read FCostVariancePercentage write SetCostVariancePercentage;
  12618. Property Created : TDateTime index 136 read FCreated write SetCreated;
  12619. Property DurationVariance : string index 144 read FDurationVariance write SetDurationVariance;
  12620. Property DurationVarianceMilliseconds : TInt32 index 152 read FDurationVarianceMilliseconds write SetDurationVarianceMilliseconds;
  12621. Property DurationVarianceTimeSpan : TTime index 160 read FDurationVarianceTimeSpan write SetDurationVarianceTimeSpan;
  12622. Property EarliestFinish : TDateTime index 168 read FEarliestFinish write SetEarliestFinish;
  12623. Property EarliestStart : TDateTime index 176 read FEarliestStart write SetEarliestStart;
  12624. Property EstimateAtCompletion : Double index 184 read FEstimateAtCompletion write SetEstimateAtCompletion;
  12625. Property FinishSlack : string index 192 read FFinishSlack write SetFinishSlack;
  12626. Property FinishSlackMilliseconds : TInt32 index 200 read FFinishSlackMilliseconds write SetFinishSlackMilliseconds;
  12627. Property FinishSlackTimeSpan : TTime index 208 read FFinishSlackTimeSpan write SetFinishSlackTimeSpan;
  12628. Property FinishVariance : string index 216 read FFinishVariance write SetFinishVariance;
  12629. Property FinishVarianceMilliseconds : TInt32 index 224 read FFinishVarianceMilliseconds write SetFinishVarianceMilliseconds;
  12630. Property FinishVarianceTimeSpan : TTime index 232 read FFinishVarianceTimeSpan write SetFinishVarianceTimeSpan;
  12631. Property FreeSlack : string index 240 read FFreeSlack write SetFreeSlack;
  12632. Property FreeSlackMilliseconds : TInt32 index 248 read FFreeSlackMilliseconds write SetFreeSlackMilliseconds;
  12633. Property FreeSlackTimeSpan : TTime index 256 read FFreeSlackTimeSpan write SetFreeSlackTimeSpan;
  12634. Property Id : TGUIDString index 264 read FId write SetId;
  12635. Property IsCritical : boolean index 272 read FIsCritical write SetIsCritical;
  12636. Property IsExternalTask : boolean index 280 read FIsExternalTask write SetIsExternalTask;
  12637. Property IsOverAllocated : boolean index 288 read FIsOverAllocated write SetIsOverAllocated;
  12638. Property IsRecurring : boolean index 296 read FIsRecurring write SetIsRecurring;
  12639. Property IsRecurringSummary : boolean index 304 read FIsRecurringSummary write SetIsRecurringSummary;
  12640. Property IsRolledUp : boolean index 312 read FIsRolledUp write SetIsRolledUp;
  12641. Property IsSubProject : boolean index 320 read FIsSubProject write SetIsSubProject;
  12642. Property IsSubProjectReadOnly : boolean index 328 read FIsSubProjectReadOnly write SetIsSubProjectReadOnly;
  12643. Property IsSubProjectScheduledFromFinish : boolean index 336 read FIsSubProjectScheduledFromFinish write SetIsSubProjectScheduledFromFinish;
  12644. Property IsSummary : boolean index 344 read FIsSummary write SetIsSummary;
  12645. Property LatestFinish : TDateTime index 352 read FLatestFinish write SetLatestFinish;
  12646. Property LatestStart : TDateTime index 360 read FLatestStart write SetLatestStart;
  12647. Property Modified : TDateTime index 368 read FModified write SetModified;
  12648. Property Notes : string index 376 read FNotes write SetNotes;
  12649. Property OutlinePosition : string index 384 read FOutlinePosition write SetOutlinePosition;
  12650. Property OvertimeCost : Double index 392 read FOvertimeCost write SetOvertimeCost;
  12651. Property OvertimeWork : string index 400 read FOvertimeWork write SetOvertimeWork;
  12652. Property OvertimeWorkMilliseconds : TInt32 index 408 read FOvertimeWorkMilliseconds write SetOvertimeWorkMilliseconds;
  12653. Property OvertimeWorkTimeSpan : TTime index 416 read FOvertimeWorkTimeSpan write SetOvertimeWorkTimeSpan;
  12654. Property PercentWorkComplete : TInt32 index 424 read FPercentWorkComplete write SetPercentWorkComplete;
  12655. Property PreLevelingFinish : TDateTime index 432 read FPreLevelingFinish write SetPreLevelingFinish;
  12656. Property PreLevelingStart : TDateTime index 440 read FPreLevelingStart write SetPreLevelingStart;
  12657. Property RegularWork : string index 448 read FRegularWork write SetRegularWork;
  12658. Property RegularWorkMilliseconds : TInt32 index 456 read FRegularWorkMilliseconds write SetRegularWorkMilliseconds;
  12659. Property RegularWorkTimeSpan : TTime index 464 read FRegularWorkTimeSpan write SetRegularWorkTimeSpan;
  12660. Property RemainingCost : Double index 472 read FRemainingCost write SetRemainingCost;
  12661. Property RemainingOvertimeCost : Double index 480 read FRemainingOvertimeCost write SetRemainingOvertimeCost;
  12662. Property RemainingOvertimeWork : string index 488 read FRemainingOvertimeWork write SetRemainingOvertimeWork;
  12663. Property RemainingOvertimeWorkMilliseconds : TInt32 index 496 read FRemainingOvertimeWorkMilliseconds write SetRemainingOvertimeWorkMilliseconds;
  12664. Property RemainingOvertimeWorkTimeSpan : TTime index 504 read FRemainingOvertimeWorkTimeSpan write SetRemainingOvertimeWorkTimeSpan;
  12665. Property RemainingWork : string index 512 read FRemainingWork write SetRemainingWork;
  12666. Property RemainingWorkMilliseconds : TInt32 index 520 read FRemainingWorkMilliseconds write SetRemainingWorkMilliseconds;
  12667. Property RemainingWorkTimeSpan : TTime index 528 read FRemainingWorkTimeSpan write SetRemainingWorkTimeSpan;
  12668. Property Resume : TDateTime index 536 read FResume write SetResume;
  12669. Property ScheduleCostVariance : Double index 544 read FScheduleCostVariance write SetScheduleCostVariance;
  12670. Property ScheduledDuration : string index 552 read FScheduledDuration write SetScheduledDuration;
  12671. Property ScheduledDurationMilliseconds : TInt32 index 560 read FScheduledDurationMilliseconds write SetScheduledDurationMilliseconds;
  12672. Property ScheduledDurationTimeSpan : TTime index 568 read FScheduledDurationTimeSpan write SetScheduledDurationTimeSpan;
  12673. Property ScheduledFinish : TDateTime index 576 read FScheduledFinish write SetScheduledFinish;
  12674. Property ScheduledStart : TDateTime index 584 read FScheduledStart write SetScheduledStart;
  12675. Property SchedulePerformanceIndex : Double index 592 read FSchedulePerformanceIndex write SetSchedulePerformanceIndex;
  12676. Property ScheduleVariancePercentage : TInt32 index 600 read FScheduleVariancePercentage write SetScheduleVariancePercentage;
  12677. Property StartSlack : string index 608 read FStartSlack write SetStartSlack;
  12678. Property StartSlackMilliseconds : TInt32 index 616 read FStartSlackMilliseconds write SetStartSlackMilliseconds;
  12679. Property StartSlackTimeSpan : TTime index 624 read FStartSlackTimeSpan write SetStartSlackTimeSpan;
  12680. Property StartVariance : string index 632 read FStartVariance write SetStartVariance;
  12681. Property StartVarianceMilliseconds : TInt32 index 640 read FStartVarianceMilliseconds write SetStartVarianceMilliseconds;
  12682. Property StartVarianceTimeSpan : TTime index 648 read FStartVarianceTimeSpan write SetStartVarianceTimeSpan;
  12683. Property Stop : TDateTime index 656 read FStop write SetStop;
  12684. Property ToCompletePerformanceIndex : Double index 664 read FToCompletePerformanceIndex write SetToCompletePerformanceIndex;
  12685. Property TotalSlack : string index 672 read FTotalSlack write SetTotalSlack;
  12686. Property TotalSlackMilliseconds : TInt32 index 680 read FTotalSlackMilliseconds write SetTotalSlackMilliseconds;
  12687. Property TotalSlackTimeSpan : TTime index 688 read FTotalSlackTimeSpan write SetTotalSlackTimeSpan;
  12688. Property WorkBreakdownStructure : string index 696 read FWorkBreakdownStructure write SetWorkBreakdownStructure;
  12689. Property WorkVariance : string index 704 read FWorkVariance write SetWorkVariance;
  12690. Property WorkVarianceMilliseconds : TInt32 index 712 read FWorkVarianceMilliseconds write SetWorkVarianceMilliseconds;
  12691. Property WorkVarianceTimeSpan : TTime index 720 read FWorkVarianceTimeSpan write SetWorkVarianceTimeSpan;
  12692. end;
  12693. { --------------------------------------------------------------------
  12694. PS: PublishedTask
  12695. --------------------------------------------------------------------}
  12696. TPSPublishedTask = Class(TPSTask)
  12697. private
  12698. FActualCost : Double;
  12699. FActualCostWorkPerformed : Double;
  12700. FActualFinish : TDateTime;
  12701. FActualOvertimeCost : Double;
  12702. FActualOvertimeWork : string;
  12703. FActualOvertimeWorkMilliseconds : TInt32;
  12704. FActualOvertimeWorkTimeSpan : TTime;
  12705. FActualStart : TDateTime;
  12706. FActualWork : string;
  12707. FActualWorkMilliseconds : TInt32;
  12708. FActualWorkTimeSpan : TTime;
  12709. FBudgetedCostWorkPerformed : Double;
  12710. FBudgetedCostWorkScheduled : Double;
  12711. FBudgetWork : string;
  12712. FBudgetWorkMilliseconds : TInt32;
  12713. FBudgetWorkTimeSpan : TTime;
  12714. FCompletion : TDateTime;
  12715. FConstraintStartEnd : TDateTime;
  12716. FConstraintType : TInt32;
  12717. FContact : string;
  12718. FCost : Double;
  12719. FDeadline : TDateTime;
  12720. FDuration : string;
  12721. FDurationMilliseconds : TInt32;
  12722. FDurationTimeSpan : TTime;
  12723. FFinish : TDateTime;
  12724. FFixedCost : Double;
  12725. FFixedCostAccrual : TInt32;
  12726. FIsActive : boolean;
  12727. FIsEffortDriven : boolean;
  12728. FIsLockedByManager : boolean;
  12729. FIsManual : boolean;
  12730. FIsMarked : boolean;
  12731. FIsMilestone : boolean;
  12732. FLevelingAdjustsAssignments : boolean;
  12733. FLevelingCanSplit : boolean;
  12734. FLevelingDelay : string;
  12735. FLevelingDelayMilliseconds : TInt32;
  12736. FLevelingDelayTimeSpan : TTime;
  12737. FName : string;
  12738. FOutlineLevel : TInt32;
  12739. FPercentComplete : TInt32;
  12740. FPercentPhysicalWorkComplete : TInt32;
  12741. FPriority : TInt32;
  12742. FRemainingDuration : string;
  12743. FRemainingDurationMilliseconds : TInt32;
  12744. FRemainingDurationTimeSpan : TTime;
  12745. FStart : TDateTime;
  12746. FTaskType : TInt32;
  12747. FUsePercentPhysicalWorkComplete : boolean;
  12748. FWork : string;
  12749. FWorkMilliseconds : TInt32;
  12750. FWorkTimeSpan : TTime;
  12751. procedure SetActualCost(AIndex: Integer; const AValue: Double);
  12752. procedure SetActualCostWorkPerformed(AIndex: Integer;
  12753. const AValue: Double);
  12754. procedure SetActualFinish(AIndex: Integer; const AValue: TDateTime);
  12755. procedure SetActualOvertimeCost(AIndex: Integer; const AValue: Double);
  12756. procedure SetActualOvertimeWork(AIndex: Integer; const AValue: string);
  12757. procedure SetActualOvertimeWorkMilliseconds(AIndex: Integer;
  12758. const AValue: TInt32);
  12759. procedure SetActualOvertimeWorkTimeSpan(AIndex: Integer;
  12760. const AValue: TTime);
  12761. procedure SetActualStart(AIndex: Integer; const AValue: TDateTime);
  12762. procedure SetActualWork(AIndex: Integer; const AValue: string);
  12763. procedure SetActualWorkMilliseconds(AIndex: Integer;
  12764. const AValue: TInt32);
  12765. procedure SetActualWorkTimeSpan(AIndex: Integer; const AValue: TTime);
  12766. procedure SetBudgetedCostWorkPerformed(AIndex: Integer;
  12767. const AValue: Double);
  12768. procedure SetBudgetedCostWorkScheduled(AIndex: Integer;
  12769. const AValue: Double);
  12770. procedure SetBudgetWork(AIndex: Integer; const AValue: string);
  12771. procedure SetBudgetWorkMilliseconds(AIndex: Integer;
  12772. const AValue: TInt32);
  12773. procedure SetBudgetWorkTimeSpan(AIndex: Integer; const AValue: TTime);
  12774. procedure SetCompletion(AIndex: Integer; const AValue: TDateTime);
  12775. procedure SetConstraintStartEnd(AIndex: Integer;
  12776. const AValue: TDateTime);
  12777. procedure SetConstraintType(AIndex: Integer; const AValue: TInt32);
  12778. procedure SetContact(AIndex: Integer; const AValue: string);
  12779. procedure SetCost(AIndex: Integer; const AValue: Double);
  12780. procedure SetDeadline(AIndex: Integer; const AValue: TDateTime);
  12781. procedure SetDuration(AIndex: Integer; const AValue: string);
  12782. procedure SetDurationMilliseconds(AIndex: Integer; const AValue: TInt32);
  12783. procedure SetDurationTimeSpan(AIndex: Integer; const AValue: TTime);
  12784. procedure SetFinish(AIndex: Integer; const AValue: TDateTime);
  12785. procedure SetFixedCost(AIndex: Integer; const AValue: Double);
  12786. procedure SetFixedCostAccrual(AIndex: Integer; const AValue: TInt32);
  12787. procedure SetIsActive(AIndex: Integer; const AValue: boolean);
  12788. procedure SetIsEffortDriven(AIndex: Integer; const AValue: boolean);
  12789. procedure SetIsLockedByManager(AIndex: Integer; const AValue: boolean);
  12790. procedure SetIsManual(AIndex: Integer; const AValue: boolean);
  12791. procedure SetIsMarked(AIndex: Integer; const AValue: boolean);
  12792. procedure SetIsMilestone(AIndex: Integer; const AValue: boolean);
  12793. procedure SetLevelingAdjustsAssignments(AIndex: Integer;
  12794. const AValue: boolean);
  12795. procedure SetLevelingCanSplit(AIndex: Integer; const AValue: boolean);
  12796. procedure SetLevelingDelay(AIndex: Integer; const AValue: string);
  12797. procedure SetLevelingDelayMilliseconds(AIndex: Integer;
  12798. const AValue: TInt32);
  12799. procedure SetLevelingDelayTimeSpan(AIndex: Integer; const AValue: TTime);
  12800. procedure SetName(AIndex: Integer; const AValue: string);
  12801. procedure SetOutlineLevel(AIndex: Integer; const AValue: TInt32);
  12802. procedure SetPercentComplete(AIndex: Integer; const AValue: TInt32);
  12803. procedure SetPercentPhysicalWorkComplete(AIndex: Integer;
  12804. const AValue: TInt32);
  12805. procedure SetPriority(AIndex: Integer; const AValue: TInt32);
  12806. procedure SetRemainingDuration(AIndex: Integer; const AValue: string);
  12807. procedure SetRemainingDurationMilliseconds(AIndex: Integer;
  12808. const AValue: TInt32);
  12809. procedure SetRemainingDurationTimeSpan(AIndex: Integer;
  12810. const AValue: TTime);
  12811. procedure SetStart(AIndex: Integer; const AValue: TDateTime);
  12812. procedure SetTaskType(AIndex: Integer; const AValue: TInt32);
  12813. procedure SetUsePercentPhysicalWorkComplete(AIndex: Integer;
  12814. const AValue: boolean);
  12815. procedure SetWork(AIndex: Integer; const AValue: string);
  12816. procedure SetWorkMilliseconds(AIndex: Integer; const AValue: TInt32);
  12817. procedure SetWorkTimeSpan(AIndex: Integer; const AValue: TTime);
  12818. public
  12819. class function ObjectRestKind : String; Override;
  12820. function Assignments(AService: TODataService) : TPSPublishedAssignment;
  12821. function Calendar(AService: TODataService) : TPSCalendar;
  12822. function Parent(AService: TODataService) : TPSPublishedTask;
  12823. function Predecessors(AService: TODataService) : TPSPublishedTaskLink;
  12824. function Successors(AService: TODataService) : TPSPublishedTaskLink;
  12825. published
  12826. Property ActualCost : Double index 728 read FActualCost write SetActualCost;
  12827. Property ActualCostWorkPerformed : Double index 736 read FActualCostWorkPerformed write SetActualCostWorkPerformed;
  12828. Property ActualFinish : TDateTime index 744 read FActualFinish write SetActualFinish;
  12829. Property ActualOvertimeCost : Double index 752 read FActualOvertimeCost write SetActualOvertimeCost;
  12830. Property ActualOvertimeWork : string index 760 read FActualOvertimeWork write SetActualOvertimeWork;
  12831. Property ActualOvertimeWorkMilliseconds : TInt32 index 768 read FActualOvertimeWorkMilliseconds write SetActualOvertimeWorkMilliseconds;
  12832. Property ActualOvertimeWorkTimeSpan : TTime index 776 read FActualOvertimeWorkTimeSpan write SetActualOvertimeWorkTimeSpan;
  12833. Property ActualStart : TDateTime index 784 read FActualStart write SetActualStart;
  12834. Property ActualWork : string index 792 read FActualWork write SetActualWork;
  12835. Property ActualWorkMilliseconds : TInt32 index 800 read FActualWorkMilliseconds write SetActualWorkMilliseconds;
  12836. Property ActualWorkTimeSpan : TTime index 808 read FActualWorkTimeSpan write SetActualWorkTimeSpan;
  12837. Property BudgetedCostWorkPerformed : Double index 816 read FBudgetedCostWorkPerformed write SetBudgetedCostWorkPerformed;
  12838. Property BudgetedCostWorkScheduled : Double index 824 read FBudgetedCostWorkScheduled write SetBudgetedCostWorkScheduled;
  12839. Property BudgetWork : string index 832 read FBudgetWork write SetBudgetWork;
  12840. Property BudgetWorkMilliseconds : TInt32 index 840 read FBudgetWorkMilliseconds write SetBudgetWorkMilliseconds;
  12841. Property BudgetWorkTimeSpan : TTime index 848 read FBudgetWorkTimeSpan write SetBudgetWorkTimeSpan;
  12842. Property Completion : TDateTime index 856 read FCompletion write SetCompletion;
  12843. Property ConstraintStartEnd : TDateTime index 864 read FConstraintStartEnd write SetConstraintStartEnd;
  12844. Property ConstraintType : TInt32 index 872 read FConstraintType write SetConstraintType;
  12845. Property Contact : string index 880 read FContact write SetContact;
  12846. Property Cost : Double index 888 read FCost write SetCost;
  12847. Property Deadline : TDateTime index 896 read FDeadline write SetDeadline;
  12848. Property Duration : string index 904 read FDuration write SetDuration;
  12849. Property DurationMilliseconds : TInt32 index 912 read FDurationMilliseconds write SetDurationMilliseconds;
  12850. Property DurationTimeSpan : TTime index 920 read FDurationTimeSpan write SetDurationTimeSpan;
  12851. Property Finish : TDateTime index 928 read FFinish write SetFinish;
  12852. Property FixedCost : Double index 936 read FFixedCost write SetFixedCost;
  12853. Property FixedCostAccrual : TInt32 index 944 read FFixedCostAccrual write SetFixedCostAccrual;
  12854. Property IsActive : boolean index 952 read FIsActive write SetIsActive;
  12855. Property IsEffortDriven : boolean index 960 read FIsEffortDriven write SetIsEffortDriven;
  12856. Property IsLockedByManager : boolean index 968 read FIsLockedByManager write SetIsLockedByManager;
  12857. Property IsManual : boolean index 976 read FIsManual write SetIsManual;
  12858. Property IsMarked : boolean index 984 read FIsMarked write SetIsMarked;
  12859. Property IsMilestone : boolean index 992 read FIsMilestone write SetIsMilestone;
  12860. Property LevelingAdjustsAssignments : boolean index 1000 read FLevelingAdjustsAssignments write SetLevelingAdjustsAssignments;
  12861. Property LevelingCanSplit : boolean index 1008 read FLevelingCanSplit write SetLevelingCanSplit;
  12862. Property LevelingDelay : string index 1016 read FLevelingDelay write SetLevelingDelay;
  12863. Property LevelingDelayMilliseconds : TInt32 index 1024 read FLevelingDelayMilliseconds write SetLevelingDelayMilliseconds;
  12864. Property LevelingDelayTimeSpan : TTime index 1032 read FLevelingDelayTimeSpan write SetLevelingDelayTimeSpan;
  12865. Property Name : string index 1040 read FName write SetName;
  12866. Property OutlineLevel : TInt32 index 1048 read FOutlineLevel write SetOutlineLevel;
  12867. Property PercentComplete : TInt32 index 1056 read FPercentComplete write SetPercentComplete;
  12868. Property PercentPhysicalWorkComplete : TInt32 index 1064 read FPercentPhysicalWorkComplete write SetPercentPhysicalWorkComplete;
  12869. Property Priority : TInt32 index 1072 read FPriority write SetPriority;
  12870. Property RemainingDuration : string index 1080 read FRemainingDuration write SetRemainingDuration;
  12871. Property RemainingDurationMilliseconds : TInt32 index 1088 read FRemainingDurationMilliseconds write SetRemainingDurationMilliseconds;
  12872. Property RemainingDurationTimeSpan : TTime index 1096 read FRemainingDurationTimeSpan write SetRemainingDurationTimeSpan;
  12873. Property Start : TDateTime index 1104 read FStart write SetStart;
  12874. Property TaskType : TInt32 index 1112 read FTaskType write SetTaskType;
  12875. Property UsePercentPhysicalWorkComplete : boolean index 1120 read FUsePercentPhysicalWorkComplete write SetUsePercentPhysicalWorkComplete;
  12876. Property Work : string index 1128 read FWork write SetWork;
  12877. Property WorkMilliseconds : TInt32 index 1136 read FWorkMilliseconds write SetWorkMilliseconds;
  12878. Property WorkTimeSpan : TTime index 1144 read FWorkTimeSpan write SetWorkTimeSpan;
  12879. end;
  12880. { --------------------------------------------------------------------
  12881. PS: TaskLink
  12882. --------------------------------------------------------------------}
  12883. TPSTaskLink = Class(TODataEntity)
  12884. private
  12885. FId : TGUIDString;
  12886. procedure SetId(AIndex: Integer; const AValue: TGUIDString);
  12887. public
  12888. class function ObjectRestKind : String; Override;
  12889. function KeyAsURLPart : String; Override;
  12890. published
  12891. Property Id : TGUIDString index 0 read FId write SetId;
  12892. end;
  12893. { --------------------------------------------------------------------
  12894. PS: PublishedTaskLink
  12895. --------------------------------------------------------------------}
  12896. TPSPublishedTaskLink = Class(TPSTaskLink)
  12897. private
  12898. FDependencyType : TInt32;
  12899. procedure SetDependencyType(AIndex: Integer; const AValue: TInt32);
  12900. public
  12901. class function ObjectRestKind : String; Override;
  12902. function _End(AService: TODataService) : TPSPublishedTask;
  12903. function Start(AService: TODataService) : TPSPublishedTask;
  12904. published
  12905. Property DependencyType : TInt32 index 8 read FDependencyType write SetDependencyType;
  12906. end;
  12907. { --------------------------------------------------------------------
  12908. PS: DraftProject
  12909. --------------------------------------------------------------------}
  12910. TPSDraftProject = Class(TPSProject)
  12911. private
  12912. FCalculateActualCosts : boolean;
  12913. FCalculatesActualCosts : boolean;
  12914. FCriticalSlackLimit : TInt32;
  12915. FCurrencyCode : string;
  12916. FCurrencyDigits : TInt32;
  12917. FCurrencyPosition : TInt32;
  12918. FCurrencySymbol : string;
  12919. FCurrentDate : TDateTime;
  12920. FDaysPerMonth : TInt16;
  12921. FDefaultEffortDriven : boolean;
  12922. FDefaultEstimatedDuration : boolean;
  12923. FDefaultFinishTime : TDateTime;
  12924. FDefaultFixedCostAccrual : TInt32;
  12925. FDefaultOvertimeRate : Double;
  12926. FDefaultStandardRate : Double;
  12927. FDefaultStartTime : TDateTime;
  12928. FDefaultTaskType : TInt32;
  12929. FDefaultWorkFormat : TInt32;
  12930. FDescription : string;
  12931. FFinishDate : TDateTime;
  12932. FFiscalYearStartMonth : TInt16;
  12933. FHonorConstraints : boolean;
  12934. FMinutesPerDay : TInt32;
  12935. FMinutesPerWeek : TInt32;
  12936. FMoveActualIfLater : boolean;
  12937. FMoveActualToStatus : boolean;
  12938. FMoveRemainingIfEarlier : boolean;
  12939. FMoveRemainingToStatus : boolean;
  12940. FMultipleCriticalPaths : boolean;
  12941. FName : string;
  12942. FNewTasksAreManual : boolean;
  12943. FNumberFiscalYearFromStart : boolean;
  12944. FProtectedActualsSynch : boolean;
  12945. FScheduledFromStart : boolean;
  12946. FShowEstimatedDurations : boolean;
  12947. FSplitInProgress : boolean;
  12948. FSpreadActualCostsToStatus : boolean;
  12949. FSpreadPercentCompleteToStatus : boolean;
  12950. FStartDate : TDateTime;
  12951. FStatusDate : TDateTime;
  12952. FTrackingMode : TInt32;
  12953. FWeekStartDay : TInt16;
  12954. FWinprojVersion : double;
  12955. procedure SetCalculateActualCosts(AIndex: Integer;
  12956. const AValue: boolean);
  12957. procedure SetCalculatesActualCosts(AIndex: Integer;
  12958. const AValue: boolean);
  12959. procedure SetCriticalSlackLimit(AIndex: Integer; const AValue: TInt32);
  12960. procedure SetCurrencyCode(AIndex: Integer; const AValue: string);
  12961. procedure SetCurrencyDigits(AIndex: Integer; const AValue: TInt32);
  12962. procedure SetCurrencyPosition(AIndex: Integer; const AValue: TInt32);
  12963. procedure SetCurrencySymbol(AIndex: Integer; const AValue: string);
  12964. procedure SetCurrentDate(AIndex: Integer; const AValue: TDateTime);
  12965. procedure SetDaysPerMonth(AIndex: Integer; const AValue: TInt16);
  12966. procedure SetDefaultEffortDriven(AIndex: Integer; const AValue: boolean);
  12967. procedure SetDefaultEstimatedDuration(AIndex: Integer;
  12968. const AValue: boolean);
  12969. procedure SetDefaultFinishTime(AIndex: Integer; const AValue: TDateTime);
  12970. procedure SetDefaultFixedCostAccrual(AIndex: Integer;
  12971. const AValue: TInt32);
  12972. procedure SetDefaultOvertimeRate(AIndex: Integer; const AValue: Double);
  12973. procedure SetDefaultStandardRate(AIndex: Integer; const AValue: Double);
  12974. procedure SetDefaultStartTime(AIndex: Integer; const AValue: TDateTime);
  12975. procedure SetDefaultTaskType(AIndex: Integer; const AValue: TInt32);
  12976. procedure SetDefaultWorkFormat(AIndex: Integer; const AValue: TInt32);
  12977. procedure SetDescription(AIndex: Integer; const AValue: string);
  12978. procedure SetFinishDate(AIndex: Integer; const AValue: TDateTime);
  12979. procedure SetFiscalYearStartMonth(AIndex: Integer; const AValue: TInt16);
  12980. procedure SetHonorConstraints(AIndex: Integer; const AValue: boolean);
  12981. procedure SetMinutesPerDay(AIndex: Integer; const AValue: TInt32);
  12982. procedure SetMinutesPerWeek(AIndex: Integer; const AValue: TInt32);
  12983. procedure SetMoveActualIfLater(AIndex: Integer; const AValue: boolean);
  12984. procedure SetMoveActualToStatus(AIndex: Integer; const AValue: boolean);
  12985. procedure SetMoveRemainingIfEarlier(AIndex: Integer;
  12986. const AValue: boolean);
  12987. procedure SetMoveRemainingToStatus(AIndex: Integer;
  12988. const AValue: boolean);
  12989. procedure SetMultipleCriticalPaths(AIndex: Integer;
  12990. const AValue: boolean);
  12991. procedure SetName(AIndex: Integer; const AValue: string);
  12992. procedure SetNewTasksAreManual(AIndex: Integer; const AValue: boolean);
  12993. procedure SetNumberFiscalYearFromStart(AIndex: Integer;
  12994. const AValue: boolean);
  12995. procedure SetProtectedActualsSynch(AIndex: Integer;
  12996. const AValue: boolean);
  12997. procedure SetScheduledFromStart(AIndex: Integer; const AValue: boolean);
  12998. procedure SetShowEstimatedDurations(AIndex: Integer;
  12999. const AValue: boolean);
  13000. procedure SetSplitInProgress(AIndex: Integer; const AValue: boolean);
  13001. procedure SetSpreadActualCostsToStatus(AIndex: Integer;
  13002. const AValue: boolean);
  13003. procedure SetSpreadPercentCompleteToStatus(AIndex: Integer;
  13004. const AValue: boolean);
  13005. procedure SetStartDate(AIndex: Integer; const AValue: TDateTime);
  13006. procedure SetStatusDate(AIndex: Integer; const AValue: TDateTime);
  13007. procedure SetTrackingMode(AIndex: Integer; const AValue: TInt32);
  13008. procedure SetWeekStartDay(AIndex: Integer; const AValue: TInt16);
  13009. procedure SetWinprojVersion(AIndex: Integer; const AValue: double);
  13010. public
  13011. class function ObjectRestKind : String; Override;
  13012. function Assignments(AService: TODataService) : TPSDraftAssignment;
  13013. function Calendar(AService: TODataService) : TPSCalendar;
  13014. function IncludeCustomFields(AService: TODataService) : TPSDraftProject;
  13015. function Owner(AService: TODataService) : TSPUser;
  13016. function ProjectResources(AService: TODataService)
  13017. : TPSDraftProjectResource;
  13018. function TaskLinks(AService: TODataService) : TPSDraftTaskLink;
  13019. function Tasks(AService: TODataService) : TPSDraftTask;
  13020. published
  13021. Property CalculateActualCosts : boolean index 176 read FCalculateActualCosts write SetCalculateActualCosts;
  13022. Property CalculatesActualCosts : boolean index 184 read FCalculatesActualCosts write SetCalculatesActualCosts;
  13023. Property CriticalSlackLimit : TInt32 index 192 read FCriticalSlackLimit write SetCriticalSlackLimit;
  13024. Property CurrencyCode : string index 200 read FCurrencyCode write SetCurrencyCode;
  13025. Property CurrencyDigits : TInt32 index 208 read FCurrencyDigits write SetCurrencyDigits;
  13026. Property CurrencyPosition : TInt32 index 216 read FCurrencyPosition write SetCurrencyPosition;
  13027. Property CurrencySymbol : string index 224 read FCurrencySymbol write SetCurrencySymbol;
  13028. Property CurrentDate : TDateTime index 232 read FCurrentDate write SetCurrentDate;
  13029. Property DaysPerMonth : TInt16 index 240 read FDaysPerMonth write SetDaysPerMonth;
  13030. Property DefaultEffortDriven : boolean index 248 read FDefaultEffortDriven write SetDefaultEffortDriven;
  13031. Property DefaultEstimatedDuration : boolean index 256 read FDefaultEstimatedDuration write SetDefaultEstimatedDuration;
  13032. Property DefaultFinishTime : TDateTime index 264 read FDefaultFinishTime write SetDefaultFinishTime;
  13033. Property DefaultFixedCostAccrual : TInt32 index 272 read FDefaultFixedCostAccrual write SetDefaultFixedCostAccrual;
  13034. Property DefaultOvertimeRate : Double index 280 read FDefaultOvertimeRate write SetDefaultOvertimeRate;
  13035. Property DefaultStandardRate : Double index 288 read FDefaultStandardRate write SetDefaultStandardRate;
  13036. Property DefaultStartTime : TDateTime index 296 read FDefaultStartTime write SetDefaultStartTime;
  13037. Property DefaultTaskType : TInt32 index 304 read FDefaultTaskType write SetDefaultTaskType;
  13038. Property DefaultWorkFormat : TInt32 index 312 read FDefaultWorkFormat write SetDefaultWorkFormat;
  13039. Property Description : string index 320 read FDescription write SetDescription;
  13040. Property FinishDate : TDateTime index 328 read FFinishDate write SetFinishDate;
  13041. Property FiscalYearStartMonth : TInt16 index 336 read FFiscalYearStartMonth write SetFiscalYearStartMonth;
  13042. Property HonorConstraints : boolean index 344 read FHonorConstraints write SetHonorConstraints;
  13043. Property MinutesPerDay : TInt32 index 352 read FMinutesPerDay write SetMinutesPerDay;
  13044. Property MinutesPerWeek : TInt32 index 360 read FMinutesPerWeek write SetMinutesPerWeek;
  13045. Property MoveActualIfLater : boolean index 368 read FMoveActualIfLater write SetMoveActualIfLater;
  13046. Property MoveActualToStatus : boolean index 376 read FMoveActualToStatus write SetMoveActualToStatus;
  13047. Property MoveRemainingIfEarlier : boolean index 384 read FMoveRemainingIfEarlier write SetMoveRemainingIfEarlier;
  13048. Property MoveRemainingToStatus : boolean index 392 read FMoveRemainingToStatus write SetMoveRemainingToStatus;
  13049. Property MultipleCriticalPaths : boolean index 400 read FMultipleCriticalPaths write SetMultipleCriticalPaths;
  13050. Property Name : string index 408 read FName write SetName;
  13051. Property NewTasksAreManual : boolean index 416 read FNewTasksAreManual write SetNewTasksAreManual;
  13052. Property NumberFiscalYearFromStart : boolean index 424 read FNumberFiscalYearFromStart write SetNumberFiscalYearFromStart;
  13053. Property ProtectedActualsSynch : boolean index 432 read FProtectedActualsSynch write SetProtectedActualsSynch;
  13054. Property ScheduledFromStart : boolean index 440 read FScheduledFromStart write SetScheduledFromStart;
  13055. Property ShowEstimatedDurations : boolean index 448 read FShowEstimatedDurations write SetShowEstimatedDurations;
  13056. Property SplitInProgress : boolean index 456 read FSplitInProgress write SetSplitInProgress;
  13057. Property SpreadActualCostsToStatus : boolean index 464 read FSpreadActualCostsToStatus write SetSpreadActualCostsToStatus;
  13058. Property SpreadPercentCompleteToStatus : boolean index 472 read FSpreadPercentCompleteToStatus write SetSpreadPercentCompleteToStatus;
  13059. Property StartDate : TDateTime index 480 read FStartDate write SetStartDate;
  13060. Property StatusDate : TDateTime index 488 read FStatusDate write SetStatusDate;
  13061. Property TrackingMode : TInt32 index 496 read FTrackingMode write SetTrackingMode;
  13062. Property WeekStartDay : TInt16 index 504 read FWeekStartDay write SetWeekStartDay;
  13063. Property WinprojVersion : double index 512 read FWinprojVersion write SetWinprojVersion;
  13064. end;
  13065. { --------------------------------------------------------------------
  13066. PS: DraftProjectResource
  13067. --------------------------------------------------------------------}
  13068. TPSDraftProjectResource = Class(TPSProjectResource)
  13069. private
  13070. FCanLevel : boolean;
  13071. FCode : string;
  13072. FCostAccrual : TInt32;
  13073. FCostCenter : string;
  13074. FCostPerUse : Double;
  13075. FDefaultBookingType : TInt32;
  13076. FEmail : string;
  13077. FGroup : string;
  13078. FInitials : string;
  13079. FMaterialLabel : string;
  13080. FMaximumCapacity : Double;
  13081. FName : string;
  13082. FOvertimeRate : Double;
  13083. FOvertimeRateUnits : TInt32;
  13084. FPhonetics : string;
  13085. FStandardRate : Double;
  13086. FStandardRateUnits : TInt32;
  13087. procedure SetCanLevel(AIndex: Integer; const AValue: boolean);
  13088. procedure SetCode(AIndex: Integer; const AValue: string);
  13089. procedure SetCostAccrual(AIndex: Integer; const AValue: TInt32);
  13090. procedure SetCostCenter(AIndex: Integer; const AValue: string);
  13091. procedure SetCostPerUse(AIndex: Integer; const AValue: Double);
  13092. procedure SetDefaultBookingType(AIndex: Integer; const AValue: TInt32);
  13093. procedure SetEmail(AIndex: Integer; const AValue: string);
  13094. procedure SetGroup(AIndex: Integer; const AValue: string);
  13095. procedure SetInitials(AIndex: Integer; const AValue: string);
  13096. procedure SetMaterialLabel(AIndex: Integer; const AValue: string);
  13097. procedure SetMaximumCapacity(AIndex: Integer; const AValue: Double);
  13098. procedure SetName(AIndex: Integer; const AValue: string);
  13099. procedure SetOvertimeRate(AIndex: Integer; const AValue: Double);
  13100. procedure SetOvertimeRateUnits(AIndex: Integer; const AValue: TInt32);
  13101. procedure SetPhonetics(AIndex: Integer; const AValue: string);
  13102. procedure SetStandardRate(AIndex: Integer; const AValue: Double);
  13103. procedure SetStandardRateUnits(AIndex: Integer; const AValue: TInt32);
  13104. public
  13105. class function ObjectRestKind : String; Override;
  13106. function Assignments(AService: TODataService) : TPSDraftAssignment;
  13107. function DefaultAssignmentOwner(AService: TODataService) : TSPUser;
  13108. published
  13109. Property CanLevel : boolean index 496 read FCanLevel write SetCanLevel;
  13110. Property Code : string index 504 read FCode write SetCode;
  13111. Property CostAccrual : TInt32 index 512 read FCostAccrual write SetCostAccrual;
  13112. Property CostCenter : string index 520 read FCostCenter write SetCostCenter;
  13113. Property CostPerUse : Double index 528 read FCostPerUse write SetCostPerUse;
  13114. Property DefaultBookingType : TInt32 index 536 read FDefaultBookingType write SetDefaultBookingType;
  13115. Property Email : string index 544 read FEmail write SetEmail;
  13116. Property Group : string index 552 read FGroup write SetGroup;
  13117. Property Initials : string index 560 read FInitials write SetInitials;
  13118. Property MaterialLabel : string index 568 read FMaterialLabel write SetMaterialLabel;
  13119. Property MaximumCapacity : Double index 576 read FMaximumCapacity write SetMaximumCapacity;
  13120. Property Name : string index 584 read FName write SetName;
  13121. Property OvertimeRate : Double index 592 read FOvertimeRate write SetOvertimeRate;
  13122. Property OvertimeRateUnits : TInt32 index 600 read FOvertimeRateUnits write SetOvertimeRateUnits;
  13123. Property Phonetics : string index 608 read FPhonetics write SetPhonetics;
  13124. Property StandardRate : Double index 616 read FStandardRate write SetStandardRate;
  13125. Property StandardRateUnits : TInt32 index 624 read FStandardRateUnits write SetStandardRateUnits;
  13126. end;
  13127. { --------------------------------------------------------------------
  13128. PS: DraftTaskLink
  13129. --------------------------------------------------------------------}
  13130. TPSDraftTaskLink = Class(TPSTaskLink)
  13131. private
  13132. FDependencyType : TInt32;
  13133. FEndId : TGUIDString;
  13134. FStartId : TGUIDString;
  13135. procedure SetDependencyType(AIndex: Integer; const AValue: TInt32);
  13136. procedure SetEndId(AIndex: Integer; const AValue: TGUIDString);
  13137. procedure SetStartId(AIndex: Integer; const AValue: TGUIDString);
  13138. public
  13139. class function ObjectRestKind : String; Override;
  13140. function _End(AService: TODataService) : TPSDraftTask;
  13141. function Start(AService: TODataService) : TPSDraftTask;
  13142. published
  13143. Property DependencyType : TInt32 index 8 read FDependencyType write SetDependencyType;
  13144. Property EndId : TGUIDString index 16 read FEndId write SetEndId;
  13145. Property StartId : TGUIDString index 24 read FStartId write SetStartId;
  13146. end;
  13147. { --------------------------------------------------------------------
  13148. PS: DraftTask
  13149. --------------------------------------------------------------------}
  13150. TPSDraftTask = Class(TPSTask)
  13151. private
  13152. FActualCost : Double;
  13153. FActualCostWorkPerformed : Double;
  13154. FActualFinish : TDateTime;
  13155. FActualOvertimeCost : Double;
  13156. FActualOvertimeWork : string;
  13157. FActualOvertimeWorkMilliseconds : TInt32;
  13158. FActualOvertimeWorkTimeSpan : TTime;
  13159. FActualStart : TDateTime;
  13160. FActualWork : string;
  13161. FActualWorkMilliseconds : TInt32;
  13162. FActualWorkTimeSpan : TTime;
  13163. FAddAfterId : TGUIDString;
  13164. FBudgetedCostWorkPerformed : Double;
  13165. FBudgetedCostWorkScheduled : Double;
  13166. FBudgetWork : string;
  13167. FBudgetWorkMilliseconds : TInt32;
  13168. FBudgetWorkTimeSpan : TTime;
  13169. FCompletion : TDateTime;
  13170. FConstraintStartEnd : TDateTime;
  13171. FConstraintType : TInt32;
  13172. FContact : string;
  13173. FCost : Double;
  13174. FDeadline : TDateTime;
  13175. FDuration : string;
  13176. FDurationMilliseconds : TInt32;
  13177. FDurationTimeSpan : TTime;
  13178. FFinish : TDateTime;
  13179. FFixedCost : Double;
  13180. FFixedCostAccrual : TInt32;
  13181. FIsActive : boolean;
  13182. FIsEffortDriven : boolean;
  13183. FIsLockedByManager : boolean;
  13184. FIsManual : boolean;
  13185. FIsMarked : boolean;
  13186. FIsMilestone : boolean;
  13187. FLevelingAdjustsAssignments : boolean;
  13188. FLevelingCanSplit : boolean;
  13189. FLevelingDelay : string;
  13190. FLevelingDelayMilliseconds : TInt32;
  13191. FLevelingDelayTimeSpan : TTime;
  13192. FName : string;
  13193. FOutlineLevel : TInt32;
  13194. FParentId : TGUIDString;
  13195. FPercentComplete : TInt32;
  13196. FPercentPhysicalWorkComplete : TInt32;
  13197. FPriority : TInt32;
  13198. FRemainingDuration : string;
  13199. FRemainingDurationMilliseconds : TInt32;
  13200. FRemainingDurationTimeSpan : TTime;
  13201. FStart : TDateTime;
  13202. FTaskType : TInt32;
  13203. FUsePercentPhysicalWorkComplete : boolean;
  13204. FWork : string;
  13205. FWorkMilliseconds : TInt32;
  13206. FWorkTimeSpan : TTime;
  13207. procedure SetActualCost(AIndex: Integer; const AValue: Double);
  13208. procedure SetActualCostWorkPerformed(AIndex: Integer;
  13209. const AValue: Double);
  13210. procedure SetActualFinish(AIndex: Integer; const AValue: TDateTime);
  13211. procedure SetActualOvertimeCost(AIndex: Integer; const AValue: Double);
  13212. procedure SetActualOvertimeWork(AIndex: Integer; const AValue: string);
  13213. procedure SetActualOvertimeWorkMilliseconds(AIndex: Integer;
  13214. const AValue: TInt32);
  13215. procedure SetActualOvertimeWorkTimeSpan(AIndex: Integer;
  13216. const AValue: TTime);
  13217. procedure SetActualStart(AIndex: Integer; const AValue: TDateTime);
  13218. procedure SetActualWork(AIndex: Integer; const AValue: string);
  13219. procedure SetActualWorkMilliseconds(AIndex: Integer;
  13220. const AValue: TInt32);
  13221. procedure SetActualWorkTimeSpan(AIndex: Integer; const AValue: TTime);
  13222. procedure SetAddAfterId(AIndex: Integer; const AValue: TGUIDString);
  13223. procedure SetBudgetedCostWorkPerformed(AIndex: Integer;
  13224. const AValue: Double);
  13225. procedure SetBudgetedCostWorkScheduled(AIndex: Integer;
  13226. const AValue: Double);
  13227. procedure SetBudgetWork(AIndex: Integer; const AValue: string);
  13228. procedure SetBudgetWorkMilliseconds(AIndex: Integer;
  13229. const AValue: TInt32);
  13230. procedure SetBudgetWorkTimeSpan(AIndex: Integer; const AValue: TTime);
  13231. procedure SetCompletion(AIndex: Integer; const AValue: TDateTime);
  13232. procedure SetConstraintStartEnd(AIndex: Integer;
  13233. const AValue: TDateTime);
  13234. procedure SetConstraintType(AIndex: Integer; const AValue: TInt32);
  13235. procedure SetContact(AIndex: Integer; const AValue: string);
  13236. procedure SetCost(AIndex: Integer; const AValue: Double);
  13237. procedure SetDeadline(AIndex: Integer; const AValue: TDateTime);
  13238. procedure SetDuration(AIndex: Integer; const AValue: string);
  13239. procedure SetDurationMilliseconds(AIndex: Integer; const AValue: TInt32);
  13240. procedure SetDurationTimeSpan(AIndex: Integer; const AValue: TTime);
  13241. procedure SetFinish(AIndex: Integer; const AValue: TDateTime);
  13242. procedure SetFixedCost(AIndex: Integer; const AValue: Double);
  13243. procedure SetFixedCostAccrual(AIndex: Integer; const AValue: TInt32);
  13244. procedure SetIsActive(AIndex: Integer; const AValue: boolean);
  13245. procedure SetIsEffortDriven(AIndex: Integer; const AValue: boolean);
  13246. procedure SetIsLockedByManager(AIndex: Integer; const AValue: boolean);
  13247. procedure SetIsManual(AIndex: Integer; const AValue: boolean);
  13248. procedure SetIsMarked(AIndex: Integer; const AValue: boolean);
  13249. procedure SetIsMilestone(AIndex: Integer; const AValue: boolean);
  13250. procedure SetLevelingAdjustsAssignments(AIndex: Integer;
  13251. const AValue: boolean);
  13252. procedure SetLevelingCanSplit(AIndex: Integer; const AValue: boolean);
  13253. procedure SetLevelingDelay(AIndex: Integer; const AValue: string);
  13254. procedure SetLevelingDelayMilliseconds(AIndex: Integer;
  13255. const AValue: TInt32);
  13256. procedure SetLevelingDelayTimeSpan(AIndex: Integer; const AValue: TTime);
  13257. procedure SetName(AIndex: Integer; const AValue: string);
  13258. procedure SetOutlineLevel(AIndex: Integer; const AValue: TInt32);
  13259. procedure SetParentId(AIndex: Integer; const AValue: TGUIDString);
  13260. procedure SetPercentComplete(AIndex: Integer; const AValue: TInt32);
  13261. procedure SetPercentPhysicalWorkComplete(AIndex: Integer;
  13262. const AValue: TInt32);
  13263. procedure SetPriority(AIndex: Integer; const AValue: TInt32);
  13264. procedure SetRemainingDuration(AIndex: Integer; const AValue: string);
  13265. procedure SetRemainingDurationMilliseconds(AIndex: Integer;
  13266. const AValue: TInt32);
  13267. procedure SetRemainingDurationTimeSpan(AIndex: Integer;
  13268. const AValue: TTime);
  13269. procedure SetStart(AIndex: Integer; const AValue: TDateTime);
  13270. procedure SetTaskType(AIndex: Integer; const AValue: TInt32);
  13271. procedure SetUsePercentPhysicalWorkComplete(AIndex: Integer;
  13272. const AValue: boolean);
  13273. procedure SetWork(AIndex: Integer; const AValue: string);
  13274. procedure SetWorkMilliseconds(AIndex: Integer; const AValue: TInt32);
  13275. procedure SetWorkTimeSpan(AIndex: Integer; const AValue: TTime);
  13276. public
  13277. class function ObjectRestKind : String; Override;
  13278. function Assignments(AService: TODataService) : TPSDraftAssignment;
  13279. function Calendar(AService: TODataService) : TPSCalendar;
  13280. function Parent(AService: TODataService) : TPSDraftTask;
  13281. function Predecessors(AService: TODataService) : TPSDraftTaskLink;
  13282. function Successors(AService: TODataService) : TPSDraftTaskLink;
  13283. published
  13284. Property ActualCost : Double index 728 read FActualCost write SetActualCost;
  13285. Property ActualCostWorkPerformed : Double index 736 read FActualCostWorkPerformed write SetActualCostWorkPerformed;
  13286. Property ActualFinish : TDateTime index 744 read FActualFinish write SetActualFinish;
  13287. Property ActualOvertimeCost : Double index 752 read FActualOvertimeCost write SetActualOvertimeCost;
  13288. Property ActualOvertimeWork : string index 760 read FActualOvertimeWork write SetActualOvertimeWork;
  13289. Property ActualOvertimeWorkMilliseconds : TInt32 index 768 read FActualOvertimeWorkMilliseconds write SetActualOvertimeWorkMilliseconds;
  13290. Property ActualOvertimeWorkTimeSpan : TTime index 776 read FActualOvertimeWorkTimeSpan write SetActualOvertimeWorkTimeSpan;
  13291. Property ActualStart : TDateTime index 784 read FActualStart write SetActualStart;
  13292. Property ActualWork : string index 792 read FActualWork write SetActualWork;
  13293. Property ActualWorkMilliseconds : TInt32 index 800 read FActualWorkMilliseconds write SetActualWorkMilliseconds;
  13294. Property ActualWorkTimeSpan : TTime index 808 read FActualWorkTimeSpan write SetActualWorkTimeSpan;
  13295. Property AddAfterId : TGUIDString index 816 read FAddAfterId write SetAddAfterId;
  13296. Property BudgetedCostWorkPerformed : Double index 824 read FBudgetedCostWorkPerformed write SetBudgetedCostWorkPerformed;
  13297. Property BudgetedCostWorkScheduled : Double index 832 read FBudgetedCostWorkScheduled write SetBudgetedCostWorkScheduled;
  13298. Property BudgetWork : string index 840 read FBudgetWork write SetBudgetWork;
  13299. Property BudgetWorkMilliseconds : TInt32 index 848 read FBudgetWorkMilliseconds write SetBudgetWorkMilliseconds;
  13300. Property BudgetWorkTimeSpan : TTime index 856 read FBudgetWorkTimeSpan write SetBudgetWorkTimeSpan;
  13301. Property Completion : TDateTime index 864 read FCompletion write SetCompletion;
  13302. Property ConstraintStartEnd : TDateTime index 872 read FConstraintStartEnd write SetConstraintStartEnd;
  13303. Property ConstraintType : TInt32 index 880 read FConstraintType write SetConstraintType;
  13304. Property Contact : string index 888 read FContact write SetContact;
  13305. Property Cost : Double index 896 read FCost write SetCost;
  13306. Property Deadline : TDateTime index 904 read FDeadline write SetDeadline;
  13307. Property Duration : string index 912 read FDuration write SetDuration;
  13308. Property DurationMilliseconds : TInt32 index 920 read FDurationMilliseconds write SetDurationMilliseconds;
  13309. Property DurationTimeSpan : TTime index 928 read FDurationTimeSpan write SetDurationTimeSpan;
  13310. Property Finish : TDateTime index 936 read FFinish write SetFinish;
  13311. Property FixedCost : Double index 944 read FFixedCost write SetFixedCost;
  13312. Property FixedCostAccrual : TInt32 index 952 read FFixedCostAccrual write SetFixedCostAccrual;
  13313. Property IsActive : boolean index 960 read FIsActive write SetIsActive;
  13314. Property IsEffortDriven : boolean index 968 read FIsEffortDriven write SetIsEffortDriven;
  13315. Property IsLockedByManager : boolean index 976 read FIsLockedByManager write SetIsLockedByManager;
  13316. Property IsManual : boolean index 984 read FIsManual write SetIsManual;
  13317. Property IsMarked : boolean index 992 read FIsMarked write SetIsMarked;
  13318. Property IsMilestone : boolean index 1000 read FIsMilestone write SetIsMilestone;
  13319. Property LevelingAdjustsAssignments : boolean index 1008 read FLevelingAdjustsAssignments write SetLevelingAdjustsAssignments;
  13320. Property LevelingCanSplit : boolean index 1016 read FLevelingCanSplit write SetLevelingCanSplit;
  13321. Property LevelingDelay : string index 1024 read FLevelingDelay write SetLevelingDelay;
  13322. Property LevelingDelayMilliseconds : TInt32 index 1032 read FLevelingDelayMilliseconds write SetLevelingDelayMilliseconds;
  13323. Property LevelingDelayTimeSpan : TTime index 1040 read FLevelingDelayTimeSpan write SetLevelingDelayTimeSpan;
  13324. Property Name : string index 1048 read FName write SetName;
  13325. Property OutlineLevel : TInt32 index 1056 read FOutlineLevel write SetOutlineLevel;
  13326. Property ParentId : TGUIDString index 1064 read FParentId write SetParentId;
  13327. Property PercentComplete : TInt32 index 1072 read FPercentComplete write SetPercentComplete;
  13328. Property PercentPhysicalWorkComplete : TInt32 index 1080 read FPercentPhysicalWorkComplete write SetPercentPhysicalWorkComplete;
  13329. Property Priority : TInt32 index 1088 read FPriority write SetPriority;
  13330. Property RemainingDuration : string index 1096 read FRemainingDuration write SetRemainingDuration;
  13331. Property RemainingDurationMilliseconds : TInt32 index 1104 read FRemainingDurationMilliseconds write SetRemainingDurationMilliseconds;
  13332. Property RemainingDurationTimeSpan : TTime index 1112 read FRemainingDurationTimeSpan write SetRemainingDurationTimeSpan;
  13333. Property Start : TDateTime index 1120 read FStart write SetStart;
  13334. Property TaskType : TInt32 index 1128 read FTaskType write SetTaskType;
  13335. Property UsePercentPhysicalWorkComplete : boolean index 1136 read FUsePercentPhysicalWorkComplete write SetUsePercentPhysicalWorkComplete;
  13336. Property Work : string index 1144 read FWork write SetWork;
  13337. Property WorkMilliseconds : TInt32 index 1152 read FWorkMilliseconds write SetWorkMilliseconds;
  13338. Property WorkTimeSpan : TTime index 1160 read FWorkTimeSpan write SetWorkTimeSpan;
  13339. end;
  13340. { --------------------------------------------------------------------
  13341. PS: StatusTask
  13342. --------------------------------------------------------------------}
  13343. TPSStatusTask = Class(TODataEntity)
  13344. private
  13345. FActualWork : string;
  13346. FActualWorkMilliseconds : TInt32;
  13347. FActualWorkTimeSpan : TTime;
  13348. FDeadline : TDateTime;
  13349. FDuration : string;
  13350. FDurationMilliseconds : TInt32;
  13351. FDurationTimeSpan : TTime;
  13352. FFinish : TDateTime;
  13353. FId : TGUIDString;
  13354. FName : string;
  13355. FOvertime : string;
  13356. FOvertimeMilliseconds : TInt32;
  13357. FOvertimeTimeSpan : TTime;
  13358. FPercentComplete : TInt16;
  13359. FPercentWorkComplete : TInt16;
  13360. FPhysicalPercentComplete : TInt16;
  13361. FRegularWork : string;
  13362. FRegularWorkMilliseconds : TInt32;
  13363. FRegularWorkTimeSpan : TTime;
  13364. FRemainingDuration : string;
  13365. FRemainingDurationMilliseconds : TInt32;
  13366. FRemainingDurationTimeSpan : TTime;
  13367. FRemainingOvertime : string;
  13368. FRemainingOvertimeMilliseconds : TInt32;
  13369. FRemainingOvertimeTimeSpan : TTime;
  13370. FRemainingWork : string;
  13371. FRemainingWorkMilliseconds : TInt32;
  13372. FRemainingWorkTimeSpan : TTime;
  13373. FResume : TDateTime;
  13374. FStart : TDateTime;
  13375. FWork : string;
  13376. FWorkMilliseconds : TInt32;
  13377. FWorkTimeSpan : TTime;
  13378. procedure SetActualWork(AIndex: Integer; const AValue: string);
  13379. procedure SetActualWorkMilliseconds(AIndex: Integer;
  13380. const AValue: TInt32);
  13381. procedure SetActualWorkTimeSpan(AIndex: Integer; const AValue: TTime);
  13382. procedure SetDeadline(AIndex: Integer; const AValue: TDateTime);
  13383. procedure SetDuration(AIndex: Integer; const AValue: string);
  13384. procedure SetDurationMilliseconds(AIndex: Integer; const AValue: TInt32);
  13385. procedure SetDurationTimeSpan(AIndex: Integer; const AValue: TTime);
  13386. procedure SetFinish(AIndex: Integer; const AValue: TDateTime);
  13387. procedure SetId(AIndex: Integer; const AValue: TGUIDString);
  13388. procedure SetName(AIndex: Integer; const AValue: string);
  13389. procedure SetOvertime(AIndex: Integer; const AValue: string);
  13390. procedure SetOvertimeMilliseconds(AIndex: Integer; const AValue: TInt32);
  13391. procedure SetOvertimeTimeSpan(AIndex: Integer; const AValue: TTime);
  13392. procedure SetPercentComplete(AIndex: Integer; const AValue: TInt16);
  13393. procedure SetPercentWorkComplete(AIndex: Integer; const AValue: TInt16);
  13394. procedure SetPhysicalPercentComplete(AIndex: Integer;
  13395. const AValue: TInt16);
  13396. procedure SetRegularWork(AIndex: Integer; const AValue: string);
  13397. procedure SetRegularWorkMilliseconds(AIndex: Integer;
  13398. const AValue: TInt32);
  13399. procedure SetRegularWorkTimeSpan(AIndex: Integer; const AValue: TTime);
  13400. procedure SetRemainingDuration(AIndex: Integer; const AValue: string);
  13401. procedure SetRemainingDurationMilliseconds(AIndex: Integer;
  13402. const AValue: TInt32);
  13403. procedure SetRemainingDurationTimeSpan(AIndex: Integer;
  13404. const AValue: TTime);
  13405. procedure SetRemainingOvertime(AIndex: Integer; const AValue: string);
  13406. procedure SetRemainingOvertimeMilliseconds(AIndex: Integer;
  13407. const AValue: TInt32);
  13408. procedure SetRemainingOvertimeTimeSpan(AIndex: Integer;
  13409. const AValue: TTime);
  13410. procedure SetRemainingWork(AIndex: Integer; const AValue: string);
  13411. procedure SetRemainingWorkMilliseconds(AIndex: Integer;
  13412. const AValue: TInt32);
  13413. procedure SetRemainingWorkTimeSpan(AIndex: Integer; const AValue: TTime);
  13414. procedure SetResume(AIndex: Integer; const AValue: TDateTime);
  13415. procedure SetStart(AIndex: Integer; const AValue: TDateTime);
  13416. procedure SetWork(AIndex: Integer; const AValue: string);
  13417. procedure SetWorkMilliseconds(AIndex: Integer; const AValue: TInt32);
  13418. procedure SetWorkTimeSpan(AIndex: Integer; const AValue: TTime);
  13419. public
  13420. class function ObjectRestKind : String; Override;
  13421. function KeyAsURLPart : String; Override;
  13422. published
  13423. Property ActualWork : string index 0 read FActualWork write SetActualWork;
  13424. Property ActualWorkMilliseconds : TInt32 index 8 read FActualWorkMilliseconds write SetActualWorkMilliseconds;
  13425. Property ActualWorkTimeSpan : TTime index 16 read FActualWorkTimeSpan write SetActualWorkTimeSpan;
  13426. Property Deadline : TDateTime index 24 read FDeadline write SetDeadline;
  13427. Property Duration : string index 32 read FDuration write SetDuration;
  13428. Property DurationMilliseconds : TInt32 index 40 read FDurationMilliseconds write SetDurationMilliseconds;
  13429. Property DurationTimeSpan : TTime index 48 read FDurationTimeSpan write SetDurationTimeSpan;
  13430. Property Finish : TDateTime index 56 read FFinish write SetFinish;
  13431. Property Id : TGUIDString index 64 read FId write SetId;
  13432. Property Name : string index 72 read FName write SetName;
  13433. Property Overtime : string index 80 read FOvertime write SetOvertime;
  13434. Property OvertimeMilliseconds : TInt32 index 88 read FOvertimeMilliseconds write SetOvertimeMilliseconds;
  13435. Property OvertimeTimeSpan : TTime index 96 read FOvertimeTimeSpan write SetOvertimeTimeSpan;
  13436. Property PercentComplete : TInt16 index 104 read FPercentComplete write SetPercentComplete;
  13437. Property PercentWorkComplete : TInt16 index 112 read FPercentWorkComplete write SetPercentWorkComplete;
  13438. Property PhysicalPercentComplete : TInt16 index 120 read FPhysicalPercentComplete write SetPhysicalPercentComplete;
  13439. Property RegularWork : string index 128 read FRegularWork write SetRegularWork;
  13440. Property RegularWorkMilliseconds : TInt32 index 136 read FRegularWorkMilliseconds write SetRegularWorkMilliseconds;
  13441. Property RegularWorkTimeSpan : TTime index 144 read FRegularWorkTimeSpan write SetRegularWorkTimeSpan;
  13442. Property RemainingDuration : string index 152 read FRemainingDuration write SetRemainingDuration;
  13443. Property RemainingDurationMilliseconds : TInt32 index 160 read FRemainingDurationMilliseconds write SetRemainingDurationMilliseconds;
  13444. Property RemainingDurationTimeSpan : TTime index 168 read FRemainingDurationTimeSpan write SetRemainingDurationTimeSpan;
  13445. Property RemainingOvertime : string index 176 read FRemainingOvertime write SetRemainingOvertime;
  13446. Property RemainingOvertimeMilliseconds : TInt32 index 184 read FRemainingOvertimeMilliseconds write SetRemainingOvertimeMilliseconds;
  13447. Property RemainingOvertimeTimeSpan : TTime index 192 read FRemainingOvertimeTimeSpan write SetRemainingOvertimeTimeSpan;
  13448. Property RemainingWork : string index 200 read FRemainingWork write SetRemainingWork;
  13449. Property RemainingWorkMilliseconds : TInt32 index 208 read FRemainingWorkMilliseconds write SetRemainingWorkMilliseconds;
  13450. Property RemainingWorkTimeSpan : TTime index 216 read FRemainingWorkTimeSpan write SetRemainingWorkTimeSpan;
  13451. Property Resume : TDateTime index 224 read FResume write SetResume;
  13452. Property Start : TDateTime index 232 read FStart write SetStart;
  13453. Property Work : string index 240 read FWork write SetWork;
  13454. Property WorkMilliseconds : TInt32 index 248 read FWorkMilliseconds write SetWorkMilliseconds;
  13455. Property WorkTimeSpan : TTime index 256 read FWorkTimeSpan write SetWorkTimeSpan;
  13456. end;
  13457. { --------------------------------------------------------------------
  13458. PS: EntityTypes
  13459. --------------------------------------------------------------------}
  13460. TPSEntityTypes = Class(TODataEntity)
  13461. private
  13462. FId4a81de82eeb94d6080ea5bf63e27023a : string;
  13463. procedure SetId4a81de82eeb94d6080ea5bf63e27023a(AIndex: Integer;
  13464. const AValue: string);
  13465. public
  13466. class function ObjectRestKind : String; Override;
  13467. function KeyAsURLPart : String; Override;
  13468. function AssignmentEntity(AService: TODataService) : TPSEntityType;
  13469. function ProjectEntity(AService: TODataService) : TPSEntityType;
  13470. function ResourceEntity(AService: TODataService) : TPSEntityType;
  13471. function TaskEntity(AService: TODataService) : TPSEntityType;
  13472. published
  13473. Property Id4a81de82eeb94d6080ea5bf63e27023a : string index 0 read FId4a81de82eeb94d6080ea5bf63e27023a write SetId4a81de82eeb94d6080ea5bf63e27023a;
  13474. end;
  13475. { --------------------------------------------------------------------
  13476. PS: Event
  13477. --------------------------------------------------------------------}
  13478. TPSEvent = Class(TODataEntity)
  13479. private
  13480. FEventName : string;
  13481. FId : TInt32;
  13482. FSourceName : string;
  13483. procedure SetEventName(AIndex: Integer; const AValue: string);
  13484. procedure SetId(AIndex: Integer; const AValue: TInt32);
  13485. procedure SetSourceName(AIndex: Integer; const AValue: string);
  13486. public
  13487. class function ObjectRestKind : String; Override;
  13488. function KeyAsURLPart : String; Override;
  13489. published
  13490. Property EventName : string index 0 read FEventName write SetEventName;
  13491. Property Id : TInt32 index 8 read FId write SetId;
  13492. Property SourceName : string index 16 read FSourceName write SetSourceName;
  13493. end;
  13494. { --------------------------------------------------------------------
  13495. PS: EventHandler
  13496. --------------------------------------------------------------------}
  13497. TPSEventHandler = Class(TODataEntity)
  13498. private
  13499. FAssemblyName : string;
  13500. FCancelOnError : boolean;
  13501. FClassName : string;
  13502. FDescription : string;
  13503. FEndpointUrl : string;
  13504. FEventId : TInt32;
  13505. FId : TGUIDString;
  13506. FName : string;
  13507. FOrder : TInt32;
  13508. procedure SetAssemblyName(AIndex: Integer; const AValue: string);
  13509. procedure SetCancelOnError(AIndex: Integer; const AValue: boolean);
  13510. procedure SetClassName(AIndex: Integer; const AValue: string);
  13511. procedure SetDescription(AIndex: Integer; const AValue: string);
  13512. procedure SetEndpointUrl(AIndex: Integer; const AValue: string);
  13513. procedure SetEventId(AIndex: Integer; const AValue: TInt32);
  13514. procedure SetId(AIndex: Integer; const AValue: TGUIDString);
  13515. procedure SetName(AIndex: Integer; const AValue: string);
  13516. procedure SetOrder(AIndex: Integer; const AValue: TInt32);
  13517. public
  13518. class function ObjectRestKind : String; Override;
  13519. function KeyAsURLPart : String; Override;
  13520. function Event(AService: TODataService) : TPSEvent;
  13521. published
  13522. Property AssemblyName : string index 0 read FAssemblyName write SetAssemblyName;
  13523. Property CancelOnError : boolean index 8 read FCancelOnError write SetCancelOnError;
  13524. Property ClassName : string index 16 read FClassName write SetClassName;
  13525. Property Description : string index 24 read FDescription write SetDescription;
  13526. Property EndpointUrl : string index 32 read FEndpointUrl write SetEndpointUrl;
  13527. Property EventId : TInt32 index 40 read FEventId write SetEventId;
  13528. Property Id : TGUIDString index 48 read FId write SetId;
  13529. Property Name : string index 56 read FName write SetName;
  13530. Property Order : TInt32 index 64 read FOrder write SetOrder;
  13531. end;
  13532. { --------------------------------------------------------------------
  13533. PS: LookupCost
  13534. --------------------------------------------------------------------}
  13535. TPSLookupCost = Class(TPSLookupEntry)
  13536. private
  13537. FValue : double;
  13538. procedure SetValue(AIndex: Integer; const AValue: double);
  13539. public
  13540. class function ObjectRestKind : String; Override;
  13541. published
  13542. Property Value : double index 48 read FValue write SetValue;
  13543. end;
  13544. { --------------------------------------------------------------------
  13545. PS: LookupDate
  13546. --------------------------------------------------------------------}
  13547. TPSLookupDate = Class(TPSLookupEntry)
  13548. private
  13549. FValue : TDateTime;
  13550. procedure SetValue(AIndex: Integer; const AValue: TDateTime);
  13551. public
  13552. class function ObjectRestKind : String; Override;
  13553. published
  13554. Property Value : TDateTime index 48 read FValue write SetValue;
  13555. end;
  13556. { --------------------------------------------------------------------
  13557. PS: LookupDuration
  13558. --------------------------------------------------------------------}
  13559. TPSLookupDuration = Class(TPSLookupEntry)
  13560. private
  13561. FValue : string;
  13562. FValueMilliseconds : TInt32;
  13563. FValueTimeSpan : TTime;
  13564. procedure SetValue(AIndex: Integer; const AValue: string);
  13565. procedure SetValueMilliseconds(AIndex: Integer; const AValue: TInt32);
  13566. procedure SetValueTimeSpan(AIndex: Integer; const AValue: TTime);
  13567. public
  13568. class function ObjectRestKind : String; Override;
  13569. published
  13570. Property Value : string index 48 read FValue write SetValue;
  13571. Property ValueMilliseconds : TInt32 index 56 read FValueMilliseconds write SetValueMilliseconds;
  13572. Property ValueTimeSpan : TTime index 64 read FValueTimeSpan write SetValueTimeSpan;
  13573. end;
  13574. { --------------------------------------------------------------------
  13575. PS: LookupNumber
  13576. --------------------------------------------------------------------}
  13577. TPSLookupNumber = Class(TPSLookupEntry)
  13578. private
  13579. FValue : double;
  13580. procedure SetValue(AIndex: Integer; const AValue: double);
  13581. public
  13582. class function ObjectRestKind : String; Override;
  13583. published
  13584. Property Value : double index 48 read FValue write SetValue;
  13585. end;
  13586. { --------------------------------------------------------------------
  13587. PS: LookupText
  13588. --------------------------------------------------------------------}
  13589. TPSLookupText = Class(TPSLookupEntry)
  13590. private
  13591. FHasChildren : boolean;
  13592. FMask : TPSLookupMask;
  13593. FValue : string;
  13594. procedure SetHasChildren(AIndex: Integer; const AValue: boolean);
  13595. procedure SetMask(AIndex: Integer; const AValue: TPSLookupMask);
  13596. procedure SetValue(AIndex: Integer; const AValue: string);
  13597. public
  13598. class function ObjectRestKind : String; Override;
  13599. function Parent(AService: TODataService) : TPSLookupText;
  13600. published
  13601. Property HasChildren : boolean index 48 read FHasChildren write SetHasChildren;
  13602. Property Mask : TPSLookupMask index 56 read FMask write SetMask;
  13603. Property Value : string index 64 read FValue write SetValue;
  13604. end;
  13605. { --------------------------------------------------------------------
  13606. PS: PlanAssignment
  13607. --------------------------------------------------------------------}
  13608. TPSPlanAssignment = Class(TODataEntity)
  13609. private
  13610. FBookingType : TInt32;
  13611. FCanLevel : boolean;
  13612. FCode : string;
  13613. FCostCenter : string;
  13614. FEmail : string;
  13615. FGroup : string;
  13616. FHireDate : TDateTime;
  13617. FId : TGUIDString;
  13618. FIsTeam : boolean;
  13619. FName : string;
  13620. FPhonetics : string;
  13621. FResourceType : TInt32;
  13622. FTerminationDate : TDateTime;
  13623. procedure SetBookingType(AIndex: Integer; const AValue: TInt32);
  13624. procedure SetCanLevel(AIndex: Integer; const AValue: boolean);
  13625. procedure SetCode(AIndex: Integer; const AValue: string);
  13626. procedure SetCostCenter(AIndex: Integer; const AValue: string);
  13627. procedure SetEmail(AIndex: Integer; const AValue: string);
  13628. procedure SetGroup(AIndex: Integer; const AValue: string);
  13629. procedure SetHireDate(AIndex: Integer; const AValue: TDateTime);
  13630. procedure SetId(AIndex: Integer; const AValue: TGUIDString);
  13631. procedure SetIsTeam(AIndex: Integer; const AValue: boolean);
  13632. procedure SetName(AIndex: Integer; const AValue: string);
  13633. procedure SetPhonetics(AIndex: Integer; const AValue: string);
  13634. procedure SetResourceType(AIndex: Integer; const AValue: TInt32);
  13635. procedure SetTerminationDate(AIndex: Integer; const AValue: TDateTime);
  13636. public
  13637. class function ObjectRestKind : String; Override;
  13638. function KeyAsURLPart : String; Override;
  13639. function CustomFields(AService: TODataService) : TPSCustomField;
  13640. function Intervals(AService: TODataService) : TPSPlanAssignmentInterval;
  13641. function Resource(AService: TODataService) : TPSEnterpriseResource;
  13642. published
  13643. Property BookingType : TInt32 index 0 read FBookingType write SetBookingType;
  13644. Property CanLevel : boolean index 8 read FCanLevel write SetCanLevel;
  13645. Property Code : string index 16 read FCode write SetCode;
  13646. Property CostCenter : string index 24 read FCostCenter write SetCostCenter;
  13647. Property Email : string index 32 read FEmail write SetEmail;
  13648. Property Group : string index 40 read FGroup write SetGroup;
  13649. Property HireDate : TDateTime index 48 read FHireDate write SetHireDate;
  13650. Property Id : TGUIDString index 56 read FId write SetId;
  13651. Property IsTeam : boolean index 64 read FIsTeam write SetIsTeam;
  13652. Property Name : string index 72 read FName write SetName;
  13653. Property Phonetics : string index 80 read FPhonetics write SetPhonetics;
  13654. Property ResourceType : TInt32 index 88 read FResourceType write SetResourceType;
  13655. Property TerminationDate : TDateTime index 96 read FTerminationDate write SetTerminationDate;
  13656. end;
  13657. { --------------------------------------------------------------------
  13658. PS: PlanAssignmentInterval
  13659. --------------------------------------------------------------------}
  13660. TPSPlanAssignmentInterval = Class(TODataEntity)
  13661. private
  13662. FDuration : string;
  13663. FDurationMilliseconds : TInt32;
  13664. FDurationTimeSpan : TTime;
  13665. F_End : TDateTime;
  13666. FName : string;
  13667. FStart : TDateTime;
  13668. procedure SetDuration(AIndex: Integer; const AValue: string);
  13669. procedure SetDurationMilliseconds(AIndex: Integer; const AValue: TInt32);
  13670. procedure SetDurationTimeSpan(AIndex: Integer; const AValue: TTime);
  13671. procedure Set_End(AIndex: Integer; const AValue: TDateTime);
  13672. procedure SetName(AIndex: Integer; const AValue: string);
  13673. procedure SetStart(AIndex: Integer; const AValue: TDateTime);
  13674. public
  13675. class function ObjectRestKind : String; Override;
  13676. class function ExportPropertyName(const AName: String) : String
  13677. ; Override;
  13678. function KeyAsURLPart : String; Override;
  13679. published
  13680. Property Duration : string index 0 read FDuration write SetDuration;
  13681. Property DurationMilliseconds : TInt32 index 8 read FDurationMilliseconds write SetDurationMilliseconds;
  13682. Property DurationTimeSpan : TTime index 16 read FDurationTimeSpan write SetDurationTimeSpan;
  13683. Property _End : TDateTime index 24 read F_End write Set_End;
  13684. Property Name : string index 32 read FName write SetName;
  13685. Property Start : TDateTime index 40 read FStart write SetStart;
  13686. end;
  13687. { --------------------------------------------------------------------
  13688. PS: ProjectServerData
  13689. --------------------------------------------------------------------}
  13690. TPSProjectServerData = Class(TODataEntity)
  13691. private
  13692. FId4a81de82eeb94d6080ea5bf63e27023a : string;
  13693. procedure SetId4a81de82eeb94d6080ea5bf63e27023a(AIndex: Integer;
  13694. const AValue: string);
  13695. public
  13696. class function ObjectRestKind : String; Override;
  13697. function KeyAsURLPart : String; Override;
  13698. published
  13699. Property Id4a81de82eeb94d6080ea5bf63e27023a : string index 0 read FId4a81de82eeb94d6080ea5bf63e27023a write SetId4a81de82eeb94d6080ea5bf63e27023a;
  13700. end;
  13701. { --------------------------------------------------------------------
  13702. PS: ProjectServer
  13703. --------------------------------------------------------------------}
  13704. TPSProjectServer = Class(TODataEntity)
  13705. private
  13706. FIsDelegate : boolean;
  13707. FIsReadOnly : boolean;
  13708. procedure SetIsDelegate(AIndex: Integer; const AValue: boolean);
  13709. procedure SetIsReadOnly(AIndex: Integer; const AValue: boolean);
  13710. public
  13711. class function ObjectRestKind : String; Override;
  13712. function KeyAsURLPart : String; Override;
  13713. function Calendars(AService: TODataService) : TPSCalendar;
  13714. function CustomFields(AService: TODataService) : TPSCustomField;
  13715. function EnterpriseProjectTypes(AService: TODataService)
  13716. : TPSEnterpriseProjectType;
  13717. function EnterpriseResources(AService: TODataService)
  13718. : TPSEnterpriseResource;
  13719. function EntityTypes(AService: TODataService) : TPSEntityTypes;
  13720. function EventHandlers(AService: TODataService) : TPSEventHandler;
  13721. function Events(AService: TODataService) : TPSEvent;
  13722. function LookupTables(AService: TODataService) : TPSLookupTable;
  13723. function Phases(AService: TODataService) : TPSPhase;
  13724. function ProjectDetailPages(AService: TODataService)
  13725. : TPSProjectDetailPage;
  13726. function Projects(AService: TODataService) : TPSPublishedProject;
  13727. function Stages(AService: TODataService) : TPSStage;
  13728. function TimeSheetPeriods(AService: TODataService) : TPSTimeSheetPeriod;
  13729. function WorkflowActivities(AService: TODataService)
  13730. : TPSWorkflowActivities;
  13731. function WorkflowDesigner(AService: TODataService) : TPSWorkflowDesigner;
  13732. published
  13733. Property IsDelegate : boolean index 0 read FIsDelegate write SetIsDelegate;
  13734. Property IsReadOnly : boolean index 8 read FIsReadOnly write SetIsReadOnly;
  13735. end;
  13736. { --------------------------------------------------------------------
  13737. PS: TimeSheetPeriod
  13738. --------------------------------------------------------------------}
  13739. TPSTimeSheetPeriod = Class(TODataEntity)
  13740. private
  13741. F_End : TDateTime;
  13742. FId : TGUIDString;
  13743. FName : string;
  13744. FStart : TDateTime;
  13745. procedure Set_End(AIndex: Integer; const AValue: TDateTime);
  13746. procedure SetId(AIndex: Integer; const AValue: TGUIDString);
  13747. procedure SetName(AIndex: Integer; const AValue: string);
  13748. procedure SetStart(AIndex: Integer; const AValue: TDateTime);
  13749. public
  13750. class function ObjectRestKind : String; Override;
  13751. class function ExportPropertyName(const AName: String) : String
  13752. ; Override;
  13753. function KeyAsURLPart : String; Override;
  13754. function TimeSheet(AService: TODataService) : TPSTimeSheet;
  13755. published
  13756. Property _End : TDateTime index 0 read F_End write Set_End;
  13757. Property Id : TGUIDString index 8 read FId write SetId;
  13758. Property Name : string index 16 read FName write SetName;
  13759. Property Start : TDateTime index 24 read FStart write SetStart;
  13760. end;
  13761. { --------------------------------------------------------------------
  13762. PS: TimeSheet
  13763. --------------------------------------------------------------------}
  13764. TPSTimeSheet = Class(TODataEntity)
  13765. private
  13766. FComments : string;
  13767. FEntryMode : TInt32;
  13768. FId : TGUIDString;
  13769. FIsControlledByOwner : boolean;
  13770. FIsProcessed : boolean;
  13771. FName : string;
  13772. FStatus : TInt32;
  13773. FTotalActualWork : string;
  13774. FTotalActualWorkMilliseconds : TInt32;
  13775. FTotalActualWorkTimeSpan : TTime;
  13776. FTotalNonBillableOvertimeWork : string;
  13777. FTotalNonBillableOvertimeWorkMilliseconds : TInt32;
  13778. FTotalNonBillableOvertimeWorkTimeSpan : TTime;
  13779. FTotalNonBillableWork : string;
  13780. FTotalNonBillableWorkMilliseconds : TInt32;
  13781. FTotalNonBillableWorkTimeSpan : TTime;
  13782. FTotalOvertimeWork : string;
  13783. FTotalOvertimeWorkMilliseconds : TInt32;
  13784. FTotalOvertimeWorkTimeSpan : TTime;
  13785. FTotalWork : string;
  13786. FTotalWorkMilliseconds : TInt32;
  13787. FTotalWorkTimeSpan : TTime;
  13788. FWeekStartsOn : Byte;
  13789. procedure SetComments(AIndex: Integer; const AValue: string);
  13790. procedure SetEntryMode(AIndex: Integer; const AValue: TInt32);
  13791. procedure SetId(AIndex: Integer; const AValue: TGUIDString);
  13792. procedure SetIsControlledByOwner(AIndex: Integer; const AValue: boolean);
  13793. procedure SetIsProcessed(AIndex: Integer; const AValue: boolean);
  13794. procedure SetName(AIndex: Integer; const AValue: string);
  13795. procedure SetStatus(AIndex: Integer; const AValue: TInt32);
  13796. procedure SetTotalActualWork(AIndex: Integer; const AValue: string);
  13797. procedure SetTotalActualWorkMilliseconds(AIndex: Integer;
  13798. const AValue: TInt32);
  13799. procedure SetTotalActualWorkTimeSpan(AIndex: Integer;
  13800. const AValue: TTime);
  13801. procedure SetTotalNonBillableOvertimeWork(AIndex: Integer;
  13802. const AValue: string);
  13803. procedure SetTotalNonBillableOvertimeWorkMilliseconds(AIndex: Integer;
  13804. const AValue: TInt32);
  13805. procedure SetTotalNonBillableOvertimeWorkTimeSpan(AIndex: Integer;
  13806. const AValue: TTime);
  13807. procedure SetTotalNonBillableWork(AIndex: Integer; const AValue: string);
  13808. procedure SetTotalNonBillableWorkMilliseconds(AIndex: Integer;
  13809. const AValue: TInt32);
  13810. procedure SetTotalNonBillableWorkTimeSpan(AIndex: Integer;
  13811. const AValue: TTime);
  13812. procedure SetTotalOvertimeWork(AIndex: Integer; const AValue: string);
  13813. procedure SetTotalOvertimeWorkMilliseconds(AIndex: Integer;
  13814. const AValue: TInt32);
  13815. procedure SetTotalOvertimeWorkTimeSpan(AIndex: Integer;
  13816. const AValue: TTime);
  13817. procedure SetTotalWork(AIndex: Integer; const AValue: string);
  13818. procedure SetTotalWorkMilliseconds(AIndex: Integer;
  13819. const AValue: TInt32);
  13820. procedure SetTotalWorkTimeSpan(AIndex: Integer; const AValue: TTime);
  13821. procedure SetWeekStartsOn(AIndex: Integer; const AValue: Byte);
  13822. public
  13823. class function ObjectRestKind : String; Override;
  13824. function KeyAsURLPart : String; Override;
  13825. function Creator(AService: TODataService) : TSPUser;
  13826. function Lines(AService: TODataService) : TPSTimeSheetLine;
  13827. function Manager(AService: TODataService) : TSPUser;
  13828. function Period(AService: TODataService) : TPSTimeSheetPeriod;
  13829. published
  13830. Property Comments : string index 0 read FComments write SetComments;
  13831. Property EntryMode : TInt32 index 8 read FEntryMode write SetEntryMode;
  13832. Property Id : TGUIDString index 16 read FId write SetId;
  13833. Property IsControlledByOwner : boolean index 24 read FIsControlledByOwner write SetIsControlledByOwner;
  13834. Property IsProcessed : boolean index 32 read FIsProcessed write SetIsProcessed;
  13835. Property Name : string index 40 read FName write SetName;
  13836. Property Status : TInt32 index 48 read FStatus write SetStatus;
  13837. Property TotalActualWork : string index 56 read FTotalActualWork write SetTotalActualWork;
  13838. Property TotalActualWorkMilliseconds : TInt32 index 64 read FTotalActualWorkMilliseconds write SetTotalActualWorkMilliseconds;
  13839. Property TotalActualWorkTimeSpan : TTime index 72 read FTotalActualWorkTimeSpan write SetTotalActualWorkTimeSpan;
  13840. Property TotalNonBillableOvertimeWork : string index 80 read FTotalNonBillableOvertimeWork write SetTotalNonBillableOvertimeWork;
  13841. Property TotalNonBillableOvertimeWorkMilliseconds : TInt32 index 88 read FTotalNonBillableOvertimeWorkMilliseconds write SetTotalNonBillableOvertimeWorkMilliseconds;
  13842. Property TotalNonBillableOvertimeWorkTimeSpan : TTime index 96 read FTotalNonBillableOvertimeWorkTimeSpan write SetTotalNonBillableOvertimeWorkTimeSpan;
  13843. Property TotalNonBillableWork : string index 104 read FTotalNonBillableWork write SetTotalNonBillableWork;
  13844. Property TotalNonBillableWorkMilliseconds : TInt32 index 112 read FTotalNonBillableWorkMilliseconds write SetTotalNonBillableWorkMilliseconds;
  13845. Property TotalNonBillableWorkTimeSpan : TTime index 120 read FTotalNonBillableWorkTimeSpan write SetTotalNonBillableWorkTimeSpan;
  13846. Property TotalOvertimeWork : string index 128 read FTotalOvertimeWork write SetTotalOvertimeWork;
  13847. Property TotalOvertimeWorkMilliseconds : TInt32 index 136 read FTotalOvertimeWorkMilliseconds write SetTotalOvertimeWorkMilliseconds;
  13848. Property TotalOvertimeWorkTimeSpan : TTime index 144 read FTotalOvertimeWorkTimeSpan write SetTotalOvertimeWorkTimeSpan;
  13849. Property TotalWork : string index 152 read FTotalWork write SetTotalWork;
  13850. Property TotalWorkMilliseconds : TInt32 index 160 read FTotalWorkMilliseconds write SetTotalWorkMilliseconds;
  13851. Property TotalWorkTimeSpan : TTime index 168 read FTotalWorkTimeSpan write SetTotalWorkTimeSpan;
  13852. Property WeekStartsOn : Byte index 176 read FWeekStartsOn write SetWeekStartsOn;
  13853. end;
  13854. { --------------------------------------------------------------------
  13855. PS: TimeSheetLine
  13856. --------------------------------------------------------------------}
  13857. TPSTimeSheetLine = Class(TODataEntity)
  13858. private
  13859. FComment : string;
  13860. FId : TGUIDString;
  13861. FLineClass : TInt32;
  13862. FProjectName : string;
  13863. FStatus : TInt32;
  13864. FTaskName : string;
  13865. FTotalWork : string;
  13866. FTotalWorkMilliseconds : TInt32;
  13867. FTotalWorkTimeSpan : TTime;
  13868. FValidationType : TInt32;
  13869. procedure SetComment(AIndex: Integer; const AValue: string);
  13870. procedure SetId(AIndex: Integer; const AValue: TGUIDString);
  13871. procedure SetLineClass(AIndex: Integer; const AValue: TInt32);
  13872. procedure SetProjectName(AIndex: Integer; const AValue: string);
  13873. procedure SetStatus(AIndex: Integer; const AValue: TInt32);
  13874. procedure SetTaskName(AIndex: Integer; const AValue: string);
  13875. procedure SetTotalWork(AIndex: Integer; const AValue: string);
  13876. procedure SetTotalWorkMilliseconds(AIndex: Integer;
  13877. const AValue: TInt32);
  13878. procedure SetTotalWorkTimeSpan(AIndex: Integer; const AValue: TTime);
  13879. procedure SetValidationType(AIndex: Integer; const AValue: TInt32);
  13880. public
  13881. class function ObjectRestKind : String; Override;
  13882. function KeyAsURLPart : String; Override;
  13883. function Assignment(AService: TODataService) : TPSPublishedAssignment;
  13884. function TimeSheet(AService: TODataService) : TPSTimeSheet;
  13885. function Work(AService: TODataService) : TPSTimeSheetWork;
  13886. published
  13887. Property Comment : string index 0 read FComment write SetComment;
  13888. Property Id : TGUIDString index 8 read FId write SetId;
  13889. Property LineClass : TInt32 index 16 read FLineClass write SetLineClass;
  13890. Property ProjectName : string index 24 read FProjectName write SetProjectName;
  13891. Property Status : TInt32 index 32 read FStatus write SetStatus;
  13892. Property TaskName : string index 40 read FTaskName write SetTaskName;
  13893. Property TotalWork : string index 48 read FTotalWork write SetTotalWork;
  13894. Property TotalWorkMilliseconds : TInt32 index 56 read FTotalWorkMilliseconds write SetTotalWorkMilliseconds;
  13895. Property TotalWorkTimeSpan : TTime index 64 read FTotalWorkTimeSpan write SetTotalWorkTimeSpan;
  13896. Property ValidationType : TInt32 index 72 read FValidationType write SetValidationType;
  13897. end;
  13898. { --------------------------------------------------------------------
  13899. PS: TimeSheetWork
  13900. --------------------------------------------------------------------}
  13901. TPSTimeSheetWork = Class(TODataEntity)
  13902. private
  13903. FActualWork : string;
  13904. FActualWorkMilliseconds : TInt32;
  13905. FActualWorkTimeSpan : TTime;
  13906. FComment : string;
  13907. F_End : TDateTime;
  13908. FId : TGUIDString;
  13909. FNonBillableOvertimeWork : string;
  13910. FNonBillableOvertimeWorkMilliseconds : TInt32;
  13911. FNonBillableOvertimeWorkTimeSpan : TTime;
  13912. FNonBillableWork : string;
  13913. FNonBillableWorkMilliseconds : TInt32;
  13914. FNonBillableWorkTimeSpan : TTime;
  13915. FOvertimeWork : string;
  13916. FOvertimeWorkMilliseconds : TInt32;
  13917. FOvertimeWorkTimeSpan : TTime;
  13918. FPlannedWork : string;
  13919. FPlannedWorkMilliseconds : TInt32;
  13920. FPlannedWorkTimeSpan : TTime;
  13921. FStart : TDateTime;
  13922. procedure SetActualWork(AIndex: Integer; const AValue: string);
  13923. procedure SetActualWorkMilliseconds(AIndex: Integer;
  13924. const AValue: TInt32);
  13925. procedure SetActualWorkTimeSpan(AIndex: Integer; const AValue: TTime);
  13926. procedure SetComment(AIndex: Integer; const AValue: string);
  13927. procedure Set_End(AIndex: Integer; const AValue: TDateTime);
  13928. procedure SetId(AIndex: Integer; const AValue: TGUIDString);
  13929. procedure SetNonBillableOvertimeWork(AIndex: Integer;
  13930. const AValue: string);
  13931. procedure SetNonBillableOvertimeWorkMilliseconds(AIndex: Integer;
  13932. const AValue: TInt32);
  13933. procedure SetNonBillableOvertimeWorkTimeSpan(AIndex: Integer;
  13934. const AValue: TTime);
  13935. procedure SetNonBillableWork(AIndex: Integer; const AValue: string);
  13936. procedure SetNonBillableWorkMilliseconds(AIndex: Integer;
  13937. const AValue: TInt32);
  13938. procedure SetNonBillableWorkTimeSpan(AIndex: Integer;
  13939. const AValue: TTime);
  13940. procedure SetOvertimeWork(AIndex: Integer; const AValue: string);
  13941. procedure SetOvertimeWorkMilliseconds(AIndex: Integer;
  13942. const AValue: TInt32);
  13943. procedure SetOvertimeWorkTimeSpan(AIndex: Integer; const AValue: TTime);
  13944. procedure SetPlannedWork(AIndex: Integer; const AValue: string);
  13945. procedure SetPlannedWorkMilliseconds(AIndex: Integer;
  13946. const AValue: TInt32);
  13947. procedure SetPlannedWorkTimeSpan(AIndex: Integer; const AValue: TTime);
  13948. procedure SetStart(AIndex: Integer; const AValue: TDateTime);
  13949. public
  13950. class function ObjectRestKind : String; Override;
  13951. class function ExportPropertyName(const AName: String) : String
  13952. ; Override;
  13953. function KeyAsURLPart : String; Override;
  13954. published
  13955. Property ActualWork : string index 0 read FActualWork write SetActualWork;
  13956. Property ActualWorkMilliseconds : TInt32 index 8 read FActualWorkMilliseconds write SetActualWorkMilliseconds;
  13957. Property ActualWorkTimeSpan : TTime index 16 read FActualWorkTimeSpan write SetActualWorkTimeSpan;
  13958. Property Comment : string index 24 read FComment write SetComment;
  13959. Property _End : TDateTime index 32 read F_End write Set_End;
  13960. Property Id : TGUIDString index 40 read FId write SetId;
  13961. Property NonBillableOvertimeWork : string index 48 read FNonBillableOvertimeWork write SetNonBillableOvertimeWork;
  13962. Property NonBillableOvertimeWorkMilliseconds : TInt32 index 56 read FNonBillableOvertimeWorkMilliseconds write SetNonBillableOvertimeWorkMilliseconds;
  13963. Property NonBillableOvertimeWorkTimeSpan : TTime index 64 read FNonBillableOvertimeWorkTimeSpan write SetNonBillableOvertimeWorkTimeSpan;
  13964. Property NonBillableWork : string index 72 read FNonBillableWork write SetNonBillableWork;
  13965. Property NonBillableWorkMilliseconds : TInt32 index 80 read FNonBillableWorkMilliseconds write SetNonBillableWorkMilliseconds;
  13966. Property NonBillableWorkTimeSpan : TTime index 88 read FNonBillableWorkTimeSpan write SetNonBillableWorkTimeSpan;
  13967. Property OvertimeWork : string index 96 read FOvertimeWork write SetOvertimeWork;
  13968. Property OvertimeWorkMilliseconds : TInt32 index 104 read FOvertimeWorkMilliseconds write SetOvertimeWorkMilliseconds;
  13969. Property OvertimeWorkTimeSpan : TTime index 112 read FOvertimeWorkTimeSpan write SetOvertimeWorkTimeSpan;
  13970. Property PlannedWork : string index 120 read FPlannedWork write SetPlannedWork;
  13971. Property PlannedWorkMilliseconds : TInt32 index 128 read FPlannedWorkMilliseconds write SetPlannedWorkMilliseconds;
  13972. Property PlannedWorkTimeSpan : TTime index 136 read FPlannedWorkTimeSpan write SetPlannedWorkTimeSpan;
  13973. Property Start : TDateTime index 144 read FStart write SetStart;
  13974. end;
  13975. { --------------------------------------------------------------------
  13976. PS: WorkflowActivities
  13977. --------------------------------------------------------------------}
  13978. TPSWorkflowActivities = Class(TODataEntity)
  13979. private
  13980. FId4a81de82eeb94d6080ea5bf63e27023a : string;
  13981. procedure SetId4a81de82eeb94d6080ea5bf63e27023a(AIndex: Integer;
  13982. const AValue: string);
  13983. public
  13984. class function ObjectRestKind : String; Override;
  13985. function KeyAsURLPart : String; Override;
  13986. published
  13987. Property Id4a81de82eeb94d6080ea5bf63e27023a : string index 0 read FId4a81de82eeb94d6080ea5bf63e27023a write SetId4a81de82eeb94d6080ea5bf63e27023a;
  13988. end;
  13989. { --------------------------------------------------------------------
  13990. PS: WorkflowDesigner
  13991. --------------------------------------------------------------------}
  13992. TPSWorkflowDesigner = Class(TODataEntity)
  13993. private
  13994. FId4a81de82eeb94d6080ea5bf63e27023a : string;
  13995. procedure SetId4a81de82eeb94d6080ea5bf63e27023a(AIndex: Integer;
  13996. const AValue: string);
  13997. public
  13998. class function ObjectRestKind : String; Override;
  13999. function KeyAsURLPart : String; Override;
  14000. function Fields(AService: TODataService) : TPSWorkflowDesignerField;
  14001. published
  14002. Property Id4a81de82eeb94d6080ea5bf63e27023a : string index 0 read FId4a81de82eeb94d6080ea5bf63e27023a write SetId4a81de82eeb94d6080ea5bf63e27023a;
  14003. end;
  14004. { --------------------------------------------------------------------
  14005. PS: WorkflowDesignerField
  14006. --------------------------------------------------------------------}
  14007. TPSWorkflowDesignerField = Class(TODataEntity)
  14008. private
  14009. FDisplayName : string;
  14010. FId : string;
  14011. FIsLookupField : boolean;
  14012. FIsReadOnly : boolean;
  14013. FSPFieldType : TInt32;
  14014. procedure SetDisplayName(AIndex: Integer; const AValue: string);
  14015. procedure SetId(AIndex: Integer; const AValue: string);
  14016. procedure SetIsLookupField(AIndex: Integer; const AValue: boolean);
  14017. procedure SetIsReadOnly(AIndex: Integer; const AValue: boolean);
  14018. procedure SetSPFieldType(AIndex: Integer; const AValue: TInt32);
  14019. public
  14020. class function ObjectRestKind : String; Override;
  14021. function KeyAsURLPart : String; Override;
  14022. function LookupEntries(AService: TODataService) : TPSLookupEntry;
  14023. published
  14024. Property DisplayName : string index 0 read FDisplayName write SetDisplayName;
  14025. Property Id : string index 8 read FId write SetId;
  14026. Property IsLookupField : boolean index 16 read FIsLookupField write SetIsLookupField;
  14027. Property IsReadOnly : boolean index 24 read FIsReadOnly write SetIsReadOnly;
  14028. Property SPFieldType : TInt32 index 32 read FSPFieldType write SetSPFieldType;
  14029. end;
  14030. { --------------------------------------------------------------------
  14031. PS: ResourceCalendarException
  14032. --------------------------------------------------------------------}
  14033. TPSResourceCalendarException = Class(TPSCalendarException)
  14034. public
  14035. class function ObjectRestKind : String; Override;
  14036. end;
  14037. { --------------------------------------------------------------------
  14038. PS: ResourcePlan
  14039. --------------------------------------------------------------------}
  14040. TPSResourcePlan = Class(TODataEntity)
  14041. private
  14042. FFinish : TDateTime;
  14043. FId : TGUIDString;
  14044. FStart : TDateTime;
  14045. FUtilizationDate : TDateTime;
  14046. FUtilizationType : TInt32;
  14047. procedure SetFinish(AIndex: Integer; const AValue: TDateTime);
  14048. procedure SetId(AIndex: Integer; const AValue: TGUIDString);
  14049. procedure SetStart(AIndex: Integer; const AValue: TDateTime);
  14050. procedure SetUtilizationDate(AIndex: Integer; const AValue: TDateTime);
  14051. procedure SetUtilizationType(AIndex: Integer; const AValue: TInt32);
  14052. public
  14053. class function ObjectRestKind : String; Override;
  14054. function KeyAsURLPart : String; Override;
  14055. function Assignments(AService: TODataService) : TPSPlanAssignment;
  14056. published
  14057. Property Finish : TDateTime index 0 read FFinish write SetFinish;
  14058. Property Id : TGUIDString index 8 read FId write SetId;
  14059. Property Start : TDateTime index 16 read FStart write SetStart;
  14060. Property UtilizationDate : TDateTime index 24 read FUtilizationDate write SetUtilizationDate;
  14061. Property UtilizationType : TInt32 index 32 read FUtilizationType write SetUtilizationType;
  14062. end;
  14063. { --------------------------------------------------------------------
  14064. PS: ServiceStatus
  14065. --------------------------------------------------------------------}
  14066. TPSServiceStatus = Class(TODataEntity)
  14067. private
  14068. FIsDelegate : boolean;
  14069. FIsReadOnly : boolean;
  14070. procedure SetIsDelegate(AIndex: Integer; const AValue: boolean);
  14071. procedure SetIsReadOnly(AIndex: Integer; const AValue: boolean);
  14072. public
  14073. class function ObjectRestKind : String; Override;
  14074. function KeyAsURLPart : String; Override;
  14075. published
  14076. Property IsDelegate : boolean index 0 read FIsDelegate write SetIsDelegate;
  14077. Property IsReadOnly : boolean index 8 read FIsReadOnly write SetIsReadOnly;
  14078. end;
  14079. { --------------------------------------------------------------------
  14080. PS: TaskServiceOdataEndpoint
  14081. --------------------------------------------------------------------}
  14082. TPSTaskServiceOdataEndpoint = Class(TODataEntity)
  14083. private
  14084. FId4a81de82eeb94d6080ea5bf63e27023a : string;
  14085. procedure SetId4a81de82eeb94d6080ea5bf63e27023a(AIndex: Integer;
  14086. const AValue: string);
  14087. public
  14088. class function ObjectRestKind : String; Override;
  14089. function KeyAsURLPart : String; Override;
  14090. published
  14091. Property Id4a81de82eeb94d6080ea5bf63e27023a : string index 0 read FId4a81de82eeb94d6080ea5bf63e27023a write SetId4a81de82eeb94d6080ea5bf63e27023a;
  14092. end;
  14093. { --------------------------------------------------------------------
  14094. PS: TimePhase
  14095. --------------------------------------------------------------------}
  14096. TPSTimePhase = Class(TODataEntity)
  14097. private
  14098. F_End : TDateTime;
  14099. FStart : TDateTime;
  14100. procedure Set_End(AIndex: Integer; const AValue: TDateTime);
  14101. procedure SetStart(AIndex: Integer; const AValue: TDateTime);
  14102. public
  14103. class function ObjectRestKind : String; Override;
  14104. class function ExportPropertyName(const AName: String) : String
  14105. ; Override;
  14106. function KeyAsURLPart : String; Override;
  14107. function Assignments(AService: TODataService) : TPSStatusAssignment;
  14108. published
  14109. Property _End : TDateTime index 0 read F_End write Set_End;
  14110. Property Start : TDateTime index 8 read FStart write SetStart;
  14111. end;
  14112. { --------------------------------------------------------------------
  14113. SP.Publishing: PersonMagazineData
  14114. --------------------------------------------------------------------}
  14115. TSP_PublishingPersonMagazineData = Class(TODataEntity)
  14116. private
  14117. FAboutMe : string;
  14118. FBackgroundImageUrl : string;
  14119. FBackgroundImageX : TInt32;
  14120. FBackgroundImageY : TInt32;
  14121. FDepartmentName : string;
  14122. FDisplayName : string;
  14123. FEmail : string;
  14124. FHasEditPermission : boolean;
  14125. FOffice : string;
  14126. FPhone : string;
  14127. FPictureUrl : string;
  14128. FTitle : string;
  14129. procedure SetAboutMe(AIndex: Integer; const AValue: string);
  14130. procedure SetBackgroundImageUrl(AIndex: Integer; const AValue: string);
  14131. procedure SetBackgroundImageX(AIndex: Integer; const AValue: TInt32);
  14132. procedure SetBackgroundImageY(AIndex: Integer; const AValue: TInt32);
  14133. procedure SetDepartmentName(AIndex: Integer; const AValue: string);
  14134. procedure SetDisplayName(AIndex: Integer; const AValue: string);
  14135. procedure SetEmail(AIndex: Integer; const AValue: string);
  14136. procedure SetHasEditPermission(AIndex: Integer; const AValue: boolean);
  14137. procedure SetOffice(AIndex: Integer; const AValue: string);
  14138. procedure SetPhone(AIndex: Integer; const AValue: string);
  14139. procedure SetPictureUrl(AIndex: Integer; const AValue: string);
  14140. procedure SetTitle(AIndex: Integer; const AValue: string);
  14141. public
  14142. class function ObjectRestKind : String; Override;
  14143. published
  14144. Property AboutMe : string index 0 read FAboutMe write SetAboutMe;
  14145. Property BackgroundImageUrl : string index 8 read FBackgroundImageUrl write SetBackgroundImageUrl;
  14146. Property BackgroundImageX : TInt32 index 16 read FBackgroundImageX write SetBackgroundImageX;
  14147. Property BackgroundImageY : TInt32 index 24 read FBackgroundImageY write SetBackgroundImageY;
  14148. Property DepartmentName : string index 32 read FDepartmentName write SetDepartmentName;
  14149. Property DisplayName : string index 40 read FDisplayName write SetDisplayName;
  14150. Property Email : string index 48 read FEmail write SetEmail;
  14151. Property HasEditPermission : boolean index 56 read FHasEditPermission write SetHasEditPermission;
  14152. Property Office : string index 64 read FOffice write SetOffice;
  14153. Property Phone : string index 72 read FPhone write SetPhone;
  14154. Property PictureUrl : string index 80 read FPictureUrl write SetPictureUrl;
  14155. Property Title : string index 88 read FTitle write SetTitle;
  14156. end;
  14157. { --------------------------------------------------------------------
  14158. SP.Publishing: PersonMagazinePeopleBasicInfo
  14159. --------------------------------------------------------------------}
  14160. TSP_PublishingPersonMagazinePeopleBasicInfo = Class(TODataEntity)
  14161. private
  14162. FAccountName : string;
  14163. FDisplayName : string;
  14164. FPictureUrl : string;
  14165. FTitle : string;
  14166. procedure SetAccountName(AIndex: Integer; const AValue: string);
  14167. procedure SetDisplayName(AIndex: Integer; const AValue: string);
  14168. procedure SetPictureUrl(AIndex: Integer; const AValue: string);
  14169. procedure SetTitle(AIndex: Integer; const AValue: string);
  14170. public
  14171. class function ObjectRestKind : String; Override;
  14172. published
  14173. Property AccountName : string index 0 read FAccountName write SetAccountName;
  14174. Property DisplayName : string index 8 read FDisplayName write SetDisplayName;
  14175. Property PictureUrl : string index 16 read FPictureUrl write SetPictureUrl;
  14176. Property Title : string index 24 read FTitle write SetTitle;
  14177. end;
  14178. { --------------------------------------------------------------------
  14179. SP.Publishing: PersonMagazinePeopleModel
  14180. --------------------------------------------------------------------}
  14181. TSP_PublishingPersonMagazinePeopleModel = Class(TODataEntity)
  14182. private
  14183. FAboutMe : string;
  14184. FBackgroundImageUrl : string;
  14185. FBasicInfo : TSP_PublishingPersonMagazinePeopleBasicInfo;
  14186. FBirthday : string;
  14187. FCustomProperties : TSPKeyValueArray;
  14188. FDepartmentName : string;
  14189. FDirectReports : TSP_PublishingPersonMagazinePeopleBasicInfoArray;
  14190. FEmail : string;
  14191. FHasEditPermission : boolean;
  14192. FInterest : string;
  14193. FLync : string;
  14194. FManagerChain : TSP_PublishingPersonMagazinePeopleBasicInfoArray;
  14195. FOffice : string;
  14196. FOneDriveUrl : string;
  14197. FPastProjects : string;
  14198. FPhone : string;
  14199. FSchools : string;
  14200. FSkills : string;
  14201. procedure SetAboutMe(AIndex: Integer; const AValue: string);
  14202. procedure SetBackgroundImageUrl(AIndex: Integer; const AValue: string);
  14203. procedure SetBasicInfo(AIndex: Integer;
  14204. const AValue: TSP_PublishingPersonMagazinePeopleBasicInfo);
  14205. procedure SetBirthday(AIndex: Integer; const AValue: string);
  14206. procedure SetCustomProperties(AIndex: Integer;
  14207. const AValue: TSPKeyValueArray);
  14208. procedure SetDepartmentName(AIndex: Integer; const AValue: string);
  14209. procedure SetDirectReports(AIndex: Integer;
  14210. const AValue: TSP_PublishingPersonMagazinePeopleBasicInfoArray);
  14211. procedure SetEmail(AIndex: Integer; const AValue: string);
  14212. procedure SetHasEditPermission(AIndex: Integer; const AValue: boolean);
  14213. procedure SetInterest(AIndex: Integer; const AValue: string);
  14214. procedure SetLync(AIndex: Integer; const AValue: string);
  14215. procedure SetManagerChain(AIndex: Integer;
  14216. const AValue: TSP_PublishingPersonMagazinePeopleBasicInfoArray);
  14217. procedure SetOffice(AIndex: Integer; const AValue: string);
  14218. procedure SetOneDriveUrl(AIndex: Integer; const AValue: string);
  14219. procedure SetPastProjects(AIndex: Integer; const AValue: string);
  14220. procedure SetPhone(AIndex: Integer; const AValue: string);
  14221. procedure SetSchools(AIndex: Integer; const AValue: string);
  14222. procedure SetSkills(AIndex: Integer; const AValue: string);
  14223. protected
  14224. {$IFDEF VER2_6}
  14225. procedure SetArrayLength(const AName: String; ALength: Longint)
  14226. ; Override;
  14227. {$ENDIF VER2_6}
  14228. public
  14229. class function ObjectRestKind : String; Override;
  14230. published
  14231. Property AboutMe : string index 0 read FAboutMe write SetAboutMe;
  14232. Property BackgroundImageUrl : string index 8 read FBackgroundImageUrl write SetBackgroundImageUrl;
  14233. Property BasicInfo : TSP_PublishingPersonMagazinePeopleBasicInfo index 16 read FBasicInfo write SetBasicInfo;
  14234. Property Birthday : string index 24 read FBirthday write SetBirthday;
  14235. Property CustomProperties : TSPKeyValueArray index 32 read FCustomProperties write SetCustomProperties;
  14236. Property DepartmentName : string index 40 read FDepartmentName write SetDepartmentName;
  14237. Property DirectReports : TSP_PublishingPersonMagazinePeopleBasicInfoArray index 48 read FDirectReports write SetDirectReports;
  14238. Property Email : string index 56 read FEmail write SetEmail;
  14239. Property HasEditPermission : boolean index 64 read FHasEditPermission write SetHasEditPermission;
  14240. Property Interest : string index 72 read FInterest write SetInterest;
  14241. Property Lync : string index 80 read FLync write SetLync;
  14242. Property ManagerChain : TSP_PublishingPersonMagazinePeopleBasicInfoArray index 88 read FManagerChain write SetManagerChain;
  14243. Property Office : string index 96 read FOffice write SetOffice;
  14244. Property OneDriveUrl : string index 104 read FOneDriveUrl write SetOneDriveUrl;
  14245. Property PastProjects : string index 112 read FPastProjects write SetPastProjects;
  14246. Property Phone : string index 120 read FPhone write SetPhone;
  14247. Property Schools : string index 128 read FSchools write SetSchools;
  14248. Property Skills : string index 136 read FSkills write SetSkills;
  14249. end;
  14250. { --------------------------------------------------------------------
  14251. SP.Publishing: PersonMagazineUserProfileDirectsData
  14252. --------------------------------------------------------------------}
  14253. TSP_PublishingPersonMagazineUserProfileDirectsData = Class(TODataEntity)
  14254. private
  14255. FDirectReports : TSP_PublishingPersonMagazineUserProfileArray;
  14256. procedure SetDirectReports(AIndex: Integer;
  14257. const AValue: TSP_PublishingPersonMagazineUserProfileArray);
  14258. protected
  14259. {$IFDEF VER2_6}
  14260. procedure SetArrayLength(const AName: String; ALength: Longint)
  14261. ; Override;
  14262. {$ENDIF VER2_6}
  14263. public
  14264. class function ObjectRestKind : String; Override;
  14265. published
  14266. Property DirectReports : TSP_PublishingPersonMagazineUserProfileArray index 0 read FDirectReports write SetDirectReports;
  14267. end;
  14268. { --------------------------------------------------------------------
  14269. SP.Publishing: PersonMagazineUserProfile
  14270. --------------------------------------------------------------------}
  14271. TSP_PublishingPersonMagazineUserProfile = Class(TODataEntity)
  14272. private
  14273. FAboutMe : string;
  14274. FAccountName : string;
  14275. FBirthday : string;
  14276. FCustomProperties : TSPKeyValueArray;
  14277. FDepartmentName : string;
  14278. FDisplayName : string;
  14279. FEmail : string;
  14280. FHasEditPermission : boolean;
  14281. FInterest : string;
  14282. FLync : string;
  14283. FOffice : string;
  14284. FOneDriveUrl : string;
  14285. FPastProjects : string;
  14286. FPhone : string;
  14287. FPictureUrl : string;
  14288. FSchools : string;
  14289. FSkills : string;
  14290. FTitle : string;
  14291. FUserName : string;
  14292. procedure SetAboutMe(AIndex: Integer; const AValue: string);
  14293. procedure SetAccountName(AIndex: Integer; const AValue: string);
  14294. procedure SetBirthday(AIndex: Integer; const AValue: string);
  14295. procedure SetCustomProperties(AIndex: Integer;
  14296. const AValue: TSPKeyValueArray);
  14297. procedure SetDepartmentName(AIndex: Integer; const AValue: string);
  14298. procedure SetDisplayName(AIndex: Integer; const AValue: string);
  14299. procedure SetEmail(AIndex: Integer; const AValue: string);
  14300. procedure SetHasEditPermission(AIndex: Integer; const AValue: boolean);
  14301. procedure SetInterest(AIndex: Integer; const AValue: string);
  14302. procedure SetLync(AIndex: Integer; const AValue: string);
  14303. procedure SetOffice(AIndex: Integer; const AValue: string);
  14304. procedure SetOneDriveUrl(AIndex: Integer; const AValue: string);
  14305. procedure SetPastProjects(AIndex: Integer; const AValue: string);
  14306. procedure SetPhone(AIndex: Integer; const AValue: string);
  14307. procedure SetPictureUrl(AIndex: Integer; const AValue: string);
  14308. procedure SetSchools(AIndex: Integer; const AValue: string);
  14309. procedure SetSkills(AIndex: Integer; const AValue: string);
  14310. procedure SetTitle(AIndex: Integer; const AValue: string);
  14311. procedure SetUserName(AIndex: Integer; const AValue: string);
  14312. protected
  14313. {$IFDEF VER2_6}
  14314. procedure SetArrayLength(const AName: String; ALength: Longint)
  14315. ; Override;
  14316. {$ENDIF VER2_6}
  14317. public
  14318. class function ObjectRestKind : String; Override;
  14319. published
  14320. Property AboutMe : string index 0 read FAboutMe write SetAboutMe;
  14321. Property AccountName : string index 8 read FAccountName write SetAccountName;
  14322. Property Birthday : string index 16 read FBirthday write SetBirthday;
  14323. Property CustomProperties : TSPKeyValueArray index 24 read FCustomProperties write SetCustomProperties;
  14324. Property DepartmentName : string index 32 read FDepartmentName write SetDepartmentName;
  14325. Property DisplayName : string index 40 read FDisplayName write SetDisplayName;
  14326. Property Email : string index 48 read FEmail write SetEmail;
  14327. Property HasEditPermission : boolean index 56 read FHasEditPermission write SetHasEditPermission;
  14328. Property Interest : string index 64 read FInterest write SetInterest;
  14329. Property Lync : string index 72 read FLync write SetLync;
  14330. Property Office : string index 80 read FOffice write SetOffice;
  14331. Property OneDriveUrl : string index 88 read FOneDriveUrl write SetOneDriveUrl;
  14332. Property PastProjects : string index 96 read FPastProjects write SetPastProjects;
  14333. Property Phone : string index 104 read FPhone write SetPhone;
  14334. Property PictureUrl : string index 112 read FPictureUrl write SetPictureUrl;
  14335. Property Schools : string index 120 read FSchools write SetSchools;
  14336. Property Skills : string index 128 read FSkills write SetSkills;
  14337. Property Title : string index 136 read FTitle write SetTitle;
  14338. Property UserName : string index 144 read FUserName write SetUserName;
  14339. end;
  14340. { --------------------------------------------------------------------
  14341. SP.Publishing: PersonMagazineUserProfileData
  14342. --------------------------------------------------------------------}
  14343. TSP_PublishingPersonMagazineUserProfileData = Class(TODataEntity)
  14344. private
  14345. FManagerChain : TSP_PublishingPersonMagazineUserProfileArray;
  14346. FPrimary : TSP_PublishingPersonMagazineUserProfile;
  14347. procedure SetManagerChain(AIndex: Integer;
  14348. const AValue: TSP_PublishingPersonMagazineUserProfileArray);
  14349. procedure SetPrimary(AIndex: Integer;
  14350. const AValue: TSP_PublishingPersonMagazineUserProfile);
  14351. protected
  14352. {$IFDEF VER2_6}
  14353. procedure SetArrayLength(const AName: String; ALength: Longint)
  14354. ; Override;
  14355. {$ENDIF VER2_6}
  14356. public
  14357. class function ObjectRestKind : String; Override;
  14358. published
  14359. Property ManagerChain : TSP_PublishingPersonMagazineUserProfileArray index 0 read FManagerChain write SetManagerChain;
  14360. Property Primary : TSP_PublishingPersonMagazineUserProfile index 8 read FPrimary write SetPrimary;
  14361. end;
  14362. { --------------------------------------------------------------------
  14363. SP.Publishing: PublishSiteInformation
  14364. --------------------------------------------------------------------}
  14365. TSP_PublishingPublishSiteInformation = Class(TODataEntity)
  14366. private
  14367. FSiteType : TInt32;
  14368. FSiteUrl : string;
  14369. FTitle : string;
  14370. procedure SetSiteType(AIndex: Integer; const AValue: TInt32);
  14371. procedure SetSiteUrl(AIndex: Integer; const AValue: string);
  14372. procedure SetTitle(AIndex: Integer; const AValue: string);
  14373. public
  14374. class function ObjectRestKind : String; Override;
  14375. published
  14376. Property SiteType : TInt32 index 0 read FSiteType write SetSiteType;
  14377. Property SiteUrl : string index 8 read FSiteUrl write SetSiteUrl;
  14378. Property Title : string index 16 read FTitle write SetTitle;
  14379. end;
  14380. { --------------------------------------------------------------------
  14381. SP.Publishing: VideoItem
  14382. --------------------------------------------------------------------}
  14383. TSP_PublishingVideoItem = Class(TODataEntity)
  14384. private
  14385. FChannelID : TGUIDString;
  14386. FCreatedDate : TDateTime;
  14387. FDescription : string;
  14388. FDisplayFormUrl : string;
  14389. FFileName : string;
  14390. FOwnerName : string;
  14391. FPlayerPageUrl : string;
  14392. FServerRelativeUrl : string;
  14393. FThumbnailUrl : string;
  14394. FTitle : string;
  14395. FID : TGUIDString;
  14396. FUrl : string;
  14397. FVideoDurationInSeconds : TInt32;
  14398. FVideoProcessingStatus : TInt32;
  14399. FViewCount : TInt32;
  14400. FYammerObjectUrl : string;
  14401. procedure SetChannelID(AIndex: Integer; const AValue: TGUIDString);
  14402. procedure SetCreatedDate(AIndex: Integer; const AValue: TDateTime);
  14403. procedure SetDescription(AIndex: Integer; const AValue: string);
  14404. procedure SetDisplayFormUrl(AIndex: Integer; const AValue: string);
  14405. procedure SetFileName(AIndex: Integer; const AValue: string);
  14406. procedure SetOwnerName(AIndex: Integer; const AValue: string);
  14407. procedure SetPlayerPageUrl(AIndex: Integer; const AValue: string);
  14408. procedure SetServerRelativeUrl(AIndex: Integer; const AValue: string);
  14409. procedure SetThumbnailUrl(AIndex: Integer; const AValue: string);
  14410. procedure SetTitle(AIndex: Integer; const AValue: string);
  14411. procedure SetID(AIndex: Integer; const AValue: TGUIDString);
  14412. procedure SetUrl(AIndex: Integer; const AValue: string);
  14413. procedure SetVideoDurationInSeconds(AIndex: Integer;
  14414. const AValue: TInt32);
  14415. procedure SetVideoProcessingStatus(AIndex: Integer;
  14416. const AValue: TInt32);
  14417. procedure SetViewCount(AIndex: Integer; const AValue: TInt32);
  14418. procedure SetYammerObjectUrl(AIndex: Integer; const AValue: string);
  14419. public
  14420. class function ObjectRestKind : String; Override;
  14421. function KeyAsURLPart : String; Override;
  14422. function Author(AService: TODataService) : TSPUser;
  14423. function Owner(AService: TODataService) : TSPUser;
  14424. function PeopleInMedia(AService: TODataService) : TSPUser;
  14425. published
  14426. Property ChannelID : TGUIDString index 0 read FChannelID write SetChannelID;
  14427. Property CreatedDate : TDateTime index 8 read FCreatedDate write SetCreatedDate;
  14428. Property Description : string index 16 read FDescription write SetDescription;
  14429. Property DisplayFormUrl : string index 24 read FDisplayFormUrl write SetDisplayFormUrl;
  14430. Property FileName : string index 32 read FFileName write SetFileName;
  14431. Property OwnerName : string index 40 read FOwnerName write SetOwnerName;
  14432. Property PlayerPageUrl : string index 48 read FPlayerPageUrl write SetPlayerPageUrl;
  14433. Property ServerRelativeUrl : string index 56 read FServerRelativeUrl write SetServerRelativeUrl;
  14434. Property ThumbnailUrl : string index 64 read FThumbnailUrl write SetThumbnailUrl;
  14435. Property Title : string index 72 read FTitle write SetTitle;
  14436. Property ID : TGUIDString index 80 read FID write SetID;
  14437. Property Url : string index 88 read FUrl write SetUrl;
  14438. Property VideoDurationInSeconds : TInt32 index 96 read FVideoDurationInSeconds write SetVideoDurationInSeconds;
  14439. Property VideoProcessingStatus : TInt32 index 104 read FVideoProcessingStatus write SetVideoProcessingStatus;
  14440. Property ViewCount : TInt32 index 112 read FViewCount write SetViewCount;
  14441. Property YammerObjectUrl : string index 120 read FYammerObjectUrl write SetYammerObjectUrl;
  14442. end;
  14443. { --------------------------------------------------------------------
  14444. SP.Publishing: PersonMagazine
  14445. --------------------------------------------------------------------}
  14446. TSP_PublishingPersonMagazine = Class(TODataEntity)
  14447. private
  14448. FId4a81de82eeb94d6080ea5bf63e27023a : string;
  14449. procedure SetId4a81de82eeb94d6080ea5bf63e27023a(AIndex: Integer;
  14450. const AValue: string);
  14451. public
  14452. class function ObjectRestKind : String; Override;
  14453. function KeyAsURLPart : String; Override;
  14454. published
  14455. Property Id4a81de82eeb94d6080ea5bf63e27023a : string index 0 read FId4a81de82eeb94d6080ea5bf63e27023a write SetId4a81de82eeb94d6080ea5bf63e27023a;
  14456. end;
  14457. { --------------------------------------------------------------------
  14458. SP.Publishing: PointPublishingDocProps
  14459. --------------------------------------------------------------------}
  14460. TSP_PublishingPointPublishingDocProps = Class(TODataEntity)
  14461. private
  14462. FAuthor : string;
  14463. FContentTypeId : string;
  14464. FDocLibraryUrl : string;
  14465. FFileType : string;
  14466. FModified : TDateTime;
  14467. FServerRedirectedEmbedUrl : string;
  14468. FServerRedirectedPreviewUrl : string;
  14469. FSiteId : TGUIDString;
  14470. FSiteTitle : string;
  14471. FTitle : string;
  14472. FUniqueId : TGUIDString;
  14473. FUrl : string;
  14474. FWebId : TGUIDString;
  14475. procedure SetAuthor(AIndex: Integer; const AValue: string);
  14476. procedure SetContentTypeId(AIndex: Integer; const AValue: string);
  14477. procedure SetDocLibraryUrl(AIndex: Integer; const AValue: string);
  14478. procedure SetFileType(AIndex: Integer; const AValue: string);
  14479. procedure SetModified(AIndex: Integer; const AValue: TDateTime);
  14480. procedure SetServerRedirectedEmbedUrl(AIndex: Integer;
  14481. const AValue: string);
  14482. procedure SetServerRedirectedPreviewUrl(AIndex: Integer;
  14483. const AValue: string);
  14484. procedure SetSiteId(AIndex: Integer; const AValue: TGUIDString);
  14485. procedure SetSiteTitle(AIndex: Integer; const AValue: string);
  14486. procedure SetTitle(AIndex: Integer; const AValue: string);
  14487. procedure SetUniqueId(AIndex: Integer; const AValue: TGUIDString);
  14488. procedure SetUrl(AIndex: Integer; const AValue: string);
  14489. procedure SetWebId(AIndex: Integer; const AValue: TGUIDString);
  14490. public
  14491. class function ObjectRestKind : String; Override;
  14492. function KeyAsURLPart : String; Override;
  14493. published
  14494. Property Author : string index 0 read FAuthor write SetAuthor;
  14495. Property ContentTypeId : string index 8 read FContentTypeId write SetContentTypeId;
  14496. Property DocLibraryUrl : string index 16 read FDocLibraryUrl write SetDocLibraryUrl;
  14497. Property FileType : string index 24 read FFileType write SetFileType;
  14498. Property Modified : TDateTime index 32 read FModified write SetModified;
  14499. Property ServerRedirectedEmbedUrl : string index 40 read FServerRedirectedEmbedUrl write SetServerRedirectedEmbedUrl;
  14500. Property ServerRedirectedPreviewUrl : string index 48 read FServerRedirectedPreviewUrl write SetServerRedirectedPreviewUrl;
  14501. Property SiteId : TGUIDString index 56 read FSiteId write SetSiteId;
  14502. Property SiteTitle : string index 64 read FSiteTitle write SetSiteTitle;
  14503. Property Title : string index 72 read FTitle write SetTitle;
  14504. Property UniqueId : TGUIDString index 80 read FUniqueId write SetUniqueId;
  14505. Property Url : string index 88 read FUrl write SetUrl;
  14506. Property WebId : TGUIDString index 96 read FWebId write SetWebId;
  14507. end;
  14508. { --------------------------------------------------------------------
  14509. SP.Publishing: PointPublishingMagazineProps
  14510. --------------------------------------------------------------------}
  14511. TSP_PublishingPointPublishingMagazineProps = Class(TODataEntity)
  14512. private
  14513. FBannerColor : string;
  14514. FBannerImageUrl : string;
  14515. FBannerPattern : string;
  14516. FDescription : string;
  14517. FIsUserContributor : boolean;
  14518. FIsUserOwner : boolean;
  14519. FMagazineType : TInt32;
  14520. FPublishedDate : TDateTime;
  14521. FTitle : string;
  14522. procedure SetBannerColor(AIndex: Integer; const AValue: string);
  14523. procedure SetBannerImageUrl(AIndex: Integer; const AValue: string);
  14524. procedure SetBannerPattern(AIndex: Integer; const AValue: string);
  14525. procedure SetDescription(AIndex: Integer; const AValue: string);
  14526. procedure SetIsUserContributor(AIndex: Integer; const AValue: boolean);
  14527. procedure SetIsUserOwner(AIndex: Integer; const AValue: boolean);
  14528. procedure SetMagazineType(AIndex: Integer; const AValue: TInt32);
  14529. procedure SetPublishedDate(AIndex: Integer; const AValue: TDateTime);
  14530. procedure SetTitle(AIndex: Integer; const AValue: string);
  14531. public
  14532. class function ObjectRestKind : String; Override;
  14533. function KeyAsURLPart : String; Override;
  14534. published
  14535. Property BannerColor : string index 0 read FBannerColor write SetBannerColor;
  14536. Property BannerImageUrl : string index 8 read FBannerImageUrl write SetBannerImageUrl;
  14537. Property BannerPattern : string index 16 read FBannerPattern write SetBannerPattern;
  14538. Property Description : string index 24 read FDescription write SetDescription;
  14539. Property IsUserContributor : boolean index 32 read FIsUserContributor write SetIsUserContributor;
  14540. Property IsUserOwner : boolean index 40 read FIsUserOwner write SetIsUserOwner;
  14541. Property MagazineType : TInt32 index 48 read FMagazineType write SetMagazineType;
  14542. Property PublishedDate : TDateTime index 56 read FPublishedDate write SetPublishedDate;
  14543. Property Title : string index 64 read FTitle write SetTitle;
  14544. end;
  14545. { --------------------------------------------------------------------
  14546. SP.Publishing: PointPublishingPost
  14547. --------------------------------------------------------------------}
  14548. TSP_PublishingPointPublishingPost = Class(TODataEntity)
  14549. private
  14550. FAuthor : string;
  14551. FContent : string;
  14552. FCreatedDate : TDateTime;
  14553. FFriendlyUrlFileName : string;
  14554. FId : TInt32;
  14555. FModifiedDate : TDateTime;
  14556. FOperationType : TInt32;
  14557. FTitle : string;
  14558. FUserIsAuthor : boolean;
  14559. FVersion : string;
  14560. procedure SetAuthor(AIndex: Integer; const AValue: string);
  14561. procedure SetContent(AIndex: Integer; const AValue: string);
  14562. procedure SetCreatedDate(AIndex: Integer; const AValue: TDateTime);
  14563. procedure SetFriendlyUrlFileName(AIndex: Integer; const AValue: string);
  14564. procedure SetId(AIndex: Integer; const AValue: TInt32);
  14565. procedure SetModifiedDate(AIndex: Integer; const AValue: TDateTime);
  14566. procedure SetOperationType(AIndex: Integer; const AValue: TInt32);
  14567. procedure SetTitle(AIndex: Integer; const AValue: string);
  14568. procedure SetUserIsAuthor(AIndex: Integer; const AValue: boolean);
  14569. procedure SetVersion(AIndex: Integer; const AValue: string);
  14570. public
  14571. class function ObjectRestKind : String; Override;
  14572. function KeyAsURLPart : String; Override;
  14573. function images(AService: TODataService) : TSP_File;
  14574. published
  14575. Property Author : string index 0 read FAuthor write SetAuthor;
  14576. Property Content : string index 8 read FContent write SetContent;
  14577. Property CreatedDate : TDateTime index 16 read FCreatedDate write SetCreatedDate;
  14578. Property FriendlyUrlFileName : string index 24 read FFriendlyUrlFileName write SetFriendlyUrlFileName;
  14579. Property Id : TInt32 index 32 read FId write SetId;
  14580. Property ModifiedDate : TDateTime index 40 read FModifiedDate write SetModifiedDate;
  14581. Property OperationType : TInt32 index 48 read FOperationType write SetOperationType;
  14582. Property Title : string index 56 read FTitle write SetTitle;
  14583. Property UserIsAuthor : boolean index 64 read FUserIsAuthor write SetUserIsAuthor;
  14584. Property Version : string index 72 read FVersion write SetVersion;
  14585. end;
  14586. { --------------------------------------------------------------------
  14587. SP.Publishing: PointPublishingPostServiceManager
  14588. --------------------------------------------------------------------}
  14589. TSP_PublishingPointPublishingPostServiceManager = Class(TODataEntity)
  14590. private
  14591. FId4a81de82eeb94d6080ea5bf63e27023a : string;
  14592. procedure SetId4a81de82eeb94d6080ea5bf63e27023a(AIndex: Integer;
  14593. const AValue: string);
  14594. public
  14595. class function ObjectRestKind : String; Override;
  14596. function KeyAsURLPart : String; Override;
  14597. function bannerimages(AService: TODataService) : TSP_File;
  14598. function contributors(AService: TODataService)
  14599. : TSP_PublishingPointPublishingUser;
  14600. function creators(AService: TODataService)
  14601. : TSP_PublishingPointPublishingUser;
  14602. function magazineprops(AService: TODataService)
  14603. : TSP_PublishingPointPublishingMagazineProps;
  14604. function posts(AService: TODataService)
  14605. : TSP_PublishingPointPublishingPost;
  14606. function viewers(AService: TODataService)
  14607. : TSP_PublishingPointPublishingUser;
  14608. published
  14609. Property Id4a81de82eeb94d6080ea5bf63e27023a : string index 0 read FId4a81de82eeb94d6080ea5bf63e27023a write SetId4a81de82eeb94d6080ea5bf63e27023a;
  14610. end;
  14611. { --------------------------------------------------------------------
  14612. SP.Publishing: PointPublishingUser
  14613. --------------------------------------------------------------------}
  14614. TSP_PublishingPointPublishingUser = Class(TODataEntity)
  14615. private
  14616. FAccountName : string;
  14617. FDepartment : string;
  14618. FEmail : string;
  14619. FID : TInt32;
  14620. FIsDomainGroup : boolean;
  14621. FIsMagazineOwner : boolean;
  14622. FJobTitle : string;
  14623. FLoginName : string;
  14624. FName : string;
  14625. FPictureUrl : string;
  14626. FSipAddress : string;
  14627. procedure SetAccountName(AIndex: Integer; const AValue: string);
  14628. procedure SetDepartment(AIndex: Integer; const AValue: string);
  14629. procedure SetEmail(AIndex: Integer; const AValue: string);
  14630. procedure SetID(AIndex: Integer; const AValue: TInt32);
  14631. procedure SetIsDomainGroup(AIndex: Integer; const AValue: boolean);
  14632. procedure SetIsMagazineOwner(AIndex: Integer; const AValue: boolean);
  14633. procedure SetJobTitle(AIndex: Integer; const AValue: string);
  14634. procedure SetLoginName(AIndex: Integer; const AValue: string);
  14635. procedure SetName(AIndex: Integer; const AValue: string);
  14636. procedure SetPictureUrl(AIndex: Integer; const AValue: string);
  14637. procedure SetSipAddress(AIndex: Integer; const AValue: string);
  14638. public
  14639. class function ObjectRestKind : String; Override;
  14640. function KeyAsURLPart : String; Override;
  14641. published
  14642. Property AccountName : string index 0 read FAccountName write SetAccountName;
  14643. Property Department : string index 8 read FDepartment write SetDepartment;
  14644. Property Email : string index 16 read FEmail write SetEmail;
  14645. Property ID : TInt32 index 24 read FID write SetID;
  14646. Property IsDomainGroup : boolean index 32 read FIsDomainGroup write SetIsDomainGroup;
  14647. Property IsMagazineOwner : boolean index 40 read FIsMagazineOwner write SetIsMagazineOwner;
  14648. Property JobTitle : string index 48 read FJobTitle write SetJobTitle;
  14649. Property LoginName : string index 56 read FLoginName write SetLoginName;
  14650. Property Name : string index 64 read FName write SetName;
  14651. Property PictureUrl : string index 72 read FPictureUrl write SetPictureUrl;
  14652. Property SipAddress : string index 80 read FSipAddress write SetSipAddress;
  14653. end;
  14654. { --------------------------------------------------------------------
  14655. SP.Publishing: PointPublishingSiteManager
  14656. --------------------------------------------------------------------}
  14657. TSP_PublishingPointPublishingSiteManager = Class(TODataEntity)
  14658. private
  14659. FId4a81de82eeb94d6080ea5bf63e27023a : string;
  14660. procedure SetId4a81de82eeb94d6080ea5bf63e27023a(AIndex: Integer;
  14661. const AValue: string);
  14662. public
  14663. class function ObjectRestKind : String; Override;
  14664. function KeyAsURLPart : String; Override;
  14665. published
  14666. Property Id4a81de82eeb94d6080ea5bf63e27023a : string index 0 read FId4a81de82eeb94d6080ea5bf63e27023a write SetId4a81de82eeb94d6080ea5bf63e27023a;
  14667. end;
  14668. { --------------------------------------------------------------------
  14669. SP.Publishing: PointPublishingSiteStatus
  14670. --------------------------------------------------------------------}
  14671. TSP_PublishingPointPublishingSiteStatus = Class(TODataEntity)
  14672. private
  14673. FFriendlyUrl : string;
  14674. FSiteUrl : string;
  14675. FStatus : TInt32;
  14676. procedure SetFriendlyUrl(AIndex: Integer; const AValue: string);
  14677. procedure SetSiteUrl(AIndex: Integer; const AValue: string);
  14678. procedure SetStatus(AIndex: Integer; const AValue: TInt32);
  14679. public
  14680. class function ObjectRestKind : String; Override;
  14681. function KeyAsURLPart : String; Override;
  14682. published
  14683. Property FriendlyUrl : string index 0 read FFriendlyUrl write SetFriendlyUrl;
  14684. Property SiteUrl : string index 8 read FSiteUrl write SetSiteUrl;
  14685. Property Status : TInt32 index 16 read FStatus write SetStatus;
  14686. end;
  14687. { --------------------------------------------------------------------
  14688. SP.Publishing: SpotlightChannel
  14689. --------------------------------------------------------------------}
  14690. TSP_PublishingSpotlightChannel = Class(TODataEntity)
  14691. private
  14692. FChannelId : TGUIDString;
  14693. FId : TInt32;
  14694. FTileHtmlColor : string;
  14695. FTitle : string;
  14696. FVideoLibraryServerRelativeUrl : string;
  14697. procedure SetChannelId(AIndex: Integer; const AValue: TGUIDString);
  14698. procedure SetId(AIndex: Integer; const AValue: TInt32);
  14699. procedure SetTileHtmlColor(AIndex: Integer; const AValue: string);
  14700. procedure SetTitle(AIndex: Integer; const AValue: string);
  14701. procedure SetVideoLibraryServerRelativeUrl(AIndex: Integer;
  14702. const AValue: string);
  14703. public
  14704. class function ObjectRestKind : String; Override;
  14705. function KeyAsURLPart : String; Override;
  14706. function Channel(AService: TODataService) : TSP_PublishingVideoChannel;
  14707. published
  14708. Property ChannelId : TGUIDString index 0 read FChannelId write SetChannelId;
  14709. Property Id : TInt32 index 8 read FId write SetId;
  14710. Property TileHtmlColor : string index 16 read FTileHtmlColor write SetTileHtmlColor;
  14711. Property Title : string index 24 read FTitle write SetTitle;
  14712. Property VideoLibraryServerRelativeUrl : string index 32 read FVideoLibraryServerRelativeUrl write SetVideoLibraryServerRelativeUrl;
  14713. end;
  14714. { --------------------------------------------------------------------
  14715. SP.Publishing: VideoChannel
  14716. --------------------------------------------------------------------}
  14717. TSP_PublishingVideoChannel = Class(TODataEntity)
  14718. private
  14719. FChannelPageUrl : string;
  14720. FDescription : string;
  14721. FId : TGUIDString;
  14722. FTileHtmlColor : string;
  14723. FTitle : string;
  14724. FYammerEnabled : boolean;
  14725. procedure SetChannelPageUrl(AIndex: Integer; const AValue: string);
  14726. procedure SetDescription(AIndex: Integer; const AValue: string);
  14727. procedure SetId(AIndex: Integer; const AValue: TGUIDString);
  14728. procedure SetTileHtmlColor(AIndex: Integer; const AValue: string);
  14729. procedure SetTitle(AIndex: Integer; const AValue: string);
  14730. procedure SetYammerEnabled(AIndex: Integer; const AValue: boolean);
  14731. public
  14732. class function ObjectRestKind : String; Override;
  14733. function KeyAsURLPart : String; Override;
  14734. function Search(AService: TODataService) : TSP_PublishingSearch;
  14735. function SpotlightVideos(AService: TODataService)
  14736. : TSP_PublishingSpotlightVideo;
  14737. function Videos(AService: TODataService) : TSP_PublishingVideoItem;
  14738. published
  14739. Property ChannelPageUrl : string index 0 read FChannelPageUrl write SetChannelPageUrl;
  14740. Property Description : string index 8 read FDescription write SetDescription;
  14741. Property Id : TGUIDString index 16 read FId write SetId;
  14742. Property TileHtmlColor : string index 24 read FTileHtmlColor write SetTileHtmlColor;
  14743. Property Title : string index 32 read FTitle write SetTitle;
  14744. Property YammerEnabled : boolean index 40 read FYammerEnabled write SetYammerEnabled;
  14745. end;
  14746. { --------------------------------------------------------------------
  14747. SP.Publishing: Search
  14748. --------------------------------------------------------------------}
  14749. TSP_PublishingSearch = Class(TODataEntity)
  14750. private
  14751. FId4a81de82eeb94d6080ea5bf63e27023a : string;
  14752. procedure SetId4a81de82eeb94d6080ea5bf63e27023a(AIndex: Integer;
  14753. const AValue: string);
  14754. public
  14755. class function ObjectRestKind : String; Override;
  14756. function KeyAsURLPart : String; Override;
  14757. published
  14758. Property Id4a81de82eeb94d6080ea5bf63e27023a : string index 0 read FId4a81de82eeb94d6080ea5bf63e27023a write SetId4a81de82eeb94d6080ea5bf63e27023a;
  14759. end;
  14760. { --------------------------------------------------------------------
  14761. SP.Publishing: SpotlightVideo
  14762. --------------------------------------------------------------------}
  14763. TSP_PublishingSpotlightVideo = Class(TODataEntity)
  14764. private
  14765. FId : TInt32;
  14766. FServerRelativeUrl : string;
  14767. FUrl : string;
  14768. procedure SetId(AIndex: Integer; const AValue: TInt32);
  14769. procedure SetServerRelativeUrl(AIndex: Integer; const AValue: string);
  14770. procedure SetUrl(AIndex: Integer; const AValue: string);
  14771. public
  14772. class function ObjectRestKind : String; Override;
  14773. function KeyAsURLPart : String; Override;
  14774. function Video(AService: TODataService) : TSP_PublishingVideoItem;
  14775. published
  14776. Property Id : TInt32 index 0 read FId write SetId;
  14777. Property ServerRelativeUrl : string index 8 read FServerRelativeUrl write SetServerRelativeUrl;
  14778. Property Url : string index 16 read FUrl write SetUrl;
  14779. end;
  14780. { --------------------------------------------------------------------
  14781. SP.Publishing: VideoPermissionGroup
  14782. --------------------------------------------------------------------}
  14783. TSP_PublishingVideoPermissionGroup = Class(TODataEntity)
  14784. private
  14785. FId : TInt32;
  14786. procedure SetId(AIndex: Integer; const AValue: TInt32);
  14787. public
  14788. class function ObjectRestKind : String; Override;
  14789. function KeyAsURLPart : String; Override;
  14790. function Users(AService: TODataService) : TSPUser;
  14791. published
  14792. Property Id : TInt32 index 0 read FId write SetId;
  14793. end;
  14794. { --------------------------------------------------------------------
  14795. SP.Publishing: VideoServiceDiscoverer
  14796. --------------------------------------------------------------------}
  14797. TSP_PublishingVideoServiceDiscoverer = Class(TODataEntity)
  14798. private
  14799. FChannelUrlTemplate : string;
  14800. FIsLicensedForVideoPortal : boolean;
  14801. FIsVideoPortalEnabled : boolean;
  14802. FPlayerUrlTemplate : string;
  14803. FVideoPortalLayoutsUrl : string;
  14804. FVideoPortalUrl : string;
  14805. procedure SetChannelUrlTemplate(AIndex: Integer; const AValue: string);
  14806. procedure SetIsLicensedForVideoPortal(AIndex: Integer;
  14807. const AValue: boolean);
  14808. procedure SetIsVideoPortalEnabled(AIndex: Integer;
  14809. const AValue: boolean);
  14810. procedure SetPlayerUrlTemplate(AIndex: Integer; const AValue: string);
  14811. procedure SetVideoPortalLayoutsUrl(AIndex: Integer;
  14812. const AValue: string);
  14813. procedure SetVideoPortalUrl(AIndex: Integer; const AValue: string);
  14814. public
  14815. class function ObjectRestKind : String; Override;
  14816. function KeyAsURLPart : String; Override;
  14817. published
  14818. Property ChannelUrlTemplate : string index 0 read FChannelUrlTemplate write SetChannelUrlTemplate;
  14819. Property IsLicensedForVideoPortal : boolean index 8 read FIsLicensedForVideoPortal write SetIsLicensedForVideoPortal;
  14820. Property IsVideoPortalEnabled : boolean index 16 read FIsVideoPortalEnabled write SetIsVideoPortalEnabled;
  14821. Property PlayerUrlTemplate : string index 24 read FPlayerUrlTemplate write SetPlayerUrlTemplate;
  14822. Property VideoPortalLayoutsUrl : string index 32 read FVideoPortalLayoutsUrl write SetVideoPortalLayoutsUrl;
  14823. Property VideoPortalUrl : string index 40 read FVideoPortalUrl write SetVideoPortalUrl;
  14824. end;
  14825. { --------------------------------------------------------------------
  14826. SP.Publishing: VideoServiceManager
  14827. --------------------------------------------------------------------}
  14828. TSP_PublishingVideoServiceManager = Class(TODataEntity)
  14829. private
  14830. FId4a81de82eeb94d6080ea5bf63e27023a : string;
  14831. procedure SetId4a81de82eeb94d6080ea5bf63e27023a(AIndex: Integer;
  14832. const AValue: string);
  14833. public
  14834. class function ObjectRestKind : String; Override;
  14835. function KeyAsURLPart : String; Override;
  14836. function CanEditChannels(AService: TODataService)
  14837. : TSP_PublishingVideoChannel;
  14838. function Channels(AService: TODataService) : TSP_PublishingVideoChannel;
  14839. function Search(AService: TODataService) : TSP_PublishingSearch;
  14840. function SpotlightChannels(AService: TODataService)
  14841. : TSP_PublishingSpotlightChannel;
  14842. function SpotlightVideos(AService: TODataService)
  14843. : TSP_PublishingSpotlightVideo;
  14844. published
  14845. Property Id4a81de82eeb94d6080ea5bf63e27023a : string index 0 read FId4a81de82eeb94d6080ea5bf63e27023a write SetId4a81de82eeb94d6080ea5bf63e27023a;
  14846. end;
  14847. { --------------------------------------------------------------------
  14848. Microsoft.SharePoint.Client.Search.Query: PersonalResultSuggestion
  14849. --------------------------------------------------------------------}
  14850. TMicrosoft_SharePoint_Client_Search_QueryPersonalResultSuggestion = Class(TODataEntity)
  14851. private
  14852. FHighlightedTitle : string;
  14853. FIsBestBet : boolean;
  14854. FTitle : string;
  14855. FUrl : string;
  14856. procedure SetHighlightedTitle(AIndex: Integer; const AValue: string);
  14857. procedure SetIsBestBet(AIndex: Integer; const AValue: boolean);
  14858. procedure SetTitle(AIndex: Integer; const AValue: string);
  14859. procedure SetUrl(AIndex: Integer; const AValue: string);
  14860. public
  14861. class function ObjectRestKind : String; Override;
  14862. published
  14863. Property HighlightedTitle : string index 0 read FHighlightedTitle write SetHighlightedTitle;
  14864. Property IsBestBet : boolean index 8 read FIsBestBet write SetIsBestBet;
  14865. Property Title : string index 16 read FTitle write SetTitle;
  14866. Property Url : string index 24 read FUrl write SetUrl;
  14867. end;
  14868. { --------------------------------------------------------------------
  14869. Microsoft.SharePoint.Client.Search.Query: QueryAutoCompletionMatch
  14870. --------------------------------------------------------------------}
  14871. TMicrosoft_SharePoint_Client_Search_QueryQueryAutoCompletionMatch = Class(TODataEntity)
  14872. private
  14873. FAlternation : boolean;
  14874. FKey : string;
  14875. F_Length : int64;
  14876. FMatchType : string;
  14877. FScore : Double;
  14878. FSourceName : string;
  14879. FStart : int64;
  14880. FValue : string;
  14881. procedure SetAlternation(AIndex: Integer; const AValue: boolean);
  14882. procedure SetKey(AIndex: Integer; const AValue: string);
  14883. procedure Set_Length(AIndex: Integer; const AValue: int64);
  14884. procedure SetMatchType(AIndex: Integer; const AValue: string);
  14885. procedure SetScore(AIndex: Integer; const AValue: Double);
  14886. procedure SetSourceName(AIndex: Integer; const AValue: string);
  14887. procedure SetStart(AIndex: Integer; const AValue: int64);
  14888. procedure SetValue(AIndex: Integer; const AValue: string);
  14889. public
  14890. class function ObjectRestKind : String; Override;
  14891. class function ExportPropertyName(const AName: String) : String
  14892. ; Override;
  14893. published
  14894. Property Alternation : boolean index 0 read FAlternation write SetAlternation;
  14895. Property Key : string index 8 read FKey write SetKey;
  14896. Property _Length : int64 index 16 read F_Length write Set_Length;
  14897. Property MatchType : string index 24 read FMatchType write SetMatchType;
  14898. Property Score : Double index 32 read FScore write SetScore;
  14899. Property SourceName : string index 40 read FSourceName write SetSourceName;
  14900. Property Start : int64 index 48 read FStart write SetStart;
  14901. Property Value : string index 56 read FValue write SetValue;
  14902. end;
  14903. { --------------------------------------------------------------------
  14904. Microsoft.SharePoint.Client.Search.Query: QueryAutoCompletionResults
  14905. --------------------------------------------------------------------}
  14906. TMicrosoft_SharePoint_Client_Search_QueryQueryAutoCompletionResults = Class(TODataEntity)
  14907. private
  14908. FCoreExecutionTimeMs : int64;
  14909. FCorrelationId : string;
  14910. FQueries : TMicrosoft_SharePoint_Client_Search_QueryQueryAutoCompletionArray;
  14911. procedure SetCoreExecutionTimeMs(AIndex: Integer; const AValue: int64);
  14912. procedure SetCorrelationId(AIndex: Integer; const AValue: string);
  14913. procedure SetQueries(AIndex: Integer;
  14914. const AValue: TMicrosoft_SharePoint_Client_Search_QueryQueryAutoCompletionArray);
  14915. protected
  14916. {$IFDEF VER2_6}
  14917. procedure SetArrayLength(const AName: String; ALength: Longint)
  14918. ; Override;
  14919. {$ENDIF VER2_6}
  14920. public
  14921. class function ObjectRestKind : String; Override;
  14922. published
  14923. Property CoreExecutionTimeMs : int64 index 0 read FCoreExecutionTimeMs write SetCoreExecutionTimeMs;
  14924. Property CorrelationId : string index 8 read FCorrelationId write SetCorrelationId;
  14925. Property Queries : TMicrosoft_SharePoint_Client_Search_QueryQueryAutoCompletionArray index 16 read FQueries write SetQueries;
  14926. end;
  14927. { --------------------------------------------------------------------
  14928. Microsoft.SharePoint.Client.Search.Query: QueryAutoCompletion
  14929. --------------------------------------------------------------------}
  14930. TMicrosoft_SharePoint_Client_Search_QueryQueryAutoCompletion = Class(TODataEntity)
  14931. private
  14932. FMatches : TMicrosoft_SharePoint_Client_Search_QueryQueryAutoCompletionMatchArray;
  14933. FQuery : string;
  14934. FScore : Double;
  14935. FSource : string;
  14936. procedure SetMatches(AIndex: Integer;
  14937. const AValue: TMicrosoft_SharePoint_Client_Search_QueryQueryAutoCompletionMatchArray);
  14938. procedure SetQuery(AIndex: Integer; const AValue: string);
  14939. procedure SetScore(AIndex: Integer; const AValue: Double);
  14940. procedure SetSource(AIndex: Integer; const AValue: string);
  14941. protected
  14942. {$IFDEF VER2_6}
  14943. procedure SetArrayLength(const AName: String; ALength: Longint)
  14944. ; Override;
  14945. {$ENDIF VER2_6}
  14946. public
  14947. class function ObjectRestKind : String; Override;
  14948. published
  14949. Property Matches : TMicrosoft_SharePoint_Client_Search_QueryQueryAutoCompletionMatchArray index 0 read FMatches write SetMatches;
  14950. Property Query : string index 8 read FQuery write SetQuery;
  14951. Property Score : Double index 16 read FScore write SetScore;
  14952. Property Source : string index 24 read FSource write SetSource;
  14953. end;
  14954. { --------------------------------------------------------------------
  14955. Microsoft.SharePoint.Client.Search.Query: QueryPropertyValue
  14956. --------------------------------------------------------------------}
  14957. TMicrosoft_SharePoint_Client_Search_QueryQueryPropertyValue = Class(TODataEntity)
  14958. private
  14959. FBoolVal : boolean;
  14960. FIntVal : TInt32;
  14961. FQueryPropertyValueTypeIndex : TInt32;
  14962. FStrArray : TStringArray;
  14963. FStrVal : string;
  14964. procedure SetBoolVal(AIndex: Integer; const AValue: boolean);
  14965. procedure SetIntVal(AIndex: Integer; const AValue: TInt32);
  14966. procedure SetQueryPropertyValueTypeIndex(AIndex: Integer;
  14967. const AValue: TInt32);
  14968. procedure SetStrArray(AIndex: Integer; const AValue: TStringArray);
  14969. procedure SetStrVal(AIndex: Integer; const AValue: string);
  14970. protected
  14971. {$IFDEF VER2_6}
  14972. procedure SetArrayLength(const AName: String; ALength: Longint)
  14973. ; Override;
  14974. {$ENDIF VER2_6}
  14975. public
  14976. class function ObjectRestKind : String; Override;
  14977. published
  14978. Property BoolVal : boolean index 0 read FBoolVal write SetBoolVal;
  14979. Property IntVal : TInt32 index 8 read FIntVal write SetIntVal;
  14980. Property QueryPropertyValueTypeIndex : TInt32 index 16 read FQueryPropertyValueTypeIndex write SetQueryPropertyValueTypeIndex;
  14981. Property StrArray : TStringArray index 24 read FStrArray write SetStrArray;
  14982. Property StrVal : string index 32 read FStrVal write SetStrVal;
  14983. end;
  14984. { --------------------------------------------------------------------
  14985. Microsoft.SharePoint.Client.Search.Query: QuerySuggestionQuery
  14986. --------------------------------------------------------------------}
  14987. TMicrosoft_SharePoint_Client_Search_QueryQuerySuggestionQuery = Class(TODataEntity)
  14988. private
  14989. FIsPersonal : boolean;
  14990. FQuery : string;
  14991. procedure SetIsPersonal(AIndex: Integer; const AValue: boolean);
  14992. procedure SetQuery(AIndex: Integer; const AValue: string);
  14993. public
  14994. class function ObjectRestKind : String; Override;
  14995. published
  14996. Property IsPersonal : boolean index 0 read FIsPersonal write SetIsPersonal;
  14997. Property Query : string index 8 read FQuery write SetQuery;
  14998. end;
  14999. { --------------------------------------------------------------------
  15000. Microsoft.SharePoint.Client.Search.Query: QuerySuggestionRange
  15001. --------------------------------------------------------------------}
  15002. TMicrosoft_SharePoint_Client_Search_QueryQuerySuggestionRange = Class(TODataEntity)
  15003. private
  15004. F_Length : TInt32;
  15005. FStart : TInt32;
  15006. procedure Set_Length(AIndex: Integer; const AValue: TInt32);
  15007. procedure SetStart(AIndex: Integer; const AValue: TInt32);
  15008. public
  15009. class function ObjectRestKind : String; Override;
  15010. class function ExportPropertyName(const AName: String) : String
  15011. ; Override;
  15012. published
  15013. Property _Length : TInt32 index 0 read F_Length write Set_Length;
  15014. Property Start : TInt32 index 8 read FStart write SetStart;
  15015. end;
  15016. { --------------------------------------------------------------------
  15017. Microsoft.SharePoint.Client.Search.Query: QuerySuggestionResults
  15018. --------------------------------------------------------------------}
  15019. TMicrosoft_SharePoint_Client_Search_QueryQuerySuggestionResults = Class(TODataEntity)
  15020. private
  15021. FPeopleNames : TStringArray;
  15022. FPersonalResults : TMicrosoft_SharePoint_Client_Search_QueryPersonalResultSuggestionArray;
  15023. FQueries : TMicrosoft_SharePoint_Client_Search_QueryQuerySuggestionQueryArray;
  15024. procedure SetPeopleNames(AIndex: Integer; const AValue: TStringArray);
  15025. procedure SetPersonalResults(AIndex: Integer;
  15026. const AValue: TMicrosoft_SharePoint_Client_Search_QueryPersonalResultSuggestionArray);
  15027. procedure SetQueries(AIndex: Integer;
  15028. const AValue: TMicrosoft_SharePoint_Client_Search_QueryQuerySuggestionQueryArray);
  15029. protected
  15030. {$IFDEF VER2_6}
  15031. procedure SetArrayLength(const AName: String; ALength: Longint)
  15032. ; Override;
  15033. {$ENDIF VER2_6}
  15034. public
  15035. class function ObjectRestKind : String; Override;
  15036. published
  15037. Property PeopleNames : TStringArray index 0 read FPeopleNames write SetPeopleNames;
  15038. Property PersonalResults : TMicrosoft_SharePoint_Client_Search_QueryPersonalResultSuggestionArray index 8 read FPersonalResults write SetPersonalResults;
  15039. Property Queries : TMicrosoft_SharePoint_Client_Search_QueryQuerySuggestionQueryArray index 16 read FQueries write SetQueries;
  15040. end;
  15041. { --------------------------------------------------------------------
  15042. Microsoft.SharePoint.Client.Search.Query: ReorderingRule
  15043. --------------------------------------------------------------------}
  15044. TMicrosoft_SharePoint_Client_Search_QueryReorderingRule = Class(TODataEntity)
  15045. private
  15046. FBoost : TInt32;
  15047. FMatchType : TInt32;
  15048. FMatchValue : string;
  15049. procedure SetBoost(AIndex: Integer; const AValue: TInt32);
  15050. procedure SetMatchType(AIndex: Integer; const AValue: TInt32);
  15051. procedure SetMatchValue(AIndex: Integer; const AValue: string);
  15052. public
  15053. class function ObjectRestKind : String; Override;
  15054. published
  15055. Property Boost : TInt32 index 0 read FBoost write SetBoost;
  15056. Property MatchType : TInt32 index 8 read FMatchType write SetMatchType;
  15057. Property MatchValue : string index 16 read FMatchValue write SetMatchValue;
  15058. end;
  15059. { --------------------------------------------------------------------
  15060. Microsoft.SharePoint.Client.Search.Query: Sort
  15061. --------------------------------------------------------------------}
  15062. TMicrosoft_SharePoint_Client_Search_QuerySort = Class(TODataEntity)
  15063. private
  15064. FDirection : TInt32;
  15065. F_Property : string;
  15066. procedure SetDirection(AIndex: Integer; const AValue: TInt32);
  15067. procedure Set_Property(AIndex: Integer; const AValue: string);
  15068. public
  15069. class function ObjectRestKind : String; Override;
  15070. class function ExportPropertyName(const AName: String) : String
  15071. ; Override;
  15072. published
  15073. Property Direction : TInt32 index 0 read FDirection write SetDirection;
  15074. Property _Property : string index 8 read F_Property write Set_Property;
  15075. end;
  15076. { --------------------------------------------------------------------
  15077. Microsoft.SharePoint.Client.Search.Query: StringCollection
  15078. --------------------------------------------------------------------}
  15079. TMicrosoft_SharePoint_Client_Search_QueryStringCollection = Class(TODataEntity)
  15080. private
  15081. FId4a81de82eeb94d6080ea5bf63e27023a : string;
  15082. FItems : TStringArray;
  15083. procedure SetId4a81de82eeb94d6080ea5bf63e27023a(AIndex: Integer;
  15084. const AValue: string);
  15085. procedure SetItems(AIndex: Integer; const AValue: TStringArray);
  15086. protected
  15087. {$IFDEF VER2_6}
  15088. procedure SetArrayLength(const AName: String; ALength: Longint)
  15089. ; Override;
  15090. {$ENDIF VER2_6}
  15091. public
  15092. class function ObjectRestKind : String; Override;
  15093. function KeyAsURLPart : String; Override;
  15094. published
  15095. Property Id4a81de82eeb94d6080ea5bf63e27023a : string index 0 read FId4a81de82eeb94d6080ea5bf63e27023a write SetId4a81de82eeb94d6080ea5bf63e27023a;
  15096. Property Items : TStringArray index 8 read FItems write SetItems;
  15097. end;
  15098. { --------------------------------------------------------------------
  15099. Microsoft.SharePoint.Client.Search.Query: QueryPersonalizationData
  15100. --------------------------------------------------------------------}
  15101. TMicrosoft_SharePoint_Client_Search_QueryQueryPersonalizationData = Class(TODataEntity)
  15102. private
  15103. FId4a81de82eeb94d6080ea5bf63e27023a : string;
  15104. procedure SetId4a81de82eeb94d6080ea5bf63e27023a(AIndex: Integer;
  15105. const AValue: string);
  15106. public
  15107. class function ObjectRestKind : String; Override;
  15108. function KeyAsURLPart : String; Override;
  15109. published
  15110. Property Id4a81de82eeb94d6080ea5bf63e27023a : string index 0 read FId4a81de82eeb94d6080ea5bf63e27023a write SetId4a81de82eeb94d6080ea5bf63e27023a;
  15111. end;
  15112. { --------------------------------------------------------------------
  15113. Microsoft.SharePoint.Client.Search.Query: RankingLabeling
  15114. --------------------------------------------------------------------}
  15115. TMicrosoft_SharePoint_Client_Search_QueryRankingLabeling = Class(TODataEntity)
  15116. private
  15117. FId4a81de82eeb94d6080ea5bf63e27023a : string;
  15118. procedure SetId4a81de82eeb94d6080ea5bf63e27023a(AIndex: Integer;
  15119. const AValue: string);
  15120. public
  15121. class function ObjectRestKind : String; Override;
  15122. function KeyAsURLPart : String; Override;
  15123. published
  15124. Property Id4a81de82eeb94d6080ea5bf63e27023a : string index 0 read FId4a81de82eeb94d6080ea5bf63e27023a write SetId4a81de82eeb94d6080ea5bf63e27023a;
  15125. end;
  15126. { --------------------------------------------------------------------
  15127. Microsoft.SharePoint.Client.Search.Query: ReorderingRuleCollection
  15128. --------------------------------------------------------------------}
  15129. TMicrosoft_SharePoint_Client_Search_QueryReorderingRuleCollection = Class(TODataEntity)
  15130. private
  15131. FId4a81de82eeb94d6080ea5bf63e27023a : string;
  15132. FItems : TMicrosoft_SharePoint_Client_Search_QueryReorderingRuleArray;
  15133. procedure SetId4a81de82eeb94d6080ea5bf63e27023a(AIndex: Integer;
  15134. const AValue: string);
  15135. procedure SetItems(AIndex: Integer;
  15136. const AValue: TMicrosoft_SharePoint_Client_Search_QueryReorderingRuleArray);
  15137. protected
  15138. {$IFDEF VER2_6}
  15139. procedure SetArrayLength(const AName: String; ALength: Longint)
  15140. ; Override;
  15141. {$ENDIF VER2_6}
  15142. public
  15143. class function ObjectRestKind : String; Override;
  15144. function KeyAsURLPart : String; Override;
  15145. published
  15146. Property Id4a81de82eeb94d6080ea5bf63e27023a : string index 0 read FId4a81de82eeb94d6080ea5bf63e27023a write SetId4a81de82eeb94d6080ea5bf63e27023a;
  15147. Property Items : TMicrosoft_SharePoint_Client_Search_QueryReorderingRuleArray index 8 read FItems write SetItems;
  15148. end;
  15149. { --------------------------------------------------------------------
  15150. Microsoft.SharePoint.Client.Search.Query: SortCollection
  15151. --------------------------------------------------------------------}
  15152. TMicrosoft_SharePoint_Client_Search_QuerySortCollection = Class(TODataEntity)
  15153. private
  15154. FId4a81de82eeb94d6080ea5bf63e27023a : string;
  15155. FItems : TMicrosoft_SharePoint_Client_Search_QuerySortArray;
  15156. procedure SetId4a81de82eeb94d6080ea5bf63e27023a(AIndex: Integer;
  15157. const AValue: string);
  15158. procedure SetItems(AIndex: Integer;
  15159. const AValue: TMicrosoft_SharePoint_Client_Search_QuerySortArray);
  15160. protected
  15161. {$IFDEF VER2_6}
  15162. procedure SetArrayLength(const AName: String; ALength: Longint)
  15163. ; Override;
  15164. {$ENDIF VER2_6}
  15165. public
  15166. class function ObjectRestKind : String; Override;
  15167. function KeyAsURLPart : String; Override;
  15168. published
  15169. Property Id4a81de82eeb94d6080ea5bf63e27023a : string index 0 read FId4a81de82eeb94d6080ea5bf63e27023a write SetId4a81de82eeb94d6080ea5bf63e27023a;
  15170. Property Items : TMicrosoft_SharePoint_Client_Search_QuerySortArray index 8 read FItems write SetItems;
  15171. end;
  15172. { --------------------------------------------------------------------
  15173. Microsoft.Office.Server.Search.REST: CustomResult
  15174. --------------------------------------------------------------------}
  15175. TMicrosoft_Office_Server_Search_RESTCustomResult = Class(TODataEntity)
  15176. private
  15177. FGroupTemplateId : string;
  15178. FItemTemplateId : string;
  15179. FProperties : TSPKeyValueArray;
  15180. FResultTitle : string;
  15181. FResultTitleUrl : string;
  15182. FTable : TSPSimpleDataTable;
  15183. FTableType : string;
  15184. procedure SetGroupTemplateId(AIndex: Integer; const AValue: string);
  15185. procedure SetItemTemplateId(AIndex: Integer; const AValue: string);
  15186. procedure SetProperties(AIndex: Integer; const AValue: TSPKeyValueArray);
  15187. procedure SetResultTitle(AIndex: Integer; const AValue: string);
  15188. procedure SetResultTitleUrl(AIndex: Integer; const AValue: string);
  15189. procedure SetTable(AIndex: Integer; const AValue: TSPSimpleDataTable);
  15190. procedure SetTableType(AIndex: Integer; const AValue: string);
  15191. protected
  15192. {$IFDEF VER2_6}
  15193. procedure SetArrayLength(const AName: String; ALength: Longint)
  15194. ; Override;
  15195. {$ENDIF VER2_6}
  15196. public
  15197. class function ObjectRestKind : String; Override;
  15198. published
  15199. Property GroupTemplateId : string index 0 read FGroupTemplateId write SetGroupTemplateId;
  15200. Property ItemTemplateId : string index 8 read FItemTemplateId write SetItemTemplateId;
  15201. Property Properties : TSPKeyValueArray index 16 read FProperties write SetProperties;
  15202. Property ResultTitle : string index 24 read FResultTitle write SetResultTitle;
  15203. Property ResultTitleUrl : string index 32 read FResultTitleUrl write SetResultTitleUrl;
  15204. Property Table : TSPSimpleDataTable index 40 read FTable write SetTable;
  15205. Property TableType : string index 48 read FTableType write SetTableType;
  15206. end;
  15207. { --------------------------------------------------------------------
  15208. Microsoft.Office.Server.Search.REST: QueryProperty
  15209. --------------------------------------------------------------------}
  15210. TMicrosoft_Office_Server_Search_RESTQueryProperty = Class(TODataEntity)
  15211. private
  15212. FName : string;
  15213. FValue : TMicrosoft_SharePoint_Client_Search_QueryQueryPropertyValue;
  15214. procedure SetName(AIndex: Integer; const AValue: string);
  15215. procedure SetValue(AIndex: Integer;
  15216. const AValue: TMicrosoft_SharePoint_Client_Search_QueryQueryPropertyValue);
  15217. public
  15218. class function ObjectRestKind : String; Override;
  15219. published
  15220. Property Name : string index 0 read FName write SetName;
  15221. Property Value : TMicrosoft_SharePoint_Client_Search_QueryQueryPropertyValue index 8 read FValue write SetValue;
  15222. end;
  15223. { --------------------------------------------------------------------
  15224. Microsoft.Office.Server.Search.REST: QueryResult
  15225. --------------------------------------------------------------------}
  15226. TMicrosoft_Office_Server_Search_RESTQueryResult = Class(TODataEntity)
  15227. private
  15228. FCustomResults : TMicrosoft_Office_Server_Search_RESTCustomResultArray;
  15229. FQueryId : string;
  15230. FQueryRuleId : TGUIDString;
  15231. FRefinementResults : TMicrosoft_Office_Server_Search_RESTRefinementResults;
  15232. FRelevantResults : TMicrosoft_Office_Server_Search_RESTRelevantResults;
  15233. FSpecialTermResults : TMicrosoft_Office_Server_Search_RESTSpecialTermResults;
  15234. procedure SetCustomResults(AIndex: Integer;
  15235. const AValue: TMicrosoft_Office_Server_Search_RESTCustomResultArray);
  15236. procedure SetQueryId(AIndex: Integer; const AValue: string);
  15237. procedure SetQueryRuleId(AIndex: Integer; const AValue: TGUIDString);
  15238. procedure SetRefinementResults(AIndex: Integer;
  15239. const AValue: TMicrosoft_Office_Server_Search_RESTRefinementResults);
  15240. procedure SetRelevantResults(AIndex: Integer;
  15241. const AValue: TMicrosoft_Office_Server_Search_RESTRelevantResults);
  15242. procedure SetSpecialTermResults(AIndex: Integer;
  15243. const AValue: TMicrosoft_Office_Server_Search_RESTSpecialTermResults);
  15244. protected
  15245. {$IFDEF VER2_6}
  15246. procedure SetArrayLength(const AName: String; ALength: Longint)
  15247. ; Override;
  15248. {$ENDIF VER2_6}
  15249. public
  15250. class function ObjectRestKind : String; Override;
  15251. published
  15252. Property CustomResults : TMicrosoft_Office_Server_Search_RESTCustomResultArray index 0 read FCustomResults write SetCustomResults;
  15253. Property QueryId : string index 8 read FQueryId write SetQueryId;
  15254. Property QueryRuleId : TGUIDString index 16 read FQueryRuleId write SetQueryRuleId;
  15255. Property RefinementResults : TMicrosoft_Office_Server_Search_RESTRefinementResults index 24 read FRefinementResults write SetRefinementResults;
  15256. Property RelevantResults : TMicrosoft_Office_Server_Search_RESTRelevantResults index 32 read FRelevantResults write SetRelevantResults;
  15257. Property SpecialTermResults : TMicrosoft_Office_Server_Search_RESTSpecialTermResults index 40 read FSpecialTermResults write SetSpecialTermResults;
  15258. end;
  15259. { --------------------------------------------------------------------
  15260. Microsoft.Office.Server.Search.REST: RefinementResults
  15261. --------------------------------------------------------------------}
  15262. TMicrosoft_Office_Server_Search_RESTRefinementResults = Class(TODataEntity)
  15263. private
  15264. FGroupTemplateId : string;
  15265. FItemTemplateId : string;
  15266. FProperties : TSPKeyValueArray;
  15267. FRefiners : TMicrosoft_Office_Server_Search_RESTRefinerArray;
  15268. FResultTitle : string;
  15269. FResultTitleUrl : string;
  15270. procedure SetGroupTemplateId(AIndex: Integer; const AValue: string);
  15271. procedure SetItemTemplateId(AIndex: Integer; const AValue: string);
  15272. procedure SetProperties(AIndex: Integer; const AValue: TSPKeyValueArray);
  15273. procedure SetRefiners(AIndex: Integer;
  15274. const AValue: TMicrosoft_Office_Server_Search_RESTRefinerArray);
  15275. procedure SetResultTitle(AIndex: Integer; const AValue: string);
  15276. procedure SetResultTitleUrl(AIndex: Integer; const AValue: string);
  15277. protected
  15278. {$IFDEF VER2_6}
  15279. procedure SetArrayLength(const AName: String; ALength: Longint)
  15280. ; Override;
  15281. {$ENDIF VER2_6}
  15282. public
  15283. class function ObjectRestKind : String; Override;
  15284. published
  15285. Property GroupTemplateId : string index 0 read FGroupTemplateId write SetGroupTemplateId;
  15286. Property ItemTemplateId : string index 8 read FItemTemplateId write SetItemTemplateId;
  15287. Property Properties : TSPKeyValueArray index 16 read FProperties write SetProperties;
  15288. Property Refiners : TMicrosoft_Office_Server_Search_RESTRefinerArray index 24 read FRefiners write SetRefiners;
  15289. Property ResultTitle : string index 32 read FResultTitle write SetResultTitle;
  15290. Property ResultTitleUrl : string index 40 read FResultTitleUrl write SetResultTitleUrl;
  15291. end;
  15292. { --------------------------------------------------------------------
  15293. Microsoft.Office.Server.Search.REST: Refiner
  15294. --------------------------------------------------------------------}
  15295. TMicrosoft_Office_Server_Search_RESTRefiner = Class(TODataEntity)
  15296. private
  15297. FEntries : TMicrosoft_Office_Server_Search_RESTRefinerEntryArray;
  15298. FName : string;
  15299. procedure SetEntries(AIndex: Integer;
  15300. const AValue: TMicrosoft_Office_Server_Search_RESTRefinerEntryArray);
  15301. procedure SetName(AIndex: Integer; const AValue: string);
  15302. protected
  15303. {$IFDEF VER2_6}
  15304. procedure SetArrayLength(const AName: String; ALength: Longint)
  15305. ; Override;
  15306. {$ENDIF VER2_6}
  15307. public
  15308. class function ObjectRestKind : String; Override;
  15309. published
  15310. Property Entries : TMicrosoft_Office_Server_Search_RESTRefinerEntryArray index 0 read FEntries write SetEntries;
  15311. Property Name : string index 8 read FName write SetName;
  15312. end;
  15313. { --------------------------------------------------------------------
  15314. Microsoft.Office.Server.Search.REST: RefinerEntry
  15315. --------------------------------------------------------------------}
  15316. TMicrosoft_Office_Server_Search_RESTRefinerEntry = Class(TODataEntity)
  15317. private
  15318. FRefinementCount : int64;
  15319. FRefinementName : string;
  15320. FRefinementToken : string;
  15321. FRefinementValue : string;
  15322. procedure SetRefinementCount(AIndex: Integer; const AValue: int64);
  15323. procedure SetRefinementName(AIndex: Integer; const AValue: string);
  15324. procedure SetRefinementToken(AIndex: Integer; const AValue: string);
  15325. procedure SetRefinementValue(AIndex: Integer; const AValue: string);
  15326. public
  15327. class function ObjectRestKind : String; Override;
  15328. published
  15329. Property RefinementCount : int64 index 0 read FRefinementCount write SetRefinementCount;
  15330. Property RefinementName : string index 8 read FRefinementName write SetRefinementName;
  15331. Property RefinementToken : string index 16 read FRefinementToken write SetRefinementToken;
  15332. Property RefinementValue : string index 24 read FRefinementValue write SetRefinementValue;
  15333. end;
  15334. { --------------------------------------------------------------------
  15335. Microsoft.Office.Server.Search.REST: RelevantResults
  15336. --------------------------------------------------------------------}
  15337. TMicrosoft_Office_Server_Search_RESTRelevantResults = Class(TODataEntity)
  15338. private
  15339. FGroupTemplateId : string;
  15340. FItemTemplateId : string;
  15341. FProperties : TSPKeyValueArray;
  15342. FResultTitle : string;
  15343. FResultTitleUrl : string;
  15344. FRowCount : TInt32;
  15345. FTable : TSPSimpleDataTable;
  15346. FTotalRows : TInt32;
  15347. FTotalRowsIncludingDuplicates : TInt32;
  15348. procedure SetGroupTemplateId(AIndex: Integer; const AValue: string);
  15349. procedure SetItemTemplateId(AIndex: Integer; const AValue: string);
  15350. procedure SetProperties(AIndex: Integer; const AValue: TSPKeyValueArray);
  15351. procedure SetResultTitle(AIndex: Integer; const AValue: string);
  15352. procedure SetResultTitleUrl(AIndex: Integer; const AValue: string);
  15353. procedure SetRowCount(AIndex: Integer; const AValue: TInt32);
  15354. procedure SetTable(AIndex: Integer; const AValue: TSPSimpleDataTable);
  15355. procedure SetTotalRows(AIndex: Integer; const AValue: TInt32);
  15356. procedure SetTotalRowsIncludingDuplicates(AIndex: Integer;
  15357. const AValue: TInt32);
  15358. protected
  15359. {$IFDEF VER2_6}
  15360. procedure SetArrayLength(const AName: String; ALength: Longint)
  15361. ; Override;
  15362. {$ENDIF VER2_6}
  15363. public
  15364. class function ObjectRestKind : String; Override;
  15365. published
  15366. Property GroupTemplateId : string index 0 read FGroupTemplateId write SetGroupTemplateId;
  15367. Property ItemTemplateId : string index 8 read FItemTemplateId write SetItemTemplateId;
  15368. Property Properties : TSPKeyValueArray index 16 read FProperties write SetProperties;
  15369. Property ResultTitle : string index 24 read FResultTitle write SetResultTitle;
  15370. Property ResultTitleUrl : string index 32 read FResultTitleUrl write SetResultTitleUrl;
  15371. Property RowCount : TInt32 index 40 read FRowCount write SetRowCount;
  15372. Property Table : TSPSimpleDataTable index 48 read FTable write SetTable;
  15373. Property TotalRows : TInt32 index 56 read FTotalRows write SetTotalRows;
  15374. Property TotalRowsIncludingDuplicates : TInt32 index 64 read FTotalRowsIncludingDuplicates write SetTotalRowsIncludingDuplicates;
  15375. end;
  15376. { --------------------------------------------------------------------
  15377. Microsoft.Office.Server.Search.REST: SpecialTermResults
  15378. --------------------------------------------------------------------}
  15379. TMicrosoft_Office_Server_Search_RESTSpecialTermResults = Class(TODataEntity)
  15380. private
  15381. FGroupTemplateId : string;
  15382. FItemTemplateId : string;
  15383. FProperties : TSPKeyValueArray;
  15384. FResults : TMicrosoft_Office_Server_Search_RESTSpecialTermResultArray;
  15385. FResultTitle : string;
  15386. FResultTitleUrl : string;
  15387. procedure SetGroupTemplateId(AIndex: Integer; const AValue: string);
  15388. procedure SetItemTemplateId(AIndex: Integer; const AValue: string);
  15389. procedure SetProperties(AIndex: Integer; const AValue: TSPKeyValueArray);
  15390. procedure SetResults(AIndex: Integer;
  15391. const AValue: TMicrosoft_Office_Server_Search_RESTSpecialTermResultArray);
  15392. procedure SetResultTitle(AIndex: Integer; const AValue: string);
  15393. procedure SetResultTitleUrl(AIndex: Integer; const AValue: string);
  15394. protected
  15395. {$IFDEF VER2_6}
  15396. procedure SetArrayLength(const AName: String; ALength: Longint)
  15397. ; Override;
  15398. {$ENDIF VER2_6}
  15399. public
  15400. class function ObjectRestKind : String; Override;
  15401. published
  15402. Property GroupTemplateId : string index 0 read FGroupTemplateId write SetGroupTemplateId;
  15403. Property ItemTemplateId : string index 8 read FItemTemplateId write SetItemTemplateId;
  15404. Property Properties : TSPKeyValueArray index 16 read FProperties write SetProperties;
  15405. Property Results : TMicrosoft_Office_Server_Search_RESTSpecialTermResultArray index 24 read FResults write SetResults;
  15406. Property ResultTitle : string index 32 read FResultTitle write SetResultTitle;
  15407. Property ResultTitleUrl : string index 40 read FResultTitleUrl write SetResultTitleUrl;
  15408. end;
  15409. { --------------------------------------------------------------------
  15410. Microsoft.Office.Server.Search.REST: SpecialTermResult
  15411. --------------------------------------------------------------------}
  15412. TMicrosoft_Office_Server_Search_RESTSpecialTermResult = Class(TODataEntity)
  15413. private
  15414. FDescription : string;
  15415. FIsVisualBestBet : boolean;
  15416. FPiSearchResultId : string;
  15417. FRenderTemplateId : string;
  15418. FTitle : string;
  15419. FUrl : string;
  15420. procedure SetDescription(AIndex: Integer; const AValue: string);
  15421. procedure SetIsVisualBestBet(AIndex: Integer; const AValue: boolean);
  15422. procedure SetPiSearchResultId(AIndex: Integer; const AValue: string);
  15423. procedure SetRenderTemplateId(AIndex: Integer; const AValue: string);
  15424. procedure SetTitle(AIndex: Integer; const AValue: string);
  15425. procedure SetUrl(AIndex: Integer; const AValue: string);
  15426. public
  15427. class function ObjectRestKind : String; Override;
  15428. published
  15429. Property Description : string index 0 read FDescription write SetDescription;
  15430. Property IsVisualBestBet : boolean index 8 read FIsVisualBestBet write SetIsVisualBestBet;
  15431. Property PiSearchResultId : string index 16 read FPiSearchResultId write SetPiSearchResultId;
  15432. Property RenderTemplateId : string index 24 read FRenderTemplateId write SetRenderTemplateId;
  15433. Property Title : string index 32 read FTitle write SetTitle;
  15434. Property Url : string index 40 read FUrl write SetUrl;
  15435. end;
  15436. { --------------------------------------------------------------------
  15437. Microsoft.Office.Server.Search.REST: SearchRequest
  15438. --------------------------------------------------------------------}
  15439. TMicrosoft_Office_Server_Search_RESTSearchRequest = Class(TODataEntity)
  15440. private
  15441. FBlockDedupeMode : TInt32;
  15442. FBypassResultTypes : boolean;
  15443. FClientType : string;
  15444. FCollapseSpecification : string;
  15445. FCulture : TInt32;
  15446. FDesiredSnippetLength : TInt32;
  15447. FEnableFQL : boolean;
  15448. FEnableInterleaving : boolean;
  15449. FEnableNicknames : boolean;
  15450. FEnableOrderingHitHighlightedProperty : boolean;
  15451. FEnablePhonetic : boolean;
  15452. FEnableQueryRules : boolean;
  15453. FEnableSorting : boolean;
  15454. FEnableStemming : boolean;
  15455. FGenerateBlockRankLog : boolean;
  15456. FHiddenConstraints : string;
  15457. FHitHighlightedMultivaluePropertyLimit : TInt32;
  15458. FHitHighlightedProperties : TStringArray;
  15459. FImpressionId : string;
  15460. FMaxSnippetLength : TInt32;
  15461. FPersonalizationData : TGUIDString;
  15462. FProcessBestBets : boolean;
  15463. FProcessPersonalFavorites : boolean;
  15464. FProperties : TMicrosoft_Office_Server_Search_RESTQueryPropertyArray;
  15465. FQueryTag : string;
  15466. FQueryTemplate : string;
  15467. FQueryTemplatePropertiesUrl : string;
  15468. FQuerytext : string;
  15469. FRankingModelId : string;
  15470. FRefinementFilters : TStringArray;
  15471. FRefiners : string;
  15472. FReorderingRules : TMicrosoft_SharePoint_Client_Search_QueryReorderingRuleArray;
  15473. FResultsUrl : string;
  15474. FRowLimit : TInt32;
  15475. FRowsPerPage : TInt32;
  15476. FSelectProperties : TStringArray;
  15477. FSortList : TMicrosoft_SharePoint_Client_Search_QuerySortArray;
  15478. FSourceId : TGUIDString;
  15479. FStartRow : TInt32;
  15480. FSummaryLength : TInt32;
  15481. FTimeout : TInt32;
  15482. FTimeZoneId : TInt32;
  15483. FTotalRowsExactMinimum : TInt32;
  15484. FTrimDuplicates : boolean;
  15485. FTrimDuplicatesIncludeId : int64;
  15486. FUILanguage : TInt32;
  15487. procedure SetBlockDedupeMode(AIndex: Integer; const AValue: TInt32);
  15488. procedure SetBypassResultTypes(AIndex: Integer; const AValue: boolean);
  15489. procedure SetClientType(AIndex: Integer; const AValue: string);
  15490. procedure SetCollapseSpecification(AIndex: Integer;
  15491. const AValue: string);
  15492. procedure SetCulture(AIndex: Integer; const AValue: TInt32);
  15493. procedure SetDesiredSnippetLength(AIndex: Integer; const AValue: TInt32);
  15494. procedure SetEnableFQL(AIndex: Integer; const AValue: boolean);
  15495. procedure SetEnableInterleaving(AIndex: Integer; const AValue: boolean);
  15496. procedure SetEnableNicknames(AIndex: Integer; const AValue: boolean);
  15497. procedure SetEnableOrderingHitHighlightedProperty(AIndex: Integer;
  15498. const AValue: boolean);
  15499. procedure SetEnablePhonetic(AIndex: Integer; const AValue: boolean);
  15500. procedure SetEnableQueryRules(AIndex: Integer; const AValue: boolean);
  15501. procedure SetEnableSorting(AIndex: Integer; const AValue: boolean);
  15502. procedure SetEnableStemming(AIndex: Integer; const AValue: boolean);
  15503. procedure SetGenerateBlockRankLog(AIndex: Integer;
  15504. const AValue: boolean);
  15505. procedure SetHiddenConstraints(AIndex: Integer; const AValue: string);
  15506. procedure SetHitHighlightedMultivaluePropertyLimit(AIndex: Integer;
  15507. const AValue: TInt32);
  15508. procedure SetHitHighlightedProperties(AIndex: Integer;
  15509. const AValue: TStringArray);
  15510. procedure SetImpressionId(AIndex: Integer; const AValue: string);
  15511. procedure SetMaxSnippetLength(AIndex: Integer; const AValue: TInt32);
  15512. procedure SetPersonalizationData(AIndex: Integer;
  15513. const AValue: TGUIDString);
  15514. procedure SetProcessBestBets(AIndex: Integer; const AValue: boolean);
  15515. procedure SetProcessPersonalFavorites(AIndex: Integer;
  15516. const AValue: boolean);
  15517. procedure SetProperties(AIndex: Integer;
  15518. const AValue: TMicrosoft_Office_Server_Search_RESTQueryPropertyArray);
  15519. procedure SetQueryTag(AIndex: Integer; const AValue: string);
  15520. procedure SetQueryTemplate(AIndex: Integer; const AValue: string);
  15521. procedure SetQueryTemplatePropertiesUrl(AIndex: Integer;
  15522. const AValue: string);
  15523. procedure SetQuerytext(AIndex: Integer; const AValue: string);
  15524. procedure SetRankingModelId(AIndex: Integer; const AValue: string);
  15525. procedure SetRefinementFilters(AIndex: Integer;
  15526. const AValue: TStringArray);
  15527. procedure SetRefiners(AIndex: Integer; const AValue: string);
  15528. procedure SetReorderingRules(AIndex: Integer;
  15529. const AValue: TMicrosoft_SharePoint_Client_Search_QueryReorderingRuleArray);
  15530. procedure SetResultsUrl(AIndex: Integer; const AValue: string);
  15531. procedure SetRowLimit(AIndex: Integer; const AValue: TInt32);
  15532. procedure SetRowsPerPage(AIndex: Integer; const AValue: TInt32);
  15533. procedure SetSelectProperties(AIndex: Integer;
  15534. const AValue: TStringArray);
  15535. procedure SetSortList(AIndex: Integer;
  15536. const AValue: TMicrosoft_SharePoint_Client_Search_QuerySortArray);
  15537. procedure SetSourceId(AIndex: Integer; const AValue: TGUIDString);
  15538. procedure SetStartRow(AIndex: Integer; const AValue: TInt32);
  15539. procedure SetSummaryLength(AIndex: Integer; const AValue: TInt32);
  15540. procedure SetTimeout(AIndex: Integer; const AValue: TInt32);
  15541. procedure SetTimeZoneId(AIndex: Integer; const AValue: TInt32);
  15542. procedure SetTotalRowsExactMinimum(AIndex: Integer;
  15543. const AValue: TInt32);
  15544. procedure SetTrimDuplicates(AIndex: Integer; const AValue: boolean);
  15545. procedure SetTrimDuplicatesIncludeId(AIndex: Integer;
  15546. const AValue: int64);
  15547. procedure SetUILanguage(AIndex: Integer; const AValue: TInt32);
  15548. protected
  15549. {$IFDEF VER2_6}
  15550. procedure SetArrayLength(const AName: String; ALength: Longint)
  15551. ; Override;
  15552. {$ENDIF VER2_6}
  15553. public
  15554. class function ObjectRestKind : String; Override;
  15555. published
  15556. Property BlockDedupeMode : TInt32 index 0 read FBlockDedupeMode write SetBlockDedupeMode;
  15557. Property BypassResultTypes : boolean index 8 read FBypassResultTypes write SetBypassResultTypes;
  15558. Property ClientType : string index 16 read FClientType write SetClientType;
  15559. Property CollapseSpecification : string index 24 read FCollapseSpecification write SetCollapseSpecification;
  15560. Property Culture : TInt32 index 32 read FCulture write SetCulture;
  15561. Property DesiredSnippetLength : TInt32 index 40 read FDesiredSnippetLength write SetDesiredSnippetLength;
  15562. Property EnableFQL : boolean index 48 read FEnableFQL write SetEnableFQL;
  15563. Property EnableInterleaving : boolean index 56 read FEnableInterleaving write SetEnableInterleaving;
  15564. Property EnableNicknames : boolean index 64 read FEnableNicknames write SetEnableNicknames;
  15565. Property EnableOrderingHitHighlightedProperty : boolean index 72 read FEnableOrderingHitHighlightedProperty write SetEnableOrderingHitHighlightedProperty;
  15566. Property EnablePhonetic : boolean index 80 read FEnablePhonetic write SetEnablePhonetic;
  15567. Property EnableQueryRules : boolean index 88 read FEnableQueryRules write SetEnableQueryRules;
  15568. Property EnableSorting : boolean index 96 read FEnableSorting write SetEnableSorting;
  15569. Property EnableStemming : boolean index 104 read FEnableStemming write SetEnableStemming;
  15570. Property GenerateBlockRankLog : boolean index 112 read FGenerateBlockRankLog write SetGenerateBlockRankLog;
  15571. Property HiddenConstraints : string index 120 read FHiddenConstraints write SetHiddenConstraints;
  15572. Property HitHighlightedMultivaluePropertyLimit : TInt32 index 128 read FHitHighlightedMultivaluePropertyLimit write SetHitHighlightedMultivaluePropertyLimit;
  15573. Property HitHighlightedProperties : TStringArray index 136 read FHitHighlightedProperties write SetHitHighlightedProperties;
  15574. Property ImpressionId : string index 144 read FImpressionId write SetImpressionId;
  15575. Property MaxSnippetLength : TInt32 index 152 read FMaxSnippetLength write SetMaxSnippetLength;
  15576. Property PersonalizationData : TGUIDString index 160 read FPersonalizationData write SetPersonalizationData;
  15577. Property ProcessBestBets : boolean index 168 read FProcessBestBets write SetProcessBestBets;
  15578. Property ProcessPersonalFavorites : boolean index 176 read FProcessPersonalFavorites write SetProcessPersonalFavorites;
  15579. Property Properties : TMicrosoft_Office_Server_Search_RESTQueryPropertyArray index 184 read FProperties write SetProperties;
  15580. Property QueryTag : string index 192 read FQueryTag write SetQueryTag;
  15581. Property QueryTemplate : string index 200 read FQueryTemplate write SetQueryTemplate;
  15582. Property QueryTemplatePropertiesUrl : string index 208 read FQueryTemplatePropertiesUrl write SetQueryTemplatePropertiesUrl;
  15583. Property Querytext : string index 216 read FQuerytext write SetQuerytext;
  15584. Property RankingModelId : string index 224 read FRankingModelId write SetRankingModelId;
  15585. Property RefinementFilters : TStringArray index 232 read FRefinementFilters write SetRefinementFilters;
  15586. Property Refiners : string index 240 read FRefiners write SetRefiners;
  15587. Property ReorderingRules : TMicrosoft_SharePoint_Client_Search_QueryReorderingRuleArray index 248 read FReorderingRules write SetReorderingRules;
  15588. Property ResultsUrl : string index 256 read FResultsUrl write SetResultsUrl;
  15589. Property RowLimit : TInt32 index 264 read FRowLimit write SetRowLimit;
  15590. Property RowsPerPage : TInt32 index 272 read FRowsPerPage write SetRowsPerPage;
  15591. Property SelectProperties : TStringArray index 280 read FSelectProperties write SetSelectProperties;
  15592. Property SortList : TMicrosoft_SharePoint_Client_Search_QuerySortArray index 288 read FSortList write SetSortList;
  15593. Property SourceId : TGUIDString index 296 read FSourceId write SetSourceId;
  15594. Property StartRow : TInt32 index 304 read FStartRow write SetStartRow;
  15595. Property SummaryLength : TInt32 index 312 read FSummaryLength write SetSummaryLength;
  15596. Property Timeout : TInt32 index 320 read FTimeout write SetTimeout;
  15597. Property TimeZoneId : TInt32 index 328 read FTimeZoneId write SetTimeZoneId;
  15598. Property TotalRowsExactMinimum : TInt32 index 336 read FTotalRowsExactMinimum write SetTotalRowsExactMinimum;
  15599. Property TrimDuplicates : boolean index 344 read FTrimDuplicates write SetTrimDuplicates;
  15600. Property TrimDuplicatesIncludeId : int64 index 352 read FTrimDuplicatesIncludeId write SetTrimDuplicatesIncludeId;
  15601. Property UILanguage : TInt32 index 360 read FUILanguage write SetUILanguage;
  15602. end;
  15603. { --------------------------------------------------------------------
  15604. Microsoft.Office.Server.Search.REST: SearchResult
  15605. --------------------------------------------------------------------}
  15606. TMicrosoft_Office_Server_Search_RESTSearchResult = Class(TODataEntity)
  15607. private
  15608. FElapsedTime : TInt32;
  15609. FPrimaryQueryResult : TMicrosoft_Office_Server_Search_RESTQueryResult;
  15610. FProperties : TSPKeyValueArray;
  15611. FSecondaryQueryResults : TMicrosoft_Office_Server_Search_RESTQueryResultArray;
  15612. FSpellingSuggestion : string;
  15613. FTriggeredRules : TGuidStringArray;
  15614. procedure SetElapsedTime(AIndex: Integer; const AValue: TInt32);
  15615. procedure SetPrimaryQueryResult(AIndex: Integer;
  15616. const AValue: TMicrosoft_Office_Server_Search_RESTQueryResult);
  15617. procedure SetProperties(AIndex: Integer; const AValue: TSPKeyValueArray);
  15618. procedure SetSecondaryQueryResults(AIndex: Integer;
  15619. const AValue: TMicrosoft_Office_Server_Search_RESTQueryResultArray);
  15620. procedure SetSpellingSuggestion(AIndex: Integer; const AValue: string);
  15621. procedure SetTriggeredRules(AIndex: Integer;
  15622. const AValue: TGuidStringArray);
  15623. protected
  15624. {$IFDEF VER2_6}
  15625. procedure SetArrayLength(const AName: String; ALength: Longint)
  15626. ; Override;
  15627. {$ENDIF VER2_6}
  15628. public
  15629. class function ObjectRestKind : String; Override;
  15630. published
  15631. Property ElapsedTime : TInt32 index 0 read FElapsedTime write SetElapsedTime;
  15632. Property PrimaryQueryResult : TMicrosoft_Office_Server_Search_RESTQueryResult index 8 read FPrimaryQueryResult write SetPrimaryQueryResult;
  15633. Property Properties : TSPKeyValueArray index 16 read FProperties write SetProperties;
  15634. Property SecondaryQueryResults : TMicrosoft_Office_Server_Search_RESTQueryResultArray index 24 read FSecondaryQueryResults write SetSecondaryQueryResults;
  15635. Property SpellingSuggestion : string index 32 read FSpellingSuggestion write SetSpellingSuggestion;
  15636. Property TriggeredRules : TGuidStringArray index 40 read FTriggeredRules write SetTriggeredRules;
  15637. end;
  15638. { --------------------------------------------------------------------
  15639. Microsoft.Office.Server.Search.REST: SearchService
  15640. --------------------------------------------------------------------}
  15641. TMicrosoft_Office_Server_Search_RESTSearchService = Class(TODataEntity)
  15642. private
  15643. FId4a81de82eeb94d6080ea5bf63e27023a : string;
  15644. procedure SetId4a81de82eeb94d6080ea5bf63e27023a(AIndex: Integer;
  15645. const AValue: string);
  15646. public
  15647. class function ObjectRestKind : String; Override;
  15648. function KeyAsURLPart : String; Override;
  15649. published
  15650. Property Id4a81de82eeb94d6080ea5bf63e27023a : string index 0 read FId4a81de82eeb94d6080ea5bf63e27023a write SetId4a81de82eeb94d6080ea5bf63e27023a;
  15651. end;
  15652. { --------------------------------------------------------------------
  15653. Microsoft.SharePoint.Client.Search.Analytics: AnalyticsAction
  15654. --------------------------------------------------------------------}
  15655. TMicrosoft_SharePoint_Client_Search_AnalyticsAnalyticsAction = Class(TODataEntity)
  15656. private
  15657. FActionType : string;
  15658. FExpireTime : TDateTime;
  15659. FProperties : TSPKeyValueArray;
  15660. FUserTime : TDateTime;
  15661. procedure SetActionType(AIndex: Integer; const AValue: string);
  15662. procedure SetExpireTime(AIndex: Integer; const AValue: TDateTime);
  15663. procedure SetProperties(AIndex: Integer; const AValue: TSPKeyValueArray);
  15664. procedure SetUserTime(AIndex: Integer; const AValue: TDateTime);
  15665. protected
  15666. {$IFDEF VER2_6}
  15667. procedure SetArrayLength(const AName: String; ALength: Longint)
  15668. ; Override;
  15669. {$ENDIF VER2_6}
  15670. public
  15671. class function ObjectRestKind : String; Override;
  15672. published
  15673. Property ActionType : string index 0 read FActionType write SetActionType;
  15674. Property ExpireTime : TDateTime index 8 read FExpireTime write SetExpireTime;
  15675. Property Properties : TSPKeyValueArray index 16 read FProperties write SetProperties;
  15676. Property UserTime : TDateTime index 24 read FUserTime write SetUserTime;
  15677. end;
  15678. { --------------------------------------------------------------------
  15679. Microsoft.SharePoint.Client.Search.Analytics: AnalyticsActor
  15680. --------------------------------------------------------------------}
  15681. TMicrosoft_SharePoint_Client_Search_AnalyticsAnalyticsActor = Class(TODataEntity)
  15682. private
  15683. FId : string;
  15684. FProperties : TSPKeyValueArray;
  15685. FTenantId : TGUIDString;
  15686. procedure SetId(AIndex: Integer; const AValue: string);
  15687. procedure SetProperties(AIndex: Integer; const AValue: TSPKeyValueArray);
  15688. procedure SetTenantId(AIndex: Integer; const AValue: TGUIDString);
  15689. protected
  15690. {$IFDEF VER2_6}
  15691. procedure SetArrayLength(const AName: String; ALength: Longint)
  15692. ; Override;
  15693. {$ENDIF VER2_6}
  15694. public
  15695. class function ObjectRestKind : String; Override;
  15696. published
  15697. Property Id : string index 0 read FId write SetId;
  15698. Property Properties : TSPKeyValueArray index 8 read FProperties write SetProperties;
  15699. Property TenantId : TGUIDString index 16 read FTenantId write SetTenantId;
  15700. end;
  15701. { --------------------------------------------------------------------
  15702. Microsoft.SharePoint.Client.Search.Analytics: AnalyticsItem
  15703. --------------------------------------------------------------------}
  15704. TMicrosoft_SharePoint_Client_Search_AnalyticsAnalyticsItem = Class(TODataEntity)
  15705. private
  15706. FId : string;
  15707. FProperties : TSPKeyValueArray;
  15708. procedure SetId(AIndex: Integer; const AValue: string);
  15709. procedure SetProperties(AIndex: Integer; const AValue: TSPKeyValueArray);
  15710. protected
  15711. {$IFDEF VER2_6}
  15712. procedure SetArrayLength(const AName: String; ALength: Longint)
  15713. ; Override;
  15714. {$ENDIF VER2_6}
  15715. public
  15716. class function ObjectRestKind : String; Override;
  15717. published
  15718. Property Id : string index 0 read FId write SetId;
  15719. Property Properties : TSPKeyValueArray index 8 read FProperties write SetProperties;
  15720. end;
  15721. { --------------------------------------------------------------------
  15722. Microsoft.SharePoint.Client.Search.Analytics: AnalyticsSignal
  15723. --------------------------------------------------------------------}
  15724. TMicrosoft_SharePoint_Client_Search_AnalyticsAnalyticsSignal = Class(TODataEntity)
  15725. private
  15726. FAction : TMicrosoft_SharePoint_Client_Search_AnalyticsAnalyticsAction;
  15727. FActor : TMicrosoft_SharePoint_Client_Search_AnalyticsAnalyticsActor;
  15728. FItem : TMicrosoft_SharePoint_Client_Search_AnalyticsAnalyticsItem;
  15729. FSource : string;
  15730. procedure SetAction(AIndex: Integer;
  15731. const AValue: TMicrosoft_SharePoint_Client_Search_AnalyticsAnalyticsAction);
  15732. procedure SetActor(AIndex: Integer;
  15733. const AValue: TMicrosoft_SharePoint_Client_Search_AnalyticsAnalyticsActor);
  15734. procedure SetItem(AIndex: Integer;
  15735. const AValue: TMicrosoft_SharePoint_Client_Search_AnalyticsAnalyticsItem);
  15736. procedure SetSource(AIndex: Integer; const AValue: string);
  15737. public
  15738. class function ObjectRestKind : String; Override;
  15739. published
  15740. Property Action : TMicrosoft_SharePoint_Client_Search_AnalyticsAnalyticsAction index 0 read FAction write SetAction;
  15741. Property Actor : TMicrosoft_SharePoint_Client_Search_AnalyticsAnalyticsActor index 8 read FActor write SetActor;
  15742. Property Item : TMicrosoft_SharePoint_Client_Search_AnalyticsAnalyticsItem index 16 read FItem write SetItem;
  15743. Property Source : string index 24 read FSource write SetSource;
  15744. end;
  15745. { --------------------------------------------------------------------
  15746. Microsoft.SharePoint.Client.Search.Analytics: SignalStore
  15747. --------------------------------------------------------------------}
  15748. TMicrosoft_SharePoint_Client_Search_AnalyticsSignalStore = Class(TODataEntity)
  15749. private
  15750. FId4a81de82eeb94d6080ea5bf63e27023a : string;
  15751. procedure SetId4a81de82eeb94d6080ea5bf63e27023a(AIndex: Integer;
  15752. const AValue: string);
  15753. public
  15754. class function ObjectRestKind : String; Override;
  15755. function KeyAsURLPart : String; Override;
  15756. published
  15757. Property Id4a81de82eeb94d6080ea5bf63e27023a : string index 0 read FId4a81de82eeb94d6080ea5bf63e27023a write SetId4a81de82eeb94d6080ea5bf63e27023a;
  15758. end;
  15759. { --------------------------------------------------------------------
  15760. Microsoft.SharePoint.Yammer: WacToken
  15761. --------------------------------------------------------------------}
  15762. TMicrosoft_SharePoint_YammerWacToken = Class(TODataEntity)
  15763. private
  15764. FAccessToken : string;
  15765. FAccessTokenTtl : int64;
  15766. FAppUrl : string;
  15767. FErrorMessageToDisplay : string;
  15768. FFavIconTarget : string;
  15769. FRedirectUrl : string;
  15770. procedure SetAccessToken(AIndex: Integer; const AValue: string);
  15771. procedure SetAccessTokenTtl(AIndex: Integer; const AValue: int64);
  15772. procedure SetAppUrl(AIndex: Integer; const AValue: string);
  15773. procedure SetErrorMessageToDisplay(AIndex: Integer;
  15774. const AValue: string);
  15775. procedure SetFavIconTarget(AIndex: Integer; const AValue: string);
  15776. procedure SetRedirectUrl(AIndex: Integer; const AValue: string);
  15777. public
  15778. class function ObjectRestKind : String; Override;
  15779. published
  15780. Property AccessToken : string index 0 read FAccessToken write SetAccessToken;
  15781. Property AccessTokenTtl : int64 index 8 read FAccessTokenTtl write SetAccessTokenTtl;
  15782. Property AppUrl : string index 16 read FAppUrl write SetAppUrl;
  15783. Property ErrorMessageToDisplay : string index 24 read FErrorMessageToDisplay write SetErrorMessageToDisplay;
  15784. Property FavIconTarget : string index 32 read FFavIconTarget write SetFavIconTarget;
  15785. Property RedirectUrl : string index 40 read FRedirectUrl write SetRedirectUrl;
  15786. end;
  15787. { --------------------------------------------------------------------
  15788. Microsoft.SharePoint.Yammer: WacApi
  15789. --------------------------------------------------------------------}
  15790. TMicrosoft_SharePoint_YammerWacApi = Class(TODataEntity)
  15791. private
  15792. FId4a81de82eeb94d6080ea5bf63e27023a : string;
  15793. procedure SetId4a81de82eeb94d6080ea5bf63e27023a(AIndex: Integer;
  15794. const AValue: string);
  15795. public
  15796. class function ObjectRestKind : String; Override;
  15797. function KeyAsURLPart : String; Override;
  15798. published
  15799. Property Id4a81de82eeb94d6080ea5bf63e27023a : string index 0 read FId4a81de82eeb94d6080ea5bf63e27023a write SetId4a81de82eeb94d6080ea5bf63e27023a;
  15800. end;
  15801. { --------------------------------------------------------------------
  15802. Microsoft.SharePoint.Portal: CollaborationMailboxResponse
  15803. --------------------------------------------------------------------}
  15804. TMicrosoft_SharePoint_PortalCollaborationMailboxResponse = Class(TODataEntity)
  15805. private
  15806. FAlternateUrl : string;
  15807. FCorrelationId : string;
  15808. FErrorCode : TInt32;
  15809. FStatus : TInt32;
  15810. FUrl : string;
  15811. procedure SetAlternateUrl(AIndex: Integer; const AValue: string);
  15812. procedure SetCorrelationId(AIndex: Integer; const AValue: string);
  15813. procedure SetErrorCode(AIndex: Integer; const AValue: TInt32);
  15814. procedure SetStatus(AIndex: Integer; const AValue: TInt32);
  15815. procedure SetUrl(AIndex: Integer; const AValue: string);
  15816. public
  15817. class function ObjectRestKind : String; Override;
  15818. published
  15819. Property AlternateUrl : string index 0 read FAlternateUrl write SetAlternateUrl;
  15820. Property CorrelationId : string index 8 read FCorrelationId write SetCorrelationId;
  15821. Property ErrorCode : TInt32 index 16 read FErrorCode write SetErrorCode;
  15822. Property Status : TInt32 index 24 read FStatus write SetStatus;
  15823. Property Url : string index 32 read FUrl write SetUrl;
  15824. end;
  15825. { --------------------------------------------------------------------
  15826. Microsoft.SharePoint.Portal: CollaborationMailbox
  15827. --------------------------------------------------------------------}
  15828. TMicrosoft_SharePoint_PortalCollaborationMailbox = Class(TODataEntity)
  15829. private
  15830. FId4a81de82eeb94d6080ea5bf63e27023a : string;
  15831. procedure SetId4a81de82eeb94d6080ea5bf63e27023a(AIndex: Integer;
  15832. const AValue: string);
  15833. public
  15834. class function ObjectRestKind : String; Override;
  15835. function KeyAsURLPart : String; Override;
  15836. published
  15837. Property Id4a81de82eeb94d6080ea5bf63e27023a : string index 0 read FId4a81de82eeb94d6080ea5bf63e27023a write SetId4a81de82eeb94d6080ea5bf63e27023a;
  15838. end;
  15839. { --------------------------------------------------------------------
  15840. Microsoft.SharePoint.Portal: CommunityModeration
  15841. --------------------------------------------------------------------}
  15842. TMicrosoft_SharePoint_PortalCommunityModeration = Class(TODataEntity)
  15843. private
  15844. FId4a81de82eeb94d6080ea5bf63e27023a : string;
  15845. procedure SetId4a81de82eeb94d6080ea5bf63e27023a(AIndex: Integer;
  15846. const AValue: string);
  15847. public
  15848. class function ObjectRestKind : String; Override;
  15849. function KeyAsURLPart : String; Override;
  15850. published
  15851. Property Id4a81de82eeb94d6080ea5bf63e27023a : string index 0 read FId4a81de82eeb94d6080ea5bf63e27023a write SetId4a81de82eeb94d6080ea5bf63e27023a;
  15852. end;
  15853. { --------------------------------------------------------------------
  15854. Microsoft.SharePoint.Portal: MySiteRecommendations
  15855. --------------------------------------------------------------------}
  15856. TMicrosoft_SharePoint_PortalMySiteRecommendations = Class(TODataEntity)
  15857. private
  15858. FId4a81de82eeb94d6080ea5bf63e27023a : string;
  15859. procedure SetId4a81de82eeb94d6080ea5bf63e27023a(AIndex: Integer;
  15860. const AValue: string);
  15861. public
  15862. class function ObjectRestKind : String; Override;
  15863. function KeyAsURLPart : String; Override;
  15864. published
  15865. Property Id4a81de82eeb94d6080ea5bf63e27023a : string index 0 read FId4a81de82eeb94d6080ea5bf63e27023a write SetId4a81de82eeb94d6080ea5bf63e27023a;
  15866. end;
  15867. { --------------------------------------------------------------------
  15868. Microsoft.SharePoint.Portal.UserProfiles: SharedWithMeDocumentUser
  15869. --------------------------------------------------------------------}
  15870. TMicrosoft_SharePoint_Portal_UserProfilesSharedWithMeDocumentUser = Class(TODataEntity)
  15871. private
  15872. FLoginName : string;
  15873. FSipAddress : string;
  15874. FTitle : string;
  15875. procedure SetLoginName(AIndex: Integer; const AValue: string);
  15876. procedure SetSipAddress(AIndex: Integer; const AValue: string);
  15877. procedure SetTitle(AIndex: Integer; const AValue: string);
  15878. public
  15879. class function ObjectRestKind : String; Override;
  15880. published
  15881. Property LoginName : string index 0 read FLoginName write SetLoginName;
  15882. Property SipAddress : string index 8 read FSipAddress write SetSipAddress;
  15883. Property Title : string index 16 read FTitle write SetTitle;
  15884. end;
  15885. { --------------------------------------------------------------------
  15886. Microsoft.SharePoint.Portal.UserProfiles: MySiteLinks
  15887. --------------------------------------------------------------------}
  15888. TMicrosoft_SharePoint_Portal_UserProfilesMySiteLinks = Class(TODataEntity)
  15889. private
  15890. FAllDocumentsLink : string;
  15891. FAllDocumentsLinkHref : string;
  15892. FAllDocumentsLinkTarget : string;
  15893. FAllSitesLink : string;
  15894. FAllSitesLinkHref : string;
  15895. FAllSitesLinkTarget : string;
  15896. procedure SetAllDocumentsLink(AIndex: Integer; const AValue: string);
  15897. procedure SetAllDocumentsLinkHref(AIndex: Integer; const AValue: string);
  15898. procedure SetAllDocumentsLinkTarget(AIndex: Integer;
  15899. const AValue: string);
  15900. procedure SetAllSitesLink(AIndex: Integer; const AValue: string);
  15901. procedure SetAllSitesLinkHref(AIndex: Integer; const AValue: string);
  15902. procedure SetAllSitesLinkTarget(AIndex: Integer; const AValue: string);
  15903. public
  15904. class function ObjectRestKind : String; Override;
  15905. function KeyAsURLPart : String; Override;
  15906. published
  15907. Property AllDocumentsLink : string index 0 read FAllDocumentsLink write SetAllDocumentsLink;
  15908. Property AllDocumentsLinkHref : string index 8 read FAllDocumentsLinkHref write SetAllDocumentsLinkHref;
  15909. Property AllDocumentsLinkTarget : string index 16 read FAllDocumentsLinkTarget write SetAllDocumentsLinkTarget;
  15910. Property AllSitesLink : string index 24 read FAllSitesLink write SetAllSitesLink;
  15911. Property AllSitesLinkHref : string index 32 read FAllSitesLinkHref write SetAllSitesLinkHref;
  15912. Property AllSitesLinkTarget : string index 40 read FAllSitesLinkTarget write SetAllSitesLinkTarget;
  15913. end;
  15914. { --------------------------------------------------------------------
  15915. Microsoft.SharePoint.Portal.UserProfiles: MySiteDismissStatusText
  15916. --------------------------------------------------------------------}
  15917. TMicrosoft_SharePoint_Portal_UserProfilesMySiteDismissStatusText = Class(TODataEntity)
  15918. private
  15919. FId4a81de82eeb94d6080ea5bf63e27023a : string;
  15920. procedure SetId4a81de82eeb94d6080ea5bf63e27023a(AIndex: Integer;
  15921. const AValue: string);
  15922. public
  15923. class function ObjectRestKind : String; Override;
  15924. function KeyAsURLPart : String; Override;
  15925. published
  15926. Property Id4a81de82eeb94d6080ea5bf63e27023a : string index 0 read FId4a81de82eeb94d6080ea5bf63e27023a write SetId4a81de82eeb94d6080ea5bf63e27023a;
  15927. end;
  15928. { --------------------------------------------------------------------
  15929. Microsoft.SharePoint.Portal.UserProfiles: MySiteDocumentMoveUtility
  15930. --------------------------------------------------------------------}
  15931. TMicrosoft_SharePoint_Portal_UserProfilesMySiteDocumentMoveUtility = Class(TODataEntity)
  15932. private
  15933. FId4a81de82eeb94d6080ea5bf63e27023a : string;
  15934. procedure SetId4a81de82eeb94d6080ea5bf63e27023a(AIndex: Integer;
  15935. const AValue: string);
  15936. public
  15937. class function ObjectRestKind : String; Override;
  15938. function KeyAsURLPart : String; Override;
  15939. published
  15940. Property Id4a81de82eeb94d6080ea5bf63e27023a : string index 0 read FId4a81de82eeb94d6080ea5bf63e27023a write SetId4a81de82eeb94d6080ea5bf63e27023a;
  15941. end;
  15942. { --------------------------------------------------------------------
  15943. Microsoft.SharePoint.Portal.UserProfiles: SharedWithMeDocument
  15944. --------------------------------------------------------------------}
  15945. TMicrosoft_SharePoint_Portal_UserProfilesSharedWithMeDocument = Class(TODataEntity)
  15946. private
  15947. FAuthors : TMicrosoft_SharePoint_Portal_UserProfilesSharedWithMeDocumentUserArray;
  15948. FContentTypeId : TSPContentTypeId;
  15949. FDocId : string;
  15950. FEditors : TMicrosoft_SharePoint_Portal_UserProfilesSharedWithMeDocumentUserArray;
  15951. FExtension : string;
  15952. FFileLeafRef : string;
  15953. FFileRef : string;
  15954. FId : TInt32;
  15955. FIsContainer : boolean;
  15956. FIsMyDocument : boolean;
  15957. FLinkingUrl : string;
  15958. FListId : string;
  15959. FListItemId : string;
  15960. FModified : TDateTime;
  15961. FParentLink : string;
  15962. FProgId : string;
  15963. FServerRedirectedEmbedUrl : string;
  15964. FServerRedirectedPreviewUrl : string;
  15965. FServerRedirectedUrl : string;
  15966. FSharedWithInternal : TMicrosoft_SharePoint_Portal_UserProfilesSharedWithMeDocumentUserArray;
  15967. FSiteId : string;
  15968. FSiteUrl : string;
  15969. FTitle : string;
  15970. FUniqueId : string;
  15971. FUrlPath : string;
  15972. FWebId : string;
  15973. procedure SetAuthors(AIndex: Integer;
  15974. const AValue: TMicrosoft_SharePoint_Portal_UserProfilesSharedWithMeDocumentUserArray);
  15975. procedure SetContentTypeId(AIndex: Integer;
  15976. const AValue: TSPContentTypeId);
  15977. procedure SetDocId(AIndex: Integer; const AValue: string);
  15978. procedure SetEditors(AIndex: Integer;
  15979. const AValue: TMicrosoft_SharePoint_Portal_UserProfilesSharedWithMeDocumentUserArray);
  15980. procedure SetExtension(AIndex: Integer; const AValue: string);
  15981. procedure SetFileLeafRef(AIndex: Integer; const AValue: string);
  15982. procedure SetFileRef(AIndex: Integer; const AValue: string);
  15983. procedure SetId(AIndex: Integer; const AValue: TInt32);
  15984. procedure SetIsContainer(AIndex: Integer; const AValue: boolean);
  15985. procedure SetIsMyDocument(AIndex: Integer; const AValue: boolean);
  15986. procedure SetLinkingUrl(AIndex: Integer; const AValue: string);
  15987. procedure SetListId(AIndex: Integer; const AValue: string);
  15988. procedure SetListItemId(AIndex: Integer; const AValue: string);
  15989. procedure SetModified(AIndex: Integer; const AValue: TDateTime);
  15990. procedure SetParentLink(AIndex: Integer; const AValue: string);
  15991. procedure SetProgId(AIndex: Integer; const AValue: string);
  15992. procedure SetServerRedirectedEmbedUrl(AIndex: Integer;
  15993. const AValue: string);
  15994. procedure SetServerRedirectedPreviewUrl(AIndex: Integer;
  15995. const AValue: string);
  15996. procedure SetServerRedirectedUrl(AIndex: Integer; const AValue: string);
  15997. procedure SetSharedWithInternal(AIndex: Integer;
  15998. const AValue: TMicrosoft_SharePoint_Portal_UserProfilesSharedWithMeDocumentUserArray);
  15999. procedure SetSiteId(AIndex: Integer; const AValue: string);
  16000. procedure SetSiteUrl(AIndex: Integer; const AValue: string);
  16001. procedure SetTitle(AIndex: Integer; const AValue: string);
  16002. procedure SetUniqueId(AIndex: Integer; const AValue: string);
  16003. procedure SetUrlPath(AIndex: Integer; const AValue: string);
  16004. procedure SetWebId(AIndex: Integer; const AValue: string);
  16005. protected
  16006. {$IFDEF VER2_6}
  16007. procedure SetArrayLength(const AName: String; ALength: Longint)
  16008. ; Override;
  16009. {$ENDIF VER2_6}
  16010. public
  16011. class function ObjectRestKind : String; Override;
  16012. function KeyAsURLPart : String; Override;
  16013. published
  16014. Property Authors : TMicrosoft_SharePoint_Portal_UserProfilesSharedWithMeDocumentUserArray index 0 read FAuthors write SetAuthors;
  16015. Property ContentTypeId : TSPContentTypeId index 8 read FContentTypeId write SetContentTypeId;
  16016. Property DocId : string index 16 read FDocId write SetDocId;
  16017. Property Editors : TMicrosoft_SharePoint_Portal_UserProfilesSharedWithMeDocumentUserArray index 24 read FEditors write SetEditors;
  16018. Property Extension : string index 32 read FExtension write SetExtension;
  16019. Property FileLeafRef : string index 40 read FFileLeafRef write SetFileLeafRef;
  16020. Property FileRef : string index 48 read FFileRef write SetFileRef;
  16021. Property Id : TInt32 index 56 read FId write SetId;
  16022. Property IsContainer : boolean index 64 read FIsContainer write SetIsContainer;
  16023. Property IsMyDocument : boolean index 72 read FIsMyDocument write SetIsMyDocument;
  16024. Property LinkingUrl : string index 80 read FLinkingUrl write SetLinkingUrl;
  16025. Property ListId : string index 88 read FListId write SetListId;
  16026. Property ListItemId : string index 96 read FListItemId write SetListItemId;
  16027. Property Modified : TDateTime index 104 read FModified write SetModified;
  16028. Property ParentLink : string index 112 read FParentLink write SetParentLink;
  16029. Property ProgId : string index 120 read FProgId write SetProgId;
  16030. Property ServerRedirectedEmbedUrl : string index 128 read FServerRedirectedEmbedUrl write SetServerRedirectedEmbedUrl;
  16031. Property ServerRedirectedPreviewUrl : string index 136 read FServerRedirectedPreviewUrl write SetServerRedirectedPreviewUrl;
  16032. Property ServerRedirectedUrl : string index 144 read FServerRedirectedUrl write SetServerRedirectedUrl;
  16033. Property SharedWithInternal : TMicrosoft_SharePoint_Portal_UserProfilesSharedWithMeDocumentUserArray index 152 read FSharedWithInternal write SetSharedWithInternal;
  16034. Property SiteId : string index 160 read FSiteId write SetSiteId;
  16035. Property SiteUrl : string index 168 read FSiteUrl write SetSiteUrl;
  16036. Property Title : string index 176 read FTitle write SetTitle;
  16037. Property UniqueId : string index 184 read FUniqueId write SetUniqueId;
  16038. Property UrlPath : string index 192 read FUrlPath write SetUrlPath;
  16039. Property WebId : string index 200 read FWebId write SetWebId;
  16040. end;
  16041. { --------------------------------------------------------------------
  16042. Microsoft.SharePoint.Portal.UserProfiles: DocumentsSharedWithMe
  16043. --------------------------------------------------------------------}
  16044. TMicrosoft_SharePoint_Portal_UserProfilesDocumentsSharedWithMe = Class(TODataEntity)
  16045. private
  16046. FId4a81de82eeb94d6080ea5bf63e27023a : string;
  16047. procedure SetId4a81de82eeb94d6080ea5bf63e27023a(AIndex: Integer;
  16048. const AValue: string);
  16049. public
  16050. class function ObjectRestKind : String; Override;
  16051. function KeyAsURLPart : String; Override;
  16052. published
  16053. Property Id4a81de82eeb94d6080ea5bf63e27023a : string index 0 read FId4a81de82eeb94d6080ea5bf63e27023a write SetId4a81de82eeb94d6080ea5bf63e27023a;
  16054. end;
  16055. { --------------------------------------------------------------------
  16056. Microsoft.SharePoint.Portal.UserProfiles: DocumentsSharedWithGroup
  16057. --------------------------------------------------------------------}
  16058. TMicrosoft_SharePoint_Portal_UserProfilesDocumentsSharedWithGroup = Class(TODataEntity)
  16059. private
  16060. FId4a81de82eeb94d6080ea5bf63e27023a : string;
  16061. procedure SetId4a81de82eeb94d6080ea5bf63e27023a(AIndex: Integer;
  16062. const AValue: string);
  16063. public
  16064. class function ObjectRestKind : String; Override;
  16065. function KeyAsURLPart : String; Override;
  16066. published
  16067. Property Id4a81de82eeb94d6080ea5bf63e27023a : string index 0 read FId4a81de82eeb94d6080ea5bf63e27023a write SetId4a81de82eeb94d6080ea5bf63e27023a;
  16068. end;
  16069. { --------------------------------------------------------------------
  16070. Microsoft.SharePoint.Portal.UserProfiles: DocumentsSharedWithPerson
  16071. --------------------------------------------------------------------}
  16072. TMicrosoft_SharePoint_Portal_UserProfilesDocumentsSharedWithPerson = Class(TODataEntity)
  16073. private
  16074. FId4a81de82eeb94d6080ea5bf63e27023a : string;
  16075. procedure SetId4a81de82eeb94d6080ea5bf63e27023a(AIndex: Integer;
  16076. const AValue: string);
  16077. public
  16078. class function ObjectRestKind : String; Override;
  16079. function KeyAsURLPart : String; Override;
  16080. published
  16081. Property Id4a81de82eeb94d6080ea5bf63e27023a : string index 0 read FId4a81de82eeb94d6080ea5bf63e27023a write SetId4a81de82eeb94d6080ea5bf63e27023a;
  16082. end;
  16083. { --------------------------------------------------------------------
  16084. Microsoft.SharePoint.Portal.UserProfiles: PromotedSites
  16085. --------------------------------------------------------------------}
  16086. TMicrosoft_SharePoint_Portal_UserProfilesPromotedSites = Class(TODataEntity)
  16087. private
  16088. FId4a81de82eeb94d6080ea5bf63e27023a : string;
  16089. procedure SetId4a81de82eeb94d6080ea5bf63e27023a(AIndex: Integer;
  16090. const AValue: string);
  16091. public
  16092. class function ObjectRestKind : String; Override;
  16093. function KeyAsURLPart : String; Override;
  16094. published
  16095. Property Id4a81de82eeb94d6080ea5bf63e27023a : string index 0 read FId4a81de82eeb94d6080ea5bf63e27023a write SetId4a81de82eeb94d6080ea5bf63e27023a;
  16096. end;
  16097. { --------------------------------------------------------------------
  16098. Microsoft.SharePoint.Portal.Project: MyRecsCacheBlob
  16099. --------------------------------------------------------------------}
  16100. TMicrosoft_SharePoint_Portal_ProjectMyRecsCacheBlob = Class(TODataEntity)
  16101. private
  16102. FDateCached : TDateTime;
  16103. FFillInQuery : string;
  16104. FFillInSortBy : string;
  16105. FQuery : string;
  16106. FQueryInfo : TMicrosoft_SharePoint_Portal_ProjectMyRecsQueryInfo;
  16107. F_Result : string;
  16108. FSortBy : string;
  16109. procedure SetDateCached(AIndex: Integer; const AValue: TDateTime);
  16110. procedure SetFillInQuery(AIndex: Integer; const AValue: string);
  16111. procedure SetFillInSortBy(AIndex: Integer; const AValue: string);
  16112. procedure SetQuery(AIndex: Integer; const AValue: string);
  16113. procedure SetQueryInfo(AIndex: Integer;
  16114. const AValue: TMicrosoft_SharePoint_Portal_ProjectMyRecsQueryInfo);
  16115. procedure Set_Result(AIndex: Integer; const AValue: string);
  16116. procedure SetSortBy(AIndex: Integer; const AValue: string);
  16117. public
  16118. class function ObjectRestKind : String; Override;
  16119. class function ExportPropertyName(const AName: String) : String
  16120. ; Override;
  16121. published
  16122. Property DateCached : TDateTime index 0 read FDateCached write SetDateCached;
  16123. Property FillInQuery : string index 8 read FFillInQuery write SetFillInQuery;
  16124. Property FillInSortBy : string index 16 read FFillInSortBy write SetFillInSortBy;
  16125. Property Query : string index 24 read FQuery write SetQuery;
  16126. Property QueryInfo : TMicrosoft_SharePoint_Portal_ProjectMyRecsQueryInfo index 32 read FQueryInfo write SetQueryInfo;
  16127. Property _Result : string index 40 read F_Result write Set_Result;
  16128. Property SortBy : string index 48 read FSortBy write SetSortBy;
  16129. end;
  16130. { --------------------------------------------------------------------
  16131. Microsoft.SharePoint.Portal.Project: MyRecsQueryInfo
  16132. --------------------------------------------------------------------}
  16133. TMicrosoft_SharePoint_Portal_ProjectMyRecsQueryInfo = Class(TODataEntity)
  16134. private
  16135. FCategory : TInt32;
  16136. FExpertiseTags : TStringArray;
  16137. FFollowedUrls : TStringArray;
  16138. FInterestTags : TStringArray;
  16139. FQueryInfoExists : boolean;
  16140. FSuggestedTags : TStringArray;
  16141. procedure SetCategory(AIndex: Integer; const AValue: TInt32);
  16142. procedure SetExpertiseTags(AIndex: Integer; const AValue: TStringArray);
  16143. procedure SetFollowedUrls(AIndex: Integer; const AValue: TStringArray);
  16144. procedure SetInterestTags(AIndex: Integer; const AValue: TStringArray);
  16145. procedure SetQueryInfoExists(AIndex: Integer; const AValue: boolean);
  16146. procedure SetSuggestedTags(AIndex: Integer; const AValue: TStringArray);
  16147. protected
  16148. {$IFDEF VER2_6}
  16149. procedure SetArrayLength(const AName: String; ALength: Longint)
  16150. ; Override;
  16151. {$ENDIF VER2_6}
  16152. public
  16153. class function ObjectRestKind : String; Override;
  16154. published
  16155. Property Category : TInt32 index 0 read FCategory write SetCategory;
  16156. Property ExpertiseTags : TStringArray index 8 read FExpertiseTags write SetExpertiseTags;
  16157. Property FollowedUrls : TStringArray index 16 read FFollowedUrls write SetFollowedUrls;
  16158. Property InterestTags : TStringArray index 24 read FInterestTags write SetInterestTags;
  16159. Property QueryInfoExists : boolean index 32 read FQueryInfoExists write SetQueryInfoExists;
  16160. Property SuggestedTags : TStringArray index 40 read FSuggestedTags write SetSuggestedTags;
  16161. end;
  16162. { --------------------------------------------------------------------
  16163. SP.SiteHealth: SiteHealthResult
  16164. --------------------------------------------------------------------}
  16165. TSP_SiteHealthSiteHealthResult = Class(TODataEntity)
  16166. private
  16167. FMessageAsText : string;
  16168. FRuleHelpLink : string;
  16169. FRuleId : TGUIDString;
  16170. FRuleIsRepairable : boolean;
  16171. FRuleName : string;
  16172. FStatus : TInt32;
  16173. FTimeStamp : TDateTime;
  16174. procedure SetMessageAsText(AIndex: Integer; const AValue: string);
  16175. procedure SetRuleHelpLink(AIndex: Integer; const AValue: string);
  16176. procedure SetRuleId(AIndex: Integer; const AValue: TGUIDString);
  16177. procedure SetRuleIsRepairable(AIndex: Integer; const AValue: boolean);
  16178. procedure SetRuleName(AIndex: Integer; const AValue: string);
  16179. procedure SetStatus(AIndex: Integer; const AValue: TInt32);
  16180. procedure SetTimeStamp(AIndex: Integer; const AValue: TDateTime);
  16181. public
  16182. class function ObjectRestKind : String; Override;
  16183. published
  16184. Property MessageAsText : string index 0 read FMessageAsText write SetMessageAsText;
  16185. Property RuleHelpLink : string index 8 read FRuleHelpLink write SetRuleHelpLink;
  16186. Property RuleId : TGUIDString index 16 read FRuleId write SetRuleId;
  16187. Property RuleIsRepairable : boolean index 24 read FRuleIsRepairable write SetRuleIsRepairable;
  16188. Property RuleName : string index 32 read FRuleName write SetRuleName;
  16189. Property Status : TInt32 index 40 read FStatus write SetStatus;
  16190. Property TimeStamp : TDateTime index 48 read FTimeStamp write SetTimeStamp;
  16191. end;
  16192. { --------------------------------------------------------------------
  16193. SP.SiteHealth: SiteHealthSummary
  16194. --------------------------------------------------------------------}
  16195. TSP_SiteHealthSiteHealthSummary = Class(TODataEntity)
  16196. private
  16197. FFailedErrorCount : TInt32;
  16198. FFailedWarningCount : TInt32;
  16199. FPassedCount : TInt32;
  16200. FResults : TSP_SiteHealthSiteHealthResultArray;
  16201. procedure SetFailedErrorCount(AIndex: Integer; const AValue: TInt32);
  16202. procedure SetFailedWarningCount(AIndex: Integer; const AValue: TInt32);
  16203. procedure SetPassedCount(AIndex: Integer; const AValue: TInt32);
  16204. procedure SetResults(AIndex: Integer;
  16205. const AValue: TSP_SiteHealthSiteHealthResultArray);
  16206. protected
  16207. {$IFDEF VER2_6}
  16208. procedure SetArrayLength(const AName: String; ALength: Longint)
  16209. ; Override;
  16210. {$ENDIF VER2_6}
  16211. public
  16212. class function ObjectRestKind : String; Override;
  16213. function KeyAsURLPart : String; Override;
  16214. published
  16215. Property FailedErrorCount : TInt32 index 0 read FFailedErrorCount write SetFailedErrorCount;
  16216. Property FailedWarningCount : TInt32 index 8 read FFailedWarningCount write SetFailedWarningCount;
  16217. Property PassedCount : TInt32 index 16 read FPassedCount write SetPassedCount;
  16218. Property Results : TSP_SiteHealthSiteHealthResultArray index 24 read FResults write SetResults;
  16219. end;
  16220. { --------------------------------------------------------------------
  16221. Microsoft.SharePoint.Administration: UsageEntry
  16222. --------------------------------------------------------------------}
  16223. TMicrosoft_SharePoint_AdministrationUsageEntry = Class(TODataEntity)
  16224. private
  16225. FEventTypeId : TInt32;
  16226. FItemId : string;
  16227. FScopeId : TGUIDString;
  16228. FSite : TGUIDString;
  16229. FUser : string;
  16230. procedure SetEventTypeId(AIndex: Integer; const AValue: TInt32);
  16231. procedure SetItemId(AIndex: Integer; const AValue: string);
  16232. procedure SetScopeId(AIndex: Integer; const AValue: TGUIDString);
  16233. procedure SetSite(AIndex: Integer; const AValue: TGUIDString);
  16234. procedure SetUser(AIndex: Integer; const AValue: string);
  16235. public
  16236. class function ObjectRestKind : String; Override;
  16237. published
  16238. Property EventTypeId : TInt32 index 0 read FEventTypeId write SetEventTypeId;
  16239. Property ItemId : string index 8 read FItemId write SetItemId;
  16240. Property ScopeId : TGUIDString index 16 read FScopeId write SetScopeId;
  16241. Property Site : TGUIDString index 24 read FSite write SetSite;
  16242. Property User : string index 32 read FUser write SetUser;
  16243. end;
  16244. { --------------------------------------------------------------------
  16245. Microsoft.SharePoint.Administration: SPAppStateQueryJobDefinition
  16246. --------------------------------------------------------------------}
  16247. TMicrosoft_SharePoint_AdministrationSPAppStateQueryJobDefinition = Class(TODataEntity)
  16248. private
  16249. FId4a81de82eeb94d6080ea5bf63e27023a : string;
  16250. procedure SetId4a81de82eeb94d6080ea5bf63e27023a(AIndex: Integer;
  16251. const AValue: string);
  16252. public
  16253. class function ObjectRestKind : String; Override;
  16254. function KeyAsURLPart : String; Override;
  16255. published
  16256. Property Id4a81de82eeb94d6080ea5bf63e27023a : string index 0 read FId4a81de82eeb94d6080ea5bf63e27023a write SetId4a81de82eeb94d6080ea5bf63e27023a;
  16257. end;
  16258. { --------------------------------------------------------------------
  16259. Microsoft.SharePoint.Administration: SPFarm
  16260. --------------------------------------------------------------------}
  16261. TMicrosoft_SharePoint_AdministrationSPFarm = Class(TODataEntity)
  16262. private
  16263. FId : TGUIDString;
  16264. procedure SetId(AIndex: Integer; const AValue: TGUIDString);
  16265. public
  16266. class function ObjectRestKind : String; Override;
  16267. function KeyAsURLPart : String; Override;
  16268. function Local(AService: TODataService)
  16269. : TMicrosoft_SharePoint_AdministrationSPFarm;
  16270. published
  16271. Property Id : TGUIDString index 0 read FId write SetId;
  16272. end;
  16273. { --------------------------------------------------------------------
  16274. Microsoft.SharePoint.Administration: FeatureDefinition
  16275. --------------------------------------------------------------------}
  16276. TMicrosoft_SharePoint_AdministrationFeatureDefinition = Class(TODataEntity)
  16277. private
  16278. FDisplayName : string;
  16279. FId : TGUIDString;
  16280. procedure SetDisplayName(AIndex: Integer; const AValue: string);
  16281. procedure SetId(AIndex: Integer; const AValue: TGUIDString);
  16282. public
  16283. class function ObjectRestKind : String; Override;
  16284. function KeyAsURLPart : String; Override;
  16285. published
  16286. Property DisplayName : string index 0 read FDisplayName write SetDisplayName;
  16287. Property Id : TGUIDString index 8 read FId write SetId;
  16288. end;
  16289. { --------------------------------------------------------------------
  16290. Microsoft.SharePoint.Administration: SPTenantAppInstanceData
  16291. --------------------------------------------------------------------}
  16292. TMicrosoft_SharePoint_AdministrationSPTenantAppInstanceData = Class(TODataEntity)
  16293. private
  16294. FId4a81de82eeb94d6080ea5bf63e27023a : string;
  16295. procedure SetId4a81de82eeb94d6080ea5bf63e27023a(AIndex: Integer;
  16296. const AValue: string);
  16297. public
  16298. class function ObjectRestKind : String; Override;
  16299. function KeyAsURLPart : String; Override;
  16300. published
  16301. Property Id4a81de82eeb94d6080ea5bf63e27023a : string index 0 read FId4a81de82eeb94d6080ea5bf63e27023a write SetId4a81de82eeb94d6080ea5bf63e27023a;
  16302. end;
  16303. { --------------------------------------------------------------------
  16304. Microsoft.SharePoint.Administration: SPWebApplication
  16305. --------------------------------------------------------------------}
  16306. TMicrosoft_SharePoint_AdministrationSPWebApplication = Class(TODataEntity)
  16307. private
  16308. FDisplayName : string;
  16309. FId : TGUIDString;
  16310. FOutboundMailPort : TInt32;
  16311. FOutboundMailReplyToAddress : string;
  16312. FOutboundMailSenderAddress : string;
  16313. procedure SetDisplayName(AIndex: Integer; const AValue: string);
  16314. procedure SetId(AIndex: Integer; const AValue: TGUIDString);
  16315. procedure SetOutboundMailPort(AIndex: Integer; const AValue: TInt32);
  16316. procedure SetOutboundMailReplyToAddress(AIndex: Integer;
  16317. const AValue: string);
  16318. procedure SetOutboundMailSenderAddress(AIndex: Integer;
  16319. const AValue: string);
  16320. public
  16321. class function ObjectRestKind : String; Override;
  16322. function KeyAsURLPart : String; Override;
  16323. function Sites(AService: TODataService) : TSPSite;
  16324. published
  16325. Property DisplayName : string index 0 read FDisplayName write SetDisplayName;
  16326. Property Id : TGUIDString index 8 read FId write SetId;
  16327. Property OutboundMailPort : TInt32 index 16 read FOutboundMailPort write SetOutboundMailPort;
  16328. Property OutboundMailReplyToAddress : string index 24 read FOutboundMailReplyToAddress write SetOutboundMailReplyToAddress;
  16329. Property OutboundMailSenderAddress : string index 32 read FOutboundMailSenderAddress write SetOutboundMailSenderAddress;
  16330. end;
  16331. { --------------------------------------------------------------------
  16332. Microsoft.SharePoint.Administration: SPWebService
  16333. --------------------------------------------------------------------}
  16334. TMicrosoft_SharePoint_AdministrationSPWebService = Class(TODataEntity)
  16335. private
  16336. FId4a81de82eeb94d6080ea5bf63e27023a : string;
  16337. procedure SetId4a81de82eeb94d6080ea5bf63e27023a(AIndex: Integer;
  16338. const AValue: string);
  16339. public
  16340. class function ObjectRestKind : String; Override;
  16341. function KeyAsURLPart : String; Override;
  16342. function ContentService(AService: TODataService)
  16343. : TMicrosoft_SharePoint_AdministrationSPWebService;
  16344. function WebApplications(AService: TODataService)
  16345. : TMicrosoft_SharePoint_AdministrationSPWebApplication;
  16346. published
  16347. Property Id4a81de82eeb94d6080ea5bf63e27023a : string index 0 read FId4a81de82eeb94d6080ea5bf63e27023a write SetId4a81de82eeb94d6080ea5bf63e27023a;
  16348. end;
  16349. { --------------------------------------------------------------------
  16350. Microsoft.SharePoint.Administration: SPAnalyticsUsageService
  16351. --------------------------------------------------------------------}
  16352. TMicrosoft_SharePoint_AdministrationSPAnalyticsUsageService = Class(TODataEntity)
  16353. private
  16354. FId4a81de82eeb94d6080ea5bf63e27023a : string;
  16355. procedure SetId4a81de82eeb94d6080ea5bf63e27023a(AIndex: Integer;
  16356. const AValue: string);
  16357. public
  16358. class function ObjectRestKind : String; Override;
  16359. function KeyAsURLPart : String; Override;
  16360. published
  16361. Property Id4a81de82eeb94d6080ea5bf63e27023a : string index 0 read FId4a81de82eeb94d6080ea5bf63e27023a write SetId4a81de82eeb94d6080ea5bf63e27023a;
  16362. end;
  16363. { --------------------------------------------------------------------
  16364. SP.UI.ApplicationPages: ClientPeoplePickerQueryParameters
  16365. --------------------------------------------------------------------}
  16366. TSP_UI_ApplicationPagesClientPeoplePickerQueryParameters = Class(TODataEntity)
  16367. private
  16368. FAllowEmailAddresses : boolean;
  16369. FAllowMultipleEntities : boolean;
  16370. FAllUrlZones : boolean;
  16371. FEnabledClaimProviders : string;
  16372. FForceClaims : boolean;
  16373. FMaximumEntitySuggestions : TInt32;
  16374. FPrincipalSource : TInt32;
  16375. FPrincipalType : TInt32;
  16376. FQueryString : string;
  16377. FRequired : boolean;
  16378. FSharePointGroupID : TInt32;
  16379. FUrlZone : TInt32;
  16380. FUrlZoneSpecified : boolean;
  16381. FWebApplicationID : TGUIDString;
  16382. procedure SetAllowEmailAddresses(AIndex: Integer; const AValue: boolean);
  16383. procedure SetAllowMultipleEntities(AIndex: Integer;
  16384. const AValue: boolean);
  16385. procedure SetAllUrlZones(AIndex: Integer; const AValue: boolean);
  16386. procedure SetEnabledClaimProviders(AIndex: Integer;
  16387. const AValue: string);
  16388. procedure SetForceClaims(AIndex: Integer; const AValue: boolean);
  16389. procedure SetMaximumEntitySuggestions(AIndex: Integer;
  16390. const AValue: TInt32);
  16391. procedure SetPrincipalSource(AIndex: Integer; const AValue: TInt32);
  16392. procedure SetPrincipalType(AIndex: Integer; const AValue: TInt32);
  16393. procedure SetQueryString(AIndex: Integer; const AValue: string);
  16394. procedure SetRequired(AIndex: Integer; const AValue: boolean);
  16395. procedure SetSharePointGroupID(AIndex: Integer; const AValue: TInt32);
  16396. procedure SetUrlZone(AIndex: Integer; const AValue: TInt32);
  16397. procedure SetUrlZoneSpecified(AIndex: Integer; const AValue: boolean);
  16398. procedure SetWebApplicationID(AIndex: Integer;
  16399. const AValue: TGUIDString);
  16400. public
  16401. class function ObjectRestKind : String; Override;
  16402. published
  16403. Property AllowEmailAddresses : boolean index 0 read FAllowEmailAddresses write SetAllowEmailAddresses;
  16404. Property AllowMultipleEntities : boolean index 8 read FAllowMultipleEntities write SetAllowMultipleEntities;
  16405. Property AllUrlZones : boolean index 16 read FAllUrlZones write SetAllUrlZones;
  16406. Property EnabledClaimProviders : string index 24 read FEnabledClaimProviders write SetEnabledClaimProviders;
  16407. Property ForceClaims : boolean index 32 read FForceClaims write SetForceClaims;
  16408. Property MaximumEntitySuggestions : TInt32 index 40 read FMaximumEntitySuggestions write SetMaximumEntitySuggestions;
  16409. Property PrincipalSource : TInt32 index 48 read FPrincipalSource write SetPrincipalSource;
  16410. Property PrincipalType : TInt32 index 56 read FPrincipalType write SetPrincipalType;
  16411. Property QueryString : string index 64 read FQueryString write SetQueryString;
  16412. Property Required : boolean index 72 read FRequired write SetRequired;
  16413. Property SharePointGroupID : TInt32 index 80 read FSharePointGroupID write SetSharePointGroupID;
  16414. Property UrlZone : TInt32 index 88 read FUrlZone write SetUrlZone;
  16415. Property UrlZoneSpecified : boolean index 96 read FUrlZoneSpecified write SetUrlZoneSpecified;
  16416. Property WebApplicationID : TGUIDString index 104 read FWebApplicationID write SetWebApplicationID;
  16417. end;
  16418. { --------------------------------------------------------------------
  16419. SP.UI.ApplicationPages: ClientPeoplePickerWebServiceInterface
  16420. --------------------------------------------------------------------}
  16421. TSP_UI_ApplicationPagesClientPeoplePickerWebServiceInterface = Class(TODataEntity)
  16422. private
  16423. FId4a81de82eeb94d6080ea5bf63e27023a : string;
  16424. procedure SetId4a81de82eeb94d6080ea5bf63e27023a(AIndex: Integer;
  16425. const AValue: string);
  16426. public
  16427. class function ObjectRestKind : String; Override;
  16428. function KeyAsURLPart : String; Override;
  16429. published
  16430. Property Id4a81de82eeb94d6080ea5bf63e27023a : string index 0 read FId4a81de82eeb94d6080ea5bf63e27023a write SetId4a81de82eeb94d6080ea5bf63e27023a;
  16431. end;
  16432. { --------------------------------------------------------------------
  16433. SP.PageInstrumentation: PageImpressionClient
  16434. --------------------------------------------------------------------}
  16435. TSP_PageInstrumentationPageImpressionClient = Class(TODataEntity)
  16436. private
  16437. FBasePageCorrelationId : string;
  16438. FClientIdToClickInfoMap : TSPKeyValueArray;
  16439. procedure SetBasePageCorrelationId(AIndex: Integer;
  16440. const AValue: string);
  16441. procedure SetClientIdToClickInfoMap(AIndex: Integer;
  16442. const AValue: TSPKeyValueArray);
  16443. protected
  16444. {$IFDEF VER2_6}
  16445. procedure SetArrayLength(const AName: String; ALength: Longint)
  16446. ; Override;
  16447. {$ENDIF VER2_6}
  16448. public
  16449. class function ObjectRestKind : String; Override;
  16450. published
  16451. Property BasePageCorrelationId : string index 0 read FBasePageCorrelationId write SetBasePageCorrelationId;
  16452. Property ClientIdToClickInfoMap : TSPKeyValueArray index 8 read FClientIdToClickInfoMap write SetClientIdToClickInfoMap;
  16453. end;
  16454. { --------------------------------------------------------------------
  16455. SP.PageInstrumentation: ClickManager
  16456. --------------------------------------------------------------------}
  16457. TSP_PageInstrumentationClickManager = Class(TODataEntity)
  16458. private
  16459. FId4a81de82eeb94d6080ea5bf63e27023a : string;
  16460. procedure SetId4a81de82eeb94d6080ea5bf63e27023a(AIndex: Integer;
  16461. const AValue: string);
  16462. public
  16463. class function ObjectRestKind : String; Override;
  16464. function KeyAsURLPart : String; Override;
  16465. published
  16466. Property Id4a81de82eeb94d6080ea5bf63e27023a : string index 0 read FId4a81de82eeb94d6080ea5bf63e27023a write SetId4a81de82eeb94d6080ea5bf63e27023a;
  16467. end;
  16468. { --------------------------------------------------------------------
  16469. SP.Utilities: EmailProperties
  16470. --------------------------------------------------------------------}
  16471. TSP_UtilitiesEmailProperties = Class(TODataEntity)
  16472. private
  16473. FAdditionalHeaders : TSPKeyValueArray;
  16474. FBCC : TStringArray;
  16475. FBody : string;
  16476. FCC : TStringArray;
  16477. FFrom : string;
  16478. FSubject : string;
  16479. F_To : TStringArray;
  16480. procedure SetAdditionalHeaders(AIndex: Integer;
  16481. const AValue: TSPKeyValueArray);
  16482. procedure SetBCC(AIndex: Integer; const AValue: TStringArray);
  16483. procedure SetBody(AIndex: Integer; const AValue: string);
  16484. procedure SetCC(AIndex: Integer; const AValue: TStringArray);
  16485. procedure SetFrom(AIndex: Integer; const AValue: string);
  16486. procedure SetSubject(AIndex: Integer; const AValue: string);
  16487. procedure Set_To(AIndex: Integer; const AValue: TStringArray);
  16488. protected
  16489. {$IFDEF VER2_6}
  16490. procedure SetArrayLength(const AName: String; ALength: Longint)
  16491. ; Override;
  16492. {$ENDIF VER2_6}
  16493. public
  16494. class function ObjectRestKind : String; Override;
  16495. class function ExportPropertyName(const AName: String) : String
  16496. ; Override;
  16497. published
  16498. Property AdditionalHeaders : TSPKeyValueArray index 0 read FAdditionalHeaders write SetAdditionalHeaders;
  16499. Property BCC : TStringArray index 8 read FBCC write SetBCC;
  16500. Property Body : string index 16 read FBody write SetBody;
  16501. Property CC : TStringArray index 24 read FCC write SetCC;
  16502. Property From : string index 32 read FFrom write SetFrom;
  16503. Property Subject : string index 40 read FSubject write SetSubject;
  16504. Property _To : TStringArray index 48 read F_To write Set_To;
  16505. end;
  16506. { --------------------------------------------------------------------
  16507. SP.Utilities: PrincipalInfo
  16508. --------------------------------------------------------------------}
  16509. TSP_UtilitiesPrincipalInfo = Class(TODataEntity)
  16510. private
  16511. FDepartment : string;
  16512. FDisplayName : string;
  16513. FEmail : string;
  16514. FJobTitle : string;
  16515. FLoginName : string;
  16516. FMobile : string;
  16517. FPrincipalId : TInt32;
  16518. FPrincipalType : TInt32;
  16519. FSIPAddress : string;
  16520. procedure SetDepartment(AIndex: Integer; const AValue: string);
  16521. procedure SetDisplayName(AIndex: Integer; const AValue: string);
  16522. procedure SetEmail(AIndex: Integer; const AValue: string);
  16523. procedure SetJobTitle(AIndex: Integer; const AValue: string);
  16524. procedure SetLoginName(AIndex: Integer; const AValue: string);
  16525. procedure SetMobile(AIndex: Integer; const AValue: string);
  16526. procedure SetPrincipalId(AIndex: Integer; const AValue: TInt32);
  16527. procedure SetPrincipalType(AIndex: Integer; const AValue: TInt32);
  16528. procedure SetSIPAddress(AIndex: Integer; const AValue: string);
  16529. public
  16530. class function ObjectRestKind : String; Override;
  16531. published
  16532. Property Department : string index 0 read FDepartment write SetDepartment;
  16533. Property DisplayName : string index 8 read FDisplayName write SetDisplayName;
  16534. Property Email : string index 16 read FEmail write SetEmail;
  16535. Property JobTitle : string index 24 read FJobTitle write SetJobTitle;
  16536. Property LoginName : string index 32 read FLoginName write SetLoginName;
  16537. Property Mobile : string index 40 read FMobile write SetMobile;
  16538. Property PrincipalId : TInt32 index 48 read FPrincipalId write SetPrincipalId;
  16539. Property PrincipalType : TInt32 index 56 read FPrincipalType write SetPrincipalType;
  16540. Property SIPAddress : string index 64 read FSIPAddress write SetSIPAddress;
  16541. end;
  16542. { --------------------------------------------------------------------
  16543. SP.Utilities: WikiPageCreationInformation
  16544. --------------------------------------------------------------------}
  16545. TSP_UtilitiesWikiPageCreationInformation = Class(TODataEntity)
  16546. private
  16547. FServerRelativeUrl : string;
  16548. FWikiHtmlContent : string;
  16549. procedure SetServerRelativeUrl(AIndex: Integer; const AValue: string);
  16550. procedure SetWikiHtmlContent(AIndex: Integer; const AValue: string);
  16551. public
  16552. class function ObjectRestKind : String; Override;
  16553. published
  16554. Property ServerRelativeUrl : string index 0 read FServerRelativeUrl write SetServerRelativeUrl;
  16555. Property WikiHtmlContent : string index 8 read FWikiHtmlContent write SetWikiHtmlContent;
  16556. end;
  16557. { --------------------------------------------------------------------
  16558. SP.Utilities: MarketplaceUtilities
  16559. --------------------------------------------------------------------}
  16560. TSP_UtilitiesMarketplaceUtilities = Class(TODataEntity)
  16561. private
  16562. FId4a81de82eeb94d6080ea5bf63e27023a : string;
  16563. procedure SetId4a81de82eeb94d6080ea5bf63e27023a(AIndex: Integer;
  16564. const AValue: string);
  16565. public
  16566. class function ObjectRestKind : String; Override;
  16567. function KeyAsURLPart : String; Override;
  16568. published
  16569. Property Id4a81de82eeb94d6080ea5bf63e27023a : string index 0 read FId4a81de82eeb94d6080ea5bf63e27023a write SetId4a81de82eeb94d6080ea5bf63e27023a;
  16570. end;
  16571. { --------------------------------------------------------------------
  16572. SP.Utilities: Utility
  16573. --------------------------------------------------------------------}
  16574. TSP_UtilitiesUtility = Class(TODataEntity)
  16575. private
  16576. FId4a81de82eeb94d6080ea5bf63e27023a : string;
  16577. procedure SetId4a81de82eeb94d6080ea5bf63e27023a(AIndex: Integer;
  16578. const AValue: string);
  16579. public
  16580. class function ObjectRestKind : String; Override;
  16581. function KeyAsURLPart : String; Override;
  16582. published
  16583. Property Id4a81de82eeb94d6080ea5bf63e27023a : string index 0 read FId4a81de82eeb94d6080ea5bf63e27023a write SetId4a81de82eeb94d6080ea5bf63e27023a;
  16584. end;
  16585. { --------------------------------------------------------------------
  16586. SP.WebParts: TileData
  16587. --------------------------------------------------------------------}
  16588. TSP_WebPartsTileData = Class(TODataEntity)
  16589. private
  16590. FBackgroundCollageImageLocations : TStringArray;
  16591. FBackgroundImageLocation : string;
  16592. FBackgroundImageRendersAsIcon : boolean;
  16593. FBodyText : string;
  16594. FDescription : string;
  16595. FHoverDisabled : boolean;
  16596. FID : TInt32;
  16597. FIsWide : boolean;
  16598. FLinkLocation : string;
  16599. FTileOrder : TInt32;
  16600. FTitle : string;
  16601. FTransparentOverlay : boolean;
  16602. procedure SetBackgroundCollageImageLocations(AIndex: Integer;
  16603. const AValue: TStringArray);
  16604. procedure SetBackgroundImageLocation(AIndex: Integer;
  16605. const AValue: string);
  16606. procedure SetBackgroundImageRendersAsIcon(AIndex: Integer;
  16607. const AValue: boolean);
  16608. procedure SetBodyText(AIndex: Integer; const AValue: string);
  16609. procedure SetDescription(AIndex: Integer; const AValue: string);
  16610. procedure SetHoverDisabled(AIndex: Integer; const AValue: boolean);
  16611. procedure SetID(AIndex: Integer; const AValue: TInt32);
  16612. procedure SetIsWide(AIndex: Integer; const AValue: boolean);
  16613. procedure SetLinkLocation(AIndex: Integer; const AValue: string);
  16614. procedure SetTileOrder(AIndex: Integer; const AValue: TInt32);
  16615. procedure SetTitle(AIndex: Integer; const AValue: string);
  16616. procedure SetTransparentOverlay(AIndex: Integer; const AValue: boolean);
  16617. protected
  16618. {$IFDEF VER2_6}
  16619. procedure SetArrayLength(const AName: String; ALength: Longint)
  16620. ; Override;
  16621. {$ENDIF VER2_6}
  16622. public
  16623. class function ObjectRestKind : String; Override;
  16624. published
  16625. Property BackgroundCollageImageLocations : TStringArray index 0 read FBackgroundCollageImageLocations write SetBackgroundCollageImageLocations;
  16626. Property BackgroundImageLocation : string index 8 read FBackgroundImageLocation write SetBackgroundImageLocation;
  16627. Property BackgroundImageRendersAsIcon : boolean index 16 read FBackgroundImageRendersAsIcon write SetBackgroundImageRendersAsIcon;
  16628. Property BodyText : string index 24 read FBodyText write SetBodyText;
  16629. Property Description : string index 32 read FDescription write SetDescription;
  16630. Property HoverDisabled : boolean index 40 read FHoverDisabled write SetHoverDisabled;
  16631. Property ID : TInt32 index 48 read FID write SetID;
  16632. Property IsWide : boolean index 56 read FIsWide write SetIsWide;
  16633. Property LinkLocation : string index 64 read FLinkLocation write SetLinkLocation;
  16634. Property TileOrder : TInt32 index 72 read FTileOrder write SetTileOrder;
  16635. Property Title : string index 80 read FTitle write SetTitle;
  16636. Property TransparentOverlay : boolean index 88 read FTransparentOverlay write SetTransparentOverlay;
  16637. end;
  16638. { --------------------------------------------------------------------
  16639. SP.WebParts: LimitedWebPartManager
  16640. --------------------------------------------------------------------}
  16641. TSP_WebPartsLimitedWebPartManager = Class(TODataEntity)
  16642. private
  16643. FHasPersonalizedParts : boolean;
  16644. FScope : TInt32;
  16645. procedure SetHasPersonalizedParts(AIndex: Integer;
  16646. const AValue: boolean);
  16647. procedure SetScope(AIndex: Integer; const AValue: TInt32);
  16648. public
  16649. class function ObjectRestKind : String; Override;
  16650. function KeyAsURLPart : String; Override;
  16651. function WebParts(AService: TODataService)
  16652. : TSP_WebPartsWebPartDefinition;
  16653. published
  16654. Property HasPersonalizedParts : boolean index 0 read FHasPersonalizedParts write SetHasPersonalizedParts;
  16655. Property Scope : TInt32 index 8 read FScope write SetScope;
  16656. end;
  16657. { --------------------------------------------------------------------
  16658. SP.WebParts: WebPartDefinition
  16659. --------------------------------------------------------------------}
  16660. TSP_WebPartsWebPartDefinition = Class(TODataEntity)
  16661. private
  16662. FId : TGUIDString;
  16663. procedure SetId(AIndex: Integer; const AValue: TGUIDString);
  16664. public
  16665. class function ObjectRestKind : String; Override;
  16666. function KeyAsURLPart : String; Override;
  16667. function WebPart(AService: TODataService) : TSP_WebPartsWebPart;
  16668. published
  16669. Property Id : TGUIDString index 0 read FId write SetId;
  16670. end;
  16671. { --------------------------------------------------------------------
  16672. SP.WebParts: WebPart
  16673. --------------------------------------------------------------------}
  16674. TSP_WebPartsWebPart = Class(TODataEntity)
  16675. private
  16676. FHidden : boolean;
  16677. FIsClosed : boolean;
  16678. FSubtitle : string;
  16679. FTitle : string;
  16680. FTitleUrl : string;
  16681. FZoneIndex : TInt32;
  16682. procedure SetHidden(AIndex: Integer; const AValue: boolean);
  16683. procedure SetIsClosed(AIndex: Integer; const AValue: boolean);
  16684. procedure SetSubtitle(AIndex: Integer; const AValue: string);
  16685. procedure SetTitle(AIndex: Integer; const AValue: string);
  16686. procedure SetTitleUrl(AIndex: Integer; const AValue: string);
  16687. procedure SetZoneIndex(AIndex: Integer; const AValue: TInt32);
  16688. public
  16689. class function ObjectRestKind : String; Override;
  16690. function KeyAsURLPart : String; Override;
  16691. function Properties(AService: TODataService) : TSPPropertyValues;
  16692. published
  16693. Property Hidden : boolean index 0 read FHidden write SetHidden;
  16694. Property IsClosed : boolean index 8 read FIsClosed write SetIsClosed;
  16695. Property Subtitle : string index 16 read FSubtitle write SetSubtitle;
  16696. Property Title : string index 24 read FTitle write SetTitle;
  16697. Property TitleUrl : string index 32 read FTitleUrl write SetTitleUrl;
  16698. Property ZoneIndex : TInt32 index 40 read FZoneIndex write SetZoneIndex;
  16699. end;
  16700. { --------------------------------------------------------------------
  16701. SP.Workflow: WorkflowAssociationCreationInformation
  16702. --------------------------------------------------------------------}
  16703. TSP_WorkflowWorkflowAssociationCreationInformation = Class(TODataEntity)
  16704. private
  16705. FContentTypeAssociationHistoryListName : string;
  16706. FContentTypeAssociationTaskListName : string;
  16707. FName : string;
  16708. procedure SetContentTypeAssociationHistoryListName(AIndex: Integer;
  16709. const AValue: string);
  16710. procedure SetContentTypeAssociationTaskListName(AIndex: Integer;
  16711. const AValue: string);
  16712. procedure SetName(AIndex: Integer; const AValue: string);
  16713. public
  16714. class function ObjectRestKind : String; Override;
  16715. published
  16716. Property ContentTypeAssociationHistoryListName : string index 0 read FContentTypeAssociationHistoryListName write SetContentTypeAssociationHistoryListName;
  16717. Property ContentTypeAssociationTaskListName : string index 8 read FContentTypeAssociationTaskListName write SetContentTypeAssociationTaskListName;
  16718. Property Name : string index 16 read FName write SetName;
  16719. end;
  16720. { --------------------------------------------------------------------
  16721. SP.Workflow: WorkflowAssociation
  16722. --------------------------------------------------------------------}
  16723. TSP_WorkflowWorkflowAssociation = Class(TODataEntity)
  16724. private
  16725. FAllowManual : boolean;
  16726. FAssociationData : string;
  16727. FAutoStartChange : boolean;
  16728. FAutoStartCreate : boolean;
  16729. FBaseId : TGUIDString;
  16730. FCreated : TDateTime;
  16731. FDescription : string;
  16732. FEnabled : boolean;
  16733. FHistoryListTitle : string;
  16734. FId : TGUIDString;
  16735. FInstantiationUrl : string;
  16736. FInternalName : string;
  16737. FIsDeclarative : boolean;
  16738. FListId : TGUIDString;
  16739. FModified : TDateTime;
  16740. FName : string;
  16741. FTaskListTitle : string;
  16742. FWebId : TGUIDString;
  16743. procedure SetAllowManual(AIndex: Integer; const AValue: boolean);
  16744. procedure SetAssociationData(AIndex: Integer; const AValue: string);
  16745. procedure SetAutoStartChange(AIndex: Integer; const AValue: boolean);
  16746. procedure SetAutoStartCreate(AIndex: Integer; const AValue: boolean);
  16747. procedure SetBaseId(AIndex: Integer; const AValue: TGUIDString);
  16748. procedure SetCreated(AIndex: Integer; const AValue: TDateTime);
  16749. procedure SetDescription(AIndex: Integer; const AValue: string);
  16750. procedure SetEnabled(AIndex: Integer; const AValue: boolean);
  16751. procedure SetHistoryListTitle(AIndex: Integer; const AValue: string);
  16752. procedure SetId(AIndex: Integer; const AValue: TGUIDString);
  16753. procedure SetInstantiationUrl(AIndex: Integer; const AValue: string);
  16754. procedure SetInternalName(AIndex: Integer; const AValue: string);
  16755. procedure SetIsDeclarative(AIndex: Integer; const AValue: boolean);
  16756. procedure SetListId(AIndex: Integer; const AValue: TGUIDString);
  16757. procedure SetModified(AIndex: Integer; const AValue: TDateTime);
  16758. procedure SetName(AIndex: Integer; const AValue: string);
  16759. procedure SetTaskListTitle(AIndex: Integer; const AValue: string);
  16760. procedure SetWebId(AIndex: Integer; const AValue: TGUIDString);
  16761. public
  16762. class function ObjectRestKind : String; Override;
  16763. function KeyAsURLPart : String; Override;
  16764. published
  16765. Property AllowManual : boolean index 0 read FAllowManual write SetAllowManual;
  16766. Property AssociationData : string index 8 read FAssociationData write SetAssociationData;
  16767. Property AutoStartChange : boolean index 16 read FAutoStartChange write SetAutoStartChange;
  16768. Property AutoStartCreate : boolean index 24 read FAutoStartCreate write SetAutoStartCreate;
  16769. Property BaseId : TGUIDString index 32 read FBaseId write SetBaseId;
  16770. Property Created : TDateTime index 40 read FCreated write SetCreated;
  16771. Property Description : string index 48 read FDescription write SetDescription;
  16772. Property Enabled : boolean index 56 read FEnabled write SetEnabled;
  16773. Property HistoryListTitle : string index 64 read FHistoryListTitle write SetHistoryListTitle;
  16774. Property Id : TGUIDString index 72 read FId write SetId;
  16775. Property InstantiationUrl : string index 80 read FInstantiationUrl write SetInstantiationUrl;
  16776. Property InternalName : string index 88 read FInternalName write SetInternalName;
  16777. Property IsDeclarative : boolean index 96 read FIsDeclarative write SetIsDeclarative;
  16778. Property ListId : TGUIDString index 104 read FListId write SetListId;
  16779. Property Modified : TDateTime index 112 read FModified write SetModified;
  16780. Property Name : string index 120 read FName write SetName;
  16781. Property TaskListTitle : string index 128 read FTaskListTitle write SetTaskListTitle;
  16782. Property WebId : TGUIDString index 136 read FWebId write SetWebId;
  16783. end;
  16784. { --------------------------------------------------------------------
  16785. SP.Workflow: WorkflowTemplate
  16786. --------------------------------------------------------------------}
  16787. TSP_WorkflowWorkflowTemplate = Class(TODataEntity)
  16788. private
  16789. FAllowManual : boolean;
  16790. FAssociationUrl : string;
  16791. FAutoStartChange : boolean;
  16792. FAutoStartCreate : boolean;
  16793. FDescription : string;
  16794. FId : TGUIDString;
  16795. FIsDeclarative : boolean;
  16796. FName : string;
  16797. FPermissionsManual : TSPBasePermissions;
  16798. procedure SetAllowManual(AIndex: Integer; const AValue: boolean);
  16799. procedure SetAssociationUrl(AIndex: Integer; const AValue: string);
  16800. procedure SetAutoStartChange(AIndex: Integer; const AValue: boolean);
  16801. procedure SetAutoStartCreate(AIndex: Integer; const AValue: boolean);
  16802. procedure SetDescription(AIndex: Integer; const AValue: string);
  16803. procedure SetId(AIndex: Integer; const AValue: TGUIDString);
  16804. procedure SetIsDeclarative(AIndex: Integer; const AValue: boolean);
  16805. procedure SetName(AIndex: Integer; const AValue: string);
  16806. procedure SetPermissionsManual(AIndex: Integer;
  16807. const AValue: TSPBasePermissions);
  16808. public
  16809. class function ObjectRestKind : String; Override;
  16810. function KeyAsURLPart : String; Override;
  16811. published
  16812. Property AllowManual : boolean index 0 read FAllowManual write SetAllowManual;
  16813. Property AssociationUrl : string index 8 read FAssociationUrl write SetAssociationUrl;
  16814. Property AutoStartChange : boolean index 16 read FAutoStartChange write SetAutoStartChange;
  16815. Property AutoStartCreate : boolean index 24 read FAutoStartCreate write SetAutoStartCreate;
  16816. Property Description : string index 32 read FDescription write SetDescription;
  16817. Property Id : TGUIDString index 40 read FId write SetId;
  16818. Property IsDeclarative : boolean index 48 read FIsDeclarative write SetIsDeclarative;
  16819. Property Name : string index 56 read FName write SetName;
  16820. Property PermissionsManual : TSPBasePermissions index 64 read FPermissionsManual write SetPermissionsManual;
  16821. end;
  16822. { --------------------------------------------------------------------
  16823. SP.Workflow: SPWorkflow
  16824. --------------------------------------------------------------------}
  16825. TSP_WorkflowSPWorkflow = Class(TODataEntity)
  16826. private
  16827. FAssociationId : TGUIDString;
  16828. FInstanceId : TGUIDString;
  16829. FIsCompleted : boolean;
  16830. FStatusText : string;
  16831. procedure SetAssociationId(AIndex: Integer; const AValue: TGUIDString);
  16832. procedure SetInstanceId(AIndex: Integer; const AValue: TGUIDString);
  16833. procedure SetIsCompleted(AIndex: Integer; const AValue: boolean);
  16834. procedure SetStatusText(AIndex: Integer; const AValue: string);
  16835. public
  16836. class function ObjectRestKind : String; Override;
  16837. function KeyAsURLPart : String; Override;
  16838. published
  16839. Property AssociationId : TGUIDString index 0 read FAssociationId write SetAssociationId;
  16840. Property InstanceId : TGUIDString index 8 read FInstanceId write SetInstanceId;
  16841. Property IsCompleted : boolean index 16 read FIsCompleted write SetIsCompleted;
  16842. Property StatusText : string index 24 read FStatusText write SetStatusText;
  16843. end;
  16844. { --------------------------------------------------------------------
  16845. SP.Workflow: SPWorkflowManager
  16846. --------------------------------------------------------------------}
  16847. TSP_WorkflowSPWorkflowManager = Class(TODataEntity)
  16848. private
  16849. FId4a81de82eeb94d6080ea5bf63e27023a : string;
  16850. procedure SetId4a81de82eeb94d6080ea5bf63e27023a(AIndex: Integer;
  16851. const AValue: string);
  16852. public
  16853. class function ObjectRestKind : String; Override;
  16854. function KeyAsURLPart : String; Override;
  16855. published
  16856. Property Id4a81de82eeb94d6080ea5bf63e27023a : string index 0 read FId4a81de82eeb94d6080ea5bf63e27023a write SetId4a81de82eeb94d6080ea5bf63e27023a;
  16857. end;
  16858. { --------------------------------------------------------------------
  16859. SP.Workflow: SPWorkflowTask
  16860. --------------------------------------------------------------------}
  16861. TSP_WorkflowSPWorkflowTask = Class(TSPListItem)
  16862. public
  16863. class function ObjectRestKind : String; Override;
  16864. end;
  16865. { --------------------------------------------------------------------
  16866. SP.Sharing: UserRoleAssignment
  16867. --------------------------------------------------------------------}
  16868. TSP_SharingUserRoleAssignment = Class(TODataEntity)
  16869. private
  16870. FRole : TInt32;
  16871. FUserId : string;
  16872. procedure SetRole(AIndex: Integer; const AValue: TInt32);
  16873. procedure SetUserId(AIndex: Integer; const AValue: string);
  16874. public
  16875. class function ObjectRestKind : String; Override;
  16876. published
  16877. Property Role : TInt32 index 0 read FRole write SetRole;
  16878. Property UserId : string index 8 read FUserId write SetUserId;
  16879. end;
  16880. { --------------------------------------------------------------------
  16881. SP.Sharing: UserSharingResult
  16882. --------------------------------------------------------------------}
  16883. TSP_SharingUserSharingResult = Class(TODataEntity)
  16884. private
  16885. FAllowedRoles : TInt32Array;
  16886. FCurrentRole : TInt32;
  16887. FDisplayName : string;
  16888. FEmail : string;
  16889. FInvitationLink : string;
  16890. FIsUserKnown : boolean;
  16891. FMessage : string;
  16892. FStatus : boolean;
  16893. FUser : string;
  16894. procedure SetAllowedRoles(AIndex: Integer; const AValue: TInt32Array);
  16895. procedure SetCurrentRole(AIndex: Integer; const AValue: TInt32);
  16896. procedure SetDisplayName(AIndex: Integer; const AValue: string);
  16897. procedure SetEmail(AIndex: Integer; const AValue: string);
  16898. procedure SetInvitationLink(AIndex: Integer; const AValue: string);
  16899. procedure SetIsUserKnown(AIndex: Integer; const AValue: boolean);
  16900. procedure SetMessage(AIndex: Integer; const AValue: string);
  16901. procedure SetStatus(AIndex: Integer; const AValue: boolean);
  16902. procedure SetUser(AIndex: Integer; const AValue: string);
  16903. protected
  16904. {$IFDEF VER2_6}
  16905. procedure SetArrayLength(const AName: String; ALength: Longint)
  16906. ; Override;
  16907. {$ENDIF VER2_6}
  16908. public
  16909. class function ObjectRestKind : String; Override;
  16910. published
  16911. Property AllowedRoles : TInt32Array index 0 read FAllowedRoles write SetAllowedRoles;
  16912. Property CurrentRole : TInt32 index 8 read FCurrentRole write SetCurrentRole;
  16913. Property DisplayName : string index 16 read FDisplayName write SetDisplayName;
  16914. Property Email : string index 24 read FEmail write SetEmail;
  16915. Property InvitationLink : string index 32 read FInvitationLink write SetInvitationLink;
  16916. Property IsUserKnown : boolean index 40 read FIsUserKnown write SetIsUserKnown;
  16917. Property Message : string index 48 read FMessage write SetMessage;
  16918. Property Status : boolean index 56 read FStatus write SetStatus;
  16919. Property User : string index 64 read FUser write SetUser;
  16920. end;
  16921. { --------------------------------------------------------------------
  16922. SP.Sharing: DocumentSharingManager
  16923. --------------------------------------------------------------------}
  16924. TSP_SharingDocumentSharingManager = Class(TODataEntity)
  16925. private
  16926. FId4a81de82eeb94d6080ea5bf63e27023a : string;
  16927. procedure SetId4a81de82eeb94d6080ea5bf63e27023a(AIndex: Integer;
  16928. const AValue: string);
  16929. public
  16930. class function ObjectRestKind : String; Override;
  16931. function KeyAsURLPart : String; Override;
  16932. published
  16933. Property Id4a81de82eeb94d6080ea5bf63e27023a : string index 0 read FId4a81de82eeb94d6080ea5bf63e27023a write SetId4a81de82eeb94d6080ea5bf63e27023a;
  16934. end;
  16935. { --------------------------------------------------------------------
  16936. SP.Sharing: WebSharingManager
  16937. --------------------------------------------------------------------}
  16938. TSP_SharingWebSharingManager = Class(TODataEntity)
  16939. private
  16940. FId4a81de82eeb94d6080ea5bf63e27023a : string;
  16941. procedure SetId4a81de82eeb94d6080ea5bf63e27023a(AIndex: Integer;
  16942. const AValue: string);
  16943. public
  16944. class function ObjectRestKind : String; Override;
  16945. function KeyAsURLPart : String; Override;
  16946. published
  16947. Property Id4a81de82eeb94d6080ea5bf63e27023a : string index 0 read FId4a81de82eeb94d6080ea5bf63e27023a write SetId4a81de82eeb94d6080ea5bf63e27023a;
  16948. end;
  16949. { --------------------------------------------------------------------
  16950. SP.Taxonomy: TaxonomyFieldValue
  16951. --------------------------------------------------------------------}
  16952. TSP_TaxonomyTaxonomyFieldValue = Class(TODataEntity)
  16953. private
  16954. F_Label : string;
  16955. FTermGuid : string;
  16956. FWssId : TInt32;
  16957. procedure Set_Label(AIndex: Integer; const AValue: string);
  16958. procedure SetTermGuid(AIndex: Integer; const AValue: string);
  16959. procedure SetWssId(AIndex: Integer; const AValue: TInt32);
  16960. public
  16961. class function ObjectRestKind : String; Override;
  16962. class function ExportPropertyName(const AName: String) : String
  16963. ; Override;
  16964. published
  16965. Property _Label : string index 0 read F_Label write Set_Label;
  16966. Property TermGuid : string index 8 read FTermGuid write SetTermGuid;
  16967. Property WssId : TInt32 index 16 read FWssId write SetWssId;
  16968. end;
  16969. { --------------------------------------------------------------------
  16970. SP.Translation: TranslationItemInfo
  16971. --------------------------------------------------------------------}
  16972. TSP_TranslationTranslationItemInfo = Class(TODataEntity)
  16973. private
  16974. FCanceled : boolean;
  16975. FErrorMessage : string;
  16976. FFailed : boolean;
  16977. FInProgress : boolean;
  16978. FInputFile : string;
  16979. FNotStarted : boolean;
  16980. FOutputFile : string;
  16981. F_Result : TInt32;
  16982. FSucceeded : boolean;
  16983. FTranslationId : TGUIDString;
  16984. procedure SetCanceled(AIndex: Integer; const AValue: boolean);
  16985. procedure SetErrorMessage(AIndex: Integer; const AValue: string);
  16986. procedure SetFailed(AIndex: Integer; const AValue: boolean);
  16987. procedure SetInProgress(AIndex: Integer; const AValue: boolean);
  16988. procedure SetInputFile(AIndex: Integer; const AValue: string);
  16989. procedure SetNotStarted(AIndex: Integer; const AValue: boolean);
  16990. procedure SetOutputFile(AIndex: Integer; const AValue: string);
  16991. procedure Set_Result(AIndex: Integer; const AValue: TInt32);
  16992. procedure SetSucceeded(AIndex: Integer; const AValue: boolean);
  16993. procedure SetTranslationId(AIndex: Integer; const AValue: TGUIDString);
  16994. public
  16995. class function ObjectRestKind : String; Override;
  16996. class function ExportPropertyName(const AName: String) : String
  16997. ; Override;
  16998. published
  16999. Property Canceled : boolean index 0 read FCanceled write SetCanceled;
  17000. Property ErrorMessage : string index 8 read FErrorMessage write SetErrorMessage;
  17001. Property Failed : boolean index 16 read FFailed write SetFailed;
  17002. Property InProgress : boolean index 24 read FInProgress write SetInProgress;
  17003. Property InputFile : string index 32 read FInputFile write SetInputFile;
  17004. Property NotStarted : boolean index 40 read FNotStarted write SetNotStarted;
  17005. Property OutputFile : string index 48 read FOutputFile write SetOutputFile;
  17006. Property _Result : TInt32 index 56 read F_Result write Set_Result;
  17007. Property Succeeded : boolean index 64 read FSucceeded write SetSucceeded;
  17008. Property TranslationId : TGUIDString index 72 read FTranslationId write SetTranslationId;
  17009. end;
  17010. { --------------------------------------------------------------------
  17011. SP.Translation: TranslationJobInfo
  17012. --------------------------------------------------------------------}
  17013. TSP_TranslationTranslationJobInfo = Class(TODataEntity)
  17014. private
  17015. FCanceled : boolean;
  17016. FCancelTime : TDateTime;
  17017. FJobId : TGUIDString;
  17018. FName : string;
  17019. FPartiallySubmitted : boolean;
  17020. FSubmittedTime : TDateTime;
  17021. procedure SetCanceled(AIndex: Integer; const AValue: boolean);
  17022. procedure SetCancelTime(AIndex: Integer; const AValue: TDateTime);
  17023. procedure SetJobId(AIndex: Integer; const AValue: TGUIDString);
  17024. procedure SetName(AIndex: Integer; const AValue: string);
  17025. procedure SetPartiallySubmitted(AIndex: Integer; const AValue: boolean);
  17026. procedure SetSubmittedTime(AIndex: Integer; const AValue: TDateTime);
  17027. public
  17028. class function ObjectRestKind : String; Override;
  17029. published
  17030. Property Canceled : boolean index 0 read FCanceled write SetCanceled;
  17031. Property CancelTime : TDateTime index 8 read FCancelTime write SetCancelTime;
  17032. Property JobId : TGUIDString index 16 read FJobId write SetJobId;
  17033. Property Name : string index 24 read FName write SetName;
  17034. Property PartiallySubmitted : boolean index 32 read FPartiallySubmitted write SetPartiallySubmitted;
  17035. Property SubmittedTime : TDateTime index 40 read FSubmittedTime write SetSubmittedTime;
  17036. end;
  17037. { --------------------------------------------------------------------
  17038. SP.Translation: SyncTranslator
  17039. --------------------------------------------------------------------}
  17040. TSP_TranslationSyncTranslator = Class(TODataEntity)
  17041. private
  17042. FOutputSaveBehavior : TInt32;
  17043. procedure SetOutputSaveBehavior(AIndex: Integer; const AValue: TInt32);
  17044. public
  17045. class function ObjectRestKind : String; Override;
  17046. function KeyAsURLPart : String; Override;
  17047. published
  17048. Property OutputSaveBehavior : TInt32 index 0 read FOutputSaveBehavior write SetOutputSaveBehavior;
  17049. end;
  17050. { --------------------------------------------------------------------
  17051. SP.Translation: TranslationJob
  17052. --------------------------------------------------------------------}
  17053. TSP_TranslationTranslationJob = Class(TODataEntity)
  17054. private
  17055. FJobId : TGUIDString;
  17056. FName : string;
  17057. FOutputSaveBehavior : TInt32;
  17058. procedure SetJobId(AIndex: Integer; const AValue: TGUIDString);
  17059. procedure SetName(AIndex: Integer; const AValue: string);
  17060. procedure SetOutputSaveBehavior(AIndex: Integer; const AValue: TInt32);
  17061. public
  17062. class function ObjectRestKind : String; Override;
  17063. function KeyAsURLPart : String; Override;
  17064. published
  17065. Property JobId : TGUIDString index 0 read FJobId write SetJobId;
  17066. Property Name : string index 8 read FName write SetName;
  17067. Property OutputSaveBehavior : TInt32 index 16 read FOutputSaveBehavior write SetOutputSaveBehavior;
  17068. end;
  17069. { --------------------------------------------------------------------
  17070. SP.Translation: TranslationJobStatus
  17071. --------------------------------------------------------------------}
  17072. TSP_TranslationTranslationJobStatus = Class(TODataEntity)
  17073. private
  17074. FCanceled : TInt32;
  17075. FCount : TInt32;
  17076. FFailed : TInt32;
  17077. FInProgress : TInt32;
  17078. FName : string;
  17079. FNotStarted : TInt32;
  17080. FSucceeded : TInt32;
  17081. procedure SetCanceled(AIndex: Integer; const AValue: TInt32);
  17082. procedure SetCount(AIndex: Integer; const AValue: TInt32);
  17083. procedure SetFailed(AIndex: Integer; const AValue: TInt32);
  17084. procedure SetInProgress(AIndex: Integer; const AValue: TInt32);
  17085. procedure SetName(AIndex: Integer; const AValue: string);
  17086. procedure SetNotStarted(AIndex: Integer; const AValue: TInt32);
  17087. procedure SetSucceeded(AIndex: Integer; const AValue: TInt32);
  17088. public
  17089. class function ObjectRestKind : String; Override;
  17090. function KeyAsURLPart : String; Override;
  17091. published
  17092. Property Canceled : TInt32 index 0 read FCanceled write SetCanceled;
  17093. Property Count : TInt32 index 8 read FCount write SetCount;
  17094. Property Failed : TInt32 index 16 read FFailed write SetFailed;
  17095. Property InProgress : TInt32 index 24 read FInProgress write SetInProgress;
  17096. Property Name : string index 32 read FName write SetName;
  17097. Property NotStarted : TInt32 index 40 read FNotStarted write SetNotStarted;
  17098. Property Succeeded : TInt32 index 48 read FSucceeded write SetSucceeded;
  17099. end;
  17100. { --------------------------------------------------------------------
  17101. SP.Translation: VariationsTranslationTimerJob
  17102. --------------------------------------------------------------------}
  17103. TSP_TranslationVariationsTranslationTimerJob = Class(TODataEntity)
  17104. private
  17105. FId4a81de82eeb94d6080ea5bf63e27023a : string;
  17106. procedure SetId4a81de82eeb94d6080ea5bf63e27023a(AIndex: Integer;
  17107. const AValue: string);
  17108. public
  17109. class function ObjectRestKind : String; Override;
  17110. function KeyAsURLPart : String; Override;
  17111. published
  17112. Property Id4a81de82eeb94d6080ea5bf63e27023a : string index 0 read FId4a81de82eeb94d6080ea5bf63e27023a write SetId4a81de82eeb94d6080ea5bf63e27023a;
  17113. end;
  17114. { --------------------------------------------------------------------
  17115. Microsoft.Online.SharePoint.TenantAdministration: SPOTenantWebTemplate
  17116. --------------------------------------------------------------------}
  17117. TMicrosoft_Online_SharePoint_TenantAdministrationSPOTenantWebTemplate = Class(TODataEntity)
  17118. private
  17119. FCompatibilityLevel : TInt32;
  17120. FDescription : string;
  17121. FDisplayCategory : string;
  17122. FLcid : int64;
  17123. FName : string;
  17124. FTitle : string;
  17125. procedure SetCompatibilityLevel(AIndex: Integer; const AValue: TInt32);
  17126. procedure SetDescription(AIndex: Integer; const AValue: string);
  17127. procedure SetDisplayCategory(AIndex: Integer; const AValue: string);
  17128. procedure SetLcid(AIndex: Integer; const AValue: int64);
  17129. procedure SetName(AIndex: Integer; const AValue: string);
  17130. procedure SetTitle(AIndex: Integer; const AValue: string);
  17131. public
  17132. class function ObjectRestKind : String; Override;
  17133. published
  17134. Property CompatibilityLevel : TInt32 index 0 read FCompatibilityLevel write SetCompatibilityLevel;
  17135. Property Description : string index 8 read FDescription write SetDescription;
  17136. Property DisplayCategory : string index 16 read FDisplayCategory write SetDisplayCategory;
  17137. Property Lcid : int64 index 24 read FLcid write SetLcid;
  17138. Property Name : string index 32 read FName write SetName;
  17139. Property Title : string index 40 read FTitle write SetTitle;
  17140. end;
  17141. { --------------------------------------------------------------------
  17142. Microsoft.Online.SharePoint.TenantAdministration: SPOTenantWebTemplateCollection
  17143. --------------------------------------------------------------------}
  17144. TMicrosoft_Online_SharePoint_TenantAdministrationSPOTenantWebTemplateCollection = Class(TODataEntity)
  17145. private
  17146. FId4a81de82eeb94d6080ea5bf63e27023a : string;
  17147. FItems : TMicrosoft_Online_SharePoint_TenantAdministrationSPOTenantWebTemplateArray;
  17148. procedure SetId4a81de82eeb94d6080ea5bf63e27023a(AIndex: Integer;
  17149. const AValue: string);
  17150. procedure SetItems(AIndex: Integer;
  17151. const AValue: TMicrosoft_Online_SharePoint_TenantAdministrationSPOTenantWebTemplateArray);
  17152. protected
  17153. {$IFDEF VER2_6}
  17154. procedure SetArrayLength(const AName: String; ALength: Longint)
  17155. ; Override;
  17156. {$ENDIF VER2_6}
  17157. public
  17158. class function ObjectRestKind : String; Override;
  17159. function KeyAsURLPart : String; Override;
  17160. published
  17161. Property Id4a81de82eeb94d6080ea5bf63e27023a : string index 0 read FId4a81de82eeb94d6080ea5bf63e27023a write SetId4a81de82eeb94d6080ea5bf63e27023a;
  17162. Property Items : TMicrosoft_Online_SharePoint_TenantAdministrationSPOTenantWebTemplateArray index 8 read FItems write SetItems;
  17163. end;
  17164. { --------------------------------------------------------------------
  17165. Microsoft.Online.AppData.Access: AccessApp
  17166. --------------------------------------------------------------------}
  17167. TMicrosoft_Online_AppData_AccessAccessApp = Class(TMS_AppDataApp)
  17168. public
  17169. class function ObjectRestKind : String; Override;
  17170. end;
  17171. { --------------------------------------------------------------------
  17172. SP.WorkManagement.OM: BaseSession
  17173. --------------------------------------------------------------------}
  17174. TSP_WorkManagement_OMBaseSession = Class(TODataEntity)
  17175. private
  17176. FId4a81de82eeb94d6080ea5bf63e27023a : string;
  17177. procedure SetId4a81de82eeb94d6080ea5bf63e27023a(AIndex: Integer;
  17178. const AValue: string);
  17179. public
  17180. class function ObjectRestKind : String; Override;
  17181. function KeyAsURLPart : String; Override;
  17182. published
  17183. Property Id4a81de82eeb94d6080ea5bf63e27023a : string index 0 read FId4a81de82eeb94d6080ea5bf63e27023a write SetId4a81de82eeb94d6080ea5bf63e27023a;
  17184. end;
  17185. { --------------------------------------------------------------------
  17186. SP.WorkManagement.OM: BooleanCriterion
  17187. --------------------------------------------------------------------}
  17188. TSP_WorkManagement_OMBooleanCriterion = Class(TODataEntity)
  17189. private
  17190. FCompareType : TInt32;
  17191. procedure SetCompareType(AIndex: Integer; const AValue: TInt32);
  17192. public
  17193. class function ObjectRestKind : String; Override;
  17194. function KeyAsURLPart : String; Override;
  17195. published
  17196. Property CompareType : TInt32 index 0 read FCompareType write SetCompareType;
  17197. end;
  17198. { --------------------------------------------------------------------
  17199. SP.WorkManagement.OM: CalloutInfo
  17200. --------------------------------------------------------------------}
  17201. TSP_WorkManagement_OMCalloutInfo = Class(TODataEntity)
  17202. private
  17203. FContacts : TStringArray;
  17204. FDirectLinkTitle : string;
  17205. FDirectLinkUrl : string;
  17206. FHierarchy : TStringArray;
  17207. FPredecessors : TStringArray;
  17208. FSuccessors : TStringArray;
  17209. FTitle : string;
  17210. FUrl : string;
  17211. procedure SetContacts(AIndex: Integer; const AValue: TStringArray);
  17212. procedure SetDirectLinkTitle(AIndex: Integer; const AValue: string);
  17213. procedure SetDirectLinkUrl(AIndex: Integer; const AValue: string);
  17214. procedure SetHierarchy(AIndex: Integer; const AValue: TStringArray);
  17215. procedure SetPredecessors(AIndex: Integer; const AValue: TStringArray);
  17216. procedure SetSuccessors(AIndex: Integer; const AValue: TStringArray);
  17217. procedure SetTitle(AIndex: Integer; const AValue: string);
  17218. procedure SetUrl(AIndex: Integer; const AValue: string);
  17219. protected
  17220. {$IFDEF VER2_6}
  17221. procedure SetArrayLength(const AName: String; ALength: Longint)
  17222. ; Override;
  17223. {$ENDIF VER2_6}
  17224. public
  17225. class function ObjectRestKind : String; Override;
  17226. function KeyAsURLPart : String; Override;
  17227. published
  17228. Property Contacts : TStringArray index 0 read FContacts write SetContacts;
  17229. Property DirectLinkTitle : string index 8 read FDirectLinkTitle write SetDirectLinkTitle;
  17230. Property DirectLinkUrl : string index 16 read FDirectLinkUrl write SetDirectLinkUrl;
  17231. Property Hierarchy : TStringArray index 24 read FHierarchy write SetHierarchy;
  17232. Property Predecessors : TStringArray index 32 read FPredecessors write SetPredecessors;
  17233. Property Successors : TStringArray index 40 read FSuccessors write SetSuccessors;
  17234. Property Title : string index 48 read FTitle write SetTitle;
  17235. Property Url : string index 56 read FUrl write SetUrl;
  17236. end;
  17237. { --------------------------------------------------------------------
  17238. SP.WorkManagement.OM: CreateRefreshJobResult
  17239. --------------------------------------------------------------------}
  17240. TSP_WorkManagement_OMCreateRefreshJobResult = Class(TODataEntity)
  17241. private
  17242. FCreatedJob : boolean;
  17243. FCurrentJobId : TInt32;
  17244. FEncounteredError : boolean;
  17245. procedure SetCreatedJob(AIndex: Integer; const AValue: boolean);
  17246. procedure SetCurrentJobId(AIndex: Integer; const AValue: TInt32);
  17247. procedure SetEncounteredError(AIndex: Integer; const AValue: boolean);
  17248. public
  17249. class function ObjectRestKind : String; Override;
  17250. function KeyAsURLPart : String; Override;
  17251. published
  17252. Property CreatedJob : boolean index 0 read FCreatedJob write SetCreatedJob;
  17253. Property CurrentJobId : TInt32 index 8 read FCurrentJobId write SetCurrentJobId;
  17254. Property EncounteredError : boolean index 16 read FEncounteredError write SetEncounteredError;
  17255. end;
  17256. { --------------------------------------------------------------------
  17257. SP.WorkManagement.OM: CustomAttributeFilter
  17258. --------------------------------------------------------------------}
  17259. TSP_WorkManagement_OMCustomAttributeFilter = Class(TODataEntity)
  17260. private
  17261. FAttributes : TStringArray;
  17262. FConcatType : TInt32;
  17263. procedure SetAttributes(AIndex: Integer; const AValue: TStringArray);
  17264. procedure SetConcatType(AIndex: Integer; const AValue: TInt32);
  17265. protected
  17266. {$IFDEF VER2_6}
  17267. procedure SetArrayLength(const AName: String; ALength: Longint)
  17268. ; Override;
  17269. {$ENDIF VER2_6}
  17270. public
  17271. class function ObjectRestKind : String; Override;
  17272. function KeyAsURLPart : String; Override;
  17273. published
  17274. Property Attributes : TStringArray index 0 read FAttributes write SetAttributes;
  17275. Property ConcatType : TInt32 index 8 read FConcatType write SetConcatType;
  17276. end;
  17277. { --------------------------------------------------------------------
  17278. SP.WorkManagement.OM: DashboardScriptExtensionInfo
  17279. --------------------------------------------------------------------}
  17280. TSP_WorkManagement_OMDashboardScriptExtensionInfo = Class(TODataEntity)
  17281. private
  17282. FProviderKey : string;
  17283. FScriptClass : string;
  17284. FScriptData : string;
  17285. FScriptFiles : TStringArray;
  17286. procedure SetProviderKey(AIndex: Integer; const AValue: string);
  17287. procedure SetScriptClass(AIndex: Integer; const AValue: string);
  17288. procedure SetScriptData(AIndex: Integer; const AValue: string);
  17289. procedure SetScriptFiles(AIndex: Integer; const AValue: TStringArray);
  17290. protected
  17291. {$IFDEF VER2_6}
  17292. procedure SetArrayLength(const AName: String; ALength: Longint)
  17293. ; Override;
  17294. {$ENDIF VER2_6}
  17295. public
  17296. class function ObjectRestKind : String; Override;
  17297. function KeyAsURLPart : String; Override;
  17298. published
  17299. Property ProviderKey : string index 0 read FProviderKey write SetProviderKey;
  17300. Property ScriptClass : string index 8 read FScriptClass write SetScriptClass;
  17301. Property ScriptData : string index 16 read FScriptData write SetScriptData;
  17302. Property ScriptFiles : TStringArray index 24 read FScriptFiles write SetScriptFiles;
  17303. end;
  17304. { --------------------------------------------------------------------
  17305. SP.WorkManagement.OM: DateRangeCriterion
  17306. --------------------------------------------------------------------}
  17307. TSP_WorkManagement_OMDateRangeCriterion = Class(TODataEntity)
  17308. private
  17309. FRangeEndValue : TDateTime;
  17310. FRangeStartValue : TDateTime;
  17311. procedure SetRangeEndValue(AIndex: Integer; const AValue: TDateTime);
  17312. procedure SetRangeStartValue(AIndex: Integer; const AValue: TDateTime);
  17313. public
  17314. class function ObjectRestKind : String; Override;
  17315. function KeyAsURLPart : String; Override;
  17316. published
  17317. Property RangeEndValue : TDateTime index 0 read FRangeEndValue write SetRangeEndValue;
  17318. Property RangeStartValue : TDateTime index 8 read FRangeStartValue write SetRangeStartValue;
  17319. end;
  17320. { --------------------------------------------------------------------
  17321. SP.WorkManagement.OM: ExchangeUserSyncState
  17322. --------------------------------------------------------------------}
  17323. TSP_WorkManagement_OMExchangeUserSyncState = Class(TODataEntity)
  17324. private
  17325. FIsOptedIn : boolean;
  17326. FLastEndTime : TDateTime;
  17327. FLastSyncResult : TInt32;
  17328. procedure SetIsOptedIn(AIndex: Integer; const AValue: boolean);
  17329. procedure SetLastEndTime(AIndex: Integer; const AValue: TDateTime);
  17330. procedure SetLastSyncResult(AIndex: Integer; const AValue: TInt32);
  17331. public
  17332. class function ObjectRestKind : String; Override;
  17333. function KeyAsURLPart : String; Override;
  17334. published
  17335. Property IsOptedIn : boolean index 0 read FIsOptedIn write SetIsOptedIn;
  17336. Property LastEndTime : TDateTime index 8 read FLastEndTime write SetLastEndTime;
  17337. Property LastSyncResult : TInt32 index 16 read FLastSyncResult write SetLastSyncResult;
  17338. end;
  17339. { --------------------------------------------------------------------
  17340. SP.WorkManagement.OM: Location
  17341. --------------------------------------------------------------------}
  17342. TSP_WorkManagement_OMLocation = Class(TODataEntity)
  17343. private
  17344. FColor : string;
  17345. FId : TInt32;
  17346. FImportant : boolean;
  17347. FName : string;
  17348. FParentId : TInt32;
  17349. FRootProviderKey : string;
  17350. FUrl : string;
  17351. procedure SetColor(AIndex: Integer; const AValue: string);
  17352. procedure SetId(AIndex: Integer; const AValue: TInt32);
  17353. procedure SetImportant(AIndex: Integer; const AValue: boolean);
  17354. procedure SetName(AIndex: Integer; const AValue: string);
  17355. procedure SetParentId(AIndex: Integer; const AValue: TInt32);
  17356. procedure SetRootProviderKey(AIndex: Integer; const AValue: string);
  17357. procedure SetUrl(AIndex: Integer; const AValue: string);
  17358. public
  17359. class function ObjectRestKind : String; Override;
  17360. function KeyAsURLPart : String; Override;
  17361. published
  17362. Property Color : string index 0 read FColor write SetColor;
  17363. Property Id : TInt32 index 8 read FId write SetId;
  17364. Property Important : boolean index 16 read FImportant write SetImportant;
  17365. Property Name : string index 24 read FName write SetName;
  17366. Property ParentId : TInt32 index 32 read FParentId write SetParentId;
  17367. Property RootProviderKey : string index 40 read FRootProviderKey write SetRootProviderKey;
  17368. Property Url : string index 48 read FUrl write SetUrl;
  17369. end;
  17370. { --------------------------------------------------------------------
  17371. SP.WorkManagement.OM: LocationDisplaySetting
  17372. --------------------------------------------------------------------}
  17373. TSP_WorkManagement_OMLocationDisplaySetting = Class(TODataEntity)
  17374. private
  17375. FColor : string;
  17376. FId : TInt32;
  17377. procedure SetColor(AIndex: Integer; const AValue: string);
  17378. procedure SetId(AIndex: Integer; const AValue: TInt32);
  17379. public
  17380. class function ObjectRestKind : String; Override;
  17381. function KeyAsURLPart : String; Override;
  17382. published
  17383. Property Color : string index 0 read FColor write SetColor;
  17384. Property Id : TInt32 index 8 read FId write SetId;
  17385. end;
  17386. { --------------------------------------------------------------------
  17387. SP.WorkManagement.OM: LocationFilter
  17388. --------------------------------------------------------------------}
  17389. TSP_WorkManagement_OMLocationFilter = Class(TODataEntity)
  17390. private
  17391. FIncludeUncategorizedTasks : boolean;
  17392. FLocationKeys : TInt32Array;
  17393. procedure SetIncludeUncategorizedTasks(AIndex: Integer;
  17394. const AValue: boolean);
  17395. procedure SetLocationKeys(AIndex: Integer; const AValue: TInt32Array);
  17396. protected
  17397. {$IFDEF VER2_6}
  17398. procedure SetArrayLength(const AName: String; ALength: Longint)
  17399. ; Override;
  17400. {$ENDIF VER2_6}
  17401. public
  17402. class function ObjectRestKind : String; Override;
  17403. function KeyAsURLPart : String; Override;
  17404. published
  17405. Property IncludeUncategorizedTasks : boolean index 0 read FIncludeUncategorizedTasks write SetIncludeUncategorizedTasks;
  17406. Property LocationKeys : TInt32Array index 8 read FLocationKeys write SetLocationKeys;
  17407. end;
  17408. { --------------------------------------------------------------------
  17409. SP.WorkManagement.OM: Task
  17410. --------------------------------------------------------------------}
  17411. TSP_WorkManagement_OMTask = Class(TODataEntity)
  17412. private
  17413. FCustomAttributes : TStringArray;
  17414. FDescription : string;
  17415. FDueDate : TDateTime;
  17416. FEditUrl : string;
  17417. FId : TInt32;
  17418. FIsCompleted : boolean;
  17419. FIsPersonal : boolean;
  17420. FIsReadOnly : boolean;
  17421. FLastModified : TDateTime;
  17422. FLocationId : TInt32;
  17423. FName : string;
  17424. FPinAge : TInt32;
  17425. FSerializedCustomDataForClient : string;
  17426. FStartDate : TDateTime;
  17427. procedure SetCustomAttributes(AIndex: Integer;
  17428. const AValue: TStringArray);
  17429. procedure SetDescription(AIndex: Integer; const AValue: string);
  17430. procedure SetDueDate(AIndex: Integer; const AValue: TDateTime);
  17431. procedure SetEditUrl(AIndex: Integer; const AValue: string);
  17432. procedure SetId(AIndex: Integer; const AValue: TInt32);
  17433. procedure SetIsCompleted(AIndex: Integer; const AValue: boolean);
  17434. procedure SetIsPersonal(AIndex: Integer; const AValue: boolean);
  17435. procedure SetIsReadOnly(AIndex: Integer; const AValue: boolean);
  17436. procedure SetLastModified(AIndex: Integer; const AValue: TDateTime);
  17437. procedure SetLocationId(AIndex: Integer; const AValue: TInt32);
  17438. procedure SetName(AIndex: Integer; const AValue: string);
  17439. procedure SetPinAge(AIndex: Integer; const AValue: TInt32);
  17440. procedure SetSerializedCustomDataForClient(AIndex: Integer;
  17441. const AValue: string);
  17442. procedure SetStartDate(AIndex: Integer; const AValue: TDateTime);
  17443. protected
  17444. {$IFDEF VER2_6}
  17445. procedure SetArrayLength(const AName: String; ALength: Longint)
  17446. ; Override;
  17447. {$ENDIF VER2_6}
  17448. public
  17449. class function ObjectRestKind : String; Override;
  17450. function KeyAsURLPart : String; Override;
  17451. published
  17452. Property CustomAttributes : TStringArray index 0 read FCustomAttributes write SetCustomAttributes;
  17453. Property Description : string index 8 read FDescription write SetDescription;
  17454. Property DueDate : TDateTime index 16 read FDueDate write SetDueDate;
  17455. Property EditUrl : string index 24 read FEditUrl write SetEditUrl;
  17456. Property Id : TInt32 index 32 read FId write SetId;
  17457. Property IsCompleted : boolean index 40 read FIsCompleted write SetIsCompleted;
  17458. Property IsPersonal : boolean index 48 read FIsPersonal write SetIsPersonal;
  17459. Property IsReadOnly : boolean index 56 read FIsReadOnly write SetIsReadOnly;
  17460. Property LastModified : TDateTime index 64 read FLastModified write SetLastModified;
  17461. Property LocationId : TInt32 index 72 read FLocationId write SetLocationId;
  17462. Property Name : string index 80 read FName write SetName;
  17463. Property PinAge : TInt32 index 88 read FPinAge write SetPinAge;
  17464. Property SerializedCustomDataForClient : string index 96 read FSerializedCustomDataForClient write SetSerializedCustomDataForClient;
  17465. Property StartDate : TDateTime index 104 read FStartDate write SetStartDate;
  17466. end;
  17467. { --------------------------------------------------------------------
  17468. SP.WorkManagement.OM: LocationOrientedSortableSession
  17469. --------------------------------------------------------------------}
  17470. TSP_WorkManagement_OMLocationOrientedSortableSession = Class(TSP_WorkManagement_OMBaseSession)
  17471. public
  17472. class function ObjectRestKind : String; Override;
  17473. end;
  17474. { --------------------------------------------------------------------
  17475. SP.WorkManagement.OM: LocationOrientedUserOrderedSession
  17476. --------------------------------------------------------------------}
  17477. TSP_WorkManagement_OMLocationOrientedUserOrderedSession = Class(TSP_WorkManagement_OMBaseSession)
  17478. public
  17479. class function ObjectRestKind : String; Override;
  17480. end;
  17481. { --------------------------------------------------------------------
  17482. SP.WorkManagement.OM: LocationUpdateResult
  17483. --------------------------------------------------------------------}
  17484. TSP_WorkManagement_OMLocationUpdateResult = Class(TODataEntity)
  17485. private
  17486. FActiveAddedCount : int64;
  17487. FAddedCount : int64;
  17488. FRemovedCount : int64;
  17489. FRootLocationId : TInt32;
  17490. FUpdatedCount : int64;
  17491. procedure SetActiveAddedCount(AIndex: Integer; const AValue: int64);
  17492. procedure SetAddedCount(AIndex: Integer; const AValue: int64);
  17493. procedure SetRemovedCount(AIndex: Integer; const AValue: int64);
  17494. procedure SetRootLocationId(AIndex: Integer; const AValue: TInt32);
  17495. procedure SetUpdatedCount(AIndex: Integer; const AValue: int64);
  17496. public
  17497. class function ObjectRestKind : String; Override;
  17498. function KeyAsURLPart : String; Override;
  17499. published
  17500. Property ActiveAddedCount : int64 index 0 read FActiveAddedCount write SetActiveAddedCount;
  17501. Property AddedCount : int64 index 8 read FAddedCount write SetAddedCount;
  17502. Property RemovedCount : int64 index 16 read FRemovedCount write SetRemovedCount;
  17503. Property RootLocationId : TInt32 index 24 read FRootLocationId write SetRootLocationId;
  17504. Property UpdatedCount : int64 index 32 read FUpdatedCount write SetUpdatedCount;
  17505. end;
  17506. { --------------------------------------------------------------------
  17507. SP.WorkManagement.OM: NameCriterion
  17508. --------------------------------------------------------------------}
  17509. TSP_WorkManagement_OMNameCriterion = Class(TODataEntity)
  17510. private
  17511. FCompareType : TInt32;
  17512. FCompareValue : string;
  17513. procedure SetCompareType(AIndex: Integer; const AValue: TInt32);
  17514. procedure SetCompareValue(AIndex: Integer; const AValue: string);
  17515. public
  17516. class function ObjectRestKind : String; Override;
  17517. function KeyAsURLPart : String; Override;
  17518. published
  17519. Property CompareType : TInt32 index 0 read FCompareType write SetCompareType;
  17520. Property CompareValue : string index 8 read FCompareValue write SetCompareValue;
  17521. end;
  17522. { --------------------------------------------------------------------
  17523. SP.WorkManagement.OM: NonTaskDataReadResult
  17524. --------------------------------------------------------------------}
  17525. TSP_WorkManagement_OMNonTaskDataReadResult = Class(TODataEntity)
  17526. private
  17527. FId4a81de82eeb94d6080ea5bf63e27023a : string;
  17528. procedure SetId4a81de82eeb94d6080ea5bf63e27023a(AIndex: Integer;
  17529. const AValue: string);
  17530. public
  17531. class function ObjectRestKind : String; Override;
  17532. function KeyAsURLPart : String; Override;
  17533. function AllLocatons(AService: TODataService)
  17534. : TSP_WorkManagement_OMLocation;
  17535. function PersistedProperties(AService: TODataService)
  17536. : TSP_WorkManagement_OMPersistedProperties;
  17537. function RefreshHistory(AService: TODataService)
  17538. : TSP_WorkManagement_OMRefreshHistory;
  17539. function ScriptExtensions(AService: TODataService)
  17540. : TSP_WorkManagement_OMDashboardScriptExtensionInfo;
  17541. function UserSettings(AService: TODataService)
  17542. : TSP_WorkManagement_OMUserSettings;
  17543. published
  17544. Property Id4a81de82eeb94d6080ea5bf63e27023a : string index 0 read FId4a81de82eeb94d6080ea5bf63e27023a write SetId4a81de82eeb94d6080ea5bf63e27023a;
  17545. end;
  17546. { --------------------------------------------------------------------
  17547. SP.WorkManagement.OM: PersistedProperties
  17548. --------------------------------------------------------------------}
  17549. TSP_WorkManagement_OMPersistedProperties = Class(TODataEntity)
  17550. private
  17551. FFilteredLocationIds : TInt32Array;
  17552. FGroupByProjects : boolean;
  17553. FHasShownMarkAsImportantCallout : boolean;
  17554. FHasShownTaskListTooLongNotification : boolean;
  17555. FQuickLaunchLandingPage : string;
  17556. procedure SetFilteredLocationIds(AIndex: Integer;
  17557. const AValue: TInt32Array);
  17558. procedure SetGroupByProjects(AIndex: Integer; const AValue: boolean);
  17559. procedure SetHasShownMarkAsImportantCallout(AIndex: Integer;
  17560. const AValue: boolean);
  17561. procedure SetHasShownTaskListTooLongNotification(AIndex: Integer;
  17562. const AValue: boolean);
  17563. procedure SetQuickLaunchLandingPage(AIndex: Integer;
  17564. const AValue: string);
  17565. protected
  17566. {$IFDEF VER2_6}
  17567. procedure SetArrayLength(const AName: String; ALength: Longint)
  17568. ; Override;
  17569. {$ENDIF VER2_6}
  17570. public
  17571. class function ObjectRestKind : String; Override;
  17572. function KeyAsURLPart : String; Override;
  17573. published
  17574. Property FilteredLocationIds : TInt32Array index 0 read FFilteredLocationIds write SetFilteredLocationIds;
  17575. Property GroupByProjects : boolean index 8 read FGroupByProjects write SetGroupByProjects;
  17576. Property HasShownMarkAsImportantCallout : boolean index 16 read FHasShownMarkAsImportantCallout write SetHasShownMarkAsImportantCallout;
  17577. Property HasShownTaskListTooLongNotification : boolean index 24 read FHasShownTaskListTooLongNotification write SetHasShownTaskListTooLongNotification;
  17578. Property QuickLaunchLandingPage : string index 32 read FQuickLaunchLandingPage write SetQuickLaunchLandingPage;
  17579. end;
  17580. { --------------------------------------------------------------------
  17581. SP.WorkManagement.OM: RefreshHistory
  17582. --------------------------------------------------------------------}
  17583. TSP_WorkManagement_OMRefreshHistory = Class(TODataEntity)
  17584. private
  17585. FId4a81de82eeb94d6080ea5bf63e27023a : string;
  17586. procedure SetId4a81de82eeb94d6080ea5bf63e27023a(AIndex: Integer;
  17587. const AValue: string);
  17588. public
  17589. class function ObjectRestKind : String; Override;
  17590. function KeyAsURLPart : String; Override;
  17591. function Refreshes(AService: TODataService)
  17592. : TSP_WorkManagement_OMRefreshResult;
  17593. published
  17594. Property Id4a81de82eeb94d6080ea5bf63e27023a : string index 0 read FId4a81de82eeb94d6080ea5bf63e27023a write SetId4a81de82eeb94d6080ea5bf63e27023a;
  17595. end;
  17596. { --------------------------------------------------------------------
  17597. SP.WorkManagement.OM: RefreshResult
  17598. --------------------------------------------------------------------}
  17599. TSP_WorkManagement_OMRefreshResult = Class(TODataEntity)
  17600. private
  17601. FAggregatorRefreshState : TInt32;
  17602. FCorrelationId : string;
  17603. FRefreshFinished : TDateTime;
  17604. FRefreshId : TInt32;
  17605. procedure SetAggregatorRefreshState(AIndex: Integer;
  17606. const AValue: TInt32);
  17607. procedure SetCorrelationId(AIndex: Integer; const AValue: string);
  17608. procedure SetRefreshFinished(AIndex: Integer; const AValue: TDateTime);
  17609. procedure SetRefreshId(AIndex: Integer; const AValue: TInt32);
  17610. public
  17611. class function ObjectRestKind : String; Override;
  17612. function KeyAsURLPart : String; Override;
  17613. function ProviderStatuses(AService: TODataService)
  17614. : TSP_WorkManagement_OMProviderRefreshStatus;
  17615. function TaskChangesByLocation(AService: TODataService)
  17616. : TSP_WorkManagement_OMLocationUpdateResult;
  17617. published
  17618. Property AggregatorRefreshState : TInt32 index 0 read FAggregatorRefreshState write SetAggregatorRefreshState;
  17619. Property CorrelationId : string index 8 read FCorrelationId write SetCorrelationId;
  17620. Property RefreshFinished : TDateTime index 16 read FRefreshFinished write SetRefreshFinished;
  17621. Property RefreshId : TInt32 index 24 read FRefreshId write SetRefreshId;
  17622. end;
  17623. { --------------------------------------------------------------------
  17624. SP.WorkManagement.OM: ProviderRefreshStatus
  17625. --------------------------------------------------------------------}
  17626. TSP_WorkManagement_OMProviderRefreshStatus = Class(TODataEntity)
  17627. private
  17628. FProviderKey : string;
  17629. FProviderLocalizedName : string;
  17630. FRefreshFinished : TDateTime;
  17631. FRefreshStarted : TDateTime;
  17632. FRootLocationId : TInt32;
  17633. procedure SetProviderKey(AIndex: Integer; const AValue: string);
  17634. procedure SetProviderLocalizedName(AIndex: Integer;
  17635. const AValue: string);
  17636. procedure SetRefreshFinished(AIndex: Integer; const AValue: TDateTime);
  17637. procedure SetRefreshStarted(AIndex: Integer; const AValue: TDateTime);
  17638. procedure SetRootLocationId(AIndex: Integer; const AValue: TInt32);
  17639. public
  17640. class function ObjectRestKind : String; Override;
  17641. function KeyAsURLPart : String; Override;
  17642. published
  17643. Property ProviderKey : string index 0 read FProviderKey write SetProviderKey;
  17644. Property ProviderLocalizedName : string index 8 read FProviderLocalizedName write SetProviderLocalizedName;
  17645. Property RefreshFinished : TDateTime index 16 read FRefreshFinished write SetRefreshFinished;
  17646. Property RefreshStarted : TDateTime index 24 read FRefreshStarted write SetRefreshStarted;
  17647. Property RootLocationId : TInt32 index 32 read FRootLocationId write SetRootLocationId;
  17648. end;
  17649. { --------------------------------------------------------------------
  17650. SP.WorkManagement.OM: UserSettings
  17651. --------------------------------------------------------------------}
  17652. TSP_WorkManagement_OMUserSettings = Class(TODataEntity)
  17653. private
  17654. FDaysAfterCurrentDateTimelineEnds : TInt32;
  17655. FDaysATaskIsConsideredNewTask : TInt32;
  17656. FDaysBeforeCurrentDateTimelineStarts : TInt32;
  17657. FImportantLocationIds : TInt32Array;
  17658. FImportantTasksLimit : TInt32;
  17659. FInactiveMonthsBeforeLocationExpiration : TInt32;
  17660. FLateTasksLimit : TInt32;
  17661. FOldTasksLimit : TInt32;
  17662. FUpcomingTasksLimit : TInt32;
  17663. procedure SetDaysAfterCurrentDateTimelineEnds(AIndex: Integer;
  17664. const AValue: TInt32);
  17665. procedure SetDaysATaskIsConsideredNewTask(AIndex: Integer;
  17666. const AValue: TInt32);
  17667. procedure SetDaysBeforeCurrentDateTimelineStarts(AIndex: Integer;
  17668. const AValue: TInt32);
  17669. procedure SetImportantLocationIds(AIndex: Integer;
  17670. const AValue: TInt32Array);
  17671. procedure SetImportantTasksLimit(AIndex: Integer; const AValue: TInt32);
  17672. procedure SetInactiveMonthsBeforeLocationExpiration(AIndex: Integer;
  17673. const AValue: TInt32);
  17674. procedure SetLateTasksLimit(AIndex: Integer; const AValue: TInt32);
  17675. procedure SetOldTasksLimit(AIndex: Integer; const AValue: TInt32);
  17676. procedure SetUpcomingTasksLimit(AIndex: Integer; const AValue: TInt32);
  17677. protected
  17678. {$IFDEF VER2_6}
  17679. procedure SetArrayLength(const AName: String; ALength: Longint)
  17680. ; Override;
  17681. {$ENDIF VER2_6}
  17682. public
  17683. class function ObjectRestKind : String; Override;
  17684. function KeyAsURLPart : String; Override;
  17685. published
  17686. Property DaysAfterCurrentDateTimelineEnds : TInt32 index 0 read FDaysAfterCurrentDateTimelineEnds write SetDaysAfterCurrentDateTimelineEnds;
  17687. Property DaysATaskIsConsideredNewTask : TInt32 index 8 read FDaysATaskIsConsideredNewTask write SetDaysATaskIsConsideredNewTask;
  17688. Property DaysBeforeCurrentDateTimelineStarts : TInt32 index 16 read FDaysBeforeCurrentDateTimelineStarts write SetDaysBeforeCurrentDateTimelineStarts;
  17689. Property ImportantLocationIds : TInt32Array index 24 read FImportantLocationIds write SetImportantLocationIds;
  17690. Property ImportantTasksLimit : TInt32 index 32 read FImportantTasksLimit write SetImportantTasksLimit;
  17691. Property InactiveMonthsBeforeLocationExpiration : TInt32 index 40 read FInactiveMonthsBeforeLocationExpiration write SetInactiveMonthsBeforeLocationExpiration;
  17692. Property LateTasksLimit : TInt32 index 48 read FLateTasksLimit write SetLateTasksLimit;
  17693. Property OldTasksLimit : TInt32 index 56 read FOldTasksLimit write SetOldTasksLimit;
  17694. Property UpcomingTasksLimit : TInt32 index 64 read FUpcomingTasksLimit write SetUpcomingTasksLimit;
  17695. end;
  17696. { --------------------------------------------------------------------
  17697. SP.WorkManagement.OM: OrderInfo
  17698. --------------------------------------------------------------------}
  17699. TSP_WorkManagement_OMOrderInfo = Class(TODataEntity)
  17700. private
  17701. FField : TInt32;
  17702. FIsDescending : boolean;
  17703. procedure SetField(AIndex: Integer; const AValue: TInt32);
  17704. procedure SetIsDescending(AIndex: Integer; const AValue: boolean);
  17705. public
  17706. class function ObjectRestKind : String; Override;
  17707. function KeyAsURLPart : String; Override;
  17708. published
  17709. Property Field : TInt32 index 0 read FField write SetField;
  17710. Property IsDescending : boolean index 8 read FIsDescending write SetIsDescending;
  17711. end;
  17712. { --------------------------------------------------------------------
  17713. SP.WorkManagement.OM: ProviderErrorInfo
  17714. --------------------------------------------------------------------}
  17715. TSP_WorkManagement_OMProviderErrorInfo = Class(TODataEntity)
  17716. private
  17717. FCorrelationId : string;
  17718. FLastSuccessfulRefresh : TDateTime;
  17719. FLocalizedName : string;
  17720. procedure SetCorrelationId(AIndex: Integer; const AValue: string);
  17721. procedure SetLastSuccessfulRefresh(AIndex: Integer;
  17722. const AValue: TDateTime);
  17723. procedure SetLocalizedName(AIndex: Integer; const AValue: string);
  17724. public
  17725. class function ObjectRestKind : String; Override;
  17726. function KeyAsURLPart : String; Override;
  17727. published
  17728. Property CorrelationId : string index 0 read FCorrelationId write SetCorrelationId;
  17729. Property LastSuccessfulRefresh : TDateTime index 8 read FLastSuccessfulRefresh write SetLastSuccessfulRefresh;
  17730. Property LocalizedName : string index 16 read FLocalizedName write SetLocalizedName;
  17731. end;
  17732. { --------------------------------------------------------------------
  17733. SP.WorkManagement.OM: RefreshHealthInfo
  17734. --------------------------------------------------------------------}
  17735. TSP_WorkManagement_OMRefreshHealthInfo = Class(TODataEntity)
  17736. private
  17737. FLatestRefreshTime : TDateTime;
  17738. FNewTasks : TInt32;
  17739. FSucceeded : boolean;
  17740. procedure SetLatestRefreshTime(AIndex: Integer; const AValue: TDateTime);
  17741. procedure SetNewTasks(AIndex: Integer; const AValue: TInt32);
  17742. procedure SetSucceeded(AIndex: Integer; const AValue: boolean);
  17743. public
  17744. class function ObjectRestKind : String; Override;
  17745. function KeyAsURLPart : String; Override;
  17746. function ProviderErrors(AService: TODataService)
  17747. : TSP_WorkManagement_OMProviderErrorInfo;
  17748. published
  17749. Property LatestRefreshTime : TDateTime index 0 read FLatestRefreshTime write SetLatestRefreshTime;
  17750. Property NewTasks : TInt32 index 8 read FNewTasks write SetNewTasks;
  17751. Property Succeeded : boolean index 16 read FSucceeded write SetSucceeded;
  17752. end;
  17753. { --------------------------------------------------------------------
  17754. SP.WorkManagement.OM: SortableSessionManager
  17755. --------------------------------------------------------------------}
  17756. TSP_WorkManagement_OMSortableSessionManager = Class(TODataEntity)
  17757. private
  17758. FId4a81de82eeb94d6080ea5bf63e27023a : string;
  17759. procedure SetId4a81de82eeb94d6080ea5bf63e27023a(AIndex: Integer;
  17760. const AValue: string);
  17761. public
  17762. class function ObjectRestKind : String; Override;
  17763. function KeyAsURLPart : String; Override;
  17764. published
  17765. Property Id4a81de82eeb94d6080ea5bf63e27023a : string index 0 read FId4a81de82eeb94d6080ea5bf63e27023a write SetId4a81de82eeb94d6080ea5bf63e27023a;
  17766. end;
  17767. { --------------------------------------------------------------------
  17768. SP.WorkManagement.OM: SortableSession
  17769. --------------------------------------------------------------------}
  17770. TSP_WorkManagement_OMSortableSession = Class(TSP_WorkManagement_OMBaseSession)
  17771. public
  17772. class function ObjectRestKind : String; Override;
  17773. end;
  17774. { --------------------------------------------------------------------
  17775. SP.WorkManagement.OM: SortableTaskQuery
  17776. --------------------------------------------------------------------}
  17777. TSP_WorkManagement_OMSortableTaskQuery = Class(TODataEntity)
  17778. private
  17779. FId4a81de82eeb94d6080ea5bf63e27023a : string;
  17780. procedure SetId4a81de82eeb94d6080ea5bf63e27023a(AIndex: Integer;
  17781. const AValue: string);
  17782. public
  17783. class function ObjectRestKind : String; Override;
  17784. function KeyAsURLPart : String; Override;
  17785. function CoreQuery(AService: TODataService)
  17786. : TSP_WorkManagement_OMTaskQuery;
  17787. function Order(AService: TODataService) : TSP_WorkManagement_OMOrderInfo;
  17788. published
  17789. Property Id4a81de82eeb94d6080ea5bf63e27023a : string index 0 read FId4a81de82eeb94d6080ea5bf63e27023a write SetId4a81de82eeb94d6080ea5bf63e27023a;
  17790. end;
  17791. { --------------------------------------------------------------------
  17792. SP.WorkManagement.OM: TaskQuery
  17793. --------------------------------------------------------------------}
  17794. TSP_WorkManagement_OMTaskQuery = Class(TODataEntity)
  17795. private
  17796. FKeywordFilter : string;
  17797. FLastQueryTime : TDateTime;
  17798. FPinnedFilter : TInt32;
  17799. procedure SetKeywordFilter(AIndex: Integer; const AValue: string);
  17800. procedure SetLastQueryTime(AIndex: Integer; const AValue: TDateTime);
  17801. procedure SetPinnedFilter(AIndex: Integer; const AValue: TInt32);
  17802. public
  17803. class function ObjectRestKind : String; Override;
  17804. function KeyAsURLPart : String; Override;
  17805. function CustomAttributeFilter(AService: TODataService)
  17806. : TSP_WorkManagement_OMCustomAttributeFilter;
  17807. function FieldFilter(AService: TODataService)
  17808. : TSP_WorkManagement_OMTaskFilter;
  17809. function LastModifiedDateRangeFilter(AService: TODataService)
  17810. : TSP_WorkManagement_OMDateRangeCriterion;
  17811. function LocationFilter(AService: TODataService)
  17812. : TSP_WorkManagement_OMLocationFilter;
  17813. published
  17814. Property KeywordFilter : string index 0 read FKeywordFilter write SetKeywordFilter;
  17815. Property LastQueryTime : TDateTime index 8 read FLastQueryTime write SetLastQueryTime;
  17816. Property PinnedFilter : TInt32 index 16 read FPinnedFilter write SetPinnedFilter;
  17817. end;
  17818. { --------------------------------------------------------------------
  17819. SP.WorkManagement.OM: TaskFilter
  17820. --------------------------------------------------------------------}
  17821. TSP_WorkManagement_OMTaskFilter = Class(TODataEntity)
  17822. private
  17823. FCriterionConcatType : TInt32;
  17824. FIdsToFilterBy : TInt32Array;
  17825. procedure SetCriterionConcatType(AIndex: Integer; const AValue: TInt32);
  17826. procedure SetIdsToFilterBy(AIndex: Integer; const AValue: TInt32Array);
  17827. protected
  17828. {$IFDEF VER2_6}
  17829. procedure SetArrayLength(const AName: String; ALength: Longint)
  17830. ; Override;
  17831. {$ENDIF VER2_6}
  17832. public
  17833. class function ObjectRestKind : String; Override;
  17834. function KeyAsURLPart : String; Override;
  17835. function CompletedCriterion(AService: TODataService)
  17836. : TSP_WorkManagement_OMBooleanCriterion;
  17837. function DueDateRangeCriterion(AService: TODataService)
  17838. : TSP_WorkManagement_OMDateRangeCriterion;
  17839. function IsNewCriterion(AService: TODataService)
  17840. : TSP_WorkManagement_OMBooleanCriterion;
  17841. function NameCriterion(AService: TODataService)
  17842. : TSP_WorkManagement_OMNameCriterion;
  17843. function StartDateRangeCriterion(AService: TODataService)
  17844. : TSP_WorkManagement_OMDateRangeCriterion;
  17845. published
  17846. Property CriterionConcatType : TInt32 index 0 read FCriterionConcatType write SetCriterionConcatType;
  17847. Property IdsToFilterBy : TInt32Array index 8 read FIdsToFilterBy write SetIdsToFilterBy;
  17848. end;
  17849. { --------------------------------------------------------------------
  17850. SP.WorkManagement.OM: TaskQueryByLocationResult
  17851. --------------------------------------------------------------------}
  17852. TSP_WorkManagement_OMTaskQueryByLocationResult = Class(TODataEntity)
  17853. private
  17854. FError : TInt32;
  17855. FErrorMessage : string;
  17856. procedure SetError(AIndex: Integer; const AValue: TInt32);
  17857. procedure SetErrorMessage(AIndex: Integer; const AValue: string);
  17858. public
  17859. class function ObjectRestKind : String; Override;
  17860. function KeyAsURLPart : String; Override;
  17861. function Results(AService: TODataService) : TSP_WorkManagement_OMTask;
  17862. published
  17863. Property Error : TInt32 index 0 read FError write SetError;
  17864. Property ErrorMessage : string index 8 read FErrorMessage write SetErrorMessage;
  17865. end;
  17866. { --------------------------------------------------------------------
  17867. SP.WorkManagement.OM: TaskQueryResult
  17868. --------------------------------------------------------------------}
  17869. TSP_WorkManagement_OMTaskQueryResult = Class(TODataEntity)
  17870. private
  17871. FError : TInt32;
  17872. FErrorMessage : string;
  17873. procedure SetError(AIndex: Integer; const AValue: TInt32);
  17874. procedure SetErrorMessage(AIndex: Integer; const AValue: string);
  17875. public
  17876. class function ObjectRestKind : String; Override;
  17877. function KeyAsURLPart : String; Override;
  17878. function Results(AService: TODataService) : TSP_WorkManagement_OMTask;
  17879. published
  17880. Property Error : TInt32 index 0 read FError write SetError;
  17881. Property ErrorMessage : string index 8 read FErrorMessage write SetErrorMessage;
  17882. end;
  17883. { --------------------------------------------------------------------
  17884. SP.WorkManagement.OM: TaskRefreshResult
  17885. --------------------------------------------------------------------}
  17886. TSP_WorkManagement_OMTaskRefreshResult = Class(TODataEntity)
  17887. private
  17888. FErrorCorrelationId : string;
  17889. FRefreshState : TInt32;
  17890. procedure SetErrorCorrelationId(AIndex: Integer; const AValue: string);
  17891. procedure SetRefreshState(AIndex: Integer; const AValue: TInt32);
  17892. public
  17893. class function ObjectRestKind : String; Override;
  17894. function KeyAsURLPart : String; Override;
  17895. function _Result(AService: TODataService) : TSP_WorkManagement_OMTask;
  17896. published
  17897. Property ErrorCorrelationId : string index 0 read FErrorCorrelationId write SetErrorCorrelationId;
  17898. Property RefreshState : TInt32 index 8 read FRefreshState write SetRefreshState;
  17899. end;
  17900. { --------------------------------------------------------------------
  17901. SP.WorkManagement.OM: TaskWriteResult
  17902. --------------------------------------------------------------------}
  17903. TSP_WorkManagement_OMTaskWriteResult = Class(TODataEntity)
  17904. private
  17905. FError : TInt32;
  17906. FErrorMessage : string;
  17907. procedure SetError(AIndex: Integer; const AValue: TInt32);
  17908. procedure SetErrorMessage(AIndex: Integer; const AValue: string);
  17909. public
  17910. class function ObjectRestKind : String; Override;
  17911. function KeyAsURLPart : String; Override;
  17912. function _Result(AService: TODataService) : TSP_WorkManagement_OMTask;
  17913. published
  17914. Property Error : TInt32 index 0 read FError write SetError;
  17915. Property ErrorMessage : string index 8 read FErrorMessage write SetErrorMessage;
  17916. end;
  17917. { --------------------------------------------------------------------
  17918. SP.WorkManagement.OM: UserOrderedSessionManager
  17919. --------------------------------------------------------------------}
  17920. TSP_WorkManagement_OMUserOrderedSessionManager = Class(TODataEntity)
  17921. private
  17922. FId4a81de82eeb94d6080ea5bf63e27023a : string;
  17923. procedure SetId4a81de82eeb94d6080ea5bf63e27023a(AIndex: Integer;
  17924. const AValue: string);
  17925. public
  17926. class function ObjectRestKind : String; Override;
  17927. function KeyAsURLPart : String; Override;
  17928. published
  17929. Property Id4a81de82eeb94d6080ea5bf63e27023a : string index 0 read FId4a81de82eeb94d6080ea5bf63e27023a write SetId4a81de82eeb94d6080ea5bf63e27023a;
  17930. end;
  17931. { --------------------------------------------------------------------
  17932. SP.WorkManagement.OM: UserOrderedSession
  17933. --------------------------------------------------------------------}
  17934. TSP_WorkManagement_OMUserOrderedSession = Class(TSP_WorkManagement_OMBaseSession)
  17935. public
  17936. class function ObjectRestKind : String; Override;
  17937. end;
  17938. { --------------------------------------------------------------------
  17939. SP.WorkManagement.OM: UserSettingsManager
  17940. --------------------------------------------------------------------}
  17941. TSP_WorkManagement_OMUserSettingsManager = Class(TODataEntity)
  17942. private
  17943. FId4a81de82eeb94d6080ea5bf63e27023a : string;
  17944. procedure SetId4a81de82eeb94d6080ea5bf63e27023a(AIndex: Integer;
  17945. const AValue: string);
  17946. public
  17947. class function ObjectRestKind : String; Override;
  17948. function KeyAsURLPart : String; Override;
  17949. published
  17950. Property Id4a81de82eeb94d6080ea5bf63e27023a : string index 0 read FId4a81de82eeb94d6080ea5bf63e27023a write SetId4a81de82eeb94d6080ea5bf63e27023a;
  17951. end;
  17952. { --------------------------------------------------------------------
  17953. SP.WorkManagement.OM: ViewSelectionInfo
  17954. --------------------------------------------------------------------}
  17955. TSP_WorkManagement_OMViewSelectionInfo = Class(TODataEntity)
  17956. private
  17957. FId : TInt32;
  17958. FImage : string;
  17959. FName : string;
  17960. procedure SetId(AIndex: Integer; const AValue: TInt32);
  17961. procedure SetImage(AIndex: Integer; const AValue: string);
  17962. procedure SetName(AIndex: Integer; const AValue: string);
  17963. public
  17964. class function ObjectRestKind : String; Override;
  17965. function KeyAsURLPart : String; Override;
  17966. published
  17967. Property Id : TInt32 index 0 read FId write SetId;
  17968. Property Image : string index 8 read FImage write SetImage;
  17969. Property Name : string index 16 read FName write SetName;
  17970. end;
  17971. { --------------------------------------------------------------------
  17972. Microsoft.AppServices: App
  17973. --------------------------------------------------------------------}
  17974. TMicrosoft_AppServicesApp = Class(TODataEntity)
  17975. private
  17976. FId : string;
  17977. FManifest : string;
  17978. procedure SetId(AIndex: Integer; const AValue: string);
  17979. procedure SetManifest(AIndex: Integer; const AValue: string);
  17980. public
  17981. class function ObjectRestKind : String; Override;
  17982. function KeyAsURLPart : String; Override;
  17983. published
  17984. Property Id : string index 0 read FId write SetId;
  17985. Property Manifest : string index 8 read FManifest write SetManifest;
  17986. end;
  17987. { --------------------------------------------------------------------
  17988. Microsoft.AppServices: AppStore
  17989. --------------------------------------------------------------------}
  17990. TMicrosoft_AppServicesAppStore = Class(TODataEntity)
  17991. private
  17992. FId4a81de82eeb94d6080ea5bf63e27023a : string;
  17993. procedure SetId4a81de82eeb94d6080ea5bf63e27023a(AIndex: Integer;
  17994. const AValue: string);
  17995. public
  17996. class function ObjectRestKind : String; Override;
  17997. function KeyAsURLPart : String; Override;
  17998. function Apps(AService: TODataService) : TMicrosoft_AppServicesApp;
  17999. published
  18000. Property Id4a81de82eeb94d6080ea5bf63e27023a : string index 0 read FId4a81de82eeb94d6080ea5bf63e27023a write SetId4a81de82eeb94d6080ea5bf63e27023a;
  18001. end;
  18002. { --------------------------------------------------------------------
  18003. SP.CompliancePolicy: PolicyEvaluationInfo
  18004. --------------------------------------------------------------------}
  18005. TSP_CompliancePolicyPolicyEvaluationInfo = Class(TODataEntity)
  18006. private
  18007. FApplicablePolicies : TStringArray;
  18008. FDlpAccessScope : TInt32;
  18009. FOverriddenRules : TStringArray;
  18010. procedure SetApplicablePolicies(AIndex: Integer;
  18011. const AValue: TStringArray);
  18012. procedure SetDlpAccessScope(AIndex: Integer; const AValue: TInt32);
  18013. procedure SetOverriddenRules(AIndex: Integer;
  18014. const AValue: TStringArray);
  18015. protected
  18016. {$IFDEF VER2_6}
  18017. procedure SetArrayLength(const AName: String; ALength: Longint)
  18018. ; Override;
  18019. {$ENDIF VER2_6}
  18020. public
  18021. class function ObjectRestKind : String; Override;
  18022. function KeyAsURLPart : String; Override;
  18023. published
  18024. Property ApplicablePolicies : TStringArray index 0 read FApplicablePolicies write SetApplicablePolicies;
  18025. Property DlpAccessScope : TInt32 index 8 read FDlpAccessScope write SetDlpAccessScope;
  18026. Property OverriddenRules : TStringArray index 16 read FOverriddenRules write SetOverriddenRules;
  18027. end;
  18028. { --------------------------------------------------------------------
  18029. SP.CompliancePolicy: SPPolicyStoreProxy
  18030. --------------------------------------------------------------------}
  18031. TSP_CompliancePolicySPPolicyStoreProxy = Class(TODataEntity)
  18032. private
  18033. FPolicyStoreUrl : string;
  18034. procedure SetPolicyStoreUrl(AIndex: Integer; const AValue: string);
  18035. public
  18036. class function ObjectRestKind : String; Override;
  18037. function KeyAsURLPart : String; Override;
  18038. published
  18039. Property PolicyStoreUrl : string index 0 read FPolicyStoreUrl write SetPolicyStoreUrl;
  18040. end;
  18041. { --------------------------------------------------------------------
  18042. SPO.Identity: SPOIdentityHelper
  18043. --------------------------------------------------------------------}
  18044. TSPO_IdentitySPOIdentityHelper = Class(TODataEntity)
  18045. private
  18046. FId4a81de82eeb94d6080ea5bf63e27023a : string;
  18047. procedure SetId4a81de82eeb94d6080ea5bf63e27023a(AIndex: Integer;
  18048. const AValue: string);
  18049. public
  18050. class function ObjectRestKind : String; Override;
  18051. function KeyAsURLPart : String; Override;
  18052. published
  18053. Property Id4a81de82eeb94d6080ea5bf63e27023a : string index 0 read FId4a81de82eeb94d6080ea5bf63e27023a write SetId4a81de82eeb94d6080ea5bf63e27023a;
  18054. end;
  18055. { --------------------------------------------------------------------
  18056. OBA.Server.ServerWrapper: Diagnostics
  18057. --------------------------------------------------------------------}
  18058. TOBA_Server_ServerWrapperDiagnostics = Class(TODataEntity)
  18059. private
  18060. FId4a81de82eeb94d6080ea5bf63e27023a : string;
  18061. procedure SetId4a81de82eeb94d6080ea5bf63e27023a(AIndex: Integer;
  18062. const AValue: string);
  18063. public
  18064. class function ObjectRestKind : String; Override;
  18065. function KeyAsURLPart : String; Override;
  18066. published
  18067. Property Id4a81de82eeb94d6080ea5bf63e27023a : string index 0 read FId4a81de82eeb94d6080ea5bf63e27023a write SetId4a81de82eeb94d6080ea5bf63e27023a;
  18068. end;
  18069. { --------------------------------------------------------------------
  18070. OBA.Server.ServerWrapper: Reporting
  18071. --------------------------------------------------------------------}
  18072. TOBA_Server_ServerWrapperReporting = Class(TODataEntity)
  18073. private
  18074. FId4a81de82eeb94d6080ea5bf63e27023a : string;
  18075. procedure SetId4a81de82eeb94d6080ea5bf63e27023a(AIndex: Integer;
  18076. const AValue: string);
  18077. public
  18078. class function ObjectRestKind : String; Override;
  18079. function KeyAsURLPart : String; Override;
  18080. published
  18081. Property Id4a81de82eeb94d6080ea5bf63e27023a : string index 0 read FId4a81de82eeb94d6080ea5bf63e27023a write SetId4a81de82eeb94d6080ea5bf63e27023a;
  18082. end;
  18083. { --------------------------------------------------------------------
  18084. OBA.Server.ServerWrapper: Taskflow
  18085. --------------------------------------------------------------------}
  18086. TOBA_Server_ServerWrapperTaskflow = Class(TODataEntity)
  18087. private
  18088. FId4a81de82eeb94d6080ea5bf63e27023a : string;
  18089. procedure SetId4a81de82eeb94d6080ea5bf63e27023a(AIndex: Integer;
  18090. const AValue: string);
  18091. public
  18092. class function ObjectRestKind : String; Override;
  18093. function KeyAsURLPart : String; Override;
  18094. published
  18095. Property Id4a81de82eeb94d6080ea5bf63e27023a : string index 0 read FId4a81de82eeb94d6080ea5bf63e27023a write SetId4a81de82eeb94d6080ea5bf63e27023a;
  18096. end;
  18097. { --------------------------------------------------------------------
  18098. SP.WorkflowServices: WorkflowDefinition
  18099. --------------------------------------------------------------------}
  18100. TSP_WorkflowServicesWorkflowDefinition = Class(TODataEntity)
  18101. private
  18102. FAssociationUrl : string;
  18103. FDescription : string;
  18104. FDisplayName : string;
  18105. FDraftVersion : string;
  18106. FFormField : string;
  18107. FId : TGUIDString;
  18108. FInitiationUrl : string;
  18109. FProperties : TSPKeyValueArray;
  18110. F_Published : boolean;
  18111. FRequiresAssociationForm : boolean;
  18112. FRequiresInitiationForm : boolean;
  18113. FRestrictToScope : string;
  18114. FRestrictToType : string;
  18115. FXaml : string;
  18116. procedure SetAssociationUrl(AIndex: Integer; const AValue: string);
  18117. procedure SetDescription(AIndex: Integer; const AValue: string);
  18118. procedure SetDisplayName(AIndex: Integer; const AValue: string);
  18119. procedure SetDraftVersion(AIndex: Integer; const AValue: string);
  18120. procedure SetFormField(AIndex: Integer; const AValue: string);
  18121. procedure SetId(AIndex: Integer; const AValue: TGUIDString);
  18122. procedure SetInitiationUrl(AIndex: Integer; const AValue: string);
  18123. procedure SetProperties(AIndex: Integer; const AValue: TSPKeyValueArray);
  18124. procedure Set_Published(AIndex: Integer; const AValue: boolean);
  18125. procedure SetRequiresAssociationForm(AIndex: Integer;
  18126. const AValue: boolean);
  18127. procedure SetRequiresInitiationForm(AIndex: Integer;
  18128. const AValue: boolean);
  18129. procedure SetRestrictToScope(AIndex: Integer; const AValue: string);
  18130. procedure SetRestrictToType(AIndex: Integer; const AValue: string);
  18131. procedure SetXaml(AIndex: Integer; const AValue: string);
  18132. protected
  18133. {$IFDEF VER2_6}
  18134. procedure SetArrayLength(const AName: String; ALength: Longint)
  18135. ; Override;
  18136. {$ENDIF VER2_6}
  18137. public
  18138. class function ObjectRestKind : String; Override;
  18139. class function ExportPropertyName(const AName: String) : String
  18140. ; Override;
  18141. function KeyAsURLPart : String; Override;
  18142. published
  18143. Property AssociationUrl : string index 0 read FAssociationUrl write SetAssociationUrl;
  18144. Property Description : string index 8 read FDescription write SetDescription;
  18145. Property DisplayName : string index 16 read FDisplayName write SetDisplayName;
  18146. Property DraftVersion : string index 24 read FDraftVersion write SetDraftVersion;
  18147. Property FormField : string index 32 read FFormField write SetFormField;
  18148. Property Id : TGUIDString index 40 read FId write SetId;
  18149. Property InitiationUrl : string index 48 read FInitiationUrl write SetInitiationUrl;
  18150. Property Properties : TSPKeyValueArray index 56 read FProperties write SetProperties;
  18151. Property _Published : boolean index 64 read F_Published write Set_Published;
  18152. Property RequiresAssociationForm : boolean index 72 read FRequiresAssociationForm write SetRequiresAssociationForm;
  18153. Property RequiresInitiationForm : boolean index 80 read FRequiresInitiationForm write SetRequiresInitiationForm;
  18154. Property RestrictToScope : string index 88 read FRestrictToScope write SetRestrictToScope;
  18155. Property RestrictToType : string index 96 read FRestrictToType write SetRestrictToType;
  18156. Property Xaml : string index 104 read FXaml write SetXaml;
  18157. end;
  18158. { --------------------------------------------------------------------
  18159. SP.WorkflowServices: WorkflowDeploymentService
  18160. --------------------------------------------------------------------}
  18161. TSP_WorkflowServicesWorkflowDeploymentService = Class(TODataEntity)
  18162. private
  18163. FId4a81de82eeb94d6080ea5bf63e27023a : string;
  18164. procedure SetId4a81de82eeb94d6080ea5bf63e27023a(AIndex: Integer;
  18165. const AValue: string);
  18166. public
  18167. class function ObjectRestKind : String; Override;
  18168. function KeyAsURLPart : String; Override;
  18169. published
  18170. Property Id4a81de82eeb94d6080ea5bf63e27023a : string index 0 read FId4a81de82eeb94d6080ea5bf63e27023a write SetId4a81de82eeb94d6080ea5bf63e27023a;
  18171. end;
  18172. { --------------------------------------------------------------------
  18173. SP.WorkflowServices: WorkflowInstance
  18174. --------------------------------------------------------------------}
  18175. TSP_WorkflowServicesWorkflowInstance = Class(TODataEntity)
  18176. private
  18177. FFaultInfo : string;
  18178. FId : TGUIDString;
  18179. FInstanceCreated : TDateTime;
  18180. FLastUpdated : TDateTime;
  18181. FProperties : TSPKeyValueArray;
  18182. FStatus : TInt32;
  18183. FUserStatus : string;
  18184. FWorkflowSubscriptionId : TGUIDString;
  18185. procedure SetFaultInfo(AIndex: Integer; const AValue: string);
  18186. procedure SetId(AIndex: Integer; const AValue: TGUIDString);
  18187. procedure SetInstanceCreated(AIndex: Integer; const AValue: TDateTime);
  18188. procedure SetLastUpdated(AIndex: Integer; const AValue: TDateTime);
  18189. procedure SetProperties(AIndex: Integer; const AValue: TSPKeyValueArray);
  18190. procedure SetStatus(AIndex: Integer; const AValue: TInt32);
  18191. procedure SetUserStatus(AIndex: Integer; const AValue: string);
  18192. procedure SetWorkflowSubscriptionId(AIndex: Integer;
  18193. const AValue: TGUIDString);
  18194. protected
  18195. {$IFDEF VER2_6}
  18196. procedure SetArrayLength(const AName: String; ALength: Longint)
  18197. ; Override;
  18198. {$ENDIF VER2_6}
  18199. public
  18200. class function ObjectRestKind : String; Override;
  18201. function KeyAsURLPart : String; Override;
  18202. published
  18203. Property FaultInfo : string index 0 read FFaultInfo write SetFaultInfo;
  18204. Property Id : TGUIDString index 8 read FId write SetId;
  18205. Property InstanceCreated : TDateTime index 16 read FInstanceCreated write SetInstanceCreated;
  18206. Property LastUpdated : TDateTime index 24 read FLastUpdated write SetLastUpdated;
  18207. Property Properties : TSPKeyValueArray index 32 read FProperties write SetProperties;
  18208. Property Status : TInt32 index 40 read FStatus write SetStatus;
  18209. Property UserStatus : string index 48 read FUserStatus write SetUserStatus;
  18210. Property WorkflowSubscriptionId : TGUIDString index 56 read FWorkflowSubscriptionId write SetWorkflowSubscriptionId;
  18211. end;
  18212. { --------------------------------------------------------------------
  18213. SP.WorkflowServices: WorkflowInstanceService
  18214. --------------------------------------------------------------------}
  18215. TSP_WorkflowServicesWorkflowInstanceService = Class(TODataEntity)
  18216. private
  18217. FId4a81de82eeb94d6080ea5bf63e27023a : string;
  18218. procedure SetId4a81de82eeb94d6080ea5bf63e27023a(AIndex: Integer;
  18219. const AValue: string);
  18220. public
  18221. class function ObjectRestKind : String; Override;
  18222. function KeyAsURLPart : String; Override;
  18223. function Current(AService: TODataService)
  18224. : TSP_WorkflowServicesWorkflowInstanceService;
  18225. published
  18226. Property Id4a81de82eeb94d6080ea5bf63e27023a : string index 0 read FId4a81de82eeb94d6080ea5bf63e27023a write SetId4a81de82eeb94d6080ea5bf63e27023a;
  18227. end;
  18228. { --------------------------------------------------------------------
  18229. SP.WorkflowServices: InteropService
  18230. --------------------------------------------------------------------}
  18231. TSP_WorkflowServicesInteropService = Class(TODataEntity)
  18232. private
  18233. FId4a81de82eeb94d6080ea5bf63e27023a : string;
  18234. procedure SetId4a81de82eeb94d6080ea5bf63e27023a(AIndex: Integer;
  18235. const AValue: string);
  18236. public
  18237. class function ObjectRestKind : String; Override;
  18238. function KeyAsURLPart : String; Override;
  18239. function Current(AService: TODataService)
  18240. : TSP_WorkflowServicesInteropService;
  18241. published
  18242. Property Id4a81de82eeb94d6080ea5bf63e27023a : string index 0 read FId4a81de82eeb94d6080ea5bf63e27023a write SetId4a81de82eeb94d6080ea5bf63e27023a;
  18243. end;
  18244. { --------------------------------------------------------------------
  18245. SP.WorkflowServices: WorkflowServicesManager
  18246. --------------------------------------------------------------------}
  18247. TSP_WorkflowServicesWorkflowServicesManager = Class(TODataEntity)
  18248. private
  18249. FAppId : string;
  18250. FIsConnected : boolean;
  18251. FScopePath : string;
  18252. FServiceHealthStatus : TInt32;
  18253. procedure SetAppId(AIndex: Integer; const AValue: string);
  18254. procedure SetIsConnected(AIndex: Integer; const AValue: boolean);
  18255. procedure SetScopePath(AIndex: Integer; const AValue: string);
  18256. procedure SetServiceHealthStatus(AIndex: Integer; const AValue: TInt32);
  18257. public
  18258. class function ObjectRestKind : String; Override;
  18259. function KeyAsURLPart : String; Override;
  18260. function Current(AService: TODataService)
  18261. : TSP_WorkflowServicesWorkflowServicesManager;
  18262. published
  18263. Property AppId : string index 0 read FAppId write SetAppId;
  18264. Property IsConnected : boolean index 8 read FIsConnected write SetIsConnected;
  18265. Property ScopePath : string index 16 read FScopePath write SetScopePath;
  18266. Property ServiceHealthStatus : TInt32 index 24 read FServiceHealthStatus write SetServiceHealthStatus;
  18267. end;
  18268. { --------------------------------------------------------------------
  18269. SP.WorkflowServices: WorkflowSubscription
  18270. --------------------------------------------------------------------}
  18271. TSP_WorkflowServicesWorkflowSubscription = Class(TODataEntity)
  18272. private
  18273. FDefinitionId : TGUIDString;
  18274. FEnabled : boolean;
  18275. FEventSourceId : TGUIDString;
  18276. FEventTypes : TStringArray;
  18277. FId : TGUIDString;
  18278. FManualStartBypassesActivationLimit : boolean;
  18279. FName : string;
  18280. FParentContentTypeId : string;
  18281. FPropertyDefinitions : TSPKeyValueArray;
  18282. FStatusFieldName : string;
  18283. procedure SetDefinitionId(AIndex: Integer; const AValue: TGUIDString);
  18284. procedure SetEnabled(AIndex: Integer; const AValue: boolean);
  18285. procedure SetEventSourceId(AIndex: Integer; const AValue: TGUIDString);
  18286. procedure SetEventTypes(AIndex: Integer; const AValue: TStringArray);
  18287. procedure SetId(AIndex: Integer; const AValue: TGUIDString);
  18288. procedure SetManualStartBypassesActivationLimit(AIndex: Integer;
  18289. const AValue: boolean);
  18290. procedure SetName(AIndex: Integer; const AValue: string);
  18291. procedure SetParentContentTypeId(AIndex: Integer; const AValue: string);
  18292. procedure SetPropertyDefinitions(AIndex: Integer;
  18293. const AValue: TSPKeyValueArray);
  18294. procedure SetStatusFieldName(AIndex: Integer; const AValue: string);
  18295. protected
  18296. {$IFDEF VER2_6}
  18297. procedure SetArrayLength(const AName: String; ALength: Longint)
  18298. ; Override;
  18299. {$ENDIF VER2_6}
  18300. public
  18301. class function ObjectRestKind : String; Override;
  18302. function KeyAsURLPart : String; Override;
  18303. published
  18304. Property DefinitionId : TGUIDString index 0 read FDefinitionId write SetDefinitionId;
  18305. Property Enabled : boolean index 8 read FEnabled write SetEnabled;
  18306. Property EventSourceId : TGUIDString index 16 read FEventSourceId write SetEventSourceId;
  18307. Property EventTypes : TStringArray index 24 read FEventTypes write SetEventTypes;
  18308. Property Id : TGUIDString index 32 read FId write SetId;
  18309. Property ManualStartBypassesActivationLimit : boolean index 40 read FManualStartBypassesActivationLimit write SetManualStartBypassesActivationLimit;
  18310. Property Name : string index 48 read FName write SetName;
  18311. Property ParentContentTypeId : string index 56 read FParentContentTypeId write SetParentContentTypeId;
  18312. Property PropertyDefinitions : TSPKeyValueArray index 64 read FPropertyDefinitions write SetPropertyDefinitions;
  18313. Property StatusFieldName : string index 72 read FStatusFieldName write SetStatusFieldName;
  18314. end;
  18315. { --------------------------------------------------------------------
  18316. SP.WorkflowServices: WorkflowSubscriptionService
  18317. --------------------------------------------------------------------}
  18318. TSP_WorkflowServicesWorkflowSubscriptionService = Class(TODataEntity)
  18319. private
  18320. FId4a81de82eeb94d6080ea5bf63e27023a : string;
  18321. procedure SetId4a81de82eeb94d6080ea5bf63e27023a(AIndex: Integer;
  18322. const AValue: string);
  18323. public
  18324. class function ObjectRestKind : String; Override;
  18325. function KeyAsURLPart : String; Override;
  18326. function Current(AService: TODataService)
  18327. : TSP_WorkflowServicesWorkflowSubscriptionService;
  18328. published
  18329. Property Id4a81de82eeb94d6080ea5bf63e27023a : string index 0 read FId4a81de82eeb94d6080ea5bf63e27023a write SetId4a81de82eeb94d6080ea5bf63e27023a;
  18330. end;
  18331. { --------------------------------------------------------------------
  18332. SP.WorkflowServices: WorkflowMessagingService
  18333. --------------------------------------------------------------------}
  18334. TSP_WorkflowServicesWorkflowMessagingService = Class(TODataEntity)
  18335. private
  18336. FId4a81de82eeb94d6080ea5bf63e27023a : string;
  18337. procedure SetId4a81de82eeb94d6080ea5bf63e27023a(AIndex: Integer;
  18338. const AValue: string);
  18339. public
  18340. class function ObjectRestKind : String; Override;
  18341. function KeyAsURLPart : String; Override;
  18342. published
  18343. Property Id4a81de82eeb94d6080ea5bf63e27023a : string index 0 read FId4a81de82eeb94d6080ea5bf63e27023a write SetId4a81de82eeb94d6080ea5bf63e27023a;
  18344. end;
  18345. { --------------------------------------------------------------------
  18346. Microsoft.Office.Server.ReputationModel: Reputation
  18347. --------------------------------------------------------------------}
  18348. TMicrosoft_Office_Server_ReputationModelReputation = Class(TODataEntity)
  18349. private
  18350. FId4a81de82eeb94d6080ea5bf63e27023a : string;
  18351. procedure SetId4a81de82eeb94d6080ea5bf63e27023a(AIndex: Integer;
  18352. const AValue: string);
  18353. public
  18354. class function ObjectRestKind : String; Override;
  18355. function KeyAsURLPart : String; Override;
  18356. published
  18357. Property Id4a81de82eeb94d6080ea5bf63e27023a : string index 0 read FId4a81de82eeb94d6080ea5bf63e27023a write SetId4a81de82eeb94d6080ea5bf63e27023a;
  18358. end;
  18359. { --------------------------------------------------------------------
  18360. Microsoft.SharePoint.Client.Search.Administration: DocumentCrawlLog
  18361. --------------------------------------------------------------------}
  18362. TMicrosoft_SharePoint_Client_Search_AdministrationDocumentCrawlLog = Class(TODataEntity)
  18363. private
  18364. FId4a81de82eeb94d6080ea5bf63e27023a : string;
  18365. procedure SetId4a81de82eeb94d6080ea5bf63e27023a(AIndex: Integer;
  18366. const AValue: string);
  18367. public
  18368. class function ObjectRestKind : String; Override;
  18369. function KeyAsURLPart : String; Override;
  18370. published
  18371. Property Id4a81de82eeb94d6080ea5bf63e27023a : string index 0 read FId4a81de82eeb94d6080ea5bf63e27023a write SetId4a81de82eeb94d6080ea5bf63e27023a;
  18372. end;
  18373. { --------------------------------------------------------------------
  18374. Microsoft.BusinessData.Infrastructure.SecureStore: ConnectionSettings
  18375. --------------------------------------------------------------------}
  18376. TMicrosoft_BusinessData_Infrastructure_SecureStoreConnectionSettings = Class(TODataEntity)
  18377. private
  18378. FAuthenticationMode : string;
  18379. FConnectionSettingsType : TInt32;
  18380. FDescription : string;
  18381. FName : string;
  18382. FParentName : string;
  18383. FProxySSOApplicationId : string;
  18384. FProxyTarget : string;
  18385. FSSOApplicationId : string;
  18386. FSSOProviderImplId : string;
  18387. FTarget : string;
  18388. procedure SetAuthenticationMode(AIndex: Integer; const AValue: string);
  18389. procedure SetConnectionSettingsType(AIndex: Integer;
  18390. const AValue: TInt32);
  18391. procedure SetDescription(AIndex: Integer; const AValue: string);
  18392. procedure SetName(AIndex: Integer; const AValue: string);
  18393. procedure SetParentName(AIndex: Integer; const AValue: string);
  18394. procedure SetProxySSOApplicationId(AIndex: Integer;
  18395. const AValue: string);
  18396. procedure SetProxyTarget(AIndex: Integer; const AValue: string);
  18397. procedure SetSSOApplicationId(AIndex: Integer; const AValue: string);
  18398. procedure SetSSOProviderImplId(AIndex: Integer; const AValue: string);
  18399. procedure SetTarget(AIndex: Integer; const AValue: string);
  18400. public
  18401. class function ObjectRestKind : String; Override;
  18402. function KeyAsURLPart : String; Override;
  18403. published
  18404. Property AuthenticationMode : string index 0 read FAuthenticationMode write SetAuthenticationMode;
  18405. Property ConnectionSettingsType : TInt32 index 8 read FConnectionSettingsType write SetConnectionSettingsType;
  18406. Property Description : string index 16 read FDescription write SetDescription;
  18407. Property Name : string index 24 read FName write SetName;
  18408. Property ParentName : string index 32 read FParentName write SetParentName;
  18409. Property ProxySSOApplicationId : string index 40 read FProxySSOApplicationId write SetProxySSOApplicationId;
  18410. Property ProxyTarget : string index 48 read FProxyTarget write SetProxyTarget;
  18411. Property SSOApplicationId : string index 56 read FSSOApplicationId write SetSSOApplicationId;
  18412. Property SSOProviderImplId : string index 64 read FSSOProviderImplId write SetSSOProviderImplId;
  18413. Property Target : string index 72 read FTarget write SetTarget;
  18414. end;
  18415. { --------------------------------------------------------------------
  18416. Microsoft.Office.SecureStoreService.Server: TargetApplicationField
  18417. --------------------------------------------------------------------}
  18418. TMicrosoft_Office_SecureStoreService_ServerTargetApplicationField = Class(TODataEntity)
  18419. private
  18420. FCredentialType : TInt32;
  18421. FIsMasked : boolean;
  18422. FName : string;
  18423. procedure SetCredentialType(AIndex: Integer; const AValue: TInt32);
  18424. procedure SetIsMasked(AIndex: Integer; const AValue: boolean);
  18425. procedure SetName(AIndex: Integer; const AValue: string);
  18426. public
  18427. class function ObjectRestKind : String; Override;
  18428. function KeyAsURLPart : String; Override;
  18429. published
  18430. Property CredentialType : TInt32 index 0 read FCredentialType write SetCredentialType;
  18431. Property IsMasked : boolean index 8 read FIsMasked write SetIsMasked;
  18432. Property Name : string index 16 read FName write SetName;
  18433. end;
  18434. { --------------------------------------------------------------------
  18435. Microsoft.Office.SecureStoreService.Server: TargetApplication
  18436. --------------------------------------------------------------------}
  18437. TMicrosoft_Office_SecureStoreService_ServerTargetApplication = Class(TODataEntity)
  18438. private
  18439. FApplicationId : string;
  18440. FContactEmail : string;
  18441. FFriendlyName : string;
  18442. FTargetAppType : TInt32;
  18443. procedure SetApplicationId(AIndex: Integer; const AValue: string);
  18444. procedure SetContactEmail(AIndex: Integer; const AValue: string);
  18445. procedure SetFriendlyName(AIndex: Integer; const AValue: string);
  18446. procedure SetTargetAppType(AIndex: Integer; const AValue: TInt32);
  18447. public
  18448. class function ObjectRestKind : String; Override;
  18449. function KeyAsURLPart : String; Override;
  18450. published
  18451. Property ApplicationId : string index 0 read FApplicationId write SetApplicationId;
  18452. Property ContactEmail : string index 8 read FContactEmail write SetContactEmail;
  18453. Property FriendlyName : string index 16 read FFriendlyName write SetFriendlyName;
  18454. Property TargetAppType : TInt32 index 24 read FTargetAppType write SetTargetAppType;
  18455. end;
  18456. { --------------------------------------------------------------------
  18457. Microsoft.SharePoint.AppManagement: SPAppPrincipalInfo
  18458. --------------------------------------------------------------------}
  18459. TMicrosoft_SharePoint_AppManagementSPAppPrincipalInfo = Class(TODataEntity)
  18460. private
  18461. FFlag : TInt32;
  18462. FName : string;
  18463. FTitle : string;
  18464. procedure SetFlag(AIndex: Integer; const AValue: TInt32);
  18465. procedure SetName(AIndex: Integer; const AValue: string);
  18466. procedure SetTitle(AIndex: Integer; const AValue: string);
  18467. public
  18468. class function ObjectRestKind : String; Override;
  18469. function KeyAsURLPart : String; Override;
  18470. published
  18471. Property Flag : TInt32 index 0 read FFlag write SetFlag;
  18472. Property Name : string index 8 read FName write SetName;
  18473. Property Title : string index 16 read FTitle write SetTitle;
  18474. end;
  18475. { --------------------------------------------------------------------
  18476. Microsoft.SharePoint.Flighting.Runtime: SPFlight
  18477. --------------------------------------------------------------------}
  18478. TMicrosoft_SharePoint_Flighting_RuntimeSPFlight = Class(TODataEntity)
  18479. private
  18480. FConfiguration : string;
  18481. procedure SetConfiguration(AIndex: Integer; const AValue: string);
  18482. public
  18483. class function ObjectRestKind : String; Override;
  18484. function KeyAsURLPart : String; Override;
  18485. published
  18486. Property Configuration : string index 0 read FConfiguration write SetConfiguration;
  18487. end;
  18488. { --------------------------------------------------------------------
  18489. Microsoft.SharePoint.Marketplace.CorporateCuratedGallery: SPCorporateCuratedGallerySettingsBase
  18490. --------------------------------------------------------------------}
  18491. TMicrosoft_SharePoint_Marketplace_CorporateCuratedGallerySPCorporateCuratedGallerySettingsBase = Class(TODataEntity)
  18492. private
  18493. FHostSiteFullUrl : string;
  18494. procedure SetHostSiteFullUrl(AIndex: Integer; const AValue: string);
  18495. public
  18496. class function ObjectRestKind : String; Override;
  18497. function KeyAsURLPart : String; Override;
  18498. published
  18499. Property HostSiteFullUrl : string index 0 read FHostSiteFullUrl write SetHostSiteFullUrl;
  18500. end;
  18501. { --------------------------------------------------------------------
  18502. Microsoft.SharePoint.Marketplace.CorporateCuratedGallery: SPCorporateCuratedGallerySettingsFactory
  18503. --------------------------------------------------------------------}
  18504. TMicrosoft_SharePoint_Marketplace_CorporateCuratedGallerySPCorporateCuratedGallerySettingsFactory = Class(TODataEntity)
  18505. private
  18506. FId4a81de82eeb94d6080ea5bf63e27023a : string;
  18507. procedure SetId4a81de82eeb94d6080ea5bf63e27023a(AIndex: Integer;
  18508. const AValue: string);
  18509. public
  18510. class function ObjectRestKind : String; Override;
  18511. function KeyAsURLPart : String; Override;
  18512. published
  18513. Property Id4a81de82eeb94d6080ea5bf63e27023a : string index 0 read FId4a81de82eeb94d6080ea5bf63e27023a write SetId4a81de82eeb94d6080ea5bf63e27023a;
  18514. end;
  18515. { --------------------------------------------------------------------
  18516. Microsoft.SharePoint.Marketplace: SPMarketplaceSettings
  18517. --------------------------------------------------------------------}
  18518. TMicrosoft_SharePoint_MarketplaceSPMarketplaceSettings = Class(TODataEntity)
  18519. private
  18520. FId4a81de82eeb94d6080ea5bf63e27023a : string;
  18521. procedure SetId4a81de82eeb94d6080ea5bf63e27023a(AIndex: Integer;
  18522. const AValue: string);
  18523. public
  18524. class function ObjectRestKind : String; Override;
  18525. function KeyAsURLPart : String; Override;
  18526. published
  18527. Property Id4a81de82eeb94d6080ea5bf63e27023a : string index 0 read FId4a81de82eeb94d6080ea5bf63e27023a write SetId4a81de82eeb94d6080ea5bf63e27023a;
  18528. end;
  18529. { --------------------------------------------------------------------
  18530. Microsoft.SharePoint.Portal.WebControls: RecentDocument
  18531. --------------------------------------------------------------------}
  18532. TMicrosoft_SharePoint_Portal_WebControlsRecentDocument = Class(TODataEntity)
  18533. private
  18534. FApplication : string;
  18535. FFileName : string;
  18536. FIconUrl : string;
  18537. FId : TInt32;
  18538. FIsPinned : boolean;
  18539. FLinkLocation : string;
  18540. FTimeStamp : TDateTime;
  18541. procedure SetApplication(AIndex: Integer; const AValue: string);
  18542. procedure SetFileName(AIndex: Integer; const AValue: string);
  18543. procedure SetIconUrl(AIndex: Integer; const AValue: string);
  18544. procedure SetId(AIndex: Integer; const AValue: TInt32);
  18545. procedure SetIsPinned(AIndex: Integer; const AValue: boolean);
  18546. procedure SetLinkLocation(AIndex: Integer; const AValue: string);
  18547. procedure SetTimeStamp(AIndex: Integer; const AValue: TDateTime);
  18548. public
  18549. class function ObjectRestKind : String; Override;
  18550. function KeyAsURLPart : String; Override;
  18551. published
  18552. Property Application : string index 0 read FApplication write SetApplication;
  18553. Property FileName : string index 8 read FFileName write SetFileName;
  18554. Property IconUrl : string index 16 read FIconUrl write SetIconUrl;
  18555. Property Id : TInt32 index 24 read FId write SetId;
  18556. Property IsPinned : boolean index 32 read FIsPinned write SetIsPinned;
  18557. Property LinkLocation : string index 40 read FLinkLocation write SetLinkLocation;
  18558. Property TimeStamp : TDateTime index 48 read FTimeStamp write SetTimeStamp;
  18559. end;
  18560. { --------------------------------------------------------------------
  18561. SP.BusinessData.Runtime: EntityIdentity
  18562. --------------------------------------------------------------------}
  18563. TSP_BusinessData_RuntimeEntityIdentity = Class(TODataEntity)
  18564. private
  18565. FIdentifierCount : TInt32;
  18566. procedure SetIdentifierCount(AIndex: Integer; const AValue: TInt32);
  18567. public
  18568. class function ObjectRestKind : String; Override;
  18569. function KeyAsURLPart : String; Override;
  18570. published
  18571. Property IdentifierCount : TInt32 index 0 read FIdentifierCount write SetIdentifierCount;
  18572. end;
  18573. { --------------------------------------------------------------------
  18574. SP.BusinessData.Runtime: NotificationCallback
  18575. --------------------------------------------------------------------}
  18576. TSP_BusinessData_RuntimeNotificationCallback = Class(TODataEntity)
  18577. private
  18578. FNotificationContext : string;
  18579. FNotificationEndpoint : string;
  18580. FNotificationForwarderType : string;
  18581. procedure SetNotificationContext(AIndex: Integer; const AValue: string);
  18582. procedure SetNotificationEndpoint(AIndex: Integer; const AValue: string);
  18583. procedure SetNotificationForwarderType(AIndex: Integer;
  18584. const AValue: string);
  18585. public
  18586. class function ObjectRestKind : String; Override;
  18587. function KeyAsURLPart : String; Override;
  18588. published
  18589. Property NotificationContext : string index 0 read FNotificationContext write SetNotificationContext;
  18590. Property NotificationEndpoint : string index 8 read FNotificationEndpoint write SetNotificationEndpoint;
  18591. Property NotificationForwarderType : string index 16 read FNotificationForwarderType write SetNotificationForwarderType;
  18592. end;
  18593. { --------------------------------------------------------------------
  18594. SP.BusinessData.Runtime: Subscription
  18595. --------------------------------------------------------------------}
  18596. TSP_BusinessData_RuntimeSubscription = Class(TODataEntity)
  18597. private
  18598. FHash : string;
  18599. FID : TSPKeyValueArray;
  18600. procedure SetHash(AIndex: Integer; const AValue: string);
  18601. procedure SetID(AIndex: Integer; const AValue: TSPKeyValueArray);
  18602. protected
  18603. {$IFDEF VER2_6}
  18604. procedure SetArrayLength(const AName: String; ALength: Longint)
  18605. ; Override;
  18606. {$ENDIF VER2_6}
  18607. public
  18608. class function ObjectRestKind : String; Override;
  18609. function KeyAsURLPart : String; Override;
  18610. published
  18611. Property Hash : string index 0 read FHash write SetHash;
  18612. Property ID : TSPKeyValueArray index 8 read FID write SetID;
  18613. end;
  18614. { --------------------------------------------------------------------
  18615. SP.BusinessData.Runtime: EntityInstance
  18616. --------------------------------------------------------------------}
  18617. TSP_BusinessData_RuntimeEntityInstance = Class(TODataEntity)
  18618. private
  18619. FId4a81de82eeb94d6080ea5bf63e27023a : string;
  18620. procedure SetId4a81de82eeb94d6080ea5bf63e27023a(AIndex: Integer;
  18621. const AValue: string);
  18622. public
  18623. class function ObjectRestKind : String; Override;
  18624. function KeyAsURLPart : String; Override;
  18625. published
  18626. Property Id4a81de82eeb94d6080ea5bf63e27023a : string index 0 read FId4a81de82eeb94d6080ea5bf63e27023a write SetId4a81de82eeb94d6080ea5bf63e27023a;
  18627. end;
  18628. { --------------------------------------------------------------------
  18629. SP.BusinessData.Runtime: EntityFieldValueDictionary
  18630. --------------------------------------------------------------------}
  18631. TSP_BusinessData_RuntimeEntityFieldValueDictionary = Class(TODataEntity)
  18632. private
  18633. FId4a81de82eeb94d6080ea5bf63e27023a : string;
  18634. procedure SetId4a81de82eeb94d6080ea5bf63e27023a(AIndex: Integer;
  18635. const AValue: string);
  18636. public
  18637. class function ObjectRestKind : String; Override;
  18638. function KeyAsURLPart : String; Override;
  18639. published
  18640. Property Id4a81de82eeb94d6080ea5bf63e27023a : string index 0 read FId4a81de82eeb94d6080ea5bf63e27023a write SetId4a81de82eeb94d6080ea5bf63e27023a;
  18641. end;
  18642. { --------------------------------------------------------------------
  18643. SP.BusinessData: EntityField
  18644. --------------------------------------------------------------------}
  18645. TSP_BusinessDataEntityField = Class(TODataEntity)
  18646. private
  18647. FContainsLocalizedDisplayName : boolean;
  18648. FDefaultDisplayName : string;
  18649. FLocalizedDisplayName : string;
  18650. FName : string;
  18651. procedure SetContainsLocalizedDisplayName(AIndex: Integer;
  18652. const AValue: boolean);
  18653. procedure SetDefaultDisplayName(AIndex: Integer; const AValue: string);
  18654. procedure SetLocalizedDisplayName(AIndex: Integer; const AValue: string);
  18655. procedure SetName(AIndex: Integer; const AValue: string);
  18656. public
  18657. class function ObjectRestKind : String; Override;
  18658. function KeyAsURLPart : String; Override;
  18659. published
  18660. Property ContainsLocalizedDisplayName : boolean index 0 read FContainsLocalizedDisplayName write SetContainsLocalizedDisplayName;
  18661. Property DefaultDisplayName : string index 8 read FDefaultDisplayName write SetDefaultDisplayName;
  18662. Property LocalizedDisplayName : string index 16 read FLocalizedDisplayName write SetLocalizedDisplayName;
  18663. Property Name : string index 24 read FName write SetName;
  18664. end;
  18665. { --------------------------------------------------------------------
  18666. SP.BusinessData: Filter
  18667. --------------------------------------------------------------------}
  18668. TSP_BusinessDataFilter = Class(TODataEntity)
  18669. private
  18670. FDefaultDisplayName : string;
  18671. FFilterField : string;
  18672. FFilterType : string;
  18673. FLocalizedDisplayName : string;
  18674. FName : string;
  18675. FValueCount : TInt32;
  18676. procedure SetDefaultDisplayName(AIndex: Integer; const AValue: string);
  18677. procedure SetFilterField(AIndex: Integer; const AValue: string);
  18678. procedure SetFilterType(AIndex: Integer; const AValue: string);
  18679. procedure SetLocalizedDisplayName(AIndex: Integer; const AValue: string);
  18680. procedure SetName(AIndex: Integer; const AValue: string);
  18681. procedure SetValueCount(AIndex: Integer; const AValue: TInt32);
  18682. public
  18683. class function ObjectRestKind : String; Override;
  18684. function KeyAsURLPart : String; Override;
  18685. published
  18686. Property DefaultDisplayName : string index 0 read FDefaultDisplayName write SetDefaultDisplayName;
  18687. Property FilterField : string index 8 read FFilterField write SetFilterField;
  18688. Property FilterType : string index 16 read FFilterType write SetFilterType;
  18689. Property LocalizedDisplayName : string index 24 read FLocalizedDisplayName write SetLocalizedDisplayName;
  18690. Property Name : string index 32 read FName write SetName;
  18691. Property ValueCount : TInt32 index 40 read FValueCount write SetValueCount;
  18692. end;
  18693. { --------------------------------------------------------------------
  18694. SP.BusinessData: EntityIdentifier
  18695. --------------------------------------------------------------------}
  18696. TSP_BusinessDataEntityIdentifier = Class(TODataEntity)
  18697. private
  18698. FIdentifierType : string;
  18699. FName : string;
  18700. procedure SetIdentifierType(AIndex: Integer; const AValue: string);
  18701. procedure SetName(AIndex: Integer; const AValue: string);
  18702. public
  18703. class function ObjectRestKind : String; Override;
  18704. function KeyAsURLPart : String; Override;
  18705. published
  18706. Property IdentifierType : string index 0 read FIdentifierType write SetIdentifierType;
  18707. Property Name : string index 8 read FName write SetName;
  18708. end;
  18709. { --------------------------------------------------------------------
  18710. SP.BusinessData: LobSystemInstance
  18711. --------------------------------------------------------------------}
  18712. TSP_BusinessDataLobSystemInstance = Class(TODataEntity)
  18713. private
  18714. FName : string;
  18715. procedure SetName(AIndex: Integer; const AValue: string);
  18716. public
  18717. class function ObjectRestKind : String; Override;
  18718. function KeyAsURLPart : String; Override;
  18719. published
  18720. Property Name : string index 0 read FName write SetName;
  18721. end;
  18722. { --------------------------------------------------------------------
  18723. SP.BusinessData: TypeDescriptor
  18724. --------------------------------------------------------------------}
  18725. TSP_BusinessDataTypeDescriptor = Class(TODataEntity)
  18726. private
  18727. FContainsReadOnly : boolean;
  18728. FIsCollection : boolean;
  18729. FIsReadOnly : boolean;
  18730. FName : string;
  18731. FTypeName : string;
  18732. procedure SetContainsReadOnly(AIndex: Integer; const AValue: boolean);
  18733. procedure SetIsCollection(AIndex: Integer; const AValue: boolean);
  18734. procedure SetIsReadOnly(AIndex: Integer; const AValue: boolean);
  18735. procedure SetName(AIndex: Integer; const AValue: string);
  18736. procedure SetTypeName(AIndex: Integer; const AValue: string);
  18737. public
  18738. class function ObjectRestKind : String; Override;
  18739. function KeyAsURLPart : String; Override;
  18740. published
  18741. Property ContainsReadOnly : boolean index 0 read FContainsReadOnly write SetContainsReadOnly;
  18742. Property IsCollection : boolean index 8 read FIsCollection write SetIsCollection;
  18743. Property IsReadOnly : boolean index 16 read FIsReadOnly write SetIsReadOnly;
  18744. Property Name : string index 24 read FName write SetName;
  18745. Property TypeName : string index 32 read FTypeName write SetTypeName;
  18746. end;
  18747. { --------------------------------------------------------------------
  18748. SP.BusinessData: Entity
  18749. --------------------------------------------------------------------}
  18750. TSP_BusinessDataEntity = Class(TODataEntity)
  18751. private
  18752. FEstimatedInstanceCount : int64;
  18753. FName : string;
  18754. FNamespace : string;
  18755. procedure SetEstimatedInstanceCount(AIndex: Integer;
  18756. const AValue: int64);
  18757. procedure SetName(AIndex: Integer; const AValue: string);
  18758. procedure SetNamespace(AIndex: Integer; const AValue: string);
  18759. public
  18760. class function ObjectRestKind : String; Override;
  18761. function KeyAsURLPart : String; Override;
  18762. published
  18763. Property EstimatedInstanceCount : int64 index 0 read FEstimatedInstanceCount write SetEstimatedInstanceCount;
  18764. Property Name : string index 8 read FName write SetName;
  18765. Property Namespace : string index 16 read FNamespace write SetNamespace;
  18766. end;
  18767. { --------------------------------------------------------------------
  18768. SP.BusinessData: LobSystem
  18769. --------------------------------------------------------------------}
  18770. TSP_BusinessDataLobSystem = Class(TODataEntity)
  18771. private
  18772. FName : string;
  18773. procedure SetName(AIndex: Integer; const AValue: string);
  18774. public
  18775. class function ObjectRestKind : String; Override;
  18776. function KeyAsURLPart : String; Override;
  18777. published
  18778. Property Name : string index 0 read FName write SetName;
  18779. end;
  18780. { --------------------------------------------------------------------
  18781. SP.BusinessData: MethodExecutionResult
  18782. --------------------------------------------------------------------}
  18783. TSP_BusinessDataMethodExecutionResult = Class(TODataEntity)
  18784. private
  18785. FId4a81de82eeb94d6080ea5bf63e27023a : string;
  18786. procedure SetId4a81de82eeb94d6080ea5bf63e27023a(AIndex: Integer;
  18787. const AValue: string);
  18788. public
  18789. class function ObjectRestKind : String; Override;
  18790. function KeyAsURLPart : String; Override;
  18791. function ReturnParameterCollection(AService: TODataService)
  18792. : TSP_BusinessData_RuntimeEntityFieldValueDictionary;
  18793. published
  18794. Property Id4a81de82eeb94d6080ea5bf63e27023a : string index 0 read FId4a81de82eeb94d6080ea5bf63e27023a write SetId4a81de82eeb94d6080ea5bf63e27023a;
  18795. end;
  18796. { --------------------------------------------------------------------
  18797. SP.BusinessData: EntityView
  18798. --------------------------------------------------------------------}
  18799. TSP_BusinessDataEntityView = Class(TODataEntity)
  18800. private
  18801. FName : string;
  18802. FRelatedSpecificFinderName : string;
  18803. procedure SetName(AIndex: Integer; const AValue: string);
  18804. procedure SetRelatedSpecificFinderName(AIndex: Integer;
  18805. const AValue: string);
  18806. public
  18807. class function ObjectRestKind : String; Override;
  18808. function KeyAsURLPart : String; Override;
  18809. function Fields(AService: TODataService) : TSP_BusinessDataEntityField;
  18810. published
  18811. Property Name : string index 0 read FName write SetName;
  18812. Property RelatedSpecificFinderName : string index 8 read FRelatedSpecificFinderName write SetRelatedSpecificFinderName;
  18813. end;
  18814. { --------------------------------------------------------------------
  18815. SP.BusinessData: AppBdcCatalog
  18816. --------------------------------------------------------------------}
  18817. TSP_BusinessDataAppBdcCatalog = Class(TODataEntity)
  18818. private
  18819. FId4a81de82eeb94d6080ea5bf63e27023a : string;
  18820. procedure SetId4a81de82eeb94d6080ea5bf63e27023a(AIndex: Integer;
  18821. const AValue: string);
  18822. public
  18823. class function ObjectRestKind : String; Override;
  18824. function KeyAsURLPart : String; Override;
  18825. published
  18826. Property Id4a81de82eeb94d6080ea5bf63e27023a : string index 0 read FId4a81de82eeb94d6080ea5bf63e27023a write SetId4a81de82eeb94d6080ea5bf63e27023a;
  18827. end;
  18828. { --------------------------------------------------------------------
  18829. SP.Analytics: AnalyticsUsageEntry
  18830. --------------------------------------------------------------------}
  18831. TSP_AnalyticsAnalyticsUsageEntry = Class(TODataEntity)
  18832. private
  18833. FId4a81de82eeb94d6080ea5bf63e27023a : string;
  18834. procedure SetId4a81de82eeb94d6080ea5bf63e27023a(AIndex: Integer;
  18835. const AValue: string);
  18836. public
  18837. class function ObjectRestKind : String; Override;
  18838. function KeyAsURLPart : String; Override;
  18839. published
  18840. Property Id4a81de82eeb94d6080ea5bf63e27023a : string index 0 read FId4a81de82eeb94d6080ea5bf63e27023a write SetId4a81de82eeb94d6080ea5bf63e27023a;
  18841. end;
  18842. { --------------------------------------------------------------------
  18843. SP.BusinessData.Infrastructure: ExternalSubscriptionStore
  18844. --------------------------------------------------------------------}
  18845. TSP_BusinessData_InfrastructureExternalSubscriptionStore = Class(TODataEntity)
  18846. private
  18847. FId4a81de82eeb94d6080ea5bf63e27023a : string;
  18848. procedure SetId4a81de82eeb94d6080ea5bf63e27023a(AIndex: Integer;
  18849. const AValue: string);
  18850. public
  18851. class function ObjectRestKind : String; Override;
  18852. function KeyAsURLPart : String; Override;
  18853. published
  18854. Property Id4a81de82eeb94d6080ea5bf63e27023a : string index 0 read FId4a81de82eeb94d6080ea5bf63e27023a write SetId4a81de82eeb94d6080ea5bf63e27023a;
  18855. end;
  18856. { --------------------------------------------------------------------
  18857. Microsoft.SharePoint.Navigation.REST: NavigationServiceRest
  18858. --------------------------------------------------------------------}
  18859. TMicrosoft_SharePoint_Navigation_RESTNavigationServiceRest = Class(TODataEntity)
  18860. private
  18861. FId4a81de82eeb94d6080ea5bf63e27023a : string;
  18862. procedure SetId4a81de82eeb94d6080ea5bf63e27023a(AIndex: Integer;
  18863. const AValue: string);
  18864. public
  18865. class function ObjectRestKind : String; Override;
  18866. function KeyAsURLPart : String; Override;
  18867. published
  18868. Property Id4a81de82eeb94d6080ea5bf63e27023a : string index 0 read FId4a81de82eeb94d6080ea5bf63e27023a write SetId4a81de82eeb94d6080ea5bf63e27023a;
  18869. end;
  18870. { --------------------------------------------------------------------
  18871. Microsoft.SharePoint.Packaging: AppDetails
  18872. --------------------------------------------------------------------}
  18873. TMicrosoft_SharePoint_PackagingAppDetails = Class(TODataEntity)
  18874. private
  18875. FEulaUrl : string;
  18876. FPrivacyUrl : string;
  18877. FPublisher : string;
  18878. FShortDescription : string;
  18879. FSupportUrl : string;
  18880. procedure SetEulaUrl(AIndex: Integer; const AValue: string);
  18881. procedure SetPrivacyUrl(AIndex: Integer; const AValue: string);
  18882. procedure SetPublisher(AIndex: Integer; const AValue: string);
  18883. procedure SetShortDescription(AIndex: Integer; const AValue: string);
  18884. procedure SetSupportUrl(AIndex: Integer; const AValue: string);
  18885. public
  18886. class function ObjectRestKind : String; Override;
  18887. function KeyAsURLPart : String; Override;
  18888. published
  18889. Property EulaUrl : string index 0 read FEulaUrl write SetEulaUrl;
  18890. Property PrivacyUrl : string index 8 read FPrivacyUrl write SetPrivacyUrl;
  18891. Property Publisher : string index 16 read FPublisher write SetPublisher;
  18892. Property ShortDescription : string index 24 read FShortDescription write SetShortDescription;
  18893. Property SupportUrl : string index 32 read FSupportUrl write SetSupportUrl;
  18894. end;
  18895. { --------------------------------------------------------------------
  18896. Microsoft.SharePoint.Packaging: AppIconInfo
  18897. --------------------------------------------------------------------}
  18898. TMicrosoft_SharePoint_PackagingAppIconInfo = Class(TODataEntity)
  18899. private
  18900. FContent : TBinary;
  18901. FMimeType : string;
  18902. procedure SetContent(AIndex: Integer; const AValue: TBinary);
  18903. procedure SetMimeType(AIndex: Integer; const AValue: string);
  18904. public
  18905. class function ObjectRestKind : String; Override;
  18906. function KeyAsURLPart : String; Override;
  18907. published
  18908. Property Content : TBinary index 0 read FContent write SetContent;
  18909. Property MimeType : string index 8 read FMimeType write SetMimeType;
  18910. end;
  18911. { --------------------------------------------------------------------
  18912. SP.OAuth: NativeClient
  18913. --------------------------------------------------------------------}
  18914. TSP_OAuthNativeClient = Class(TODataEntity)
  18915. private
  18916. FId4a81de82eeb94d6080ea5bf63e27023a : string;
  18917. procedure SetId4a81de82eeb94d6080ea5bf63e27023a(AIndex: Integer;
  18918. const AValue: string);
  18919. public
  18920. class function ObjectRestKind : String; Override;
  18921. function KeyAsURLPart : String; Override;
  18922. published
  18923. Property Id4a81de82eeb94d6080ea5bf63e27023a : string index 0 read FId4a81de82eeb94d6080ea5bf63e27023a write SetId4a81de82eeb94d6080ea5bf63e27023a;
  18924. end;
  18925. { --------------------------------------------------------------------
  18926. Microsoft.SharePoint.WebControls: ModuleLink
  18927. --------------------------------------------------------------------}
  18928. TMicrosoft_SharePoint_WebControlsModuleLink = Class(TODataEntity)
  18929. private
  18930. FId4a81de82eeb94d6080ea5bf63e27023a : string;
  18931. procedure SetId4a81de82eeb94d6080ea5bf63e27023a(AIndex: Integer;
  18932. const AValue: string);
  18933. public
  18934. class function ObjectRestKind : String; Override;
  18935. function KeyAsURLPart : String; Override;
  18936. published
  18937. Property Id4a81de82eeb94d6080ea5bf63e27023a : string index 0 read FId4a81de82eeb94d6080ea5bf63e27023a write SetId4a81de82eeb94d6080ea5bf63e27023a;
  18938. end;
  18939. { --------------------------------------------------------------------
  18940. Microsoft.SharePoint.WebControls: ResourceManifestInformation
  18941. --------------------------------------------------------------------}
  18942. TMicrosoft_SharePoint_WebControlsResourceManifestInformation = Class(TODataEntity)
  18943. private
  18944. FRequireJsScriptBlock : string;
  18945. FScenarioMapping : TSPKeyValueArray;
  18946. procedure SetRequireJsScriptBlock(AIndex: Integer; const AValue: string);
  18947. procedure SetScenarioMapping(AIndex: Integer;
  18948. const AValue: TSPKeyValueArray);
  18949. protected
  18950. {$IFDEF VER2_6}
  18951. procedure SetArrayLength(const AName: String; ALength: Longint)
  18952. ; Override;
  18953. {$ENDIF VER2_6}
  18954. public
  18955. class function ObjectRestKind : String; Override;
  18956. function KeyAsURLPart : String; Override;
  18957. published
  18958. Property RequireJsScriptBlock : string index 0 read FRequireJsScriptBlock write SetRequireJsScriptBlock;
  18959. Property ScenarioMapping : TSPKeyValueArray index 8 read FScenarioMapping write SetScenarioMapping;
  18960. end;
  18961. { --------------------------------------------------------------------
  18962. Microsoft.Online.SharePoint.PointPublishing: PointPublishingAdmin
  18963. --------------------------------------------------------------------}
  18964. TMicrosoft_Online_SharePoint_PointPublishingPointPublishingAdmin = Class(TODataEntity)
  18965. private
  18966. FId4a81de82eeb94d6080ea5bf63e27023a : string;
  18967. procedure SetId4a81de82eeb94d6080ea5bf63e27023a(AIndex: Integer;
  18968. const AValue: string);
  18969. public
  18970. class function ObjectRestKind : String; Override;
  18971. function KeyAsURLPart : String; Override;
  18972. published
  18973. Property Id4a81de82eeb94d6080ea5bf63e27023a : string index 0 read FId4a81de82eeb94d6080ea5bf63e27023a write SetId4a81de82eeb94d6080ea5bf63e27023a;
  18974. end;
  18975. { --------------------------------------------------------------------
  18976. Microsoft.Online.SharePoint.TenantAdmin.MiddleTier: DDIAdapter
  18977. --------------------------------------------------------------------}
  18978. TMicrosoft_Online_SharePoint_TenantAdmin_MiddleTierDDIAdapter = Class(TODataEntity)
  18979. private
  18980. FId4a81de82eeb94d6080ea5bf63e27023a : string;
  18981. procedure SetId4a81de82eeb94d6080ea5bf63e27023a(AIndex: Integer;
  18982. const AValue: string);
  18983. public
  18984. class function ObjectRestKind : String; Override;
  18985. function KeyAsURLPart : String; Override;
  18986. published
  18987. Property Id4a81de82eeb94d6080ea5bf63e27023a : string index 0 read FId4a81de82eeb94d6080ea5bf63e27023a write SetId4a81de82eeb94d6080ea5bf63e27023a;
  18988. end;
  18989. { --------------------------------------------------------------------
  18990. Microsoft.Online.SharePoint.TenantManagement: ExternalUser
  18991. --------------------------------------------------------------------}
  18992. TMicrosoft_Online_SharePoint_TenantManagementExternalUser = Class(TODataEntity)
  18993. private
  18994. FAcceptedAs : string;
  18995. FDisplayName : string;
  18996. FInvitedAs : string;
  18997. FInvitedBy : string;
  18998. FUniqueId : string;
  18999. FUserId : TInt32;
  19000. FWhenCreated : TDateTime;
  19001. procedure SetAcceptedAs(AIndex: Integer; const AValue: string);
  19002. procedure SetDisplayName(AIndex: Integer; const AValue: string);
  19003. procedure SetInvitedAs(AIndex: Integer; const AValue: string);
  19004. procedure SetInvitedBy(AIndex: Integer; const AValue: string);
  19005. procedure SetUniqueId(AIndex: Integer; const AValue: string);
  19006. procedure SetUserId(AIndex: Integer; const AValue: TInt32);
  19007. procedure SetWhenCreated(AIndex: Integer; const AValue: TDateTime);
  19008. public
  19009. class function ObjectRestKind : String; Override;
  19010. function KeyAsURLPart : String; Override;
  19011. published
  19012. Property AcceptedAs : string index 0 read FAcceptedAs write SetAcceptedAs;
  19013. Property DisplayName : string index 8 read FDisplayName write SetDisplayName;
  19014. Property InvitedAs : string index 16 read FInvitedAs write SetInvitedAs;
  19015. Property InvitedBy : string index 24 read FInvitedBy write SetInvitedBy;
  19016. Property UniqueId : string index 32 read FUniqueId write SetUniqueId;
  19017. Property UserId : TInt32 index 40 read FUserId write SetUserId;
  19018. Property WhenCreated : TDateTime index 48 read FWhenCreated write SetWhenCreated;
  19019. end;
  19020. { --------------------------------------------------------------------
  19021. Microsoft.Online.SharePoint.TenantManagement: GetExternalUsersResults
  19022. --------------------------------------------------------------------}
  19023. TMicrosoft_Online_SharePoint_TenantManagementGetExternalUsersResults = Class(TODataEntity)
  19024. private
  19025. FTotalUserCount : TInt32;
  19026. FUserCollectionPosition : TInt32;
  19027. procedure SetTotalUserCount(AIndex: Integer; const AValue: TInt32);
  19028. procedure SetUserCollectionPosition(AIndex: Integer;
  19029. const AValue: TInt32);
  19030. public
  19031. class function ObjectRestKind : String; Override;
  19032. function KeyAsURLPart : String; Override;
  19033. function ExternalUserCollection(AService: TODataService)
  19034. : TMicrosoft_Online_SharePoint_TenantManagementExternalUser;
  19035. published
  19036. Property TotalUserCount : TInt32 index 0 read FTotalUserCount write SetTotalUserCount;
  19037. Property UserCollectionPosition : TInt32 index 8 read FUserCollectionPosition write SetUserCollectionPosition;
  19038. end;
  19039. { --------------------------------------------------------------------
  19040. Microsoft.Online.SharePoint.TenantManagement: Office365Tenant
  19041. --------------------------------------------------------------------}
  19042. TMicrosoft_Online_SharePoint_TenantManagementOffice365Tenant = Class(TODataEntity)
  19043. private
  19044. FAllowedDomainListForSyncClient : TGuidStringArray;
  19045. FDisplayStartASiteOption : boolean;
  19046. FExternalServicesEnabled : boolean;
  19047. FIsUnmanagedSyncClientForTenantRestricted : boolean;
  19048. FIsUnmanagedSyncClientRestrictionFlightEnabled : boolean;
  19049. FMySitesPublicEnabled : boolean;
  19050. FSharingCapability : TInt32;
  19051. FStartASiteFormUrl : string;
  19052. procedure SetAllowedDomainListForSyncClient(AIndex: Integer;
  19053. const AValue: TGuidStringArray);
  19054. procedure SetDisplayStartASiteOption(AIndex: Integer;
  19055. const AValue: boolean);
  19056. procedure SetExternalServicesEnabled(AIndex: Integer;
  19057. const AValue: boolean);
  19058. procedure SetIsUnmanagedSyncClientForTenantRestricted(AIndex: Integer;
  19059. const AValue: boolean);
  19060. procedure SetIsUnmanagedSyncClientRestrictionFlightEnabled
  19061. (AIndex: Integer;
  19062. const AValue: boolean);
  19063. procedure SetMySitesPublicEnabled(AIndex: Integer;
  19064. const AValue: boolean);
  19065. procedure SetSharingCapability(AIndex: Integer; const AValue: TInt32);
  19066. procedure SetStartASiteFormUrl(AIndex: Integer; const AValue: string);
  19067. protected
  19068. {$IFDEF VER2_6}
  19069. procedure SetArrayLength(const AName: String; ALength: Longint)
  19070. ; Override;
  19071. {$ENDIF VER2_6}
  19072. public
  19073. class function ObjectRestKind : String; Override;
  19074. function KeyAsURLPart : String; Override;
  19075. published
  19076. Property AllowedDomainListForSyncClient : TGuidStringArray index 0 read FAllowedDomainListForSyncClient write SetAllowedDomainListForSyncClient;
  19077. Property DisplayStartASiteOption : boolean index 8 read FDisplayStartASiteOption write SetDisplayStartASiteOption;
  19078. Property ExternalServicesEnabled : boolean index 16 read FExternalServicesEnabled write SetExternalServicesEnabled;
  19079. Property IsUnmanagedSyncClientForTenantRestricted : boolean index 24 read FIsUnmanagedSyncClientForTenantRestricted write SetIsUnmanagedSyncClientForTenantRestricted;
  19080. Property IsUnmanagedSyncClientRestrictionFlightEnabled : boolean index 32 read FIsUnmanagedSyncClientRestrictionFlightEnabled write SetIsUnmanagedSyncClientRestrictionFlightEnabled;
  19081. Property MySitesPublicEnabled : boolean index 40 read FMySitesPublicEnabled write SetMySitesPublicEnabled;
  19082. Property SharingCapability : TInt32 index 48 read FSharingCapability write SetSharingCapability;
  19083. Property StartASiteFormUrl : string index 56 read FStartASiteFormUrl write SetStartASiteFormUrl;
  19084. end;
  19085. { --------------------------------------------------------------------
  19086. Microsoft.Online.SharePoint.TenantManagement: RemoveExternalUsersResults
  19087. --------------------------------------------------------------------}
  19088. TMicrosoft_Online_SharePoint_TenantManagementRemoveExternalUsersResults = Class(TODataEntity)
  19089. private
  19090. FId4a81de82eeb94d6080ea5bf63e27023a : string;
  19091. FRemoveFailed : TStringArray;
  19092. FRemoveSucceeded : TStringArray;
  19093. procedure SetId4a81de82eeb94d6080ea5bf63e27023a(AIndex: Integer;
  19094. const AValue: string);
  19095. procedure SetRemoveFailed(AIndex: Integer; const AValue: TStringArray);
  19096. procedure SetRemoveSucceeded(AIndex: Integer;
  19097. const AValue: TStringArray);
  19098. protected
  19099. {$IFDEF VER2_6}
  19100. procedure SetArrayLength(const AName: String; ALength: Longint)
  19101. ; Override;
  19102. {$ENDIF VER2_6}
  19103. public
  19104. class function ObjectRestKind : String; Override;
  19105. function KeyAsURLPart : String; Override;
  19106. published
  19107. Property Id4a81de82eeb94d6080ea5bf63e27023a : string index 0 read FId4a81de82eeb94d6080ea5bf63e27023a write SetId4a81de82eeb94d6080ea5bf63e27023a;
  19108. Property RemoveFailed : TStringArray index 8 read FRemoveFailed write SetRemoveFailed;
  19109. Property RemoveSucceeded : TStringArray index 16 read FRemoveSucceeded write SetRemoveSucceeded;
  19110. end;
  19111. { --------------------------------------------------------------------
  19112. SP.Data: OData__x005f_catalogs_x002f_appdataItem
  19113. --------------------------------------------------------------------}
  19114. TSP_DataOData__x005f_catalogs_x002f_appdataItem = Class(TSPListItem)
  19115. private
  19116. FContentTypeId : string;
  19117. FTitle : string;
  19118. FModified : TDateTime;
  19119. FCreated : TDateTime;
  19120. FAuthorId : TInt32;
  19121. FEditorId : TInt32;
  19122. FOData__HasCopyDestinations : boolean;
  19123. FOData__CopySource : string;
  19124. Fowshiddenversion : TInt32;
  19125. FWorkflowVersion : TInt32;
  19126. FOData__UIVersion : TInt32;
  19127. FOData__UIVersionString : string;
  19128. FAttachments : boolean;
  19129. FOData__ModerationStatus : TInt32;
  19130. FOData__ModerationComments : string;
  19131. FEdit : string;
  19132. FLinkTitleNoMenu : string;
  19133. FLinkTitle : string;
  19134. FLinkTitle2 : string;
  19135. FSelectTitle : string;
  19136. FInstanceID : TInt32;
  19137. FOrder : Double;
  19138. FGUID : TGUIDString;
  19139. FWorkflowInstanceID : TGUIDString;
  19140. FFileRef : string;
  19141. FFileDirRef : string;
  19142. FLast_x0020_Modified : TDateTime;
  19143. FCreated_x0020_Date : TDateTime;
  19144. FFSObjType : TInt32;
  19145. FPermMask : string;
  19146. FFileLeafRef : string;
  19147. FUniqueId : TGUIDString;
  19148. FFile_x0020_Type : string;
  19149. FHTML_x0020_File_x0020_Type : string;
  19150. FOData__EditMenuTableStart : string;
  19151. FOData__EditMenuTableStart2 : string;
  19152. FOData__EditMenuTableEnd : string;
  19153. FLinkFilenameNoMenu : string;
  19154. FLinkFilename : string;
  19155. FLinkFilename2 : string;
  19156. FDocIcon : string;
  19157. FServerUrl : string;
  19158. FEncodedAbsUrl : string;
  19159. FBaseName : string;
  19160. FOData__Level : TInt32;
  19161. FOData__IsCurrentVersion : boolean;
  19162. FAppAuthorId : TInt32;
  19163. FAppEditorId : TInt32;
  19164. procedure SetContentTypeId(AIndex: Integer; const AValue: string);
  19165. procedure SetTitle(AIndex: Integer; const AValue: string);
  19166. procedure SetModified(AIndex: Integer; const AValue: TDateTime);
  19167. procedure SetCreated(AIndex: Integer; const AValue: TDateTime);
  19168. procedure SetAuthorId(AIndex: Integer; const AValue: TInt32);
  19169. procedure SetEditorId(AIndex: Integer; const AValue: TInt32);
  19170. procedure SetOData__HasCopyDestinations(AIndex: Integer;
  19171. const AValue: boolean);
  19172. procedure SetOData__CopySource(AIndex: Integer; const AValue: string);
  19173. procedure Setowshiddenversion(AIndex: Integer; const AValue: TInt32);
  19174. procedure SetWorkflowVersion(AIndex: Integer; const AValue: TInt32);
  19175. procedure SetOData__UIVersion(AIndex: Integer; const AValue: TInt32);
  19176. procedure SetOData__UIVersionString(AIndex: Integer;
  19177. const AValue: string);
  19178. procedure SetAttachments(AIndex: Integer; const AValue: boolean);
  19179. procedure SetOData__ModerationStatus(AIndex: Integer;
  19180. const AValue: TInt32);
  19181. procedure SetOData__ModerationComments(AIndex: Integer;
  19182. const AValue: string);
  19183. procedure SetEdit(AIndex: Integer; const AValue: string);
  19184. procedure SetLinkTitleNoMenu(AIndex: Integer; const AValue: string);
  19185. procedure SetLinkTitle(AIndex: Integer; const AValue: string);
  19186. procedure SetLinkTitle2(AIndex: Integer; const AValue: string);
  19187. procedure SetSelectTitle(AIndex: Integer; const AValue: string);
  19188. procedure SetInstanceID(AIndex: Integer; const AValue: TInt32);
  19189. procedure SetOrder(AIndex: Integer; const AValue: Double);
  19190. procedure SetGUID(AIndex: Integer; const AValue: TGUIDString);
  19191. procedure SetWorkflowInstanceID(AIndex: Integer;
  19192. const AValue: TGUIDString);
  19193. procedure SetFileRef(AIndex: Integer; const AValue: string);
  19194. procedure SetFileDirRef(AIndex: Integer; const AValue: string);
  19195. procedure SetLast_x0020_Modified(AIndex: Integer;
  19196. const AValue: TDateTime);
  19197. procedure SetCreated_x0020_Date(AIndex: Integer;
  19198. const AValue: TDateTime);
  19199. procedure SetFSObjType(AIndex: Integer; const AValue: TInt32);
  19200. procedure SetPermMask(AIndex: Integer; const AValue: string);
  19201. procedure SetFileLeafRef(AIndex: Integer; const AValue: string);
  19202. procedure SetUniqueId(AIndex: Integer; const AValue: TGUIDString);
  19203. procedure SetFile_x0020_Type(AIndex: Integer; const AValue: string);
  19204. procedure SetHTML_x0020_File_x0020_Type(AIndex: Integer;
  19205. const AValue: string);
  19206. procedure SetOData__EditMenuTableStart(AIndex: Integer;
  19207. const AValue: string);
  19208. procedure SetOData__EditMenuTableStart2(AIndex: Integer;
  19209. const AValue: string);
  19210. procedure SetOData__EditMenuTableEnd(AIndex: Integer;
  19211. const AValue: string);
  19212. procedure SetLinkFilenameNoMenu(AIndex: Integer; const AValue: string);
  19213. procedure SetLinkFilename(AIndex: Integer; const AValue: string);
  19214. procedure SetLinkFilename2(AIndex: Integer; const AValue: string);
  19215. procedure SetDocIcon(AIndex: Integer; const AValue: string);
  19216. procedure SetServerUrl(AIndex: Integer; const AValue: string);
  19217. procedure SetEncodedAbsUrl(AIndex: Integer; const AValue: string);
  19218. procedure SetBaseName(AIndex: Integer; const AValue: string);
  19219. procedure SetOData__Level(AIndex: Integer; const AValue: TInt32);
  19220. procedure SetOData__IsCurrentVersion(AIndex: Integer;
  19221. const AValue: boolean);
  19222. procedure SetAppAuthorId(AIndex: Integer; const AValue: TInt32);
  19223. procedure SetAppEditorId(AIndex: Integer; const AValue: TInt32);
  19224. public
  19225. class function ObjectRestKind : String; Override;
  19226. function Author(AService: TODataService) : TSP_DataUserInfoItem;
  19227. function Editor(AService: TODataService) : TSP_DataUserInfoItem;
  19228. published
  19229. Property ContentTypeId : string index 64 read FContentTypeId write SetContentTypeId;
  19230. Property Title : string index 72 read FTitle write SetTitle;
  19231. Property Modified : TDateTime index 80 read FModified write SetModified;
  19232. Property Created : TDateTime index 88 read FCreated write SetCreated;
  19233. Property AuthorId : TInt32 index 96 read FAuthorId write SetAuthorId;
  19234. Property EditorId : TInt32 index 104 read FEditorId write SetEditorId;
  19235. Property OData__HasCopyDestinations : boolean index 112 read FOData__HasCopyDestinations write SetOData__HasCopyDestinations;
  19236. Property OData__CopySource : string index 120 read FOData__CopySource write SetOData__CopySource;
  19237. Property owshiddenversion : TInt32 index 128 read Fowshiddenversion write Setowshiddenversion;
  19238. Property WorkflowVersion : TInt32 index 136 read FWorkflowVersion write SetWorkflowVersion;
  19239. Property OData__UIVersion : TInt32 index 144 read FOData__UIVersion write SetOData__UIVersion;
  19240. Property OData__UIVersionString : string index 152 read FOData__UIVersionString write SetOData__UIVersionString;
  19241. Property Attachments : boolean index 160 read FAttachments write SetAttachments;
  19242. Property OData__ModerationStatus : TInt32 index 168 read FOData__ModerationStatus write SetOData__ModerationStatus;
  19243. Property OData__ModerationComments : string index 176 read FOData__ModerationComments write SetOData__ModerationComments;
  19244. Property Edit : string index 184 read FEdit write SetEdit;
  19245. Property LinkTitleNoMenu : string index 192 read FLinkTitleNoMenu write SetLinkTitleNoMenu;
  19246. Property LinkTitle : string index 200 read FLinkTitle write SetLinkTitle;
  19247. Property LinkTitle2 : string index 208 read FLinkTitle2 write SetLinkTitle2;
  19248. Property SelectTitle : string index 216 read FSelectTitle write SetSelectTitle;
  19249. Property InstanceID : TInt32 index 224 read FInstanceID write SetInstanceID;
  19250. Property Order : Double index 232 read FOrder write SetOrder;
  19251. Property GUID : TGUIDString index 240 read FGUID write SetGUID;
  19252. Property WorkflowInstanceID : TGUIDString index 248 read FWorkflowInstanceID write SetWorkflowInstanceID;
  19253. Property FileRef : string index 256 read FFileRef write SetFileRef;
  19254. Property FileDirRef : string index 264 read FFileDirRef write SetFileDirRef;
  19255. Property Last_x0020_Modified : TDateTime index 272 read FLast_x0020_Modified write SetLast_x0020_Modified;
  19256. Property Created_x0020_Date : TDateTime index 280 read FCreated_x0020_Date write SetCreated_x0020_Date;
  19257. Property FSObjType : TInt32 index 288 read FFSObjType write SetFSObjType;
  19258. Property PermMask : string index 296 read FPermMask write SetPermMask;
  19259. Property FileLeafRef : string index 304 read FFileLeafRef write SetFileLeafRef;
  19260. Property UniqueId : TGUIDString index 312 read FUniqueId write SetUniqueId;
  19261. Property File_x0020_Type : string index 320 read FFile_x0020_Type write SetFile_x0020_Type;
  19262. Property HTML_x0020_File_x0020_Type : string index 328 read FHTML_x0020_File_x0020_Type write SetHTML_x0020_File_x0020_Type;
  19263. Property OData__EditMenuTableStart : string index 336 read FOData__EditMenuTableStart write SetOData__EditMenuTableStart;
  19264. Property OData__EditMenuTableStart2 : string index 344 read FOData__EditMenuTableStart2 write SetOData__EditMenuTableStart2;
  19265. Property OData__EditMenuTableEnd : string index 352 read FOData__EditMenuTableEnd write SetOData__EditMenuTableEnd;
  19266. Property LinkFilenameNoMenu : string index 360 read FLinkFilenameNoMenu write SetLinkFilenameNoMenu;
  19267. Property LinkFilename : string index 368 read FLinkFilename write SetLinkFilename;
  19268. Property LinkFilename2 : string index 376 read FLinkFilename2 write SetLinkFilename2;
  19269. Property DocIcon : string index 384 read FDocIcon write SetDocIcon;
  19270. Property ServerUrl : string index 392 read FServerUrl write SetServerUrl;
  19271. Property EncodedAbsUrl : string index 400 read FEncodedAbsUrl write SetEncodedAbsUrl;
  19272. Property BaseName : string index 408 read FBaseName write SetBaseName;
  19273. Property OData__Level : TInt32 index 416 read FOData__Level write SetOData__Level;
  19274. Property OData__IsCurrentVersion : boolean index 424 read FOData__IsCurrentVersion write SetOData__IsCurrentVersion;
  19275. Property AppAuthorId : TInt32 index 432 read FAppAuthorId write SetAppAuthorId;
  19276. Property AppEditorId : TInt32 index 440 read FAppEditorId write SetAppEditorId;
  19277. end;
  19278. { --------------------------------------------------------------------
  19279. SP.Data: UserInfoItem
  19280. --------------------------------------------------------------------}
  19281. TSP_DataUserInfoItem = Class(TSPListItem)
  19282. private
  19283. FContentTypeId : string;
  19284. FTitle : string;
  19285. FOData__ModerationComments : string;
  19286. FFile_x0020_Type : string;
  19287. FName : string;
  19288. FEMail : string;
  19289. FMobilePhone : string;
  19290. FNotes : string;
  19291. FSipAddress : string;
  19292. FLocale : TInt32;
  19293. FCalendarType : TInt32;
  19294. FAdjustHijriDays : TInt32;
  19295. FTimeZone : TInt32;
  19296. FTime24 : boolean;
  19297. FAltCalendarType : TInt32;
  19298. FCalendarViewOptions : TInt32;
  19299. FWorkDays : TInt32;
  19300. FWorkDayStartHour : TInt32;
  19301. FWorkDayEndHour : TInt32;
  19302. FMUILanguages : string;
  19303. FContentLanguages : string;
  19304. FIsSiteAdmin : boolean;
  19305. FDeleted : boolean;
  19306. FUserInfoHidden : boolean;
  19307. FPicture : TSPFieldUrlValue;
  19308. FDepartment : string;
  19309. FJobTitle : string;
  19310. FIsActive : boolean;
  19311. FFirstName : string;
  19312. FLastName : string;
  19313. FLinkTitle : string;
  19314. FLinkTitle2 : string;
  19315. FWorkPhone : string;
  19316. FUserName : string;
  19317. FWebSite : TSPFieldUrlValue;
  19318. FSPSResponsibility : string;
  19319. FOffice : string;
  19320. FSPSPictureTimestamp : string;
  19321. FSPSPicturePlaceholderState : TInt32;
  19322. FSPSPictureExchangeSyncState : TInt32;
  19323. FModified : TDateTime;
  19324. FCreated : TDateTime;
  19325. FAuthorId : TInt32;
  19326. FEditorId : TInt32;
  19327. FOData__HasCopyDestinations : boolean;
  19328. FOData__CopySource : string;
  19329. Fowshiddenversion : TInt32;
  19330. FWorkflowVersion : TInt32;
  19331. FOData__UIVersion : TInt32;
  19332. FOData__UIVersionString : string;
  19333. FAttachments : boolean;
  19334. FOData__ModerationStatus : TInt32;
  19335. FEdit : string;
  19336. FLinkTitleNoMenu : string;
  19337. FSelectTitle : string;
  19338. FInstanceID : TInt32;
  19339. FOrder : Double;
  19340. FGUID : TGUIDString;
  19341. FWorkflowInstanceID : TGUIDString;
  19342. FFileRef : string;
  19343. FFileDirRef : string;
  19344. FLast_x0020_Modified : TDateTime;
  19345. FCreated_x0020_Date : TDateTime;
  19346. FFSObjType : TInt32;
  19347. FPermMask : string;
  19348. FFileLeafRef : string;
  19349. FUniqueId : TGUIDString;
  19350. FHTML_x0020_File_x0020_Type : string;
  19351. FOData__EditMenuTableStart : string;
  19352. FOData__EditMenuTableStart2 : string;
  19353. FOData__EditMenuTableEnd : string;
  19354. FLinkFilenameNoMenu : string;
  19355. FLinkFilename : string;
  19356. FLinkFilename2 : string;
  19357. FDocIcon : string;
  19358. FServerUrl : string;
  19359. FEncodedAbsUrl : string;
  19360. FBaseName : string;
  19361. FOData__Level : TInt32;
  19362. FOData__IsCurrentVersion : boolean;
  19363. FAppAuthorId : TInt32;
  19364. FAppEditorId : TInt32;
  19365. FGroupLink : string;
  19366. FGroupEdit : string;
  19367. FImnName : string;
  19368. FPictureDisp : string;
  19369. FPictureOnly_Size_36px : string;
  19370. FPictureOnly_Size_48px : string;
  19371. FPictureOnly_Size_72px : string;
  19372. FNameWithPicture : string;
  19373. FNameWithPictureAndDetails : string;
  19374. FEditUser : string;
  19375. FUserSelection : string;
  19376. FContentTypeDisp : string;
  19377. procedure SetContentTypeId(AIndex: Integer; const AValue: string);
  19378. procedure SetTitle(AIndex: Integer; const AValue: string);
  19379. procedure SetOData__ModerationComments(AIndex: Integer;
  19380. const AValue: string);
  19381. procedure SetFile_x0020_Type(AIndex: Integer; const AValue: string);
  19382. procedure SetName(AIndex: Integer; const AValue: string);
  19383. procedure SetEMail(AIndex: Integer; const AValue: string);
  19384. procedure SetMobilePhone(AIndex: Integer; const AValue: string);
  19385. procedure SetNotes(AIndex: Integer; const AValue: string);
  19386. procedure SetSipAddress(AIndex: Integer; const AValue: string);
  19387. procedure SetLocale(AIndex: Integer; const AValue: TInt32);
  19388. procedure SetCalendarType(AIndex: Integer; const AValue: TInt32);
  19389. procedure SetAdjustHijriDays(AIndex: Integer; const AValue: TInt32);
  19390. procedure SetTimeZone(AIndex: Integer; const AValue: TInt32);
  19391. procedure SetTime24(AIndex: Integer; const AValue: boolean);
  19392. procedure SetAltCalendarType(AIndex: Integer; const AValue: TInt32);
  19393. procedure SetCalendarViewOptions(AIndex: Integer; const AValue: TInt32);
  19394. procedure SetWorkDays(AIndex: Integer; const AValue: TInt32);
  19395. procedure SetWorkDayStartHour(AIndex: Integer; const AValue: TInt32);
  19396. procedure SetWorkDayEndHour(AIndex: Integer; const AValue: TInt32);
  19397. procedure SetMUILanguages(AIndex: Integer; const AValue: string);
  19398. procedure SetContentLanguages(AIndex: Integer; const AValue: string);
  19399. procedure SetIsSiteAdmin(AIndex: Integer; const AValue: boolean);
  19400. procedure SetDeleted(AIndex: Integer; const AValue: boolean);
  19401. procedure SetUserInfoHidden(AIndex: Integer; const AValue: boolean);
  19402. procedure SetPicture(AIndex: Integer; const AValue: TSPFieldUrlValue);
  19403. procedure SetDepartment(AIndex: Integer; const AValue: string);
  19404. procedure SetJobTitle(AIndex: Integer; const AValue: string);
  19405. procedure SetIsActive(AIndex: Integer; const AValue: boolean);
  19406. procedure SetFirstName(AIndex: Integer; const AValue: string);
  19407. procedure SetLastName(AIndex: Integer; const AValue: string);
  19408. procedure SetLinkTitle(AIndex: Integer; const AValue: string);
  19409. procedure SetLinkTitle2(AIndex: Integer; const AValue: string);
  19410. procedure SetWorkPhone(AIndex: Integer; const AValue: string);
  19411. procedure SetUserName(AIndex: Integer; const AValue: string);
  19412. procedure SetWebSite(AIndex: Integer; const AValue: TSPFieldUrlValue);
  19413. procedure SetSPSResponsibility(AIndex: Integer; const AValue: string);
  19414. procedure SetOffice(AIndex: Integer; const AValue: string);
  19415. procedure SetSPSPictureTimestamp(AIndex: Integer; const AValue: string);
  19416. procedure SetSPSPicturePlaceholderState(AIndex: Integer;
  19417. const AValue: TInt32);
  19418. procedure SetSPSPictureExchangeSyncState(AIndex: Integer;
  19419. const AValue: TInt32);
  19420. procedure SetModified(AIndex: Integer; const AValue: TDateTime);
  19421. procedure SetCreated(AIndex: Integer; const AValue: TDateTime);
  19422. procedure SetAuthorId(AIndex: Integer; const AValue: TInt32);
  19423. procedure SetEditorId(AIndex: Integer; const AValue: TInt32);
  19424. procedure SetOData__HasCopyDestinations(AIndex: Integer;
  19425. const AValue: boolean);
  19426. procedure SetOData__CopySource(AIndex: Integer; const AValue: string);
  19427. procedure Setowshiddenversion(AIndex: Integer; const AValue: TInt32);
  19428. procedure SetWorkflowVersion(AIndex: Integer; const AValue: TInt32);
  19429. procedure SetOData__UIVersion(AIndex: Integer; const AValue: TInt32);
  19430. procedure SetOData__UIVersionString(AIndex: Integer;
  19431. const AValue: string);
  19432. procedure SetAttachments(AIndex: Integer; const AValue: boolean);
  19433. procedure SetOData__ModerationStatus(AIndex: Integer;
  19434. const AValue: TInt32);
  19435. procedure SetEdit(AIndex: Integer; const AValue: string);
  19436. procedure SetLinkTitleNoMenu(AIndex: Integer; const AValue: string);
  19437. procedure SetSelectTitle(AIndex: Integer; const AValue: string);
  19438. procedure SetInstanceID(AIndex: Integer; const AValue: TInt32);
  19439. procedure SetOrder(AIndex: Integer; const AValue: Double);
  19440. procedure SetGUID(AIndex: Integer; const AValue: TGUIDString);
  19441. procedure SetWorkflowInstanceID(AIndex: Integer;
  19442. const AValue: TGUIDString);
  19443. procedure SetFileRef(AIndex: Integer; const AValue: string);
  19444. procedure SetFileDirRef(AIndex: Integer; const AValue: string);
  19445. procedure SetLast_x0020_Modified(AIndex: Integer;
  19446. const AValue: TDateTime);
  19447. procedure SetCreated_x0020_Date(AIndex: Integer;
  19448. const AValue: TDateTime);
  19449. procedure SetFSObjType(AIndex: Integer; const AValue: TInt32);
  19450. procedure SetPermMask(AIndex: Integer; const AValue: string);
  19451. procedure SetFileLeafRef(AIndex: Integer; const AValue: string);
  19452. procedure SetUniqueId(AIndex: Integer; const AValue: TGUIDString);
  19453. procedure SetHTML_x0020_File_x0020_Type(AIndex: Integer;
  19454. const AValue: string);
  19455. procedure SetOData__EditMenuTableStart(AIndex: Integer;
  19456. const AValue: string);
  19457. procedure SetOData__EditMenuTableStart2(AIndex: Integer;
  19458. const AValue: string);
  19459. procedure SetOData__EditMenuTableEnd(AIndex: Integer;
  19460. const AValue: string);
  19461. procedure SetLinkFilenameNoMenu(AIndex: Integer; const AValue: string);
  19462. procedure SetLinkFilename(AIndex: Integer; const AValue: string);
  19463. procedure SetLinkFilename2(AIndex: Integer; const AValue: string);
  19464. procedure SetDocIcon(AIndex: Integer; const AValue: string);
  19465. procedure SetServerUrl(AIndex: Integer; const AValue: string);
  19466. procedure SetEncodedAbsUrl(AIndex: Integer; const AValue: string);
  19467. procedure SetBaseName(AIndex: Integer; const AValue: string);
  19468. procedure SetOData__Level(AIndex: Integer; const AValue: TInt32);
  19469. procedure SetOData__IsCurrentVersion(AIndex: Integer;
  19470. const AValue: boolean);
  19471. procedure SetAppAuthorId(AIndex: Integer; const AValue: TInt32);
  19472. procedure SetAppEditorId(AIndex: Integer; const AValue: TInt32);
  19473. procedure SetGroupLink(AIndex: Integer; const AValue: string);
  19474. procedure SetGroupEdit(AIndex: Integer; const AValue: string);
  19475. procedure SetImnName(AIndex: Integer; const AValue: string);
  19476. procedure SetPictureDisp(AIndex: Integer; const AValue: string);
  19477. procedure SetPictureOnly_Size_36px(AIndex: Integer;
  19478. const AValue: string);
  19479. procedure SetPictureOnly_Size_48px(AIndex: Integer;
  19480. const AValue: string);
  19481. procedure SetPictureOnly_Size_72px(AIndex: Integer;
  19482. const AValue: string);
  19483. procedure SetNameWithPicture(AIndex: Integer; const AValue: string);
  19484. procedure SetNameWithPictureAndDetails(AIndex: Integer;
  19485. const AValue: string);
  19486. procedure SetEditUser(AIndex: Integer; const AValue: string);
  19487. procedure SetUserSelection(AIndex: Integer; const AValue: string);
  19488. procedure SetContentTypeDisp(AIndex: Integer; const AValue: string);
  19489. public
  19490. class function ObjectRestKind : String; Override;
  19491. function Author(AService: TODataService) : TSP_DataUserInfoItem;
  19492. function Editor(AService: TODataService) : TSP_DataUserInfoItem;
  19493. published
  19494. Property ContentTypeId : string index 56 read FContentTypeId write SetContentTypeId;
  19495. Property Title : string index 64 read FTitle write SetTitle;
  19496. Property OData__ModerationComments : string index 72 read FOData__ModerationComments write SetOData__ModerationComments;
  19497. Property File_x0020_Type : string index 80 read FFile_x0020_Type write SetFile_x0020_Type;
  19498. Property Name : string index 88 read FName write SetName;
  19499. Property EMail : string index 96 read FEMail write SetEMail;
  19500. Property MobilePhone : string index 104 read FMobilePhone write SetMobilePhone;
  19501. Property Notes : string index 112 read FNotes write SetNotes;
  19502. Property SipAddress : string index 120 read FSipAddress write SetSipAddress;
  19503. Property Locale : TInt32 index 128 read FLocale write SetLocale;
  19504. Property CalendarType : TInt32 index 136 read FCalendarType write SetCalendarType;
  19505. Property AdjustHijriDays : TInt32 index 144 read FAdjustHijriDays write SetAdjustHijriDays;
  19506. Property TimeZone : TInt32 index 152 read FTimeZone write SetTimeZone;
  19507. Property Time24 : boolean index 160 read FTime24 write SetTime24;
  19508. Property AltCalendarType : TInt32 index 168 read FAltCalendarType write SetAltCalendarType;
  19509. Property CalendarViewOptions : TInt32 index 176 read FCalendarViewOptions write SetCalendarViewOptions;
  19510. Property WorkDays : TInt32 index 184 read FWorkDays write SetWorkDays;
  19511. Property WorkDayStartHour : TInt32 index 192 read FWorkDayStartHour write SetWorkDayStartHour;
  19512. Property WorkDayEndHour : TInt32 index 200 read FWorkDayEndHour write SetWorkDayEndHour;
  19513. Property MUILanguages : string index 208 read FMUILanguages write SetMUILanguages;
  19514. Property ContentLanguages : string index 216 read FContentLanguages write SetContentLanguages;
  19515. Property IsSiteAdmin : boolean index 224 read FIsSiteAdmin write SetIsSiteAdmin;
  19516. Property Deleted : boolean index 232 read FDeleted write SetDeleted;
  19517. Property UserInfoHidden : boolean index 240 read FUserInfoHidden write SetUserInfoHidden;
  19518. Property Picture : TSPFieldUrlValue index 248 read FPicture write SetPicture;
  19519. Property Department : string index 256 read FDepartment write SetDepartment;
  19520. Property JobTitle : string index 264 read FJobTitle write SetJobTitle;
  19521. Property IsActive : boolean index 272 read FIsActive write SetIsActive;
  19522. Property FirstName : string index 280 read FFirstName write SetFirstName;
  19523. Property LastName : string index 288 read FLastName write SetLastName;
  19524. Property LinkTitle : string index 296 read FLinkTitle write SetLinkTitle;
  19525. Property LinkTitle2 : string index 304 read FLinkTitle2 write SetLinkTitle2;
  19526. Property WorkPhone : string index 312 read FWorkPhone write SetWorkPhone;
  19527. Property UserName : string index 320 read FUserName write SetUserName;
  19528. Property WebSite : TSPFieldUrlValue index 328 read FWebSite write SetWebSite;
  19529. Property SPSResponsibility : string index 336 read FSPSResponsibility write SetSPSResponsibility;
  19530. Property Office : string index 344 read FOffice write SetOffice;
  19531. Property SPSPictureTimestamp : string index 352 read FSPSPictureTimestamp write SetSPSPictureTimestamp;
  19532. Property SPSPicturePlaceholderState : TInt32 index 360 read FSPSPicturePlaceholderState write SetSPSPicturePlaceholderState;
  19533. Property SPSPictureExchangeSyncState : TInt32 index 368 read FSPSPictureExchangeSyncState write SetSPSPictureExchangeSyncState;
  19534. Property Modified : TDateTime index 384 read FModified write SetModified;
  19535. Property Created : TDateTime index 392 read FCreated write SetCreated;
  19536. Property AuthorId : TInt32 index 400 read FAuthorId write SetAuthorId;
  19537. Property EditorId : TInt32 index 408 read FEditorId write SetEditorId;
  19538. Property OData__HasCopyDestinations : boolean index 416 read FOData__HasCopyDestinations write SetOData__HasCopyDestinations;
  19539. Property OData__CopySource : string index 424 read FOData__CopySource write SetOData__CopySource;
  19540. Property owshiddenversion : TInt32 index 432 read Fowshiddenversion write Setowshiddenversion;
  19541. Property WorkflowVersion : TInt32 index 440 read FWorkflowVersion write SetWorkflowVersion;
  19542. Property OData__UIVersion : TInt32 index 448 read FOData__UIVersion write SetOData__UIVersion;
  19543. Property OData__UIVersionString : string index 456 read FOData__UIVersionString write SetOData__UIVersionString;
  19544. Property Attachments : boolean index 464 read FAttachments write SetAttachments;
  19545. Property OData__ModerationStatus : TInt32 index 472 read FOData__ModerationStatus write SetOData__ModerationStatus;
  19546. Property Edit : string index 480 read FEdit write SetEdit;
  19547. Property LinkTitleNoMenu : string index 488 read FLinkTitleNoMenu write SetLinkTitleNoMenu;
  19548. Property SelectTitle : string index 496 read FSelectTitle write SetSelectTitle;
  19549. Property InstanceID : TInt32 index 504 read FInstanceID write SetInstanceID;
  19550. Property Order : Double index 512 read FOrder write SetOrder;
  19551. Property GUID : TGUIDString index 520 read FGUID write SetGUID;
  19552. Property WorkflowInstanceID : TGUIDString index 528 read FWorkflowInstanceID write SetWorkflowInstanceID;
  19553. Property FileRef : string index 536 read FFileRef write SetFileRef;
  19554. Property FileDirRef : string index 544 read FFileDirRef write SetFileDirRef;
  19555. Property Last_x0020_Modified : TDateTime index 552 read FLast_x0020_Modified write SetLast_x0020_Modified;
  19556. Property Created_x0020_Date : TDateTime index 560 read FCreated_x0020_Date write SetCreated_x0020_Date;
  19557. Property FSObjType : TInt32 index 568 read FFSObjType write SetFSObjType;
  19558. Property PermMask : string index 576 read FPermMask write SetPermMask;
  19559. Property FileLeafRef : string index 584 read FFileLeafRef write SetFileLeafRef;
  19560. Property UniqueId : TGUIDString index 592 read FUniqueId write SetUniqueId;
  19561. Property HTML_x0020_File_x0020_Type : string index 600 read FHTML_x0020_File_x0020_Type write SetHTML_x0020_File_x0020_Type;
  19562. Property OData__EditMenuTableStart : string index 608 read FOData__EditMenuTableStart write SetOData__EditMenuTableStart;
  19563. Property OData__EditMenuTableStart2 : string index 616 read FOData__EditMenuTableStart2 write SetOData__EditMenuTableStart2;
  19564. Property OData__EditMenuTableEnd : string index 624 read FOData__EditMenuTableEnd write SetOData__EditMenuTableEnd;
  19565. Property LinkFilenameNoMenu : string index 632 read FLinkFilenameNoMenu write SetLinkFilenameNoMenu;
  19566. Property LinkFilename : string index 640 read FLinkFilename write SetLinkFilename;
  19567. Property LinkFilename2 : string index 648 read FLinkFilename2 write SetLinkFilename2;
  19568. Property DocIcon : string index 656 read FDocIcon write SetDocIcon;
  19569. Property ServerUrl : string index 664 read FServerUrl write SetServerUrl;
  19570. Property EncodedAbsUrl : string index 672 read FEncodedAbsUrl write SetEncodedAbsUrl;
  19571. Property BaseName : string index 680 read FBaseName write SetBaseName;
  19572. Property OData__Level : TInt32 index 688 read FOData__Level write SetOData__Level;
  19573. Property OData__IsCurrentVersion : boolean index 696 read FOData__IsCurrentVersion write SetOData__IsCurrentVersion;
  19574. Property AppAuthorId : TInt32 index 704 read FAppAuthorId write SetAppAuthorId;
  19575. Property AppEditorId : TInt32 index 712 read FAppEditorId write SetAppEditorId;
  19576. Property GroupLink : string index 720 read FGroupLink write SetGroupLink;
  19577. Property GroupEdit : string index 728 read FGroupEdit write SetGroupEdit;
  19578. Property ImnName : string index 736 read FImnName write SetImnName;
  19579. Property PictureDisp : string index 744 read FPictureDisp write SetPictureDisp;
  19580. Property PictureOnly_Size_36px : string index 752 read FPictureOnly_Size_36px write SetPictureOnly_Size_36px;
  19581. Property PictureOnly_Size_48px : string index 760 read FPictureOnly_Size_48px write SetPictureOnly_Size_48px;
  19582. Property PictureOnly_Size_72px : string index 768 read FPictureOnly_Size_72px write SetPictureOnly_Size_72px;
  19583. Property NameWithPicture : string index 776 read FNameWithPicture write SetNameWithPicture;
  19584. Property NameWithPictureAndDetails : string index 784 read FNameWithPictureAndDetails write SetNameWithPictureAndDetails;
  19585. Property EditUser : string index 792 read FEditUser write SetEditUser;
  19586. Property UserSelection : string index 800 read FUserSelection write SetUserSelection;
  19587. Property ContentTypeDisp : string index 808 read FContentTypeDisp write SetContentTypeDisp;
  19588. end;
  19589. { --------------------------------------------------------------------
  19590. SP.Data: OData__x005f_catalogs_x002f_designItem
  19591. --------------------------------------------------------------------}
  19592. TSP_DataOData__x005f_catalogs_x002f_designItem = Class(TSPListItem)
  19593. private
  19594. FContentTypeId : string;
  19595. FTitle : string;
  19596. FModified : TDateTime;
  19597. FCreated : TDateTime;
  19598. FAuthorId : TInt32;
  19599. FEditorId : TInt32;
  19600. FOData__HasCopyDestinations : boolean;
  19601. FOData__CopySource : string;
  19602. Fowshiddenversion : TInt32;
  19603. FWorkflowVersion : TInt32;
  19604. FOData__UIVersion : TInt32;
  19605. FOData__UIVersionString : string;
  19606. FAttachments : boolean;
  19607. FOData__ModerationStatus : TInt32;
  19608. FOData__ModerationComments : string;
  19609. FEdit : string;
  19610. FLinkTitleNoMenu : string;
  19611. FLinkTitle : string;
  19612. FLinkTitle2 : string;
  19613. FSelectTitle : string;
  19614. FInstanceID : TInt32;
  19615. FOrder : Double;
  19616. FGUID : TGUIDString;
  19617. FWorkflowInstanceID : TGUIDString;
  19618. FFileRef : string;
  19619. FFileDirRef : string;
  19620. FLast_x0020_Modified : TDateTime;
  19621. FCreated_x0020_Date : TDateTime;
  19622. FFSObjType : TInt32;
  19623. FPermMask : string;
  19624. FFileLeafRef : string;
  19625. FUniqueId : TGUIDString;
  19626. FFile_x0020_Type : string;
  19627. FHTML_x0020_File_x0020_Type : string;
  19628. FOData__EditMenuTableStart : string;
  19629. FOData__EditMenuTableStart2 : string;
  19630. FOData__EditMenuTableEnd : string;
  19631. FLinkFilenameNoMenu : string;
  19632. FLinkFilename : string;
  19633. FLinkFilename2 : string;
  19634. FDocIcon : string;
  19635. FServerUrl : string;
  19636. FEncodedAbsUrl : string;
  19637. FBaseName : string;
  19638. FOData__Level : TInt32;
  19639. FOData__IsCurrentVersion : boolean;
  19640. FAppAuthorId : TInt32;
  19641. FAppEditorId : TInt32;
  19642. FName : string;
  19643. FMasterPageUrl : TSPFieldUrlValue;
  19644. FThemeUrl : TSPFieldUrlValue;
  19645. FImageUrl : TSPFieldUrlValue;
  19646. FFontSchemeUrl : TSPFieldUrlValue;
  19647. FDisplayOrder : Double;
  19648. procedure SetContentTypeId(AIndex: Integer; const AValue: string);
  19649. procedure SetTitle(AIndex: Integer; const AValue: string);
  19650. procedure SetModified(AIndex: Integer; const AValue: TDateTime);
  19651. procedure SetCreated(AIndex: Integer; const AValue: TDateTime);
  19652. procedure SetAuthorId(AIndex: Integer; const AValue: TInt32);
  19653. procedure SetEditorId(AIndex: Integer; const AValue: TInt32);
  19654. procedure SetOData__HasCopyDestinations(AIndex: Integer;
  19655. const AValue: boolean);
  19656. procedure SetOData__CopySource(AIndex: Integer; const AValue: string);
  19657. procedure Setowshiddenversion(AIndex: Integer; const AValue: TInt32);
  19658. procedure SetWorkflowVersion(AIndex: Integer; const AValue: TInt32);
  19659. procedure SetOData__UIVersion(AIndex: Integer; const AValue: TInt32);
  19660. procedure SetOData__UIVersionString(AIndex: Integer;
  19661. const AValue: string);
  19662. procedure SetAttachments(AIndex: Integer; const AValue: boolean);
  19663. procedure SetOData__ModerationStatus(AIndex: Integer;
  19664. const AValue: TInt32);
  19665. procedure SetOData__ModerationComments(AIndex: Integer;
  19666. const AValue: string);
  19667. procedure SetEdit(AIndex: Integer; const AValue: string);
  19668. procedure SetLinkTitleNoMenu(AIndex: Integer; const AValue: string);
  19669. procedure SetLinkTitle(AIndex: Integer; const AValue: string);
  19670. procedure SetLinkTitle2(AIndex: Integer; const AValue: string);
  19671. procedure SetSelectTitle(AIndex: Integer; const AValue: string);
  19672. procedure SetInstanceID(AIndex: Integer; const AValue: TInt32);
  19673. procedure SetOrder(AIndex: Integer; const AValue: Double);
  19674. procedure SetGUID(AIndex: Integer; const AValue: TGUIDString);
  19675. procedure SetWorkflowInstanceID(AIndex: Integer;
  19676. const AValue: TGUIDString);
  19677. procedure SetFileRef(AIndex: Integer; const AValue: string);
  19678. procedure SetFileDirRef(AIndex: Integer; const AValue: string);
  19679. procedure SetLast_x0020_Modified(AIndex: Integer;
  19680. const AValue: TDateTime);
  19681. procedure SetCreated_x0020_Date(AIndex: Integer;
  19682. const AValue: TDateTime);
  19683. procedure SetFSObjType(AIndex: Integer; const AValue: TInt32);
  19684. procedure SetPermMask(AIndex: Integer; const AValue: string);
  19685. procedure SetFileLeafRef(AIndex: Integer; const AValue: string);
  19686. procedure SetUniqueId(AIndex: Integer; const AValue: TGUIDString);
  19687. procedure SetFile_x0020_Type(AIndex: Integer; const AValue: string);
  19688. procedure SetHTML_x0020_File_x0020_Type(AIndex: Integer;
  19689. const AValue: string);
  19690. procedure SetOData__EditMenuTableStart(AIndex: Integer;
  19691. const AValue: string);
  19692. procedure SetOData__EditMenuTableStart2(AIndex: Integer;
  19693. const AValue: string);
  19694. procedure SetOData__EditMenuTableEnd(AIndex: Integer;
  19695. const AValue: string);
  19696. procedure SetLinkFilenameNoMenu(AIndex: Integer; const AValue: string);
  19697. procedure SetLinkFilename(AIndex: Integer; const AValue: string);
  19698. procedure SetLinkFilename2(AIndex: Integer; const AValue: string);
  19699. procedure SetDocIcon(AIndex: Integer; const AValue: string);
  19700. procedure SetServerUrl(AIndex: Integer; const AValue: string);
  19701. procedure SetEncodedAbsUrl(AIndex: Integer; const AValue: string);
  19702. procedure SetBaseName(AIndex: Integer; const AValue: string);
  19703. procedure SetOData__Level(AIndex: Integer; const AValue: TInt32);
  19704. procedure SetOData__IsCurrentVersion(AIndex: Integer;
  19705. const AValue: boolean);
  19706. procedure SetAppAuthorId(AIndex: Integer; const AValue: TInt32);
  19707. procedure SetAppEditorId(AIndex: Integer; const AValue: TInt32);
  19708. procedure SetName(AIndex: Integer; const AValue: string);
  19709. procedure SetMasterPageUrl(AIndex: Integer;
  19710. const AValue: TSPFieldUrlValue);
  19711. procedure SetThemeUrl(AIndex: Integer; const AValue: TSPFieldUrlValue);
  19712. procedure SetImageUrl(AIndex: Integer; const AValue: TSPFieldUrlValue);
  19713. procedure SetFontSchemeUrl(AIndex: Integer;
  19714. const AValue: TSPFieldUrlValue);
  19715. procedure SetDisplayOrder(AIndex: Integer; const AValue: Double);
  19716. public
  19717. class function ObjectRestKind : String; Override;
  19718. function Author(AService: TODataService) : TSP_DataUserInfoItem;
  19719. function Editor(AService: TODataService) : TSP_DataUserInfoItem;
  19720. published
  19721. Property ContentTypeId : string index 64 read FContentTypeId write SetContentTypeId;
  19722. Property Title : string index 72 read FTitle write SetTitle;
  19723. Property Modified : TDateTime index 80 read FModified write SetModified;
  19724. Property Created : TDateTime index 88 read FCreated write SetCreated;
  19725. Property AuthorId : TInt32 index 96 read FAuthorId write SetAuthorId;
  19726. Property EditorId : TInt32 index 104 read FEditorId write SetEditorId;
  19727. Property OData__HasCopyDestinations : boolean index 112 read FOData__HasCopyDestinations write SetOData__HasCopyDestinations;
  19728. Property OData__CopySource : string index 120 read FOData__CopySource write SetOData__CopySource;
  19729. Property owshiddenversion : TInt32 index 128 read Fowshiddenversion write Setowshiddenversion;
  19730. Property WorkflowVersion : TInt32 index 136 read FWorkflowVersion write SetWorkflowVersion;
  19731. Property OData__UIVersion : TInt32 index 144 read FOData__UIVersion write SetOData__UIVersion;
  19732. Property OData__UIVersionString : string index 152 read FOData__UIVersionString write SetOData__UIVersionString;
  19733. Property Attachments : boolean index 160 read FAttachments write SetAttachments;
  19734. Property OData__ModerationStatus : TInt32 index 168 read FOData__ModerationStatus write SetOData__ModerationStatus;
  19735. Property OData__ModerationComments : string index 176 read FOData__ModerationComments write SetOData__ModerationComments;
  19736. Property Edit : string index 184 read FEdit write SetEdit;
  19737. Property LinkTitleNoMenu : string index 192 read FLinkTitleNoMenu write SetLinkTitleNoMenu;
  19738. Property LinkTitle : string index 200 read FLinkTitle write SetLinkTitle;
  19739. Property LinkTitle2 : string index 208 read FLinkTitle2 write SetLinkTitle2;
  19740. Property SelectTitle : string index 216 read FSelectTitle write SetSelectTitle;
  19741. Property InstanceID : TInt32 index 224 read FInstanceID write SetInstanceID;
  19742. Property Order : Double index 232 read FOrder write SetOrder;
  19743. Property GUID : TGUIDString index 240 read FGUID write SetGUID;
  19744. Property WorkflowInstanceID : TGUIDString index 248 read FWorkflowInstanceID write SetWorkflowInstanceID;
  19745. Property FileRef : string index 256 read FFileRef write SetFileRef;
  19746. Property FileDirRef : string index 264 read FFileDirRef write SetFileDirRef;
  19747. Property Last_x0020_Modified : TDateTime index 272 read FLast_x0020_Modified write SetLast_x0020_Modified;
  19748. Property Created_x0020_Date : TDateTime index 280 read FCreated_x0020_Date write SetCreated_x0020_Date;
  19749. Property FSObjType : TInt32 index 288 read FFSObjType write SetFSObjType;
  19750. Property PermMask : string index 296 read FPermMask write SetPermMask;
  19751. Property FileLeafRef : string index 304 read FFileLeafRef write SetFileLeafRef;
  19752. Property UniqueId : TGUIDString index 312 read FUniqueId write SetUniqueId;
  19753. Property File_x0020_Type : string index 320 read FFile_x0020_Type write SetFile_x0020_Type;
  19754. Property HTML_x0020_File_x0020_Type : string index 328 read FHTML_x0020_File_x0020_Type write SetHTML_x0020_File_x0020_Type;
  19755. Property OData__EditMenuTableStart : string index 336 read FOData__EditMenuTableStart write SetOData__EditMenuTableStart;
  19756. Property OData__EditMenuTableStart2 : string index 344 read FOData__EditMenuTableStart2 write SetOData__EditMenuTableStart2;
  19757. Property OData__EditMenuTableEnd : string index 352 read FOData__EditMenuTableEnd write SetOData__EditMenuTableEnd;
  19758. Property LinkFilenameNoMenu : string index 360 read FLinkFilenameNoMenu write SetLinkFilenameNoMenu;
  19759. Property LinkFilename : string index 368 read FLinkFilename write SetLinkFilename;
  19760. Property LinkFilename2 : string index 376 read FLinkFilename2 write SetLinkFilename2;
  19761. Property DocIcon : string index 384 read FDocIcon write SetDocIcon;
  19762. Property ServerUrl : string index 392 read FServerUrl write SetServerUrl;
  19763. Property EncodedAbsUrl : string index 400 read FEncodedAbsUrl write SetEncodedAbsUrl;
  19764. Property BaseName : string index 408 read FBaseName write SetBaseName;
  19765. Property OData__Level : TInt32 index 416 read FOData__Level write SetOData__Level;
  19766. Property OData__IsCurrentVersion : boolean index 424 read FOData__IsCurrentVersion write SetOData__IsCurrentVersion;
  19767. Property AppAuthorId : TInt32 index 432 read FAppAuthorId write SetAppAuthorId;
  19768. Property AppEditorId : TInt32 index 440 read FAppEditorId write SetAppEditorId;
  19769. Property Name : string index 448 read FName write SetName;
  19770. Property MasterPageUrl : TSPFieldUrlValue index 456 read FMasterPageUrl write SetMasterPageUrl;
  19771. Property ThemeUrl : TSPFieldUrlValue index 464 read FThemeUrl write SetThemeUrl;
  19772. Property ImageUrl : TSPFieldUrlValue index 472 read FImageUrl write SetImageUrl;
  19773. Property FontSchemeUrl : TSPFieldUrlValue index 480 read FFontSchemeUrl write SetFontSchemeUrl;
  19774. Property DisplayOrder : Double index 488 read FDisplayOrder write SetDisplayOrder;
  19775. end;
  19776. { --------------------------------------------------------------------
  19777. SP.Data: ContentTypeSyncLogListItem
  19778. --------------------------------------------------------------------}
  19779. TSP_DataContentTypeSyncLogListItem = Class(TSPListItem)
  19780. private
  19781. FContentTypeId : string;
  19782. FTitle : string;
  19783. FOData__ModerationComments : string;
  19784. FFile_x0020_Type : string;
  19785. FPublishedObjectName : string;
  19786. FFailure_x0020_Stage : string;
  19787. FFailure_x0020_Message : string;
  19788. FFailure_x0020_Time : TDateTime;
  19789. FModified : TDateTime;
  19790. FCreated : TDateTime;
  19791. FAuthorId : TInt32;
  19792. FEditorId : TInt32;
  19793. FOData__HasCopyDestinations : boolean;
  19794. FOData__CopySource : string;
  19795. Fowshiddenversion : TInt32;
  19796. FWorkflowVersion : TInt32;
  19797. FOData__UIVersion : TInt32;
  19798. FOData__UIVersionString : string;
  19799. FAttachments : boolean;
  19800. FOData__ModerationStatus : TInt32;
  19801. FEdit : string;
  19802. FLinkTitleNoMenu : string;
  19803. FLinkTitle : string;
  19804. FLinkTitle2 : string;
  19805. FSelectTitle : string;
  19806. FInstanceID : TInt32;
  19807. FOrder : Double;
  19808. FGUID : TGUIDString;
  19809. FWorkflowInstanceID : TGUIDString;
  19810. FFileRef : string;
  19811. FFileDirRef : string;
  19812. FLast_x0020_Modified : TDateTime;
  19813. FCreated_x0020_Date : TDateTime;
  19814. FFSObjType : TInt32;
  19815. FPermMask : string;
  19816. FFileLeafRef : string;
  19817. FUniqueId : TGUIDString;
  19818. FHTML_x0020_File_x0020_Type : string;
  19819. FOData__EditMenuTableStart : string;
  19820. FOData__EditMenuTableStart2 : string;
  19821. FOData__EditMenuTableEnd : string;
  19822. FLinkFilenameNoMenu : string;
  19823. FLinkFilename : string;
  19824. FLinkFilename2 : string;
  19825. FDocIcon : string;
  19826. FServerUrl : string;
  19827. FEncodedAbsUrl : string;
  19828. FBaseName : string;
  19829. FOData__Level : TInt32;
  19830. FOData__IsCurrentVersion : boolean;
  19831. FAppAuthorId : TInt32;
  19832. FAppEditorId : TInt32;
  19833. procedure SetContentTypeId(AIndex: Integer; const AValue: string);
  19834. procedure SetTitle(AIndex: Integer; const AValue: string);
  19835. procedure SetOData__ModerationComments(AIndex: Integer;
  19836. const AValue: string);
  19837. procedure SetFile_x0020_Type(AIndex: Integer; const AValue: string);
  19838. procedure SetPublishedObjectName(AIndex: Integer; const AValue: string);
  19839. procedure SetFailure_x0020_Stage(AIndex: Integer; const AValue: string);
  19840. procedure SetFailure_x0020_Message(AIndex: Integer;
  19841. const AValue: string);
  19842. procedure SetFailure_x0020_Time(AIndex: Integer;
  19843. const AValue: TDateTime);
  19844. procedure SetModified(AIndex: Integer; const AValue: TDateTime);
  19845. procedure SetCreated(AIndex: Integer; const AValue: TDateTime);
  19846. procedure SetAuthorId(AIndex: Integer; const AValue: TInt32);
  19847. procedure SetEditorId(AIndex: Integer; const AValue: TInt32);
  19848. procedure SetOData__HasCopyDestinations(AIndex: Integer;
  19849. const AValue: boolean);
  19850. procedure SetOData__CopySource(AIndex: Integer; const AValue: string);
  19851. procedure Setowshiddenversion(AIndex: Integer; const AValue: TInt32);
  19852. procedure SetWorkflowVersion(AIndex: Integer; const AValue: TInt32);
  19853. procedure SetOData__UIVersion(AIndex: Integer; const AValue: TInt32);
  19854. procedure SetOData__UIVersionString(AIndex: Integer;
  19855. const AValue: string);
  19856. procedure SetAttachments(AIndex: Integer; const AValue: boolean);
  19857. procedure SetOData__ModerationStatus(AIndex: Integer;
  19858. const AValue: TInt32);
  19859. procedure SetEdit(AIndex: Integer; const AValue: string);
  19860. procedure SetLinkTitleNoMenu(AIndex: Integer; const AValue: string);
  19861. procedure SetLinkTitle(AIndex: Integer; const AValue: string);
  19862. procedure SetLinkTitle2(AIndex: Integer; const AValue: string);
  19863. procedure SetSelectTitle(AIndex: Integer; const AValue: string);
  19864. procedure SetInstanceID(AIndex: Integer; const AValue: TInt32);
  19865. procedure SetOrder(AIndex: Integer; const AValue: Double);
  19866. procedure SetGUID(AIndex: Integer; const AValue: TGUIDString);
  19867. procedure SetWorkflowInstanceID(AIndex: Integer;
  19868. const AValue: TGUIDString);
  19869. procedure SetFileRef(AIndex: Integer; const AValue: string);
  19870. procedure SetFileDirRef(AIndex: Integer; const AValue: string);
  19871. procedure SetLast_x0020_Modified(AIndex: Integer;
  19872. const AValue: TDateTime);
  19873. procedure SetCreated_x0020_Date(AIndex: Integer;
  19874. const AValue: TDateTime);
  19875. procedure SetFSObjType(AIndex: Integer; const AValue: TInt32);
  19876. procedure SetPermMask(AIndex: Integer; const AValue: string);
  19877. procedure SetFileLeafRef(AIndex: Integer; const AValue: string);
  19878. procedure SetUniqueId(AIndex: Integer; const AValue: TGUIDString);
  19879. procedure SetHTML_x0020_File_x0020_Type(AIndex: Integer;
  19880. const AValue: string);
  19881. procedure SetOData__EditMenuTableStart(AIndex: Integer;
  19882. const AValue: string);
  19883. procedure SetOData__EditMenuTableStart2(AIndex: Integer;
  19884. const AValue: string);
  19885. procedure SetOData__EditMenuTableEnd(AIndex: Integer;
  19886. const AValue: string);
  19887. procedure SetLinkFilenameNoMenu(AIndex: Integer; const AValue: string);
  19888. procedure SetLinkFilename(AIndex: Integer; const AValue: string);
  19889. procedure SetLinkFilename2(AIndex: Integer; const AValue: string);
  19890. procedure SetDocIcon(AIndex: Integer; const AValue: string);
  19891. procedure SetServerUrl(AIndex: Integer; const AValue: string);
  19892. procedure SetEncodedAbsUrl(AIndex: Integer; const AValue: string);
  19893. procedure SetBaseName(AIndex: Integer; const AValue: string);
  19894. procedure SetOData__Level(AIndex: Integer; const AValue: TInt32);
  19895. procedure SetOData__IsCurrentVersion(AIndex: Integer;
  19896. const AValue: boolean);
  19897. procedure SetAppAuthorId(AIndex: Integer; const AValue: TInt32);
  19898. procedure SetAppEditorId(AIndex: Integer; const AValue: TInt32);
  19899. public
  19900. class function ObjectRestKind : String; Override;
  19901. function Author(AService: TODataService) : TSP_DataUserInfoItem;
  19902. function Editor(AService: TODataService) : TSP_DataUserInfoItem;
  19903. published
  19904. Property ContentTypeId : string index 56 read FContentTypeId write SetContentTypeId;
  19905. Property Title : string index 64 read FTitle write SetTitle;
  19906. Property OData__ModerationComments : string index 72 read FOData__ModerationComments write SetOData__ModerationComments;
  19907. Property File_x0020_Type : string index 80 read FFile_x0020_Type write SetFile_x0020_Type;
  19908. Property PublishedObjectName : string index 88 read FPublishedObjectName write SetPublishedObjectName;
  19909. Property Failure_x0020_Stage : string index 96 read FFailure_x0020_Stage write SetFailure_x0020_Stage;
  19910. Property Failure_x0020_Message : string index 104 read FFailure_x0020_Message write SetFailure_x0020_Message;
  19911. Property Failure_x0020_Time : TDateTime index 112 read FFailure_x0020_Time write SetFailure_x0020_Time;
  19912. Property Modified : TDateTime index 128 read FModified write SetModified;
  19913. Property Created : TDateTime index 136 read FCreated write SetCreated;
  19914. Property AuthorId : TInt32 index 144 read FAuthorId write SetAuthorId;
  19915. Property EditorId : TInt32 index 152 read FEditorId write SetEditorId;
  19916. Property OData__HasCopyDestinations : boolean index 160 read FOData__HasCopyDestinations write SetOData__HasCopyDestinations;
  19917. Property OData__CopySource : string index 168 read FOData__CopySource write SetOData__CopySource;
  19918. Property owshiddenversion : TInt32 index 176 read Fowshiddenversion write Setowshiddenversion;
  19919. Property WorkflowVersion : TInt32 index 184 read FWorkflowVersion write SetWorkflowVersion;
  19920. Property OData__UIVersion : TInt32 index 192 read FOData__UIVersion write SetOData__UIVersion;
  19921. Property OData__UIVersionString : string index 200 read FOData__UIVersionString write SetOData__UIVersionString;
  19922. Property Attachments : boolean index 208 read FAttachments write SetAttachments;
  19923. Property OData__ModerationStatus : TInt32 index 216 read FOData__ModerationStatus write SetOData__ModerationStatus;
  19924. Property Edit : string index 224 read FEdit write SetEdit;
  19925. Property LinkTitleNoMenu : string index 232 read FLinkTitleNoMenu write SetLinkTitleNoMenu;
  19926. Property LinkTitle : string index 240 read FLinkTitle write SetLinkTitle;
  19927. Property LinkTitle2 : string index 248 read FLinkTitle2 write SetLinkTitle2;
  19928. Property SelectTitle : string index 256 read FSelectTitle write SetSelectTitle;
  19929. Property InstanceID : TInt32 index 264 read FInstanceID write SetInstanceID;
  19930. Property Order : Double index 272 read FOrder write SetOrder;
  19931. Property GUID : TGUIDString index 280 read FGUID write SetGUID;
  19932. Property WorkflowInstanceID : TGUIDString index 288 read FWorkflowInstanceID write SetWorkflowInstanceID;
  19933. Property FileRef : string index 296 read FFileRef write SetFileRef;
  19934. Property FileDirRef : string index 304 read FFileDirRef write SetFileDirRef;
  19935. Property Last_x0020_Modified : TDateTime index 312 read FLast_x0020_Modified write SetLast_x0020_Modified;
  19936. Property Created_x0020_Date : TDateTime index 320 read FCreated_x0020_Date write SetCreated_x0020_Date;
  19937. Property FSObjType : TInt32 index 328 read FFSObjType write SetFSObjType;
  19938. Property PermMask : string index 336 read FPermMask write SetPermMask;
  19939. Property FileLeafRef : string index 344 read FFileLeafRef write SetFileLeafRef;
  19940. Property UniqueId : TGUIDString index 352 read FUniqueId write SetUniqueId;
  19941. Property HTML_x0020_File_x0020_Type : string index 360 read FHTML_x0020_File_x0020_Type write SetHTML_x0020_File_x0020_Type;
  19942. Property OData__EditMenuTableStart : string index 368 read FOData__EditMenuTableStart write SetOData__EditMenuTableStart;
  19943. Property OData__EditMenuTableStart2 : string index 376 read FOData__EditMenuTableStart2 write SetOData__EditMenuTableStart2;
  19944. Property OData__EditMenuTableEnd : string index 384 read FOData__EditMenuTableEnd write SetOData__EditMenuTableEnd;
  19945. Property LinkFilenameNoMenu : string index 392 read FLinkFilenameNoMenu write SetLinkFilenameNoMenu;
  19946. Property LinkFilename : string index 400 read FLinkFilename write SetLinkFilename;
  19947. Property LinkFilename2 : string index 408 read FLinkFilename2 write SetLinkFilename2;
  19948. Property DocIcon : string index 416 read FDocIcon write SetDocIcon;
  19949. Property ServerUrl : string index 424 read FServerUrl write SetServerUrl;
  19950. Property EncodedAbsUrl : string index 432 read FEncodedAbsUrl write SetEncodedAbsUrl;
  19951. Property BaseName : string index 440 read FBaseName write SetBaseName;
  19952. Property OData__Level : TInt32 index 448 read FOData__Level write SetOData__Level;
  19953. Property OData__IsCurrentVersion : boolean index 456 read FOData__IsCurrentVersion write SetOData__IsCurrentVersion;
  19954. Property AppAuthorId : TInt32 index 464 read FAppAuthorId write SetAppAuthorId;
  19955. Property AppEditorId : TInt32 index 472 read FAppEditorId write SetAppEditorId;
  19956. end;
  19957. { --------------------------------------------------------------------
  19958. SP.Data: IWConvertedFormsItem
  19959. --------------------------------------------------------------------}
  19960. TSP_DataIWConvertedFormsItem = Class(TSPListItem)
  19961. private
  19962. FContentTypeId : string;
  19963. FCreated : TDateTime;
  19964. FAuthorId : TInt32;
  19965. FModified : TDateTime;
  19966. FEditorId : TInt32;
  19967. FOData__HasCopyDestinations : boolean;
  19968. FOData__CopySource : string;
  19969. FOData__ModerationStatus : TInt32;
  19970. FOData__ModerationComments : string;
  19971. FFileRef : string;
  19972. FFileDirRef : string;
  19973. FLast_x0020_Modified : TDateTime;
  19974. FCreated_x0020_Date : TDateTime;
  19975. FFSObjType : TInt32;
  19976. FPermMask : string;
  19977. FCheckoutUserId : TInt32;
  19978. FFileLeafRef : string;
  19979. FUniqueId : TGUIDString;
  19980. FOData__CheckinComment : string;
  19981. FLinkCheckedOutTitle : string;
  19982. FModified_x0020_By : string;
  19983. FCreated_x0020_By : string;
  19984. FFile_x0020_Type : string;
  19985. FHTML_x0020_File_x0020_Type : string;
  19986. FOData__SourceUrl : string;
  19987. FOData__SharedFileIndex : string;
  19988. FOData__EditMenuTableStart : string;
  19989. FOData__EditMenuTableStart2 : string;
  19990. FOData__EditMenuTableEnd : string;
  19991. FLinkFilenameNoMenu : string;
  19992. FLinkFilename : string;
  19993. FLinkFilename2 : string;
  19994. FDocIcon : string;
  19995. FServerUrl : string;
  19996. FEncodedAbsUrl : string;
  19997. FBaseName : string;
  19998. FFileSizeDisplay : string;
  19999. FOData__Level : TInt32;
  20000. FOData__IsCurrentVersion : boolean;
  20001. FAppAuthorId : TInt32;
  20002. FAppEditorId : TInt32;
  20003. FSelectTitle : string;
  20004. FSelectFilename : string;
  20005. FEdit : string;
  20006. Fowshiddenversion : TInt32;
  20007. FOData__UIVersion : TInt32;
  20008. FOData__UIVersionString : string;
  20009. FInstanceID : TInt32;
  20010. FOrder : Double;
  20011. FGUID : TGUIDString;
  20012. FWorkflowVersion : TInt32;
  20013. FWorkflowInstanceID : TGUIDString;
  20014. FTemplateId : string;
  20015. FFormRelativeUrl : string;
  20016. FFormVersion : string;
  20017. procedure SetContentTypeId(AIndex: Integer; const AValue: string);
  20018. procedure SetCreated(AIndex: Integer; const AValue: TDateTime);
  20019. procedure SetAuthorId(AIndex: Integer; const AValue: TInt32);
  20020. procedure SetModified(AIndex: Integer; const AValue: TDateTime);
  20021. procedure SetEditorId(AIndex: Integer; const AValue: TInt32);
  20022. procedure SetOData__HasCopyDestinations(AIndex: Integer;
  20023. const AValue: boolean);
  20024. procedure SetOData__CopySource(AIndex: Integer; const AValue: string);
  20025. procedure SetOData__ModerationStatus(AIndex: Integer;
  20026. const AValue: TInt32);
  20027. procedure SetOData__ModerationComments(AIndex: Integer;
  20028. const AValue: string);
  20029. procedure SetFileRef(AIndex: Integer; const AValue: string);
  20030. procedure SetFileDirRef(AIndex: Integer; const AValue: string);
  20031. procedure SetLast_x0020_Modified(AIndex: Integer;
  20032. const AValue: TDateTime);
  20033. procedure SetCreated_x0020_Date(AIndex: Integer;
  20034. const AValue: TDateTime);
  20035. procedure SetFSObjType(AIndex: Integer; const AValue: TInt32);
  20036. procedure SetPermMask(AIndex: Integer; const AValue: string);
  20037. procedure SetCheckoutUserId(AIndex: Integer; const AValue: TInt32);
  20038. procedure SetFileLeafRef(AIndex: Integer; const AValue: string);
  20039. procedure SetUniqueId(AIndex: Integer; const AValue: TGUIDString);
  20040. procedure SetOData__CheckinComment(AIndex: Integer;
  20041. const AValue: string);
  20042. procedure SetLinkCheckedOutTitle(AIndex: Integer; const AValue: string);
  20043. procedure SetModified_x0020_By(AIndex: Integer; const AValue: string);
  20044. procedure SetCreated_x0020_By(AIndex: Integer; const AValue: string);
  20045. procedure SetFile_x0020_Type(AIndex: Integer; const AValue: string);
  20046. procedure SetHTML_x0020_File_x0020_Type(AIndex: Integer;
  20047. const AValue: string);
  20048. procedure SetOData__SourceUrl(AIndex: Integer; const AValue: string);
  20049. procedure SetOData__SharedFileIndex(AIndex: Integer;
  20050. const AValue: string);
  20051. procedure SetOData__EditMenuTableStart(AIndex: Integer;
  20052. const AValue: string);
  20053. procedure SetOData__EditMenuTableStart2(AIndex: Integer;
  20054. const AValue: string);
  20055. procedure SetOData__EditMenuTableEnd(AIndex: Integer;
  20056. const AValue: string);
  20057. procedure SetLinkFilenameNoMenu(AIndex: Integer; const AValue: string);
  20058. procedure SetLinkFilename(AIndex: Integer; const AValue: string);
  20059. procedure SetLinkFilename2(AIndex: Integer; const AValue: string);
  20060. procedure SetDocIcon(AIndex: Integer; const AValue: string);
  20061. procedure SetServerUrl(AIndex: Integer; const AValue: string);
  20062. procedure SetEncodedAbsUrl(AIndex: Integer; const AValue: string);
  20063. procedure SetBaseName(AIndex: Integer; const AValue: string);
  20064. procedure SetFileSizeDisplay(AIndex: Integer; const AValue: string);
  20065. procedure SetOData__Level(AIndex: Integer; const AValue: TInt32);
  20066. procedure SetOData__IsCurrentVersion(AIndex: Integer;
  20067. const AValue: boolean);
  20068. procedure SetAppAuthorId(AIndex: Integer; const AValue: TInt32);
  20069. procedure SetAppEditorId(AIndex: Integer; const AValue: TInt32);
  20070. procedure SetSelectTitle(AIndex: Integer; const AValue: string);
  20071. procedure SetSelectFilename(AIndex: Integer; const AValue: string);
  20072. procedure SetEdit(AIndex: Integer; const AValue: string);
  20073. procedure Setowshiddenversion(AIndex: Integer; const AValue: TInt32);
  20074. procedure SetOData__UIVersion(AIndex: Integer; const AValue: TInt32);
  20075. procedure SetOData__UIVersionString(AIndex: Integer;
  20076. const AValue: string);
  20077. procedure SetInstanceID(AIndex: Integer; const AValue: TInt32);
  20078. procedure SetOrder(AIndex: Integer; const AValue: Double);
  20079. procedure SetGUID(AIndex: Integer; const AValue: TGUIDString);
  20080. procedure SetWorkflowVersion(AIndex: Integer; const AValue: TInt32);
  20081. procedure SetWorkflowInstanceID(AIndex: Integer;
  20082. const AValue: TGUIDString);
  20083. procedure SetTemplateId(AIndex: Integer; const AValue: string);
  20084. procedure SetFormRelativeUrl(AIndex: Integer; const AValue: string);
  20085. procedure SetFormVersion(AIndex: Integer; const AValue: string);
  20086. public
  20087. class function ObjectRestKind : String; Override;
  20088. function Author(AService: TODataService) : TSP_DataUserInfoItem;
  20089. function Editor(AService: TODataService) : TSP_DataUserInfoItem;
  20090. function CheckoutUser(AService: TODataService) : TSP_DataUserInfoItem;
  20091. published
  20092. Property ContentTypeId : string index 64 read FContentTypeId write SetContentTypeId;
  20093. Property Created : TDateTime index 72 read FCreated write SetCreated;
  20094. Property AuthorId : TInt32 index 80 read FAuthorId write SetAuthorId;
  20095. Property Modified : TDateTime index 88 read FModified write SetModified;
  20096. Property EditorId : TInt32 index 96 read FEditorId write SetEditorId;
  20097. Property OData__HasCopyDestinations : boolean index 104 read FOData__HasCopyDestinations write SetOData__HasCopyDestinations;
  20098. Property OData__CopySource : string index 112 read FOData__CopySource write SetOData__CopySource;
  20099. Property OData__ModerationStatus : TInt32 index 120 read FOData__ModerationStatus write SetOData__ModerationStatus;
  20100. Property OData__ModerationComments : string index 128 read FOData__ModerationComments write SetOData__ModerationComments;
  20101. Property FileRef : string index 136 read FFileRef write SetFileRef;
  20102. Property FileDirRef : string index 144 read FFileDirRef write SetFileDirRef;
  20103. Property Last_x0020_Modified : TDateTime index 152 read FLast_x0020_Modified write SetLast_x0020_Modified;
  20104. Property Created_x0020_Date : TDateTime index 160 read FCreated_x0020_Date write SetCreated_x0020_Date;
  20105. Property FSObjType : TInt32 index 168 read FFSObjType write SetFSObjType;
  20106. Property PermMask : string index 176 read FPermMask write SetPermMask;
  20107. Property CheckoutUserId : TInt32 index 184 read FCheckoutUserId write SetCheckoutUserId;
  20108. Property FileLeafRef : string index 192 read FFileLeafRef write SetFileLeafRef;
  20109. Property UniqueId : TGUIDString index 200 read FUniqueId write SetUniqueId;
  20110. Property OData__CheckinComment : string index 208 read FOData__CheckinComment write SetOData__CheckinComment;
  20111. Property LinkCheckedOutTitle : string index 216 read FLinkCheckedOutTitle write SetLinkCheckedOutTitle;
  20112. Property Modified_x0020_By : string index 224 read FModified_x0020_By write SetModified_x0020_By;
  20113. Property Created_x0020_By : string index 232 read FCreated_x0020_By write SetCreated_x0020_By;
  20114. Property File_x0020_Type : string index 240 read FFile_x0020_Type write SetFile_x0020_Type;
  20115. Property HTML_x0020_File_x0020_Type : string index 248 read FHTML_x0020_File_x0020_Type write SetHTML_x0020_File_x0020_Type;
  20116. Property OData__SourceUrl : string index 256 read FOData__SourceUrl write SetOData__SourceUrl;
  20117. Property OData__SharedFileIndex : string index 264 read FOData__SharedFileIndex write SetOData__SharedFileIndex;
  20118. Property OData__EditMenuTableStart : string index 272 read FOData__EditMenuTableStart write SetOData__EditMenuTableStart;
  20119. Property OData__EditMenuTableStart2 : string index 280 read FOData__EditMenuTableStart2 write SetOData__EditMenuTableStart2;
  20120. Property OData__EditMenuTableEnd : string index 288 read FOData__EditMenuTableEnd write SetOData__EditMenuTableEnd;
  20121. Property LinkFilenameNoMenu : string index 296 read FLinkFilenameNoMenu write SetLinkFilenameNoMenu;
  20122. Property LinkFilename : string index 304 read FLinkFilename write SetLinkFilename;
  20123. Property LinkFilename2 : string index 312 read FLinkFilename2 write SetLinkFilename2;
  20124. Property DocIcon : string index 320 read FDocIcon write SetDocIcon;
  20125. Property ServerUrl : string index 328 read FServerUrl write SetServerUrl;
  20126. Property EncodedAbsUrl : string index 336 read FEncodedAbsUrl write SetEncodedAbsUrl;
  20127. Property BaseName : string index 344 read FBaseName write SetBaseName;
  20128. Property FileSizeDisplay : string index 352 read FFileSizeDisplay write SetFileSizeDisplay;
  20129. Property OData__Level : TInt32 index 360 read FOData__Level write SetOData__Level;
  20130. Property OData__IsCurrentVersion : boolean index 368 read FOData__IsCurrentVersion write SetOData__IsCurrentVersion;
  20131. Property AppAuthorId : TInt32 index 376 read FAppAuthorId write SetAppAuthorId;
  20132. Property AppEditorId : TInt32 index 384 read FAppEditorId write SetAppEditorId;
  20133. Property SelectTitle : string index 392 read FSelectTitle write SetSelectTitle;
  20134. Property SelectFilename : string index 400 read FSelectFilename write SetSelectFilename;
  20135. Property Edit : string index 408 read FEdit write SetEdit;
  20136. Property owshiddenversion : TInt32 index 416 read Fowshiddenversion write Setowshiddenversion;
  20137. Property OData__UIVersion : TInt32 index 424 read FOData__UIVersion write SetOData__UIVersion;
  20138. Property OData__UIVersionString : string index 432 read FOData__UIVersionString write SetOData__UIVersionString;
  20139. Property InstanceID : TInt32 index 440 read FInstanceID write SetInstanceID;
  20140. Property Order : Double index 448 read FOrder write SetOrder;
  20141. Property GUID : TGUIDString index 456 read FGUID write SetGUID;
  20142. Property WorkflowVersion : TInt32 index 464 read FWorkflowVersion write SetWorkflowVersion;
  20143. Property WorkflowInstanceID : TGUIDString index 472 read FWorkflowInstanceID write SetWorkflowInstanceID;
  20144. Property TemplateId : string index 480 read FTemplateId write SetTemplateId;
  20145. Property FormRelativeUrl : string index 488 read FFormRelativeUrl write SetFormRelativeUrl;
  20146. Property FormVersion : string index 496 read FFormVersion write SetFormVersion;
  20147. end;
  20148. { --------------------------------------------------------------------
  20149. SP.Data: DocumentsItem
  20150. --------------------------------------------------------------------}
  20151. TSP_DataDocumentsItem = Class(TSPListItem)
  20152. private
  20153. FContentTypeId : string;
  20154. FOData__ModerationComments : string;
  20155. FFileLeafRef : string;
  20156. FModified_x0020_By : string;
  20157. FCreated_x0020_By : string;
  20158. FFile_x0020_Type : string;
  20159. FHTML_x0020_File_x0020_Type : string;
  20160. FOData__SourceUrl : string;
  20161. FOData__SharedFileIndex : string;
  20162. FTitle : string;
  20163. FPrincipalCount : string;
  20164. FSharedWith : string;
  20165. FIsMyDocuments : boolean;
  20166. FSharedWithInternalId : TInt32Array;
  20167. FSharedWithUsersId : TInt32Array;
  20168. FCreated : TDateTime;
  20169. FAuthorId : TInt32;
  20170. FModified : TDateTime;
  20171. FEditorId : TInt32;
  20172. FOData__HasCopyDestinations : boolean;
  20173. FOData__CopySource : string;
  20174. FOData__ModerationStatus : TInt32;
  20175. FFileRef : string;
  20176. FFileDirRef : string;
  20177. FLast_x0020_Modified : TDateTime;
  20178. FCreated_x0020_Date : TDateTime;
  20179. FFSObjType : TInt32;
  20180. FPermMask : string;
  20181. FCheckoutUserId : TInt32;
  20182. FUniqueId : TGUIDString;
  20183. FOData__CheckinComment : string;
  20184. FLinkCheckedOutTitle : string;
  20185. FOData__EditMenuTableStart : string;
  20186. FOData__EditMenuTableStart2 : string;
  20187. FOData__EditMenuTableEnd : string;
  20188. FLinkFilenameNoMenu : string;
  20189. FLinkFilename : string;
  20190. FLinkFilename2 : string;
  20191. FDocIcon : string;
  20192. FServerUrl : string;
  20193. FEncodedAbsUrl : string;
  20194. FBaseName : string;
  20195. FFileSizeDisplay : string;
  20196. FOData__Level : TInt32;
  20197. FOData__IsCurrentVersion : boolean;
  20198. FAppAuthorId : TInt32;
  20199. FAppEditorId : TInt32;
  20200. FSelectTitle : string;
  20201. FSelectFilename : string;
  20202. FEdit : string;
  20203. Fowshiddenversion : TInt32;
  20204. FOData__UIVersion : TInt32;
  20205. FOData__UIVersionString : string;
  20206. FInstanceID : TInt32;
  20207. FOrder : Double;
  20208. FGUID : TGUIDString;
  20209. FWorkflowVersion : TInt32;
  20210. FWorkflowInstanceID : TGUIDString;
  20211. procedure SetContentTypeId(AIndex: Integer; const AValue: string);
  20212. procedure SetOData__ModerationComments(AIndex: Integer;
  20213. const AValue: string);
  20214. procedure SetFileLeafRef(AIndex: Integer; const AValue: string);
  20215. procedure SetModified_x0020_By(AIndex: Integer; const AValue: string);
  20216. procedure SetCreated_x0020_By(AIndex: Integer; const AValue: string);
  20217. procedure SetFile_x0020_Type(AIndex: Integer; const AValue: string);
  20218. procedure SetHTML_x0020_File_x0020_Type(AIndex: Integer;
  20219. const AValue: string);
  20220. procedure SetOData__SourceUrl(AIndex: Integer; const AValue: string);
  20221. procedure SetOData__SharedFileIndex(AIndex: Integer;
  20222. const AValue: string);
  20223. procedure SetTitle(AIndex: Integer; const AValue: string);
  20224. procedure SetPrincipalCount(AIndex: Integer; const AValue: string);
  20225. procedure SetSharedWith(AIndex: Integer; const AValue: string);
  20226. procedure SetIsMyDocuments(AIndex: Integer; const AValue: boolean);
  20227. procedure SetSharedWithInternalId(AIndex: Integer;
  20228. const AValue: TInt32Array);
  20229. procedure SetSharedWithUsersId(AIndex: Integer;
  20230. const AValue: TInt32Array);
  20231. procedure SetCreated(AIndex: Integer; const AValue: TDateTime);
  20232. procedure SetAuthorId(AIndex: Integer; const AValue: TInt32);
  20233. procedure SetModified(AIndex: Integer; const AValue: TDateTime);
  20234. procedure SetEditorId(AIndex: Integer; const AValue: TInt32);
  20235. procedure SetOData__HasCopyDestinations(AIndex: Integer;
  20236. const AValue: boolean);
  20237. procedure SetOData__CopySource(AIndex: Integer; const AValue: string);
  20238. procedure SetOData__ModerationStatus(AIndex: Integer;
  20239. const AValue: TInt32);
  20240. procedure SetFileRef(AIndex: Integer; const AValue: string);
  20241. procedure SetFileDirRef(AIndex: Integer; const AValue: string);
  20242. procedure SetLast_x0020_Modified(AIndex: Integer;
  20243. const AValue: TDateTime);
  20244. procedure SetCreated_x0020_Date(AIndex: Integer;
  20245. const AValue: TDateTime);
  20246. procedure SetFSObjType(AIndex: Integer; const AValue: TInt32);
  20247. procedure SetPermMask(AIndex: Integer; const AValue: string);
  20248. procedure SetCheckoutUserId(AIndex: Integer; const AValue: TInt32);
  20249. procedure SetUniqueId(AIndex: Integer; const AValue: TGUIDString);
  20250. procedure SetOData__CheckinComment(AIndex: Integer;
  20251. const AValue: string);
  20252. procedure SetLinkCheckedOutTitle(AIndex: Integer; const AValue: string);
  20253. procedure SetOData__EditMenuTableStart(AIndex: Integer;
  20254. const AValue: string);
  20255. procedure SetOData__EditMenuTableStart2(AIndex: Integer;
  20256. const AValue: string);
  20257. procedure SetOData__EditMenuTableEnd(AIndex: Integer;
  20258. const AValue: string);
  20259. procedure SetLinkFilenameNoMenu(AIndex: Integer; const AValue: string);
  20260. procedure SetLinkFilename(AIndex: Integer; const AValue: string);
  20261. procedure SetLinkFilename2(AIndex: Integer; const AValue: string);
  20262. procedure SetDocIcon(AIndex: Integer; const AValue: string);
  20263. procedure SetServerUrl(AIndex: Integer; const AValue: string);
  20264. procedure SetEncodedAbsUrl(AIndex: Integer; const AValue: string);
  20265. procedure SetBaseName(AIndex: Integer; const AValue: string);
  20266. procedure SetFileSizeDisplay(AIndex: Integer; const AValue: string);
  20267. procedure SetOData__Level(AIndex: Integer; const AValue: TInt32);
  20268. procedure SetOData__IsCurrentVersion(AIndex: Integer;
  20269. const AValue: boolean);
  20270. procedure SetAppAuthorId(AIndex: Integer; const AValue: TInt32);
  20271. procedure SetAppEditorId(AIndex: Integer; const AValue: TInt32);
  20272. procedure SetSelectTitle(AIndex: Integer; const AValue: string);
  20273. procedure SetSelectFilename(AIndex: Integer; const AValue: string);
  20274. procedure SetEdit(AIndex: Integer; const AValue: string);
  20275. procedure Setowshiddenversion(AIndex: Integer; const AValue: TInt32);
  20276. procedure SetOData__UIVersion(AIndex: Integer; const AValue: TInt32);
  20277. procedure SetOData__UIVersionString(AIndex: Integer;
  20278. const AValue: string);
  20279. procedure SetInstanceID(AIndex: Integer; const AValue: TInt32);
  20280. procedure SetOrder(AIndex: Integer; const AValue: Double);
  20281. procedure SetGUID(AIndex: Integer; const AValue: TGUIDString);
  20282. procedure SetWorkflowVersion(AIndex: Integer; const AValue: TInt32);
  20283. procedure SetWorkflowInstanceID(AIndex: Integer;
  20284. const AValue: TGUIDString);
  20285. protected
  20286. {$IFDEF VER2_6}
  20287. procedure SetArrayLength(const AName: String; ALength: Longint)
  20288. ; Override;
  20289. {$ENDIF VER2_6}
  20290. public
  20291. class function ObjectRestKind : String; Override;
  20292. function SharedWithInternal(AService: TODataService)
  20293. : TSP_DataUserInfoItem;
  20294. function SharedWithUsers(AService: TODataService) : TSP_DataUserInfoItem;
  20295. function Author(AService: TODataService) : TSP_DataUserInfoItem;
  20296. function Editor(AService: TODataService) : TSP_DataUserInfoItem;
  20297. function CheckoutUser(AService: TODataService) : TSP_DataUserInfoItem;
  20298. published
  20299. Property ContentTypeId : string index 56 read FContentTypeId write SetContentTypeId;
  20300. Property OData__ModerationComments : string index 64 read FOData__ModerationComments write SetOData__ModerationComments;
  20301. Property FileLeafRef : string index 72 read FFileLeafRef write SetFileLeafRef;
  20302. Property Modified_x0020_By : string index 80 read FModified_x0020_By write SetModified_x0020_By;
  20303. Property Created_x0020_By : string index 88 read FCreated_x0020_By write SetCreated_x0020_By;
  20304. Property File_x0020_Type : string index 96 read FFile_x0020_Type write SetFile_x0020_Type;
  20305. Property HTML_x0020_File_x0020_Type : string index 104 read FHTML_x0020_File_x0020_Type write SetHTML_x0020_File_x0020_Type;
  20306. Property OData__SourceUrl : string index 112 read FOData__SourceUrl write SetOData__SourceUrl;
  20307. Property OData__SharedFileIndex : string index 120 read FOData__SharedFileIndex write SetOData__SharedFileIndex;
  20308. Property Title : string index 128 read FTitle write SetTitle;
  20309. Property PrincipalCount : string index 136 read FPrincipalCount write SetPrincipalCount;
  20310. Property SharedWith : string index 144 read FSharedWith write SetSharedWith;
  20311. Property IsMyDocuments : boolean index 152 read FIsMyDocuments write SetIsMyDocuments;
  20312. Property SharedWithInternalId : TInt32Array index 160 read FSharedWithInternalId write SetSharedWithInternalId;
  20313. Property SharedWithUsersId : TInt32Array index 168 read FSharedWithUsersId write SetSharedWithUsersId;
  20314. Property Created : TDateTime index 184 read FCreated write SetCreated;
  20315. Property AuthorId : TInt32 index 192 read FAuthorId write SetAuthorId;
  20316. Property Modified : TDateTime index 200 read FModified write SetModified;
  20317. Property EditorId : TInt32 index 208 read FEditorId write SetEditorId;
  20318. Property OData__HasCopyDestinations : boolean index 216 read FOData__HasCopyDestinations write SetOData__HasCopyDestinations;
  20319. Property OData__CopySource : string index 224 read FOData__CopySource write SetOData__CopySource;
  20320. Property OData__ModerationStatus : TInt32 index 232 read FOData__ModerationStatus write SetOData__ModerationStatus;
  20321. Property FileRef : string index 240 read FFileRef write SetFileRef;
  20322. Property FileDirRef : string index 248 read FFileDirRef write SetFileDirRef;
  20323. Property Last_x0020_Modified : TDateTime index 256 read FLast_x0020_Modified write SetLast_x0020_Modified;
  20324. Property Created_x0020_Date : TDateTime index 264 read FCreated_x0020_Date write SetCreated_x0020_Date;
  20325. Property FSObjType : TInt32 index 272 read FFSObjType write SetFSObjType;
  20326. Property PermMask : string index 280 read FPermMask write SetPermMask;
  20327. Property CheckoutUserId : TInt32 index 288 read FCheckoutUserId write SetCheckoutUserId;
  20328. Property UniqueId : TGUIDString index 296 read FUniqueId write SetUniqueId;
  20329. Property OData__CheckinComment : string index 304 read FOData__CheckinComment write SetOData__CheckinComment;
  20330. Property LinkCheckedOutTitle : string index 312 read FLinkCheckedOutTitle write SetLinkCheckedOutTitle;
  20331. Property OData__EditMenuTableStart : string index 320 read FOData__EditMenuTableStart write SetOData__EditMenuTableStart;
  20332. Property OData__EditMenuTableStart2 : string index 328 read FOData__EditMenuTableStart2 write SetOData__EditMenuTableStart2;
  20333. Property OData__EditMenuTableEnd : string index 336 read FOData__EditMenuTableEnd write SetOData__EditMenuTableEnd;
  20334. Property LinkFilenameNoMenu : string index 344 read FLinkFilenameNoMenu write SetLinkFilenameNoMenu;
  20335. Property LinkFilename : string index 352 read FLinkFilename write SetLinkFilename;
  20336. Property LinkFilename2 : string index 360 read FLinkFilename2 write SetLinkFilename2;
  20337. Property DocIcon : string index 368 read FDocIcon write SetDocIcon;
  20338. Property ServerUrl : string index 376 read FServerUrl write SetServerUrl;
  20339. Property EncodedAbsUrl : string index 384 read FEncodedAbsUrl write SetEncodedAbsUrl;
  20340. Property BaseName : string index 392 read FBaseName write SetBaseName;
  20341. Property FileSizeDisplay : string index 400 read FFileSizeDisplay write SetFileSizeDisplay;
  20342. Property OData__Level : TInt32 index 408 read FOData__Level write SetOData__Level;
  20343. Property OData__IsCurrentVersion : boolean index 416 read FOData__IsCurrentVersion write SetOData__IsCurrentVersion;
  20344. Property AppAuthorId : TInt32 index 424 read FAppAuthorId write SetAppAuthorId;
  20345. Property AppEditorId : TInt32 index 432 read FAppEditorId write SetAppEditorId;
  20346. Property SelectTitle : string index 440 read FSelectTitle write SetSelectTitle;
  20347. Property SelectFilename : string index 448 read FSelectFilename write SetSelectFilename;
  20348. Property Edit : string index 456 read FEdit write SetEdit;
  20349. Property owshiddenversion : TInt32 index 464 read Fowshiddenversion write Setowshiddenversion;
  20350. Property OData__UIVersion : TInt32 index 472 read FOData__UIVersion write SetOData__UIVersion;
  20351. Property OData__UIVersionString : string index 480 read FOData__UIVersionString write SetOData__UIVersionString;
  20352. Property InstanceID : TInt32 index 488 read FInstanceID write SetInstanceID;
  20353. Property Order : Double index 496 read FOrder write SetOrder;
  20354. Property GUID : TGUIDString index 504 read FGUID write SetGUID;
  20355. Property WorkflowVersion : TInt32 index 512 read FWorkflowVersion write SetWorkflowVersion;
  20356. Property WorkflowInstanceID : TGUIDString index 520 read FWorkflowInstanceID write SetWorkflowInstanceID;
  20357. end;
  20358. { --------------------------------------------------------------------
  20359. SP.Data: FormServerTemplatesItem
  20360. --------------------------------------------------------------------}
  20361. TSP_DataFormServerTemplatesItem = Class(TSPListItem)
  20362. private
  20363. FContentTypeId : string;
  20364. FOData__ModerationComments : string;
  20365. FFileLeafRef : string;
  20366. FModified_x0020_By : string;
  20367. FCreated_x0020_By : string;
  20368. FFile_x0020_Type : string;
  20369. FHTML_x0020_File_x0020_Type : string;
  20370. FOData__SourceUrl : string;
  20371. FOData__SharedFileIndex : string;
  20372. FTitle : string;
  20373. FTemplateUrl : string;
  20374. Fxd_ProgID : string;
  20375. Fxd_Signature : boolean;
  20376. FFormName : string;
  20377. FFormCategory : string;
  20378. FFormVersion : string;
  20379. FFormId : string;
  20380. FFormLocale : string;
  20381. FFormDescription : string;
  20382. FCustomContentTypeId : string;
  20383. FShowInCatalog : boolean;
  20384. FLinkTemplateName : string;
  20385. FCreated : TDateTime;
  20386. FAuthorId : TInt32;
  20387. FModified : TDateTime;
  20388. FEditorId : TInt32;
  20389. FOData__HasCopyDestinations : boolean;
  20390. FOData__CopySource : string;
  20391. FOData__ModerationStatus : TInt32;
  20392. FFileRef : string;
  20393. FFileDirRef : string;
  20394. FLast_x0020_Modified : TDateTime;
  20395. FCreated_x0020_Date : TDateTime;
  20396. FFSObjType : TInt32;
  20397. FPermMask : string;
  20398. FCheckoutUserId : TInt32;
  20399. FUniqueId : TGUIDString;
  20400. FOData__CheckinComment : string;
  20401. FLinkCheckedOutTitle : string;
  20402. FOData__EditMenuTableStart : string;
  20403. FOData__EditMenuTableStart2 : string;
  20404. FOData__EditMenuTableEnd : string;
  20405. FLinkFilenameNoMenu : string;
  20406. FLinkFilename : string;
  20407. FLinkFilename2 : string;
  20408. FDocIcon : string;
  20409. FServerUrl : string;
  20410. FEncodedAbsUrl : string;
  20411. FBaseName : string;
  20412. FFileSizeDisplay : string;
  20413. FOData__Level : TInt32;
  20414. FOData__IsCurrentVersion : boolean;
  20415. FAppAuthorId : TInt32;
  20416. FAppEditorId : TInt32;
  20417. FSelectTitle : string;
  20418. FSelectFilename : string;
  20419. FEdit : string;
  20420. Fowshiddenversion : TInt32;
  20421. FOData__UIVersion : TInt32;
  20422. FOData__UIVersionString : string;
  20423. FInstanceID : TInt32;
  20424. FOrder : Double;
  20425. FGUID : TGUIDString;
  20426. FWorkflowVersion : TInt32;
  20427. FWorkflowInstanceID : TGUIDString;
  20428. FCombine : string;
  20429. FRepairDocument : string;
  20430. procedure SetContentTypeId(AIndex: Integer; const AValue: string);
  20431. procedure SetOData__ModerationComments(AIndex: Integer;
  20432. const AValue: string);
  20433. procedure SetFileLeafRef(AIndex: Integer; const AValue: string);
  20434. procedure SetModified_x0020_By(AIndex: Integer; const AValue: string);
  20435. procedure SetCreated_x0020_By(AIndex: Integer; const AValue: string);
  20436. procedure SetFile_x0020_Type(AIndex: Integer; const AValue: string);
  20437. procedure SetHTML_x0020_File_x0020_Type(AIndex: Integer;
  20438. const AValue: string);
  20439. procedure SetOData__SourceUrl(AIndex: Integer; const AValue: string);
  20440. procedure SetOData__SharedFileIndex(AIndex: Integer;
  20441. const AValue: string);
  20442. procedure SetTitle(AIndex: Integer; const AValue: string);
  20443. procedure SetTemplateUrl(AIndex: Integer; const AValue: string);
  20444. procedure Setxd_ProgID(AIndex: Integer; const AValue: string);
  20445. procedure Setxd_Signature(AIndex: Integer; const AValue: boolean);
  20446. procedure SetFormName(AIndex: Integer; const AValue: string);
  20447. procedure SetFormCategory(AIndex: Integer; const AValue: string);
  20448. procedure SetFormVersion(AIndex: Integer; const AValue: string);
  20449. procedure SetFormId(AIndex: Integer; const AValue: string);
  20450. procedure SetFormLocale(AIndex: Integer; const AValue: string);
  20451. procedure SetFormDescription(AIndex: Integer; const AValue: string);
  20452. procedure SetCustomContentTypeId(AIndex: Integer; const AValue: string);
  20453. procedure SetShowInCatalog(AIndex: Integer; const AValue: boolean);
  20454. procedure SetLinkTemplateName(AIndex: Integer; const AValue: string);
  20455. procedure SetCreated(AIndex: Integer; const AValue: TDateTime);
  20456. procedure SetAuthorId(AIndex: Integer; const AValue: TInt32);
  20457. procedure SetModified(AIndex: Integer; const AValue: TDateTime);
  20458. procedure SetEditorId(AIndex: Integer; const AValue: TInt32);
  20459. procedure SetOData__HasCopyDestinations(AIndex: Integer;
  20460. const AValue: boolean);
  20461. procedure SetOData__CopySource(AIndex: Integer; const AValue: string);
  20462. procedure SetOData__ModerationStatus(AIndex: Integer;
  20463. const AValue: TInt32);
  20464. procedure SetFileRef(AIndex: Integer; const AValue: string);
  20465. procedure SetFileDirRef(AIndex: Integer; const AValue: string);
  20466. procedure SetLast_x0020_Modified(AIndex: Integer;
  20467. const AValue: TDateTime);
  20468. procedure SetCreated_x0020_Date(AIndex: Integer;
  20469. const AValue: TDateTime);
  20470. procedure SetFSObjType(AIndex: Integer; const AValue: TInt32);
  20471. procedure SetPermMask(AIndex: Integer; const AValue: string);
  20472. procedure SetCheckoutUserId(AIndex: Integer; const AValue: TInt32);
  20473. procedure SetUniqueId(AIndex: Integer; const AValue: TGUIDString);
  20474. procedure SetOData__CheckinComment(AIndex: Integer;
  20475. const AValue: string);
  20476. procedure SetLinkCheckedOutTitle(AIndex: Integer; const AValue: string);
  20477. procedure SetOData__EditMenuTableStart(AIndex: Integer;
  20478. const AValue: string);
  20479. procedure SetOData__EditMenuTableStart2(AIndex: Integer;
  20480. const AValue: string);
  20481. procedure SetOData__EditMenuTableEnd(AIndex: Integer;
  20482. const AValue: string);
  20483. procedure SetLinkFilenameNoMenu(AIndex: Integer; const AValue: string);
  20484. procedure SetLinkFilename(AIndex: Integer; const AValue: string);
  20485. procedure SetLinkFilename2(AIndex: Integer; const AValue: string);
  20486. procedure SetDocIcon(AIndex: Integer; const AValue: string);
  20487. procedure SetServerUrl(AIndex: Integer; const AValue: string);
  20488. procedure SetEncodedAbsUrl(AIndex: Integer; const AValue: string);
  20489. procedure SetBaseName(AIndex: Integer; const AValue: string);
  20490. procedure SetFileSizeDisplay(AIndex: Integer; const AValue: string);
  20491. procedure SetOData__Level(AIndex: Integer; const AValue: TInt32);
  20492. procedure SetOData__IsCurrentVersion(AIndex: Integer;
  20493. const AValue: boolean);
  20494. procedure SetAppAuthorId(AIndex: Integer; const AValue: TInt32);
  20495. procedure SetAppEditorId(AIndex: Integer; const AValue: TInt32);
  20496. procedure SetSelectTitle(AIndex: Integer; const AValue: string);
  20497. procedure SetSelectFilename(AIndex: Integer; const AValue: string);
  20498. procedure SetEdit(AIndex: Integer; const AValue: string);
  20499. procedure Setowshiddenversion(AIndex: Integer; const AValue: TInt32);
  20500. procedure SetOData__UIVersion(AIndex: Integer; const AValue: TInt32);
  20501. procedure SetOData__UIVersionString(AIndex: Integer;
  20502. const AValue: string);
  20503. procedure SetInstanceID(AIndex: Integer; const AValue: TInt32);
  20504. procedure SetOrder(AIndex: Integer; const AValue: Double);
  20505. procedure SetGUID(AIndex: Integer; const AValue: TGUIDString);
  20506. procedure SetWorkflowVersion(AIndex: Integer; const AValue: TInt32);
  20507. procedure SetWorkflowInstanceID(AIndex: Integer;
  20508. const AValue: TGUIDString);
  20509. procedure SetCombine(AIndex: Integer; const AValue: string);
  20510. procedure SetRepairDocument(AIndex: Integer; const AValue: string);
  20511. public
  20512. class function ObjectRestKind : String; Override;
  20513. function Author(AService: TODataService) : TSP_DataUserInfoItem;
  20514. function Editor(AService: TODataService) : TSP_DataUserInfoItem;
  20515. function CheckoutUser(AService: TODataService) : TSP_DataUserInfoItem;
  20516. published
  20517. Property ContentTypeId : string index 56 read FContentTypeId write SetContentTypeId;
  20518. Property OData__ModerationComments : string index 64 read FOData__ModerationComments write SetOData__ModerationComments;
  20519. Property FileLeafRef : string index 72 read FFileLeafRef write SetFileLeafRef;
  20520. Property Modified_x0020_By : string index 80 read FModified_x0020_By write SetModified_x0020_By;
  20521. Property Created_x0020_By : string index 88 read FCreated_x0020_By write SetCreated_x0020_By;
  20522. Property File_x0020_Type : string index 96 read FFile_x0020_Type write SetFile_x0020_Type;
  20523. Property HTML_x0020_File_x0020_Type : string index 104 read FHTML_x0020_File_x0020_Type write SetHTML_x0020_File_x0020_Type;
  20524. Property OData__SourceUrl : string index 112 read FOData__SourceUrl write SetOData__SourceUrl;
  20525. Property OData__SharedFileIndex : string index 120 read FOData__SharedFileIndex write SetOData__SharedFileIndex;
  20526. Property Title : string index 128 read FTitle write SetTitle;
  20527. Property TemplateUrl : string index 136 read FTemplateUrl write SetTemplateUrl;
  20528. Property xd_ProgID : string index 144 read Fxd_ProgID write Setxd_ProgID;
  20529. Property xd_Signature : boolean index 152 read Fxd_Signature write Setxd_Signature;
  20530. Property FormName : string index 160 read FFormName write SetFormName;
  20531. Property FormCategory : string index 168 read FFormCategory write SetFormCategory;
  20532. Property FormVersion : string index 176 read FFormVersion write SetFormVersion;
  20533. Property FormId : string index 184 read FFormId write SetFormId;
  20534. Property FormLocale : string index 192 read FFormLocale write SetFormLocale;
  20535. Property FormDescription : string index 200 read FFormDescription write SetFormDescription;
  20536. Property CustomContentTypeId : string index 208 read FCustomContentTypeId write SetCustomContentTypeId;
  20537. Property ShowInCatalog : boolean index 216 read FShowInCatalog write SetShowInCatalog;
  20538. Property LinkTemplateName : string index 224 read FLinkTemplateName write SetLinkTemplateName;
  20539. Property Created : TDateTime index 240 read FCreated write SetCreated;
  20540. Property AuthorId : TInt32 index 248 read FAuthorId write SetAuthorId;
  20541. Property Modified : TDateTime index 256 read FModified write SetModified;
  20542. Property EditorId : TInt32 index 264 read FEditorId write SetEditorId;
  20543. Property OData__HasCopyDestinations : boolean index 272 read FOData__HasCopyDestinations write SetOData__HasCopyDestinations;
  20544. Property OData__CopySource : string index 280 read FOData__CopySource write SetOData__CopySource;
  20545. Property OData__ModerationStatus : TInt32 index 288 read FOData__ModerationStatus write SetOData__ModerationStatus;
  20546. Property FileRef : string index 296 read FFileRef write SetFileRef;
  20547. Property FileDirRef : string index 304 read FFileDirRef write SetFileDirRef;
  20548. Property Last_x0020_Modified : TDateTime index 312 read FLast_x0020_Modified write SetLast_x0020_Modified;
  20549. Property Created_x0020_Date : TDateTime index 320 read FCreated_x0020_Date write SetCreated_x0020_Date;
  20550. Property FSObjType : TInt32 index 328 read FFSObjType write SetFSObjType;
  20551. Property PermMask : string index 336 read FPermMask write SetPermMask;
  20552. Property CheckoutUserId : TInt32 index 344 read FCheckoutUserId write SetCheckoutUserId;
  20553. Property UniqueId : TGUIDString index 352 read FUniqueId write SetUniqueId;
  20554. Property OData__CheckinComment : string index 360 read FOData__CheckinComment write SetOData__CheckinComment;
  20555. Property LinkCheckedOutTitle : string index 368 read FLinkCheckedOutTitle write SetLinkCheckedOutTitle;
  20556. Property OData__EditMenuTableStart : string index 376 read FOData__EditMenuTableStart write SetOData__EditMenuTableStart;
  20557. Property OData__EditMenuTableStart2 : string index 384 read FOData__EditMenuTableStart2 write SetOData__EditMenuTableStart2;
  20558. Property OData__EditMenuTableEnd : string index 392 read FOData__EditMenuTableEnd write SetOData__EditMenuTableEnd;
  20559. Property LinkFilenameNoMenu : string index 400 read FLinkFilenameNoMenu write SetLinkFilenameNoMenu;
  20560. Property LinkFilename : string index 408 read FLinkFilename write SetLinkFilename;
  20561. Property LinkFilename2 : string index 416 read FLinkFilename2 write SetLinkFilename2;
  20562. Property DocIcon : string index 424 read FDocIcon write SetDocIcon;
  20563. Property ServerUrl : string index 432 read FServerUrl write SetServerUrl;
  20564. Property EncodedAbsUrl : string index 440 read FEncodedAbsUrl write SetEncodedAbsUrl;
  20565. Property BaseName : string index 448 read FBaseName write SetBaseName;
  20566. Property FileSizeDisplay : string index 456 read FFileSizeDisplay write SetFileSizeDisplay;
  20567. Property OData__Level : TInt32 index 464 read FOData__Level write SetOData__Level;
  20568. Property OData__IsCurrentVersion : boolean index 472 read FOData__IsCurrentVersion write SetOData__IsCurrentVersion;
  20569. Property AppAuthorId : TInt32 index 480 read FAppAuthorId write SetAppAuthorId;
  20570. Property AppEditorId : TInt32 index 488 read FAppEditorId write SetAppEditorId;
  20571. Property SelectTitle : string index 496 read FSelectTitle write SetSelectTitle;
  20572. Property SelectFilename : string index 504 read FSelectFilename write SetSelectFilename;
  20573. Property Edit : string index 512 read FEdit write SetEdit;
  20574. Property owshiddenversion : TInt32 index 520 read Fowshiddenversion write Setowshiddenversion;
  20575. Property OData__UIVersion : TInt32 index 528 read FOData__UIVersion write SetOData__UIVersion;
  20576. Property OData__UIVersionString : string index 536 read FOData__UIVersionString write SetOData__UIVersionString;
  20577. Property InstanceID : TInt32 index 544 read FInstanceID write SetInstanceID;
  20578. Property Order : Double index 552 read FOrder write SetOrder;
  20579. Property GUID : TGUIDString index 560 read FGUID write SetGUID;
  20580. Property WorkflowVersion : TInt32 index 568 read FWorkflowVersion write SetWorkflowVersion;
  20581. Property WorkflowInstanceID : TGUIDString index 576 read FWorkflowInstanceID write SetWorkflowInstanceID;
  20582. Property Combine : string index 584 read FCombine write SetCombine;
  20583. Property RepairDocument : string index 592 read FRepairDocument write SetRepairDocument;
  20584. end;
  20585. { --------------------------------------------------------------------
  20586. SP.Data: OData__x005f_catalogs_x002f_ltItem
  20587. --------------------------------------------------------------------}
  20588. TSP_DataOData__x005f_catalogs_x002f_ltItem = Class(TSPListItem)
  20589. private
  20590. FContentTypeId : string;
  20591. FCreated : TDateTime;
  20592. FAuthorId : TInt32;
  20593. FModified : TDateTime;
  20594. FEditorId : TInt32;
  20595. FOData__HasCopyDestinations : boolean;
  20596. FOData__CopySource : string;
  20597. FOData__ModerationStatus : TInt32;
  20598. FOData__ModerationComments : string;
  20599. FFileRef : string;
  20600. FFileDirRef : string;
  20601. FLast_x0020_Modified : TDateTime;
  20602. FCreated_x0020_Date : TDateTime;
  20603. FFSObjType : TInt32;
  20604. FPermMask : string;
  20605. FCheckoutUserId : TInt32;
  20606. FFileLeafRef : string;
  20607. FUniqueId : TGUIDString;
  20608. FOData__CheckinComment : string;
  20609. FLinkCheckedOutTitle : string;
  20610. FModified_x0020_By : string;
  20611. FCreated_x0020_By : string;
  20612. FFile_x0020_Type : string;
  20613. FHTML_x0020_File_x0020_Type : string;
  20614. FOData__SourceUrl : string;
  20615. FOData__SharedFileIndex : string;
  20616. FOData__EditMenuTableStart : string;
  20617. FOData__EditMenuTableStart2 : string;
  20618. FOData__EditMenuTableEnd : string;
  20619. FLinkFilenameNoMenu : string;
  20620. FLinkFilename : string;
  20621. FLinkFilename2 : string;
  20622. FDocIcon : string;
  20623. FServerUrl : string;
  20624. FEncodedAbsUrl : string;
  20625. FBaseName : string;
  20626. FFileSizeDisplay : string;
  20627. FOData__Level : TInt32;
  20628. FOData__IsCurrentVersion : boolean;
  20629. FAppAuthorId : TInt32;
  20630. FAppEditorId : TInt32;
  20631. FSelectTitle : string;
  20632. FSelectFilename : string;
  20633. FEdit : string;
  20634. Fowshiddenversion : TInt32;
  20635. FOData__UIVersion : TInt32;
  20636. FOData__UIVersionString : string;
  20637. FInstanceID : TInt32;
  20638. FOrder : Double;
  20639. FGUID : TGUIDString;
  20640. FWorkflowVersion : TInt32;
  20641. FWorkflowInstanceID : TGUIDString;
  20642. FTemplateTitle : string;
  20643. FTemplateDescription : string;
  20644. FTemplateID : string;
  20645. FLanguage : TInt32;
  20646. FTemplateType : TInt32;
  20647. FBaseType : TInt32;
  20648. FSubType : TInt32;
  20649. FHidden : boolean;
  20650. FMajorVersion : Double;
  20651. FFeatureID : TGUIDString;
  20652. FLanguageDisplay : string;
  20653. procedure SetContentTypeId(AIndex: Integer; const AValue: string);
  20654. procedure SetCreated(AIndex: Integer; const AValue: TDateTime);
  20655. procedure SetAuthorId(AIndex: Integer; const AValue: TInt32);
  20656. procedure SetModified(AIndex: Integer; const AValue: TDateTime);
  20657. procedure SetEditorId(AIndex: Integer; const AValue: TInt32);
  20658. procedure SetOData__HasCopyDestinations(AIndex: Integer;
  20659. const AValue: boolean);
  20660. procedure SetOData__CopySource(AIndex: Integer; const AValue: string);
  20661. procedure SetOData__ModerationStatus(AIndex: Integer;
  20662. const AValue: TInt32);
  20663. procedure SetOData__ModerationComments(AIndex: Integer;
  20664. const AValue: string);
  20665. procedure SetFileRef(AIndex: Integer; const AValue: string);
  20666. procedure SetFileDirRef(AIndex: Integer; const AValue: string);
  20667. procedure SetLast_x0020_Modified(AIndex: Integer;
  20668. const AValue: TDateTime);
  20669. procedure SetCreated_x0020_Date(AIndex: Integer;
  20670. const AValue: TDateTime);
  20671. procedure SetFSObjType(AIndex: Integer; const AValue: TInt32);
  20672. procedure SetPermMask(AIndex: Integer; const AValue: string);
  20673. procedure SetCheckoutUserId(AIndex: Integer; const AValue: TInt32);
  20674. procedure SetFileLeafRef(AIndex: Integer; const AValue: string);
  20675. procedure SetUniqueId(AIndex: Integer; const AValue: TGUIDString);
  20676. procedure SetOData__CheckinComment(AIndex: Integer;
  20677. const AValue: string);
  20678. procedure SetLinkCheckedOutTitle(AIndex: Integer; const AValue: string);
  20679. procedure SetModified_x0020_By(AIndex: Integer; const AValue: string);
  20680. procedure SetCreated_x0020_By(AIndex: Integer; const AValue: string);
  20681. procedure SetFile_x0020_Type(AIndex: Integer; const AValue: string);
  20682. procedure SetHTML_x0020_File_x0020_Type(AIndex: Integer;
  20683. const AValue: string);
  20684. procedure SetOData__SourceUrl(AIndex: Integer; const AValue: string);
  20685. procedure SetOData__SharedFileIndex(AIndex: Integer;
  20686. const AValue: string);
  20687. procedure SetOData__EditMenuTableStart(AIndex: Integer;
  20688. const AValue: string);
  20689. procedure SetOData__EditMenuTableStart2(AIndex: Integer;
  20690. const AValue: string);
  20691. procedure SetOData__EditMenuTableEnd(AIndex: Integer;
  20692. const AValue: string);
  20693. procedure SetLinkFilenameNoMenu(AIndex: Integer; const AValue: string);
  20694. procedure SetLinkFilename(AIndex: Integer; const AValue: string);
  20695. procedure SetLinkFilename2(AIndex: Integer; const AValue: string);
  20696. procedure SetDocIcon(AIndex: Integer; const AValue: string);
  20697. procedure SetServerUrl(AIndex: Integer; const AValue: string);
  20698. procedure SetEncodedAbsUrl(AIndex: Integer; const AValue: string);
  20699. procedure SetBaseName(AIndex: Integer; const AValue: string);
  20700. procedure SetFileSizeDisplay(AIndex: Integer; const AValue: string);
  20701. procedure SetOData__Level(AIndex: Integer; const AValue: TInt32);
  20702. procedure SetOData__IsCurrentVersion(AIndex: Integer;
  20703. const AValue: boolean);
  20704. procedure SetAppAuthorId(AIndex: Integer; const AValue: TInt32);
  20705. procedure SetAppEditorId(AIndex: Integer; const AValue: TInt32);
  20706. procedure SetSelectTitle(AIndex: Integer; const AValue: string);
  20707. procedure SetSelectFilename(AIndex: Integer; const AValue: string);
  20708. procedure SetEdit(AIndex: Integer; const AValue: string);
  20709. procedure Setowshiddenversion(AIndex: Integer; const AValue: TInt32);
  20710. procedure SetOData__UIVersion(AIndex: Integer; const AValue: TInt32);
  20711. procedure SetOData__UIVersionString(AIndex: Integer;
  20712. const AValue: string);
  20713. procedure SetInstanceID(AIndex: Integer; const AValue: TInt32);
  20714. procedure SetOrder(AIndex: Integer; const AValue: Double);
  20715. procedure SetGUID(AIndex: Integer; const AValue: TGUIDString);
  20716. procedure SetWorkflowVersion(AIndex: Integer; const AValue: TInt32);
  20717. procedure SetWorkflowInstanceID(AIndex: Integer;
  20718. const AValue: TGUIDString);
  20719. procedure SetTemplateTitle(AIndex: Integer; const AValue: string);
  20720. procedure SetTemplateDescription(AIndex: Integer; const AValue: string);
  20721. procedure SetTemplateID(AIndex: Integer; const AValue: string);
  20722. procedure SetLanguage(AIndex: Integer; const AValue: TInt32);
  20723. procedure SetTemplateType(AIndex: Integer; const AValue: TInt32);
  20724. procedure SetBaseType(AIndex: Integer; const AValue: TInt32);
  20725. procedure SetSubType(AIndex: Integer; const AValue: TInt32);
  20726. procedure SetHidden(AIndex: Integer; const AValue: boolean);
  20727. procedure SetMajorVersion(AIndex: Integer; const AValue: Double);
  20728. procedure SetFeatureID(AIndex: Integer; const AValue: TGUIDString);
  20729. procedure SetLanguageDisplay(AIndex: Integer; const AValue: string);
  20730. public
  20731. class function ObjectRestKind : String; Override;
  20732. function Author(AService: TODataService) : TSP_DataUserInfoItem;
  20733. function Editor(AService: TODataService) : TSP_DataUserInfoItem;
  20734. function CheckoutUser(AService: TODataService) : TSP_DataUserInfoItem;
  20735. published
  20736. Property ContentTypeId : string index 64 read FContentTypeId write SetContentTypeId;
  20737. Property Created : TDateTime index 72 read FCreated write SetCreated;
  20738. Property AuthorId : TInt32 index 80 read FAuthorId write SetAuthorId;
  20739. Property Modified : TDateTime index 88 read FModified write SetModified;
  20740. Property EditorId : TInt32 index 96 read FEditorId write SetEditorId;
  20741. Property OData__HasCopyDestinations : boolean index 104 read FOData__HasCopyDestinations write SetOData__HasCopyDestinations;
  20742. Property OData__CopySource : string index 112 read FOData__CopySource write SetOData__CopySource;
  20743. Property OData__ModerationStatus : TInt32 index 120 read FOData__ModerationStatus write SetOData__ModerationStatus;
  20744. Property OData__ModerationComments : string index 128 read FOData__ModerationComments write SetOData__ModerationComments;
  20745. Property FileRef : string index 136 read FFileRef write SetFileRef;
  20746. Property FileDirRef : string index 144 read FFileDirRef write SetFileDirRef;
  20747. Property Last_x0020_Modified : TDateTime index 152 read FLast_x0020_Modified write SetLast_x0020_Modified;
  20748. Property Created_x0020_Date : TDateTime index 160 read FCreated_x0020_Date write SetCreated_x0020_Date;
  20749. Property FSObjType : TInt32 index 168 read FFSObjType write SetFSObjType;
  20750. Property PermMask : string index 176 read FPermMask write SetPermMask;
  20751. Property CheckoutUserId : TInt32 index 184 read FCheckoutUserId write SetCheckoutUserId;
  20752. Property FileLeafRef : string index 192 read FFileLeafRef write SetFileLeafRef;
  20753. Property UniqueId : TGUIDString index 200 read FUniqueId write SetUniqueId;
  20754. Property OData__CheckinComment : string index 208 read FOData__CheckinComment write SetOData__CheckinComment;
  20755. Property LinkCheckedOutTitle : string index 216 read FLinkCheckedOutTitle write SetLinkCheckedOutTitle;
  20756. Property Modified_x0020_By : string index 224 read FModified_x0020_By write SetModified_x0020_By;
  20757. Property Created_x0020_By : string index 232 read FCreated_x0020_By write SetCreated_x0020_By;
  20758. Property File_x0020_Type : string index 240 read FFile_x0020_Type write SetFile_x0020_Type;
  20759. Property HTML_x0020_File_x0020_Type : string index 248 read FHTML_x0020_File_x0020_Type write SetHTML_x0020_File_x0020_Type;
  20760. Property OData__SourceUrl : string index 256 read FOData__SourceUrl write SetOData__SourceUrl;
  20761. Property OData__SharedFileIndex : string index 264 read FOData__SharedFileIndex write SetOData__SharedFileIndex;
  20762. Property OData__EditMenuTableStart : string index 272 read FOData__EditMenuTableStart write SetOData__EditMenuTableStart;
  20763. Property OData__EditMenuTableStart2 : string index 280 read FOData__EditMenuTableStart2 write SetOData__EditMenuTableStart2;
  20764. Property OData__EditMenuTableEnd : string index 288 read FOData__EditMenuTableEnd write SetOData__EditMenuTableEnd;
  20765. Property LinkFilenameNoMenu : string index 296 read FLinkFilenameNoMenu write SetLinkFilenameNoMenu;
  20766. Property LinkFilename : string index 304 read FLinkFilename write SetLinkFilename;
  20767. Property LinkFilename2 : string index 312 read FLinkFilename2 write SetLinkFilename2;
  20768. Property DocIcon : string index 320 read FDocIcon write SetDocIcon;
  20769. Property ServerUrl : string index 328 read FServerUrl write SetServerUrl;
  20770. Property EncodedAbsUrl : string index 336 read FEncodedAbsUrl write SetEncodedAbsUrl;
  20771. Property BaseName : string index 344 read FBaseName write SetBaseName;
  20772. Property FileSizeDisplay : string index 352 read FFileSizeDisplay write SetFileSizeDisplay;
  20773. Property OData__Level : TInt32 index 360 read FOData__Level write SetOData__Level;
  20774. Property OData__IsCurrentVersion : boolean index 368 read FOData__IsCurrentVersion write SetOData__IsCurrentVersion;
  20775. Property AppAuthorId : TInt32 index 376 read FAppAuthorId write SetAppAuthorId;
  20776. Property AppEditorId : TInt32 index 384 read FAppEditorId write SetAppEditorId;
  20777. Property SelectTitle : string index 392 read FSelectTitle write SetSelectTitle;
  20778. Property SelectFilename : string index 400 read FSelectFilename write SetSelectFilename;
  20779. Property Edit : string index 408 read FEdit write SetEdit;
  20780. Property owshiddenversion : TInt32 index 416 read Fowshiddenversion write Setowshiddenversion;
  20781. Property OData__UIVersion : TInt32 index 424 read FOData__UIVersion write SetOData__UIVersion;
  20782. Property OData__UIVersionString : string index 432 read FOData__UIVersionString write SetOData__UIVersionString;
  20783. Property InstanceID : TInt32 index 440 read FInstanceID write SetInstanceID;
  20784. Property Order : Double index 448 read FOrder write SetOrder;
  20785. Property GUID : TGUIDString index 456 read FGUID write SetGUID;
  20786. Property WorkflowVersion : TInt32 index 464 read FWorkflowVersion write SetWorkflowVersion;
  20787. Property WorkflowInstanceID : TGUIDString index 472 read FWorkflowInstanceID write SetWorkflowInstanceID;
  20788. Property TemplateTitle : string index 480 read FTemplateTitle write SetTemplateTitle;
  20789. Property TemplateDescription : string index 488 read FTemplateDescription write SetTemplateDescription;
  20790. Property TemplateID : string index 496 read FTemplateID write SetTemplateID;
  20791. Property Language : TInt32 index 504 read FLanguage write SetLanguage;
  20792. Property TemplateType : TInt32 index 512 read FTemplateType write SetTemplateType;
  20793. Property BaseType : TInt32 index 520 read FBaseType write SetBaseType;
  20794. Property SubType : TInt32 index 528 read FSubType write SetSubType;
  20795. Property Hidden : boolean index 536 read FHidden write SetHidden;
  20796. Property MajorVersion : Double index 544 read FMajorVersion write SetMajorVersion;
  20797. Property FeatureID : TGUIDString index 552 read FFeatureID write SetFeatureID;
  20798. Property LanguageDisplay : string index 560 read FLanguageDisplay write SetLanguageDisplay;
  20799. end;
  20800. { --------------------------------------------------------------------
  20801. SP.Data: OData__x005f_catalogs_x002f_MaintenanceLogsItem
  20802. --------------------------------------------------------------------}
  20803. TSP_DataOData__x005f_catalogs_x002f_MaintenanceLogsItem = Class(TSPListItem)
  20804. private
  20805. FContentTypeId : string;
  20806. FCreated : TDateTime;
  20807. FAuthorId : TInt32;
  20808. FModified : TDateTime;
  20809. FEditorId : TInt32;
  20810. FOData__HasCopyDestinations : boolean;
  20811. FOData__CopySource : string;
  20812. FOData__ModerationStatus : TInt32;
  20813. FOData__ModerationComments : string;
  20814. FFileRef : string;
  20815. FFileDirRef : string;
  20816. FLast_x0020_Modified : TDateTime;
  20817. FCreated_x0020_Date : TDateTime;
  20818. FFSObjType : TInt32;
  20819. FPermMask : string;
  20820. FCheckoutUserId : TInt32;
  20821. FFileLeafRef : string;
  20822. FUniqueId : TGUIDString;
  20823. FOData__CheckinComment : string;
  20824. FLinkCheckedOutTitle : string;
  20825. FModified_x0020_By : string;
  20826. FCreated_x0020_By : string;
  20827. FFile_x0020_Type : string;
  20828. FHTML_x0020_File_x0020_Type : string;
  20829. FOData__SourceUrl : string;
  20830. FOData__SharedFileIndex : string;
  20831. FOData__EditMenuTableStart : string;
  20832. FOData__EditMenuTableStart2 : string;
  20833. FOData__EditMenuTableEnd : string;
  20834. FLinkFilenameNoMenu : string;
  20835. FLinkFilename : string;
  20836. FLinkFilename2 : string;
  20837. FDocIcon : string;
  20838. FServerUrl : string;
  20839. FEncodedAbsUrl : string;
  20840. FBaseName : string;
  20841. FFileSizeDisplay : string;
  20842. FOData__Level : TInt32;
  20843. FOData__IsCurrentVersion : boolean;
  20844. FAppAuthorId : TInt32;
  20845. FAppEditorId : TInt32;
  20846. FSelectTitle : string;
  20847. FSelectFilename : string;
  20848. FEdit : string;
  20849. Fowshiddenversion : TInt32;
  20850. FOData__UIVersion : TInt32;
  20851. FOData__UIVersionString : string;
  20852. FInstanceID : TInt32;
  20853. FOrder : Double;
  20854. FGUID : TGUIDString;
  20855. FWorkflowVersion : TInt32;
  20856. FWorkflowInstanceID : TGUIDString;
  20857. procedure SetContentTypeId(AIndex: Integer; const AValue: string);
  20858. procedure SetCreated(AIndex: Integer; const AValue: TDateTime);
  20859. procedure SetAuthorId(AIndex: Integer; const AValue: TInt32);
  20860. procedure SetModified(AIndex: Integer; const AValue: TDateTime);
  20861. procedure SetEditorId(AIndex: Integer; const AValue: TInt32);
  20862. procedure SetOData__HasCopyDestinations(AIndex: Integer;
  20863. const AValue: boolean);
  20864. procedure SetOData__CopySource(AIndex: Integer; const AValue: string);
  20865. procedure SetOData__ModerationStatus(AIndex: Integer;
  20866. const AValue: TInt32);
  20867. procedure SetOData__ModerationComments(AIndex: Integer;
  20868. const AValue: string);
  20869. procedure SetFileRef(AIndex: Integer; const AValue: string);
  20870. procedure SetFileDirRef(AIndex: Integer; const AValue: string);
  20871. procedure SetLast_x0020_Modified(AIndex: Integer;
  20872. const AValue: TDateTime);
  20873. procedure SetCreated_x0020_Date(AIndex: Integer;
  20874. const AValue: TDateTime);
  20875. procedure SetFSObjType(AIndex: Integer; const AValue: TInt32);
  20876. procedure SetPermMask(AIndex: Integer; const AValue: string);
  20877. procedure SetCheckoutUserId(AIndex: Integer; const AValue: TInt32);
  20878. procedure SetFileLeafRef(AIndex: Integer; const AValue: string);
  20879. procedure SetUniqueId(AIndex: Integer; const AValue: TGUIDString);
  20880. procedure SetOData__CheckinComment(AIndex: Integer;
  20881. const AValue: string);
  20882. procedure SetLinkCheckedOutTitle(AIndex: Integer; const AValue: string);
  20883. procedure SetModified_x0020_By(AIndex: Integer; const AValue: string);
  20884. procedure SetCreated_x0020_By(AIndex: Integer; const AValue: string);
  20885. procedure SetFile_x0020_Type(AIndex: Integer; const AValue: string);
  20886. procedure SetHTML_x0020_File_x0020_Type(AIndex: Integer;
  20887. const AValue: string);
  20888. procedure SetOData__SourceUrl(AIndex: Integer; const AValue: string);
  20889. procedure SetOData__SharedFileIndex(AIndex: Integer;
  20890. const AValue: string);
  20891. procedure SetOData__EditMenuTableStart(AIndex: Integer;
  20892. const AValue: string);
  20893. procedure SetOData__EditMenuTableStart2(AIndex: Integer;
  20894. const AValue: string);
  20895. procedure SetOData__EditMenuTableEnd(AIndex: Integer;
  20896. const AValue: string);
  20897. procedure SetLinkFilenameNoMenu(AIndex: Integer; const AValue: string);
  20898. procedure SetLinkFilename(AIndex: Integer; const AValue: string);
  20899. procedure SetLinkFilename2(AIndex: Integer; const AValue: string);
  20900. procedure SetDocIcon(AIndex: Integer; const AValue: string);
  20901. procedure SetServerUrl(AIndex: Integer; const AValue: string);
  20902. procedure SetEncodedAbsUrl(AIndex: Integer; const AValue: string);
  20903. procedure SetBaseName(AIndex: Integer; const AValue: string);
  20904. procedure SetFileSizeDisplay(AIndex: Integer; const AValue: string);
  20905. procedure SetOData__Level(AIndex: Integer; const AValue: TInt32);
  20906. procedure SetOData__IsCurrentVersion(AIndex: Integer;
  20907. const AValue: boolean);
  20908. procedure SetAppAuthorId(AIndex: Integer; const AValue: TInt32);
  20909. procedure SetAppEditorId(AIndex: Integer; const AValue: TInt32);
  20910. procedure SetSelectTitle(AIndex: Integer; const AValue: string);
  20911. procedure SetSelectFilename(AIndex: Integer; const AValue: string);
  20912. procedure SetEdit(AIndex: Integer; const AValue: string);
  20913. procedure Setowshiddenversion(AIndex: Integer; const AValue: TInt32);
  20914. procedure SetOData__UIVersion(AIndex: Integer; const AValue: TInt32);
  20915. procedure SetOData__UIVersionString(AIndex: Integer;
  20916. const AValue: string);
  20917. procedure SetInstanceID(AIndex: Integer; const AValue: TInt32);
  20918. procedure SetOrder(AIndex: Integer; const AValue: Double);
  20919. procedure SetGUID(AIndex: Integer; const AValue: TGUIDString);
  20920. procedure SetWorkflowVersion(AIndex: Integer; const AValue: TInt32);
  20921. procedure SetWorkflowInstanceID(AIndex: Integer;
  20922. const AValue: TGUIDString);
  20923. public
  20924. class function ObjectRestKind : String; Override;
  20925. function Author(AService: TODataService) : TSP_DataUserInfoItem;
  20926. function Editor(AService: TODataService) : TSP_DataUserInfoItem;
  20927. function CheckoutUser(AService: TODataService) : TSP_DataUserInfoItem;
  20928. published
  20929. Property ContentTypeId : string index 64 read FContentTypeId write SetContentTypeId;
  20930. Property Created : TDateTime index 72 read FCreated write SetCreated;
  20931. Property AuthorId : TInt32 index 80 read FAuthorId write SetAuthorId;
  20932. Property Modified : TDateTime index 88 read FModified write SetModified;
  20933. Property EditorId : TInt32 index 96 read FEditorId write SetEditorId;
  20934. Property OData__HasCopyDestinations : boolean index 104 read FOData__HasCopyDestinations write SetOData__HasCopyDestinations;
  20935. Property OData__CopySource : string index 112 read FOData__CopySource write SetOData__CopySource;
  20936. Property OData__ModerationStatus : TInt32 index 120 read FOData__ModerationStatus write SetOData__ModerationStatus;
  20937. Property OData__ModerationComments : string index 128 read FOData__ModerationComments write SetOData__ModerationComments;
  20938. Property FileRef : string index 136 read FFileRef write SetFileRef;
  20939. Property FileDirRef : string index 144 read FFileDirRef write SetFileDirRef;
  20940. Property Last_x0020_Modified : TDateTime index 152 read FLast_x0020_Modified write SetLast_x0020_Modified;
  20941. Property Created_x0020_Date : TDateTime index 160 read FCreated_x0020_Date write SetCreated_x0020_Date;
  20942. Property FSObjType : TInt32 index 168 read FFSObjType write SetFSObjType;
  20943. Property PermMask : string index 176 read FPermMask write SetPermMask;
  20944. Property CheckoutUserId : TInt32 index 184 read FCheckoutUserId write SetCheckoutUserId;
  20945. Property FileLeafRef : string index 192 read FFileLeafRef write SetFileLeafRef;
  20946. Property UniqueId : TGUIDString index 200 read FUniqueId write SetUniqueId;
  20947. Property OData__CheckinComment : string index 208 read FOData__CheckinComment write SetOData__CheckinComment;
  20948. Property LinkCheckedOutTitle : string index 216 read FLinkCheckedOutTitle write SetLinkCheckedOutTitle;
  20949. Property Modified_x0020_By : string index 224 read FModified_x0020_By write SetModified_x0020_By;
  20950. Property Created_x0020_By : string index 232 read FCreated_x0020_By write SetCreated_x0020_By;
  20951. Property File_x0020_Type : string index 240 read FFile_x0020_Type write SetFile_x0020_Type;
  20952. Property HTML_x0020_File_x0020_Type : string index 248 read FHTML_x0020_File_x0020_Type write SetHTML_x0020_File_x0020_Type;
  20953. Property OData__SourceUrl : string index 256 read FOData__SourceUrl write SetOData__SourceUrl;
  20954. Property OData__SharedFileIndex : string index 264 read FOData__SharedFileIndex write SetOData__SharedFileIndex;
  20955. Property OData__EditMenuTableStart : string index 272 read FOData__EditMenuTableStart write SetOData__EditMenuTableStart;
  20956. Property OData__EditMenuTableStart2 : string index 280 read FOData__EditMenuTableStart2 write SetOData__EditMenuTableStart2;
  20957. Property OData__EditMenuTableEnd : string index 288 read FOData__EditMenuTableEnd write SetOData__EditMenuTableEnd;
  20958. Property LinkFilenameNoMenu : string index 296 read FLinkFilenameNoMenu write SetLinkFilenameNoMenu;
  20959. Property LinkFilename : string index 304 read FLinkFilename write SetLinkFilename;
  20960. Property LinkFilename2 : string index 312 read FLinkFilename2 write SetLinkFilename2;
  20961. Property DocIcon : string index 320 read FDocIcon write SetDocIcon;
  20962. Property ServerUrl : string index 328 read FServerUrl write SetServerUrl;
  20963. Property EncodedAbsUrl : string index 336 read FEncodedAbsUrl write SetEncodedAbsUrl;
  20964. Property BaseName : string index 344 read FBaseName write SetBaseName;
  20965. Property FileSizeDisplay : string index 352 read FFileSizeDisplay write SetFileSizeDisplay;
  20966. Property OData__Level : TInt32 index 360 read FOData__Level write SetOData__Level;
  20967. Property OData__IsCurrentVersion : boolean index 368 read FOData__IsCurrentVersion write SetOData__IsCurrentVersion;
  20968. Property AppAuthorId : TInt32 index 376 read FAppAuthorId write SetAppAuthorId;
  20969. Property AppEditorId : TInt32 index 384 read FAppEditorId write SetAppEditorId;
  20970. Property SelectTitle : string index 392 read FSelectTitle write SetSelectTitle;
  20971. Property SelectFilename : string index 400 read FSelectFilename write SetSelectFilename;
  20972. Property Edit : string index 408 read FEdit write SetEdit;
  20973. Property owshiddenversion : TInt32 index 416 read Fowshiddenversion write Setowshiddenversion;
  20974. Property OData__UIVersion : TInt32 index 424 read FOData__UIVersion write SetOData__UIVersion;
  20975. Property OData__UIVersionString : string index 432 read FOData__UIVersionString write SetOData__UIVersionString;
  20976. Property InstanceID : TInt32 index 440 read FInstanceID write SetInstanceID;
  20977. Property Order : Double index 448 read FOrder write SetOrder;
  20978. Property GUID : TGUIDString index 456 read FGUID write SetGUID;
  20979. Property WorkflowVersion : TInt32 index 464 read FWorkflowVersion write SetWorkflowVersion;
  20980. Property WorkflowInstanceID : TGUIDString index 472 read FWorkflowInstanceID write SetWorkflowInstanceID;
  20981. end;
  20982. { --------------------------------------------------------------------
  20983. SP.Data: OData__x005f_catalogs_x002f_masterpageItem
  20984. --------------------------------------------------------------------}
  20985. TSP_DataOData__x005f_catalogs_x002f_masterpageItem = Class(TSPListItem)
  20986. private
  20987. FContentTypeId : string;
  20988. FOData__ModerationComments : string;
  20989. FFileLeafRef : string;
  20990. FModified_x0020_By : string;
  20991. FCreated_x0020_By : string;
  20992. FFile_x0020_Type : string;
  20993. FHTML_x0020_File_x0020_Type : string;
  20994. FOData__SourceUrl : string;
  20995. FOData__SharedFileIndex : string;
  20996. FMasterPageDescription : string;
  20997. FUIVersion : TStringArray;
  20998. FDefaultCssFile : string;
  20999. FDisplayTemplateJSTemplateHidden : boolean;
  21000. FDisplayTemplateJSTargetControlType : string;
  21001. FDisplayTemplateJSIconUrl : TSPFieldUrlValue;
  21002. FDisplayTemplateJSTemplateType : string;
  21003. FDisplayTemplateJSTargetScope : string;
  21004. FDisplayTemplateJSTargetListTemplate : string;
  21005. FDisplayTemplateJSTargetContentType : string;
  21006. FDisplayTemplateJSConfigurationUrl : TSPFieldUrlValue;
  21007. FTitle : string;
  21008. FTemplateHidden : boolean;
  21009. FTargetControlType : TStringArray;
  21010. FCrawlerXSLFile : TSPFieldUrlValue;
  21011. FDisplayTemplateLevel : string;
  21012. FManagedPropertyMapping : string;
  21013. FCompatibleSearchDataTypes : TStringArray;
  21014. FCompatibleManagedProperties : string;
  21015. FCreated : TDateTime;
  21016. FAuthorId : TInt32;
  21017. FModified : TDateTime;
  21018. FEditorId : TInt32;
  21019. FOData__HasCopyDestinations : boolean;
  21020. FOData__CopySource : string;
  21021. FOData__ModerationStatus : TInt32;
  21022. FFileRef : string;
  21023. FFileDirRef : string;
  21024. FLast_x0020_Modified : TDateTime;
  21025. FCreated_x0020_Date : TDateTime;
  21026. FFSObjType : TInt32;
  21027. FPermMask : string;
  21028. FCheckoutUserId : TInt32;
  21029. FUniqueId : TGUIDString;
  21030. FOData__CheckinComment : string;
  21031. FLinkCheckedOutTitle : string;
  21032. FOData__EditMenuTableStart : string;
  21033. FOData__EditMenuTableStart2 : string;
  21034. FOData__EditMenuTableEnd : string;
  21035. FLinkFilenameNoMenu : string;
  21036. FLinkFilename : string;
  21037. FLinkFilename2 : string;
  21038. FDocIcon : string;
  21039. FServerUrl : string;
  21040. FEncodedAbsUrl : string;
  21041. FBaseName : string;
  21042. FFileSizeDisplay : string;
  21043. FOData__Level : TInt32;
  21044. FOData__IsCurrentVersion : boolean;
  21045. FAppAuthorId : TInt32;
  21046. FAppEditorId : TInt32;
  21047. FSelectTitle : string;
  21048. FSelectFilename : string;
  21049. FEdit : string;
  21050. Fowshiddenversion : TInt32;
  21051. FOData__UIVersion : TInt32;
  21052. FOData__UIVersionString : string;
  21053. FInstanceID : TInt32;
  21054. FOrder : Double;
  21055. FGUID : TGUIDString;
  21056. FWorkflowVersion : TInt32;
  21057. FWorkflowInstanceID : TGUIDString;
  21058. FFilenameMenuNoLink : string;
  21059. FMasterPageIcon : string;
  21060. FFilenameNoLink : string;
  21061. procedure SetContentTypeId(AIndex: Integer; const AValue: string);
  21062. procedure SetOData__ModerationComments(AIndex: Integer;
  21063. const AValue: string);
  21064. procedure SetFileLeafRef(AIndex: Integer; const AValue: string);
  21065. procedure SetModified_x0020_By(AIndex: Integer; const AValue: string);
  21066. procedure SetCreated_x0020_By(AIndex: Integer; const AValue: string);
  21067. procedure SetFile_x0020_Type(AIndex: Integer; const AValue: string);
  21068. procedure SetHTML_x0020_File_x0020_Type(AIndex: Integer;
  21069. const AValue: string);
  21070. procedure SetOData__SourceUrl(AIndex: Integer; const AValue: string);
  21071. procedure SetOData__SharedFileIndex(AIndex: Integer;
  21072. const AValue: string);
  21073. procedure SetMasterPageDescription(AIndex: Integer;
  21074. const AValue: string);
  21075. procedure SetUIVersion(AIndex: Integer; const AValue: TStringArray);
  21076. procedure SetDefaultCssFile(AIndex: Integer; const AValue: string);
  21077. procedure SetDisplayTemplateJSTemplateHidden(AIndex: Integer;
  21078. const AValue: boolean);
  21079. procedure SetDisplayTemplateJSTargetControlType(AIndex: Integer;
  21080. const AValue: string);
  21081. procedure SetDisplayTemplateJSIconUrl(AIndex: Integer;
  21082. const AValue: TSPFieldUrlValue);
  21083. procedure SetDisplayTemplateJSTemplateType(AIndex: Integer;
  21084. const AValue: string);
  21085. procedure SetDisplayTemplateJSTargetScope(AIndex: Integer;
  21086. const AValue: string);
  21087. procedure SetDisplayTemplateJSTargetListTemplate(AIndex: Integer;
  21088. const AValue: string);
  21089. procedure SetDisplayTemplateJSTargetContentType(AIndex: Integer;
  21090. const AValue: string);
  21091. procedure SetDisplayTemplateJSConfigurationUrl(AIndex: Integer;
  21092. const AValue: TSPFieldUrlValue);
  21093. procedure SetTitle(AIndex: Integer; const AValue: string);
  21094. procedure SetTemplateHidden(AIndex: Integer; const AValue: boolean);
  21095. procedure SetTargetControlType(AIndex: Integer;
  21096. const AValue: TStringArray);
  21097. procedure SetCrawlerXSLFile(AIndex: Integer;
  21098. const AValue: TSPFieldUrlValue);
  21099. procedure SetDisplayTemplateLevel(AIndex: Integer; const AValue: string);
  21100. procedure SetManagedPropertyMapping(AIndex: Integer;
  21101. const AValue: string);
  21102. procedure SetCompatibleSearchDataTypes(AIndex: Integer;
  21103. const AValue: TStringArray);
  21104. procedure SetCompatibleManagedProperties(AIndex: Integer;
  21105. const AValue: string);
  21106. procedure SetCreated(AIndex: Integer; const AValue: TDateTime);
  21107. procedure SetAuthorId(AIndex: Integer; const AValue: TInt32);
  21108. procedure SetModified(AIndex: Integer; const AValue: TDateTime);
  21109. procedure SetEditorId(AIndex: Integer; const AValue: TInt32);
  21110. procedure SetOData__HasCopyDestinations(AIndex: Integer;
  21111. const AValue: boolean);
  21112. procedure SetOData__CopySource(AIndex: Integer; const AValue: string);
  21113. procedure SetOData__ModerationStatus(AIndex: Integer;
  21114. const AValue: TInt32);
  21115. procedure SetFileRef(AIndex: Integer; const AValue: string);
  21116. procedure SetFileDirRef(AIndex: Integer; const AValue: string);
  21117. procedure SetLast_x0020_Modified(AIndex: Integer;
  21118. const AValue: TDateTime);
  21119. procedure SetCreated_x0020_Date(AIndex: Integer;
  21120. const AValue: TDateTime);
  21121. procedure SetFSObjType(AIndex: Integer; const AValue: TInt32);
  21122. procedure SetPermMask(AIndex: Integer; const AValue: string);
  21123. procedure SetCheckoutUserId(AIndex: Integer; const AValue: TInt32);
  21124. procedure SetUniqueId(AIndex: Integer; const AValue: TGUIDString);
  21125. procedure SetOData__CheckinComment(AIndex: Integer;
  21126. const AValue: string);
  21127. procedure SetLinkCheckedOutTitle(AIndex: Integer; const AValue: string);
  21128. procedure SetOData__EditMenuTableStart(AIndex: Integer;
  21129. const AValue: string);
  21130. procedure SetOData__EditMenuTableStart2(AIndex: Integer;
  21131. const AValue: string);
  21132. procedure SetOData__EditMenuTableEnd(AIndex: Integer;
  21133. const AValue: string);
  21134. procedure SetLinkFilenameNoMenu(AIndex: Integer; const AValue: string);
  21135. procedure SetLinkFilename(AIndex: Integer; const AValue: string);
  21136. procedure SetLinkFilename2(AIndex: Integer; const AValue: string);
  21137. procedure SetDocIcon(AIndex: Integer; const AValue: string);
  21138. procedure SetServerUrl(AIndex: Integer; const AValue: string);
  21139. procedure SetEncodedAbsUrl(AIndex: Integer; const AValue: string);
  21140. procedure SetBaseName(AIndex: Integer; const AValue: string);
  21141. procedure SetFileSizeDisplay(AIndex: Integer; const AValue: string);
  21142. procedure SetOData__Level(AIndex: Integer; const AValue: TInt32);
  21143. procedure SetOData__IsCurrentVersion(AIndex: Integer;
  21144. const AValue: boolean);
  21145. procedure SetAppAuthorId(AIndex: Integer; const AValue: TInt32);
  21146. procedure SetAppEditorId(AIndex: Integer; const AValue: TInt32);
  21147. procedure SetSelectTitle(AIndex: Integer; const AValue: string);
  21148. procedure SetSelectFilename(AIndex: Integer; const AValue: string);
  21149. procedure SetEdit(AIndex: Integer; const AValue: string);
  21150. procedure Setowshiddenversion(AIndex: Integer; const AValue: TInt32);
  21151. procedure SetOData__UIVersion(AIndex: Integer; const AValue: TInt32);
  21152. procedure SetOData__UIVersionString(AIndex: Integer;
  21153. const AValue: string);
  21154. procedure SetInstanceID(AIndex: Integer; const AValue: TInt32);
  21155. procedure SetOrder(AIndex: Integer; const AValue: Double);
  21156. procedure SetGUID(AIndex: Integer; const AValue: TGUIDString);
  21157. procedure SetWorkflowVersion(AIndex: Integer; const AValue: TInt32);
  21158. procedure SetWorkflowInstanceID(AIndex: Integer;
  21159. const AValue: TGUIDString);
  21160. procedure SetFilenameMenuNoLink(AIndex: Integer; const AValue: string);
  21161. procedure SetMasterPageIcon(AIndex: Integer; const AValue: string);
  21162. procedure SetFilenameNoLink(AIndex: Integer; const AValue: string);
  21163. protected
  21164. {$IFDEF VER2_6}
  21165. procedure SetArrayLength(const AName: String; ALength: Longint)
  21166. ; Override;
  21167. {$ENDIF VER2_6}
  21168. public
  21169. class function ObjectRestKind : String; Override;
  21170. function Author(AService: TODataService) : TSP_DataUserInfoItem;
  21171. function Editor(AService: TODataService) : TSP_DataUserInfoItem;
  21172. function CheckoutUser(AService: TODataService) : TSP_DataUserInfoItem;
  21173. published
  21174. Property ContentTypeId : string index 56 read FContentTypeId write SetContentTypeId;
  21175. Property OData__ModerationComments : string index 64 read FOData__ModerationComments write SetOData__ModerationComments;
  21176. Property FileLeafRef : string index 72 read FFileLeafRef write SetFileLeafRef;
  21177. Property Modified_x0020_By : string index 80 read FModified_x0020_By write SetModified_x0020_By;
  21178. Property Created_x0020_By : string index 88 read FCreated_x0020_By write SetCreated_x0020_By;
  21179. Property File_x0020_Type : string index 96 read FFile_x0020_Type write SetFile_x0020_Type;
  21180. Property HTML_x0020_File_x0020_Type : string index 104 read FHTML_x0020_File_x0020_Type write SetHTML_x0020_File_x0020_Type;
  21181. Property OData__SourceUrl : string index 112 read FOData__SourceUrl write SetOData__SourceUrl;
  21182. Property OData__SharedFileIndex : string index 120 read FOData__SharedFileIndex write SetOData__SharedFileIndex;
  21183. Property MasterPageDescription : string index 128 read FMasterPageDescription write SetMasterPageDescription;
  21184. Property UIVersion : TStringArray index 136 read FUIVersion write SetUIVersion;
  21185. Property DefaultCssFile : string index 144 read FDefaultCssFile write SetDefaultCssFile;
  21186. Property DisplayTemplateJSTemplateHidden : boolean index 152 read FDisplayTemplateJSTemplateHidden write SetDisplayTemplateJSTemplateHidden;
  21187. Property DisplayTemplateJSTargetControlType : string index 160 read FDisplayTemplateJSTargetControlType write SetDisplayTemplateJSTargetControlType;
  21188. Property DisplayTemplateJSIconUrl : TSPFieldUrlValue index 168 read FDisplayTemplateJSIconUrl write SetDisplayTemplateJSIconUrl;
  21189. Property DisplayTemplateJSTemplateType : string index 176 read FDisplayTemplateJSTemplateType write SetDisplayTemplateJSTemplateType;
  21190. Property DisplayTemplateJSTargetScope : string index 184 read FDisplayTemplateJSTargetScope write SetDisplayTemplateJSTargetScope;
  21191. Property DisplayTemplateJSTargetListTemplate : string index 192 read FDisplayTemplateJSTargetListTemplate write SetDisplayTemplateJSTargetListTemplate;
  21192. Property DisplayTemplateJSTargetContentType : string index 200 read FDisplayTemplateJSTargetContentType write SetDisplayTemplateJSTargetContentType;
  21193. Property DisplayTemplateJSConfigurationUrl : TSPFieldUrlValue index 208 read FDisplayTemplateJSConfigurationUrl write SetDisplayTemplateJSConfigurationUrl;
  21194. Property Title : string index 216 read FTitle write SetTitle;
  21195. Property TemplateHidden : boolean index 224 read FTemplateHidden write SetTemplateHidden;
  21196. Property TargetControlType : TStringArray index 232 read FTargetControlType write SetTargetControlType;
  21197. Property CrawlerXSLFile : TSPFieldUrlValue index 240 read FCrawlerXSLFile write SetCrawlerXSLFile;
  21198. Property DisplayTemplateLevel : string index 248 read FDisplayTemplateLevel write SetDisplayTemplateLevel;
  21199. Property ManagedPropertyMapping : string index 256 read FManagedPropertyMapping write SetManagedPropertyMapping;
  21200. Property CompatibleSearchDataTypes : TStringArray index 264 read FCompatibleSearchDataTypes write SetCompatibleSearchDataTypes;
  21201. Property CompatibleManagedProperties : string index 272 read FCompatibleManagedProperties write SetCompatibleManagedProperties;
  21202. Property Created : TDateTime index 288 read FCreated write SetCreated;
  21203. Property AuthorId : TInt32 index 296 read FAuthorId write SetAuthorId;
  21204. Property Modified : TDateTime index 304 read FModified write SetModified;
  21205. Property EditorId : TInt32 index 312 read FEditorId write SetEditorId;
  21206. Property OData__HasCopyDestinations : boolean index 320 read FOData__HasCopyDestinations write SetOData__HasCopyDestinations;
  21207. Property OData__CopySource : string index 328 read FOData__CopySource write SetOData__CopySource;
  21208. Property OData__ModerationStatus : TInt32 index 336 read FOData__ModerationStatus write SetOData__ModerationStatus;
  21209. Property FileRef : string index 344 read FFileRef write SetFileRef;
  21210. Property FileDirRef : string index 352 read FFileDirRef write SetFileDirRef;
  21211. Property Last_x0020_Modified : TDateTime index 360 read FLast_x0020_Modified write SetLast_x0020_Modified;
  21212. Property Created_x0020_Date : TDateTime index 368 read FCreated_x0020_Date write SetCreated_x0020_Date;
  21213. Property FSObjType : TInt32 index 376 read FFSObjType write SetFSObjType;
  21214. Property PermMask : string index 384 read FPermMask write SetPermMask;
  21215. Property CheckoutUserId : TInt32 index 392 read FCheckoutUserId write SetCheckoutUserId;
  21216. Property UniqueId : TGUIDString index 400 read FUniqueId write SetUniqueId;
  21217. Property OData__CheckinComment : string index 408 read FOData__CheckinComment write SetOData__CheckinComment;
  21218. Property LinkCheckedOutTitle : string index 416 read FLinkCheckedOutTitle write SetLinkCheckedOutTitle;
  21219. Property OData__EditMenuTableStart : string index 424 read FOData__EditMenuTableStart write SetOData__EditMenuTableStart;
  21220. Property OData__EditMenuTableStart2 : string index 432 read FOData__EditMenuTableStart2 write SetOData__EditMenuTableStart2;
  21221. Property OData__EditMenuTableEnd : string index 440 read FOData__EditMenuTableEnd write SetOData__EditMenuTableEnd;
  21222. Property LinkFilenameNoMenu : string index 448 read FLinkFilenameNoMenu write SetLinkFilenameNoMenu;
  21223. Property LinkFilename : string index 456 read FLinkFilename write SetLinkFilename;
  21224. Property LinkFilename2 : string index 464 read FLinkFilename2 write SetLinkFilename2;
  21225. Property DocIcon : string index 472 read FDocIcon write SetDocIcon;
  21226. Property ServerUrl : string index 480 read FServerUrl write SetServerUrl;
  21227. Property EncodedAbsUrl : string index 488 read FEncodedAbsUrl write SetEncodedAbsUrl;
  21228. Property BaseName : string index 496 read FBaseName write SetBaseName;
  21229. Property FileSizeDisplay : string index 504 read FFileSizeDisplay write SetFileSizeDisplay;
  21230. Property OData__Level : TInt32 index 512 read FOData__Level write SetOData__Level;
  21231. Property OData__IsCurrentVersion : boolean index 520 read FOData__IsCurrentVersion write SetOData__IsCurrentVersion;
  21232. Property AppAuthorId : TInt32 index 528 read FAppAuthorId write SetAppAuthorId;
  21233. Property AppEditorId : TInt32 index 536 read FAppEditorId write SetAppEditorId;
  21234. Property SelectTitle : string index 544 read FSelectTitle write SetSelectTitle;
  21235. Property SelectFilename : string index 552 read FSelectFilename write SetSelectFilename;
  21236. Property Edit : string index 560 read FEdit write SetEdit;
  21237. Property owshiddenversion : TInt32 index 568 read Fowshiddenversion write Setowshiddenversion;
  21238. Property OData__UIVersion : TInt32 index 576 read FOData__UIVersion write SetOData__UIVersion;
  21239. Property OData__UIVersionString : string index 584 read FOData__UIVersionString write SetOData__UIVersionString;
  21240. Property InstanceID : TInt32 index 592 read FInstanceID write SetInstanceID;
  21241. Property Order : Double index 600 read FOrder write SetOrder;
  21242. Property GUID : TGUIDString index 608 read FGUID write SetGUID;
  21243. Property WorkflowVersion : TInt32 index 616 read FWorkflowVersion write SetWorkflowVersion;
  21244. Property WorkflowInstanceID : TGUIDString index 624 read FWorkflowInstanceID write SetWorkflowInstanceID;
  21245. Property FilenameMenuNoLink : string index 632 read FFilenameMenuNoLink write SetFilenameMenuNoLink;
  21246. Property MasterPageIcon : string index 640 read FMasterPageIcon write SetMasterPageIcon;
  21247. Property FilenameNoLink : string index 648 read FFilenameNoLink write SetFilenameNoLink;
  21248. end;
  21249. { --------------------------------------------------------------------
  21250. SP.Data: PublishedFeedListItem
  21251. --------------------------------------------------------------------}
  21252. TSP_DataPublishedFeedListItem = Class(TSPListItem)
  21253. private
  21254. FContentTypeId : string;
  21255. FTitle : string;
  21256. FOData__ModerationComments : string;
  21257. FFile_x0020_Type : string;
  21258. FMicroBlogType : TInt32;
  21259. FPostAuthor : string;
  21260. FDefinitionId : TInt32;
  21261. FRootPostID : TInt32;
  21262. FRootPostOwnerID : string;
  21263. FRootPostUniqueID : string;
  21264. FReplyCount : TInt32;
  21265. FReferenceID : string;
  21266. FAttributes : TInt32;
  21267. FContent : string;
  21268. FContentData : string;
  21269. FSearchContent : string;
  21270. FRefRoot : string;
  21271. FRefReply : string;
  21272. FPostSource : string;
  21273. FPeopleCount : TInt32;
  21274. FPeopleList : string;
  21275. FMediaLinkType : TInt32;
  21276. FMediaLinkDescription : string;
  21277. FPostSourceUri : string;
  21278. FMediaLinkURI : TSPFieldUrlValue;
  21279. FMediaLinkUISnippet : TSPFieldUrlValue;
  21280. FMediaLinkContentURI : TSPFieldUrlValue;
  21281. FMediaLength : TInt32;
  21282. FMediaWidth : TInt32;
  21283. FMediaHeight : TInt32;
  21284. FMediaPreviewWidth : TInt32;
  21285. FMediaPreviewHeight : TInt32;
  21286. FMediaActionWidth : TInt32;
  21287. FMediaActionHeight : TInt32;
  21288. FMediaActionClickUrl : TSPFieldUrlValue;
  21289. FMediaActionClickKind : TInt32;
  21290. FeMailSubscribers : string;
  21291. FeMailUnsubscribed : string;
  21292. FRemoteLocation : string;
  21293. FLikesCount : Double;
  21294. FLikedById : TInt32Array;
  21295. FHashTags : TSP_TaxonomyTaxonomyFieldValueArray;
  21296. Fj33b1bc20532487296f1bbbdead35a56 : string;
  21297. FTaxCatchAllId : TInt32Array;
  21298. FTaxCatchAllLabelId : TInt32Array;
  21299. FModified : TDateTime;
  21300. FCreated : TDateTime;
  21301. FAuthorId : TInt32;
  21302. FEditorId : TInt32;
  21303. FOData__HasCopyDestinations : boolean;
  21304. FOData__CopySource : string;
  21305. Fowshiddenversion : TInt32;
  21306. FWorkflowVersion : TInt32;
  21307. FOData__UIVersion : TInt32;
  21308. FOData__UIVersionString : string;
  21309. FAttachments : boolean;
  21310. FOData__ModerationStatus : TInt32;
  21311. FEdit : string;
  21312. FLinkTitleNoMenu : string;
  21313. FLinkTitle : string;
  21314. FLinkTitle2 : string;
  21315. FSelectTitle : string;
  21316. FInstanceID : TInt32;
  21317. FOrder : Double;
  21318. FGUID : TGUIDString;
  21319. FWorkflowInstanceID : TGUIDString;
  21320. FFileRef : string;
  21321. FFileDirRef : string;
  21322. FLast_x0020_Modified : TDateTime;
  21323. FCreated_x0020_Date : TDateTime;
  21324. FFSObjType : TInt32;
  21325. FPermMask : string;
  21326. FFileLeafRef : string;
  21327. FUniqueId : TGUIDString;
  21328. FHTML_x0020_File_x0020_Type : string;
  21329. FOData__EditMenuTableStart : string;
  21330. FOData__EditMenuTableStart2 : string;
  21331. FOData__EditMenuTableEnd : string;
  21332. FLinkFilenameNoMenu : string;
  21333. FLinkFilename : string;
  21334. FLinkFilename2 : string;
  21335. FDocIcon : string;
  21336. FServerUrl : string;
  21337. FEncodedAbsUrl : string;
  21338. FBaseName : string;
  21339. FOData__Level : TInt32;
  21340. FOData__IsCurrentVersion : boolean;
  21341. FAppAuthorId : TInt32;
  21342. FAppEditorId : TInt32;
  21343. procedure SetContentTypeId(AIndex: Integer; const AValue: string);
  21344. procedure SetTitle(AIndex: Integer; const AValue: string);
  21345. procedure SetOData__ModerationComments(AIndex: Integer;
  21346. const AValue: string);
  21347. procedure SetFile_x0020_Type(AIndex: Integer; const AValue: string);
  21348. procedure SetMicroBlogType(AIndex: Integer; const AValue: TInt32);
  21349. procedure SetPostAuthor(AIndex: Integer; const AValue: string);
  21350. procedure SetDefinitionId(AIndex: Integer; const AValue: TInt32);
  21351. procedure SetRootPostID(AIndex: Integer; const AValue: TInt32);
  21352. procedure SetRootPostOwnerID(AIndex: Integer; const AValue: string);
  21353. procedure SetRootPostUniqueID(AIndex: Integer; const AValue: string);
  21354. procedure SetReplyCount(AIndex: Integer; const AValue: TInt32);
  21355. procedure SetReferenceID(AIndex: Integer; const AValue: string);
  21356. procedure SetAttributes(AIndex: Integer; const AValue: TInt32);
  21357. procedure SetContent(AIndex: Integer; const AValue: string);
  21358. procedure SetContentData(AIndex: Integer; const AValue: string);
  21359. procedure SetSearchContent(AIndex: Integer; const AValue: string);
  21360. procedure SetRefRoot(AIndex: Integer; const AValue: string);
  21361. procedure SetRefReply(AIndex: Integer; const AValue: string);
  21362. procedure SetPostSource(AIndex: Integer; const AValue: string);
  21363. procedure SetPeopleCount(AIndex: Integer; const AValue: TInt32);
  21364. procedure SetPeopleList(AIndex: Integer; const AValue: string);
  21365. procedure SetMediaLinkType(AIndex: Integer; const AValue: TInt32);
  21366. procedure SetMediaLinkDescription(AIndex: Integer; const AValue: string);
  21367. procedure SetPostSourceUri(AIndex: Integer; const AValue: string);
  21368. procedure SetMediaLinkURI(AIndex: Integer;
  21369. const AValue: TSPFieldUrlValue);
  21370. procedure SetMediaLinkUISnippet(AIndex: Integer;
  21371. const AValue: TSPFieldUrlValue);
  21372. procedure SetMediaLinkContentURI(AIndex: Integer;
  21373. const AValue: TSPFieldUrlValue);
  21374. procedure SetMediaLength(AIndex: Integer; const AValue: TInt32);
  21375. procedure SetMediaWidth(AIndex: Integer; const AValue: TInt32);
  21376. procedure SetMediaHeight(AIndex: Integer; const AValue: TInt32);
  21377. procedure SetMediaPreviewWidth(AIndex: Integer; const AValue: TInt32);
  21378. procedure SetMediaPreviewHeight(AIndex: Integer; const AValue: TInt32);
  21379. procedure SetMediaActionWidth(AIndex: Integer; const AValue: TInt32);
  21380. procedure SetMediaActionHeight(AIndex: Integer; const AValue: TInt32);
  21381. procedure SetMediaActionClickUrl(AIndex: Integer;
  21382. const AValue: TSPFieldUrlValue);
  21383. procedure SetMediaActionClickKind(AIndex: Integer; const AValue: TInt32);
  21384. procedure SeteMailSubscribers(AIndex: Integer; const AValue: string);
  21385. procedure SeteMailUnsubscribed(AIndex: Integer; const AValue: string);
  21386. procedure SetRemoteLocation(AIndex: Integer; const AValue: string);
  21387. procedure SetLikesCount(AIndex: Integer; const AValue: Double);
  21388. procedure SetLikedById(AIndex: Integer; const AValue: TInt32Array);
  21389. procedure SetHashTags(AIndex: Integer;
  21390. const AValue: TSP_TaxonomyTaxonomyFieldValueArray);
  21391. procedure Setj33b1bc20532487296f1bbbdead35a56(AIndex: Integer;
  21392. const AValue: string);
  21393. procedure SetTaxCatchAllId(AIndex: Integer; const AValue: TInt32Array);
  21394. procedure SetTaxCatchAllLabelId(AIndex: Integer;
  21395. const AValue: TInt32Array);
  21396. procedure SetModified(AIndex: Integer; const AValue: TDateTime);
  21397. procedure SetCreated(AIndex: Integer; const AValue: TDateTime);
  21398. procedure SetAuthorId(AIndex: Integer; const AValue: TInt32);
  21399. procedure SetEditorId(AIndex: Integer; const AValue: TInt32);
  21400. procedure SetOData__HasCopyDestinations(AIndex: Integer;
  21401. const AValue: boolean);
  21402. procedure SetOData__CopySource(AIndex: Integer; const AValue: string);
  21403. procedure Setowshiddenversion(AIndex: Integer; const AValue: TInt32);
  21404. procedure SetWorkflowVersion(AIndex: Integer; const AValue: TInt32);
  21405. procedure SetOData__UIVersion(AIndex: Integer; const AValue: TInt32);
  21406. procedure SetOData__UIVersionString(AIndex: Integer;
  21407. const AValue: string);
  21408. procedure SetAttachments(AIndex: Integer; const AValue: boolean);
  21409. procedure SetOData__ModerationStatus(AIndex: Integer;
  21410. const AValue: TInt32);
  21411. procedure SetEdit(AIndex: Integer; const AValue: string);
  21412. procedure SetLinkTitleNoMenu(AIndex: Integer; const AValue: string);
  21413. procedure SetLinkTitle(AIndex: Integer; const AValue: string);
  21414. procedure SetLinkTitle2(AIndex: Integer; const AValue: string);
  21415. procedure SetSelectTitle(AIndex: Integer; const AValue: string);
  21416. procedure SetInstanceID(AIndex: Integer; const AValue: TInt32);
  21417. procedure SetOrder(AIndex: Integer; const AValue: Double);
  21418. procedure SetGUID(AIndex: Integer; const AValue: TGUIDString);
  21419. procedure SetWorkflowInstanceID(AIndex: Integer;
  21420. const AValue: TGUIDString);
  21421. procedure SetFileRef(AIndex: Integer; const AValue: string);
  21422. procedure SetFileDirRef(AIndex: Integer; const AValue: string);
  21423. procedure SetLast_x0020_Modified(AIndex: Integer;
  21424. const AValue: TDateTime);
  21425. procedure SetCreated_x0020_Date(AIndex: Integer;
  21426. const AValue: TDateTime);
  21427. procedure SetFSObjType(AIndex: Integer; const AValue: TInt32);
  21428. procedure SetPermMask(AIndex: Integer; const AValue: string);
  21429. procedure SetFileLeafRef(AIndex: Integer; const AValue: string);
  21430. procedure SetUniqueId(AIndex: Integer; const AValue: TGUIDString);
  21431. procedure SetHTML_x0020_File_x0020_Type(AIndex: Integer;
  21432. const AValue: string);
  21433. procedure SetOData__EditMenuTableStart(AIndex: Integer;
  21434. const AValue: string);
  21435. procedure SetOData__EditMenuTableStart2(AIndex: Integer;
  21436. const AValue: string);
  21437. procedure SetOData__EditMenuTableEnd(AIndex: Integer;
  21438. const AValue: string);
  21439. procedure SetLinkFilenameNoMenu(AIndex: Integer; const AValue: string);
  21440. procedure SetLinkFilename(AIndex: Integer; const AValue: string);
  21441. procedure SetLinkFilename2(AIndex: Integer; const AValue: string);
  21442. procedure SetDocIcon(AIndex: Integer; const AValue: string);
  21443. procedure SetServerUrl(AIndex: Integer; const AValue: string);
  21444. procedure SetEncodedAbsUrl(AIndex: Integer; const AValue: string);
  21445. procedure SetBaseName(AIndex: Integer; const AValue: string);
  21446. procedure SetOData__Level(AIndex: Integer; const AValue: TInt32);
  21447. procedure SetOData__IsCurrentVersion(AIndex: Integer;
  21448. const AValue: boolean);
  21449. procedure SetAppAuthorId(AIndex: Integer; const AValue: TInt32);
  21450. procedure SetAppEditorId(AIndex: Integer; const AValue: TInt32);
  21451. protected
  21452. {$IFDEF VER2_6}
  21453. procedure SetArrayLength(const AName: String; ALength: Longint)
  21454. ; Override;
  21455. {$ENDIF VER2_6}
  21456. public
  21457. class function ObjectRestKind : String; Override;
  21458. function LikedBy(AService: TODataService) : TSP_DataUserInfoItem;
  21459. function TaxCatchAll(AService: TODataService)
  21460. : TSP_DataTaxonomyHiddenListListItem;
  21461. function Author(AService: TODataService) : TSP_DataUserInfoItem;
  21462. function Editor(AService: TODataService) : TSP_DataUserInfoItem;
  21463. published
  21464. Property ContentTypeId : string index 56 read FContentTypeId write SetContentTypeId;
  21465. Property Title : string index 64 read FTitle write SetTitle;
  21466. Property OData__ModerationComments : string index 72 read FOData__ModerationComments write SetOData__ModerationComments;
  21467. Property File_x0020_Type : string index 80 read FFile_x0020_Type write SetFile_x0020_Type;
  21468. Property MicroBlogType : TInt32 index 88 read FMicroBlogType write SetMicroBlogType;
  21469. Property PostAuthor : string index 96 read FPostAuthor write SetPostAuthor;
  21470. Property DefinitionId : TInt32 index 104 read FDefinitionId write SetDefinitionId;
  21471. Property RootPostID : TInt32 index 112 read FRootPostID write SetRootPostID;
  21472. Property RootPostOwnerID : string index 120 read FRootPostOwnerID write SetRootPostOwnerID;
  21473. Property RootPostUniqueID : string index 128 read FRootPostUniqueID write SetRootPostUniqueID;
  21474. Property ReplyCount : TInt32 index 136 read FReplyCount write SetReplyCount;
  21475. Property ReferenceID : string index 144 read FReferenceID write SetReferenceID;
  21476. Property Attributes : TInt32 index 152 read FAttributes write SetAttributes;
  21477. Property Content : string index 160 read FContent write SetContent;
  21478. Property ContentData : string index 168 read FContentData write SetContentData;
  21479. Property SearchContent : string index 176 read FSearchContent write SetSearchContent;
  21480. Property RefRoot : string index 184 read FRefRoot write SetRefRoot;
  21481. Property RefReply : string index 192 read FRefReply write SetRefReply;
  21482. Property PostSource : string index 200 read FPostSource write SetPostSource;
  21483. Property PeopleCount : TInt32 index 208 read FPeopleCount write SetPeopleCount;
  21484. Property PeopleList : string index 216 read FPeopleList write SetPeopleList;
  21485. Property MediaLinkType : TInt32 index 224 read FMediaLinkType write SetMediaLinkType;
  21486. Property MediaLinkDescription : string index 232 read FMediaLinkDescription write SetMediaLinkDescription;
  21487. Property PostSourceUri : string index 240 read FPostSourceUri write SetPostSourceUri;
  21488. Property MediaLinkURI : TSPFieldUrlValue index 248 read FMediaLinkURI write SetMediaLinkURI;
  21489. Property MediaLinkUISnippet : TSPFieldUrlValue index 256 read FMediaLinkUISnippet write SetMediaLinkUISnippet;
  21490. Property MediaLinkContentURI : TSPFieldUrlValue index 264 read FMediaLinkContentURI write SetMediaLinkContentURI;
  21491. Property MediaLength : TInt32 index 272 read FMediaLength write SetMediaLength;
  21492. Property MediaWidth : TInt32 index 280 read FMediaWidth write SetMediaWidth;
  21493. Property MediaHeight : TInt32 index 288 read FMediaHeight write SetMediaHeight;
  21494. Property MediaPreviewWidth : TInt32 index 296 read FMediaPreviewWidth write SetMediaPreviewWidth;
  21495. Property MediaPreviewHeight : TInt32 index 304 read FMediaPreviewHeight write SetMediaPreviewHeight;
  21496. Property MediaActionWidth : TInt32 index 312 read FMediaActionWidth write SetMediaActionWidth;
  21497. Property MediaActionHeight : TInt32 index 320 read FMediaActionHeight write SetMediaActionHeight;
  21498. Property MediaActionClickUrl : TSPFieldUrlValue index 328 read FMediaActionClickUrl write SetMediaActionClickUrl;
  21499. Property MediaActionClickKind : TInt32 index 336 read FMediaActionClickKind write SetMediaActionClickKind;
  21500. Property eMailSubscribers : string index 344 read FeMailSubscribers write SeteMailSubscribers;
  21501. Property eMailUnsubscribed : string index 352 read FeMailUnsubscribed write SeteMailUnsubscribed;
  21502. Property RemoteLocation : string index 360 read FRemoteLocation write SetRemoteLocation;
  21503. Property LikesCount : Double index 368 read FLikesCount write SetLikesCount;
  21504. Property LikedById : TInt32Array index 376 read FLikedById write SetLikedById;
  21505. Property HashTags : TSP_TaxonomyTaxonomyFieldValueArray index 384 read FHashTags write SetHashTags;
  21506. Property j33b1bc20532487296f1bbbdead35a56 : string index 392 read Fj33b1bc20532487296f1bbbdead35a56 write Setj33b1bc20532487296f1bbbdead35a56;
  21507. Property TaxCatchAllId : TInt32Array index 400 read FTaxCatchAllId write SetTaxCatchAllId;
  21508. Property TaxCatchAllLabelId : TInt32Array index 408 read FTaxCatchAllLabelId write SetTaxCatchAllLabelId;
  21509. Property Modified : TDateTime index 424 read FModified write SetModified;
  21510. Property Created : TDateTime index 432 read FCreated write SetCreated;
  21511. Property AuthorId : TInt32 index 440 read FAuthorId write SetAuthorId;
  21512. Property EditorId : TInt32 index 448 read FEditorId write SetEditorId;
  21513. Property OData__HasCopyDestinations : boolean index 456 read FOData__HasCopyDestinations write SetOData__HasCopyDestinations;
  21514. Property OData__CopySource : string index 464 read FOData__CopySource write SetOData__CopySource;
  21515. Property owshiddenversion : TInt32 index 472 read Fowshiddenversion write Setowshiddenversion;
  21516. Property WorkflowVersion : TInt32 index 480 read FWorkflowVersion write SetWorkflowVersion;
  21517. Property OData__UIVersion : TInt32 index 488 read FOData__UIVersion write SetOData__UIVersion;
  21518. Property OData__UIVersionString : string index 496 read FOData__UIVersionString write SetOData__UIVersionString;
  21519. Property Attachments : boolean index 504 read FAttachments write SetAttachments;
  21520. Property OData__ModerationStatus : TInt32 index 512 read FOData__ModerationStatus write SetOData__ModerationStatus;
  21521. Property Edit : string index 520 read FEdit write SetEdit;
  21522. Property LinkTitleNoMenu : string index 528 read FLinkTitleNoMenu write SetLinkTitleNoMenu;
  21523. Property LinkTitle : string index 536 read FLinkTitle write SetLinkTitle;
  21524. Property LinkTitle2 : string index 544 read FLinkTitle2 write SetLinkTitle2;
  21525. Property SelectTitle : string index 552 read FSelectTitle write SetSelectTitle;
  21526. Property InstanceID : TInt32 index 560 read FInstanceID write SetInstanceID;
  21527. Property Order : Double index 568 read FOrder write SetOrder;
  21528. Property GUID : TGUIDString index 576 read FGUID write SetGUID;
  21529. Property WorkflowInstanceID : TGUIDString index 584 read FWorkflowInstanceID write SetWorkflowInstanceID;
  21530. Property FileRef : string index 592 read FFileRef write SetFileRef;
  21531. Property FileDirRef : string index 600 read FFileDirRef write SetFileDirRef;
  21532. Property Last_x0020_Modified : TDateTime index 608 read FLast_x0020_Modified write SetLast_x0020_Modified;
  21533. Property Created_x0020_Date : TDateTime index 616 read FCreated_x0020_Date write SetCreated_x0020_Date;
  21534. Property FSObjType : TInt32 index 624 read FFSObjType write SetFSObjType;
  21535. Property PermMask : string index 632 read FPermMask write SetPermMask;
  21536. Property FileLeafRef : string index 640 read FFileLeafRef write SetFileLeafRef;
  21537. Property UniqueId : TGUIDString index 648 read FUniqueId write SetUniqueId;
  21538. Property HTML_x0020_File_x0020_Type : string index 656 read FHTML_x0020_File_x0020_Type write SetHTML_x0020_File_x0020_Type;
  21539. Property OData__EditMenuTableStart : string index 664 read FOData__EditMenuTableStart write SetOData__EditMenuTableStart;
  21540. Property OData__EditMenuTableStart2 : string index 672 read FOData__EditMenuTableStart2 write SetOData__EditMenuTableStart2;
  21541. Property OData__EditMenuTableEnd : string index 680 read FOData__EditMenuTableEnd write SetOData__EditMenuTableEnd;
  21542. Property LinkFilenameNoMenu : string index 688 read FLinkFilenameNoMenu write SetLinkFilenameNoMenu;
  21543. Property LinkFilename : string index 696 read FLinkFilename write SetLinkFilename;
  21544. Property LinkFilename2 : string index 704 read FLinkFilename2 write SetLinkFilename2;
  21545. Property DocIcon : string index 712 read FDocIcon write SetDocIcon;
  21546. Property ServerUrl : string index 720 read FServerUrl write SetServerUrl;
  21547. Property EncodedAbsUrl : string index 728 read FEncodedAbsUrl write SetEncodedAbsUrl;
  21548. Property BaseName : string index 736 read FBaseName write SetBaseName;
  21549. Property OData__Level : TInt32 index 744 read FOData__Level write SetOData__Level;
  21550. Property OData__IsCurrentVersion : boolean index 752 read FOData__IsCurrentVersion write SetOData__IsCurrentVersion;
  21551. Property AppAuthorId : TInt32 index 760 read FAppAuthorId write SetAppAuthorId;
  21552. Property AppEditorId : TInt32 index 768 read FAppEditorId write SetAppEditorId;
  21553. end;
  21554. { --------------------------------------------------------------------
  21555. SP.Data: TaxonomyHiddenListListItem
  21556. --------------------------------------------------------------------}
  21557. TSP_DataTaxonomyHiddenListListItem = Class(TSPListItem)
  21558. private
  21559. FContentTypeId : string;
  21560. FTitle : string;
  21561. FOData__ModerationComments : string;
  21562. FFile_x0020_Type : string;
  21563. FIdForTermStore : string;
  21564. FIdForTerm : string;
  21565. FIdForTermSet : string;
  21566. FTerm : string;
  21567. FPath : string;
  21568. FCatchAllData : string;
  21569. FCatchAllDataLabel : string;
  21570. FTerm1031 : string;
  21571. FPath1031 : string;
  21572. FTerm1036 : string;
  21573. FPath1036 : string;
  21574. FTerm1057 : string;
  21575. FPath1057 : string;
  21576. FTerm1044 : string;
  21577. FPath1044 : string;
  21578. FTerm1049 : string;
  21579. FPath1049 : string;
  21580. FTerm2052 : string;
  21581. FPath2052 : string;
  21582. FTerm1028 : string;
  21583. FPath1028 : string;
  21584. FTerm1027 : string;
  21585. FPath1027 : string;
  21586. FTerm1081 : string;
  21587. FPath1081 : string;
  21588. FTerm1086 : string;
  21589. FPath1086 : string;
  21590. FTerm1048 : string;
  21591. FPath1048 : string;
  21592. FTerm1060 : string;
  21593. FPath1060 : string;
  21594. FTerm1030 : string;
  21595. FPath1030 : string;
  21596. FTerm1069 : string;
  21597. FPath1069 : string;
  21598. FTerm1035 : string;
  21599. FPath1035 : string;
  21600. FTerm1043 : string;
  21601. FPath1043 : string;
  21602. FTerm1051 : string;
  21603. FPath1051 : string;
  21604. FTerm1026 : string;
  21605. FPath1026 : string;
  21606. FTerm1110 : string;
  21607. FPath1110 : string;
  21608. FTerm1055 : string;
  21609. FPath1055 : string;
  21610. FTerm1050 : string;
  21611. FPath1050 : string;
  21612. FTerm1038 : string;
  21613. FPath1038 : string;
  21614. FTerm1042 : string;
  21615. FPath1042 : string;
  21616. FTerm1063 : string;
  21617. FPath1063 : string;
  21618. FTerm1033 : string;
  21619. FPath1033 : string;
  21620. FTerm1025 : string;
  21621. FPath1025 : string;
  21622. FTerm1041 : string;
  21623. FPath1041 : string;
  21624. FTerm1062 : string;
  21625. FPath1062 : string;
  21626. FTerm1046 : string;
  21627. FPath1046 : string;
  21628. FTerm2070 : string;
  21629. FPath2070 : string;
  21630. FTerm1054 : string;
  21631. FPath1054 : string;
  21632. FTerm1029 : string;
  21633. FPath1029 : string;
  21634. FTerm3082 : string;
  21635. FPath3082 : string;
  21636. FTerm1037 : string;
  21637. FPath1037 : string;
  21638. FTerm1045 : string;
  21639. FPath1045 : string;
  21640. FTerm2074 : string;
  21641. FPath2074 : string;
  21642. FTerm1058 : string;
  21643. FPath1058 : string;
  21644. FTerm1032 : string;
  21645. FPath1032 : string;
  21646. FTerm1061 : string;
  21647. FPath1061 : string;
  21648. FTerm1040 : string;
  21649. FPath1040 : string;
  21650. FTerm1087 : string;
  21651. FPath1087 : string;
  21652. FTerm1053 : string;
  21653. FPath1053 : string;
  21654. FTerm1066 : string;
  21655. FPath1066 : string;
  21656. FTerm10266 : string;
  21657. FPath10266 : string;
  21658. FModified : TDateTime;
  21659. FCreated : TDateTime;
  21660. FAuthorId : TInt32;
  21661. FEditorId : TInt32;
  21662. FOData__HasCopyDestinations : boolean;
  21663. FOData__CopySource : string;
  21664. Fowshiddenversion : TInt32;
  21665. FWorkflowVersion : TInt32;
  21666. FOData__UIVersion : TInt32;
  21667. FOData__UIVersionString : string;
  21668. FAttachments : boolean;
  21669. FOData__ModerationStatus : TInt32;
  21670. FEdit : string;
  21671. FLinkTitleNoMenu : string;
  21672. FLinkTitle : string;
  21673. FLinkTitle2 : string;
  21674. FSelectTitle : string;
  21675. FInstanceID : TInt32;
  21676. FOrder : Double;
  21677. FGUID : TGUIDString;
  21678. FWorkflowInstanceID : TGUIDString;
  21679. FFileRef : string;
  21680. FFileDirRef : string;
  21681. FLast_x0020_Modified : TDateTime;
  21682. FCreated_x0020_Date : TDateTime;
  21683. FFSObjType : TInt32;
  21684. FPermMask : string;
  21685. FFileLeafRef : string;
  21686. FUniqueId : TGUIDString;
  21687. FHTML_x0020_File_x0020_Type : string;
  21688. FOData__EditMenuTableStart : string;
  21689. FOData__EditMenuTableStart2 : string;
  21690. FOData__EditMenuTableEnd : string;
  21691. FLinkFilenameNoMenu : string;
  21692. FLinkFilename : string;
  21693. FLinkFilename2 : string;
  21694. FDocIcon : string;
  21695. FServerUrl : string;
  21696. FEncodedAbsUrl : string;
  21697. FBaseName : string;
  21698. FOData__Level : TInt32;
  21699. FOData__IsCurrentVersion : boolean;
  21700. FAppAuthorId : TInt32;
  21701. FAppEditorId : TInt32;
  21702. procedure SetContentTypeId(AIndex: Integer; const AValue: string);
  21703. procedure SetTitle(AIndex: Integer; const AValue: string);
  21704. procedure SetOData__ModerationComments(AIndex: Integer;
  21705. const AValue: string);
  21706. procedure SetFile_x0020_Type(AIndex: Integer; const AValue: string);
  21707. procedure SetIdForTermStore(AIndex: Integer; const AValue: string);
  21708. procedure SetIdForTerm(AIndex: Integer; const AValue: string);
  21709. procedure SetIdForTermSet(AIndex: Integer; const AValue: string);
  21710. procedure SetTerm(AIndex: Integer; const AValue: string);
  21711. procedure SetPath(AIndex: Integer; const AValue: string);
  21712. procedure SetCatchAllData(AIndex: Integer; const AValue: string);
  21713. procedure SetCatchAllDataLabel(AIndex: Integer; const AValue: string);
  21714. procedure SetTerm1031(AIndex: Integer; const AValue: string);
  21715. procedure SetPath1031(AIndex: Integer; const AValue: string);
  21716. procedure SetTerm1036(AIndex: Integer; const AValue: string);
  21717. procedure SetPath1036(AIndex: Integer; const AValue: string);
  21718. procedure SetTerm1057(AIndex: Integer; const AValue: string);
  21719. procedure SetPath1057(AIndex: Integer; const AValue: string);
  21720. procedure SetTerm1044(AIndex: Integer; const AValue: string);
  21721. procedure SetPath1044(AIndex: Integer; const AValue: string);
  21722. procedure SetTerm1049(AIndex: Integer; const AValue: string);
  21723. procedure SetPath1049(AIndex: Integer; const AValue: string);
  21724. procedure SetTerm2052(AIndex: Integer; const AValue: string);
  21725. procedure SetPath2052(AIndex: Integer; const AValue: string);
  21726. procedure SetTerm1028(AIndex: Integer; const AValue: string);
  21727. procedure SetPath1028(AIndex: Integer; const AValue: string);
  21728. procedure SetTerm1027(AIndex: Integer; const AValue: string);
  21729. procedure SetPath1027(AIndex: Integer; const AValue: string);
  21730. procedure SetTerm1081(AIndex: Integer; const AValue: string);
  21731. procedure SetPath1081(AIndex: Integer; const AValue: string);
  21732. procedure SetTerm1086(AIndex: Integer; const AValue: string);
  21733. procedure SetPath1086(AIndex: Integer; const AValue: string);
  21734. procedure SetTerm1048(AIndex: Integer; const AValue: string);
  21735. procedure SetPath1048(AIndex: Integer; const AValue: string);
  21736. procedure SetTerm1060(AIndex: Integer; const AValue: string);
  21737. procedure SetPath1060(AIndex: Integer; const AValue: string);
  21738. procedure SetTerm1030(AIndex: Integer; const AValue: string);
  21739. procedure SetPath1030(AIndex: Integer; const AValue: string);
  21740. procedure SetTerm1069(AIndex: Integer; const AValue: string);
  21741. procedure SetPath1069(AIndex: Integer; const AValue: string);
  21742. procedure SetTerm1035(AIndex: Integer; const AValue: string);
  21743. procedure SetPath1035(AIndex: Integer; const AValue: string);
  21744. procedure SetTerm1043(AIndex: Integer; const AValue: string);
  21745. procedure SetPath1043(AIndex: Integer; const AValue: string);
  21746. procedure SetTerm1051(AIndex: Integer; const AValue: string);
  21747. procedure SetPath1051(AIndex: Integer; const AValue: string);
  21748. procedure SetTerm1026(AIndex: Integer; const AValue: string);
  21749. procedure SetPath1026(AIndex: Integer; const AValue: string);
  21750. procedure SetTerm1110(AIndex: Integer; const AValue: string);
  21751. procedure SetPath1110(AIndex: Integer; const AValue: string);
  21752. procedure SetTerm1055(AIndex: Integer; const AValue: string);
  21753. procedure SetPath1055(AIndex: Integer; const AValue: string);
  21754. procedure SetTerm1050(AIndex: Integer; const AValue: string);
  21755. procedure SetPath1050(AIndex: Integer; const AValue: string);
  21756. procedure SetTerm1038(AIndex: Integer; const AValue: string);
  21757. procedure SetPath1038(AIndex: Integer; const AValue: string);
  21758. procedure SetTerm1042(AIndex: Integer; const AValue: string);
  21759. procedure SetPath1042(AIndex: Integer; const AValue: string);
  21760. procedure SetTerm1063(AIndex: Integer; const AValue: string);
  21761. procedure SetPath1063(AIndex: Integer; const AValue: string);
  21762. procedure SetTerm1033(AIndex: Integer; const AValue: string);
  21763. procedure SetPath1033(AIndex: Integer; const AValue: string);
  21764. procedure SetTerm1025(AIndex: Integer; const AValue: string);
  21765. procedure SetPath1025(AIndex: Integer; const AValue: string);
  21766. procedure SetTerm1041(AIndex: Integer; const AValue: string);
  21767. procedure SetPath1041(AIndex: Integer; const AValue: string);
  21768. procedure SetTerm1062(AIndex: Integer; const AValue: string);
  21769. procedure SetPath1062(AIndex: Integer; const AValue: string);
  21770. procedure SetTerm1046(AIndex: Integer; const AValue: string);
  21771. procedure SetPath1046(AIndex: Integer; const AValue: string);
  21772. procedure SetTerm2070(AIndex: Integer; const AValue: string);
  21773. procedure SetPath2070(AIndex: Integer; const AValue: string);
  21774. procedure SetTerm1054(AIndex: Integer; const AValue: string);
  21775. procedure SetPath1054(AIndex: Integer; const AValue: string);
  21776. procedure SetTerm1029(AIndex: Integer; const AValue: string);
  21777. procedure SetPath1029(AIndex: Integer; const AValue: string);
  21778. procedure SetTerm3082(AIndex: Integer; const AValue: string);
  21779. procedure SetPath3082(AIndex: Integer; const AValue: string);
  21780. procedure SetTerm1037(AIndex: Integer; const AValue: string);
  21781. procedure SetPath1037(AIndex: Integer; const AValue: string);
  21782. procedure SetTerm1045(AIndex: Integer; const AValue: string);
  21783. procedure SetPath1045(AIndex: Integer; const AValue: string);
  21784. procedure SetTerm2074(AIndex: Integer; const AValue: string);
  21785. procedure SetPath2074(AIndex: Integer; const AValue: string);
  21786. procedure SetTerm1058(AIndex: Integer; const AValue: string);
  21787. procedure SetPath1058(AIndex: Integer; const AValue: string);
  21788. procedure SetTerm1032(AIndex: Integer; const AValue: string);
  21789. procedure SetPath1032(AIndex: Integer; const AValue: string);
  21790. procedure SetTerm1061(AIndex: Integer; const AValue: string);
  21791. procedure SetPath1061(AIndex: Integer; const AValue: string);
  21792. procedure SetTerm1040(AIndex: Integer; const AValue: string);
  21793. procedure SetPath1040(AIndex: Integer; const AValue: string);
  21794. procedure SetTerm1087(AIndex: Integer; const AValue: string);
  21795. procedure SetPath1087(AIndex: Integer; const AValue: string);
  21796. procedure SetTerm1053(AIndex: Integer; const AValue: string);
  21797. procedure SetPath1053(AIndex: Integer; const AValue: string);
  21798. procedure SetTerm1066(AIndex: Integer; const AValue: string);
  21799. procedure SetPath1066(AIndex: Integer; const AValue: string);
  21800. procedure SetTerm10266(AIndex: Integer; const AValue: string);
  21801. procedure SetPath10266(AIndex: Integer; const AValue: string);
  21802. procedure SetModified(AIndex: Integer; const AValue: TDateTime);
  21803. procedure SetCreated(AIndex: Integer; const AValue: TDateTime);
  21804. procedure SetAuthorId(AIndex: Integer; const AValue: TInt32);
  21805. procedure SetEditorId(AIndex: Integer; const AValue: TInt32);
  21806. procedure SetOData__HasCopyDestinations(AIndex: Integer;
  21807. const AValue: boolean);
  21808. procedure SetOData__CopySource(AIndex: Integer; const AValue: string);
  21809. procedure Setowshiddenversion(AIndex: Integer; const AValue: TInt32);
  21810. procedure SetWorkflowVersion(AIndex: Integer; const AValue: TInt32);
  21811. procedure SetOData__UIVersion(AIndex: Integer; const AValue: TInt32);
  21812. procedure SetOData__UIVersionString(AIndex: Integer;
  21813. const AValue: string);
  21814. procedure SetAttachments(AIndex: Integer; const AValue: boolean);
  21815. procedure SetOData__ModerationStatus(AIndex: Integer;
  21816. const AValue: TInt32);
  21817. procedure SetEdit(AIndex: Integer; const AValue: string);
  21818. procedure SetLinkTitleNoMenu(AIndex: Integer; const AValue: string);
  21819. procedure SetLinkTitle(AIndex: Integer; const AValue: string);
  21820. procedure SetLinkTitle2(AIndex: Integer; const AValue: string);
  21821. procedure SetSelectTitle(AIndex: Integer; const AValue: string);
  21822. procedure SetInstanceID(AIndex: Integer; const AValue: TInt32);
  21823. procedure SetOrder(AIndex: Integer; const AValue: Double);
  21824. procedure SetGUID(AIndex: Integer; const AValue: TGUIDString);
  21825. procedure SetWorkflowInstanceID(AIndex: Integer;
  21826. const AValue: TGUIDString);
  21827. procedure SetFileRef(AIndex: Integer; const AValue: string);
  21828. procedure SetFileDirRef(AIndex: Integer; const AValue: string);
  21829. procedure SetLast_x0020_Modified(AIndex: Integer;
  21830. const AValue: TDateTime);
  21831. procedure SetCreated_x0020_Date(AIndex: Integer;
  21832. const AValue: TDateTime);
  21833. procedure SetFSObjType(AIndex: Integer; const AValue: TInt32);
  21834. procedure SetPermMask(AIndex: Integer; const AValue: string);
  21835. procedure SetFileLeafRef(AIndex: Integer; const AValue: string);
  21836. procedure SetUniqueId(AIndex: Integer; const AValue: TGUIDString);
  21837. procedure SetHTML_x0020_File_x0020_Type(AIndex: Integer;
  21838. const AValue: string);
  21839. procedure SetOData__EditMenuTableStart(AIndex: Integer;
  21840. const AValue: string);
  21841. procedure SetOData__EditMenuTableStart2(AIndex: Integer;
  21842. const AValue: string);
  21843. procedure SetOData__EditMenuTableEnd(AIndex: Integer;
  21844. const AValue: string);
  21845. procedure SetLinkFilenameNoMenu(AIndex: Integer; const AValue: string);
  21846. procedure SetLinkFilename(AIndex: Integer; const AValue: string);
  21847. procedure SetLinkFilename2(AIndex: Integer; const AValue: string);
  21848. procedure SetDocIcon(AIndex: Integer; const AValue: string);
  21849. procedure SetServerUrl(AIndex: Integer; const AValue: string);
  21850. procedure SetEncodedAbsUrl(AIndex: Integer; const AValue: string);
  21851. procedure SetBaseName(AIndex: Integer; const AValue: string);
  21852. procedure SetOData__Level(AIndex: Integer; const AValue: TInt32);
  21853. procedure SetOData__IsCurrentVersion(AIndex: Integer;
  21854. const AValue: boolean);
  21855. procedure SetAppAuthorId(AIndex: Integer; const AValue: TInt32);
  21856. procedure SetAppEditorId(AIndex: Integer; const AValue: TInt32);
  21857. public
  21858. class function ObjectRestKind : String; Override;
  21859. function Author(AService: TODataService) : TSP_DataUserInfoItem;
  21860. function Editor(AService: TODataService) : TSP_DataUserInfoItem;
  21861. published
  21862. Property ContentTypeId : string index 56 read FContentTypeId write SetContentTypeId;
  21863. Property Title : string index 64 read FTitle write SetTitle;
  21864. Property OData__ModerationComments : string index 72 read FOData__ModerationComments write SetOData__ModerationComments;
  21865. Property File_x0020_Type : string index 80 read FFile_x0020_Type write SetFile_x0020_Type;
  21866. Property IdForTermStore : string index 88 read FIdForTermStore write SetIdForTermStore;
  21867. Property IdForTerm : string index 96 read FIdForTerm write SetIdForTerm;
  21868. Property IdForTermSet : string index 104 read FIdForTermSet write SetIdForTermSet;
  21869. Property Term : string index 112 read FTerm write SetTerm;
  21870. Property Path : string index 120 read FPath write SetPath;
  21871. Property CatchAllData : string index 128 read FCatchAllData write SetCatchAllData;
  21872. Property CatchAllDataLabel : string index 136 read FCatchAllDataLabel write SetCatchAllDataLabel;
  21873. Property Term1031 : string index 144 read FTerm1031 write SetTerm1031;
  21874. Property Path1031 : string index 152 read FPath1031 write SetPath1031;
  21875. Property Term1036 : string index 160 read FTerm1036 write SetTerm1036;
  21876. Property Path1036 : string index 168 read FPath1036 write SetPath1036;
  21877. Property Term1057 : string index 176 read FTerm1057 write SetTerm1057;
  21878. Property Path1057 : string index 184 read FPath1057 write SetPath1057;
  21879. Property Term1044 : string index 192 read FTerm1044 write SetTerm1044;
  21880. Property Path1044 : string index 200 read FPath1044 write SetPath1044;
  21881. Property Term1049 : string index 208 read FTerm1049 write SetTerm1049;
  21882. Property Path1049 : string index 216 read FPath1049 write SetPath1049;
  21883. Property Term2052 : string index 224 read FTerm2052 write SetTerm2052;
  21884. Property Path2052 : string index 232 read FPath2052 write SetPath2052;
  21885. Property Term1028 : string index 240 read FTerm1028 write SetTerm1028;
  21886. Property Path1028 : string index 248 read FPath1028 write SetPath1028;
  21887. Property Term1027 : string index 256 read FTerm1027 write SetTerm1027;
  21888. Property Path1027 : string index 264 read FPath1027 write SetPath1027;
  21889. Property Term1081 : string index 272 read FTerm1081 write SetTerm1081;
  21890. Property Path1081 : string index 280 read FPath1081 write SetPath1081;
  21891. Property Term1086 : string index 288 read FTerm1086 write SetTerm1086;
  21892. Property Path1086 : string index 296 read FPath1086 write SetPath1086;
  21893. Property Term1048 : string index 304 read FTerm1048 write SetTerm1048;
  21894. Property Path1048 : string index 312 read FPath1048 write SetPath1048;
  21895. Property Term1060 : string index 320 read FTerm1060 write SetTerm1060;
  21896. Property Path1060 : string index 328 read FPath1060 write SetPath1060;
  21897. Property Term1030 : string index 336 read FTerm1030 write SetTerm1030;
  21898. Property Path1030 : string index 344 read FPath1030 write SetPath1030;
  21899. Property Term1069 : string index 352 read FTerm1069 write SetTerm1069;
  21900. Property Path1069 : string index 360 read FPath1069 write SetPath1069;
  21901. Property Term1035 : string index 368 read FTerm1035 write SetTerm1035;
  21902. Property Path1035 : string index 376 read FPath1035 write SetPath1035;
  21903. Property Term1043 : string index 384 read FTerm1043 write SetTerm1043;
  21904. Property Path1043 : string index 392 read FPath1043 write SetPath1043;
  21905. Property Term1051 : string index 400 read FTerm1051 write SetTerm1051;
  21906. Property Path1051 : string index 408 read FPath1051 write SetPath1051;
  21907. Property Term1026 : string index 416 read FTerm1026 write SetTerm1026;
  21908. Property Path1026 : string index 424 read FPath1026 write SetPath1026;
  21909. Property Term1110 : string index 432 read FTerm1110 write SetTerm1110;
  21910. Property Path1110 : string index 440 read FPath1110 write SetPath1110;
  21911. Property Term1055 : string index 448 read FTerm1055 write SetTerm1055;
  21912. Property Path1055 : string index 456 read FPath1055 write SetPath1055;
  21913. Property Term1050 : string index 464 read FTerm1050 write SetTerm1050;
  21914. Property Path1050 : string index 472 read FPath1050 write SetPath1050;
  21915. Property Term1038 : string index 480 read FTerm1038 write SetTerm1038;
  21916. Property Path1038 : string index 488 read FPath1038 write SetPath1038;
  21917. Property Term1042 : string index 496 read FTerm1042 write SetTerm1042;
  21918. Property Path1042 : string index 504 read FPath1042 write SetPath1042;
  21919. Property Term1063 : string index 512 read FTerm1063 write SetTerm1063;
  21920. Property Path1063 : string index 520 read FPath1063 write SetPath1063;
  21921. Property Term1033 : string index 528 read FTerm1033 write SetTerm1033;
  21922. Property Path1033 : string index 536 read FPath1033 write SetPath1033;
  21923. Property Term1025 : string index 544 read FTerm1025 write SetTerm1025;
  21924. Property Path1025 : string index 552 read FPath1025 write SetPath1025;
  21925. Property Term1041 : string index 560 read FTerm1041 write SetTerm1041;
  21926. Property Path1041 : string index 568 read FPath1041 write SetPath1041;
  21927. Property Term1062 : string index 576 read FTerm1062 write SetTerm1062;
  21928. Property Path1062 : string index 584 read FPath1062 write SetPath1062;
  21929. Property Term1046 : string index 592 read FTerm1046 write SetTerm1046;
  21930. Property Path1046 : string index 600 read FPath1046 write SetPath1046;
  21931. Property Term2070 : string index 608 read FTerm2070 write SetTerm2070;
  21932. Property Path2070 : string index 616 read FPath2070 write SetPath2070;
  21933. Property Term1054 : string index 624 read FTerm1054 write SetTerm1054;
  21934. Property Path1054 : string index 632 read FPath1054 write SetPath1054;
  21935. Property Term1029 : string index 640 read FTerm1029 write SetTerm1029;
  21936. Property Path1029 : string index 648 read FPath1029 write SetPath1029;
  21937. Property Term3082 : string index 656 read FTerm3082 write SetTerm3082;
  21938. Property Path3082 : string index 664 read FPath3082 write SetPath3082;
  21939. Property Term1037 : string index 672 read FTerm1037 write SetTerm1037;
  21940. Property Path1037 : string index 680 read FPath1037 write SetPath1037;
  21941. Property Term1045 : string index 688 read FTerm1045 write SetTerm1045;
  21942. Property Path1045 : string index 696 read FPath1045 write SetPath1045;
  21943. Property Term2074 : string index 704 read FTerm2074 write SetTerm2074;
  21944. Property Path2074 : string index 712 read FPath2074 write SetPath2074;
  21945. Property Term1058 : string index 720 read FTerm1058 write SetTerm1058;
  21946. Property Path1058 : string index 728 read FPath1058 write SetPath1058;
  21947. Property Term1032 : string index 736 read FTerm1032 write SetTerm1032;
  21948. Property Path1032 : string index 744 read FPath1032 write SetPath1032;
  21949. Property Term1061 : string index 752 read FTerm1061 write SetTerm1061;
  21950. Property Path1061 : string index 760 read FPath1061 write SetPath1061;
  21951. Property Term1040 : string index 768 read FTerm1040 write SetTerm1040;
  21952. Property Path1040 : string index 776 read FPath1040 write SetPath1040;
  21953. Property Term1087 : string index 784 read FTerm1087 write SetTerm1087;
  21954. Property Path1087 : string index 792 read FPath1087 write SetPath1087;
  21955. Property Term1053 : string index 800 read FTerm1053 write SetTerm1053;
  21956. Property Path1053 : string index 808 read FPath1053 write SetPath1053;
  21957. Property Term1066 : string index 816 read FTerm1066 write SetTerm1066;
  21958. Property Path1066 : string index 824 read FPath1066 write SetPath1066;
  21959. Property Term10266 : string index 832 read FTerm10266 write SetTerm10266;
  21960. Property Path10266 : string index 840 read FPath10266 write SetPath10266;
  21961. Property Modified : TDateTime index 856 read FModified write SetModified;
  21962. Property Created : TDateTime index 864 read FCreated write SetCreated;
  21963. Property AuthorId : TInt32 index 872 read FAuthorId write SetAuthorId;
  21964. Property EditorId : TInt32 index 880 read FEditorId write SetEditorId;
  21965. Property OData__HasCopyDestinations : boolean index 888 read FOData__HasCopyDestinations write SetOData__HasCopyDestinations;
  21966. Property OData__CopySource : string index 896 read FOData__CopySource write SetOData__CopySource;
  21967. Property owshiddenversion : TInt32 index 904 read Fowshiddenversion write Setowshiddenversion;
  21968. Property WorkflowVersion : TInt32 index 912 read FWorkflowVersion write SetWorkflowVersion;
  21969. Property OData__UIVersion : TInt32 index 920 read FOData__UIVersion write SetOData__UIVersion;
  21970. Property OData__UIVersionString : string index 928 read FOData__UIVersionString write SetOData__UIVersionString;
  21971. Property Attachments : boolean index 936 read FAttachments write SetAttachments;
  21972. Property OData__ModerationStatus : TInt32 index 944 read FOData__ModerationStatus write SetOData__ModerationStatus;
  21973. Property Edit : string index 952 read FEdit write SetEdit;
  21974. Property LinkTitleNoMenu : string index 960 read FLinkTitleNoMenu write SetLinkTitleNoMenu;
  21975. Property LinkTitle : string index 968 read FLinkTitle write SetLinkTitle;
  21976. Property LinkTitle2 : string index 976 read FLinkTitle2 write SetLinkTitle2;
  21977. Property SelectTitle : string index 984 read FSelectTitle write SetSelectTitle;
  21978. Property InstanceID : TInt32 index 992 read FInstanceID write SetInstanceID;
  21979. Property Order : Double index 1000 read FOrder write SetOrder;
  21980. Property GUID : TGUIDString index 1008 read FGUID write SetGUID;
  21981. Property WorkflowInstanceID : TGUIDString index 1016 read FWorkflowInstanceID write SetWorkflowInstanceID;
  21982. Property FileRef : string index 1024 read FFileRef write SetFileRef;
  21983. Property FileDirRef : string index 1032 read FFileDirRef write SetFileDirRef;
  21984. Property Last_x0020_Modified : TDateTime index 1040 read FLast_x0020_Modified write SetLast_x0020_Modified;
  21985. Property Created_x0020_Date : TDateTime index 1048 read FCreated_x0020_Date write SetCreated_x0020_Date;
  21986. Property FSObjType : TInt32 index 1056 read FFSObjType write SetFSObjType;
  21987. Property PermMask : string index 1064 read FPermMask write SetPermMask;
  21988. Property FileLeafRef : string index 1072 read FFileLeafRef write SetFileLeafRef;
  21989. Property UniqueId : TGUIDString index 1080 read FUniqueId write SetUniqueId;
  21990. Property HTML_x0020_File_x0020_Type : string index 1088 read FHTML_x0020_File_x0020_Type write SetHTML_x0020_File_x0020_Type;
  21991. Property OData__EditMenuTableStart : string index 1096 read FOData__EditMenuTableStart write SetOData__EditMenuTableStart;
  21992. Property OData__EditMenuTableStart2 : string index 1104 read FOData__EditMenuTableStart2 write SetOData__EditMenuTableStart2;
  21993. Property OData__EditMenuTableEnd : string index 1112 read FOData__EditMenuTableEnd write SetOData__EditMenuTableEnd;
  21994. Property LinkFilenameNoMenu : string index 1120 read FLinkFilenameNoMenu write SetLinkFilenameNoMenu;
  21995. Property LinkFilename : string index 1128 read FLinkFilename write SetLinkFilename;
  21996. Property LinkFilename2 : string index 1136 read FLinkFilename2 write SetLinkFilename2;
  21997. Property DocIcon : string index 1144 read FDocIcon write SetDocIcon;
  21998. Property ServerUrl : string index 1152 read FServerUrl write SetServerUrl;
  21999. Property EncodedAbsUrl : string index 1160 read FEncodedAbsUrl write SetEncodedAbsUrl;
  22000. Property BaseName : string index 1168 read FBaseName write SetBaseName;
  22001. Property OData__Level : TInt32 index 1176 read FOData__Level write SetOData__Level;
  22002. Property OData__IsCurrentVersion : boolean index 1184 read FOData__IsCurrentVersion write SetOData__IsCurrentVersion;
  22003. Property AppAuthorId : TInt32 index 1192 read FAppAuthorId write SetAppAuthorId;
  22004. Property AppEditorId : TInt32 index 1200 read FAppEditorId write SetAppEditorId;
  22005. end;
  22006. { --------------------------------------------------------------------
  22007. SP.Data: SiteAssetsItem
  22008. --------------------------------------------------------------------}
  22009. TSP_DataSiteAssetsItem = Class(TSPListItem)
  22010. private
  22011. FContentTypeId : string;
  22012. FCreated : TDateTime;
  22013. FAuthorId : TInt32;
  22014. FModified : TDateTime;
  22015. FEditorId : TInt32;
  22016. FOData__HasCopyDestinations : boolean;
  22017. FOData__CopySource : string;
  22018. FOData__ModerationStatus : TInt32;
  22019. FOData__ModerationComments : string;
  22020. FFileRef : string;
  22021. FFileDirRef : string;
  22022. FLast_x0020_Modified : TDateTime;
  22023. FCreated_x0020_Date : TDateTime;
  22024. FFSObjType : TInt32;
  22025. FPermMask : string;
  22026. FCheckoutUserId : TInt32;
  22027. FFileLeafRef : string;
  22028. FUniqueId : TGUIDString;
  22029. FOData__CheckinComment : string;
  22030. FLinkCheckedOutTitle : string;
  22031. FModified_x0020_By : string;
  22032. FCreated_x0020_By : string;
  22033. FFile_x0020_Type : string;
  22034. FHTML_x0020_File_x0020_Type : string;
  22035. FOData__SourceUrl : string;
  22036. FOData__SharedFileIndex : string;
  22037. FOData__EditMenuTableStart : string;
  22038. FOData__EditMenuTableStart2 : string;
  22039. FOData__EditMenuTableEnd : string;
  22040. FLinkFilenameNoMenu : string;
  22041. FLinkFilename : string;
  22042. FLinkFilename2 : string;
  22043. FDocIcon : string;
  22044. FServerUrl : string;
  22045. FEncodedAbsUrl : string;
  22046. FBaseName : string;
  22047. FFileSizeDisplay : string;
  22048. FOData__Level : TInt32;
  22049. FOData__IsCurrentVersion : boolean;
  22050. FAppAuthorId : TInt32;
  22051. FAppEditorId : TInt32;
  22052. FSelectTitle : string;
  22053. FSelectFilename : string;
  22054. FEdit : string;
  22055. Fowshiddenversion : TInt32;
  22056. FOData__UIVersion : TInt32;
  22057. FOData__UIVersionString : string;
  22058. FInstanceID : TInt32;
  22059. FOrder : Double;
  22060. FGUID : TGUIDString;
  22061. FWorkflowVersion : TInt32;
  22062. FWorkflowInstanceID : TGUIDString;
  22063. FTitle : string;
  22064. FTemplateUrl : string;
  22065. Fxd_ProgID : string;
  22066. Fxd_Signature : boolean;
  22067. FCombine : string;
  22068. FRepairDocument : string;
  22069. procedure SetContentTypeId(AIndex: Integer; const AValue: string);
  22070. procedure SetCreated(AIndex: Integer; const AValue: TDateTime);
  22071. procedure SetAuthorId(AIndex: Integer; const AValue: TInt32);
  22072. procedure SetModified(AIndex: Integer; const AValue: TDateTime);
  22073. procedure SetEditorId(AIndex: Integer; const AValue: TInt32);
  22074. procedure SetOData__HasCopyDestinations(AIndex: Integer;
  22075. const AValue: boolean);
  22076. procedure SetOData__CopySource(AIndex: Integer; const AValue: string);
  22077. procedure SetOData__ModerationStatus(AIndex: Integer;
  22078. const AValue: TInt32);
  22079. procedure SetOData__ModerationComments(AIndex: Integer;
  22080. const AValue: string);
  22081. procedure SetFileRef(AIndex: Integer; const AValue: string);
  22082. procedure SetFileDirRef(AIndex: Integer; const AValue: string);
  22083. procedure SetLast_x0020_Modified(AIndex: Integer;
  22084. const AValue: TDateTime);
  22085. procedure SetCreated_x0020_Date(AIndex: Integer;
  22086. const AValue: TDateTime);
  22087. procedure SetFSObjType(AIndex: Integer; const AValue: TInt32);
  22088. procedure SetPermMask(AIndex: Integer; const AValue: string);
  22089. procedure SetCheckoutUserId(AIndex: Integer; const AValue: TInt32);
  22090. procedure SetFileLeafRef(AIndex: Integer; const AValue: string);
  22091. procedure SetUniqueId(AIndex: Integer; const AValue: TGUIDString);
  22092. procedure SetOData__CheckinComment(AIndex: Integer;
  22093. const AValue: string);
  22094. procedure SetLinkCheckedOutTitle(AIndex: Integer; const AValue: string);
  22095. procedure SetModified_x0020_By(AIndex: Integer; const AValue: string);
  22096. procedure SetCreated_x0020_By(AIndex: Integer; const AValue: string);
  22097. procedure SetFile_x0020_Type(AIndex: Integer; const AValue: string);
  22098. procedure SetHTML_x0020_File_x0020_Type(AIndex: Integer;
  22099. const AValue: string);
  22100. procedure SetOData__SourceUrl(AIndex: Integer; const AValue: string);
  22101. procedure SetOData__SharedFileIndex(AIndex: Integer;
  22102. const AValue: string);
  22103. procedure SetOData__EditMenuTableStart(AIndex: Integer;
  22104. const AValue: string);
  22105. procedure SetOData__EditMenuTableStart2(AIndex: Integer;
  22106. const AValue: string);
  22107. procedure SetOData__EditMenuTableEnd(AIndex: Integer;
  22108. const AValue: string);
  22109. procedure SetLinkFilenameNoMenu(AIndex: Integer; const AValue: string);
  22110. procedure SetLinkFilename(AIndex: Integer; const AValue: string);
  22111. procedure SetLinkFilename2(AIndex: Integer; const AValue: string);
  22112. procedure SetDocIcon(AIndex: Integer; const AValue: string);
  22113. procedure SetServerUrl(AIndex: Integer; const AValue: string);
  22114. procedure SetEncodedAbsUrl(AIndex: Integer; const AValue: string);
  22115. procedure SetBaseName(AIndex: Integer; const AValue: string);
  22116. procedure SetFileSizeDisplay(AIndex: Integer; const AValue: string);
  22117. procedure SetOData__Level(AIndex: Integer; const AValue: TInt32);
  22118. procedure SetOData__IsCurrentVersion(AIndex: Integer;
  22119. const AValue: boolean);
  22120. procedure SetAppAuthorId(AIndex: Integer; const AValue: TInt32);
  22121. procedure SetAppEditorId(AIndex: Integer; const AValue: TInt32);
  22122. procedure SetSelectTitle(AIndex: Integer; const AValue: string);
  22123. procedure SetSelectFilename(AIndex: Integer; const AValue: string);
  22124. procedure SetEdit(AIndex: Integer; const AValue: string);
  22125. procedure Setowshiddenversion(AIndex: Integer; const AValue: TInt32);
  22126. procedure SetOData__UIVersion(AIndex: Integer; const AValue: TInt32);
  22127. procedure SetOData__UIVersionString(AIndex: Integer;
  22128. const AValue: string);
  22129. procedure SetInstanceID(AIndex: Integer; const AValue: TInt32);
  22130. procedure SetOrder(AIndex: Integer; const AValue: Double);
  22131. procedure SetGUID(AIndex: Integer; const AValue: TGUIDString);
  22132. procedure SetWorkflowVersion(AIndex: Integer; const AValue: TInt32);
  22133. procedure SetWorkflowInstanceID(AIndex: Integer;
  22134. const AValue: TGUIDString);
  22135. procedure SetTitle(AIndex: Integer; const AValue: string);
  22136. procedure SetTemplateUrl(AIndex: Integer; const AValue: string);
  22137. procedure Setxd_ProgID(AIndex: Integer; const AValue: string);
  22138. procedure Setxd_Signature(AIndex: Integer; const AValue: boolean);
  22139. procedure SetCombine(AIndex: Integer; const AValue: string);
  22140. procedure SetRepairDocument(AIndex: Integer; const AValue: string);
  22141. public
  22142. class function ObjectRestKind : String; Override;
  22143. function Author(AService: TODataService) : TSP_DataUserInfoItem;
  22144. function Editor(AService: TODataService) : TSP_DataUserInfoItem;
  22145. function CheckoutUser(AService: TODataService) : TSP_DataUserInfoItem;
  22146. published
  22147. Property ContentTypeId : string index 64 read FContentTypeId write SetContentTypeId;
  22148. Property Created : TDateTime index 72 read FCreated write SetCreated;
  22149. Property AuthorId : TInt32 index 80 read FAuthorId write SetAuthorId;
  22150. Property Modified : TDateTime index 88 read FModified write SetModified;
  22151. Property EditorId : TInt32 index 96 read FEditorId write SetEditorId;
  22152. Property OData__HasCopyDestinations : boolean index 104 read FOData__HasCopyDestinations write SetOData__HasCopyDestinations;
  22153. Property OData__CopySource : string index 112 read FOData__CopySource write SetOData__CopySource;
  22154. Property OData__ModerationStatus : TInt32 index 120 read FOData__ModerationStatus write SetOData__ModerationStatus;
  22155. Property OData__ModerationComments : string index 128 read FOData__ModerationComments write SetOData__ModerationComments;
  22156. Property FileRef : string index 136 read FFileRef write SetFileRef;
  22157. Property FileDirRef : string index 144 read FFileDirRef write SetFileDirRef;
  22158. Property Last_x0020_Modified : TDateTime index 152 read FLast_x0020_Modified write SetLast_x0020_Modified;
  22159. Property Created_x0020_Date : TDateTime index 160 read FCreated_x0020_Date write SetCreated_x0020_Date;
  22160. Property FSObjType : TInt32 index 168 read FFSObjType write SetFSObjType;
  22161. Property PermMask : string index 176 read FPermMask write SetPermMask;
  22162. Property CheckoutUserId : TInt32 index 184 read FCheckoutUserId write SetCheckoutUserId;
  22163. Property FileLeafRef : string index 192 read FFileLeafRef write SetFileLeafRef;
  22164. Property UniqueId : TGUIDString index 200 read FUniqueId write SetUniqueId;
  22165. Property OData__CheckinComment : string index 208 read FOData__CheckinComment write SetOData__CheckinComment;
  22166. Property LinkCheckedOutTitle : string index 216 read FLinkCheckedOutTitle write SetLinkCheckedOutTitle;
  22167. Property Modified_x0020_By : string index 224 read FModified_x0020_By write SetModified_x0020_By;
  22168. Property Created_x0020_By : string index 232 read FCreated_x0020_By write SetCreated_x0020_By;
  22169. Property File_x0020_Type : string index 240 read FFile_x0020_Type write SetFile_x0020_Type;
  22170. Property HTML_x0020_File_x0020_Type : string index 248 read FHTML_x0020_File_x0020_Type write SetHTML_x0020_File_x0020_Type;
  22171. Property OData__SourceUrl : string index 256 read FOData__SourceUrl write SetOData__SourceUrl;
  22172. Property OData__SharedFileIndex : string index 264 read FOData__SharedFileIndex write SetOData__SharedFileIndex;
  22173. Property OData__EditMenuTableStart : string index 272 read FOData__EditMenuTableStart write SetOData__EditMenuTableStart;
  22174. Property OData__EditMenuTableStart2 : string index 280 read FOData__EditMenuTableStart2 write SetOData__EditMenuTableStart2;
  22175. Property OData__EditMenuTableEnd : string index 288 read FOData__EditMenuTableEnd write SetOData__EditMenuTableEnd;
  22176. Property LinkFilenameNoMenu : string index 296 read FLinkFilenameNoMenu write SetLinkFilenameNoMenu;
  22177. Property LinkFilename : string index 304 read FLinkFilename write SetLinkFilename;
  22178. Property LinkFilename2 : string index 312 read FLinkFilename2 write SetLinkFilename2;
  22179. Property DocIcon : string index 320 read FDocIcon write SetDocIcon;
  22180. Property ServerUrl : string index 328 read FServerUrl write SetServerUrl;
  22181. Property EncodedAbsUrl : string index 336 read FEncodedAbsUrl write SetEncodedAbsUrl;
  22182. Property BaseName : string index 344 read FBaseName write SetBaseName;
  22183. Property FileSizeDisplay : string index 352 read FFileSizeDisplay write SetFileSizeDisplay;
  22184. Property OData__Level : TInt32 index 360 read FOData__Level write SetOData__Level;
  22185. Property OData__IsCurrentVersion : boolean index 368 read FOData__IsCurrentVersion write SetOData__IsCurrentVersion;
  22186. Property AppAuthorId : TInt32 index 376 read FAppAuthorId write SetAppAuthorId;
  22187. Property AppEditorId : TInt32 index 384 read FAppEditorId write SetAppEditorId;
  22188. Property SelectTitle : string index 392 read FSelectTitle write SetSelectTitle;
  22189. Property SelectFilename : string index 400 read FSelectFilename write SetSelectFilename;
  22190. Property Edit : string index 408 read FEdit write SetEdit;
  22191. Property owshiddenversion : TInt32 index 416 read Fowshiddenversion write Setowshiddenversion;
  22192. Property OData__UIVersion : TInt32 index 424 read FOData__UIVersion write SetOData__UIVersion;
  22193. Property OData__UIVersionString : string index 432 read FOData__UIVersionString write SetOData__UIVersionString;
  22194. Property InstanceID : TInt32 index 440 read FInstanceID write SetInstanceID;
  22195. Property Order : Double index 448 read FOrder write SetOrder;
  22196. Property GUID : TGUIDString index 456 read FGUID write SetGUID;
  22197. Property WorkflowVersion : TInt32 index 464 read FWorkflowVersion write SetWorkflowVersion;
  22198. Property WorkflowInstanceID : TGUIDString index 472 read FWorkflowInstanceID write SetWorkflowInstanceID;
  22199. Property Title : string index 480 read FTitle write SetTitle;
  22200. Property TemplateUrl : string index 488 read FTemplateUrl write SetTemplateUrl;
  22201. Property xd_ProgID : string index 496 read Fxd_ProgID write Setxd_ProgID;
  22202. Property xd_Signature : boolean index 504 read Fxd_Signature write Setxd_Signature;
  22203. Property Combine : string index 512 read FCombine write SetCombine;
  22204. Property RepairDocument : string index 520 read FRepairDocument write SetRepairDocument;
  22205. end;
  22206. { --------------------------------------------------------------------
  22207. SP.Data: SocialItem
  22208. --------------------------------------------------------------------}
  22209. TSP_DataSocialItem = Class(TSPListItem)
  22210. private
  22211. FContentTypeId : string;
  22212. FTitle : string;
  22213. FOData__ModerationComments : string;
  22214. FFile_x0020_Type : string;
  22215. FUnreadMentions : TInt32;
  22216. FLastPostId : string;
  22217. FSocialProperties : string;
  22218. FUrl : string;
  22219. FFarmId : string;
  22220. FSiteId : TGUIDString;
  22221. FWebId : TGUIDString;
  22222. FParentUrl : string;
  22223. FIconUrl : string;
  22224. FHidden : boolean;
  22225. FHasFeed : boolean;
  22226. FFlags : string;
  22227. FListId : TGUIDString;
  22228. FItemUniqueId : TGUIDString;
  22229. FItemId : TInt32;
  22230. FSubtype : TInt32;
  22231. FFileTypeProgid : string;
  22232. FServerUrlProgid : string;
  22233. FGroupId : TGUIDString;
  22234. FPinned : TInt32;
  22235. FModified : TDateTime;
  22236. FCreated : TDateTime;
  22237. FAuthorId : TInt32;
  22238. FEditorId : TInt32;
  22239. FOData__HasCopyDestinations : boolean;
  22240. FOData__CopySource : string;
  22241. Fowshiddenversion : TInt32;
  22242. FWorkflowVersion : TInt32;
  22243. FOData__UIVersion : TInt32;
  22244. FOData__UIVersionString : string;
  22245. FAttachments : boolean;
  22246. FOData__ModerationStatus : TInt32;
  22247. FEdit : string;
  22248. FLinkTitleNoMenu : string;
  22249. FLinkTitle : string;
  22250. FLinkTitle2 : string;
  22251. FSelectTitle : string;
  22252. FInstanceID : TInt32;
  22253. FOrder : Double;
  22254. FGUID : TGUIDString;
  22255. FWorkflowInstanceID : TGUIDString;
  22256. FFileRef : string;
  22257. FFileDirRef : string;
  22258. FLast_x0020_Modified : TDateTime;
  22259. FCreated_x0020_Date : TDateTime;
  22260. FFSObjType : TInt32;
  22261. FPermMask : string;
  22262. FFileLeafRef : string;
  22263. FUniqueId : TGUIDString;
  22264. FHTML_x0020_File_x0020_Type : string;
  22265. FOData__EditMenuTableStart : string;
  22266. FOData__EditMenuTableStart2 : string;
  22267. FOData__EditMenuTableEnd : string;
  22268. FLinkFilenameNoMenu : string;
  22269. FLinkFilename : string;
  22270. FLinkFilename2 : string;
  22271. FDocIcon : string;
  22272. FServerUrl : string;
  22273. FEncodedAbsUrl : string;
  22274. FBaseName : string;
  22275. FOData__Level : TInt32;
  22276. FOData__IsCurrentVersion : boolean;
  22277. FAppAuthorId : TInt32;
  22278. FAppEditorId : TInt32;
  22279. procedure SetContentTypeId(AIndex: Integer; const AValue: string);
  22280. procedure SetTitle(AIndex: Integer; const AValue: string);
  22281. procedure SetOData__ModerationComments(AIndex: Integer;
  22282. const AValue: string);
  22283. procedure SetFile_x0020_Type(AIndex: Integer; const AValue: string);
  22284. procedure SetUnreadMentions(AIndex: Integer; const AValue: TInt32);
  22285. procedure SetLastPostId(AIndex: Integer; const AValue: string);
  22286. procedure SetSocialProperties(AIndex: Integer; const AValue: string);
  22287. procedure SetUrl(AIndex: Integer; const AValue: string);
  22288. procedure SetFarmId(AIndex: Integer; const AValue: string);
  22289. procedure SetSiteId(AIndex: Integer; const AValue: TGUIDString);
  22290. procedure SetWebId(AIndex: Integer; const AValue: TGUIDString);
  22291. procedure SetParentUrl(AIndex: Integer; const AValue: string);
  22292. procedure SetIconUrl(AIndex: Integer; const AValue: string);
  22293. procedure SetHidden(AIndex: Integer; const AValue: boolean);
  22294. procedure SetHasFeed(AIndex: Integer; const AValue: boolean);
  22295. procedure SetFlags(AIndex: Integer; const AValue: string);
  22296. procedure SetListId(AIndex: Integer; const AValue: TGUIDString);
  22297. procedure SetItemUniqueId(AIndex: Integer; const AValue: TGUIDString);
  22298. procedure SetItemId(AIndex: Integer; const AValue: TInt32);
  22299. procedure SetSubtype(AIndex: Integer; const AValue: TInt32);
  22300. procedure SetFileTypeProgid(AIndex: Integer; const AValue: string);
  22301. procedure SetServerUrlProgid(AIndex: Integer; const AValue: string);
  22302. procedure SetGroupId(AIndex: Integer; const AValue: TGUIDString);
  22303. procedure SetPinned(AIndex: Integer; const AValue: TInt32);
  22304. procedure SetModified(AIndex: Integer; const AValue: TDateTime);
  22305. procedure SetCreated(AIndex: Integer; const AValue: TDateTime);
  22306. procedure SetAuthorId(AIndex: Integer; const AValue: TInt32);
  22307. procedure SetEditorId(AIndex: Integer; const AValue: TInt32);
  22308. procedure SetOData__HasCopyDestinations(AIndex: Integer;
  22309. const AValue: boolean);
  22310. procedure SetOData__CopySource(AIndex: Integer; const AValue: string);
  22311. procedure Setowshiddenversion(AIndex: Integer; const AValue: TInt32);
  22312. procedure SetWorkflowVersion(AIndex: Integer; const AValue: TInt32);
  22313. procedure SetOData__UIVersion(AIndex: Integer; const AValue: TInt32);
  22314. procedure SetOData__UIVersionString(AIndex: Integer;
  22315. const AValue: string);
  22316. procedure SetAttachments(AIndex: Integer; const AValue: boolean);
  22317. procedure SetOData__ModerationStatus(AIndex: Integer;
  22318. const AValue: TInt32);
  22319. procedure SetEdit(AIndex: Integer; const AValue: string);
  22320. procedure SetLinkTitleNoMenu(AIndex: Integer; const AValue: string);
  22321. procedure SetLinkTitle(AIndex: Integer; const AValue: string);
  22322. procedure SetLinkTitle2(AIndex: Integer; const AValue: string);
  22323. procedure SetSelectTitle(AIndex: Integer; const AValue: string);
  22324. procedure SetInstanceID(AIndex: Integer; const AValue: TInt32);
  22325. procedure SetOrder(AIndex: Integer; const AValue: Double);
  22326. procedure SetGUID(AIndex: Integer; const AValue: TGUIDString);
  22327. procedure SetWorkflowInstanceID(AIndex: Integer;
  22328. const AValue: TGUIDString);
  22329. procedure SetFileRef(AIndex: Integer; const AValue: string);
  22330. procedure SetFileDirRef(AIndex: Integer; const AValue: string);
  22331. procedure SetLast_x0020_Modified(AIndex: Integer;
  22332. const AValue: TDateTime);
  22333. procedure SetCreated_x0020_Date(AIndex: Integer;
  22334. const AValue: TDateTime);
  22335. procedure SetFSObjType(AIndex: Integer; const AValue: TInt32);
  22336. procedure SetPermMask(AIndex: Integer; const AValue: string);
  22337. procedure SetFileLeafRef(AIndex: Integer; const AValue: string);
  22338. procedure SetUniqueId(AIndex: Integer; const AValue: TGUIDString);
  22339. procedure SetHTML_x0020_File_x0020_Type(AIndex: Integer;
  22340. const AValue: string);
  22341. procedure SetOData__EditMenuTableStart(AIndex: Integer;
  22342. const AValue: string);
  22343. procedure SetOData__EditMenuTableStart2(AIndex: Integer;
  22344. const AValue: string);
  22345. procedure SetOData__EditMenuTableEnd(AIndex: Integer;
  22346. const AValue: string);
  22347. procedure SetLinkFilenameNoMenu(AIndex: Integer; const AValue: string);
  22348. procedure SetLinkFilename(AIndex: Integer; const AValue: string);
  22349. procedure SetLinkFilename2(AIndex: Integer; const AValue: string);
  22350. procedure SetDocIcon(AIndex: Integer; const AValue: string);
  22351. procedure SetServerUrl(AIndex: Integer; const AValue: string);
  22352. procedure SetEncodedAbsUrl(AIndex: Integer; const AValue: string);
  22353. procedure SetBaseName(AIndex: Integer; const AValue: string);
  22354. procedure SetOData__Level(AIndex: Integer; const AValue: TInt32);
  22355. procedure SetOData__IsCurrentVersion(AIndex: Integer;
  22356. const AValue: boolean);
  22357. procedure SetAppAuthorId(AIndex: Integer; const AValue: TInt32);
  22358. procedure SetAppEditorId(AIndex: Integer; const AValue: TInt32);
  22359. public
  22360. class function ObjectRestKind : String; Override;
  22361. function Author(AService: TODataService) : TSP_DataUserInfoItem;
  22362. function Editor(AService: TODataService) : TSP_DataUserInfoItem;
  22363. published
  22364. Property ContentTypeId : string index 56 read FContentTypeId write SetContentTypeId;
  22365. Property Title : string index 64 read FTitle write SetTitle;
  22366. Property OData__ModerationComments : string index 72 read FOData__ModerationComments write SetOData__ModerationComments;
  22367. Property File_x0020_Type : string index 80 read FFile_x0020_Type write SetFile_x0020_Type;
  22368. Property UnreadMentions : TInt32 index 88 read FUnreadMentions write SetUnreadMentions;
  22369. Property LastPostId : string index 96 read FLastPostId write SetLastPostId;
  22370. Property SocialProperties : string index 104 read FSocialProperties write SetSocialProperties;
  22371. Property Url : string index 112 read FUrl write SetUrl;
  22372. Property FarmId : string index 120 read FFarmId write SetFarmId;
  22373. Property SiteId : TGUIDString index 128 read FSiteId write SetSiteId;
  22374. Property WebId : TGUIDString index 136 read FWebId write SetWebId;
  22375. Property ParentUrl : string index 144 read FParentUrl write SetParentUrl;
  22376. Property IconUrl : string index 152 read FIconUrl write SetIconUrl;
  22377. Property Hidden : boolean index 160 read FHidden write SetHidden;
  22378. Property HasFeed : boolean index 168 read FHasFeed write SetHasFeed;
  22379. Property Flags : string index 176 read FFlags write SetFlags;
  22380. Property ListId : TGUIDString index 184 read FListId write SetListId;
  22381. Property ItemUniqueId : TGUIDString index 192 read FItemUniqueId write SetItemUniqueId;
  22382. Property ItemId : TInt32 index 200 read FItemId write SetItemId;
  22383. Property Subtype : TInt32 index 208 read FSubtype write SetSubtype;
  22384. Property FileTypeProgid : string index 216 read FFileTypeProgid write SetFileTypeProgid;
  22385. Property ServerUrlProgid : string index 224 read FServerUrlProgid write SetServerUrlProgid;
  22386. Property GroupId : TGUIDString index 232 read FGroupId write SetGroupId;
  22387. Property Pinned : TInt32 index 240 read FPinned write SetPinned;
  22388. Property Modified : TDateTime index 256 read FModified write SetModified;
  22389. Property Created : TDateTime index 264 read FCreated write SetCreated;
  22390. Property AuthorId : TInt32 index 272 read FAuthorId write SetAuthorId;
  22391. Property EditorId : TInt32 index 280 read FEditorId write SetEditorId;
  22392. Property OData__HasCopyDestinations : boolean index 288 read FOData__HasCopyDestinations write SetOData__HasCopyDestinations;
  22393. Property OData__CopySource : string index 296 read FOData__CopySource write SetOData__CopySource;
  22394. Property owshiddenversion : TInt32 index 304 read Fowshiddenversion write Setowshiddenversion;
  22395. Property WorkflowVersion : TInt32 index 312 read FWorkflowVersion write SetWorkflowVersion;
  22396. Property OData__UIVersion : TInt32 index 320 read FOData__UIVersion write SetOData__UIVersion;
  22397. Property OData__UIVersionString : string index 328 read FOData__UIVersionString write SetOData__UIVersionString;
  22398. Property Attachments : boolean index 336 read FAttachments write SetAttachments;
  22399. Property OData__ModerationStatus : TInt32 index 344 read FOData__ModerationStatus write SetOData__ModerationStatus;
  22400. Property Edit : string index 352 read FEdit write SetEdit;
  22401. Property LinkTitleNoMenu : string index 360 read FLinkTitleNoMenu write SetLinkTitleNoMenu;
  22402. Property LinkTitle : string index 368 read FLinkTitle write SetLinkTitle;
  22403. Property LinkTitle2 : string index 376 read FLinkTitle2 write SetLinkTitle2;
  22404. Property SelectTitle : string index 384 read FSelectTitle write SetSelectTitle;
  22405. Property InstanceID : TInt32 index 392 read FInstanceID write SetInstanceID;
  22406. Property Order : Double index 400 read FOrder write SetOrder;
  22407. Property GUID : TGUIDString index 408 read FGUID write SetGUID;
  22408. Property WorkflowInstanceID : TGUIDString index 416 read FWorkflowInstanceID write SetWorkflowInstanceID;
  22409. Property FileRef : string index 424 read FFileRef write SetFileRef;
  22410. Property FileDirRef : string index 432 read FFileDirRef write SetFileDirRef;
  22411. Property Last_x0020_Modified : TDateTime index 440 read FLast_x0020_Modified write SetLast_x0020_Modified;
  22412. Property Created_x0020_Date : TDateTime index 448 read FCreated_x0020_Date write SetCreated_x0020_Date;
  22413. Property FSObjType : TInt32 index 456 read FFSObjType write SetFSObjType;
  22414. Property PermMask : string index 464 read FPermMask write SetPermMask;
  22415. Property FileLeafRef : string index 472 read FFileLeafRef write SetFileLeafRef;
  22416. Property UniqueId : TGUIDString index 480 read FUniqueId write SetUniqueId;
  22417. Property HTML_x0020_File_x0020_Type : string index 488 read FHTML_x0020_File_x0020_Type write SetHTML_x0020_File_x0020_Type;
  22418. Property OData__EditMenuTableStart : string index 496 read FOData__EditMenuTableStart write SetOData__EditMenuTableStart;
  22419. Property OData__EditMenuTableStart2 : string index 504 read FOData__EditMenuTableStart2 write SetOData__EditMenuTableStart2;
  22420. Property OData__EditMenuTableEnd : string index 512 read FOData__EditMenuTableEnd write SetOData__EditMenuTableEnd;
  22421. Property LinkFilenameNoMenu : string index 520 read FLinkFilenameNoMenu write SetLinkFilenameNoMenu;
  22422. Property LinkFilename : string index 528 read FLinkFilename write SetLinkFilename;
  22423. Property LinkFilename2 : string index 536 read FLinkFilename2 write SetLinkFilename2;
  22424. Property DocIcon : string index 544 read FDocIcon write SetDocIcon;
  22425. Property ServerUrl : string index 552 read FServerUrl write SetServerUrl;
  22426. Property EncodedAbsUrl : string index 560 read FEncodedAbsUrl write SetEncodedAbsUrl;
  22427. Property BaseName : string index 568 read FBaseName write SetBaseName;
  22428. Property OData__Level : TInt32 index 576 read FOData__Level write SetOData__Level;
  22429. Property OData__IsCurrentVersion : boolean index 584 read FOData__IsCurrentVersion write SetOData__IsCurrentVersion;
  22430. Property AppAuthorId : TInt32 index 592 read FAppAuthorId write SetAppAuthorId;
  22431. Property AppEditorId : TInt32 index 600 read FAppEditorId write SetAppEditorId;
  22432. end;
  22433. { --------------------------------------------------------------------
  22434. SP.Data: OData__x005f_catalogs_x002f_solutionsItem
  22435. --------------------------------------------------------------------}
  22436. TSP_DataOData__x005f_catalogs_x002f_solutionsItem = Class(TSPListItem)
  22437. private
  22438. FContentTypeId : string;
  22439. FCreated : TDateTime;
  22440. FAuthorId : TInt32;
  22441. FModified : TDateTime;
  22442. FEditorId : TInt32;
  22443. FOData__HasCopyDestinations : boolean;
  22444. FOData__CopySource : string;
  22445. FOData__ModerationStatus : TInt32;
  22446. FOData__ModerationComments : string;
  22447. FFileRef : string;
  22448. FFileDirRef : string;
  22449. FLast_x0020_Modified : TDateTime;
  22450. FCreated_x0020_Date : TDateTime;
  22451. FFSObjType : TInt32;
  22452. FPermMask : string;
  22453. FCheckoutUserId : TInt32;
  22454. FFileLeafRef : string;
  22455. FUniqueId : TGUIDString;
  22456. FOData__CheckinComment : string;
  22457. FLinkCheckedOutTitle : string;
  22458. FModified_x0020_By : string;
  22459. FCreated_x0020_By : string;
  22460. FFile_x0020_Type : string;
  22461. FHTML_x0020_File_x0020_Type : string;
  22462. FOData__SourceUrl : string;
  22463. FOData__SharedFileIndex : string;
  22464. FOData__EditMenuTableStart : string;
  22465. FOData__EditMenuTableStart2 : string;
  22466. FOData__EditMenuTableEnd : string;
  22467. FLinkFilenameNoMenu : string;
  22468. FLinkFilename : string;
  22469. FLinkFilename2 : string;
  22470. FDocIcon : string;
  22471. FServerUrl : string;
  22472. FEncodedAbsUrl : string;
  22473. FBaseName : string;
  22474. FFileSizeDisplay : string;
  22475. FOData__Level : TInt32;
  22476. FOData__IsCurrentVersion : boolean;
  22477. FAppAuthorId : TInt32;
  22478. FAppEditorId : TInt32;
  22479. FSelectTitle : string;
  22480. FSelectFilename : string;
  22481. FEdit : string;
  22482. Fowshiddenversion : TInt32;
  22483. FOData__UIVersion : TInt32;
  22484. FOData__UIVersionString : string;
  22485. FInstanceID : TInt32;
  22486. FOrder : Double;
  22487. FGUID : TGUIDString;
  22488. FWorkflowVersion : TInt32;
  22489. FWorkflowInstanceID : TGUIDString;
  22490. FSolutionId : TGUIDString;
  22491. FSolutionTitle : string;
  22492. FSolutionDescription : string;
  22493. FSolutionHash : string;
  22494. FComputedStatus : string;
  22495. FComputedQuota : string;
  22496. procedure SetContentTypeId(AIndex: Integer; const AValue: string);
  22497. procedure SetCreated(AIndex: Integer; const AValue: TDateTime);
  22498. procedure SetAuthorId(AIndex: Integer; const AValue: TInt32);
  22499. procedure SetModified(AIndex: Integer; const AValue: TDateTime);
  22500. procedure SetEditorId(AIndex: Integer; const AValue: TInt32);
  22501. procedure SetOData__HasCopyDestinations(AIndex: Integer;
  22502. const AValue: boolean);
  22503. procedure SetOData__CopySource(AIndex: Integer; const AValue: string);
  22504. procedure SetOData__ModerationStatus(AIndex: Integer;
  22505. const AValue: TInt32);
  22506. procedure SetOData__ModerationComments(AIndex: Integer;
  22507. const AValue: string);
  22508. procedure SetFileRef(AIndex: Integer; const AValue: string);
  22509. procedure SetFileDirRef(AIndex: Integer; const AValue: string);
  22510. procedure SetLast_x0020_Modified(AIndex: Integer;
  22511. const AValue: TDateTime);
  22512. procedure SetCreated_x0020_Date(AIndex: Integer;
  22513. const AValue: TDateTime);
  22514. procedure SetFSObjType(AIndex: Integer; const AValue: TInt32);
  22515. procedure SetPermMask(AIndex: Integer; const AValue: string);
  22516. procedure SetCheckoutUserId(AIndex: Integer; const AValue: TInt32);
  22517. procedure SetFileLeafRef(AIndex: Integer; const AValue: string);
  22518. procedure SetUniqueId(AIndex: Integer; const AValue: TGUIDString);
  22519. procedure SetOData__CheckinComment(AIndex: Integer;
  22520. const AValue: string);
  22521. procedure SetLinkCheckedOutTitle(AIndex: Integer; const AValue: string);
  22522. procedure SetModified_x0020_By(AIndex: Integer; const AValue: string);
  22523. procedure SetCreated_x0020_By(AIndex: Integer; const AValue: string);
  22524. procedure SetFile_x0020_Type(AIndex: Integer; const AValue: string);
  22525. procedure SetHTML_x0020_File_x0020_Type(AIndex: Integer;
  22526. const AValue: string);
  22527. procedure SetOData__SourceUrl(AIndex: Integer; const AValue: string);
  22528. procedure SetOData__SharedFileIndex(AIndex: Integer;
  22529. const AValue: string);
  22530. procedure SetOData__EditMenuTableStart(AIndex: Integer;
  22531. const AValue: string);
  22532. procedure SetOData__EditMenuTableStart2(AIndex: Integer;
  22533. const AValue: string);
  22534. procedure SetOData__EditMenuTableEnd(AIndex: Integer;
  22535. const AValue: string);
  22536. procedure SetLinkFilenameNoMenu(AIndex: Integer; const AValue: string);
  22537. procedure SetLinkFilename(AIndex: Integer; const AValue: string);
  22538. procedure SetLinkFilename2(AIndex: Integer; const AValue: string);
  22539. procedure SetDocIcon(AIndex: Integer; const AValue: string);
  22540. procedure SetServerUrl(AIndex: Integer; const AValue: string);
  22541. procedure SetEncodedAbsUrl(AIndex: Integer; const AValue: string);
  22542. procedure SetBaseName(AIndex: Integer; const AValue: string);
  22543. procedure SetFileSizeDisplay(AIndex: Integer; const AValue: string);
  22544. procedure SetOData__Level(AIndex: Integer; const AValue: TInt32);
  22545. procedure SetOData__IsCurrentVersion(AIndex: Integer;
  22546. const AValue: boolean);
  22547. procedure SetAppAuthorId(AIndex: Integer; const AValue: TInt32);
  22548. procedure SetAppEditorId(AIndex: Integer; const AValue: TInt32);
  22549. procedure SetSelectTitle(AIndex: Integer; const AValue: string);
  22550. procedure SetSelectFilename(AIndex: Integer; const AValue: string);
  22551. procedure SetEdit(AIndex: Integer; const AValue: string);
  22552. procedure Setowshiddenversion(AIndex: Integer; const AValue: TInt32);
  22553. procedure SetOData__UIVersion(AIndex: Integer; const AValue: TInt32);
  22554. procedure SetOData__UIVersionString(AIndex: Integer;
  22555. const AValue: string);
  22556. procedure SetInstanceID(AIndex: Integer; const AValue: TInt32);
  22557. procedure SetOrder(AIndex: Integer; const AValue: Double);
  22558. procedure SetGUID(AIndex: Integer; const AValue: TGUIDString);
  22559. procedure SetWorkflowVersion(AIndex: Integer; const AValue: TInt32);
  22560. procedure SetWorkflowInstanceID(AIndex: Integer;
  22561. const AValue: TGUIDString);
  22562. procedure SetSolutionId(AIndex: Integer; const AValue: TGUIDString);
  22563. procedure SetSolutionTitle(AIndex: Integer; const AValue: string);
  22564. procedure SetSolutionDescription(AIndex: Integer; const AValue: string);
  22565. procedure SetSolutionHash(AIndex: Integer; const AValue: string);
  22566. procedure SetComputedStatus(AIndex: Integer; const AValue: string);
  22567. procedure SetComputedQuota(AIndex: Integer; const AValue: string);
  22568. public
  22569. class function ObjectRestKind : String; Override;
  22570. function Author(AService: TODataService) : TSP_DataUserInfoItem;
  22571. function Editor(AService: TODataService) : TSP_DataUserInfoItem;
  22572. function CheckoutUser(AService: TODataService) : TSP_DataUserInfoItem;
  22573. published
  22574. Property ContentTypeId : string index 64 read FContentTypeId write SetContentTypeId;
  22575. Property Created : TDateTime index 72 read FCreated write SetCreated;
  22576. Property AuthorId : TInt32 index 80 read FAuthorId write SetAuthorId;
  22577. Property Modified : TDateTime index 88 read FModified write SetModified;
  22578. Property EditorId : TInt32 index 96 read FEditorId write SetEditorId;
  22579. Property OData__HasCopyDestinations : boolean index 104 read FOData__HasCopyDestinations write SetOData__HasCopyDestinations;
  22580. Property OData__CopySource : string index 112 read FOData__CopySource write SetOData__CopySource;
  22581. Property OData__ModerationStatus : TInt32 index 120 read FOData__ModerationStatus write SetOData__ModerationStatus;
  22582. Property OData__ModerationComments : string index 128 read FOData__ModerationComments write SetOData__ModerationComments;
  22583. Property FileRef : string index 136 read FFileRef write SetFileRef;
  22584. Property FileDirRef : string index 144 read FFileDirRef write SetFileDirRef;
  22585. Property Last_x0020_Modified : TDateTime index 152 read FLast_x0020_Modified write SetLast_x0020_Modified;
  22586. Property Created_x0020_Date : TDateTime index 160 read FCreated_x0020_Date write SetCreated_x0020_Date;
  22587. Property FSObjType : TInt32 index 168 read FFSObjType write SetFSObjType;
  22588. Property PermMask : string index 176 read FPermMask write SetPermMask;
  22589. Property CheckoutUserId : TInt32 index 184 read FCheckoutUserId write SetCheckoutUserId;
  22590. Property FileLeafRef : string index 192 read FFileLeafRef write SetFileLeafRef;
  22591. Property UniqueId : TGUIDString index 200 read FUniqueId write SetUniqueId;
  22592. Property OData__CheckinComment : string index 208 read FOData__CheckinComment write SetOData__CheckinComment;
  22593. Property LinkCheckedOutTitle : string index 216 read FLinkCheckedOutTitle write SetLinkCheckedOutTitle;
  22594. Property Modified_x0020_By : string index 224 read FModified_x0020_By write SetModified_x0020_By;
  22595. Property Created_x0020_By : string index 232 read FCreated_x0020_By write SetCreated_x0020_By;
  22596. Property File_x0020_Type : string index 240 read FFile_x0020_Type write SetFile_x0020_Type;
  22597. Property HTML_x0020_File_x0020_Type : string index 248 read FHTML_x0020_File_x0020_Type write SetHTML_x0020_File_x0020_Type;
  22598. Property OData__SourceUrl : string index 256 read FOData__SourceUrl write SetOData__SourceUrl;
  22599. Property OData__SharedFileIndex : string index 264 read FOData__SharedFileIndex write SetOData__SharedFileIndex;
  22600. Property OData__EditMenuTableStart : string index 272 read FOData__EditMenuTableStart write SetOData__EditMenuTableStart;
  22601. Property OData__EditMenuTableStart2 : string index 280 read FOData__EditMenuTableStart2 write SetOData__EditMenuTableStart2;
  22602. Property OData__EditMenuTableEnd : string index 288 read FOData__EditMenuTableEnd write SetOData__EditMenuTableEnd;
  22603. Property LinkFilenameNoMenu : string index 296 read FLinkFilenameNoMenu write SetLinkFilenameNoMenu;
  22604. Property LinkFilename : string index 304 read FLinkFilename write SetLinkFilename;
  22605. Property LinkFilename2 : string index 312 read FLinkFilename2 write SetLinkFilename2;
  22606. Property DocIcon : string index 320 read FDocIcon write SetDocIcon;
  22607. Property ServerUrl : string index 328 read FServerUrl write SetServerUrl;
  22608. Property EncodedAbsUrl : string index 336 read FEncodedAbsUrl write SetEncodedAbsUrl;
  22609. Property BaseName : string index 344 read FBaseName write SetBaseName;
  22610. Property FileSizeDisplay : string index 352 read FFileSizeDisplay write SetFileSizeDisplay;
  22611. Property OData__Level : TInt32 index 360 read FOData__Level write SetOData__Level;
  22612. Property OData__IsCurrentVersion : boolean index 368 read FOData__IsCurrentVersion write SetOData__IsCurrentVersion;
  22613. Property AppAuthorId : TInt32 index 376 read FAppAuthorId write SetAppAuthorId;
  22614. Property AppEditorId : TInt32 index 384 read FAppEditorId write SetAppEditorId;
  22615. Property SelectTitle : string index 392 read FSelectTitle write SetSelectTitle;
  22616. Property SelectFilename : string index 400 read FSelectFilename write SetSelectFilename;
  22617. Property Edit : string index 408 read FEdit write SetEdit;
  22618. Property owshiddenversion : TInt32 index 416 read Fowshiddenversion write Setowshiddenversion;
  22619. Property OData__UIVersion : TInt32 index 424 read FOData__UIVersion write SetOData__UIVersion;
  22620. Property OData__UIVersionString : string index 432 read FOData__UIVersionString write SetOData__UIVersionString;
  22621. Property InstanceID : TInt32 index 440 read FInstanceID write SetInstanceID;
  22622. Property Order : Double index 448 read FOrder write SetOrder;
  22623. Property GUID : TGUIDString index 456 read FGUID write SetGUID;
  22624. Property WorkflowVersion : TInt32 index 464 read FWorkflowVersion write SetWorkflowVersion;
  22625. Property WorkflowInstanceID : TGUIDString index 472 read FWorkflowInstanceID write SetWorkflowInstanceID;
  22626. Property SolutionId : TGUIDString index 480 read FSolutionId write SetSolutionId;
  22627. Property SolutionTitle : string index 488 read FSolutionTitle write SetSolutionTitle;
  22628. Property SolutionDescription : string index 496 read FSolutionDescription write SetSolutionDescription;
  22629. Property SolutionHash : string index 504 read FSolutionHash write SetSolutionHash;
  22630. Property ComputedStatus : string index 512 read FComputedStatus write SetComputedStatus;
  22631. Property ComputedQuota : string index 520 read FComputedQuota write SetComputedQuota;
  22632. end;
  22633. { --------------------------------------------------------------------
  22634. SP.Data: Style_x0020_LibraryItem
  22635. --------------------------------------------------------------------}
  22636. TSP_DataStyle_x0020_LibraryItem = Class(TSPListItem)
  22637. private
  22638. FContentTypeId : string;
  22639. FCreated : TDateTime;
  22640. FAuthorId : TInt32;
  22641. FModified : TDateTime;
  22642. FEditorId : TInt32;
  22643. FOData__HasCopyDestinations : boolean;
  22644. FOData__CopySource : string;
  22645. FOData__ModerationStatus : TInt32;
  22646. FOData__ModerationComments : string;
  22647. FFileRef : string;
  22648. FFileDirRef : string;
  22649. FLast_x0020_Modified : TDateTime;
  22650. FCreated_x0020_Date : TDateTime;
  22651. FFSObjType : TInt32;
  22652. FPermMask : string;
  22653. FCheckoutUserId : TInt32;
  22654. FFileLeafRef : string;
  22655. FUniqueId : TGUIDString;
  22656. FOData__CheckinComment : string;
  22657. FLinkCheckedOutTitle : string;
  22658. FModified_x0020_By : string;
  22659. FCreated_x0020_By : string;
  22660. FFile_x0020_Type : string;
  22661. FHTML_x0020_File_x0020_Type : string;
  22662. FOData__SourceUrl : string;
  22663. FOData__SharedFileIndex : string;
  22664. FOData__EditMenuTableStart : string;
  22665. FOData__EditMenuTableStart2 : string;
  22666. FOData__EditMenuTableEnd : string;
  22667. FLinkFilenameNoMenu : string;
  22668. FLinkFilename : string;
  22669. FLinkFilename2 : string;
  22670. FDocIcon : string;
  22671. FServerUrl : string;
  22672. FEncodedAbsUrl : string;
  22673. FBaseName : string;
  22674. FFileSizeDisplay : string;
  22675. FOData__Level : TInt32;
  22676. FOData__IsCurrentVersion : boolean;
  22677. FAppAuthorId : TInt32;
  22678. FAppEditorId : TInt32;
  22679. FSelectTitle : string;
  22680. FSelectFilename : string;
  22681. FEdit : string;
  22682. Fowshiddenversion : TInt32;
  22683. FOData__UIVersion : TInt32;
  22684. FOData__UIVersionString : string;
  22685. FInstanceID : TInt32;
  22686. FOrder : Double;
  22687. FGUID : TGUIDString;
  22688. FWorkflowVersion : TInt32;
  22689. FWorkflowInstanceID : TGUIDString;
  22690. FTitle : string;
  22691. FTemplateUrl : string;
  22692. Fxd_ProgID : string;
  22693. Fxd_Signature : boolean;
  22694. FCombine : string;
  22695. FRepairDocument : string;
  22696. procedure SetContentTypeId(AIndex: Integer; const AValue: string);
  22697. procedure SetCreated(AIndex: Integer; const AValue: TDateTime);
  22698. procedure SetAuthorId(AIndex: Integer; const AValue: TInt32);
  22699. procedure SetModified(AIndex: Integer; const AValue: TDateTime);
  22700. procedure SetEditorId(AIndex: Integer; const AValue: TInt32);
  22701. procedure SetOData__HasCopyDestinations(AIndex: Integer;
  22702. const AValue: boolean);
  22703. procedure SetOData__CopySource(AIndex: Integer; const AValue: string);
  22704. procedure SetOData__ModerationStatus(AIndex: Integer;
  22705. const AValue: TInt32);
  22706. procedure SetOData__ModerationComments(AIndex: Integer;
  22707. const AValue: string);
  22708. procedure SetFileRef(AIndex: Integer; const AValue: string);
  22709. procedure SetFileDirRef(AIndex: Integer; const AValue: string);
  22710. procedure SetLast_x0020_Modified(AIndex: Integer;
  22711. const AValue: TDateTime);
  22712. procedure SetCreated_x0020_Date(AIndex: Integer;
  22713. const AValue: TDateTime);
  22714. procedure SetFSObjType(AIndex: Integer; const AValue: TInt32);
  22715. procedure SetPermMask(AIndex: Integer; const AValue: string);
  22716. procedure SetCheckoutUserId(AIndex: Integer; const AValue: TInt32);
  22717. procedure SetFileLeafRef(AIndex: Integer; const AValue: string);
  22718. procedure SetUniqueId(AIndex: Integer; const AValue: TGUIDString);
  22719. procedure SetOData__CheckinComment(AIndex: Integer;
  22720. const AValue: string);
  22721. procedure SetLinkCheckedOutTitle(AIndex: Integer; const AValue: string);
  22722. procedure SetModified_x0020_By(AIndex: Integer; const AValue: string);
  22723. procedure SetCreated_x0020_By(AIndex: Integer; const AValue: string);
  22724. procedure SetFile_x0020_Type(AIndex: Integer; const AValue: string);
  22725. procedure SetHTML_x0020_File_x0020_Type(AIndex: Integer;
  22726. const AValue: string);
  22727. procedure SetOData__SourceUrl(AIndex: Integer; const AValue: string);
  22728. procedure SetOData__SharedFileIndex(AIndex: Integer;
  22729. const AValue: string);
  22730. procedure SetOData__EditMenuTableStart(AIndex: Integer;
  22731. const AValue: string);
  22732. procedure SetOData__EditMenuTableStart2(AIndex: Integer;
  22733. const AValue: string);
  22734. procedure SetOData__EditMenuTableEnd(AIndex: Integer;
  22735. const AValue: string);
  22736. procedure SetLinkFilenameNoMenu(AIndex: Integer; const AValue: string);
  22737. procedure SetLinkFilename(AIndex: Integer; const AValue: string);
  22738. procedure SetLinkFilename2(AIndex: Integer; const AValue: string);
  22739. procedure SetDocIcon(AIndex: Integer; const AValue: string);
  22740. procedure SetServerUrl(AIndex: Integer; const AValue: string);
  22741. procedure SetEncodedAbsUrl(AIndex: Integer; const AValue: string);
  22742. procedure SetBaseName(AIndex: Integer; const AValue: string);
  22743. procedure SetFileSizeDisplay(AIndex: Integer; const AValue: string);
  22744. procedure SetOData__Level(AIndex: Integer; const AValue: TInt32);
  22745. procedure SetOData__IsCurrentVersion(AIndex: Integer;
  22746. const AValue: boolean);
  22747. procedure SetAppAuthorId(AIndex: Integer; const AValue: TInt32);
  22748. procedure SetAppEditorId(AIndex: Integer; const AValue: TInt32);
  22749. procedure SetSelectTitle(AIndex: Integer; const AValue: string);
  22750. procedure SetSelectFilename(AIndex: Integer; const AValue: string);
  22751. procedure SetEdit(AIndex: Integer; const AValue: string);
  22752. procedure Setowshiddenversion(AIndex: Integer; const AValue: TInt32);
  22753. procedure SetOData__UIVersion(AIndex: Integer; const AValue: TInt32);
  22754. procedure SetOData__UIVersionString(AIndex: Integer;
  22755. const AValue: string);
  22756. procedure SetInstanceID(AIndex: Integer; const AValue: TInt32);
  22757. procedure SetOrder(AIndex: Integer; const AValue: Double);
  22758. procedure SetGUID(AIndex: Integer; const AValue: TGUIDString);
  22759. procedure SetWorkflowVersion(AIndex: Integer; const AValue: TInt32);
  22760. procedure SetWorkflowInstanceID(AIndex: Integer;
  22761. const AValue: TGUIDString);
  22762. procedure SetTitle(AIndex: Integer; const AValue: string);
  22763. procedure SetTemplateUrl(AIndex: Integer; const AValue: string);
  22764. procedure Setxd_ProgID(AIndex: Integer; const AValue: string);
  22765. procedure Setxd_Signature(AIndex: Integer; const AValue: boolean);
  22766. procedure SetCombine(AIndex: Integer; const AValue: string);
  22767. procedure SetRepairDocument(AIndex: Integer; const AValue: string);
  22768. public
  22769. class function ObjectRestKind : String; Override;
  22770. function Author(AService: TODataService) : TSP_DataUserInfoItem;
  22771. function Editor(AService: TODataService) : TSP_DataUserInfoItem;
  22772. function CheckoutUser(AService: TODataService) : TSP_DataUserInfoItem;
  22773. published
  22774. Property ContentTypeId : string index 64 read FContentTypeId write SetContentTypeId;
  22775. Property Created : TDateTime index 72 read FCreated write SetCreated;
  22776. Property AuthorId : TInt32 index 80 read FAuthorId write SetAuthorId;
  22777. Property Modified : TDateTime index 88 read FModified write SetModified;
  22778. Property EditorId : TInt32 index 96 read FEditorId write SetEditorId;
  22779. Property OData__HasCopyDestinations : boolean index 104 read FOData__HasCopyDestinations write SetOData__HasCopyDestinations;
  22780. Property OData__CopySource : string index 112 read FOData__CopySource write SetOData__CopySource;
  22781. Property OData__ModerationStatus : TInt32 index 120 read FOData__ModerationStatus write SetOData__ModerationStatus;
  22782. Property OData__ModerationComments : string index 128 read FOData__ModerationComments write SetOData__ModerationComments;
  22783. Property FileRef : string index 136 read FFileRef write SetFileRef;
  22784. Property FileDirRef : string index 144 read FFileDirRef write SetFileDirRef;
  22785. Property Last_x0020_Modified : TDateTime index 152 read FLast_x0020_Modified write SetLast_x0020_Modified;
  22786. Property Created_x0020_Date : TDateTime index 160 read FCreated_x0020_Date write SetCreated_x0020_Date;
  22787. Property FSObjType : TInt32 index 168 read FFSObjType write SetFSObjType;
  22788. Property PermMask : string index 176 read FPermMask write SetPermMask;
  22789. Property CheckoutUserId : TInt32 index 184 read FCheckoutUserId write SetCheckoutUserId;
  22790. Property FileLeafRef : string index 192 read FFileLeafRef write SetFileLeafRef;
  22791. Property UniqueId : TGUIDString index 200 read FUniqueId write SetUniqueId;
  22792. Property OData__CheckinComment : string index 208 read FOData__CheckinComment write SetOData__CheckinComment;
  22793. Property LinkCheckedOutTitle : string index 216 read FLinkCheckedOutTitle write SetLinkCheckedOutTitle;
  22794. Property Modified_x0020_By : string index 224 read FModified_x0020_By write SetModified_x0020_By;
  22795. Property Created_x0020_By : string index 232 read FCreated_x0020_By write SetCreated_x0020_By;
  22796. Property File_x0020_Type : string index 240 read FFile_x0020_Type write SetFile_x0020_Type;
  22797. Property HTML_x0020_File_x0020_Type : string index 248 read FHTML_x0020_File_x0020_Type write SetHTML_x0020_File_x0020_Type;
  22798. Property OData__SourceUrl : string index 256 read FOData__SourceUrl write SetOData__SourceUrl;
  22799. Property OData__SharedFileIndex : string index 264 read FOData__SharedFileIndex write SetOData__SharedFileIndex;
  22800. Property OData__EditMenuTableStart : string index 272 read FOData__EditMenuTableStart write SetOData__EditMenuTableStart;
  22801. Property OData__EditMenuTableStart2 : string index 280 read FOData__EditMenuTableStart2 write SetOData__EditMenuTableStart2;
  22802. Property OData__EditMenuTableEnd : string index 288 read FOData__EditMenuTableEnd write SetOData__EditMenuTableEnd;
  22803. Property LinkFilenameNoMenu : string index 296 read FLinkFilenameNoMenu write SetLinkFilenameNoMenu;
  22804. Property LinkFilename : string index 304 read FLinkFilename write SetLinkFilename;
  22805. Property LinkFilename2 : string index 312 read FLinkFilename2 write SetLinkFilename2;
  22806. Property DocIcon : string index 320 read FDocIcon write SetDocIcon;
  22807. Property ServerUrl : string index 328 read FServerUrl write SetServerUrl;
  22808. Property EncodedAbsUrl : string index 336 read FEncodedAbsUrl write SetEncodedAbsUrl;
  22809. Property BaseName : string index 344 read FBaseName write SetBaseName;
  22810. Property FileSizeDisplay : string index 352 read FFileSizeDisplay write SetFileSizeDisplay;
  22811. Property OData__Level : TInt32 index 360 read FOData__Level write SetOData__Level;
  22812. Property OData__IsCurrentVersion : boolean index 368 read FOData__IsCurrentVersion write SetOData__IsCurrentVersion;
  22813. Property AppAuthorId : TInt32 index 376 read FAppAuthorId write SetAppAuthorId;
  22814. Property AppEditorId : TInt32 index 384 read FAppEditorId write SetAppEditorId;
  22815. Property SelectTitle : string index 392 read FSelectTitle write SetSelectTitle;
  22816. Property SelectFilename : string index 400 read FSelectFilename write SetSelectFilename;
  22817. Property Edit : string index 408 read FEdit write SetEdit;
  22818. Property owshiddenversion : TInt32 index 416 read Fowshiddenversion write Setowshiddenversion;
  22819. Property OData__UIVersion : TInt32 index 424 read FOData__UIVersion write SetOData__UIVersion;
  22820. Property OData__UIVersionString : string index 432 read FOData__UIVersionString write SetOData__UIVersionString;
  22821. Property InstanceID : TInt32 index 440 read FInstanceID write SetInstanceID;
  22822. Property Order : Double index 448 read FOrder write SetOrder;
  22823. Property GUID : TGUIDString index 456 read FGUID write SetGUID;
  22824. Property WorkflowVersion : TInt32 index 464 read FWorkflowVersion write SetWorkflowVersion;
  22825. Property WorkflowInstanceID : TGUIDString index 472 read FWorkflowInstanceID write SetWorkflowInstanceID;
  22826. Property Title : string index 480 read FTitle write SetTitle;
  22827. Property TemplateUrl : string index 488 read FTemplateUrl write SetTemplateUrl;
  22828. Property xd_ProgID : string index 496 read Fxd_ProgID write Setxd_ProgID;
  22829. Property xd_Signature : boolean index 504 read Fxd_Signature write Setxd_Signature;
  22830. Property Combine : string index 512 read FCombine write SetCombine;
  22831. Property RepairDocument : string index 520 read FRepairDocument write SetRepairDocument;
  22832. end;
  22833. { --------------------------------------------------------------------
  22834. SP.Data: OData__x005f_catalogs_x002f_themeItem
  22835. --------------------------------------------------------------------}
  22836. TSP_DataOData__x005f_catalogs_x002f_themeItem = Class(TSPListItem)
  22837. private
  22838. FContentTypeId : string;
  22839. FCreated : TDateTime;
  22840. FAuthorId : TInt32;
  22841. FModified : TDateTime;
  22842. FEditorId : TInt32;
  22843. FOData__HasCopyDestinations : boolean;
  22844. FOData__CopySource : string;
  22845. FOData__ModerationStatus : TInt32;
  22846. FOData__ModerationComments : string;
  22847. FFileRef : string;
  22848. FFileDirRef : string;
  22849. FLast_x0020_Modified : TDateTime;
  22850. FCreated_x0020_Date : TDateTime;
  22851. FFSObjType : TInt32;
  22852. FPermMask : string;
  22853. FCheckoutUserId : TInt32;
  22854. FFileLeafRef : string;
  22855. FUniqueId : TGUIDString;
  22856. FOData__CheckinComment : string;
  22857. FLinkCheckedOutTitle : string;
  22858. FModified_x0020_By : string;
  22859. FCreated_x0020_By : string;
  22860. FFile_x0020_Type : string;
  22861. FHTML_x0020_File_x0020_Type : string;
  22862. FOData__SourceUrl : string;
  22863. FOData__SharedFileIndex : string;
  22864. FOData__EditMenuTableStart : string;
  22865. FOData__EditMenuTableStart2 : string;
  22866. FOData__EditMenuTableEnd : string;
  22867. FLinkFilenameNoMenu : string;
  22868. FLinkFilename : string;
  22869. FLinkFilename2 : string;
  22870. FDocIcon : string;
  22871. FServerUrl : string;
  22872. FEncodedAbsUrl : string;
  22873. FBaseName : string;
  22874. FFileSizeDisplay : string;
  22875. FOData__Level : TInt32;
  22876. FOData__IsCurrentVersion : boolean;
  22877. FAppAuthorId : TInt32;
  22878. FAppEditorId : TInt32;
  22879. FSelectTitle : string;
  22880. FSelectFilename : string;
  22881. FEdit : string;
  22882. Fowshiddenversion : TInt32;
  22883. FOData__UIVersion : TInt32;
  22884. FOData__UIVersionString : string;
  22885. FInstanceID : TInt32;
  22886. FOrder : Double;
  22887. FGUID : TGUIDString;
  22888. FWorkflowVersion : TInt32;
  22889. FWorkflowInstanceID : TGUIDString;
  22890. FThemeDescription : string;
  22891. procedure SetContentTypeId(AIndex: Integer; const AValue: string);
  22892. procedure SetCreated(AIndex: Integer; const AValue: TDateTime);
  22893. procedure SetAuthorId(AIndex: Integer; const AValue: TInt32);
  22894. procedure SetModified(AIndex: Integer; const AValue: TDateTime);
  22895. procedure SetEditorId(AIndex: Integer; const AValue: TInt32);
  22896. procedure SetOData__HasCopyDestinations(AIndex: Integer;
  22897. const AValue: boolean);
  22898. procedure SetOData__CopySource(AIndex: Integer; const AValue: string);
  22899. procedure SetOData__ModerationStatus(AIndex: Integer;
  22900. const AValue: TInt32);
  22901. procedure SetOData__ModerationComments(AIndex: Integer;
  22902. const AValue: string);
  22903. procedure SetFileRef(AIndex: Integer; const AValue: string);
  22904. procedure SetFileDirRef(AIndex: Integer; const AValue: string);
  22905. procedure SetLast_x0020_Modified(AIndex: Integer;
  22906. const AValue: TDateTime);
  22907. procedure SetCreated_x0020_Date(AIndex: Integer;
  22908. const AValue: TDateTime);
  22909. procedure SetFSObjType(AIndex: Integer; const AValue: TInt32);
  22910. procedure SetPermMask(AIndex: Integer; const AValue: string);
  22911. procedure SetCheckoutUserId(AIndex: Integer; const AValue: TInt32);
  22912. procedure SetFileLeafRef(AIndex: Integer; const AValue: string);
  22913. procedure SetUniqueId(AIndex: Integer; const AValue: TGUIDString);
  22914. procedure SetOData__CheckinComment(AIndex: Integer;
  22915. const AValue: string);
  22916. procedure SetLinkCheckedOutTitle(AIndex: Integer; const AValue: string);
  22917. procedure SetModified_x0020_By(AIndex: Integer; const AValue: string);
  22918. procedure SetCreated_x0020_By(AIndex: Integer; const AValue: string);
  22919. procedure SetFile_x0020_Type(AIndex: Integer; const AValue: string);
  22920. procedure SetHTML_x0020_File_x0020_Type(AIndex: Integer;
  22921. const AValue: string);
  22922. procedure SetOData__SourceUrl(AIndex: Integer; const AValue: string);
  22923. procedure SetOData__SharedFileIndex(AIndex: Integer;
  22924. const AValue: string);
  22925. procedure SetOData__EditMenuTableStart(AIndex: Integer;
  22926. const AValue: string);
  22927. procedure SetOData__EditMenuTableStart2(AIndex: Integer;
  22928. const AValue: string);
  22929. procedure SetOData__EditMenuTableEnd(AIndex: Integer;
  22930. const AValue: string);
  22931. procedure SetLinkFilenameNoMenu(AIndex: Integer; const AValue: string);
  22932. procedure SetLinkFilename(AIndex: Integer; const AValue: string);
  22933. procedure SetLinkFilename2(AIndex: Integer; const AValue: string);
  22934. procedure SetDocIcon(AIndex: Integer; const AValue: string);
  22935. procedure SetServerUrl(AIndex: Integer; const AValue: string);
  22936. procedure SetEncodedAbsUrl(AIndex: Integer; const AValue: string);
  22937. procedure SetBaseName(AIndex: Integer; const AValue: string);
  22938. procedure SetFileSizeDisplay(AIndex: Integer; const AValue: string);
  22939. procedure SetOData__Level(AIndex: Integer; const AValue: TInt32);
  22940. procedure SetOData__IsCurrentVersion(AIndex: Integer;
  22941. const AValue: boolean);
  22942. procedure SetAppAuthorId(AIndex: Integer; const AValue: TInt32);
  22943. procedure SetAppEditorId(AIndex: Integer; const AValue: TInt32);
  22944. procedure SetSelectTitle(AIndex: Integer; const AValue: string);
  22945. procedure SetSelectFilename(AIndex: Integer; const AValue: string);
  22946. procedure SetEdit(AIndex: Integer; const AValue: string);
  22947. procedure Setowshiddenversion(AIndex: Integer; const AValue: TInt32);
  22948. procedure SetOData__UIVersion(AIndex: Integer; const AValue: TInt32);
  22949. procedure SetOData__UIVersionString(AIndex: Integer;
  22950. const AValue: string);
  22951. procedure SetInstanceID(AIndex: Integer; const AValue: TInt32);
  22952. procedure SetOrder(AIndex: Integer; const AValue: Double);
  22953. procedure SetGUID(AIndex: Integer; const AValue: TGUIDString);
  22954. procedure SetWorkflowVersion(AIndex: Integer; const AValue: TInt32);
  22955. procedure SetWorkflowInstanceID(AIndex: Integer;
  22956. const AValue: TGUIDString);
  22957. procedure SetThemeDescription(AIndex: Integer; const AValue: string);
  22958. public
  22959. class function ObjectRestKind : String; Override;
  22960. function Author(AService: TODataService) : TSP_DataUserInfoItem;
  22961. function Editor(AService: TODataService) : TSP_DataUserInfoItem;
  22962. function CheckoutUser(AService: TODataService) : TSP_DataUserInfoItem;
  22963. published
  22964. Property ContentTypeId : string index 64 read FContentTypeId write SetContentTypeId;
  22965. Property Created : TDateTime index 72 read FCreated write SetCreated;
  22966. Property AuthorId : TInt32 index 80 read FAuthorId write SetAuthorId;
  22967. Property Modified : TDateTime index 88 read FModified write SetModified;
  22968. Property EditorId : TInt32 index 96 read FEditorId write SetEditorId;
  22969. Property OData__HasCopyDestinations : boolean index 104 read FOData__HasCopyDestinations write SetOData__HasCopyDestinations;
  22970. Property OData__CopySource : string index 112 read FOData__CopySource write SetOData__CopySource;
  22971. Property OData__ModerationStatus : TInt32 index 120 read FOData__ModerationStatus write SetOData__ModerationStatus;
  22972. Property OData__ModerationComments : string index 128 read FOData__ModerationComments write SetOData__ModerationComments;
  22973. Property FileRef : string index 136 read FFileRef write SetFileRef;
  22974. Property FileDirRef : string index 144 read FFileDirRef write SetFileDirRef;
  22975. Property Last_x0020_Modified : TDateTime index 152 read FLast_x0020_Modified write SetLast_x0020_Modified;
  22976. Property Created_x0020_Date : TDateTime index 160 read FCreated_x0020_Date write SetCreated_x0020_Date;
  22977. Property FSObjType : TInt32 index 168 read FFSObjType write SetFSObjType;
  22978. Property PermMask : string index 176 read FPermMask write SetPermMask;
  22979. Property CheckoutUserId : TInt32 index 184 read FCheckoutUserId write SetCheckoutUserId;
  22980. Property FileLeafRef : string index 192 read FFileLeafRef write SetFileLeafRef;
  22981. Property UniqueId : TGUIDString index 200 read FUniqueId write SetUniqueId;
  22982. Property OData__CheckinComment : string index 208 read FOData__CheckinComment write SetOData__CheckinComment;
  22983. Property LinkCheckedOutTitle : string index 216 read FLinkCheckedOutTitle write SetLinkCheckedOutTitle;
  22984. Property Modified_x0020_By : string index 224 read FModified_x0020_By write SetModified_x0020_By;
  22985. Property Created_x0020_By : string index 232 read FCreated_x0020_By write SetCreated_x0020_By;
  22986. Property File_x0020_Type : string index 240 read FFile_x0020_Type write SetFile_x0020_Type;
  22987. Property HTML_x0020_File_x0020_Type : string index 248 read FHTML_x0020_File_x0020_Type write SetHTML_x0020_File_x0020_Type;
  22988. Property OData__SourceUrl : string index 256 read FOData__SourceUrl write SetOData__SourceUrl;
  22989. Property OData__SharedFileIndex : string index 264 read FOData__SharedFileIndex write SetOData__SharedFileIndex;
  22990. Property OData__EditMenuTableStart : string index 272 read FOData__EditMenuTableStart write SetOData__EditMenuTableStart;
  22991. Property OData__EditMenuTableStart2 : string index 280 read FOData__EditMenuTableStart2 write SetOData__EditMenuTableStart2;
  22992. Property OData__EditMenuTableEnd : string index 288 read FOData__EditMenuTableEnd write SetOData__EditMenuTableEnd;
  22993. Property LinkFilenameNoMenu : string index 296 read FLinkFilenameNoMenu write SetLinkFilenameNoMenu;
  22994. Property LinkFilename : string index 304 read FLinkFilename write SetLinkFilename;
  22995. Property LinkFilename2 : string index 312 read FLinkFilename2 write SetLinkFilename2;
  22996. Property DocIcon : string index 320 read FDocIcon write SetDocIcon;
  22997. Property ServerUrl : string index 328 read FServerUrl write SetServerUrl;
  22998. Property EncodedAbsUrl : string index 336 read FEncodedAbsUrl write SetEncodedAbsUrl;
  22999. Property BaseName : string index 344 read FBaseName write SetBaseName;
  23000. Property FileSizeDisplay : string index 352 read FFileSizeDisplay write SetFileSizeDisplay;
  23001. Property OData__Level : TInt32 index 360 read FOData__Level write SetOData__Level;
  23002. Property OData__IsCurrentVersion : boolean index 368 read FOData__IsCurrentVersion write SetOData__IsCurrentVersion;
  23003. Property AppAuthorId : TInt32 index 376 read FAppAuthorId write SetAppAuthorId;
  23004. Property AppEditorId : TInt32 index 384 read FAppEditorId write SetAppEditorId;
  23005. Property SelectTitle : string index 392 read FSelectTitle write SetSelectTitle;
  23006. Property SelectFilename : string index 400 read FSelectFilename write SetSelectFilename;
  23007. Property Edit : string index 408 read FEdit write SetEdit;
  23008. Property owshiddenversion : TInt32 index 416 read Fowshiddenversion write Setowshiddenversion;
  23009. Property OData__UIVersion : TInt32 index 424 read FOData__UIVersion write SetOData__UIVersion;
  23010. Property OData__UIVersionString : string index 432 read FOData__UIVersionString write SetOData__UIVersionString;
  23011. Property InstanceID : TInt32 index 440 read FInstanceID write SetInstanceID;
  23012. Property Order : Double index 448 read FOrder write SetOrder;
  23013. Property GUID : TGUIDString index 456 read FGUID write SetGUID;
  23014. Property WorkflowVersion : TInt32 index 464 read FWorkflowVersion write SetWorkflowVersion;
  23015. Property WorkflowInstanceID : TGUIDString index 472 read FWorkflowInstanceID write SetWorkflowInstanceID;
  23016. Property ThemeDescription : string index 480 read FThemeDescription write SetThemeDescription;
  23017. end;
  23018. { --------------------------------------------------------------------
  23019. SP.Data: OData__x005f_catalogs_x002f_wpItem
  23020. --------------------------------------------------------------------}
  23021. TSP_DataOData__x005f_catalogs_x002f_wpItem = Class(TSPListItem)
  23022. private
  23023. FContentTypeId : string;
  23024. FCreated : TDateTime;
  23025. FAuthorId : TInt32;
  23026. FModified : TDateTime;
  23027. FEditorId : TInt32;
  23028. FOData__HasCopyDestinations : boolean;
  23029. FOData__CopySource : string;
  23030. FOData__ModerationStatus : TInt32;
  23031. FOData__ModerationComments : string;
  23032. FFileRef : string;
  23033. FFileDirRef : string;
  23034. FLast_x0020_Modified : TDateTime;
  23035. FCreated_x0020_Date : TDateTime;
  23036. FFSObjType : TInt32;
  23037. FPermMask : string;
  23038. FCheckoutUserId : TInt32;
  23039. FFileLeafRef : string;
  23040. FUniqueId : TGUIDString;
  23041. FOData__CheckinComment : string;
  23042. FLinkCheckedOutTitle : string;
  23043. FModified_x0020_By : string;
  23044. FCreated_x0020_By : string;
  23045. FFile_x0020_Type : string;
  23046. FHTML_x0020_File_x0020_Type : string;
  23047. FOData__SourceUrl : string;
  23048. FOData__SharedFileIndex : string;
  23049. FOData__EditMenuTableStart : string;
  23050. FOData__EditMenuTableStart2 : string;
  23051. FOData__EditMenuTableEnd : string;
  23052. FLinkFilenameNoMenu : string;
  23053. FLinkFilename : string;
  23054. FLinkFilename2 : string;
  23055. FDocIcon : string;
  23056. FServerUrl : string;
  23057. FEncodedAbsUrl : string;
  23058. FBaseName : string;
  23059. FFileSizeDisplay : string;
  23060. FOData__Level : TInt32;
  23061. FOData__IsCurrentVersion : boolean;
  23062. FAppAuthorId : TInt32;
  23063. FAppEditorId : TInt32;
  23064. FSelectTitle : string;
  23065. FSelectFilename : string;
  23066. FEdit : string;
  23067. Fowshiddenversion : TInt32;
  23068. FOData__UIVersion : TInt32;
  23069. FOData__UIVersionString : string;
  23070. FInstanceID : TInt32;
  23071. FOrder : Double;
  23072. FGUID : TGUIDString;
  23073. FWorkflowVersion : TInt32;
  23074. FWorkflowInstanceID : TGUIDString;
  23075. FTitle : string;
  23076. FWebPartDescription : string;
  23077. FWebPartAssembly : string;
  23078. FWebPartTypeName : string;
  23079. FWebPartPartImageLarge : string;
  23080. FLinkWebPart : string;
  23081. FWebPartIcon : string;
  23082. FGroup : string;
  23083. FQuickAddGroups : TStringArray;
  23084. procedure SetContentTypeId(AIndex: Integer; const AValue: string);
  23085. procedure SetCreated(AIndex: Integer; const AValue: TDateTime);
  23086. procedure SetAuthorId(AIndex: Integer; const AValue: TInt32);
  23087. procedure SetModified(AIndex: Integer; const AValue: TDateTime);
  23088. procedure SetEditorId(AIndex: Integer; const AValue: TInt32);
  23089. procedure SetOData__HasCopyDestinations(AIndex: Integer;
  23090. const AValue: boolean);
  23091. procedure SetOData__CopySource(AIndex: Integer; const AValue: string);
  23092. procedure SetOData__ModerationStatus(AIndex: Integer;
  23093. const AValue: TInt32);
  23094. procedure SetOData__ModerationComments(AIndex: Integer;
  23095. const AValue: string);
  23096. procedure SetFileRef(AIndex: Integer; const AValue: string);
  23097. procedure SetFileDirRef(AIndex: Integer; const AValue: string);
  23098. procedure SetLast_x0020_Modified(AIndex: Integer;
  23099. const AValue: TDateTime);
  23100. procedure SetCreated_x0020_Date(AIndex: Integer;
  23101. const AValue: TDateTime);
  23102. procedure SetFSObjType(AIndex: Integer; const AValue: TInt32);
  23103. procedure SetPermMask(AIndex: Integer; const AValue: string);
  23104. procedure SetCheckoutUserId(AIndex: Integer; const AValue: TInt32);
  23105. procedure SetFileLeafRef(AIndex: Integer; const AValue: string);
  23106. procedure SetUniqueId(AIndex: Integer; const AValue: TGUIDString);
  23107. procedure SetOData__CheckinComment(AIndex: Integer;
  23108. const AValue: string);
  23109. procedure SetLinkCheckedOutTitle(AIndex: Integer; const AValue: string);
  23110. procedure SetModified_x0020_By(AIndex: Integer; const AValue: string);
  23111. procedure SetCreated_x0020_By(AIndex: Integer; const AValue: string);
  23112. procedure SetFile_x0020_Type(AIndex: Integer; const AValue: string);
  23113. procedure SetHTML_x0020_File_x0020_Type(AIndex: Integer;
  23114. const AValue: string);
  23115. procedure SetOData__SourceUrl(AIndex: Integer; const AValue: string);
  23116. procedure SetOData__SharedFileIndex(AIndex: Integer;
  23117. const AValue: string);
  23118. procedure SetOData__EditMenuTableStart(AIndex: Integer;
  23119. const AValue: string);
  23120. procedure SetOData__EditMenuTableStart2(AIndex: Integer;
  23121. const AValue: string);
  23122. procedure SetOData__EditMenuTableEnd(AIndex: Integer;
  23123. const AValue: string);
  23124. procedure SetLinkFilenameNoMenu(AIndex: Integer; const AValue: string);
  23125. procedure SetLinkFilename(AIndex: Integer; const AValue: string);
  23126. procedure SetLinkFilename2(AIndex: Integer; const AValue: string);
  23127. procedure SetDocIcon(AIndex: Integer; const AValue: string);
  23128. procedure SetServerUrl(AIndex: Integer; const AValue: string);
  23129. procedure SetEncodedAbsUrl(AIndex: Integer; const AValue: string);
  23130. procedure SetBaseName(AIndex: Integer; const AValue: string);
  23131. procedure SetFileSizeDisplay(AIndex: Integer; const AValue: string);
  23132. procedure SetOData__Level(AIndex: Integer; const AValue: TInt32);
  23133. procedure SetOData__IsCurrentVersion(AIndex: Integer;
  23134. const AValue: boolean);
  23135. procedure SetAppAuthorId(AIndex: Integer; const AValue: TInt32);
  23136. procedure SetAppEditorId(AIndex: Integer; const AValue: TInt32);
  23137. procedure SetSelectTitle(AIndex: Integer; const AValue: string);
  23138. procedure SetSelectFilename(AIndex: Integer; const AValue: string);
  23139. procedure SetEdit(AIndex: Integer; const AValue: string);
  23140. procedure Setowshiddenversion(AIndex: Integer; const AValue: TInt32);
  23141. procedure SetOData__UIVersion(AIndex: Integer; const AValue: TInt32);
  23142. procedure SetOData__UIVersionString(AIndex: Integer;
  23143. const AValue: string);
  23144. procedure SetInstanceID(AIndex: Integer; const AValue: TInt32);
  23145. procedure SetOrder(AIndex: Integer; const AValue: Double);
  23146. procedure SetGUID(AIndex: Integer; const AValue: TGUIDString);
  23147. procedure SetWorkflowVersion(AIndex: Integer; const AValue: TInt32);
  23148. procedure SetWorkflowInstanceID(AIndex: Integer;
  23149. const AValue: TGUIDString);
  23150. procedure SetTitle(AIndex: Integer; const AValue: string);
  23151. procedure SetWebPartDescription(AIndex: Integer; const AValue: string);
  23152. procedure SetWebPartAssembly(AIndex: Integer; const AValue: string);
  23153. procedure SetWebPartTypeName(AIndex: Integer; const AValue: string);
  23154. procedure SetWebPartPartImageLarge(AIndex: Integer;
  23155. const AValue: string);
  23156. procedure SetLinkWebPart(AIndex: Integer; const AValue: string);
  23157. procedure SetWebPartIcon(AIndex: Integer; const AValue: string);
  23158. procedure SetGroup(AIndex: Integer; const AValue: string);
  23159. procedure SetQuickAddGroups(AIndex: Integer; const AValue: TStringArray);
  23160. protected
  23161. {$IFDEF VER2_6}
  23162. procedure SetArrayLength(const AName: String; ALength: Longint)
  23163. ; Override;
  23164. {$ENDIF VER2_6}
  23165. public
  23166. class function ObjectRestKind : String; Override;
  23167. function Author(AService: TODataService) : TSP_DataUserInfoItem;
  23168. function Editor(AService: TODataService) : TSP_DataUserInfoItem;
  23169. function CheckoutUser(AService: TODataService) : TSP_DataUserInfoItem;
  23170. published
  23171. Property ContentTypeId : string index 64 read FContentTypeId write SetContentTypeId;
  23172. Property Created : TDateTime index 72 read FCreated write SetCreated;
  23173. Property AuthorId : TInt32 index 80 read FAuthorId write SetAuthorId;
  23174. Property Modified : TDateTime index 88 read FModified write SetModified;
  23175. Property EditorId : TInt32 index 96 read FEditorId write SetEditorId;
  23176. Property OData__HasCopyDestinations : boolean index 104 read FOData__HasCopyDestinations write SetOData__HasCopyDestinations;
  23177. Property OData__CopySource : string index 112 read FOData__CopySource write SetOData__CopySource;
  23178. Property OData__ModerationStatus : TInt32 index 120 read FOData__ModerationStatus write SetOData__ModerationStatus;
  23179. Property OData__ModerationComments : string index 128 read FOData__ModerationComments write SetOData__ModerationComments;
  23180. Property FileRef : string index 136 read FFileRef write SetFileRef;
  23181. Property FileDirRef : string index 144 read FFileDirRef write SetFileDirRef;
  23182. Property Last_x0020_Modified : TDateTime index 152 read FLast_x0020_Modified write SetLast_x0020_Modified;
  23183. Property Created_x0020_Date : TDateTime index 160 read FCreated_x0020_Date write SetCreated_x0020_Date;
  23184. Property FSObjType : TInt32 index 168 read FFSObjType write SetFSObjType;
  23185. Property PermMask : string index 176 read FPermMask write SetPermMask;
  23186. Property CheckoutUserId : TInt32 index 184 read FCheckoutUserId write SetCheckoutUserId;
  23187. Property FileLeafRef : string index 192 read FFileLeafRef write SetFileLeafRef;
  23188. Property UniqueId : TGUIDString index 200 read FUniqueId write SetUniqueId;
  23189. Property OData__CheckinComment : string index 208 read FOData__CheckinComment write SetOData__CheckinComment;
  23190. Property LinkCheckedOutTitle : string index 216 read FLinkCheckedOutTitle write SetLinkCheckedOutTitle;
  23191. Property Modified_x0020_By : string index 224 read FModified_x0020_By write SetModified_x0020_By;
  23192. Property Created_x0020_By : string index 232 read FCreated_x0020_By write SetCreated_x0020_By;
  23193. Property File_x0020_Type : string index 240 read FFile_x0020_Type write SetFile_x0020_Type;
  23194. Property HTML_x0020_File_x0020_Type : string index 248 read FHTML_x0020_File_x0020_Type write SetHTML_x0020_File_x0020_Type;
  23195. Property OData__SourceUrl : string index 256 read FOData__SourceUrl write SetOData__SourceUrl;
  23196. Property OData__SharedFileIndex : string index 264 read FOData__SharedFileIndex write SetOData__SharedFileIndex;
  23197. Property OData__EditMenuTableStart : string index 272 read FOData__EditMenuTableStart write SetOData__EditMenuTableStart;
  23198. Property OData__EditMenuTableStart2 : string index 280 read FOData__EditMenuTableStart2 write SetOData__EditMenuTableStart2;
  23199. Property OData__EditMenuTableEnd : string index 288 read FOData__EditMenuTableEnd write SetOData__EditMenuTableEnd;
  23200. Property LinkFilenameNoMenu : string index 296 read FLinkFilenameNoMenu write SetLinkFilenameNoMenu;
  23201. Property LinkFilename : string index 304 read FLinkFilename write SetLinkFilename;
  23202. Property LinkFilename2 : string index 312 read FLinkFilename2 write SetLinkFilename2;
  23203. Property DocIcon : string index 320 read FDocIcon write SetDocIcon;
  23204. Property ServerUrl : string index 328 read FServerUrl write SetServerUrl;
  23205. Property EncodedAbsUrl : string index 336 read FEncodedAbsUrl write SetEncodedAbsUrl;
  23206. Property BaseName : string index 344 read FBaseName write SetBaseName;
  23207. Property FileSizeDisplay : string index 352 read FFileSizeDisplay write SetFileSizeDisplay;
  23208. Property OData__Level : TInt32 index 360 read FOData__Level write SetOData__Level;
  23209. Property OData__IsCurrentVersion : boolean index 368 read FOData__IsCurrentVersion write SetOData__IsCurrentVersion;
  23210. Property AppAuthorId : TInt32 index 376 read FAppAuthorId write SetAppAuthorId;
  23211. Property AppEditorId : TInt32 index 384 read FAppEditorId write SetAppEditorId;
  23212. Property SelectTitle : string index 392 read FSelectTitle write SetSelectTitle;
  23213. Property SelectFilename : string index 400 read FSelectFilename write SetSelectFilename;
  23214. Property Edit : string index 408 read FEdit write SetEdit;
  23215. Property owshiddenversion : TInt32 index 416 read Fowshiddenversion write Setowshiddenversion;
  23216. Property OData__UIVersion : TInt32 index 424 read FOData__UIVersion write SetOData__UIVersion;
  23217. Property OData__UIVersionString : string index 432 read FOData__UIVersionString write SetOData__UIVersionString;
  23218. Property InstanceID : TInt32 index 440 read FInstanceID write SetInstanceID;
  23219. Property Order : Double index 448 read FOrder write SetOrder;
  23220. Property GUID : TGUIDString index 456 read FGUID write SetGUID;
  23221. Property WorkflowVersion : TInt32 index 464 read FWorkflowVersion write SetWorkflowVersion;
  23222. Property WorkflowInstanceID : TGUIDString index 472 read FWorkflowInstanceID write SetWorkflowInstanceID;
  23223. Property Title : string index 480 read FTitle write SetTitle;
  23224. Property WebPartDescription : string index 488 read FWebPartDescription write SetWebPartDescription;
  23225. Property WebPartAssembly : string index 496 read FWebPartAssembly write SetWebPartAssembly;
  23226. Property WebPartTypeName : string index 504 read FWebPartTypeName write SetWebPartTypeName;
  23227. Property WebPartPartImageLarge : string index 512 read FWebPartPartImageLarge write SetWebPartPartImageLarge;
  23228. Property LinkWebPart : string index 520 read FLinkWebPart write SetLinkWebPart;
  23229. Property WebPartIcon : string index 528 read FWebPartIcon write SetWebPartIcon;
  23230. Property Group : string index 536 read FGroup write SetGroup;
  23231. Property QuickAddGroups : TStringArray index 544 read FQuickAddGroups write SetQuickAddGroups;
  23232. end;
  23233. { --------------------------------------------------------------------
  23234. SP: ApiData
  23235. --------------------------------------------------------------------}
  23236. TSPApiData = Class(TODataEntityContainer)
  23237. private
  23238. FApps : TSPAppsEntitySet;
  23239. FFiles : TSPFilesEntitySet;
  23240. FLists : TSPListsEntitySet;
  23241. FMes : TSPMesEntitySet;
  23242. FSites : TSPSitesEntitySet;
  23243. FWebs : TSPWebsEntitySet;
  23244. FAppStores : TSPAppStoresEntitySet;
  23245. FConnectionSettingss : TSPConnectionSettingssEntitySet;
  23246. FTargetApplications : TSPTargetApplicationsEntitySet;
  23247. FTargetApplicationFields : TSPTargetApplicationFieldsEntitySet;
  23248. FReputations : TSPReputationsEntitySet;
  23249. FSearchServices : TSPSearchServicesEntitySet;
  23250. FApps1 : TSPApps1EntitySet;
  23251. FPointPublishingAdmins : TSPPointPublishingAdminsEntitySet;
  23252. FDDIAdapters : TSPDDIAdaptersEntitySet;
  23253. FSPOTenantWebTemplateCollections : TSPSPOTenantWebTemplateCollectionsEntitySet;
  23254. FExternalUsers : TSPExternalUsersEntitySet;
  23255. FGetExternalUsersResultss : TSPGetExternalUsersResultssEntitySet;
  23256. FOffice365Tenants : TSPOffice365TenantsEntitySet;
  23257. FRemoveExternalUsersResultss : TSPRemoveExternalUsersResultssEntitySet;
  23258. FFeatureDefinitions : TSPFeatureDefinitionsEntitySet;
  23259. FSPAnalyticsUsageServices : TSPSPAnalyticsUsageServicesEntitySet;
  23260. FSPAppStateQueryJobDefinitions : TSPSPAppStateQueryJobDefinitionsEntitySet;
  23261. FSPFarms : TSPSPFarmsEntitySet;
  23262. FSPTenantAppInstanceDatas : TSPSPTenantAppInstanceDatasEntitySet;
  23263. FSPWebApplications : TSPSPWebApplicationsEntitySet;
  23264. FSPWebServices : TSPSPWebServicesEntitySet;
  23265. FSPAppPrincipalInfos : TSPSPAppPrincipalInfosEntitySet;
  23266. FDocumentCrawlLogs : TSPDocumentCrawlLogsEntitySet;
  23267. FSignalStores : TSPSignalStoresEntitySet;
  23268. FQueryPersonalizationDatas : TSPQueryPersonalizationDatasEntitySet;
  23269. FRankingLabelings : TSPRankingLabelingsEntitySet;
  23270. FReorderingRuleCollections : TSPReorderingRuleCollectionsEntitySet;
  23271. FSortCollections : TSPSortCollectionsEntitySet;
  23272. FStringCollections : TSPStringCollectionsEntitySet;
  23273. FSPFlights : TSPSPFlightsEntitySet;
  23274. FSPCorporateCuratedGallerySettingsBases : TSPSPCorporateCuratedGallerySettingsBasesEntitySet;
  23275. FSPCorporateCuratedGallerySettingsFactorys : TSPSPCorporateCuratedGallerySettingsFactorysEntitySet;
  23276. FSPMarketplaceSettingss : TSPSPMarketplaceSettingssEntitySet;
  23277. FNavigationServiceRests : TSPNavigationServiceRestsEntitySet;
  23278. FAppDetailss : TSPAppDetailssEntitySet;
  23279. FAppIconInfos : TSPAppIconInfosEntitySet;
  23280. FCollaborationMailboxs : TSPCollaborationMailboxsEntitySet;
  23281. FCommunityModerations : TSPCommunityModerationsEntitySet;
  23282. FMySiteRecommendationss : TSPMySiteRecommendationssEntitySet;
  23283. FDocumentsSharedWithGroups : TSPDocumentsSharedWithGroupsEntitySet;
  23284. FDocumentsSharedWithMes : TSPDocumentsSharedWithMesEntitySet;
  23285. FDocumentsSharedWithPersons : TSPDocumentsSharedWithPersonsEntitySet;
  23286. FMySiteDismissStatusTexts : TSPMySiteDismissStatusTextsEntitySet;
  23287. FMySiteDocumentMoveUtilitys : TSPMySiteDocumentMoveUtilitysEntitySet;
  23288. FMySiteLinkss : TSPMySiteLinkssEntitySet;
  23289. FPromotedSitess : TSPPromotedSitessEntitySet;
  23290. FSharedWithMeDocuments : TSPSharedWithMeDocumentsEntitySet;
  23291. FRecentDocuments : TSPRecentDocumentsEntitySet;
  23292. FModuleLinks : TSPModuleLinksEntitySet;
  23293. FResourceManifestInformations : TSPResourceManifestInformationsEntitySet;
  23294. FWacApis : TSPWacApisEntitySet;
  23295. FEntityItems : TSPEntityItemsEntitySet;
  23296. FEntityTypes : TSPEntityTypesEntitySet;
  23297. FEntityTypeBases : TSPEntityTypeBasesEntitySet;
  23298. FExternalEntityTypes : TSPExternalEntityTypesEntitySet;
  23299. FFields : TSPFieldsEntitySet;
  23300. FODataStoreContexts : TSPODataStoreContextsEntitySet;
  23301. FRequestContexts : TSPRequestContextsEntitySet;
  23302. FSqlStoreContexts : TSPSqlStoreContextsEntitySet;
  23303. FStoreContextBases : TSPStoreContextBasesEntitySet;
  23304. FFiles1 : TSPFiles1EntitySet;
  23305. FFileServices : TSPFileServicesEntitySet;
  23306. FFolders : TSPFoldersEntitySet;
  23307. FMeFileServices : TSPMeFileServicesEntitySet;
  23308. FDiagnosticss : TSPDiagnosticssEntitySet;
  23309. FReportings : TSPReportingsEntitySet;
  23310. FTaskflows : TSPTaskflowsEntitySet;
  23311. FAssignments : TSPAssignmentsEntitySet;
  23312. FBaseCalendarExceptions : TSPBaseCalendarExceptionsEntitySet;
  23313. FCalendars : TSPCalendarsEntitySet;
  23314. FCalendarExceptions : TSPCalendarExceptionsEntitySet;
  23315. FCustomFields : TSPCustomFieldsEntitySet;
  23316. FDraftAssignments : TSPDraftAssignmentsEntitySet;
  23317. FDraftProjects : TSPDraftProjectsEntitySet;
  23318. FDraftProjectResources : TSPDraftProjectResourcesEntitySet;
  23319. FDraftTasks : TSPDraftTasksEntitySet;
  23320. FDraftTaskLinks : TSPDraftTaskLinksEntitySet;
  23321. FEnterpriseProjectTypes : TSPEnterpriseProjectTypesEntitySet;
  23322. FEnterpriseResources : TSPEnterpriseResourcesEntitySet;
  23323. FEntityTypes1 : TSPEntityTypes1EntitySet;
  23324. FEntityTypess : TSPEntityTypessEntitySet;
  23325. FEvents : TSPEventsEntitySet;
  23326. FEventHandlers : TSPEventHandlersEntitySet;
  23327. FLookupCosts : TSPLookupCostsEntitySet;
  23328. FLookupDates : TSPLookupDatesEntitySet;
  23329. FLookupDurations : TSPLookupDurationsEntitySet;
  23330. FLookupEntrys : TSPLookupEntrysEntitySet;
  23331. FLookupNumbers : TSPLookupNumbersEntitySet;
  23332. FLookupTables : TSPLookupTablesEntitySet;
  23333. FLookupTabless : TSPLookupTablessEntitySet;
  23334. FLookupTexts : TSPLookupTextsEntitySet;
  23335. FPhases : TSPPhasesEntitySet;
  23336. FPlanAssignments : TSPPlanAssignmentsEntitySet;
  23337. FPlanAssignmentIntervals : TSPPlanAssignmentIntervalsEntitySet;
  23338. FProjects : TSPProjectsEntitySet;
  23339. FProjectDetailPages : TSPProjectDetailPagesEntitySet;
  23340. FProjectResources : TSPProjectResourcesEntitySet;
  23341. FProjectServers : TSPProjectServersEntitySet;
  23342. FProjectServerDatas : TSPProjectServerDatasEntitySet;
  23343. FPublishedAssignments : TSPPublishedAssignmentsEntitySet;
  23344. FPublishedProjects : TSPPublishedProjectsEntitySet;
  23345. FPublishedProjectResources : TSPPublishedProjectResourcesEntitySet;
  23346. FPublishedTasks : TSPPublishedTasksEntitySet;
  23347. FPublishedTaskLinks : TSPPublishedTaskLinksEntitySet;
  23348. FQueueJobs : TSPQueueJobsEntitySet;
  23349. FResourceCalendarExceptions : TSPResourceCalendarExceptionsEntitySet;
  23350. FResourcePlans : TSPResourcePlansEntitySet;
  23351. FServiceStatuss : TSPServiceStatussEntitySet;
  23352. FStages : TSPStagesEntitySet;
  23353. FStageCustomFields : TSPStageCustomFieldsEntitySet;
  23354. FStageDetailPages : TSPStageDetailPagesEntitySet;
  23355. FStatusAssignments : TSPStatusAssignmentsEntitySet;
  23356. FStatusTasks : TSPStatusTasksEntitySet;
  23357. FTasks : TSPTasksEntitySet;
  23358. FTaskLinks : TSPTaskLinksEntitySet;
  23359. FTaskServiceOdataEndpoints : TSPTaskServiceOdataEndpointsEntitySet;
  23360. FTimePhases : TSPTimePhasesEntitySet;
  23361. FTimeSheets : TSPTimeSheetsEntitySet;
  23362. FTimeSheetLines : TSPTimeSheetLinesEntitySet;
  23363. FTimeSheetPeriods : TSPTimeSheetPeriodsEntitySet;
  23364. FTimeSheetWorks : TSPTimeSheetWorksEntitySet;
  23365. FWorkflowActivitiess : TSPWorkflowActivitiessEntitySet;
  23366. FWorkflowDesigners : TSPWorkflowDesignersEntitySet;
  23367. FWorkflowDesignerFields : TSPWorkflowDesignerFieldsEntitySet;
  23368. FAccessRequestss : TSPAccessRequestssEntitySet;
  23369. FAlternateUrls : TSPAlternateUrlsEntitySet;
  23370. FAnalyticsUsageEntrys : TSPAnalyticsUsageEntrysEntitySet;
  23371. FApiMetadatas : TSPApiMetadatasEntitySet;
  23372. FApps12 : TSPApps12EntitySet;
  23373. FAppCatalogs : TSPAppCatalogsEntitySet;
  23374. FAppContextSites : TSPAppContextSitesEntitySet;
  23375. FAppInstances : TSPAppInstancesEntitySet;
  23376. FAppInstanceErrorDetailss : TSPAppInstanceErrorDetailssEntitySet;
  23377. FAppTiles : TSPAppTilesEntitySet;
  23378. FAttachments : TSPAttachmentsEntitySet;
  23379. FAudits : TSPAuditsEntitySet;
  23380. FAppBdcCatalogs : TSPAppBdcCatalogsEntitySet;
  23381. FEntitys : TSPEntitysEntitySet;
  23382. FEntityFields : TSPEntityFieldsEntitySet;
  23383. FEntityIdentifiers : TSPEntityIdentifiersEntitySet;
  23384. FEntityViews : TSPEntityViewsEntitySet;
  23385. FFilters : TSPFiltersEntitySet;
  23386. FExternalSubscriptionStores : TSPExternalSubscriptionStoresEntitySet;
  23387. FLobSystems : TSPLobSystemsEntitySet;
  23388. FLobSystemInstances : TSPLobSystemInstancesEntitySet;
  23389. FMethodExecutionResults : TSPMethodExecutionResultsEntitySet;
  23390. FEntityFieldValueDictionarys : TSPEntityFieldValueDictionarysEntitySet;
  23391. FEntityIdentitys : TSPEntityIdentitysEntitySet;
  23392. FEntityInstances : TSPEntityInstancesEntitySet;
  23393. FNotificationCallbacks : TSPNotificationCallbacksEntitySet;
  23394. FSubscriptions : TSPSubscriptionsEntitySet;
  23395. FTypeDescriptors : TSPTypeDescriptorsEntitySet;
  23396. FChanges : TSPChangesEntitySet;
  23397. FCompatibilityRanges : TSPCompatibilityRangesEntitySet;
  23398. FPolicyEvaluationInfos : TSPPolicyEvaluationInfosEntitySet;
  23399. FSPPolicyStoreProxys : TSPSPPolicyStoreProxysEntitySet;
  23400. FContentTypes : TSPContentTypesEntitySet;
  23401. FCreatablesInfos : TSPCreatablesInfosEntitySet;
  23402. FDirectorySessions : TSPDirectorySessionsEntitySet;
  23403. FGroups : TSPGroupsEntitySet;
  23404. FGroupAndUserStatuss : TSPGroupAndUserStatussEntitySet;
  23405. FLinkCollections : TSPLinkCollectionsEntitySet;
  23406. FMembershipResults : TSPMembershipResultsEntitySet;
  23407. FMembersInfos : TSPMembersInfosEntitySet;
  23408. FMyGroupsResults : TSPMyGroupsResultsEntitySet;
  23409. FPropertys : TSPPropertysEntitySet;
  23410. FPropertyDictionarys : TSPPropertyDictionarysEntitySet;
  23411. FSharePointDirectoryProviders : TSPSharePointDirectoryProvidersEntitySet;
  23412. FSPHelpers : TSPSPHelpersEntitySet;
  23413. FUsers : TSPUsersEntitySet;
  23414. FUserRequestSchemas : TSPUserRequestSchemasEntitySet;
  23415. FDlpPolicyTips : TSPDlpPolicyTipsEntitySet;
  23416. FEventReceiverDefinitions : TSPEventReceiverDefinitionsEntitySet;
  23417. FFeatures : TSPFeaturesEntitySet;
  23418. FFields1 : TSPFields1EntitySet;
  23419. FFieldLinks : TSPFieldLinksEntitySet;
  23420. FFieldStringValuess : TSPFieldStringValuessEntitySet;
  23421. FFiles12 : TSPFiles12EntitySet;
  23422. FFileVersions : TSPFileVersionsEntitySet;
  23423. FFolders1 : TSPFolders1EntitySet;
  23424. FForms : TSPFormsEntitySet;
  23425. FGroups1 : TSPGroups1EntitySet;
  23426. FInformationRightsManagementSettingss : TSPInformationRightsManagementSettingssEntitySet;
  23427. FListItems : TSPListItemsEntitySet;
  23428. FListTemplates : TSPListTemplatesEntitySet;
  23429. FMicrofeedAttachmentStores : TSPMicrofeedAttachmentStoresEntitySet;
  23430. FMicrofeedDatas : TSPMicrofeedDatasEntitySet;
  23431. FMicrofeedManagers : TSPMicrofeedManagersEntitySet;
  23432. FMicrofeedPostDefinitionManagers : TSPMicrofeedPostDefinitionManagersEntitySet;
  23433. FMicrofeedPostOptionCollections : TSPMicrofeedPostOptionCollectionsEntitySet;
  23434. FMicrofeedStores : TSPMicrofeedStoresEntitySet;
  23435. FMountedFolderInfos : TSPMountedFolderInfosEntitySet;
  23436. FMountPoints : TSPMountPointsEntitySet;
  23437. FMountPointInfos : TSPMountPointInfosEntitySet;
  23438. FMoveCopyUtils : TSPMoveCopyUtilsEntitySet;
  23439. FNavigations : TSPNavigationsEntitySet;
  23440. FNavigationNodes : TSPNavigationNodesEntitySet;
  23441. FNativeClients : TSPNativeClientsEntitySet;
  23442. FObjectSharingInformations : TSPObjectSharingInformationsEntitySet;
  23443. FObjectSharingInformationUsers : TSPObjectSharingInformationUsersEntitySet;
  23444. FObjectSharingSettingss : TSPObjectSharingSettingssEntitySet;
  23445. FClickManagers : TSPClickManagersEntitySet;
  23446. FPickerSettingss : TSPPickerSettingssEntitySet;
  23447. FPrincipals : TSPPrincipalsEntitySet;
  23448. FPropertyValuess : TSPPropertyValuessEntitySet;
  23449. FPersonMagazines : TSPPersonMagazinesEntitySet;
  23450. FPointPublishingDocPropss : TSPPointPublishingDocPropssEntitySet;
  23451. FPointPublishingMagazinePropss : TSPPointPublishingMagazinePropssEntitySet;
  23452. FPointPublishingPosts : TSPPointPublishingPostsEntitySet;
  23453. FPointPublishingPostServiceManagers : TSPPointPublishingPostServiceManagersEntitySet;
  23454. FPointPublishingSiteManagers : TSPPointPublishingSiteManagersEntitySet;
  23455. FPointPublishingSiteStatuss : TSPPointPublishingSiteStatussEntitySet;
  23456. FPointPublishingUsers : TSPPointPublishingUsersEntitySet;
  23457. FSearchs : TSPSearchsEntitySet;
  23458. FSpotlightChannels : TSPSpotlightChannelsEntitySet;
  23459. FSpotlightVideos : TSPSpotlightVideosEntitySet;
  23460. FVideoChannels : TSPVideoChannelsEntitySet;
  23461. FVideoItems : TSPVideoItemsEntitySet;
  23462. FVideoPermissionGroups : TSPVideoPermissionGroupsEntitySet;
  23463. FVideoServiceDiscoverers : TSPVideoServiceDiscoverersEntitySet;
  23464. FVideoServiceManagers : TSPVideoServiceManagersEntitySet;
  23465. FPushNotificationSubscribers : TSPPushNotificationSubscribersEntitySet;
  23466. FRecycleBinItems : TSPRecycleBinItemsEntitySet;
  23467. FRegionalSettingss : TSPRegionalSettingssEntitySet;
  23468. FRelatedFields : TSPRelatedFieldsEntitySet;
  23469. FRelatedItemManagers : TSPRelatedItemManagersEntitySet;
  23470. FRemoteWebs : TSPRemoteWebsEntitySet;
  23471. FRequestContexts1 : TSPRequestContexts1EntitySet;
  23472. FRoleAssignments : TSPRoleAssignmentsEntitySet;
  23473. FRoleDefinitions : TSPRoleDefinitionsEntitySet;
  23474. FSecurableObjects : TSPSecurableObjectsEntitySet;
  23475. FServerSettingss : TSPServerSettingssEntitySet;
  23476. FSharePointSharingSettingss : TSPSharePointSharingSettingssEntitySet;
  23477. FDocumentSharingManagers : TSPDocumentSharingManagersEntitySet;
  23478. FWebSharingManagers : TSPWebSharingManagersEntitySet;
  23479. FSharingResults : TSPSharingResultsEntitySet;
  23480. FSiteHealthSummarys : TSPSiteHealthSummarysEntitySet;
  23481. FSiteUrls : TSPSiteUrlsEntitySet;
  23482. FSocialAnnouncementManagers : TSPSocialAnnouncementManagersEntitySet;
  23483. FSocialFeedManagers : TSPSocialFeedManagersEntitySet;
  23484. FSocialFollowingManagers : TSPSocialFollowingManagersEntitySet;
  23485. FSocialRestActors : TSPSocialRestActorsEntitySet;
  23486. FSocialRestFeeds : TSPSocialRestFeedsEntitySet;
  23487. FSocialRestFeedManagers : TSPSocialRestFeedManagersEntitySet;
  23488. FSocialRestFollowingManagers : TSPSocialRestFollowingManagersEntitySet;
  23489. FSocialRestThreads : TSPSocialRestThreadsEntitySet;
  23490. FSolutionExporters : TSPSolutionExportersEntitySet;
  23491. FSPAppLicenseManagers : TSPSPAppLicenseManagersEntitySet;
  23492. FSPDataLeakagePreventionStatusInfos : TSPSPDataLeakagePreventionStatusInfosEntitySet;
  23493. FTenantAppInstances : TSPTenantAppInstancesEntitySet;
  23494. FTenantAppUtilitys : TSPTenantAppUtilitysEntitySet;
  23495. FTenantSettingss : TSPTenantSettingssEntitySet;
  23496. FThemeInfos : TSPThemeInfosEntitySet;
  23497. FTimeZones : TSPTimeZonesEntitySet;
  23498. FSyncTranslators : TSPSyncTranslatorsEntitySet;
  23499. FTranslationJobs : TSPTranslationJobsEntitySet;
  23500. FTranslationJobStatuss : TSPTranslationJobStatussEntitySet;
  23501. FVariationsTranslationTimerJobs : TSPVariationsTranslationTimerJobsEntitySet;
  23502. FTypeInformations : TSPTypeInformationsEntitySet;
  23503. FClientPeoplePickerWebServiceInterfaces : TSPClientPeoplePickerWebServiceInterfacesEntitySet;
  23504. FUsers1 : TSPUsers1EntitySet;
  23505. FUserCustomActions : TSPUserCustomActionsEntitySet;
  23506. FFollowedContents : TSPFollowedContentsEntitySet;
  23507. FFollowedItemDatas : TSPFollowedItemDatasEntitySet;
  23508. FHashTagCollections : TSPHashTagCollectionsEntitySet;
  23509. FPeopleManagers : TSPPeopleManagersEntitySet;
  23510. FPersonPropertiess : TSPPersonPropertiessEntitySet;
  23511. FProfileImageStores : TSPProfileImageStoresEntitySet;
  23512. FProfileLoaders : TSPProfileLoadersEntitySet;
  23513. FUserProfiles : TSPUserProfilesEntitySet;
  23514. FUserProfilePropertiesForUsers : TSPUserProfilePropertiesForUsersEntitySet;
  23515. FUserResources : TSPUserResourcesEntitySet;
  23516. FUserSolutions : TSPUserSolutionsEntitySet;
  23517. FMarketplaceUtilitiess : TSPMarketplaceUtilitiessEntitySet;
  23518. FUtilitys : TSPUtilitysEntitySet;
  23519. FViews : TSPViewsEntitySet;
  23520. FViewFieldCollections : TSPViewFieldCollectionsEntitySet;
  23521. FWebInformations : TSPWebInformationsEntitySet;
  23522. FLimitedWebPartManagers : TSPLimitedWebPartManagersEntitySet;
  23523. FWebParts : TSPWebPartsEntitySet;
  23524. FWebPartDefinitions : TSPWebPartDefinitionsEntitySet;
  23525. FWebProxys : TSPWebProxysEntitySet;
  23526. FWebTemplates : TSPWebTemplatesEntitySet;
  23527. FSPWorkflows : TSPSPWorkflowsEntitySet;
  23528. FSPWorkflowManagers : TSPSPWorkflowManagersEntitySet;
  23529. FWorkflowAssociations : TSPWorkflowAssociationsEntitySet;
  23530. FWorkflowTemplates : TSPWorkflowTemplatesEntitySet;
  23531. FInteropServices : TSPInteropServicesEntitySet;
  23532. FWorkflowDefinitions : TSPWorkflowDefinitionsEntitySet;
  23533. FWorkflowDeploymentServices : TSPWorkflowDeploymentServicesEntitySet;
  23534. FWorkflowInstances : TSPWorkflowInstancesEntitySet;
  23535. FWorkflowInstanceServices : TSPWorkflowInstanceServicesEntitySet;
  23536. FWorkflowMessagingServices : TSPWorkflowMessagingServicesEntitySet;
  23537. FWorkflowServicesManagers : TSPWorkflowServicesManagersEntitySet;
  23538. FWorkflowSubscriptions : TSPWorkflowSubscriptionsEntitySet;
  23539. FWorkflowSubscriptionServices : TSPWorkflowSubscriptionServicesEntitySet;
  23540. FBaseSessions : TSPBaseSessionsEntitySet;
  23541. FBooleanCriterions : TSPBooleanCriterionsEntitySet;
  23542. FCalloutInfos : TSPCalloutInfosEntitySet;
  23543. FCreateRefreshJobResults : TSPCreateRefreshJobResultsEntitySet;
  23544. FCustomAttributeFilters : TSPCustomAttributeFiltersEntitySet;
  23545. FDashboardScriptExtensionInfos : TSPDashboardScriptExtensionInfosEntitySet;
  23546. FDateRangeCriterions : TSPDateRangeCriterionsEntitySet;
  23547. FExchangeUserSyncStates : TSPExchangeUserSyncStatesEntitySet;
  23548. FLocations : TSPLocationsEntitySet;
  23549. FLocationDisplaySettings : TSPLocationDisplaySettingsEntitySet;
  23550. FLocationFilters : TSPLocationFiltersEntitySet;
  23551. FLocationUpdateResults : TSPLocationUpdateResultsEntitySet;
  23552. FNameCriterions : TSPNameCriterionsEntitySet;
  23553. FNonTaskDataReadResults : TSPNonTaskDataReadResultsEntitySet;
  23554. FOrderInfos : TSPOrderInfosEntitySet;
  23555. FPersistedPropertiess : TSPPersistedPropertiessEntitySet;
  23556. FProviderErrorInfos : TSPProviderErrorInfosEntitySet;
  23557. FProviderRefreshStatuss : TSPProviderRefreshStatussEntitySet;
  23558. FRefreshHealthInfos : TSPRefreshHealthInfosEntitySet;
  23559. FRefreshHistorys : TSPRefreshHistorysEntitySet;
  23560. FRefreshResults : TSPRefreshResultsEntitySet;
  23561. FSortableSessionManagers : TSPSortableSessionManagersEntitySet;
  23562. FSortableTaskQuerys : TSPSortableTaskQuerysEntitySet;
  23563. FTasks1 : TSPTasks1EntitySet;
  23564. FTaskFilters : TSPTaskFiltersEntitySet;
  23565. FTaskQuerys : TSPTaskQuerysEntitySet;
  23566. FTaskQueryByLocationResults : TSPTaskQueryByLocationResultsEntitySet;
  23567. FTaskQueryResults : TSPTaskQueryResultsEntitySet;
  23568. FTaskRefreshResults : TSPTaskRefreshResultsEntitySet;
  23569. FTaskWriteResults : TSPTaskWriteResultsEntitySet;
  23570. FUserOrderedSessionManagers : TSPUserOrderedSessionManagersEntitySet;
  23571. FUserSettingss : TSPUserSettingssEntitySet;
  23572. FUserSettingsManagers : TSPUserSettingsManagersEntitySet;
  23573. FViewSelectionInfos : TSPViewSelectionInfosEntitySet;
  23574. FSPOIdentityHelpers : TSPSPOIdentityHelpersEntitySet;
  23575. FAppPrincipalIdentityProviders : TSPAppPrincipalIdentityProvidersEntitySet;
  23576. FAppPrincipalManagers : TSPAppPrincipalManagersEntitySet;
  23577. FAppPrincipalCredentials : TSPAppPrincipalCredentialsEntitySet;
  23578. FAppPrincipalNames : TSPAppPrincipalNamesEntitySet;
  23579. FDraftProjectResources1 : TSPDraftProjectResources1EntitySet;
  23580. function GetApps : TSPAppsEntitySet;
  23581. function GetFiles : TSPFilesEntitySet;
  23582. function GetLists : TSPListsEntitySet;
  23583. function GetMes : TSPMesEntitySet;
  23584. function GetSites : TSPSitesEntitySet;
  23585. function GetWebs : TSPWebsEntitySet;
  23586. function GetAppStores : TSPAppStoresEntitySet;
  23587. function GetConnectionSettingss : TSPConnectionSettingssEntitySet;
  23588. function GetTargetApplications : TSPTargetApplicationsEntitySet;
  23589. function GetTargetApplicationFields
  23590. : TSPTargetApplicationFieldsEntitySet;
  23591. function GetReputations : TSPReputationsEntitySet;
  23592. function GetSearchServices : TSPSearchServicesEntitySet;
  23593. function GetApps1 : TSPApps1EntitySet;
  23594. function GetPointPublishingAdmins : TSPPointPublishingAdminsEntitySet;
  23595. function GetDDIAdapters : TSPDDIAdaptersEntitySet;
  23596. function GetSPOTenantWebTemplateCollections
  23597. : TSPSPOTenantWebTemplateCollectionsEntitySet;
  23598. function GetExternalUsers : TSPExternalUsersEntitySet;
  23599. function GetGetExternalUsersResultss
  23600. : TSPGetExternalUsersResultssEntitySet;
  23601. function GetOffice365Tenants : TSPOffice365TenantsEntitySet;
  23602. function GetRemoveExternalUsersResultss
  23603. : TSPRemoveExternalUsersResultssEntitySet;
  23604. function GetFeatureDefinitions : TSPFeatureDefinitionsEntitySet;
  23605. function GetSPAnalyticsUsageServices
  23606. : TSPSPAnalyticsUsageServicesEntitySet;
  23607. function GetSPAppStateQueryJobDefinitions
  23608. : TSPSPAppStateQueryJobDefinitionsEntitySet;
  23609. function GetSPFarms : TSPSPFarmsEntitySet;
  23610. function GetSPTenantAppInstanceDatas
  23611. : TSPSPTenantAppInstanceDatasEntitySet;
  23612. function GetSPWebApplications : TSPSPWebApplicationsEntitySet;
  23613. function GetSPWebServices : TSPSPWebServicesEntitySet;
  23614. function GetSPAppPrincipalInfos : TSPSPAppPrincipalInfosEntitySet;
  23615. function GetDocumentCrawlLogs : TSPDocumentCrawlLogsEntitySet;
  23616. function GetSignalStores : TSPSignalStoresEntitySet;
  23617. function GetQueryPersonalizationDatas
  23618. : TSPQueryPersonalizationDatasEntitySet;
  23619. function GetRankingLabelings : TSPRankingLabelingsEntitySet;
  23620. function GetReorderingRuleCollections
  23621. : TSPReorderingRuleCollectionsEntitySet;
  23622. function GetSortCollections : TSPSortCollectionsEntitySet;
  23623. function GetStringCollections : TSPStringCollectionsEntitySet;
  23624. function GetSPFlights : TSPSPFlightsEntitySet;
  23625. function GetSPCorporateCuratedGallerySettingsBases
  23626. : TSPSPCorporateCuratedGallerySettingsBasesEntitySet;
  23627. function GetSPCorporateCuratedGallerySettingsFactorys
  23628. : TSPSPCorporateCuratedGallerySettingsFactorysEntitySet;
  23629. function GetSPMarketplaceSettingss : TSPSPMarketplaceSettingssEntitySet;
  23630. function GetNavigationServiceRests : TSPNavigationServiceRestsEntitySet;
  23631. function GetAppDetailss : TSPAppDetailssEntitySet;
  23632. function GetAppIconInfos : TSPAppIconInfosEntitySet;
  23633. function GetCollaborationMailboxs : TSPCollaborationMailboxsEntitySet;
  23634. function GetCommunityModerations : TSPCommunityModerationsEntitySet;
  23635. function GetMySiteRecommendationss : TSPMySiteRecommendationssEntitySet;
  23636. function GetDocumentsSharedWithGroups
  23637. : TSPDocumentsSharedWithGroupsEntitySet;
  23638. function GetDocumentsSharedWithMes : TSPDocumentsSharedWithMesEntitySet;
  23639. function GetDocumentsSharedWithPersons
  23640. : TSPDocumentsSharedWithPersonsEntitySet;
  23641. function GetMySiteDismissStatusTexts
  23642. : TSPMySiteDismissStatusTextsEntitySet;
  23643. function GetMySiteDocumentMoveUtilitys
  23644. : TSPMySiteDocumentMoveUtilitysEntitySet;
  23645. function GetMySiteLinkss : TSPMySiteLinkssEntitySet;
  23646. function GetPromotedSitess : TSPPromotedSitessEntitySet;
  23647. function GetSharedWithMeDocuments : TSPSharedWithMeDocumentsEntitySet;
  23648. function GetRecentDocuments : TSPRecentDocumentsEntitySet;
  23649. function GetModuleLinks : TSPModuleLinksEntitySet;
  23650. function GetResourceManifestInformations
  23651. : TSPResourceManifestInformationsEntitySet;
  23652. function GetWacApis : TSPWacApisEntitySet;
  23653. function GetEntityItems : TSPEntityItemsEntitySet;
  23654. function GetEntityTypes : TSPEntityTypesEntitySet;
  23655. function GetEntityTypeBases : TSPEntityTypeBasesEntitySet;
  23656. function GetExternalEntityTypes : TSPExternalEntityTypesEntitySet;
  23657. function GetFields : TSPFieldsEntitySet;
  23658. function GetODataStoreContexts : TSPODataStoreContextsEntitySet;
  23659. function GetRequestContexts : TSPRequestContextsEntitySet;
  23660. function GetSqlStoreContexts : TSPSqlStoreContextsEntitySet;
  23661. function GetStoreContextBases : TSPStoreContextBasesEntitySet;
  23662. function GetFiles1 : TSPFiles1EntitySet;
  23663. function GetFileServices : TSPFileServicesEntitySet;
  23664. function GetFolders : TSPFoldersEntitySet;
  23665. function GetMeFileServices : TSPMeFileServicesEntitySet;
  23666. function GetDiagnosticss : TSPDiagnosticssEntitySet;
  23667. function GetReportings : TSPReportingsEntitySet;
  23668. function GetTaskflows : TSPTaskflowsEntitySet;
  23669. function GetAssignments : TSPAssignmentsEntitySet;
  23670. function GetBaseCalendarExceptions : TSPBaseCalendarExceptionsEntitySet;
  23671. function GetCalendars : TSPCalendarsEntitySet;
  23672. function GetCalendarExceptions : TSPCalendarExceptionsEntitySet;
  23673. function GetCustomFields : TSPCustomFieldsEntitySet;
  23674. function GetDraftAssignments : TSPDraftAssignmentsEntitySet;
  23675. function GetDraftProjects : TSPDraftProjectsEntitySet;
  23676. function GetDraftProjectResources : TSPDraftProjectResourcesEntitySet;
  23677. function GetDraftTasks : TSPDraftTasksEntitySet;
  23678. function GetDraftTaskLinks : TSPDraftTaskLinksEntitySet;
  23679. function GetEnterpriseProjectTypes : TSPEnterpriseProjectTypesEntitySet;
  23680. function GetEnterpriseResources : TSPEnterpriseResourcesEntitySet;
  23681. function GetEntityTypes1 : TSPEntityTypes1EntitySet;
  23682. function GetEntityTypess : TSPEntityTypessEntitySet;
  23683. function GetEvents : TSPEventsEntitySet;
  23684. function GetEventHandlers : TSPEventHandlersEntitySet;
  23685. function GetLookupCosts : TSPLookupCostsEntitySet;
  23686. function GetLookupDates : TSPLookupDatesEntitySet;
  23687. function GetLookupDurations : TSPLookupDurationsEntitySet;
  23688. function GetLookupEntrys : TSPLookupEntrysEntitySet;
  23689. function GetLookupNumbers : TSPLookupNumbersEntitySet;
  23690. function GetLookupTables : TSPLookupTablesEntitySet;
  23691. function GetLookupTabless : TSPLookupTablessEntitySet;
  23692. function GetLookupTexts : TSPLookupTextsEntitySet;
  23693. function GetPhases : TSPPhasesEntitySet;
  23694. function GetPlanAssignments : TSPPlanAssignmentsEntitySet;
  23695. function GetPlanAssignmentIntervals
  23696. : TSPPlanAssignmentIntervalsEntitySet;
  23697. function GetProjects : TSPProjectsEntitySet;
  23698. function GetProjectDetailPages : TSPProjectDetailPagesEntitySet;
  23699. function GetProjectResources : TSPProjectResourcesEntitySet;
  23700. function GetProjectServers : TSPProjectServersEntitySet;
  23701. function GetProjectServerDatas : TSPProjectServerDatasEntitySet;
  23702. function GetPublishedAssignments : TSPPublishedAssignmentsEntitySet;
  23703. function GetPublishedProjects : TSPPublishedProjectsEntitySet;
  23704. function GetPublishedProjectResources
  23705. : TSPPublishedProjectResourcesEntitySet;
  23706. function GetPublishedTasks : TSPPublishedTasksEntitySet;
  23707. function GetPublishedTaskLinks : TSPPublishedTaskLinksEntitySet;
  23708. function GetQueueJobs : TSPQueueJobsEntitySet;
  23709. function GetResourceCalendarExceptions
  23710. : TSPResourceCalendarExceptionsEntitySet;
  23711. function GetResourcePlans : TSPResourcePlansEntitySet;
  23712. function GetServiceStatuss : TSPServiceStatussEntitySet;
  23713. function GetStages : TSPStagesEntitySet;
  23714. function GetStageCustomFields : TSPStageCustomFieldsEntitySet;
  23715. function GetStageDetailPages : TSPStageDetailPagesEntitySet;
  23716. function GetStatusAssignments : TSPStatusAssignmentsEntitySet;
  23717. function GetStatusTasks : TSPStatusTasksEntitySet;
  23718. function GetTasks : TSPTasksEntitySet;
  23719. function GetTaskLinks : TSPTaskLinksEntitySet;
  23720. function GetTaskServiceOdataEndpoints
  23721. : TSPTaskServiceOdataEndpointsEntitySet;
  23722. function GetTimePhases : TSPTimePhasesEntitySet;
  23723. function GetTimeSheets : TSPTimeSheetsEntitySet;
  23724. function GetTimeSheetLines : TSPTimeSheetLinesEntitySet;
  23725. function GetTimeSheetPeriods : TSPTimeSheetPeriodsEntitySet;
  23726. function GetTimeSheetWorks : TSPTimeSheetWorksEntitySet;
  23727. function GetWorkflowActivitiess : TSPWorkflowActivitiessEntitySet;
  23728. function GetWorkflowDesigners : TSPWorkflowDesignersEntitySet;
  23729. function GetWorkflowDesignerFields : TSPWorkflowDesignerFieldsEntitySet;
  23730. function GetAccessRequestss : TSPAccessRequestssEntitySet;
  23731. function GetAlternateUrls : TSPAlternateUrlsEntitySet;
  23732. function GetAnalyticsUsageEntrys : TSPAnalyticsUsageEntrysEntitySet;
  23733. function GetApiMetadatas : TSPApiMetadatasEntitySet;
  23734. function GetApps12 : TSPApps12EntitySet;
  23735. function GetAppCatalogs : TSPAppCatalogsEntitySet;
  23736. function GetAppContextSites : TSPAppContextSitesEntitySet;
  23737. function GetAppInstances : TSPAppInstancesEntitySet;
  23738. function GetAppInstanceErrorDetailss
  23739. : TSPAppInstanceErrorDetailssEntitySet;
  23740. function GetAppTiles : TSPAppTilesEntitySet;
  23741. function GetAttachments : TSPAttachmentsEntitySet;
  23742. function GetAudits : TSPAuditsEntitySet;
  23743. function GetAppBdcCatalogs : TSPAppBdcCatalogsEntitySet;
  23744. function GetEntitys : TSPEntitysEntitySet;
  23745. function GetEntityFields : TSPEntityFieldsEntitySet;
  23746. function GetEntityIdentifiers : TSPEntityIdentifiersEntitySet;
  23747. function GetEntityViews : TSPEntityViewsEntitySet;
  23748. function GetFilters : TSPFiltersEntitySet;
  23749. function GetExternalSubscriptionStores
  23750. : TSPExternalSubscriptionStoresEntitySet;
  23751. function GetLobSystems : TSPLobSystemsEntitySet;
  23752. function GetLobSystemInstances : TSPLobSystemInstancesEntitySet;
  23753. function GetMethodExecutionResults : TSPMethodExecutionResultsEntitySet;
  23754. function GetEntityFieldValueDictionarys
  23755. : TSPEntityFieldValueDictionarysEntitySet;
  23756. function GetEntityIdentitys : TSPEntityIdentitysEntitySet;
  23757. function GetEntityInstances : TSPEntityInstancesEntitySet;
  23758. function GetNotificationCallbacks : TSPNotificationCallbacksEntitySet;
  23759. function GetSubscriptions : TSPSubscriptionsEntitySet;
  23760. function GetTypeDescriptors : TSPTypeDescriptorsEntitySet;
  23761. function GetChanges : TSPChangesEntitySet;
  23762. function GetCompatibilityRanges : TSPCompatibilityRangesEntitySet;
  23763. function GetPolicyEvaluationInfos : TSPPolicyEvaluationInfosEntitySet;
  23764. function GetSPPolicyStoreProxys : TSPSPPolicyStoreProxysEntitySet;
  23765. function GetContentTypes : TSPContentTypesEntitySet;
  23766. function GetCreatablesInfos : TSPCreatablesInfosEntitySet;
  23767. function GetDirectorySessions : TSPDirectorySessionsEntitySet;
  23768. function GetGroups : TSPGroupsEntitySet;
  23769. function GetGroupAndUserStatuss : TSPGroupAndUserStatussEntitySet;
  23770. function GetLinkCollections : TSPLinkCollectionsEntitySet;
  23771. function GetMembershipResults : TSPMembershipResultsEntitySet;
  23772. function GetMembersInfos : TSPMembersInfosEntitySet;
  23773. function GetMyGroupsResults : TSPMyGroupsResultsEntitySet;
  23774. function GetPropertys : TSPPropertysEntitySet;
  23775. function GetPropertyDictionarys : TSPPropertyDictionarysEntitySet;
  23776. function GetSharePointDirectoryProviders
  23777. : TSPSharePointDirectoryProvidersEntitySet;
  23778. function GetSPHelpers : TSPSPHelpersEntitySet;
  23779. function GetUsers : TSPUsersEntitySet;
  23780. function GetUserRequestSchemas : TSPUserRequestSchemasEntitySet;
  23781. function GetDlpPolicyTips : TSPDlpPolicyTipsEntitySet;
  23782. function GetEventReceiverDefinitions
  23783. : TSPEventReceiverDefinitionsEntitySet;
  23784. function GetFeatures : TSPFeaturesEntitySet;
  23785. function GetFields1 : TSPFields1EntitySet;
  23786. function GetFieldLinks : TSPFieldLinksEntitySet;
  23787. function GetFieldStringValuess : TSPFieldStringValuessEntitySet;
  23788. function GetFiles12 : TSPFiles12EntitySet;
  23789. function GetFileVersions : TSPFileVersionsEntitySet;
  23790. function GetFolders1 : TSPFolders1EntitySet;
  23791. function GetForms : TSPFormsEntitySet;
  23792. function GetGroups1 : TSPGroups1EntitySet;
  23793. function GetInformationRightsManagementSettingss
  23794. : TSPInformationRightsManagementSettingssEntitySet;
  23795. function GetListItems : TSPListItemsEntitySet;
  23796. function GetListTemplates : TSPListTemplatesEntitySet;
  23797. function GetMicrofeedAttachmentStores
  23798. : TSPMicrofeedAttachmentStoresEntitySet;
  23799. function GetMicrofeedDatas : TSPMicrofeedDatasEntitySet;
  23800. function GetMicrofeedManagers : TSPMicrofeedManagersEntitySet;
  23801. function GetMicrofeedPostDefinitionManagers
  23802. : TSPMicrofeedPostDefinitionManagersEntitySet;
  23803. function GetMicrofeedPostOptionCollections
  23804. : TSPMicrofeedPostOptionCollectionsEntitySet;
  23805. function GetMicrofeedStores : TSPMicrofeedStoresEntitySet;
  23806. function GetMountedFolderInfos : TSPMountedFolderInfosEntitySet;
  23807. function GetMountPoints : TSPMountPointsEntitySet;
  23808. function GetMountPointInfos : TSPMountPointInfosEntitySet;
  23809. function GetMoveCopyUtils : TSPMoveCopyUtilsEntitySet;
  23810. function GetNavigations : TSPNavigationsEntitySet;
  23811. function GetNavigationNodes : TSPNavigationNodesEntitySet;
  23812. function GetNativeClients : TSPNativeClientsEntitySet;
  23813. function GetObjectSharingInformations
  23814. : TSPObjectSharingInformationsEntitySet;
  23815. function GetObjectSharingInformationUsers
  23816. : TSPObjectSharingInformationUsersEntitySet;
  23817. function GetObjectSharingSettingss : TSPObjectSharingSettingssEntitySet;
  23818. function GetClickManagers : TSPClickManagersEntitySet;
  23819. function GetPickerSettingss : TSPPickerSettingssEntitySet;
  23820. function GetPrincipals : TSPPrincipalsEntitySet;
  23821. function GetPropertyValuess : TSPPropertyValuessEntitySet;
  23822. function GetPersonMagazines : TSPPersonMagazinesEntitySet;
  23823. function GetPointPublishingDocPropss
  23824. : TSPPointPublishingDocPropssEntitySet;
  23825. function GetPointPublishingMagazinePropss
  23826. : TSPPointPublishingMagazinePropssEntitySet;
  23827. function GetPointPublishingPosts : TSPPointPublishingPostsEntitySet;
  23828. function GetPointPublishingPostServiceManagers
  23829. : TSPPointPublishingPostServiceManagersEntitySet;
  23830. function GetPointPublishingSiteManagers
  23831. : TSPPointPublishingSiteManagersEntitySet;
  23832. function GetPointPublishingSiteStatuss
  23833. : TSPPointPublishingSiteStatussEntitySet;
  23834. function GetPointPublishingUsers : TSPPointPublishingUsersEntitySet;
  23835. function GetSearchs : TSPSearchsEntitySet;
  23836. function GetSpotlightChannels : TSPSpotlightChannelsEntitySet;
  23837. function GetSpotlightVideos : TSPSpotlightVideosEntitySet;
  23838. function GetVideoChannels : TSPVideoChannelsEntitySet;
  23839. function GetVideoItems : TSPVideoItemsEntitySet;
  23840. function GetVideoPermissionGroups : TSPVideoPermissionGroupsEntitySet;
  23841. function GetVideoServiceDiscoverers
  23842. : TSPVideoServiceDiscoverersEntitySet;
  23843. function GetVideoServiceManagers : TSPVideoServiceManagersEntitySet;
  23844. function GetPushNotificationSubscribers
  23845. : TSPPushNotificationSubscribersEntitySet;
  23846. function GetRecycleBinItems : TSPRecycleBinItemsEntitySet;
  23847. function GetRegionalSettingss : TSPRegionalSettingssEntitySet;
  23848. function GetRelatedFields : TSPRelatedFieldsEntitySet;
  23849. function GetRelatedItemManagers : TSPRelatedItemManagersEntitySet;
  23850. function GetRemoteWebs : TSPRemoteWebsEntitySet;
  23851. function GetRequestContexts1 : TSPRequestContexts1EntitySet;
  23852. function GetRoleAssignments : TSPRoleAssignmentsEntitySet;
  23853. function GetRoleDefinitions : TSPRoleDefinitionsEntitySet;
  23854. function GetSecurableObjects : TSPSecurableObjectsEntitySet;
  23855. function GetServerSettingss : TSPServerSettingssEntitySet;
  23856. function GetSharePointSharingSettingss
  23857. : TSPSharePointSharingSettingssEntitySet;
  23858. function GetDocumentSharingManagers
  23859. : TSPDocumentSharingManagersEntitySet;
  23860. function GetWebSharingManagers : TSPWebSharingManagersEntitySet;
  23861. function GetSharingResults : TSPSharingResultsEntitySet;
  23862. function GetSiteHealthSummarys : TSPSiteHealthSummarysEntitySet;
  23863. function GetSiteUrls : TSPSiteUrlsEntitySet;
  23864. function GetSocialAnnouncementManagers
  23865. : TSPSocialAnnouncementManagersEntitySet;
  23866. function GetSocialFeedManagers : TSPSocialFeedManagersEntitySet;
  23867. function GetSocialFollowingManagers
  23868. : TSPSocialFollowingManagersEntitySet;
  23869. function GetSocialRestActors : TSPSocialRestActorsEntitySet;
  23870. function GetSocialRestFeeds : TSPSocialRestFeedsEntitySet;
  23871. function GetSocialRestFeedManagers : TSPSocialRestFeedManagersEntitySet;
  23872. function GetSocialRestFollowingManagers
  23873. : TSPSocialRestFollowingManagersEntitySet;
  23874. function GetSocialRestThreads : TSPSocialRestThreadsEntitySet;
  23875. function GetSolutionExporters : TSPSolutionExportersEntitySet;
  23876. function GetSPAppLicenseManagers : TSPSPAppLicenseManagersEntitySet;
  23877. function GetSPDataLeakagePreventionStatusInfos
  23878. : TSPSPDataLeakagePreventionStatusInfosEntitySet;
  23879. function GetTenantAppInstances : TSPTenantAppInstancesEntitySet;
  23880. function GetTenantAppUtilitys : TSPTenantAppUtilitysEntitySet;
  23881. function GetTenantSettingss : TSPTenantSettingssEntitySet;
  23882. function GetThemeInfos : TSPThemeInfosEntitySet;
  23883. function GetTimeZones : TSPTimeZonesEntitySet;
  23884. function GetSyncTranslators : TSPSyncTranslatorsEntitySet;
  23885. function GetTranslationJobs : TSPTranslationJobsEntitySet;
  23886. function GetTranslationJobStatuss : TSPTranslationJobStatussEntitySet;
  23887. function GetVariationsTranslationTimerJobs
  23888. : TSPVariationsTranslationTimerJobsEntitySet;
  23889. function GetTypeInformations : TSPTypeInformationsEntitySet;
  23890. function GetClientPeoplePickerWebServiceInterfaces
  23891. : TSPClientPeoplePickerWebServiceInterfacesEntitySet;
  23892. function GetUsers1 : TSPUsers1EntitySet;
  23893. function GetUserCustomActions : TSPUserCustomActionsEntitySet;
  23894. function GetFollowedContents : TSPFollowedContentsEntitySet;
  23895. function GetFollowedItemDatas : TSPFollowedItemDatasEntitySet;
  23896. function GetHashTagCollections : TSPHashTagCollectionsEntitySet;
  23897. function GetPeopleManagers : TSPPeopleManagersEntitySet;
  23898. function GetPersonPropertiess : TSPPersonPropertiessEntitySet;
  23899. function GetProfileImageStores : TSPProfileImageStoresEntitySet;
  23900. function GetProfileLoaders : TSPProfileLoadersEntitySet;
  23901. function GetUserProfiles : TSPUserProfilesEntitySet;
  23902. function GetUserProfilePropertiesForUsers
  23903. : TSPUserProfilePropertiesForUsersEntitySet;
  23904. function GetUserResources : TSPUserResourcesEntitySet;
  23905. function GetUserSolutions : TSPUserSolutionsEntitySet;
  23906. function GetMarketplaceUtilitiess : TSPMarketplaceUtilitiessEntitySet;
  23907. function GetUtilitys : TSPUtilitysEntitySet;
  23908. function GetViews : TSPViewsEntitySet;
  23909. function GetViewFieldCollections : TSPViewFieldCollectionsEntitySet;
  23910. function GetWebInformations : TSPWebInformationsEntitySet;
  23911. function GetLimitedWebPartManagers : TSPLimitedWebPartManagersEntitySet;
  23912. function GetWebParts : TSPWebPartsEntitySet;
  23913. function GetWebPartDefinitions : TSPWebPartDefinitionsEntitySet;
  23914. function GetWebProxys : TSPWebProxysEntitySet;
  23915. function GetWebTemplates : TSPWebTemplatesEntitySet;
  23916. function GetSPWorkflows : TSPSPWorkflowsEntitySet;
  23917. function GetSPWorkflowManagers : TSPSPWorkflowManagersEntitySet;
  23918. function GetWorkflowAssociations : TSPWorkflowAssociationsEntitySet;
  23919. function GetWorkflowTemplates : TSPWorkflowTemplatesEntitySet;
  23920. function GetInteropServices : TSPInteropServicesEntitySet;
  23921. function GetWorkflowDefinitions : TSPWorkflowDefinitionsEntitySet;
  23922. function GetWorkflowDeploymentServices
  23923. : TSPWorkflowDeploymentServicesEntitySet;
  23924. function GetWorkflowInstances : TSPWorkflowInstancesEntitySet;
  23925. function GetWorkflowInstanceServices
  23926. : TSPWorkflowInstanceServicesEntitySet;
  23927. function GetWorkflowMessagingServices
  23928. : TSPWorkflowMessagingServicesEntitySet;
  23929. function GetWorkflowServicesManagers
  23930. : TSPWorkflowServicesManagersEntitySet;
  23931. function GetWorkflowSubscriptions : TSPWorkflowSubscriptionsEntitySet;
  23932. function GetWorkflowSubscriptionServices
  23933. : TSPWorkflowSubscriptionServicesEntitySet;
  23934. function GetBaseSessions : TSPBaseSessionsEntitySet;
  23935. function GetBooleanCriterions : TSPBooleanCriterionsEntitySet;
  23936. function GetCalloutInfos : TSPCalloutInfosEntitySet;
  23937. function GetCreateRefreshJobResults
  23938. : TSPCreateRefreshJobResultsEntitySet;
  23939. function GetCustomAttributeFilters : TSPCustomAttributeFiltersEntitySet;
  23940. function GetDashboardScriptExtensionInfos
  23941. : TSPDashboardScriptExtensionInfosEntitySet;
  23942. function GetDateRangeCriterions : TSPDateRangeCriterionsEntitySet;
  23943. function GetExchangeUserSyncStates : TSPExchangeUserSyncStatesEntitySet;
  23944. function GetLocations : TSPLocationsEntitySet;
  23945. function GetLocationDisplaySettings
  23946. : TSPLocationDisplaySettingsEntitySet;
  23947. function GetLocationFilters : TSPLocationFiltersEntitySet;
  23948. function GetLocationUpdateResults : TSPLocationUpdateResultsEntitySet;
  23949. function GetNameCriterions : TSPNameCriterionsEntitySet;
  23950. function GetNonTaskDataReadResults : TSPNonTaskDataReadResultsEntitySet;
  23951. function GetOrderInfos : TSPOrderInfosEntitySet;
  23952. function GetPersistedPropertiess : TSPPersistedPropertiessEntitySet;
  23953. function GetProviderErrorInfos : TSPProviderErrorInfosEntitySet;
  23954. function GetProviderRefreshStatuss : TSPProviderRefreshStatussEntitySet;
  23955. function GetRefreshHealthInfos : TSPRefreshHealthInfosEntitySet;
  23956. function GetRefreshHistorys : TSPRefreshHistorysEntitySet;
  23957. function GetRefreshResults : TSPRefreshResultsEntitySet;
  23958. function GetSortableSessionManagers
  23959. : TSPSortableSessionManagersEntitySet;
  23960. function GetSortableTaskQuerys : TSPSortableTaskQuerysEntitySet;
  23961. function GetTasks1 : TSPTasks1EntitySet;
  23962. function GetTaskFilters : TSPTaskFiltersEntitySet;
  23963. function GetTaskQuerys : TSPTaskQuerysEntitySet;
  23964. function GetTaskQueryByLocationResults
  23965. : TSPTaskQueryByLocationResultsEntitySet;
  23966. function GetTaskQueryResults : TSPTaskQueryResultsEntitySet;
  23967. function GetTaskRefreshResults : TSPTaskRefreshResultsEntitySet;
  23968. function GetTaskWriteResults : TSPTaskWriteResultsEntitySet;
  23969. function GetUserOrderedSessionManagers
  23970. : TSPUserOrderedSessionManagersEntitySet;
  23971. function GetUserSettingss : TSPUserSettingssEntitySet;
  23972. function GetUserSettingsManagers : TSPUserSettingsManagersEntitySet;
  23973. function GetViewSelectionInfos : TSPViewSelectionInfosEntitySet;
  23974. function GetSPOIdentityHelpers : TSPSPOIdentityHelpersEntitySet;
  23975. function GetAppPrincipalIdentityProviders
  23976. : TSPAppPrincipalIdentityProvidersEntitySet;
  23977. function GetAppPrincipalManagers : TSPAppPrincipalManagersEntitySet;
  23978. function GetAppPrincipalCredentials
  23979. : TSPAppPrincipalCredentialsEntitySet;
  23980. function GetAppPrincipalNames : TSPAppPrincipalNamesEntitySet;
  23981. function GetDraftProjectResources1 : TSPDraftProjectResources1EntitySet;
  23982. public
  23983. class function ObjectRestKind : String; Override;
  23984. function CreateNewApps : TSPAppsEntitySet;
  23985. function CreateNewFiles : TSPFilesEntitySet;
  23986. function CreateNewLists : TSPListsEntitySet;
  23987. function CreateNewMes : TSPMesEntitySet;
  23988. function CreateNewSites : TSPSitesEntitySet;
  23989. function CreateNewWebs : TSPWebsEntitySet;
  23990. function CreateNewAppStores : TSPAppStoresEntitySet;
  23991. function CreateNewConnectionSettingss : TSPConnectionSettingssEntitySet;
  23992. function CreateNewTargetApplications : TSPTargetApplicationsEntitySet;
  23993. function CreateNewTargetApplicationFields
  23994. : TSPTargetApplicationFieldsEntitySet;
  23995. function CreateNewReputations : TSPReputationsEntitySet;
  23996. function CreateNewSearchServices : TSPSearchServicesEntitySet;
  23997. function CreateNewApps1 : TSPApps1EntitySet;
  23998. function CreateNewPointPublishingAdmins
  23999. : TSPPointPublishingAdminsEntitySet;
  24000. function CreateNewDDIAdapters : TSPDDIAdaptersEntitySet;
  24001. function CreateNewSPOTenantWebTemplateCollections
  24002. : TSPSPOTenantWebTemplateCollectionsEntitySet;
  24003. function CreateNewExternalUsers : TSPExternalUsersEntitySet;
  24004. function CreateNewGetExternalUsersResultss
  24005. : TSPGetExternalUsersResultssEntitySet;
  24006. function CreateNewOffice365Tenants : TSPOffice365TenantsEntitySet;
  24007. function CreateNewRemoveExternalUsersResultss
  24008. : TSPRemoveExternalUsersResultssEntitySet;
  24009. function CreateNewFeatureDefinitions : TSPFeatureDefinitionsEntitySet;
  24010. function CreateNewSPAnalyticsUsageServices
  24011. : TSPSPAnalyticsUsageServicesEntitySet;
  24012. function CreateNewSPAppStateQueryJobDefinitions
  24013. : TSPSPAppStateQueryJobDefinitionsEntitySet;
  24014. function CreateNewSPFarms : TSPSPFarmsEntitySet;
  24015. function CreateNewSPTenantAppInstanceDatas
  24016. : TSPSPTenantAppInstanceDatasEntitySet;
  24017. function CreateNewSPWebApplications : TSPSPWebApplicationsEntitySet;
  24018. function CreateNewSPWebServices : TSPSPWebServicesEntitySet;
  24019. function CreateNewSPAppPrincipalInfos : TSPSPAppPrincipalInfosEntitySet;
  24020. function CreateNewDocumentCrawlLogs : TSPDocumentCrawlLogsEntitySet;
  24021. function CreateNewSignalStores : TSPSignalStoresEntitySet;
  24022. function CreateNewQueryPersonalizationDatas
  24023. : TSPQueryPersonalizationDatasEntitySet;
  24024. function CreateNewRankingLabelings : TSPRankingLabelingsEntitySet;
  24025. function CreateNewReorderingRuleCollections
  24026. : TSPReorderingRuleCollectionsEntitySet;
  24027. function CreateNewSortCollections : TSPSortCollectionsEntitySet;
  24028. function CreateNewStringCollections : TSPStringCollectionsEntitySet;
  24029. function CreateNewSPFlights : TSPSPFlightsEntitySet;
  24030. function CreateNewSPCorporateCuratedGallerySettingsBases
  24031. : TSPSPCorporateCuratedGallerySettingsBasesEntitySet;
  24032. function CreateNewSPCorporateCuratedGallerySettingsFactorys
  24033. : TSPSPCorporateCuratedGallerySettingsFactorysEntitySet;
  24034. function CreateNewSPMarketplaceSettingss
  24035. : TSPSPMarketplaceSettingssEntitySet;
  24036. function CreateNewNavigationServiceRests
  24037. : TSPNavigationServiceRestsEntitySet;
  24038. function CreateNewAppDetailss : TSPAppDetailssEntitySet;
  24039. function CreateNewAppIconInfos : TSPAppIconInfosEntitySet;
  24040. function CreateNewCollaborationMailboxs
  24041. : TSPCollaborationMailboxsEntitySet;
  24042. function CreateNewCommunityModerations
  24043. : TSPCommunityModerationsEntitySet;
  24044. function CreateNewMySiteRecommendationss
  24045. : TSPMySiteRecommendationssEntitySet;
  24046. function CreateNewDocumentsSharedWithGroups
  24047. : TSPDocumentsSharedWithGroupsEntitySet;
  24048. function CreateNewDocumentsSharedWithMes
  24049. : TSPDocumentsSharedWithMesEntitySet;
  24050. function CreateNewDocumentsSharedWithPersons
  24051. : TSPDocumentsSharedWithPersonsEntitySet;
  24052. function CreateNewMySiteDismissStatusTexts
  24053. : TSPMySiteDismissStatusTextsEntitySet;
  24054. function CreateNewMySiteDocumentMoveUtilitys
  24055. : TSPMySiteDocumentMoveUtilitysEntitySet;
  24056. function CreateNewMySiteLinkss : TSPMySiteLinkssEntitySet;
  24057. function CreateNewPromotedSitess : TSPPromotedSitessEntitySet;
  24058. function CreateNewSharedWithMeDocuments
  24059. : TSPSharedWithMeDocumentsEntitySet;
  24060. function CreateNewRecentDocuments : TSPRecentDocumentsEntitySet;
  24061. function CreateNewModuleLinks : TSPModuleLinksEntitySet;
  24062. function CreateNewResourceManifestInformations
  24063. : TSPResourceManifestInformationsEntitySet;
  24064. function CreateNewWacApis : TSPWacApisEntitySet;
  24065. function CreateNewEntityItems : TSPEntityItemsEntitySet;
  24066. function CreateNewEntityTypes : TSPEntityTypesEntitySet;
  24067. function CreateNewEntityTypeBases : TSPEntityTypeBasesEntitySet;
  24068. function CreateNewExternalEntityTypes : TSPExternalEntityTypesEntitySet;
  24069. function CreateNewFields : TSPFieldsEntitySet;
  24070. function CreateNewODataStoreContexts : TSPODataStoreContextsEntitySet;
  24071. function CreateNewRequestContexts : TSPRequestContextsEntitySet;
  24072. function CreateNewSqlStoreContexts : TSPSqlStoreContextsEntitySet;
  24073. function CreateNewStoreContextBases : TSPStoreContextBasesEntitySet;
  24074. function CreateNewFiles1 : TSPFiles1EntitySet;
  24075. function CreateNewFileServices : TSPFileServicesEntitySet;
  24076. function CreateNewFolders : TSPFoldersEntitySet;
  24077. function CreateNewMeFileServices : TSPMeFileServicesEntitySet;
  24078. function CreateNewDiagnosticss : TSPDiagnosticssEntitySet;
  24079. function CreateNewReportings : TSPReportingsEntitySet;
  24080. function CreateNewTaskflows : TSPTaskflowsEntitySet;
  24081. function CreateNewAssignments : TSPAssignmentsEntitySet;
  24082. function CreateNewBaseCalendarExceptions
  24083. : TSPBaseCalendarExceptionsEntitySet;
  24084. function CreateNewCalendars : TSPCalendarsEntitySet;
  24085. function CreateNewCalendarExceptions : TSPCalendarExceptionsEntitySet;
  24086. function CreateNewCustomFields : TSPCustomFieldsEntitySet;
  24087. function CreateNewDraftAssignments : TSPDraftAssignmentsEntitySet;
  24088. function CreateNewDraftProjects : TSPDraftProjectsEntitySet;
  24089. function CreateNewDraftProjectResources
  24090. : TSPDraftProjectResourcesEntitySet;
  24091. function CreateNewDraftTasks : TSPDraftTasksEntitySet;
  24092. function CreateNewDraftTaskLinks : TSPDraftTaskLinksEntitySet;
  24093. function CreateNewEnterpriseProjectTypes
  24094. : TSPEnterpriseProjectTypesEntitySet;
  24095. function CreateNewEnterpriseResources : TSPEnterpriseResourcesEntitySet;
  24096. function CreateNewEntityTypes1 : TSPEntityTypes1EntitySet;
  24097. function CreateNewEntityTypess : TSPEntityTypessEntitySet;
  24098. function CreateNewEvents : TSPEventsEntitySet;
  24099. function CreateNewEventHandlers : TSPEventHandlersEntitySet;
  24100. function CreateNewLookupCosts : TSPLookupCostsEntitySet;
  24101. function CreateNewLookupDates : TSPLookupDatesEntitySet;
  24102. function CreateNewLookupDurations : TSPLookupDurationsEntitySet;
  24103. function CreateNewLookupEntrys : TSPLookupEntrysEntitySet;
  24104. function CreateNewLookupNumbers : TSPLookupNumbersEntitySet;
  24105. function CreateNewLookupTables : TSPLookupTablesEntitySet;
  24106. function CreateNewLookupTabless : TSPLookupTablessEntitySet;
  24107. function CreateNewLookupTexts : TSPLookupTextsEntitySet;
  24108. function CreateNewPhases : TSPPhasesEntitySet;
  24109. function CreateNewPlanAssignments : TSPPlanAssignmentsEntitySet;
  24110. function CreateNewPlanAssignmentIntervals
  24111. : TSPPlanAssignmentIntervalsEntitySet;
  24112. function CreateNewProjects : TSPProjectsEntitySet;
  24113. function CreateNewProjectDetailPages : TSPProjectDetailPagesEntitySet;
  24114. function CreateNewProjectResources : TSPProjectResourcesEntitySet;
  24115. function CreateNewProjectServers : TSPProjectServersEntitySet;
  24116. function CreateNewProjectServerDatas : TSPProjectServerDatasEntitySet;
  24117. function CreateNewPublishedAssignments
  24118. : TSPPublishedAssignmentsEntitySet;
  24119. function CreateNewPublishedProjects : TSPPublishedProjectsEntitySet;
  24120. function CreateNewPublishedProjectResources
  24121. : TSPPublishedProjectResourcesEntitySet;
  24122. function CreateNewPublishedTasks : TSPPublishedTasksEntitySet;
  24123. function CreateNewPublishedTaskLinks : TSPPublishedTaskLinksEntitySet;
  24124. function CreateNewQueueJobs : TSPQueueJobsEntitySet;
  24125. function CreateNewResourceCalendarExceptions
  24126. : TSPResourceCalendarExceptionsEntitySet;
  24127. function CreateNewResourcePlans : TSPResourcePlansEntitySet;
  24128. function CreateNewServiceStatuss : TSPServiceStatussEntitySet;
  24129. function CreateNewStages : TSPStagesEntitySet;
  24130. function CreateNewStageCustomFields : TSPStageCustomFieldsEntitySet;
  24131. function CreateNewStageDetailPages : TSPStageDetailPagesEntitySet;
  24132. function CreateNewStatusAssignments : TSPStatusAssignmentsEntitySet;
  24133. function CreateNewStatusTasks : TSPStatusTasksEntitySet;
  24134. function CreateNewTasks : TSPTasksEntitySet;
  24135. function CreateNewTaskLinks : TSPTaskLinksEntitySet;
  24136. function CreateNewTaskServiceOdataEndpoints
  24137. : TSPTaskServiceOdataEndpointsEntitySet;
  24138. function CreateNewTimePhases : TSPTimePhasesEntitySet;
  24139. function CreateNewTimeSheets : TSPTimeSheetsEntitySet;
  24140. function CreateNewTimeSheetLines : TSPTimeSheetLinesEntitySet;
  24141. function CreateNewTimeSheetPeriods : TSPTimeSheetPeriodsEntitySet;
  24142. function CreateNewTimeSheetWorks : TSPTimeSheetWorksEntitySet;
  24143. function CreateNewWorkflowActivitiess : TSPWorkflowActivitiessEntitySet;
  24144. function CreateNewWorkflowDesigners : TSPWorkflowDesignersEntitySet;
  24145. function CreateNewWorkflowDesignerFields
  24146. : TSPWorkflowDesignerFieldsEntitySet;
  24147. function CreateNewAccessRequestss : TSPAccessRequestssEntitySet;
  24148. function CreateNewAlternateUrls : TSPAlternateUrlsEntitySet;
  24149. function CreateNewAnalyticsUsageEntrys
  24150. : TSPAnalyticsUsageEntrysEntitySet;
  24151. function CreateNewApiMetadatas : TSPApiMetadatasEntitySet;
  24152. function CreateNewApps12 : TSPApps12EntitySet;
  24153. function CreateNewAppCatalogs : TSPAppCatalogsEntitySet;
  24154. function CreateNewAppContextSites : TSPAppContextSitesEntitySet;
  24155. function CreateNewAppInstances : TSPAppInstancesEntitySet;
  24156. function CreateNewAppInstanceErrorDetailss
  24157. : TSPAppInstanceErrorDetailssEntitySet;
  24158. function CreateNewAppTiles : TSPAppTilesEntitySet;
  24159. function CreateNewAttachments : TSPAttachmentsEntitySet;
  24160. function CreateNewAudits : TSPAuditsEntitySet;
  24161. function CreateNewAppBdcCatalogs : TSPAppBdcCatalogsEntitySet;
  24162. function CreateNewEntitys : TSPEntitysEntitySet;
  24163. function CreateNewEntityFields : TSPEntityFieldsEntitySet;
  24164. function CreateNewEntityIdentifiers : TSPEntityIdentifiersEntitySet;
  24165. function CreateNewEntityViews : TSPEntityViewsEntitySet;
  24166. function CreateNewFilters : TSPFiltersEntitySet;
  24167. function CreateNewExternalSubscriptionStores
  24168. : TSPExternalSubscriptionStoresEntitySet;
  24169. function CreateNewLobSystems : TSPLobSystemsEntitySet;
  24170. function CreateNewLobSystemInstances : TSPLobSystemInstancesEntitySet;
  24171. function CreateNewMethodExecutionResults
  24172. : TSPMethodExecutionResultsEntitySet;
  24173. function CreateNewEntityFieldValueDictionarys
  24174. : TSPEntityFieldValueDictionarysEntitySet;
  24175. function CreateNewEntityIdentitys : TSPEntityIdentitysEntitySet;
  24176. function CreateNewEntityInstances : TSPEntityInstancesEntitySet;
  24177. function CreateNewNotificationCallbacks
  24178. : TSPNotificationCallbacksEntitySet;
  24179. function CreateNewSubscriptions : TSPSubscriptionsEntitySet;
  24180. function CreateNewTypeDescriptors : TSPTypeDescriptorsEntitySet;
  24181. function CreateNewChanges : TSPChangesEntitySet;
  24182. function CreateNewCompatibilityRanges : TSPCompatibilityRangesEntitySet;
  24183. function CreateNewPolicyEvaluationInfos
  24184. : TSPPolicyEvaluationInfosEntitySet;
  24185. function CreateNewSPPolicyStoreProxys : TSPSPPolicyStoreProxysEntitySet;
  24186. function CreateNewContentTypes : TSPContentTypesEntitySet;
  24187. function CreateNewCreatablesInfos : TSPCreatablesInfosEntitySet;
  24188. function CreateNewDirectorySessions : TSPDirectorySessionsEntitySet;
  24189. function CreateNewGroups : TSPGroupsEntitySet;
  24190. function CreateNewGroupAndUserStatuss : TSPGroupAndUserStatussEntitySet;
  24191. function CreateNewLinkCollections : TSPLinkCollectionsEntitySet;
  24192. function CreateNewMembershipResults : TSPMembershipResultsEntitySet;
  24193. function CreateNewMembersInfos : TSPMembersInfosEntitySet;
  24194. function CreateNewMyGroupsResults : TSPMyGroupsResultsEntitySet;
  24195. function CreateNewPropertys : TSPPropertysEntitySet;
  24196. function CreateNewPropertyDictionarys : TSPPropertyDictionarysEntitySet;
  24197. function CreateNewSharePointDirectoryProviders
  24198. : TSPSharePointDirectoryProvidersEntitySet;
  24199. function CreateNewSPHelpers : TSPSPHelpersEntitySet;
  24200. function CreateNewUsers : TSPUsersEntitySet;
  24201. function CreateNewUserRequestSchemas : TSPUserRequestSchemasEntitySet;
  24202. function CreateNewDlpPolicyTips : TSPDlpPolicyTipsEntitySet;
  24203. function CreateNewEventReceiverDefinitions
  24204. : TSPEventReceiverDefinitionsEntitySet;
  24205. function CreateNewFeatures : TSPFeaturesEntitySet;
  24206. function CreateNewFields1 : TSPFields1EntitySet;
  24207. function CreateNewFieldLinks : TSPFieldLinksEntitySet;
  24208. function CreateNewFieldStringValuess : TSPFieldStringValuessEntitySet;
  24209. function CreateNewFiles12 : TSPFiles12EntitySet;
  24210. function CreateNewFileVersions : TSPFileVersionsEntitySet;
  24211. function CreateNewFolders1 : TSPFolders1EntitySet;
  24212. function CreateNewForms : TSPFormsEntitySet;
  24213. function CreateNewGroups1 : TSPGroups1EntitySet;
  24214. function CreateNewInformationRightsManagementSettingss
  24215. : TSPInformationRightsManagementSettingssEntitySet;
  24216. function CreateNewListItems : TSPListItemsEntitySet;
  24217. function CreateNewListTemplates : TSPListTemplatesEntitySet;
  24218. function CreateNewMicrofeedAttachmentStores
  24219. : TSPMicrofeedAttachmentStoresEntitySet;
  24220. function CreateNewMicrofeedDatas : TSPMicrofeedDatasEntitySet;
  24221. function CreateNewMicrofeedManagers : TSPMicrofeedManagersEntitySet;
  24222. function CreateNewMicrofeedPostDefinitionManagers
  24223. : TSPMicrofeedPostDefinitionManagersEntitySet;
  24224. function CreateNewMicrofeedPostOptionCollections
  24225. : TSPMicrofeedPostOptionCollectionsEntitySet;
  24226. function CreateNewMicrofeedStores : TSPMicrofeedStoresEntitySet;
  24227. function CreateNewMountedFolderInfos : TSPMountedFolderInfosEntitySet;
  24228. function CreateNewMountPoints : TSPMountPointsEntitySet;
  24229. function CreateNewMountPointInfos : TSPMountPointInfosEntitySet;
  24230. function CreateNewMoveCopyUtils : TSPMoveCopyUtilsEntitySet;
  24231. function CreateNewNavigations : TSPNavigationsEntitySet;
  24232. function CreateNewNavigationNodes : TSPNavigationNodesEntitySet;
  24233. function CreateNewNativeClients : TSPNativeClientsEntitySet;
  24234. function CreateNewObjectSharingInformations
  24235. : TSPObjectSharingInformationsEntitySet;
  24236. function CreateNewObjectSharingInformationUsers
  24237. : TSPObjectSharingInformationUsersEntitySet;
  24238. function CreateNewObjectSharingSettingss
  24239. : TSPObjectSharingSettingssEntitySet;
  24240. function CreateNewClickManagers : TSPClickManagersEntitySet;
  24241. function CreateNewPickerSettingss : TSPPickerSettingssEntitySet;
  24242. function CreateNewPrincipals : TSPPrincipalsEntitySet;
  24243. function CreateNewPropertyValuess : TSPPropertyValuessEntitySet;
  24244. function CreateNewPersonMagazines : TSPPersonMagazinesEntitySet;
  24245. function CreateNewPointPublishingDocPropss
  24246. : TSPPointPublishingDocPropssEntitySet;
  24247. function CreateNewPointPublishingMagazinePropss
  24248. : TSPPointPublishingMagazinePropssEntitySet;
  24249. function CreateNewPointPublishingPosts
  24250. : TSPPointPublishingPostsEntitySet;
  24251. function CreateNewPointPublishingPostServiceManagers
  24252. : TSPPointPublishingPostServiceManagersEntitySet;
  24253. function CreateNewPointPublishingSiteManagers
  24254. : TSPPointPublishingSiteManagersEntitySet;
  24255. function CreateNewPointPublishingSiteStatuss
  24256. : TSPPointPublishingSiteStatussEntitySet;
  24257. function CreateNewPointPublishingUsers
  24258. : TSPPointPublishingUsersEntitySet;
  24259. function CreateNewSearchs : TSPSearchsEntitySet;
  24260. function CreateNewSpotlightChannels : TSPSpotlightChannelsEntitySet;
  24261. function CreateNewSpotlightVideos : TSPSpotlightVideosEntitySet;
  24262. function CreateNewVideoChannels : TSPVideoChannelsEntitySet;
  24263. function CreateNewVideoItems : TSPVideoItemsEntitySet;
  24264. function CreateNewVideoPermissionGroups
  24265. : TSPVideoPermissionGroupsEntitySet;
  24266. function CreateNewVideoServiceDiscoverers
  24267. : TSPVideoServiceDiscoverersEntitySet;
  24268. function CreateNewVideoServiceManagers
  24269. : TSPVideoServiceManagersEntitySet;
  24270. function CreateNewPushNotificationSubscribers
  24271. : TSPPushNotificationSubscribersEntitySet;
  24272. function CreateNewRecycleBinItems : TSPRecycleBinItemsEntitySet;
  24273. function CreateNewRegionalSettingss : TSPRegionalSettingssEntitySet;
  24274. function CreateNewRelatedFields : TSPRelatedFieldsEntitySet;
  24275. function CreateNewRelatedItemManagers : TSPRelatedItemManagersEntitySet;
  24276. function CreateNewRemoteWebs : TSPRemoteWebsEntitySet;
  24277. function CreateNewRequestContexts1 : TSPRequestContexts1EntitySet;
  24278. function CreateNewRoleAssignments : TSPRoleAssignmentsEntitySet;
  24279. function CreateNewRoleDefinitions : TSPRoleDefinitionsEntitySet;
  24280. function CreateNewSecurableObjects : TSPSecurableObjectsEntitySet;
  24281. function CreateNewServerSettingss : TSPServerSettingssEntitySet;
  24282. function CreateNewSharePointSharingSettingss
  24283. : TSPSharePointSharingSettingssEntitySet;
  24284. function CreateNewDocumentSharingManagers
  24285. : TSPDocumentSharingManagersEntitySet;
  24286. function CreateNewWebSharingManagers : TSPWebSharingManagersEntitySet;
  24287. function CreateNewSharingResults : TSPSharingResultsEntitySet;
  24288. function CreateNewSiteHealthSummarys : TSPSiteHealthSummarysEntitySet;
  24289. function CreateNewSiteUrls : TSPSiteUrlsEntitySet;
  24290. function CreateNewSocialAnnouncementManagers
  24291. : TSPSocialAnnouncementManagersEntitySet;
  24292. function CreateNewSocialFeedManagers : TSPSocialFeedManagersEntitySet;
  24293. function CreateNewSocialFollowingManagers
  24294. : TSPSocialFollowingManagersEntitySet;
  24295. function CreateNewSocialRestActors : TSPSocialRestActorsEntitySet;
  24296. function CreateNewSocialRestFeeds : TSPSocialRestFeedsEntitySet;
  24297. function CreateNewSocialRestFeedManagers
  24298. : TSPSocialRestFeedManagersEntitySet;
  24299. function CreateNewSocialRestFollowingManagers
  24300. : TSPSocialRestFollowingManagersEntitySet;
  24301. function CreateNewSocialRestThreads : TSPSocialRestThreadsEntitySet;
  24302. function CreateNewSolutionExporters : TSPSolutionExportersEntitySet;
  24303. function CreateNewSPAppLicenseManagers
  24304. : TSPSPAppLicenseManagersEntitySet;
  24305. function CreateNewSPDataLeakagePreventionStatusInfos
  24306. : TSPSPDataLeakagePreventionStatusInfosEntitySet;
  24307. function CreateNewTenantAppInstances : TSPTenantAppInstancesEntitySet;
  24308. function CreateNewTenantAppUtilitys : TSPTenantAppUtilitysEntitySet;
  24309. function CreateNewTenantSettingss : TSPTenantSettingssEntitySet;
  24310. function CreateNewThemeInfos : TSPThemeInfosEntitySet;
  24311. function CreateNewTimeZones : TSPTimeZonesEntitySet;
  24312. function CreateNewSyncTranslators : TSPSyncTranslatorsEntitySet;
  24313. function CreateNewTranslationJobs : TSPTranslationJobsEntitySet;
  24314. function CreateNewTranslationJobStatuss
  24315. : TSPTranslationJobStatussEntitySet;
  24316. function CreateNewVariationsTranslationTimerJobs
  24317. : TSPVariationsTranslationTimerJobsEntitySet;
  24318. function CreateNewTypeInformations : TSPTypeInformationsEntitySet;
  24319. function CreateNewClientPeoplePickerWebServiceInterfaces
  24320. : TSPClientPeoplePickerWebServiceInterfacesEntitySet;
  24321. function CreateNewUsers1 : TSPUsers1EntitySet;
  24322. function CreateNewUserCustomActions : TSPUserCustomActionsEntitySet;
  24323. function CreateNewFollowedContents : TSPFollowedContentsEntitySet;
  24324. function CreateNewFollowedItemDatas : TSPFollowedItemDatasEntitySet;
  24325. function CreateNewHashTagCollections : TSPHashTagCollectionsEntitySet;
  24326. function CreateNewPeopleManagers : TSPPeopleManagersEntitySet;
  24327. function CreateNewPersonPropertiess : TSPPersonPropertiessEntitySet;
  24328. function CreateNewProfileImageStores : TSPProfileImageStoresEntitySet;
  24329. function CreateNewProfileLoaders : TSPProfileLoadersEntitySet;
  24330. function CreateNewUserProfiles : TSPUserProfilesEntitySet;
  24331. function CreateNewUserProfilePropertiesForUsers
  24332. : TSPUserProfilePropertiesForUsersEntitySet;
  24333. function CreateNewUserResources : TSPUserResourcesEntitySet;
  24334. function CreateNewUserSolutions : TSPUserSolutionsEntitySet;
  24335. function CreateNewMarketplaceUtilitiess
  24336. : TSPMarketplaceUtilitiessEntitySet;
  24337. function CreateNewUtilitys : TSPUtilitysEntitySet;
  24338. function CreateNewViews : TSPViewsEntitySet;
  24339. function CreateNewViewFieldCollections
  24340. : TSPViewFieldCollectionsEntitySet;
  24341. function CreateNewWebInformations : TSPWebInformationsEntitySet;
  24342. function CreateNewLimitedWebPartManagers
  24343. : TSPLimitedWebPartManagersEntitySet;
  24344. function CreateNewWebParts : TSPWebPartsEntitySet;
  24345. function CreateNewWebPartDefinitions : TSPWebPartDefinitionsEntitySet;
  24346. function CreateNewWebProxys : TSPWebProxysEntitySet;
  24347. function CreateNewWebTemplates : TSPWebTemplatesEntitySet;
  24348. function CreateNewSPWorkflows : TSPSPWorkflowsEntitySet;
  24349. function CreateNewSPWorkflowManagers : TSPSPWorkflowManagersEntitySet;
  24350. function CreateNewWorkflowAssociations
  24351. : TSPWorkflowAssociationsEntitySet;
  24352. function CreateNewWorkflowTemplates : TSPWorkflowTemplatesEntitySet;
  24353. function CreateNewInteropServices : TSPInteropServicesEntitySet;
  24354. function CreateNewWorkflowDefinitions : TSPWorkflowDefinitionsEntitySet;
  24355. function CreateNewWorkflowDeploymentServices
  24356. : TSPWorkflowDeploymentServicesEntitySet;
  24357. function CreateNewWorkflowInstances : TSPWorkflowInstancesEntitySet;
  24358. function CreateNewWorkflowInstanceServices
  24359. : TSPWorkflowInstanceServicesEntitySet;
  24360. function CreateNewWorkflowMessagingServices
  24361. : TSPWorkflowMessagingServicesEntitySet;
  24362. function CreateNewWorkflowServicesManagers
  24363. : TSPWorkflowServicesManagersEntitySet;
  24364. function CreateNewWorkflowSubscriptions
  24365. : TSPWorkflowSubscriptionsEntitySet;
  24366. function CreateNewWorkflowSubscriptionServices
  24367. : TSPWorkflowSubscriptionServicesEntitySet;
  24368. function CreateNewBaseSessions : TSPBaseSessionsEntitySet;
  24369. function CreateNewBooleanCriterions : TSPBooleanCriterionsEntitySet;
  24370. function CreateNewCalloutInfos : TSPCalloutInfosEntitySet;
  24371. function CreateNewCreateRefreshJobResults
  24372. : TSPCreateRefreshJobResultsEntitySet;
  24373. function CreateNewCustomAttributeFilters
  24374. : TSPCustomAttributeFiltersEntitySet;
  24375. function CreateNewDashboardScriptExtensionInfos
  24376. : TSPDashboardScriptExtensionInfosEntitySet;
  24377. function CreateNewDateRangeCriterions : TSPDateRangeCriterionsEntitySet;
  24378. function CreateNewExchangeUserSyncStates
  24379. : TSPExchangeUserSyncStatesEntitySet;
  24380. function CreateNewLocations : TSPLocationsEntitySet;
  24381. function CreateNewLocationDisplaySettings
  24382. : TSPLocationDisplaySettingsEntitySet;
  24383. function CreateNewLocationFilters : TSPLocationFiltersEntitySet;
  24384. function CreateNewLocationUpdateResults
  24385. : TSPLocationUpdateResultsEntitySet;
  24386. function CreateNewNameCriterions : TSPNameCriterionsEntitySet;
  24387. function CreateNewNonTaskDataReadResults
  24388. : TSPNonTaskDataReadResultsEntitySet;
  24389. function CreateNewOrderInfos : TSPOrderInfosEntitySet;
  24390. function CreateNewPersistedPropertiess
  24391. : TSPPersistedPropertiessEntitySet;
  24392. function CreateNewProviderErrorInfos : TSPProviderErrorInfosEntitySet;
  24393. function CreateNewProviderRefreshStatuss
  24394. : TSPProviderRefreshStatussEntitySet;
  24395. function CreateNewRefreshHealthInfos : TSPRefreshHealthInfosEntitySet;
  24396. function CreateNewRefreshHistorys : TSPRefreshHistorysEntitySet;
  24397. function CreateNewRefreshResults : TSPRefreshResultsEntitySet;
  24398. function CreateNewSortableSessionManagers
  24399. : TSPSortableSessionManagersEntitySet;
  24400. function CreateNewSortableTaskQuerys : TSPSortableTaskQuerysEntitySet;
  24401. function CreateNewTasks1 : TSPTasks1EntitySet;
  24402. function CreateNewTaskFilters : TSPTaskFiltersEntitySet;
  24403. function CreateNewTaskQuerys : TSPTaskQuerysEntitySet;
  24404. function CreateNewTaskQueryByLocationResults
  24405. : TSPTaskQueryByLocationResultsEntitySet;
  24406. function CreateNewTaskQueryResults : TSPTaskQueryResultsEntitySet;
  24407. function CreateNewTaskRefreshResults : TSPTaskRefreshResultsEntitySet;
  24408. function CreateNewTaskWriteResults : TSPTaskWriteResultsEntitySet;
  24409. function CreateNewUserOrderedSessionManagers
  24410. : TSPUserOrderedSessionManagersEntitySet;
  24411. function CreateNewUserSettingss : TSPUserSettingssEntitySet;
  24412. function CreateNewUserSettingsManagers
  24413. : TSPUserSettingsManagersEntitySet;
  24414. function CreateNewViewSelectionInfos : TSPViewSelectionInfosEntitySet;
  24415. function CreateNewSPOIdentityHelpers : TSPSPOIdentityHelpersEntitySet;
  24416. function CreateNewAppPrincipalIdentityProviders
  24417. : TSPAppPrincipalIdentityProvidersEntitySet;
  24418. function CreateNewAppPrincipalManagers
  24419. : TSPAppPrincipalManagersEntitySet;
  24420. function CreateNewAppPrincipalCredentials
  24421. : TSPAppPrincipalCredentialsEntitySet;
  24422. function CreateNewAppPrincipalNames : TSPAppPrincipalNamesEntitySet;
  24423. function CreateNewDraftProjectResources1
  24424. : TSPDraftProjectResources1EntitySet;
  24425. published
  24426. Property Apps : TSPAppsEntitySet read GetApps;
  24427. Property Files : TSPFilesEntitySet read GetFiles;
  24428. Property Lists : TSPListsEntitySet read GetLists;
  24429. Property Mes : TSPMesEntitySet read GetMes;
  24430. Property Sites : TSPSitesEntitySet read GetSites;
  24431. Property Webs : TSPWebsEntitySet read GetWebs;
  24432. Property AppStores : TSPAppStoresEntitySet read GetAppStores;
  24433. Property ConnectionSettingss : TSPConnectionSettingssEntitySet read GetConnectionSettingss;
  24434. Property TargetApplications : TSPTargetApplicationsEntitySet read GetTargetApplications;
  24435. Property TargetApplicationFields : TSPTargetApplicationFieldsEntitySet read GetTargetApplicationFields;
  24436. Property Reputations : TSPReputationsEntitySet read GetReputations;
  24437. Property SearchServices : TSPSearchServicesEntitySet read GetSearchServices;
  24438. Property Apps1 : TSPApps1EntitySet read GetApps1;
  24439. Property PointPublishingAdmins : TSPPointPublishingAdminsEntitySet read GetPointPublishingAdmins;
  24440. Property DDIAdapters : TSPDDIAdaptersEntitySet read GetDDIAdapters;
  24441. Property SPOTenantWebTemplateCollections : TSPSPOTenantWebTemplateCollectionsEntitySet read GetSPOTenantWebTemplateCollections;
  24442. Property ExternalUsers : TSPExternalUsersEntitySet read GetExternalUsers;
  24443. Property GetExternalUsersResultss : TSPGetExternalUsersResultssEntitySet read GetGetExternalUsersResultss;
  24444. Property Office365Tenants : TSPOffice365TenantsEntitySet read GetOffice365Tenants;
  24445. Property RemoveExternalUsersResultss : TSPRemoveExternalUsersResultssEntitySet read GetRemoveExternalUsersResultss;
  24446. Property FeatureDefinitions : TSPFeatureDefinitionsEntitySet read GetFeatureDefinitions;
  24447. Property SPAnalyticsUsageServices : TSPSPAnalyticsUsageServicesEntitySet read GetSPAnalyticsUsageServices;
  24448. Property SPAppStateQueryJobDefinitions : TSPSPAppStateQueryJobDefinitionsEntitySet read GetSPAppStateQueryJobDefinitions;
  24449. Property SPFarms : TSPSPFarmsEntitySet read GetSPFarms;
  24450. Property SPTenantAppInstanceDatas : TSPSPTenantAppInstanceDatasEntitySet read GetSPTenantAppInstanceDatas;
  24451. Property SPWebApplications : TSPSPWebApplicationsEntitySet read GetSPWebApplications;
  24452. Property SPWebServices : TSPSPWebServicesEntitySet read GetSPWebServices;
  24453. Property SPAppPrincipalInfos : TSPSPAppPrincipalInfosEntitySet read GetSPAppPrincipalInfos;
  24454. Property DocumentCrawlLogs : TSPDocumentCrawlLogsEntitySet read GetDocumentCrawlLogs;
  24455. Property SignalStores : TSPSignalStoresEntitySet read GetSignalStores;
  24456. Property QueryPersonalizationDatas : TSPQueryPersonalizationDatasEntitySet read GetQueryPersonalizationDatas;
  24457. Property RankingLabelings : TSPRankingLabelingsEntitySet read GetRankingLabelings;
  24458. Property ReorderingRuleCollections : TSPReorderingRuleCollectionsEntitySet read GetReorderingRuleCollections;
  24459. Property SortCollections : TSPSortCollectionsEntitySet read GetSortCollections;
  24460. Property StringCollections : TSPStringCollectionsEntitySet read GetStringCollections;
  24461. Property SPFlights : TSPSPFlightsEntitySet read GetSPFlights;
  24462. Property SPCorporateCuratedGallerySettingsBases : TSPSPCorporateCuratedGallerySettingsBasesEntitySet read GetSPCorporateCuratedGallerySettingsBases;
  24463. Property SPCorporateCuratedGallerySettingsFactorys : TSPSPCorporateCuratedGallerySettingsFactorysEntitySet read GetSPCorporateCuratedGallerySettingsFactorys;
  24464. Property SPMarketplaceSettingss : TSPSPMarketplaceSettingssEntitySet read GetSPMarketplaceSettingss;
  24465. Property NavigationServiceRests : TSPNavigationServiceRestsEntitySet read GetNavigationServiceRests;
  24466. Property AppDetailss : TSPAppDetailssEntitySet read GetAppDetailss;
  24467. Property AppIconInfos : TSPAppIconInfosEntitySet read GetAppIconInfos;
  24468. Property CollaborationMailboxs : TSPCollaborationMailboxsEntitySet read GetCollaborationMailboxs;
  24469. Property CommunityModerations : TSPCommunityModerationsEntitySet read GetCommunityModerations;
  24470. Property MySiteRecommendationss : TSPMySiteRecommendationssEntitySet read GetMySiteRecommendationss;
  24471. Property DocumentsSharedWithGroups : TSPDocumentsSharedWithGroupsEntitySet read GetDocumentsSharedWithGroups;
  24472. Property DocumentsSharedWithMes : TSPDocumentsSharedWithMesEntitySet read GetDocumentsSharedWithMes;
  24473. Property DocumentsSharedWithPersons : TSPDocumentsSharedWithPersonsEntitySet read GetDocumentsSharedWithPersons;
  24474. Property MySiteDismissStatusTexts : TSPMySiteDismissStatusTextsEntitySet read GetMySiteDismissStatusTexts;
  24475. Property MySiteDocumentMoveUtilitys : TSPMySiteDocumentMoveUtilitysEntitySet read GetMySiteDocumentMoveUtilitys;
  24476. Property MySiteLinkss : TSPMySiteLinkssEntitySet read GetMySiteLinkss;
  24477. Property PromotedSitess : TSPPromotedSitessEntitySet read GetPromotedSitess;
  24478. Property SharedWithMeDocuments : TSPSharedWithMeDocumentsEntitySet read GetSharedWithMeDocuments;
  24479. Property RecentDocuments : TSPRecentDocumentsEntitySet read GetRecentDocuments;
  24480. Property ModuleLinks : TSPModuleLinksEntitySet read GetModuleLinks;
  24481. Property ResourceManifestInformations : TSPResourceManifestInformationsEntitySet read GetResourceManifestInformations;
  24482. Property WacApis : TSPWacApisEntitySet read GetWacApis;
  24483. Property EntityItems : TSPEntityItemsEntitySet read GetEntityItems;
  24484. Property EntityTypes : TSPEntityTypesEntitySet read GetEntityTypes;
  24485. Property EntityTypeBases : TSPEntityTypeBasesEntitySet read GetEntityTypeBases;
  24486. Property ExternalEntityTypes : TSPExternalEntityTypesEntitySet read GetExternalEntityTypes;
  24487. Property Fields : TSPFieldsEntitySet read GetFields;
  24488. Property ODataStoreContexts : TSPODataStoreContextsEntitySet read GetODataStoreContexts;
  24489. Property RequestContexts : TSPRequestContextsEntitySet read GetRequestContexts;
  24490. Property SqlStoreContexts : TSPSqlStoreContextsEntitySet read GetSqlStoreContexts;
  24491. Property StoreContextBases : TSPStoreContextBasesEntitySet read GetStoreContextBases;
  24492. Property Files1 : TSPFiles1EntitySet read GetFiles1;
  24493. Property FileServices : TSPFileServicesEntitySet read GetFileServices;
  24494. Property Folders : TSPFoldersEntitySet read GetFolders;
  24495. Property MeFileServices : TSPMeFileServicesEntitySet read GetMeFileServices;
  24496. Property Diagnosticss : TSPDiagnosticssEntitySet read GetDiagnosticss;
  24497. Property Reportings : TSPReportingsEntitySet read GetReportings;
  24498. Property Taskflows : TSPTaskflowsEntitySet read GetTaskflows;
  24499. Property Assignments : TSPAssignmentsEntitySet read GetAssignments;
  24500. Property BaseCalendarExceptions : TSPBaseCalendarExceptionsEntitySet read GetBaseCalendarExceptions;
  24501. Property Calendars : TSPCalendarsEntitySet read GetCalendars;
  24502. Property CalendarExceptions : TSPCalendarExceptionsEntitySet read GetCalendarExceptions;
  24503. Property CustomFields : TSPCustomFieldsEntitySet read GetCustomFields;
  24504. Property DraftAssignments : TSPDraftAssignmentsEntitySet read GetDraftAssignments;
  24505. Property DraftProjects : TSPDraftProjectsEntitySet read GetDraftProjects;
  24506. Property DraftProjectResources : TSPDraftProjectResourcesEntitySet read GetDraftProjectResources;
  24507. Property DraftTasks : TSPDraftTasksEntitySet read GetDraftTasks;
  24508. Property DraftTaskLinks : TSPDraftTaskLinksEntitySet read GetDraftTaskLinks;
  24509. Property EnterpriseProjectTypes : TSPEnterpriseProjectTypesEntitySet read GetEnterpriseProjectTypes;
  24510. Property EnterpriseResources : TSPEnterpriseResourcesEntitySet read GetEnterpriseResources;
  24511. Property EntityTypes1 : TSPEntityTypes1EntitySet read GetEntityTypes1;
  24512. Property EntityTypess : TSPEntityTypessEntitySet read GetEntityTypess;
  24513. Property Events : TSPEventsEntitySet read GetEvents;
  24514. Property EventHandlers : TSPEventHandlersEntitySet read GetEventHandlers;
  24515. Property LookupCosts : TSPLookupCostsEntitySet read GetLookupCosts;
  24516. Property LookupDates : TSPLookupDatesEntitySet read GetLookupDates;
  24517. Property LookupDurations : TSPLookupDurationsEntitySet read GetLookupDurations;
  24518. Property LookupEntrys : TSPLookupEntrysEntitySet read GetLookupEntrys;
  24519. Property LookupNumbers : TSPLookupNumbersEntitySet read GetLookupNumbers;
  24520. Property LookupTables : TSPLookupTablesEntitySet read GetLookupTables;
  24521. Property LookupTabless : TSPLookupTablessEntitySet read GetLookupTabless;
  24522. Property LookupTexts : TSPLookupTextsEntitySet read GetLookupTexts;
  24523. Property Phases : TSPPhasesEntitySet read GetPhases;
  24524. Property PlanAssignments : TSPPlanAssignmentsEntitySet read GetPlanAssignments;
  24525. Property PlanAssignmentIntervals : TSPPlanAssignmentIntervalsEntitySet read GetPlanAssignmentIntervals;
  24526. Property Projects : TSPProjectsEntitySet read GetProjects;
  24527. Property ProjectDetailPages : TSPProjectDetailPagesEntitySet read GetProjectDetailPages;
  24528. Property ProjectResources : TSPProjectResourcesEntitySet read GetProjectResources;
  24529. Property ProjectServers : TSPProjectServersEntitySet read GetProjectServers;
  24530. Property ProjectServerDatas : TSPProjectServerDatasEntitySet read GetProjectServerDatas;
  24531. Property PublishedAssignments : TSPPublishedAssignmentsEntitySet read GetPublishedAssignments;
  24532. Property PublishedProjects : TSPPublishedProjectsEntitySet read GetPublishedProjects;
  24533. Property PublishedProjectResources : TSPPublishedProjectResourcesEntitySet read GetPublishedProjectResources;
  24534. Property PublishedTasks : TSPPublishedTasksEntitySet read GetPublishedTasks;
  24535. Property PublishedTaskLinks : TSPPublishedTaskLinksEntitySet read GetPublishedTaskLinks;
  24536. Property QueueJobs : TSPQueueJobsEntitySet read GetQueueJobs;
  24537. Property ResourceCalendarExceptions : TSPResourceCalendarExceptionsEntitySet read GetResourceCalendarExceptions;
  24538. Property ResourcePlans : TSPResourcePlansEntitySet read GetResourcePlans;
  24539. Property ServiceStatuss : TSPServiceStatussEntitySet read GetServiceStatuss;
  24540. Property Stages : TSPStagesEntitySet read GetStages;
  24541. Property StageCustomFields : TSPStageCustomFieldsEntitySet read GetStageCustomFields;
  24542. Property StageDetailPages : TSPStageDetailPagesEntitySet read GetStageDetailPages;
  24543. Property StatusAssignments : TSPStatusAssignmentsEntitySet read GetStatusAssignments;
  24544. Property StatusTasks : TSPStatusTasksEntitySet read GetStatusTasks;
  24545. Property Tasks : TSPTasksEntitySet read GetTasks;
  24546. Property TaskLinks : TSPTaskLinksEntitySet read GetTaskLinks;
  24547. Property TaskServiceOdataEndpoints : TSPTaskServiceOdataEndpointsEntitySet read GetTaskServiceOdataEndpoints;
  24548. Property TimePhases : TSPTimePhasesEntitySet read GetTimePhases;
  24549. Property TimeSheets : TSPTimeSheetsEntitySet read GetTimeSheets;
  24550. Property TimeSheetLines : TSPTimeSheetLinesEntitySet read GetTimeSheetLines;
  24551. Property TimeSheetPeriods : TSPTimeSheetPeriodsEntitySet read GetTimeSheetPeriods;
  24552. Property TimeSheetWorks : TSPTimeSheetWorksEntitySet read GetTimeSheetWorks;
  24553. Property WorkflowActivitiess : TSPWorkflowActivitiessEntitySet read GetWorkflowActivitiess;
  24554. Property WorkflowDesigners : TSPWorkflowDesignersEntitySet read GetWorkflowDesigners;
  24555. Property WorkflowDesignerFields : TSPWorkflowDesignerFieldsEntitySet read GetWorkflowDesignerFields;
  24556. Property AccessRequestss : TSPAccessRequestssEntitySet read GetAccessRequestss;
  24557. Property AlternateUrls : TSPAlternateUrlsEntitySet read GetAlternateUrls;
  24558. Property AnalyticsUsageEntrys : TSPAnalyticsUsageEntrysEntitySet read GetAnalyticsUsageEntrys;
  24559. Property ApiMetadatas : TSPApiMetadatasEntitySet read GetApiMetadatas;
  24560. Property Apps12 : TSPApps12EntitySet read GetApps12;
  24561. Property AppCatalogs : TSPAppCatalogsEntitySet read GetAppCatalogs;
  24562. Property AppContextSites : TSPAppContextSitesEntitySet read GetAppContextSites;
  24563. Property AppInstances : TSPAppInstancesEntitySet read GetAppInstances;
  24564. Property AppInstanceErrorDetailss : TSPAppInstanceErrorDetailssEntitySet read GetAppInstanceErrorDetailss;
  24565. Property AppTiles : TSPAppTilesEntitySet read GetAppTiles;
  24566. Property Attachments : TSPAttachmentsEntitySet read GetAttachments;
  24567. Property Audits : TSPAuditsEntitySet read GetAudits;
  24568. Property AppBdcCatalogs : TSPAppBdcCatalogsEntitySet read GetAppBdcCatalogs;
  24569. Property Entitys : TSPEntitysEntitySet read GetEntitys;
  24570. Property EntityFields : TSPEntityFieldsEntitySet read GetEntityFields;
  24571. Property EntityIdentifiers : TSPEntityIdentifiersEntitySet read GetEntityIdentifiers;
  24572. Property EntityViews : TSPEntityViewsEntitySet read GetEntityViews;
  24573. Property Filters : TSPFiltersEntitySet read GetFilters;
  24574. Property ExternalSubscriptionStores : TSPExternalSubscriptionStoresEntitySet read GetExternalSubscriptionStores;
  24575. Property LobSystems : TSPLobSystemsEntitySet read GetLobSystems;
  24576. Property LobSystemInstances : TSPLobSystemInstancesEntitySet read GetLobSystemInstances;
  24577. Property MethodExecutionResults : TSPMethodExecutionResultsEntitySet read GetMethodExecutionResults;
  24578. Property EntityFieldValueDictionarys : TSPEntityFieldValueDictionarysEntitySet read GetEntityFieldValueDictionarys;
  24579. Property EntityIdentitys : TSPEntityIdentitysEntitySet read GetEntityIdentitys;
  24580. Property EntityInstances : TSPEntityInstancesEntitySet read GetEntityInstances;
  24581. Property NotificationCallbacks : TSPNotificationCallbacksEntitySet read GetNotificationCallbacks;
  24582. Property Subscriptions : TSPSubscriptionsEntitySet read GetSubscriptions;
  24583. Property TypeDescriptors : TSPTypeDescriptorsEntitySet read GetTypeDescriptors;
  24584. Property Changes : TSPChangesEntitySet read GetChanges;
  24585. Property CompatibilityRanges : TSPCompatibilityRangesEntitySet read GetCompatibilityRanges;
  24586. Property PolicyEvaluationInfos : TSPPolicyEvaluationInfosEntitySet read GetPolicyEvaluationInfos;
  24587. Property SPPolicyStoreProxys : TSPSPPolicyStoreProxysEntitySet read GetSPPolicyStoreProxys;
  24588. Property ContentTypes : TSPContentTypesEntitySet read GetContentTypes;
  24589. Property CreatablesInfos : TSPCreatablesInfosEntitySet read GetCreatablesInfos;
  24590. Property DirectorySessions : TSPDirectorySessionsEntitySet read GetDirectorySessions;
  24591. Property Groups : TSPGroupsEntitySet read GetGroups;
  24592. Property GroupAndUserStatuss : TSPGroupAndUserStatussEntitySet read GetGroupAndUserStatuss;
  24593. Property LinkCollections : TSPLinkCollectionsEntitySet read GetLinkCollections;
  24594. Property MembershipResults : TSPMembershipResultsEntitySet read GetMembershipResults;
  24595. Property MembersInfos : TSPMembersInfosEntitySet read GetMembersInfos;
  24596. Property MyGroupsResults : TSPMyGroupsResultsEntitySet read GetMyGroupsResults;
  24597. Property Propertys : TSPPropertysEntitySet read GetPropertys;
  24598. Property PropertyDictionarys : TSPPropertyDictionarysEntitySet read GetPropertyDictionarys;
  24599. Property SharePointDirectoryProviders : TSPSharePointDirectoryProvidersEntitySet read GetSharePointDirectoryProviders;
  24600. Property SPHelpers : TSPSPHelpersEntitySet read GetSPHelpers;
  24601. Property Users : TSPUsersEntitySet read GetUsers;
  24602. Property UserRequestSchemas : TSPUserRequestSchemasEntitySet read GetUserRequestSchemas;
  24603. Property DlpPolicyTips : TSPDlpPolicyTipsEntitySet read GetDlpPolicyTips;
  24604. Property EventReceiverDefinitions : TSPEventReceiverDefinitionsEntitySet read GetEventReceiverDefinitions;
  24605. Property Features : TSPFeaturesEntitySet read GetFeatures;
  24606. Property Fields1 : TSPFields1EntitySet read GetFields1;
  24607. Property FieldLinks : TSPFieldLinksEntitySet read GetFieldLinks;
  24608. Property FieldStringValuess : TSPFieldStringValuessEntitySet read GetFieldStringValuess;
  24609. Property Files12 : TSPFiles12EntitySet read GetFiles12;
  24610. Property FileVersions : TSPFileVersionsEntitySet read GetFileVersions;
  24611. Property Folders1 : TSPFolders1EntitySet read GetFolders1;
  24612. Property Forms : TSPFormsEntitySet read GetForms;
  24613. Property Groups1 : TSPGroups1EntitySet read GetGroups1;
  24614. Property InformationRightsManagementSettingss : TSPInformationRightsManagementSettingssEntitySet read GetInformationRightsManagementSettingss;
  24615. Property ListItems : TSPListItemsEntitySet read GetListItems;
  24616. Property ListTemplates : TSPListTemplatesEntitySet read GetListTemplates;
  24617. Property MicrofeedAttachmentStores : TSPMicrofeedAttachmentStoresEntitySet read GetMicrofeedAttachmentStores;
  24618. Property MicrofeedDatas : TSPMicrofeedDatasEntitySet read GetMicrofeedDatas;
  24619. Property MicrofeedManagers : TSPMicrofeedManagersEntitySet read GetMicrofeedManagers;
  24620. Property MicrofeedPostDefinitionManagers : TSPMicrofeedPostDefinitionManagersEntitySet read GetMicrofeedPostDefinitionManagers;
  24621. Property MicrofeedPostOptionCollections : TSPMicrofeedPostOptionCollectionsEntitySet read GetMicrofeedPostOptionCollections;
  24622. Property MicrofeedStores : TSPMicrofeedStoresEntitySet read GetMicrofeedStores;
  24623. Property MountedFolderInfos : TSPMountedFolderInfosEntitySet read GetMountedFolderInfos;
  24624. Property MountPoints : TSPMountPointsEntitySet read GetMountPoints;
  24625. Property MountPointInfos : TSPMountPointInfosEntitySet read GetMountPointInfos;
  24626. Property MoveCopyUtils : TSPMoveCopyUtilsEntitySet read GetMoveCopyUtils;
  24627. Property Navigations : TSPNavigationsEntitySet read GetNavigations;
  24628. Property NavigationNodes : TSPNavigationNodesEntitySet read GetNavigationNodes;
  24629. Property NativeClients : TSPNativeClientsEntitySet read GetNativeClients;
  24630. Property ObjectSharingInformations : TSPObjectSharingInformationsEntitySet read GetObjectSharingInformations;
  24631. Property ObjectSharingInformationUsers : TSPObjectSharingInformationUsersEntitySet read GetObjectSharingInformationUsers;
  24632. Property ObjectSharingSettingss : TSPObjectSharingSettingssEntitySet read GetObjectSharingSettingss;
  24633. Property ClickManagers : TSPClickManagersEntitySet read GetClickManagers;
  24634. Property PickerSettingss : TSPPickerSettingssEntitySet read GetPickerSettingss;
  24635. Property Principals : TSPPrincipalsEntitySet read GetPrincipals;
  24636. Property PropertyValuess : TSPPropertyValuessEntitySet read GetPropertyValuess;
  24637. Property PersonMagazines : TSPPersonMagazinesEntitySet read GetPersonMagazines;
  24638. Property PointPublishingDocPropss : TSPPointPublishingDocPropssEntitySet read GetPointPublishingDocPropss;
  24639. Property PointPublishingMagazinePropss : TSPPointPublishingMagazinePropssEntitySet read GetPointPublishingMagazinePropss;
  24640. Property PointPublishingPosts : TSPPointPublishingPostsEntitySet read GetPointPublishingPosts;
  24641. Property PointPublishingPostServiceManagers : TSPPointPublishingPostServiceManagersEntitySet read GetPointPublishingPostServiceManagers;
  24642. Property PointPublishingSiteManagers : TSPPointPublishingSiteManagersEntitySet read GetPointPublishingSiteManagers;
  24643. Property PointPublishingSiteStatuss : TSPPointPublishingSiteStatussEntitySet read GetPointPublishingSiteStatuss;
  24644. Property PointPublishingUsers : TSPPointPublishingUsersEntitySet read GetPointPublishingUsers;
  24645. Property Searchs : TSPSearchsEntitySet read GetSearchs;
  24646. Property SpotlightChannels : TSPSpotlightChannelsEntitySet read GetSpotlightChannels;
  24647. Property SpotlightVideos : TSPSpotlightVideosEntitySet read GetSpotlightVideos;
  24648. Property VideoChannels : TSPVideoChannelsEntitySet read GetVideoChannels;
  24649. Property VideoItems : TSPVideoItemsEntitySet read GetVideoItems;
  24650. Property VideoPermissionGroups : TSPVideoPermissionGroupsEntitySet read GetVideoPermissionGroups;
  24651. Property VideoServiceDiscoverers : TSPVideoServiceDiscoverersEntitySet read GetVideoServiceDiscoverers;
  24652. Property VideoServiceManagers : TSPVideoServiceManagersEntitySet read GetVideoServiceManagers;
  24653. Property PushNotificationSubscribers : TSPPushNotificationSubscribersEntitySet read GetPushNotificationSubscribers;
  24654. Property RecycleBinItems : TSPRecycleBinItemsEntitySet read GetRecycleBinItems;
  24655. Property RegionalSettingss : TSPRegionalSettingssEntitySet read GetRegionalSettingss;
  24656. Property RelatedFields : TSPRelatedFieldsEntitySet read GetRelatedFields;
  24657. Property RelatedItemManagers : TSPRelatedItemManagersEntitySet read GetRelatedItemManagers;
  24658. Property RemoteWebs : TSPRemoteWebsEntitySet read GetRemoteWebs;
  24659. Property RequestContexts1 : TSPRequestContexts1EntitySet read GetRequestContexts1;
  24660. Property RoleAssignments : TSPRoleAssignmentsEntitySet read GetRoleAssignments;
  24661. Property RoleDefinitions : TSPRoleDefinitionsEntitySet read GetRoleDefinitions;
  24662. Property SecurableObjects : TSPSecurableObjectsEntitySet read GetSecurableObjects;
  24663. Property ServerSettingss : TSPServerSettingssEntitySet read GetServerSettingss;
  24664. Property SharePointSharingSettingss : TSPSharePointSharingSettingssEntitySet read GetSharePointSharingSettingss;
  24665. Property DocumentSharingManagers : TSPDocumentSharingManagersEntitySet read GetDocumentSharingManagers;
  24666. Property WebSharingManagers : TSPWebSharingManagersEntitySet read GetWebSharingManagers;
  24667. Property SharingResults : TSPSharingResultsEntitySet read GetSharingResults;
  24668. Property SiteHealthSummarys : TSPSiteHealthSummarysEntitySet read GetSiteHealthSummarys;
  24669. Property SiteUrls : TSPSiteUrlsEntitySet read GetSiteUrls;
  24670. Property SocialAnnouncementManagers : TSPSocialAnnouncementManagersEntitySet read GetSocialAnnouncementManagers;
  24671. Property SocialFeedManagers : TSPSocialFeedManagersEntitySet read GetSocialFeedManagers;
  24672. Property SocialFollowingManagers : TSPSocialFollowingManagersEntitySet read GetSocialFollowingManagers;
  24673. Property SocialRestActors : TSPSocialRestActorsEntitySet read GetSocialRestActors;
  24674. Property SocialRestFeeds : TSPSocialRestFeedsEntitySet read GetSocialRestFeeds;
  24675. Property SocialRestFeedManagers : TSPSocialRestFeedManagersEntitySet read GetSocialRestFeedManagers;
  24676. Property SocialRestFollowingManagers : TSPSocialRestFollowingManagersEntitySet read GetSocialRestFollowingManagers;
  24677. Property SocialRestThreads : TSPSocialRestThreadsEntitySet read GetSocialRestThreads;
  24678. Property SolutionExporters : TSPSolutionExportersEntitySet read GetSolutionExporters;
  24679. Property SPAppLicenseManagers : TSPSPAppLicenseManagersEntitySet read GetSPAppLicenseManagers;
  24680. Property SPDataLeakagePreventionStatusInfos : TSPSPDataLeakagePreventionStatusInfosEntitySet read GetSPDataLeakagePreventionStatusInfos;
  24681. Property TenantAppInstances : TSPTenantAppInstancesEntitySet read GetTenantAppInstances;
  24682. Property TenantAppUtilitys : TSPTenantAppUtilitysEntitySet read GetTenantAppUtilitys;
  24683. Property TenantSettingss : TSPTenantSettingssEntitySet read GetTenantSettingss;
  24684. Property ThemeInfos : TSPThemeInfosEntitySet read GetThemeInfos;
  24685. Property TimeZones : TSPTimeZonesEntitySet read GetTimeZones;
  24686. Property SyncTranslators : TSPSyncTranslatorsEntitySet read GetSyncTranslators;
  24687. Property TranslationJobs : TSPTranslationJobsEntitySet read GetTranslationJobs;
  24688. Property TranslationJobStatuss : TSPTranslationJobStatussEntitySet read GetTranslationJobStatuss;
  24689. Property VariationsTranslationTimerJobs : TSPVariationsTranslationTimerJobsEntitySet read GetVariationsTranslationTimerJobs;
  24690. Property TypeInformations : TSPTypeInformationsEntitySet read GetTypeInformations;
  24691. Property ClientPeoplePickerWebServiceInterfaces : TSPClientPeoplePickerWebServiceInterfacesEntitySet read GetClientPeoplePickerWebServiceInterfaces;
  24692. Property Users1 : TSPUsers1EntitySet read GetUsers1;
  24693. Property UserCustomActions : TSPUserCustomActionsEntitySet read GetUserCustomActions;
  24694. Property FollowedContents : TSPFollowedContentsEntitySet read GetFollowedContents;
  24695. Property FollowedItemDatas : TSPFollowedItemDatasEntitySet read GetFollowedItemDatas;
  24696. Property HashTagCollections : TSPHashTagCollectionsEntitySet read GetHashTagCollections;
  24697. Property PeopleManagers : TSPPeopleManagersEntitySet read GetPeopleManagers;
  24698. Property PersonPropertiess : TSPPersonPropertiessEntitySet read GetPersonPropertiess;
  24699. Property ProfileImageStores : TSPProfileImageStoresEntitySet read GetProfileImageStores;
  24700. Property ProfileLoaders : TSPProfileLoadersEntitySet read GetProfileLoaders;
  24701. Property UserProfiles : TSPUserProfilesEntitySet read GetUserProfiles;
  24702. Property UserProfilePropertiesForUsers : TSPUserProfilePropertiesForUsersEntitySet read GetUserProfilePropertiesForUsers;
  24703. Property UserResources : TSPUserResourcesEntitySet read GetUserResources;
  24704. Property UserSolutions : TSPUserSolutionsEntitySet read GetUserSolutions;
  24705. Property MarketplaceUtilitiess : TSPMarketplaceUtilitiessEntitySet read GetMarketplaceUtilitiess;
  24706. Property Utilitys : TSPUtilitysEntitySet read GetUtilitys;
  24707. Property Views : TSPViewsEntitySet read GetViews;
  24708. Property ViewFieldCollections : TSPViewFieldCollectionsEntitySet read GetViewFieldCollections;
  24709. Property WebInformations : TSPWebInformationsEntitySet read GetWebInformations;
  24710. Property LimitedWebPartManagers : TSPLimitedWebPartManagersEntitySet read GetLimitedWebPartManagers;
  24711. Property WebParts : TSPWebPartsEntitySet read GetWebParts;
  24712. Property WebPartDefinitions : TSPWebPartDefinitionsEntitySet read GetWebPartDefinitions;
  24713. Property WebProxys : TSPWebProxysEntitySet read GetWebProxys;
  24714. Property WebTemplates : TSPWebTemplatesEntitySet read GetWebTemplates;
  24715. Property SPWorkflows : TSPSPWorkflowsEntitySet read GetSPWorkflows;
  24716. Property SPWorkflowManagers : TSPSPWorkflowManagersEntitySet read GetSPWorkflowManagers;
  24717. Property WorkflowAssociations : TSPWorkflowAssociationsEntitySet read GetWorkflowAssociations;
  24718. Property WorkflowTemplates : TSPWorkflowTemplatesEntitySet read GetWorkflowTemplates;
  24719. Property InteropServices : TSPInteropServicesEntitySet read GetInteropServices;
  24720. Property WorkflowDefinitions : TSPWorkflowDefinitionsEntitySet read GetWorkflowDefinitions;
  24721. Property WorkflowDeploymentServices : TSPWorkflowDeploymentServicesEntitySet read GetWorkflowDeploymentServices;
  24722. Property WorkflowInstances : TSPWorkflowInstancesEntitySet read GetWorkflowInstances;
  24723. Property WorkflowInstanceServices : TSPWorkflowInstanceServicesEntitySet read GetWorkflowInstanceServices;
  24724. Property WorkflowMessagingServices : TSPWorkflowMessagingServicesEntitySet read GetWorkflowMessagingServices;
  24725. Property WorkflowServicesManagers : TSPWorkflowServicesManagersEntitySet read GetWorkflowServicesManagers;
  24726. Property WorkflowSubscriptions : TSPWorkflowSubscriptionsEntitySet read GetWorkflowSubscriptions;
  24727. Property WorkflowSubscriptionServices : TSPWorkflowSubscriptionServicesEntitySet read GetWorkflowSubscriptionServices;
  24728. Property BaseSessions : TSPBaseSessionsEntitySet read GetBaseSessions;
  24729. Property BooleanCriterions : TSPBooleanCriterionsEntitySet read GetBooleanCriterions;
  24730. Property CalloutInfos : TSPCalloutInfosEntitySet read GetCalloutInfos;
  24731. Property CreateRefreshJobResults : TSPCreateRefreshJobResultsEntitySet read GetCreateRefreshJobResults;
  24732. Property CustomAttributeFilters : TSPCustomAttributeFiltersEntitySet read GetCustomAttributeFilters;
  24733. Property DashboardScriptExtensionInfos : TSPDashboardScriptExtensionInfosEntitySet read GetDashboardScriptExtensionInfos;
  24734. Property DateRangeCriterions : TSPDateRangeCriterionsEntitySet read GetDateRangeCriterions;
  24735. Property ExchangeUserSyncStates : TSPExchangeUserSyncStatesEntitySet read GetExchangeUserSyncStates;
  24736. Property Locations : TSPLocationsEntitySet read GetLocations;
  24737. Property LocationDisplaySettings : TSPLocationDisplaySettingsEntitySet read GetLocationDisplaySettings;
  24738. Property LocationFilters : TSPLocationFiltersEntitySet read GetLocationFilters;
  24739. Property LocationUpdateResults : TSPLocationUpdateResultsEntitySet read GetLocationUpdateResults;
  24740. Property NameCriterions : TSPNameCriterionsEntitySet read GetNameCriterions;
  24741. Property NonTaskDataReadResults : TSPNonTaskDataReadResultsEntitySet read GetNonTaskDataReadResults;
  24742. Property OrderInfos : TSPOrderInfosEntitySet read GetOrderInfos;
  24743. Property PersistedPropertiess : TSPPersistedPropertiessEntitySet read GetPersistedPropertiess;
  24744. Property ProviderErrorInfos : TSPProviderErrorInfosEntitySet read GetProviderErrorInfos;
  24745. Property ProviderRefreshStatuss : TSPProviderRefreshStatussEntitySet read GetProviderRefreshStatuss;
  24746. Property RefreshHealthInfos : TSPRefreshHealthInfosEntitySet read GetRefreshHealthInfos;
  24747. Property RefreshHistorys : TSPRefreshHistorysEntitySet read GetRefreshHistorys;
  24748. Property RefreshResults : TSPRefreshResultsEntitySet read GetRefreshResults;
  24749. Property SortableSessionManagers : TSPSortableSessionManagersEntitySet read GetSortableSessionManagers;
  24750. Property SortableTaskQuerys : TSPSortableTaskQuerysEntitySet read GetSortableTaskQuerys;
  24751. Property Tasks1 : TSPTasks1EntitySet read GetTasks1;
  24752. Property TaskFilters : TSPTaskFiltersEntitySet read GetTaskFilters;
  24753. Property TaskQuerys : TSPTaskQuerysEntitySet read GetTaskQuerys;
  24754. Property TaskQueryByLocationResults : TSPTaskQueryByLocationResultsEntitySet read GetTaskQueryByLocationResults;
  24755. Property TaskQueryResults : TSPTaskQueryResultsEntitySet read GetTaskQueryResults;
  24756. Property TaskRefreshResults : TSPTaskRefreshResultsEntitySet read GetTaskRefreshResults;
  24757. Property TaskWriteResults : TSPTaskWriteResultsEntitySet read GetTaskWriteResults;
  24758. Property UserOrderedSessionManagers : TSPUserOrderedSessionManagersEntitySet read GetUserOrderedSessionManagers;
  24759. Property UserSettingss : TSPUserSettingssEntitySet read GetUserSettingss;
  24760. Property UserSettingsManagers : TSPUserSettingsManagersEntitySet read GetUserSettingsManagers;
  24761. Property ViewSelectionInfos : TSPViewSelectionInfosEntitySet read GetViewSelectionInfos;
  24762. Property SPOIdentityHelpers : TSPSPOIdentityHelpersEntitySet read GetSPOIdentityHelpers;
  24763. Property AppPrincipalIdentityProviders : TSPAppPrincipalIdentityProvidersEntitySet read GetAppPrincipalIdentityProviders;
  24764. Property AppPrincipalManagers : TSPAppPrincipalManagersEntitySet read GetAppPrincipalManagers;
  24765. Property AppPrincipalCredentials : TSPAppPrincipalCredentialsEntitySet read GetAppPrincipalCredentials;
  24766. Property AppPrincipalNames : TSPAppPrincipalNamesEntitySet read GetAppPrincipalNames;
  24767. Property DraftProjectResources1 : TSPDraftProjectResources1EntitySet read GetDraftProjectResources1;
  24768. end;
  24769. { --------------------------------------------------------------------
  24770. SP: Apps
  24771. --------------------------------------------------------------------}
  24772. TSPAppsEntitySet = Class(TODataEntitySet)
  24773. public
  24774. class function ObjectRestKind : String; Override;
  24775. class function EntityClass : TODataEntityClass; Override;
  24776. function Get(const Id: string) : TMicrosoft_AppServicesApp;
  24777. function List(const AQuery: String; out NextLink: String)
  24778. : TMicrosoft_AppServicesAppArray;
  24779. function List(const AQuery: TQueryParams; out NextLink: String)
  24780. : TMicrosoft_AppServicesAppArray;
  24781. function ListAll(const AQuery: String) : TMicrosoft_AppServicesAppArray;
  24782. function ListAll(const AQuery: TQueryParams)
  24783. : TMicrosoft_AppServicesAppArray;
  24784. end;
  24785. { --------------------------------------------------------------------
  24786. SP: Files
  24787. --------------------------------------------------------------------}
  24788. TSPFilesEntitySet = Class(TODataEntitySet)
  24789. public
  24790. class function ObjectRestKind : String; Override;
  24791. class function EntityClass : TODataEntityClass; Override;
  24792. function Get(const Id: string) : TMS_FileServicesFileSystemItem;
  24793. function List(const AQuery: String; out NextLink: String)
  24794. : TMS_FileServicesFileSystemItemArray;
  24795. function List(const AQuery: TQueryParams; out NextLink: String)
  24796. : TMS_FileServicesFileSystemItemArray;
  24797. function ListAll(const AQuery: String)
  24798. : TMS_FileServicesFileSystemItemArray;
  24799. function ListAll(const AQuery: TQueryParams)
  24800. : TMS_FileServicesFileSystemItemArray;
  24801. end;
  24802. { --------------------------------------------------------------------
  24803. SP: Lists
  24804. --------------------------------------------------------------------}
  24805. TSPListsEntitySet = Class(TODataEntitySet)
  24806. public
  24807. class function ObjectRestKind : String; Override;
  24808. class function EntityClass : TODataEntityClass; Override;
  24809. function Get(const HasUniqueRoleAssignments: boolean) : TSPList;
  24810. function List(const AQuery: String; out NextLink: String) : TSPListArray;
  24811. function List(const AQuery: TQueryParams; out NextLink: String)
  24812. : TSPListArray;
  24813. function ListAll(const AQuery: String) : TSPListArray;
  24814. function ListAll(const AQuery: TQueryParams) : TSPListArray;
  24815. end;
  24816. { --------------------------------------------------------------------
  24817. SP: Mes
  24818. --------------------------------------------------------------------}
  24819. TSPMesEntitySet = Class(TODataEntitySet)
  24820. public
  24821. class function ObjectRestKind : String; Override;
  24822. class function EntityClass : TODataEntityClass; Override;
  24823. function Get(const Id4a81de82eeb94d6080ea5bf63e27023a: string)
  24824. : TSPRequestUserContext;
  24825. function List(const AQuery: String; out NextLink: String)
  24826. : TSPRequestUserContextArray;
  24827. function List(const AQuery: TQueryParams; out NextLink: String)
  24828. : TSPRequestUserContextArray;
  24829. function ListAll(const AQuery: String) : TSPRequestUserContextArray;
  24830. function ListAll(const AQuery: TQueryParams)
  24831. : TSPRequestUserContextArray;
  24832. end;
  24833. { --------------------------------------------------------------------
  24834. SP: Sites
  24835. --------------------------------------------------------------------}
  24836. TSPSitesEntitySet = Class(TODataEntitySet)
  24837. public
  24838. class function ObjectRestKind : String; Override;
  24839. class function EntityClass : TODataEntityClass; Override;
  24840. function Get(const Id: TGUIDString) : TSPSite;
  24841. function List(const AQuery: String; out NextLink: String) : TSPSiteArray;
  24842. function List(const AQuery: TQueryParams; out NextLink: String)
  24843. : TSPSiteArray;
  24844. function ListAll(const AQuery: String) : TSPSiteArray;
  24845. function ListAll(const AQuery: TQueryParams) : TSPSiteArray;
  24846. end;
  24847. { --------------------------------------------------------------------
  24848. SP: Webs
  24849. --------------------------------------------------------------------}
  24850. TSPWebsEntitySet = Class(TODataEntitySet)
  24851. public
  24852. class function ObjectRestKind : String; Override;
  24853. class function EntityClass : TODataEntityClass; Override;
  24854. function Get(const HasUniqueRoleAssignments: boolean) : TSPWeb;
  24855. function List(const AQuery: String; out NextLink: String) : TSPWebArray;
  24856. function List(const AQuery: TQueryParams; out NextLink: String)
  24857. : TSPWebArray;
  24858. function ListAll(const AQuery: String) : TSPWebArray;
  24859. function ListAll(const AQuery: TQueryParams) : TSPWebArray;
  24860. end;
  24861. { --------------------------------------------------------------------
  24862. SP: AppStores
  24863. --------------------------------------------------------------------}
  24864. TSPAppStoresEntitySet = Class(TODataEntitySet)
  24865. public
  24866. class function ObjectRestKind : String; Override;
  24867. class function EntityClass : TODataEntityClass; Override;
  24868. function Get(const Id4a81de82eeb94d6080ea5bf63e27023a: string)
  24869. : TMicrosoft_AppServicesAppStore;
  24870. function List(const AQuery: String; out NextLink: String)
  24871. : TMicrosoft_AppServicesAppStoreArray;
  24872. function List(const AQuery: TQueryParams; out NextLink: String)
  24873. : TMicrosoft_AppServicesAppStoreArray;
  24874. function ListAll(const AQuery: String)
  24875. : TMicrosoft_AppServicesAppStoreArray;
  24876. function ListAll(const AQuery: TQueryParams)
  24877. : TMicrosoft_AppServicesAppStoreArray;
  24878. end;
  24879. { --------------------------------------------------------------------
  24880. SP: ConnectionSettingss
  24881. --------------------------------------------------------------------}
  24882. TSPConnectionSettingssEntitySet = Class(TODataEntitySet)
  24883. public
  24884. class function ObjectRestKind : String; Override;
  24885. class function EntityClass : TODataEntityClass; Override;
  24886. function Get(const _Name: string)
  24887. : TMicrosoft_BusinessData_Infrastructure_SecureStoreConnectionSettings;
  24888. function List(const AQuery: String; out NextLink: String)
  24889. : TMicrosoft_BusinessData_Infrastructure_SecureStoreConnectionSettingsArray;
  24890. function List(const AQuery: TQueryParams; out NextLink: String)
  24891. : TMicrosoft_BusinessData_Infrastructure_SecureStoreConnectionSettingsArray;
  24892. function ListAll(const AQuery: String)
  24893. : TMicrosoft_BusinessData_Infrastructure_SecureStoreConnectionSettingsArray;
  24894. function ListAll(const AQuery: TQueryParams)
  24895. : TMicrosoft_BusinessData_Infrastructure_SecureStoreConnectionSettingsArray;
  24896. end;
  24897. { --------------------------------------------------------------------
  24898. SP: TargetApplications
  24899. --------------------------------------------------------------------}
  24900. TSPTargetApplicationsEntitySet = Class(TODataEntitySet)
  24901. public
  24902. class function ObjectRestKind : String; Override;
  24903. class function EntityClass : TODataEntityClass; Override;
  24904. function Get(const ApplicationId: string)
  24905. : TMicrosoft_Office_SecureStoreService_ServerTargetApplication;
  24906. function List(const AQuery: String; out NextLink: String)
  24907. : TMicrosoft_Office_SecureStoreService_ServerTargetApplicationArray;
  24908. function List(const AQuery: TQueryParams; out NextLink: String)
  24909. : TMicrosoft_Office_SecureStoreService_ServerTargetApplicationArray;
  24910. function ListAll(const AQuery: String)
  24911. : TMicrosoft_Office_SecureStoreService_ServerTargetApplicationArray;
  24912. function ListAll(const AQuery: TQueryParams)
  24913. : TMicrosoft_Office_SecureStoreService_ServerTargetApplicationArray;
  24914. end;
  24915. { --------------------------------------------------------------------
  24916. SP: TargetApplicationFields
  24917. --------------------------------------------------------------------}
  24918. TSPTargetApplicationFieldsEntitySet = Class(TODataEntitySet)
  24919. public
  24920. class function ObjectRestKind : String; Override;
  24921. class function EntityClass : TODataEntityClass; Override;
  24922. function Get(const _Name: string)
  24923. : TMicrosoft_Office_SecureStoreService_ServerTargetApplicationField;
  24924. function List(const AQuery: String; out NextLink: String)
  24925. : TMicrosoft_Office_SecureStoreService_ServerTargetApplicationFieldArray;
  24926. function List(const AQuery: TQueryParams; out NextLink: String)
  24927. : TMicrosoft_Office_SecureStoreService_ServerTargetApplicationFieldArray;
  24928. function ListAll(const AQuery: String)
  24929. : TMicrosoft_Office_SecureStoreService_ServerTargetApplicationFieldArray;
  24930. function ListAll(const AQuery: TQueryParams)
  24931. : TMicrosoft_Office_SecureStoreService_ServerTargetApplicationFieldArray;
  24932. end;
  24933. { --------------------------------------------------------------------
  24934. SP: Reputations
  24935. --------------------------------------------------------------------}
  24936. TSPReputationsEntitySet = Class(TODataEntitySet)
  24937. public
  24938. class function ObjectRestKind : String; Override;
  24939. class function EntityClass : TODataEntityClass; Override;
  24940. function Get(const Id4a81de82eeb94d6080ea5bf63e27023a: string)
  24941. : TMicrosoft_Office_Server_ReputationModelReputation;
  24942. function List(const AQuery: String; out NextLink: String)
  24943. : TMicrosoft_Office_Server_ReputationModelReputationArray;
  24944. function List(const AQuery: TQueryParams; out NextLink: String)
  24945. : TMicrosoft_Office_Server_ReputationModelReputationArray;
  24946. function ListAll(const AQuery: String)
  24947. : TMicrosoft_Office_Server_ReputationModelReputationArray;
  24948. function ListAll(const AQuery: TQueryParams)
  24949. : TMicrosoft_Office_Server_ReputationModelReputationArray;
  24950. end;
  24951. { --------------------------------------------------------------------
  24952. SP: SearchServices
  24953. --------------------------------------------------------------------}
  24954. TSPSearchServicesEntitySet = Class(TODataEntitySet)
  24955. public
  24956. class function ObjectRestKind : String; Override;
  24957. class function EntityClass : TODataEntityClass; Override;
  24958. function Get(const Id4a81de82eeb94d6080ea5bf63e27023a: string)
  24959. : TMicrosoft_Office_Server_Search_RESTSearchService;
  24960. function List(const AQuery: String; out NextLink: String)
  24961. : TMicrosoft_Office_Server_Search_RESTSearchServiceArray;
  24962. function List(const AQuery: TQueryParams; out NextLink: String)
  24963. : TMicrosoft_Office_Server_Search_RESTSearchServiceArray;
  24964. function ListAll(const AQuery: String)
  24965. : TMicrosoft_Office_Server_Search_RESTSearchServiceArray;
  24966. function ListAll(const AQuery: TQueryParams)
  24967. : TMicrosoft_Office_Server_Search_RESTSearchServiceArray;
  24968. end;
  24969. { --------------------------------------------------------------------
  24970. SP: Apps1
  24971. --------------------------------------------------------------------}
  24972. TSPApps1EntitySet = Class(TODataEntitySet)
  24973. public
  24974. class function ObjectRestKind : String; Override;
  24975. class function EntityClass : TODataEntityClass; Override;
  24976. function Get(const Id: TGUIDString) : TMS_AppDataApp;
  24977. function List(const AQuery: String; out NextLink: String)
  24978. : TMS_AppDataAppArray;
  24979. function List(const AQuery: TQueryParams; out NextLink: String)
  24980. : TMS_AppDataAppArray;
  24981. function ListAll(const AQuery: String) : TMS_AppDataAppArray;
  24982. function ListAll(const AQuery: TQueryParams) : TMS_AppDataAppArray;
  24983. end;
  24984. { --------------------------------------------------------------------
  24985. SP: PointPublishingAdmins
  24986. --------------------------------------------------------------------}
  24987. TSPPointPublishingAdminsEntitySet = Class(TODataEntitySet)
  24988. public
  24989. class function ObjectRestKind : String; Override;
  24990. class function EntityClass : TODataEntityClass; Override;
  24991. function Get(const Id4a81de82eeb94d6080ea5bf63e27023a: string)
  24992. : TMicrosoft_Online_SharePoint_PointPublishingPointPublishingAdmin;
  24993. function List(const AQuery: String; out NextLink: String)
  24994. : TMicrosoft_Online_SharePoint_PointPublishingPointPublishingAdminArray;
  24995. function List(const AQuery: TQueryParams; out NextLink: String)
  24996. : TMicrosoft_Online_SharePoint_PointPublishingPointPublishingAdminArray;
  24997. function ListAll(const AQuery: String)
  24998. : TMicrosoft_Online_SharePoint_PointPublishingPointPublishingAdminArray;
  24999. function ListAll(const AQuery: TQueryParams)
  25000. : TMicrosoft_Online_SharePoint_PointPublishingPointPublishingAdminArray;
  25001. end;
  25002. { --------------------------------------------------------------------
  25003. SP: DDIAdapters
  25004. --------------------------------------------------------------------}
  25005. TSPDDIAdaptersEntitySet = Class(TODataEntitySet)
  25006. public
  25007. class function ObjectRestKind : String; Override;
  25008. class function EntityClass : TODataEntityClass; Override;
  25009. function Get(const Id4a81de82eeb94d6080ea5bf63e27023a: string)
  25010. : TMicrosoft_Online_SharePoint_TenantAdmin_MiddleTierDDIAdapter;
  25011. function List(const AQuery: String; out NextLink: String)
  25012. : TMicrosoft_Online_SharePoint_TenantAdmin_MiddleTierDDIAdapterArray;
  25013. function List(const AQuery: TQueryParams; out NextLink: String)
  25014. : TMicrosoft_Online_SharePoint_TenantAdmin_MiddleTierDDIAdapterArray;
  25015. function ListAll(const AQuery: String)
  25016. : TMicrosoft_Online_SharePoint_TenantAdmin_MiddleTierDDIAdapterArray;
  25017. function ListAll(const AQuery: TQueryParams)
  25018. : TMicrosoft_Online_SharePoint_TenantAdmin_MiddleTierDDIAdapterArray;
  25019. end;
  25020. { --------------------------------------------------------------------
  25021. SP: SPOTenantWebTemplateCollections
  25022. --------------------------------------------------------------------}
  25023. TSPSPOTenantWebTemplateCollectionsEntitySet = Class(TODataEntitySet)
  25024. public
  25025. class function ObjectRestKind : String; Override;
  25026. class function EntityClass : TODataEntityClass; Override;
  25027. function Get(const Id4a81de82eeb94d6080ea5bf63e27023a: string)
  25028. : TMicrosoft_Online_SharePoint_TenantAdministrationSPOTenantWebTemplateCollection;
  25029. function List(const AQuery: String; out NextLink: String)
  25030. : TMicrosoft_Online_SharePoint_TenantAdministrationSPOTenantWebTemplateCollectionArray;
  25031. function List(const AQuery: TQueryParams; out NextLink: String)
  25032. : TMicrosoft_Online_SharePoint_TenantAdministrationSPOTenantWebTemplateCollectionArray;
  25033. function ListAll(const AQuery: String)
  25034. : TMicrosoft_Online_SharePoint_TenantAdministrationSPOTenantWebTemplateCollectionArray;
  25035. function ListAll(const AQuery: TQueryParams)
  25036. : TMicrosoft_Online_SharePoint_TenantAdministrationSPOTenantWebTemplateCollectionArray;
  25037. end;
  25038. { --------------------------------------------------------------------
  25039. SP: ExternalUsers
  25040. --------------------------------------------------------------------}
  25041. TSPExternalUsersEntitySet = Class(TODataEntitySet)
  25042. public
  25043. class function ObjectRestKind : String; Override;
  25044. class function EntityClass : TODataEntityClass; Override;
  25045. function Get(const AcceptedAs: string)
  25046. : TMicrosoft_Online_SharePoint_TenantManagementExternalUser;
  25047. function List(const AQuery: String; out NextLink: String)
  25048. : TMicrosoft_Online_SharePoint_TenantManagementExternalUserArray;
  25049. function List(const AQuery: TQueryParams; out NextLink: String)
  25050. : TMicrosoft_Online_SharePoint_TenantManagementExternalUserArray;
  25051. function ListAll(const AQuery: String)
  25052. : TMicrosoft_Online_SharePoint_TenantManagementExternalUserArray;
  25053. function ListAll(const AQuery: TQueryParams)
  25054. : TMicrosoft_Online_SharePoint_TenantManagementExternalUserArray;
  25055. end;
  25056. { --------------------------------------------------------------------
  25057. SP: GetExternalUsersResultss
  25058. --------------------------------------------------------------------}
  25059. TSPGetExternalUsersResultssEntitySet = Class(TODataEntitySet)
  25060. public
  25061. class function ObjectRestKind : String; Override;
  25062. class function EntityClass : TODataEntityClass; Override;
  25063. function Get(const TotalUserCount: TInt32)
  25064. : TMicrosoft_Online_SharePoint_TenantManagementGetExternalUsersResults;
  25065. function List(const AQuery: String; out NextLink: String)
  25066. : TMicrosoft_Online_SharePoint_TenantManagementGetExternalUsersResultsArray;
  25067. function List(const AQuery: TQueryParams; out NextLink: String)
  25068. : TMicrosoft_Online_SharePoint_TenantManagementGetExternalUsersResultsArray;
  25069. function ListAll(const AQuery: String)
  25070. : TMicrosoft_Online_SharePoint_TenantManagementGetExternalUsersResultsArray;
  25071. function ListAll(const AQuery: TQueryParams)
  25072. : TMicrosoft_Online_SharePoint_TenantManagementGetExternalUsersResultsArray;
  25073. end;
  25074. { --------------------------------------------------------------------
  25075. SP: Office365Tenants
  25076. --------------------------------------------------------------------}
  25077. TSPOffice365TenantsEntitySet = Class(TODataEntitySet)
  25078. public
  25079. class function ObjectRestKind : String; Override;
  25080. class function EntityClass : TODataEntityClass; Override;
  25081. function Get(const DisplayStartASiteOption: boolean)
  25082. : TMicrosoft_Online_SharePoint_TenantManagementOffice365Tenant;
  25083. function List(const AQuery: String; out NextLink: String)
  25084. : TMicrosoft_Online_SharePoint_TenantManagementOffice365TenantArray;
  25085. function List(const AQuery: TQueryParams; out NextLink: String)
  25086. : TMicrosoft_Online_SharePoint_TenantManagementOffice365TenantArray;
  25087. function ListAll(const AQuery: String)
  25088. : TMicrosoft_Online_SharePoint_TenantManagementOffice365TenantArray;
  25089. function ListAll(const AQuery: TQueryParams)
  25090. : TMicrosoft_Online_SharePoint_TenantManagementOffice365TenantArray;
  25091. end;
  25092. { --------------------------------------------------------------------
  25093. SP: RemoveExternalUsersResultss
  25094. --------------------------------------------------------------------}
  25095. TSPRemoveExternalUsersResultssEntitySet = Class(TODataEntitySet)
  25096. public
  25097. class function ObjectRestKind : String; Override;
  25098. class function EntityClass : TODataEntityClass; Override;
  25099. function Get(const Id4a81de82eeb94d6080ea5bf63e27023a: string)
  25100. : TMicrosoft_Online_SharePoint_TenantManagementRemoveExternalUsersResults;
  25101. function List(const AQuery: String; out NextLink: String)
  25102. : TMicrosoft_Online_SharePoint_TenantManagementRemoveExternalUsersResultsArray;
  25103. function List(const AQuery: TQueryParams; out NextLink: String)
  25104. : TMicrosoft_Online_SharePoint_TenantManagementRemoveExternalUsersResultsArray;
  25105. function ListAll(const AQuery: String)
  25106. : TMicrosoft_Online_SharePoint_TenantManagementRemoveExternalUsersResultsArray;
  25107. function ListAll(const AQuery: TQueryParams)
  25108. : TMicrosoft_Online_SharePoint_TenantManagementRemoveExternalUsersResultsArray;
  25109. end;
  25110. { --------------------------------------------------------------------
  25111. SP: FeatureDefinitions
  25112. --------------------------------------------------------------------}
  25113. TSPFeatureDefinitionsEntitySet = Class(TODataEntitySet)
  25114. public
  25115. class function ObjectRestKind : String; Override;
  25116. class function EntityClass : TODataEntityClass; Override;
  25117. function Get(const Id: TGUIDString)
  25118. : TMicrosoft_SharePoint_AdministrationFeatureDefinition;
  25119. function List(const AQuery: String; out NextLink: String)
  25120. : TMicrosoft_SharePoint_AdministrationFeatureDefinitionArray;
  25121. function List(const AQuery: TQueryParams; out NextLink: String)
  25122. : TMicrosoft_SharePoint_AdministrationFeatureDefinitionArray;
  25123. function ListAll(const AQuery: String)
  25124. : TMicrosoft_SharePoint_AdministrationFeatureDefinitionArray;
  25125. function ListAll(const AQuery: TQueryParams)
  25126. : TMicrosoft_SharePoint_AdministrationFeatureDefinitionArray;
  25127. end;
  25128. { --------------------------------------------------------------------
  25129. SP: SPAnalyticsUsageServices
  25130. --------------------------------------------------------------------}
  25131. TSPSPAnalyticsUsageServicesEntitySet = Class(TODataEntitySet)
  25132. public
  25133. class function ObjectRestKind : String; Override;
  25134. class function EntityClass : TODataEntityClass; Override;
  25135. function Get(const Id4a81de82eeb94d6080ea5bf63e27023a: string)
  25136. : TMicrosoft_SharePoint_AdministrationSPAnalyticsUsageService;
  25137. function List(const AQuery: String; out NextLink: String)
  25138. : TMicrosoft_SharePoint_AdministrationSPAnalyticsUsageServiceArray;
  25139. function List(const AQuery: TQueryParams; out NextLink: String)
  25140. : TMicrosoft_SharePoint_AdministrationSPAnalyticsUsageServiceArray;
  25141. function ListAll(const AQuery: String)
  25142. : TMicrosoft_SharePoint_AdministrationSPAnalyticsUsageServiceArray;
  25143. function ListAll(const AQuery: TQueryParams)
  25144. : TMicrosoft_SharePoint_AdministrationSPAnalyticsUsageServiceArray;
  25145. end;
  25146. { --------------------------------------------------------------------
  25147. SP: SPAppStateQueryJobDefinitions
  25148. --------------------------------------------------------------------}
  25149. TSPSPAppStateQueryJobDefinitionsEntitySet = Class(TODataEntitySet)
  25150. public
  25151. class function ObjectRestKind : String; Override;
  25152. class function EntityClass : TODataEntityClass; Override;
  25153. function Get(const Id4a81de82eeb94d6080ea5bf63e27023a: string)
  25154. : TMicrosoft_SharePoint_AdministrationSPAppStateQueryJobDefinition;
  25155. function List(const AQuery: String; out NextLink: String)
  25156. : TMicrosoft_SharePoint_AdministrationSPAppStateQueryJobDefinitionArray;
  25157. function List(const AQuery: TQueryParams; out NextLink: String)
  25158. : TMicrosoft_SharePoint_AdministrationSPAppStateQueryJobDefinitionArray;
  25159. function ListAll(const AQuery: String)
  25160. : TMicrosoft_SharePoint_AdministrationSPAppStateQueryJobDefinitionArray;
  25161. function ListAll(const AQuery: TQueryParams)
  25162. : TMicrosoft_SharePoint_AdministrationSPAppStateQueryJobDefinitionArray;
  25163. end;
  25164. { --------------------------------------------------------------------
  25165. SP: SPFarms
  25166. --------------------------------------------------------------------}
  25167. TSPSPFarmsEntitySet = Class(TODataEntitySet)
  25168. public
  25169. class function ObjectRestKind : String; Override;
  25170. class function EntityClass : TODataEntityClass; Override;
  25171. function Get(const Id: TGUIDString)
  25172. : TMicrosoft_SharePoint_AdministrationSPFarm;
  25173. function List(const AQuery: String; out NextLink: String)
  25174. : TMicrosoft_SharePoint_AdministrationSPFarmArray;
  25175. function List(const AQuery: TQueryParams; out NextLink: String)
  25176. : TMicrosoft_SharePoint_AdministrationSPFarmArray;
  25177. function ListAll(const AQuery: String)
  25178. : TMicrosoft_SharePoint_AdministrationSPFarmArray;
  25179. function ListAll(const AQuery: TQueryParams)
  25180. : TMicrosoft_SharePoint_AdministrationSPFarmArray;
  25181. end;
  25182. { --------------------------------------------------------------------
  25183. SP: SPTenantAppInstanceDatas
  25184. --------------------------------------------------------------------}
  25185. TSPSPTenantAppInstanceDatasEntitySet = Class(TODataEntitySet)
  25186. public
  25187. class function ObjectRestKind : String; Override;
  25188. class function EntityClass : TODataEntityClass; Override;
  25189. function Get(const Id4a81de82eeb94d6080ea5bf63e27023a: string)
  25190. : TMicrosoft_SharePoint_AdministrationSPTenantAppInstanceData;
  25191. function List(const AQuery: String; out NextLink: String)
  25192. : TMicrosoft_SharePoint_AdministrationSPTenantAppInstanceDataArray;
  25193. function List(const AQuery: TQueryParams; out NextLink: String)
  25194. : TMicrosoft_SharePoint_AdministrationSPTenantAppInstanceDataArray;
  25195. function ListAll(const AQuery: String)
  25196. : TMicrosoft_SharePoint_AdministrationSPTenantAppInstanceDataArray;
  25197. function ListAll(const AQuery: TQueryParams)
  25198. : TMicrosoft_SharePoint_AdministrationSPTenantAppInstanceDataArray;
  25199. end;
  25200. { --------------------------------------------------------------------
  25201. SP: SPWebApplications
  25202. --------------------------------------------------------------------}
  25203. TSPSPWebApplicationsEntitySet = Class(TODataEntitySet)
  25204. public
  25205. class function ObjectRestKind : String; Override;
  25206. class function EntityClass : TODataEntityClass; Override;
  25207. function Get(const Id: TGUIDString)
  25208. : TMicrosoft_SharePoint_AdministrationSPWebApplication;
  25209. function List(const AQuery: String; out NextLink: String)
  25210. : TMicrosoft_SharePoint_AdministrationSPWebApplicationArray;
  25211. function List(const AQuery: TQueryParams; out NextLink: String)
  25212. : TMicrosoft_SharePoint_AdministrationSPWebApplicationArray;
  25213. function ListAll(const AQuery: String)
  25214. : TMicrosoft_SharePoint_AdministrationSPWebApplicationArray;
  25215. function ListAll(const AQuery: TQueryParams)
  25216. : TMicrosoft_SharePoint_AdministrationSPWebApplicationArray;
  25217. end;
  25218. { --------------------------------------------------------------------
  25219. SP: SPWebServices
  25220. --------------------------------------------------------------------}
  25221. TSPSPWebServicesEntitySet = Class(TODataEntitySet)
  25222. public
  25223. class function ObjectRestKind : String; Override;
  25224. class function EntityClass : TODataEntityClass; Override;
  25225. function Get(const Id4a81de82eeb94d6080ea5bf63e27023a: string)
  25226. : TMicrosoft_SharePoint_AdministrationSPWebService;
  25227. function List(const AQuery: String; out NextLink: String)
  25228. : TMicrosoft_SharePoint_AdministrationSPWebServiceArray;
  25229. function List(const AQuery: TQueryParams; out NextLink: String)
  25230. : TMicrosoft_SharePoint_AdministrationSPWebServiceArray;
  25231. function ListAll(const AQuery: String)
  25232. : TMicrosoft_SharePoint_AdministrationSPWebServiceArray;
  25233. function ListAll(const AQuery: TQueryParams)
  25234. : TMicrosoft_SharePoint_AdministrationSPWebServiceArray;
  25235. end;
  25236. { --------------------------------------------------------------------
  25237. SP: SPAppPrincipalInfos
  25238. --------------------------------------------------------------------}
  25239. TSPSPAppPrincipalInfosEntitySet = Class(TODataEntitySet)
  25240. public
  25241. class function ObjectRestKind : String; Override;
  25242. class function EntityClass : TODataEntityClass; Override;
  25243. function Get(const _Name: string)
  25244. : TMicrosoft_SharePoint_AppManagementSPAppPrincipalInfo;
  25245. function List(const AQuery: String; out NextLink: String)
  25246. : TMicrosoft_SharePoint_AppManagementSPAppPrincipalInfoArray;
  25247. function List(const AQuery: TQueryParams; out NextLink: String)
  25248. : TMicrosoft_SharePoint_AppManagementSPAppPrincipalInfoArray;
  25249. function ListAll(const AQuery: String)
  25250. : TMicrosoft_SharePoint_AppManagementSPAppPrincipalInfoArray;
  25251. function ListAll(const AQuery: TQueryParams)
  25252. : TMicrosoft_SharePoint_AppManagementSPAppPrincipalInfoArray;
  25253. end;
  25254. { --------------------------------------------------------------------
  25255. SP: DocumentCrawlLogs
  25256. --------------------------------------------------------------------}
  25257. TSPDocumentCrawlLogsEntitySet = Class(TODataEntitySet)
  25258. public
  25259. class function ObjectRestKind : String; Override;
  25260. class function EntityClass : TODataEntityClass; Override;
  25261. function Get(const Id4a81de82eeb94d6080ea5bf63e27023a: string)
  25262. : TMicrosoft_SharePoint_Client_Search_AdministrationDocumentCrawlLog;
  25263. function List(const AQuery: String; out NextLink: String)
  25264. : TMicrosoft_SharePoint_Client_Search_AdministrationDocumentCrawlLogArray;
  25265. function List(const AQuery: TQueryParams; out NextLink: String)
  25266. : TMicrosoft_SharePoint_Client_Search_AdministrationDocumentCrawlLogArray;
  25267. function ListAll(const AQuery: String)
  25268. : TMicrosoft_SharePoint_Client_Search_AdministrationDocumentCrawlLogArray;
  25269. function ListAll(const AQuery: TQueryParams)
  25270. : TMicrosoft_SharePoint_Client_Search_AdministrationDocumentCrawlLogArray;
  25271. end;
  25272. { --------------------------------------------------------------------
  25273. SP: SignalStores
  25274. --------------------------------------------------------------------}
  25275. TSPSignalStoresEntitySet = Class(TODataEntitySet)
  25276. public
  25277. class function ObjectRestKind : String; Override;
  25278. class function EntityClass : TODataEntityClass; Override;
  25279. function Get(const Id4a81de82eeb94d6080ea5bf63e27023a: string)
  25280. : TMicrosoft_SharePoint_Client_Search_AnalyticsSignalStore;
  25281. function List(const AQuery: String; out NextLink: String)
  25282. : TMicrosoft_SharePoint_Client_Search_AnalyticsSignalStoreArray;
  25283. function List(const AQuery: TQueryParams; out NextLink: String)
  25284. : TMicrosoft_SharePoint_Client_Search_AnalyticsSignalStoreArray;
  25285. function ListAll(const AQuery: String)
  25286. : TMicrosoft_SharePoint_Client_Search_AnalyticsSignalStoreArray;
  25287. function ListAll(const AQuery: TQueryParams)
  25288. : TMicrosoft_SharePoint_Client_Search_AnalyticsSignalStoreArray;
  25289. end;
  25290. { --------------------------------------------------------------------
  25291. SP: QueryPersonalizationDatas
  25292. --------------------------------------------------------------------}
  25293. TSPQueryPersonalizationDatasEntitySet = Class(TODataEntitySet)
  25294. public
  25295. class function ObjectRestKind : String; Override;
  25296. class function EntityClass : TODataEntityClass; Override;
  25297. function Get(const Id4a81de82eeb94d6080ea5bf63e27023a: string)
  25298. : TMicrosoft_SharePoint_Client_Search_QueryQueryPersonalizationData;
  25299. function List(const AQuery: String; out NextLink: String)
  25300. : TMicrosoft_SharePoint_Client_Search_QueryQueryPersonalizationDataArray;
  25301. function List(const AQuery: TQueryParams; out NextLink: String)
  25302. : TMicrosoft_SharePoint_Client_Search_QueryQueryPersonalizationDataArray;
  25303. function ListAll(const AQuery: String)
  25304. : TMicrosoft_SharePoint_Client_Search_QueryQueryPersonalizationDataArray;
  25305. function ListAll(const AQuery: TQueryParams)
  25306. : TMicrosoft_SharePoint_Client_Search_QueryQueryPersonalizationDataArray;
  25307. end;
  25308. { --------------------------------------------------------------------
  25309. SP: RankingLabelings
  25310. --------------------------------------------------------------------}
  25311. TSPRankingLabelingsEntitySet = Class(TODataEntitySet)
  25312. public
  25313. class function ObjectRestKind : String; Override;
  25314. class function EntityClass : TODataEntityClass; Override;
  25315. function Get(const Id4a81de82eeb94d6080ea5bf63e27023a: string)
  25316. : TMicrosoft_SharePoint_Client_Search_QueryRankingLabeling;
  25317. function List(const AQuery: String; out NextLink: String)
  25318. : TMicrosoft_SharePoint_Client_Search_QueryRankingLabelingArray;
  25319. function List(const AQuery: TQueryParams; out NextLink: String)
  25320. : TMicrosoft_SharePoint_Client_Search_QueryRankingLabelingArray;
  25321. function ListAll(const AQuery: String)
  25322. : TMicrosoft_SharePoint_Client_Search_QueryRankingLabelingArray;
  25323. function ListAll(const AQuery: TQueryParams)
  25324. : TMicrosoft_SharePoint_Client_Search_QueryRankingLabelingArray;
  25325. end;
  25326. { --------------------------------------------------------------------
  25327. SP: ReorderingRuleCollections
  25328. --------------------------------------------------------------------}
  25329. TSPReorderingRuleCollectionsEntitySet = Class(TODataEntitySet)
  25330. public
  25331. class function ObjectRestKind : String; Override;
  25332. class function EntityClass : TODataEntityClass; Override;
  25333. function Get(const Id4a81de82eeb94d6080ea5bf63e27023a: string)
  25334. : TMicrosoft_SharePoint_Client_Search_QueryReorderingRuleCollection;
  25335. function List(const AQuery: String; out NextLink: String)
  25336. : TMicrosoft_SharePoint_Client_Search_QueryReorderingRuleCollectionArray;
  25337. function List(const AQuery: TQueryParams; out NextLink: String)
  25338. : TMicrosoft_SharePoint_Client_Search_QueryReorderingRuleCollectionArray;
  25339. function ListAll(const AQuery: String)
  25340. : TMicrosoft_SharePoint_Client_Search_QueryReorderingRuleCollectionArray;
  25341. function ListAll(const AQuery: TQueryParams)
  25342. : TMicrosoft_SharePoint_Client_Search_QueryReorderingRuleCollectionArray;
  25343. end;
  25344. { --------------------------------------------------------------------
  25345. SP: SortCollections
  25346. --------------------------------------------------------------------}
  25347. TSPSortCollectionsEntitySet = Class(TODataEntitySet)
  25348. public
  25349. class function ObjectRestKind : String; Override;
  25350. class function EntityClass : TODataEntityClass; Override;
  25351. function Get(const Id4a81de82eeb94d6080ea5bf63e27023a: string)
  25352. : TMicrosoft_SharePoint_Client_Search_QuerySortCollection;
  25353. function List(const AQuery: String; out NextLink: String)
  25354. : TMicrosoft_SharePoint_Client_Search_QuerySortCollectionArray;
  25355. function List(const AQuery: TQueryParams; out NextLink: String)
  25356. : TMicrosoft_SharePoint_Client_Search_QuerySortCollectionArray;
  25357. function ListAll(const AQuery: String)
  25358. : TMicrosoft_SharePoint_Client_Search_QuerySortCollectionArray;
  25359. function ListAll(const AQuery: TQueryParams)
  25360. : TMicrosoft_SharePoint_Client_Search_QuerySortCollectionArray;
  25361. end;
  25362. { --------------------------------------------------------------------
  25363. SP: StringCollections
  25364. --------------------------------------------------------------------}
  25365. TSPStringCollectionsEntitySet = Class(TODataEntitySet)
  25366. public
  25367. class function ObjectRestKind : String; Override;
  25368. class function EntityClass : TODataEntityClass; Override;
  25369. function Get(const Id4a81de82eeb94d6080ea5bf63e27023a: string)
  25370. : TMicrosoft_SharePoint_Client_Search_QueryStringCollection;
  25371. function List(const AQuery: String; out NextLink: String)
  25372. : TMicrosoft_SharePoint_Client_Search_QueryStringCollectionArray;
  25373. function List(const AQuery: TQueryParams; out NextLink: String)
  25374. : TMicrosoft_SharePoint_Client_Search_QueryStringCollectionArray;
  25375. function ListAll(const AQuery: String)
  25376. : TMicrosoft_SharePoint_Client_Search_QueryStringCollectionArray;
  25377. function ListAll(const AQuery: TQueryParams)
  25378. : TMicrosoft_SharePoint_Client_Search_QueryStringCollectionArray;
  25379. end;
  25380. { --------------------------------------------------------------------
  25381. SP: SPFlights
  25382. --------------------------------------------------------------------}
  25383. TSPSPFlightsEntitySet = Class(TODataEntitySet)
  25384. public
  25385. class function ObjectRestKind : String; Override;
  25386. class function EntityClass : TODataEntityClass; Override;
  25387. function Get(const Configuration: string)
  25388. : TMicrosoft_SharePoint_Flighting_RuntimeSPFlight;
  25389. function List(const AQuery: String; out NextLink: String)
  25390. : TMicrosoft_SharePoint_Flighting_RuntimeSPFlightArray;
  25391. function List(const AQuery: TQueryParams; out NextLink: String)
  25392. : TMicrosoft_SharePoint_Flighting_RuntimeSPFlightArray;
  25393. function ListAll(const AQuery: String)
  25394. : TMicrosoft_SharePoint_Flighting_RuntimeSPFlightArray;
  25395. function ListAll(const AQuery: TQueryParams)
  25396. : TMicrosoft_SharePoint_Flighting_RuntimeSPFlightArray;
  25397. end;
  25398. { --------------------------------------------------------------------
  25399. SP: SPCorporateCuratedGallerySettingsBases
  25400. --------------------------------------------------------------------}
  25401. TSPSPCorporateCuratedGallerySettingsBasesEntitySet = Class(TODataEntitySet)
  25402. public
  25403. class function ObjectRestKind : String; Override;
  25404. class function EntityClass : TODataEntityClass; Override;
  25405. function Get(const HostSiteFullUrl: string)
  25406. : TMicrosoft_SharePoint_Marketplace_CorporateCuratedGallerySPCorporateCuratedGallerySettingsBase;
  25407. function List(const AQuery: String; out NextLink: String)
  25408. : TMicrosoft_SharePoint_Marketplace_CorporateCuratedGallerySPCorporateCuratedGallerySettingsBaseArray;
  25409. function List(const AQuery: TQueryParams; out NextLink: String)
  25410. : TMicrosoft_SharePoint_Marketplace_CorporateCuratedGallerySPCorporateCuratedGallerySettingsBaseArray;
  25411. function ListAll(const AQuery: String)
  25412. : TMicrosoft_SharePoint_Marketplace_CorporateCuratedGallerySPCorporateCuratedGallerySettingsBaseArray;
  25413. function ListAll(const AQuery: TQueryParams)
  25414. : TMicrosoft_SharePoint_Marketplace_CorporateCuratedGallerySPCorporateCuratedGallerySettingsBaseArray;
  25415. end;
  25416. { --------------------------------------------------------------------
  25417. SP: SPCorporateCuratedGallerySettingsFactorys
  25418. --------------------------------------------------------------------}
  25419. TSPSPCorporateCuratedGallerySettingsFactorysEntitySet = Class(TODataEntitySet)
  25420. public
  25421. class function ObjectRestKind : String; Override;
  25422. class function EntityClass : TODataEntityClass; Override;
  25423. function Get(const Id4a81de82eeb94d6080ea5bf63e27023a: string)
  25424. : TMicrosoft_SharePoint_Marketplace_CorporateCuratedGallerySPCorporateCuratedGallerySettingsFactory;
  25425. function List(const AQuery: String; out NextLink: String)
  25426. : TMicrosoft_SharePoint_Marketplace_CorporateCuratedGallerySPCorporateCuratedGallerySettingsFactoryArray;
  25427. function List(const AQuery: TQueryParams; out NextLink: String)
  25428. : TMicrosoft_SharePoint_Marketplace_CorporateCuratedGallerySPCorporateCuratedGallerySettingsFactoryArray;
  25429. function ListAll(const AQuery: String)
  25430. : TMicrosoft_SharePoint_Marketplace_CorporateCuratedGallerySPCorporateCuratedGallerySettingsFactoryArray;
  25431. function ListAll(const AQuery: TQueryParams)
  25432. : TMicrosoft_SharePoint_Marketplace_CorporateCuratedGallerySPCorporateCuratedGallerySettingsFactoryArray;
  25433. end;
  25434. { --------------------------------------------------------------------
  25435. SP: SPMarketplaceSettingss
  25436. --------------------------------------------------------------------}
  25437. TSPSPMarketplaceSettingssEntitySet = Class(TODataEntitySet)
  25438. public
  25439. class function ObjectRestKind : String; Override;
  25440. class function EntityClass : TODataEntityClass; Override;
  25441. function Get(const Id4a81de82eeb94d6080ea5bf63e27023a: string)
  25442. : TMicrosoft_SharePoint_MarketplaceSPMarketplaceSettings;
  25443. function List(const AQuery: String; out NextLink: String)
  25444. : TMicrosoft_SharePoint_MarketplaceSPMarketplaceSettingsArray;
  25445. function List(const AQuery: TQueryParams; out NextLink: String)
  25446. : TMicrosoft_SharePoint_MarketplaceSPMarketplaceSettingsArray;
  25447. function ListAll(const AQuery: String)
  25448. : TMicrosoft_SharePoint_MarketplaceSPMarketplaceSettingsArray;
  25449. function ListAll(const AQuery: TQueryParams)
  25450. : TMicrosoft_SharePoint_MarketplaceSPMarketplaceSettingsArray;
  25451. end;
  25452. { --------------------------------------------------------------------
  25453. SP: NavigationServiceRests
  25454. --------------------------------------------------------------------}
  25455. TSPNavigationServiceRestsEntitySet = Class(TODataEntitySet)
  25456. public
  25457. class function ObjectRestKind : String; Override;
  25458. class function EntityClass : TODataEntityClass; Override;
  25459. function Get(const Id4a81de82eeb94d6080ea5bf63e27023a: string)
  25460. : TMicrosoft_SharePoint_Navigation_RESTNavigationServiceRest;
  25461. function List(const AQuery: String; out NextLink: String)
  25462. : TMicrosoft_SharePoint_Navigation_RESTNavigationServiceRestArray;
  25463. function List(const AQuery: TQueryParams; out NextLink: String)
  25464. : TMicrosoft_SharePoint_Navigation_RESTNavigationServiceRestArray;
  25465. function ListAll(const AQuery: String)
  25466. : TMicrosoft_SharePoint_Navigation_RESTNavigationServiceRestArray;
  25467. function ListAll(const AQuery: TQueryParams)
  25468. : TMicrosoft_SharePoint_Navigation_RESTNavigationServiceRestArray;
  25469. end;
  25470. { --------------------------------------------------------------------
  25471. SP: AppDetailss
  25472. --------------------------------------------------------------------}
  25473. TSPAppDetailssEntitySet = Class(TODataEntitySet)
  25474. public
  25475. class function ObjectRestKind : String; Override;
  25476. class function EntityClass : TODataEntityClass; Override;
  25477. function Get(const EulaUrl: string)
  25478. : TMicrosoft_SharePoint_PackagingAppDetails;
  25479. function List(const AQuery: String; out NextLink: String)
  25480. : TMicrosoft_SharePoint_PackagingAppDetailsArray;
  25481. function List(const AQuery: TQueryParams; out NextLink: String)
  25482. : TMicrosoft_SharePoint_PackagingAppDetailsArray;
  25483. function ListAll(const AQuery: String)
  25484. : TMicrosoft_SharePoint_PackagingAppDetailsArray;
  25485. function ListAll(const AQuery: TQueryParams)
  25486. : TMicrosoft_SharePoint_PackagingAppDetailsArray;
  25487. end;
  25488. { --------------------------------------------------------------------
  25489. SP: AppIconInfos
  25490. --------------------------------------------------------------------}
  25491. TSPAppIconInfosEntitySet = Class(TODataEntitySet)
  25492. public
  25493. class function ObjectRestKind : String; Override;
  25494. class function EntityClass : TODataEntityClass; Override;
  25495. function Get(const Content: TBinary)
  25496. : TMicrosoft_SharePoint_PackagingAppIconInfo;
  25497. function List(const AQuery: String; out NextLink: String)
  25498. : TMicrosoft_SharePoint_PackagingAppIconInfoArray;
  25499. function List(const AQuery: TQueryParams; out NextLink: String)
  25500. : TMicrosoft_SharePoint_PackagingAppIconInfoArray;
  25501. function ListAll(const AQuery: String)
  25502. : TMicrosoft_SharePoint_PackagingAppIconInfoArray;
  25503. function ListAll(const AQuery: TQueryParams)
  25504. : TMicrosoft_SharePoint_PackagingAppIconInfoArray;
  25505. end;
  25506. { --------------------------------------------------------------------
  25507. SP: CollaborationMailboxs
  25508. --------------------------------------------------------------------}
  25509. TSPCollaborationMailboxsEntitySet = Class(TODataEntitySet)
  25510. public
  25511. class function ObjectRestKind : String; Override;
  25512. class function EntityClass : TODataEntityClass; Override;
  25513. function Get(const Id4a81de82eeb94d6080ea5bf63e27023a: string)
  25514. : TMicrosoft_SharePoint_PortalCollaborationMailbox;
  25515. function List(const AQuery: String; out NextLink: String)
  25516. : TMicrosoft_SharePoint_PortalCollaborationMailboxArray;
  25517. function List(const AQuery: TQueryParams; out NextLink: String)
  25518. : TMicrosoft_SharePoint_PortalCollaborationMailboxArray;
  25519. function ListAll(const AQuery: String)
  25520. : TMicrosoft_SharePoint_PortalCollaborationMailboxArray;
  25521. function ListAll(const AQuery: TQueryParams)
  25522. : TMicrosoft_SharePoint_PortalCollaborationMailboxArray;
  25523. end;
  25524. { --------------------------------------------------------------------
  25525. SP: CommunityModerations
  25526. --------------------------------------------------------------------}
  25527. TSPCommunityModerationsEntitySet = Class(TODataEntitySet)
  25528. public
  25529. class function ObjectRestKind : String; Override;
  25530. class function EntityClass : TODataEntityClass; Override;
  25531. function Get(const Id4a81de82eeb94d6080ea5bf63e27023a: string)
  25532. : TMicrosoft_SharePoint_PortalCommunityModeration;
  25533. function List(const AQuery: String; out NextLink: String)
  25534. : TMicrosoft_SharePoint_PortalCommunityModerationArray;
  25535. function List(const AQuery: TQueryParams; out NextLink: String)
  25536. : TMicrosoft_SharePoint_PortalCommunityModerationArray;
  25537. function ListAll(const AQuery: String)
  25538. : TMicrosoft_SharePoint_PortalCommunityModerationArray;
  25539. function ListAll(const AQuery: TQueryParams)
  25540. : TMicrosoft_SharePoint_PortalCommunityModerationArray;
  25541. end;
  25542. { --------------------------------------------------------------------
  25543. SP: MySiteRecommendationss
  25544. --------------------------------------------------------------------}
  25545. TSPMySiteRecommendationssEntitySet = Class(TODataEntitySet)
  25546. public
  25547. class function ObjectRestKind : String; Override;
  25548. class function EntityClass : TODataEntityClass; Override;
  25549. function Get(const Id4a81de82eeb94d6080ea5bf63e27023a: string)
  25550. : TMicrosoft_SharePoint_PortalMySiteRecommendations;
  25551. function List(const AQuery: String; out NextLink: String)
  25552. : TMicrosoft_SharePoint_PortalMySiteRecommendationsArray;
  25553. function List(const AQuery: TQueryParams; out NextLink: String)
  25554. : TMicrosoft_SharePoint_PortalMySiteRecommendationsArray;
  25555. function ListAll(const AQuery: String)
  25556. : TMicrosoft_SharePoint_PortalMySiteRecommendationsArray;
  25557. function ListAll(const AQuery: TQueryParams)
  25558. : TMicrosoft_SharePoint_PortalMySiteRecommendationsArray;
  25559. end;
  25560. { --------------------------------------------------------------------
  25561. SP: DocumentsSharedWithGroups
  25562. --------------------------------------------------------------------}
  25563. TSPDocumentsSharedWithGroupsEntitySet = Class(TODataEntitySet)
  25564. public
  25565. class function ObjectRestKind : String; Override;
  25566. class function EntityClass : TODataEntityClass; Override;
  25567. function Get(const Id4a81de82eeb94d6080ea5bf63e27023a: string)
  25568. : TMicrosoft_SharePoint_Portal_UserProfilesDocumentsSharedWithGroup;
  25569. function List(const AQuery: String; out NextLink: String)
  25570. : TMicrosoft_SharePoint_Portal_UserProfilesDocumentsSharedWithGroupArray;
  25571. function List(const AQuery: TQueryParams; out NextLink: String)
  25572. : TMicrosoft_SharePoint_Portal_UserProfilesDocumentsSharedWithGroupArray;
  25573. function ListAll(const AQuery: String)
  25574. : TMicrosoft_SharePoint_Portal_UserProfilesDocumentsSharedWithGroupArray;
  25575. function ListAll(const AQuery: TQueryParams)
  25576. : TMicrosoft_SharePoint_Portal_UserProfilesDocumentsSharedWithGroupArray;
  25577. end;
  25578. { --------------------------------------------------------------------
  25579. SP: DocumentsSharedWithMes
  25580. --------------------------------------------------------------------}
  25581. TSPDocumentsSharedWithMesEntitySet = Class(TODataEntitySet)
  25582. public
  25583. class function ObjectRestKind : String; Override;
  25584. class function EntityClass : TODataEntityClass; Override;
  25585. function Get(const Id4a81de82eeb94d6080ea5bf63e27023a: string)
  25586. : TMicrosoft_SharePoint_Portal_UserProfilesDocumentsSharedWithMe;
  25587. function List(const AQuery: String; out NextLink: String)
  25588. : TMicrosoft_SharePoint_Portal_UserProfilesDocumentsSharedWithMeArray;
  25589. function List(const AQuery: TQueryParams; out NextLink: String)
  25590. : TMicrosoft_SharePoint_Portal_UserProfilesDocumentsSharedWithMeArray;
  25591. function ListAll(const AQuery: String)
  25592. : TMicrosoft_SharePoint_Portal_UserProfilesDocumentsSharedWithMeArray;
  25593. function ListAll(const AQuery: TQueryParams)
  25594. : TMicrosoft_SharePoint_Portal_UserProfilesDocumentsSharedWithMeArray;
  25595. end;
  25596. { --------------------------------------------------------------------
  25597. SP: DocumentsSharedWithPersons
  25598. --------------------------------------------------------------------}
  25599. TSPDocumentsSharedWithPersonsEntitySet = Class(TODataEntitySet)
  25600. public
  25601. class function ObjectRestKind : String; Override;
  25602. class function EntityClass : TODataEntityClass; Override;
  25603. function Get(const Id4a81de82eeb94d6080ea5bf63e27023a: string)
  25604. : TMicrosoft_SharePoint_Portal_UserProfilesDocumentsSharedWithPerson;
  25605. function List(const AQuery: String; out NextLink: String)
  25606. : TMicrosoft_SharePoint_Portal_UserProfilesDocumentsSharedWithPersonArray;
  25607. function List(const AQuery: TQueryParams; out NextLink: String)
  25608. : TMicrosoft_SharePoint_Portal_UserProfilesDocumentsSharedWithPersonArray;
  25609. function ListAll(const AQuery: String)
  25610. : TMicrosoft_SharePoint_Portal_UserProfilesDocumentsSharedWithPersonArray;
  25611. function ListAll(const AQuery: TQueryParams)
  25612. : TMicrosoft_SharePoint_Portal_UserProfilesDocumentsSharedWithPersonArray;
  25613. end;
  25614. { --------------------------------------------------------------------
  25615. SP: MySiteDismissStatusTexts
  25616. --------------------------------------------------------------------}
  25617. TSPMySiteDismissStatusTextsEntitySet = Class(TODataEntitySet)
  25618. public
  25619. class function ObjectRestKind : String; Override;
  25620. class function EntityClass : TODataEntityClass; Override;
  25621. function Get(const Id4a81de82eeb94d6080ea5bf63e27023a: string)
  25622. : TMicrosoft_SharePoint_Portal_UserProfilesMySiteDismissStatusText;
  25623. function List(const AQuery: String; out NextLink: String)
  25624. : TMicrosoft_SharePoint_Portal_UserProfilesMySiteDismissStatusTextArray;
  25625. function List(const AQuery: TQueryParams; out NextLink: String)
  25626. : TMicrosoft_SharePoint_Portal_UserProfilesMySiteDismissStatusTextArray;
  25627. function ListAll(const AQuery: String)
  25628. : TMicrosoft_SharePoint_Portal_UserProfilesMySiteDismissStatusTextArray;
  25629. function ListAll(const AQuery: TQueryParams)
  25630. : TMicrosoft_SharePoint_Portal_UserProfilesMySiteDismissStatusTextArray;
  25631. end;
  25632. { --------------------------------------------------------------------
  25633. SP: MySiteDocumentMoveUtilitys
  25634. --------------------------------------------------------------------}
  25635. TSPMySiteDocumentMoveUtilitysEntitySet = Class(TODataEntitySet)
  25636. public
  25637. class function ObjectRestKind : String; Override;
  25638. class function EntityClass : TODataEntityClass; Override;
  25639. function Get(const Id4a81de82eeb94d6080ea5bf63e27023a: string)
  25640. : TMicrosoft_SharePoint_Portal_UserProfilesMySiteDocumentMoveUtility;
  25641. function List(const AQuery: String; out NextLink: String)
  25642. : TMicrosoft_SharePoint_Portal_UserProfilesMySiteDocumentMoveUtilityArray;
  25643. function List(const AQuery: TQueryParams; out NextLink: String)
  25644. : TMicrosoft_SharePoint_Portal_UserProfilesMySiteDocumentMoveUtilityArray;
  25645. function ListAll(const AQuery: String)
  25646. : TMicrosoft_SharePoint_Portal_UserProfilesMySiteDocumentMoveUtilityArray;
  25647. function ListAll(const AQuery: TQueryParams)
  25648. : TMicrosoft_SharePoint_Portal_UserProfilesMySiteDocumentMoveUtilityArray;
  25649. end;
  25650. { --------------------------------------------------------------------
  25651. SP: MySiteLinkss
  25652. --------------------------------------------------------------------}
  25653. TSPMySiteLinkssEntitySet = Class(TODataEntitySet)
  25654. public
  25655. class function ObjectRestKind : String; Override;
  25656. class function EntityClass : TODataEntityClass; Override;
  25657. function Get(const AllDocumentsLink: string)
  25658. : TMicrosoft_SharePoint_Portal_UserProfilesMySiteLinks;
  25659. function List(const AQuery: String; out NextLink: String)
  25660. : TMicrosoft_SharePoint_Portal_UserProfilesMySiteLinksArray;
  25661. function List(const AQuery: TQueryParams; out NextLink: String)
  25662. : TMicrosoft_SharePoint_Portal_UserProfilesMySiteLinksArray;
  25663. function ListAll(const AQuery: String)
  25664. : TMicrosoft_SharePoint_Portal_UserProfilesMySiteLinksArray;
  25665. function ListAll(const AQuery: TQueryParams)
  25666. : TMicrosoft_SharePoint_Portal_UserProfilesMySiteLinksArray;
  25667. end;
  25668. { --------------------------------------------------------------------
  25669. SP: PromotedSitess
  25670. --------------------------------------------------------------------}
  25671. TSPPromotedSitessEntitySet = Class(TODataEntitySet)
  25672. public
  25673. class function ObjectRestKind : String; Override;
  25674. class function EntityClass : TODataEntityClass; Override;
  25675. function Get(const Id4a81de82eeb94d6080ea5bf63e27023a: string)
  25676. : TMicrosoft_SharePoint_Portal_UserProfilesPromotedSites;
  25677. function List(const AQuery: String; out NextLink: String)
  25678. : TMicrosoft_SharePoint_Portal_UserProfilesPromotedSitesArray;
  25679. function List(const AQuery: TQueryParams; out NextLink: String)
  25680. : TMicrosoft_SharePoint_Portal_UserProfilesPromotedSitesArray;
  25681. function ListAll(const AQuery: String)
  25682. : TMicrosoft_SharePoint_Portal_UserProfilesPromotedSitesArray;
  25683. function ListAll(const AQuery: TQueryParams)
  25684. : TMicrosoft_SharePoint_Portal_UserProfilesPromotedSitesArray;
  25685. end;
  25686. { --------------------------------------------------------------------
  25687. SP: SharedWithMeDocuments
  25688. --------------------------------------------------------------------}
  25689. TSPSharedWithMeDocumentsEntitySet = Class(TODataEntitySet)
  25690. public
  25691. class function ObjectRestKind : String; Override;
  25692. class function EntityClass : TODataEntityClass; Override;
  25693. function Get(const Id: TInt32)
  25694. : TMicrosoft_SharePoint_Portal_UserProfilesSharedWithMeDocument;
  25695. function List(const AQuery: String; out NextLink: String)
  25696. : TMicrosoft_SharePoint_Portal_UserProfilesSharedWithMeDocumentArray;
  25697. function List(const AQuery: TQueryParams; out NextLink: String)
  25698. : TMicrosoft_SharePoint_Portal_UserProfilesSharedWithMeDocumentArray;
  25699. function ListAll(const AQuery: String)
  25700. : TMicrosoft_SharePoint_Portal_UserProfilesSharedWithMeDocumentArray;
  25701. function ListAll(const AQuery: TQueryParams)
  25702. : TMicrosoft_SharePoint_Portal_UserProfilesSharedWithMeDocumentArray;
  25703. end;
  25704. { --------------------------------------------------------------------
  25705. SP: RecentDocuments
  25706. --------------------------------------------------------------------}
  25707. TSPRecentDocumentsEntitySet = Class(TODataEntitySet)
  25708. public
  25709. class function ObjectRestKind : String; Override;
  25710. class function EntityClass : TODataEntityClass; Override;
  25711. function Get(const Id: TInt32)
  25712. : TMicrosoft_SharePoint_Portal_WebControlsRecentDocument;
  25713. function List(const AQuery: String; out NextLink: String)
  25714. : TMicrosoft_SharePoint_Portal_WebControlsRecentDocumentArray;
  25715. function List(const AQuery: TQueryParams; out NextLink: String)
  25716. : TMicrosoft_SharePoint_Portal_WebControlsRecentDocumentArray;
  25717. function ListAll(const AQuery: String)
  25718. : TMicrosoft_SharePoint_Portal_WebControlsRecentDocumentArray;
  25719. function ListAll(const AQuery: TQueryParams)
  25720. : TMicrosoft_SharePoint_Portal_WebControlsRecentDocumentArray;
  25721. end;
  25722. { --------------------------------------------------------------------
  25723. SP: ModuleLinks
  25724. --------------------------------------------------------------------}
  25725. TSPModuleLinksEntitySet = Class(TODataEntitySet)
  25726. public
  25727. class function ObjectRestKind : String; Override;
  25728. class function EntityClass : TODataEntityClass; Override;
  25729. function Get(const Id4a81de82eeb94d6080ea5bf63e27023a: string)
  25730. : TMicrosoft_SharePoint_WebControlsModuleLink;
  25731. function List(const AQuery: String; out NextLink: String)
  25732. : TMicrosoft_SharePoint_WebControlsModuleLinkArray;
  25733. function List(const AQuery: TQueryParams; out NextLink: String)
  25734. : TMicrosoft_SharePoint_WebControlsModuleLinkArray;
  25735. function ListAll(const AQuery: String)
  25736. : TMicrosoft_SharePoint_WebControlsModuleLinkArray;
  25737. function ListAll(const AQuery: TQueryParams)
  25738. : TMicrosoft_SharePoint_WebControlsModuleLinkArray;
  25739. end;
  25740. { --------------------------------------------------------------------
  25741. SP: ResourceManifestInformations
  25742. --------------------------------------------------------------------}
  25743. TSPResourceManifestInformationsEntitySet = Class(TODataEntitySet)
  25744. public
  25745. class function ObjectRestKind : String; Override;
  25746. class function EntityClass : TODataEntityClass; Override;
  25747. function Get(const RequireJsScriptBlock: string)
  25748. : TMicrosoft_SharePoint_WebControlsResourceManifestInformation;
  25749. function List(const AQuery: String; out NextLink: String)
  25750. : TMicrosoft_SharePoint_WebControlsResourceManifestInformationArray;
  25751. function List(const AQuery: TQueryParams; out NextLink: String)
  25752. : TMicrosoft_SharePoint_WebControlsResourceManifestInformationArray;
  25753. function ListAll(const AQuery: String)
  25754. : TMicrosoft_SharePoint_WebControlsResourceManifestInformationArray;
  25755. function ListAll(const AQuery: TQueryParams)
  25756. : TMicrosoft_SharePoint_WebControlsResourceManifestInformationArray;
  25757. end;
  25758. { --------------------------------------------------------------------
  25759. SP: WacApis
  25760. --------------------------------------------------------------------}
  25761. TSPWacApisEntitySet = Class(TODataEntitySet)
  25762. public
  25763. class function ObjectRestKind : String; Override;
  25764. class function EntityClass : TODataEntityClass; Override;
  25765. function Get(const Id4a81de82eeb94d6080ea5bf63e27023a: string)
  25766. : TMicrosoft_SharePoint_YammerWacApi;
  25767. function List(const AQuery: String; out NextLink: String)
  25768. : TMicrosoft_SharePoint_YammerWacApiArray;
  25769. function List(const AQuery: TQueryParams; out NextLink: String)
  25770. : TMicrosoft_SharePoint_YammerWacApiArray;
  25771. function ListAll(const AQuery: String)
  25772. : TMicrosoft_SharePoint_YammerWacApiArray;
  25773. function ListAll(const AQuery: TQueryParams)
  25774. : TMicrosoft_SharePoint_YammerWacApiArray;
  25775. end;
  25776. { --------------------------------------------------------------------
  25777. SP: EntityItems
  25778. --------------------------------------------------------------------}
  25779. TSPEntityItemsEntitySet = Class(TODataEntitySet)
  25780. public
  25781. class function ObjectRestKind : String; Override;
  25782. class function EntityClass : TODataEntityClass; Override;
  25783. function Get(const Id: TInt32) : TMS_AppDataEntityItem;
  25784. function List(const AQuery: String; out NextLink: String)
  25785. : TMS_AppDataEntityItemArray;
  25786. function List(const AQuery: TQueryParams; out NextLink: String)
  25787. : TMS_AppDataEntityItemArray;
  25788. function ListAll(const AQuery: String) : TMS_AppDataEntityItemArray;
  25789. function ListAll(const AQuery: TQueryParams)
  25790. : TMS_AppDataEntityItemArray;
  25791. end;
  25792. { --------------------------------------------------------------------
  25793. SP: EntityTypes
  25794. --------------------------------------------------------------------}
  25795. TSPEntityTypesEntitySet = Class(TODataEntitySet)
  25796. public
  25797. class function ObjectRestKind : String; Override;
  25798. class function EntityClass : TODataEntityClass; Override;
  25799. function Get(const Id: TGUIDString) : TMS_AppDataEntityType;
  25800. function List(const AQuery: String; out NextLink: String)
  25801. : TMS_AppDataEntityTypeArray;
  25802. function List(const AQuery: TQueryParams; out NextLink: String)
  25803. : TMS_AppDataEntityTypeArray;
  25804. function ListAll(const AQuery: String) : TMS_AppDataEntityTypeArray;
  25805. function ListAll(const AQuery: TQueryParams)
  25806. : TMS_AppDataEntityTypeArray;
  25807. end;
  25808. { --------------------------------------------------------------------
  25809. SP: EntityTypeBases
  25810. --------------------------------------------------------------------}
  25811. TSPEntityTypeBasesEntitySet = Class(TODataEntitySet)
  25812. public
  25813. class function ObjectRestKind : String; Override;
  25814. class function EntityClass : TODataEntityClass; Override;
  25815. function Get(const Id: TGUIDString) : TMS_AppDataEntityTypeBase;
  25816. function List(const AQuery: String; out NextLink: String)
  25817. : TMS_AppDataEntityTypeBaseArray;
  25818. function List(const AQuery: TQueryParams; out NextLink: String)
  25819. : TMS_AppDataEntityTypeBaseArray;
  25820. function ListAll(const AQuery: String) : TMS_AppDataEntityTypeBaseArray;
  25821. function ListAll(const AQuery: TQueryParams)
  25822. : TMS_AppDataEntityTypeBaseArray;
  25823. end;
  25824. { --------------------------------------------------------------------
  25825. SP: ExternalEntityTypes
  25826. --------------------------------------------------------------------}
  25827. TSPExternalEntityTypesEntitySet = Class(TODataEntitySet)
  25828. public
  25829. class function ObjectRestKind : String; Override;
  25830. class function EntityClass : TODataEntityClass; Override;
  25831. function Get(const Id: TGUIDString) : TMS_AppDataExternalEntityType;
  25832. function List(const AQuery: String; out NextLink: String)
  25833. : TMS_AppDataExternalEntityTypeArray;
  25834. function List(const AQuery: TQueryParams; out NextLink: String)
  25835. : TMS_AppDataExternalEntityTypeArray;
  25836. function ListAll(const AQuery: String)
  25837. : TMS_AppDataExternalEntityTypeArray;
  25838. function ListAll(const AQuery: TQueryParams)
  25839. : TMS_AppDataExternalEntityTypeArray;
  25840. end;
  25841. { --------------------------------------------------------------------
  25842. SP: Fields
  25843. --------------------------------------------------------------------}
  25844. TSPFieldsEntitySet = Class(TODataEntitySet)
  25845. public
  25846. class function ObjectRestKind : String; Override;
  25847. class function EntityClass : TODataEntityClass; Override;
  25848. function Get(const Id: TGUIDString) : TMS_AppDataField;
  25849. function List(const AQuery: String; out NextLink: String)
  25850. : TMS_AppDataFieldArray;
  25851. function List(const AQuery: TQueryParams; out NextLink: String)
  25852. : TMS_AppDataFieldArray;
  25853. function ListAll(const AQuery: String) : TMS_AppDataFieldArray;
  25854. function ListAll(const AQuery: TQueryParams) : TMS_AppDataFieldArray;
  25855. end;
  25856. { --------------------------------------------------------------------
  25857. SP: ODataStoreContexts
  25858. --------------------------------------------------------------------}
  25859. TSPODataStoreContextsEntitySet = Class(TODataEntitySet)
  25860. public
  25861. class function ObjectRestKind : String; Override;
  25862. class function EntityClass : TODataEntityClass; Override;
  25863. function Get(const Id4a81de82eeb94d6080ea5bf63e27023a: string)
  25864. : TMS_AppDataODataStoreContext;
  25865. function List(const AQuery: String; out NextLink: String)
  25866. : TMS_AppDataODataStoreContextArray;
  25867. function List(const AQuery: TQueryParams; out NextLink: String)
  25868. : TMS_AppDataODataStoreContextArray;
  25869. function ListAll(const AQuery: String)
  25870. : TMS_AppDataODataStoreContextArray;
  25871. function ListAll(const AQuery: TQueryParams)
  25872. : TMS_AppDataODataStoreContextArray;
  25873. end;
  25874. { --------------------------------------------------------------------
  25875. SP: RequestContexts
  25876. --------------------------------------------------------------------}
  25877. TSPRequestContextsEntitySet = Class(TODataEntitySet)
  25878. public
  25879. class function ObjectRestKind : String; Override;
  25880. class function EntityClass : TODataEntityClass; Override;
  25881. function Get(const Id4a81de82eeb94d6080ea5bf63e27023a: string)
  25882. : TMS_AppDataRequestContext;
  25883. function List(const AQuery: String; out NextLink: String)
  25884. : TMS_AppDataRequestContextArray;
  25885. function List(const AQuery: TQueryParams; out NextLink: String)
  25886. : TMS_AppDataRequestContextArray;
  25887. function ListAll(const AQuery: String) : TMS_AppDataRequestContextArray;
  25888. function ListAll(const AQuery: TQueryParams)
  25889. : TMS_AppDataRequestContextArray;
  25890. end;
  25891. { --------------------------------------------------------------------
  25892. SP: SqlStoreContexts
  25893. --------------------------------------------------------------------}
  25894. TSPSqlStoreContextsEntitySet = Class(TODataEntitySet)
  25895. public
  25896. class function ObjectRestKind : String; Override;
  25897. class function EntityClass : TODataEntityClass; Override;
  25898. function Get(const Id4a81de82eeb94d6080ea5bf63e27023a: string)
  25899. : TMS_AppDataSqlStoreContext;
  25900. function List(const AQuery: String; out NextLink: String)
  25901. : TMS_AppDataSqlStoreContextArray;
  25902. function List(const AQuery: TQueryParams; out NextLink: String)
  25903. : TMS_AppDataSqlStoreContextArray;
  25904. function ListAll(const AQuery: String) : TMS_AppDataSqlStoreContextArray;
  25905. function ListAll(const AQuery: TQueryParams)
  25906. : TMS_AppDataSqlStoreContextArray;
  25907. end;
  25908. { --------------------------------------------------------------------
  25909. SP: StoreContextBases
  25910. --------------------------------------------------------------------}
  25911. TSPStoreContextBasesEntitySet = Class(TODataEntitySet)
  25912. public
  25913. class function ObjectRestKind : String; Override;
  25914. class function EntityClass : TODataEntityClass; Override;
  25915. function Get(const Id4a81de82eeb94d6080ea5bf63e27023a: string)
  25916. : TMS_AppDataStoreContextBase;
  25917. function List(const AQuery: String; out NextLink: String)
  25918. : TMS_AppDataStoreContextBaseArray;
  25919. function List(const AQuery: TQueryParams; out NextLink: String)
  25920. : TMS_AppDataStoreContextBaseArray;
  25921. function ListAll(const AQuery: String)
  25922. : TMS_AppDataStoreContextBaseArray;
  25923. function ListAll(const AQuery: TQueryParams)
  25924. : TMS_AppDataStoreContextBaseArray;
  25925. end;
  25926. { --------------------------------------------------------------------
  25927. SP: Files1
  25928. --------------------------------------------------------------------}
  25929. TSPFiles1EntitySet = Class(TODataEntitySet)
  25930. public
  25931. class function ObjectRestKind : String; Override;
  25932. class function EntityClass : TODataEntityClass; Override;
  25933. function Get(const Id: string) : TMS_FileServices_File;
  25934. function List(const AQuery: String; out NextLink: String)
  25935. : TMS_FileServices_FileArray;
  25936. function List(const AQuery: TQueryParams; out NextLink: String)
  25937. : TMS_FileServices_FileArray;
  25938. function ListAll(const AQuery: String) : TMS_FileServices_FileArray;
  25939. function ListAll(const AQuery: TQueryParams)
  25940. : TMS_FileServices_FileArray;
  25941. end;
  25942. { --------------------------------------------------------------------
  25943. SP: FileServices
  25944. --------------------------------------------------------------------}
  25945. TSPFileServicesEntitySet = Class(TODataEntitySet)
  25946. public
  25947. class function ObjectRestKind : String; Override;
  25948. class function EntityClass : TODataEntityClass; Override;
  25949. function Get(const Id4a81de82eeb94d6080ea5bf63e27023a: string)
  25950. : TMS_FileServicesFileService;
  25951. function List(const AQuery: String; out NextLink: String)
  25952. : TMS_FileServicesFileServiceArray;
  25953. function List(const AQuery: TQueryParams; out NextLink: String)
  25954. : TMS_FileServicesFileServiceArray;
  25955. function ListAll(const AQuery: String)
  25956. : TMS_FileServicesFileServiceArray;
  25957. function ListAll(const AQuery: TQueryParams)
  25958. : TMS_FileServicesFileServiceArray;
  25959. end;
  25960. { --------------------------------------------------------------------
  25961. SP: Folders
  25962. --------------------------------------------------------------------}
  25963. TSPFoldersEntitySet = Class(TODataEntitySet)
  25964. public
  25965. class function ObjectRestKind : String; Override;
  25966. class function EntityClass : TODataEntityClass; Override;
  25967. function Get(const Id: string) : TMS_FileServicesFolder;
  25968. function List(const AQuery: String; out NextLink: String)
  25969. : TMS_FileServicesFolderArray;
  25970. function List(const AQuery: TQueryParams; out NextLink: String)
  25971. : TMS_FileServicesFolderArray;
  25972. function ListAll(const AQuery: String) : TMS_FileServicesFolderArray;
  25973. function ListAll(const AQuery: TQueryParams)
  25974. : TMS_FileServicesFolderArray;
  25975. end;
  25976. { --------------------------------------------------------------------
  25977. SP: MeFileServices
  25978. --------------------------------------------------------------------}
  25979. TSPMeFileServicesEntitySet = Class(TODataEntitySet)
  25980. public
  25981. class function ObjectRestKind : String; Override;
  25982. class function EntityClass : TODataEntityClass; Override;
  25983. function Get(const Id4a81de82eeb94d6080ea5bf63e27023a: string)
  25984. : TMS_FileServicesMeFileService;
  25985. function List(const AQuery: String; out NextLink: String)
  25986. : TMS_FileServicesMeFileServiceArray;
  25987. function List(const AQuery: TQueryParams; out NextLink: String)
  25988. : TMS_FileServicesMeFileServiceArray;
  25989. function ListAll(const AQuery: String)
  25990. : TMS_FileServicesMeFileServiceArray;
  25991. function ListAll(const AQuery: TQueryParams)
  25992. : TMS_FileServicesMeFileServiceArray;
  25993. end;
  25994. { --------------------------------------------------------------------
  25995. SP: Diagnosticss
  25996. --------------------------------------------------------------------}
  25997. TSPDiagnosticssEntitySet = Class(TODataEntitySet)
  25998. public
  25999. class function ObjectRestKind : String; Override;
  26000. class function EntityClass : TODataEntityClass; Override;
  26001. function Get(const Id4a81de82eeb94d6080ea5bf63e27023a: string)
  26002. : TOBA_Server_ServerWrapperDiagnostics;
  26003. function List(const AQuery: String; out NextLink: String)
  26004. : TOBA_Server_ServerWrapperDiagnosticsArray;
  26005. function List(const AQuery: TQueryParams; out NextLink: String)
  26006. : TOBA_Server_ServerWrapperDiagnosticsArray;
  26007. function ListAll(const AQuery: String)
  26008. : TOBA_Server_ServerWrapperDiagnosticsArray;
  26009. function ListAll(const AQuery: TQueryParams)
  26010. : TOBA_Server_ServerWrapperDiagnosticsArray;
  26011. end;
  26012. { --------------------------------------------------------------------
  26013. SP: Reportings
  26014. --------------------------------------------------------------------}
  26015. TSPReportingsEntitySet = Class(TODataEntitySet)
  26016. public
  26017. class function ObjectRestKind : String; Override;
  26018. class function EntityClass : TODataEntityClass; Override;
  26019. function Get(const Id4a81de82eeb94d6080ea5bf63e27023a: string)
  26020. : TOBA_Server_ServerWrapperReporting;
  26021. function List(const AQuery: String; out NextLink: String)
  26022. : TOBA_Server_ServerWrapperReportingArray;
  26023. function List(const AQuery: TQueryParams; out NextLink: String)
  26024. : TOBA_Server_ServerWrapperReportingArray;
  26025. function ListAll(const AQuery: String)
  26026. : TOBA_Server_ServerWrapperReportingArray;
  26027. function ListAll(const AQuery: TQueryParams)
  26028. : TOBA_Server_ServerWrapperReportingArray;
  26029. end;
  26030. { --------------------------------------------------------------------
  26031. SP: Taskflows
  26032. --------------------------------------------------------------------}
  26033. TSPTaskflowsEntitySet = Class(TODataEntitySet)
  26034. public
  26035. class function ObjectRestKind : String; Override;
  26036. class function EntityClass : TODataEntityClass; Override;
  26037. function Get(const Id4a81de82eeb94d6080ea5bf63e27023a: string)
  26038. : TOBA_Server_ServerWrapperTaskflow;
  26039. function List(const AQuery: String; out NextLink: String)
  26040. : TOBA_Server_ServerWrapperTaskflowArray;
  26041. function List(const AQuery: TQueryParams; out NextLink: String)
  26042. : TOBA_Server_ServerWrapperTaskflowArray;
  26043. function ListAll(const AQuery: String)
  26044. : TOBA_Server_ServerWrapperTaskflowArray;
  26045. function ListAll(const AQuery: TQueryParams)
  26046. : TOBA_Server_ServerWrapperTaskflowArray;
  26047. end;
  26048. { --------------------------------------------------------------------
  26049. SP: Assignments
  26050. --------------------------------------------------------------------}
  26051. TSPAssignmentsEntitySet = Class(TODataEntitySet)
  26052. public
  26053. class function ObjectRestKind : String; Override;
  26054. class function EntityClass : TODataEntityClass; Override;
  26055. function Get(const Id: TGUIDString) : TPSAssignment;
  26056. function List(const AQuery: String; out NextLink: String)
  26057. : TPSAssignmentArray;
  26058. function List(const AQuery: TQueryParams; out NextLink: String)
  26059. : TPSAssignmentArray;
  26060. function ListAll(const AQuery: String) : TPSAssignmentArray;
  26061. function ListAll(const AQuery: TQueryParams) : TPSAssignmentArray;
  26062. end;
  26063. { --------------------------------------------------------------------
  26064. SP: BaseCalendarExceptions
  26065. --------------------------------------------------------------------}
  26066. TSPBaseCalendarExceptionsEntitySet = Class(TODataEntitySet)
  26067. public
  26068. class function ObjectRestKind : String; Override;
  26069. class function EntityClass : TODataEntityClass; Override;
  26070. function Get(const Id: TInt32) : TPSBaseCalendarException;
  26071. function List(const AQuery: String; out NextLink: String)
  26072. : TPSBaseCalendarExceptionArray;
  26073. function List(const AQuery: TQueryParams; out NextLink: String)
  26074. : TPSBaseCalendarExceptionArray;
  26075. function ListAll(const AQuery: String) : TPSBaseCalendarExceptionArray;
  26076. function ListAll(const AQuery: TQueryParams)
  26077. : TPSBaseCalendarExceptionArray;
  26078. end;
  26079. { --------------------------------------------------------------------
  26080. SP: Calendars
  26081. --------------------------------------------------------------------}
  26082. TSPCalendarsEntitySet = Class(TODataEntitySet)
  26083. public
  26084. class function ObjectRestKind : String; Override;
  26085. class function EntityClass : TODataEntityClass; Override;
  26086. function Get(const Id: TGUIDString) : TPSCalendar;
  26087. function List(const AQuery: String; out NextLink: String)
  26088. : TPSCalendarArray;
  26089. function List(const AQuery: TQueryParams; out NextLink: String)
  26090. : TPSCalendarArray;
  26091. function ListAll(const AQuery: String) : TPSCalendarArray;
  26092. function ListAll(const AQuery: TQueryParams) : TPSCalendarArray;
  26093. end;
  26094. { --------------------------------------------------------------------
  26095. SP: CalendarExceptions
  26096. --------------------------------------------------------------------}
  26097. TSPCalendarExceptionsEntitySet = Class(TODataEntitySet)
  26098. public
  26099. class function ObjectRestKind : String; Override;
  26100. class function EntityClass : TODataEntityClass; Override;
  26101. function Get(const Id: TInt32) : TPSCalendarException;
  26102. function List(const AQuery: String; out NextLink: String)
  26103. : TPSCalendarExceptionArray;
  26104. function List(const AQuery: TQueryParams; out NextLink: String)
  26105. : TPSCalendarExceptionArray;
  26106. function ListAll(const AQuery: String) : TPSCalendarExceptionArray;
  26107. function ListAll(const AQuery: TQueryParams) : TPSCalendarExceptionArray;
  26108. end;
  26109. { --------------------------------------------------------------------
  26110. SP: CustomFields
  26111. --------------------------------------------------------------------}
  26112. TSPCustomFieldsEntitySet = Class(TODataEntitySet)
  26113. public
  26114. class function ObjectRestKind : String; Override;
  26115. class function EntityClass : TODataEntityClass; Override;
  26116. function Get(const Id: TGUIDString) : TPSCustomField;
  26117. function List(const AQuery: String; out NextLink: String)
  26118. : TPSCustomFieldArray;
  26119. function List(const AQuery: TQueryParams; out NextLink: String)
  26120. : TPSCustomFieldArray;
  26121. function ListAll(const AQuery: String) : TPSCustomFieldArray;
  26122. function ListAll(const AQuery: TQueryParams) : TPSCustomFieldArray;
  26123. end;
  26124. { --------------------------------------------------------------------
  26125. SP: DraftAssignments
  26126. --------------------------------------------------------------------}
  26127. TSPDraftAssignmentsEntitySet = Class(TODataEntitySet)
  26128. public
  26129. class function ObjectRestKind : String; Override;
  26130. class function EntityClass : TODataEntityClass; Override;
  26131. function Get(const Id: TGUIDString) : TPSDraftAssignment;
  26132. function List(const AQuery: String; out NextLink: String)
  26133. : TPSDraftAssignmentArray;
  26134. function List(const AQuery: TQueryParams; out NextLink: String)
  26135. : TPSDraftAssignmentArray;
  26136. function ListAll(const AQuery: String) : TPSDraftAssignmentArray;
  26137. function ListAll(const AQuery: TQueryParams) : TPSDraftAssignmentArray;
  26138. end;
  26139. { --------------------------------------------------------------------
  26140. SP: DraftProjects
  26141. --------------------------------------------------------------------}
  26142. TSPDraftProjectsEntitySet = Class(TODataEntitySet)
  26143. public
  26144. class function ObjectRestKind : String; Override;
  26145. class function EntityClass : TODataEntityClass; Override;
  26146. function Get(const Id: TGUIDString) : TPSDraftProject;
  26147. function List(const AQuery: String; out NextLink: String)
  26148. : TPSDraftProjectArray;
  26149. function List(const AQuery: TQueryParams; out NextLink: String)
  26150. : TPSDraftProjectArray;
  26151. function ListAll(const AQuery: String) : TPSDraftProjectArray;
  26152. function ListAll(const AQuery: TQueryParams) : TPSDraftProjectArray;
  26153. end;
  26154. { --------------------------------------------------------------------
  26155. SP: DraftProjectResources
  26156. --------------------------------------------------------------------}
  26157. TSPDraftProjectResourcesEntitySet = Class(TODataEntitySet)
  26158. public
  26159. class function ObjectRestKind : String; Override;
  26160. class function EntityClass : TODataEntityClass; Override;
  26161. function Get(const Id: TGUIDString) : TPSDraftProjectResource;
  26162. function List(const AQuery: String; out NextLink: String)
  26163. : TPSDraftProjectResourceArray;
  26164. function List(const AQuery: TQueryParams; out NextLink: String)
  26165. : TPSDraftProjectResourceArray;
  26166. function ListAll(const AQuery: String) : TPSDraftProjectResourceArray;
  26167. function ListAll(const AQuery: TQueryParams)
  26168. : TPSDraftProjectResourceArray;
  26169. end;
  26170. { --------------------------------------------------------------------
  26171. SP: DraftTasks
  26172. --------------------------------------------------------------------}
  26173. TSPDraftTasksEntitySet = Class(TODataEntitySet)
  26174. public
  26175. class function ObjectRestKind : String; Override;
  26176. class function EntityClass : TODataEntityClass; Override;
  26177. function Get(const Id: TGUIDString) : TPSDraftTask;
  26178. function List(const AQuery: String; out NextLink: String)
  26179. : TPSDraftTaskArray;
  26180. function List(const AQuery: TQueryParams; out NextLink: String)
  26181. : TPSDraftTaskArray;
  26182. function ListAll(const AQuery: String) : TPSDraftTaskArray;
  26183. function ListAll(const AQuery: TQueryParams) : TPSDraftTaskArray;
  26184. end;
  26185. { --------------------------------------------------------------------
  26186. SP: DraftTaskLinks
  26187. --------------------------------------------------------------------}
  26188. TSPDraftTaskLinksEntitySet = Class(TODataEntitySet)
  26189. public
  26190. class function ObjectRestKind : String; Override;
  26191. class function EntityClass : TODataEntityClass; Override;
  26192. function Get(const Id: TGUIDString) : TPSDraftTaskLink;
  26193. function List(const AQuery: String; out NextLink: String)
  26194. : TPSDraftTaskLinkArray;
  26195. function List(const AQuery: TQueryParams; out NextLink: String)
  26196. : TPSDraftTaskLinkArray;
  26197. function ListAll(const AQuery: String) : TPSDraftTaskLinkArray;
  26198. function ListAll(const AQuery: TQueryParams) : TPSDraftTaskLinkArray;
  26199. end;
  26200. { --------------------------------------------------------------------
  26201. SP: EnterpriseProjectTypes
  26202. --------------------------------------------------------------------}
  26203. TSPEnterpriseProjectTypesEntitySet = Class(TODataEntitySet)
  26204. public
  26205. class function ObjectRestKind : String; Override;
  26206. class function EntityClass : TODataEntityClass; Override;
  26207. function Get(const Id: TGUIDString) : TPSEnterpriseProjectType;
  26208. function List(const AQuery: String; out NextLink: String)
  26209. : TPSEnterpriseProjectTypeArray;
  26210. function List(const AQuery: TQueryParams; out NextLink: String)
  26211. : TPSEnterpriseProjectTypeArray;
  26212. function ListAll(const AQuery: String) : TPSEnterpriseProjectTypeArray;
  26213. function ListAll(const AQuery: TQueryParams)
  26214. : TPSEnterpriseProjectTypeArray;
  26215. end;
  26216. { --------------------------------------------------------------------
  26217. SP: EnterpriseResources
  26218. --------------------------------------------------------------------}
  26219. TSPEnterpriseResourcesEntitySet = Class(TODataEntitySet)
  26220. public
  26221. class function ObjectRestKind : String; Override;
  26222. class function EntityClass : TODataEntityClass; Override;
  26223. function Get(const Id: TGUIDString) : TPSEnterpriseResource;
  26224. function List(const AQuery: String; out NextLink: String)
  26225. : TPSEnterpriseResourceArray;
  26226. function List(const AQuery: TQueryParams; out NextLink: String)
  26227. : TPSEnterpriseResourceArray;
  26228. function ListAll(const AQuery: String) : TPSEnterpriseResourceArray;
  26229. function ListAll(const AQuery: TQueryParams)
  26230. : TPSEnterpriseResourceArray;
  26231. end;
  26232. { --------------------------------------------------------------------
  26233. SP: EntityTypes1
  26234. --------------------------------------------------------------------}
  26235. TSPEntityTypes1EntitySet = Class(TODataEntitySet)
  26236. public
  26237. class function ObjectRestKind : String; Override;
  26238. class function EntityClass : TODataEntityClass; Override;
  26239. function Get(const _Name: string) : TPSEntityType;
  26240. function List(const AQuery: String; out NextLink: String)
  26241. : TPSEntityTypeArray;
  26242. function List(const AQuery: TQueryParams; out NextLink: String)
  26243. : TPSEntityTypeArray;
  26244. function ListAll(const AQuery: String) : TPSEntityTypeArray;
  26245. function ListAll(const AQuery: TQueryParams) : TPSEntityTypeArray;
  26246. end;
  26247. { --------------------------------------------------------------------
  26248. SP: EntityTypess
  26249. --------------------------------------------------------------------}
  26250. TSPEntityTypessEntitySet = Class(TODataEntitySet)
  26251. public
  26252. class function ObjectRestKind : String; Override;
  26253. class function EntityClass : TODataEntityClass; Override;
  26254. function Get(const Id4a81de82eeb94d6080ea5bf63e27023a: string)
  26255. : TPSEntityTypes;
  26256. function List(const AQuery: String; out NextLink: String)
  26257. : TPSEntityTypesArray;
  26258. function List(const AQuery: TQueryParams; out NextLink: String)
  26259. : TPSEntityTypesArray;
  26260. function ListAll(const AQuery: String) : TPSEntityTypesArray;
  26261. function ListAll(const AQuery: TQueryParams) : TPSEntityTypesArray;
  26262. end;
  26263. { --------------------------------------------------------------------
  26264. SP: Events
  26265. --------------------------------------------------------------------}
  26266. TSPEventsEntitySet = Class(TODataEntitySet)
  26267. public
  26268. class function ObjectRestKind : String; Override;
  26269. class function EntityClass : TODataEntityClass; Override;
  26270. function Get(const Id: TInt32) : TPSEvent;
  26271. function List(const AQuery: String; out NextLink: String)
  26272. : TPSEventArray;
  26273. function List(const AQuery: TQueryParams; out NextLink: String)
  26274. : TPSEventArray;
  26275. function ListAll(const AQuery: String) : TPSEventArray;
  26276. function ListAll(const AQuery: TQueryParams) : TPSEventArray;
  26277. end;
  26278. { --------------------------------------------------------------------
  26279. SP: EventHandlers
  26280. --------------------------------------------------------------------}
  26281. TSPEventHandlersEntitySet = Class(TODataEntitySet)
  26282. public
  26283. class function ObjectRestKind : String; Override;
  26284. class function EntityClass : TODataEntityClass; Override;
  26285. function Get(const Id: TGUIDString) : TPSEventHandler;
  26286. function List(const AQuery: String; out NextLink: String)
  26287. : TPSEventHandlerArray;
  26288. function List(const AQuery: TQueryParams; out NextLink: String)
  26289. : TPSEventHandlerArray;
  26290. function ListAll(const AQuery: String) : TPSEventHandlerArray;
  26291. function ListAll(const AQuery: TQueryParams) : TPSEventHandlerArray;
  26292. end;
  26293. { --------------------------------------------------------------------
  26294. SP: LookupCosts
  26295. --------------------------------------------------------------------}
  26296. TSPLookupCostsEntitySet = Class(TODataEntitySet)
  26297. public
  26298. class function ObjectRestKind : String; Override;
  26299. class function EntityClass : TODataEntityClass; Override;
  26300. function Get(const Id: TGUIDString) : TPSLookupCost;
  26301. function List(const AQuery: String; out NextLink: String)
  26302. : TPSLookupCostArray;
  26303. function List(const AQuery: TQueryParams; out NextLink: String)
  26304. : TPSLookupCostArray;
  26305. function ListAll(const AQuery: String) : TPSLookupCostArray;
  26306. function ListAll(const AQuery: TQueryParams) : TPSLookupCostArray;
  26307. end;
  26308. { --------------------------------------------------------------------
  26309. SP: LookupDates
  26310. --------------------------------------------------------------------}
  26311. TSPLookupDatesEntitySet = Class(TODataEntitySet)
  26312. public
  26313. class function ObjectRestKind : String; Override;
  26314. class function EntityClass : TODataEntityClass; Override;
  26315. function Get(const Id: TGUIDString) : TPSLookupDate;
  26316. function List(const AQuery: String; out NextLink: String)
  26317. : TPSLookupDateArray;
  26318. function List(const AQuery: TQueryParams; out NextLink: String)
  26319. : TPSLookupDateArray;
  26320. function ListAll(const AQuery: String) : TPSLookupDateArray;
  26321. function ListAll(const AQuery: TQueryParams) : TPSLookupDateArray;
  26322. end;
  26323. { --------------------------------------------------------------------
  26324. SP: LookupDurations
  26325. --------------------------------------------------------------------}
  26326. TSPLookupDurationsEntitySet = Class(TODataEntitySet)
  26327. public
  26328. class function ObjectRestKind : String; Override;
  26329. class function EntityClass : TODataEntityClass; Override;
  26330. function Get(const Id: TGUIDString) : TPSLookupDuration;
  26331. function List(const AQuery: String; out NextLink: String)
  26332. : TPSLookupDurationArray;
  26333. function List(const AQuery: TQueryParams; out NextLink: String)
  26334. : TPSLookupDurationArray;
  26335. function ListAll(const AQuery: String) : TPSLookupDurationArray;
  26336. function ListAll(const AQuery: TQueryParams) : TPSLookupDurationArray;
  26337. end;
  26338. { --------------------------------------------------------------------
  26339. SP: LookupEntrys
  26340. --------------------------------------------------------------------}
  26341. TSPLookupEntrysEntitySet = Class(TODataEntitySet)
  26342. public
  26343. class function ObjectRestKind : String; Override;
  26344. class function EntityClass : TODataEntityClass; Override;
  26345. function Get(const Id: TGUIDString) : TPSLookupEntry;
  26346. function List(const AQuery: String; out NextLink: String)
  26347. : TPSLookupEntryArray;
  26348. function List(const AQuery: TQueryParams; out NextLink: String)
  26349. : TPSLookupEntryArray;
  26350. function ListAll(const AQuery: String) : TPSLookupEntryArray;
  26351. function ListAll(const AQuery: TQueryParams) : TPSLookupEntryArray;
  26352. end;
  26353. { --------------------------------------------------------------------
  26354. SP: LookupNumbers
  26355. --------------------------------------------------------------------}
  26356. TSPLookupNumbersEntitySet = Class(TODataEntitySet)
  26357. public
  26358. class function ObjectRestKind : String; Override;
  26359. class function EntityClass : TODataEntityClass; Override;
  26360. function Get(const Id: TGUIDString) : TPSLookupNumber;
  26361. function List(const AQuery: String; out NextLink: String)
  26362. : TPSLookupNumberArray;
  26363. function List(const AQuery: TQueryParams; out NextLink: String)
  26364. : TPSLookupNumberArray;
  26365. function ListAll(const AQuery: String) : TPSLookupNumberArray;
  26366. function ListAll(const AQuery: TQueryParams) : TPSLookupNumberArray;
  26367. end;
  26368. { --------------------------------------------------------------------
  26369. SP: LookupTables
  26370. --------------------------------------------------------------------}
  26371. TSPLookupTablesEntitySet = Class(TODataEntitySet)
  26372. public
  26373. class function ObjectRestKind : String; Override;
  26374. class function EntityClass : TODataEntityClass; Override;
  26375. function Get(const Id: TGUIDString) : TPSLookupTable;
  26376. function List(const AQuery: String; out NextLink: String)
  26377. : TPSLookupTableArray;
  26378. function List(const AQuery: TQueryParams; out NextLink: String)
  26379. : TPSLookupTableArray;
  26380. function ListAll(const AQuery: String) : TPSLookupTableArray;
  26381. function ListAll(const AQuery: TQueryParams) : TPSLookupTableArray;
  26382. end;
  26383. { --------------------------------------------------------------------
  26384. SP: LookupTabless
  26385. --------------------------------------------------------------------}
  26386. TSPLookupTablessEntitySet = Class(TODataEntitySet)
  26387. public
  26388. class function ObjectRestKind : String; Override;
  26389. class function EntityClass : TODataEntityClass; Override;
  26390. function Get(const Id4a81de82eeb94d6080ea5bf63e27023a: string)
  26391. : TPSLookupTables;
  26392. function List(const AQuery: String; out NextLink: String)
  26393. : TPSLookupTablesArray;
  26394. function List(const AQuery: TQueryParams; out NextLink: String)
  26395. : TPSLookupTablesArray;
  26396. function ListAll(const AQuery: String) : TPSLookupTablesArray;
  26397. function ListAll(const AQuery: TQueryParams) : TPSLookupTablesArray;
  26398. end;
  26399. { --------------------------------------------------------------------
  26400. SP: LookupTexts
  26401. --------------------------------------------------------------------}
  26402. TSPLookupTextsEntitySet = Class(TODataEntitySet)
  26403. public
  26404. class function ObjectRestKind : String; Override;
  26405. class function EntityClass : TODataEntityClass; Override;
  26406. function Get(const Id: TGUIDString) : TPSLookupText;
  26407. function List(const AQuery: String; out NextLink: String)
  26408. : TPSLookupTextArray;
  26409. function List(const AQuery: TQueryParams; out NextLink: String)
  26410. : TPSLookupTextArray;
  26411. function ListAll(const AQuery: String) : TPSLookupTextArray;
  26412. function ListAll(const AQuery: TQueryParams) : TPSLookupTextArray;
  26413. end;
  26414. { --------------------------------------------------------------------
  26415. SP: Phases
  26416. --------------------------------------------------------------------}
  26417. TSPPhasesEntitySet = Class(TODataEntitySet)
  26418. public
  26419. class function ObjectRestKind : String; Override;
  26420. class function EntityClass : TODataEntityClass; Override;
  26421. function Get(const Id: TGUIDString) : TPSPhase;
  26422. function List(const AQuery: String; out NextLink: String)
  26423. : TPSPhaseArray;
  26424. function List(const AQuery: TQueryParams; out NextLink: String)
  26425. : TPSPhaseArray;
  26426. function ListAll(const AQuery: String) : TPSPhaseArray;
  26427. function ListAll(const AQuery: TQueryParams) : TPSPhaseArray;
  26428. end;
  26429. { --------------------------------------------------------------------
  26430. SP: PlanAssignments
  26431. --------------------------------------------------------------------}
  26432. TSPPlanAssignmentsEntitySet = Class(TODataEntitySet)
  26433. public
  26434. class function ObjectRestKind : String; Override;
  26435. class function EntityClass : TODataEntityClass; Override;
  26436. function Get(const Id: TGUIDString) : TPSPlanAssignment;
  26437. function List(const AQuery: String; out NextLink: String)
  26438. : TPSPlanAssignmentArray;
  26439. function List(const AQuery: TQueryParams; out NextLink: String)
  26440. : TPSPlanAssignmentArray;
  26441. function ListAll(const AQuery: String) : TPSPlanAssignmentArray;
  26442. function ListAll(const AQuery: TQueryParams) : TPSPlanAssignmentArray;
  26443. end;
  26444. { --------------------------------------------------------------------
  26445. SP: PlanAssignmentIntervals
  26446. --------------------------------------------------------------------}
  26447. TSPPlanAssignmentIntervalsEntitySet = Class(TODataEntitySet)
  26448. public
  26449. class function ObjectRestKind : String; Override;
  26450. class function EntityClass : TODataEntityClass; Override;
  26451. function Get(const _Name: string) : TPSPlanAssignmentInterval;
  26452. function List(const AQuery: String; out NextLink: String)
  26453. : TPSPlanAssignmentIntervalArray;
  26454. function List(const AQuery: TQueryParams; out NextLink: String)
  26455. : TPSPlanAssignmentIntervalArray;
  26456. function ListAll(const AQuery: String) : TPSPlanAssignmentIntervalArray;
  26457. function ListAll(const AQuery: TQueryParams)
  26458. : TPSPlanAssignmentIntervalArray;
  26459. end;
  26460. { --------------------------------------------------------------------
  26461. SP: Projects
  26462. --------------------------------------------------------------------}
  26463. TSPProjectsEntitySet = Class(TODataEntitySet)
  26464. public
  26465. class function ObjectRestKind : String; Override;
  26466. class function EntityClass : TODataEntityClass; Override;
  26467. function Get(const Id: TGUIDString) : TPSProject;
  26468. function List(const AQuery: String; out NextLink: String)
  26469. : TPSProjectArray;
  26470. function List(const AQuery: TQueryParams; out NextLink: String)
  26471. : TPSProjectArray;
  26472. function ListAll(const AQuery: String) : TPSProjectArray;
  26473. function ListAll(const AQuery: TQueryParams) : TPSProjectArray;
  26474. end;
  26475. { --------------------------------------------------------------------
  26476. SP: ProjectDetailPages
  26477. --------------------------------------------------------------------}
  26478. TSPProjectDetailPagesEntitySet = Class(TODataEntitySet)
  26479. public
  26480. class function ObjectRestKind : String; Override;
  26481. class function EntityClass : TODataEntityClass; Override;
  26482. function Get(const Id: TGUIDString) : TPSProjectDetailPage;
  26483. function List(const AQuery: String; out NextLink: String)
  26484. : TPSProjectDetailPageArray;
  26485. function List(const AQuery: TQueryParams; out NextLink: String)
  26486. : TPSProjectDetailPageArray;
  26487. function ListAll(const AQuery: String) : TPSProjectDetailPageArray;
  26488. function ListAll(const AQuery: TQueryParams) : TPSProjectDetailPageArray;
  26489. end;
  26490. { --------------------------------------------------------------------
  26491. SP: ProjectResources
  26492. --------------------------------------------------------------------}
  26493. TSPProjectResourcesEntitySet = Class(TODataEntitySet)
  26494. public
  26495. class function ObjectRestKind : String; Override;
  26496. class function EntityClass : TODataEntityClass; Override;
  26497. function Get(const Id: TGUIDString) : TPSProjectResource;
  26498. function List(const AQuery: String; out NextLink: String)
  26499. : TPSProjectResourceArray;
  26500. function List(const AQuery: TQueryParams; out NextLink: String)
  26501. : TPSProjectResourceArray;
  26502. function ListAll(const AQuery: String) : TPSProjectResourceArray;
  26503. function ListAll(const AQuery: TQueryParams) : TPSProjectResourceArray;
  26504. end;
  26505. { --------------------------------------------------------------------
  26506. SP: ProjectServers
  26507. --------------------------------------------------------------------}
  26508. TSPProjectServersEntitySet = Class(TODataEntitySet)
  26509. public
  26510. class function ObjectRestKind : String; Override;
  26511. class function EntityClass : TODataEntityClass; Override;
  26512. function Get(const IsDelegate: boolean) : TPSProjectServer;
  26513. function List(const AQuery: String; out NextLink: String)
  26514. : TPSProjectServerArray;
  26515. function List(const AQuery: TQueryParams; out NextLink: String)
  26516. : TPSProjectServerArray;
  26517. function ListAll(const AQuery: String) : TPSProjectServerArray;
  26518. function ListAll(const AQuery: TQueryParams) : TPSProjectServerArray;
  26519. end;
  26520. { --------------------------------------------------------------------
  26521. SP: ProjectServerDatas
  26522. --------------------------------------------------------------------}
  26523. TSPProjectServerDatasEntitySet = Class(TODataEntitySet)
  26524. public
  26525. class function ObjectRestKind : String; Override;
  26526. class function EntityClass : TODataEntityClass; Override;
  26527. function Get(const Id4a81de82eeb94d6080ea5bf63e27023a: string)
  26528. : TPSProjectServerData;
  26529. function List(const AQuery: String; out NextLink: String)
  26530. : TPSProjectServerDataArray;
  26531. function List(const AQuery: TQueryParams; out NextLink: String)
  26532. : TPSProjectServerDataArray;
  26533. function ListAll(const AQuery: String) : TPSProjectServerDataArray;
  26534. function ListAll(const AQuery: TQueryParams) : TPSProjectServerDataArray;
  26535. end;
  26536. { --------------------------------------------------------------------
  26537. SP: PublishedAssignments
  26538. --------------------------------------------------------------------}
  26539. TSPPublishedAssignmentsEntitySet = Class(TODataEntitySet)
  26540. public
  26541. class function ObjectRestKind : String; Override;
  26542. class function EntityClass : TODataEntityClass; Override;
  26543. function Get(const Id: TGUIDString) : TPSPublishedAssignment;
  26544. function List(const AQuery: String; out NextLink: String)
  26545. : TPSPublishedAssignmentArray;
  26546. function List(const AQuery: TQueryParams; out NextLink: String)
  26547. : TPSPublishedAssignmentArray;
  26548. function ListAll(const AQuery: String) : TPSPublishedAssignmentArray;
  26549. function ListAll(const AQuery: TQueryParams)
  26550. : TPSPublishedAssignmentArray;
  26551. end;
  26552. { --------------------------------------------------------------------
  26553. SP: PublishedProjects
  26554. --------------------------------------------------------------------}
  26555. TSPPublishedProjectsEntitySet = Class(TODataEntitySet)
  26556. public
  26557. class function ObjectRestKind : String; Override;
  26558. class function EntityClass : TODataEntityClass; Override;
  26559. function Get(const Id: TGUIDString) : TPSPublishedProject;
  26560. function List(const AQuery: String; out NextLink: String)
  26561. : TPSPublishedProjectArray;
  26562. function List(const AQuery: TQueryParams; out NextLink: String)
  26563. : TPSPublishedProjectArray;
  26564. function ListAll(const AQuery: String) : TPSPublishedProjectArray;
  26565. function ListAll(const AQuery: TQueryParams) : TPSPublishedProjectArray;
  26566. end;
  26567. { --------------------------------------------------------------------
  26568. SP: PublishedProjectResources
  26569. --------------------------------------------------------------------}
  26570. TSPPublishedProjectResourcesEntitySet = Class(TODataEntitySet)
  26571. public
  26572. class function ObjectRestKind : String; Override;
  26573. class function EntityClass : TODataEntityClass; Override;
  26574. function Get(const Id: TGUIDString) : TPSPublishedProjectResource;
  26575. function List(const AQuery: String; out NextLink: String)
  26576. : TPSPublishedProjectResourceArray;
  26577. function List(const AQuery: TQueryParams; out NextLink: String)
  26578. : TPSPublishedProjectResourceArray;
  26579. function ListAll(const AQuery: String)
  26580. : TPSPublishedProjectResourceArray;
  26581. function ListAll(const AQuery: TQueryParams)
  26582. : TPSPublishedProjectResourceArray;
  26583. end;
  26584. { --------------------------------------------------------------------
  26585. SP: PublishedTasks
  26586. --------------------------------------------------------------------}
  26587. TSPPublishedTasksEntitySet = Class(TODataEntitySet)
  26588. public
  26589. class function ObjectRestKind : String; Override;
  26590. class function EntityClass : TODataEntityClass; Override;
  26591. function Get(const Id: TGUIDString) : TPSPublishedTask;
  26592. function List(const AQuery: String; out NextLink: String)
  26593. : TPSPublishedTaskArray;
  26594. function List(const AQuery: TQueryParams; out NextLink: String)
  26595. : TPSPublishedTaskArray;
  26596. function ListAll(const AQuery: String) : TPSPublishedTaskArray;
  26597. function ListAll(const AQuery: TQueryParams) : TPSPublishedTaskArray;
  26598. end;
  26599. { --------------------------------------------------------------------
  26600. SP: PublishedTaskLinks
  26601. --------------------------------------------------------------------}
  26602. TSPPublishedTaskLinksEntitySet = Class(TODataEntitySet)
  26603. public
  26604. class function ObjectRestKind : String; Override;
  26605. class function EntityClass : TODataEntityClass; Override;
  26606. function Get(const Id: TGUIDString) : TPSPublishedTaskLink;
  26607. function List(const AQuery: String; out NextLink: String)
  26608. : TPSPublishedTaskLinkArray;
  26609. function List(const AQuery: TQueryParams; out NextLink: String)
  26610. : TPSPublishedTaskLinkArray;
  26611. function ListAll(const AQuery: String) : TPSPublishedTaskLinkArray;
  26612. function ListAll(const AQuery: TQueryParams) : TPSPublishedTaskLinkArray;
  26613. end;
  26614. { --------------------------------------------------------------------
  26615. SP: QueueJobs
  26616. --------------------------------------------------------------------}
  26617. TSPQueueJobsEntitySet = Class(TODataEntitySet)
  26618. public
  26619. class function ObjectRestKind : String; Override;
  26620. class function EntityClass : TODataEntityClass; Override;
  26621. function Get(const Id: TGUIDString) : TPSQueueJob;
  26622. function List(const AQuery: String; out NextLink: String)
  26623. : TPSQueueJobArray;
  26624. function List(const AQuery: TQueryParams; out NextLink: String)
  26625. : TPSQueueJobArray;
  26626. function ListAll(const AQuery: String) : TPSQueueJobArray;
  26627. function ListAll(const AQuery: TQueryParams) : TPSQueueJobArray;
  26628. end;
  26629. { --------------------------------------------------------------------
  26630. SP: ResourceCalendarExceptions
  26631. --------------------------------------------------------------------}
  26632. TSPResourceCalendarExceptionsEntitySet = Class(TODataEntitySet)
  26633. public
  26634. class function ObjectRestKind : String; Override;
  26635. class function EntityClass : TODataEntityClass; Override;
  26636. function Get(const Id: TInt32) : TPSResourceCalendarException;
  26637. function List(const AQuery: String; out NextLink: String)
  26638. : TPSResourceCalendarExceptionArray;
  26639. function List(const AQuery: TQueryParams; out NextLink: String)
  26640. : TPSResourceCalendarExceptionArray;
  26641. function ListAll(const AQuery: String)
  26642. : TPSResourceCalendarExceptionArray;
  26643. function ListAll(const AQuery: TQueryParams)
  26644. : TPSResourceCalendarExceptionArray;
  26645. end;
  26646. { --------------------------------------------------------------------
  26647. SP: ResourcePlans
  26648. --------------------------------------------------------------------}
  26649. TSPResourcePlansEntitySet = Class(TODataEntitySet)
  26650. public
  26651. class function ObjectRestKind : String; Override;
  26652. class function EntityClass : TODataEntityClass; Override;
  26653. function Get(const Id: TGUIDString) : TPSResourcePlan;
  26654. function List(const AQuery: String; out NextLink: String)
  26655. : TPSResourcePlanArray;
  26656. function List(const AQuery: TQueryParams; out NextLink: String)
  26657. : TPSResourcePlanArray;
  26658. function ListAll(const AQuery: String) : TPSResourcePlanArray;
  26659. function ListAll(const AQuery: TQueryParams) : TPSResourcePlanArray;
  26660. end;
  26661. { --------------------------------------------------------------------
  26662. SP: ServiceStatuss
  26663. --------------------------------------------------------------------}
  26664. TSPServiceStatussEntitySet = Class(TODataEntitySet)
  26665. public
  26666. class function ObjectRestKind : String; Override;
  26667. class function EntityClass : TODataEntityClass; Override;
  26668. function Get(const IsDelegate: boolean) : TPSServiceStatus;
  26669. function List(const AQuery: String; out NextLink: String)
  26670. : TPSServiceStatusArray;
  26671. function List(const AQuery: TQueryParams; out NextLink: String)
  26672. : TPSServiceStatusArray;
  26673. function ListAll(const AQuery: String) : TPSServiceStatusArray;
  26674. function ListAll(const AQuery: TQueryParams) : TPSServiceStatusArray;
  26675. end;
  26676. { --------------------------------------------------------------------
  26677. SP: Stages
  26678. --------------------------------------------------------------------}
  26679. TSPStagesEntitySet = Class(TODataEntitySet)
  26680. public
  26681. class function ObjectRestKind : String; Override;
  26682. class function EntityClass : TODataEntityClass; Override;
  26683. function Get(const Id: TGUIDString) : TPSStage;
  26684. function List(const AQuery: String; out NextLink: String)
  26685. : TPSStageArray;
  26686. function List(const AQuery: TQueryParams; out NextLink: String)
  26687. : TPSStageArray;
  26688. function ListAll(const AQuery: String) : TPSStageArray;
  26689. function ListAll(const AQuery: TQueryParams) : TPSStageArray;
  26690. end;
  26691. { --------------------------------------------------------------------
  26692. SP: StageCustomFields
  26693. --------------------------------------------------------------------}
  26694. TSPStageCustomFieldsEntitySet = Class(TODataEntitySet)
  26695. public
  26696. class function ObjectRestKind : String; Override;
  26697. class function EntityClass : TODataEntityClass; Override;
  26698. function Get(const Id: TGUIDString) : TPSStageCustomField;
  26699. function List(const AQuery: String; out NextLink: String)
  26700. : TPSStageCustomFieldArray;
  26701. function List(const AQuery: TQueryParams; out NextLink: String)
  26702. : TPSStageCustomFieldArray;
  26703. function ListAll(const AQuery: String) : TPSStageCustomFieldArray;
  26704. function ListAll(const AQuery: TQueryParams) : TPSStageCustomFieldArray;
  26705. end;
  26706. { --------------------------------------------------------------------
  26707. SP: StageDetailPages
  26708. --------------------------------------------------------------------}
  26709. TSPStageDetailPagesEntitySet = Class(TODataEntitySet)
  26710. public
  26711. class function ObjectRestKind : String; Override;
  26712. class function EntityClass : TODataEntityClass; Override;
  26713. function Get(const Id: TGUIDString) : TPSStageDetailPage;
  26714. function List(const AQuery: String; out NextLink: String)
  26715. : TPSStageDetailPageArray;
  26716. function List(const AQuery: TQueryParams; out NextLink: String)
  26717. : TPSStageDetailPageArray;
  26718. function ListAll(const AQuery: String) : TPSStageDetailPageArray;
  26719. function ListAll(const AQuery: TQueryParams) : TPSStageDetailPageArray;
  26720. end;
  26721. { --------------------------------------------------------------------
  26722. SP: StatusAssignments
  26723. --------------------------------------------------------------------}
  26724. TSPStatusAssignmentsEntitySet = Class(TODataEntitySet)
  26725. public
  26726. class function ObjectRestKind : String; Override;
  26727. class function EntityClass : TODataEntityClass; Override;
  26728. function Get(const Id: TGUIDString) : TPSStatusAssignment;
  26729. function List(const AQuery: String; out NextLink: String)
  26730. : TPSStatusAssignmentArray;
  26731. function List(const AQuery: TQueryParams; out NextLink: String)
  26732. : TPSStatusAssignmentArray;
  26733. function ListAll(const AQuery: String) : TPSStatusAssignmentArray;
  26734. function ListAll(const AQuery: TQueryParams) : TPSStatusAssignmentArray;
  26735. end;
  26736. { --------------------------------------------------------------------
  26737. SP: StatusTasks
  26738. --------------------------------------------------------------------}
  26739. TSPStatusTasksEntitySet = Class(TODataEntitySet)
  26740. public
  26741. class function ObjectRestKind : String; Override;
  26742. class function EntityClass : TODataEntityClass; Override;
  26743. function Get(const Id: TGUIDString) : TPSStatusTask;
  26744. function List(const AQuery: String; out NextLink: String)
  26745. : TPSStatusTaskArray;
  26746. function List(const AQuery: TQueryParams; out NextLink: String)
  26747. : TPSStatusTaskArray;
  26748. function ListAll(const AQuery: String) : TPSStatusTaskArray;
  26749. function ListAll(const AQuery: TQueryParams) : TPSStatusTaskArray;
  26750. end;
  26751. { --------------------------------------------------------------------
  26752. SP: Tasks
  26753. --------------------------------------------------------------------}
  26754. TSPTasksEntitySet = Class(TODataEntitySet)
  26755. public
  26756. class function ObjectRestKind : String; Override;
  26757. class function EntityClass : TODataEntityClass; Override;
  26758. function Get(const Id: TGUIDString) : TPSTask;
  26759. function List(const AQuery: String; out NextLink: String) : TPSTaskArray;
  26760. function List(const AQuery: TQueryParams; out NextLink: String)
  26761. : TPSTaskArray;
  26762. function ListAll(const AQuery: String) : TPSTaskArray;
  26763. function ListAll(const AQuery: TQueryParams) : TPSTaskArray;
  26764. end;
  26765. { --------------------------------------------------------------------
  26766. SP: TaskLinks
  26767. --------------------------------------------------------------------}
  26768. TSPTaskLinksEntitySet = Class(TODataEntitySet)
  26769. public
  26770. class function ObjectRestKind : String; Override;
  26771. class function EntityClass : TODataEntityClass; Override;
  26772. function Get(const Id: TGUIDString) : TPSTaskLink;
  26773. function List(const AQuery: String; out NextLink: String)
  26774. : TPSTaskLinkArray;
  26775. function List(const AQuery: TQueryParams; out NextLink: String)
  26776. : TPSTaskLinkArray;
  26777. function ListAll(const AQuery: String) : TPSTaskLinkArray;
  26778. function ListAll(const AQuery: TQueryParams) : TPSTaskLinkArray;
  26779. end;
  26780. { --------------------------------------------------------------------
  26781. SP: TaskServiceOdataEndpoints
  26782. --------------------------------------------------------------------}
  26783. TSPTaskServiceOdataEndpointsEntitySet = Class(TODataEntitySet)
  26784. public
  26785. class function ObjectRestKind : String; Override;
  26786. class function EntityClass : TODataEntityClass; Override;
  26787. function Get(const Id4a81de82eeb94d6080ea5bf63e27023a: string)
  26788. : TPSTaskServiceOdataEndpoint;
  26789. function List(const AQuery: String; out NextLink: String)
  26790. : TPSTaskServiceOdataEndpointArray;
  26791. function List(const AQuery: TQueryParams; out NextLink: String)
  26792. : TPSTaskServiceOdataEndpointArray;
  26793. function ListAll(const AQuery: String)
  26794. : TPSTaskServiceOdataEndpointArray;
  26795. function ListAll(const AQuery: TQueryParams)
  26796. : TPSTaskServiceOdataEndpointArray;
  26797. end;
  26798. { --------------------------------------------------------------------
  26799. SP: TimePhases
  26800. --------------------------------------------------------------------}
  26801. TSPTimePhasesEntitySet = Class(TODataEntitySet)
  26802. public
  26803. class function ObjectRestKind : String; Override;
  26804. class function EntityClass : TODataEntityClass; Override;
  26805. function Get(const _End: TDateTime) : TPSTimePhase;
  26806. function List(const AQuery: String; out NextLink: String)
  26807. : TPSTimePhaseArray;
  26808. function List(const AQuery: TQueryParams; out NextLink: String)
  26809. : TPSTimePhaseArray;
  26810. function ListAll(const AQuery: String) : TPSTimePhaseArray;
  26811. function ListAll(const AQuery: TQueryParams) : TPSTimePhaseArray;
  26812. end;
  26813. { --------------------------------------------------------------------
  26814. SP: TimeSheets
  26815. --------------------------------------------------------------------}
  26816. TSPTimeSheetsEntitySet = Class(TODataEntitySet)
  26817. public
  26818. class function ObjectRestKind : String; Override;
  26819. class function EntityClass : TODataEntityClass; Override;
  26820. function Get(const Id: TGUIDString) : TPSTimeSheet;
  26821. function List(const AQuery: String; out NextLink: String)
  26822. : TPSTimeSheetArray;
  26823. function List(const AQuery: TQueryParams; out NextLink: String)
  26824. : TPSTimeSheetArray;
  26825. function ListAll(const AQuery: String) : TPSTimeSheetArray;
  26826. function ListAll(const AQuery: TQueryParams) : TPSTimeSheetArray;
  26827. end;
  26828. { --------------------------------------------------------------------
  26829. SP: TimeSheetLines
  26830. --------------------------------------------------------------------}
  26831. TSPTimeSheetLinesEntitySet = Class(TODataEntitySet)
  26832. public
  26833. class function ObjectRestKind : String; Override;
  26834. class function EntityClass : TODataEntityClass; Override;
  26835. function Get(const Id: TGUIDString) : TPSTimeSheetLine;
  26836. function List(const AQuery: String; out NextLink: String)
  26837. : TPSTimeSheetLineArray;
  26838. function List(const AQuery: TQueryParams; out NextLink: String)
  26839. : TPSTimeSheetLineArray;
  26840. function ListAll(const AQuery: String) : TPSTimeSheetLineArray;
  26841. function ListAll(const AQuery: TQueryParams) : TPSTimeSheetLineArray;
  26842. end;
  26843. { --------------------------------------------------------------------
  26844. SP: TimeSheetPeriods
  26845. --------------------------------------------------------------------}
  26846. TSPTimeSheetPeriodsEntitySet = Class(TODataEntitySet)
  26847. public
  26848. class function ObjectRestKind : String; Override;
  26849. class function EntityClass : TODataEntityClass; Override;
  26850. function Get(const Id: TGUIDString) : TPSTimeSheetPeriod;
  26851. function List(const AQuery: String; out NextLink: String)
  26852. : TPSTimeSheetPeriodArray;
  26853. function List(const AQuery: TQueryParams; out NextLink: String)
  26854. : TPSTimeSheetPeriodArray;
  26855. function ListAll(const AQuery: String) : TPSTimeSheetPeriodArray;
  26856. function ListAll(const AQuery: TQueryParams) : TPSTimeSheetPeriodArray;
  26857. end;
  26858. { --------------------------------------------------------------------
  26859. SP: TimeSheetWorks
  26860. --------------------------------------------------------------------}
  26861. TSPTimeSheetWorksEntitySet = Class(TODataEntitySet)
  26862. public
  26863. class function ObjectRestKind : String; Override;
  26864. class function EntityClass : TODataEntityClass; Override;
  26865. function Get(const Id: TGUIDString) : TPSTimeSheetWork;
  26866. function List(const AQuery: String; out NextLink: String)
  26867. : TPSTimeSheetWorkArray;
  26868. function List(const AQuery: TQueryParams; out NextLink: String)
  26869. : TPSTimeSheetWorkArray;
  26870. function ListAll(const AQuery: String) : TPSTimeSheetWorkArray;
  26871. function ListAll(const AQuery: TQueryParams) : TPSTimeSheetWorkArray;
  26872. end;
  26873. { --------------------------------------------------------------------
  26874. SP: WorkflowActivitiess
  26875. --------------------------------------------------------------------}
  26876. TSPWorkflowActivitiessEntitySet = Class(TODataEntitySet)
  26877. public
  26878. class function ObjectRestKind : String; Override;
  26879. class function EntityClass : TODataEntityClass; Override;
  26880. function Get(const Id4a81de82eeb94d6080ea5bf63e27023a: string)
  26881. : TPSWorkflowActivities;
  26882. function List(const AQuery: String; out NextLink: String)
  26883. : TPSWorkflowActivitiesArray;
  26884. function List(const AQuery: TQueryParams; out NextLink: String)
  26885. : TPSWorkflowActivitiesArray;
  26886. function ListAll(const AQuery: String) : TPSWorkflowActivitiesArray;
  26887. function ListAll(const AQuery: TQueryParams)
  26888. : TPSWorkflowActivitiesArray;
  26889. end;
  26890. { --------------------------------------------------------------------
  26891. SP: WorkflowDesigners
  26892. --------------------------------------------------------------------}
  26893. TSPWorkflowDesignersEntitySet = Class(TODataEntitySet)
  26894. public
  26895. class function ObjectRestKind : String; Override;
  26896. class function EntityClass : TODataEntityClass; Override;
  26897. function Get(const Id4a81de82eeb94d6080ea5bf63e27023a: string)
  26898. : TPSWorkflowDesigner;
  26899. function List(const AQuery: String; out NextLink: String)
  26900. : TPSWorkflowDesignerArray;
  26901. function List(const AQuery: TQueryParams; out NextLink: String)
  26902. : TPSWorkflowDesignerArray;
  26903. function ListAll(const AQuery: String) : TPSWorkflowDesignerArray;
  26904. function ListAll(const AQuery: TQueryParams) : TPSWorkflowDesignerArray;
  26905. end;
  26906. { --------------------------------------------------------------------
  26907. SP: WorkflowDesignerFields
  26908. --------------------------------------------------------------------}
  26909. TSPWorkflowDesignerFieldsEntitySet = Class(TODataEntitySet)
  26910. public
  26911. class function ObjectRestKind : String; Override;
  26912. class function EntityClass : TODataEntityClass; Override;
  26913. function Get(const Id: string) : TPSWorkflowDesignerField;
  26914. function List(const AQuery: String; out NextLink: String)
  26915. : TPSWorkflowDesignerFieldArray;
  26916. function List(const AQuery: TQueryParams; out NextLink: String)
  26917. : TPSWorkflowDesignerFieldArray;
  26918. function ListAll(const AQuery: String) : TPSWorkflowDesignerFieldArray;
  26919. function ListAll(const AQuery: TQueryParams)
  26920. : TPSWorkflowDesignerFieldArray;
  26921. end;
  26922. { --------------------------------------------------------------------
  26923. SP: AccessRequestss
  26924. --------------------------------------------------------------------}
  26925. TSPAccessRequestssEntitySet = Class(TODataEntitySet)
  26926. public
  26927. class function ObjectRestKind : String; Override;
  26928. class function EntityClass : TODataEntityClass; Override;
  26929. function Get(const Id4a81de82eeb94d6080ea5bf63e27023a: string)
  26930. : TSPAccessRequests;
  26931. function List(const AQuery: String; out NextLink: String)
  26932. : TSPAccessRequestsArray;
  26933. function List(const AQuery: TQueryParams; out NextLink: String)
  26934. : TSPAccessRequestsArray;
  26935. function ListAll(const AQuery: String) : TSPAccessRequestsArray;
  26936. function ListAll(const AQuery: TQueryParams) : TSPAccessRequestsArray;
  26937. end;
  26938. { --------------------------------------------------------------------
  26939. SP: AlternateUrls
  26940. --------------------------------------------------------------------}
  26941. TSPAlternateUrlsEntitySet = Class(TODataEntitySet)
  26942. public
  26943. class function ObjectRestKind : String; Override;
  26944. class function EntityClass : TODataEntityClass; Override;
  26945. function Get(const Uri: string) : TSPAlternateUrl;
  26946. function List(const AQuery: String; out NextLink: String)
  26947. : TSPAlternateUrlArray;
  26948. function List(const AQuery: TQueryParams; out NextLink: String)
  26949. : TSPAlternateUrlArray;
  26950. function ListAll(const AQuery: String) : TSPAlternateUrlArray;
  26951. function ListAll(const AQuery: TQueryParams) : TSPAlternateUrlArray;
  26952. end;
  26953. { --------------------------------------------------------------------
  26954. SP: AnalyticsUsageEntrys
  26955. --------------------------------------------------------------------}
  26956. TSPAnalyticsUsageEntrysEntitySet = Class(TODataEntitySet)
  26957. public
  26958. class function ObjectRestKind : String; Override;
  26959. class function EntityClass : TODataEntityClass; Override;
  26960. function Get(const Id4a81de82eeb94d6080ea5bf63e27023a: string)
  26961. : TSP_AnalyticsAnalyticsUsageEntry;
  26962. function List(const AQuery: String; out NextLink: String)
  26963. : TSP_AnalyticsAnalyticsUsageEntryArray;
  26964. function List(const AQuery: TQueryParams; out NextLink: String)
  26965. : TSP_AnalyticsAnalyticsUsageEntryArray;
  26966. function ListAll(const AQuery: String)
  26967. : TSP_AnalyticsAnalyticsUsageEntryArray;
  26968. function ListAll(const AQuery: TQueryParams)
  26969. : TSP_AnalyticsAnalyticsUsageEntryArray;
  26970. end;
  26971. { --------------------------------------------------------------------
  26972. SP: ApiMetadatas
  26973. --------------------------------------------------------------------}
  26974. TSPApiMetadatasEntitySet = Class(TODataEntitySet)
  26975. public
  26976. class function ObjectRestKind : String; Override;
  26977. class function EntityClass : TODataEntityClass; Override;
  26978. function Get(const Id4a81de82eeb94d6080ea5bf63e27023a: string)
  26979. : TSPApiMetadata;
  26980. function List(const AQuery: String; out NextLink: String)
  26981. : TSPApiMetadataArray;
  26982. function List(const AQuery: TQueryParams; out NextLink: String)
  26983. : TSPApiMetadataArray;
  26984. function ListAll(const AQuery: String) : TSPApiMetadataArray;
  26985. function ListAll(const AQuery: TQueryParams) : TSPApiMetadataArray;
  26986. end;
  26987. { --------------------------------------------------------------------
  26988. SP: Apps12
  26989. --------------------------------------------------------------------}
  26990. TSPApps12EntitySet = Class(TODataEntitySet)
  26991. public
  26992. class function ObjectRestKind : String; Override;
  26993. class function EntityClass : TODataEntityClass; Override;
  26994. function Get(const AssetId: string) : TSPApp;
  26995. function List(const AQuery: String; out NextLink: String) : TSPAppArray;
  26996. function List(const AQuery: TQueryParams; out NextLink: String)
  26997. : TSPAppArray;
  26998. function ListAll(const AQuery: String) : TSPAppArray;
  26999. function ListAll(const AQuery: TQueryParams) : TSPAppArray;
  27000. end;
  27001. { --------------------------------------------------------------------
  27002. SP: AppCatalogs
  27003. --------------------------------------------------------------------}
  27004. TSPAppCatalogsEntitySet = Class(TODataEntitySet)
  27005. public
  27006. class function ObjectRestKind : String; Override;
  27007. class function EntityClass : TODataEntityClass; Override;
  27008. function Get(const Id4a81de82eeb94d6080ea5bf63e27023a: string)
  27009. : TSPAppCatalog;
  27010. function List(const AQuery: String; out NextLink: String)
  27011. : TSPAppCatalogArray;
  27012. function List(const AQuery: TQueryParams; out NextLink: String)
  27013. : TSPAppCatalogArray;
  27014. function ListAll(const AQuery: String) : TSPAppCatalogArray;
  27015. function ListAll(const AQuery: TQueryParams) : TSPAppCatalogArray;
  27016. end;
  27017. { --------------------------------------------------------------------
  27018. SP: AppContextSites
  27019. --------------------------------------------------------------------}
  27020. TSPAppContextSitesEntitySet = Class(TODataEntitySet)
  27021. public
  27022. class function ObjectRestKind : String; Override;
  27023. class function EntityClass : TODataEntityClass; Override;
  27024. function Get(const Id4a81de82eeb94d6080ea5bf63e27023a: string)
  27025. : TSPAppContextSite;
  27026. function List(const AQuery: String; out NextLink: String)
  27027. : TSPAppContextSiteArray;
  27028. function List(const AQuery: TQueryParams; out NextLink: String)
  27029. : TSPAppContextSiteArray;
  27030. function ListAll(const AQuery: String) : TSPAppContextSiteArray;
  27031. function ListAll(const AQuery: TQueryParams) : TSPAppContextSiteArray;
  27032. end;
  27033. { --------------------------------------------------------------------
  27034. SP: AppInstances
  27035. --------------------------------------------------------------------}
  27036. TSPAppInstancesEntitySet = Class(TODataEntitySet)
  27037. public
  27038. class function ObjectRestKind : String; Override;
  27039. class function EntityClass : TODataEntityClass; Override;
  27040. function Get(const Id: TGUIDString) : TSPAppInstance;
  27041. function List(const AQuery: String; out NextLink: String)
  27042. : TSPAppInstanceArray;
  27043. function List(const AQuery: TQueryParams; out NextLink: String)
  27044. : TSPAppInstanceArray;
  27045. function ListAll(const AQuery: String) : TSPAppInstanceArray;
  27046. function ListAll(const AQuery: TQueryParams) : TSPAppInstanceArray;
  27047. end;
  27048. { --------------------------------------------------------------------
  27049. SP: AppInstanceErrorDetailss
  27050. --------------------------------------------------------------------}
  27051. TSPAppInstanceErrorDetailssEntitySet = Class(TODataEntitySet)
  27052. public
  27053. class function ObjectRestKind : String; Override;
  27054. class function EntityClass : TODataEntityClass; Override;
  27055. function Get(const CorrelationId: TGUIDString)
  27056. : TSPAppInstanceErrorDetails;
  27057. function List(const AQuery: String; out NextLink: String)
  27058. : TSPAppInstanceErrorDetailsArray;
  27059. function List(const AQuery: TQueryParams; out NextLink: String)
  27060. : TSPAppInstanceErrorDetailsArray;
  27061. function ListAll(const AQuery: String) : TSPAppInstanceErrorDetailsArray;
  27062. function ListAll(const AQuery: TQueryParams)
  27063. : TSPAppInstanceErrorDetailsArray;
  27064. end;
  27065. { --------------------------------------------------------------------
  27066. SP: AppTiles
  27067. --------------------------------------------------------------------}
  27068. TSPAppTilesEntitySet = Class(TODataEntitySet)
  27069. public
  27070. class function ObjectRestKind : String; Override;
  27071. class function EntityClass : TODataEntityClass; Override;
  27072. function Get(const AppType: TInt32) : TSPAppTile;
  27073. function List(const AQuery: String; out NextLink: String)
  27074. : TSPAppTileArray;
  27075. function List(const AQuery: TQueryParams; out NextLink: String)
  27076. : TSPAppTileArray;
  27077. function ListAll(const AQuery: String) : TSPAppTileArray;
  27078. function ListAll(const AQuery: TQueryParams) : TSPAppTileArray;
  27079. end;
  27080. { --------------------------------------------------------------------
  27081. SP: Attachments
  27082. --------------------------------------------------------------------}
  27083. TSPAttachmentsEntitySet = Class(TODataEntitySet)
  27084. public
  27085. class function ObjectRestKind : String; Override;
  27086. class function EntityClass : TODataEntityClass; Override;
  27087. function Get(const FileName: string) : TSPAttachment;
  27088. function List(const AQuery: String; out NextLink: String)
  27089. : TSPAttachmentArray;
  27090. function List(const AQuery: TQueryParams; out NextLink: String)
  27091. : TSPAttachmentArray;
  27092. function ListAll(const AQuery: String) : TSPAttachmentArray;
  27093. function ListAll(const AQuery: TQueryParams) : TSPAttachmentArray;
  27094. end;
  27095. { --------------------------------------------------------------------
  27096. SP: Audits
  27097. --------------------------------------------------------------------}
  27098. TSPAuditsEntitySet = Class(TODataEntitySet)
  27099. public
  27100. class function ObjectRestKind : String; Override;
  27101. class function EntityClass : TODataEntityClass; Override;
  27102. function Get(const AuditFlags: TInt32) : TSPAudit;
  27103. function List(const AQuery: String; out NextLink: String)
  27104. : TSPAuditArray;
  27105. function List(const AQuery: TQueryParams; out NextLink: String)
  27106. : TSPAuditArray;
  27107. function ListAll(const AQuery: String) : TSPAuditArray;
  27108. function ListAll(const AQuery: TQueryParams) : TSPAuditArray;
  27109. end;
  27110. { --------------------------------------------------------------------
  27111. SP: AppBdcCatalogs
  27112. --------------------------------------------------------------------}
  27113. TSPAppBdcCatalogsEntitySet = Class(TODataEntitySet)
  27114. public
  27115. class function ObjectRestKind : String; Override;
  27116. class function EntityClass : TODataEntityClass; Override;
  27117. function Get(const Id4a81de82eeb94d6080ea5bf63e27023a: string)
  27118. : TSP_BusinessDataAppBdcCatalog;
  27119. function List(const AQuery: String; out NextLink: String)
  27120. : TSP_BusinessDataAppBdcCatalogArray;
  27121. function List(const AQuery: TQueryParams; out NextLink: String)
  27122. : TSP_BusinessDataAppBdcCatalogArray;
  27123. function ListAll(const AQuery: String)
  27124. : TSP_BusinessDataAppBdcCatalogArray;
  27125. function ListAll(const AQuery: TQueryParams)
  27126. : TSP_BusinessDataAppBdcCatalogArray;
  27127. end;
  27128. { --------------------------------------------------------------------
  27129. SP: Entitys
  27130. --------------------------------------------------------------------}
  27131. TSPEntitysEntitySet = Class(TODataEntitySet)
  27132. public
  27133. class function ObjectRestKind : String; Override;
  27134. class function EntityClass : TODataEntityClass; Override;
  27135. function Get(const _Name: string) : TSP_BusinessDataEntity;
  27136. function List(const AQuery: String; out NextLink: String)
  27137. : TSP_BusinessDataEntityArray;
  27138. function List(const AQuery: TQueryParams; out NextLink: String)
  27139. : TSP_BusinessDataEntityArray;
  27140. function ListAll(const AQuery: String) : TSP_BusinessDataEntityArray;
  27141. function ListAll(const AQuery: TQueryParams)
  27142. : TSP_BusinessDataEntityArray;
  27143. end;
  27144. { --------------------------------------------------------------------
  27145. SP: EntityFields
  27146. --------------------------------------------------------------------}
  27147. TSPEntityFieldsEntitySet = Class(TODataEntitySet)
  27148. public
  27149. class function ObjectRestKind : String; Override;
  27150. class function EntityClass : TODataEntityClass; Override;
  27151. function Get(const _Name: string) : TSP_BusinessDataEntityField;
  27152. function List(const AQuery: String; out NextLink: String)
  27153. : TSP_BusinessDataEntityFieldArray;
  27154. function List(const AQuery: TQueryParams; out NextLink: String)
  27155. : TSP_BusinessDataEntityFieldArray;
  27156. function ListAll(const AQuery: String)
  27157. : TSP_BusinessDataEntityFieldArray;
  27158. function ListAll(const AQuery: TQueryParams)
  27159. : TSP_BusinessDataEntityFieldArray;
  27160. end;
  27161. { --------------------------------------------------------------------
  27162. SP: EntityIdentifiers
  27163. --------------------------------------------------------------------}
  27164. TSPEntityIdentifiersEntitySet = Class(TODataEntitySet)
  27165. public
  27166. class function ObjectRestKind : String; Override;
  27167. class function EntityClass : TODataEntityClass; Override;
  27168. function Get(const _Name: string) : TSP_BusinessDataEntityIdentifier;
  27169. function List(const AQuery: String; out NextLink: String)
  27170. : TSP_BusinessDataEntityIdentifierArray;
  27171. function List(const AQuery: TQueryParams; out NextLink: String)
  27172. : TSP_BusinessDataEntityIdentifierArray;
  27173. function ListAll(const AQuery: String)
  27174. : TSP_BusinessDataEntityIdentifierArray;
  27175. function ListAll(const AQuery: TQueryParams)
  27176. : TSP_BusinessDataEntityIdentifierArray;
  27177. end;
  27178. { --------------------------------------------------------------------
  27179. SP: EntityViews
  27180. --------------------------------------------------------------------}
  27181. TSPEntityViewsEntitySet = Class(TODataEntitySet)
  27182. public
  27183. class function ObjectRestKind : String; Override;
  27184. class function EntityClass : TODataEntityClass; Override;
  27185. function Get(const _Name: string) : TSP_BusinessDataEntityView;
  27186. function List(const AQuery: String; out NextLink: String)
  27187. : TSP_BusinessDataEntityViewArray;
  27188. function List(const AQuery: TQueryParams; out NextLink: String)
  27189. : TSP_BusinessDataEntityViewArray;
  27190. function ListAll(const AQuery: String) : TSP_BusinessDataEntityViewArray;
  27191. function ListAll(const AQuery: TQueryParams)
  27192. : TSP_BusinessDataEntityViewArray;
  27193. end;
  27194. { --------------------------------------------------------------------
  27195. SP: Filters
  27196. --------------------------------------------------------------------}
  27197. TSPFiltersEntitySet = Class(TODataEntitySet)
  27198. public
  27199. class function ObjectRestKind : String; Override;
  27200. class function EntityClass : TODataEntityClass; Override;
  27201. function Get(const _Name: string) : TSP_BusinessDataFilter;
  27202. function List(const AQuery: String; out NextLink: String)
  27203. : TSP_BusinessDataFilterArray;
  27204. function List(const AQuery: TQueryParams; out NextLink: String)
  27205. : TSP_BusinessDataFilterArray;
  27206. function ListAll(const AQuery: String) : TSP_BusinessDataFilterArray;
  27207. function ListAll(const AQuery: TQueryParams)
  27208. : TSP_BusinessDataFilterArray;
  27209. end;
  27210. { --------------------------------------------------------------------
  27211. SP: ExternalSubscriptionStores
  27212. --------------------------------------------------------------------}
  27213. TSPExternalSubscriptionStoresEntitySet = Class(TODataEntitySet)
  27214. public
  27215. class function ObjectRestKind : String; Override;
  27216. class function EntityClass : TODataEntityClass; Override;
  27217. function Get(const Id4a81de82eeb94d6080ea5bf63e27023a: string)
  27218. : TSP_BusinessData_InfrastructureExternalSubscriptionStore;
  27219. function List(const AQuery: String; out NextLink: String)
  27220. : TSP_BusinessData_InfrastructureExternalSubscriptionStoreArray;
  27221. function List(const AQuery: TQueryParams; out NextLink: String)
  27222. : TSP_BusinessData_InfrastructureExternalSubscriptionStoreArray;
  27223. function ListAll(const AQuery: String)
  27224. : TSP_BusinessData_InfrastructureExternalSubscriptionStoreArray;
  27225. function ListAll(const AQuery: TQueryParams)
  27226. : TSP_BusinessData_InfrastructureExternalSubscriptionStoreArray;
  27227. end;
  27228. { --------------------------------------------------------------------
  27229. SP: LobSystems
  27230. --------------------------------------------------------------------}
  27231. TSPLobSystemsEntitySet = Class(TODataEntitySet)
  27232. public
  27233. class function ObjectRestKind : String; Override;
  27234. class function EntityClass : TODataEntityClass; Override;
  27235. function Get(const _Name: string) : TSP_BusinessDataLobSystem;
  27236. function List(const AQuery: String; out NextLink: String)
  27237. : TSP_BusinessDataLobSystemArray;
  27238. function List(const AQuery: TQueryParams; out NextLink: String)
  27239. : TSP_BusinessDataLobSystemArray;
  27240. function ListAll(const AQuery: String) : TSP_BusinessDataLobSystemArray;
  27241. function ListAll(const AQuery: TQueryParams)
  27242. : TSP_BusinessDataLobSystemArray;
  27243. end;
  27244. { --------------------------------------------------------------------
  27245. SP: LobSystemInstances
  27246. --------------------------------------------------------------------}
  27247. TSPLobSystemInstancesEntitySet = Class(TODataEntitySet)
  27248. public
  27249. class function ObjectRestKind : String; Override;
  27250. class function EntityClass : TODataEntityClass; Override;
  27251. function Get(const _Name: string) : TSP_BusinessDataLobSystemInstance;
  27252. function List(const AQuery: String; out NextLink: String)
  27253. : TSP_BusinessDataLobSystemInstanceArray;
  27254. function List(const AQuery: TQueryParams; out NextLink: String)
  27255. : TSP_BusinessDataLobSystemInstanceArray;
  27256. function ListAll(const AQuery: String)
  27257. : TSP_BusinessDataLobSystemInstanceArray;
  27258. function ListAll(const AQuery: TQueryParams)
  27259. : TSP_BusinessDataLobSystemInstanceArray;
  27260. end;
  27261. { --------------------------------------------------------------------
  27262. SP: MethodExecutionResults
  27263. --------------------------------------------------------------------}
  27264. TSPMethodExecutionResultsEntitySet = Class(TODataEntitySet)
  27265. public
  27266. class function ObjectRestKind : String; Override;
  27267. class function EntityClass : TODataEntityClass; Override;
  27268. function Get(const Id4a81de82eeb94d6080ea5bf63e27023a: string)
  27269. : TSP_BusinessDataMethodExecutionResult;
  27270. function List(const AQuery: String; out NextLink: String)
  27271. : TSP_BusinessDataMethodExecutionResultArray;
  27272. function List(const AQuery: TQueryParams; out NextLink: String)
  27273. : TSP_BusinessDataMethodExecutionResultArray;
  27274. function ListAll(const AQuery: String)
  27275. : TSP_BusinessDataMethodExecutionResultArray;
  27276. function ListAll(const AQuery: TQueryParams)
  27277. : TSP_BusinessDataMethodExecutionResultArray;
  27278. end;
  27279. { --------------------------------------------------------------------
  27280. SP: EntityFieldValueDictionarys
  27281. --------------------------------------------------------------------}
  27282. TSPEntityFieldValueDictionarysEntitySet = Class(TODataEntitySet)
  27283. public
  27284. class function ObjectRestKind : String; Override;
  27285. class function EntityClass : TODataEntityClass; Override;
  27286. function Get(const Id4a81de82eeb94d6080ea5bf63e27023a: string)
  27287. : TSP_BusinessData_RuntimeEntityFieldValueDictionary;
  27288. function List(const AQuery: String; out NextLink: String)
  27289. : TSP_BusinessData_RuntimeEntityFieldValueDictionaryArray;
  27290. function List(const AQuery: TQueryParams; out NextLink: String)
  27291. : TSP_BusinessData_RuntimeEntityFieldValueDictionaryArray;
  27292. function ListAll(const AQuery: String)
  27293. : TSP_BusinessData_RuntimeEntityFieldValueDictionaryArray;
  27294. function ListAll(const AQuery: TQueryParams)
  27295. : TSP_BusinessData_RuntimeEntityFieldValueDictionaryArray;
  27296. end;
  27297. { --------------------------------------------------------------------
  27298. SP: EntityIdentitys
  27299. --------------------------------------------------------------------}
  27300. TSPEntityIdentitysEntitySet = Class(TODataEntitySet)
  27301. public
  27302. class function ObjectRestKind : String; Override;
  27303. class function EntityClass : TODataEntityClass; Override;
  27304. function Get(const IdentifierCount: TInt32)
  27305. : TSP_BusinessData_RuntimeEntityIdentity;
  27306. function List(const AQuery: String; out NextLink: String)
  27307. : TSP_BusinessData_RuntimeEntityIdentityArray;
  27308. function List(const AQuery: TQueryParams; out NextLink: String)
  27309. : TSP_BusinessData_RuntimeEntityIdentityArray;
  27310. function ListAll(const AQuery: String)
  27311. : TSP_BusinessData_RuntimeEntityIdentityArray;
  27312. function ListAll(const AQuery: TQueryParams)
  27313. : TSP_BusinessData_RuntimeEntityIdentityArray;
  27314. end;
  27315. { --------------------------------------------------------------------
  27316. SP: EntityInstances
  27317. --------------------------------------------------------------------}
  27318. TSPEntityInstancesEntitySet = Class(TODataEntitySet)
  27319. public
  27320. class function ObjectRestKind : String; Override;
  27321. class function EntityClass : TODataEntityClass; Override;
  27322. function Get(const Id4a81de82eeb94d6080ea5bf63e27023a: string)
  27323. : TSP_BusinessData_RuntimeEntityInstance;
  27324. function List(const AQuery: String; out NextLink: String)
  27325. : TSP_BusinessData_RuntimeEntityInstanceArray;
  27326. function List(const AQuery: TQueryParams; out NextLink: String)
  27327. : TSP_BusinessData_RuntimeEntityInstanceArray;
  27328. function ListAll(const AQuery: String)
  27329. : TSP_BusinessData_RuntimeEntityInstanceArray;
  27330. function ListAll(const AQuery: TQueryParams)
  27331. : TSP_BusinessData_RuntimeEntityInstanceArray;
  27332. end;
  27333. { --------------------------------------------------------------------
  27334. SP: NotificationCallbacks
  27335. --------------------------------------------------------------------}
  27336. TSPNotificationCallbacksEntitySet = Class(TODataEntitySet)
  27337. public
  27338. class function ObjectRestKind : String; Override;
  27339. class function EntityClass : TODataEntityClass; Override;
  27340. function Get(const NotificationContext: string)
  27341. : TSP_BusinessData_RuntimeNotificationCallback;
  27342. function List(const AQuery: String; out NextLink: String)
  27343. : TSP_BusinessData_RuntimeNotificationCallbackArray;
  27344. function List(const AQuery: TQueryParams; out NextLink: String)
  27345. : TSP_BusinessData_RuntimeNotificationCallbackArray;
  27346. function ListAll(const AQuery: String)
  27347. : TSP_BusinessData_RuntimeNotificationCallbackArray;
  27348. function ListAll(const AQuery: TQueryParams)
  27349. : TSP_BusinessData_RuntimeNotificationCallbackArray;
  27350. end;
  27351. { --------------------------------------------------------------------
  27352. SP: Subscriptions
  27353. --------------------------------------------------------------------}
  27354. TSPSubscriptionsEntitySet = Class(TODataEntitySet)
  27355. public
  27356. class function ObjectRestKind : String; Override;
  27357. class function EntityClass : TODataEntityClass; Override;
  27358. function Get(const Hash: string) : TSP_BusinessData_RuntimeSubscription;
  27359. function List(const AQuery: String; out NextLink: String)
  27360. : TSP_BusinessData_RuntimeSubscriptionArray;
  27361. function List(const AQuery: TQueryParams; out NextLink: String)
  27362. : TSP_BusinessData_RuntimeSubscriptionArray;
  27363. function ListAll(const AQuery: String)
  27364. : TSP_BusinessData_RuntimeSubscriptionArray;
  27365. function ListAll(const AQuery: TQueryParams)
  27366. : TSP_BusinessData_RuntimeSubscriptionArray;
  27367. end;
  27368. { --------------------------------------------------------------------
  27369. SP: TypeDescriptors
  27370. --------------------------------------------------------------------}
  27371. TSPTypeDescriptorsEntitySet = Class(TODataEntitySet)
  27372. public
  27373. class function ObjectRestKind : String; Override;
  27374. class function EntityClass : TODataEntityClass; Override;
  27375. function Get(const _Name: string) : TSP_BusinessDataTypeDescriptor;
  27376. function List(const AQuery: String; out NextLink: String)
  27377. : TSP_BusinessDataTypeDescriptorArray;
  27378. function List(const AQuery: TQueryParams; out NextLink: String)
  27379. : TSP_BusinessDataTypeDescriptorArray;
  27380. function ListAll(const AQuery: String)
  27381. : TSP_BusinessDataTypeDescriptorArray;
  27382. function ListAll(const AQuery: TQueryParams)
  27383. : TSP_BusinessDataTypeDescriptorArray;
  27384. end;
  27385. { --------------------------------------------------------------------
  27386. SP: Changes
  27387. --------------------------------------------------------------------}
  27388. TSPChangesEntitySet = Class(TODataEntitySet)
  27389. public
  27390. class function ObjectRestKind : String; Override;
  27391. class function EntityClass : TODataEntityClass; Override;
  27392. function Get(const ChangeType: TInt32) : TSPChange;
  27393. function List(const AQuery: String; out NextLink: String)
  27394. : TSPChangeArray;
  27395. function List(const AQuery: TQueryParams; out NextLink: String)
  27396. : TSPChangeArray;
  27397. function ListAll(const AQuery: String) : TSPChangeArray;
  27398. function ListAll(const AQuery: TQueryParams) : TSPChangeArray;
  27399. end;
  27400. { --------------------------------------------------------------------
  27401. SP: CompatibilityRanges
  27402. --------------------------------------------------------------------}
  27403. TSPCompatibilityRangesEntitySet = Class(TODataEntitySet)
  27404. public
  27405. class function ObjectRestKind : String; Override;
  27406. class function EntityClass : TODataEntityClass; Override;
  27407. function Get(const Id4a81de82eeb94d6080ea5bf63e27023a: string)
  27408. : TSPCompatibilityRange;
  27409. function List(const AQuery: String; out NextLink: String)
  27410. : TSPCompatibilityRangeArray;
  27411. function List(const AQuery: TQueryParams; out NextLink: String)
  27412. : TSPCompatibilityRangeArray;
  27413. function ListAll(const AQuery: String) : TSPCompatibilityRangeArray;
  27414. function ListAll(const AQuery: TQueryParams)
  27415. : TSPCompatibilityRangeArray;
  27416. end;
  27417. { --------------------------------------------------------------------
  27418. SP: PolicyEvaluationInfos
  27419. --------------------------------------------------------------------}
  27420. TSPPolicyEvaluationInfosEntitySet = Class(TODataEntitySet)
  27421. public
  27422. class function ObjectRestKind : String; Override;
  27423. class function EntityClass : TODataEntityClass; Override;
  27424. function Get(const DlpAccessScope: TInt32)
  27425. : TSP_CompliancePolicyPolicyEvaluationInfo;
  27426. function List(const AQuery: String; out NextLink: String)
  27427. : TSP_CompliancePolicyPolicyEvaluationInfoArray;
  27428. function List(const AQuery: TQueryParams; out NextLink: String)
  27429. : TSP_CompliancePolicyPolicyEvaluationInfoArray;
  27430. function ListAll(const AQuery: String)
  27431. : TSP_CompliancePolicyPolicyEvaluationInfoArray;
  27432. function ListAll(const AQuery: TQueryParams)
  27433. : TSP_CompliancePolicyPolicyEvaluationInfoArray;
  27434. end;
  27435. { --------------------------------------------------------------------
  27436. SP: SPPolicyStoreProxys
  27437. --------------------------------------------------------------------}
  27438. TSPSPPolicyStoreProxysEntitySet = Class(TODataEntitySet)
  27439. public
  27440. class function ObjectRestKind : String; Override;
  27441. class function EntityClass : TODataEntityClass; Override;
  27442. function Get(const PolicyStoreUrl: string)
  27443. : TSP_CompliancePolicySPPolicyStoreProxy;
  27444. function List(const AQuery: String; out NextLink: String)
  27445. : TSP_CompliancePolicySPPolicyStoreProxyArray;
  27446. function List(const AQuery: TQueryParams; out NextLink: String)
  27447. : TSP_CompliancePolicySPPolicyStoreProxyArray;
  27448. function ListAll(const AQuery: String)
  27449. : TSP_CompliancePolicySPPolicyStoreProxyArray;
  27450. function ListAll(const AQuery: TQueryParams)
  27451. : TSP_CompliancePolicySPPolicyStoreProxyArray;
  27452. end;
  27453. { --------------------------------------------------------------------
  27454. SP: ContentTypes
  27455. --------------------------------------------------------------------}
  27456. TSPContentTypesEntitySet = Class(TODataEntitySet)
  27457. public
  27458. class function ObjectRestKind : String; Override;
  27459. class function EntityClass : TODataEntityClass; Override;
  27460. function Get(const StringId: string) : TSPContentType;
  27461. function List(const AQuery: String; out NextLink: String)
  27462. : TSPContentTypeArray;
  27463. function List(const AQuery: TQueryParams; out NextLink: String)
  27464. : TSPContentTypeArray;
  27465. function ListAll(const AQuery: String) : TSPContentTypeArray;
  27466. function ListAll(const AQuery: TQueryParams) : TSPContentTypeArray;
  27467. end;
  27468. { --------------------------------------------------------------------
  27469. SP: CreatablesInfos
  27470. --------------------------------------------------------------------}
  27471. TSPCreatablesInfosEntitySet = Class(TODataEntitySet)
  27472. public
  27473. class function ObjectRestKind : String; Override;
  27474. class function EntityClass : TODataEntityClass; Override;
  27475. function Get(const CanCreateFolders: boolean) : TSPCreatablesInfo;
  27476. function List(const AQuery: String; out NextLink: String)
  27477. : TSPCreatablesInfoArray;
  27478. function List(const AQuery: TQueryParams; out NextLink: String)
  27479. : TSPCreatablesInfoArray;
  27480. function ListAll(const AQuery: String) : TSPCreatablesInfoArray;
  27481. function ListAll(const AQuery: TQueryParams) : TSPCreatablesInfoArray;
  27482. end;
  27483. { --------------------------------------------------------------------
  27484. SP: DirectorySessions
  27485. --------------------------------------------------------------------}
  27486. TSPDirectorySessionsEntitySet = Class(TODataEntitySet)
  27487. public
  27488. class function ObjectRestKind : String; Override;
  27489. class function EntityClass : TODataEntityClass; Override;
  27490. function Get(const SessionOptions: TInt32)
  27491. : TSP_DirectoryDirectorySession;
  27492. function List(const AQuery: String; out NextLink: String)
  27493. : TSP_DirectoryDirectorySessionArray;
  27494. function List(const AQuery: TQueryParams; out NextLink: String)
  27495. : TSP_DirectoryDirectorySessionArray;
  27496. function ListAll(const AQuery: String)
  27497. : TSP_DirectoryDirectorySessionArray;
  27498. function ListAll(const AQuery: TQueryParams)
  27499. : TSP_DirectoryDirectorySessionArray;
  27500. end;
  27501. { --------------------------------------------------------------------
  27502. SP: Groups
  27503. --------------------------------------------------------------------}
  27504. TSPGroupsEntitySet = Class(TODataEntitySet)
  27505. public
  27506. class function ObjectRestKind : String; Override;
  27507. class function EntityClass : TODataEntityClass; Override;
  27508. function Get(const Id: TGUIDString) : TSP_DirectoryGroup;
  27509. function List(const AQuery: String; out NextLink: String)
  27510. : TSP_DirectoryGroupArray;
  27511. function List(const AQuery: TQueryParams; out NextLink: String)
  27512. : TSP_DirectoryGroupArray;
  27513. function ListAll(const AQuery: String) : TSP_DirectoryGroupArray;
  27514. function ListAll(const AQuery: TQueryParams) : TSP_DirectoryGroupArray;
  27515. end;
  27516. { --------------------------------------------------------------------
  27517. SP: GroupAndUserStatuss
  27518. --------------------------------------------------------------------}
  27519. TSPGroupAndUserStatussEntitySet = Class(TODataEntitySet)
  27520. public
  27521. class function ObjectRestKind : String; Override;
  27522. class function EntityClass : TODataEntityClass; Override;
  27523. function Get(const Status: TInt32) : TSP_DirectoryGroupAndUserStatus;
  27524. function List(const AQuery: String; out NextLink: String)
  27525. : TSP_DirectoryGroupAndUserStatusArray;
  27526. function List(const AQuery: TQueryParams; out NextLink: String)
  27527. : TSP_DirectoryGroupAndUserStatusArray;
  27528. function ListAll(const AQuery: String)
  27529. : TSP_DirectoryGroupAndUserStatusArray;
  27530. function ListAll(const AQuery: TQueryParams)
  27531. : TSP_DirectoryGroupAndUserStatusArray;
  27532. end;
  27533. { --------------------------------------------------------------------
  27534. SP: LinkCollections
  27535. --------------------------------------------------------------------}
  27536. TSPLinkCollectionsEntitySet = Class(TODataEntitySet)
  27537. public
  27538. class function ObjectRestKind : String; Override;
  27539. class function EntityClass : TODataEntityClass; Override;
  27540. function Get(const Count: TInt32) : TSP_DirectoryLinkCollection;
  27541. function List(const AQuery: String; out NextLink: String)
  27542. : TSP_DirectoryLinkCollectionArray;
  27543. function List(const AQuery: TQueryParams; out NextLink: String)
  27544. : TSP_DirectoryLinkCollectionArray;
  27545. function ListAll(const AQuery: String)
  27546. : TSP_DirectoryLinkCollectionArray;
  27547. function ListAll(const AQuery: TQueryParams)
  27548. : TSP_DirectoryLinkCollectionArray;
  27549. end;
  27550. { --------------------------------------------------------------------
  27551. SP: MembershipResults
  27552. --------------------------------------------------------------------}
  27553. TSPMembershipResultsEntitySet = Class(TODataEntitySet)
  27554. public
  27555. class function ObjectRestKind : String; Override;
  27556. class function EntityClass : TODataEntityClass; Override;
  27557. function Get(const Id4a81de82eeb94d6080ea5bf63e27023a: string)
  27558. : TSP_DirectoryMembershipResult;
  27559. function List(const AQuery: String; out NextLink: String)
  27560. : TSP_DirectoryMembershipResultArray;
  27561. function List(const AQuery: TQueryParams; out NextLink: String)
  27562. : TSP_DirectoryMembershipResultArray;
  27563. function ListAll(const AQuery: String)
  27564. : TSP_DirectoryMembershipResultArray;
  27565. function ListAll(const AQuery: TQueryParams)
  27566. : TSP_DirectoryMembershipResultArray;
  27567. end;
  27568. { --------------------------------------------------------------------
  27569. SP: MembersInfos
  27570. --------------------------------------------------------------------}
  27571. TSPMembersInfosEntitySet = Class(TODataEntitySet)
  27572. public
  27573. class function ObjectRestKind : String; Override;
  27574. class function EntityClass : TODataEntityClass; Override;
  27575. function Get(const TotalCount: TInt32) : TSP_DirectoryMembersInfo;
  27576. function List(const AQuery: String; out NextLink: String)
  27577. : TSP_DirectoryMembersInfoArray;
  27578. function List(const AQuery: TQueryParams; out NextLink: String)
  27579. : TSP_DirectoryMembersInfoArray;
  27580. function ListAll(const AQuery: String) : TSP_DirectoryMembersInfoArray;
  27581. function ListAll(const AQuery: TQueryParams)
  27582. : TSP_DirectoryMembersInfoArray;
  27583. end;
  27584. { --------------------------------------------------------------------
  27585. SP: MyGroupsResults
  27586. --------------------------------------------------------------------}
  27587. TSPMyGroupsResultsEntitySet = Class(TODataEntitySet)
  27588. public
  27589. class function ObjectRestKind : String; Override;
  27590. class function EntityClass : TODataEntityClass; Override;
  27591. function Get(const HasNext: boolean) : TSP_DirectoryMyGroupsResult;
  27592. function List(const AQuery: String; out NextLink: String)
  27593. : TSP_DirectoryMyGroupsResultArray;
  27594. function List(const AQuery: TQueryParams; out NextLink: String)
  27595. : TSP_DirectoryMyGroupsResultArray;
  27596. function ListAll(const AQuery: String)
  27597. : TSP_DirectoryMyGroupsResultArray;
  27598. function ListAll(const AQuery: TQueryParams)
  27599. : TSP_DirectoryMyGroupsResultArray;
  27600. end;
  27601. { --------------------------------------------------------------------
  27602. SP: Propertys
  27603. --------------------------------------------------------------------}
  27604. TSPPropertysEntitySet = Class(TODataEntitySet)
  27605. public
  27606. class function ObjectRestKind : String; Override;
  27607. class function EntityClass : TODataEntityClass; Override;
  27608. function Get(const _Name: string) : TSP_Directory_Property;
  27609. function List(const AQuery: String; out NextLink: String)
  27610. : TSP_Directory_PropertyArray;
  27611. function List(const AQuery: TQueryParams; out NextLink: String)
  27612. : TSP_Directory_PropertyArray;
  27613. function ListAll(const AQuery: String) : TSP_Directory_PropertyArray;
  27614. function ListAll(const AQuery: TQueryParams)
  27615. : TSP_Directory_PropertyArray;
  27616. end;
  27617. { --------------------------------------------------------------------
  27618. SP: PropertyDictionarys
  27619. --------------------------------------------------------------------}
  27620. TSPPropertyDictionarysEntitySet = Class(TODataEntitySet)
  27621. public
  27622. class function ObjectRestKind : String; Override;
  27623. class function EntityClass : TODataEntityClass; Override;
  27624. function Get(const Id4a81de82eeb94d6080ea5bf63e27023a: string)
  27625. : TSP_DirectoryPropertyDictionary;
  27626. function List(const AQuery: String; out NextLink: String)
  27627. : TSP_DirectoryPropertyDictionaryArray;
  27628. function List(const AQuery: TQueryParams; out NextLink: String)
  27629. : TSP_DirectoryPropertyDictionaryArray;
  27630. function ListAll(const AQuery: String)
  27631. : TSP_DirectoryPropertyDictionaryArray;
  27632. function ListAll(const AQuery: TQueryParams)
  27633. : TSP_DirectoryPropertyDictionaryArray;
  27634. end;
  27635. { --------------------------------------------------------------------
  27636. SP: SharePointDirectoryProviders
  27637. --------------------------------------------------------------------}
  27638. TSPSharePointDirectoryProvidersEntitySet = Class(TODataEntitySet)
  27639. public
  27640. class function ObjectRestKind : String; Override;
  27641. class function EntityClass : TODataEntityClass; Override;
  27642. function Get(const Id4a81de82eeb94d6080ea5bf63e27023a: string)
  27643. : TSP_Directory_ProviderSharePointDirectoryProvider;
  27644. function List(const AQuery: String; out NextLink: String)
  27645. : TSP_Directory_ProviderSharePointDirectoryProviderArray;
  27646. function List(const AQuery: TQueryParams; out NextLink: String)
  27647. : TSP_Directory_ProviderSharePointDirectoryProviderArray;
  27648. function ListAll(const AQuery: String)
  27649. : TSP_Directory_ProviderSharePointDirectoryProviderArray;
  27650. function ListAll(const AQuery: TQueryParams)
  27651. : TSP_Directory_ProviderSharePointDirectoryProviderArray;
  27652. end;
  27653. { --------------------------------------------------------------------
  27654. SP: SPHelpers
  27655. --------------------------------------------------------------------}
  27656. TSPSPHelpersEntitySet = Class(TODataEntitySet)
  27657. public
  27658. class function ObjectRestKind : String; Override;
  27659. class function EntityClass : TODataEntityClass; Override;
  27660. function Get(const Id4a81de82eeb94d6080ea5bf63e27023a: string)
  27661. : TSP_DirectorySPHelper;
  27662. function List(const AQuery: String; out NextLink: String)
  27663. : TSP_DirectorySPHelperArray;
  27664. function List(const AQuery: TQueryParams; out NextLink: String)
  27665. : TSP_DirectorySPHelperArray;
  27666. function ListAll(const AQuery: String) : TSP_DirectorySPHelperArray;
  27667. function ListAll(const AQuery: TQueryParams)
  27668. : TSP_DirectorySPHelperArray;
  27669. end;
  27670. { --------------------------------------------------------------------
  27671. SP: Users
  27672. --------------------------------------------------------------------}
  27673. TSPUsersEntitySet = Class(TODataEntitySet)
  27674. public
  27675. class function ObjectRestKind : String; Override;
  27676. class function EntityClass : TODataEntityClass; Override;
  27677. function Get(const Id: TGUIDString) : TSP_DirectoryUser;
  27678. function List(const AQuery: String; out NextLink: String)
  27679. : TSP_DirectoryUserArray;
  27680. function List(const AQuery: TQueryParams; out NextLink: String)
  27681. : TSP_DirectoryUserArray;
  27682. function ListAll(const AQuery: String) : TSP_DirectoryUserArray;
  27683. function ListAll(const AQuery: TQueryParams) : TSP_DirectoryUserArray;
  27684. end;
  27685. { --------------------------------------------------------------------
  27686. SP: UserRequestSchemas
  27687. --------------------------------------------------------------------}
  27688. TSPUserRequestSchemasEntitySet = Class(TODataEntitySet)
  27689. public
  27690. class function ObjectRestKind : String; Override;
  27691. class function EntityClass : TODataEntityClass; Override;
  27692. function Get(const Id4a81de82eeb94d6080ea5bf63e27023a: string)
  27693. : TSP_DirectoryUserRequestSchema;
  27694. function List(const AQuery: String; out NextLink: String)
  27695. : TSP_DirectoryUserRequestSchemaArray;
  27696. function List(const AQuery: TQueryParams; out NextLink: String)
  27697. : TSP_DirectoryUserRequestSchemaArray;
  27698. function ListAll(const AQuery: String)
  27699. : TSP_DirectoryUserRequestSchemaArray;
  27700. function ListAll(const AQuery: TQueryParams)
  27701. : TSP_DirectoryUserRequestSchemaArray;
  27702. end;
  27703. { --------------------------------------------------------------------
  27704. SP: DlpPolicyTips
  27705. --------------------------------------------------------------------}
  27706. TSPDlpPolicyTipsEntitySet = Class(TODataEntitySet)
  27707. public
  27708. class function ObjectRestKind : String; Override;
  27709. class function EntityClass : TODataEntityClass; Override;
  27710. function Get(const AppliedActionsText: string) : TSPDlpPolicyTip;
  27711. function List(const AQuery: String; out NextLink: String)
  27712. : TSPDlpPolicyTipArray;
  27713. function List(const AQuery: TQueryParams; out NextLink: String)
  27714. : TSPDlpPolicyTipArray;
  27715. function ListAll(const AQuery: String) : TSPDlpPolicyTipArray;
  27716. function ListAll(const AQuery: TQueryParams) : TSPDlpPolicyTipArray;
  27717. end;
  27718. { --------------------------------------------------------------------
  27719. SP: EventReceiverDefinitions
  27720. --------------------------------------------------------------------}
  27721. TSPEventReceiverDefinitionsEntitySet = Class(TODataEntitySet)
  27722. public
  27723. class function ObjectRestKind : String; Override;
  27724. class function EntityClass : TODataEntityClass; Override;
  27725. function Get(const ReceiverId: TGUIDString) : TSPEventReceiverDefinition;
  27726. function List(const AQuery: String; out NextLink: String)
  27727. : TSPEventReceiverDefinitionArray;
  27728. function List(const AQuery: TQueryParams; out NextLink: String)
  27729. : TSPEventReceiverDefinitionArray;
  27730. function ListAll(const AQuery: String) : TSPEventReceiverDefinitionArray;
  27731. function ListAll(const AQuery: TQueryParams)
  27732. : TSPEventReceiverDefinitionArray;
  27733. end;
  27734. { --------------------------------------------------------------------
  27735. SP: Features
  27736. --------------------------------------------------------------------}
  27737. TSPFeaturesEntitySet = Class(TODataEntitySet)
  27738. public
  27739. class function ObjectRestKind : String; Override;
  27740. class function EntityClass : TODataEntityClass; Override;
  27741. function Get(const DefinitionId: TGUIDString) : TSPFeature;
  27742. function List(const AQuery: String; out NextLink: String)
  27743. : TSPFeatureArray;
  27744. function List(const AQuery: TQueryParams; out NextLink: String)
  27745. : TSPFeatureArray;
  27746. function ListAll(const AQuery: String) : TSPFeatureArray;
  27747. function ListAll(const AQuery: TQueryParams) : TSPFeatureArray;
  27748. end;
  27749. { --------------------------------------------------------------------
  27750. SP: Fields1
  27751. --------------------------------------------------------------------}
  27752. TSPFields1EntitySet = Class(TODataEntitySet)
  27753. public
  27754. class function ObjectRestKind : String; Override;
  27755. class function EntityClass : TODataEntityClass; Override;
  27756. function Get(const Id: TGUIDString) : TSPField;
  27757. function List(const AQuery: String; out NextLink: String)
  27758. : TSPFieldArray;
  27759. function List(const AQuery: TQueryParams; out NextLink: String)
  27760. : TSPFieldArray;
  27761. function ListAll(const AQuery: String) : TSPFieldArray;
  27762. function ListAll(const AQuery: TQueryParams) : TSPFieldArray;
  27763. end;
  27764. { --------------------------------------------------------------------
  27765. SP: FieldLinks
  27766. --------------------------------------------------------------------}
  27767. TSPFieldLinksEntitySet = Class(TODataEntitySet)
  27768. public
  27769. class function ObjectRestKind : String; Override;
  27770. class function EntityClass : TODataEntityClass; Override;
  27771. function Get(const Id: TGUIDString) : TSPFieldLink;
  27772. function List(const AQuery: String; out NextLink: String)
  27773. : TSPFieldLinkArray;
  27774. function List(const AQuery: TQueryParams; out NextLink: String)
  27775. : TSPFieldLinkArray;
  27776. function ListAll(const AQuery: String) : TSPFieldLinkArray;
  27777. function ListAll(const AQuery: TQueryParams) : TSPFieldLinkArray;
  27778. end;
  27779. { --------------------------------------------------------------------
  27780. SP: FieldStringValuess
  27781. --------------------------------------------------------------------}
  27782. TSPFieldStringValuessEntitySet = Class(TODataEntitySet)
  27783. public
  27784. class function ObjectRestKind : String; Override;
  27785. class function EntityClass : TODataEntityClass; Override;
  27786. function Get(const Id4a81de82eeb94d6080ea5bf63e27023a: string)
  27787. : TSPFieldStringValues;
  27788. function List(const AQuery: String; out NextLink: String)
  27789. : TSPFieldStringValuesArray;
  27790. function List(const AQuery: TQueryParams; out NextLink: String)
  27791. : TSPFieldStringValuesArray;
  27792. function ListAll(const AQuery: String) : TSPFieldStringValuesArray;
  27793. function ListAll(const AQuery: TQueryParams) : TSPFieldStringValuesArray;
  27794. end;
  27795. { --------------------------------------------------------------------
  27796. SP: Files12
  27797. --------------------------------------------------------------------}
  27798. TSPFiles12EntitySet = Class(TODataEntitySet)
  27799. public
  27800. class function ObjectRestKind : String; Override;
  27801. class function EntityClass : TODataEntityClass; Override;
  27802. function Get(const _Name: string) : TSP_File;
  27803. function List(const AQuery: String; out NextLink: String)
  27804. : TSP_FileArray;
  27805. function List(const AQuery: TQueryParams; out NextLink: String)
  27806. : TSP_FileArray;
  27807. function ListAll(const AQuery: String) : TSP_FileArray;
  27808. function ListAll(const AQuery: TQueryParams) : TSP_FileArray;
  27809. end;
  27810. { --------------------------------------------------------------------
  27811. SP: FileVersions
  27812. --------------------------------------------------------------------}
  27813. TSPFileVersionsEntitySet = Class(TODataEntitySet)
  27814. public
  27815. class function ObjectRestKind : String; Override;
  27816. class function EntityClass : TODataEntityClass; Override;
  27817. function Get(const ID: TInt32) : TSPFileVersion;
  27818. function List(const AQuery: String; out NextLink: String)
  27819. : TSPFileVersionArray;
  27820. function List(const AQuery: TQueryParams; out NextLink: String)
  27821. : TSPFileVersionArray;
  27822. function ListAll(const AQuery: String) : TSPFileVersionArray;
  27823. function ListAll(const AQuery: TQueryParams) : TSPFileVersionArray;
  27824. end;
  27825. { --------------------------------------------------------------------
  27826. SP: Folders1
  27827. --------------------------------------------------------------------}
  27828. TSPFolders1EntitySet = Class(TODataEntitySet)
  27829. public
  27830. class function ObjectRestKind : String; Override;
  27831. class function EntityClass : TODataEntityClass; Override;
  27832. function Get(const ServerRelativeUrl: string) : TSPFolder;
  27833. function List(const AQuery: String; out NextLink: String)
  27834. : TSPFolderArray;
  27835. function List(const AQuery: TQueryParams; out NextLink: String)
  27836. : TSPFolderArray;
  27837. function ListAll(const AQuery: String) : TSPFolderArray;
  27838. function ListAll(const AQuery: TQueryParams) : TSPFolderArray;
  27839. end;
  27840. { --------------------------------------------------------------------
  27841. SP: Forms
  27842. --------------------------------------------------------------------}
  27843. TSPFormsEntitySet = Class(TODataEntitySet)
  27844. public
  27845. class function ObjectRestKind : String; Override;
  27846. class function EntityClass : TODataEntityClass; Override;
  27847. function Get(const Id: TGUIDString) : TSPForm;
  27848. function List(const AQuery: String; out NextLink: String) : TSPFormArray;
  27849. function List(const AQuery: TQueryParams; out NextLink: String)
  27850. : TSPFormArray;
  27851. function ListAll(const AQuery: String) : TSPFormArray;
  27852. function ListAll(const AQuery: TQueryParams) : TSPFormArray;
  27853. end;
  27854. { --------------------------------------------------------------------
  27855. SP: Groups1
  27856. --------------------------------------------------------------------}
  27857. TSPGroups1EntitySet = Class(TODataEntitySet)
  27858. public
  27859. class function ObjectRestKind : String; Override;
  27860. class function EntityClass : TODataEntityClass; Override;
  27861. function Get(const Id: TInt32) : TSPGroup;
  27862. function List(const AQuery: String; out NextLink: String)
  27863. : TSPGroupArray;
  27864. function List(const AQuery: TQueryParams; out NextLink: String)
  27865. : TSPGroupArray;
  27866. function ListAll(const AQuery: String) : TSPGroupArray;
  27867. function ListAll(const AQuery: TQueryParams) : TSPGroupArray;
  27868. end;
  27869. { --------------------------------------------------------------------
  27870. SP: InformationRightsManagementSettingss
  27871. --------------------------------------------------------------------}
  27872. TSPInformationRightsManagementSettingssEntitySet = Class(TODataEntitySet)
  27873. public
  27874. class function ObjectRestKind : String; Override;
  27875. class function EntityClass : TODataEntityClass; Override;
  27876. function Get(const AllowPrint: boolean)
  27877. : TSPInformationRightsManagementSettings;
  27878. function List(const AQuery: String; out NextLink: String)
  27879. : TSPInformationRightsManagementSettingsArray;
  27880. function List(const AQuery: TQueryParams; out NextLink: String)
  27881. : TSPInformationRightsManagementSettingsArray;
  27882. function ListAll(const AQuery: String)
  27883. : TSPInformationRightsManagementSettingsArray;
  27884. function ListAll(const AQuery: TQueryParams)
  27885. : TSPInformationRightsManagementSettingsArray;
  27886. end;
  27887. { --------------------------------------------------------------------
  27888. SP: ListItems
  27889. --------------------------------------------------------------------}
  27890. TSPListItemsEntitySet = Class(TODataEntitySet)
  27891. public
  27892. class function ObjectRestKind : String; Override;
  27893. class function EntityClass : TODataEntityClass; Override;
  27894. function Get(const HasUniqueRoleAssignments: boolean) : TSPListItem;
  27895. function List(const AQuery: String; out NextLink: String)
  27896. : TSPListItemArray;
  27897. function List(const AQuery: TQueryParams; out NextLink: String)
  27898. : TSPListItemArray;
  27899. function ListAll(const AQuery: String) : TSPListItemArray;
  27900. function ListAll(const AQuery: TQueryParams) : TSPListItemArray;
  27901. end;
  27902. { --------------------------------------------------------------------
  27903. SP: ListTemplates
  27904. --------------------------------------------------------------------}
  27905. TSPListTemplatesEntitySet = Class(TODataEntitySet)
  27906. public
  27907. class function ObjectRestKind : String; Override;
  27908. class function EntityClass : TODataEntityClass; Override;
  27909. function Get(const _Name: string) : TSPListTemplate;
  27910. function List(const AQuery: String; out NextLink: String)
  27911. : TSPListTemplateArray;
  27912. function List(const AQuery: TQueryParams; out NextLink: String)
  27913. : TSPListTemplateArray;
  27914. function ListAll(const AQuery: String) : TSPListTemplateArray;
  27915. function ListAll(const AQuery: TQueryParams) : TSPListTemplateArray;
  27916. end;
  27917. { --------------------------------------------------------------------
  27918. SP: MicrofeedAttachmentStores
  27919. --------------------------------------------------------------------}
  27920. TSPMicrofeedAttachmentStoresEntitySet = Class(TODataEntitySet)
  27921. public
  27922. class function ObjectRestKind : String; Override;
  27923. class function EntityClass : TODataEntityClass; Override;
  27924. function Get(const Id4a81de82eeb94d6080ea5bf63e27023a: string)
  27925. : TSP_MicrofeedMicrofeedAttachmentStore;
  27926. function List(const AQuery: String; out NextLink: String)
  27927. : TSP_MicrofeedMicrofeedAttachmentStoreArray;
  27928. function List(const AQuery: TQueryParams; out NextLink: String)
  27929. : TSP_MicrofeedMicrofeedAttachmentStoreArray;
  27930. function ListAll(const AQuery: String)
  27931. : TSP_MicrofeedMicrofeedAttachmentStoreArray;
  27932. function ListAll(const AQuery: TQueryParams)
  27933. : TSP_MicrofeedMicrofeedAttachmentStoreArray;
  27934. end;
  27935. { --------------------------------------------------------------------
  27936. SP: MicrofeedDatas
  27937. --------------------------------------------------------------------}
  27938. TSPMicrofeedDatasEntitySet = Class(TODataEntitySet)
  27939. public
  27940. class function ObjectRestKind : String; Override;
  27941. class function EntityClass : TODataEntityClass; Override;
  27942. function Get(const Created: TDateTime) : TSP_MicrofeedMicrofeedData;
  27943. function List(const AQuery: String; out NextLink: String)
  27944. : TSP_MicrofeedMicrofeedDataArray;
  27945. function List(const AQuery: TQueryParams; out NextLink: String)
  27946. : TSP_MicrofeedMicrofeedDataArray;
  27947. function ListAll(const AQuery: String) : TSP_MicrofeedMicrofeedDataArray;
  27948. function ListAll(const AQuery: TQueryParams)
  27949. : TSP_MicrofeedMicrofeedDataArray;
  27950. end;
  27951. { --------------------------------------------------------------------
  27952. SP: MicrofeedManagers
  27953. --------------------------------------------------------------------}
  27954. TSPMicrofeedManagersEntitySet = Class(TODataEntitySet)
  27955. public
  27956. class function ObjectRestKind : String; Override;
  27957. class function EntityClass : TODataEntityClass; Override;
  27958. function Get(const IsFeedActivityPublic: boolean)
  27959. : TSP_MicrofeedMicrofeedManager;
  27960. function List(const AQuery: String; out NextLink: String)
  27961. : TSP_MicrofeedMicrofeedManagerArray;
  27962. function List(const AQuery: TQueryParams; out NextLink: String)
  27963. : TSP_MicrofeedMicrofeedManagerArray;
  27964. function ListAll(const AQuery: String)
  27965. : TSP_MicrofeedMicrofeedManagerArray;
  27966. function ListAll(const AQuery: TQueryParams)
  27967. : TSP_MicrofeedMicrofeedManagerArray;
  27968. end;
  27969. { --------------------------------------------------------------------
  27970. SP: MicrofeedPostDefinitionManagers
  27971. --------------------------------------------------------------------}
  27972. TSPMicrofeedPostDefinitionManagersEntitySet = Class(TODataEntitySet)
  27973. public
  27974. class function ObjectRestKind : String; Override;
  27975. class function EntityClass : TODataEntityClass; Override;
  27976. function Get(const Id4a81de82eeb94d6080ea5bf63e27023a: string)
  27977. : TSP_MicrofeedMicrofeedPostDefinitionManager;
  27978. function List(const AQuery: String; out NextLink: String)
  27979. : TSP_MicrofeedMicrofeedPostDefinitionManagerArray;
  27980. function List(const AQuery: TQueryParams; out NextLink: String)
  27981. : TSP_MicrofeedMicrofeedPostDefinitionManagerArray;
  27982. function ListAll(const AQuery: String)
  27983. : TSP_MicrofeedMicrofeedPostDefinitionManagerArray;
  27984. function ListAll(const AQuery: TQueryParams)
  27985. : TSP_MicrofeedMicrofeedPostDefinitionManagerArray;
  27986. end;
  27987. { --------------------------------------------------------------------
  27988. SP: MicrofeedPostOptionCollections
  27989. --------------------------------------------------------------------}
  27990. TSPMicrofeedPostOptionCollectionsEntitySet = Class(TODataEntitySet)
  27991. public
  27992. class function ObjectRestKind : String; Override;
  27993. class function EntityClass : TODataEntityClass; Override;
  27994. function Get(const Id4a81de82eeb94d6080ea5bf63e27023a: string)
  27995. : TSP_MicrofeedMicrofeedPostOptionCollection;
  27996. function List(const AQuery: String; out NextLink: String)
  27997. : TSP_MicrofeedMicrofeedPostOptionCollectionArray;
  27998. function List(const AQuery: TQueryParams; out NextLink: String)
  27999. : TSP_MicrofeedMicrofeedPostOptionCollectionArray;
  28000. function ListAll(const AQuery: String)
  28001. : TSP_MicrofeedMicrofeedPostOptionCollectionArray;
  28002. function ListAll(const AQuery: TQueryParams)
  28003. : TSP_MicrofeedMicrofeedPostOptionCollectionArray;
  28004. end;
  28005. { --------------------------------------------------------------------
  28006. SP: MicrofeedStores
  28007. --------------------------------------------------------------------}
  28008. TSPMicrofeedStoresEntitySet = Class(TODataEntitySet)
  28009. public
  28010. class function ObjectRestKind : String; Override;
  28011. class function EntityClass : TODataEntityClass; Override;
  28012. function Get(const Id4a81de82eeb94d6080ea5bf63e27023a: string)
  28013. : TSP_MicrofeedMicrofeedStore;
  28014. function List(const AQuery: String; out NextLink: String)
  28015. : TSP_MicrofeedMicrofeedStoreArray;
  28016. function List(const AQuery: TQueryParams; out NextLink: String)
  28017. : TSP_MicrofeedMicrofeedStoreArray;
  28018. function ListAll(const AQuery: String)
  28019. : TSP_MicrofeedMicrofeedStoreArray;
  28020. function ListAll(const AQuery: TQueryParams)
  28021. : TSP_MicrofeedMicrofeedStoreArray;
  28022. end;
  28023. { --------------------------------------------------------------------
  28024. SP: MountedFolderInfos
  28025. --------------------------------------------------------------------}
  28026. TSPMountedFolderInfosEntitySet = Class(TODataEntitySet)
  28027. public
  28028. class function ObjectRestKind : String; Override;
  28029. class function EntityClass : TODataEntityClass; Override;
  28030. function Get(const FolderUrl: string) : TSPMountedFolderInfo;
  28031. function List(const AQuery: String; out NextLink: String)
  28032. : TSPMountedFolderInfoArray;
  28033. function List(const AQuery: TQueryParams; out NextLink: String)
  28034. : TSPMountedFolderInfoArray;
  28035. function ListAll(const AQuery: String) : TSPMountedFolderInfoArray;
  28036. function ListAll(const AQuery: TQueryParams) : TSPMountedFolderInfoArray;
  28037. end;
  28038. { --------------------------------------------------------------------
  28039. SP: MountPoints
  28040. --------------------------------------------------------------------}
  28041. TSPMountPointsEntitySet = Class(TODataEntitySet)
  28042. public
  28043. class function ObjectRestKind : String; Override;
  28044. class function EntityClass : TODataEntityClass; Override;
  28045. function Get(const Id4a81de82eeb94d6080ea5bf63e27023a: string)
  28046. : TSPMountPoint;
  28047. function List(const AQuery: String; out NextLink: String)
  28048. : TSPMountPointArray;
  28049. function List(const AQuery: TQueryParams; out NextLink: String)
  28050. : TSPMountPointArray;
  28051. function ListAll(const AQuery: String) : TSPMountPointArray;
  28052. function ListAll(const AQuery: TQueryParams) : TSPMountPointArray;
  28053. end;
  28054. { --------------------------------------------------------------------
  28055. SP: MountPointInfos
  28056. --------------------------------------------------------------------}
  28057. TSPMountPointInfosEntitySet = Class(TODataEntitySet)
  28058. public
  28059. class function ObjectRestKind : String; Override;
  28060. class function EntityClass : TODataEntityClass; Override;
  28061. function Get(const _Name: string) : TSPMountPointInfo;
  28062. function List(const AQuery: String; out NextLink: String)
  28063. : TSPMountPointInfoArray;
  28064. function List(const AQuery: TQueryParams; out NextLink: String)
  28065. : TSPMountPointInfoArray;
  28066. function ListAll(const AQuery: String) : TSPMountPointInfoArray;
  28067. function ListAll(const AQuery: TQueryParams) : TSPMountPointInfoArray;
  28068. end;
  28069. { --------------------------------------------------------------------
  28070. SP: MoveCopyUtils
  28071. --------------------------------------------------------------------}
  28072. TSPMoveCopyUtilsEntitySet = Class(TODataEntitySet)
  28073. public
  28074. class function ObjectRestKind : String; Override;
  28075. class function EntityClass : TODataEntityClass; Override;
  28076. function Get(const Id4a81de82eeb94d6080ea5bf63e27023a: string)
  28077. : TSPMoveCopyUtil;
  28078. function List(const AQuery: String; out NextLink: String)
  28079. : TSPMoveCopyUtilArray;
  28080. function List(const AQuery: TQueryParams; out NextLink: String)
  28081. : TSPMoveCopyUtilArray;
  28082. function ListAll(const AQuery: String) : TSPMoveCopyUtilArray;
  28083. function ListAll(const AQuery: TQueryParams) : TSPMoveCopyUtilArray;
  28084. end;
  28085. { --------------------------------------------------------------------
  28086. SP: Navigations
  28087. --------------------------------------------------------------------}
  28088. TSPNavigationsEntitySet = Class(TODataEntitySet)
  28089. public
  28090. class function ObjectRestKind : String; Override;
  28091. class function EntityClass : TODataEntityClass; Override;
  28092. function Get(const UseShared: boolean) : TSPNavigation;
  28093. function List(const AQuery: String; out NextLink: String)
  28094. : TSPNavigationArray;
  28095. function List(const AQuery: TQueryParams; out NextLink: String)
  28096. : TSPNavigationArray;
  28097. function ListAll(const AQuery: String) : TSPNavigationArray;
  28098. function ListAll(const AQuery: TQueryParams) : TSPNavigationArray;
  28099. end;
  28100. { --------------------------------------------------------------------
  28101. SP: NavigationNodes
  28102. --------------------------------------------------------------------}
  28103. TSPNavigationNodesEntitySet = Class(TODataEntitySet)
  28104. public
  28105. class function ObjectRestKind : String; Override;
  28106. class function EntityClass : TODataEntityClass; Override;
  28107. function Get(const Id: TInt32) : TSPNavigationNode;
  28108. function List(const AQuery: String; out NextLink: String)
  28109. : TSPNavigationNodeArray;
  28110. function List(const AQuery: TQueryParams; out NextLink: String)
  28111. : TSPNavigationNodeArray;
  28112. function ListAll(const AQuery: String) : TSPNavigationNodeArray;
  28113. function ListAll(const AQuery: TQueryParams) : TSPNavigationNodeArray;
  28114. end;
  28115. { --------------------------------------------------------------------
  28116. SP: NativeClients
  28117. --------------------------------------------------------------------}
  28118. TSPNativeClientsEntitySet = Class(TODataEntitySet)
  28119. public
  28120. class function ObjectRestKind : String; Override;
  28121. class function EntityClass : TODataEntityClass; Override;
  28122. function Get(const Id4a81de82eeb94d6080ea5bf63e27023a: string)
  28123. : TSP_OAuthNativeClient;
  28124. function List(const AQuery: String; out NextLink: String)
  28125. : TSP_OAuthNativeClientArray;
  28126. function List(const AQuery: TQueryParams; out NextLink: String)
  28127. : TSP_OAuthNativeClientArray;
  28128. function ListAll(const AQuery: String) : TSP_OAuthNativeClientArray;
  28129. function ListAll(const AQuery: TQueryParams)
  28130. : TSP_OAuthNativeClientArray;
  28131. end;
  28132. { --------------------------------------------------------------------
  28133. SP: ObjectSharingInformations
  28134. --------------------------------------------------------------------}
  28135. TSPObjectSharingInformationsEntitySet = Class(TODataEntitySet)
  28136. public
  28137. class function ObjectRestKind : String; Override;
  28138. class function EntityClass : TODataEntityClass; Override;
  28139. function Get(const AnonymousEditLink: string)
  28140. : TSPObjectSharingInformation;
  28141. function List(const AQuery: String; out NextLink: String)
  28142. : TSPObjectSharingInformationArray;
  28143. function List(const AQuery: TQueryParams; out NextLink: String)
  28144. : TSPObjectSharingInformationArray;
  28145. function ListAll(const AQuery: String)
  28146. : TSPObjectSharingInformationArray;
  28147. function ListAll(const AQuery: TQueryParams)
  28148. : TSPObjectSharingInformationArray;
  28149. end;
  28150. { --------------------------------------------------------------------
  28151. SP: ObjectSharingInformationUsers
  28152. --------------------------------------------------------------------}
  28153. TSPObjectSharingInformationUsersEntitySet = Class(TODataEntitySet)
  28154. public
  28155. class function ObjectRestKind : String; Override;
  28156. class function EntityClass : TODataEntityClass; Override;
  28157. function Get(const Id: TInt32) : TSPObjectSharingInformationUser;
  28158. function List(const AQuery: String; out NextLink: String)
  28159. : TSPObjectSharingInformationUserArray;
  28160. function List(const AQuery: TQueryParams; out NextLink: String)
  28161. : TSPObjectSharingInformationUserArray;
  28162. function ListAll(const AQuery: String)
  28163. : TSPObjectSharingInformationUserArray;
  28164. function ListAll(const AQuery: TQueryParams)
  28165. : TSPObjectSharingInformationUserArray;
  28166. end;
  28167. { --------------------------------------------------------------------
  28168. SP: ObjectSharingSettingss
  28169. --------------------------------------------------------------------}
  28170. TSPObjectSharingSettingssEntitySet = Class(TODataEntitySet)
  28171. public
  28172. class function ObjectRestKind : String; Override;
  28173. class function EntityClass : TODataEntityClass; Override;
  28174. function Get(const AccessRequestMode: boolean)
  28175. : TSPObjectSharingSettings;
  28176. function List(const AQuery: String; out NextLink: String)
  28177. : TSPObjectSharingSettingsArray;
  28178. function List(const AQuery: TQueryParams; out NextLink: String)
  28179. : TSPObjectSharingSettingsArray;
  28180. function ListAll(const AQuery: String) : TSPObjectSharingSettingsArray;
  28181. function ListAll(const AQuery: TQueryParams)
  28182. : TSPObjectSharingSettingsArray;
  28183. end;
  28184. { --------------------------------------------------------------------
  28185. SP: ClickManagers
  28186. --------------------------------------------------------------------}
  28187. TSPClickManagersEntitySet = Class(TODataEntitySet)
  28188. public
  28189. class function ObjectRestKind : String; Override;
  28190. class function EntityClass : TODataEntityClass; Override;
  28191. function Get(const Id4a81de82eeb94d6080ea5bf63e27023a: string)
  28192. : TSP_PageInstrumentationClickManager;
  28193. function List(const AQuery: String; out NextLink: String)
  28194. : TSP_PageInstrumentationClickManagerArray;
  28195. function List(const AQuery: TQueryParams; out NextLink: String)
  28196. : TSP_PageInstrumentationClickManagerArray;
  28197. function ListAll(const AQuery: String)
  28198. : TSP_PageInstrumentationClickManagerArray;
  28199. function ListAll(const AQuery: TQueryParams)
  28200. : TSP_PageInstrumentationClickManagerArray;
  28201. end;
  28202. { --------------------------------------------------------------------
  28203. SP: PickerSettingss
  28204. --------------------------------------------------------------------}
  28205. TSPPickerSettingssEntitySet = Class(TODataEntitySet)
  28206. public
  28207. class function ObjectRestKind : String; Override;
  28208. class function EntityClass : TODataEntityClass; Override;
  28209. function Get(const AllowEmailAddresses: boolean) : TSPPickerSettings;
  28210. function List(const AQuery: String; out NextLink: String)
  28211. : TSPPickerSettingsArray;
  28212. function List(const AQuery: TQueryParams; out NextLink: String)
  28213. : TSPPickerSettingsArray;
  28214. function ListAll(const AQuery: String) : TSPPickerSettingsArray;
  28215. function ListAll(const AQuery: TQueryParams) : TSPPickerSettingsArray;
  28216. end;
  28217. { --------------------------------------------------------------------
  28218. SP: Principals
  28219. --------------------------------------------------------------------}
  28220. TSPPrincipalsEntitySet = Class(TODataEntitySet)
  28221. public
  28222. class function ObjectRestKind : String; Override;
  28223. class function EntityClass : TODataEntityClass; Override;
  28224. function Get(const Id: TInt32) : TSPPrincipal;
  28225. function List(const AQuery: String; out NextLink: String)
  28226. : TSPPrincipalArray;
  28227. function List(const AQuery: TQueryParams; out NextLink: String)
  28228. : TSPPrincipalArray;
  28229. function ListAll(const AQuery: String) : TSPPrincipalArray;
  28230. function ListAll(const AQuery: TQueryParams) : TSPPrincipalArray;
  28231. end;
  28232. { --------------------------------------------------------------------
  28233. SP: PropertyValuess
  28234. --------------------------------------------------------------------}
  28235. TSPPropertyValuessEntitySet = Class(TODataEntitySet)
  28236. public
  28237. class function ObjectRestKind : String; Override;
  28238. class function EntityClass : TODataEntityClass; Override;
  28239. function Get(const Id4a81de82eeb94d6080ea5bf63e27023a: string)
  28240. : TSPPropertyValues;
  28241. function List(const AQuery: String; out NextLink: String)
  28242. : TSPPropertyValuesArray;
  28243. function List(const AQuery: TQueryParams; out NextLink: String)
  28244. : TSPPropertyValuesArray;
  28245. function ListAll(const AQuery: String) : TSPPropertyValuesArray;
  28246. function ListAll(const AQuery: TQueryParams) : TSPPropertyValuesArray;
  28247. end;
  28248. { --------------------------------------------------------------------
  28249. SP: PersonMagazines
  28250. --------------------------------------------------------------------}
  28251. TSPPersonMagazinesEntitySet = Class(TODataEntitySet)
  28252. public
  28253. class function ObjectRestKind : String; Override;
  28254. class function EntityClass : TODataEntityClass; Override;
  28255. function Get(const Id4a81de82eeb94d6080ea5bf63e27023a: string)
  28256. : TSP_PublishingPersonMagazine;
  28257. function List(const AQuery: String; out NextLink: String)
  28258. : TSP_PublishingPersonMagazineArray;
  28259. function List(const AQuery: TQueryParams; out NextLink: String)
  28260. : TSP_PublishingPersonMagazineArray;
  28261. function ListAll(const AQuery: String)
  28262. : TSP_PublishingPersonMagazineArray;
  28263. function ListAll(const AQuery: TQueryParams)
  28264. : TSP_PublishingPersonMagazineArray;
  28265. end;
  28266. { --------------------------------------------------------------------
  28267. SP: PointPublishingDocPropss
  28268. --------------------------------------------------------------------}
  28269. TSPPointPublishingDocPropssEntitySet = Class(TODataEntitySet)
  28270. public
  28271. class function ObjectRestKind : String; Override;
  28272. class function EntityClass : TODataEntityClass; Override;
  28273. function Get(const Author: string)
  28274. : TSP_PublishingPointPublishingDocProps;
  28275. function List(const AQuery: String; out NextLink: String)
  28276. : TSP_PublishingPointPublishingDocPropsArray;
  28277. function List(const AQuery: TQueryParams; out NextLink: String)
  28278. : TSP_PublishingPointPublishingDocPropsArray;
  28279. function ListAll(const AQuery: String)
  28280. : TSP_PublishingPointPublishingDocPropsArray;
  28281. function ListAll(const AQuery: TQueryParams)
  28282. : TSP_PublishingPointPublishingDocPropsArray;
  28283. end;
  28284. { --------------------------------------------------------------------
  28285. SP: PointPublishingMagazinePropss
  28286. --------------------------------------------------------------------}
  28287. TSPPointPublishingMagazinePropssEntitySet = Class(TODataEntitySet)
  28288. public
  28289. class function ObjectRestKind : String; Override;
  28290. class function EntityClass : TODataEntityClass; Override;
  28291. function Get(const BannerColor: string)
  28292. : TSP_PublishingPointPublishingMagazineProps;
  28293. function List(const AQuery: String; out NextLink: String)
  28294. : TSP_PublishingPointPublishingMagazinePropsArray;
  28295. function List(const AQuery: TQueryParams; out NextLink: String)
  28296. : TSP_PublishingPointPublishingMagazinePropsArray;
  28297. function ListAll(const AQuery: String)
  28298. : TSP_PublishingPointPublishingMagazinePropsArray;
  28299. function ListAll(const AQuery: TQueryParams)
  28300. : TSP_PublishingPointPublishingMagazinePropsArray;
  28301. end;
  28302. { --------------------------------------------------------------------
  28303. SP: PointPublishingPosts
  28304. --------------------------------------------------------------------}
  28305. TSPPointPublishingPostsEntitySet = Class(TODataEntitySet)
  28306. public
  28307. class function ObjectRestKind : String; Override;
  28308. class function EntityClass : TODataEntityClass; Override;
  28309. function Get(const Id: TInt32) : TSP_PublishingPointPublishingPost;
  28310. function List(const AQuery: String; out NextLink: String)
  28311. : TSP_PublishingPointPublishingPostArray;
  28312. function List(const AQuery: TQueryParams; out NextLink: String)
  28313. : TSP_PublishingPointPublishingPostArray;
  28314. function ListAll(const AQuery: String)
  28315. : TSP_PublishingPointPublishingPostArray;
  28316. function ListAll(const AQuery: TQueryParams)
  28317. : TSP_PublishingPointPublishingPostArray;
  28318. end;
  28319. { --------------------------------------------------------------------
  28320. SP: PointPublishingPostServiceManagers
  28321. --------------------------------------------------------------------}
  28322. TSPPointPublishingPostServiceManagersEntitySet = Class(TODataEntitySet)
  28323. public
  28324. class function ObjectRestKind : String; Override;
  28325. class function EntityClass : TODataEntityClass; Override;
  28326. function Get(const Id4a81de82eeb94d6080ea5bf63e27023a: string)
  28327. : TSP_PublishingPointPublishingPostServiceManager;
  28328. function List(const AQuery: String; out NextLink: String)
  28329. : TSP_PublishingPointPublishingPostServiceManagerArray;
  28330. function List(const AQuery: TQueryParams; out NextLink: String)
  28331. : TSP_PublishingPointPublishingPostServiceManagerArray;
  28332. function ListAll(const AQuery: String)
  28333. : TSP_PublishingPointPublishingPostServiceManagerArray;
  28334. function ListAll(const AQuery: TQueryParams)
  28335. : TSP_PublishingPointPublishingPostServiceManagerArray;
  28336. end;
  28337. { --------------------------------------------------------------------
  28338. SP: PointPublishingSiteManagers
  28339. --------------------------------------------------------------------}
  28340. TSPPointPublishingSiteManagersEntitySet = Class(TODataEntitySet)
  28341. public
  28342. class function ObjectRestKind : String; Override;
  28343. class function EntityClass : TODataEntityClass; Override;
  28344. function Get(const Id4a81de82eeb94d6080ea5bf63e27023a: string)
  28345. : TSP_PublishingPointPublishingSiteManager;
  28346. function List(const AQuery: String; out NextLink: String)
  28347. : TSP_PublishingPointPublishingSiteManagerArray;
  28348. function List(const AQuery: TQueryParams; out NextLink: String)
  28349. : TSP_PublishingPointPublishingSiteManagerArray;
  28350. function ListAll(const AQuery: String)
  28351. : TSP_PublishingPointPublishingSiteManagerArray;
  28352. function ListAll(const AQuery: TQueryParams)
  28353. : TSP_PublishingPointPublishingSiteManagerArray;
  28354. end;
  28355. { --------------------------------------------------------------------
  28356. SP: PointPublishingSiteStatuss
  28357. --------------------------------------------------------------------}
  28358. TSPPointPublishingSiteStatussEntitySet = Class(TODataEntitySet)
  28359. public
  28360. class function ObjectRestKind : String; Override;
  28361. class function EntityClass : TODataEntityClass; Override;
  28362. function Get(const FriendlyUrl: string)
  28363. : TSP_PublishingPointPublishingSiteStatus;
  28364. function List(const AQuery: String; out NextLink: String)
  28365. : TSP_PublishingPointPublishingSiteStatusArray;
  28366. function List(const AQuery: TQueryParams; out NextLink: String)
  28367. : TSP_PublishingPointPublishingSiteStatusArray;
  28368. function ListAll(const AQuery: String)
  28369. : TSP_PublishingPointPublishingSiteStatusArray;
  28370. function ListAll(const AQuery: TQueryParams)
  28371. : TSP_PublishingPointPublishingSiteStatusArray;
  28372. end;
  28373. { --------------------------------------------------------------------
  28374. SP: PointPublishingUsers
  28375. --------------------------------------------------------------------}
  28376. TSPPointPublishingUsersEntitySet = Class(TODataEntitySet)
  28377. public
  28378. class function ObjectRestKind : String; Override;
  28379. class function EntityClass : TODataEntityClass; Override;
  28380. function Get(const _Name: string) : TSP_PublishingPointPublishingUser;
  28381. function List(const AQuery: String; out NextLink: String)
  28382. : TSP_PublishingPointPublishingUserArray;
  28383. function List(const AQuery: TQueryParams; out NextLink: String)
  28384. : TSP_PublishingPointPublishingUserArray;
  28385. function ListAll(const AQuery: String)
  28386. : TSP_PublishingPointPublishingUserArray;
  28387. function ListAll(const AQuery: TQueryParams)
  28388. : TSP_PublishingPointPublishingUserArray;
  28389. end;
  28390. { --------------------------------------------------------------------
  28391. SP: Searchs
  28392. --------------------------------------------------------------------}
  28393. TSPSearchsEntitySet = Class(TODataEntitySet)
  28394. public
  28395. class function ObjectRestKind : String; Override;
  28396. class function EntityClass : TODataEntityClass; Override;
  28397. function Get(const Id4a81de82eeb94d6080ea5bf63e27023a: string)
  28398. : TSP_PublishingSearch;
  28399. function List(const AQuery: String; out NextLink: String)
  28400. : TSP_PublishingSearchArray;
  28401. function List(const AQuery: TQueryParams; out NextLink: String)
  28402. : TSP_PublishingSearchArray;
  28403. function ListAll(const AQuery: String) : TSP_PublishingSearchArray;
  28404. function ListAll(const AQuery: TQueryParams) : TSP_PublishingSearchArray;
  28405. end;
  28406. { --------------------------------------------------------------------
  28407. SP: SpotlightChannels
  28408. --------------------------------------------------------------------}
  28409. TSPSpotlightChannelsEntitySet = Class(TODataEntitySet)
  28410. public
  28411. class function ObjectRestKind : String; Override;
  28412. class function EntityClass : TODataEntityClass; Override;
  28413. function Get(const Id: TInt32) : TSP_PublishingSpotlightChannel;
  28414. function List(const AQuery: String; out NextLink: String)
  28415. : TSP_PublishingSpotlightChannelArray;
  28416. function List(const AQuery: TQueryParams; out NextLink: String)
  28417. : TSP_PublishingSpotlightChannelArray;
  28418. function ListAll(const AQuery: String)
  28419. : TSP_PublishingSpotlightChannelArray;
  28420. function ListAll(const AQuery: TQueryParams)
  28421. : TSP_PublishingSpotlightChannelArray;
  28422. end;
  28423. { --------------------------------------------------------------------
  28424. SP: SpotlightVideos
  28425. --------------------------------------------------------------------}
  28426. TSPSpotlightVideosEntitySet = Class(TODataEntitySet)
  28427. public
  28428. class function ObjectRestKind : String; Override;
  28429. class function EntityClass : TODataEntityClass; Override;
  28430. function Get(const Id: TInt32) : TSP_PublishingSpotlightVideo;
  28431. function List(const AQuery: String; out NextLink: String)
  28432. : TSP_PublishingSpotlightVideoArray;
  28433. function List(const AQuery: TQueryParams; out NextLink: String)
  28434. : TSP_PublishingSpotlightVideoArray;
  28435. function ListAll(const AQuery: String)
  28436. : TSP_PublishingSpotlightVideoArray;
  28437. function ListAll(const AQuery: TQueryParams)
  28438. : TSP_PublishingSpotlightVideoArray;
  28439. end;
  28440. { --------------------------------------------------------------------
  28441. SP: VideoChannels
  28442. --------------------------------------------------------------------}
  28443. TSPVideoChannelsEntitySet = Class(TODataEntitySet)
  28444. public
  28445. class function ObjectRestKind : String; Override;
  28446. class function EntityClass : TODataEntityClass; Override;
  28447. function Get(const Id: TGUIDString) : TSP_PublishingVideoChannel;
  28448. function List(const AQuery: String; out NextLink: String)
  28449. : TSP_PublishingVideoChannelArray;
  28450. function List(const AQuery: TQueryParams; out NextLink: String)
  28451. : TSP_PublishingVideoChannelArray;
  28452. function ListAll(const AQuery: String) : TSP_PublishingVideoChannelArray;
  28453. function ListAll(const AQuery: TQueryParams)
  28454. : TSP_PublishingVideoChannelArray;
  28455. end;
  28456. { --------------------------------------------------------------------
  28457. SP: VideoItems
  28458. --------------------------------------------------------------------}
  28459. TSPVideoItemsEntitySet = Class(TODataEntitySet)
  28460. public
  28461. class function ObjectRestKind : String; Override;
  28462. class function EntityClass : TODataEntityClass; Override;
  28463. function Get(const ID: TGUIDString) : TSP_PublishingVideoItem;
  28464. function List(const AQuery: String; out NextLink: String)
  28465. : TSP_PublishingVideoItemArray;
  28466. function List(const AQuery: TQueryParams; out NextLink: String)
  28467. : TSP_PublishingVideoItemArray;
  28468. function ListAll(const AQuery: String) : TSP_PublishingVideoItemArray;
  28469. function ListAll(const AQuery: TQueryParams)
  28470. : TSP_PublishingVideoItemArray;
  28471. end;
  28472. { --------------------------------------------------------------------
  28473. SP: VideoPermissionGroups
  28474. --------------------------------------------------------------------}
  28475. TSPVideoPermissionGroupsEntitySet = Class(TODataEntitySet)
  28476. public
  28477. class function ObjectRestKind : String; Override;
  28478. class function EntityClass : TODataEntityClass; Override;
  28479. function Get(const Id: TInt32) : TSP_PublishingVideoPermissionGroup;
  28480. function List(const AQuery: String; out NextLink: String)
  28481. : TSP_PublishingVideoPermissionGroupArray;
  28482. function List(const AQuery: TQueryParams; out NextLink: String)
  28483. : TSP_PublishingVideoPermissionGroupArray;
  28484. function ListAll(const AQuery: String)
  28485. : TSP_PublishingVideoPermissionGroupArray;
  28486. function ListAll(const AQuery: TQueryParams)
  28487. : TSP_PublishingVideoPermissionGroupArray;
  28488. end;
  28489. { --------------------------------------------------------------------
  28490. SP: VideoServiceDiscoverers
  28491. --------------------------------------------------------------------}
  28492. TSPVideoServiceDiscoverersEntitySet = Class(TODataEntitySet)
  28493. public
  28494. class function ObjectRestKind : String; Override;
  28495. class function EntityClass : TODataEntityClass; Override;
  28496. function Get(const ChannelUrlTemplate: string)
  28497. : TSP_PublishingVideoServiceDiscoverer;
  28498. function List(const AQuery: String; out NextLink: String)
  28499. : TSP_PublishingVideoServiceDiscovererArray;
  28500. function List(const AQuery: TQueryParams; out NextLink: String)
  28501. : TSP_PublishingVideoServiceDiscovererArray;
  28502. function ListAll(const AQuery: String)
  28503. : TSP_PublishingVideoServiceDiscovererArray;
  28504. function ListAll(const AQuery: TQueryParams)
  28505. : TSP_PublishingVideoServiceDiscovererArray;
  28506. end;
  28507. { --------------------------------------------------------------------
  28508. SP: VideoServiceManagers
  28509. --------------------------------------------------------------------}
  28510. TSPVideoServiceManagersEntitySet = Class(TODataEntitySet)
  28511. public
  28512. class function ObjectRestKind : String; Override;
  28513. class function EntityClass : TODataEntityClass; Override;
  28514. function Get(const Id4a81de82eeb94d6080ea5bf63e27023a: string)
  28515. : TSP_PublishingVideoServiceManager;
  28516. function List(const AQuery: String; out NextLink: String)
  28517. : TSP_PublishingVideoServiceManagerArray;
  28518. function List(const AQuery: TQueryParams; out NextLink: String)
  28519. : TSP_PublishingVideoServiceManagerArray;
  28520. function ListAll(const AQuery: String)
  28521. : TSP_PublishingVideoServiceManagerArray;
  28522. function ListAll(const AQuery: TQueryParams)
  28523. : TSP_PublishingVideoServiceManagerArray;
  28524. end;
  28525. { --------------------------------------------------------------------
  28526. SP: PushNotificationSubscribers
  28527. --------------------------------------------------------------------}
  28528. TSPPushNotificationSubscribersEntitySet = Class(TODataEntitySet)
  28529. public
  28530. class function ObjectRestKind : String; Override;
  28531. class function EntityClass : TODataEntityClass; Override;
  28532. function Get(const CustomArgs: string) : TSPPushNotificationSubscriber;
  28533. function List(const AQuery: String; out NextLink: String)
  28534. : TSPPushNotificationSubscriberArray;
  28535. function List(const AQuery: TQueryParams; out NextLink: String)
  28536. : TSPPushNotificationSubscriberArray;
  28537. function ListAll(const AQuery: String)
  28538. : TSPPushNotificationSubscriberArray;
  28539. function ListAll(const AQuery: TQueryParams)
  28540. : TSPPushNotificationSubscriberArray;
  28541. end;
  28542. { --------------------------------------------------------------------
  28543. SP: RecycleBinItems
  28544. --------------------------------------------------------------------}
  28545. TSPRecycleBinItemsEntitySet = Class(TODataEntitySet)
  28546. public
  28547. class function ObjectRestKind : String; Override;
  28548. class function EntityClass : TODataEntityClass; Override;
  28549. function Get(const Id: TGUIDString) : TSPRecycleBinItem;
  28550. function List(const AQuery: String; out NextLink: String)
  28551. : TSPRecycleBinItemArray;
  28552. function List(const AQuery: TQueryParams; out NextLink: String)
  28553. : TSPRecycleBinItemArray;
  28554. function ListAll(const AQuery: String) : TSPRecycleBinItemArray;
  28555. function ListAll(const AQuery: TQueryParams) : TSPRecycleBinItemArray;
  28556. end;
  28557. { --------------------------------------------------------------------
  28558. SP: RegionalSettingss
  28559. --------------------------------------------------------------------}
  28560. TSPRegionalSettingssEntitySet = Class(TODataEntitySet)
  28561. public
  28562. class function ObjectRestKind : String; Override;
  28563. class function EntityClass : TODataEntityClass; Override;
  28564. function Get(const AdjustHijriDays: TInt16) : TSPRegionalSettings;
  28565. function List(const AQuery: String; out NextLink: String)
  28566. : TSPRegionalSettingsArray;
  28567. function List(const AQuery: TQueryParams; out NextLink: String)
  28568. : TSPRegionalSettingsArray;
  28569. function ListAll(const AQuery: String) : TSPRegionalSettingsArray;
  28570. function ListAll(const AQuery: TQueryParams) : TSPRegionalSettingsArray;
  28571. end;
  28572. { --------------------------------------------------------------------
  28573. SP: RelatedFields
  28574. --------------------------------------------------------------------}
  28575. TSPRelatedFieldsEntitySet = Class(TODataEntitySet)
  28576. public
  28577. class function ObjectRestKind : String; Override;
  28578. class function EntityClass : TODataEntityClass; Override;
  28579. function Get(const FieldId: TGUIDString) : TSPRelatedField;
  28580. function List(const AQuery: String; out NextLink: String)
  28581. : TSPRelatedFieldArray;
  28582. function List(const AQuery: TQueryParams; out NextLink: String)
  28583. : TSPRelatedFieldArray;
  28584. function ListAll(const AQuery: String) : TSPRelatedFieldArray;
  28585. function ListAll(const AQuery: TQueryParams) : TSPRelatedFieldArray;
  28586. end;
  28587. { --------------------------------------------------------------------
  28588. SP: RelatedItemManagers
  28589. --------------------------------------------------------------------}
  28590. TSPRelatedItemManagersEntitySet = Class(TODataEntitySet)
  28591. public
  28592. class function ObjectRestKind : String; Override;
  28593. class function EntityClass : TODataEntityClass; Override;
  28594. function Get(const Id4a81de82eeb94d6080ea5bf63e27023a: string)
  28595. : TSPRelatedItemManager;
  28596. function List(const AQuery: String; out NextLink: String)
  28597. : TSPRelatedItemManagerArray;
  28598. function List(const AQuery: TQueryParams; out NextLink: String)
  28599. : TSPRelatedItemManagerArray;
  28600. function ListAll(const AQuery: String) : TSPRelatedItemManagerArray;
  28601. function ListAll(const AQuery: TQueryParams)
  28602. : TSPRelatedItemManagerArray;
  28603. end;
  28604. { --------------------------------------------------------------------
  28605. SP: RemoteWebs
  28606. --------------------------------------------------------------------}
  28607. TSPRemoteWebsEntitySet = Class(TODataEntitySet)
  28608. public
  28609. class function ObjectRestKind : String; Override;
  28610. class function EntityClass : TODataEntityClass; Override;
  28611. function Get(const CanSendEmail: boolean) : TSPRemoteWeb;
  28612. function List(const AQuery: String; out NextLink: String)
  28613. : TSPRemoteWebArray;
  28614. function List(const AQuery: TQueryParams; out NextLink: String)
  28615. : TSPRemoteWebArray;
  28616. function ListAll(const AQuery: String) : TSPRemoteWebArray;
  28617. function ListAll(const AQuery: TQueryParams) : TSPRemoteWebArray;
  28618. end;
  28619. { --------------------------------------------------------------------
  28620. SP: RequestContexts1
  28621. --------------------------------------------------------------------}
  28622. TSPRequestContexts1EntitySet = Class(TODataEntitySet)
  28623. public
  28624. class function ObjectRestKind : String; Override;
  28625. class function EntityClass : TODataEntityClass; Override;
  28626. function Get(const Id4a81de82eeb94d6080ea5bf63e27023a: string)
  28627. : TSPRequestContext;
  28628. function List(const AQuery: String; out NextLink: String)
  28629. : TSPRequestContextArray;
  28630. function List(const AQuery: TQueryParams; out NextLink: String)
  28631. : TSPRequestContextArray;
  28632. function ListAll(const AQuery: String) : TSPRequestContextArray;
  28633. function ListAll(const AQuery: TQueryParams) : TSPRequestContextArray;
  28634. end;
  28635. { --------------------------------------------------------------------
  28636. SP: RoleAssignments
  28637. --------------------------------------------------------------------}
  28638. TSPRoleAssignmentsEntitySet = Class(TODataEntitySet)
  28639. public
  28640. class function ObjectRestKind : String; Override;
  28641. class function EntityClass : TODataEntityClass; Override;
  28642. function Get(const PrincipalId: TInt32) : TSPRoleAssignment;
  28643. function List(const AQuery: String; out NextLink: String)
  28644. : TSPRoleAssignmentArray;
  28645. function List(const AQuery: TQueryParams; out NextLink: String)
  28646. : TSPRoleAssignmentArray;
  28647. function ListAll(const AQuery: String) : TSPRoleAssignmentArray;
  28648. function ListAll(const AQuery: TQueryParams) : TSPRoleAssignmentArray;
  28649. end;
  28650. { --------------------------------------------------------------------
  28651. SP: RoleDefinitions
  28652. --------------------------------------------------------------------}
  28653. TSPRoleDefinitionsEntitySet = Class(TODataEntitySet)
  28654. public
  28655. class function ObjectRestKind : String; Override;
  28656. class function EntityClass : TODataEntityClass; Override;
  28657. function Get(const Id: TInt32) : TSPRoleDefinition;
  28658. function List(const AQuery: String; out NextLink: String)
  28659. : TSPRoleDefinitionArray;
  28660. function List(const AQuery: TQueryParams; out NextLink: String)
  28661. : TSPRoleDefinitionArray;
  28662. function ListAll(const AQuery: String) : TSPRoleDefinitionArray;
  28663. function ListAll(const AQuery: TQueryParams) : TSPRoleDefinitionArray;
  28664. end;
  28665. { --------------------------------------------------------------------
  28666. SP: SecurableObjects
  28667. --------------------------------------------------------------------}
  28668. TSPSecurableObjectsEntitySet = Class(TODataEntitySet)
  28669. public
  28670. class function ObjectRestKind : String; Override;
  28671. class function EntityClass : TODataEntityClass; Override;
  28672. function Get(const HasUniqueRoleAssignments: boolean)
  28673. : TSPSecurableObject;
  28674. function List(const AQuery: String; out NextLink: String)
  28675. : TSPSecurableObjectArray;
  28676. function List(const AQuery: TQueryParams; out NextLink: String)
  28677. : TSPSecurableObjectArray;
  28678. function ListAll(const AQuery: String) : TSPSecurableObjectArray;
  28679. function ListAll(const AQuery: TQueryParams) : TSPSecurableObjectArray;
  28680. end;
  28681. { --------------------------------------------------------------------
  28682. SP: ServerSettingss
  28683. --------------------------------------------------------------------}
  28684. TSPServerSettingssEntitySet = Class(TODataEntitySet)
  28685. public
  28686. class function ObjectRestKind : String; Override;
  28687. class function EntityClass : TODataEntityClass; Override;
  28688. function Get(const Id4a81de82eeb94d6080ea5bf63e27023a: string)
  28689. : TSPServerSettings;
  28690. function List(const AQuery: String; out NextLink: String)
  28691. : TSPServerSettingsArray;
  28692. function List(const AQuery: TQueryParams; out NextLink: String)
  28693. : TSPServerSettingsArray;
  28694. function ListAll(const AQuery: String) : TSPServerSettingsArray;
  28695. function ListAll(const AQuery: TQueryParams) : TSPServerSettingsArray;
  28696. end;
  28697. { --------------------------------------------------------------------
  28698. SP: SharePointSharingSettingss
  28699. --------------------------------------------------------------------}
  28700. TSPSharePointSharingSettingssEntitySet = Class(TODataEntitySet)
  28701. public
  28702. class function ObjectRestKind : String; Override;
  28703. class function EntityClass : TODataEntityClass; Override;
  28704. function Get(const AddToGroupModeName: string)
  28705. : TSPSharePointSharingSettings;
  28706. function List(const AQuery: String; out NextLink: String)
  28707. : TSPSharePointSharingSettingsArray;
  28708. function List(const AQuery: TQueryParams; out NextLink: String)
  28709. : TSPSharePointSharingSettingsArray;
  28710. function ListAll(const AQuery: String)
  28711. : TSPSharePointSharingSettingsArray;
  28712. function ListAll(const AQuery: TQueryParams)
  28713. : TSPSharePointSharingSettingsArray;
  28714. end;
  28715. { --------------------------------------------------------------------
  28716. SP: DocumentSharingManagers
  28717. --------------------------------------------------------------------}
  28718. TSPDocumentSharingManagersEntitySet = Class(TODataEntitySet)
  28719. public
  28720. class function ObjectRestKind : String; Override;
  28721. class function EntityClass : TODataEntityClass; Override;
  28722. function Get(const Id4a81de82eeb94d6080ea5bf63e27023a: string)
  28723. : TSP_SharingDocumentSharingManager;
  28724. function List(const AQuery: String; out NextLink: String)
  28725. : TSP_SharingDocumentSharingManagerArray;
  28726. function List(const AQuery: TQueryParams; out NextLink: String)
  28727. : TSP_SharingDocumentSharingManagerArray;
  28728. function ListAll(const AQuery: String)
  28729. : TSP_SharingDocumentSharingManagerArray;
  28730. function ListAll(const AQuery: TQueryParams)
  28731. : TSP_SharingDocumentSharingManagerArray;
  28732. end;
  28733. { --------------------------------------------------------------------
  28734. SP: WebSharingManagers
  28735. --------------------------------------------------------------------}
  28736. TSPWebSharingManagersEntitySet = Class(TODataEntitySet)
  28737. public
  28738. class function ObjectRestKind : String; Override;
  28739. class function EntityClass : TODataEntityClass; Override;
  28740. function Get(const Id4a81de82eeb94d6080ea5bf63e27023a: string)
  28741. : TSP_SharingWebSharingManager;
  28742. function List(const AQuery: String; out NextLink: String)
  28743. : TSP_SharingWebSharingManagerArray;
  28744. function List(const AQuery: TQueryParams; out NextLink: String)
  28745. : TSP_SharingWebSharingManagerArray;
  28746. function ListAll(const AQuery: String)
  28747. : TSP_SharingWebSharingManagerArray;
  28748. function ListAll(const AQuery: TQueryParams)
  28749. : TSP_SharingWebSharingManagerArray;
  28750. end;
  28751. { --------------------------------------------------------------------
  28752. SP: SharingResults
  28753. --------------------------------------------------------------------}
  28754. TSPSharingResultsEntitySet = Class(TODataEntitySet)
  28755. public
  28756. class function ObjectRestKind : String; Override;
  28757. class function EntityClass : TODataEntityClass; Override;
  28758. function Get(const _Name: string) : TSPSharingResult;
  28759. function List(const AQuery: String; out NextLink: String)
  28760. : TSPSharingResultArray;
  28761. function List(const AQuery: TQueryParams; out NextLink: String)
  28762. : TSPSharingResultArray;
  28763. function ListAll(const AQuery: String) : TSPSharingResultArray;
  28764. function ListAll(const AQuery: TQueryParams) : TSPSharingResultArray;
  28765. end;
  28766. { --------------------------------------------------------------------
  28767. SP: SiteHealthSummarys
  28768. --------------------------------------------------------------------}
  28769. TSPSiteHealthSummarysEntitySet = Class(TODataEntitySet)
  28770. public
  28771. class function ObjectRestKind : String; Override;
  28772. class function EntityClass : TODataEntityClass; Override;
  28773. function Get(const FailedErrorCount: TInt32)
  28774. : TSP_SiteHealthSiteHealthSummary;
  28775. function List(const AQuery: String; out NextLink: String)
  28776. : TSP_SiteHealthSiteHealthSummaryArray;
  28777. function List(const AQuery: TQueryParams; out NextLink: String)
  28778. : TSP_SiteHealthSiteHealthSummaryArray;
  28779. function ListAll(const AQuery: String)
  28780. : TSP_SiteHealthSiteHealthSummaryArray;
  28781. function ListAll(const AQuery: TQueryParams)
  28782. : TSP_SiteHealthSiteHealthSummaryArray;
  28783. end;
  28784. { --------------------------------------------------------------------
  28785. SP: SiteUrls
  28786. --------------------------------------------------------------------}
  28787. TSPSiteUrlsEntitySet = Class(TODataEntitySet)
  28788. public
  28789. class function ObjectRestKind : String; Override;
  28790. class function EntityClass : TODataEntityClass; Override;
  28791. function Get(const Id4a81de82eeb94d6080ea5bf63e27023a: string)
  28792. : TSPSiteUrl;
  28793. function List(const AQuery: String; out NextLink: String)
  28794. : TSPSiteUrlArray;
  28795. function List(const AQuery: TQueryParams; out NextLink: String)
  28796. : TSPSiteUrlArray;
  28797. function ListAll(const AQuery: String) : TSPSiteUrlArray;
  28798. function ListAll(const AQuery: TQueryParams) : TSPSiteUrlArray;
  28799. end;
  28800. { --------------------------------------------------------------------
  28801. SP: SocialAnnouncementManagers
  28802. --------------------------------------------------------------------}
  28803. TSPSocialAnnouncementManagersEntitySet = Class(TODataEntitySet)
  28804. public
  28805. class function ObjectRestKind : String; Override;
  28806. class function EntityClass : TODataEntityClass; Override;
  28807. function Get(const Id4a81de82eeb94d6080ea5bf63e27023a: string)
  28808. : TSP_SocialSocialAnnouncementManager;
  28809. function List(const AQuery: String; out NextLink: String)
  28810. : TSP_SocialSocialAnnouncementManagerArray;
  28811. function List(const AQuery: TQueryParams; out NextLink: String)
  28812. : TSP_SocialSocialAnnouncementManagerArray;
  28813. function ListAll(const AQuery: String)
  28814. : TSP_SocialSocialAnnouncementManagerArray;
  28815. function ListAll(const AQuery: TQueryParams)
  28816. : TSP_SocialSocialAnnouncementManagerArray;
  28817. end;
  28818. { --------------------------------------------------------------------
  28819. SP: SocialFeedManagers
  28820. --------------------------------------------------------------------}
  28821. TSPSocialFeedManagersEntitySet = Class(TODataEntitySet)
  28822. public
  28823. class function ObjectRestKind : String; Override;
  28824. class function EntityClass : TODataEntityClass; Override;
  28825. function Get(const PersonalSitePortalUri: string)
  28826. : TSP_SocialSocialFeedManager;
  28827. function List(const AQuery: String; out NextLink: String)
  28828. : TSP_SocialSocialFeedManagerArray;
  28829. function List(const AQuery: TQueryParams; out NextLink: String)
  28830. : TSP_SocialSocialFeedManagerArray;
  28831. function ListAll(const AQuery: String)
  28832. : TSP_SocialSocialFeedManagerArray;
  28833. function ListAll(const AQuery: TQueryParams)
  28834. : TSP_SocialSocialFeedManagerArray;
  28835. end;
  28836. { --------------------------------------------------------------------
  28837. SP: SocialFollowingManagers
  28838. --------------------------------------------------------------------}
  28839. TSPSocialFollowingManagersEntitySet = Class(TODataEntitySet)
  28840. public
  28841. class function ObjectRestKind : String; Override;
  28842. class function EntityClass : TODataEntityClass; Override;
  28843. function Get(const FollowedDocumentsUri: string)
  28844. : TSP_SocialSocialFollowingManager;
  28845. function List(const AQuery: String; out NextLink: String)
  28846. : TSP_SocialSocialFollowingManagerArray;
  28847. function List(const AQuery: TQueryParams; out NextLink: String)
  28848. : TSP_SocialSocialFollowingManagerArray;
  28849. function ListAll(const AQuery: String)
  28850. : TSP_SocialSocialFollowingManagerArray;
  28851. function ListAll(const AQuery: TQueryParams)
  28852. : TSP_SocialSocialFollowingManagerArray;
  28853. end;
  28854. { --------------------------------------------------------------------
  28855. SP: SocialRestActors
  28856. --------------------------------------------------------------------}
  28857. TSPSocialRestActorsEntitySet = Class(TODataEntitySet)
  28858. public
  28859. class function ObjectRestKind : String; Override;
  28860. class function EntityClass : TODataEntityClass; Override;
  28861. function Get(const FollowableItem: string) : TSP_SocialSocialRestActor;
  28862. function List(const AQuery: String; out NextLink: String)
  28863. : TSP_SocialSocialRestActorArray;
  28864. function List(const AQuery: TQueryParams; out NextLink: String)
  28865. : TSP_SocialSocialRestActorArray;
  28866. function ListAll(const AQuery: String) : TSP_SocialSocialRestActorArray;
  28867. function ListAll(const AQuery: TQueryParams)
  28868. : TSP_SocialSocialRestActorArray;
  28869. end;
  28870. { --------------------------------------------------------------------
  28871. SP: SocialRestFeeds
  28872. --------------------------------------------------------------------}
  28873. TSPSocialRestFeedsEntitySet = Class(TODataEntitySet)
  28874. public
  28875. class function ObjectRestKind : String; Override;
  28876. class function EntityClass : TODataEntityClass; Override;
  28877. function Get(const Id4a81de82eeb94d6080ea5bf63e27023a: string)
  28878. : TSP_SocialSocialRestFeed;
  28879. function List(const AQuery: String; out NextLink: String)
  28880. : TSP_SocialSocialRestFeedArray;
  28881. function List(const AQuery: TQueryParams; out NextLink: String)
  28882. : TSP_SocialSocialRestFeedArray;
  28883. function ListAll(const AQuery: String) : TSP_SocialSocialRestFeedArray;
  28884. function ListAll(const AQuery: TQueryParams)
  28885. : TSP_SocialSocialRestFeedArray;
  28886. end;
  28887. { --------------------------------------------------------------------
  28888. SP: SocialRestFeedManagers
  28889. --------------------------------------------------------------------}
  28890. TSPSocialRestFeedManagersEntitySet = Class(TODataEntitySet)
  28891. public
  28892. class function ObjectRestKind : String; Override;
  28893. class function EntityClass : TODataEntityClass; Override;
  28894. function Get(const Id4a81de82eeb94d6080ea5bf63e27023a: string)
  28895. : TSP_SocialSocialRestFeedManager;
  28896. function List(const AQuery: String; out NextLink: String)
  28897. : TSP_SocialSocialRestFeedManagerArray;
  28898. function List(const AQuery: TQueryParams; out NextLink: String)
  28899. : TSP_SocialSocialRestFeedManagerArray;
  28900. function ListAll(const AQuery: String)
  28901. : TSP_SocialSocialRestFeedManagerArray;
  28902. function ListAll(const AQuery: TQueryParams)
  28903. : TSP_SocialSocialRestFeedManagerArray;
  28904. end;
  28905. { --------------------------------------------------------------------
  28906. SP: SocialRestFollowingManagers
  28907. --------------------------------------------------------------------}
  28908. TSPSocialRestFollowingManagersEntitySet = Class(TODataEntitySet)
  28909. public
  28910. class function ObjectRestKind : String; Override;
  28911. class function EntityClass : TODataEntityClass; Override;
  28912. function Get(const FollowedDocumentsUri: string)
  28913. : TSP_SocialSocialRestFollowingManager;
  28914. function List(const AQuery: String; out NextLink: String)
  28915. : TSP_SocialSocialRestFollowingManagerArray;
  28916. function List(const AQuery: TQueryParams; out NextLink: String)
  28917. : TSP_SocialSocialRestFollowingManagerArray;
  28918. function ListAll(const AQuery: String)
  28919. : TSP_SocialSocialRestFollowingManagerArray;
  28920. function ListAll(const AQuery: TQueryParams)
  28921. : TSP_SocialSocialRestFollowingManagerArray;
  28922. end;
  28923. { --------------------------------------------------------------------
  28924. SP: SocialRestThreads
  28925. --------------------------------------------------------------------}
  28926. TSPSocialRestThreadsEntitySet = Class(TODataEntitySet)
  28927. public
  28928. class function ObjectRestKind : String; Override;
  28929. class function EntityClass : TODataEntityClass; Override;
  28930. function Get(const ID: string) : TSP_SocialSocialRestThread;
  28931. function List(const AQuery: String; out NextLink: String)
  28932. : TSP_SocialSocialRestThreadArray;
  28933. function List(const AQuery: TQueryParams; out NextLink: String)
  28934. : TSP_SocialSocialRestThreadArray;
  28935. function ListAll(const AQuery: String) : TSP_SocialSocialRestThreadArray;
  28936. function ListAll(const AQuery: TQueryParams)
  28937. : TSP_SocialSocialRestThreadArray;
  28938. end;
  28939. { --------------------------------------------------------------------
  28940. SP: SolutionExporters
  28941. --------------------------------------------------------------------}
  28942. TSPSolutionExportersEntitySet = Class(TODataEntitySet)
  28943. public
  28944. class function ObjectRestKind : String; Override;
  28945. class function EntityClass : TODataEntityClass; Override;
  28946. function Get(const Id4a81de82eeb94d6080ea5bf63e27023a: string)
  28947. : TSPSolutionExporter;
  28948. function List(const AQuery: String; out NextLink: String)
  28949. : TSPSolutionExporterArray;
  28950. function List(const AQuery: TQueryParams; out NextLink: String)
  28951. : TSPSolutionExporterArray;
  28952. function ListAll(const AQuery: String) : TSPSolutionExporterArray;
  28953. function ListAll(const AQuery: TQueryParams) : TSPSolutionExporterArray;
  28954. end;
  28955. { --------------------------------------------------------------------
  28956. SP: SPAppLicenseManagers
  28957. --------------------------------------------------------------------}
  28958. TSPSPAppLicenseManagersEntitySet = Class(TODataEntitySet)
  28959. public
  28960. class function ObjectRestKind : String; Override;
  28961. class function EntityClass : TODataEntityClass; Override;
  28962. function Get(const Id4a81de82eeb94d6080ea5bf63e27023a: string)
  28963. : TSPSPAppLicenseManager;
  28964. function List(const AQuery: String; out NextLink: String)
  28965. : TSPSPAppLicenseManagerArray;
  28966. function List(const AQuery: TQueryParams; out NextLink: String)
  28967. : TSPSPAppLicenseManagerArray;
  28968. function ListAll(const AQuery: String) : TSPSPAppLicenseManagerArray;
  28969. function ListAll(const AQuery: TQueryParams)
  28970. : TSPSPAppLicenseManagerArray;
  28971. end;
  28972. { --------------------------------------------------------------------
  28973. SP: SPDataLeakagePreventionStatusInfos
  28974. --------------------------------------------------------------------}
  28975. TSPSPDataLeakagePreventionStatusInfosEntitySet = Class(TODataEntitySet)
  28976. public
  28977. class function ObjectRestKind : String; Override;
  28978. class function EntityClass : TODataEntityClass; Override;
  28979. function Get(const ContainsConfidentialInfo: boolean)
  28980. : TSPSPDataLeakagePreventionStatusInfo;
  28981. function List(const AQuery: String; out NextLink: String)
  28982. : TSPSPDataLeakagePreventionStatusInfoArray;
  28983. function List(const AQuery: TQueryParams; out NextLink: String)
  28984. : TSPSPDataLeakagePreventionStatusInfoArray;
  28985. function ListAll(const AQuery: String)
  28986. : TSPSPDataLeakagePreventionStatusInfoArray;
  28987. function ListAll(const AQuery: TQueryParams)
  28988. : TSPSPDataLeakagePreventionStatusInfoArray;
  28989. end;
  28990. { --------------------------------------------------------------------
  28991. SP: TenantAppInstances
  28992. --------------------------------------------------------------------}
  28993. TSPTenantAppInstancesEntitySet = Class(TODataEntitySet)
  28994. public
  28995. class function ObjectRestKind : String; Override;
  28996. class function EntityClass : TODataEntityClass; Override;
  28997. function Get(const Id: TGUIDString) : TSPTenantAppInstance;
  28998. function List(const AQuery: String; out NextLink: String)
  28999. : TSPTenantAppInstanceArray;
  29000. function List(const AQuery: TQueryParams; out NextLink: String)
  29001. : TSPTenantAppInstanceArray;
  29002. function ListAll(const AQuery: String) : TSPTenantAppInstanceArray;
  29003. function ListAll(const AQuery: TQueryParams) : TSPTenantAppInstanceArray;
  29004. end;
  29005. { --------------------------------------------------------------------
  29006. SP: TenantAppUtilitys
  29007. --------------------------------------------------------------------}
  29008. TSPTenantAppUtilitysEntitySet = Class(TODataEntitySet)
  29009. public
  29010. class function ObjectRestKind : String; Override;
  29011. class function EntityClass : TODataEntityClass; Override;
  29012. function Get(const Id4a81de82eeb94d6080ea5bf63e27023a: string)
  29013. : TSPTenantAppUtility;
  29014. function List(const AQuery: String; out NextLink: String)
  29015. : TSPTenantAppUtilityArray;
  29016. function List(const AQuery: TQueryParams; out NextLink: String)
  29017. : TSPTenantAppUtilityArray;
  29018. function ListAll(const AQuery: String) : TSPTenantAppUtilityArray;
  29019. function ListAll(const AQuery: TQueryParams) : TSPTenantAppUtilityArray;
  29020. end;
  29021. { --------------------------------------------------------------------
  29022. SP: TenantSettingss
  29023. --------------------------------------------------------------------}
  29024. TSPTenantSettingssEntitySet = Class(TODataEntitySet)
  29025. public
  29026. class function ObjectRestKind : String; Override;
  29027. class function EntityClass : TODataEntityClass; Override;
  29028. function Get(const CorporateCatalogUrl: string) : TSPTenantSettings;
  29029. function List(const AQuery: String; out NextLink: String)
  29030. : TSPTenantSettingsArray;
  29031. function List(const AQuery: TQueryParams; out NextLink: String)
  29032. : TSPTenantSettingsArray;
  29033. function ListAll(const AQuery: String) : TSPTenantSettingsArray;
  29034. function ListAll(const AQuery: TQueryParams) : TSPTenantSettingsArray;
  29035. end;
  29036. { --------------------------------------------------------------------
  29037. SP: ThemeInfos
  29038. --------------------------------------------------------------------}
  29039. TSPThemeInfosEntitySet = Class(TODataEntitySet)
  29040. public
  29041. class function ObjectRestKind : String; Override;
  29042. class function EntityClass : TODataEntityClass; Override;
  29043. function Get(const AccessibleDescription: string) : TSPThemeInfo;
  29044. function List(const AQuery: String; out NextLink: String)
  29045. : TSPThemeInfoArray;
  29046. function List(const AQuery: TQueryParams; out NextLink: String)
  29047. : TSPThemeInfoArray;
  29048. function ListAll(const AQuery: String) : TSPThemeInfoArray;
  29049. function ListAll(const AQuery: TQueryParams) : TSPThemeInfoArray;
  29050. end;
  29051. { --------------------------------------------------------------------
  29052. SP: TimeZones
  29053. --------------------------------------------------------------------}
  29054. TSPTimeZonesEntitySet = Class(TODataEntitySet)
  29055. public
  29056. class function ObjectRestKind : String; Override;
  29057. class function EntityClass : TODataEntityClass; Override;
  29058. function Get(const Id: TInt32) : TSPTimeZone;
  29059. function List(const AQuery: String; out NextLink: String)
  29060. : TSPTimeZoneArray;
  29061. function List(const AQuery: TQueryParams; out NextLink: String)
  29062. : TSPTimeZoneArray;
  29063. function ListAll(const AQuery: String) : TSPTimeZoneArray;
  29064. function ListAll(const AQuery: TQueryParams) : TSPTimeZoneArray;
  29065. end;
  29066. { --------------------------------------------------------------------
  29067. SP: SyncTranslators
  29068. --------------------------------------------------------------------}
  29069. TSPSyncTranslatorsEntitySet = Class(TODataEntitySet)
  29070. public
  29071. class function ObjectRestKind : String; Override;
  29072. class function EntityClass : TODataEntityClass; Override;
  29073. function Get(const OutputSaveBehavior: TInt32)
  29074. : TSP_TranslationSyncTranslator;
  29075. function List(const AQuery: String; out NextLink: String)
  29076. : TSP_TranslationSyncTranslatorArray;
  29077. function List(const AQuery: TQueryParams; out NextLink: String)
  29078. : TSP_TranslationSyncTranslatorArray;
  29079. function ListAll(const AQuery: String)
  29080. : TSP_TranslationSyncTranslatorArray;
  29081. function ListAll(const AQuery: TQueryParams)
  29082. : TSP_TranslationSyncTranslatorArray;
  29083. end;
  29084. { --------------------------------------------------------------------
  29085. SP: TranslationJobs
  29086. --------------------------------------------------------------------}
  29087. TSPTranslationJobsEntitySet = Class(TODataEntitySet)
  29088. public
  29089. class function ObjectRestKind : String; Override;
  29090. class function EntityClass : TODataEntityClass; Override;
  29091. function Get(const _Name: string) : TSP_TranslationTranslationJob;
  29092. function List(const AQuery: String; out NextLink: String)
  29093. : TSP_TranslationTranslationJobArray;
  29094. function List(const AQuery: TQueryParams; out NextLink: String)
  29095. : TSP_TranslationTranslationJobArray;
  29096. function ListAll(const AQuery: String)
  29097. : TSP_TranslationTranslationJobArray;
  29098. function ListAll(const AQuery: TQueryParams)
  29099. : TSP_TranslationTranslationJobArray;
  29100. end;
  29101. { --------------------------------------------------------------------
  29102. SP: TranslationJobStatuss
  29103. --------------------------------------------------------------------}
  29104. TSPTranslationJobStatussEntitySet = Class(TODataEntitySet)
  29105. public
  29106. class function ObjectRestKind : String; Override;
  29107. class function EntityClass : TODataEntityClass; Override;
  29108. function Get(const _Name: string) : TSP_TranslationTranslationJobStatus;
  29109. function List(const AQuery: String; out NextLink: String)
  29110. : TSP_TranslationTranslationJobStatusArray;
  29111. function List(const AQuery: TQueryParams; out NextLink: String)
  29112. : TSP_TranslationTranslationJobStatusArray;
  29113. function ListAll(const AQuery: String)
  29114. : TSP_TranslationTranslationJobStatusArray;
  29115. function ListAll(const AQuery: TQueryParams)
  29116. : TSP_TranslationTranslationJobStatusArray;
  29117. end;
  29118. { --------------------------------------------------------------------
  29119. SP: VariationsTranslationTimerJobs
  29120. --------------------------------------------------------------------}
  29121. TSPVariationsTranslationTimerJobsEntitySet = Class(TODataEntitySet)
  29122. public
  29123. class function ObjectRestKind : String; Override;
  29124. class function EntityClass : TODataEntityClass; Override;
  29125. function Get(const Id4a81de82eeb94d6080ea5bf63e27023a: string)
  29126. : TSP_TranslationVariationsTranslationTimerJob;
  29127. function List(const AQuery: String; out NextLink: String)
  29128. : TSP_TranslationVariationsTranslationTimerJobArray;
  29129. function List(const AQuery: TQueryParams; out NextLink: String)
  29130. : TSP_TranslationVariationsTranslationTimerJobArray;
  29131. function ListAll(const AQuery: String)
  29132. : TSP_TranslationVariationsTranslationTimerJobArray;
  29133. function ListAll(const AQuery: TQueryParams)
  29134. : TSP_TranslationVariationsTranslationTimerJobArray;
  29135. end;
  29136. { --------------------------------------------------------------------
  29137. SP: TypeInformations
  29138. --------------------------------------------------------------------}
  29139. TSPTypeInformationsEntitySet = Class(TODataEntitySet)
  29140. public
  29141. class function ObjectRestKind : String; Override;
  29142. class function EntityClass : TODataEntityClass; Override;
  29143. function Get(const BaseTypeFullName: string) : TSPTypeInformation;
  29144. function List(const AQuery: String; out NextLink: String)
  29145. : TSPTypeInformationArray;
  29146. function List(const AQuery: TQueryParams; out NextLink: String)
  29147. : TSPTypeInformationArray;
  29148. function ListAll(const AQuery: String) : TSPTypeInformationArray;
  29149. function ListAll(const AQuery: TQueryParams) : TSPTypeInformationArray;
  29150. end;
  29151. { --------------------------------------------------------------------
  29152. SP: ClientPeoplePickerWebServiceInterfaces
  29153. --------------------------------------------------------------------}
  29154. TSPClientPeoplePickerWebServiceInterfacesEntitySet = Class(TODataEntitySet)
  29155. public
  29156. class function ObjectRestKind : String; Override;
  29157. class function EntityClass : TODataEntityClass; Override;
  29158. function Get(const Id4a81de82eeb94d6080ea5bf63e27023a: string)
  29159. : TSP_UI_ApplicationPagesClientPeoplePickerWebServiceInterface;
  29160. function List(const AQuery: String; out NextLink: String)
  29161. : TSP_UI_ApplicationPagesClientPeoplePickerWebServiceInterfaceArray;
  29162. function List(const AQuery: TQueryParams; out NextLink: String)
  29163. : TSP_UI_ApplicationPagesClientPeoplePickerWebServiceInterfaceArray;
  29164. function ListAll(const AQuery: String)
  29165. : TSP_UI_ApplicationPagesClientPeoplePickerWebServiceInterfaceArray;
  29166. function ListAll(const AQuery: TQueryParams)
  29167. : TSP_UI_ApplicationPagesClientPeoplePickerWebServiceInterfaceArray;
  29168. end;
  29169. { --------------------------------------------------------------------
  29170. SP: Users1
  29171. --------------------------------------------------------------------}
  29172. TSPUsers1EntitySet = Class(TODataEntitySet)
  29173. public
  29174. class function ObjectRestKind : String; Override;
  29175. class function EntityClass : TODataEntityClass; Override;
  29176. function Get(const Id: TInt32) : TSPUser;
  29177. function List(const AQuery: String; out NextLink: String) : TSPUserArray;
  29178. function List(const AQuery: TQueryParams; out NextLink: String)
  29179. : TSPUserArray;
  29180. function ListAll(const AQuery: String) : TSPUserArray;
  29181. function ListAll(const AQuery: TQueryParams) : TSPUserArray;
  29182. end;
  29183. { --------------------------------------------------------------------
  29184. SP: UserCustomActions
  29185. --------------------------------------------------------------------}
  29186. TSPUserCustomActionsEntitySet = Class(TODataEntitySet)
  29187. public
  29188. class function ObjectRestKind : String; Override;
  29189. class function EntityClass : TODataEntityClass; Override;
  29190. function Get(const Id: TGUIDString) : TSPUserCustomAction;
  29191. function List(const AQuery: String; out NextLink: String)
  29192. : TSPUserCustomActionArray;
  29193. function List(const AQuery: TQueryParams; out NextLink: String)
  29194. : TSPUserCustomActionArray;
  29195. function ListAll(const AQuery: String) : TSPUserCustomActionArray;
  29196. function ListAll(const AQuery: TQueryParams) : TSPUserCustomActionArray;
  29197. end;
  29198. { --------------------------------------------------------------------
  29199. SP: FollowedContents
  29200. --------------------------------------------------------------------}
  29201. TSPFollowedContentsEntitySet = Class(TODataEntitySet)
  29202. public
  29203. class function ObjectRestKind : String; Override;
  29204. class function EntityClass : TODataEntityClass; Override;
  29205. function Get(const FollowedDocumentsUrl: string)
  29206. : TSP_UserProfilesFollowedContent;
  29207. function List(const AQuery: String; out NextLink: String)
  29208. : TSP_UserProfilesFollowedContentArray;
  29209. function List(const AQuery: TQueryParams; out NextLink: String)
  29210. : TSP_UserProfilesFollowedContentArray;
  29211. function ListAll(const AQuery: String)
  29212. : TSP_UserProfilesFollowedContentArray;
  29213. function ListAll(const AQuery: TQueryParams)
  29214. : TSP_UserProfilesFollowedContentArray;
  29215. end;
  29216. { --------------------------------------------------------------------
  29217. SP: FollowedItemDatas
  29218. --------------------------------------------------------------------}
  29219. TSPFollowedItemDatasEntitySet = Class(TODataEntitySet)
  29220. public
  29221. class function ObjectRestKind : String; Override;
  29222. class function EntityClass : TODataEntityClass; Override;
  29223. function Get(const Id4a81de82eeb94d6080ea5bf63e27023a: string)
  29224. : TSP_UserProfilesFollowedItemData;
  29225. function List(const AQuery: String; out NextLink: String)
  29226. : TSP_UserProfilesFollowedItemDataArray;
  29227. function List(const AQuery: TQueryParams; out NextLink: String)
  29228. : TSP_UserProfilesFollowedItemDataArray;
  29229. function ListAll(const AQuery: String)
  29230. : TSP_UserProfilesFollowedItemDataArray;
  29231. function ListAll(const AQuery: TQueryParams)
  29232. : TSP_UserProfilesFollowedItemDataArray;
  29233. end;
  29234. { --------------------------------------------------------------------
  29235. SP: HashTagCollections
  29236. --------------------------------------------------------------------}
  29237. TSPHashTagCollectionsEntitySet = Class(TODataEntitySet)
  29238. public
  29239. class function ObjectRestKind : String; Override;
  29240. class function EntityClass : TODataEntityClass; Override;
  29241. function Get(const Id4a81de82eeb94d6080ea5bf63e27023a: string)
  29242. : TSP_UserProfilesHashTagCollection;
  29243. function List(const AQuery: String; out NextLink: String)
  29244. : TSP_UserProfilesHashTagCollectionArray;
  29245. function List(const AQuery: TQueryParams; out NextLink: String)
  29246. : TSP_UserProfilesHashTagCollectionArray;
  29247. function ListAll(const AQuery: String)
  29248. : TSP_UserProfilesHashTagCollectionArray;
  29249. function ListAll(const AQuery: TQueryParams)
  29250. : TSP_UserProfilesHashTagCollectionArray;
  29251. end;
  29252. { --------------------------------------------------------------------
  29253. SP: PeopleManagers
  29254. --------------------------------------------------------------------}
  29255. TSPPeopleManagersEntitySet = Class(TODataEntitySet)
  29256. public
  29257. class function ObjectRestKind : String; Override;
  29258. class function EntityClass : TODataEntityClass; Override;
  29259. function Get(const EditProfileLink: string)
  29260. : TSP_UserProfilesPeopleManager;
  29261. function List(const AQuery: String; out NextLink: String)
  29262. : TSP_UserProfilesPeopleManagerArray;
  29263. function List(const AQuery: TQueryParams; out NextLink: String)
  29264. : TSP_UserProfilesPeopleManagerArray;
  29265. function ListAll(const AQuery: String)
  29266. : TSP_UserProfilesPeopleManagerArray;
  29267. function ListAll(const AQuery: TQueryParams)
  29268. : TSP_UserProfilesPeopleManagerArray;
  29269. end;
  29270. { --------------------------------------------------------------------
  29271. SP: PersonPropertiess
  29272. --------------------------------------------------------------------}
  29273. TSPPersonPropertiessEntitySet = Class(TODataEntitySet)
  29274. public
  29275. class function ObjectRestKind : String; Override;
  29276. class function EntityClass : TODataEntityClass; Override;
  29277. function Get(const AccountName: string)
  29278. : TSP_UserProfilesPersonProperties;
  29279. function List(const AQuery: String; out NextLink: String)
  29280. : TSP_UserProfilesPersonPropertiesArray;
  29281. function List(const AQuery: TQueryParams; out NextLink: String)
  29282. : TSP_UserProfilesPersonPropertiesArray;
  29283. function ListAll(const AQuery: String)
  29284. : TSP_UserProfilesPersonPropertiesArray;
  29285. function ListAll(const AQuery: TQueryParams)
  29286. : TSP_UserProfilesPersonPropertiesArray;
  29287. end;
  29288. { --------------------------------------------------------------------
  29289. SP: ProfileImageStores
  29290. --------------------------------------------------------------------}
  29291. TSPProfileImageStoresEntitySet = Class(TODataEntitySet)
  29292. public
  29293. class function ObjectRestKind : String; Override;
  29294. class function EntityClass : TODataEntityClass; Override;
  29295. function Get(const Id4a81de82eeb94d6080ea5bf63e27023a: string)
  29296. : TSP_UserProfilesProfileImageStore;
  29297. function List(const AQuery: String; out NextLink: String)
  29298. : TSP_UserProfilesProfileImageStoreArray;
  29299. function List(const AQuery: TQueryParams; out NextLink: String)
  29300. : TSP_UserProfilesProfileImageStoreArray;
  29301. function ListAll(const AQuery: String)
  29302. : TSP_UserProfilesProfileImageStoreArray;
  29303. function ListAll(const AQuery: TQueryParams)
  29304. : TSP_UserProfilesProfileImageStoreArray;
  29305. end;
  29306. { --------------------------------------------------------------------
  29307. SP: ProfileLoaders
  29308. --------------------------------------------------------------------}
  29309. TSPProfileLoadersEntitySet = Class(TODataEntitySet)
  29310. public
  29311. class function ObjectRestKind : String; Override;
  29312. class function EntityClass : TODataEntityClass; Override;
  29313. function Get(const Id4a81de82eeb94d6080ea5bf63e27023a: string)
  29314. : TSP_UserProfilesProfileLoader;
  29315. function List(const AQuery: String; out NextLink: String)
  29316. : TSP_UserProfilesProfileLoaderArray;
  29317. function List(const AQuery: TQueryParams; out NextLink: String)
  29318. : TSP_UserProfilesProfileLoaderArray;
  29319. function ListAll(const AQuery: String)
  29320. : TSP_UserProfilesProfileLoaderArray;
  29321. function ListAll(const AQuery: TQueryParams)
  29322. : TSP_UserProfilesProfileLoaderArray;
  29323. end;
  29324. { --------------------------------------------------------------------
  29325. SP: UserProfiles
  29326. --------------------------------------------------------------------}
  29327. TSPUserProfilesEntitySet = Class(TODataEntitySet)
  29328. public
  29329. class function ObjectRestKind : String; Override;
  29330. class function EntityClass : TODataEntityClass; Override;
  29331. function Get(const AccountName: string) : TSP_UserProfilesUserProfile;
  29332. function List(const AQuery: String; out NextLink: String)
  29333. : TSP_UserProfilesUserProfileArray;
  29334. function List(const AQuery: TQueryParams; out NextLink: String)
  29335. : TSP_UserProfilesUserProfileArray;
  29336. function ListAll(const AQuery: String)
  29337. : TSP_UserProfilesUserProfileArray;
  29338. function ListAll(const AQuery: TQueryParams)
  29339. : TSP_UserProfilesUserProfileArray;
  29340. end;
  29341. { --------------------------------------------------------------------
  29342. SP: UserProfilePropertiesForUsers
  29343. --------------------------------------------------------------------}
  29344. TSPUserProfilePropertiesForUsersEntitySet = Class(TODataEntitySet)
  29345. public
  29346. class function ObjectRestKind : String; Override;
  29347. class function EntityClass : TODataEntityClass; Override;
  29348. function Get(const AccountName: string)
  29349. : TSP_UserProfilesUserProfilePropertiesForUser;
  29350. function List(const AQuery: String; out NextLink: String)
  29351. : TSP_UserProfilesUserProfilePropertiesForUserArray;
  29352. function List(const AQuery: TQueryParams; out NextLink: String)
  29353. : TSP_UserProfilesUserProfilePropertiesForUserArray;
  29354. function ListAll(const AQuery: String)
  29355. : TSP_UserProfilesUserProfilePropertiesForUserArray;
  29356. function ListAll(const AQuery: TQueryParams)
  29357. : TSP_UserProfilesUserProfilePropertiesForUserArray;
  29358. end;
  29359. { --------------------------------------------------------------------
  29360. SP: UserResources
  29361. --------------------------------------------------------------------}
  29362. TSPUserResourcesEntitySet = Class(TODataEntitySet)
  29363. public
  29364. class function ObjectRestKind : String; Override;
  29365. class function EntityClass : TODataEntityClass; Override;
  29366. function Get(const Id4a81de82eeb94d6080ea5bf63e27023a: string)
  29367. : TSPUserResource;
  29368. function List(const AQuery: String; out NextLink: String)
  29369. : TSPUserResourceArray;
  29370. function List(const AQuery: TQueryParams; out NextLink: String)
  29371. : TSPUserResourceArray;
  29372. function ListAll(const AQuery: String) : TSPUserResourceArray;
  29373. function ListAll(const AQuery: TQueryParams) : TSPUserResourceArray;
  29374. end;
  29375. { --------------------------------------------------------------------
  29376. SP: UserSolutions
  29377. --------------------------------------------------------------------}
  29378. TSPUserSolutionsEntitySet = Class(TODataEntitySet)
  29379. public
  29380. class function ObjectRestKind : String; Override;
  29381. class function EntityClass : TODataEntityClass; Override;
  29382. function Get(const Id4a81de82eeb94d6080ea5bf63e27023a: string)
  29383. : TSPUserSolution;
  29384. function List(const AQuery: String; out NextLink: String)
  29385. : TSPUserSolutionArray;
  29386. function List(const AQuery: TQueryParams; out NextLink: String)
  29387. : TSPUserSolutionArray;
  29388. function ListAll(const AQuery: String) : TSPUserSolutionArray;
  29389. function ListAll(const AQuery: TQueryParams) : TSPUserSolutionArray;
  29390. end;
  29391. { --------------------------------------------------------------------
  29392. SP: MarketplaceUtilitiess
  29393. --------------------------------------------------------------------}
  29394. TSPMarketplaceUtilitiessEntitySet = Class(TODataEntitySet)
  29395. public
  29396. class function ObjectRestKind : String; Override;
  29397. class function EntityClass : TODataEntityClass; Override;
  29398. function Get(const Id4a81de82eeb94d6080ea5bf63e27023a: string)
  29399. : TSP_UtilitiesMarketplaceUtilities;
  29400. function List(const AQuery: String; out NextLink: String)
  29401. : TSP_UtilitiesMarketplaceUtilitiesArray;
  29402. function List(const AQuery: TQueryParams; out NextLink: String)
  29403. : TSP_UtilitiesMarketplaceUtilitiesArray;
  29404. function ListAll(const AQuery: String)
  29405. : TSP_UtilitiesMarketplaceUtilitiesArray;
  29406. function ListAll(const AQuery: TQueryParams)
  29407. : TSP_UtilitiesMarketplaceUtilitiesArray;
  29408. end;
  29409. { --------------------------------------------------------------------
  29410. SP: Utilitys
  29411. --------------------------------------------------------------------}
  29412. TSPUtilitysEntitySet = Class(TODataEntitySet)
  29413. public
  29414. class function ObjectRestKind : String; Override;
  29415. class function EntityClass : TODataEntityClass; Override;
  29416. function Get(const Id4a81de82eeb94d6080ea5bf63e27023a: string)
  29417. : TSP_UtilitiesUtility;
  29418. function List(const AQuery: String; out NextLink: String)
  29419. : TSP_UtilitiesUtilityArray;
  29420. function List(const AQuery: TQueryParams; out NextLink: String)
  29421. : TSP_UtilitiesUtilityArray;
  29422. function ListAll(const AQuery: String) : TSP_UtilitiesUtilityArray;
  29423. function ListAll(const AQuery: TQueryParams) : TSP_UtilitiesUtilityArray;
  29424. end;
  29425. { --------------------------------------------------------------------
  29426. SP: Views
  29427. --------------------------------------------------------------------}
  29428. TSPViewsEntitySet = Class(TODataEntitySet)
  29429. public
  29430. class function ObjectRestKind : String; Override;
  29431. class function EntityClass : TODataEntityClass; Override;
  29432. function Get(const Id: TGUIDString) : TSPView;
  29433. function List(const AQuery: String; out NextLink: String) : TSPViewArray;
  29434. function List(const AQuery: TQueryParams; out NextLink: String)
  29435. : TSPViewArray;
  29436. function ListAll(const AQuery: String) : TSPViewArray;
  29437. function ListAll(const AQuery: TQueryParams) : TSPViewArray;
  29438. end;
  29439. { --------------------------------------------------------------------
  29440. SP: ViewFieldCollections
  29441. --------------------------------------------------------------------}
  29442. TSPViewFieldCollectionsEntitySet = Class(TODataEntitySet)
  29443. public
  29444. class function ObjectRestKind : String; Override;
  29445. class function EntityClass : TODataEntityClass; Override;
  29446. function Get(const SchemaXml: string) : TSPViewFieldCollection;
  29447. function List(const AQuery: String; out NextLink: String)
  29448. : TSPViewFieldCollectionArray;
  29449. function List(const AQuery: TQueryParams; out NextLink: String)
  29450. : TSPViewFieldCollectionArray;
  29451. function ListAll(const AQuery: String) : TSPViewFieldCollectionArray;
  29452. function ListAll(const AQuery: TQueryParams)
  29453. : TSPViewFieldCollectionArray;
  29454. end;
  29455. { --------------------------------------------------------------------
  29456. SP: WebInformations
  29457. --------------------------------------------------------------------}
  29458. TSPWebInformationsEntitySet = Class(TODataEntitySet)
  29459. public
  29460. class function ObjectRestKind : String; Override;
  29461. class function EntityClass : TODataEntityClass; Override;
  29462. function Get(const Id: TGUIDString) : TSPWebInformation;
  29463. function List(const AQuery: String; out NextLink: String)
  29464. : TSPWebInformationArray;
  29465. function List(const AQuery: TQueryParams; out NextLink: String)
  29466. : TSPWebInformationArray;
  29467. function ListAll(const AQuery: String) : TSPWebInformationArray;
  29468. function ListAll(const AQuery: TQueryParams) : TSPWebInformationArray;
  29469. end;
  29470. { --------------------------------------------------------------------
  29471. SP: LimitedWebPartManagers
  29472. --------------------------------------------------------------------}
  29473. TSPLimitedWebPartManagersEntitySet = Class(TODataEntitySet)
  29474. public
  29475. class function ObjectRestKind : String; Override;
  29476. class function EntityClass : TODataEntityClass; Override;
  29477. function Get(const HasPersonalizedParts: boolean)
  29478. : TSP_WebPartsLimitedWebPartManager;
  29479. function List(const AQuery: String; out NextLink: String)
  29480. : TSP_WebPartsLimitedWebPartManagerArray;
  29481. function List(const AQuery: TQueryParams; out NextLink: String)
  29482. : TSP_WebPartsLimitedWebPartManagerArray;
  29483. function ListAll(const AQuery: String)
  29484. : TSP_WebPartsLimitedWebPartManagerArray;
  29485. function ListAll(const AQuery: TQueryParams)
  29486. : TSP_WebPartsLimitedWebPartManagerArray;
  29487. end;
  29488. { --------------------------------------------------------------------
  29489. SP: WebParts
  29490. --------------------------------------------------------------------}
  29491. TSPWebPartsEntitySet = Class(TODataEntitySet)
  29492. public
  29493. class function ObjectRestKind : String; Override;
  29494. class function EntityClass : TODataEntityClass; Override;
  29495. function Get(const Hidden: boolean) : TSP_WebPartsWebPart;
  29496. function List(const AQuery: String; out NextLink: String)
  29497. : TSP_WebPartsWebPartArray;
  29498. function List(const AQuery: TQueryParams; out NextLink: String)
  29499. : TSP_WebPartsWebPartArray;
  29500. function ListAll(const AQuery: String) : TSP_WebPartsWebPartArray;
  29501. function ListAll(const AQuery: TQueryParams) : TSP_WebPartsWebPartArray;
  29502. end;
  29503. { --------------------------------------------------------------------
  29504. SP: WebPartDefinitions
  29505. --------------------------------------------------------------------}
  29506. TSPWebPartDefinitionsEntitySet = Class(TODataEntitySet)
  29507. public
  29508. class function ObjectRestKind : String; Override;
  29509. class function EntityClass : TODataEntityClass; Override;
  29510. function Get(const Id: TGUIDString) : TSP_WebPartsWebPartDefinition;
  29511. function List(const AQuery: String; out NextLink: String)
  29512. : TSP_WebPartsWebPartDefinitionArray;
  29513. function List(const AQuery: TQueryParams; out NextLink: String)
  29514. : TSP_WebPartsWebPartDefinitionArray;
  29515. function ListAll(const AQuery: String)
  29516. : TSP_WebPartsWebPartDefinitionArray;
  29517. function ListAll(const AQuery: TQueryParams)
  29518. : TSP_WebPartsWebPartDefinitionArray;
  29519. end;
  29520. { --------------------------------------------------------------------
  29521. SP: WebProxys
  29522. --------------------------------------------------------------------}
  29523. TSPWebProxysEntitySet = Class(TODataEntitySet)
  29524. public
  29525. class function ObjectRestKind : String; Override;
  29526. class function EntityClass : TODataEntityClass; Override;
  29527. function Get(const Id4a81de82eeb94d6080ea5bf63e27023a: string)
  29528. : TSPWebProxy;
  29529. function List(const AQuery: String; out NextLink: String)
  29530. : TSPWebProxyArray;
  29531. function List(const AQuery: TQueryParams; out NextLink: String)
  29532. : TSPWebProxyArray;
  29533. function ListAll(const AQuery: String) : TSPWebProxyArray;
  29534. function ListAll(const AQuery: TQueryParams) : TSPWebProxyArray;
  29535. end;
  29536. { --------------------------------------------------------------------
  29537. SP: WebTemplates
  29538. --------------------------------------------------------------------}
  29539. TSPWebTemplatesEntitySet = Class(TODataEntitySet)
  29540. public
  29541. class function ObjectRestKind : String; Override;
  29542. class function EntityClass : TODataEntityClass; Override;
  29543. function Get(const Id: TInt32) : TSPWebTemplate;
  29544. function List(const AQuery: String; out NextLink: String)
  29545. : TSPWebTemplateArray;
  29546. function List(const AQuery: TQueryParams; out NextLink: String)
  29547. : TSPWebTemplateArray;
  29548. function ListAll(const AQuery: String) : TSPWebTemplateArray;
  29549. function ListAll(const AQuery: TQueryParams) : TSPWebTemplateArray;
  29550. end;
  29551. { --------------------------------------------------------------------
  29552. SP: SPWorkflows
  29553. --------------------------------------------------------------------}
  29554. TSPSPWorkflowsEntitySet = Class(TODataEntitySet)
  29555. public
  29556. class function ObjectRestKind : String; Override;
  29557. class function EntityClass : TODataEntityClass; Override;
  29558. function Get(const AssociationId: TGUIDString) : TSP_WorkflowSPWorkflow;
  29559. function List(const AQuery: String; out NextLink: String)
  29560. : TSP_WorkflowSPWorkflowArray;
  29561. function List(const AQuery: TQueryParams; out NextLink: String)
  29562. : TSP_WorkflowSPWorkflowArray;
  29563. function ListAll(const AQuery: String) : TSP_WorkflowSPWorkflowArray;
  29564. function ListAll(const AQuery: TQueryParams)
  29565. : TSP_WorkflowSPWorkflowArray;
  29566. end;
  29567. { --------------------------------------------------------------------
  29568. SP: SPWorkflowManagers
  29569. --------------------------------------------------------------------}
  29570. TSPSPWorkflowManagersEntitySet = Class(TODataEntitySet)
  29571. public
  29572. class function ObjectRestKind : String; Override;
  29573. class function EntityClass : TODataEntityClass; Override;
  29574. function Get(const Id4a81de82eeb94d6080ea5bf63e27023a: string)
  29575. : TSP_WorkflowSPWorkflowManager;
  29576. function List(const AQuery: String; out NextLink: String)
  29577. : TSP_WorkflowSPWorkflowManagerArray;
  29578. function List(const AQuery: TQueryParams; out NextLink: String)
  29579. : TSP_WorkflowSPWorkflowManagerArray;
  29580. function ListAll(const AQuery: String)
  29581. : TSP_WorkflowSPWorkflowManagerArray;
  29582. function ListAll(const AQuery: TQueryParams)
  29583. : TSP_WorkflowSPWorkflowManagerArray;
  29584. end;
  29585. { --------------------------------------------------------------------
  29586. SP: WorkflowAssociations
  29587. --------------------------------------------------------------------}
  29588. TSPWorkflowAssociationsEntitySet = Class(TODataEntitySet)
  29589. public
  29590. class function ObjectRestKind : String; Override;
  29591. class function EntityClass : TODataEntityClass; Override;
  29592. function Get(const Id: TGUIDString) : TSP_WorkflowWorkflowAssociation;
  29593. function List(const AQuery: String; out NextLink: String)
  29594. : TSP_WorkflowWorkflowAssociationArray;
  29595. function List(const AQuery: TQueryParams; out NextLink: String)
  29596. : TSP_WorkflowWorkflowAssociationArray;
  29597. function ListAll(const AQuery: String)
  29598. : TSP_WorkflowWorkflowAssociationArray;
  29599. function ListAll(const AQuery: TQueryParams)
  29600. : TSP_WorkflowWorkflowAssociationArray;
  29601. end;
  29602. { --------------------------------------------------------------------
  29603. SP: WorkflowTemplates
  29604. --------------------------------------------------------------------}
  29605. TSPWorkflowTemplatesEntitySet = Class(TODataEntitySet)
  29606. public
  29607. class function ObjectRestKind : String; Override;
  29608. class function EntityClass : TODataEntityClass; Override;
  29609. function Get(const Id: TGUIDString) : TSP_WorkflowWorkflowTemplate;
  29610. function List(const AQuery: String; out NextLink: String)
  29611. : TSP_WorkflowWorkflowTemplateArray;
  29612. function List(const AQuery: TQueryParams; out NextLink: String)
  29613. : TSP_WorkflowWorkflowTemplateArray;
  29614. function ListAll(const AQuery: String)
  29615. : TSP_WorkflowWorkflowTemplateArray;
  29616. function ListAll(const AQuery: TQueryParams)
  29617. : TSP_WorkflowWorkflowTemplateArray;
  29618. end;
  29619. { --------------------------------------------------------------------
  29620. SP: InteropServices
  29621. --------------------------------------------------------------------}
  29622. TSPInteropServicesEntitySet = Class(TODataEntitySet)
  29623. public
  29624. class function ObjectRestKind : String; Override;
  29625. class function EntityClass : TODataEntityClass; Override;
  29626. function Get(const Id4a81de82eeb94d6080ea5bf63e27023a: string)
  29627. : TSP_WorkflowServicesInteropService;
  29628. function List(const AQuery: String; out NextLink: String)
  29629. : TSP_WorkflowServicesInteropServiceArray;
  29630. function List(const AQuery: TQueryParams; out NextLink: String)
  29631. : TSP_WorkflowServicesInteropServiceArray;
  29632. function ListAll(const AQuery: String)
  29633. : TSP_WorkflowServicesInteropServiceArray;
  29634. function ListAll(const AQuery: TQueryParams)
  29635. : TSP_WorkflowServicesInteropServiceArray;
  29636. end;
  29637. { --------------------------------------------------------------------
  29638. SP: WorkflowDefinitions
  29639. --------------------------------------------------------------------}
  29640. TSPWorkflowDefinitionsEntitySet = Class(TODataEntitySet)
  29641. public
  29642. class function ObjectRestKind : String; Override;
  29643. class function EntityClass : TODataEntityClass; Override;
  29644. function Get(const Id: TGUIDString)
  29645. : TSP_WorkflowServicesWorkflowDefinition;
  29646. function List(const AQuery: String; out NextLink: String)
  29647. : TSP_WorkflowServicesWorkflowDefinitionArray;
  29648. function List(const AQuery: TQueryParams; out NextLink: String)
  29649. : TSP_WorkflowServicesWorkflowDefinitionArray;
  29650. function ListAll(const AQuery: String)
  29651. : TSP_WorkflowServicesWorkflowDefinitionArray;
  29652. function ListAll(const AQuery: TQueryParams)
  29653. : TSP_WorkflowServicesWorkflowDefinitionArray;
  29654. end;
  29655. { --------------------------------------------------------------------
  29656. SP: WorkflowDeploymentServices
  29657. --------------------------------------------------------------------}
  29658. TSPWorkflowDeploymentServicesEntitySet = Class(TODataEntitySet)
  29659. public
  29660. class function ObjectRestKind : String; Override;
  29661. class function EntityClass : TODataEntityClass; Override;
  29662. function Get(const Id4a81de82eeb94d6080ea5bf63e27023a: string)
  29663. : TSP_WorkflowServicesWorkflowDeploymentService;
  29664. function List(const AQuery: String; out NextLink: String)
  29665. : TSP_WorkflowServicesWorkflowDeploymentServiceArray;
  29666. function List(const AQuery: TQueryParams; out NextLink: String)
  29667. : TSP_WorkflowServicesWorkflowDeploymentServiceArray;
  29668. function ListAll(const AQuery: String)
  29669. : TSP_WorkflowServicesWorkflowDeploymentServiceArray;
  29670. function ListAll(const AQuery: TQueryParams)
  29671. : TSP_WorkflowServicesWorkflowDeploymentServiceArray;
  29672. end;
  29673. { --------------------------------------------------------------------
  29674. SP: WorkflowInstances
  29675. --------------------------------------------------------------------}
  29676. TSPWorkflowInstancesEntitySet = Class(TODataEntitySet)
  29677. public
  29678. class function ObjectRestKind : String; Override;
  29679. class function EntityClass : TODataEntityClass; Override;
  29680. function Get(const Id: TGUIDString)
  29681. : TSP_WorkflowServicesWorkflowInstance;
  29682. function List(const AQuery: String; out NextLink: String)
  29683. : TSP_WorkflowServicesWorkflowInstanceArray;
  29684. function List(const AQuery: TQueryParams; out NextLink: String)
  29685. : TSP_WorkflowServicesWorkflowInstanceArray;
  29686. function ListAll(const AQuery: String)
  29687. : TSP_WorkflowServicesWorkflowInstanceArray;
  29688. function ListAll(const AQuery: TQueryParams)
  29689. : TSP_WorkflowServicesWorkflowInstanceArray;
  29690. end;
  29691. { --------------------------------------------------------------------
  29692. SP: WorkflowInstanceServices
  29693. --------------------------------------------------------------------}
  29694. TSPWorkflowInstanceServicesEntitySet = Class(TODataEntitySet)
  29695. public
  29696. class function ObjectRestKind : String; Override;
  29697. class function EntityClass : TODataEntityClass; Override;
  29698. function Get(const Id4a81de82eeb94d6080ea5bf63e27023a: string)
  29699. : TSP_WorkflowServicesWorkflowInstanceService;
  29700. function List(const AQuery: String; out NextLink: String)
  29701. : TSP_WorkflowServicesWorkflowInstanceServiceArray;
  29702. function List(const AQuery: TQueryParams; out NextLink: String)
  29703. : TSP_WorkflowServicesWorkflowInstanceServiceArray;
  29704. function ListAll(const AQuery: String)
  29705. : TSP_WorkflowServicesWorkflowInstanceServiceArray;
  29706. function ListAll(const AQuery: TQueryParams)
  29707. : TSP_WorkflowServicesWorkflowInstanceServiceArray;
  29708. end;
  29709. { --------------------------------------------------------------------
  29710. SP: WorkflowMessagingServices
  29711. --------------------------------------------------------------------}
  29712. TSPWorkflowMessagingServicesEntitySet = Class(TODataEntitySet)
  29713. public
  29714. class function ObjectRestKind : String; Override;
  29715. class function EntityClass : TODataEntityClass; Override;
  29716. function Get(const Id4a81de82eeb94d6080ea5bf63e27023a: string)
  29717. : TSP_WorkflowServicesWorkflowMessagingService;
  29718. function List(const AQuery: String; out NextLink: String)
  29719. : TSP_WorkflowServicesWorkflowMessagingServiceArray;
  29720. function List(const AQuery: TQueryParams; out NextLink: String)
  29721. : TSP_WorkflowServicesWorkflowMessagingServiceArray;
  29722. function ListAll(const AQuery: String)
  29723. : TSP_WorkflowServicesWorkflowMessagingServiceArray;
  29724. function ListAll(const AQuery: TQueryParams)
  29725. : TSP_WorkflowServicesWorkflowMessagingServiceArray;
  29726. end;
  29727. { --------------------------------------------------------------------
  29728. SP: WorkflowServicesManagers
  29729. --------------------------------------------------------------------}
  29730. TSPWorkflowServicesManagersEntitySet = Class(TODataEntitySet)
  29731. public
  29732. class function ObjectRestKind : String; Override;
  29733. class function EntityClass : TODataEntityClass; Override;
  29734. function Get(const AppId: string)
  29735. : TSP_WorkflowServicesWorkflowServicesManager;
  29736. function List(const AQuery: String; out NextLink: String)
  29737. : TSP_WorkflowServicesWorkflowServicesManagerArray;
  29738. function List(const AQuery: TQueryParams; out NextLink: String)
  29739. : TSP_WorkflowServicesWorkflowServicesManagerArray;
  29740. function ListAll(const AQuery: String)
  29741. : TSP_WorkflowServicesWorkflowServicesManagerArray;
  29742. function ListAll(const AQuery: TQueryParams)
  29743. : TSP_WorkflowServicesWorkflowServicesManagerArray;
  29744. end;
  29745. { --------------------------------------------------------------------
  29746. SP: WorkflowSubscriptions
  29747. --------------------------------------------------------------------}
  29748. TSPWorkflowSubscriptionsEntitySet = Class(TODataEntitySet)
  29749. public
  29750. class function ObjectRestKind : String; Override;
  29751. class function EntityClass : TODataEntityClass; Override;
  29752. function Get(const Id: TGUIDString)
  29753. : TSP_WorkflowServicesWorkflowSubscription;
  29754. function List(const AQuery: String; out NextLink: String)
  29755. : TSP_WorkflowServicesWorkflowSubscriptionArray;
  29756. function List(const AQuery: TQueryParams; out NextLink: String)
  29757. : TSP_WorkflowServicesWorkflowSubscriptionArray;
  29758. function ListAll(const AQuery: String)
  29759. : TSP_WorkflowServicesWorkflowSubscriptionArray;
  29760. function ListAll(const AQuery: TQueryParams)
  29761. : TSP_WorkflowServicesWorkflowSubscriptionArray;
  29762. end;
  29763. { --------------------------------------------------------------------
  29764. SP: WorkflowSubscriptionServices
  29765. --------------------------------------------------------------------}
  29766. TSPWorkflowSubscriptionServicesEntitySet = Class(TODataEntitySet)
  29767. public
  29768. class function ObjectRestKind : String; Override;
  29769. class function EntityClass : TODataEntityClass; Override;
  29770. function Get(const Id4a81de82eeb94d6080ea5bf63e27023a: string)
  29771. : TSP_WorkflowServicesWorkflowSubscriptionService;
  29772. function List(const AQuery: String; out NextLink: String)
  29773. : TSP_WorkflowServicesWorkflowSubscriptionServiceArray;
  29774. function List(const AQuery: TQueryParams; out NextLink: String)
  29775. : TSP_WorkflowServicesWorkflowSubscriptionServiceArray;
  29776. function ListAll(const AQuery: String)
  29777. : TSP_WorkflowServicesWorkflowSubscriptionServiceArray;
  29778. function ListAll(const AQuery: TQueryParams)
  29779. : TSP_WorkflowServicesWorkflowSubscriptionServiceArray;
  29780. end;
  29781. { --------------------------------------------------------------------
  29782. SP: BaseSessions
  29783. --------------------------------------------------------------------}
  29784. TSPBaseSessionsEntitySet = Class(TODataEntitySet)
  29785. public
  29786. class function ObjectRestKind : String; Override;
  29787. class function EntityClass : TODataEntityClass; Override;
  29788. function Get(const Id4a81de82eeb94d6080ea5bf63e27023a: string)
  29789. : TSP_WorkManagement_OMBaseSession;
  29790. function List(const AQuery: String; out NextLink: String)
  29791. : TSP_WorkManagement_OMBaseSessionArray;
  29792. function List(const AQuery: TQueryParams; out NextLink: String)
  29793. : TSP_WorkManagement_OMBaseSessionArray;
  29794. function ListAll(const AQuery: String)
  29795. : TSP_WorkManagement_OMBaseSessionArray;
  29796. function ListAll(const AQuery: TQueryParams)
  29797. : TSP_WorkManagement_OMBaseSessionArray;
  29798. end;
  29799. { --------------------------------------------------------------------
  29800. SP: BooleanCriterions
  29801. --------------------------------------------------------------------}
  29802. TSPBooleanCriterionsEntitySet = Class(TODataEntitySet)
  29803. public
  29804. class function ObjectRestKind : String; Override;
  29805. class function EntityClass : TODataEntityClass; Override;
  29806. function Get(const CompareType: TInt32)
  29807. : TSP_WorkManagement_OMBooleanCriterion;
  29808. function List(const AQuery: String; out NextLink: String)
  29809. : TSP_WorkManagement_OMBooleanCriterionArray;
  29810. function List(const AQuery: TQueryParams; out NextLink: String)
  29811. : TSP_WorkManagement_OMBooleanCriterionArray;
  29812. function ListAll(const AQuery: String)
  29813. : TSP_WorkManagement_OMBooleanCriterionArray;
  29814. function ListAll(const AQuery: TQueryParams)
  29815. : TSP_WorkManagement_OMBooleanCriterionArray;
  29816. end;
  29817. { --------------------------------------------------------------------
  29818. SP: CalloutInfos
  29819. --------------------------------------------------------------------}
  29820. TSPCalloutInfosEntitySet = Class(TODataEntitySet)
  29821. public
  29822. class function ObjectRestKind : String; Override;
  29823. class function EntityClass : TODataEntityClass; Override;
  29824. function Get(const DirectLinkTitle: string)
  29825. : TSP_WorkManagement_OMCalloutInfo;
  29826. function List(const AQuery: String; out NextLink: String)
  29827. : TSP_WorkManagement_OMCalloutInfoArray;
  29828. function List(const AQuery: TQueryParams; out NextLink: String)
  29829. : TSP_WorkManagement_OMCalloutInfoArray;
  29830. function ListAll(const AQuery: String)
  29831. : TSP_WorkManagement_OMCalloutInfoArray;
  29832. function ListAll(const AQuery: TQueryParams)
  29833. : TSP_WorkManagement_OMCalloutInfoArray;
  29834. end;
  29835. { --------------------------------------------------------------------
  29836. SP: CreateRefreshJobResults
  29837. --------------------------------------------------------------------}
  29838. TSPCreateRefreshJobResultsEntitySet = Class(TODataEntitySet)
  29839. public
  29840. class function ObjectRestKind : String; Override;
  29841. class function EntityClass : TODataEntityClass; Override;
  29842. function Get(const CreatedJob: boolean)
  29843. : TSP_WorkManagement_OMCreateRefreshJobResult;
  29844. function List(const AQuery: String; out NextLink: String)
  29845. : TSP_WorkManagement_OMCreateRefreshJobResultArray;
  29846. function List(const AQuery: TQueryParams; out NextLink: String)
  29847. : TSP_WorkManagement_OMCreateRefreshJobResultArray;
  29848. function ListAll(const AQuery: String)
  29849. : TSP_WorkManagement_OMCreateRefreshJobResultArray;
  29850. function ListAll(const AQuery: TQueryParams)
  29851. : TSP_WorkManagement_OMCreateRefreshJobResultArray;
  29852. end;
  29853. { --------------------------------------------------------------------
  29854. SP: CustomAttributeFilters
  29855. --------------------------------------------------------------------}
  29856. TSPCustomAttributeFiltersEntitySet = Class(TODataEntitySet)
  29857. public
  29858. class function ObjectRestKind : String; Override;
  29859. class function EntityClass : TODataEntityClass; Override;
  29860. function Get(const ConcatType: TInt32)
  29861. : TSP_WorkManagement_OMCustomAttributeFilter;
  29862. function List(const AQuery: String; out NextLink: String)
  29863. : TSP_WorkManagement_OMCustomAttributeFilterArray;
  29864. function List(const AQuery: TQueryParams; out NextLink: String)
  29865. : TSP_WorkManagement_OMCustomAttributeFilterArray;
  29866. function ListAll(const AQuery: String)
  29867. : TSP_WorkManagement_OMCustomAttributeFilterArray;
  29868. function ListAll(const AQuery: TQueryParams)
  29869. : TSP_WorkManagement_OMCustomAttributeFilterArray;
  29870. end;
  29871. { --------------------------------------------------------------------
  29872. SP: DashboardScriptExtensionInfos
  29873. --------------------------------------------------------------------}
  29874. TSPDashboardScriptExtensionInfosEntitySet = Class(TODataEntitySet)
  29875. public
  29876. class function ObjectRestKind : String; Override;
  29877. class function EntityClass : TODataEntityClass; Override;
  29878. function Get(const ProviderKey: string)
  29879. : TSP_WorkManagement_OMDashboardScriptExtensionInfo;
  29880. function List(const AQuery: String; out NextLink: String)
  29881. : TSP_WorkManagement_OMDashboardScriptExtensionInfoArray;
  29882. function List(const AQuery: TQueryParams; out NextLink: String)
  29883. : TSP_WorkManagement_OMDashboardScriptExtensionInfoArray;
  29884. function ListAll(const AQuery: String)
  29885. : TSP_WorkManagement_OMDashboardScriptExtensionInfoArray;
  29886. function ListAll(const AQuery: TQueryParams)
  29887. : TSP_WorkManagement_OMDashboardScriptExtensionInfoArray;
  29888. end;
  29889. { --------------------------------------------------------------------
  29890. SP: DateRangeCriterions
  29891. --------------------------------------------------------------------}
  29892. TSPDateRangeCriterionsEntitySet = Class(TODataEntitySet)
  29893. public
  29894. class function ObjectRestKind : String; Override;
  29895. class function EntityClass : TODataEntityClass; Override;
  29896. function Get(const RangeEndValue: TDateTime)
  29897. : TSP_WorkManagement_OMDateRangeCriterion;
  29898. function List(const AQuery: String; out NextLink: String)
  29899. : TSP_WorkManagement_OMDateRangeCriterionArray;
  29900. function List(const AQuery: TQueryParams; out NextLink: String)
  29901. : TSP_WorkManagement_OMDateRangeCriterionArray;
  29902. function ListAll(const AQuery: String)
  29903. : TSP_WorkManagement_OMDateRangeCriterionArray;
  29904. function ListAll(const AQuery: TQueryParams)
  29905. : TSP_WorkManagement_OMDateRangeCriterionArray;
  29906. end;
  29907. { --------------------------------------------------------------------
  29908. SP: ExchangeUserSyncStates
  29909. --------------------------------------------------------------------}
  29910. TSPExchangeUserSyncStatesEntitySet = Class(TODataEntitySet)
  29911. public
  29912. class function ObjectRestKind : String; Override;
  29913. class function EntityClass : TODataEntityClass; Override;
  29914. function Get(const IsOptedIn: boolean)
  29915. : TSP_WorkManagement_OMExchangeUserSyncState;
  29916. function List(const AQuery: String; out NextLink: String)
  29917. : TSP_WorkManagement_OMExchangeUserSyncStateArray;
  29918. function List(const AQuery: TQueryParams; out NextLink: String)
  29919. : TSP_WorkManagement_OMExchangeUserSyncStateArray;
  29920. function ListAll(const AQuery: String)
  29921. : TSP_WorkManagement_OMExchangeUserSyncStateArray;
  29922. function ListAll(const AQuery: TQueryParams)
  29923. : TSP_WorkManagement_OMExchangeUserSyncStateArray;
  29924. end;
  29925. { --------------------------------------------------------------------
  29926. SP: Locations
  29927. --------------------------------------------------------------------}
  29928. TSPLocationsEntitySet = Class(TODataEntitySet)
  29929. public
  29930. class function ObjectRestKind : String; Override;
  29931. class function EntityClass : TODataEntityClass; Override;
  29932. function Get(const Id: TInt32) : TSP_WorkManagement_OMLocation;
  29933. function List(const AQuery: String; out NextLink: String)
  29934. : TSP_WorkManagement_OMLocationArray;
  29935. function List(const AQuery: TQueryParams; out NextLink: String)
  29936. : TSP_WorkManagement_OMLocationArray;
  29937. function ListAll(const AQuery: String)
  29938. : TSP_WorkManagement_OMLocationArray;
  29939. function ListAll(const AQuery: TQueryParams)
  29940. : TSP_WorkManagement_OMLocationArray;
  29941. end;
  29942. { --------------------------------------------------------------------
  29943. SP: LocationDisplaySettings
  29944. --------------------------------------------------------------------}
  29945. TSPLocationDisplaySettingsEntitySet = Class(TODataEntitySet)
  29946. public
  29947. class function ObjectRestKind : String; Override;
  29948. class function EntityClass : TODataEntityClass; Override;
  29949. function Get(const Id: TInt32)
  29950. : TSP_WorkManagement_OMLocationDisplaySetting;
  29951. function List(const AQuery: String; out NextLink: String)
  29952. : TSP_WorkManagement_OMLocationDisplaySettingArray;
  29953. function List(const AQuery: TQueryParams; out NextLink: String)
  29954. : TSP_WorkManagement_OMLocationDisplaySettingArray;
  29955. function ListAll(const AQuery: String)
  29956. : TSP_WorkManagement_OMLocationDisplaySettingArray;
  29957. function ListAll(const AQuery: TQueryParams)
  29958. : TSP_WorkManagement_OMLocationDisplaySettingArray;
  29959. end;
  29960. { --------------------------------------------------------------------
  29961. SP: LocationFilters
  29962. --------------------------------------------------------------------}
  29963. TSPLocationFiltersEntitySet = Class(TODataEntitySet)
  29964. public
  29965. class function ObjectRestKind : String; Override;
  29966. class function EntityClass : TODataEntityClass; Override;
  29967. function Get(const IncludeUncategorizedTasks: boolean)
  29968. : TSP_WorkManagement_OMLocationFilter;
  29969. function List(const AQuery: String; out NextLink: String)
  29970. : TSP_WorkManagement_OMLocationFilterArray;
  29971. function List(const AQuery: TQueryParams; out NextLink: String)
  29972. : TSP_WorkManagement_OMLocationFilterArray;
  29973. function ListAll(const AQuery: String)
  29974. : TSP_WorkManagement_OMLocationFilterArray;
  29975. function ListAll(const AQuery: TQueryParams)
  29976. : TSP_WorkManagement_OMLocationFilterArray;
  29977. end;
  29978. { --------------------------------------------------------------------
  29979. SP: LocationUpdateResults
  29980. --------------------------------------------------------------------}
  29981. TSPLocationUpdateResultsEntitySet = Class(TODataEntitySet)
  29982. public
  29983. class function ObjectRestKind : String; Override;
  29984. class function EntityClass : TODataEntityClass; Override;
  29985. function Get(const ActiveAddedCount: int64)
  29986. : TSP_WorkManagement_OMLocationUpdateResult;
  29987. function List(const AQuery: String; out NextLink: String)
  29988. : TSP_WorkManagement_OMLocationUpdateResultArray;
  29989. function List(const AQuery: TQueryParams; out NextLink: String)
  29990. : TSP_WorkManagement_OMLocationUpdateResultArray;
  29991. function ListAll(const AQuery: String)
  29992. : TSP_WorkManagement_OMLocationUpdateResultArray;
  29993. function ListAll(const AQuery: TQueryParams)
  29994. : TSP_WorkManagement_OMLocationUpdateResultArray;
  29995. end;
  29996. { --------------------------------------------------------------------
  29997. SP: NameCriterions
  29998. --------------------------------------------------------------------}
  29999. TSPNameCriterionsEntitySet = Class(TODataEntitySet)
  30000. public
  30001. class function ObjectRestKind : String; Override;
  30002. class function EntityClass : TODataEntityClass; Override;
  30003. function Get(const CompareType: TInt32)
  30004. : TSP_WorkManagement_OMNameCriterion;
  30005. function List(const AQuery: String; out NextLink: String)
  30006. : TSP_WorkManagement_OMNameCriterionArray;
  30007. function List(const AQuery: TQueryParams; out NextLink: String)
  30008. : TSP_WorkManagement_OMNameCriterionArray;
  30009. function ListAll(const AQuery: String)
  30010. : TSP_WorkManagement_OMNameCriterionArray;
  30011. function ListAll(const AQuery: TQueryParams)
  30012. : TSP_WorkManagement_OMNameCriterionArray;
  30013. end;
  30014. { --------------------------------------------------------------------
  30015. SP: NonTaskDataReadResults
  30016. --------------------------------------------------------------------}
  30017. TSPNonTaskDataReadResultsEntitySet = Class(TODataEntitySet)
  30018. public
  30019. class function ObjectRestKind : String; Override;
  30020. class function EntityClass : TODataEntityClass; Override;
  30021. function Get(const Id4a81de82eeb94d6080ea5bf63e27023a: string)
  30022. : TSP_WorkManagement_OMNonTaskDataReadResult;
  30023. function List(const AQuery: String; out NextLink: String)
  30024. : TSP_WorkManagement_OMNonTaskDataReadResultArray;
  30025. function List(const AQuery: TQueryParams; out NextLink: String)
  30026. : TSP_WorkManagement_OMNonTaskDataReadResultArray;
  30027. function ListAll(const AQuery: String)
  30028. : TSP_WorkManagement_OMNonTaskDataReadResultArray;
  30029. function ListAll(const AQuery: TQueryParams)
  30030. : TSP_WorkManagement_OMNonTaskDataReadResultArray;
  30031. end;
  30032. { --------------------------------------------------------------------
  30033. SP: OrderInfos
  30034. --------------------------------------------------------------------}
  30035. TSPOrderInfosEntitySet = Class(TODataEntitySet)
  30036. public
  30037. class function ObjectRestKind : String; Override;
  30038. class function EntityClass : TODataEntityClass; Override;
  30039. function Get(const Field: TInt32) : TSP_WorkManagement_OMOrderInfo;
  30040. function List(const AQuery: String; out NextLink: String)
  30041. : TSP_WorkManagement_OMOrderInfoArray;
  30042. function List(const AQuery: TQueryParams; out NextLink: String)
  30043. : TSP_WorkManagement_OMOrderInfoArray;
  30044. function ListAll(const AQuery: String)
  30045. : TSP_WorkManagement_OMOrderInfoArray;
  30046. function ListAll(const AQuery: TQueryParams)
  30047. : TSP_WorkManagement_OMOrderInfoArray;
  30048. end;
  30049. { --------------------------------------------------------------------
  30050. SP: PersistedPropertiess
  30051. --------------------------------------------------------------------}
  30052. TSPPersistedPropertiessEntitySet = Class(TODataEntitySet)
  30053. public
  30054. class function ObjectRestKind : String; Override;
  30055. class function EntityClass : TODataEntityClass; Override;
  30056. function Get(const GroupByProjects: boolean)
  30057. : TSP_WorkManagement_OMPersistedProperties;
  30058. function List(const AQuery: String; out NextLink: String)
  30059. : TSP_WorkManagement_OMPersistedPropertiesArray;
  30060. function List(const AQuery: TQueryParams; out NextLink: String)
  30061. : TSP_WorkManagement_OMPersistedPropertiesArray;
  30062. function ListAll(const AQuery: String)
  30063. : TSP_WorkManagement_OMPersistedPropertiesArray;
  30064. function ListAll(const AQuery: TQueryParams)
  30065. : TSP_WorkManagement_OMPersistedPropertiesArray;
  30066. end;
  30067. { --------------------------------------------------------------------
  30068. SP: ProviderErrorInfos
  30069. --------------------------------------------------------------------}
  30070. TSPProviderErrorInfosEntitySet = Class(TODataEntitySet)
  30071. public
  30072. class function ObjectRestKind : String; Override;
  30073. class function EntityClass : TODataEntityClass; Override;
  30074. function Get(const CorrelationId: string)
  30075. : TSP_WorkManagement_OMProviderErrorInfo;
  30076. function List(const AQuery: String; out NextLink: String)
  30077. : TSP_WorkManagement_OMProviderErrorInfoArray;
  30078. function List(const AQuery: TQueryParams; out NextLink: String)
  30079. : TSP_WorkManagement_OMProviderErrorInfoArray;
  30080. function ListAll(const AQuery: String)
  30081. : TSP_WorkManagement_OMProviderErrorInfoArray;
  30082. function ListAll(const AQuery: TQueryParams)
  30083. : TSP_WorkManagement_OMProviderErrorInfoArray;
  30084. end;
  30085. { --------------------------------------------------------------------
  30086. SP: ProviderRefreshStatuss
  30087. --------------------------------------------------------------------}
  30088. TSPProviderRefreshStatussEntitySet = Class(TODataEntitySet)
  30089. public
  30090. class function ObjectRestKind : String; Override;
  30091. class function EntityClass : TODataEntityClass; Override;
  30092. function Get(const ProviderKey: string)
  30093. : TSP_WorkManagement_OMProviderRefreshStatus;
  30094. function List(const AQuery: String; out NextLink: String)
  30095. : TSP_WorkManagement_OMProviderRefreshStatusArray;
  30096. function List(const AQuery: TQueryParams; out NextLink: String)
  30097. : TSP_WorkManagement_OMProviderRefreshStatusArray;
  30098. function ListAll(const AQuery: String)
  30099. : TSP_WorkManagement_OMProviderRefreshStatusArray;
  30100. function ListAll(const AQuery: TQueryParams)
  30101. : TSP_WorkManagement_OMProviderRefreshStatusArray;
  30102. end;
  30103. { --------------------------------------------------------------------
  30104. SP: RefreshHealthInfos
  30105. --------------------------------------------------------------------}
  30106. TSPRefreshHealthInfosEntitySet = Class(TODataEntitySet)
  30107. public
  30108. class function ObjectRestKind : String; Override;
  30109. class function EntityClass : TODataEntityClass; Override;
  30110. function Get(const LatestRefreshTime: TDateTime)
  30111. : TSP_WorkManagement_OMRefreshHealthInfo;
  30112. function List(const AQuery: String; out NextLink: String)
  30113. : TSP_WorkManagement_OMRefreshHealthInfoArray;
  30114. function List(const AQuery: TQueryParams; out NextLink: String)
  30115. : TSP_WorkManagement_OMRefreshHealthInfoArray;
  30116. function ListAll(const AQuery: String)
  30117. : TSP_WorkManagement_OMRefreshHealthInfoArray;
  30118. function ListAll(const AQuery: TQueryParams)
  30119. : TSP_WorkManagement_OMRefreshHealthInfoArray;
  30120. end;
  30121. { --------------------------------------------------------------------
  30122. SP: RefreshHistorys
  30123. --------------------------------------------------------------------}
  30124. TSPRefreshHistorysEntitySet = Class(TODataEntitySet)
  30125. public
  30126. class function ObjectRestKind : String; Override;
  30127. class function EntityClass : TODataEntityClass; Override;
  30128. function Get(const Id4a81de82eeb94d6080ea5bf63e27023a: string)
  30129. : TSP_WorkManagement_OMRefreshHistory;
  30130. function List(const AQuery: String; out NextLink: String)
  30131. : TSP_WorkManagement_OMRefreshHistoryArray;
  30132. function List(const AQuery: TQueryParams; out NextLink: String)
  30133. : TSP_WorkManagement_OMRefreshHistoryArray;
  30134. function ListAll(const AQuery: String)
  30135. : TSP_WorkManagement_OMRefreshHistoryArray;
  30136. function ListAll(const AQuery: TQueryParams)
  30137. : TSP_WorkManagement_OMRefreshHistoryArray;
  30138. end;
  30139. { --------------------------------------------------------------------
  30140. SP: RefreshResults
  30141. --------------------------------------------------------------------}
  30142. TSPRefreshResultsEntitySet = Class(TODataEntitySet)
  30143. public
  30144. class function ObjectRestKind : String; Override;
  30145. class function EntityClass : TODataEntityClass; Override;
  30146. function Get(const AggregatorRefreshState: TInt32)
  30147. : TSP_WorkManagement_OMRefreshResult;
  30148. function List(const AQuery: String; out NextLink: String)
  30149. : TSP_WorkManagement_OMRefreshResultArray;
  30150. function List(const AQuery: TQueryParams; out NextLink: String)
  30151. : TSP_WorkManagement_OMRefreshResultArray;
  30152. function ListAll(const AQuery: String)
  30153. : TSP_WorkManagement_OMRefreshResultArray;
  30154. function ListAll(const AQuery: TQueryParams)
  30155. : TSP_WorkManagement_OMRefreshResultArray;
  30156. end;
  30157. { --------------------------------------------------------------------
  30158. SP: SortableSessionManagers
  30159. --------------------------------------------------------------------}
  30160. TSPSortableSessionManagersEntitySet = Class(TODataEntitySet)
  30161. public
  30162. class function ObjectRestKind : String; Override;
  30163. class function EntityClass : TODataEntityClass; Override;
  30164. function Get(const Id4a81de82eeb94d6080ea5bf63e27023a: string)
  30165. : TSP_WorkManagement_OMSortableSessionManager;
  30166. function List(const AQuery: String; out NextLink: String)
  30167. : TSP_WorkManagement_OMSortableSessionManagerArray;
  30168. function List(const AQuery: TQueryParams; out NextLink: String)
  30169. : TSP_WorkManagement_OMSortableSessionManagerArray;
  30170. function ListAll(const AQuery: String)
  30171. : TSP_WorkManagement_OMSortableSessionManagerArray;
  30172. function ListAll(const AQuery: TQueryParams)
  30173. : TSP_WorkManagement_OMSortableSessionManagerArray;
  30174. end;
  30175. { --------------------------------------------------------------------
  30176. SP: SortableTaskQuerys
  30177. --------------------------------------------------------------------}
  30178. TSPSortableTaskQuerysEntitySet = Class(TODataEntitySet)
  30179. public
  30180. class function ObjectRestKind : String; Override;
  30181. class function EntityClass : TODataEntityClass; Override;
  30182. function Get(const Id4a81de82eeb94d6080ea5bf63e27023a: string)
  30183. : TSP_WorkManagement_OMSortableTaskQuery;
  30184. function List(const AQuery: String; out NextLink: String)
  30185. : TSP_WorkManagement_OMSortableTaskQueryArray;
  30186. function List(const AQuery: TQueryParams; out NextLink: String)
  30187. : TSP_WorkManagement_OMSortableTaskQueryArray;
  30188. function ListAll(const AQuery: String)
  30189. : TSP_WorkManagement_OMSortableTaskQueryArray;
  30190. function ListAll(const AQuery: TQueryParams)
  30191. : TSP_WorkManagement_OMSortableTaskQueryArray;
  30192. end;
  30193. { --------------------------------------------------------------------
  30194. SP: Tasks1
  30195. --------------------------------------------------------------------}
  30196. TSPTasks1EntitySet = Class(TODataEntitySet)
  30197. public
  30198. class function ObjectRestKind : String; Override;
  30199. class function EntityClass : TODataEntityClass; Override;
  30200. function Get(const Id: TInt32) : TSP_WorkManagement_OMTask;
  30201. function List(const AQuery: String; out NextLink: String)
  30202. : TSP_WorkManagement_OMTaskArray;
  30203. function List(const AQuery: TQueryParams; out NextLink: String)
  30204. : TSP_WorkManagement_OMTaskArray;
  30205. function ListAll(const AQuery: String) : TSP_WorkManagement_OMTaskArray;
  30206. function ListAll(const AQuery: TQueryParams)
  30207. : TSP_WorkManagement_OMTaskArray;
  30208. end;
  30209. { --------------------------------------------------------------------
  30210. SP: TaskFilters
  30211. --------------------------------------------------------------------}
  30212. TSPTaskFiltersEntitySet = Class(TODataEntitySet)
  30213. public
  30214. class function ObjectRestKind : String; Override;
  30215. class function EntityClass : TODataEntityClass; Override;
  30216. function Get(const CriterionConcatType: TInt32)
  30217. : TSP_WorkManagement_OMTaskFilter;
  30218. function List(const AQuery: String; out NextLink: String)
  30219. : TSP_WorkManagement_OMTaskFilterArray;
  30220. function List(const AQuery: TQueryParams; out NextLink: String)
  30221. : TSP_WorkManagement_OMTaskFilterArray;
  30222. function ListAll(const AQuery: String)
  30223. : TSP_WorkManagement_OMTaskFilterArray;
  30224. function ListAll(const AQuery: TQueryParams)
  30225. : TSP_WorkManagement_OMTaskFilterArray;
  30226. end;
  30227. { --------------------------------------------------------------------
  30228. SP: TaskQuerys
  30229. --------------------------------------------------------------------}
  30230. TSPTaskQuerysEntitySet = Class(TODataEntitySet)
  30231. public
  30232. class function ObjectRestKind : String; Override;
  30233. class function EntityClass : TODataEntityClass; Override;
  30234. function Get(const KeywordFilter: string)
  30235. : TSP_WorkManagement_OMTaskQuery;
  30236. function List(const AQuery: String; out NextLink: String)
  30237. : TSP_WorkManagement_OMTaskQueryArray;
  30238. function List(const AQuery: TQueryParams; out NextLink: String)
  30239. : TSP_WorkManagement_OMTaskQueryArray;
  30240. function ListAll(const AQuery: String)
  30241. : TSP_WorkManagement_OMTaskQueryArray;
  30242. function ListAll(const AQuery: TQueryParams)
  30243. : TSP_WorkManagement_OMTaskQueryArray;
  30244. end;
  30245. { --------------------------------------------------------------------
  30246. SP: TaskQueryByLocationResults
  30247. --------------------------------------------------------------------}
  30248. TSPTaskQueryByLocationResultsEntitySet = Class(TODataEntitySet)
  30249. public
  30250. class function ObjectRestKind : String; Override;
  30251. class function EntityClass : TODataEntityClass; Override;
  30252. function Get(const Error: TInt32)
  30253. : TSP_WorkManagement_OMTaskQueryByLocationResult;
  30254. function List(const AQuery: String; out NextLink: String)
  30255. : TSP_WorkManagement_OMTaskQueryByLocationResultArray;
  30256. function List(const AQuery: TQueryParams; out NextLink: String)
  30257. : TSP_WorkManagement_OMTaskQueryByLocationResultArray;
  30258. function ListAll(const AQuery: String)
  30259. : TSP_WorkManagement_OMTaskQueryByLocationResultArray;
  30260. function ListAll(const AQuery: TQueryParams)
  30261. : TSP_WorkManagement_OMTaskQueryByLocationResultArray;
  30262. end;
  30263. { --------------------------------------------------------------------
  30264. SP: TaskQueryResults
  30265. --------------------------------------------------------------------}
  30266. TSPTaskQueryResultsEntitySet = Class(TODataEntitySet)
  30267. public
  30268. class function ObjectRestKind : String; Override;
  30269. class function EntityClass : TODataEntityClass; Override;
  30270. function Get(const Error: TInt32) : TSP_WorkManagement_OMTaskQueryResult;
  30271. function List(const AQuery: String; out NextLink: String)
  30272. : TSP_WorkManagement_OMTaskQueryResultArray;
  30273. function List(const AQuery: TQueryParams; out NextLink: String)
  30274. : TSP_WorkManagement_OMTaskQueryResultArray;
  30275. function ListAll(const AQuery: String)
  30276. : TSP_WorkManagement_OMTaskQueryResultArray;
  30277. function ListAll(const AQuery: TQueryParams)
  30278. : TSP_WorkManagement_OMTaskQueryResultArray;
  30279. end;
  30280. { --------------------------------------------------------------------
  30281. SP: TaskRefreshResults
  30282. --------------------------------------------------------------------}
  30283. TSPTaskRefreshResultsEntitySet = Class(TODataEntitySet)
  30284. public
  30285. class function ObjectRestKind : String; Override;
  30286. class function EntityClass : TODataEntityClass; Override;
  30287. function Get(const ErrorCorrelationId: string)
  30288. : TSP_WorkManagement_OMTaskRefreshResult;
  30289. function List(const AQuery: String; out NextLink: String)
  30290. : TSP_WorkManagement_OMTaskRefreshResultArray;
  30291. function List(const AQuery: TQueryParams; out NextLink: String)
  30292. : TSP_WorkManagement_OMTaskRefreshResultArray;
  30293. function ListAll(const AQuery: String)
  30294. : TSP_WorkManagement_OMTaskRefreshResultArray;
  30295. function ListAll(const AQuery: TQueryParams)
  30296. : TSP_WorkManagement_OMTaskRefreshResultArray;
  30297. end;
  30298. { --------------------------------------------------------------------
  30299. SP: TaskWriteResults
  30300. --------------------------------------------------------------------}
  30301. TSPTaskWriteResultsEntitySet = Class(TODataEntitySet)
  30302. public
  30303. class function ObjectRestKind : String; Override;
  30304. class function EntityClass : TODataEntityClass; Override;
  30305. function Get(const Error: TInt32) : TSP_WorkManagement_OMTaskWriteResult;
  30306. function List(const AQuery: String; out NextLink: String)
  30307. : TSP_WorkManagement_OMTaskWriteResultArray;
  30308. function List(const AQuery: TQueryParams; out NextLink: String)
  30309. : TSP_WorkManagement_OMTaskWriteResultArray;
  30310. function ListAll(const AQuery: String)
  30311. : TSP_WorkManagement_OMTaskWriteResultArray;
  30312. function ListAll(const AQuery: TQueryParams)
  30313. : TSP_WorkManagement_OMTaskWriteResultArray;
  30314. end;
  30315. { --------------------------------------------------------------------
  30316. SP: UserOrderedSessionManagers
  30317. --------------------------------------------------------------------}
  30318. TSPUserOrderedSessionManagersEntitySet = Class(TODataEntitySet)
  30319. public
  30320. class function ObjectRestKind : String; Override;
  30321. class function EntityClass : TODataEntityClass; Override;
  30322. function Get(const Id4a81de82eeb94d6080ea5bf63e27023a: string)
  30323. : TSP_WorkManagement_OMUserOrderedSessionManager;
  30324. function List(const AQuery: String; out NextLink: String)
  30325. : TSP_WorkManagement_OMUserOrderedSessionManagerArray;
  30326. function List(const AQuery: TQueryParams; out NextLink: String)
  30327. : TSP_WorkManagement_OMUserOrderedSessionManagerArray;
  30328. function ListAll(const AQuery: String)
  30329. : TSP_WorkManagement_OMUserOrderedSessionManagerArray;
  30330. function ListAll(const AQuery: TQueryParams)
  30331. : TSP_WorkManagement_OMUserOrderedSessionManagerArray;
  30332. end;
  30333. { --------------------------------------------------------------------
  30334. SP: UserSettingss
  30335. --------------------------------------------------------------------}
  30336. TSPUserSettingssEntitySet = Class(TODataEntitySet)
  30337. public
  30338. class function ObjectRestKind : String; Override;
  30339. class function EntityClass : TODataEntityClass; Override;
  30340. function Get(const DaysAfterCurrentDateTimelineEnds: TInt32)
  30341. : TSP_WorkManagement_OMUserSettings;
  30342. function List(const AQuery: String; out NextLink: String)
  30343. : TSP_WorkManagement_OMUserSettingsArray;
  30344. function List(const AQuery: TQueryParams; out NextLink: String)
  30345. : TSP_WorkManagement_OMUserSettingsArray;
  30346. function ListAll(const AQuery: String)
  30347. : TSP_WorkManagement_OMUserSettingsArray;
  30348. function ListAll(const AQuery: TQueryParams)
  30349. : TSP_WorkManagement_OMUserSettingsArray;
  30350. end;
  30351. { --------------------------------------------------------------------
  30352. SP: UserSettingsManagers
  30353. --------------------------------------------------------------------}
  30354. TSPUserSettingsManagersEntitySet = Class(TODataEntitySet)
  30355. public
  30356. class function ObjectRestKind : String; Override;
  30357. class function EntityClass : TODataEntityClass; Override;
  30358. function Get(const Id4a81de82eeb94d6080ea5bf63e27023a: string)
  30359. : TSP_WorkManagement_OMUserSettingsManager;
  30360. function List(const AQuery: String; out NextLink: String)
  30361. : TSP_WorkManagement_OMUserSettingsManagerArray;
  30362. function List(const AQuery: TQueryParams; out NextLink: String)
  30363. : TSP_WorkManagement_OMUserSettingsManagerArray;
  30364. function ListAll(const AQuery: String)
  30365. : TSP_WorkManagement_OMUserSettingsManagerArray;
  30366. function ListAll(const AQuery: TQueryParams)
  30367. : TSP_WorkManagement_OMUserSettingsManagerArray;
  30368. end;
  30369. { --------------------------------------------------------------------
  30370. SP: ViewSelectionInfos
  30371. --------------------------------------------------------------------}
  30372. TSPViewSelectionInfosEntitySet = Class(TODataEntitySet)
  30373. public
  30374. class function ObjectRestKind : String; Override;
  30375. class function EntityClass : TODataEntityClass; Override;
  30376. function Get(const Id: TInt32) : TSP_WorkManagement_OMViewSelectionInfo;
  30377. function List(const AQuery: String; out NextLink: String)
  30378. : TSP_WorkManagement_OMViewSelectionInfoArray;
  30379. function List(const AQuery: TQueryParams; out NextLink: String)
  30380. : TSP_WorkManagement_OMViewSelectionInfoArray;
  30381. function ListAll(const AQuery: String)
  30382. : TSP_WorkManagement_OMViewSelectionInfoArray;
  30383. function ListAll(const AQuery: TQueryParams)
  30384. : TSP_WorkManagement_OMViewSelectionInfoArray;
  30385. end;
  30386. { --------------------------------------------------------------------
  30387. SP: SPOIdentityHelpers
  30388. --------------------------------------------------------------------}
  30389. TSPSPOIdentityHelpersEntitySet = Class(TODataEntitySet)
  30390. public
  30391. class function ObjectRestKind : String; Override;
  30392. class function EntityClass : TODataEntityClass; Override;
  30393. function Get(const Id4a81de82eeb94d6080ea5bf63e27023a: string)
  30394. : TSPO_IdentitySPOIdentityHelper;
  30395. function List(const AQuery: String; out NextLink: String)
  30396. : TSPO_IdentitySPOIdentityHelperArray;
  30397. function List(const AQuery: TQueryParams; out NextLink: String)
  30398. : TSPO_IdentitySPOIdentityHelperArray;
  30399. function ListAll(const AQuery: String)
  30400. : TSPO_IdentitySPOIdentityHelperArray;
  30401. function ListAll(const AQuery: TQueryParams)
  30402. : TSPO_IdentitySPOIdentityHelperArray;
  30403. end;
  30404. { --------------------------------------------------------------------
  30405. SP: AppPrincipalIdentityProviders
  30406. --------------------------------------------------------------------}
  30407. TSPAppPrincipalIdentityProvidersEntitySet = Class(TODataEntitySet)
  30408. public
  30409. class function ObjectRestKind : String; Override;
  30410. class function EntityClass : TODataEntityClass; Override;
  30411. function Get(const Id4a81de82eeb94d6080ea5bf63e27023a: string)
  30412. : TSPAppPrincipalIdentityProvider;
  30413. function List(const AQuery: String; out NextLink: String)
  30414. : TSPAppPrincipalIdentityProviderArray;
  30415. function List(const AQuery: TQueryParams; out NextLink: String)
  30416. : TSPAppPrincipalIdentityProviderArray;
  30417. function ListAll(const AQuery: String)
  30418. : TSPAppPrincipalIdentityProviderArray;
  30419. function ListAll(const AQuery: TQueryParams)
  30420. : TSPAppPrincipalIdentityProviderArray;
  30421. end;
  30422. { --------------------------------------------------------------------
  30423. SP: AppPrincipalManagers
  30424. --------------------------------------------------------------------}
  30425. TSPAppPrincipalManagersEntitySet = Class(TODataEntitySet)
  30426. public
  30427. class function ObjectRestKind : String; Override;
  30428. class function EntityClass : TODataEntityClass; Override;
  30429. function Get(const Id4a81de82eeb94d6080ea5bf63e27023a: string)
  30430. : TSPAppPrincipalManager;
  30431. function List(const AQuery: String; out NextLink: String)
  30432. : TSPAppPrincipalManagerArray;
  30433. function List(const AQuery: TQueryParams; out NextLink: String)
  30434. : TSPAppPrincipalManagerArray;
  30435. function ListAll(const AQuery: String) : TSPAppPrincipalManagerArray;
  30436. function ListAll(const AQuery: TQueryParams)
  30437. : TSPAppPrincipalManagerArray;
  30438. end;
  30439. { --------------------------------------------------------------------
  30440. SP: AppPrincipalCredentials
  30441. --------------------------------------------------------------------}
  30442. TSPAppPrincipalCredentialsEntitySet = Class(TODataEntitySet)
  30443. public
  30444. class function ObjectRestKind : String; Override;
  30445. class function EntityClass : TODataEntityClass; Override;
  30446. function Get(const Id4a81de82eeb94d6080ea5bf63e27023a: string)
  30447. : TSPAppPrincipalCredential;
  30448. function List(const AQuery: String; out NextLink: String)
  30449. : TSPAppPrincipalCredentialArray;
  30450. function List(const AQuery: TQueryParams; out NextLink: String)
  30451. : TSPAppPrincipalCredentialArray;
  30452. function ListAll(const AQuery: String) : TSPAppPrincipalCredentialArray;
  30453. function ListAll(const AQuery: TQueryParams)
  30454. : TSPAppPrincipalCredentialArray;
  30455. end;
  30456. { --------------------------------------------------------------------
  30457. SP: AppPrincipalNames
  30458. --------------------------------------------------------------------}
  30459. TSPAppPrincipalNamesEntitySet = Class(TODataEntitySet)
  30460. public
  30461. class function ObjectRestKind : String; Override;
  30462. class function EntityClass : TODataEntityClass; Override;
  30463. function Get(const Id4a81de82eeb94d6080ea5bf63e27023a: string)
  30464. : TSPAppPrincipalName;
  30465. function List(const AQuery: String; out NextLink: String)
  30466. : TSPAppPrincipalNameArray;
  30467. function List(const AQuery: TQueryParams; out NextLink: String)
  30468. : TSPAppPrincipalNameArray;
  30469. function ListAll(const AQuery: String) : TSPAppPrincipalNameArray;
  30470. function ListAll(const AQuery: TQueryParams) : TSPAppPrincipalNameArray;
  30471. end;
  30472. { --------------------------------------------------------------------
  30473. SP: DraftProjectResources1
  30474. --------------------------------------------------------------------}
  30475. TSPDraftProjectResources1EntitySet = Class(TODataEntitySet)
  30476. public
  30477. class function ObjectRestKind : String; Override;
  30478. class function EntityClass : TODataEntityClass; Override;
  30479. function Get(const Id: TGUIDString) : TPSDraftProjectResource;
  30480. function List(const AQuery: String; out NextLink: String)
  30481. : TPSDraftProjectResourceArray;
  30482. function List(const AQuery: TQueryParams; out NextLink: String)
  30483. : TPSDraftProjectResourceArray;
  30484. function ListAll(const AQuery: String) : TPSDraftProjectResourceArray;
  30485. function ListAll(const AQuery: TQueryParams)
  30486. : TPSDraftProjectResourceArray;
  30487. end;
  30488. { --------------------------------------------------------------------
  30489. SP.Data: UserInfoItemImplicitEntitySet
  30490. --------------------------------------------------------------------}
  30491. TSP_DataUserInfoItemImplicitEntitySet = Class(TODataEntitySet)
  30492. public
  30493. class function ObjectRestKind : String; Override;
  30494. class function EntityClass : TODataEntityClass; Override;
  30495. function Get(const HasUniqueRoleAssignments: boolean)
  30496. : TSP_DataUserInfoItem;
  30497. end;
  30498. { --------------------------------------------------------------------
  30499. SP.Data: TaxonomyHiddenListListItemImplicitEntitySet
  30500. --------------------------------------------------------------------}
  30501. TSP_DataTaxonomyHiddenListListItemImplicitEntitySet = Class(TODataEntitySet)
  30502. public
  30503. class function ObjectRestKind : String; Override;
  30504. class function EntityClass : TODataEntityClass; Override;
  30505. function Get(const HasUniqueRoleAssignments: boolean)
  30506. : TSP_DataTaxonomyHiddenListListItem;
  30507. end;
  30508. { --------------------------------------------------------------------
  30509. SP: SP
  30510. --------------------------------------------------------------------}
  30511. TSPService = Class(TODataService)
  30512. private
  30513. FApiData : TSPApiData;
  30514. function GetApiData : TSPApiData;
  30515. public
  30516. class function ObjectRestKind : String; Override;
  30517. function CreateNewApiData : TSPApiData;
  30518. published
  30519. Property ApiData : TSPApiData read GetApiData;
  30520. end;
  30521. implementation
  30522. { --------------------------------------------------------------------
  30523. TSPKeyValue
  30524. --------------------------------------------------------------------}
  30525. Class Function TSPKeyValue.ObjectRestKind : String;
  30526. begin
  30527. Result:='KeyValue';
  30528. end;
  30529. Procedure TSPKeyValue.SetKey(AIndex: Integer; const AValue: string);
  30530. begin
  30531. If (FKey=AValue) then exit;
  30532. FKey:=AValue;
  30533. MarkPropertyChanged(AIndex);
  30534. end;
  30535. Procedure TSPKeyValue.SetValue(AIndex: Integer; const AValue: string);
  30536. begin
  30537. If (FValue=AValue) then exit;
  30538. FValue:=AValue;
  30539. MarkPropertyChanged(AIndex);
  30540. end;
  30541. Procedure TSPKeyValue.SetValueType(AIndex: Integer; const AValue: string);
  30542. begin
  30543. If (FValueType=AValue) then exit;
  30544. FValueType:=AValue;
  30545. MarkPropertyChanged(AIndex);
  30546. end;
  30547. { --------------------------------------------------------------------
  30548. TSPSimpleDataRow
  30549. --------------------------------------------------------------------}
  30550. Class Function TSPSimpleDataRow.ObjectRestKind : String;
  30551. begin
  30552. Result:='SimpleDataRow';
  30553. end;
  30554. Procedure TSPSimpleDataRow.SetCells(AIndex: Integer; const AValue: TSPKeyValueArray);
  30555. begin
  30556. If (FCells=AValue) then exit;
  30557. FCells:=AValue;
  30558. MarkPropertyChanged(AIndex);
  30559. end;
  30560. {$IFDEF VER2_6}
  30561. Procedure TSPSimpleDataRow.SetArrayLength(const AName: String; ALength: Longint);
  30562. begin
  30563. Case aName of
  30564. 'cells' : SetLength(FCells,aLength);
  30565. else
  30566. inherited SetArrayLength(aName,ALength);
  30567. end;
  30568. end;
  30569. {$ENDIF VER2_6}
  30570. { --------------------------------------------------------------------
  30571. TSPSimpleDataTable
  30572. --------------------------------------------------------------------}
  30573. Class Function TSPSimpleDataTable.ObjectRestKind : String;
  30574. begin
  30575. Result:='SimpleDataTable';
  30576. end;
  30577. Procedure TSPSimpleDataTable.SetRows(AIndex: Integer; const AValue: TSPSimpleDataRowArray);
  30578. begin
  30579. If (FRows=AValue) then exit;
  30580. FRows:=AValue;
  30581. MarkPropertyChanged(AIndex);
  30582. end;
  30583. {$IFDEF VER2_6}
  30584. Procedure TSPSimpleDataTable.SetArrayLength(const AName: String; ALength: Longint);
  30585. begin
  30586. Case aName of
  30587. 'rows' : SetLength(FRows,aLength);
  30588. else
  30589. inherited SetArrayLength(aName,ALength);
  30590. end;
  30591. end;
  30592. {$ENDIF VER2_6}
  30593. { --------------------------------------------------------------------
  30594. TSPMethodInformation
  30595. --------------------------------------------------------------------}
  30596. Class Function TSPMethodInformation.ObjectRestKind : String;
  30597. begin
  30598. Result:='MethodInformation';
  30599. end;
  30600. Procedure TSPMethodInformation.SetIsBeta(AIndex: Integer; const AValue: boolean);
  30601. begin
  30602. If (FIsBeta=AValue) then exit;
  30603. FIsBeta:=AValue;
  30604. MarkPropertyChanged(AIndex);
  30605. end;
  30606. Procedure TSPMethodInformation.SetName(AIndex: Integer; const AValue: string);
  30607. begin
  30608. If (FName=AValue) then exit;
  30609. FName:=AValue;
  30610. MarkPropertyChanged(AIndex);
  30611. end;
  30612. Procedure TSPMethodInformation.SetParameters(AIndex: Integer; const AValue: TSPParameterInformationArray);
  30613. begin
  30614. If (FParameters=AValue) then exit;
  30615. FParameters:=AValue;
  30616. MarkPropertyChanged(AIndex);
  30617. end;
  30618. Procedure TSPMethodInformation.SetReturnTypeFullName(AIndex: Integer; const AValue: string);
  30619. begin
  30620. If (FReturnTypeFullName=AValue) then exit;
  30621. FReturnTypeFullName:=AValue;
  30622. MarkPropertyChanged(AIndex);
  30623. end;
  30624. {$IFDEF VER2_6}
  30625. Procedure TSPMethodInformation.SetArrayLength(const AName: String; ALength: Longint);
  30626. begin
  30627. Case aName of
  30628. 'parameters' : SetLength(FParameters,aLength);
  30629. else
  30630. inherited SetArrayLength(aName,ALength);
  30631. end;
  30632. end;
  30633. {$ENDIF VER2_6}
  30634. { --------------------------------------------------------------------
  30635. TSPParameterInformation
  30636. --------------------------------------------------------------------}
  30637. Class Function TSPParameterInformation.ObjectRestKind : String;
  30638. begin
  30639. Result:='ParameterInformation';
  30640. end;
  30641. Procedure TSPParameterInformation.SetName(AIndex: Integer; const AValue: string);
  30642. begin
  30643. If (FName=AValue) then exit;
  30644. FName:=AValue;
  30645. MarkPropertyChanged(AIndex);
  30646. end;
  30647. Procedure TSPParameterInformation.SetParameterTypeFullName(AIndex: Integer; const AValue: string);
  30648. begin
  30649. If (FParameterTypeFullName=AValue) then exit;
  30650. FParameterTypeFullName:=AValue;
  30651. MarkPropertyChanged(AIndex);
  30652. end;
  30653. { --------------------------------------------------------------------
  30654. TSPPropertyInformation
  30655. --------------------------------------------------------------------}
  30656. Class Function TSPPropertyInformation.ObjectRestKind : String;
  30657. begin
  30658. Result:='PropertyInformation';
  30659. end;
  30660. Procedure TSPPropertyInformation.SetExcludeFromDefaultRetrieval(AIndex: Integer; const AValue: boolean);
  30661. begin
  30662. If (FExcludeFromDefaultRetrieval=AValue) then exit;
  30663. FExcludeFromDefaultRetrieval:=AValue;
  30664. MarkPropertyChanged(AIndex);
  30665. end;
  30666. Procedure TSPPropertyInformation.SetIsBeta(AIndex: Integer; const AValue: boolean);
  30667. begin
  30668. If (FIsBeta=AValue) then exit;
  30669. FIsBeta:=AValue;
  30670. MarkPropertyChanged(AIndex);
  30671. end;
  30672. Procedure TSPPropertyInformation.SetName(AIndex: Integer; const AValue: string);
  30673. begin
  30674. If (FName=AValue) then exit;
  30675. FName:=AValue;
  30676. MarkPropertyChanged(AIndex);
  30677. end;
  30678. Procedure TSPPropertyInformation.SetPropertyTypeFullName(AIndex: Integer; const AValue: string);
  30679. begin
  30680. If (FPropertyTypeFullName=AValue) then exit;
  30681. FPropertyTypeFullName:=AValue;
  30682. MarkPropertyChanged(AIndex);
  30683. end;
  30684. Procedure TSPPropertyInformation.SetReadOnly(AIndex: Integer; const AValue: boolean);
  30685. begin
  30686. If (FReadOnly=AValue) then exit;
  30687. FReadOnly:=AValue;
  30688. MarkPropertyChanged(AIndex);
  30689. end;
  30690. { --------------------------------------------------------------------
  30691. TSPContentTypeId
  30692. --------------------------------------------------------------------}
  30693. Class Function TSPContentTypeId.ObjectRestKind : String;
  30694. begin
  30695. Result:='ContentTypeId';
  30696. end;
  30697. Procedure TSPContentTypeId.SetStringValue(AIndex: Integer; const AValue: string);
  30698. begin
  30699. If (FStringValue=AValue) then exit;
  30700. FStringValue:=AValue;
  30701. MarkPropertyChanged(AIndex);
  30702. end;
  30703. { --------------------------------------------------------------------
  30704. TSPFieldLookupValue
  30705. --------------------------------------------------------------------}
  30706. Class Function TSPFieldLookupValue.ObjectRestKind : String;
  30707. begin
  30708. Result:='FieldLookupValue';
  30709. end;
  30710. Procedure TSPFieldLookupValue.SetLookupId(AIndex: Integer; const AValue: TInt32);
  30711. begin
  30712. If (FLookupId=AValue) then exit;
  30713. FLookupId:=AValue;
  30714. MarkPropertyChanged(AIndex);
  30715. end;
  30716. Procedure TSPFieldLookupValue.SetLookupValue(AIndex: Integer; const AValue: string);
  30717. begin
  30718. If (FLookupValue=AValue) then exit;
  30719. FLookupValue:=AValue;
  30720. MarkPropertyChanged(AIndex);
  30721. end;
  30722. { --------------------------------------------------------------------
  30723. TSPFieldUserValue
  30724. --------------------------------------------------------------------}
  30725. Class Function TSPFieldUserValue.ObjectRestKind : String;
  30726. begin
  30727. Result:='FieldUserValue';
  30728. end;
  30729. Procedure TSPFieldUserValue.SetEmail(AIndex: Integer; const AValue: string);
  30730. begin
  30731. If (FEmail=AValue) then exit;
  30732. FEmail:=AValue;
  30733. MarkPropertyChanged(AIndex);
  30734. end;
  30735. { --------------------------------------------------------------------
  30736. TSPCreatableItemInfoCollection
  30737. --------------------------------------------------------------------}
  30738. Class Function TSPCreatableItemInfoCollection.ObjectRestKind : String;
  30739. begin
  30740. Result:='CreatableItemInfoCollection';
  30741. end;
  30742. Procedure TSPCreatableItemInfoCollection.SetItems(AIndex: Integer; const AValue: TSPCreatableItemInfoArray);
  30743. begin
  30744. If (FItems=AValue) then exit;
  30745. FItems:=AValue;
  30746. MarkPropertyChanged(AIndex);
  30747. end;
  30748. {$IFDEF VER2_6}
  30749. Procedure TSPCreatableItemInfoCollection.SetArrayLength(const AName: String; ALength: Longint);
  30750. begin
  30751. Case aName of
  30752. 'items' : SetLength(FItems,aLength);
  30753. else
  30754. inherited SetArrayLength(aName,ALength);
  30755. end;
  30756. end;
  30757. {$ENDIF VER2_6}
  30758. { --------------------------------------------------------------------
  30759. TSPCreatableItemInfo
  30760. --------------------------------------------------------------------}
  30761. Class Function TSPCreatableItemInfo.ObjectRestKind : String;
  30762. begin
  30763. Result:='CreatableItemInfo';
  30764. end;
  30765. Procedure TSPCreatableItemInfo.SetDocumentTemplate(AIndex: Integer; const AValue: TInt32);
  30766. begin
  30767. If (FDocumentTemplate=AValue) then exit;
  30768. FDocumentTemplate:=AValue;
  30769. MarkPropertyChanged(AIndex);
  30770. end;
  30771. Procedure TSPCreatableItemInfo.SetFileExtension(AIndex: Integer; const AValue: string);
  30772. begin
  30773. If (FFileExtension=AValue) then exit;
  30774. FFileExtension:=AValue;
  30775. MarkPropertyChanged(AIndex);
  30776. end;
  30777. Procedure TSPCreatableItemInfo.SetItemType(AIndex: Integer; const AValue: string);
  30778. begin
  30779. If (FItemType=AValue) then exit;
  30780. FItemType:=AValue;
  30781. MarkPropertyChanged(AIndex);
  30782. end;
  30783. { --------------------------------------------------------------------
  30784. TSPMenuNode
  30785. --------------------------------------------------------------------}
  30786. Class Function TSPMenuNode.ObjectRestKind : String;
  30787. begin
  30788. Result:='MenuNode';
  30789. end;
  30790. Procedure TSPMenuNode.SetCustomProperties(AIndex: Integer; const AValue: TSPKeyValueArray);
  30791. begin
  30792. If (FCustomProperties=AValue) then exit;
  30793. FCustomProperties:=AValue;
  30794. MarkPropertyChanged(AIndex);
  30795. end;
  30796. Procedure TSPMenuNode.SetFriendlyUrlSegment(AIndex: Integer; const AValue: string);
  30797. begin
  30798. If (FFriendlyUrlSegment=AValue) then exit;
  30799. FFriendlyUrlSegment:=AValue;
  30800. MarkPropertyChanged(AIndex);
  30801. end;
  30802. Procedure TSPMenuNode.SetIsHidden(AIndex: Integer; const AValue: boolean);
  30803. begin
  30804. If (FIsHidden=AValue) then exit;
  30805. FIsHidden:=AValue;
  30806. MarkPropertyChanged(AIndex);
  30807. end;
  30808. Procedure TSPMenuNode.SetKey(AIndex: Integer; const AValue: string);
  30809. begin
  30810. If (FKey=AValue) then exit;
  30811. FKey:=AValue;
  30812. MarkPropertyChanged(AIndex);
  30813. end;
  30814. Procedure TSPMenuNode.SetNodes(AIndex: Integer; const AValue: TSPMenuNodeArray);
  30815. begin
  30816. If (FNodes=AValue) then exit;
  30817. FNodes:=AValue;
  30818. MarkPropertyChanged(AIndex);
  30819. end;
  30820. Procedure TSPMenuNode.SetNodeType(AIndex: Integer; const AValue: TInt32);
  30821. begin
  30822. If (FNodeType=AValue) then exit;
  30823. FNodeType:=AValue;
  30824. MarkPropertyChanged(AIndex);
  30825. end;
  30826. Procedure TSPMenuNode.SetSimpleUrl(AIndex: Integer; const AValue: string);
  30827. begin
  30828. If (FSimpleUrl=AValue) then exit;
  30829. FSimpleUrl:=AValue;
  30830. MarkPropertyChanged(AIndex);
  30831. end;
  30832. Procedure TSPMenuNode.SetTitle(AIndex: Integer; const AValue: string);
  30833. begin
  30834. If (FTitle=AValue) then exit;
  30835. FTitle:=AValue;
  30836. MarkPropertyChanged(AIndex);
  30837. end;
  30838. {$IFDEF VER2_6}
  30839. Procedure TSPMenuNode.SetArrayLength(const AName: String; ALength: Longint);
  30840. begin
  30841. Case aName of
  30842. 'customproperties' : SetLength(FCustomProperties,aLength);
  30843. 'nodes' : SetLength(FNodes,aLength);
  30844. else
  30845. inherited SetArrayLength(aName,ALength);
  30846. end;
  30847. end;
  30848. {$ENDIF VER2_6}
  30849. { --------------------------------------------------------------------
  30850. TSPMenuState
  30851. --------------------------------------------------------------------}
  30852. Class Function TSPMenuState.ObjectRestKind : String;
  30853. begin
  30854. Result:='MenuState';
  30855. end;
  30856. Procedure TSPMenuState.SetFriendlyUrlPrefix(AIndex: Integer; const AValue: string);
  30857. begin
  30858. If (FFriendlyUrlPrefix=AValue) then exit;
  30859. FFriendlyUrlPrefix:=AValue;
  30860. MarkPropertyChanged(AIndex);
  30861. end;
  30862. Procedure TSPMenuState.SetNodes(AIndex: Integer; const AValue: TSPMenuNodeArray);
  30863. begin
  30864. If (FNodes=AValue) then exit;
  30865. FNodes:=AValue;
  30866. MarkPropertyChanged(AIndex);
  30867. end;
  30868. Procedure TSPMenuState.SetSimpleUrl(AIndex: Integer; const AValue: string);
  30869. begin
  30870. If (FSimpleUrl=AValue) then exit;
  30871. FSimpleUrl:=AValue;
  30872. MarkPropertyChanged(AIndex);
  30873. end;
  30874. Procedure TSPMenuState.SetSPSitePrefix(AIndex: Integer; const AValue: string);
  30875. begin
  30876. If (FSPSitePrefix=AValue) then exit;
  30877. FSPSitePrefix:=AValue;
  30878. MarkPropertyChanged(AIndex);
  30879. end;
  30880. Procedure TSPMenuState.SetSPWebPrefix(AIndex: Integer; const AValue: string);
  30881. begin
  30882. If (FSPWebPrefix=AValue) then exit;
  30883. FSPWebPrefix:=AValue;
  30884. MarkPropertyChanged(AIndex);
  30885. end;
  30886. Procedure TSPMenuState.SetStartingNodeKey(AIndex: Integer; const AValue: string);
  30887. begin
  30888. If (FStartingNodeKey=AValue) then exit;
  30889. FStartingNodeKey:=AValue;
  30890. MarkPropertyChanged(AIndex);
  30891. end;
  30892. Procedure TSPMenuState.SetStartingNodeTitle(AIndex: Integer; const AValue: string);
  30893. begin
  30894. If (FStartingNodeTitle=AValue) then exit;
  30895. FStartingNodeTitle:=AValue;
  30896. MarkPropertyChanged(AIndex);
  30897. end;
  30898. Procedure TSPMenuState.SetVersion(AIndex: Integer; const AValue: string);
  30899. begin
  30900. If (FVersion=AValue) then exit;
  30901. FVersion:=AValue;
  30902. MarkPropertyChanged(AIndex);
  30903. end;
  30904. {$IFDEF VER2_6}
  30905. Procedure TSPMenuState.SetArrayLength(const AName: String; ALength: Longint);
  30906. begin
  30907. Case aName of
  30908. 'nodes' : SetLength(FNodes,aLength);
  30909. else
  30910. inherited SetArrayLength(aName,ALength);
  30911. end;
  30912. end;
  30913. {$ENDIF VER2_6}
  30914. { --------------------------------------------------------------------
  30915. TSPNavigationNodeCreationInformation
  30916. --------------------------------------------------------------------}
  30917. Class Function TSPNavigationNodeCreationInformation.ObjectRestKind : String;
  30918. begin
  30919. Result:='NavigationNodeCreationInformation';
  30920. end;
  30921. Procedure TSPNavigationNodeCreationInformation.SetAsLastNode(AIndex: Integer; const AValue: boolean);
  30922. begin
  30923. If (FAsLastNode=AValue) then exit;
  30924. FAsLastNode:=AValue;
  30925. MarkPropertyChanged(AIndex);
  30926. end;
  30927. Procedure TSPNavigationNodeCreationInformation.SetIsExternal(AIndex: Integer; const AValue: boolean);
  30928. begin
  30929. If (FIsExternal=AValue) then exit;
  30930. FIsExternal:=AValue;
  30931. MarkPropertyChanged(AIndex);
  30932. end;
  30933. Procedure TSPNavigationNodeCreationInformation.SetTitle(AIndex: Integer; const AValue: string);
  30934. begin
  30935. If (FTitle=AValue) then exit;
  30936. FTitle:=AValue;
  30937. MarkPropertyChanged(AIndex);
  30938. end;
  30939. Procedure TSPNavigationNodeCreationInformation.SetUrl(AIndex: Integer; const AValue: string);
  30940. begin
  30941. If (FUrl=AValue) then exit;
  30942. FUrl:=AValue;
  30943. MarkPropertyChanged(AIndex);
  30944. end;
  30945. { --------------------------------------------------------------------
  30946. TSPRelatedItem
  30947. --------------------------------------------------------------------}
  30948. Class Function TSPRelatedItem.ObjectRestKind : String;
  30949. begin
  30950. Result:='RelatedItem';
  30951. end;
  30952. Procedure TSPRelatedItem.SetIconUrl(AIndex: Integer; const AValue: string);
  30953. begin
  30954. If (FIconUrl=AValue) then exit;
  30955. FIconUrl:=AValue;
  30956. MarkPropertyChanged(AIndex);
  30957. end;
  30958. Procedure TSPRelatedItem.SetItemId(AIndex: Integer; const AValue: TInt32);
  30959. begin
  30960. If (FItemId=AValue) then exit;
  30961. FItemId:=AValue;
  30962. MarkPropertyChanged(AIndex);
  30963. end;
  30964. Procedure TSPRelatedItem.SetListId(AIndex: Integer; const AValue: string);
  30965. begin
  30966. If (FListId=AValue) then exit;
  30967. FListId:=AValue;
  30968. MarkPropertyChanged(AIndex);
  30969. end;
  30970. Procedure TSPRelatedItem.SetTitle(AIndex: Integer; const AValue: string);
  30971. begin
  30972. If (FTitle=AValue) then exit;
  30973. FTitle:=AValue;
  30974. MarkPropertyChanged(AIndex);
  30975. end;
  30976. Procedure TSPRelatedItem.SetUrl(AIndex: Integer; const AValue: string);
  30977. begin
  30978. If (FUrl=AValue) then exit;
  30979. FUrl:=AValue;
  30980. MarkPropertyChanged(AIndex);
  30981. end;
  30982. Procedure TSPRelatedItem.SetWebId(AIndex: Integer; const AValue: string);
  30983. begin
  30984. If (FWebId=AValue) then exit;
  30985. FWebId:=AValue;
  30986. MarkPropertyChanged(AIndex);
  30987. end;
  30988. { --------------------------------------------------------------------
  30989. TSPAppLicenseCollection
  30990. --------------------------------------------------------------------}
  30991. Class Function TSPAppLicenseCollection.ObjectRestKind : String;
  30992. begin
  30993. Result:='AppLicenseCollection';
  30994. end;
  30995. Procedure TSPAppLicenseCollection.SetItems(AIndex: Integer; const AValue: TSPAppLicenseArray);
  30996. begin
  30997. If (FItems=AValue) then exit;
  30998. FItems:=AValue;
  30999. MarkPropertyChanged(AIndex);
  31000. end;
  31001. {$IFDEF VER2_6}
  31002. Procedure TSPAppLicenseCollection.SetArrayLength(const AName: String; ALength: Longint);
  31003. begin
  31004. Case aName of
  31005. 'items' : SetLength(FItems,aLength);
  31006. else
  31007. inherited SetArrayLength(aName,ALength);
  31008. end;
  31009. end;
  31010. {$ENDIF VER2_6}
  31011. { --------------------------------------------------------------------
  31012. TSPAppLicense
  31013. --------------------------------------------------------------------}
  31014. Class Function TSPAppLicense.ObjectRestKind : String;
  31015. begin
  31016. Result:='AppLicense';
  31017. end;
  31018. Procedure TSPAppLicense.SetRawXMLLicenseToken(AIndex: Integer; const AValue: string);
  31019. begin
  31020. If (FRawXMLLicenseToken=AValue) then exit;
  31021. FRawXMLLicenseToken:=AValue;
  31022. MarkPropertyChanged(AIndex);
  31023. end;
  31024. { --------------------------------------------------------------------
  31025. TSPAttachmentCreationInformation
  31026. --------------------------------------------------------------------}
  31027. Class Function TSPAttachmentCreationInformation.ObjectRestKind : String;
  31028. begin
  31029. Result:='AttachmentCreationInformation';
  31030. end;
  31031. Procedure TSPAttachmentCreationInformation.SetFileName(AIndex: Integer; const AValue: string);
  31032. begin
  31033. If (FFileName=AValue) then exit;
  31034. FFileName:=AValue;
  31035. MarkPropertyChanged(AIndex);
  31036. end;
  31037. { --------------------------------------------------------------------
  31038. TSPBasePermissions
  31039. --------------------------------------------------------------------}
  31040. Class Function TSPBasePermissions.ObjectRestKind : String;
  31041. begin
  31042. Result:='BasePermissions';
  31043. end;
  31044. Procedure TSPBasePermissions.SetHigh(AIndex: Integer; const AValue: int64);
  31045. begin
  31046. If (FHigh=AValue) then exit;
  31047. FHigh:=AValue;
  31048. MarkPropertyChanged(AIndex);
  31049. end;
  31050. Procedure TSPBasePermissions.SetLow(AIndex: Integer; const AValue: int64);
  31051. begin
  31052. If (FLow=AValue) then exit;
  31053. FLow:=AValue;
  31054. MarkPropertyChanged(AIndex);
  31055. end;
  31056. { --------------------------------------------------------------------
  31057. TSPChangeLogItemQuery
  31058. --------------------------------------------------------------------}
  31059. Class Function TSPChangeLogItemQuery.ObjectRestKind : String;
  31060. begin
  31061. Result:='ChangeLogItemQuery';
  31062. end;
  31063. Procedure TSPChangeLogItemQuery.SetChangeToken(AIndex: Integer; const AValue: string);
  31064. begin
  31065. If (FChangeToken=AValue) then exit;
  31066. FChangeToken:=AValue;
  31067. MarkPropertyChanged(AIndex);
  31068. end;
  31069. Procedure TSPChangeLogItemQuery.SetContains(AIndex: Integer; const AValue: string);
  31070. begin
  31071. If (FContains=AValue) then exit;
  31072. FContains:=AValue;
  31073. MarkPropertyChanged(AIndex);
  31074. end;
  31075. Procedure TSPChangeLogItemQuery.SetQuery(AIndex: Integer; const AValue: string);
  31076. begin
  31077. If (FQuery=AValue) then exit;
  31078. FQuery:=AValue;
  31079. MarkPropertyChanged(AIndex);
  31080. end;
  31081. Procedure TSPChangeLogItemQuery.SetQueryOptions(AIndex: Integer; const AValue: string);
  31082. begin
  31083. If (FQueryOptions=AValue) then exit;
  31084. FQueryOptions:=AValue;
  31085. MarkPropertyChanged(AIndex);
  31086. end;
  31087. Procedure TSPChangeLogItemQuery.SetRowLimit(AIndex: Integer; const AValue: string);
  31088. begin
  31089. If (FRowLimit=AValue) then exit;
  31090. FRowLimit:=AValue;
  31091. MarkPropertyChanged(AIndex);
  31092. end;
  31093. Procedure TSPChangeLogItemQuery.SetViewFields(AIndex: Integer; const AValue: string);
  31094. begin
  31095. If (FViewFields=AValue) then exit;
  31096. FViewFields:=AValue;
  31097. MarkPropertyChanged(AIndex);
  31098. end;
  31099. Procedure TSPChangeLogItemQuery.SetViewName(AIndex: Integer; const AValue: string);
  31100. begin
  31101. If (FViewName=AValue) then exit;
  31102. FViewName:=AValue;
  31103. MarkPropertyChanged(AIndex);
  31104. end;
  31105. { --------------------------------------------------------------------
  31106. TSPChangeQuery
  31107. --------------------------------------------------------------------}
  31108. Class Function TSPChangeQuery.ObjectRestKind : String;
  31109. begin
  31110. Result:='ChangeQuery';
  31111. end;
  31112. Procedure TSPChangeQuery.SetAdd(AIndex: Integer; const AValue: boolean);
  31113. begin
  31114. If (FAdd=AValue) then exit;
  31115. FAdd:=AValue;
  31116. MarkPropertyChanged(AIndex);
  31117. end;
  31118. Procedure TSPChangeQuery.SetAlert(AIndex: Integer; const AValue: boolean);
  31119. begin
  31120. If (FAlert=AValue) then exit;
  31121. FAlert:=AValue;
  31122. MarkPropertyChanged(AIndex);
  31123. end;
  31124. Procedure TSPChangeQuery.SetChangeTokenEnd(AIndex: Integer; const AValue: TSPChangeToken);
  31125. begin
  31126. If (FChangeTokenEnd=AValue) then exit;
  31127. FChangeTokenEnd:=AValue;
  31128. MarkPropertyChanged(AIndex);
  31129. end;
  31130. Procedure TSPChangeQuery.SetChangeTokenStart(AIndex: Integer; const AValue: TSPChangeToken);
  31131. begin
  31132. If (FChangeTokenStart=AValue) then exit;
  31133. FChangeTokenStart:=AValue;
  31134. MarkPropertyChanged(AIndex);
  31135. end;
  31136. Procedure TSPChangeQuery.SetContentType(AIndex: Integer; const AValue: boolean);
  31137. begin
  31138. If (FContentType=AValue) then exit;
  31139. FContentType:=AValue;
  31140. MarkPropertyChanged(AIndex);
  31141. end;
  31142. Procedure TSPChangeQuery.SetDeleteObject(AIndex: Integer; const AValue: boolean);
  31143. begin
  31144. If (FDeleteObject=AValue) then exit;
  31145. FDeleteObject:=AValue;
  31146. MarkPropertyChanged(AIndex);
  31147. end;
  31148. Procedure TSPChangeQuery.SetField(AIndex: Integer; const AValue: boolean);
  31149. begin
  31150. If (FField=AValue) then exit;
  31151. FField:=AValue;
  31152. MarkPropertyChanged(AIndex);
  31153. end;
  31154. Procedure TSPChangeQuery.Set_File(AIndex: Integer; const AValue: boolean);
  31155. begin
  31156. If (F_File=AValue) then exit;
  31157. F_File:=AValue;
  31158. MarkPropertyChanged(AIndex);
  31159. end;
  31160. Procedure TSPChangeQuery.SetFolder(AIndex: Integer; const AValue: boolean);
  31161. begin
  31162. If (FFolder=AValue) then exit;
  31163. FFolder:=AValue;
  31164. MarkPropertyChanged(AIndex);
  31165. end;
  31166. Procedure TSPChangeQuery.SetGroup(AIndex: Integer; const AValue: boolean);
  31167. begin
  31168. If (FGroup=AValue) then exit;
  31169. FGroup:=AValue;
  31170. MarkPropertyChanged(AIndex);
  31171. end;
  31172. Procedure TSPChangeQuery.SetGroupMembershipAdd(AIndex: Integer; const AValue: boolean);
  31173. begin
  31174. If (FGroupMembershipAdd=AValue) then exit;
  31175. FGroupMembershipAdd:=AValue;
  31176. MarkPropertyChanged(AIndex);
  31177. end;
  31178. Procedure TSPChangeQuery.SetGroupMembershipDelete(AIndex: Integer; const AValue: boolean);
  31179. begin
  31180. If (FGroupMembershipDelete=AValue) then exit;
  31181. FGroupMembershipDelete:=AValue;
  31182. MarkPropertyChanged(AIndex);
  31183. end;
  31184. Procedure TSPChangeQuery.SetItem(AIndex: Integer; const AValue: boolean);
  31185. begin
  31186. If (FItem=AValue) then exit;
  31187. FItem:=AValue;
  31188. MarkPropertyChanged(AIndex);
  31189. end;
  31190. Procedure TSPChangeQuery.SetList(AIndex: Integer; const AValue: boolean);
  31191. begin
  31192. If (FList=AValue) then exit;
  31193. FList:=AValue;
  31194. MarkPropertyChanged(AIndex);
  31195. end;
  31196. Procedure TSPChangeQuery.SetMove(AIndex: Integer; const AValue: boolean);
  31197. begin
  31198. If (FMove=AValue) then exit;
  31199. FMove:=AValue;
  31200. MarkPropertyChanged(AIndex);
  31201. end;
  31202. Procedure TSPChangeQuery.SetNavigation(AIndex: Integer; const AValue: boolean);
  31203. begin
  31204. If (FNavigation=AValue) then exit;
  31205. FNavigation:=AValue;
  31206. MarkPropertyChanged(AIndex);
  31207. end;
  31208. Procedure TSPChangeQuery.SetRename(AIndex: Integer; const AValue: boolean);
  31209. begin
  31210. If (FRename=AValue) then exit;
  31211. FRename:=AValue;
  31212. MarkPropertyChanged(AIndex);
  31213. end;
  31214. Procedure TSPChangeQuery.SetRestore(AIndex: Integer; const AValue: boolean);
  31215. begin
  31216. If (FRestore=AValue) then exit;
  31217. FRestore:=AValue;
  31218. MarkPropertyChanged(AIndex);
  31219. end;
  31220. Procedure TSPChangeQuery.SetRoleAssignmentAdd(AIndex: Integer; const AValue: boolean);
  31221. begin
  31222. If (FRoleAssignmentAdd=AValue) then exit;
  31223. FRoleAssignmentAdd:=AValue;
  31224. MarkPropertyChanged(AIndex);
  31225. end;
  31226. Procedure TSPChangeQuery.SetRoleAssignmentDelete(AIndex: Integer; const AValue: boolean);
  31227. begin
  31228. If (FRoleAssignmentDelete=AValue) then exit;
  31229. FRoleAssignmentDelete:=AValue;
  31230. MarkPropertyChanged(AIndex);
  31231. end;
  31232. Procedure TSPChangeQuery.SetRoleDefinitionAdd(AIndex: Integer; const AValue: boolean);
  31233. begin
  31234. If (FRoleDefinitionAdd=AValue) then exit;
  31235. FRoleDefinitionAdd:=AValue;
  31236. MarkPropertyChanged(AIndex);
  31237. end;
  31238. Procedure TSPChangeQuery.SetRoleDefinitionDelete(AIndex: Integer; const AValue: boolean);
  31239. begin
  31240. If (FRoleDefinitionDelete=AValue) then exit;
  31241. FRoleDefinitionDelete:=AValue;
  31242. MarkPropertyChanged(AIndex);
  31243. end;
  31244. Procedure TSPChangeQuery.SetRoleDefinitionUpdate(AIndex: Integer; const AValue: boolean);
  31245. begin
  31246. If (FRoleDefinitionUpdate=AValue) then exit;
  31247. FRoleDefinitionUpdate:=AValue;
  31248. MarkPropertyChanged(AIndex);
  31249. end;
  31250. Procedure TSPChangeQuery.SetSecurityPolicy(AIndex: Integer; const AValue: boolean);
  31251. begin
  31252. If (FSecurityPolicy=AValue) then exit;
  31253. FSecurityPolicy:=AValue;
  31254. MarkPropertyChanged(AIndex);
  31255. end;
  31256. Procedure TSPChangeQuery.SetSite(AIndex: Integer; const AValue: boolean);
  31257. begin
  31258. If (FSite=AValue) then exit;
  31259. FSite:=AValue;
  31260. MarkPropertyChanged(AIndex);
  31261. end;
  31262. Procedure TSPChangeQuery.SetSystemUpdate(AIndex: Integer; const AValue: boolean);
  31263. begin
  31264. If (FSystemUpdate=AValue) then exit;
  31265. FSystemUpdate:=AValue;
  31266. MarkPropertyChanged(AIndex);
  31267. end;
  31268. Procedure TSPChangeQuery.SetUpdate(AIndex: Integer; const AValue: boolean);
  31269. begin
  31270. If (FUpdate=AValue) then exit;
  31271. FUpdate:=AValue;
  31272. MarkPropertyChanged(AIndex);
  31273. end;
  31274. Procedure TSPChangeQuery.SetUser(AIndex: Integer; const AValue: boolean);
  31275. begin
  31276. If (FUser=AValue) then exit;
  31277. FUser:=AValue;
  31278. MarkPropertyChanged(AIndex);
  31279. end;
  31280. Procedure TSPChangeQuery.SetView(AIndex: Integer; const AValue: boolean);
  31281. begin
  31282. If (FView=AValue) then exit;
  31283. FView:=AValue;
  31284. MarkPropertyChanged(AIndex);
  31285. end;
  31286. Procedure TSPChangeQuery.SetWeb(AIndex: Integer; const AValue: boolean);
  31287. begin
  31288. If (FWeb=AValue) then exit;
  31289. FWeb:=AValue;
  31290. MarkPropertyChanged(AIndex);
  31291. end;
  31292. Class Function TSPChangeQuery.ExportPropertyName(Const AName : String) :String;
  31293. begin
  31294. Case AName of
  31295. '_File' : Result:='File';
  31296. else
  31297. Result:=Inherited ExportPropertyName(AName);
  31298. end;
  31299. end;
  31300. { --------------------------------------------------------------------
  31301. TSPChangeToken
  31302. --------------------------------------------------------------------}
  31303. Class Function TSPChangeToken.ObjectRestKind : String;
  31304. begin
  31305. Result:='ChangeToken';
  31306. end;
  31307. Procedure TSPChangeToken.SetStringValue(AIndex: Integer; const AValue: string);
  31308. begin
  31309. If (FStringValue=AValue) then exit;
  31310. FStringValue:=AValue;
  31311. MarkPropertyChanged(AIndex);
  31312. end;
  31313. { --------------------------------------------------------------------
  31314. TSPContentTypeCreationInformation
  31315. --------------------------------------------------------------------}
  31316. Class Function TSPContentTypeCreationInformation.ObjectRestKind : String;
  31317. begin
  31318. Result:='ContentTypeCreationInformation';
  31319. end;
  31320. Procedure TSPContentTypeCreationInformation.SetDescription(AIndex: Integer; const AValue: string);
  31321. begin
  31322. If (FDescription=AValue) then exit;
  31323. FDescription:=AValue;
  31324. MarkPropertyChanged(AIndex);
  31325. end;
  31326. Procedure TSPContentTypeCreationInformation.SetGroup(AIndex: Integer; const AValue: string);
  31327. begin
  31328. If (FGroup=AValue) then exit;
  31329. FGroup:=AValue;
  31330. MarkPropertyChanged(AIndex);
  31331. end;
  31332. Procedure TSPContentTypeCreationInformation.SetId(AIndex: Integer; const AValue: string);
  31333. begin
  31334. If (FId=AValue) then exit;
  31335. FId:=AValue;
  31336. MarkPropertyChanged(AIndex);
  31337. end;
  31338. Procedure TSPContentTypeCreationInformation.SetName(AIndex: Integer; const AValue: string);
  31339. begin
  31340. If (FName=AValue) then exit;
  31341. FName:=AValue;
  31342. MarkPropertyChanged(AIndex);
  31343. end;
  31344. { --------------------------------------------------------------------
  31345. TSPContextWebInformation
  31346. --------------------------------------------------------------------}
  31347. Class Function TSPContextWebInformation.ObjectRestKind : String;
  31348. begin
  31349. Result:='ContextWebInformation';
  31350. end;
  31351. Procedure TSPContextWebInformation.SetFormDigestTimeoutSeconds(AIndex: Integer; const AValue: TInt32);
  31352. begin
  31353. If (FFormDigestTimeoutSeconds=AValue) then exit;
  31354. FFormDigestTimeoutSeconds:=AValue;
  31355. MarkPropertyChanged(AIndex);
  31356. end;
  31357. Procedure TSPContextWebInformation.SetFormDigestValue(AIndex: Integer; const AValue: string);
  31358. begin
  31359. If (FFormDigestValue=AValue) then exit;
  31360. FFormDigestValue:=AValue;
  31361. MarkPropertyChanged(AIndex);
  31362. end;
  31363. Procedure TSPContextWebInformation.SetLibraryVersion(AIndex: Integer; const AValue: string);
  31364. begin
  31365. If (FLibraryVersion=AValue) then exit;
  31366. FLibraryVersion:=AValue;
  31367. MarkPropertyChanged(AIndex);
  31368. end;
  31369. Procedure TSPContextWebInformation.SetSiteFullUrl(AIndex: Integer; const AValue: string);
  31370. begin
  31371. If (FSiteFullUrl=AValue) then exit;
  31372. FSiteFullUrl:=AValue;
  31373. MarkPropertyChanged(AIndex);
  31374. end;
  31375. Procedure TSPContextWebInformation.SetSupportedSchemaVersions(AIndex: Integer; const AValue: TStringArray);
  31376. begin
  31377. If (FSupportedSchemaVersions=AValue) then exit;
  31378. FSupportedSchemaVersions:=AValue;
  31379. MarkPropertyChanged(AIndex);
  31380. end;
  31381. Procedure TSPContextWebInformation.SetWebFullUrl(AIndex: Integer; const AValue: string);
  31382. begin
  31383. If (FWebFullUrl=AValue) then exit;
  31384. FWebFullUrl:=AValue;
  31385. MarkPropertyChanged(AIndex);
  31386. end;
  31387. {$IFDEF VER2_6}
  31388. Procedure TSPContextWebInformation.SetArrayLength(const AName: String; ALength: Longint);
  31389. begin
  31390. Case aName of
  31391. 'supportedschemaversions' : SetLength(FSupportedSchemaVersions,aLength);
  31392. else
  31393. inherited SetArrayLength(aName,ALength);
  31394. end;
  31395. end;
  31396. {$ENDIF VER2_6}
  31397. { --------------------------------------------------------------------
  31398. TSPDocumentLibraryInformation
  31399. --------------------------------------------------------------------}
  31400. Class Function TSPDocumentLibraryInformation.ObjectRestKind : String;
  31401. begin
  31402. Result:='DocumentLibraryInformation';
  31403. end;
  31404. Procedure TSPDocumentLibraryInformation.SetModified(AIndex: Integer; const AValue: TDateTime);
  31405. begin
  31406. If (FModified=AValue) then exit;
  31407. FModified:=AValue;
  31408. MarkPropertyChanged(AIndex);
  31409. end;
  31410. Procedure TSPDocumentLibraryInformation.SetModifiedFriendlyDisplay(AIndex: Integer; const AValue: string);
  31411. begin
  31412. If (FModifiedFriendlyDisplay=AValue) then exit;
  31413. FModifiedFriendlyDisplay:=AValue;
  31414. MarkPropertyChanged(AIndex);
  31415. end;
  31416. Procedure TSPDocumentLibraryInformation.SetServerRelativeUrl(AIndex: Integer; const AValue: string);
  31417. begin
  31418. If (FServerRelativeUrl=AValue) then exit;
  31419. FServerRelativeUrl:=AValue;
  31420. MarkPropertyChanged(AIndex);
  31421. end;
  31422. Procedure TSPDocumentLibraryInformation.SetTitle(AIndex: Integer; const AValue: string);
  31423. begin
  31424. If (FTitle=AValue) then exit;
  31425. FTitle:=AValue;
  31426. MarkPropertyChanged(AIndex);
  31427. end;
  31428. { --------------------------------------------------------------------
  31429. TSPEventReceiverDefinitionCreationInformation
  31430. --------------------------------------------------------------------}
  31431. Class Function TSPEventReceiverDefinitionCreationInformation.ObjectRestKind : String;
  31432. begin
  31433. Result:='EventReceiverDefinitionCreationInformation';
  31434. end;
  31435. Procedure TSPEventReceiverDefinitionCreationInformation.SetReceiverAssembly(AIndex: Integer; const AValue: string);
  31436. begin
  31437. If (FReceiverAssembly=AValue) then exit;
  31438. FReceiverAssembly:=AValue;
  31439. MarkPropertyChanged(AIndex);
  31440. end;
  31441. Procedure TSPEventReceiverDefinitionCreationInformation.SetReceiverClass(AIndex: Integer; const AValue: string);
  31442. begin
  31443. If (FReceiverClass=AValue) then exit;
  31444. FReceiverClass:=AValue;
  31445. MarkPropertyChanged(AIndex);
  31446. end;
  31447. Procedure TSPEventReceiverDefinitionCreationInformation.SetReceiverName(AIndex: Integer; const AValue: string);
  31448. begin
  31449. If (FReceiverName=AValue) then exit;
  31450. FReceiverName:=AValue;
  31451. MarkPropertyChanged(AIndex);
  31452. end;
  31453. Procedure TSPEventReceiverDefinitionCreationInformation.SetSequenceNumber(AIndex: Integer; const AValue: TInt32);
  31454. begin
  31455. If (FSequenceNumber=AValue) then exit;
  31456. FSequenceNumber:=AValue;
  31457. MarkPropertyChanged(AIndex);
  31458. end;
  31459. Procedure TSPEventReceiverDefinitionCreationInformation.SetSynchronization(AIndex: Integer; const AValue: TInt32);
  31460. begin
  31461. If (FSynchronization=AValue) then exit;
  31462. FSynchronization:=AValue;
  31463. MarkPropertyChanged(AIndex);
  31464. end;
  31465. Procedure TSPEventReceiverDefinitionCreationInformation.SetEventType(AIndex: Integer; const AValue: TInt32);
  31466. begin
  31467. If (FEventType=AValue) then exit;
  31468. FEventType:=AValue;
  31469. MarkPropertyChanged(AIndex);
  31470. end;
  31471. Procedure TSPEventReceiverDefinitionCreationInformation.SetReceiverUrl(AIndex: Integer; const AValue: string);
  31472. begin
  31473. If (FReceiverUrl=AValue) then exit;
  31474. FReceiverUrl:=AValue;
  31475. MarkPropertyChanged(AIndex);
  31476. end;
  31477. { --------------------------------------------------------------------
  31478. TSPListDataValidationFailure
  31479. --------------------------------------------------------------------}
  31480. Class Function TSPListDataValidationFailure.ObjectRestKind : String;
  31481. begin
  31482. Result:='ListDataValidationFailure';
  31483. end;
  31484. Procedure TSPListDataValidationFailure.SetDisplayName(AIndex: Integer; const AValue: string);
  31485. begin
  31486. If (FDisplayName=AValue) then exit;
  31487. FDisplayName:=AValue;
  31488. MarkPropertyChanged(AIndex);
  31489. end;
  31490. Procedure TSPListDataValidationFailure.SetMessage(AIndex: Integer; const AValue: string);
  31491. begin
  31492. If (FMessage=AValue) then exit;
  31493. FMessage:=AValue;
  31494. MarkPropertyChanged(AIndex);
  31495. end;
  31496. Procedure TSPListDataValidationFailure.SetName(AIndex: Integer; const AValue: string);
  31497. begin
  31498. If (FName=AValue) then exit;
  31499. FName:=AValue;
  31500. MarkPropertyChanged(AIndex);
  31501. end;
  31502. Procedure TSPListDataValidationFailure.SetReason(AIndex: Integer; const AValue: TInt32);
  31503. begin
  31504. If (FReason=AValue) then exit;
  31505. FReason:=AValue;
  31506. MarkPropertyChanged(AIndex);
  31507. end;
  31508. Procedure TSPListDataValidationFailure.SetValidationType(AIndex: Integer; const AValue: TInt32);
  31509. begin
  31510. If (FValidationType=AValue) then exit;
  31511. FValidationType:=AValue;
  31512. MarkPropertyChanged(AIndex);
  31513. end;
  31514. { --------------------------------------------------------------------
  31515. TSPFieldCalculatedErrorValue
  31516. --------------------------------------------------------------------}
  31517. Class Function TSPFieldCalculatedErrorValue.ObjectRestKind : String;
  31518. begin
  31519. Result:='FieldCalculatedErrorValue';
  31520. end;
  31521. Procedure TSPFieldCalculatedErrorValue.SetErrorMessage(AIndex: Integer; const AValue: string);
  31522. begin
  31523. If (FErrorMessage=AValue) then exit;
  31524. FErrorMessage:=AValue;
  31525. MarkPropertyChanged(AIndex);
  31526. end;
  31527. { --------------------------------------------------------------------
  31528. TSPFieldCreationInformation
  31529. --------------------------------------------------------------------}
  31530. Class Function TSPFieldCreationInformation.ObjectRestKind : String;
  31531. begin
  31532. Result:='FieldCreationInformation';
  31533. end;
  31534. Procedure TSPFieldCreationInformation.SetChoices(AIndex: Integer; const AValue: TStringArray);
  31535. begin
  31536. If (FChoices=AValue) then exit;
  31537. FChoices:=AValue;
  31538. MarkPropertyChanged(AIndex);
  31539. end;
  31540. Procedure TSPFieldCreationInformation.SetIsCompactName(AIndex: Integer; const AValue: boolean);
  31541. begin
  31542. If (FIsCompactName=AValue) then exit;
  31543. FIsCompactName:=AValue;
  31544. MarkPropertyChanged(AIndex);
  31545. end;
  31546. Procedure TSPFieldCreationInformation.SetLookupFieldName(AIndex: Integer; const AValue: string);
  31547. begin
  31548. If (FLookupFieldName=AValue) then exit;
  31549. FLookupFieldName:=AValue;
  31550. MarkPropertyChanged(AIndex);
  31551. end;
  31552. Procedure TSPFieldCreationInformation.SetLookupListId(AIndex: Integer; const AValue: TGUIDString);
  31553. begin
  31554. If (FLookupListId=AValue) then exit;
  31555. FLookupListId:=AValue;
  31556. MarkPropertyChanged(AIndex);
  31557. end;
  31558. Procedure TSPFieldCreationInformation.SetLookupWebId(AIndex: Integer; const AValue: TGUIDString);
  31559. begin
  31560. If (FLookupWebId=AValue) then exit;
  31561. FLookupWebId:=AValue;
  31562. MarkPropertyChanged(AIndex);
  31563. end;
  31564. Procedure TSPFieldCreationInformation.SetRequired(AIndex: Integer; const AValue: boolean);
  31565. begin
  31566. If (FRequired=AValue) then exit;
  31567. FRequired:=AValue;
  31568. MarkPropertyChanged(AIndex);
  31569. end;
  31570. Procedure TSPFieldCreationInformation.SetTitle(AIndex: Integer; const AValue: string);
  31571. begin
  31572. If (FTitle=AValue) then exit;
  31573. FTitle:=AValue;
  31574. MarkPropertyChanged(AIndex);
  31575. end;
  31576. Procedure TSPFieldCreationInformation.SetFieldTypeKind(AIndex: Integer; const AValue: TInt32);
  31577. begin
  31578. If (FFieldTypeKind=AValue) then exit;
  31579. FFieldTypeKind:=AValue;
  31580. MarkPropertyChanged(AIndex);
  31581. end;
  31582. {$IFDEF VER2_6}
  31583. Procedure TSPFieldCreationInformation.SetArrayLength(const AName: String; ALength: Longint);
  31584. begin
  31585. Case aName of
  31586. 'choices' : SetLength(FChoices,aLength);
  31587. else
  31588. inherited SetArrayLength(aName,ALength);
  31589. end;
  31590. end;
  31591. {$ENDIF VER2_6}
  31592. { --------------------------------------------------------------------
  31593. TSPFieldGeolocationValue
  31594. --------------------------------------------------------------------}
  31595. Class Function TSPFieldGeolocationValue.ObjectRestKind : String;
  31596. begin
  31597. Result:='FieldGeolocationValue';
  31598. end;
  31599. Procedure TSPFieldGeolocationValue.SetAltitude(AIndex: Integer; const AValue: Double);
  31600. begin
  31601. If (FAltitude=AValue) then exit;
  31602. FAltitude:=AValue;
  31603. MarkPropertyChanged(AIndex);
  31604. end;
  31605. Procedure TSPFieldGeolocationValue.SetLatitude(AIndex: Integer; const AValue: Double);
  31606. begin
  31607. If (FLatitude=AValue) then exit;
  31608. FLatitude:=AValue;
  31609. MarkPropertyChanged(AIndex);
  31610. end;
  31611. Procedure TSPFieldGeolocationValue.SetLongitude(AIndex: Integer; const AValue: Double);
  31612. begin
  31613. If (FLongitude=AValue) then exit;
  31614. FLongitude:=AValue;
  31615. MarkPropertyChanged(AIndex);
  31616. end;
  31617. Procedure TSPFieldGeolocationValue.SetMeasure(AIndex: Integer; const AValue: Double);
  31618. begin
  31619. If (FMeasure=AValue) then exit;
  31620. FMeasure:=AValue;
  31621. MarkPropertyChanged(AIndex);
  31622. end;
  31623. { --------------------------------------------------------------------
  31624. TSPFieldRatingScaleQuestionAnswer
  31625. --------------------------------------------------------------------}
  31626. Class Function TSPFieldRatingScaleQuestionAnswer.ObjectRestKind : String;
  31627. begin
  31628. Result:='FieldRatingScaleQuestionAnswer';
  31629. end;
  31630. Procedure TSPFieldRatingScaleQuestionAnswer.SetAnswer(AIndex: Integer; const AValue: TInt32);
  31631. begin
  31632. If (FAnswer=AValue) then exit;
  31633. FAnswer:=AValue;
  31634. MarkPropertyChanged(AIndex);
  31635. end;
  31636. Procedure TSPFieldRatingScaleQuestionAnswer.SetQuestion(AIndex: Integer; const AValue: string);
  31637. begin
  31638. If (FQuestion=AValue) then exit;
  31639. FQuestion:=AValue;
  31640. MarkPropertyChanged(AIndex);
  31641. end;
  31642. { --------------------------------------------------------------------
  31643. TSPFieldUrlValue
  31644. --------------------------------------------------------------------}
  31645. Class Function TSPFieldUrlValue.ObjectRestKind : String;
  31646. begin
  31647. Result:='FieldUrlValue';
  31648. end;
  31649. Procedure TSPFieldUrlValue.SetDescription(AIndex: Integer; const AValue: string);
  31650. begin
  31651. If (FDescription=AValue) then exit;
  31652. FDescription:=AValue;
  31653. MarkPropertyChanged(AIndex);
  31654. end;
  31655. Procedure TSPFieldUrlValue.SetUrl(AIndex: Integer; const AValue: string);
  31656. begin
  31657. If (FUrl=AValue) then exit;
  31658. FUrl:=AValue;
  31659. MarkPropertyChanged(AIndex);
  31660. end;
  31661. { --------------------------------------------------------------------
  31662. TSPFileCreationInformation
  31663. --------------------------------------------------------------------}
  31664. Class Function TSPFileCreationInformation.ObjectRestKind : String;
  31665. begin
  31666. Result:='FileCreationInformation';
  31667. end;
  31668. Procedure TSPFileCreationInformation.SetContent(AIndex: Integer; const AValue: TBinary);
  31669. begin
  31670. If (FContent=AValue) then exit;
  31671. FContent:=AValue;
  31672. MarkPropertyChanged(AIndex);
  31673. end;
  31674. Procedure TSPFileCreationInformation.SetOverwrite(AIndex: Integer; const AValue: boolean);
  31675. begin
  31676. If (FOverwrite=AValue) then exit;
  31677. FOverwrite:=AValue;
  31678. MarkPropertyChanged(AIndex);
  31679. end;
  31680. Procedure TSPFileCreationInformation.SetUrl(AIndex: Integer; const AValue: string);
  31681. begin
  31682. If (FUrl=AValue) then exit;
  31683. FUrl:=AValue;
  31684. MarkPropertyChanged(AIndex);
  31685. end;
  31686. { --------------------------------------------------------------------
  31687. TSPGroupCreationInformation
  31688. --------------------------------------------------------------------}
  31689. Class Function TSPGroupCreationInformation.ObjectRestKind : String;
  31690. begin
  31691. Result:='GroupCreationInformation';
  31692. end;
  31693. Procedure TSPGroupCreationInformation.SetDescription(AIndex: Integer; const AValue: string);
  31694. begin
  31695. If (FDescription=AValue) then exit;
  31696. FDescription:=AValue;
  31697. MarkPropertyChanged(AIndex);
  31698. end;
  31699. Procedure TSPGroupCreationInformation.SetTitle(AIndex: Integer; const AValue: string);
  31700. begin
  31701. If (FTitle=AValue) then exit;
  31702. FTitle:=AValue;
  31703. MarkPropertyChanged(AIndex);
  31704. end;
  31705. { --------------------------------------------------------------------
  31706. TSPSPInvitationCreationResult
  31707. --------------------------------------------------------------------}
  31708. Class Function TSPSPInvitationCreationResult.ObjectRestKind : String;
  31709. begin
  31710. Result:='SPInvitationCreationResult';
  31711. end;
  31712. Procedure TSPSPInvitationCreationResult.SetEmail(AIndex: Integer; const AValue: string);
  31713. begin
  31714. If (FEmail=AValue) then exit;
  31715. FEmail:=AValue;
  31716. MarkPropertyChanged(AIndex);
  31717. end;
  31718. Procedure TSPSPInvitationCreationResult.SetInvitationLink(AIndex: Integer; const AValue: string);
  31719. begin
  31720. If (FInvitationLink=AValue) then exit;
  31721. FInvitationLink:=AValue;
  31722. MarkPropertyChanged(AIndex);
  31723. end;
  31724. Procedure TSPSPInvitationCreationResult.SetSucceeded(AIndex: Integer; const AValue: boolean);
  31725. begin
  31726. If (FSucceeded=AValue) then exit;
  31727. FSucceeded:=AValue;
  31728. MarkPropertyChanged(AIndex);
  31729. end;
  31730. { --------------------------------------------------------------------
  31731. TSPLanguage
  31732. --------------------------------------------------------------------}
  31733. Class Function TSPLanguage.ObjectRestKind : String;
  31734. begin
  31735. Result:='Language';
  31736. end;
  31737. Procedure TSPLanguage.SetDisplayName(AIndex: Integer; const AValue: string);
  31738. begin
  31739. If (FDisplayName=AValue) then exit;
  31740. FDisplayName:=AValue;
  31741. MarkPropertyChanged(AIndex);
  31742. end;
  31743. Procedure TSPLanguage.SetLanguageTag(AIndex: Integer; const AValue: string);
  31744. begin
  31745. If (FLanguageTag=AValue) then exit;
  31746. FLanguageTag:=AValue;
  31747. MarkPropertyChanged(AIndex);
  31748. end;
  31749. Procedure TSPLanguage.SetLcid(AIndex: Integer; const AValue: TInt32);
  31750. begin
  31751. If (FLcid=AValue) then exit;
  31752. FLcid:=AValue;
  31753. MarkPropertyChanged(AIndex);
  31754. end;
  31755. { --------------------------------------------------------------------
  31756. TSPListCreationInformation
  31757. --------------------------------------------------------------------}
  31758. Class Function TSPListCreationInformation.ObjectRestKind : String;
  31759. begin
  31760. Result:='ListCreationInformation';
  31761. end;
  31762. Procedure TSPListCreationInformation.SetCustomSchemaXml(AIndex: Integer; const AValue: string);
  31763. begin
  31764. If (FCustomSchemaXml=AValue) then exit;
  31765. FCustomSchemaXml:=AValue;
  31766. MarkPropertyChanged(AIndex);
  31767. end;
  31768. Procedure TSPListCreationInformation.SetDataSourceProperties(AIndex: Integer; const AValue: TSPKeyValueArray);
  31769. begin
  31770. If (FDataSourceProperties=AValue) then exit;
  31771. FDataSourceProperties:=AValue;
  31772. MarkPropertyChanged(AIndex);
  31773. end;
  31774. Procedure TSPListCreationInformation.SetDescription(AIndex: Integer; const AValue: string);
  31775. begin
  31776. If (FDescription=AValue) then exit;
  31777. FDescription:=AValue;
  31778. MarkPropertyChanged(AIndex);
  31779. end;
  31780. Procedure TSPListCreationInformation.SetDocumentTemplateType(AIndex: Integer; const AValue: TInt32);
  31781. begin
  31782. If (FDocumentTemplateType=AValue) then exit;
  31783. FDocumentTemplateType:=AValue;
  31784. MarkPropertyChanged(AIndex);
  31785. end;
  31786. Procedure TSPListCreationInformation.SetQuickLaunchOption(AIndex: Integer; const AValue: TInt32);
  31787. begin
  31788. If (FQuickLaunchOption=AValue) then exit;
  31789. FQuickLaunchOption:=AValue;
  31790. MarkPropertyChanged(AIndex);
  31791. end;
  31792. Procedure TSPListCreationInformation.SetTemplateFeatureId(AIndex: Integer; const AValue: TGUIDString);
  31793. begin
  31794. If (FTemplateFeatureId=AValue) then exit;
  31795. FTemplateFeatureId:=AValue;
  31796. MarkPropertyChanged(AIndex);
  31797. end;
  31798. Procedure TSPListCreationInformation.SetTemplateType(AIndex: Integer; const AValue: TInt32);
  31799. begin
  31800. If (FTemplateType=AValue) then exit;
  31801. FTemplateType:=AValue;
  31802. MarkPropertyChanged(AIndex);
  31803. end;
  31804. Procedure TSPListCreationInformation.SetTitle(AIndex: Integer; const AValue: string);
  31805. begin
  31806. If (FTitle=AValue) then exit;
  31807. FTitle:=AValue;
  31808. MarkPropertyChanged(AIndex);
  31809. end;
  31810. Procedure TSPListCreationInformation.SetUrl(AIndex: Integer; const AValue: string);
  31811. begin
  31812. If (FUrl=AValue) then exit;
  31813. FUrl:=AValue;
  31814. MarkPropertyChanged(AIndex);
  31815. end;
  31816. {$IFDEF VER2_6}
  31817. Procedure TSPListCreationInformation.SetArrayLength(const AName: String; ALength: Longint);
  31818. begin
  31819. Case aName of
  31820. 'datasourceproperties' : SetLength(FDataSourceProperties,aLength);
  31821. else
  31822. inherited SetArrayLength(aName,ALength);
  31823. end;
  31824. end;
  31825. {$ENDIF VER2_6}
  31826. { --------------------------------------------------------------------
  31827. TSPListDataSource
  31828. --------------------------------------------------------------------}
  31829. Class Function TSPListDataSource.ObjectRestKind : String;
  31830. begin
  31831. Result:='ListDataSource';
  31832. end;
  31833. Procedure TSPListDataSource.SetProperties(AIndex: Integer; const AValue: TSPKeyValueArray);
  31834. begin
  31835. If (FProperties=AValue) then exit;
  31836. FProperties:=AValue;
  31837. MarkPropertyChanged(AIndex);
  31838. end;
  31839. {$IFDEF VER2_6}
  31840. Procedure TSPListDataSource.SetArrayLength(const AName: String; ALength: Longint);
  31841. begin
  31842. Case aName of
  31843. 'properties' : SetLength(FProperties,aLength);
  31844. else
  31845. inherited SetArrayLength(aName,ALength);
  31846. end;
  31847. end;
  31848. {$ENDIF VER2_6}
  31849. { --------------------------------------------------------------------
  31850. TSPListDataValidationExceptionValue
  31851. --------------------------------------------------------------------}
  31852. Class Function TSPListDataValidationExceptionValue.ObjectRestKind : String;
  31853. begin
  31854. Result:='ListDataValidationExceptionValue';
  31855. end;
  31856. Procedure TSPListDataValidationExceptionValue.SetFieldFailures(AIndex: Integer; const AValue: TSPListDataValidationFailureArray);
  31857. begin
  31858. If (FFieldFailures=AValue) then exit;
  31859. FFieldFailures:=AValue;
  31860. MarkPropertyChanged(AIndex);
  31861. end;
  31862. Procedure TSPListDataValidationExceptionValue.SetItemFailure(AIndex: Integer; const AValue: TSPListDataValidationFailure);
  31863. begin
  31864. If (FItemFailure=AValue) then exit;
  31865. FItemFailure:=AValue;
  31866. MarkPropertyChanged(AIndex);
  31867. end;
  31868. {$IFDEF VER2_6}
  31869. Procedure TSPListDataValidationExceptionValue.SetArrayLength(const AName: String; ALength: Longint);
  31870. begin
  31871. Case aName of
  31872. 'fieldfailures' : SetLength(FFieldFailures,aLength);
  31873. else
  31874. inherited SetArrayLength(aName,ALength);
  31875. end;
  31876. end;
  31877. {$ENDIF VER2_6}
  31878. { --------------------------------------------------------------------
  31879. TSPListItemCollectionPosition
  31880. --------------------------------------------------------------------}
  31881. Class Function TSPListItemCollectionPosition.ObjectRestKind : String;
  31882. begin
  31883. Result:='ListItemCollectionPosition';
  31884. end;
  31885. Procedure TSPListItemCollectionPosition.SetPagingInfo(AIndex: Integer; const AValue: string);
  31886. begin
  31887. If (FPagingInfo=AValue) then exit;
  31888. FPagingInfo:=AValue;
  31889. MarkPropertyChanged(AIndex);
  31890. end;
  31891. { --------------------------------------------------------------------
  31892. TSPListItemCreationInformation
  31893. --------------------------------------------------------------------}
  31894. Class Function TSPListItemCreationInformation.ObjectRestKind : String;
  31895. begin
  31896. Result:='ListItemCreationInformation';
  31897. end;
  31898. Procedure TSPListItemCreationInformation.SetFolderUrl(AIndex: Integer; const AValue: string);
  31899. begin
  31900. If (FFolderUrl=AValue) then exit;
  31901. FFolderUrl:=AValue;
  31902. MarkPropertyChanged(AIndex);
  31903. end;
  31904. Procedure TSPListItemCreationInformation.SetLeafName(AIndex: Integer; const AValue: string);
  31905. begin
  31906. If (FLeafName=AValue) then exit;
  31907. FLeafName:=AValue;
  31908. MarkPropertyChanged(AIndex);
  31909. end;
  31910. Procedure TSPListItemCreationInformation.SetUnderlyingObjectType(AIndex: Integer; const AValue: TInt32);
  31911. begin
  31912. If (FUnderlyingObjectType=AValue) then exit;
  31913. FUnderlyingObjectType:=AValue;
  31914. MarkPropertyChanged(AIndex);
  31915. end;
  31916. { --------------------------------------------------------------------
  31917. TSPListItemFormUpdateValue
  31918. --------------------------------------------------------------------}
  31919. Class Function TSPListItemFormUpdateValue.ObjectRestKind : String;
  31920. begin
  31921. Result:='ListItemFormUpdateValue';
  31922. end;
  31923. Procedure TSPListItemFormUpdateValue.SetErrorMessage(AIndex: Integer; const AValue: string);
  31924. begin
  31925. If (FErrorMessage=AValue) then exit;
  31926. FErrorMessage:=AValue;
  31927. MarkPropertyChanged(AIndex);
  31928. end;
  31929. Procedure TSPListItemFormUpdateValue.SetFieldName(AIndex: Integer; const AValue: string);
  31930. begin
  31931. If (FFieldName=AValue) then exit;
  31932. FFieldName:=AValue;
  31933. MarkPropertyChanged(AIndex);
  31934. end;
  31935. Procedure TSPListItemFormUpdateValue.SetFieldValue(AIndex: Integer; const AValue: string);
  31936. begin
  31937. If (FFieldValue=AValue) then exit;
  31938. FFieldValue:=AValue;
  31939. MarkPropertyChanged(AIndex);
  31940. end;
  31941. Procedure TSPListItemFormUpdateValue.SetHasException(AIndex: Integer; const AValue: boolean);
  31942. begin
  31943. If (FHasException=AValue) then exit;
  31944. FHasException:=AValue;
  31945. MarkPropertyChanged(AIndex);
  31946. end;
  31947. { --------------------------------------------------------------------
  31948. TSPCamlQuery
  31949. --------------------------------------------------------------------}
  31950. Class Function TSPCamlQuery.ObjectRestKind : String;
  31951. begin
  31952. Result:='CamlQuery';
  31953. end;
  31954. Procedure TSPCamlQuery.SetDatesInUtc(AIndex: Integer; const AValue: boolean);
  31955. begin
  31956. If (FDatesInUtc=AValue) then exit;
  31957. FDatesInUtc:=AValue;
  31958. MarkPropertyChanged(AIndex);
  31959. end;
  31960. Procedure TSPCamlQuery.SetFolderServerRelativeUrl(AIndex: Integer; const AValue: string);
  31961. begin
  31962. If (FFolderServerRelativeUrl=AValue) then exit;
  31963. FFolderServerRelativeUrl:=AValue;
  31964. MarkPropertyChanged(AIndex);
  31965. end;
  31966. Procedure TSPCamlQuery.SetListItemCollectionPosition(AIndex: Integer; const AValue: TSPListItemCollectionPosition);
  31967. begin
  31968. If (FListItemCollectionPosition=AValue) then exit;
  31969. FListItemCollectionPosition:=AValue;
  31970. MarkPropertyChanged(AIndex);
  31971. end;
  31972. Procedure TSPCamlQuery.SetViewXml(AIndex: Integer; const AValue: string);
  31973. begin
  31974. If (FViewXml=AValue) then exit;
  31975. FViewXml:=AValue;
  31976. MarkPropertyChanged(AIndex);
  31977. end;
  31978. { --------------------------------------------------------------------
  31979. TSPRenderListContextMenuDataParameters
  31980. --------------------------------------------------------------------}
  31981. Class Function TSPRenderListContextMenuDataParameters.ObjectRestKind : String;
  31982. begin
  31983. Result:='RenderListContextMenuDataParameters';
  31984. end;
  31985. Procedure TSPRenderListContextMenuDataParameters.SetCascDelWarnMessage(AIndex: Integer; const AValue: string);
  31986. begin
  31987. If (FCascDelWarnMessage=AValue) then exit;
  31988. FCascDelWarnMessage:=AValue;
  31989. MarkPropertyChanged(AIndex);
  31990. end;
  31991. Procedure TSPRenderListContextMenuDataParameters.SetCustomAction(AIndex: Integer; const AValue: string);
  31992. begin
  31993. If (FCustomAction=AValue) then exit;
  31994. FCustomAction:=AValue;
  31995. MarkPropertyChanged(AIndex);
  31996. end;
  31997. Procedure TSPRenderListContextMenuDataParameters.SetField(AIndex: Integer; const AValue: string);
  31998. begin
  31999. If (FField=AValue) then exit;
  32000. FField:=AValue;
  32001. MarkPropertyChanged(AIndex);
  32002. end;
  32003. Procedure TSPRenderListContextMenuDataParameters.SetID(AIndex: Integer; const AValue: string);
  32004. begin
  32005. If (FID=AValue) then exit;
  32006. FID:=AValue;
  32007. MarkPropertyChanged(AIndex);
  32008. end;
  32009. Procedure TSPRenderListContextMenuDataParameters.SetInplaceFullListSearch(AIndex: Integer; const AValue: string);
  32010. begin
  32011. If (FInplaceFullListSearch=AValue) then exit;
  32012. FInplaceFullListSearch:=AValue;
  32013. MarkPropertyChanged(AIndex);
  32014. end;
  32015. Procedure TSPRenderListContextMenuDataParameters.SetInplaceSearchQuery(AIndex: Integer; const AValue: string);
  32016. begin
  32017. If (FInplaceSearchQuery=AValue) then exit;
  32018. FInplaceSearchQuery:=AValue;
  32019. MarkPropertyChanged(AIndex);
  32020. end;
  32021. Procedure TSPRenderListContextMenuDataParameters.SetIsCSR(AIndex: Integer; const AValue: string);
  32022. begin
  32023. If (FIsCSR=AValue) then exit;
  32024. FIsCSR:=AValue;
  32025. MarkPropertyChanged(AIndex);
  32026. end;
  32027. Procedure TSPRenderListContextMenuDataParameters.SetIsXslView(AIndex: Integer; const AValue: string);
  32028. begin
  32029. If (FIsXslView=AValue) then exit;
  32030. FIsXslView:=AValue;
  32031. MarkPropertyChanged(AIndex);
  32032. end;
  32033. Procedure TSPRenderListContextMenuDataParameters.SetItemId(AIndex: Integer; const AValue: string);
  32034. begin
  32035. If (FItemId=AValue) then exit;
  32036. FItemId:=AValue;
  32037. MarkPropertyChanged(AIndex);
  32038. end;
  32039. Procedure TSPRenderListContextMenuDataParameters.SetListViewPageUrl(AIndex: Integer; const AValue: string);
  32040. begin
  32041. If (FListViewPageUrl=AValue) then exit;
  32042. FListViewPageUrl:=AValue;
  32043. MarkPropertyChanged(AIndex);
  32044. end;
  32045. Procedure TSPRenderListContextMenuDataParameters.SetOverrideScope(AIndex: Integer; const AValue: string);
  32046. begin
  32047. If (FOverrideScope=AValue) then exit;
  32048. FOverrideScope:=AValue;
  32049. MarkPropertyChanged(AIndex);
  32050. end;
  32051. Procedure TSPRenderListContextMenuDataParameters.SetRootFolder(AIndex: Integer; const AValue: string);
  32052. begin
  32053. If (FRootFolder=AValue) then exit;
  32054. FRootFolder:=AValue;
  32055. MarkPropertyChanged(AIndex);
  32056. end;
  32057. Procedure TSPRenderListContextMenuDataParameters.SetView(AIndex: Integer; const AValue: string);
  32058. begin
  32059. If (FView=AValue) then exit;
  32060. FView:=AValue;
  32061. MarkPropertyChanged(AIndex);
  32062. end;
  32063. Procedure TSPRenderListContextMenuDataParameters.SetViewCount(AIndex: Integer; const AValue: string);
  32064. begin
  32065. If (FViewCount=AValue) then exit;
  32066. FViewCount:=AValue;
  32067. MarkPropertyChanged(AIndex);
  32068. end;
  32069. { --------------------------------------------------------------------
  32070. TSPRenderListDataOverrideParameters
  32071. --------------------------------------------------------------------}
  32072. Class Function TSPRenderListDataOverrideParameters.ObjectRestKind : String;
  32073. begin
  32074. Result:='RenderListDataOverrideParameters';
  32075. end;
  32076. Procedure TSPRenderListDataOverrideParameters.SetCascDelWarnMessage(AIndex: Integer; const AValue: string);
  32077. begin
  32078. If (FCascDelWarnMessage=AValue) then exit;
  32079. FCascDelWarnMessage:=AValue;
  32080. MarkPropertyChanged(AIndex);
  32081. end;
  32082. Procedure TSPRenderListDataOverrideParameters.SetCustomAction(AIndex: Integer; const AValue: string);
  32083. begin
  32084. If (FCustomAction=AValue) then exit;
  32085. FCustomAction:=AValue;
  32086. MarkPropertyChanged(AIndex);
  32087. end;
  32088. Procedure TSPRenderListDataOverrideParameters.SetDrillDown(AIndex: Integer; const AValue: string);
  32089. begin
  32090. If (FDrillDown=AValue) then exit;
  32091. FDrillDown:=AValue;
  32092. MarkPropertyChanged(AIndex);
  32093. end;
  32094. Procedure TSPRenderListDataOverrideParameters.SetField(AIndex: Integer; const AValue: string);
  32095. begin
  32096. If (FField=AValue) then exit;
  32097. FField:=AValue;
  32098. MarkPropertyChanged(AIndex);
  32099. end;
  32100. Procedure TSPRenderListDataOverrideParameters.SetFieldInternalName(AIndex: Integer; const AValue: string);
  32101. begin
  32102. If (FFieldInternalName=AValue) then exit;
  32103. FFieldInternalName:=AValue;
  32104. MarkPropertyChanged(AIndex);
  32105. end;
  32106. Procedure TSPRenderListDataOverrideParameters.SetFilter(AIndex: Integer; const AValue: string);
  32107. begin
  32108. If (FFilter=AValue) then exit;
  32109. FFilter:=AValue;
  32110. MarkPropertyChanged(AIndex);
  32111. end;
  32112. Procedure TSPRenderListDataOverrideParameters.SetFilterData(AIndex: Integer; const AValue: string);
  32113. begin
  32114. If (FFilterData=AValue) then exit;
  32115. FFilterData:=AValue;
  32116. MarkPropertyChanged(AIndex);
  32117. end;
  32118. Procedure TSPRenderListDataOverrideParameters.SetFilterData1(AIndex: Integer; const AValue: string);
  32119. begin
  32120. If (FFilterData1=AValue) then exit;
  32121. FFilterData1:=AValue;
  32122. MarkPropertyChanged(AIndex);
  32123. end;
  32124. Procedure TSPRenderListDataOverrideParameters.SetFilterData10(AIndex: Integer; const AValue: string);
  32125. begin
  32126. If (FFilterData10=AValue) then exit;
  32127. FFilterData10:=AValue;
  32128. MarkPropertyChanged(AIndex);
  32129. end;
  32130. Procedure TSPRenderListDataOverrideParameters.SetFilterData2(AIndex: Integer; const AValue: string);
  32131. begin
  32132. If (FFilterData2=AValue) then exit;
  32133. FFilterData2:=AValue;
  32134. MarkPropertyChanged(AIndex);
  32135. end;
  32136. Procedure TSPRenderListDataOverrideParameters.SetFilterData3(AIndex: Integer; const AValue: string);
  32137. begin
  32138. If (FFilterData3=AValue) then exit;
  32139. FFilterData3:=AValue;
  32140. MarkPropertyChanged(AIndex);
  32141. end;
  32142. Procedure TSPRenderListDataOverrideParameters.SetFilterData4(AIndex: Integer; const AValue: string);
  32143. begin
  32144. If (FFilterData4=AValue) then exit;
  32145. FFilterData4:=AValue;
  32146. MarkPropertyChanged(AIndex);
  32147. end;
  32148. Procedure TSPRenderListDataOverrideParameters.SetFilterData5(AIndex: Integer; const AValue: string);
  32149. begin
  32150. If (FFilterData5=AValue) then exit;
  32151. FFilterData5:=AValue;
  32152. MarkPropertyChanged(AIndex);
  32153. end;
  32154. Procedure TSPRenderListDataOverrideParameters.SetFilterData6(AIndex: Integer; const AValue: string);
  32155. begin
  32156. If (FFilterData6=AValue) then exit;
  32157. FFilterData6:=AValue;
  32158. MarkPropertyChanged(AIndex);
  32159. end;
  32160. Procedure TSPRenderListDataOverrideParameters.SetFilterData7(AIndex: Integer; const AValue: string);
  32161. begin
  32162. If (FFilterData7=AValue) then exit;
  32163. FFilterData7:=AValue;
  32164. MarkPropertyChanged(AIndex);
  32165. end;
  32166. Procedure TSPRenderListDataOverrideParameters.SetFilterData8(AIndex: Integer; const AValue: string);
  32167. begin
  32168. If (FFilterData8=AValue) then exit;
  32169. FFilterData8:=AValue;
  32170. MarkPropertyChanged(AIndex);
  32171. end;
  32172. Procedure TSPRenderListDataOverrideParameters.SetFilterData9(AIndex: Integer; const AValue: string);
  32173. begin
  32174. If (FFilterData9=AValue) then exit;
  32175. FFilterData9:=AValue;
  32176. MarkPropertyChanged(AIndex);
  32177. end;
  32178. Procedure TSPRenderListDataOverrideParameters.SetFilterField(AIndex: Integer; const AValue: string);
  32179. begin
  32180. If (FFilterField=AValue) then exit;
  32181. FFilterField:=AValue;
  32182. MarkPropertyChanged(AIndex);
  32183. end;
  32184. Procedure TSPRenderListDataOverrideParameters.SetFilterField1(AIndex: Integer; const AValue: string);
  32185. begin
  32186. If (FFilterField1=AValue) then exit;
  32187. FFilterField1:=AValue;
  32188. MarkPropertyChanged(AIndex);
  32189. end;
  32190. Procedure TSPRenderListDataOverrideParameters.SetFilterField10(AIndex: Integer; const AValue: string);
  32191. begin
  32192. If (FFilterField10=AValue) then exit;
  32193. FFilterField10:=AValue;
  32194. MarkPropertyChanged(AIndex);
  32195. end;
  32196. Procedure TSPRenderListDataOverrideParameters.SetFilterField2(AIndex: Integer; const AValue: string);
  32197. begin
  32198. If (FFilterField2=AValue) then exit;
  32199. FFilterField2:=AValue;
  32200. MarkPropertyChanged(AIndex);
  32201. end;
  32202. Procedure TSPRenderListDataOverrideParameters.SetFilterField3(AIndex: Integer; const AValue: string);
  32203. begin
  32204. If (FFilterField3=AValue) then exit;
  32205. FFilterField3:=AValue;
  32206. MarkPropertyChanged(AIndex);
  32207. end;
  32208. Procedure TSPRenderListDataOverrideParameters.SetFilterField4(AIndex: Integer; const AValue: string);
  32209. begin
  32210. If (FFilterField4=AValue) then exit;
  32211. FFilterField4:=AValue;
  32212. MarkPropertyChanged(AIndex);
  32213. end;
  32214. Procedure TSPRenderListDataOverrideParameters.SetFilterField5(AIndex: Integer; const AValue: string);
  32215. begin
  32216. If (FFilterField5=AValue) then exit;
  32217. FFilterField5:=AValue;
  32218. MarkPropertyChanged(AIndex);
  32219. end;
  32220. Procedure TSPRenderListDataOverrideParameters.SetFilterField6(AIndex: Integer; const AValue: string);
  32221. begin
  32222. If (FFilterField6=AValue) then exit;
  32223. FFilterField6:=AValue;
  32224. MarkPropertyChanged(AIndex);
  32225. end;
  32226. Procedure TSPRenderListDataOverrideParameters.SetFilterField7(AIndex: Integer; const AValue: string);
  32227. begin
  32228. If (FFilterField7=AValue) then exit;
  32229. FFilterField7:=AValue;
  32230. MarkPropertyChanged(AIndex);
  32231. end;
  32232. Procedure TSPRenderListDataOverrideParameters.SetFilterField8(AIndex: Integer; const AValue: string);
  32233. begin
  32234. If (FFilterField8=AValue) then exit;
  32235. FFilterField8:=AValue;
  32236. MarkPropertyChanged(AIndex);
  32237. end;
  32238. Procedure TSPRenderListDataOverrideParameters.SetFilterField9(AIndex: Integer; const AValue: string);
  32239. begin
  32240. If (FFilterField9=AValue) then exit;
  32241. FFilterField9:=AValue;
  32242. MarkPropertyChanged(AIndex);
  32243. end;
  32244. Procedure TSPRenderListDataOverrideParameters.SetFilterFields(AIndex: Integer; const AValue: string);
  32245. begin
  32246. If (FFilterFields=AValue) then exit;
  32247. FFilterFields:=AValue;
  32248. MarkPropertyChanged(AIndex);
  32249. end;
  32250. Procedure TSPRenderListDataOverrideParameters.SetFilterFields1(AIndex: Integer; const AValue: string);
  32251. begin
  32252. If (FFilterFields1=AValue) then exit;
  32253. FFilterFields1:=AValue;
  32254. MarkPropertyChanged(AIndex);
  32255. end;
  32256. Procedure TSPRenderListDataOverrideParameters.SetFilterFields10(AIndex: Integer; const AValue: string);
  32257. begin
  32258. If (FFilterFields10=AValue) then exit;
  32259. FFilterFields10:=AValue;
  32260. MarkPropertyChanged(AIndex);
  32261. end;
  32262. Procedure TSPRenderListDataOverrideParameters.SetFilterFields2(AIndex: Integer; const AValue: string);
  32263. begin
  32264. If (FFilterFields2=AValue) then exit;
  32265. FFilterFields2:=AValue;
  32266. MarkPropertyChanged(AIndex);
  32267. end;
  32268. Procedure TSPRenderListDataOverrideParameters.SetFilterFields3(AIndex: Integer; const AValue: string);
  32269. begin
  32270. If (FFilterFields3=AValue) then exit;
  32271. FFilterFields3:=AValue;
  32272. MarkPropertyChanged(AIndex);
  32273. end;
  32274. Procedure TSPRenderListDataOverrideParameters.SetFilterFields4(AIndex: Integer; const AValue: string);
  32275. begin
  32276. If (FFilterFields4=AValue) then exit;
  32277. FFilterFields4:=AValue;
  32278. MarkPropertyChanged(AIndex);
  32279. end;
  32280. Procedure TSPRenderListDataOverrideParameters.SetFilterFields5(AIndex: Integer; const AValue: string);
  32281. begin
  32282. If (FFilterFields5=AValue) then exit;
  32283. FFilterFields5:=AValue;
  32284. MarkPropertyChanged(AIndex);
  32285. end;
  32286. Procedure TSPRenderListDataOverrideParameters.SetFilterFields6(AIndex: Integer; const AValue: string);
  32287. begin
  32288. If (FFilterFields6=AValue) then exit;
  32289. FFilterFields6:=AValue;
  32290. MarkPropertyChanged(AIndex);
  32291. end;
  32292. Procedure TSPRenderListDataOverrideParameters.SetFilterFields7(AIndex: Integer; const AValue: string);
  32293. begin
  32294. If (FFilterFields7=AValue) then exit;
  32295. FFilterFields7:=AValue;
  32296. MarkPropertyChanged(AIndex);
  32297. end;
  32298. Procedure TSPRenderListDataOverrideParameters.SetFilterFields8(AIndex: Integer; const AValue: string);
  32299. begin
  32300. If (FFilterFields8=AValue) then exit;
  32301. FFilterFields8:=AValue;
  32302. MarkPropertyChanged(AIndex);
  32303. end;
  32304. Procedure TSPRenderListDataOverrideParameters.SetFilterFields9(AIndex: Integer; const AValue: string);
  32305. begin
  32306. If (FFilterFields9=AValue) then exit;
  32307. FFilterFields9:=AValue;
  32308. MarkPropertyChanged(AIndex);
  32309. end;
  32310. Procedure TSPRenderListDataOverrideParameters.SetFilterLookupId(AIndex: Integer; const AValue: string);
  32311. begin
  32312. If (FFilterLookupId=AValue) then exit;
  32313. FFilterLookupId:=AValue;
  32314. MarkPropertyChanged(AIndex);
  32315. end;
  32316. Procedure TSPRenderListDataOverrideParameters.SetFilterLookupId1(AIndex: Integer; const AValue: string);
  32317. begin
  32318. If (FFilterLookupId1=AValue) then exit;
  32319. FFilterLookupId1:=AValue;
  32320. MarkPropertyChanged(AIndex);
  32321. end;
  32322. Procedure TSPRenderListDataOverrideParameters.SetFilterLookupId10(AIndex: Integer; const AValue: string);
  32323. begin
  32324. If (FFilterLookupId10=AValue) then exit;
  32325. FFilterLookupId10:=AValue;
  32326. MarkPropertyChanged(AIndex);
  32327. end;
  32328. Procedure TSPRenderListDataOverrideParameters.SetFilterLookupId2(AIndex: Integer; const AValue: string);
  32329. begin
  32330. If (FFilterLookupId2=AValue) then exit;
  32331. FFilterLookupId2:=AValue;
  32332. MarkPropertyChanged(AIndex);
  32333. end;
  32334. Procedure TSPRenderListDataOverrideParameters.SetFilterLookupId3(AIndex: Integer; const AValue: string);
  32335. begin
  32336. If (FFilterLookupId3=AValue) then exit;
  32337. FFilterLookupId3:=AValue;
  32338. MarkPropertyChanged(AIndex);
  32339. end;
  32340. Procedure TSPRenderListDataOverrideParameters.SetFilterLookupId4(AIndex: Integer; const AValue: string);
  32341. begin
  32342. If (FFilterLookupId4=AValue) then exit;
  32343. FFilterLookupId4:=AValue;
  32344. MarkPropertyChanged(AIndex);
  32345. end;
  32346. Procedure TSPRenderListDataOverrideParameters.SetFilterLookupId5(AIndex: Integer; const AValue: string);
  32347. begin
  32348. If (FFilterLookupId5=AValue) then exit;
  32349. FFilterLookupId5:=AValue;
  32350. MarkPropertyChanged(AIndex);
  32351. end;
  32352. Procedure TSPRenderListDataOverrideParameters.SetFilterLookupId6(AIndex: Integer; const AValue: string);
  32353. begin
  32354. If (FFilterLookupId6=AValue) then exit;
  32355. FFilterLookupId6:=AValue;
  32356. MarkPropertyChanged(AIndex);
  32357. end;
  32358. Procedure TSPRenderListDataOverrideParameters.SetFilterLookupId7(AIndex: Integer; const AValue: string);
  32359. begin
  32360. If (FFilterLookupId7=AValue) then exit;
  32361. FFilterLookupId7:=AValue;
  32362. MarkPropertyChanged(AIndex);
  32363. end;
  32364. Procedure TSPRenderListDataOverrideParameters.SetFilterLookupId8(AIndex: Integer; const AValue: string);
  32365. begin
  32366. If (FFilterLookupId8=AValue) then exit;
  32367. FFilterLookupId8:=AValue;
  32368. MarkPropertyChanged(AIndex);
  32369. end;
  32370. Procedure TSPRenderListDataOverrideParameters.SetFilterLookupId9(AIndex: Integer; const AValue: string);
  32371. begin
  32372. If (FFilterLookupId9=AValue) then exit;
  32373. FFilterLookupId9:=AValue;
  32374. MarkPropertyChanged(AIndex);
  32375. end;
  32376. Procedure TSPRenderListDataOverrideParameters.SetFilterOp(AIndex: Integer; const AValue: string);
  32377. begin
  32378. If (FFilterOp=AValue) then exit;
  32379. FFilterOp:=AValue;
  32380. MarkPropertyChanged(AIndex);
  32381. end;
  32382. Procedure TSPRenderListDataOverrideParameters.SetFilterOp1(AIndex: Integer; const AValue: string);
  32383. begin
  32384. If (FFilterOp1=AValue) then exit;
  32385. FFilterOp1:=AValue;
  32386. MarkPropertyChanged(AIndex);
  32387. end;
  32388. Procedure TSPRenderListDataOverrideParameters.SetFilterOp10(AIndex: Integer; const AValue: string);
  32389. begin
  32390. If (FFilterOp10=AValue) then exit;
  32391. FFilterOp10:=AValue;
  32392. MarkPropertyChanged(AIndex);
  32393. end;
  32394. Procedure TSPRenderListDataOverrideParameters.SetFilterOp2(AIndex: Integer; const AValue: string);
  32395. begin
  32396. If (FFilterOp2=AValue) then exit;
  32397. FFilterOp2:=AValue;
  32398. MarkPropertyChanged(AIndex);
  32399. end;
  32400. Procedure TSPRenderListDataOverrideParameters.SetFilterOp3(AIndex: Integer; const AValue: string);
  32401. begin
  32402. If (FFilterOp3=AValue) then exit;
  32403. FFilterOp3:=AValue;
  32404. MarkPropertyChanged(AIndex);
  32405. end;
  32406. Procedure TSPRenderListDataOverrideParameters.SetFilterOp4(AIndex: Integer; const AValue: string);
  32407. begin
  32408. If (FFilterOp4=AValue) then exit;
  32409. FFilterOp4:=AValue;
  32410. MarkPropertyChanged(AIndex);
  32411. end;
  32412. Procedure TSPRenderListDataOverrideParameters.SetFilterOp5(AIndex: Integer; const AValue: string);
  32413. begin
  32414. If (FFilterOp5=AValue) then exit;
  32415. FFilterOp5:=AValue;
  32416. MarkPropertyChanged(AIndex);
  32417. end;
  32418. Procedure TSPRenderListDataOverrideParameters.SetFilterOp6(AIndex: Integer; const AValue: string);
  32419. begin
  32420. If (FFilterOp6=AValue) then exit;
  32421. FFilterOp6:=AValue;
  32422. MarkPropertyChanged(AIndex);
  32423. end;
  32424. Procedure TSPRenderListDataOverrideParameters.SetFilterOp7(AIndex: Integer; const AValue: string);
  32425. begin
  32426. If (FFilterOp7=AValue) then exit;
  32427. FFilterOp7:=AValue;
  32428. MarkPropertyChanged(AIndex);
  32429. end;
  32430. Procedure TSPRenderListDataOverrideParameters.SetFilterOp8(AIndex: Integer; const AValue: string);
  32431. begin
  32432. If (FFilterOp8=AValue) then exit;
  32433. FFilterOp8:=AValue;
  32434. MarkPropertyChanged(AIndex);
  32435. end;
  32436. Procedure TSPRenderListDataOverrideParameters.SetFilterOp9(AIndex: Integer; const AValue: string);
  32437. begin
  32438. If (FFilterOp9=AValue) then exit;
  32439. FFilterOp9:=AValue;
  32440. MarkPropertyChanged(AIndex);
  32441. end;
  32442. Procedure TSPRenderListDataOverrideParameters.SetFilterValue(AIndex: Integer; const AValue: string);
  32443. begin
  32444. If (FFilterValue=AValue) then exit;
  32445. FFilterValue:=AValue;
  32446. MarkPropertyChanged(AIndex);
  32447. end;
  32448. Procedure TSPRenderListDataOverrideParameters.SetFilterValue1(AIndex: Integer; const AValue: string);
  32449. begin
  32450. If (FFilterValue1=AValue) then exit;
  32451. FFilterValue1:=AValue;
  32452. MarkPropertyChanged(AIndex);
  32453. end;
  32454. Procedure TSPRenderListDataOverrideParameters.SetFilterValue10(AIndex: Integer; const AValue: string);
  32455. begin
  32456. If (FFilterValue10=AValue) then exit;
  32457. FFilterValue10:=AValue;
  32458. MarkPropertyChanged(AIndex);
  32459. end;
  32460. Procedure TSPRenderListDataOverrideParameters.SetFilterValue2(AIndex: Integer; const AValue: string);
  32461. begin
  32462. If (FFilterValue2=AValue) then exit;
  32463. FFilterValue2:=AValue;
  32464. MarkPropertyChanged(AIndex);
  32465. end;
  32466. Procedure TSPRenderListDataOverrideParameters.SetFilterValue3(AIndex: Integer; const AValue: string);
  32467. begin
  32468. If (FFilterValue3=AValue) then exit;
  32469. FFilterValue3:=AValue;
  32470. MarkPropertyChanged(AIndex);
  32471. end;
  32472. Procedure TSPRenderListDataOverrideParameters.SetFilterValue4(AIndex: Integer; const AValue: string);
  32473. begin
  32474. If (FFilterValue4=AValue) then exit;
  32475. FFilterValue4:=AValue;
  32476. MarkPropertyChanged(AIndex);
  32477. end;
  32478. Procedure TSPRenderListDataOverrideParameters.SetFilterValue5(AIndex: Integer; const AValue: string);
  32479. begin
  32480. If (FFilterValue5=AValue) then exit;
  32481. FFilterValue5:=AValue;
  32482. MarkPropertyChanged(AIndex);
  32483. end;
  32484. Procedure TSPRenderListDataOverrideParameters.SetFilterValue6(AIndex: Integer; const AValue: string);
  32485. begin
  32486. If (FFilterValue6=AValue) then exit;
  32487. FFilterValue6:=AValue;
  32488. MarkPropertyChanged(AIndex);
  32489. end;
  32490. Procedure TSPRenderListDataOverrideParameters.SetFilterValue7(AIndex: Integer; const AValue: string);
  32491. begin
  32492. If (FFilterValue7=AValue) then exit;
  32493. FFilterValue7:=AValue;
  32494. MarkPropertyChanged(AIndex);
  32495. end;
  32496. Procedure TSPRenderListDataOverrideParameters.SetFilterValue8(AIndex: Integer; const AValue: string);
  32497. begin
  32498. If (FFilterValue8=AValue) then exit;
  32499. FFilterValue8:=AValue;
  32500. MarkPropertyChanged(AIndex);
  32501. end;
  32502. Procedure TSPRenderListDataOverrideParameters.SetFilterValue9(AIndex: Integer; const AValue: string);
  32503. begin
  32504. If (FFilterValue9=AValue) then exit;
  32505. FFilterValue9:=AValue;
  32506. MarkPropertyChanged(AIndex);
  32507. end;
  32508. Procedure TSPRenderListDataOverrideParameters.SetFilterValues(AIndex: Integer; const AValue: string);
  32509. begin
  32510. If (FFilterValues=AValue) then exit;
  32511. FFilterValues:=AValue;
  32512. MarkPropertyChanged(AIndex);
  32513. end;
  32514. Procedure TSPRenderListDataOverrideParameters.SetFilterValues1(AIndex: Integer; const AValue: string);
  32515. begin
  32516. If (FFilterValues1=AValue) then exit;
  32517. FFilterValues1:=AValue;
  32518. MarkPropertyChanged(AIndex);
  32519. end;
  32520. Procedure TSPRenderListDataOverrideParameters.SetFilterValues10(AIndex: Integer; const AValue: string);
  32521. begin
  32522. If (FFilterValues10=AValue) then exit;
  32523. FFilterValues10:=AValue;
  32524. MarkPropertyChanged(AIndex);
  32525. end;
  32526. Procedure TSPRenderListDataOverrideParameters.SetFilterValues2(AIndex: Integer; const AValue: string);
  32527. begin
  32528. If (FFilterValues2=AValue) then exit;
  32529. FFilterValues2:=AValue;
  32530. MarkPropertyChanged(AIndex);
  32531. end;
  32532. Procedure TSPRenderListDataOverrideParameters.SetFilterValues3(AIndex: Integer; const AValue: string);
  32533. begin
  32534. If (FFilterValues3=AValue) then exit;
  32535. FFilterValues3:=AValue;
  32536. MarkPropertyChanged(AIndex);
  32537. end;
  32538. Procedure TSPRenderListDataOverrideParameters.SetFilterValues4(AIndex: Integer; const AValue: string);
  32539. begin
  32540. If (FFilterValues4=AValue) then exit;
  32541. FFilterValues4:=AValue;
  32542. MarkPropertyChanged(AIndex);
  32543. end;
  32544. Procedure TSPRenderListDataOverrideParameters.SetFilterValues5(AIndex: Integer; const AValue: string);
  32545. begin
  32546. If (FFilterValues5=AValue) then exit;
  32547. FFilterValues5:=AValue;
  32548. MarkPropertyChanged(AIndex);
  32549. end;
  32550. Procedure TSPRenderListDataOverrideParameters.SetFilterValues6(AIndex: Integer; const AValue: string);
  32551. begin
  32552. If (FFilterValues6=AValue) then exit;
  32553. FFilterValues6:=AValue;
  32554. MarkPropertyChanged(AIndex);
  32555. end;
  32556. Procedure TSPRenderListDataOverrideParameters.SetFilterValues7(AIndex: Integer; const AValue: string);
  32557. begin
  32558. If (FFilterValues7=AValue) then exit;
  32559. FFilterValues7:=AValue;
  32560. MarkPropertyChanged(AIndex);
  32561. end;
  32562. Procedure TSPRenderListDataOverrideParameters.SetFilterValues8(AIndex: Integer; const AValue: string);
  32563. begin
  32564. If (FFilterValues8=AValue) then exit;
  32565. FFilterValues8:=AValue;
  32566. MarkPropertyChanged(AIndex);
  32567. end;
  32568. Procedure TSPRenderListDataOverrideParameters.SetFilterValues9(AIndex: Integer; const AValue: string);
  32569. begin
  32570. If (FFilterValues9=AValue) then exit;
  32571. FFilterValues9:=AValue;
  32572. MarkPropertyChanged(AIndex);
  32573. end;
  32574. Procedure TSPRenderListDataOverrideParameters.SetGroupString(AIndex: Integer; const AValue: string);
  32575. begin
  32576. If (FGroupString=AValue) then exit;
  32577. FGroupString:=AValue;
  32578. MarkPropertyChanged(AIndex);
  32579. end;
  32580. Procedure TSPRenderListDataOverrideParameters.SetHasOverrideSelectCommand(AIndex: Integer; const AValue: string);
  32581. begin
  32582. If (FHasOverrideSelectCommand=AValue) then exit;
  32583. FHasOverrideSelectCommand:=AValue;
  32584. MarkPropertyChanged(AIndex);
  32585. end;
  32586. Procedure TSPRenderListDataOverrideParameters.SetID(AIndex: Integer; const AValue: string);
  32587. begin
  32588. If (FID=AValue) then exit;
  32589. FID:=AValue;
  32590. MarkPropertyChanged(AIndex);
  32591. end;
  32592. Procedure TSPRenderListDataOverrideParameters.SetInplaceFullListSearch(AIndex: Integer; const AValue: string);
  32593. begin
  32594. If (FInplaceFullListSearch=AValue) then exit;
  32595. FInplaceFullListSearch:=AValue;
  32596. MarkPropertyChanged(AIndex);
  32597. end;
  32598. Procedure TSPRenderListDataOverrideParameters.SetInplaceSearchQuery(AIndex: Integer; const AValue: string);
  32599. begin
  32600. If (FInplaceSearchQuery=AValue) then exit;
  32601. FInplaceSearchQuery:=AValue;
  32602. MarkPropertyChanged(AIndex);
  32603. end;
  32604. Procedure TSPRenderListDataOverrideParameters.SetIsCSR(AIndex: Integer; const AValue: string);
  32605. begin
  32606. If (FIsCSR=AValue) then exit;
  32607. FIsCSR:=AValue;
  32608. MarkPropertyChanged(AIndex);
  32609. end;
  32610. Procedure TSPRenderListDataOverrideParameters.SetIsGroupRender(AIndex: Integer; const AValue: string);
  32611. begin
  32612. If (FIsGroupRender=AValue) then exit;
  32613. FIsGroupRender:=AValue;
  32614. MarkPropertyChanged(AIndex);
  32615. end;
  32616. Procedure TSPRenderListDataOverrideParameters.SetIsXslView(AIndex: Integer; const AValue: string);
  32617. begin
  32618. If (FIsXslView=AValue) then exit;
  32619. FIsXslView:=AValue;
  32620. MarkPropertyChanged(AIndex);
  32621. end;
  32622. Procedure TSPRenderListDataOverrideParameters.SetListViewPageUrl(AIndex: Integer; const AValue: string);
  32623. begin
  32624. If (FListViewPageUrl=AValue) then exit;
  32625. FListViewPageUrl:=AValue;
  32626. MarkPropertyChanged(AIndex);
  32627. end;
  32628. Procedure TSPRenderListDataOverrideParameters.SetOverrideScope(AIndex: Integer; const AValue: string);
  32629. begin
  32630. If (FOverrideScope=AValue) then exit;
  32631. FOverrideScope:=AValue;
  32632. MarkPropertyChanged(AIndex);
  32633. end;
  32634. Procedure TSPRenderListDataOverrideParameters.SetOverrideSelectCommand(AIndex: Integer; const AValue: string);
  32635. begin
  32636. If (FOverrideSelectCommand=AValue) then exit;
  32637. FOverrideSelectCommand:=AValue;
  32638. MarkPropertyChanged(AIndex);
  32639. end;
  32640. Procedure TSPRenderListDataOverrideParameters.SetPageFirstRow(AIndex: Integer; const AValue: string);
  32641. begin
  32642. If (FPageFirstRow=AValue) then exit;
  32643. FPageFirstRow:=AValue;
  32644. MarkPropertyChanged(AIndex);
  32645. end;
  32646. Procedure TSPRenderListDataOverrideParameters.SetPageLastRow(AIndex: Integer; const AValue: string);
  32647. begin
  32648. If (FPageLastRow=AValue) then exit;
  32649. FPageLastRow:=AValue;
  32650. MarkPropertyChanged(AIndex);
  32651. end;
  32652. Procedure TSPRenderListDataOverrideParameters.SetRootFolder(AIndex: Integer; const AValue: string);
  32653. begin
  32654. If (FRootFolder=AValue) then exit;
  32655. FRootFolder:=AValue;
  32656. MarkPropertyChanged(AIndex);
  32657. end;
  32658. Procedure TSPRenderListDataOverrideParameters.SetSortDir(AIndex: Integer; const AValue: string);
  32659. begin
  32660. If (FSortDir=AValue) then exit;
  32661. FSortDir:=AValue;
  32662. MarkPropertyChanged(AIndex);
  32663. end;
  32664. Procedure TSPRenderListDataOverrideParameters.SetSortDir1(AIndex: Integer; const AValue: string);
  32665. begin
  32666. If (FSortDir1=AValue) then exit;
  32667. FSortDir1:=AValue;
  32668. MarkPropertyChanged(AIndex);
  32669. end;
  32670. Procedure TSPRenderListDataOverrideParameters.SetSortDir10(AIndex: Integer; const AValue: string);
  32671. begin
  32672. If (FSortDir10=AValue) then exit;
  32673. FSortDir10:=AValue;
  32674. MarkPropertyChanged(AIndex);
  32675. end;
  32676. Procedure TSPRenderListDataOverrideParameters.SetSortDir2(AIndex: Integer; const AValue: string);
  32677. begin
  32678. If (FSortDir2=AValue) then exit;
  32679. FSortDir2:=AValue;
  32680. MarkPropertyChanged(AIndex);
  32681. end;
  32682. Procedure TSPRenderListDataOverrideParameters.SetSortDir3(AIndex: Integer; const AValue: string);
  32683. begin
  32684. If (FSortDir3=AValue) then exit;
  32685. FSortDir3:=AValue;
  32686. MarkPropertyChanged(AIndex);
  32687. end;
  32688. Procedure TSPRenderListDataOverrideParameters.SetSortDir4(AIndex: Integer; const AValue: string);
  32689. begin
  32690. If (FSortDir4=AValue) then exit;
  32691. FSortDir4:=AValue;
  32692. MarkPropertyChanged(AIndex);
  32693. end;
  32694. Procedure TSPRenderListDataOverrideParameters.SetSortDir5(AIndex: Integer; const AValue: string);
  32695. begin
  32696. If (FSortDir5=AValue) then exit;
  32697. FSortDir5:=AValue;
  32698. MarkPropertyChanged(AIndex);
  32699. end;
  32700. Procedure TSPRenderListDataOverrideParameters.SetSortDir6(AIndex: Integer; const AValue: string);
  32701. begin
  32702. If (FSortDir6=AValue) then exit;
  32703. FSortDir6:=AValue;
  32704. MarkPropertyChanged(AIndex);
  32705. end;
  32706. Procedure TSPRenderListDataOverrideParameters.SetSortDir7(AIndex: Integer; const AValue: string);
  32707. begin
  32708. If (FSortDir7=AValue) then exit;
  32709. FSortDir7:=AValue;
  32710. MarkPropertyChanged(AIndex);
  32711. end;
  32712. Procedure TSPRenderListDataOverrideParameters.SetSortDir8(AIndex: Integer; const AValue: string);
  32713. begin
  32714. If (FSortDir8=AValue) then exit;
  32715. FSortDir8:=AValue;
  32716. MarkPropertyChanged(AIndex);
  32717. end;
  32718. Procedure TSPRenderListDataOverrideParameters.SetSortDir9(AIndex: Integer; const AValue: string);
  32719. begin
  32720. If (FSortDir9=AValue) then exit;
  32721. FSortDir9:=AValue;
  32722. MarkPropertyChanged(AIndex);
  32723. end;
  32724. Procedure TSPRenderListDataOverrideParameters.SetSortField(AIndex: Integer; const AValue: string);
  32725. begin
  32726. If (FSortField=AValue) then exit;
  32727. FSortField:=AValue;
  32728. MarkPropertyChanged(AIndex);
  32729. end;
  32730. Procedure TSPRenderListDataOverrideParameters.SetSortField1(AIndex: Integer; const AValue: string);
  32731. begin
  32732. If (FSortField1=AValue) then exit;
  32733. FSortField1:=AValue;
  32734. MarkPropertyChanged(AIndex);
  32735. end;
  32736. Procedure TSPRenderListDataOverrideParameters.SetSortField10(AIndex: Integer; const AValue: string);
  32737. begin
  32738. If (FSortField10=AValue) then exit;
  32739. FSortField10:=AValue;
  32740. MarkPropertyChanged(AIndex);
  32741. end;
  32742. Procedure TSPRenderListDataOverrideParameters.SetSortField2(AIndex: Integer; const AValue: string);
  32743. begin
  32744. If (FSortField2=AValue) then exit;
  32745. FSortField2:=AValue;
  32746. MarkPropertyChanged(AIndex);
  32747. end;
  32748. Procedure TSPRenderListDataOverrideParameters.SetSortField3(AIndex: Integer; const AValue: string);
  32749. begin
  32750. If (FSortField3=AValue) then exit;
  32751. FSortField3:=AValue;
  32752. MarkPropertyChanged(AIndex);
  32753. end;
  32754. Procedure TSPRenderListDataOverrideParameters.SetSortField4(AIndex: Integer; const AValue: string);
  32755. begin
  32756. If (FSortField4=AValue) then exit;
  32757. FSortField4:=AValue;
  32758. MarkPropertyChanged(AIndex);
  32759. end;
  32760. Procedure TSPRenderListDataOverrideParameters.SetSortField5(AIndex: Integer; const AValue: string);
  32761. begin
  32762. If (FSortField5=AValue) then exit;
  32763. FSortField5:=AValue;
  32764. MarkPropertyChanged(AIndex);
  32765. end;
  32766. Procedure TSPRenderListDataOverrideParameters.SetSortField6(AIndex: Integer; const AValue: string);
  32767. begin
  32768. If (FSortField6=AValue) then exit;
  32769. FSortField6:=AValue;
  32770. MarkPropertyChanged(AIndex);
  32771. end;
  32772. Procedure TSPRenderListDataOverrideParameters.SetSortField7(AIndex: Integer; const AValue: string);
  32773. begin
  32774. If (FSortField7=AValue) then exit;
  32775. FSortField7:=AValue;
  32776. MarkPropertyChanged(AIndex);
  32777. end;
  32778. Procedure TSPRenderListDataOverrideParameters.SetSortField8(AIndex: Integer; const AValue: string);
  32779. begin
  32780. If (FSortField8=AValue) then exit;
  32781. FSortField8:=AValue;
  32782. MarkPropertyChanged(AIndex);
  32783. end;
  32784. Procedure TSPRenderListDataOverrideParameters.SetSortField9(AIndex: Integer; const AValue: string);
  32785. begin
  32786. If (FSortField9=AValue) then exit;
  32787. FSortField9:=AValue;
  32788. MarkPropertyChanged(AIndex);
  32789. end;
  32790. Procedure TSPRenderListDataOverrideParameters.SetSortFields(AIndex: Integer; const AValue: string);
  32791. begin
  32792. If (FSortFields=AValue) then exit;
  32793. FSortFields:=AValue;
  32794. MarkPropertyChanged(AIndex);
  32795. end;
  32796. Procedure TSPRenderListDataOverrideParameters.SetSortFieldValues(AIndex: Integer; const AValue: string);
  32797. begin
  32798. If (FSortFieldValues=AValue) then exit;
  32799. FSortFieldValues:=AValue;
  32800. MarkPropertyChanged(AIndex);
  32801. end;
  32802. Procedure TSPRenderListDataOverrideParameters.SetView(AIndex: Integer; const AValue: string);
  32803. begin
  32804. If (FView=AValue) then exit;
  32805. FView:=AValue;
  32806. MarkPropertyChanged(AIndex);
  32807. end;
  32808. Procedure TSPRenderListDataOverrideParameters.SetViewCount(AIndex: Integer; const AValue: string);
  32809. begin
  32810. If (FViewCount=AValue) then exit;
  32811. FViewCount:=AValue;
  32812. MarkPropertyChanged(AIndex);
  32813. end;
  32814. Procedure TSPRenderListDataOverrideParameters.SetViewId(AIndex: Integer; const AValue: string);
  32815. begin
  32816. If (FViewId=AValue) then exit;
  32817. FViewId:=AValue;
  32818. MarkPropertyChanged(AIndex);
  32819. end;
  32820. Procedure TSPRenderListDataOverrideParameters.SetWebPartId(AIndex: Integer; const AValue: string);
  32821. begin
  32822. If (FWebPartId=AValue) then exit;
  32823. FWebPartId:=AValue;
  32824. MarkPropertyChanged(AIndex);
  32825. end;
  32826. { --------------------------------------------------------------------
  32827. TSPRenderListDataParameters
  32828. --------------------------------------------------------------------}
  32829. Class Function TSPRenderListDataParameters.ObjectRestKind : String;
  32830. begin
  32831. Result:='RenderListDataParameters';
  32832. end;
  32833. Procedure TSPRenderListDataParameters.SetFolderServerRelativeUrl(AIndex: Integer; const AValue: string);
  32834. begin
  32835. If (FFolderServerRelativeUrl=AValue) then exit;
  32836. FFolderServerRelativeUrl:=AValue;
  32837. MarkPropertyChanged(AIndex);
  32838. end;
  32839. Procedure TSPRenderListDataParameters.SetPaging(AIndex: Integer; const AValue: string);
  32840. begin
  32841. If (FPaging=AValue) then exit;
  32842. FPaging:=AValue;
  32843. MarkPropertyChanged(AIndex);
  32844. end;
  32845. Procedure TSPRenderListDataParameters.SetRenderOptions(AIndex: Integer; const AValue: TInt32);
  32846. begin
  32847. If (FRenderOptions=AValue) then exit;
  32848. FRenderOptions:=AValue;
  32849. MarkPropertyChanged(AIndex);
  32850. end;
  32851. Procedure TSPRenderListDataParameters.SetViewXml(AIndex: Integer; const AValue: string);
  32852. begin
  32853. If (FViewXml=AValue) then exit;
  32854. FViewXml:=AValue;
  32855. MarkPropertyChanged(AIndex);
  32856. end;
  32857. { --------------------------------------------------------------------
  32858. TSPRenderListFilterDataParameters
  32859. --------------------------------------------------------------------}
  32860. Class Function TSPRenderListFilterDataParameters.ObjectRestKind : String;
  32861. begin
  32862. Result:='RenderListFilterDataParameters';
  32863. end;
  32864. Procedure TSPRenderListFilterDataParameters.SetFieldInternalName(AIndex: Integer; const AValue: string);
  32865. begin
  32866. If (FFieldInternalName=AValue) then exit;
  32867. FFieldInternalName:=AValue;
  32868. MarkPropertyChanged(AIndex);
  32869. end;
  32870. Procedure TSPRenderListFilterDataParameters.SetOverrideScope(AIndex: Integer; const AValue: string);
  32871. begin
  32872. If (FOverrideScope=AValue) then exit;
  32873. FOverrideScope:=AValue;
  32874. MarkPropertyChanged(AIndex);
  32875. end;
  32876. Procedure TSPRenderListFilterDataParameters.SetProcessQStringToCAML(AIndex: Integer; const AValue: string);
  32877. begin
  32878. If (FProcessQStringToCAML=AValue) then exit;
  32879. FProcessQStringToCAML:=AValue;
  32880. MarkPropertyChanged(AIndex);
  32881. end;
  32882. Procedure TSPRenderListFilterDataParameters.SetViewId(AIndex: Integer; const AValue: string);
  32883. begin
  32884. If (FViewId=AValue) then exit;
  32885. FViewId:=AValue;
  32886. MarkPropertyChanged(AIndex);
  32887. end;
  32888. { --------------------------------------------------------------------
  32889. TSPRoleDefinitionCreationInformation
  32890. --------------------------------------------------------------------}
  32891. Class Function TSPRoleDefinitionCreationInformation.ObjectRestKind : String;
  32892. begin
  32893. Result:='RoleDefinitionCreationInformation';
  32894. end;
  32895. Procedure TSPRoleDefinitionCreationInformation.SetBasePermissions(AIndex: Integer; const AValue: TSPBasePermissions);
  32896. begin
  32897. If (FBasePermissions=AValue) then exit;
  32898. FBasePermissions:=AValue;
  32899. MarkPropertyChanged(AIndex);
  32900. end;
  32901. Procedure TSPRoleDefinitionCreationInformation.SetDescription(AIndex: Integer; const AValue: string);
  32902. begin
  32903. If (FDescription=AValue) then exit;
  32904. FDescription:=AValue;
  32905. MarkPropertyChanged(AIndex);
  32906. end;
  32907. Procedure TSPRoleDefinitionCreationInformation.SetName(AIndex: Integer; const AValue: string);
  32908. begin
  32909. If (FName=AValue) then exit;
  32910. FName:=AValue;
  32911. MarkPropertyChanged(AIndex);
  32912. end;
  32913. Procedure TSPRoleDefinitionCreationInformation.SetOrder(AIndex: Integer; const AValue: TInt32);
  32914. begin
  32915. If (FOrder=AValue) then exit;
  32916. FOrder:=AValue;
  32917. MarkPropertyChanged(AIndex);
  32918. end;
  32919. { --------------------------------------------------------------------
  32920. TSPUpgradeInfo
  32921. --------------------------------------------------------------------}
  32922. Class Function TSPUpgradeInfo.ObjectRestKind : String;
  32923. begin
  32924. Result:='UpgradeInfo';
  32925. end;
  32926. Procedure TSPUpgradeInfo.SetErrorFile(AIndex: Integer; const AValue: string);
  32927. begin
  32928. If (FErrorFile=AValue) then exit;
  32929. FErrorFile:=AValue;
  32930. MarkPropertyChanged(AIndex);
  32931. end;
  32932. Procedure TSPUpgradeInfo.SetErrors(AIndex: Integer; const AValue: TInt32);
  32933. begin
  32934. If (FErrors=AValue) then exit;
  32935. FErrors:=AValue;
  32936. MarkPropertyChanged(AIndex);
  32937. end;
  32938. Procedure TSPUpgradeInfo.SetLastUpdated(AIndex: Integer; const AValue: TDateTime);
  32939. begin
  32940. If (FLastUpdated=AValue) then exit;
  32941. FLastUpdated:=AValue;
  32942. MarkPropertyChanged(AIndex);
  32943. end;
  32944. Procedure TSPUpgradeInfo.SetLogFile(AIndex: Integer; const AValue: string);
  32945. begin
  32946. If (FLogFile=AValue) then exit;
  32947. FLogFile:=AValue;
  32948. MarkPropertyChanged(AIndex);
  32949. end;
  32950. Procedure TSPUpgradeInfo.SetRequestDate(AIndex: Integer; const AValue: TDateTime);
  32951. begin
  32952. If (FRequestDate=AValue) then exit;
  32953. FRequestDate:=AValue;
  32954. MarkPropertyChanged(AIndex);
  32955. end;
  32956. Procedure TSPUpgradeInfo.SetRetryCount(AIndex: Integer; const AValue: TInt32);
  32957. begin
  32958. If (FRetryCount=AValue) then exit;
  32959. FRetryCount:=AValue;
  32960. MarkPropertyChanged(AIndex);
  32961. end;
  32962. Procedure TSPUpgradeInfo.SetStartTime(AIndex: Integer; const AValue: TDateTime);
  32963. begin
  32964. If (FStartTime=AValue) then exit;
  32965. FStartTime:=AValue;
  32966. MarkPropertyChanged(AIndex);
  32967. end;
  32968. Procedure TSPUpgradeInfo.SetStatus(AIndex: Integer; const AValue: TInt32);
  32969. begin
  32970. If (FStatus=AValue) then exit;
  32971. FStatus:=AValue;
  32972. MarkPropertyChanged(AIndex);
  32973. end;
  32974. Procedure TSPUpgradeInfo.SetUpgradeType(AIndex: Integer; const AValue: TInt32);
  32975. begin
  32976. If (FUpgradeType=AValue) then exit;
  32977. FUpgradeType:=AValue;
  32978. MarkPropertyChanged(AIndex);
  32979. end;
  32980. Procedure TSPUpgradeInfo.SetWarnings(AIndex: Integer; const AValue: TInt32);
  32981. begin
  32982. If (FWarnings=AValue) then exit;
  32983. FWarnings:=AValue;
  32984. MarkPropertyChanged(AIndex);
  32985. end;
  32986. { --------------------------------------------------------------------
  32987. TSPSubwebQuery
  32988. --------------------------------------------------------------------}
  32989. Class Function TSPSubwebQuery.ObjectRestKind : String;
  32990. begin
  32991. Result:='SubwebQuery';
  32992. end;
  32993. Procedure TSPSubwebQuery.SetConfigurationFilter(AIndex: Integer; const AValue: TInt32);
  32994. begin
  32995. If (FConfigurationFilter=AValue) then exit;
  32996. FConfigurationFilter:=AValue;
  32997. MarkPropertyChanged(AIndex);
  32998. end;
  32999. Procedure TSPSubwebQuery.SetWebTemplateFilter(AIndex: Integer; const AValue: TInt32);
  33000. begin
  33001. If (FWebTemplateFilter=AValue) then exit;
  33002. FWebTemplateFilter:=AValue;
  33003. MarkPropertyChanged(AIndex);
  33004. end;
  33005. { --------------------------------------------------------------------
  33006. TSPTenantAppInformation
  33007. --------------------------------------------------------------------}
  33008. Class Function TSPTenantAppInformation.ObjectRestKind : String;
  33009. begin
  33010. Result:='TenantAppInformation';
  33011. end;
  33012. Procedure TSPTenantAppInformation.SetAppPrincipalId(AIndex: Integer; const AValue: string);
  33013. begin
  33014. If (FAppPrincipalId=AValue) then exit;
  33015. FAppPrincipalId:=AValue;
  33016. MarkPropertyChanged(AIndex);
  33017. end;
  33018. Procedure TSPTenantAppInformation.SetAppWebFullUrl(AIndex: Integer; const AValue: string);
  33019. begin
  33020. If (FAppWebFullUrl=AValue) then exit;
  33021. FAppWebFullUrl:=AValue;
  33022. MarkPropertyChanged(AIndex);
  33023. end;
  33024. Procedure TSPTenantAppInformation.SetCreationTime(AIndex: Integer; const AValue: TDateTime);
  33025. begin
  33026. If (FCreationTime=AValue) then exit;
  33027. FCreationTime:=AValue;
  33028. MarkPropertyChanged(AIndex);
  33029. end;
  33030. Procedure TSPTenantAppInformation.SetIconAbsoluteUrl(AIndex: Integer; const AValue: string);
  33031. begin
  33032. If (FIconAbsoluteUrl=AValue) then exit;
  33033. FIconAbsoluteUrl:=AValue;
  33034. MarkPropertyChanged(AIndex);
  33035. end;
  33036. Procedure TSPTenantAppInformation.SetIconFallbackAbsoluteUrl(AIndex: Integer; const AValue: string);
  33037. begin
  33038. If (FIconFallbackAbsoluteUrl=AValue) then exit;
  33039. FIconFallbackAbsoluteUrl:=AValue;
  33040. MarkPropertyChanged(AIndex);
  33041. end;
  33042. Procedure TSPTenantAppInformation.SetId(AIndex: Integer; const AValue: TGUIDString);
  33043. begin
  33044. If (FId=AValue) then exit;
  33045. FId:=AValue;
  33046. MarkPropertyChanged(AIndex);
  33047. end;
  33048. Procedure TSPTenantAppInformation.SetLaunchUrl(AIndex: Integer; const AValue: string);
  33049. begin
  33050. If (FLaunchUrl=AValue) then exit;
  33051. FLaunchUrl:=AValue;
  33052. MarkPropertyChanged(AIndex);
  33053. end;
  33054. Procedure TSPTenantAppInformation.SetPackageFingerprint(AIndex: Integer; const AValue: TBinary);
  33055. begin
  33056. If (FPackageFingerprint=AValue) then exit;
  33057. FPackageFingerprint:=AValue;
  33058. MarkPropertyChanged(AIndex);
  33059. end;
  33060. Procedure TSPTenantAppInformation.SetProductId(AIndex: Integer; const AValue: TGUIDString);
  33061. begin
  33062. If (FProductId=AValue) then exit;
  33063. FProductId:=AValue;
  33064. MarkPropertyChanged(AIndex);
  33065. end;
  33066. Procedure TSPTenantAppInformation.SetRemoteAppUrl(AIndex: Integer; const AValue: string);
  33067. begin
  33068. If (FRemoteAppUrl=AValue) then exit;
  33069. FRemoteAppUrl:=AValue;
  33070. MarkPropertyChanged(AIndex);
  33071. end;
  33072. Procedure TSPTenantAppInformation.SetStatus(AIndex: Integer; const AValue: TInt32);
  33073. begin
  33074. If (FStatus=AValue) then exit;
  33075. FStatus:=AValue;
  33076. MarkPropertyChanged(AIndex);
  33077. end;
  33078. Procedure TSPTenantAppInformation.SetTitle(AIndex: Integer; const AValue: string);
  33079. begin
  33080. If (FTitle=AValue) then exit;
  33081. FTitle:=AValue;
  33082. MarkPropertyChanged(AIndex);
  33083. end;
  33084. { --------------------------------------------------------------------
  33085. TSPTimeZoneInformation
  33086. --------------------------------------------------------------------}
  33087. Class Function TSPTimeZoneInformation.ObjectRestKind : String;
  33088. begin
  33089. Result:='TimeZoneInformation';
  33090. end;
  33091. Procedure TSPTimeZoneInformation.SetBias(AIndex: Integer; const AValue: TInt32);
  33092. begin
  33093. If (FBias=AValue) then exit;
  33094. FBias:=AValue;
  33095. MarkPropertyChanged(AIndex);
  33096. end;
  33097. Procedure TSPTimeZoneInformation.SetDaylightBias(AIndex: Integer; const AValue: TInt32);
  33098. begin
  33099. If (FDaylightBias=AValue) then exit;
  33100. FDaylightBias:=AValue;
  33101. MarkPropertyChanged(AIndex);
  33102. end;
  33103. Procedure TSPTimeZoneInformation.SetStandardBias(AIndex: Integer; const AValue: TInt32);
  33104. begin
  33105. If (FStandardBias=AValue) then exit;
  33106. FStandardBias:=AValue;
  33107. MarkPropertyChanged(AIndex);
  33108. end;
  33109. { --------------------------------------------------------------------
  33110. TSPUsageInfo
  33111. --------------------------------------------------------------------}
  33112. Class Function TSPUsageInfo.ObjectRestKind : String;
  33113. begin
  33114. Result:='UsageInfo';
  33115. end;
  33116. Procedure TSPUsageInfo.SetBandwidth(AIndex: Integer; const AValue: int64);
  33117. begin
  33118. If (FBandwidth=AValue) then exit;
  33119. FBandwidth:=AValue;
  33120. MarkPropertyChanged(AIndex);
  33121. end;
  33122. Procedure TSPUsageInfo.SetDiscussionStorage(AIndex: Integer; const AValue: int64);
  33123. begin
  33124. If (FDiscussionStorage=AValue) then exit;
  33125. FDiscussionStorage:=AValue;
  33126. MarkPropertyChanged(AIndex);
  33127. end;
  33128. Procedure TSPUsageInfo.SetHits(AIndex: Integer; const AValue: int64);
  33129. begin
  33130. If (FHits=AValue) then exit;
  33131. FHits:=AValue;
  33132. MarkPropertyChanged(AIndex);
  33133. end;
  33134. Procedure TSPUsageInfo.SetStorage(AIndex: Integer; const AValue: int64);
  33135. begin
  33136. If (FStorage=AValue) then exit;
  33137. FStorage:=AValue;
  33138. MarkPropertyChanged(AIndex);
  33139. end;
  33140. Procedure TSPUsageInfo.SetStoragePercentageUsed(AIndex: Integer; const AValue: Double);
  33141. begin
  33142. If (FStoragePercentageUsed=AValue) then exit;
  33143. FStoragePercentageUsed:=AValue;
  33144. MarkPropertyChanged(AIndex);
  33145. end;
  33146. Procedure TSPUsageInfo.SetVisits(AIndex: Integer; const AValue: int64);
  33147. begin
  33148. If (FVisits=AValue) then exit;
  33149. FVisits:=AValue;
  33150. MarkPropertyChanged(AIndex);
  33151. end;
  33152. { --------------------------------------------------------------------
  33153. TSPUserCreationInformation
  33154. --------------------------------------------------------------------}
  33155. Class Function TSPUserCreationInformation.ObjectRestKind : String;
  33156. begin
  33157. Result:='UserCreationInformation';
  33158. end;
  33159. Procedure TSPUserCreationInformation.SetEmail(AIndex: Integer; const AValue: string);
  33160. begin
  33161. If (FEmail=AValue) then exit;
  33162. FEmail:=AValue;
  33163. MarkPropertyChanged(AIndex);
  33164. end;
  33165. Procedure TSPUserCreationInformation.SetLoginName(AIndex: Integer; const AValue: string);
  33166. begin
  33167. If (FLoginName=AValue) then exit;
  33168. FLoginName:=AValue;
  33169. MarkPropertyChanged(AIndex);
  33170. end;
  33171. Procedure TSPUserCreationInformation.SetTitle(AIndex: Integer; const AValue: string);
  33172. begin
  33173. If (FTitle=AValue) then exit;
  33174. FTitle:=AValue;
  33175. MarkPropertyChanged(AIndex);
  33176. end;
  33177. { --------------------------------------------------------------------
  33178. TSPUserIdInfo
  33179. --------------------------------------------------------------------}
  33180. Class Function TSPUserIdInfo.ObjectRestKind : String;
  33181. begin
  33182. Result:='UserIdInfo';
  33183. end;
  33184. Procedure TSPUserIdInfo.SetNameId(AIndex: Integer; const AValue: string);
  33185. begin
  33186. If (FNameId=AValue) then exit;
  33187. FNameId:=AValue;
  33188. MarkPropertyChanged(AIndex);
  33189. end;
  33190. Procedure TSPUserIdInfo.SetNameIdIssuer(AIndex: Integer; const AValue: string);
  33191. begin
  33192. If (FNameIdIssuer=AValue) then exit;
  33193. FNameIdIssuer:=AValue;
  33194. MarkPropertyChanged(AIndex);
  33195. end;
  33196. { --------------------------------------------------------------------
  33197. TSPViewCreationInformation
  33198. --------------------------------------------------------------------}
  33199. Class Function TSPViewCreationInformation.ObjectRestKind : String;
  33200. begin
  33201. Result:='ViewCreationInformation';
  33202. end;
  33203. Procedure TSPViewCreationInformation.SetPaged(AIndex: Integer; const AValue: boolean);
  33204. begin
  33205. If (FPaged=AValue) then exit;
  33206. FPaged:=AValue;
  33207. MarkPropertyChanged(AIndex);
  33208. end;
  33209. Procedure TSPViewCreationInformation.SetPersonalView(AIndex: Integer; const AValue: boolean);
  33210. begin
  33211. If (FPersonalView=AValue) then exit;
  33212. FPersonalView:=AValue;
  33213. MarkPropertyChanged(AIndex);
  33214. end;
  33215. Procedure TSPViewCreationInformation.SetQuery(AIndex: Integer; const AValue: string);
  33216. begin
  33217. If (FQuery=AValue) then exit;
  33218. FQuery:=AValue;
  33219. MarkPropertyChanged(AIndex);
  33220. end;
  33221. Procedure TSPViewCreationInformation.SetRowLimit(AIndex: Integer; const AValue: TInt32);
  33222. begin
  33223. If (FRowLimit=AValue) then exit;
  33224. FRowLimit:=AValue;
  33225. MarkPropertyChanged(AIndex);
  33226. end;
  33227. Procedure TSPViewCreationInformation.SetSetAsDefaultView(AIndex: Integer; const AValue: boolean);
  33228. begin
  33229. If (FSetAsDefaultView=AValue) then exit;
  33230. FSetAsDefaultView:=AValue;
  33231. MarkPropertyChanged(AIndex);
  33232. end;
  33233. Procedure TSPViewCreationInformation.SetTitle(AIndex: Integer; const AValue: string);
  33234. begin
  33235. If (FTitle=AValue) then exit;
  33236. FTitle:=AValue;
  33237. MarkPropertyChanged(AIndex);
  33238. end;
  33239. Procedure TSPViewCreationInformation.SetViewFields(AIndex: Integer; const AValue: TStringArray);
  33240. begin
  33241. If (FViewFields=AValue) then exit;
  33242. FViewFields:=AValue;
  33243. MarkPropertyChanged(AIndex);
  33244. end;
  33245. Procedure TSPViewCreationInformation.SetViewTypeKind(AIndex: Integer; const AValue: TInt32);
  33246. begin
  33247. If (FViewTypeKind=AValue) then exit;
  33248. FViewTypeKind:=AValue;
  33249. MarkPropertyChanged(AIndex);
  33250. end;
  33251. {$IFDEF VER2_6}
  33252. Procedure TSPViewCreationInformation.SetArrayLength(const AName: String; ALength: Longint);
  33253. begin
  33254. Case aName of
  33255. 'viewfields' : SetLength(FViewFields,aLength);
  33256. else
  33257. inherited SetArrayLength(aName,ALength);
  33258. end;
  33259. end;
  33260. {$ENDIF VER2_6}
  33261. { --------------------------------------------------------------------
  33262. TSPWebCreationInformation
  33263. --------------------------------------------------------------------}
  33264. Class Function TSPWebCreationInformation.ObjectRestKind : String;
  33265. begin
  33266. Result:='WebCreationInformation';
  33267. end;
  33268. Procedure TSPWebCreationInformation.SetDescription(AIndex: Integer; const AValue: string);
  33269. begin
  33270. If (FDescription=AValue) then exit;
  33271. FDescription:=AValue;
  33272. MarkPropertyChanged(AIndex);
  33273. end;
  33274. Procedure TSPWebCreationInformation.SetLanguage(AIndex: Integer; const AValue: TInt32);
  33275. begin
  33276. If (FLanguage=AValue) then exit;
  33277. FLanguage:=AValue;
  33278. MarkPropertyChanged(AIndex);
  33279. end;
  33280. Procedure TSPWebCreationInformation.SetTitle(AIndex: Integer; const AValue: string);
  33281. begin
  33282. If (FTitle=AValue) then exit;
  33283. FTitle:=AValue;
  33284. MarkPropertyChanged(AIndex);
  33285. end;
  33286. Procedure TSPWebCreationInformation.SetUrl(AIndex: Integer; const AValue: string);
  33287. begin
  33288. If (FUrl=AValue) then exit;
  33289. FUrl:=AValue;
  33290. MarkPropertyChanged(AIndex);
  33291. end;
  33292. Procedure TSPWebCreationInformation.SetUseSamePermissionsAsParentSite(AIndex: Integer; const AValue: boolean);
  33293. begin
  33294. If (FUseSamePermissionsAsParentSite=AValue) then exit;
  33295. FUseSamePermissionsAsParentSite:=AValue;
  33296. MarkPropertyChanged(AIndex);
  33297. end;
  33298. Procedure TSPWebCreationInformation.SetWebTemplate(AIndex: Integer; const AValue: string);
  33299. begin
  33300. If (FWebTemplate=AValue) then exit;
  33301. FWebTemplate:=AValue;
  33302. MarkPropertyChanged(AIndex);
  33303. end;
  33304. { --------------------------------------------------------------------
  33305. TSPWebInfoCreationInformation
  33306. --------------------------------------------------------------------}
  33307. Class Function TSPWebInfoCreationInformation.ObjectRestKind : String;
  33308. begin
  33309. Result:='WebInfoCreationInformation';
  33310. end;
  33311. Procedure TSPWebInfoCreationInformation.SetDescription(AIndex: Integer; const AValue: string);
  33312. begin
  33313. If (FDescription=AValue) then exit;
  33314. FDescription:=AValue;
  33315. MarkPropertyChanged(AIndex);
  33316. end;
  33317. Procedure TSPWebInfoCreationInformation.SetLanguage(AIndex: Integer; const AValue: TInt32);
  33318. begin
  33319. If (FLanguage=AValue) then exit;
  33320. FLanguage:=AValue;
  33321. MarkPropertyChanged(AIndex);
  33322. end;
  33323. Procedure TSPWebInfoCreationInformation.SetTitle(AIndex: Integer; const AValue: string);
  33324. begin
  33325. If (FTitle=AValue) then exit;
  33326. FTitle:=AValue;
  33327. MarkPropertyChanged(AIndex);
  33328. end;
  33329. Procedure TSPWebInfoCreationInformation.SetUrl(AIndex: Integer; const AValue: string);
  33330. begin
  33331. If (FUrl=AValue) then exit;
  33332. FUrl:=AValue;
  33333. MarkPropertyChanged(AIndex);
  33334. end;
  33335. Procedure TSPWebInfoCreationInformation.SetUseUniquePermissions(AIndex: Integer; const AValue: boolean);
  33336. begin
  33337. If (FUseUniquePermissions=AValue) then exit;
  33338. FUseUniquePermissions:=AValue;
  33339. MarkPropertyChanged(AIndex);
  33340. end;
  33341. Procedure TSPWebInfoCreationInformation.SetWebTemplate(AIndex: Integer; const AValue: string);
  33342. begin
  33343. If (FWebTemplate=AValue) then exit;
  33344. FWebTemplate:=AValue;
  33345. MarkPropertyChanged(AIndex);
  33346. end;
  33347. { --------------------------------------------------------------------
  33348. TSPWebRequestInfo
  33349. --------------------------------------------------------------------}
  33350. Class Function TSPWebRequestInfo.ObjectRestKind : String;
  33351. begin
  33352. Result:='WebRequestInfo';
  33353. end;
  33354. Procedure TSPWebRequestInfo.SetBody(AIndex: Integer; const AValue: string);
  33355. begin
  33356. If (FBody=AValue) then exit;
  33357. FBody:=AValue;
  33358. MarkPropertyChanged(AIndex);
  33359. end;
  33360. Procedure TSPWebRequestInfo.SetHeaders(AIndex: Integer; const AValue: TSPKeyValueArray);
  33361. begin
  33362. If (FHeaders=AValue) then exit;
  33363. FHeaders:=AValue;
  33364. MarkPropertyChanged(AIndex);
  33365. end;
  33366. Procedure TSPWebRequestInfo.SetMethod(AIndex: Integer; const AValue: string);
  33367. begin
  33368. If (FMethod=AValue) then exit;
  33369. FMethod:=AValue;
  33370. MarkPropertyChanged(AIndex);
  33371. end;
  33372. Procedure TSPWebRequestInfo.SetUrl(AIndex: Integer; const AValue: string);
  33373. begin
  33374. If (FUrl=AValue) then exit;
  33375. FUrl:=AValue;
  33376. MarkPropertyChanged(AIndex);
  33377. end;
  33378. {$IFDEF VER2_6}
  33379. Procedure TSPWebRequestInfo.SetArrayLength(const AName: String; ALength: Longint);
  33380. begin
  33381. Case aName of
  33382. 'headers' : SetLength(FHeaders,aLength);
  33383. else
  33384. inherited SetArrayLength(aName,ALength);
  33385. end;
  33386. end;
  33387. {$ENDIF VER2_6}
  33388. { --------------------------------------------------------------------
  33389. TSPWebResponseInfo
  33390. --------------------------------------------------------------------}
  33391. Class Function TSPWebResponseInfo.ObjectRestKind : String;
  33392. begin
  33393. Result:='WebResponseInfo';
  33394. end;
  33395. Procedure TSPWebResponseInfo.SetBody(AIndex: Integer; const AValue: string);
  33396. begin
  33397. If (FBody=AValue) then exit;
  33398. FBody:=AValue;
  33399. MarkPropertyChanged(AIndex);
  33400. end;
  33401. Procedure TSPWebResponseInfo.SetHeaders(AIndex: Integer; const AValue: TSPKeyValueArray);
  33402. begin
  33403. If (FHeaders=AValue) then exit;
  33404. FHeaders:=AValue;
  33405. MarkPropertyChanged(AIndex);
  33406. end;
  33407. Procedure TSPWebResponseInfo.SetStatusCode(AIndex: Integer; const AValue: TInt32);
  33408. begin
  33409. If (FStatusCode=AValue) then exit;
  33410. FStatusCode:=AValue;
  33411. MarkPropertyChanged(AIndex);
  33412. end;
  33413. {$IFDEF VER2_6}
  33414. Procedure TSPWebResponseInfo.SetArrayLength(const AName: String; ALength: Longint);
  33415. begin
  33416. Case aName of
  33417. 'headers' : SetLength(FHeaders,aLength);
  33418. else
  33419. inherited SetArrayLength(aName,ALength);
  33420. end;
  33421. end;
  33422. {$ENDIF VER2_6}
  33423. { --------------------------------------------------------------------
  33424. TSPXmlSchemaFieldCreationInformation
  33425. --------------------------------------------------------------------}
  33426. Class Function TSPXmlSchemaFieldCreationInformation.ObjectRestKind : String;
  33427. begin
  33428. Result:='XmlSchemaFieldCreationInformation';
  33429. end;
  33430. Procedure TSPXmlSchemaFieldCreationInformation.SetOptions(AIndex: Integer; const AValue: TInt32);
  33431. begin
  33432. If (FOptions=AValue) then exit;
  33433. FOptions:=AValue;
  33434. MarkPropertyChanged(AIndex);
  33435. end;
  33436. Procedure TSPXmlSchemaFieldCreationInformation.SetSchemaXml(AIndex: Integer; const AValue: string);
  33437. begin
  33438. If (FSchemaXml=AValue) then exit;
  33439. FSchemaXml:=AValue;
  33440. MarkPropertyChanged(AIndex);
  33441. end;
  33442. { --------------------------------------------------------------------
  33443. TSPApiMetadata
  33444. --------------------------------------------------------------------}
  33445. Class Function TSPApiMetadata.ObjectRestKind : String;
  33446. begin
  33447. Result:='ApiMetadata';
  33448. end;
  33449. Procedure TSPApiMetadata.SetId4a81de82eeb94d6080ea5bf63e27023a(AIndex: Integer; const AValue: string);
  33450. begin
  33451. If (FId4a81de82eeb94d6080ea5bf63e27023a=AValue) then exit;
  33452. FId4a81de82eeb94d6080ea5bf63e27023a:=AValue;
  33453. MarkPropertyChanged(AIndex);
  33454. end;
  33455. Function TSPApiMetadata.KeyAsURLPart : string;
  33456. begin
  33457. Result:=TODataObject.MakeKeyString(Id4a81de82eeb94d6080ea5bf63e27023a);
  33458. end;
  33459. Function TSPApiMetadata.Current(AService: TODataService) : TSPApiMetadata;
  33460. begin
  33461. Result:=TSPApiMetadata(GetContainedSingleTon(AService,'Current', TSPApiMetadata));
  33462. end;
  33463. Function TSPApiMetadata.Types(AService: TODataService) : TSPTypeInformation;
  33464. begin
  33465. Result:=TSPTypeInformation(GetContainedSingleTon(AService,'Types', TSPTypeInformation));
  33466. end;
  33467. { --------------------------------------------------------------------
  33468. TSPTypeInformation
  33469. --------------------------------------------------------------------}
  33470. Class Function TSPTypeInformation.ObjectRestKind : String;
  33471. begin
  33472. Result:='TypeInformation';
  33473. end;
  33474. Procedure TSPTypeInformation.SetBaseTypeFullName(AIndex: Integer; const AValue: string);
  33475. begin
  33476. If (FBaseTypeFullName=AValue) then exit;
  33477. FBaseTypeFullName:=AValue;
  33478. MarkPropertyChanged(AIndex);
  33479. end;
  33480. Procedure TSPTypeInformation.SetFullName(AIndex: Integer; const AValue: string);
  33481. begin
  33482. If (FFullName=AValue) then exit;
  33483. FFullName:=AValue;
  33484. MarkPropertyChanged(AIndex);
  33485. end;
  33486. Procedure TSPTypeInformation.SetIsValueObject(AIndex: Integer; const AValue: boolean);
  33487. begin
  33488. If (FIsValueObject=AValue) then exit;
  33489. FIsValueObject:=AValue;
  33490. MarkPropertyChanged(AIndex);
  33491. end;
  33492. Procedure TSPTypeInformation.SetMethods(AIndex: Integer; const AValue: TSPMethodInformationArray);
  33493. begin
  33494. If (FMethods=AValue) then exit;
  33495. FMethods:=AValue;
  33496. MarkPropertyChanged(AIndex);
  33497. end;
  33498. Procedure TSPTypeInformation.SetProperties(AIndex: Integer; const AValue: TSPPropertyInformationArray);
  33499. begin
  33500. If (FProperties=AValue) then exit;
  33501. FProperties:=AValue;
  33502. MarkPropertyChanged(AIndex);
  33503. end;
  33504. {$IFDEF VER2_6}
  33505. Procedure TSPTypeInformation.SetArrayLength(const AName: String; ALength: Longint);
  33506. begin
  33507. Case aName of
  33508. 'methods' : SetLength(FMethods,aLength);
  33509. 'properties' : SetLength(FProperties,aLength);
  33510. else
  33511. inherited SetArrayLength(aName,ALength);
  33512. end;
  33513. end;
  33514. {$ENDIF VER2_6}
  33515. Function TSPTypeInformation.KeyAsURLPart : string;
  33516. begin
  33517. Result:=TODataObject.MakeKeyString(BaseTypeFullName);
  33518. end;
  33519. { --------------------------------------------------------------------
  33520. TSPSite
  33521. --------------------------------------------------------------------}
  33522. Class Function TSPSite.ObjectRestKind : String;
  33523. begin
  33524. Result:='Site';
  33525. end;
  33526. Procedure TSPSite.SetAllowCreateDeclarativeWorkflow(AIndex: Integer; const AValue: boolean);
  33527. begin
  33528. If (FAllowCreateDeclarativeWorkflow=AValue) then exit;
  33529. FAllowCreateDeclarativeWorkflow:=AValue;
  33530. MarkPropertyChanged(AIndex);
  33531. end;
  33532. Procedure TSPSite.SetAllowDesigner(AIndex: Integer; const AValue: boolean);
  33533. begin
  33534. If (FAllowDesigner=AValue) then exit;
  33535. FAllowDesigner:=AValue;
  33536. MarkPropertyChanged(AIndex);
  33537. end;
  33538. Procedure TSPSite.SetAllowMasterPageEditing(AIndex: Integer; const AValue: boolean);
  33539. begin
  33540. If (FAllowMasterPageEditing=AValue) then exit;
  33541. FAllowMasterPageEditing:=AValue;
  33542. MarkPropertyChanged(AIndex);
  33543. end;
  33544. Procedure TSPSite.SetAllowRevertFromTemplate(AIndex: Integer; const AValue: boolean);
  33545. begin
  33546. If (FAllowRevertFromTemplate=AValue) then exit;
  33547. FAllowRevertFromTemplate:=AValue;
  33548. MarkPropertyChanged(AIndex);
  33549. end;
  33550. Procedure TSPSite.SetAllowSaveDeclarativeWorkflowAsTemplate(AIndex: Integer; const AValue: boolean);
  33551. begin
  33552. If (FAllowSaveDeclarativeWorkflowAsTemplate=AValue) then exit;
  33553. FAllowSaveDeclarativeWorkflowAsTemplate:=AValue;
  33554. MarkPropertyChanged(AIndex);
  33555. end;
  33556. Procedure TSPSite.SetAllowSavePublishDeclarativeWorkflow(AIndex: Integer; const AValue: boolean);
  33557. begin
  33558. If (FAllowSavePublishDeclarativeWorkflow=AValue) then exit;
  33559. FAllowSavePublishDeclarativeWorkflow:=AValue;
  33560. MarkPropertyChanged(AIndex);
  33561. end;
  33562. Procedure TSPSite.SetAllowSelfServiceUpgrade(AIndex: Integer; const AValue: boolean);
  33563. begin
  33564. If (FAllowSelfServiceUpgrade=AValue) then exit;
  33565. FAllowSelfServiceUpgrade:=AValue;
  33566. MarkPropertyChanged(AIndex);
  33567. end;
  33568. Procedure TSPSite.SetAllowSelfServiceUpgradeEvaluation(AIndex: Integer; const AValue: boolean);
  33569. begin
  33570. If (FAllowSelfServiceUpgradeEvaluation=AValue) then exit;
  33571. FAllowSelfServiceUpgradeEvaluation:=AValue;
  33572. MarkPropertyChanged(AIndex);
  33573. end;
  33574. Procedure TSPSite.SetAuditLogTrimmingRetention(AIndex: Integer; const AValue: TInt32);
  33575. begin
  33576. If (FAuditLogTrimmingRetention=AValue) then exit;
  33577. FAuditLogTrimmingRetention:=AValue;
  33578. MarkPropertyChanged(AIndex);
  33579. end;
  33580. Procedure TSPSite.SetCanUpgrade(AIndex: Integer; const AValue: boolean);
  33581. begin
  33582. If (FCanUpgrade=AValue) then exit;
  33583. FCanUpgrade:=AValue;
  33584. MarkPropertyChanged(AIndex);
  33585. end;
  33586. Procedure TSPSite.SetCompatibilityLevel(AIndex: Integer; const AValue: TInt32);
  33587. begin
  33588. If (FCompatibilityLevel=AValue) then exit;
  33589. FCompatibilityLevel:=AValue;
  33590. MarkPropertyChanged(AIndex);
  33591. end;
  33592. Procedure TSPSite.SetExternalSharingTipsEnabled(AIndex: Integer; const AValue: boolean);
  33593. begin
  33594. If (FExternalSharingTipsEnabled=AValue) then exit;
  33595. FExternalSharingTipsEnabled:=AValue;
  33596. MarkPropertyChanged(AIndex);
  33597. end;
  33598. Procedure TSPSite.SetId(AIndex: Integer; const AValue: TGUIDString);
  33599. begin
  33600. If (FId=AValue) then exit;
  33601. FId:=AValue;
  33602. MarkPropertyChanged(AIndex);
  33603. end;
  33604. Procedure TSPSite.SetLockIssue(AIndex: Integer; const AValue: string);
  33605. begin
  33606. If (FLockIssue=AValue) then exit;
  33607. FLockIssue:=AValue;
  33608. MarkPropertyChanged(AIndex);
  33609. end;
  33610. Procedure TSPSite.SetMaxItemsPerThrottledOperation(AIndex: Integer; const AValue: TInt32);
  33611. begin
  33612. If (FMaxItemsPerThrottledOperation=AValue) then exit;
  33613. FMaxItemsPerThrottledOperation:=AValue;
  33614. MarkPropertyChanged(AIndex);
  33615. end;
  33616. Procedure TSPSite.SetNeedsB2BUpgrade(AIndex: Integer; const AValue: boolean);
  33617. begin
  33618. If (FNeedsB2BUpgrade=AValue) then exit;
  33619. FNeedsB2BUpgrade:=AValue;
  33620. MarkPropertyChanged(AIndex);
  33621. end;
  33622. Procedure TSPSite.SetPrimaryUri(AIndex: Integer; const AValue: string);
  33623. begin
  33624. If (FPrimaryUri=AValue) then exit;
  33625. FPrimaryUri:=AValue;
  33626. MarkPropertyChanged(AIndex);
  33627. end;
  33628. Procedure TSPSite.SetReadOnly(AIndex: Integer; const AValue: boolean);
  33629. begin
  33630. If (FReadOnly=AValue) then exit;
  33631. FReadOnly:=AValue;
  33632. MarkPropertyChanged(AIndex);
  33633. end;
  33634. Procedure TSPSite.SetRequiredDesignerVersion(AIndex: Integer; const AValue: string);
  33635. begin
  33636. If (FRequiredDesignerVersion=AValue) then exit;
  33637. FRequiredDesignerVersion:=AValue;
  33638. MarkPropertyChanged(AIndex);
  33639. end;
  33640. Procedure TSPSite.SetSandboxedCodeActivationCapability(AIndex: Integer; const AValue: TInt32);
  33641. begin
  33642. If (FSandboxedCodeActivationCapability=AValue) then exit;
  33643. FSandboxedCodeActivationCapability:=AValue;
  33644. MarkPropertyChanged(AIndex);
  33645. end;
  33646. Procedure TSPSite.SetServerRelativeUrl(AIndex: Integer; const AValue: string);
  33647. begin
  33648. If (FServerRelativeUrl=AValue) then exit;
  33649. FServerRelativeUrl:=AValue;
  33650. MarkPropertyChanged(AIndex);
  33651. end;
  33652. Procedure TSPSite.SetShareByEmailEnabled(AIndex: Integer; const AValue: boolean);
  33653. begin
  33654. If (FShareByEmailEnabled=AValue) then exit;
  33655. FShareByEmailEnabled:=AValue;
  33656. MarkPropertyChanged(AIndex);
  33657. end;
  33658. Procedure TSPSite.SetShareByLinkEnabled(AIndex: Integer; const AValue: boolean);
  33659. begin
  33660. If (FShareByLinkEnabled=AValue) then exit;
  33661. FShareByLinkEnabled:=AValue;
  33662. MarkPropertyChanged(AIndex);
  33663. end;
  33664. Procedure TSPSite.SetShowUrlStructure(AIndex: Integer; const AValue: boolean);
  33665. begin
  33666. If (FShowUrlStructure=AValue) then exit;
  33667. FShowUrlStructure:=AValue;
  33668. MarkPropertyChanged(AIndex);
  33669. end;
  33670. Procedure TSPSite.SetTrimAuditLog(AIndex: Integer; const AValue: boolean);
  33671. begin
  33672. If (FTrimAuditLog=AValue) then exit;
  33673. FTrimAuditLog:=AValue;
  33674. MarkPropertyChanged(AIndex);
  33675. end;
  33676. Procedure TSPSite.SetUIVersionConfigurationEnabled(AIndex: Integer; const AValue: boolean);
  33677. begin
  33678. If (FUIVersionConfigurationEnabled=AValue) then exit;
  33679. FUIVersionConfigurationEnabled:=AValue;
  33680. MarkPropertyChanged(AIndex);
  33681. end;
  33682. Procedure TSPSite.SetUpgradeInfo(AIndex: Integer; const AValue: TSPUpgradeInfo);
  33683. begin
  33684. If (FUpgradeInfo=AValue) then exit;
  33685. FUpgradeInfo:=AValue;
  33686. MarkPropertyChanged(AIndex);
  33687. end;
  33688. Procedure TSPSite.SetUpgradeReminderDate(AIndex: Integer; const AValue: TDateTime);
  33689. begin
  33690. If (FUpgradeReminderDate=AValue) then exit;
  33691. FUpgradeReminderDate:=AValue;
  33692. MarkPropertyChanged(AIndex);
  33693. end;
  33694. Procedure TSPSite.SetUpgradeScheduled(AIndex: Integer; const AValue: boolean);
  33695. begin
  33696. If (FUpgradeScheduled=AValue) then exit;
  33697. FUpgradeScheduled:=AValue;
  33698. MarkPropertyChanged(AIndex);
  33699. end;
  33700. Procedure TSPSite.SetUpgradeScheduledDate(AIndex: Integer; const AValue: TDateTime);
  33701. begin
  33702. If (FUpgradeScheduledDate=AValue) then exit;
  33703. FUpgradeScheduledDate:=AValue;
  33704. MarkPropertyChanged(AIndex);
  33705. end;
  33706. Procedure TSPSite.SetUpgrading(AIndex: Integer; const AValue: boolean);
  33707. begin
  33708. If (FUpgrading=AValue) then exit;
  33709. FUpgrading:=AValue;
  33710. MarkPropertyChanged(AIndex);
  33711. end;
  33712. Procedure TSPSite.SetUrl(AIndex: Integer; const AValue: string);
  33713. begin
  33714. If (FUrl=AValue) then exit;
  33715. FUrl:=AValue;
  33716. MarkPropertyChanged(AIndex);
  33717. end;
  33718. Procedure TSPSite.SetUsage(AIndex: Integer; const AValue: TSPUsageInfo);
  33719. begin
  33720. If (FUsage=AValue) then exit;
  33721. FUsage:=AValue;
  33722. MarkPropertyChanged(AIndex);
  33723. end;
  33724. Function TSPSite.KeyAsURLPart : string;
  33725. begin
  33726. Result:=TODataObject.MakeKeyString(Id);
  33727. end;
  33728. Function TSPSite.Audit(AService: TODataService) : TSPAudit;
  33729. begin
  33730. Result:=TSPAudit(GetContainedSingleTon(AService,'Audit', TSPAudit));
  33731. end;
  33732. Function TSPSite.EventReceivers(AService: TODataService) : TSPEventReceiverDefinition;
  33733. begin
  33734. Result:=TSPEventReceiverDefinition(GetContainedSingleTon(AService,'EventReceivers', TSPEventReceiverDefinition));
  33735. end;
  33736. Function TSPSite.Features(AService: TODataService) : TSPFeature;
  33737. begin
  33738. Result:=TSPFeature(GetContainedSingleTon(AService,'Features', TSPFeature));
  33739. end;
  33740. Function TSPSite.Owner(AService: TODataService) : TSPUser;
  33741. begin
  33742. Result:=TSPUser(GetContainedSingleTon(AService,'Owner', TSPUser));
  33743. end;
  33744. Function TSPSite.RecycleBin(AService: TODataService) : TSPRecycleBinItem;
  33745. begin
  33746. Result:=TSPRecycleBinItem(GetContainedSingleTon(AService,'RecycleBin', TSPRecycleBinItem));
  33747. end;
  33748. Function TSPSite.RootWeb(AService: TODataService) : TSPWeb;
  33749. begin
  33750. Result:=TSPWeb(GetContainedSingleTon(AService,'RootWeb', TSPWeb));
  33751. end;
  33752. Function TSPSite.SecondaryContact(AService: TODataService) : TSPUser;
  33753. begin
  33754. Result:=TSPUser(GetContainedSingleTon(AService,'SecondaryContact', TSPUser));
  33755. end;
  33756. Function TSPSite.UserCustomActions(AService: TODataService) : TSPUserCustomAction;
  33757. begin
  33758. Result:=TSPUserCustomAction(GetContainedSingleTon(AService,'UserCustomActions', TSPUserCustomAction));
  33759. end;
  33760. { --------------------------------------------------------------------
  33761. TSPAudit
  33762. --------------------------------------------------------------------}
  33763. Class Function TSPAudit.ObjectRestKind : String;
  33764. begin
  33765. Result:='Audit';
  33766. end;
  33767. Procedure TSPAudit.SetAuditFlags(AIndex: Integer; const AValue: TInt32);
  33768. begin
  33769. If (FAuditFlags=AValue) then exit;
  33770. FAuditFlags:=AValue;
  33771. MarkPropertyChanged(AIndex);
  33772. end;
  33773. Function TSPAudit.KeyAsURLPart : string;
  33774. begin
  33775. Result:=IntToStr(AuditFlags);
  33776. end;
  33777. { --------------------------------------------------------------------
  33778. TSPEventReceiverDefinition
  33779. --------------------------------------------------------------------}
  33780. Class Function TSPEventReceiverDefinition.ObjectRestKind : String;
  33781. begin
  33782. Result:='EventReceiverDefinition';
  33783. end;
  33784. Procedure TSPEventReceiverDefinition.SetReceiverAssembly(AIndex: Integer; const AValue: string);
  33785. begin
  33786. If (FReceiverAssembly=AValue) then exit;
  33787. FReceiverAssembly:=AValue;
  33788. MarkPropertyChanged(AIndex);
  33789. end;
  33790. Procedure TSPEventReceiverDefinition.SetReceiverClass(AIndex: Integer; const AValue: string);
  33791. begin
  33792. If (FReceiverClass=AValue) then exit;
  33793. FReceiverClass:=AValue;
  33794. MarkPropertyChanged(AIndex);
  33795. end;
  33796. Procedure TSPEventReceiverDefinition.SetReceiverId(AIndex: Integer; const AValue: TGUIDString);
  33797. begin
  33798. If (FReceiverId=AValue) then exit;
  33799. FReceiverId:=AValue;
  33800. MarkPropertyChanged(AIndex);
  33801. end;
  33802. Procedure TSPEventReceiverDefinition.SetReceiverName(AIndex: Integer; const AValue: string);
  33803. begin
  33804. If (FReceiverName=AValue) then exit;
  33805. FReceiverName:=AValue;
  33806. MarkPropertyChanged(AIndex);
  33807. end;
  33808. Procedure TSPEventReceiverDefinition.SetSequenceNumber(AIndex: Integer; const AValue: TInt32);
  33809. begin
  33810. If (FSequenceNumber=AValue) then exit;
  33811. FSequenceNumber:=AValue;
  33812. MarkPropertyChanged(AIndex);
  33813. end;
  33814. Procedure TSPEventReceiverDefinition.SetSynchronization(AIndex: Integer; const AValue: TInt32);
  33815. begin
  33816. If (FSynchronization=AValue) then exit;
  33817. FSynchronization:=AValue;
  33818. MarkPropertyChanged(AIndex);
  33819. end;
  33820. Procedure TSPEventReceiverDefinition.SetEventType(AIndex: Integer; const AValue: TInt32);
  33821. begin
  33822. If (FEventType=AValue) then exit;
  33823. FEventType:=AValue;
  33824. MarkPropertyChanged(AIndex);
  33825. end;
  33826. Procedure TSPEventReceiverDefinition.SetReceiverUrl(AIndex: Integer; const AValue: string);
  33827. begin
  33828. If (FReceiverUrl=AValue) then exit;
  33829. FReceiverUrl:=AValue;
  33830. MarkPropertyChanged(AIndex);
  33831. end;
  33832. Function TSPEventReceiverDefinition.KeyAsURLPart : string;
  33833. begin
  33834. Result:=TODataObject.MakeKeyString(ReceiverId);
  33835. end;
  33836. { --------------------------------------------------------------------
  33837. TSPFeature
  33838. --------------------------------------------------------------------}
  33839. Class Function TSPFeature.ObjectRestKind : String;
  33840. begin
  33841. Result:='Feature';
  33842. end;
  33843. Procedure TSPFeature.SetDefinitionId(AIndex: Integer; const AValue: TGUIDString);
  33844. begin
  33845. If (FDefinitionId=AValue) then exit;
  33846. FDefinitionId:=AValue;
  33847. MarkPropertyChanged(AIndex);
  33848. end;
  33849. Procedure TSPFeature.SetDisplayName(AIndex: Integer; const AValue: string);
  33850. begin
  33851. If (FDisplayName=AValue) then exit;
  33852. FDisplayName:=AValue;
  33853. MarkPropertyChanged(AIndex);
  33854. end;
  33855. Function TSPFeature.KeyAsURLPart : string;
  33856. begin
  33857. Result:=TODataObject.MakeKeyString(DefinitionId);
  33858. end;
  33859. { --------------------------------------------------------------------
  33860. TSPPrincipal
  33861. --------------------------------------------------------------------}
  33862. Class Function TSPPrincipal.ObjectRestKind : String;
  33863. begin
  33864. Result:='Principal';
  33865. end;
  33866. Procedure TSPPrincipal.SetId(AIndex: Integer; const AValue: TInt32);
  33867. begin
  33868. If (FId=AValue) then exit;
  33869. FId:=AValue;
  33870. MarkPropertyChanged(AIndex);
  33871. end;
  33872. Procedure TSPPrincipal.SetIsHiddenInUI(AIndex: Integer; const AValue: boolean);
  33873. begin
  33874. If (FIsHiddenInUI=AValue) then exit;
  33875. FIsHiddenInUI:=AValue;
  33876. MarkPropertyChanged(AIndex);
  33877. end;
  33878. Procedure TSPPrincipal.SetLoginName(AIndex: Integer; const AValue: string);
  33879. begin
  33880. If (FLoginName=AValue) then exit;
  33881. FLoginName:=AValue;
  33882. MarkPropertyChanged(AIndex);
  33883. end;
  33884. Procedure TSPPrincipal.SetTitle(AIndex: Integer; const AValue: string);
  33885. begin
  33886. If (FTitle=AValue) then exit;
  33887. FTitle:=AValue;
  33888. MarkPropertyChanged(AIndex);
  33889. end;
  33890. Procedure TSPPrincipal.SetPrincipalType(AIndex: Integer; const AValue: TInt32);
  33891. begin
  33892. If (FPrincipalType=AValue) then exit;
  33893. FPrincipalType:=AValue;
  33894. MarkPropertyChanged(AIndex);
  33895. end;
  33896. Function TSPPrincipal.KeyAsURLPart : string;
  33897. begin
  33898. Result:=IntToStr(Id);
  33899. end;
  33900. { --------------------------------------------------------------------
  33901. TSPUser
  33902. --------------------------------------------------------------------}
  33903. Class Function TSPUser.ObjectRestKind : String;
  33904. begin
  33905. Result:='User';
  33906. end;
  33907. Procedure TSPUser.SetEmail(AIndex: Integer; const AValue: string);
  33908. begin
  33909. If (FEmail=AValue) then exit;
  33910. FEmail:=AValue;
  33911. MarkPropertyChanged(AIndex);
  33912. end;
  33913. Procedure TSPUser.SetIsShareByEmailGuestUser(AIndex: Integer; const AValue: boolean);
  33914. begin
  33915. If (FIsShareByEmailGuestUser=AValue) then exit;
  33916. FIsShareByEmailGuestUser:=AValue;
  33917. MarkPropertyChanged(AIndex);
  33918. end;
  33919. Procedure TSPUser.SetIsSiteAdmin(AIndex: Integer; const AValue: boolean);
  33920. begin
  33921. If (FIsSiteAdmin=AValue) then exit;
  33922. FIsSiteAdmin:=AValue;
  33923. MarkPropertyChanged(AIndex);
  33924. end;
  33925. Procedure TSPUser.SetUserId(AIndex: Integer; const AValue: TSPUserIdInfo);
  33926. begin
  33927. If (FUserId=AValue) then exit;
  33928. FUserId:=AValue;
  33929. MarkPropertyChanged(AIndex);
  33930. end;
  33931. Function TSPUser.Groups(AService: TODataService) : TSPGroup;
  33932. begin
  33933. Result:=TSPGroup(GetContainedSingleTon(AService,'Groups', TSPGroup));
  33934. end;
  33935. { --------------------------------------------------------------------
  33936. TSPGroup
  33937. --------------------------------------------------------------------}
  33938. Class Function TSPGroup.ObjectRestKind : String;
  33939. begin
  33940. Result:='Group';
  33941. end;
  33942. Procedure TSPGroup.SetAllowMembersEditMembership(AIndex: Integer; const AValue: boolean);
  33943. begin
  33944. If (FAllowMembersEditMembership=AValue) then exit;
  33945. FAllowMembersEditMembership:=AValue;
  33946. MarkPropertyChanged(AIndex);
  33947. end;
  33948. Procedure TSPGroup.SetAllowRequestToJoinLeave(AIndex: Integer; const AValue: boolean);
  33949. begin
  33950. If (FAllowRequestToJoinLeave=AValue) then exit;
  33951. FAllowRequestToJoinLeave:=AValue;
  33952. MarkPropertyChanged(AIndex);
  33953. end;
  33954. Procedure TSPGroup.SetAutoAcceptRequestToJoinLeave(AIndex: Integer; const AValue: boolean);
  33955. begin
  33956. If (FAutoAcceptRequestToJoinLeave=AValue) then exit;
  33957. FAutoAcceptRequestToJoinLeave:=AValue;
  33958. MarkPropertyChanged(AIndex);
  33959. end;
  33960. Procedure TSPGroup.SetCanCurrentUserEditMembership(AIndex: Integer; const AValue: boolean);
  33961. begin
  33962. If (FCanCurrentUserEditMembership=AValue) then exit;
  33963. FCanCurrentUserEditMembership:=AValue;
  33964. MarkPropertyChanged(AIndex);
  33965. end;
  33966. Procedure TSPGroup.SetCanCurrentUserManageGroup(AIndex: Integer; const AValue: boolean);
  33967. begin
  33968. If (FCanCurrentUserManageGroup=AValue) then exit;
  33969. FCanCurrentUserManageGroup:=AValue;
  33970. MarkPropertyChanged(AIndex);
  33971. end;
  33972. Procedure TSPGroup.SetCanCurrentUserViewMembership(AIndex: Integer; const AValue: boolean);
  33973. begin
  33974. If (FCanCurrentUserViewMembership=AValue) then exit;
  33975. FCanCurrentUserViewMembership:=AValue;
  33976. MarkPropertyChanged(AIndex);
  33977. end;
  33978. Procedure TSPGroup.SetDescription(AIndex: Integer; const AValue: string);
  33979. begin
  33980. If (FDescription=AValue) then exit;
  33981. FDescription:=AValue;
  33982. MarkPropertyChanged(AIndex);
  33983. end;
  33984. Procedure TSPGroup.SetOnlyAllowMembersViewMembership(AIndex: Integer; const AValue: boolean);
  33985. begin
  33986. If (FOnlyAllowMembersViewMembership=AValue) then exit;
  33987. FOnlyAllowMembersViewMembership:=AValue;
  33988. MarkPropertyChanged(AIndex);
  33989. end;
  33990. Procedure TSPGroup.SetOwnerTitle(AIndex: Integer; const AValue: string);
  33991. begin
  33992. If (FOwnerTitle=AValue) then exit;
  33993. FOwnerTitle:=AValue;
  33994. MarkPropertyChanged(AIndex);
  33995. end;
  33996. Procedure TSPGroup.SetRequestToJoinLeaveEmailSetting(AIndex: Integer; const AValue: string);
  33997. begin
  33998. If (FRequestToJoinLeaveEmailSetting=AValue) then exit;
  33999. FRequestToJoinLeaveEmailSetting:=AValue;
  34000. MarkPropertyChanged(AIndex);
  34001. end;
  34002. Function TSPGroup.Owner(AService: TODataService) : TSPPrincipal;
  34003. begin
  34004. Result:=TSPPrincipal(GetContainedSingleTon(AService,'Owner', TSPPrincipal));
  34005. end;
  34006. Function TSPGroup.Users(AService: TODataService) : TSPUser;
  34007. begin
  34008. Result:=TSPUser(GetContainedSingleTon(AService,'Users', TSPUser));
  34009. end;
  34010. { --------------------------------------------------------------------
  34011. TSPRecycleBinItem
  34012. --------------------------------------------------------------------}
  34013. Class Function TSPRecycleBinItem.ObjectRestKind : String;
  34014. begin
  34015. Result:='RecycleBinItem';
  34016. end;
  34017. Procedure TSPRecycleBinItem.SetDeletedDate(AIndex: Integer; const AValue: TDateTime);
  34018. begin
  34019. If (FDeletedDate=AValue) then exit;
  34020. FDeletedDate:=AValue;
  34021. MarkPropertyChanged(AIndex);
  34022. end;
  34023. Procedure TSPRecycleBinItem.SetDirName(AIndex: Integer; const AValue: string);
  34024. begin
  34025. If (FDirName=AValue) then exit;
  34026. FDirName:=AValue;
  34027. MarkPropertyChanged(AIndex);
  34028. end;
  34029. Procedure TSPRecycleBinItem.SetId(AIndex: Integer; const AValue: TGUIDString);
  34030. begin
  34031. If (FId=AValue) then exit;
  34032. FId:=AValue;
  34033. MarkPropertyChanged(AIndex);
  34034. end;
  34035. Procedure TSPRecycleBinItem.SetItemState(AIndex: Integer; const AValue: TInt32);
  34036. begin
  34037. If (FItemState=AValue) then exit;
  34038. FItemState:=AValue;
  34039. MarkPropertyChanged(AIndex);
  34040. end;
  34041. Procedure TSPRecycleBinItem.SetItemType(AIndex: Integer; const AValue: TInt32);
  34042. begin
  34043. If (FItemType=AValue) then exit;
  34044. FItemType:=AValue;
  34045. MarkPropertyChanged(AIndex);
  34046. end;
  34047. Procedure TSPRecycleBinItem.SetLeafName(AIndex: Integer; const AValue: string);
  34048. begin
  34049. If (FLeafName=AValue) then exit;
  34050. FLeafName:=AValue;
  34051. MarkPropertyChanged(AIndex);
  34052. end;
  34053. Procedure TSPRecycleBinItem.SetSize(AIndex: Integer; const AValue: int64);
  34054. begin
  34055. If (FSize=AValue) then exit;
  34056. FSize:=AValue;
  34057. MarkPropertyChanged(AIndex);
  34058. end;
  34059. Procedure TSPRecycleBinItem.SetTitle(AIndex: Integer; const AValue: string);
  34060. begin
  34061. If (FTitle=AValue) then exit;
  34062. FTitle:=AValue;
  34063. MarkPropertyChanged(AIndex);
  34064. end;
  34065. Function TSPRecycleBinItem.KeyAsURLPart : string;
  34066. begin
  34067. Result:=TODataObject.MakeKeyString(Id);
  34068. end;
  34069. Function TSPRecycleBinItem.Author(AService: TODataService) : TSPUser;
  34070. begin
  34071. Result:=TSPUser(GetContainedSingleTon(AService,'Author', TSPUser));
  34072. end;
  34073. Function TSPRecycleBinItem.DeletedBy(AService: TODataService) : TSPUser;
  34074. begin
  34075. Result:=TSPUser(GetContainedSingleTon(AService,'DeletedBy', TSPUser));
  34076. end;
  34077. { --------------------------------------------------------------------
  34078. TSPSecurableObject
  34079. --------------------------------------------------------------------}
  34080. Class Function TSPSecurableObject.ObjectRestKind : String;
  34081. begin
  34082. Result:='SecurableObject';
  34083. end;
  34084. Procedure TSPSecurableObject.SetHasUniqueRoleAssignments(AIndex: Integer; const AValue: boolean);
  34085. begin
  34086. If (FHasUniqueRoleAssignments=AValue) then exit;
  34087. FHasUniqueRoleAssignments:=AValue;
  34088. MarkPropertyChanged(AIndex);
  34089. end;
  34090. Function TSPSecurableObject.KeyAsURLPart : string;
  34091. begin
  34092. Result:=BoolToStr(HasUniqueRoleAssignments,'true','false');
  34093. end;
  34094. Function TSPSecurableObject.FirstUniqueAncestorSecurableObject(AService: TODataService) : TSPSecurableObject;
  34095. begin
  34096. Result:=TSPSecurableObject(GetContainedSingleTon(AService,'FirstUniqueAncestorSecurableObject', TSPSecurableObject));
  34097. end;
  34098. Function TSPSecurableObject.RoleAssignments(AService: TODataService) : TSPRoleAssignment;
  34099. begin
  34100. Result:=TSPRoleAssignment(GetContainedSingleTon(AService,'RoleAssignments', TSPRoleAssignment));
  34101. end;
  34102. { --------------------------------------------------------------------
  34103. TSPRoleAssignment
  34104. --------------------------------------------------------------------}
  34105. Class Function TSPRoleAssignment.ObjectRestKind : String;
  34106. begin
  34107. Result:='RoleAssignment';
  34108. end;
  34109. Procedure TSPRoleAssignment.SetPrincipalId(AIndex: Integer; const AValue: TInt32);
  34110. begin
  34111. If (FPrincipalId=AValue) then exit;
  34112. FPrincipalId:=AValue;
  34113. MarkPropertyChanged(AIndex);
  34114. end;
  34115. Function TSPRoleAssignment.KeyAsURLPart : string;
  34116. begin
  34117. Result:=IntToStr(PrincipalId);
  34118. end;
  34119. Function TSPRoleAssignment.Member(AService: TODataService) : TSPPrincipal;
  34120. begin
  34121. Result:=TSPPrincipal(GetContainedSingleTon(AService,'Member', TSPPrincipal));
  34122. end;
  34123. Function TSPRoleAssignment.RoleDefinitionBindings(AService: TODataService) : TSPRoleDefinition;
  34124. begin
  34125. Result:=TSPRoleDefinition(GetContainedSingleTon(AService,'RoleDefinitionBindings', TSPRoleDefinition));
  34126. end;
  34127. { --------------------------------------------------------------------
  34128. TSPRoleDefinition
  34129. --------------------------------------------------------------------}
  34130. Class Function TSPRoleDefinition.ObjectRestKind : String;
  34131. begin
  34132. Result:='RoleDefinition';
  34133. end;
  34134. Procedure TSPRoleDefinition.SetBasePermissions(AIndex: Integer; const AValue: TSPBasePermissions);
  34135. begin
  34136. If (FBasePermissions=AValue) then exit;
  34137. FBasePermissions:=AValue;
  34138. MarkPropertyChanged(AIndex);
  34139. end;
  34140. Procedure TSPRoleDefinition.SetDescription(AIndex: Integer; const AValue: string);
  34141. begin
  34142. If (FDescription=AValue) then exit;
  34143. FDescription:=AValue;
  34144. MarkPropertyChanged(AIndex);
  34145. end;
  34146. Procedure TSPRoleDefinition.SetHidden(AIndex: Integer; const AValue: boolean);
  34147. begin
  34148. If (FHidden=AValue) then exit;
  34149. FHidden:=AValue;
  34150. MarkPropertyChanged(AIndex);
  34151. end;
  34152. Procedure TSPRoleDefinition.SetId(AIndex: Integer; const AValue: TInt32);
  34153. begin
  34154. If (FId=AValue) then exit;
  34155. FId:=AValue;
  34156. MarkPropertyChanged(AIndex);
  34157. end;
  34158. Procedure TSPRoleDefinition.SetName(AIndex: Integer; const AValue: string);
  34159. begin
  34160. If (FName=AValue) then exit;
  34161. FName:=AValue;
  34162. MarkPropertyChanged(AIndex);
  34163. end;
  34164. Procedure TSPRoleDefinition.SetOrder(AIndex: Integer; const AValue: TInt32);
  34165. begin
  34166. If (FOrder=AValue) then exit;
  34167. FOrder:=AValue;
  34168. MarkPropertyChanged(AIndex);
  34169. end;
  34170. Procedure TSPRoleDefinition.SetRoleTypeKind(AIndex: Integer; const AValue: TInt32);
  34171. begin
  34172. If (FRoleTypeKind=AValue) then exit;
  34173. FRoleTypeKind:=AValue;
  34174. MarkPropertyChanged(AIndex);
  34175. end;
  34176. Function TSPRoleDefinition.KeyAsURLPart : string;
  34177. begin
  34178. Result:=IntToStr(Id);
  34179. end;
  34180. { --------------------------------------------------------------------
  34181. TSPWeb
  34182. --------------------------------------------------------------------}
  34183. Class Function TSPWeb.ObjectRestKind : String;
  34184. begin
  34185. Result:='Web';
  34186. end;
  34187. Procedure TSPWeb.SetAllowCreateDeclarativeWorkflowForCurrentUser(AIndex: Integer; const AValue: boolean);
  34188. begin
  34189. If (FAllowCreateDeclarativeWorkflowForCurrentUser=AValue) then exit;
  34190. FAllowCreateDeclarativeWorkflowForCurrentUser:=AValue;
  34191. MarkPropertyChanged(AIndex);
  34192. end;
  34193. Procedure TSPWeb.SetAllowDesignerForCurrentUser(AIndex: Integer; const AValue: boolean);
  34194. begin
  34195. If (FAllowDesignerForCurrentUser=AValue) then exit;
  34196. FAllowDesignerForCurrentUser:=AValue;
  34197. MarkPropertyChanged(AIndex);
  34198. end;
  34199. Procedure TSPWeb.SetAllowMasterPageEditingForCurrentUser(AIndex: Integer; const AValue: boolean);
  34200. begin
  34201. If (FAllowMasterPageEditingForCurrentUser=AValue) then exit;
  34202. FAllowMasterPageEditingForCurrentUser:=AValue;
  34203. MarkPropertyChanged(AIndex);
  34204. end;
  34205. Procedure TSPWeb.SetAllowRevertFromTemplateForCurrentUser(AIndex: Integer; const AValue: boolean);
  34206. begin
  34207. If (FAllowRevertFromTemplateForCurrentUser=AValue) then exit;
  34208. FAllowRevertFromTemplateForCurrentUser:=AValue;
  34209. MarkPropertyChanged(AIndex);
  34210. end;
  34211. Procedure TSPWeb.SetAllowRssFeeds(AIndex: Integer; const AValue: boolean);
  34212. begin
  34213. If (FAllowRssFeeds=AValue) then exit;
  34214. FAllowRssFeeds:=AValue;
  34215. MarkPropertyChanged(AIndex);
  34216. end;
  34217. Procedure TSPWeb.SetAllowSaveDeclarativeWorkflowAsTemplateForCurrentUser(AIndex: Integer; const AValue: boolean);
  34218. begin
  34219. If (FAllowSaveDeclarativeWorkflowAsTemplateForCurrentUser=AValue) then exit;
  34220. FAllowSaveDeclarativeWorkflowAsTemplateForCurrentUser:=AValue;
  34221. MarkPropertyChanged(AIndex);
  34222. end;
  34223. Procedure TSPWeb.SetAllowSavePublishDeclarativeWorkflowForCurrentUser(AIndex: Integer; const AValue: boolean);
  34224. begin
  34225. If (FAllowSavePublishDeclarativeWorkflowForCurrentUser=AValue) then exit;
  34226. FAllowSavePublishDeclarativeWorkflowForCurrentUser:=AValue;
  34227. MarkPropertyChanged(AIndex);
  34228. end;
  34229. Procedure TSPWeb.SetAlternateCssUrl(AIndex: Integer; const AValue: string);
  34230. begin
  34231. If (FAlternateCssUrl=AValue) then exit;
  34232. FAlternateCssUrl:=AValue;
  34233. MarkPropertyChanged(AIndex);
  34234. end;
  34235. Procedure TSPWeb.SetAppInstanceId(AIndex: Integer; const AValue: TGUIDString);
  34236. begin
  34237. If (FAppInstanceId=AValue) then exit;
  34238. FAppInstanceId:=AValue;
  34239. MarkPropertyChanged(AIndex);
  34240. end;
  34241. Procedure TSPWeb.SetConfiguration(AIndex: Integer; const AValue: TInt16);
  34242. begin
  34243. If (FConfiguration=AValue) then exit;
  34244. FConfiguration:=AValue;
  34245. MarkPropertyChanged(AIndex);
  34246. end;
  34247. Procedure TSPWeb.SetContainsConfidentialInfo(AIndex: Integer; const AValue: boolean);
  34248. begin
  34249. If (FContainsConfidentialInfo=AValue) then exit;
  34250. FContainsConfidentialInfo:=AValue;
  34251. MarkPropertyChanged(AIndex);
  34252. end;
  34253. Procedure TSPWeb.SetCreated(AIndex: Integer; const AValue: TDateTime);
  34254. begin
  34255. If (FCreated=AValue) then exit;
  34256. FCreated:=AValue;
  34257. MarkPropertyChanged(AIndex);
  34258. end;
  34259. Procedure TSPWeb.SetCustomMasterUrl(AIndex: Integer; const AValue: string);
  34260. begin
  34261. If (FCustomMasterUrl=AValue) then exit;
  34262. FCustomMasterUrl:=AValue;
  34263. MarkPropertyChanged(AIndex);
  34264. end;
  34265. Procedure TSPWeb.SetDescription(AIndex: Integer; const AValue: string);
  34266. begin
  34267. If (FDescription=AValue) then exit;
  34268. FDescription:=AValue;
  34269. MarkPropertyChanged(AIndex);
  34270. end;
  34271. Procedure TSPWeb.SetDesignerDownloadUrlForCurrentUser(AIndex: Integer; const AValue: string);
  34272. begin
  34273. If (FDesignerDownloadUrlForCurrentUser=AValue) then exit;
  34274. FDesignerDownloadUrlForCurrentUser:=AValue;
  34275. MarkPropertyChanged(AIndex);
  34276. end;
  34277. Procedure TSPWeb.SetDocumentLibraryCalloutOfficeWebAppPreviewersDisabled(AIndex: Integer; const AValue: boolean);
  34278. begin
  34279. If (FDocumentLibraryCalloutOfficeWebAppPreviewersDisabled=AValue) then exit;
  34280. FDocumentLibraryCalloutOfficeWebAppPreviewersDisabled:=AValue;
  34281. MarkPropertyChanged(AIndex);
  34282. end;
  34283. Procedure TSPWeb.SetEffectiveBasePermissions(AIndex: Integer; const AValue: TSPBasePermissions);
  34284. begin
  34285. If (FEffectiveBasePermissions=AValue) then exit;
  34286. FEffectiveBasePermissions:=AValue;
  34287. MarkPropertyChanged(AIndex);
  34288. end;
  34289. Procedure TSPWeb.SetEnableMinimalDownload(AIndex: Integer; const AValue: boolean);
  34290. begin
  34291. If (FEnableMinimalDownload=AValue) then exit;
  34292. FEnableMinimalDownload:=AValue;
  34293. MarkPropertyChanged(AIndex);
  34294. end;
  34295. Procedure TSPWeb.SetId(AIndex: Integer; const AValue: TGUIDString);
  34296. begin
  34297. If (FId=AValue) then exit;
  34298. FId:=AValue;
  34299. MarkPropertyChanged(AIndex);
  34300. end;
  34301. Procedure TSPWeb.SetIsMultilingual(AIndex: Integer; const AValue: boolean);
  34302. begin
  34303. If (FIsMultilingual=AValue) then exit;
  34304. FIsMultilingual:=AValue;
  34305. MarkPropertyChanged(AIndex);
  34306. end;
  34307. Procedure TSPWeb.SetLanguage(AIndex: Integer; const AValue: TInt32);
  34308. begin
  34309. If (FLanguage=AValue) then exit;
  34310. FLanguage:=AValue;
  34311. MarkPropertyChanged(AIndex);
  34312. end;
  34313. Procedure TSPWeb.SetLastItemModifiedDate(AIndex: Integer; const AValue: TDateTime);
  34314. begin
  34315. If (FLastItemModifiedDate=AValue) then exit;
  34316. FLastItemModifiedDate:=AValue;
  34317. MarkPropertyChanged(AIndex);
  34318. end;
  34319. Procedure TSPWeb.SetMasterUrl(AIndex: Integer; const AValue: string);
  34320. begin
  34321. If (FMasterUrl=AValue) then exit;
  34322. FMasterUrl:=AValue;
  34323. MarkPropertyChanged(AIndex);
  34324. end;
  34325. Procedure TSPWeb.SetMembersCanShare(AIndex: Integer; const AValue: boolean);
  34326. begin
  34327. If (FMembersCanShare=AValue) then exit;
  34328. FMembersCanShare:=AValue;
  34329. MarkPropertyChanged(AIndex);
  34330. end;
  34331. Procedure TSPWeb.SetOverwriteTranslationsOnChange(AIndex: Integer; const AValue: boolean);
  34332. begin
  34333. If (FOverwriteTranslationsOnChange=AValue) then exit;
  34334. FOverwriteTranslationsOnChange:=AValue;
  34335. MarkPropertyChanged(AIndex);
  34336. end;
  34337. Procedure TSPWeb.SetQuickLaunchEnabled(AIndex: Integer; const AValue: boolean);
  34338. begin
  34339. If (FQuickLaunchEnabled=AValue) then exit;
  34340. FQuickLaunchEnabled:=AValue;
  34341. MarkPropertyChanged(AIndex);
  34342. end;
  34343. Procedure TSPWeb.SetRecycleBinEnabled(AIndex: Integer; const AValue: boolean);
  34344. begin
  34345. If (FRecycleBinEnabled=AValue) then exit;
  34346. FRecycleBinEnabled:=AValue;
  34347. MarkPropertyChanged(AIndex);
  34348. end;
  34349. Procedure TSPWeb.SetSaveSiteAsTemplateEnabled(AIndex: Integer; const AValue: boolean);
  34350. begin
  34351. If (FSaveSiteAsTemplateEnabled=AValue) then exit;
  34352. FSaveSiteAsTemplateEnabled:=AValue;
  34353. MarkPropertyChanged(AIndex);
  34354. end;
  34355. Procedure TSPWeb.SetServerRelativeUrl(AIndex: Integer; const AValue: string);
  34356. begin
  34357. If (FServerRelativeUrl=AValue) then exit;
  34358. FServerRelativeUrl:=AValue;
  34359. MarkPropertyChanged(AIndex);
  34360. end;
  34361. Procedure TSPWeb.SetShowUrlStructureForCurrentUser(AIndex: Integer; const AValue: boolean);
  34362. begin
  34363. If (FShowUrlStructureForCurrentUser=AValue) then exit;
  34364. FShowUrlStructureForCurrentUser:=AValue;
  34365. MarkPropertyChanged(AIndex);
  34366. end;
  34367. Procedure TSPWeb.SetSiteLogoUrl(AIndex: Integer; const AValue: string);
  34368. begin
  34369. If (FSiteLogoUrl=AValue) then exit;
  34370. FSiteLogoUrl:=AValue;
  34371. MarkPropertyChanged(AIndex);
  34372. end;
  34373. Procedure TSPWeb.SetSupportedUILanguageIds(AIndex: Integer; const AValue: TInt32Array);
  34374. begin
  34375. If (FSupportedUILanguageIds=AValue) then exit;
  34376. FSupportedUILanguageIds:=AValue;
  34377. MarkPropertyChanged(AIndex);
  34378. end;
  34379. Procedure TSPWeb.SetSyndicationEnabled(AIndex: Integer; const AValue: boolean);
  34380. begin
  34381. If (FSyndicationEnabled=AValue) then exit;
  34382. FSyndicationEnabled:=AValue;
  34383. MarkPropertyChanged(AIndex);
  34384. end;
  34385. Procedure TSPWeb.SetThemeData(AIndex: Integer; const AValue: string);
  34386. begin
  34387. If (FThemeData=AValue) then exit;
  34388. FThemeData:=AValue;
  34389. MarkPropertyChanged(AIndex);
  34390. end;
  34391. Procedure TSPWeb.SetThirdPartyMdmEnabled(AIndex: Integer; const AValue: boolean);
  34392. begin
  34393. If (FThirdPartyMdmEnabled=AValue) then exit;
  34394. FThirdPartyMdmEnabled:=AValue;
  34395. MarkPropertyChanged(AIndex);
  34396. end;
  34397. Procedure TSPWeb.SetTitle(AIndex: Integer; const AValue: string);
  34398. begin
  34399. If (FTitle=AValue) then exit;
  34400. FTitle:=AValue;
  34401. MarkPropertyChanged(AIndex);
  34402. end;
  34403. Procedure TSPWeb.SetTreeViewEnabled(AIndex: Integer; const AValue: boolean);
  34404. begin
  34405. If (FTreeViewEnabled=AValue) then exit;
  34406. FTreeViewEnabled:=AValue;
  34407. MarkPropertyChanged(AIndex);
  34408. end;
  34409. Procedure TSPWeb.SetUIVersion(AIndex: Integer; const AValue: TInt32);
  34410. begin
  34411. If (FUIVersion=AValue) then exit;
  34412. FUIVersion:=AValue;
  34413. MarkPropertyChanged(AIndex);
  34414. end;
  34415. Procedure TSPWeb.SetUIVersionConfigurationEnabled(AIndex: Integer; const AValue: boolean);
  34416. begin
  34417. If (FUIVersionConfigurationEnabled=AValue) then exit;
  34418. FUIVersionConfigurationEnabled:=AValue;
  34419. MarkPropertyChanged(AIndex);
  34420. end;
  34421. Procedure TSPWeb.SetUrl(AIndex: Integer; const AValue: string);
  34422. begin
  34423. If (FUrl=AValue) then exit;
  34424. FUrl:=AValue;
  34425. MarkPropertyChanged(AIndex);
  34426. end;
  34427. Procedure TSPWeb.SetWebTemplate(AIndex: Integer; const AValue: string);
  34428. begin
  34429. If (FWebTemplate=AValue) then exit;
  34430. FWebTemplate:=AValue;
  34431. MarkPropertyChanged(AIndex);
  34432. end;
  34433. {$IFDEF VER2_6}
  34434. Procedure TSPWeb.SetArrayLength(const AName: String; ALength: Longint);
  34435. begin
  34436. Case aName of
  34437. 'supporteduilanguageids' : SetLength(FSupportedUILanguageIds,aLength);
  34438. else
  34439. inherited SetArrayLength(aName,ALength);
  34440. end;
  34441. end;
  34442. {$ENDIF VER2_6}
  34443. Function TSPWeb.AllProperties(AService: TODataService) : TSPPropertyValues;
  34444. begin
  34445. Result:=TSPPropertyValues(GetContainedSingleTon(AService,'AllProperties', TSPPropertyValues));
  34446. end;
  34447. Function TSPWeb.AppTiles(AService: TODataService) : TSPAppTile;
  34448. begin
  34449. Result:=TSPAppTile(GetContainedSingleTon(AService,'AppTiles', TSPAppTile));
  34450. end;
  34451. Function TSPWeb.AssociatedMemberGroup(AService: TODataService) : TSPGroup;
  34452. begin
  34453. Result:=TSPGroup(GetContainedSingleTon(AService,'AssociatedMemberGroup', TSPGroup));
  34454. end;
  34455. Function TSPWeb.AssociatedOwnerGroup(AService: TODataService) : TSPGroup;
  34456. begin
  34457. Result:=TSPGroup(GetContainedSingleTon(AService,'AssociatedOwnerGroup', TSPGroup));
  34458. end;
  34459. Function TSPWeb.AssociatedVisitorGroup(AService: TODataService) : TSPGroup;
  34460. begin
  34461. Result:=TSPGroup(GetContainedSingleTon(AService,'AssociatedVisitorGroup', TSPGroup));
  34462. end;
  34463. Function TSPWeb.AvailableContentTypes(AService: TODataService) : TSPContentType;
  34464. begin
  34465. Result:=TSPContentType(GetContainedSingleTon(AService,'AvailableContentTypes', TSPContentType));
  34466. end;
  34467. Function TSPWeb.AvailableFields(AService: TODataService) : TSPField;
  34468. begin
  34469. Result:=TSPField(GetContainedSingleTon(AService,'AvailableFields', TSPField));
  34470. end;
  34471. Function TSPWeb.ContentTypes(AService: TODataService) : TSPContentType;
  34472. begin
  34473. Result:=TSPContentType(GetContainedSingleTon(AService,'ContentTypes', TSPContentType));
  34474. end;
  34475. Function TSPWeb.CurrentUser(AService: TODataService) : TSPUser;
  34476. begin
  34477. Result:=TSPUser(GetContainedSingleTon(AService,'CurrentUser', TSPUser));
  34478. end;
  34479. Function TSPWeb.DataLeakagePreventionStatusInfo(AService: TODataService) : TSPSPDataLeakagePreventionStatusInfo;
  34480. begin
  34481. Result:=TSPSPDataLeakagePreventionStatusInfo(GetContainedSingleTon(AService,'DataLeakagePreventionStatusInfo', TSPSPDataLeakagePreventionStatusInfo));
  34482. end;
  34483. Function TSPWeb.DescriptionResource(AService: TODataService) : TSPUserResource;
  34484. begin
  34485. Result:=TSPUserResource(GetContainedSingleTon(AService,'DescriptionResource', TSPUserResource));
  34486. end;
  34487. Function TSPWeb.EventReceivers(AService: TODataService) : TSPEventReceiverDefinition;
  34488. begin
  34489. Result:=TSPEventReceiverDefinition(GetContainedSingleTon(AService,'EventReceivers', TSPEventReceiverDefinition));
  34490. end;
  34491. Function TSPWeb.Features(AService: TODataService) : TSPFeature;
  34492. begin
  34493. Result:=TSPFeature(GetContainedSingleTon(AService,'Features', TSPFeature));
  34494. end;
  34495. Function TSPWeb.Fields(AService: TODataService) : TSPField;
  34496. begin
  34497. Result:=TSPField(GetContainedSingleTon(AService,'Fields', TSPField));
  34498. end;
  34499. Function TSPWeb.Folders(AService: TODataService) : TSPFolder;
  34500. begin
  34501. Result:=TSPFolder(GetContainedSingleTon(AService,'Folders', TSPFolder));
  34502. end;
  34503. Function TSPWeb.Lists(AService: TODataService) : TSPList;
  34504. begin
  34505. Result:=TSPList(GetContainedSingleTon(AService,'Lists', TSPList));
  34506. end;
  34507. Function TSPWeb.ListTemplates(AService: TODataService) : TSPListTemplate;
  34508. begin
  34509. Result:=TSPListTemplate(GetContainedSingleTon(AService,'ListTemplates', TSPListTemplate));
  34510. end;
  34511. Function TSPWeb.Navigation(AService: TODataService) : TSPNavigation;
  34512. begin
  34513. Result:=TSPNavigation(GetContainedSingleTon(AService,'Navigation', TSPNavigation));
  34514. end;
  34515. Function TSPWeb.ParentWeb(AService: TODataService) : TSPWebInformation;
  34516. begin
  34517. Result:=TSPWebInformation(GetContainedSingleTon(AService,'ParentWeb', TSPWebInformation));
  34518. end;
  34519. Function TSPWeb.PushNotificationSubscribers(AService: TODataService) : TSPPushNotificationSubscriber;
  34520. begin
  34521. Result:=TSPPushNotificationSubscriber(GetContainedSingleTon(AService,'PushNotificationSubscribers', TSPPushNotificationSubscriber));
  34522. end;
  34523. Function TSPWeb.RecycleBin(AService: TODataService) : TSPRecycleBinItem;
  34524. begin
  34525. Result:=TSPRecycleBinItem(GetContainedSingleTon(AService,'RecycleBin', TSPRecycleBinItem));
  34526. end;
  34527. Function TSPWeb.RegionalSettings(AService: TODataService) : TSPRegionalSettings;
  34528. begin
  34529. Result:=TSPRegionalSettings(GetContainedSingleTon(AService,'RegionalSettings', TSPRegionalSettings));
  34530. end;
  34531. Function TSPWeb.RoleDefinitions(AService: TODataService) : TSPRoleDefinition;
  34532. begin
  34533. Result:=TSPRoleDefinition(GetContainedSingleTon(AService,'RoleDefinitions', TSPRoleDefinition));
  34534. end;
  34535. Function TSPWeb.RootFolder(AService: TODataService) : TSPFolder;
  34536. begin
  34537. Result:=TSPFolder(GetContainedSingleTon(AService,'RootFolder', TSPFolder));
  34538. end;
  34539. Function TSPWeb.SiteGroups(AService: TODataService) : TSPGroup;
  34540. begin
  34541. Result:=TSPGroup(GetContainedSingleTon(AService,'SiteGroups', TSPGroup));
  34542. end;
  34543. Function TSPWeb.SiteUserInfoList(AService: TODataService) : TSPList;
  34544. begin
  34545. Result:=TSPList(GetContainedSingleTon(AService,'SiteUserInfoList', TSPList));
  34546. end;
  34547. Function TSPWeb.SiteUsers(AService: TODataService) : TSPUser;
  34548. begin
  34549. Result:=TSPUser(GetContainedSingleTon(AService,'SiteUsers', TSPUser));
  34550. end;
  34551. Function TSPWeb.ThemeInfo(AService: TODataService) : TSPThemeInfo;
  34552. begin
  34553. Result:=TSPThemeInfo(GetContainedSingleTon(AService,'ThemeInfo', TSPThemeInfo));
  34554. end;
  34555. Function TSPWeb.TitleResource(AService: TODataService) : TSPUserResource;
  34556. begin
  34557. Result:=TSPUserResource(GetContainedSingleTon(AService,'TitleResource', TSPUserResource));
  34558. end;
  34559. Function TSPWeb.UserCustomActions(AService: TODataService) : TSPUserCustomAction;
  34560. begin
  34561. Result:=TSPUserCustomAction(GetContainedSingleTon(AService,'UserCustomActions', TSPUserCustomAction));
  34562. end;
  34563. Function TSPWeb.Webs(AService: TODataService) : TSPWeb;
  34564. begin
  34565. Result:=TSPWeb(GetContainedSingleTon(AService,'Webs', TSPWeb));
  34566. end;
  34567. Function TSPWeb.WebInfos(AService: TODataService) : TSPWebInformation;
  34568. begin
  34569. Result:=TSPWebInformation(GetContainedSingleTon(AService,'WebInfos', TSPWebInformation));
  34570. end;
  34571. Function TSPWeb.WorkflowAssociations(AService: TODataService) : TSP_WorkflowWorkflowAssociation;
  34572. begin
  34573. Result:=TSP_WorkflowWorkflowAssociation(GetContainedSingleTon(AService,'WorkflowAssociations', TSP_WorkflowWorkflowAssociation));
  34574. end;
  34575. Function TSPWeb.WorkflowTemplates(AService: TODataService) : TSP_WorkflowWorkflowTemplate;
  34576. begin
  34577. Result:=TSP_WorkflowWorkflowTemplate(GetContainedSingleTon(AService,'WorkflowTemplates', TSP_WorkflowWorkflowTemplate));
  34578. end;
  34579. { --------------------------------------------------------------------
  34580. TSPPropertyValues
  34581. --------------------------------------------------------------------}
  34582. Class Function TSPPropertyValues.ObjectRestKind : String;
  34583. begin
  34584. Result:='PropertyValues';
  34585. end;
  34586. Procedure TSPPropertyValues.SetId4a81de82eeb94d6080ea5bf63e27023a(AIndex: Integer; const AValue: string);
  34587. begin
  34588. If (FId4a81de82eeb94d6080ea5bf63e27023a=AValue) then exit;
  34589. FId4a81de82eeb94d6080ea5bf63e27023a:=AValue;
  34590. MarkPropertyChanged(AIndex);
  34591. end;
  34592. Function TSPPropertyValues.KeyAsURLPart : string;
  34593. begin
  34594. Result:=TODataObject.MakeKeyString(Id4a81de82eeb94d6080ea5bf63e27023a);
  34595. end;
  34596. { --------------------------------------------------------------------
  34597. TSPAppTile
  34598. --------------------------------------------------------------------}
  34599. Class Function TSPAppTile.ObjectRestKind : String;
  34600. begin
  34601. Result:='AppTile';
  34602. end;
  34603. Procedure TSPAppTile.SetAppType(AIndex: Integer; const AValue: TInt32);
  34604. begin
  34605. If (FAppType=AValue) then exit;
  34606. FAppType:=AValue;
  34607. MarkPropertyChanged(AIndex);
  34608. end;
  34609. Procedure TSPAppTile.SetChildCount(AIndex: Integer; const AValue: TInt32);
  34610. begin
  34611. If (FChildCount=AValue) then exit;
  34612. FChildCount:=AValue;
  34613. MarkPropertyChanged(AIndex);
  34614. end;
  34615. Procedure TSPAppTile.SetLastModified(AIndex: Integer; const AValue: string);
  34616. begin
  34617. If (FLastModified=AValue) then exit;
  34618. FLastModified:=AValue;
  34619. MarkPropertyChanged(AIndex);
  34620. end;
  34621. Procedure TSPAppTile.SetTarget(AIndex: Integer; const AValue: string);
  34622. begin
  34623. If (FTarget=AValue) then exit;
  34624. FTarget:=AValue;
  34625. MarkPropertyChanged(AIndex);
  34626. end;
  34627. Procedure TSPAppTile.SetThumbnail(AIndex: Integer; const AValue: string);
  34628. begin
  34629. If (FThumbnail=AValue) then exit;
  34630. FThumbnail:=AValue;
  34631. MarkPropertyChanged(AIndex);
  34632. end;
  34633. Procedure TSPAppTile.SetTitle(AIndex: Integer; const AValue: string);
  34634. begin
  34635. If (FTitle=AValue) then exit;
  34636. FTitle:=AValue;
  34637. MarkPropertyChanged(AIndex);
  34638. end;
  34639. Function TSPAppTile.KeyAsURLPart : string;
  34640. begin
  34641. Result:=IntToStr(AppType);
  34642. end;
  34643. { --------------------------------------------------------------------
  34644. TSPContentType
  34645. --------------------------------------------------------------------}
  34646. Class Function TSPContentType.ObjectRestKind : String;
  34647. begin
  34648. Result:='ContentType';
  34649. end;
  34650. Procedure TSPContentType.SetDescription(AIndex: Integer; const AValue: string);
  34651. begin
  34652. If (FDescription=AValue) then exit;
  34653. FDescription:=AValue;
  34654. MarkPropertyChanged(AIndex);
  34655. end;
  34656. Procedure TSPContentType.SetDisplayFormTemplateName(AIndex: Integer; const AValue: string);
  34657. begin
  34658. If (FDisplayFormTemplateName=AValue) then exit;
  34659. FDisplayFormTemplateName:=AValue;
  34660. MarkPropertyChanged(AIndex);
  34661. end;
  34662. Procedure TSPContentType.SetDisplayFormUrl(AIndex: Integer; const AValue: string);
  34663. begin
  34664. If (FDisplayFormUrl=AValue) then exit;
  34665. FDisplayFormUrl:=AValue;
  34666. MarkPropertyChanged(AIndex);
  34667. end;
  34668. Procedure TSPContentType.SetDocumentTemplate(AIndex: Integer; const AValue: string);
  34669. begin
  34670. If (FDocumentTemplate=AValue) then exit;
  34671. FDocumentTemplate:=AValue;
  34672. MarkPropertyChanged(AIndex);
  34673. end;
  34674. Procedure TSPContentType.SetDocumentTemplateUrl(AIndex: Integer; const AValue: string);
  34675. begin
  34676. If (FDocumentTemplateUrl=AValue) then exit;
  34677. FDocumentTemplateUrl:=AValue;
  34678. MarkPropertyChanged(AIndex);
  34679. end;
  34680. Procedure TSPContentType.SetEditFormTemplateName(AIndex: Integer; const AValue: string);
  34681. begin
  34682. If (FEditFormTemplateName=AValue) then exit;
  34683. FEditFormTemplateName:=AValue;
  34684. MarkPropertyChanged(AIndex);
  34685. end;
  34686. Procedure TSPContentType.SetEditFormUrl(AIndex: Integer; const AValue: string);
  34687. begin
  34688. If (FEditFormUrl=AValue) then exit;
  34689. FEditFormUrl:=AValue;
  34690. MarkPropertyChanged(AIndex);
  34691. end;
  34692. Procedure TSPContentType.SetGroup(AIndex: Integer; const AValue: string);
  34693. begin
  34694. If (FGroup=AValue) then exit;
  34695. FGroup:=AValue;
  34696. MarkPropertyChanged(AIndex);
  34697. end;
  34698. Procedure TSPContentType.SetHidden(AIndex: Integer; const AValue: boolean);
  34699. begin
  34700. If (FHidden=AValue) then exit;
  34701. FHidden:=AValue;
  34702. MarkPropertyChanged(AIndex);
  34703. end;
  34704. Procedure TSPContentType.SetId(AIndex: Integer; const AValue: TSPContentTypeId);
  34705. begin
  34706. If (FId=AValue) then exit;
  34707. FId:=AValue;
  34708. MarkPropertyChanged(AIndex);
  34709. end;
  34710. Procedure TSPContentType.SetJSLink(AIndex: Integer; const AValue: string);
  34711. begin
  34712. If (FJSLink=AValue) then exit;
  34713. FJSLink:=AValue;
  34714. MarkPropertyChanged(AIndex);
  34715. end;
  34716. Procedure TSPContentType.SetMobileDisplayFormUrl(AIndex: Integer; const AValue: string);
  34717. begin
  34718. If (FMobileDisplayFormUrl=AValue) then exit;
  34719. FMobileDisplayFormUrl:=AValue;
  34720. MarkPropertyChanged(AIndex);
  34721. end;
  34722. Procedure TSPContentType.SetMobileEditFormUrl(AIndex: Integer; const AValue: string);
  34723. begin
  34724. If (FMobileEditFormUrl=AValue) then exit;
  34725. FMobileEditFormUrl:=AValue;
  34726. MarkPropertyChanged(AIndex);
  34727. end;
  34728. Procedure TSPContentType.SetMobileNewFormUrl(AIndex: Integer; const AValue: string);
  34729. begin
  34730. If (FMobileNewFormUrl=AValue) then exit;
  34731. FMobileNewFormUrl:=AValue;
  34732. MarkPropertyChanged(AIndex);
  34733. end;
  34734. Procedure TSPContentType.SetName(AIndex: Integer; const AValue: string);
  34735. begin
  34736. If (FName=AValue) then exit;
  34737. FName:=AValue;
  34738. MarkPropertyChanged(AIndex);
  34739. end;
  34740. Procedure TSPContentType.SetNewFormTemplateName(AIndex: Integer; const AValue: string);
  34741. begin
  34742. If (FNewFormTemplateName=AValue) then exit;
  34743. FNewFormTemplateName:=AValue;
  34744. MarkPropertyChanged(AIndex);
  34745. end;
  34746. Procedure TSPContentType.SetNewFormUrl(AIndex: Integer; const AValue: string);
  34747. begin
  34748. If (FNewFormUrl=AValue) then exit;
  34749. FNewFormUrl:=AValue;
  34750. MarkPropertyChanged(AIndex);
  34751. end;
  34752. Procedure TSPContentType.SetReadOnly(AIndex: Integer; const AValue: boolean);
  34753. begin
  34754. If (FReadOnly=AValue) then exit;
  34755. FReadOnly:=AValue;
  34756. MarkPropertyChanged(AIndex);
  34757. end;
  34758. Procedure TSPContentType.SetSchemaXml(AIndex: Integer; const AValue: string);
  34759. begin
  34760. If (FSchemaXml=AValue) then exit;
  34761. FSchemaXml:=AValue;
  34762. MarkPropertyChanged(AIndex);
  34763. end;
  34764. Procedure TSPContentType.SetSchemaXmlWithResourceTokens(AIndex: Integer; const AValue: string);
  34765. begin
  34766. If (FSchemaXmlWithResourceTokens=AValue) then exit;
  34767. FSchemaXmlWithResourceTokens:=AValue;
  34768. MarkPropertyChanged(AIndex);
  34769. end;
  34770. Procedure TSPContentType.SetScope(AIndex: Integer; const AValue: string);
  34771. begin
  34772. If (FScope=AValue) then exit;
  34773. FScope:=AValue;
  34774. MarkPropertyChanged(AIndex);
  34775. end;
  34776. Procedure TSPContentType.SetSealed(AIndex: Integer; const AValue: boolean);
  34777. begin
  34778. If (FSealed=AValue) then exit;
  34779. FSealed:=AValue;
  34780. MarkPropertyChanged(AIndex);
  34781. end;
  34782. Procedure TSPContentType.SetStringId(AIndex: Integer; const AValue: string);
  34783. begin
  34784. If (FStringId=AValue) then exit;
  34785. FStringId:=AValue;
  34786. MarkPropertyChanged(AIndex);
  34787. end;
  34788. Function TSPContentType.KeyAsURLPart : string;
  34789. begin
  34790. Result:=TODataObject.MakeKeyString(StringId);
  34791. end;
  34792. Function TSPContentType.DescriptionResource(AService: TODataService) : TSPUserResource;
  34793. begin
  34794. Result:=TSPUserResource(GetContainedSingleTon(AService,'DescriptionResource', TSPUserResource));
  34795. end;
  34796. Function TSPContentType.FieldLinks(AService: TODataService) : TSPFieldLink;
  34797. begin
  34798. Result:=TSPFieldLink(GetContainedSingleTon(AService,'FieldLinks', TSPFieldLink));
  34799. end;
  34800. Function TSPContentType.Fields(AService: TODataService) : TSPField;
  34801. begin
  34802. Result:=TSPField(GetContainedSingleTon(AService,'Fields', TSPField));
  34803. end;
  34804. Function TSPContentType.NameResource(AService: TODataService) : TSPUserResource;
  34805. begin
  34806. Result:=TSPUserResource(GetContainedSingleTon(AService,'NameResource', TSPUserResource));
  34807. end;
  34808. Function TSPContentType.Parent(AService: TODataService) : TSPContentType;
  34809. begin
  34810. Result:=TSPContentType(GetContainedSingleTon(AService,'Parent', TSPContentType));
  34811. end;
  34812. Function TSPContentType.WorkflowAssociations(AService: TODataService) : TSP_WorkflowWorkflowAssociation;
  34813. begin
  34814. Result:=TSP_WorkflowWorkflowAssociation(GetContainedSingleTon(AService,'WorkflowAssociations', TSP_WorkflowWorkflowAssociation));
  34815. end;
  34816. { --------------------------------------------------------------------
  34817. TSPUserResource
  34818. --------------------------------------------------------------------}
  34819. Class Function TSPUserResource.ObjectRestKind : String;
  34820. begin
  34821. Result:='UserResource';
  34822. end;
  34823. Procedure TSPUserResource.SetId4a81de82eeb94d6080ea5bf63e27023a(AIndex: Integer; const AValue: string);
  34824. begin
  34825. If (FId4a81de82eeb94d6080ea5bf63e27023a=AValue) then exit;
  34826. FId4a81de82eeb94d6080ea5bf63e27023a:=AValue;
  34827. MarkPropertyChanged(AIndex);
  34828. end;
  34829. Function TSPUserResource.KeyAsURLPart : string;
  34830. begin
  34831. Result:=TODataObject.MakeKeyString(Id4a81de82eeb94d6080ea5bf63e27023a);
  34832. end;
  34833. { --------------------------------------------------------------------
  34834. TSPFieldLink
  34835. --------------------------------------------------------------------}
  34836. Class Function TSPFieldLink.ObjectRestKind : String;
  34837. begin
  34838. Result:='FieldLink';
  34839. end;
  34840. Procedure TSPFieldLink.SetFieldInternalName(AIndex: Integer; const AValue: string);
  34841. begin
  34842. If (FFieldInternalName=AValue) then exit;
  34843. FFieldInternalName:=AValue;
  34844. MarkPropertyChanged(AIndex);
  34845. end;
  34846. Procedure TSPFieldLink.SetHidden(AIndex: Integer; const AValue: boolean);
  34847. begin
  34848. If (FHidden=AValue) then exit;
  34849. FHidden:=AValue;
  34850. MarkPropertyChanged(AIndex);
  34851. end;
  34852. Procedure TSPFieldLink.SetId(AIndex: Integer; const AValue: TGUIDString);
  34853. begin
  34854. If (FId=AValue) then exit;
  34855. FId:=AValue;
  34856. MarkPropertyChanged(AIndex);
  34857. end;
  34858. Procedure TSPFieldLink.SetName(AIndex: Integer; const AValue: string);
  34859. begin
  34860. If (FName=AValue) then exit;
  34861. FName:=AValue;
  34862. MarkPropertyChanged(AIndex);
  34863. end;
  34864. Procedure TSPFieldLink.SetRequired(AIndex: Integer; const AValue: boolean);
  34865. begin
  34866. If (FRequired=AValue) then exit;
  34867. FRequired:=AValue;
  34868. MarkPropertyChanged(AIndex);
  34869. end;
  34870. Function TSPFieldLink.KeyAsURLPart : string;
  34871. begin
  34872. Result:=TODataObject.MakeKeyString(Id);
  34873. end;
  34874. { --------------------------------------------------------------------
  34875. TSPField
  34876. --------------------------------------------------------------------}
  34877. Class Function TSPField.ObjectRestKind : String;
  34878. begin
  34879. Result:='Field';
  34880. end;
  34881. Procedure TSPField.SetAutoIndexed(AIndex: Integer; const AValue: boolean);
  34882. begin
  34883. If (FAutoIndexed=AValue) then exit;
  34884. FAutoIndexed:=AValue;
  34885. MarkPropertyChanged(AIndex);
  34886. end;
  34887. Procedure TSPField.SetCanBeDeleted(AIndex: Integer; const AValue: boolean);
  34888. begin
  34889. If (FCanBeDeleted=AValue) then exit;
  34890. FCanBeDeleted:=AValue;
  34891. MarkPropertyChanged(AIndex);
  34892. end;
  34893. Procedure TSPField.SetDefaultValue(AIndex: Integer; const AValue: string);
  34894. begin
  34895. If (FDefaultValue=AValue) then exit;
  34896. FDefaultValue:=AValue;
  34897. MarkPropertyChanged(AIndex);
  34898. end;
  34899. Procedure TSPField.SetDescription(AIndex: Integer; const AValue: string);
  34900. begin
  34901. If (FDescription=AValue) then exit;
  34902. FDescription:=AValue;
  34903. MarkPropertyChanged(AIndex);
  34904. end;
  34905. Procedure TSPField.SetDirection(AIndex: Integer; const AValue: string);
  34906. begin
  34907. If (FDirection=AValue) then exit;
  34908. FDirection:=AValue;
  34909. MarkPropertyChanged(AIndex);
  34910. end;
  34911. Procedure TSPField.SetEnforceUniqueValues(AIndex: Integer; const AValue: boolean);
  34912. begin
  34913. If (FEnforceUniqueValues=AValue) then exit;
  34914. FEnforceUniqueValues:=AValue;
  34915. MarkPropertyChanged(AIndex);
  34916. end;
  34917. Procedure TSPField.SetEntityPropertyName(AIndex: Integer; const AValue: string);
  34918. begin
  34919. If (FEntityPropertyName=AValue) then exit;
  34920. FEntityPropertyName:=AValue;
  34921. MarkPropertyChanged(AIndex);
  34922. end;
  34923. Procedure TSPField.SetFilterable(AIndex: Integer; const AValue: boolean);
  34924. begin
  34925. If (FFilterable=AValue) then exit;
  34926. FFilterable:=AValue;
  34927. MarkPropertyChanged(AIndex);
  34928. end;
  34929. Procedure TSPField.SetFromBaseType(AIndex: Integer; const AValue: boolean);
  34930. begin
  34931. If (FFromBaseType=AValue) then exit;
  34932. FFromBaseType:=AValue;
  34933. MarkPropertyChanged(AIndex);
  34934. end;
  34935. Procedure TSPField.SetGroup(AIndex: Integer; const AValue: string);
  34936. begin
  34937. If (FGroup=AValue) then exit;
  34938. FGroup:=AValue;
  34939. MarkPropertyChanged(AIndex);
  34940. end;
  34941. Procedure TSPField.SetHidden(AIndex: Integer; const AValue: boolean);
  34942. begin
  34943. If (FHidden=AValue) then exit;
  34944. FHidden:=AValue;
  34945. MarkPropertyChanged(AIndex);
  34946. end;
  34947. Procedure TSPField.SetId(AIndex: Integer; const AValue: TGUIDString);
  34948. begin
  34949. If (FId=AValue) then exit;
  34950. FId:=AValue;
  34951. MarkPropertyChanged(AIndex);
  34952. end;
  34953. Procedure TSPField.SetIndexed(AIndex: Integer; const AValue: boolean);
  34954. begin
  34955. If (FIndexed=AValue) then exit;
  34956. FIndexed:=AValue;
  34957. MarkPropertyChanged(AIndex);
  34958. end;
  34959. Procedure TSPField.SetInternalName(AIndex: Integer; const AValue: string);
  34960. begin
  34961. If (FInternalName=AValue) then exit;
  34962. FInternalName:=AValue;
  34963. MarkPropertyChanged(AIndex);
  34964. end;
  34965. Procedure TSPField.SetJSLink(AIndex: Integer; const AValue: string);
  34966. begin
  34967. If (FJSLink=AValue) then exit;
  34968. FJSLink:=AValue;
  34969. MarkPropertyChanged(AIndex);
  34970. end;
  34971. Procedure TSPField.SetReadOnlyField(AIndex: Integer; const AValue: boolean);
  34972. begin
  34973. If (FReadOnlyField=AValue) then exit;
  34974. FReadOnlyField:=AValue;
  34975. MarkPropertyChanged(AIndex);
  34976. end;
  34977. Procedure TSPField.SetRequired(AIndex: Integer; const AValue: boolean);
  34978. begin
  34979. If (FRequired=AValue) then exit;
  34980. FRequired:=AValue;
  34981. MarkPropertyChanged(AIndex);
  34982. end;
  34983. Procedure TSPField.SetSchemaXml(AIndex: Integer; const AValue: string);
  34984. begin
  34985. If (FSchemaXml=AValue) then exit;
  34986. FSchemaXml:=AValue;
  34987. MarkPropertyChanged(AIndex);
  34988. end;
  34989. Procedure TSPField.SetSchemaXmlWithResourceTokens(AIndex: Integer; const AValue: string);
  34990. begin
  34991. If (FSchemaXmlWithResourceTokens=AValue) then exit;
  34992. FSchemaXmlWithResourceTokens:=AValue;
  34993. MarkPropertyChanged(AIndex);
  34994. end;
  34995. Procedure TSPField.SetScope(AIndex: Integer; const AValue: string);
  34996. begin
  34997. If (FScope=AValue) then exit;
  34998. FScope:=AValue;
  34999. MarkPropertyChanged(AIndex);
  35000. end;
  35001. Procedure TSPField.SetSealed(AIndex: Integer; const AValue: boolean);
  35002. begin
  35003. If (FSealed=AValue) then exit;
  35004. FSealed:=AValue;
  35005. MarkPropertyChanged(AIndex);
  35006. end;
  35007. Procedure TSPField.SetSortable(AIndex: Integer; const AValue: boolean);
  35008. begin
  35009. If (FSortable=AValue) then exit;
  35010. FSortable:=AValue;
  35011. MarkPropertyChanged(AIndex);
  35012. end;
  35013. Procedure TSPField.SetStaticName(AIndex: Integer; const AValue: string);
  35014. begin
  35015. If (FStaticName=AValue) then exit;
  35016. FStaticName:=AValue;
  35017. MarkPropertyChanged(AIndex);
  35018. end;
  35019. Procedure TSPField.SetTitle(AIndex: Integer; const AValue: string);
  35020. begin
  35021. If (FTitle=AValue) then exit;
  35022. FTitle:=AValue;
  35023. MarkPropertyChanged(AIndex);
  35024. end;
  35025. Procedure TSPField.SetFieldTypeKind(AIndex: Integer; const AValue: TInt32);
  35026. begin
  35027. If (FFieldTypeKind=AValue) then exit;
  35028. FFieldTypeKind:=AValue;
  35029. MarkPropertyChanged(AIndex);
  35030. end;
  35031. Procedure TSPField.SetTypeAsString(AIndex: Integer; const AValue: string);
  35032. begin
  35033. If (FTypeAsString=AValue) then exit;
  35034. FTypeAsString:=AValue;
  35035. MarkPropertyChanged(AIndex);
  35036. end;
  35037. Procedure TSPField.SetTypeDisplayName(AIndex: Integer; const AValue: string);
  35038. begin
  35039. If (FTypeDisplayName=AValue) then exit;
  35040. FTypeDisplayName:=AValue;
  35041. MarkPropertyChanged(AIndex);
  35042. end;
  35043. Procedure TSPField.SetTypeShortDescription(AIndex: Integer; const AValue: string);
  35044. begin
  35045. If (FTypeShortDescription=AValue) then exit;
  35046. FTypeShortDescription:=AValue;
  35047. MarkPropertyChanged(AIndex);
  35048. end;
  35049. Procedure TSPField.SetValidationFormula(AIndex: Integer; const AValue: string);
  35050. begin
  35051. If (FValidationFormula=AValue) then exit;
  35052. FValidationFormula:=AValue;
  35053. MarkPropertyChanged(AIndex);
  35054. end;
  35055. Procedure TSPField.SetValidationMessage(AIndex: Integer; const AValue: string);
  35056. begin
  35057. If (FValidationMessage=AValue) then exit;
  35058. FValidationMessage:=AValue;
  35059. MarkPropertyChanged(AIndex);
  35060. end;
  35061. Function TSPField.KeyAsURLPart : string;
  35062. begin
  35063. Result:=TODataObject.MakeKeyString(Id);
  35064. end;
  35065. Function TSPField.DescriptionResource(AService: TODataService) : TSPUserResource;
  35066. begin
  35067. Result:=TSPUserResource(GetContainedSingleTon(AService,'DescriptionResource', TSPUserResource));
  35068. end;
  35069. Function TSPField.TitleResource(AService: TODataService) : TSPUserResource;
  35070. begin
  35071. Result:=TSPUserResource(GetContainedSingleTon(AService,'TitleResource', TSPUserResource));
  35072. end;
  35073. { --------------------------------------------------------------------
  35074. TSPSPDataLeakagePreventionStatusInfo
  35075. --------------------------------------------------------------------}
  35076. Class Function TSPSPDataLeakagePreventionStatusInfo.ObjectRestKind : String;
  35077. begin
  35078. Result:='SPDataLeakagePreventionStatusInfo';
  35079. end;
  35080. Procedure TSPSPDataLeakagePreventionStatusInfo.SetContainsConfidentialInfo(AIndex: Integer; const AValue: boolean);
  35081. begin
  35082. If (FContainsConfidentialInfo=AValue) then exit;
  35083. FContainsConfidentialInfo:=AValue;
  35084. MarkPropertyChanged(AIndex);
  35085. end;
  35086. Procedure TSPSPDataLeakagePreventionStatusInfo.SetContainsConfidentialInfoLearnMoreUrl(AIndex: Integer; const AValue: string);
  35087. begin
  35088. If (FContainsConfidentialInfoLearnMoreUrl=AValue) then exit;
  35089. FContainsConfidentialInfoLearnMoreUrl:=AValue;
  35090. MarkPropertyChanged(AIndex);
  35091. end;
  35092. Procedure TSPSPDataLeakagePreventionStatusInfo.SetExternalSharingTipsEnabled(AIndex: Integer; const AValue: boolean);
  35093. begin
  35094. If (FExternalSharingTipsEnabled=AValue) then exit;
  35095. FExternalSharingTipsEnabled:=AValue;
  35096. MarkPropertyChanged(AIndex);
  35097. end;
  35098. Procedure TSPSPDataLeakagePreventionStatusInfo.SetExternalSharingTipsLearnMoreUrl(AIndex: Integer; const AValue: string);
  35099. begin
  35100. If (FExternalSharingTipsLearnMoreUrl=AValue) then exit;
  35101. FExternalSharingTipsLearnMoreUrl:=AValue;
  35102. MarkPropertyChanged(AIndex);
  35103. end;
  35104. Function TSPSPDataLeakagePreventionStatusInfo.KeyAsURLPart : string;
  35105. begin
  35106. Result:=BoolToStr(ContainsConfidentialInfo,'true','false');
  35107. end;
  35108. { --------------------------------------------------------------------
  35109. TSPFolder
  35110. --------------------------------------------------------------------}
  35111. Class Function TSPFolder.ObjectRestKind : String;
  35112. begin
  35113. Result:='Folder';
  35114. end;
  35115. Procedure TSPFolder.SetContentTypeOrder(AIndex: Integer; const AValue: TSPContentTypeIdArray);
  35116. begin
  35117. If (FContentTypeOrder=AValue) then exit;
  35118. FContentTypeOrder:=AValue;
  35119. MarkPropertyChanged(AIndex);
  35120. end;
  35121. Procedure TSPFolder.SetExists(AIndex: Integer; const AValue: boolean);
  35122. begin
  35123. If (FExists=AValue) then exit;
  35124. FExists:=AValue;
  35125. MarkPropertyChanged(AIndex);
  35126. end;
  35127. Procedure TSPFolder.SetItemCount(AIndex: Integer; const AValue: TInt32);
  35128. begin
  35129. If (FItemCount=AValue) then exit;
  35130. FItemCount:=AValue;
  35131. MarkPropertyChanged(AIndex);
  35132. end;
  35133. Procedure TSPFolder.SetName(AIndex: Integer; const AValue: string);
  35134. begin
  35135. If (FName=AValue) then exit;
  35136. FName:=AValue;
  35137. MarkPropertyChanged(AIndex);
  35138. end;
  35139. Procedure TSPFolder.SetProgID(AIndex: Integer; const AValue: string);
  35140. begin
  35141. If (FProgID=AValue) then exit;
  35142. FProgID:=AValue;
  35143. MarkPropertyChanged(AIndex);
  35144. end;
  35145. Procedure TSPFolder.SetServerRelativeUrl(AIndex: Integer; const AValue: string);
  35146. begin
  35147. If (FServerRelativeUrl=AValue) then exit;
  35148. FServerRelativeUrl:=AValue;
  35149. MarkPropertyChanged(AIndex);
  35150. end;
  35151. Procedure TSPFolder.SetTimeCreated(AIndex: Integer; const AValue: TDateTime);
  35152. begin
  35153. If (FTimeCreated=AValue) then exit;
  35154. FTimeCreated:=AValue;
  35155. MarkPropertyChanged(AIndex);
  35156. end;
  35157. Procedure TSPFolder.SetTimeLastModified(AIndex: Integer; const AValue: TDateTime);
  35158. begin
  35159. If (FTimeLastModified=AValue) then exit;
  35160. FTimeLastModified:=AValue;
  35161. MarkPropertyChanged(AIndex);
  35162. end;
  35163. Procedure TSPFolder.SetUniqueContentTypeOrder(AIndex: Integer; const AValue: TSPContentTypeIdArray);
  35164. begin
  35165. If (FUniqueContentTypeOrder=AValue) then exit;
  35166. FUniqueContentTypeOrder:=AValue;
  35167. MarkPropertyChanged(AIndex);
  35168. end;
  35169. Procedure TSPFolder.SetUniqueId(AIndex: Integer; const AValue: TGUIDString);
  35170. begin
  35171. If (FUniqueId=AValue) then exit;
  35172. FUniqueId:=AValue;
  35173. MarkPropertyChanged(AIndex);
  35174. end;
  35175. Procedure TSPFolder.SetWelcomePage(AIndex: Integer; const AValue: string);
  35176. begin
  35177. If (FWelcomePage=AValue) then exit;
  35178. FWelcomePage:=AValue;
  35179. MarkPropertyChanged(AIndex);
  35180. end;
  35181. {$IFDEF VER2_6}
  35182. Procedure TSPFolder.SetArrayLength(const AName: String; ALength: Longint);
  35183. begin
  35184. Case aName of
  35185. 'contenttypeorder' : SetLength(FContentTypeOrder,aLength);
  35186. 'uniquecontenttypeorder' : SetLength(FUniqueContentTypeOrder,aLength);
  35187. else
  35188. inherited SetArrayLength(aName,ALength);
  35189. end;
  35190. end;
  35191. {$ENDIF VER2_6}
  35192. Function TSPFolder.KeyAsURLPart : string;
  35193. begin
  35194. Result:=TODataObject.MakeKeyString(ServerRelativeUrl);
  35195. end;
  35196. Function TSPFolder.Files(AService: TODataService) : TSP_File;
  35197. begin
  35198. Result:=TSP_File(GetContainedSingleTon(AService,'Files', TSP_File));
  35199. end;
  35200. Function TSPFolder.ListItemAllFields(AService: TODataService) : TSPListItem;
  35201. begin
  35202. Result:=TSPListItem(GetContainedSingleTon(AService,'ListItemAllFields', TSPListItem));
  35203. end;
  35204. Function TSPFolder.ParentFolder(AService: TODataService) : TSPFolder;
  35205. begin
  35206. Result:=TSPFolder(GetContainedSingleTon(AService,'ParentFolder', TSPFolder));
  35207. end;
  35208. Function TSPFolder.Properties(AService: TODataService) : TSPPropertyValues;
  35209. begin
  35210. Result:=TSPPropertyValues(GetContainedSingleTon(AService,'Properties', TSPPropertyValues));
  35211. end;
  35212. Function TSPFolder.Folders(AService: TODataService) : TSPFolder;
  35213. begin
  35214. Result:=TSPFolder(GetContainedSingleTon(AService,'Folders', TSPFolder));
  35215. end;
  35216. { --------------------------------------------------------------------
  35217. TSP_File
  35218. --------------------------------------------------------------------}
  35219. Class Function TSP_File.ObjectRestKind : String;
  35220. begin
  35221. Result:='File';
  35222. end;
  35223. Procedure TSP_File.SetCheckInComment(AIndex: Integer; const AValue: string);
  35224. begin
  35225. If (FCheckInComment=AValue) then exit;
  35226. FCheckInComment:=AValue;
  35227. MarkPropertyChanged(AIndex);
  35228. end;
  35229. Procedure TSP_File.SetCheckOutType(AIndex: Integer; const AValue: TInt32);
  35230. begin
  35231. If (FCheckOutType=AValue) then exit;
  35232. FCheckOutType:=AValue;
  35233. MarkPropertyChanged(AIndex);
  35234. end;
  35235. Procedure TSP_File.SetContentTag(AIndex: Integer; const AValue: string);
  35236. begin
  35237. If (FContentTag=AValue) then exit;
  35238. FContentTag:=AValue;
  35239. MarkPropertyChanged(AIndex);
  35240. end;
  35241. Procedure TSP_File.SetCustomizedPageStatus(AIndex: Integer; const AValue: TInt32);
  35242. begin
  35243. If (FCustomizedPageStatus=AValue) then exit;
  35244. FCustomizedPageStatus:=AValue;
  35245. MarkPropertyChanged(AIndex);
  35246. end;
  35247. Procedure TSP_File.SetETag(AIndex: Integer; const AValue: string);
  35248. begin
  35249. If (FETag=AValue) then exit;
  35250. FETag:=AValue;
  35251. MarkPropertyChanged(AIndex);
  35252. end;
  35253. Procedure TSP_File.SetExists(AIndex: Integer; const AValue: boolean);
  35254. begin
  35255. If (FExists=AValue) then exit;
  35256. FExists:=AValue;
  35257. MarkPropertyChanged(AIndex);
  35258. end;
  35259. Procedure TSP_File.Set_Length(AIndex: Integer; const AValue: int64);
  35260. begin
  35261. If (F_Length=AValue) then exit;
  35262. F_Length:=AValue;
  35263. MarkPropertyChanged(AIndex);
  35264. end;
  35265. Procedure TSP_File.SetLevel(AIndex: Integer; const AValue: Byte);
  35266. begin
  35267. If (FLevel=AValue) then exit;
  35268. FLevel:=AValue;
  35269. MarkPropertyChanged(AIndex);
  35270. end;
  35271. Procedure TSP_File.SetLinkingUrl(AIndex: Integer; const AValue: string);
  35272. begin
  35273. If (FLinkingUrl=AValue) then exit;
  35274. FLinkingUrl:=AValue;
  35275. MarkPropertyChanged(AIndex);
  35276. end;
  35277. Procedure TSP_File.SetMajorVersion(AIndex: Integer; const AValue: TInt32);
  35278. begin
  35279. If (FMajorVersion=AValue) then exit;
  35280. FMajorVersion:=AValue;
  35281. MarkPropertyChanged(AIndex);
  35282. end;
  35283. Procedure TSP_File.SetMinorVersion(AIndex: Integer; const AValue: TInt32);
  35284. begin
  35285. If (FMinorVersion=AValue) then exit;
  35286. FMinorVersion:=AValue;
  35287. MarkPropertyChanged(AIndex);
  35288. end;
  35289. Procedure TSP_File.SetName(AIndex: Integer; const AValue: string);
  35290. begin
  35291. If (FName=AValue) then exit;
  35292. FName:=AValue;
  35293. MarkPropertyChanged(AIndex);
  35294. end;
  35295. Procedure TSP_File.SetServerRelativeUrl(AIndex: Integer; const AValue: string);
  35296. begin
  35297. If (FServerRelativeUrl=AValue) then exit;
  35298. FServerRelativeUrl:=AValue;
  35299. MarkPropertyChanged(AIndex);
  35300. end;
  35301. Procedure TSP_File.SetTimeCreated(AIndex: Integer; const AValue: TDateTime);
  35302. begin
  35303. If (FTimeCreated=AValue) then exit;
  35304. FTimeCreated:=AValue;
  35305. MarkPropertyChanged(AIndex);
  35306. end;
  35307. Procedure TSP_File.SetTimeLastModified(AIndex: Integer; const AValue: TDateTime);
  35308. begin
  35309. If (FTimeLastModified=AValue) then exit;
  35310. FTimeLastModified:=AValue;
  35311. MarkPropertyChanged(AIndex);
  35312. end;
  35313. Procedure TSP_File.SetTitle(AIndex: Integer; const AValue: string);
  35314. begin
  35315. If (FTitle=AValue) then exit;
  35316. FTitle:=AValue;
  35317. MarkPropertyChanged(AIndex);
  35318. end;
  35319. Procedure TSP_File.SetUIVersion(AIndex: Integer; const AValue: TInt32);
  35320. begin
  35321. If (FUIVersion=AValue) then exit;
  35322. FUIVersion:=AValue;
  35323. MarkPropertyChanged(AIndex);
  35324. end;
  35325. Procedure TSP_File.SetUIVersionLabel(AIndex: Integer; const AValue: string);
  35326. begin
  35327. If (FUIVersionLabel=AValue) then exit;
  35328. FUIVersionLabel:=AValue;
  35329. MarkPropertyChanged(AIndex);
  35330. end;
  35331. Procedure TSP_File.SetUniqueId(AIndex: Integer; const AValue: TGUIDString);
  35332. begin
  35333. If (FUniqueId=AValue) then exit;
  35334. FUniqueId:=AValue;
  35335. MarkPropertyChanged(AIndex);
  35336. end;
  35337. Class Function TSP_File.ExportPropertyName(Const AName : String) :String;
  35338. begin
  35339. Case AName of
  35340. '_Length' : Result:='Length';
  35341. else
  35342. Result:=Inherited ExportPropertyName(AName);
  35343. end;
  35344. end;
  35345. Function TSP_File.KeyAsURLPart : string;
  35346. begin
  35347. Result:=TODataObject.MakeKeyString(Name);
  35348. end;
  35349. Function TSP_File.Author(AService: TODataService) : TSPUser;
  35350. begin
  35351. Result:=TSPUser(GetContainedSingleTon(AService,'Author', TSPUser));
  35352. end;
  35353. Function TSP_File.CheckedOutByUser(AService: TODataService) : TSPUser;
  35354. begin
  35355. Result:=TSPUser(GetContainedSingleTon(AService,'CheckedOutByUser', TSPUser));
  35356. end;
  35357. Function TSP_File.ListItemAllFields(AService: TODataService) : TSPListItem;
  35358. begin
  35359. Result:=TSPListItem(GetContainedSingleTon(AService,'ListItemAllFields', TSPListItem));
  35360. end;
  35361. Function TSP_File.LockedByUser(AService: TODataService) : TSPUser;
  35362. begin
  35363. Result:=TSPUser(GetContainedSingleTon(AService,'LockedByUser', TSPUser));
  35364. end;
  35365. Function TSP_File.ModifiedBy(AService: TODataService) : TSPUser;
  35366. begin
  35367. Result:=TSPUser(GetContainedSingleTon(AService,'ModifiedBy', TSPUser));
  35368. end;
  35369. Function TSP_File.Versions(AService: TODataService) : TSPFileVersion;
  35370. begin
  35371. Result:=TSPFileVersion(GetContainedSingleTon(AService,'Versions', TSPFileVersion));
  35372. end;
  35373. { --------------------------------------------------------------------
  35374. TSPListItem
  35375. --------------------------------------------------------------------}
  35376. Class Function TSPListItem.ObjectRestKind : String;
  35377. begin
  35378. Result:='ListItem';
  35379. end;
  35380. Procedure TSPListItem.SetDisplayName(AIndex: Integer; const AValue: string);
  35381. begin
  35382. If (FDisplayName=AValue) then exit;
  35383. FDisplayName:=AValue;
  35384. MarkPropertyChanged(AIndex);
  35385. end;
  35386. Procedure TSPListItem.SetEffectiveBasePermissions(AIndex: Integer; const AValue: TSPBasePermissions);
  35387. begin
  35388. If (FEffectiveBasePermissions=AValue) then exit;
  35389. FEffectiveBasePermissions:=AValue;
  35390. MarkPropertyChanged(AIndex);
  35391. end;
  35392. Procedure TSPListItem.SetEffectiveBasePermissionsForUI(AIndex: Integer; const AValue: TSPBasePermissions);
  35393. begin
  35394. If (FEffectiveBasePermissionsForUI=AValue) then exit;
  35395. FEffectiveBasePermissionsForUI:=AValue;
  35396. MarkPropertyChanged(AIndex);
  35397. end;
  35398. Procedure TSPListItem.SetFileSystemObjectType(AIndex: Integer; const AValue: TInt32);
  35399. begin
  35400. If (FFileSystemObjectType=AValue) then exit;
  35401. FFileSystemObjectType:=AValue;
  35402. MarkPropertyChanged(AIndex);
  35403. end;
  35404. Procedure TSPListItem.SetId(AIndex: Integer; const AValue: TInt32);
  35405. begin
  35406. If (FId=AValue) then exit;
  35407. FId:=AValue;
  35408. MarkPropertyChanged(AIndex);
  35409. end;
  35410. Procedure TSPListItem.SetClient_Title(AIndex: Integer; const AValue: string);
  35411. begin
  35412. If (FClient_Title=AValue) then exit;
  35413. FClient_Title:=AValue;
  35414. MarkPropertyChanged(AIndex);
  35415. end;
  35416. Function TSPListItem.AttachmentFiles(AService: TODataService) : TSPAttachment;
  35417. begin
  35418. Result:=TSPAttachment(GetContainedSingleTon(AService,'AttachmentFiles', TSPAttachment));
  35419. end;
  35420. Function TSPListItem.ContentType(AService: TODataService) : TSPContentType;
  35421. begin
  35422. Result:=TSPContentType(GetContainedSingleTon(AService,'ContentType', TSPContentType));
  35423. end;
  35424. Function TSPListItem.GetDlpPolicyTip(AService: TODataService) : TSPDlpPolicyTip;
  35425. begin
  35426. Result:=TSPDlpPolicyTip(GetContainedSingleTon(AService,'GetDlpPolicyTip', TSPDlpPolicyTip));
  35427. end;
  35428. Function TSPListItem.FieldValuesAsHtml(AService: TODataService) : TSPFieldStringValues;
  35429. begin
  35430. Result:=TSPFieldStringValues(GetContainedSingleTon(AService,'FieldValuesAsHtml', TSPFieldStringValues));
  35431. end;
  35432. Function TSPListItem.FieldValuesAsText(AService: TODataService) : TSPFieldStringValues;
  35433. begin
  35434. Result:=TSPFieldStringValues(GetContainedSingleTon(AService,'FieldValuesAsText', TSPFieldStringValues));
  35435. end;
  35436. Function TSPListItem.FieldValuesForEdit(AService: TODataService) : TSPFieldStringValues;
  35437. begin
  35438. Result:=TSPFieldStringValues(GetContainedSingleTon(AService,'FieldValuesForEdit', TSPFieldStringValues));
  35439. end;
  35440. Function TSPListItem._File(AService: TODataService) : TSP_File;
  35441. begin
  35442. Result:=TSP_File(GetContainedSingleTon(AService,'File', TSP_File));
  35443. end;
  35444. Function TSPListItem.Folder(AService: TODataService) : TSPFolder;
  35445. begin
  35446. Result:=TSPFolder(GetContainedSingleTon(AService,'Folder', TSPFolder));
  35447. end;
  35448. Function TSPListItem.ParentList(AService: TODataService) : TSPList;
  35449. begin
  35450. Result:=TSPList(GetContainedSingleTon(AService,'ParentList', TSPList));
  35451. end;
  35452. { --------------------------------------------------------------------
  35453. TSPAttachment
  35454. --------------------------------------------------------------------}
  35455. Class Function TSPAttachment.ObjectRestKind : String;
  35456. begin
  35457. Result:='Attachment';
  35458. end;
  35459. Procedure TSPAttachment.SetFileName(AIndex: Integer; const AValue: string);
  35460. begin
  35461. If (FFileName=AValue) then exit;
  35462. FFileName:=AValue;
  35463. MarkPropertyChanged(AIndex);
  35464. end;
  35465. Procedure TSPAttachment.SetServerRelativeUrl(AIndex: Integer; const AValue: string);
  35466. begin
  35467. If (FServerRelativeUrl=AValue) then exit;
  35468. FServerRelativeUrl:=AValue;
  35469. MarkPropertyChanged(AIndex);
  35470. end;
  35471. Function TSPAttachment.KeyAsURLPart : string;
  35472. begin
  35473. Result:=TODataObject.MakeKeyString(FileName);
  35474. end;
  35475. { --------------------------------------------------------------------
  35476. TSPDlpPolicyTip
  35477. --------------------------------------------------------------------}
  35478. Class Function TSPDlpPolicyTip.ObjectRestKind : String;
  35479. begin
  35480. Result:='DlpPolicyTip';
  35481. end;
  35482. Procedure TSPDlpPolicyTip.SetAppliedActionsText(AIndex: Integer; const AValue: string);
  35483. begin
  35484. If (FAppliedActionsText=AValue) then exit;
  35485. FAppliedActionsText:=AValue;
  35486. MarkPropertyChanged(AIndex);
  35487. end;
  35488. Procedure TSPDlpPolicyTip.SetComplianceUrl(AIndex: Integer; const AValue: string);
  35489. begin
  35490. If (FComplianceUrl=AValue) then exit;
  35491. FComplianceUrl:=AValue;
  35492. MarkPropertyChanged(AIndex);
  35493. end;
  35494. Procedure TSPDlpPolicyTip.SetGeneralText(AIndex: Integer; const AValue: string);
  35495. begin
  35496. If (FGeneralText=AValue) then exit;
  35497. FGeneralText:=AValue;
  35498. MarkPropertyChanged(AIndex);
  35499. end;
  35500. Procedure TSPDlpPolicyTip.SetLastProcessedTime(AIndex: Integer; const AValue: TDateTime);
  35501. begin
  35502. If (FLastProcessedTime=AValue) then exit;
  35503. FLastProcessedTime:=AValue;
  35504. MarkPropertyChanged(AIndex);
  35505. end;
  35506. Procedure TSPDlpPolicyTip.SetMatchedConditionDescriptions(AIndex: Integer; const AValue: TStringArray);
  35507. begin
  35508. If (FMatchedConditionDescriptions=AValue) then exit;
  35509. FMatchedConditionDescriptions:=AValue;
  35510. MarkPropertyChanged(AIndex);
  35511. end;
  35512. Procedure TSPDlpPolicyTip.SetOverrideOptions(AIndex: Integer; const AValue: TInt32);
  35513. begin
  35514. If (FOverrideOptions=AValue) then exit;
  35515. FOverrideOptions:=AValue;
  35516. MarkPropertyChanged(AIndex);
  35517. end;
  35518. {$IFDEF VER2_6}
  35519. Procedure TSPDlpPolicyTip.SetArrayLength(const AName: String; ALength: Longint);
  35520. begin
  35521. Case aName of
  35522. 'matchedconditiondescriptions' : SetLength(FMatchedConditionDescriptions,aLength);
  35523. else
  35524. inherited SetArrayLength(aName,ALength);
  35525. end;
  35526. end;
  35527. {$ENDIF VER2_6}
  35528. Function TSPDlpPolicyTip.KeyAsURLPart : string;
  35529. begin
  35530. Result:=TODataObject.MakeKeyString(AppliedActionsText);
  35531. end;
  35532. { --------------------------------------------------------------------
  35533. TSPFieldStringValues
  35534. --------------------------------------------------------------------}
  35535. Class Function TSPFieldStringValues.ObjectRestKind : String;
  35536. begin
  35537. Result:='FieldStringValues';
  35538. end;
  35539. Procedure TSPFieldStringValues.SetId4a81de82eeb94d6080ea5bf63e27023a(AIndex: Integer; const AValue: string);
  35540. begin
  35541. If (FId4a81de82eeb94d6080ea5bf63e27023a=AValue) then exit;
  35542. FId4a81de82eeb94d6080ea5bf63e27023a:=AValue;
  35543. MarkPropertyChanged(AIndex);
  35544. end;
  35545. Function TSPFieldStringValues.KeyAsURLPart : string;
  35546. begin
  35547. Result:=TODataObject.MakeKeyString(Id4a81de82eeb94d6080ea5bf63e27023a);
  35548. end;
  35549. { --------------------------------------------------------------------
  35550. TSPList
  35551. --------------------------------------------------------------------}
  35552. Class Function TSPList.ObjectRestKind : String;
  35553. begin
  35554. Result:='List';
  35555. end;
  35556. Procedure TSPList.SetAllowContentTypes(AIndex: Integer; const AValue: boolean);
  35557. begin
  35558. If (FAllowContentTypes=AValue) then exit;
  35559. FAllowContentTypes:=AValue;
  35560. MarkPropertyChanged(AIndex);
  35561. end;
  35562. Procedure TSPList.SetBaseTemplate(AIndex: Integer; const AValue: TInt32);
  35563. begin
  35564. If (FBaseTemplate=AValue) then exit;
  35565. FBaseTemplate:=AValue;
  35566. MarkPropertyChanged(AIndex);
  35567. end;
  35568. Procedure TSPList.SetBaseType(AIndex: Integer; const AValue: TInt32);
  35569. begin
  35570. If (FBaseType=AValue) then exit;
  35571. FBaseType:=AValue;
  35572. MarkPropertyChanged(AIndex);
  35573. end;
  35574. Procedure TSPList.SetBrowserFileHandling(AIndex: Integer; const AValue: TInt32);
  35575. begin
  35576. If (FBrowserFileHandling=AValue) then exit;
  35577. FBrowserFileHandling:=AValue;
  35578. MarkPropertyChanged(AIndex);
  35579. end;
  35580. Procedure TSPList.SetContentTypesEnabled(AIndex: Integer; const AValue: boolean);
  35581. begin
  35582. If (FContentTypesEnabled=AValue) then exit;
  35583. FContentTypesEnabled:=AValue;
  35584. MarkPropertyChanged(AIndex);
  35585. end;
  35586. Procedure TSPList.SetCrawlNonDefaultViews(AIndex: Integer; const AValue: boolean);
  35587. begin
  35588. If (FCrawlNonDefaultViews=AValue) then exit;
  35589. FCrawlNonDefaultViews:=AValue;
  35590. MarkPropertyChanged(AIndex);
  35591. end;
  35592. Procedure TSPList.SetCreated(AIndex: Integer; const AValue: TDateTime);
  35593. begin
  35594. If (FCreated=AValue) then exit;
  35595. FCreated:=AValue;
  35596. MarkPropertyChanged(AIndex);
  35597. end;
  35598. Procedure TSPList.SetDataSource(AIndex: Integer; const AValue: TSPListDataSource);
  35599. begin
  35600. If (FDataSource=AValue) then exit;
  35601. FDataSource:=AValue;
  35602. MarkPropertyChanged(AIndex);
  35603. end;
  35604. Procedure TSPList.SetDefaultContentApprovalWorkflowId(AIndex: Integer; const AValue: TGUIDString);
  35605. begin
  35606. If (FDefaultContentApprovalWorkflowId=AValue) then exit;
  35607. FDefaultContentApprovalWorkflowId:=AValue;
  35608. MarkPropertyChanged(AIndex);
  35609. end;
  35610. Procedure TSPList.SetDefaultDisplayFormUrl(AIndex: Integer; const AValue: string);
  35611. begin
  35612. If (FDefaultDisplayFormUrl=AValue) then exit;
  35613. FDefaultDisplayFormUrl:=AValue;
  35614. MarkPropertyChanged(AIndex);
  35615. end;
  35616. Procedure TSPList.SetDefaultEditFormUrl(AIndex: Integer; const AValue: string);
  35617. begin
  35618. If (FDefaultEditFormUrl=AValue) then exit;
  35619. FDefaultEditFormUrl:=AValue;
  35620. MarkPropertyChanged(AIndex);
  35621. end;
  35622. Procedure TSPList.SetDefaultNewFormUrl(AIndex: Integer; const AValue: string);
  35623. begin
  35624. If (FDefaultNewFormUrl=AValue) then exit;
  35625. FDefaultNewFormUrl:=AValue;
  35626. MarkPropertyChanged(AIndex);
  35627. end;
  35628. Procedure TSPList.SetDefaultViewUrl(AIndex: Integer; const AValue: string);
  35629. begin
  35630. If (FDefaultViewUrl=AValue) then exit;
  35631. FDefaultViewUrl:=AValue;
  35632. MarkPropertyChanged(AIndex);
  35633. end;
  35634. Procedure TSPList.SetDescription(AIndex: Integer; const AValue: string);
  35635. begin
  35636. If (FDescription=AValue) then exit;
  35637. FDescription:=AValue;
  35638. MarkPropertyChanged(AIndex);
  35639. end;
  35640. Procedure TSPList.SetDirection(AIndex: Integer; const AValue: string);
  35641. begin
  35642. If (FDirection=AValue) then exit;
  35643. FDirection:=AValue;
  35644. MarkPropertyChanged(AIndex);
  35645. end;
  35646. Procedure TSPList.SetDocumentTemplateUrl(AIndex: Integer; const AValue: string);
  35647. begin
  35648. If (FDocumentTemplateUrl=AValue) then exit;
  35649. FDocumentTemplateUrl:=AValue;
  35650. MarkPropertyChanged(AIndex);
  35651. end;
  35652. Procedure TSPList.SetDraftVersionVisibility(AIndex: Integer; const AValue: TInt32);
  35653. begin
  35654. If (FDraftVersionVisibility=AValue) then exit;
  35655. FDraftVersionVisibility:=AValue;
  35656. MarkPropertyChanged(AIndex);
  35657. end;
  35658. Procedure TSPList.SetEffectiveBasePermissions(AIndex: Integer; const AValue: TSPBasePermissions);
  35659. begin
  35660. If (FEffectiveBasePermissions=AValue) then exit;
  35661. FEffectiveBasePermissions:=AValue;
  35662. MarkPropertyChanged(AIndex);
  35663. end;
  35664. Procedure TSPList.SetEffectiveBasePermissionsForUI(AIndex: Integer; const AValue: TSPBasePermissions);
  35665. begin
  35666. If (FEffectiveBasePermissionsForUI=AValue) then exit;
  35667. FEffectiveBasePermissionsForUI:=AValue;
  35668. MarkPropertyChanged(AIndex);
  35669. end;
  35670. Procedure TSPList.SetEnableAttachments(AIndex: Integer; const AValue: boolean);
  35671. begin
  35672. If (FEnableAttachments=AValue) then exit;
  35673. FEnableAttachments:=AValue;
  35674. MarkPropertyChanged(AIndex);
  35675. end;
  35676. Procedure TSPList.SetEnableFolderCreation(AIndex: Integer; const AValue: boolean);
  35677. begin
  35678. If (FEnableFolderCreation=AValue) then exit;
  35679. FEnableFolderCreation:=AValue;
  35680. MarkPropertyChanged(AIndex);
  35681. end;
  35682. Procedure TSPList.SetEnableMinorVersions(AIndex: Integer; const AValue: boolean);
  35683. begin
  35684. If (FEnableMinorVersions=AValue) then exit;
  35685. FEnableMinorVersions:=AValue;
  35686. MarkPropertyChanged(AIndex);
  35687. end;
  35688. Procedure TSPList.SetEnableModeration(AIndex: Integer; const AValue: boolean);
  35689. begin
  35690. If (FEnableModeration=AValue) then exit;
  35691. FEnableModeration:=AValue;
  35692. MarkPropertyChanged(AIndex);
  35693. end;
  35694. Procedure TSPList.SetEnableVersioning(AIndex: Integer; const AValue: boolean);
  35695. begin
  35696. If (FEnableVersioning=AValue) then exit;
  35697. FEnableVersioning:=AValue;
  35698. MarkPropertyChanged(AIndex);
  35699. end;
  35700. Procedure TSPList.SetEntityTypeName(AIndex: Integer; const AValue: string);
  35701. begin
  35702. If (FEntityTypeName=AValue) then exit;
  35703. FEntityTypeName:=AValue;
  35704. MarkPropertyChanged(AIndex);
  35705. end;
  35706. Procedure TSPList.SetFileSavePostProcessingEnabled(AIndex: Integer; const AValue: boolean);
  35707. begin
  35708. If (FFileSavePostProcessingEnabled=AValue) then exit;
  35709. FFileSavePostProcessingEnabled:=AValue;
  35710. MarkPropertyChanged(AIndex);
  35711. end;
  35712. Procedure TSPList.SetForceCheckout(AIndex: Integer; const AValue: boolean);
  35713. begin
  35714. If (FForceCheckout=AValue) then exit;
  35715. FForceCheckout:=AValue;
  35716. MarkPropertyChanged(AIndex);
  35717. end;
  35718. Procedure TSPList.SetHasExternalDataSource(AIndex: Integer; const AValue: boolean);
  35719. begin
  35720. If (FHasExternalDataSource=AValue) then exit;
  35721. FHasExternalDataSource:=AValue;
  35722. MarkPropertyChanged(AIndex);
  35723. end;
  35724. Procedure TSPList.SetHidden(AIndex: Integer; const AValue: boolean);
  35725. begin
  35726. If (FHidden=AValue) then exit;
  35727. FHidden:=AValue;
  35728. MarkPropertyChanged(AIndex);
  35729. end;
  35730. Procedure TSPList.SetId(AIndex: Integer; const AValue: TGUIDString);
  35731. begin
  35732. If (FId=AValue) then exit;
  35733. FId:=AValue;
  35734. MarkPropertyChanged(AIndex);
  35735. end;
  35736. Procedure TSPList.SetImageUrl(AIndex: Integer; const AValue: string);
  35737. begin
  35738. If (FImageUrl=AValue) then exit;
  35739. FImageUrl:=AValue;
  35740. MarkPropertyChanged(AIndex);
  35741. end;
  35742. Procedure TSPList.SetIrmEnabled(AIndex: Integer; const AValue: boolean);
  35743. begin
  35744. If (FIrmEnabled=AValue) then exit;
  35745. FIrmEnabled:=AValue;
  35746. MarkPropertyChanged(AIndex);
  35747. end;
  35748. Procedure TSPList.SetIrmExpire(AIndex: Integer; const AValue: boolean);
  35749. begin
  35750. If (FIrmExpire=AValue) then exit;
  35751. FIrmExpire:=AValue;
  35752. MarkPropertyChanged(AIndex);
  35753. end;
  35754. Procedure TSPList.SetIrmReject(AIndex: Integer; const AValue: boolean);
  35755. begin
  35756. If (FIrmReject=AValue) then exit;
  35757. FIrmReject:=AValue;
  35758. MarkPropertyChanged(AIndex);
  35759. end;
  35760. Procedure TSPList.SetIsApplicationList(AIndex: Integer; const AValue: boolean);
  35761. begin
  35762. If (FIsApplicationList=AValue) then exit;
  35763. FIsApplicationList:=AValue;
  35764. MarkPropertyChanged(AIndex);
  35765. end;
  35766. Procedure TSPList.SetIsCatalog(AIndex: Integer; const AValue: boolean);
  35767. begin
  35768. If (FIsCatalog=AValue) then exit;
  35769. FIsCatalog:=AValue;
  35770. MarkPropertyChanged(AIndex);
  35771. end;
  35772. Procedure TSPList.SetIsPrivate(AIndex: Integer; const AValue: boolean);
  35773. begin
  35774. If (FIsPrivate=AValue) then exit;
  35775. FIsPrivate:=AValue;
  35776. MarkPropertyChanged(AIndex);
  35777. end;
  35778. Procedure TSPList.SetIsSiteAssetsLibrary(AIndex: Integer; const AValue: boolean);
  35779. begin
  35780. If (FIsSiteAssetsLibrary=AValue) then exit;
  35781. FIsSiteAssetsLibrary:=AValue;
  35782. MarkPropertyChanged(AIndex);
  35783. end;
  35784. Procedure TSPList.SetItemCount(AIndex: Integer; const AValue: TInt32);
  35785. begin
  35786. If (FItemCount=AValue) then exit;
  35787. FItemCount:=AValue;
  35788. MarkPropertyChanged(AIndex);
  35789. end;
  35790. Procedure TSPList.SetLastItemDeletedDate(AIndex: Integer; const AValue: TDateTime);
  35791. begin
  35792. If (FLastItemDeletedDate=AValue) then exit;
  35793. FLastItemDeletedDate:=AValue;
  35794. MarkPropertyChanged(AIndex);
  35795. end;
  35796. Procedure TSPList.SetLastItemModifiedDate(AIndex: Integer; const AValue: TDateTime);
  35797. begin
  35798. If (FLastItemModifiedDate=AValue) then exit;
  35799. FLastItemModifiedDate:=AValue;
  35800. MarkPropertyChanged(AIndex);
  35801. end;
  35802. Procedure TSPList.SetListItemEntityTypeFullName(AIndex: Integer; const AValue: string);
  35803. begin
  35804. If (FListItemEntityTypeFullName=AValue) then exit;
  35805. FListItemEntityTypeFullName:=AValue;
  35806. MarkPropertyChanged(AIndex);
  35807. end;
  35808. Procedure TSPList.SetMajorVersionLimit(AIndex: Integer; const AValue: TInt32);
  35809. begin
  35810. If (FMajorVersionLimit=AValue) then exit;
  35811. FMajorVersionLimit:=AValue;
  35812. MarkPropertyChanged(AIndex);
  35813. end;
  35814. Procedure TSPList.SetMajorWithMinorVersionsLimit(AIndex: Integer; const AValue: TInt32);
  35815. begin
  35816. If (FMajorWithMinorVersionsLimit=AValue) then exit;
  35817. FMajorWithMinorVersionsLimit:=AValue;
  35818. MarkPropertyChanged(AIndex);
  35819. end;
  35820. Procedure TSPList.SetMultipleDataList(AIndex: Integer; const AValue: boolean);
  35821. begin
  35822. If (FMultipleDataList=AValue) then exit;
  35823. FMultipleDataList:=AValue;
  35824. MarkPropertyChanged(AIndex);
  35825. end;
  35826. Procedure TSPList.SetNoCrawl(AIndex: Integer; const AValue: boolean);
  35827. begin
  35828. If (FNoCrawl=AValue) then exit;
  35829. FNoCrawl:=AValue;
  35830. MarkPropertyChanged(AIndex);
  35831. end;
  35832. Procedure TSPList.SetOnQuickLaunch(AIndex: Integer; const AValue: boolean);
  35833. begin
  35834. If (FOnQuickLaunch=AValue) then exit;
  35835. FOnQuickLaunch:=AValue;
  35836. MarkPropertyChanged(AIndex);
  35837. end;
  35838. Procedure TSPList.SetParentWebUrl(AIndex: Integer; const AValue: string);
  35839. begin
  35840. If (FParentWebUrl=AValue) then exit;
  35841. FParentWebUrl:=AValue;
  35842. MarkPropertyChanged(AIndex);
  35843. end;
  35844. Procedure TSPList.SetParserDisabled(AIndex: Integer; const AValue: boolean);
  35845. begin
  35846. If (FParserDisabled=AValue) then exit;
  35847. FParserDisabled:=AValue;
  35848. MarkPropertyChanged(AIndex);
  35849. end;
  35850. Procedure TSPList.SetSchemaXml(AIndex: Integer; const AValue: string);
  35851. begin
  35852. If (FSchemaXml=AValue) then exit;
  35853. FSchemaXml:=AValue;
  35854. MarkPropertyChanged(AIndex);
  35855. end;
  35856. Procedure TSPList.SetServerTemplateCanCreateFolders(AIndex: Integer; const AValue: boolean);
  35857. begin
  35858. If (FServerTemplateCanCreateFolders=AValue) then exit;
  35859. FServerTemplateCanCreateFolders:=AValue;
  35860. MarkPropertyChanged(AIndex);
  35861. end;
  35862. Procedure TSPList.SetTemplateFeatureId(AIndex: Integer; const AValue: TGUIDString);
  35863. begin
  35864. If (FTemplateFeatureId=AValue) then exit;
  35865. FTemplateFeatureId:=AValue;
  35866. MarkPropertyChanged(AIndex);
  35867. end;
  35868. Procedure TSPList.SetTitle(AIndex: Integer; const AValue: string);
  35869. begin
  35870. If (FTitle=AValue) then exit;
  35871. FTitle:=AValue;
  35872. MarkPropertyChanged(AIndex);
  35873. end;
  35874. Procedure TSPList.SetValidationFormula(AIndex: Integer; const AValue: string);
  35875. begin
  35876. If (FValidationFormula=AValue) then exit;
  35877. FValidationFormula:=AValue;
  35878. MarkPropertyChanged(AIndex);
  35879. end;
  35880. Procedure TSPList.SetValidationMessage(AIndex: Integer; const AValue: string);
  35881. begin
  35882. If (FValidationMessage=AValue) then exit;
  35883. FValidationMessage:=AValue;
  35884. MarkPropertyChanged(AIndex);
  35885. end;
  35886. Function TSPList.ContentTypes(AService: TODataService) : TSPContentType;
  35887. begin
  35888. Result:=TSPContentType(GetContainedSingleTon(AService,'ContentTypes', TSPContentType));
  35889. end;
  35890. Function TSPList.CreatablesInfo(AService: TODataService) : TSPCreatablesInfo;
  35891. begin
  35892. Result:=TSPCreatablesInfo(GetContainedSingleTon(AService,'CreatablesInfo', TSPCreatablesInfo));
  35893. end;
  35894. Function TSPList.DefaultView(AService: TODataService) : TSPView;
  35895. begin
  35896. Result:=TSPView(GetContainedSingleTon(AService,'DefaultView', TSPView));
  35897. end;
  35898. Function TSPList.DescriptionResource(AService: TODataService) : TSPUserResource;
  35899. begin
  35900. Result:=TSPUserResource(GetContainedSingleTon(AService,'DescriptionResource', TSPUserResource));
  35901. end;
  35902. Function TSPList.EventReceivers(AService: TODataService) : TSPEventReceiverDefinition;
  35903. begin
  35904. Result:=TSPEventReceiverDefinition(GetContainedSingleTon(AService,'EventReceivers', TSPEventReceiverDefinition));
  35905. end;
  35906. Function TSPList.Fields(AService: TODataService) : TSPField;
  35907. begin
  35908. Result:=TSPField(GetContainedSingleTon(AService,'Fields', TSPField));
  35909. end;
  35910. Function TSPList.Forms(AService: TODataService) : TSPForm;
  35911. begin
  35912. Result:=TSPForm(GetContainedSingleTon(AService,'Forms', TSPForm));
  35913. end;
  35914. Function TSPList.InformationRightsManagementSettings(AService: TODataService) : TSPInformationRightsManagementSettings;
  35915. begin
  35916. Result:=TSPInformationRightsManagementSettings(GetContainedSingleTon(AService,'InformationRightsManagementSettings', TSPInformationRightsManagementSettings));
  35917. end;
  35918. Function TSPList.Items(AService: TODataService) : TSPListItem;
  35919. begin
  35920. Result:=TSPListItem(GetContainedSingleTon(AService,'Items', TSPListItem));
  35921. end;
  35922. Function TSPList.ParentWeb(AService: TODataService) : TSPWeb;
  35923. begin
  35924. Result:=TSPWeb(GetContainedSingleTon(AService,'ParentWeb', TSPWeb));
  35925. end;
  35926. Function TSPList.RootFolder(AService: TODataService) : TSPFolder;
  35927. begin
  35928. Result:=TSPFolder(GetContainedSingleTon(AService,'RootFolder', TSPFolder));
  35929. end;
  35930. Function TSPList.TitleResource(AService: TODataService) : TSPUserResource;
  35931. begin
  35932. Result:=TSPUserResource(GetContainedSingleTon(AService,'TitleResource', TSPUserResource));
  35933. end;
  35934. Function TSPList.UserCustomActions(AService: TODataService) : TSPUserCustomAction;
  35935. begin
  35936. Result:=TSPUserCustomAction(GetContainedSingleTon(AService,'UserCustomActions', TSPUserCustomAction));
  35937. end;
  35938. Function TSPList.Views(AService: TODataService) : TSPView;
  35939. begin
  35940. Result:=TSPView(GetContainedSingleTon(AService,'Views', TSPView));
  35941. end;
  35942. Function TSPList.WorkflowAssociations(AService: TODataService) : TSP_WorkflowWorkflowAssociation;
  35943. begin
  35944. Result:=TSP_WorkflowWorkflowAssociation(GetContainedSingleTon(AService,'WorkflowAssociations', TSP_WorkflowWorkflowAssociation));
  35945. end;
  35946. { --------------------------------------------------------------------
  35947. TSPCreatablesInfo
  35948. --------------------------------------------------------------------}
  35949. Class Function TSPCreatablesInfo.ObjectRestKind : String;
  35950. begin
  35951. Result:='CreatablesInfo';
  35952. end;
  35953. Procedure TSPCreatablesInfo.SetCanCreateFolders(AIndex: Integer; const AValue: boolean);
  35954. begin
  35955. If (FCanCreateFolders=AValue) then exit;
  35956. FCanCreateFolders:=AValue;
  35957. MarkPropertyChanged(AIndex);
  35958. end;
  35959. Procedure TSPCreatablesInfo.SetCanCreateItems(AIndex: Integer; const AValue: boolean);
  35960. begin
  35961. If (FCanCreateItems=AValue) then exit;
  35962. FCanCreateItems:=AValue;
  35963. MarkPropertyChanged(AIndex);
  35964. end;
  35965. Procedure TSPCreatablesInfo.SetCanUploadFiles(AIndex: Integer; const AValue: boolean);
  35966. begin
  35967. If (FCanUploadFiles=AValue) then exit;
  35968. FCanUploadFiles:=AValue;
  35969. MarkPropertyChanged(AIndex);
  35970. end;
  35971. Procedure TSPCreatablesInfo.SetCreatablesCollection(AIndex: Integer; const AValue: TSPCreatableItemInfoCollection);
  35972. begin
  35973. If (FCreatablesCollection=AValue) then exit;
  35974. FCreatablesCollection:=AValue;
  35975. MarkPropertyChanged(AIndex);
  35976. end;
  35977. Function TSPCreatablesInfo.KeyAsURLPart : string;
  35978. begin
  35979. Result:=BoolToStr(CanCreateFolders,'true','false');
  35980. end;
  35981. { --------------------------------------------------------------------
  35982. TSPView
  35983. --------------------------------------------------------------------}
  35984. Class Function TSPView.ObjectRestKind : String;
  35985. begin
  35986. Result:='View';
  35987. end;
  35988. Procedure TSPView.SetAggregations(AIndex: Integer; const AValue: string);
  35989. begin
  35990. If (FAggregations=AValue) then exit;
  35991. FAggregations:=AValue;
  35992. MarkPropertyChanged(AIndex);
  35993. end;
  35994. Procedure TSPView.SetAggregationsStatus(AIndex: Integer; const AValue: string);
  35995. begin
  35996. If (FAggregationsStatus=AValue) then exit;
  35997. FAggregationsStatus:=AValue;
  35998. MarkPropertyChanged(AIndex);
  35999. end;
  36000. Procedure TSPView.SetBaseViewId(AIndex: Integer; const AValue: string);
  36001. begin
  36002. If (FBaseViewId=AValue) then exit;
  36003. FBaseViewId:=AValue;
  36004. MarkPropertyChanged(AIndex);
  36005. end;
  36006. Procedure TSPView.SetContentTypeId(AIndex: Integer; const AValue: TSPContentTypeId);
  36007. begin
  36008. If (FContentTypeId=AValue) then exit;
  36009. FContentTypeId:=AValue;
  36010. MarkPropertyChanged(AIndex);
  36011. end;
  36012. Procedure TSPView.SetDefaultView(AIndex: Integer; const AValue: boolean);
  36013. begin
  36014. If (FDefaultView=AValue) then exit;
  36015. FDefaultView:=AValue;
  36016. MarkPropertyChanged(AIndex);
  36017. end;
  36018. Procedure TSPView.SetDefaultViewForContentType(AIndex: Integer; const AValue: boolean);
  36019. begin
  36020. If (FDefaultViewForContentType=AValue) then exit;
  36021. FDefaultViewForContentType:=AValue;
  36022. MarkPropertyChanged(AIndex);
  36023. end;
  36024. Procedure TSPView.SetEditorModified(AIndex: Integer; const AValue: boolean);
  36025. begin
  36026. If (FEditorModified=AValue) then exit;
  36027. FEditorModified:=AValue;
  36028. MarkPropertyChanged(AIndex);
  36029. end;
  36030. Procedure TSPView.SetFormats(AIndex: Integer; const AValue: string);
  36031. begin
  36032. If (FFormats=AValue) then exit;
  36033. FFormats:=AValue;
  36034. MarkPropertyChanged(AIndex);
  36035. end;
  36036. Procedure TSPView.SetHidden(AIndex: Integer; const AValue: boolean);
  36037. begin
  36038. If (FHidden=AValue) then exit;
  36039. FHidden:=AValue;
  36040. MarkPropertyChanged(AIndex);
  36041. end;
  36042. Procedure TSPView.SetHtmlSchemaXml(AIndex: Integer; const AValue: string);
  36043. begin
  36044. If (FHtmlSchemaXml=AValue) then exit;
  36045. FHtmlSchemaXml:=AValue;
  36046. MarkPropertyChanged(AIndex);
  36047. end;
  36048. Procedure TSPView.SetId(AIndex: Integer; const AValue: TGUIDString);
  36049. begin
  36050. If (FId=AValue) then exit;
  36051. FId:=AValue;
  36052. MarkPropertyChanged(AIndex);
  36053. end;
  36054. Procedure TSPView.SetImageUrl(AIndex: Integer; const AValue: string);
  36055. begin
  36056. If (FImageUrl=AValue) then exit;
  36057. FImageUrl:=AValue;
  36058. MarkPropertyChanged(AIndex);
  36059. end;
  36060. Procedure TSPView.SetIncludeRootFolder(AIndex: Integer; const AValue: boolean);
  36061. begin
  36062. If (FIncludeRootFolder=AValue) then exit;
  36063. FIncludeRootFolder:=AValue;
  36064. MarkPropertyChanged(AIndex);
  36065. end;
  36066. Procedure TSPView.SetViewJoins(AIndex: Integer; const AValue: string);
  36067. begin
  36068. If (FViewJoins=AValue) then exit;
  36069. FViewJoins:=AValue;
  36070. MarkPropertyChanged(AIndex);
  36071. end;
  36072. Procedure TSPView.SetJSLink(AIndex: Integer; const AValue: string);
  36073. begin
  36074. If (FJSLink=AValue) then exit;
  36075. FJSLink:=AValue;
  36076. MarkPropertyChanged(AIndex);
  36077. end;
  36078. Procedure TSPView.SetListViewXml(AIndex: Integer; const AValue: string);
  36079. begin
  36080. If (FListViewXml=AValue) then exit;
  36081. FListViewXml:=AValue;
  36082. MarkPropertyChanged(AIndex);
  36083. end;
  36084. Procedure TSPView.SetMethod(AIndex: Integer; const AValue: string);
  36085. begin
  36086. If (FMethod=AValue) then exit;
  36087. FMethod:=AValue;
  36088. MarkPropertyChanged(AIndex);
  36089. end;
  36090. Procedure TSPView.SetMobileDefaultView(AIndex: Integer; const AValue: boolean);
  36091. begin
  36092. If (FMobileDefaultView=AValue) then exit;
  36093. FMobileDefaultView:=AValue;
  36094. MarkPropertyChanged(AIndex);
  36095. end;
  36096. Procedure TSPView.SetMobileView(AIndex: Integer; const AValue: boolean);
  36097. begin
  36098. If (FMobileView=AValue) then exit;
  36099. FMobileView:=AValue;
  36100. MarkPropertyChanged(AIndex);
  36101. end;
  36102. Procedure TSPView.SetModerationType(AIndex: Integer; const AValue: string);
  36103. begin
  36104. If (FModerationType=AValue) then exit;
  36105. FModerationType:=AValue;
  36106. MarkPropertyChanged(AIndex);
  36107. end;
  36108. Procedure TSPView.SetOrderedView(AIndex: Integer; const AValue: boolean);
  36109. begin
  36110. If (FOrderedView=AValue) then exit;
  36111. FOrderedView:=AValue;
  36112. MarkPropertyChanged(AIndex);
  36113. end;
  36114. Procedure TSPView.SetPaged(AIndex: Integer; const AValue: boolean);
  36115. begin
  36116. If (FPaged=AValue) then exit;
  36117. FPaged:=AValue;
  36118. MarkPropertyChanged(AIndex);
  36119. end;
  36120. Procedure TSPView.SetPersonalView(AIndex: Integer; const AValue: boolean);
  36121. begin
  36122. If (FPersonalView=AValue) then exit;
  36123. FPersonalView:=AValue;
  36124. MarkPropertyChanged(AIndex);
  36125. end;
  36126. Procedure TSPView.SetViewProjectedFields(AIndex: Integer; const AValue: string);
  36127. begin
  36128. If (FViewProjectedFields=AValue) then exit;
  36129. FViewProjectedFields:=AValue;
  36130. MarkPropertyChanged(AIndex);
  36131. end;
  36132. Procedure TSPView.SetViewQuery(AIndex: Integer; const AValue: string);
  36133. begin
  36134. If (FViewQuery=AValue) then exit;
  36135. FViewQuery:=AValue;
  36136. MarkPropertyChanged(AIndex);
  36137. end;
  36138. Procedure TSPView.SetReadOnlyView(AIndex: Integer; const AValue: boolean);
  36139. begin
  36140. If (FReadOnlyView=AValue) then exit;
  36141. FReadOnlyView:=AValue;
  36142. MarkPropertyChanged(AIndex);
  36143. end;
  36144. Procedure TSPView.SetRequiresClientIntegration(AIndex: Integer; const AValue: boolean);
  36145. begin
  36146. If (FRequiresClientIntegration=AValue) then exit;
  36147. FRequiresClientIntegration:=AValue;
  36148. MarkPropertyChanged(AIndex);
  36149. end;
  36150. Procedure TSPView.SetRowLimit(AIndex: Integer; const AValue: TInt32);
  36151. begin
  36152. If (FRowLimit=AValue) then exit;
  36153. FRowLimit:=AValue;
  36154. MarkPropertyChanged(AIndex);
  36155. end;
  36156. Procedure TSPView.SetScope(AIndex: Integer; const AValue: TInt32);
  36157. begin
  36158. If (FScope=AValue) then exit;
  36159. FScope:=AValue;
  36160. MarkPropertyChanged(AIndex);
  36161. end;
  36162. Procedure TSPView.SetServerRelativeUrl(AIndex: Integer; const AValue: string);
  36163. begin
  36164. If (FServerRelativeUrl=AValue) then exit;
  36165. FServerRelativeUrl:=AValue;
  36166. MarkPropertyChanged(AIndex);
  36167. end;
  36168. Procedure TSPView.SetStyleId(AIndex: Integer; const AValue: string);
  36169. begin
  36170. If (FStyleId=AValue) then exit;
  36171. FStyleId:=AValue;
  36172. MarkPropertyChanged(AIndex);
  36173. end;
  36174. Procedure TSPView.SetThreaded(AIndex: Integer; const AValue: boolean);
  36175. begin
  36176. If (FThreaded=AValue) then exit;
  36177. FThreaded:=AValue;
  36178. MarkPropertyChanged(AIndex);
  36179. end;
  36180. Procedure TSPView.SetTitle(AIndex: Integer; const AValue: string);
  36181. begin
  36182. If (FTitle=AValue) then exit;
  36183. FTitle:=AValue;
  36184. MarkPropertyChanged(AIndex);
  36185. end;
  36186. Procedure TSPView.SetToolbar(AIndex: Integer; const AValue: string);
  36187. begin
  36188. If (FToolbar=AValue) then exit;
  36189. FToolbar:=AValue;
  36190. MarkPropertyChanged(AIndex);
  36191. end;
  36192. Procedure TSPView.SetToolbarTemplateName(AIndex: Integer; const AValue: string);
  36193. begin
  36194. If (FToolbarTemplateName=AValue) then exit;
  36195. FToolbarTemplateName:=AValue;
  36196. MarkPropertyChanged(AIndex);
  36197. end;
  36198. Procedure TSPView.SetViewType(AIndex: Integer; const AValue: string);
  36199. begin
  36200. If (FViewType=AValue) then exit;
  36201. FViewType:=AValue;
  36202. MarkPropertyChanged(AIndex);
  36203. end;
  36204. Procedure TSPView.SetViewData(AIndex: Integer; const AValue: string);
  36205. begin
  36206. If (FViewData=AValue) then exit;
  36207. FViewData:=AValue;
  36208. MarkPropertyChanged(AIndex);
  36209. end;
  36210. Function TSPView.KeyAsURLPart : string;
  36211. begin
  36212. Result:=TODataObject.MakeKeyString(Id);
  36213. end;
  36214. Function TSPView.ViewFields(AService: TODataService) : TSPViewFieldCollection;
  36215. begin
  36216. Result:=TSPViewFieldCollection(GetContainedSingleTon(AService,'ViewFields', TSPViewFieldCollection));
  36217. end;
  36218. { --------------------------------------------------------------------
  36219. TSPViewFieldCollection
  36220. --------------------------------------------------------------------}
  36221. Class Function TSPViewFieldCollection.ObjectRestKind : String;
  36222. begin
  36223. Result:='ViewFieldCollection';
  36224. end;
  36225. Procedure TSPViewFieldCollection.SetSchemaXml(AIndex: Integer; const AValue: string);
  36226. begin
  36227. If (FSchemaXml=AValue) then exit;
  36228. FSchemaXml:=AValue;
  36229. MarkPropertyChanged(AIndex);
  36230. end;
  36231. Procedure TSPViewFieldCollection.SetItems(AIndex: Integer; const AValue: TStringArray);
  36232. begin
  36233. If (FItems=AValue) then exit;
  36234. FItems:=AValue;
  36235. MarkPropertyChanged(AIndex);
  36236. end;
  36237. {$IFDEF VER2_6}
  36238. Procedure TSPViewFieldCollection.SetArrayLength(const AName: String; ALength: Longint);
  36239. begin
  36240. Case aName of
  36241. 'items' : SetLength(FItems,aLength);
  36242. else
  36243. inherited SetArrayLength(aName,ALength);
  36244. end;
  36245. end;
  36246. {$ENDIF VER2_6}
  36247. Function TSPViewFieldCollection.KeyAsURLPart : string;
  36248. begin
  36249. Result:=TODataObject.MakeKeyString(SchemaXml);
  36250. end;
  36251. { --------------------------------------------------------------------
  36252. TSPForm
  36253. --------------------------------------------------------------------}
  36254. Class Function TSPForm.ObjectRestKind : String;
  36255. begin
  36256. Result:='Form';
  36257. end;
  36258. Procedure TSPForm.SetId(AIndex: Integer; const AValue: TGUIDString);
  36259. begin
  36260. If (FId=AValue) then exit;
  36261. FId:=AValue;
  36262. MarkPropertyChanged(AIndex);
  36263. end;
  36264. Procedure TSPForm.SetServerRelativeUrl(AIndex: Integer; const AValue: string);
  36265. begin
  36266. If (FServerRelativeUrl=AValue) then exit;
  36267. FServerRelativeUrl:=AValue;
  36268. MarkPropertyChanged(AIndex);
  36269. end;
  36270. Procedure TSPForm.SetFormType(AIndex: Integer; const AValue: TInt32);
  36271. begin
  36272. If (FFormType=AValue) then exit;
  36273. FFormType:=AValue;
  36274. MarkPropertyChanged(AIndex);
  36275. end;
  36276. Function TSPForm.KeyAsURLPart : string;
  36277. begin
  36278. Result:=TODataObject.MakeKeyString(Id);
  36279. end;
  36280. { --------------------------------------------------------------------
  36281. TSPInformationRightsManagementSettings
  36282. --------------------------------------------------------------------}
  36283. Class Function TSPInformationRightsManagementSettings.ObjectRestKind : String;
  36284. begin
  36285. Result:='InformationRightsManagementSettings';
  36286. end;
  36287. Procedure TSPInformationRightsManagementSettings.SetAllowPrint(AIndex: Integer; const AValue: boolean);
  36288. begin
  36289. If (FAllowPrint=AValue) then exit;
  36290. FAllowPrint:=AValue;
  36291. MarkPropertyChanged(AIndex);
  36292. end;
  36293. Procedure TSPInformationRightsManagementSettings.SetAllowScript(AIndex: Integer; const AValue: boolean);
  36294. begin
  36295. If (FAllowScript=AValue) then exit;
  36296. FAllowScript:=AValue;
  36297. MarkPropertyChanged(AIndex);
  36298. end;
  36299. Procedure TSPInformationRightsManagementSettings.SetAllowWriteCopy(AIndex: Integer; const AValue: boolean);
  36300. begin
  36301. If (FAllowWriteCopy=AValue) then exit;
  36302. FAllowWriteCopy:=AValue;
  36303. MarkPropertyChanged(AIndex);
  36304. end;
  36305. Procedure TSPInformationRightsManagementSettings.SetDisableDocumentBrowserView(AIndex: Integer; const AValue: boolean);
  36306. begin
  36307. If (FDisableDocumentBrowserView=AValue) then exit;
  36308. FDisableDocumentBrowserView:=AValue;
  36309. MarkPropertyChanged(AIndex);
  36310. end;
  36311. Procedure TSPInformationRightsManagementSettings.SetDocumentAccessExpireDays(AIndex: Integer; const AValue: TInt32);
  36312. begin
  36313. If (FDocumentAccessExpireDays=AValue) then exit;
  36314. FDocumentAccessExpireDays:=AValue;
  36315. MarkPropertyChanged(AIndex);
  36316. end;
  36317. Procedure TSPInformationRightsManagementSettings.SetDocumentLibraryProtectionExpireDate(AIndex: Integer; const AValue: TDateTime);
  36318. begin
  36319. If (FDocumentLibraryProtectionExpireDate=AValue) then exit;
  36320. FDocumentLibraryProtectionExpireDate:=AValue;
  36321. MarkPropertyChanged(AIndex);
  36322. end;
  36323. Procedure TSPInformationRightsManagementSettings.SetEnableDocumentAccessExpire(AIndex: Integer; const AValue: boolean);
  36324. begin
  36325. If (FEnableDocumentAccessExpire=AValue) then exit;
  36326. FEnableDocumentAccessExpire:=AValue;
  36327. MarkPropertyChanged(AIndex);
  36328. end;
  36329. Procedure TSPInformationRightsManagementSettings.SetEnableDocumentBrowserPublishingView(AIndex: Integer; const AValue: boolean);
  36330. begin
  36331. If (FEnableDocumentBrowserPublishingView=AValue) then exit;
  36332. FEnableDocumentBrowserPublishingView:=AValue;
  36333. MarkPropertyChanged(AIndex);
  36334. end;
  36335. Procedure TSPInformationRightsManagementSettings.SetEnableGroupProtection(AIndex: Integer; const AValue: boolean);
  36336. begin
  36337. If (FEnableGroupProtection=AValue) then exit;
  36338. FEnableGroupProtection:=AValue;
  36339. MarkPropertyChanged(AIndex);
  36340. end;
  36341. Procedure TSPInformationRightsManagementSettings.SetEnableLicenseCacheExpire(AIndex: Integer; const AValue: boolean);
  36342. begin
  36343. If (FEnableLicenseCacheExpire=AValue) then exit;
  36344. FEnableLicenseCacheExpire:=AValue;
  36345. MarkPropertyChanged(AIndex);
  36346. end;
  36347. Procedure TSPInformationRightsManagementSettings.SetGroupName(AIndex: Integer; const AValue: string);
  36348. begin
  36349. If (FGroupName=AValue) then exit;
  36350. FGroupName:=AValue;
  36351. MarkPropertyChanged(AIndex);
  36352. end;
  36353. Procedure TSPInformationRightsManagementSettings.SetLicenseCacheExpireDays(AIndex: Integer; const AValue: TInt32);
  36354. begin
  36355. If (FLicenseCacheExpireDays=AValue) then exit;
  36356. FLicenseCacheExpireDays:=AValue;
  36357. MarkPropertyChanged(AIndex);
  36358. end;
  36359. Procedure TSPInformationRightsManagementSettings.SetPolicyDescription(AIndex: Integer; const AValue: string);
  36360. begin
  36361. If (FPolicyDescription=AValue) then exit;
  36362. FPolicyDescription:=AValue;
  36363. MarkPropertyChanged(AIndex);
  36364. end;
  36365. Procedure TSPInformationRightsManagementSettings.SetPolicyTitle(AIndex: Integer; const AValue: string);
  36366. begin
  36367. If (FPolicyTitle=AValue) then exit;
  36368. FPolicyTitle:=AValue;
  36369. MarkPropertyChanged(AIndex);
  36370. end;
  36371. Function TSPInformationRightsManagementSettings.KeyAsURLPart : string;
  36372. begin
  36373. Result:=BoolToStr(AllowPrint,'true','false');
  36374. end;
  36375. { --------------------------------------------------------------------
  36376. TSPUserCustomAction
  36377. --------------------------------------------------------------------}
  36378. Class Function TSPUserCustomAction.ObjectRestKind : String;
  36379. begin
  36380. Result:='UserCustomAction';
  36381. end;
  36382. Procedure TSPUserCustomAction.SetCommandUIExtension(AIndex: Integer; const AValue: string);
  36383. begin
  36384. If (FCommandUIExtension=AValue) then exit;
  36385. FCommandUIExtension:=AValue;
  36386. MarkPropertyChanged(AIndex);
  36387. end;
  36388. Procedure TSPUserCustomAction.SetDescription(AIndex: Integer; const AValue: string);
  36389. begin
  36390. If (FDescription=AValue) then exit;
  36391. FDescription:=AValue;
  36392. MarkPropertyChanged(AIndex);
  36393. end;
  36394. Procedure TSPUserCustomAction.SetGroup(AIndex: Integer; const AValue: string);
  36395. begin
  36396. If (FGroup=AValue) then exit;
  36397. FGroup:=AValue;
  36398. MarkPropertyChanged(AIndex);
  36399. end;
  36400. Procedure TSPUserCustomAction.SetId(AIndex: Integer; const AValue: TGUIDString);
  36401. begin
  36402. If (FId=AValue) then exit;
  36403. FId:=AValue;
  36404. MarkPropertyChanged(AIndex);
  36405. end;
  36406. Procedure TSPUserCustomAction.SetImageUrl(AIndex: Integer; const AValue: string);
  36407. begin
  36408. If (FImageUrl=AValue) then exit;
  36409. FImageUrl:=AValue;
  36410. MarkPropertyChanged(AIndex);
  36411. end;
  36412. Procedure TSPUserCustomAction.SetLocation(AIndex: Integer; const AValue: string);
  36413. begin
  36414. If (FLocation=AValue) then exit;
  36415. FLocation:=AValue;
  36416. MarkPropertyChanged(AIndex);
  36417. end;
  36418. Procedure TSPUserCustomAction.SetName(AIndex: Integer; const AValue: string);
  36419. begin
  36420. If (FName=AValue) then exit;
  36421. FName:=AValue;
  36422. MarkPropertyChanged(AIndex);
  36423. end;
  36424. Procedure TSPUserCustomAction.SetRegistrationId(AIndex: Integer; const AValue: string);
  36425. begin
  36426. If (FRegistrationId=AValue) then exit;
  36427. FRegistrationId:=AValue;
  36428. MarkPropertyChanged(AIndex);
  36429. end;
  36430. Procedure TSPUserCustomAction.SetRegistrationType(AIndex: Integer; const AValue: TInt32);
  36431. begin
  36432. If (FRegistrationType=AValue) then exit;
  36433. FRegistrationType:=AValue;
  36434. MarkPropertyChanged(AIndex);
  36435. end;
  36436. Procedure TSPUserCustomAction.SetRights(AIndex: Integer; const AValue: TSPBasePermissions);
  36437. begin
  36438. If (FRights=AValue) then exit;
  36439. FRights:=AValue;
  36440. MarkPropertyChanged(AIndex);
  36441. end;
  36442. Procedure TSPUserCustomAction.SetScope(AIndex: Integer; const AValue: TInt32);
  36443. begin
  36444. If (FScope=AValue) then exit;
  36445. FScope:=AValue;
  36446. MarkPropertyChanged(AIndex);
  36447. end;
  36448. Procedure TSPUserCustomAction.SetScriptBlock(AIndex: Integer; const AValue: string);
  36449. begin
  36450. If (FScriptBlock=AValue) then exit;
  36451. FScriptBlock:=AValue;
  36452. MarkPropertyChanged(AIndex);
  36453. end;
  36454. Procedure TSPUserCustomAction.SetScriptSrc(AIndex: Integer; const AValue: string);
  36455. begin
  36456. If (FScriptSrc=AValue) then exit;
  36457. FScriptSrc:=AValue;
  36458. MarkPropertyChanged(AIndex);
  36459. end;
  36460. Procedure TSPUserCustomAction.SetSequence(AIndex: Integer; const AValue: TInt32);
  36461. begin
  36462. If (FSequence=AValue) then exit;
  36463. FSequence:=AValue;
  36464. MarkPropertyChanged(AIndex);
  36465. end;
  36466. Procedure TSPUserCustomAction.SetTitle(AIndex: Integer; const AValue: string);
  36467. begin
  36468. If (FTitle=AValue) then exit;
  36469. FTitle:=AValue;
  36470. MarkPropertyChanged(AIndex);
  36471. end;
  36472. Procedure TSPUserCustomAction.SetUrl(AIndex: Integer; const AValue: string);
  36473. begin
  36474. If (FUrl=AValue) then exit;
  36475. FUrl:=AValue;
  36476. MarkPropertyChanged(AIndex);
  36477. end;
  36478. Procedure TSPUserCustomAction.SetVersionOfUserCustomAction(AIndex: Integer; const AValue: string);
  36479. begin
  36480. If (FVersionOfUserCustomAction=AValue) then exit;
  36481. FVersionOfUserCustomAction:=AValue;
  36482. MarkPropertyChanged(AIndex);
  36483. end;
  36484. Function TSPUserCustomAction.KeyAsURLPart : string;
  36485. begin
  36486. Result:=TODataObject.MakeKeyString(Id);
  36487. end;
  36488. { --------------------------------------------------------------------
  36489. TSPFileVersion
  36490. --------------------------------------------------------------------}
  36491. Class Function TSPFileVersion.ObjectRestKind : String;
  36492. begin
  36493. Result:='FileVersion';
  36494. end;
  36495. Procedure TSPFileVersion.SetCheckInComment(AIndex: Integer; const AValue: string);
  36496. begin
  36497. If (FCheckInComment=AValue) then exit;
  36498. FCheckInComment:=AValue;
  36499. MarkPropertyChanged(AIndex);
  36500. end;
  36501. Procedure TSPFileVersion.SetCreated(AIndex: Integer; const AValue: TDateTime);
  36502. begin
  36503. If (FCreated=AValue) then exit;
  36504. FCreated:=AValue;
  36505. MarkPropertyChanged(AIndex);
  36506. end;
  36507. Procedure TSPFileVersion.SetID(AIndex: Integer; const AValue: TInt32);
  36508. begin
  36509. If (FID=AValue) then exit;
  36510. FID:=AValue;
  36511. MarkPropertyChanged(AIndex);
  36512. end;
  36513. Procedure TSPFileVersion.SetIsCurrentVersion(AIndex: Integer; const AValue: boolean);
  36514. begin
  36515. If (FIsCurrentVersion=AValue) then exit;
  36516. FIsCurrentVersion:=AValue;
  36517. MarkPropertyChanged(AIndex);
  36518. end;
  36519. Procedure TSPFileVersion.Set_Length(AIndex: Integer; const AValue: int64);
  36520. begin
  36521. If (F_Length=AValue) then exit;
  36522. F_Length:=AValue;
  36523. MarkPropertyChanged(AIndex);
  36524. end;
  36525. Procedure TSPFileVersion.SetSize(AIndex: Integer; const AValue: TInt32);
  36526. begin
  36527. If (FSize=AValue) then exit;
  36528. FSize:=AValue;
  36529. MarkPropertyChanged(AIndex);
  36530. end;
  36531. Procedure TSPFileVersion.SetUrl(AIndex: Integer; const AValue: string);
  36532. begin
  36533. If (FUrl=AValue) then exit;
  36534. FUrl:=AValue;
  36535. MarkPropertyChanged(AIndex);
  36536. end;
  36537. Procedure TSPFileVersion.SetVersionLabel(AIndex: Integer; const AValue: string);
  36538. begin
  36539. If (FVersionLabel=AValue) then exit;
  36540. FVersionLabel:=AValue;
  36541. MarkPropertyChanged(AIndex);
  36542. end;
  36543. Class Function TSPFileVersion.ExportPropertyName(Const AName : String) :String;
  36544. begin
  36545. Case AName of
  36546. '_Length' : Result:='Length';
  36547. else
  36548. Result:=Inherited ExportPropertyName(AName);
  36549. end;
  36550. end;
  36551. Function TSPFileVersion.KeyAsURLPart : string;
  36552. begin
  36553. Result:=IntToStr(ID);
  36554. end;
  36555. Function TSPFileVersion.CreatedBy(AService: TODataService) : TSPUser;
  36556. begin
  36557. Result:=TSPUser(GetContainedSingleTon(AService,'CreatedBy', TSPUser));
  36558. end;
  36559. { --------------------------------------------------------------------
  36560. TSPListTemplate
  36561. --------------------------------------------------------------------}
  36562. Class Function TSPListTemplate.ObjectRestKind : String;
  36563. begin
  36564. Result:='ListTemplate';
  36565. end;
  36566. Procedure TSPListTemplate.SetAllowsFolderCreation(AIndex: Integer; const AValue: boolean);
  36567. begin
  36568. If (FAllowsFolderCreation=AValue) then exit;
  36569. FAllowsFolderCreation:=AValue;
  36570. MarkPropertyChanged(AIndex);
  36571. end;
  36572. Procedure TSPListTemplate.SetBaseType(AIndex: Integer; const AValue: TInt32);
  36573. begin
  36574. If (FBaseType=AValue) then exit;
  36575. FBaseType:=AValue;
  36576. MarkPropertyChanged(AIndex);
  36577. end;
  36578. Procedure TSPListTemplate.SetDescription(AIndex: Integer; const AValue: string);
  36579. begin
  36580. If (FDescription=AValue) then exit;
  36581. FDescription:=AValue;
  36582. MarkPropertyChanged(AIndex);
  36583. end;
  36584. Procedure TSPListTemplate.SetFeatureId(AIndex: Integer; const AValue: TGUIDString);
  36585. begin
  36586. If (FFeatureId=AValue) then exit;
  36587. FFeatureId:=AValue;
  36588. MarkPropertyChanged(AIndex);
  36589. end;
  36590. Procedure TSPListTemplate.SetHidden(AIndex: Integer; const AValue: boolean);
  36591. begin
  36592. If (FHidden=AValue) then exit;
  36593. FHidden:=AValue;
  36594. MarkPropertyChanged(AIndex);
  36595. end;
  36596. Procedure TSPListTemplate.SetImageUrl(AIndex: Integer; const AValue: string);
  36597. begin
  36598. If (FImageUrl=AValue) then exit;
  36599. FImageUrl:=AValue;
  36600. MarkPropertyChanged(AIndex);
  36601. end;
  36602. Procedure TSPListTemplate.SetInternalName(AIndex: Integer; const AValue: string);
  36603. begin
  36604. If (FInternalName=AValue) then exit;
  36605. FInternalName:=AValue;
  36606. MarkPropertyChanged(AIndex);
  36607. end;
  36608. Procedure TSPListTemplate.SetIsCustomTemplate(AIndex: Integer; const AValue: boolean);
  36609. begin
  36610. If (FIsCustomTemplate=AValue) then exit;
  36611. FIsCustomTemplate:=AValue;
  36612. MarkPropertyChanged(AIndex);
  36613. end;
  36614. Procedure TSPListTemplate.SetName(AIndex: Integer; const AValue: string);
  36615. begin
  36616. If (FName=AValue) then exit;
  36617. FName:=AValue;
  36618. MarkPropertyChanged(AIndex);
  36619. end;
  36620. Procedure TSPListTemplate.SetOnQuickLaunch(AIndex: Integer; const AValue: boolean);
  36621. begin
  36622. If (FOnQuickLaunch=AValue) then exit;
  36623. FOnQuickLaunch:=AValue;
  36624. MarkPropertyChanged(AIndex);
  36625. end;
  36626. Procedure TSPListTemplate.SetListTemplateTypeKind(AIndex: Integer; const AValue: TInt32);
  36627. begin
  36628. If (FListTemplateTypeKind=AValue) then exit;
  36629. FListTemplateTypeKind:=AValue;
  36630. MarkPropertyChanged(AIndex);
  36631. end;
  36632. Procedure TSPListTemplate.SetUnique(AIndex: Integer; const AValue: boolean);
  36633. begin
  36634. If (FUnique=AValue) then exit;
  36635. FUnique:=AValue;
  36636. MarkPropertyChanged(AIndex);
  36637. end;
  36638. Function TSPListTemplate.KeyAsURLPart : string;
  36639. begin
  36640. Result:=TODataObject.MakeKeyString(Name);
  36641. end;
  36642. { --------------------------------------------------------------------
  36643. TSPNavigation
  36644. --------------------------------------------------------------------}
  36645. Class Function TSPNavigation.ObjectRestKind : String;
  36646. begin
  36647. Result:='Navigation';
  36648. end;
  36649. Procedure TSPNavigation.SetUseShared(AIndex: Integer; const AValue: boolean);
  36650. begin
  36651. If (FUseShared=AValue) then exit;
  36652. FUseShared:=AValue;
  36653. MarkPropertyChanged(AIndex);
  36654. end;
  36655. Function TSPNavigation.KeyAsURLPart : string;
  36656. begin
  36657. Result:=BoolToStr(UseShared,'true','false');
  36658. end;
  36659. Function TSPNavigation.QuickLaunch(AService: TODataService) : TSPNavigationNode;
  36660. begin
  36661. Result:=TSPNavigationNode(GetContainedSingleTon(AService,'QuickLaunch', TSPNavigationNode));
  36662. end;
  36663. Function TSPNavigation.TopNavigationBar(AService: TODataService) : TSPNavigationNode;
  36664. begin
  36665. Result:=TSPNavigationNode(GetContainedSingleTon(AService,'TopNavigationBar', TSPNavigationNode));
  36666. end;
  36667. { --------------------------------------------------------------------
  36668. TSPNavigationNode
  36669. --------------------------------------------------------------------}
  36670. Class Function TSPNavigationNode.ObjectRestKind : String;
  36671. begin
  36672. Result:='NavigationNode';
  36673. end;
  36674. Procedure TSPNavigationNode.SetId(AIndex: Integer; const AValue: TInt32);
  36675. begin
  36676. If (FId=AValue) then exit;
  36677. FId:=AValue;
  36678. MarkPropertyChanged(AIndex);
  36679. end;
  36680. Procedure TSPNavigationNode.SetIsDocLib(AIndex: Integer; const AValue: boolean);
  36681. begin
  36682. If (FIsDocLib=AValue) then exit;
  36683. FIsDocLib:=AValue;
  36684. MarkPropertyChanged(AIndex);
  36685. end;
  36686. Procedure TSPNavigationNode.SetIsExternal(AIndex: Integer; const AValue: boolean);
  36687. begin
  36688. If (FIsExternal=AValue) then exit;
  36689. FIsExternal:=AValue;
  36690. MarkPropertyChanged(AIndex);
  36691. end;
  36692. Procedure TSPNavigationNode.SetIsVisible(AIndex: Integer; const AValue: boolean);
  36693. begin
  36694. If (FIsVisible=AValue) then exit;
  36695. FIsVisible:=AValue;
  36696. MarkPropertyChanged(AIndex);
  36697. end;
  36698. Procedure TSPNavigationNode.SetTitle(AIndex: Integer; const AValue: string);
  36699. begin
  36700. If (FTitle=AValue) then exit;
  36701. FTitle:=AValue;
  36702. MarkPropertyChanged(AIndex);
  36703. end;
  36704. Procedure TSPNavigationNode.SetUrl(AIndex: Integer; const AValue: string);
  36705. begin
  36706. If (FUrl=AValue) then exit;
  36707. FUrl:=AValue;
  36708. MarkPropertyChanged(AIndex);
  36709. end;
  36710. Function TSPNavigationNode.KeyAsURLPart : string;
  36711. begin
  36712. Result:=IntToStr(Id);
  36713. end;
  36714. Function TSPNavigationNode.Children(AService: TODataService) : TSPNavigationNode;
  36715. begin
  36716. Result:=TSPNavigationNode(GetContainedSingleTon(AService,'Children', TSPNavigationNode));
  36717. end;
  36718. { --------------------------------------------------------------------
  36719. TSPWebInformation
  36720. --------------------------------------------------------------------}
  36721. Class Function TSPWebInformation.ObjectRestKind : String;
  36722. begin
  36723. Result:='WebInformation';
  36724. end;
  36725. Procedure TSPWebInformation.SetConfiguration(AIndex: Integer; const AValue: TInt16);
  36726. begin
  36727. If (FConfiguration=AValue) then exit;
  36728. FConfiguration:=AValue;
  36729. MarkPropertyChanged(AIndex);
  36730. end;
  36731. Procedure TSPWebInformation.SetCreated(AIndex: Integer; const AValue: TDateTime);
  36732. begin
  36733. If (FCreated=AValue) then exit;
  36734. FCreated:=AValue;
  36735. MarkPropertyChanged(AIndex);
  36736. end;
  36737. Procedure TSPWebInformation.SetDescription(AIndex: Integer; const AValue: string);
  36738. begin
  36739. If (FDescription=AValue) then exit;
  36740. FDescription:=AValue;
  36741. MarkPropertyChanged(AIndex);
  36742. end;
  36743. Procedure TSPWebInformation.SetId(AIndex: Integer; const AValue: TGUIDString);
  36744. begin
  36745. If (FId=AValue) then exit;
  36746. FId:=AValue;
  36747. MarkPropertyChanged(AIndex);
  36748. end;
  36749. Procedure TSPWebInformation.SetLanguage(AIndex: Integer; const AValue: TInt32);
  36750. begin
  36751. If (FLanguage=AValue) then exit;
  36752. FLanguage:=AValue;
  36753. MarkPropertyChanged(AIndex);
  36754. end;
  36755. Procedure TSPWebInformation.SetLastItemModifiedDate(AIndex: Integer; const AValue: TDateTime);
  36756. begin
  36757. If (FLastItemModifiedDate=AValue) then exit;
  36758. FLastItemModifiedDate:=AValue;
  36759. MarkPropertyChanged(AIndex);
  36760. end;
  36761. Procedure TSPWebInformation.SetServerRelativeUrl(AIndex: Integer; const AValue: string);
  36762. begin
  36763. If (FServerRelativeUrl=AValue) then exit;
  36764. FServerRelativeUrl:=AValue;
  36765. MarkPropertyChanged(AIndex);
  36766. end;
  36767. Procedure TSPWebInformation.SetTitle(AIndex: Integer; const AValue: string);
  36768. begin
  36769. If (FTitle=AValue) then exit;
  36770. FTitle:=AValue;
  36771. MarkPropertyChanged(AIndex);
  36772. end;
  36773. Procedure TSPWebInformation.SetWebTemplate(AIndex: Integer; const AValue: string);
  36774. begin
  36775. If (FWebTemplate=AValue) then exit;
  36776. FWebTemplate:=AValue;
  36777. MarkPropertyChanged(AIndex);
  36778. end;
  36779. Procedure TSPWebInformation.SetWebTemplateId(AIndex: Integer; const AValue: TInt32);
  36780. begin
  36781. If (FWebTemplateId=AValue) then exit;
  36782. FWebTemplateId:=AValue;
  36783. MarkPropertyChanged(AIndex);
  36784. end;
  36785. Function TSPWebInformation.KeyAsURLPart : string;
  36786. begin
  36787. Result:=TODataObject.MakeKeyString(Id);
  36788. end;
  36789. { --------------------------------------------------------------------
  36790. TSPPushNotificationSubscriber
  36791. --------------------------------------------------------------------}
  36792. Class Function TSPPushNotificationSubscriber.ObjectRestKind : String;
  36793. begin
  36794. Result:='PushNotificationSubscriber';
  36795. end;
  36796. Procedure TSPPushNotificationSubscriber.SetCustomArgs(AIndex: Integer; const AValue: string);
  36797. begin
  36798. If (FCustomArgs=AValue) then exit;
  36799. FCustomArgs:=AValue;
  36800. MarkPropertyChanged(AIndex);
  36801. end;
  36802. Procedure TSPPushNotificationSubscriber.SetDeviceAppInstanceId(AIndex: Integer; const AValue: TGUIDString);
  36803. begin
  36804. If (FDeviceAppInstanceId=AValue) then exit;
  36805. FDeviceAppInstanceId:=AValue;
  36806. MarkPropertyChanged(AIndex);
  36807. end;
  36808. Procedure TSPPushNotificationSubscriber.SetLastModifiedTimeStamp(AIndex: Integer; const AValue: TDateTime);
  36809. begin
  36810. If (FLastModifiedTimeStamp=AValue) then exit;
  36811. FLastModifiedTimeStamp:=AValue;
  36812. MarkPropertyChanged(AIndex);
  36813. end;
  36814. Procedure TSPPushNotificationSubscriber.SetRegistrationTimeStamp(AIndex: Integer; const AValue: TDateTime);
  36815. begin
  36816. If (FRegistrationTimeStamp=AValue) then exit;
  36817. FRegistrationTimeStamp:=AValue;
  36818. MarkPropertyChanged(AIndex);
  36819. end;
  36820. Procedure TSPPushNotificationSubscriber.SetServiceToken(AIndex: Integer; const AValue: string);
  36821. begin
  36822. If (FServiceToken=AValue) then exit;
  36823. FServiceToken:=AValue;
  36824. MarkPropertyChanged(AIndex);
  36825. end;
  36826. Procedure TSPPushNotificationSubscriber.SetSubscriberType(AIndex: Integer; const AValue: string);
  36827. begin
  36828. If (FSubscriberType=AValue) then exit;
  36829. FSubscriberType:=AValue;
  36830. MarkPropertyChanged(AIndex);
  36831. end;
  36832. Function TSPPushNotificationSubscriber.KeyAsURLPart : string;
  36833. begin
  36834. Result:=TODataObject.MakeKeyString(CustomArgs);
  36835. end;
  36836. Function TSPPushNotificationSubscriber.User(AService: TODataService) : TSPUser;
  36837. begin
  36838. Result:=TSPUser(GetContainedSingleTon(AService,'User', TSPUser));
  36839. end;
  36840. { --------------------------------------------------------------------
  36841. TSPRegionalSettings
  36842. --------------------------------------------------------------------}
  36843. Class Function TSPRegionalSettings.ObjectRestKind : String;
  36844. begin
  36845. Result:='RegionalSettings';
  36846. end;
  36847. Procedure TSPRegionalSettings.SetAdjustHijriDays(AIndex: Integer; const AValue: TInt16);
  36848. begin
  36849. If (FAdjustHijriDays=AValue) then exit;
  36850. FAdjustHijriDays:=AValue;
  36851. MarkPropertyChanged(AIndex);
  36852. end;
  36853. Procedure TSPRegionalSettings.SetAlternateCalendarType(AIndex: Integer; const AValue: TInt16);
  36854. begin
  36855. If (FAlternateCalendarType=AValue) then exit;
  36856. FAlternateCalendarType:=AValue;
  36857. MarkPropertyChanged(AIndex);
  36858. end;
  36859. Procedure TSPRegionalSettings.SetAM(AIndex: Integer; const AValue: string);
  36860. begin
  36861. If (FAM=AValue) then exit;
  36862. FAM:=AValue;
  36863. MarkPropertyChanged(AIndex);
  36864. end;
  36865. Procedure TSPRegionalSettings.SetCalendarType(AIndex: Integer; const AValue: TInt16);
  36866. begin
  36867. If (FCalendarType=AValue) then exit;
  36868. FCalendarType:=AValue;
  36869. MarkPropertyChanged(AIndex);
  36870. end;
  36871. Procedure TSPRegionalSettings.SetCollation(AIndex: Integer; const AValue: TInt16);
  36872. begin
  36873. If (FCollation=AValue) then exit;
  36874. FCollation:=AValue;
  36875. MarkPropertyChanged(AIndex);
  36876. end;
  36877. Procedure TSPRegionalSettings.SetCollationLCID(AIndex: Integer; const AValue: TInt32);
  36878. begin
  36879. If (FCollationLCID=AValue) then exit;
  36880. FCollationLCID:=AValue;
  36881. MarkPropertyChanged(AIndex);
  36882. end;
  36883. Procedure TSPRegionalSettings.SetDateFormat(AIndex: Integer; const AValue: TInt32);
  36884. begin
  36885. If (FDateFormat=AValue) then exit;
  36886. FDateFormat:=AValue;
  36887. MarkPropertyChanged(AIndex);
  36888. end;
  36889. Procedure TSPRegionalSettings.SetDateSeparator(AIndex: Integer; const AValue: string);
  36890. begin
  36891. If (FDateSeparator=AValue) then exit;
  36892. FDateSeparator:=AValue;
  36893. MarkPropertyChanged(AIndex);
  36894. end;
  36895. Procedure TSPRegionalSettings.SetDecimalSeparator(AIndex: Integer; const AValue: string);
  36896. begin
  36897. If (FDecimalSeparator=AValue) then exit;
  36898. FDecimalSeparator:=AValue;
  36899. MarkPropertyChanged(AIndex);
  36900. end;
  36901. Procedure TSPRegionalSettings.SetDigitGrouping(AIndex: Integer; const AValue: string);
  36902. begin
  36903. If (FDigitGrouping=AValue) then exit;
  36904. FDigitGrouping:=AValue;
  36905. MarkPropertyChanged(AIndex);
  36906. end;
  36907. Procedure TSPRegionalSettings.SetFirstDayOfWeek(AIndex: Integer; const AValue: TInt32);
  36908. begin
  36909. If (FFirstDayOfWeek=AValue) then exit;
  36910. FFirstDayOfWeek:=AValue;
  36911. MarkPropertyChanged(AIndex);
  36912. end;
  36913. Procedure TSPRegionalSettings.SetFirstWeekOfYear(AIndex: Integer; const AValue: TInt16);
  36914. begin
  36915. If (FFirstWeekOfYear=AValue) then exit;
  36916. FFirstWeekOfYear:=AValue;
  36917. MarkPropertyChanged(AIndex);
  36918. end;
  36919. Procedure TSPRegionalSettings.SetIsEastAsia(AIndex: Integer; const AValue: boolean);
  36920. begin
  36921. If (FIsEastAsia=AValue) then exit;
  36922. FIsEastAsia:=AValue;
  36923. MarkPropertyChanged(AIndex);
  36924. end;
  36925. Procedure TSPRegionalSettings.SetIsRightToLeft(AIndex: Integer; const AValue: boolean);
  36926. begin
  36927. If (FIsRightToLeft=AValue) then exit;
  36928. FIsRightToLeft:=AValue;
  36929. MarkPropertyChanged(AIndex);
  36930. end;
  36931. Procedure TSPRegionalSettings.SetIsUIRightToLeft(AIndex: Integer; const AValue: boolean);
  36932. begin
  36933. If (FIsUIRightToLeft=AValue) then exit;
  36934. FIsUIRightToLeft:=AValue;
  36935. MarkPropertyChanged(AIndex);
  36936. end;
  36937. Procedure TSPRegionalSettings.SetListSeparator(AIndex: Integer; const AValue: string);
  36938. begin
  36939. If (FListSeparator=AValue) then exit;
  36940. FListSeparator:=AValue;
  36941. MarkPropertyChanged(AIndex);
  36942. end;
  36943. Procedure TSPRegionalSettings.SetLocaleId(AIndex: Integer; const AValue: TInt32);
  36944. begin
  36945. If (FLocaleId=AValue) then exit;
  36946. FLocaleId:=AValue;
  36947. MarkPropertyChanged(AIndex);
  36948. end;
  36949. Procedure TSPRegionalSettings.SetNegativeSign(AIndex: Integer; const AValue: string);
  36950. begin
  36951. If (FNegativeSign=AValue) then exit;
  36952. FNegativeSign:=AValue;
  36953. MarkPropertyChanged(AIndex);
  36954. end;
  36955. Procedure TSPRegionalSettings.SetNegNumberMode(AIndex: Integer; const AValue: TInt32);
  36956. begin
  36957. If (FNegNumberMode=AValue) then exit;
  36958. FNegNumberMode:=AValue;
  36959. MarkPropertyChanged(AIndex);
  36960. end;
  36961. Procedure TSPRegionalSettings.SetPM(AIndex: Integer; const AValue: string);
  36962. begin
  36963. If (FPM=AValue) then exit;
  36964. FPM:=AValue;
  36965. MarkPropertyChanged(AIndex);
  36966. end;
  36967. Procedure TSPRegionalSettings.SetPositiveSign(AIndex: Integer; const AValue: string);
  36968. begin
  36969. If (FPositiveSign=AValue) then exit;
  36970. FPositiveSign:=AValue;
  36971. MarkPropertyChanged(AIndex);
  36972. end;
  36973. Procedure TSPRegionalSettings.SetShowWeeks(AIndex: Integer; const AValue: boolean);
  36974. begin
  36975. If (FShowWeeks=AValue) then exit;
  36976. FShowWeeks:=AValue;
  36977. MarkPropertyChanged(AIndex);
  36978. end;
  36979. Procedure TSPRegionalSettings.SetThousandSeparator(AIndex: Integer; const AValue: string);
  36980. begin
  36981. If (FThousandSeparator=AValue) then exit;
  36982. FThousandSeparator:=AValue;
  36983. MarkPropertyChanged(AIndex);
  36984. end;
  36985. Procedure TSPRegionalSettings.SetTime24(AIndex: Integer; const AValue: boolean);
  36986. begin
  36987. If (FTime24=AValue) then exit;
  36988. FTime24:=AValue;
  36989. MarkPropertyChanged(AIndex);
  36990. end;
  36991. Procedure TSPRegionalSettings.SetTimeMarkerPosition(AIndex: Integer; const AValue: TInt32);
  36992. begin
  36993. If (FTimeMarkerPosition=AValue) then exit;
  36994. FTimeMarkerPosition:=AValue;
  36995. MarkPropertyChanged(AIndex);
  36996. end;
  36997. Procedure TSPRegionalSettings.SetTimeSeparator(AIndex: Integer; const AValue: string);
  36998. begin
  36999. If (FTimeSeparator=AValue) then exit;
  37000. FTimeSeparator:=AValue;
  37001. MarkPropertyChanged(AIndex);
  37002. end;
  37003. Procedure TSPRegionalSettings.SetWorkDayEndHour(AIndex: Integer; const AValue: TInt16);
  37004. begin
  37005. If (FWorkDayEndHour=AValue) then exit;
  37006. FWorkDayEndHour:=AValue;
  37007. MarkPropertyChanged(AIndex);
  37008. end;
  37009. Procedure TSPRegionalSettings.SetWorkDays(AIndex: Integer; const AValue: TInt16);
  37010. begin
  37011. If (FWorkDays=AValue) then exit;
  37012. FWorkDays:=AValue;
  37013. MarkPropertyChanged(AIndex);
  37014. end;
  37015. Procedure TSPRegionalSettings.SetWorkDayStartHour(AIndex: Integer; const AValue: TInt16);
  37016. begin
  37017. If (FWorkDayStartHour=AValue) then exit;
  37018. FWorkDayStartHour:=AValue;
  37019. MarkPropertyChanged(AIndex);
  37020. end;
  37021. Function TSPRegionalSettings.KeyAsURLPart : string;
  37022. begin
  37023. Result:=IntToStr(AdjustHijriDays);
  37024. end;
  37025. Function TSPRegionalSettings.GlobalTimeZones(AService: TODataService) : TSPTimeZone;
  37026. begin
  37027. Result:=TSPTimeZone(GetContainedSingleTon(AService,'GlobalTimeZones', TSPTimeZone));
  37028. end;
  37029. Function TSPRegionalSettings.TimeZone(AService: TODataService) : TSPTimeZone;
  37030. begin
  37031. Result:=TSPTimeZone(GetContainedSingleTon(AService,'TimeZone', TSPTimeZone));
  37032. end;
  37033. Function TSPRegionalSettings.TimeZones(AService: TODataService) : TSPTimeZone;
  37034. begin
  37035. Result:=TSPTimeZone(GetContainedSingleTon(AService,'TimeZones', TSPTimeZone));
  37036. end;
  37037. { --------------------------------------------------------------------
  37038. TSPTimeZone
  37039. --------------------------------------------------------------------}
  37040. Class Function TSPTimeZone.ObjectRestKind : String;
  37041. begin
  37042. Result:='TimeZone';
  37043. end;
  37044. Procedure TSPTimeZone.SetDescription(AIndex: Integer; const AValue: string);
  37045. begin
  37046. If (FDescription=AValue) then exit;
  37047. FDescription:=AValue;
  37048. MarkPropertyChanged(AIndex);
  37049. end;
  37050. Procedure TSPTimeZone.SetId(AIndex: Integer; const AValue: TInt32);
  37051. begin
  37052. If (FId=AValue) then exit;
  37053. FId:=AValue;
  37054. MarkPropertyChanged(AIndex);
  37055. end;
  37056. Procedure TSPTimeZone.SetInformation(AIndex: Integer; const AValue: TSPTimeZoneInformation);
  37057. begin
  37058. If (FInformation=AValue) then exit;
  37059. FInformation:=AValue;
  37060. MarkPropertyChanged(AIndex);
  37061. end;
  37062. Function TSPTimeZone.KeyAsURLPart : string;
  37063. begin
  37064. Result:=IntToStr(Id);
  37065. end;
  37066. { --------------------------------------------------------------------
  37067. TSPThemeInfo
  37068. --------------------------------------------------------------------}
  37069. Class Function TSPThemeInfo.ObjectRestKind : String;
  37070. begin
  37071. Result:='ThemeInfo';
  37072. end;
  37073. Procedure TSPThemeInfo.SetAccessibleDescription(AIndex: Integer; const AValue: string);
  37074. begin
  37075. If (FAccessibleDescription=AValue) then exit;
  37076. FAccessibleDescription:=AValue;
  37077. MarkPropertyChanged(AIndex);
  37078. end;
  37079. Procedure TSPThemeInfo.SetThemeBackgroundImageUri(AIndex: Integer; const AValue: string);
  37080. begin
  37081. If (FThemeBackgroundImageUri=AValue) then exit;
  37082. FThemeBackgroundImageUri:=AValue;
  37083. MarkPropertyChanged(AIndex);
  37084. end;
  37085. Function TSPThemeInfo.KeyAsURLPart : string;
  37086. begin
  37087. Result:=TODataObject.MakeKeyString(AccessibleDescription);
  37088. end;
  37089. { --------------------------------------------------------------------
  37090. TSPSPAppLicenseManager
  37091. --------------------------------------------------------------------}
  37092. Class Function TSPSPAppLicenseManager.ObjectRestKind : String;
  37093. begin
  37094. Result:='SPAppLicenseManager';
  37095. end;
  37096. Procedure TSPSPAppLicenseManager.SetId4a81de82eeb94d6080ea5bf63e27023a(AIndex: Integer; const AValue: string);
  37097. begin
  37098. If (FId4a81de82eeb94d6080ea5bf63e27023a=AValue) then exit;
  37099. FId4a81de82eeb94d6080ea5bf63e27023a:=AValue;
  37100. MarkPropertyChanged(AIndex);
  37101. end;
  37102. Function TSPSPAppLicenseManager.KeyAsURLPart : string;
  37103. begin
  37104. Result:=TODataObject.MakeKeyString(Id4a81de82eeb94d6080ea5bf63e27023a);
  37105. end;
  37106. { --------------------------------------------------------------------
  37107. TSPSolutionExporter
  37108. --------------------------------------------------------------------}
  37109. Class Function TSPSolutionExporter.ObjectRestKind : String;
  37110. begin
  37111. Result:='SolutionExporter';
  37112. end;
  37113. Procedure TSPSolutionExporter.SetId4a81de82eeb94d6080ea5bf63e27023a(AIndex: Integer; const AValue: string);
  37114. begin
  37115. If (FId4a81de82eeb94d6080ea5bf63e27023a=AValue) then exit;
  37116. FId4a81de82eeb94d6080ea5bf63e27023a:=AValue;
  37117. MarkPropertyChanged(AIndex);
  37118. end;
  37119. Function TSPSolutionExporter.KeyAsURLPart : string;
  37120. begin
  37121. Result:=TODataObject.MakeKeyString(Id4a81de82eeb94d6080ea5bf63e27023a);
  37122. end;
  37123. { --------------------------------------------------------------------
  37124. TSPUserSolution
  37125. --------------------------------------------------------------------}
  37126. Class Function TSPUserSolution.ObjectRestKind : String;
  37127. begin
  37128. Result:='UserSolution';
  37129. end;
  37130. Procedure TSPUserSolution.SetId4a81de82eeb94d6080ea5bf63e27023a(AIndex: Integer; const AValue: string);
  37131. begin
  37132. If (FId4a81de82eeb94d6080ea5bf63e27023a=AValue) then exit;
  37133. FId4a81de82eeb94d6080ea5bf63e27023a:=AValue;
  37134. MarkPropertyChanged(AIndex);
  37135. end;
  37136. Function TSPUserSolution.KeyAsURLPart : string;
  37137. begin
  37138. Result:=TODataObject.MakeKeyString(Id4a81de82eeb94d6080ea5bf63e27023a);
  37139. end;
  37140. { --------------------------------------------------------------------
  37141. TSPAppCatalog
  37142. --------------------------------------------------------------------}
  37143. Class Function TSPAppCatalog.ObjectRestKind : String;
  37144. begin
  37145. Result:='AppCatalog';
  37146. end;
  37147. Procedure TSPAppCatalog.SetId4a81de82eeb94d6080ea5bf63e27023a(AIndex: Integer; const AValue: string);
  37148. begin
  37149. If (FId4a81de82eeb94d6080ea5bf63e27023a=AValue) then exit;
  37150. FId4a81de82eeb94d6080ea5bf63e27023a:=AValue;
  37151. MarkPropertyChanged(AIndex);
  37152. end;
  37153. Function TSPAppCatalog.KeyAsURLPart : string;
  37154. begin
  37155. Result:=TODataObject.MakeKeyString(Id4a81de82eeb94d6080ea5bf63e27023a);
  37156. end;
  37157. { --------------------------------------------------------------------
  37158. TSPAppInstanceErrorDetails
  37159. --------------------------------------------------------------------}
  37160. Class Function TSPAppInstanceErrorDetails.ObjectRestKind : String;
  37161. begin
  37162. Result:='AppInstanceErrorDetails';
  37163. end;
  37164. Procedure TSPAppInstanceErrorDetails.SetCorrelationId(AIndex: Integer; const AValue: TGUIDString);
  37165. begin
  37166. If (FCorrelationId=AValue) then exit;
  37167. FCorrelationId:=AValue;
  37168. MarkPropertyChanged(AIndex);
  37169. end;
  37170. Procedure TSPAppInstanceErrorDetails.SetErrorDetail(AIndex: Integer; const AValue: string);
  37171. begin
  37172. If (FErrorDetail=AValue) then exit;
  37173. FErrorDetail:=AValue;
  37174. MarkPropertyChanged(AIndex);
  37175. end;
  37176. Procedure TSPAppInstanceErrorDetails.SetErrorType(AIndex: Integer; const AValue: TInt32);
  37177. begin
  37178. If (FErrorType=AValue) then exit;
  37179. FErrorType:=AValue;
  37180. MarkPropertyChanged(AIndex);
  37181. end;
  37182. Procedure TSPAppInstanceErrorDetails.SetErrorTypeName(AIndex: Integer; const AValue: string);
  37183. begin
  37184. If (FErrorTypeName=AValue) then exit;
  37185. FErrorTypeName:=AValue;
  37186. MarkPropertyChanged(AIndex);
  37187. end;
  37188. Procedure TSPAppInstanceErrorDetails.SetExceptionMessage(AIndex: Integer; const AValue: string);
  37189. begin
  37190. If (FExceptionMessage=AValue) then exit;
  37191. FExceptionMessage:=AValue;
  37192. MarkPropertyChanged(AIndex);
  37193. end;
  37194. Procedure TSPAppInstanceErrorDetails.SetSource(AIndex: Integer; const AValue: TInt32);
  37195. begin
  37196. If (FSource=AValue) then exit;
  37197. FSource:=AValue;
  37198. MarkPropertyChanged(AIndex);
  37199. end;
  37200. Procedure TSPAppInstanceErrorDetails.SetSourceName(AIndex: Integer; const AValue: string);
  37201. begin
  37202. If (FSourceName=AValue) then exit;
  37203. FSourceName:=AValue;
  37204. MarkPropertyChanged(AIndex);
  37205. end;
  37206. Function TSPAppInstanceErrorDetails.KeyAsURLPart : string;
  37207. begin
  37208. Result:=TODataObject.MakeKeyString(CorrelationId);
  37209. end;
  37210. { --------------------------------------------------------------------
  37211. TSPAppInstance
  37212. --------------------------------------------------------------------}
  37213. Class Function TSPAppInstance.ObjectRestKind : String;
  37214. begin
  37215. Result:='AppInstance';
  37216. end;
  37217. Procedure TSPAppInstance.SetAppPrincipalId(AIndex: Integer; const AValue: string);
  37218. begin
  37219. If (FAppPrincipalId=AValue) then exit;
  37220. FAppPrincipalId:=AValue;
  37221. MarkPropertyChanged(AIndex);
  37222. end;
  37223. Procedure TSPAppInstance.SetAppWebFullUrl(AIndex: Integer; const AValue: string);
  37224. begin
  37225. If (FAppWebFullUrl=AValue) then exit;
  37226. FAppWebFullUrl:=AValue;
  37227. MarkPropertyChanged(AIndex);
  37228. end;
  37229. Procedure TSPAppInstance.SetId(AIndex: Integer; const AValue: TGUIDString);
  37230. begin
  37231. If (FId=AValue) then exit;
  37232. FId:=AValue;
  37233. MarkPropertyChanged(AIndex);
  37234. end;
  37235. Procedure TSPAppInstance.SetImageFallbackUrl(AIndex: Integer; const AValue: string);
  37236. begin
  37237. If (FImageFallbackUrl=AValue) then exit;
  37238. FImageFallbackUrl:=AValue;
  37239. MarkPropertyChanged(AIndex);
  37240. end;
  37241. Procedure TSPAppInstance.SetImageUrl(AIndex: Integer; const AValue: string);
  37242. begin
  37243. If (FImageUrl=AValue) then exit;
  37244. FImageUrl:=AValue;
  37245. MarkPropertyChanged(AIndex);
  37246. end;
  37247. Procedure TSPAppInstance.SetInError(AIndex: Integer; const AValue: boolean);
  37248. begin
  37249. If (FInError=AValue) then exit;
  37250. FInError:=AValue;
  37251. MarkPropertyChanged(AIndex);
  37252. end;
  37253. Procedure TSPAppInstance.SetStartPage(AIndex: Integer; const AValue: string);
  37254. begin
  37255. If (FStartPage=AValue) then exit;
  37256. FStartPage:=AValue;
  37257. MarkPropertyChanged(AIndex);
  37258. end;
  37259. Procedure TSPAppInstance.SetPackageFingerprint(AIndex: Integer; const AValue: TBinary);
  37260. begin
  37261. If (FPackageFingerprint=AValue) then exit;
  37262. FPackageFingerprint:=AValue;
  37263. MarkPropertyChanged(AIndex);
  37264. end;
  37265. Procedure TSPAppInstance.SetProductId(AIndex: Integer; const AValue: TGUIDString);
  37266. begin
  37267. If (FProductId=AValue) then exit;
  37268. FProductId:=AValue;
  37269. MarkPropertyChanged(AIndex);
  37270. end;
  37271. Procedure TSPAppInstance.SetRemoteAppUrl(AIndex: Integer; const AValue: string);
  37272. begin
  37273. If (FRemoteAppUrl=AValue) then exit;
  37274. FRemoteAppUrl:=AValue;
  37275. MarkPropertyChanged(AIndex);
  37276. end;
  37277. Procedure TSPAppInstance.SetSettingsPageUrl(AIndex: Integer; const AValue: string);
  37278. begin
  37279. If (FSettingsPageUrl=AValue) then exit;
  37280. FSettingsPageUrl:=AValue;
  37281. MarkPropertyChanged(AIndex);
  37282. end;
  37283. Procedure TSPAppInstance.SetSiteId(AIndex: Integer; const AValue: TGUIDString);
  37284. begin
  37285. If (FSiteId=AValue) then exit;
  37286. FSiteId:=AValue;
  37287. MarkPropertyChanged(AIndex);
  37288. end;
  37289. Procedure TSPAppInstance.SetStatus(AIndex: Integer; const AValue: TInt32);
  37290. begin
  37291. If (FStatus=AValue) then exit;
  37292. FStatus:=AValue;
  37293. MarkPropertyChanged(AIndex);
  37294. end;
  37295. Procedure TSPAppInstance.SetTitle(AIndex: Integer; const AValue: string);
  37296. begin
  37297. If (FTitle=AValue) then exit;
  37298. FTitle:=AValue;
  37299. MarkPropertyChanged(AIndex);
  37300. end;
  37301. Procedure TSPAppInstance.SetWebId(AIndex: Integer; const AValue: TGUIDString);
  37302. begin
  37303. If (FWebId=AValue) then exit;
  37304. FWebId:=AValue;
  37305. MarkPropertyChanged(AIndex);
  37306. end;
  37307. Function TSPAppInstance.KeyAsURLPart : string;
  37308. begin
  37309. Result:=TODataObject.MakeKeyString(Id);
  37310. end;
  37311. { --------------------------------------------------------------------
  37312. TSPApp
  37313. --------------------------------------------------------------------}
  37314. Class Function TSPApp.ObjectRestKind : String;
  37315. begin
  37316. Result:='App';
  37317. end;
  37318. Procedure TSPApp.SetAssetId(AIndex: Integer; const AValue: string);
  37319. begin
  37320. If (FAssetId=AValue) then exit;
  37321. FAssetId:=AValue;
  37322. MarkPropertyChanged(AIndex);
  37323. end;
  37324. Procedure TSPApp.SetContentMarket(AIndex: Integer; const AValue: string);
  37325. begin
  37326. If (FContentMarket=AValue) then exit;
  37327. FContentMarket:=AValue;
  37328. MarkPropertyChanged(AIndex);
  37329. end;
  37330. Procedure TSPApp.SetVersionString(AIndex: Integer; const AValue: string);
  37331. begin
  37332. If (FVersionString=AValue) then exit;
  37333. FVersionString:=AValue;
  37334. MarkPropertyChanged(AIndex);
  37335. end;
  37336. Function TSPApp.KeyAsURLPart : string;
  37337. begin
  37338. Result:=TODataObject.MakeKeyString(AssetId);
  37339. end;
  37340. { --------------------------------------------------------------------
  37341. TSPAlternateUrl
  37342. --------------------------------------------------------------------}
  37343. Class Function TSPAlternateUrl.ObjectRestKind : String;
  37344. begin
  37345. Result:='AlternateUrl';
  37346. end;
  37347. Procedure TSPAlternateUrl.SetUri(AIndex: Integer; const AValue: string);
  37348. begin
  37349. If (FUri=AValue) then exit;
  37350. FUri:=AValue;
  37351. MarkPropertyChanged(AIndex);
  37352. end;
  37353. Procedure TSPAlternateUrl.SetUrlZone(AIndex: Integer; const AValue: TInt32);
  37354. begin
  37355. If (FUrlZone=AValue) then exit;
  37356. FUrlZone:=AValue;
  37357. MarkPropertyChanged(AIndex);
  37358. end;
  37359. Function TSPAlternateUrl.KeyAsURLPart : string;
  37360. begin
  37361. Result:=TODataObject.MakeKeyString(Uri);
  37362. end;
  37363. { --------------------------------------------------------------------
  37364. TSPObjectSharingSettings
  37365. --------------------------------------------------------------------}
  37366. Class Function TSPObjectSharingSettings.ObjectRestKind : String;
  37367. begin
  37368. Result:='ObjectSharingSettings';
  37369. end;
  37370. Procedure TSPObjectSharingSettings.SetAccessRequestMode(AIndex: Integer; const AValue: boolean);
  37371. begin
  37372. If (FAccessRequestMode=AValue) then exit;
  37373. FAccessRequestMode:=AValue;
  37374. MarkPropertyChanged(AIndex);
  37375. end;
  37376. Procedure TSPObjectSharingSettings.SetCanCurrentUserManageReadonlyLink(AIndex: Integer; const AValue: boolean);
  37377. begin
  37378. If (FCanCurrentUserManageReadonlyLink=AValue) then exit;
  37379. FCanCurrentUserManageReadonlyLink:=AValue;
  37380. MarkPropertyChanged(AIndex);
  37381. end;
  37382. Procedure TSPObjectSharingSettings.SetCanCurrentUserManageReadWriteLink(AIndex: Integer; const AValue: boolean);
  37383. begin
  37384. If (FCanCurrentUserManageReadWriteLink=AValue) then exit;
  37385. FCanCurrentUserManageReadWriteLink:=AValue;
  37386. MarkPropertyChanged(AIndex);
  37387. end;
  37388. Procedure TSPObjectSharingSettings.SetCanCurrentUserRetrieveReadonlyLink(AIndex: Integer; const AValue: boolean);
  37389. begin
  37390. If (FCanCurrentUserRetrieveReadonlyLink=AValue) then exit;
  37391. FCanCurrentUserRetrieveReadonlyLink:=AValue;
  37392. MarkPropertyChanged(AIndex);
  37393. end;
  37394. Procedure TSPObjectSharingSettings.SetCanCurrentUserRetrieveReadWriteLink(AIndex: Integer; const AValue: boolean);
  37395. begin
  37396. If (FCanCurrentUserRetrieveReadWriteLink=AValue) then exit;
  37397. FCanCurrentUserRetrieveReadWriteLink:=AValue;
  37398. MarkPropertyChanged(AIndex);
  37399. end;
  37400. Procedure TSPObjectSharingSettings.SetCanCurrentUserShareExternally(AIndex: Integer; const AValue: boolean);
  37401. begin
  37402. If (FCanCurrentUserShareExternally=AValue) then exit;
  37403. FCanCurrentUserShareExternally:=AValue;
  37404. MarkPropertyChanged(AIndex);
  37405. end;
  37406. Procedure TSPObjectSharingSettings.SetCanCurrentUserShareInternally(AIndex: Integer; const AValue: boolean);
  37407. begin
  37408. If (FCanCurrentUserShareInternally=AValue) then exit;
  37409. FCanCurrentUserShareInternally:=AValue;
  37410. MarkPropertyChanged(AIndex);
  37411. end;
  37412. Procedure TSPObjectSharingSettings.SetCanSendEmail(AIndex: Integer; const AValue: boolean);
  37413. begin
  37414. If (FCanSendEmail=AValue) then exit;
  37415. FCanSendEmail:=AValue;
  37416. MarkPropertyChanged(AIndex);
  37417. end;
  37418. Procedure TSPObjectSharingSettings.SetCanSendLink(AIndex: Integer; const AValue: boolean);
  37419. begin
  37420. If (FCanSendLink=AValue) then exit;
  37421. FCanSendLink:=AValue;
  37422. MarkPropertyChanged(AIndex);
  37423. end;
  37424. Procedure TSPObjectSharingSettings.SetCanShareFolder(AIndex: Integer; const AValue: boolean);
  37425. begin
  37426. If (FCanShareFolder=AValue) then exit;
  37427. FCanShareFolder:=AValue;
  37428. MarkPropertyChanged(AIndex);
  37429. end;
  37430. Procedure TSPObjectSharingSettings.SetGroupsList(AIndex: Integer; const AValue: TSPKeyValueArray);
  37431. begin
  37432. If (FGroupsList=AValue) then exit;
  37433. FGroupsList:=AValue;
  37434. MarkPropertyChanged(AIndex);
  37435. end;
  37436. Procedure TSPObjectSharingSettings.SetHasEditRole(AIndex: Integer; const AValue: boolean);
  37437. begin
  37438. If (FHasEditRole=AValue) then exit;
  37439. FHasEditRole:=AValue;
  37440. MarkPropertyChanged(AIndex);
  37441. end;
  37442. Procedure TSPObjectSharingSettings.SetHasReadRole(AIndex: Integer; const AValue: boolean);
  37443. begin
  37444. If (FHasReadRole=AValue) then exit;
  37445. FHasReadRole:=AValue;
  37446. MarkPropertyChanged(AIndex);
  37447. end;
  37448. Procedure TSPObjectSharingSettings.SetInheritingWebLink(AIndex: Integer; const AValue: string);
  37449. begin
  37450. If (FInheritingWebLink=AValue) then exit;
  37451. FInheritingWebLink:=AValue;
  37452. MarkPropertyChanged(AIndex);
  37453. end;
  37454. Procedure TSPObjectSharingSettings.SetIsGuestUser(AIndex: Integer; const AValue: boolean);
  37455. begin
  37456. If (FIsGuestUser=AValue) then exit;
  37457. FIsGuestUser:=AValue;
  37458. MarkPropertyChanged(AIndex);
  37459. end;
  37460. Procedure TSPObjectSharingSettings.SetIsPictureLibrary(AIndex: Integer; const AValue: boolean);
  37461. begin
  37462. If (FIsPictureLibrary=AValue) then exit;
  37463. FIsPictureLibrary:=AValue;
  37464. MarkPropertyChanged(AIndex);
  37465. end;
  37466. Procedure TSPObjectSharingSettings.SetIsUserSiteAdmin(AIndex: Integer; const AValue: boolean);
  37467. begin
  37468. If (FIsUserSiteAdmin=AValue) then exit;
  37469. FIsUserSiteAdmin:=AValue;
  37470. MarkPropertyChanged(AIndex);
  37471. end;
  37472. Procedure TSPObjectSharingSettings.SetItemId(AIndex: Integer; const AValue: string);
  37473. begin
  37474. If (FItemId=AValue) then exit;
  37475. FItemId:=AValue;
  37476. MarkPropertyChanged(AIndex);
  37477. end;
  37478. Procedure TSPObjectSharingSettings.SetItemName(AIndex: Integer; const AValue: string);
  37479. begin
  37480. If (FItemName=AValue) then exit;
  37481. FItemName:=AValue;
  37482. MarkPropertyChanged(AIndex);
  37483. end;
  37484. Procedure TSPObjectSharingSettings.SetItemUrl(AIndex: Integer; const AValue: string);
  37485. begin
  37486. If (FItemUrl=AValue) then exit;
  37487. FItemUrl:=AValue;
  37488. MarkPropertyChanged(AIndex);
  37489. end;
  37490. Procedure TSPObjectSharingSettings.SetListId(AIndex: Integer; const AValue: TGUIDString);
  37491. begin
  37492. If (FListId=AValue) then exit;
  37493. FListId:=AValue;
  37494. MarkPropertyChanged(AIndex);
  37495. end;
  37496. Procedure TSPObjectSharingSettings.SetPermissionsOnlyMode(AIndex: Integer; const AValue: boolean);
  37497. begin
  37498. If (FPermissionsOnlyMode=AValue) then exit;
  37499. FPermissionsOnlyMode:=AValue;
  37500. MarkPropertyChanged(AIndex);
  37501. end;
  37502. Procedure TSPObjectSharingSettings.SetRoles(AIndex: Integer; const AValue: TSPKeyValueArray);
  37503. begin
  37504. If (FRoles=AValue) then exit;
  37505. FRoles:=AValue;
  37506. MarkPropertyChanged(AIndex);
  37507. end;
  37508. Procedure TSPObjectSharingSettings.SetShareByEmailEnabled(AIndex: Integer; const AValue: boolean);
  37509. begin
  37510. If (FShareByEmailEnabled=AValue) then exit;
  37511. FShareByEmailEnabled:=AValue;
  37512. MarkPropertyChanged(AIndex);
  37513. end;
  37514. Procedure TSPObjectSharingSettings.SetShowExternalSharingWarning(AIndex: Integer; const AValue: boolean);
  37515. begin
  37516. If (FShowExternalSharingWarning=AValue) then exit;
  37517. FShowExternalSharingWarning:=AValue;
  37518. MarkPropertyChanged(AIndex);
  37519. end;
  37520. Procedure TSPObjectSharingSettings.SetSimplifiedRoles(AIndex: Integer; const AValue: TSPKeyValueArray);
  37521. begin
  37522. If (FSimplifiedRoles=AValue) then exit;
  37523. FSimplifiedRoles:=AValue;
  37524. MarkPropertyChanged(AIndex);
  37525. end;
  37526. Procedure TSPObjectSharingSettings.SetSupportsAclPropagation(AIndex: Integer; const AValue: boolean);
  37527. begin
  37528. If (FSupportsAclPropagation=AValue) then exit;
  37529. FSupportsAclPropagation:=AValue;
  37530. MarkPropertyChanged(AIndex);
  37531. end;
  37532. Procedure TSPObjectSharingSettings.SetWebUrl(AIndex: Integer; const AValue: string);
  37533. begin
  37534. If (FWebUrl=AValue) then exit;
  37535. FWebUrl:=AValue;
  37536. MarkPropertyChanged(AIndex);
  37537. end;
  37538. {$IFDEF VER2_6}
  37539. Procedure TSPObjectSharingSettings.SetArrayLength(const AName: String; ALength: Longint);
  37540. begin
  37541. Case aName of
  37542. 'groupslist' : SetLength(FGroupsList,aLength);
  37543. 'roles' : SetLength(FRoles,aLength);
  37544. 'simplifiedroles' : SetLength(FSimplifiedRoles,aLength);
  37545. else
  37546. inherited SetArrayLength(aName,ALength);
  37547. end;
  37548. end;
  37549. {$ENDIF VER2_6}
  37550. Function TSPObjectSharingSettings.KeyAsURLPart : string;
  37551. begin
  37552. Result:=BoolToStr(AccessRequestMode,'true','false');
  37553. end;
  37554. Function TSPObjectSharingSettings.ObjectSharingInformation(AService: TODataService) : TSPObjectSharingInformation;
  37555. begin
  37556. Result:=TSPObjectSharingInformation(GetContainedSingleTon(AService,'ObjectSharingInformation', TSPObjectSharingInformation));
  37557. end;
  37558. Function TSPObjectSharingSettings.SharePointSettings(AService: TODataService) : TSPSharePointSharingSettings;
  37559. begin
  37560. Result:=TSPSharePointSharingSettings(GetContainedSingleTon(AService,'SharePointSettings', TSPSharePointSharingSettings));
  37561. end;
  37562. { --------------------------------------------------------------------
  37563. TSPObjectSharingInformation
  37564. --------------------------------------------------------------------}
  37565. Class Function TSPObjectSharingInformation.ObjectRestKind : String;
  37566. begin
  37567. Result:='ObjectSharingInformation';
  37568. end;
  37569. Procedure TSPObjectSharingInformation.SetAnonymousEditLink(AIndex: Integer; const AValue: string);
  37570. begin
  37571. If (FAnonymousEditLink=AValue) then exit;
  37572. FAnonymousEditLink:=AValue;
  37573. MarkPropertyChanged(AIndex);
  37574. end;
  37575. Procedure TSPObjectSharingInformation.SetAnonymousViewLink(AIndex: Integer; const AValue: string);
  37576. begin
  37577. If (FAnonymousViewLink=AValue) then exit;
  37578. FAnonymousViewLink:=AValue;
  37579. MarkPropertyChanged(AIndex);
  37580. end;
  37581. Procedure TSPObjectSharingInformation.SetCanBeShared(AIndex: Integer; const AValue: boolean);
  37582. begin
  37583. If (FCanBeShared=AValue) then exit;
  37584. FCanBeShared:=AValue;
  37585. MarkPropertyChanged(AIndex);
  37586. end;
  37587. Procedure TSPObjectSharingInformation.SetCanBeUnshared(AIndex: Integer; const AValue: boolean);
  37588. begin
  37589. If (FCanBeUnshared=AValue) then exit;
  37590. FCanBeUnshared:=AValue;
  37591. MarkPropertyChanged(AIndex);
  37592. end;
  37593. Procedure TSPObjectSharingInformation.SetCanManagePermissions(AIndex: Integer; const AValue: boolean);
  37594. begin
  37595. If (FCanManagePermissions=AValue) then exit;
  37596. FCanManagePermissions:=AValue;
  37597. MarkPropertyChanged(AIndex);
  37598. end;
  37599. Procedure TSPObjectSharingInformation.SetHasPendingAccessRequests(AIndex: Integer; const AValue: boolean);
  37600. begin
  37601. If (FHasPendingAccessRequests=AValue) then exit;
  37602. FHasPendingAccessRequests:=AValue;
  37603. MarkPropertyChanged(AIndex);
  37604. end;
  37605. Procedure TSPObjectSharingInformation.SetHasPermissionLevels(AIndex: Integer; const AValue: boolean);
  37606. begin
  37607. If (FHasPermissionLevels=AValue) then exit;
  37608. FHasPermissionLevels:=AValue;
  37609. MarkPropertyChanged(AIndex);
  37610. end;
  37611. Procedure TSPObjectSharingInformation.SetIsSharedWithCurrentUser(AIndex: Integer; const AValue: boolean);
  37612. begin
  37613. If (FIsSharedWithCurrentUser=AValue) then exit;
  37614. FIsSharedWithCurrentUser:=AValue;
  37615. MarkPropertyChanged(AIndex);
  37616. end;
  37617. Procedure TSPObjectSharingInformation.SetIsSharedWithGuest(AIndex: Integer; const AValue: boolean);
  37618. begin
  37619. If (FIsSharedWithGuest=AValue) then exit;
  37620. FIsSharedWithGuest:=AValue;
  37621. MarkPropertyChanged(AIndex);
  37622. end;
  37623. Procedure TSPObjectSharingInformation.SetIsSharedWithMany(AIndex: Integer; const AValue: boolean);
  37624. begin
  37625. If (FIsSharedWithMany=AValue) then exit;
  37626. FIsSharedWithMany:=AValue;
  37627. MarkPropertyChanged(AIndex);
  37628. end;
  37629. Procedure TSPObjectSharingInformation.SetIsSharedWithSecurityGroup(AIndex: Integer; const AValue: boolean);
  37630. begin
  37631. If (FIsSharedWithSecurityGroup=AValue) then exit;
  37632. FIsSharedWithSecurityGroup:=AValue;
  37633. MarkPropertyChanged(AIndex);
  37634. end;
  37635. Procedure TSPObjectSharingInformation.SetPendingAccessRequestsLink(AIndex: Integer; const AValue: string);
  37636. begin
  37637. If (FPendingAccessRequestsLink=AValue) then exit;
  37638. FPendingAccessRequestsLink:=AValue;
  37639. MarkPropertyChanged(AIndex);
  37640. end;
  37641. Function TSPObjectSharingInformation.KeyAsURLPart : string;
  37642. begin
  37643. Result:=TODataObject.MakeKeyString(AnonymousEditLink);
  37644. end;
  37645. Function TSPObjectSharingInformation.SharedWithUsersCollection(AService: TODataService) : TSPObjectSharingInformationUser;
  37646. begin
  37647. Result:=TSPObjectSharingInformationUser(GetContainedSingleTon(AService,'SharedWithUsersCollection', TSPObjectSharingInformationUser));
  37648. end;
  37649. { --------------------------------------------------------------------
  37650. TSPObjectSharingInformationUser
  37651. --------------------------------------------------------------------}
  37652. Class Function TSPObjectSharingInformationUser.ObjectRestKind : String;
  37653. begin
  37654. Result:='ObjectSharingInformationUser';
  37655. end;
  37656. Procedure TSPObjectSharingInformationUser.SetCustomRoleNames(AIndex: Integer; const AValue: string);
  37657. begin
  37658. If (FCustomRoleNames=AValue) then exit;
  37659. FCustomRoleNames:=AValue;
  37660. MarkPropertyChanged(AIndex);
  37661. end;
  37662. Procedure TSPObjectSharingInformationUser.SetDepartment(AIndex: Integer; const AValue: string);
  37663. begin
  37664. If (FDepartment=AValue) then exit;
  37665. FDepartment:=AValue;
  37666. MarkPropertyChanged(AIndex);
  37667. end;
  37668. Procedure TSPObjectSharingInformationUser.SetEmail(AIndex: Integer; const AValue: string);
  37669. begin
  37670. If (FEmail=AValue) then exit;
  37671. FEmail:=AValue;
  37672. MarkPropertyChanged(AIndex);
  37673. end;
  37674. Procedure TSPObjectSharingInformationUser.SetHasEditPermission(AIndex: Integer; const AValue: boolean);
  37675. begin
  37676. If (FHasEditPermission=AValue) then exit;
  37677. FHasEditPermission:=AValue;
  37678. MarkPropertyChanged(AIndex);
  37679. end;
  37680. Procedure TSPObjectSharingInformationUser.SetHasViewPermission(AIndex: Integer; const AValue: boolean);
  37681. begin
  37682. If (FHasViewPermission=AValue) then exit;
  37683. FHasViewPermission:=AValue;
  37684. MarkPropertyChanged(AIndex);
  37685. end;
  37686. Procedure TSPObjectSharingInformationUser.SetId(AIndex: Integer; const AValue: TInt32);
  37687. begin
  37688. If (FId=AValue) then exit;
  37689. FId:=AValue;
  37690. MarkPropertyChanged(AIndex);
  37691. end;
  37692. Procedure TSPObjectSharingInformationUser.SetIsDomainGroup(AIndex: Integer; const AValue: boolean);
  37693. begin
  37694. If (FIsDomainGroup=AValue) then exit;
  37695. FIsDomainGroup:=AValue;
  37696. MarkPropertyChanged(AIndex);
  37697. end;
  37698. Procedure TSPObjectSharingInformationUser.SetIsSiteAdmin(AIndex: Integer; const AValue: boolean);
  37699. begin
  37700. If (FIsSiteAdmin=AValue) then exit;
  37701. FIsSiteAdmin:=AValue;
  37702. MarkPropertyChanged(AIndex);
  37703. end;
  37704. Procedure TSPObjectSharingInformationUser.SetJobTitle(AIndex: Integer; const AValue: string);
  37705. begin
  37706. If (FJobTitle=AValue) then exit;
  37707. FJobTitle:=AValue;
  37708. MarkPropertyChanged(AIndex);
  37709. end;
  37710. Procedure TSPObjectSharingInformationUser.SetLoginName(AIndex: Integer; const AValue: string);
  37711. begin
  37712. If (FLoginName=AValue) then exit;
  37713. FLoginName:=AValue;
  37714. MarkPropertyChanged(AIndex);
  37715. end;
  37716. Procedure TSPObjectSharingInformationUser.SetName(AIndex: Integer; const AValue: string);
  37717. begin
  37718. If (FName=AValue) then exit;
  37719. FName:=AValue;
  37720. MarkPropertyChanged(AIndex);
  37721. end;
  37722. Procedure TSPObjectSharingInformationUser.SetPicture(AIndex: Integer; const AValue: string);
  37723. begin
  37724. If (FPicture=AValue) then exit;
  37725. FPicture:=AValue;
  37726. MarkPropertyChanged(AIndex);
  37727. end;
  37728. Procedure TSPObjectSharingInformationUser.SetSipAddress(AIndex: Integer; const AValue: string);
  37729. begin
  37730. If (FSipAddress=AValue) then exit;
  37731. FSipAddress:=AValue;
  37732. MarkPropertyChanged(AIndex);
  37733. end;
  37734. Function TSPObjectSharingInformationUser.KeyAsURLPart : string;
  37735. begin
  37736. Result:=IntToStr(Id);
  37737. end;
  37738. Function TSPObjectSharingInformationUser.Principal(AService: TODataService) : TSPPrincipal;
  37739. begin
  37740. Result:=TSPPrincipal(GetContainedSingleTon(AService,'Principal', TSPPrincipal));
  37741. end;
  37742. Function TSPObjectSharingInformationUser.User(AService: TODataService) : TSPUser;
  37743. begin
  37744. Result:=TSPUser(GetContainedSingleTon(AService,'User', TSPUser));
  37745. end;
  37746. { --------------------------------------------------------------------
  37747. TSPSharePointSharingSettings
  37748. --------------------------------------------------------------------}
  37749. Class Function TSPSharePointSharingSettings.ObjectRestKind : String;
  37750. begin
  37751. Result:='SharePointSharingSettings';
  37752. end;
  37753. Procedure TSPSharePointSharingSettings.SetAddToGroupModeName(AIndex: Integer; const AValue: string);
  37754. begin
  37755. If (FAddToGroupModeName=AValue) then exit;
  37756. FAddToGroupModeName:=AValue;
  37757. MarkPropertyChanged(AIndex);
  37758. end;
  37759. Procedure TSPSharePointSharingSettings.SetGroupNameLines(AIndex: Integer; const AValue: TStringArray);
  37760. begin
  37761. If (FGroupNameLines=AValue) then exit;
  37762. FGroupNameLines:=AValue;
  37763. MarkPropertyChanged(AIndex);
  37764. end;
  37765. Procedure TSPSharePointSharingSettings.SetGroupRoleDefinitionNamesLines(AIndex: Integer; const AValue: TStringArray);
  37766. begin
  37767. If (FGroupRoleDefinitionNamesLines=AValue) then exit;
  37768. FGroupRoleDefinitionNamesLines:=AValue;
  37769. MarkPropertyChanged(AIndex);
  37770. end;
  37771. Procedure TSPSharePointSharingSettings.SetIsMobileView(AIndex: Integer; const AValue: boolean);
  37772. begin
  37773. If (FIsMobileView=AValue) then exit;
  37774. FIsMobileView:=AValue;
  37775. MarkPropertyChanged(AIndex);
  37776. end;
  37777. Procedure TSPSharePointSharingSettings.SetPanelGivePermissionsVisible(AIndex: Integer; const AValue: boolean);
  37778. begin
  37779. If (FPanelGivePermissionsVisible=AValue) then exit;
  37780. FPanelGivePermissionsVisible:=AValue;
  37781. MarkPropertyChanged(AIndex);
  37782. end;
  37783. Procedure TSPSharePointSharingSettings.SetPanelShowHideMoreOptionsVisible(AIndex: Integer; const AValue: boolean);
  37784. begin
  37785. If (FPanelShowHideMoreOptionsVisible=AValue) then exit;
  37786. FPanelShowHideMoreOptionsVisible:=AValue;
  37787. MarkPropertyChanged(AIndex);
  37788. end;
  37789. Procedure TSPSharePointSharingSettings.SetPanelSimplifiedRoleSelectorVisible(AIndex: Integer; const AValue: boolean);
  37790. begin
  37791. If (FPanelSimplifiedRoleSelectorVisible=AValue) then exit;
  37792. FPanelSimplifiedRoleSelectorVisible:=AValue;
  37793. MarkPropertyChanged(AIndex);
  37794. end;
  37795. Procedure TSPSharePointSharingSettings.SetRequiredScriptFileLinks(AIndex: Integer; const AValue: TStringArray);
  37796. begin
  37797. If (FRequiredScriptFileLinks=AValue) then exit;
  37798. FRequiredScriptFileLinks:=AValue;
  37799. MarkPropertyChanged(AIndex);
  37800. end;
  37801. Procedure TSPSharePointSharingSettings.SetRoleDefinitionNameLines(AIndex: Integer; const AValue: TStringArray);
  37802. begin
  37803. If (FRoleDefinitionNameLines=AValue) then exit;
  37804. FRoleDefinitionNameLines:=AValue;
  37805. MarkPropertyChanged(AIndex);
  37806. end;
  37807. Procedure TSPSharePointSharingSettings.SetSelectedGroup(AIndex: Integer; const AValue: string);
  37808. begin
  37809. If (FSelectedGroup=AValue) then exit;
  37810. FSelectedGroup:=AValue;
  37811. MarkPropertyChanged(AIndex);
  37812. end;
  37813. Procedure TSPSharePointSharingSettings.SetSharedWithEnabled(AIndex: Integer; const AValue: boolean);
  37814. begin
  37815. If (FSharedWithEnabled=AValue) then exit;
  37816. FSharedWithEnabled:=AValue;
  37817. MarkPropertyChanged(AIndex);
  37818. end;
  37819. Procedure TSPSharePointSharingSettings.SetSharingCssLink(AIndex: Integer; const AValue: string);
  37820. begin
  37821. If (FSharingCssLink=AValue) then exit;
  37822. FSharingCssLink:=AValue;
  37823. MarkPropertyChanged(AIndex);
  37824. end;
  37825. Procedure TSPSharePointSharingSettings.SetTabbedDialogEnabled(AIndex: Integer; const AValue: boolean);
  37826. begin
  37827. If (FTabbedDialogEnabled=AValue) then exit;
  37828. FTabbedDialogEnabled:=AValue;
  37829. MarkPropertyChanged(AIndex);
  37830. end;
  37831. Procedure TSPSharePointSharingSettings.SetTabToShow(AIndex: Integer; const AValue: TInt32);
  37832. begin
  37833. If (FTabToShow=AValue) then exit;
  37834. FTabToShow:=AValue;
  37835. MarkPropertyChanged(AIndex);
  37836. end;
  37837. Procedure TSPSharePointSharingSettings.SettxtEmailSubjectText(AIndex: Integer; const AValue: string);
  37838. begin
  37839. If (FtxtEmailSubjectText=AValue) then exit;
  37840. FtxtEmailSubjectText:=AValue;
  37841. MarkPropertyChanged(AIndex);
  37842. end;
  37843. Procedure TSPSharePointSharingSettings.SetUserDisplayUrl(AIndex: Integer; const AValue: string);
  37844. begin
  37845. If (FUserDisplayUrl=AValue) then exit;
  37846. FUserDisplayUrl:=AValue;
  37847. MarkPropertyChanged(AIndex);
  37848. end;
  37849. {$IFDEF VER2_6}
  37850. Procedure TSPSharePointSharingSettings.SetArrayLength(const AName: String; ALength: Longint);
  37851. begin
  37852. Case aName of
  37853. 'groupnamelines' : SetLength(FGroupNameLines,aLength);
  37854. 'grouproledefinitionnameslines' : SetLength(FGroupRoleDefinitionNamesLines,aLength);
  37855. 'requiredscriptfilelinks' : SetLength(FRequiredScriptFileLinks,aLength);
  37856. 'roledefinitionnamelines' : SetLength(FRoleDefinitionNameLines,aLength);
  37857. else
  37858. inherited SetArrayLength(aName,ALength);
  37859. end;
  37860. end;
  37861. {$ENDIF VER2_6}
  37862. Function TSPSharePointSharingSettings.KeyAsURLPart : string;
  37863. begin
  37864. Result:=TODataObject.MakeKeyString(AddToGroupModeName);
  37865. end;
  37866. Function TSPSharePointSharingSettings.PickerProperties(AService: TODataService) : TSPPickerSettings;
  37867. begin
  37868. Result:=TSPPickerSettings(GetContainedSingleTon(AService,'PickerProperties', TSPPickerSettings));
  37869. end;
  37870. { --------------------------------------------------------------------
  37871. TSPPickerSettings
  37872. --------------------------------------------------------------------}
  37873. Class Function TSPPickerSettings.ObjectRestKind : String;
  37874. begin
  37875. Result:='PickerSettings';
  37876. end;
  37877. Procedure TSPPickerSettings.SetAllowEmailAddresses(AIndex: Integer; const AValue: boolean);
  37878. begin
  37879. If (FAllowEmailAddresses=AValue) then exit;
  37880. FAllowEmailAddresses:=AValue;
  37881. MarkPropertyChanged(AIndex);
  37882. end;
  37883. Procedure TSPPickerSettings.SetPrincipalAccountType(AIndex: Integer; const AValue: string);
  37884. begin
  37885. If (FPrincipalAccountType=AValue) then exit;
  37886. FPrincipalAccountType:=AValue;
  37887. MarkPropertyChanged(AIndex);
  37888. end;
  37889. Procedure TSPPickerSettings.SetPrincipalSource(AIndex: Integer; const AValue: TInt32);
  37890. begin
  37891. If (FPrincipalSource=AValue) then exit;
  37892. FPrincipalSource:=AValue;
  37893. MarkPropertyChanged(AIndex);
  37894. end;
  37895. Procedure TSPPickerSettings.SetVisibleSuggestions(AIndex: Integer; const AValue: TInt32);
  37896. begin
  37897. If (FVisibleSuggestions=AValue) then exit;
  37898. FVisibleSuggestions:=AValue;
  37899. MarkPropertyChanged(AIndex);
  37900. end;
  37901. Function TSPPickerSettings.KeyAsURLPart : string;
  37902. begin
  37903. Result:=BoolToStr(AllowEmailAddresses,'true','false');
  37904. end;
  37905. { --------------------------------------------------------------------
  37906. TSPRelatedItemManager
  37907. --------------------------------------------------------------------}
  37908. Class Function TSPRelatedItemManager.ObjectRestKind : String;
  37909. begin
  37910. Result:='RelatedItemManager';
  37911. end;
  37912. Procedure TSPRelatedItemManager.SetId4a81de82eeb94d6080ea5bf63e27023a(AIndex: Integer; const AValue: string);
  37913. begin
  37914. If (FId4a81de82eeb94d6080ea5bf63e27023a=AValue) then exit;
  37915. FId4a81de82eeb94d6080ea5bf63e27023a:=AValue;
  37916. MarkPropertyChanged(AIndex);
  37917. end;
  37918. Function TSPRelatedItemManager.KeyAsURLPart : string;
  37919. begin
  37920. Result:=TODataObject.MakeKeyString(Id4a81de82eeb94d6080ea5bf63e27023a);
  37921. end;
  37922. { --------------------------------------------------------------------
  37923. TSPServerSettings
  37924. --------------------------------------------------------------------}
  37925. Class Function TSPServerSettings.ObjectRestKind : String;
  37926. begin
  37927. Result:='ServerSettings';
  37928. end;
  37929. Procedure TSPServerSettings.SetId4a81de82eeb94d6080ea5bf63e27023a(AIndex: Integer; const AValue: string);
  37930. begin
  37931. If (FId4a81de82eeb94d6080ea5bf63e27023a=AValue) then exit;
  37932. FId4a81de82eeb94d6080ea5bf63e27023a:=AValue;
  37933. MarkPropertyChanged(AIndex);
  37934. end;
  37935. Function TSPServerSettings.KeyAsURLPart : string;
  37936. begin
  37937. Result:=TODataObject.MakeKeyString(Id4a81de82eeb94d6080ea5bf63e27023a);
  37938. end;
  37939. { --------------------------------------------------------------------
  37940. TSPSharingResult
  37941. --------------------------------------------------------------------}
  37942. Class Function TSPSharingResult.ObjectRestKind : String;
  37943. begin
  37944. Result:='SharingResult';
  37945. end;
  37946. Procedure TSPSharingResult.SetErrorMessage(AIndex: Integer; const AValue: string);
  37947. begin
  37948. If (FErrorMessage=AValue) then exit;
  37949. FErrorMessage:=AValue;
  37950. MarkPropertyChanged(AIndex);
  37951. end;
  37952. Procedure TSPSharingResult.SetIconUrl(AIndex: Integer; const AValue: string);
  37953. begin
  37954. If (FIconUrl=AValue) then exit;
  37955. FIconUrl:=AValue;
  37956. MarkPropertyChanged(AIndex);
  37957. end;
  37958. Procedure TSPSharingResult.SetInvitedUsers(AIndex: Integer; const AValue: TSPSPInvitationCreationResultArray);
  37959. begin
  37960. If (FInvitedUsers=AValue) then exit;
  37961. FInvitedUsers:=AValue;
  37962. MarkPropertyChanged(AIndex);
  37963. end;
  37964. Procedure TSPSharingResult.SetName(AIndex: Integer; const AValue: string);
  37965. begin
  37966. If (FName=AValue) then exit;
  37967. FName:=AValue;
  37968. MarkPropertyChanged(AIndex);
  37969. end;
  37970. Procedure TSPSharingResult.SetPermissionsPageRelativeUrl(AIndex: Integer; const AValue: string);
  37971. begin
  37972. If (FPermissionsPageRelativeUrl=AValue) then exit;
  37973. FPermissionsPageRelativeUrl:=AValue;
  37974. MarkPropertyChanged(AIndex);
  37975. end;
  37976. Procedure TSPSharingResult.SetStatusCode(AIndex: Integer; const AValue: TInt32);
  37977. begin
  37978. If (FStatusCode=AValue) then exit;
  37979. FStatusCode:=AValue;
  37980. MarkPropertyChanged(AIndex);
  37981. end;
  37982. Procedure TSPSharingResult.SetUniquelyPermissionedUsers(AIndex: Integer; const AValue: TSP_SharingUserSharingResultArray);
  37983. begin
  37984. If (FUniquelyPermissionedUsers=AValue) then exit;
  37985. FUniquelyPermissionedUsers:=AValue;
  37986. MarkPropertyChanged(AIndex);
  37987. end;
  37988. Procedure TSPSharingResult.SetUrl(AIndex: Integer; const AValue: string);
  37989. begin
  37990. If (FUrl=AValue) then exit;
  37991. FUrl:=AValue;
  37992. MarkPropertyChanged(AIndex);
  37993. end;
  37994. Procedure TSPSharingResult.SetUsersAddedToGroup(AIndex: Integer; const AValue: TSP_SharingUserSharingResultArray);
  37995. begin
  37996. If (FUsersAddedToGroup=AValue) then exit;
  37997. FUsersAddedToGroup:=AValue;
  37998. MarkPropertyChanged(AIndex);
  37999. end;
  38000. {$IFDEF VER2_6}
  38001. Procedure TSPSharingResult.SetArrayLength(const AName: String; ALength: Longint);
  38002. begin
  38003. Case aName of
  38004. 'invitedusers' : SetLength(FInvitedUsers,aLength);
  38005. 'uniquelypermissionedusers' : SetLength(FUniquelyPermissionedUsers,aLength);
  38006. 'usersaddedtogroup' : SetLength(FUsersAddedToGroup,aLength);
  38007. else
  38008. inherited SetArrayLength(aName,ALength);
  38009. end;
  38010. end;
  38011. {$ENDIF VER2_6}
  38012. Function TSPSharingResult.KeyAsURLPart : string;
  38013. begin
  38014. Result:=TODataObject.MakeKeyString(Name);
  38015. end;
  38016. Function TSPSharingResult.GroupsSharedWith(AService: TODataService) : TSPGroup;
  38017. begin
  38018. Result:=TSPGroup(GetContainedSingleTon(AService,'GroupsSharedWith', TSPGroup));
  38019. end;
  38020. Function TSPSharingResult.GroupUsersAddedTo(AService: TODataService) : TSPGroup;
  38021. begin
  38022. Result:=TSPGroup(GetContainedSingleTon(AService,'GroupUsersAddedTo', TSPGroup));
  38023. end;
  38024. Function TSPSharingResult.UsersWithAccessRequests(AService: TODataService) : TSPUser;
  38025. begin
  38026. Result:=TSPUser(GetContainedSingleTon(AService,'UsersWithAccessRequests', TSPUser));
  38027. end;
  38028. { --------------------------------------------------------------------
  38029. TSPAccessRequests
  38030. --------------------------------------------------------------------}
  38031. Class Function TSPAccessRequests.ObjectRestKind : String;
  38032. begin
  38033. Result:='AccessRequests';
  38034. end;
  38035. Procedure TSPAccessRequests.SetId4a81de82eeb94d6080ea5bf63e27023a(AIndex: Integer; const AValue: string);
  38036. begin
  38037. If (FId4a81de82eeb94d6080ea5bf63e27023a=AValue) then exit;
  38038. FId4a81de82eeb94d6080ea5bf63e27023a:=AValue;
  38039. MarkPropertyChanged(AIndex);
  38040. end;
  38041. Function TSPAccessRequests.KeyAsURLPart : string;
  38042. begin
  38043. Result:=TODataObject.MakeKeyString(Id4a81de82eeb94d6080ea5bf63e27023a);
  38044. end;
  38045. { --------------------------------------------------------------------
  38046. TSPAppContextSite
  38047. --------------------------------------------------------------------}
  38048. Class Function TSPAppContextSite.ObjectRestKind : String;
  38049. begin
  38050. Result:='AppContextSite';
  38051. end;
  38052. Procedure TSPAppContextSite.SetId4a81de82eeb94d6080ea5bf63e27023a(AIndex: Integer; const AValue: string);
  38053. begin
  38054. If (FId4a81de82eeb94d6080ea5bf63e27023a=AValue) then exit;
  38055. FId4a81de82eeb94d6080ea5bf63e27023a:=AValue;
  38056. MarkPropertyChanged(AIndex);
  38057. end;
  38058. Function TSPAppContextSite.KeyAsURLPart : string;
  38059. begin
  38060. Result:=TODataObject.MakeKeyString(Id4a81de82eeb94d6080ea5bf63e27023a);
  38061. end;
  38062. Function TSPAppContextSite.Site(AService: TODataService) : TSPSite;
  38063. begin
  38064. Result:=TSPSite(GetContainedSingleTon(AService,'Site', TSPSite));
  38065. end;
  38066. Function TSPAppContextSite.Web(AService: TODataService) : TSPWeb;
  38067. begin
  38068. Result:=TSPWeb(GetContainedSingleTon(AService,'Web', TSPWeb));
  38069. end;
  38070. { --------------------------------------------------------------------
  38071. TSPChange
  38072. --------------------------------------------------------------------}
  38073. Class Function TSPChange.ObjectRestKind : String;
  38074. begin
  38075. Result:='Change';
  38076. end;
  38077. Procedure TSPChange.SetChangeToken(AIndex: Integer; const AValue: TSPChangeToken);
  38078. begin
  38079. If (FChangeToken=AValue) then exit;
  38080. FChangeToken:=AValue;
  38081. MarkPropertyChanged(AIndex);
  38082. end;
  38083. Procedure TSPChange.SetChangeType(AIndex: Integer; const AValue: TInt32);
  38084. begin
  38085. If (FChangeType=AValue) then exit;
  38086. FChangeType:=AValue;
  38087. MarkPropertyChanged(AIndex);
  38088. end;
  38089. Procedure TSPChange.SetSiteId(AIndex: Integer; const AValue: TGUIDString);
  38090. begin
  38091. If (FSiteId=AValue) then exit;
  38092. FSiteId:=AValue;
  38093. MarkPropertyChanged(AIndex);
  38094. end;
  38095. Procedure TSPChange.SetTime(AIndex: Integer; const AValue: TDateTime);
  38096. begin
  38097. If (FTime=AValue) then exit;
  38098. FTime:=AValue;
  38099. MarkPropertyChanged(AIndex);
  38100. end;
  38101. Function TSPChange.KeyAsURLPart : string;
  38102. begin
  38103. Result:=IntToStr(ChangeType);
  38104. end;
  38105. { --------------------------------------------------------------------
  38106. TSPChangeAlert
  38107. --------------------------------------------------------------------}
  38108. Class Function TSPChangeAlert.ObjectRestKind : String;
  38109. begin
  38110. Result:='ChangeAlert';
  38111. end;
  38112. Procedure TSPChangeAlert.SetAlertId(AIndex: Integer; const AValue: TGUIDString);
  38113. begin
  38114. If (FAlertId=AValue) then exit;
  38115. FAlertId:=AValue;
  38116. MarkPropertyChanged(AIndex);
  38117. end;
  38118. Procedure TSPChangeAlert.SetWebId(AIndex: Integer; const AValue: TGUIDString);
  38119. begin
  38120. If (FWebId=AValue) then exit;
  38121. FWebId:=AValue;
  38122. MarkPropertyChanged(AIndex);
  38123. end;
  38124. { --------------------------------------------------------------------
  38125. TSPChangeContentType
  38126. --------------------------------------------------------------------}
  38127. Class Function TSPChangeContentType.ObjectRestKind : String;
  38128. begin
  38129. Result:='ChangeContentType';
  38130. end;
  38131. Procedure TSPChangeContentType.SetContentTypeId(AIndex: Integer; const AValue: TSPContentTypeId);
  38132. begin
  38133. If (FContentTypeId=AValue) then exit;
  38134. FContentTypeId:=AValue;
  38135. MarkPropertyChanged(AIndex);
  38136. end;
  38137. Procedure TSPChangeContentType.SetWebId(AIndex: Integer; const AValue: TGUIDString);
  38138. begin
  38139. If (FWebId=AValue) then exit;
  38140. FWebId:=AValue;
  38141. MarkPropertyChanged(AIndex);
  38142. end;
  38143. { --------------------------------------------------------------------
  38144. TSPChangeField
  38145. --------------------------------------------------------------------}
  38146. Class Function TSPChangeField.ObjectRestKind : String;
  38147. begin
  38148. Result:='ChangeField';
  38149. end;
  38150. Procedure TSPChangeField.SetFieldId(AIndex: Integer; const AValue: TGUIDString);
  38151. begin
  38152. If (FFieldId=AValue) then exit;
  38153. FFieldId:=AValue;
  38154. MarkPropertyChanged(AIndex);
  38155. end;
  38156. Procedure TSPChangeField.SetWebId(AIndex: Integer; const AValue: TGUIDString);
  38157. begin
  38158. If (FWebId=AValue) then exit;
  38159. FWebId:=AValue;
  38160. MarkPropertyChanged(AIndex);
  38161. end;
  38162. { --------------------------------------------------------------------
  38163. TSPChangeFile
  38164. --------------------------------------------------------------------}
  38165. Class Function TSPChangeFile.ObjectRestKind : String;
  38166. begin
  38167. Result:='ChangeFile';
  38168. end;
  38169. Procedure TSPChangeFile.SetUniqueId(AIndex: Integer; const AValue: TGUIDString);
  38170. begin
  38171. If (FUniqueId=AValue) then exit;
  38172. FUniqueId:=AValue;
  38173. MarkPropertyChanged(AIndex);
  38174. end;
  38175. Procedure TSPChangeFile.SetWebId(AIndex: Integer; const AValue: TGUIDString);
  38176. begin
  38177. If (FWebId=AValue) then exit;
  38178. FWebId:=AValue;
  38179. MarkPropertyChanged(AIndex);
  38180. end;
  38181. { --------------------------------------------------------------------
  38182. TSPChangeFolder
  38183. --------------------------------------------------------------------}
  38184. Class Function TSPChangeFolder.ObjectRestKind : String;
  38185. begin
  38186. Result:='ChangeFolder';
  38187. end;
  38188. Procedure TSPChangeFolder.SetUniqueId(AIndex: Integer; const AValue: TGUIDString);
  38189. begin
  38190. If (FUniqueId=AValue) then exit;
  38191. FUniqueId:=AValue;
  38192. MarkPropertyChanged(AIndex);
  38193. end;
  38194. Procedure TSPChangeFolder.SetWebId(AIndex: Integer; const AValue: TGUIDString);
  38195. begin
  38196. If (FWebId=AValue) then exit;
  38197. FWebId:=AValue;
  38198. MarkPropertyChanged(AIndex);
  38199. end;
  38200. { --------------------------------------------------------------------
  38201. TSPChangeGroup
  38202. --------------------------------------------------------------------}
  38203. Class Function TSPChangeGroup.ObjectRestKind : String;
  38204. begin
  38205. Result:='ChangeGroup';
  38206. end;
  38207. Procedure TSPChangeGroup.SetGroupId(AIndex: Integer; const AValue: TInt32);
  38208. begin
  38209. If (FGroupId=AValue) then exit;
  38210. FGroupId:=AValue;
  38211. MarkPropertyChanged(AIndex);
  38212. end;
  38213. { --------------------------------------------------------------------
  38214. TSPChangeItem
  38215. --------------------------------------------------------------------}
  38216. Class Function TSPChangeItem.ObjectRestKind : String;
  38217. begin
  38218. Result:='ChangeItem';
  38219. end;
  38220. Procedure TSPChangeItem.SetItemId(AIndex: Integer; const AValue: TInt32);
  38221. begin
  38222. If (FItemId=AValue) then exit;
  38223. FItemId:=AValue;
  38224. MarkPropertyChanged(AIndex);
  38225. end;
  38226. Procedure TSPChangeItem.SetListId(AIndex: Integer; const AValue: TGUIDString);
  38227. begin
  38228. If (FListId=AValue) then exit;
  38229. FListId:=AValue;
  38230. MarkPropertyChanged(AIndex);
  38231. end;
  38232. Procedure TSPChangeItem.SetWebId(AIndex: Integer; const AValue: TGUIDString);
  38233. begin
  38234. If (FWebId=AValue) then exit;
  38235. FWebId:=AValue;
  38236. MarkPropertyChanged(AIndex);
  38237. end;
  38238. { --------------------------------------------------------------------
  38239. TSPChangeList
  38240. --------------------------------------------------------------------}
  38241. Class Function TSPChangeList.ObjectRestKind : String;
  38242. begin
  38243. Result:='ChangeList';
  38244. end;
  38245. Procedure TSPChangeList.SetListId(AIndex: Integer; const AValue: TGUIDString);
  38246. begin
  38247. If (FListId=AValue) then exit;
  38248. FListId:=AValue;
  38249. MarkPropertyChanged(AIndex);
  38250. end;
  38251. Procedure TSPChangeList.SetWebId(AIndex: Integer; const AValue: TGUIDString);
  38252. begin
  38253. If (FWebId=AValue) then exit;
  38254. FWebId:=AValue;
  38255. MarkPropertyChanged(AIndex);
  38256. end;
  38257. { --------------------------------------------------------------------
  38258. TSPChangeSite
  38259. --------------------------------------------------------------------}
  38260. Class Function TSPChangeSite.ObjectRestKind : String;
  38261. begin
  38262. Result:='ChangeSite';
  38263. end;
  38264. { --------------------------------------------------------------------
  38265. TSPChangeUser
  38266. --------------------------------------------------------------------}
  38267. Class Function TSPChangeUser.ObjectRestKind : String;
  38268. begin
  38269. Result:='ChangeUser';
  38270. end;
  38271. Procedure TSPChangeUser.SetActivate(AIndex: Integer; const AValue: boolean);
  38272. begin
  38273. If (FActivate=AValue) then exit;
  38274. FActivate:=AValue;
  38275. MarkPropertyChanged(AIndex);
  38276. end;
  38277. Procedure TSPChangeUser.SetUserId(AIndex: Integer; const AValue: TInt32);
  38278. begin
  38279. If (FUserId=AValue) then exit;
  38280. FUserId:=AValue;
  38281. MarkPropertyChanged(AIndex);
  38282. end;
  38283. { --------------------------------------------------------------------
  38284. TSPChangeView
  38285. --------------------------------------------------------------------}
  38286. Class Function TSPChangeView.ObjectRestKind : String;
  38287. begin
  38288. Result:='ChangeView';
  38289. end;
  38290. Procedure TSPChangeView.SetViewId(AIndex: Integer; const AValue: TGUIDString);
  38291. begin
  38292. If (FViewId=AValue) then exit;
  38293. FViewId:=AValue;
  38294. MarkPropertyChanged(AIndex);
  38295. end;
  38296. Procedure TSPChangeView.SetListId(AIndex: Integer; const AValue: TGUIDString);
  38297. begin
  38298. If (FListId=AValue) then exit;
  38299. FListId:=AValue;
  38300. MarkPropertyChanged(AIndex);
  38301. end;
  38302. Procedure TSPChangeView.SetWebId(AIndex: Integer; const AValue: TGUIDString);
  38303. begin
  38304. If (FWebId=AValue) then exit;
  38305. FWebId:=AValue;
  38306. MarkPropertyChanged(AIndex);
  38307. end;
  38308. { --------------------------------------------------------------------
  38309. TSPChangeWeb
  38310. --------------------------------------------------------------------}
  38311. Class Function TSPChangeWeb.ObjectRestKind : String;
  38312. begin
  38313. Result:='ChangeWeb';
  38314. end;
  38315. Procedure TSPChangeWeb.SetWebId(AIndex: Integer; const AValue: TGUIDString);
  38316. begin
  38317. If (FWebId=AValue) then exit;
  38318. FWebId:=AValue;
  38319. MarkPropertyChanged(AIndex);
  38320. end;
  38321. { --------------------------------------------------------------------
  38322. TSPCompatibilityRange
  38323. --------------------------------------------------------------------}
  38324. Class Function TSPCompatibilityRange.ObjectRestKind : String;
  38325. begin
  38326. Result:='CompatibilityRange';
  38327. end;
  38328. Procedure TSPCompatibilityRange.SetId4a81de82eeb94d6080ea5bf63e27023a(AIndex: Integer; const AValue: string);
  38329. begin
  38330. If (FId4a81de82eeb94d6080ea5bf63e27023a=AValue) then exit;
  38331. FId4a81de82eeb94d6080ea5bf63e27023a:=AValue;
  38332. MarkPropertyChanged(AIndex);
  38333. end;
  38334. Function TSPCompatibilityRange.KeyAsURLPart : string;
  38335. begin
  38336. Result:=TODataObject.MakeKeyString(Id4a81de82eeb94d6080ea5bf63e27023a);
  38337. end;
  38338. { --------------------------------------------------------------------
  38339. TSPRequestContext
  38340. --------------------------------------------------------------------}
  38341. Class Function TSPRequestContext.ObjectRestKind : String;
  38342. begin
  38343. Result:='RequestContext';
  38344. end;
  38345. Procedure TSPRequestContext.SetId4a81de82eeb94d6080ea5bf63e27023a(AIndex: Integer; const AValue: string);
  38346. begin
  38347. If (FId4a81de82eeb94d6080ea5bf63e27023a=AValue) then exit;
  38348. FId4a81de82eeb94d6080ea5bf63e27023a:=AValue;
  38349. MarkPropertyChanged(AIndex);
  38350. end;
  38351. Function TSPRequestContext.KeyAsURLPart : string;
  38352. begin
  38353. Result:=TODataObject.MakeKeyString(Id4a81de82eeb94d6080ea5bf63e27023a);
  38354. end;
  38355. Function TSPRequestContext.Current(AService: TODataService) : TSPRequestContext;
  38356. begin
  38357. Result:=TSPRequestContext(GetContainedSingleTon(AService,'Current', TSPRequestContext));
  38358. end;
  38359. Function TSPRequestContext.List(AService: TODataService) : TSPList;
  38360. begin
  38361. Result:=TSPList(GetContainedSingleTon(AService,'List', TSPList));
  38362. end;
  38363. Function TSPRequestContext.Site(AService: TODataService) : TSPSite;
  38364. begin
  38365. Result:=TSPSite(GetContainedSingleTon(AService,'Site', TSPSite));
  38366. end;
  38367. Function TSPRequestContext.Web(AService: TODataService) : TSPWeb;
  38368. begin
  38369. Result:=TSPWeb(GetContainedSingleTon(AService,'Web', TSPWeb));
  38370. end;
  38371. { --------------------------------------------------------------------
  38372. TSPFieldCalculated
  38373. --------------------------------------------------------------------}
  38374. Class Function TSPFieldCalculated.ObjectRestKind : String;
  38375. begin
  38376. Result:='FieldCalculated';
  38377. end;
  38378. Procedure TSPFieldCalculated.SetDateFormat(AIndex: Integer; const AValue: TInt32);
  38379. begin
  38380. If (FDateFormat=AValue) then exit;
  38381. FDateFormat:=AValue;
  38382. MarkPropertyChanged(AIndex);
  38383. end;
  38384. Procedure TSPFieldCalculated.SetFormula(AIndex: Integer; const AValue: string);
  38385. begin
  38386. If (FFormula=AValue) then exit;
  38387. FFormula:=AValue;
  38388. MarkPropertyChanged(AIndex);
  38389. end;
  38390. Procedure TSPFieldCalculated.SetOutputType(AIndex: Integer; const AValue: TInt32);
  38391. begin
  38392. If (FOutputType=AValue) then exit;
  38393. FOutputType:=AValue;
  38394. MarkPropertyChanged(AIndex);
  38395. end;
  38396. { --------------------------------------------------------------------
  38397. TSPFieldMultiChoice
  38398. --------------------------------------------------------------------}
  38399. Class Function TSPFieldMultiChoice.ObjectRestKind : String;
  38400. begin
  38401. Result:='FieldMultiChoice';
  38402. end;
  38403. Procedure TSPFieldMultiChoice.SetFillInChoice(AIndex: Integer; const AValue: boolean);
  38404. begin
  38405. If (FFillInChoice=AValue) then exit;
  38406. FFillInChoice:=AValue;
  38407. MarkPropertyChanged(AIndex);
  38408. end;
  38409. Procedure TSPFieldMultiChoice.SetMappings(AIndex: Integer; const AValue: string);
  38410. begin
  38411. If (FMappings=AValue) then exit;
  38412. FMappings:=AValue;
  38413. MarkPropertyChanged(AIndex);
  38414. end;
  38415. Procedure TSPFieldMultiChoice.SetChoices(AIndex: Integer; const AValue: TStringArray);
  38416. begin
  38417. If (FChoices=AValue) then exit;
  38418. FChoices:=AValue;
  38419. MarkPropertyChanged(AIndex);
  38420. end;
  38421. {$IFDEF VER2_6}
  38422. Procedure TSPFieldMultiChoice.SetArrayLength(const AName: String; ALength: Longint);
  38423. begin
  38424. Case aName of
  38425. 'choices' : SetLength(FChoices,aLength);
  38426. else
  38427. inherited SetArrayLength(aName,ALength);
  38428. end;
  38429. end;
  38430. {$ENDIF VER2_6}
  38431. { --------------------------------------------------------------------
  38432. TSPFieldChoice
  38433. --------------------------------------------------------------------}
  38434. Class Function TSPFieldChoice.ObjectRestKind : String;
  38435. begin
  38436. Result:='FieldChoice';
  38437. end;
  38438. Procedure TSPFieldChoice.SetEditFormat(AIndex: Integer; const AValue: TInt32);
  38439. begin
  38440. If (FEditFormat=AValue) then exit;
  38441. FEditFormat:=AValue;
  38442. MarkPropertyChanged(AIndex);
  38443. end;
  38444. { --------------------------------------------------------------------
  38445. TSPFieldComputed
  38446. --------------------------------------------------------------------}
  38447. Class Function TSPFieldComputed.ObjectRestKind : String;
  38448. begin
  38449. Result:='FieldComputed';
  38450. end;
  38451. Procedure TSPFieldComputed.SetEnableLookup(AIndex: Integer; const AValue: boolean);
  38452. begin
  38453. If (FEnableLookup=AValue) then exit;
  38454. FEnableLookup:=AValue;
  38455. MarkPropertyChanged(AIndex);
  38456. end;
  38457. { --------------------------------------------------------------------
  38458. TSPFieldNumber
  38459. --------------------------------------------------------------------}
  38460. Class Function TSPFieldNumber.ObjectRestKind : String;
  38461. begin
  38462. Result:='FieldNumber';
  38463. end;
  38464. Procedure TSPFieldNumber.SetMaximumValue(AIndex: Integer; const AValue: Double);
  38465. begin
  38466. If (FMaximumValue=AValue) then exit;
  38467. FMaximumValue:=AValue;
  38468. MarkPropertyChanged(AIndex);
  38469. end;
  38470. Procedure TSPFieldNumber.SetMinimumValue(AIndex: Integer; const AValue: Double);
  38471. begin
  38472. If (FMinimumValue=AValue) then exit;
  38473. FMinimumValue:=AValue;
  38474. MarkPropertyChanged(AIndex);
  38475. end;
  38476. { --------------------------------------------------------------------
  38477. TSPFieldCurrency
  38478. --------------------------------------------------------------------}
  38479. Class Function TSPFieldCurrency.ObjectRestKind : String;
  38480. begin
  38481. Result:='FieldCurrency';
  38482. end;
  38483. Procedure TSPFieldCurrency.SetCurrencyLocaleId(AIndex: Integer; const AValue: TInt32);
  38484. begin
  38485. If (FCurrencyLocaleId=AValue) then exit;
  38486. FCurrencyLocaleId:=AValue;
  38487. MarkPropertyChanged(AIndex);
  38488. end;
  38489. { --------------------------------------------------------------------
  38490. TSPFieldDateTime
  38491. --------------------------------------------------------------------}
  38492. Class Function TSPFieldDateTime.ObjectRestKind : String;
  38493. begin
  38494. Result:='FieldDateTime';
  38495. end;
  38496. Procedure TSPFieldDateTime.SetDateTimeCalendarType(AIndex: Integer; const AValue: TInt32);
  38497. begin
  38498. If (FDateTimeCalendarType=AValue) then exit;
  38499. FDateTimeCalendarType:=AValue;
  38500. MarkPropertyChanged(AIndex);
  38501. end;
  38502. Procedure TSPFieldDateTime.SetDisplayFormat(AIndex: Integer; const AValue: TInt32);
  38503. begin
  38504. If (FDisplayFormat=AValue) then exit;
  38505. FDisplayFormat:=AValue;
  38506. MarkPropertyChanged(AIndex);
  38507. end;
  38508. Procedure TSPFieldDateTime.SetFriendlyDisplayFormat(AIndex: Integer; const AValue: TInt32);
  38509. begin
  38510. If (FFriendlyDisplayFormat=AValue) then exit;
  38511. FFriendlyDisplayFormat:=AValue;
  38512. MarkPropertyChanged(AIndex);
  38513. end;
  38514. { --------------------------------------------------------------------
  38515. TSPFieldGeolocation
  38516. --------------------------------------------------------------------}
  38517. Class Function TSPFieldGeolocation.ObjectRestKind : String;
  38518. begin
  38519. Result:='FieldGeolocation';
  38520. end;
  38521. { --------------------------------------------------------------------
  38522. TSPFieldGuid
  38523. --------------------------------------------------------------------}
  38524. Class Function TSPFieldGuid.ObjectRestKind : String;
  38525. begin
  38526. Result:='FieldGuid';
  38527. end;
  38528. { --------------------------------------------------------------------
  38529. TSPFieldLookup
  38530. --------------------------------------------------------------------}
  38531. Class Function TSPFieldLookup.ObjectRestKind : String;
  38532. begin
  38533. Result:='FieldLookup';
  38534. end;
  38535. Procedure TSPFieldLookup.SetAllowMultipleValues(AIndex: Integer; const AValue: boolean);
  38536. begin
  38537. If (FAllowMultipleValues=AValue) then exit;
  38538. FAllowMultipleValues:=AValue;
  38539. MarkPropertyChanged(AIndex);
  38540. end;
  38541. Procedure TSPFieldLookup.SetIsRelationship(AIndex: Integer; const AValue: boolean);
  38542. begin
  38543. If (FIsRelationship=AValue) then exit;
  38544. FIsRelationship:=AValue;
  38545. MarkPropertyChanged(AIndex);
  38546. end;
  38547. Procedure TSPFieldLookup.SetLookupField(AIndex: Integer; const AValue: string);
  38548. begin
  38549. If (FLookupField=AValue) then exit;
  38550. FLookupField:=AValue;
  38551. MarkPropertyChanged(AIndex);
  38552. end;
  38553. Procedure TSPFieldLookup.SetLookupList(AIndex: Integer; const AValue: string);
  38554. begin
  38555. If (FLookupList=AValue) then exit;
  38556. FLookupList:=AValue;
  38557. MarkPropertyChanged(AIndex);
  38558. end;
  38559. Procedure TSPFieldLookup.SetLookupWebId(AIndex: Integer; const AValue: TGUIDString);
  38560. begin
  38561. If (FLookupWebId=AValue) then exit;
  38562. FLookupWebId:=AValue;
  38563. MarkPropertyChanged(AIndex);
  38564. end;
  38565. Procedure TSPFieldLookup.SetPrimaryFieldId(AIndex: Integer; const AValue: string);
  38566. begin
  38567. If (FPrimaryFieldId=AValue) then exit;
  38568. FPrimaryFieldId:=AValue;
  38569. MarkPropertyChanged(AIndex);
  38570. end;
  38571. Procedure TSPFieldLookup.SetRelationshipDeleteBehavior(AIndex: Integer; const AValue: TInt32);
  38572. begin
  38573. If (FRelationshipDeleteBehavior=AValue) then exit;
  38574. FRelationshipDeleteBehavior:=AValue;
  38575. MarkPropertyChanged(AIndex);
  38576. end;
  38577. { --------------------------------------------------------------------
  38578. TSPFieldMultiLineText
  38579. --------------------------------------------------------------------}
  38580. Class Function TSPFieldMultiLineText.ObjectRestKind : String;
  38581. begin
  38582. Result:='FieldMultiLineText';
  38583. end;
  38584. Procedure TSPFieldMultiLineText.SetAllowHyperlink(AIndex: Integer; const AValue: boolean);
  38585. begin
  38586. If (FAllowHyperlink=AValue) then exit;
  38587. FAllowHyperlink:=AValue;
  38588. MarkPropertyChanged(AIndex);
  38589. end;
  38590. Procedure TSPFieldMultiLineText.SetAppendOnly(AIndex: Integer; const AValue: boolean);
  38591. begin
  38592. If (FAppendOnly=AValue) then exit;
  38593. FAppendOnly:=AValue;
  38594. MarkPropertyChanged(AIndex);
  38595. end;
  38596. Procedure TSPFieldMultiLineText.SetNumberOfLines(AIndex: Integer; const AValue: TInt32);
  38597. begin
  38598. If (FNumberOfLines=AValue) then exit;
  38599. FNumberOfLines:=AValue;
  38600. MarkPropertyChanged(AIndex);
  38601. end;
  38602. Procedure TSPFieldMultiLineText.SetRestrictedMode(AIndex: Integer; const AValue: boolean);
  38603. begin
  38604. If (FRestrictedMode=AValue) then exit;
  38605. FRestrictedMode:=AValue;
  38606. MarkPropertyChanged(AIndex);
  38607. end;
  38608. Procedure TSPFieldMultiLineText.SetRichText(AIndex: Integer; const AValue: boolean);
  38609. begin
  38610. If (FRichText=AValue) then exit;
  38611. FRichText:=AValue;
  38612. MarkPropertyChanged(AIndex);
  38613. end;
  38614. Procedure TSPFieldMultiLineText.SetWikiLinking(AIndex: Integer; const AValue: boolean);
  38615. begin
  38616. If (FWikiLinking=AValue) then exit;
  38617. FWikiLinking:=AValue;
  38618. MarkPropertyChanged(AIndex);
  38619. end;
  38620. { --------------------------------------------------------------------
  38621. TSPFieldRatingScale
  38622. --------------------------------------------------------------------}
  38623. Class Function TSPFieldRatingScale.ObjectRestKind : String;
  38624. begin
  38625. Result:='FieldRatingScale';
  38626. end;
  38627. Procedure TSPFieldRatingScale.SetGridEndNumber(AIndex: Integer; const AValue: TInt32);
  38628. begin
  38629. If (FGridEndNumber=AValue) then exit;
  38630. FGridEndNumber:=AValue;
  38631. MarkPropertyChanged(AIndex);
  38632. end;
  38633. Procedure TSPFieldRatingScale.SetGridNAOptionText(AIndex: Integer; const AValue: string);
  38634. begin
  38635. If (FGridNAOptionText=AValue) then exit;
  38636. FGridNAOptionText:=AValue;
  38637. MarkPropertyChanged(AIndex);
  38638. end;
  38639. Procedure TSPFieldRatingScale.SetGridStartNumber(AIndex: Integer; const AValue: TInt32);
  38640. begin
  38641. If (FGridStartNumber=AValue) then exit;
  38642. FGridStartNumber:=AValue;
  38643. MarkPropertyChanged(AIndex);
  38644. end;
  38645. Procedure TSPFieldRatingScale.SetGridTextRangeAverage(AIndex: Integer; const AValue: string);
  38646. begin
  38647. If (FGridTextRangeAverage=AValue) then exit;
  38648. FGridTextRangeAverage:=AValue;
  38649. MarkPropertyChanged(AIndex);
  38650. end;
  38651. Procedure TSPFieldRatingScale.SetGridTextRangeHigh(AIndex: Integer; const AValue: string);
  38652. begin
  38653. If (FGridTextRangeHigh=AValue) then exit;
  38654. FGridTextRangeHigh:=AValue;
  38655. MarkPropertyChanged(AIndex);
  38656. end;
  38657. Procedure TSPFieldRatingScale.SetGridTextRangeLow(AIndex: Integer; const AValue: string);
  38658. begin
  38659. If (FGridTextRangeLow=AValue) then exit;
  38660. FGridTextRangeLow:=AValue;
  38661. MarkPropertyChanged(AIndex);
  38662. end;
  38663. Procedure TSPFieldRatingScale.SetRangeCount(AIndex: Integer; const AValue: TInt32);
  38664. begin
  38665. If (FRangeCount=AValue) then exit;
  38666. FRangeCount:=AValue;
  38667. MarkPropertyChanged(AIndex);
  38668. end;
  38669. { --------------------------------------------------------------------
  38670. TSPFieldText
  38671. --------------------------------------------------------------------}
  38672. Class Function TSPFieldText.ObjectRestKind : String;
  38673. begin
  38674. Result:='FieldText';
  38675. end;
  38676. Procedure TSPFieldText.SetMaxLength(AIndex: Integer; const AValue: TInt32);
  38677. begin
  38678. If (FMaxLength=AValue) then exit;
  38679. FMaxLength:=AValue;
  38680. MarkPropertyChanged(AIndex);
  38681. end;
  38682. { --------------------------------------------------------------------
  38683. TSPFieldUrl
  38684. --------------------------------------------------------------------}
  38685. Class Function TSPFieldUrl.ObjectRestKind : String;
  38686. begin
  38687. Result:='FieldUrl';
  38688. end;
  38689. Procedure TSPFieldUrl.SetDisplayFormat(AIndex: Integer; const AValue: TInt32);
  38690. begin
  38691. If (FDisplayFormat=AValue) then exit;
  38692. FDisplayFormat:=AValue;
  38693. MarkPropertyChanged(AIndex);
  38694. end;
  38695. { --------------------------------------------------------------------
  38696. TSPFieldUser
  38697. --------------------------------------------------------------------}
  38698. Class Function TSPFieldUser.ObjectRestKind : String;
  38699. begin
  38700. Result:='FieldUser';
  38701. end;
  38702. Procedure TSPFieldUser.SetAllowDisplay(AIndex: Integer; const AValue: boolean);
  38703. begin
  38704. If (FAllowDisplay=AValue) then exit;
  38705. FAllowDisplay:=AValue;
  38706. MarkPropertyChanged(AIndex);
  38707. end;
  38708. Procedure TSPFieldUser.SetPresence(AIndex: Integer; const AValue: boolean);
  38709. begin
  38710. If (FPresence=AValue) then exit;
  38711. FPresence:=AValue;
  38712. MarkPropertyChanged(AIndex);
  38713. end;
  38714. Procedure TSPFieldUser.SetSelectionGroup(AIndex: Integer; const AValue: TInt32);
  38715. begin
  38716. If (FSelectionGroup=AValue) then exit;
  38717. FSelectionGroup:=AValue;
  38718. MarkPropertyChanged(AIndex);
  38719. end;
  38720. Procedure TSPFieldUser.SetSelectionMode(AIndex: Integer; const AValue: TInt32);
  38721. begin
  38722. If (FSelectionMode=AValue) then exit;
  38723. FSelectionMode:=AValue;
  38724. MarkPropertyChanged(AIndex);
  38725. end;
  38726. { --------------------------------------------------------------------
  38727. TSPMountedFolderInfo
  38728. --------------------------------------------------------------------}
  38729. Class Function TSPMountedFolderInfo.ObjectRestKind : String;
  38730. begin
  38731. Result:='MountedFolderInfo';
  38732. end;
  38733. Procedure TSPMountedFolderInfo.SetFolderUrl(AIndex: Integer; const AValue: string);
  38734. begin
  38735. If (FFolderUrl=AValue) then exit;
  38736. FFolderUrl:=AValue;
  38737. MarkPropertyChanged(AIndex);
  38738. end;
  38739. Procedure TSPMountedFolderInfo.SetHasEditPermission(AIndex: Integer; const AValue: boolean);
  38740. begin
  38741. If (FHasEditPermission=AValue) then exit;
  38742. FHasEditPermission:=AValue;
  38743. MarkPropertyChanged(AIndex);
  38744. end;
  38745. Procedure TSPMountedFolderInfo.SetItemId(AIndex: Integer; const AValue: TInt32);
  38746. begin
  38747. If (FItemId=AValue) then exit;
  38748. FItemId:=AValue;
  38749. MarkPropertyChanged(AIndex);
  38750. end;
  38751. Procedure TSPMountedFolderInfo.SetListTemplateType(AIndex: Integer; const AValue: TInt32);
  38752. begin
  38753. If (FListTemplateType=AValue) then exit;
  38754. FListTemplateType:=AValue;
  38755. MarkPropertyChanged(AIndex);
  38756. end;
  38757. Procedure TSPMountedFolderInfo.SetListViewUrl(AIndex: Integer; const AValue: string);
  38758. begin
  38759. If (FListViewUrl=AValue) then exit;
  38760. FListViewUrl:=AValue;
  38761. MarkPropertyChanged(AIndex);
  38762. end;
  38763. Procedure TSPMountedFolderInfo.SetWebUrl(AIndex: Integer; const AValue: string);
  38764. begin
  38765. If (FWebUrl=AValue) then exit;
  38766. FWebUrl:=AValue;
  38767. MarkPropertyChanged(AIndex);
  38768. end;
  38769. Function TSPMountedFolderInfo.KeyAsURLPart : string;
  38770. begin
  38771. Result:=TODataObject.MakeKeyString(FolderUrl);
  38772. end;
  38773. { --------------------------------------------------------------------
  38774. TSPMountPoint
  38775. --------------------------------------------------------------------}
  38776. Class Function TSPMountPoint.ObjectRestKind : String;
  38777. begin
  38778. Result:='MountPoint';
  38779. end;
  38780. Procedure TSPMountPoint.SetId4a81de82eeb94d6080ea5bf63e27023a(AIndex: Integer; const AValue: string);
  38781. begin
  38782. If (FId4a81de82eeb94d6080ea5bf63e27023a=AValue) then exit;
  38783. FId4a81de82eeb94d6080ea5bf63e27023a:=AValue;
  38784. MarkPropertyChanged(AIndex);
  38785. end;
  38786. Function TSPMountPoint.KeyAsURLPart : string;
  38787. begin
  38788. Result:=TODataObject.MakeKeyString(Id4a81de82eeb94d6080ea5bf63e27023a);
  38789. end;
  38790. { --------------------------------------------------------------------
  38791. TSPMountPointInfo
  38792. --------------------------------------------------------------------}
  38793. Class Function TSPMountPointInfo.ObjectRestKind : String;
  38794. begin
  38795. Result:='MountPointInfo';
  38796. end;
  38797. Procedure TSPMountPointInfo.SetName(AIndex: Integer; const AValue: string);
  38798. begin
  38799. If (FName=AValue) then exit;
  38800. FName:=AValue;
  38801. MarkPropertyChanged(AIndex);
  38802. end;
  38803. Procedure TSPMountPointInfo.SetRedirectUrl(AIndex: Integer; const AValue: string);
  38804. begin
  38805. If (FRedirectUrl=AValue) then exit;
  38806. FRedirectUrl:=AValue;
  38807. MarkPropertyChanged(AIndex);
  38808. end;
  38809. Function TSPMountPointInfo.KeyAsURLPart : string;
  38810. begin
  38811. Result:=TODataObject.MakeKeyString(Name);
  38812. end;
  38813. { --------------------------------------------------------------------
  38814. TSPMoveCopyUtil
  38815. --------------------------------------------------------------------}
  38816. Class Function TSPMoveCopyUtil.ObjectRestKind : String;
  38817. begin
  38818. Result:='MoveCopyUtil';
  38819. end;
  38820. Procedure TSPMoveCopyUtil.SetId4a81de82eeb94d6080ea5bf63e27023a(AIndex: Integer; const AValue: string);
  38821. begin
  38822. If (FId4a81de82eeb94d6080ea5bf63e27023a=AValue) then exit;
  38823. FId4a81de82eeb94d6080ea5bf63e27023a:=AValue;
  38824. MarkPropertyChanged(AIndex);
  38825. end;
  38826. Function TSPMoveCopyUtil.KeyAsURLPart : string;
  38827. begin
  38828. Result:=TODataObject.MakeKeyString(Id4a81de82eeb94d6080ea5bf63e27023a);
  38829. end;
  38830. { --------------------------------------------------------------------
  38831. TSPRelatedField
  38832. --------------------------------------------------------------------}
  38833. Class Function TSPRelatedField.ObjectRestKind : String;
  38834. begin
  38835. Result:='RelatedField';
  38836. end;
  38837. Procedure TSPRelatedField.SetFieldId(AIndex: Integer; const AValue: TGUIDString);
  38838. begin
  38839. If (FFieldId=AValue) then exit;
  38840. FFieldId:=AValue;
  38841. MarkPropertyChanged(AIndex);
  38842. end;
  38843. Procedure TSPRelatedField.SetListId(AIndex: Integer; const AValue: TGUIDString);
  38844. begin
  38845. If (FListId=AValue) then exit;
  38846. FListId:=AValue;
  38847. MarkPropertyChanged(AIndex);
  38848. end;
  38849. Procedure TSPRelatedField.SetRelationshipDeleteBehavior(AIndex: Integer; const AValue: TInt32);
  38850. begin
  38851. If (FRelationshipDeleteBehavior=AValue) then exit;
  38852. FRelationshipDeleteBehavior:=AValue;
  38853. MarkPropertyChanged(AIndex);
  38854. end;
  38855. Procedure TSPRelatedField.SetWebId(AIndex: Integer; const AValue: TGUIDString);
  38856. begin
  38857. If (FWebId=AValue) then exit;
  38858. FWebId:=AValue;
  38859. MarkPropertyChanged(AIndex);
  38860. end;
  38861. Function TSPRelatedField.KeyAsURLPart : string;
  38862. begin
  38863. Result:=TODataObject.MakeKeyString(FieldId);
  38864. end;
  38865. Function TSPRelatedField.LookupList(AService: TODataService) : TSPList;
  38866. begin
  38867. Result:=TSPList(GetContainedSingleTon(AService,'LookupList', TSPList));
  38868. end;
  38869. { --------------------------------------------------------------------
  38870. TSPRemoteWeb
  38871. --------------------------------------------------------------------}
  38872. Class Function TSPRemoteWeb.ObjectRestKind : String;
  38873. begin
  38874. Result:='RemoteWeb';
  38875. end;
  38876. Procedure TSPRemoteWeb.SetCanSendEmail(AIndex: Integer; const AValue: boolean);
  38877. begin
  38878. If (FCanSendEmail=AValue) then exit;
  38879. FCanSendEmail:=AValue;
  38880. MarkPropertyChanged(AIndex);
  38881. end;
  38882. Procedure TSPRemoteWeb.SetShareByEmailEnabled(AIndex: Integer; const AValue: boolean);
  38883. begin
  38884. If (FShareByEmailEnabled=AValue) then exit;
  38885. FShareByEmailEnabled:=AValue;
  38886. MarkPropertyChanged(AIndex);
  38887. end;
  38888. Procedure TSPRemoteWeb.SetShareByLinkEnabled(AIndex: Integer; const AValue: boolean);
  38889. begin
  38890. If (FShareByLinkEnabled=AValue) then exit;
  38891. FShareByLinkEnabled:=AValue;
  38892. MarkPropertyChanged(AIndex);
  38893. end;
  38894. Function TSPRemoteWeb.KeyAsURLPart : string;
  38895. begin
  38896. Result:=BoolToStr(CanSendEmail,'true','false');
  38897. end;
  38898. { --------------------------------------------------------------------
  38899. TSPRequestUserContext
  38900. --------------------------------------------------------------------}
  38901. Class Function TSPRequestUserContext.ObjectRestKind : String;
  38902. begin
  38903. Result:='RequestUserContext';
  38904. end;
  38905. Procedure TSPRequestUserContext.SetId4a81de82eeb94d6080ea5bf63e27023a(AIndex: Integer; const AValue: string);
  38906. begin
  38907. If (FId4a81de82eeb94d6080ea5bf63e27023a=AValue) then exit;
  38908. FId4a81de82eeb94d6080ea5bf63e27023a:=AValue;
  38909. MarkPropertyChanged(AIndex);
  38910. end;
  38911. Function TSPRequestUserContext.KeyAsURLPart : string;
  38912. begin
  38913. Result:=TODataObject.MakeKeyString(Id4a81de82eeb94d6080ea5bf63e27023a);
  38914. end;
  38915. Function TSPRequestUserContext.Current(AService: TODataService) : TSPRequestUserContext;
  38916. begin
  38917. Result:=TSPRequestUserContext(GetContainedSingleTon(AService,'Current', TSPRequestUserContext));
  38918. end;
  38919. Function TSPRequestUserContext.User(AService: TODataService) : TSPUser;
  38920. begin
  38921. Result:=TSPUser(GetContainedSingleTon(AService,'User', TSPUser));
  38922. end;
  38923. { --------------------------------------------------------------------
  38924. TSPSiteUrl
  38925. --------------------------------------------------------------------}
  38926. Class Function TSPSiteUrl.ObjectRestKind : String;
  38927. begin
  38928. Result:='SiteUrl';
  38929. end;
  38930. Procedure TSPSiteUrl.SetId4a81de82eeb94d6080ea5bf63e27023a(AIndex: Integer; const AValue: string);
  38931. begin
  38932. If (FId4a81de82eeb94d6080ea5bf63e27023a=AValue) then exit;
  38933. FId4a81de82eeb94d6080ea5bf63e27023a:=AValue;
  38934. MarkPropertyChanged(AIndex);
  38935. end;
  38936. Function TSPSiteUrl.KeyAsURLPart : string;
  38937. begin
  38938. Result:=TODataObject.MakeKeyString(Id4a81de82eeb94d6080ea5bf63e27023a);
  38939. end;
  38940. { --------------------------------------------------------------------
  38941. TSPTenantAppInstance
  38942. --------------------------------------------------------------------}
  38943. Class Function TSPTenantAppInstance.ObjectRestKind : String;
  38944. begin
  38945. Result:='TenantAppInstance';
  38946. end;
  38947. Procedure TSPTenantAppInstance.SetId(AIndex: Integer; const AValue: TGUIDString);
  38948. begin
  38949. If (FId=AValue) then exit;
  38950. FId:=AValue;
  38951. MarkPropertyChanged(AIndex);
  38952. end;
  38953. Procedure TSPTenantAppInstance.SetSiteId(AIndex: Integer; const AValue: TGUIDString);
  38954. begin
  38955. If (FSiteId=AValue) then exit;
  38956. FSiteId:=AValue;
  38957. MarkPropertyChanged(AIndex);
  38958. end;
  38959. Procedure TSPTenantAppInstance.SetWebId(AIndex: Integer; const AValue: TGUIDString);
  38960. begin
  38961. If (FWebId=AValue) then exit;
  38962. FWebId:=AValue;
  38963. MarkPropertyChanged(AIndex);
  38964. end;
  38965. Function TSPTenantAppInstance.KeyAsURLPart : string;
  38966. begin
  38967. Result:=TODataObject.MakeKeyString(Id);
  38968. end;
  38969. { --------------------------------------------------------------------
  38970. TSPWebProxy
  38971. --------------------------------------------------------------------}
  38972. Class Function TSPWebProxy.ObjectRestKind : String;
  38973. begin
  38974. Result:='WebProxy';
  38975. end;
  38976. Procedure TSPWebProxy.SetId4a81de82eeb94d6080ea5bf63e27023a(AIndex: Integer; const AValue: string);
  38977. begin
  38978. If (FId4a81de82eeb94d6080ea5bf63e27023a=AValue) then exit;
  38979. FId4a81de82eeb94d6080ea5bf63e27023a:=AValue;
  38980. MarkPropertyChanged(AIndex);
  38981. end;
  38982. Function TSPWebProxy.KeyAsURLPart : string;
  38983. begin
  38984. Result:=TODataObject.MakeKeyString(Id4a81de82eeb94d6080ea5bf63e27023a);
  38985. end;
  38986. { --------------------------------------------------------------------
  38987. TSPWebTemplate
  38988. --------------------------------------------------------------------}
  38989. Class Function TSPWebTemplate.ObjectRestKind : String;
  38990. begin
  38991. Result:='WebTemplate';
  38992. end;
  38993. Procedure TSPWebTemplate.SetDescription(AIndex: Integer; const AValue: string);
  38994. begin
  38995. If (FDescription=AValue) then exit;
  38996. FDescription:=AValue;
  38997. MarkPropertyChanged(AIndex);
  38998. end;
  38999. Procedure TSPWebTemplate.SetDisplayCategory(AIndex: Integer; const AValue: string);
  39000. begin
  39001. If (FDisplayCategory=AValue) then exit;
  39002. FDisplayCategory:=AValue;
  39003. MarkPropertyChanged(AIndex);
  39004. end;
  39005. Procedure TSPWebTemplate.SetId(AIndex: Integer; const AValue: TInt32);
  39006. begin
  39007. If (FId=AValue) then exit;
  39008. FId:=AValue;
  39009. MarkPropertyChanged(AIndex);
  39010. end;
  39011. Procedure TSPWebTemplate.SetImageUrl(AIndex: Integer; const AValue: string);
  39012. begin
  39013. If (FImageUrl=AValue) then exit;
  39014. FImageUrl:=AValue;
  39015. MarkPropertyChanged(AIndex);
  39016. end;
  39017. Procedure TSPWebTemplate.SetIsHidden(AIndex: Integer; const AValue: boolean);
  39018. begin
  39019. If (FIsHidden=AValue) then exit;
  39020. FIsHidden:=AValue;
  39021. MarkPropertyChanged(AIndex);
  39022. end;
  39023. Procedure TSPWebTemplate.SetIsRootWebOnly(AIndex: Integer; const AValue: boolean);
  39024. begin
  39025. If (FIsRootWebOnly=AValue) then exit;
  39026. FIsRootWebOnly:=AValue;
  39027. MarkPropertyChanged(AIndex);
  39028. end;
  39029. Procedure TSPWebTemplate.SetIsSubWebOnly(AIndex: Integer; const AValue: boolean);
  39030. begin
  39031. If (FIsSubWebOnly=AValue) then exit;
  39032. FIsSubWebOnly:=AValue;
  39033. MarkPropertyChanged(AIndex);
  39034. end;
  39035. Procedure TSPWebTemplate.SetLcid(AIndex: Integer; const AValue: TInt32);
  39036. begin
  39037. If (FLcid=AValue) then exit;
  39038. FLcid:=AValue;
  39039. MarkPropertyChanged(AIndex);
  39040. end;
  39041. Procedure TSPWebTemplate.SetName(AIndex: Integer; const AValue: string);
  39042. begin
  39043. If (FName=AValue) then exit;
  39044. FName:=AValue;
  39045. MarkPropertyChanged(AIndex);
  39046. end;
  39047. Procedure TSPWebTemplate.SetTitle(AIndex: Integer; const AValue: string);
  39048. begin
  39049. If (FTitle=AValue) then exit;
  39050. FTitle:=AValue;
  39051. MarkPropertyChanged(AIndex);
  39052. end;
  39053. Function TSPWebTemplate.KeyAsURLPart : string;
  39054. begin
  39055. Result:=IntToStr(Id);
  39056. end;
  39057. { --------------------------------------------------------------------
  39058. TSPTenantAppUtility
  39059. --------------------------------------------------------------------}
  39060. Class Function TSPTenantAppUtility.ObjectRestKind : String;
  39061. begin
  39062. Result:='TenantAppUtility';
  39063. end;
  39064. Procedure TSPTenantAppUtility.SetId4a81de82eeb94d6080ea5bf63e27023a(AIndex: Integer; const AValue: string);
  39065. begin
  39066. If (FId4a81de82eeb94d6080ea5bf63e27023a=AValue) then exit;
  39067. FId4a81de82eeb94d6080ea5bf63e27023a:=AValue;
  39068. MarkPropertyChanged(AIndex);
  39069. end;
  39070. Function TSPTenantAppUtility.KeyAsURLPart : string;
  39071. begin
  39072. Result:=TODataObject.MakeKeyString(Id4a81de82eeb94d6080ea5bf63e27023a);
  39073. end;
  39074. { --------------------------------------------------------------------
  39075. TSPTenantSettings
  39076. --------------------------------------------------------------------}
  39077. Class Function TSPTenantSettings.ObjectRestKind : String;
  39078. begin
  39079. Result:='TenantSettings';
  39080. end;
  39081. Procedure TSPTenantSettings.SetCorporateCatalogUrl(AIndex: Integer; const AValue: string);
  39082. begin
  39083. If (FCorporateCatalogUrl=AValue) then exit;
  39084. FCorporateCatalogUrl:=AValue;
  39085. MarkPropertyChanged(AIndex);
  39086. end;
  39087. Function TSPTenantSettings.KeyAsURLPart : string;
  39088. begin
  39089. Result:=TODataObject.MakeKeyString(CorporateCatalogUrl);
  39090. end;
  39091. Function TSPTenantSettings.Current(AService: TODataService) : TSPTenantSettings;
  39092. begin
  39093. Result:=TSPTenantSettings(GetContainedSingleTon(AService,'Current', TSPTenantSettings));
  39094. end;
  39095. { --------------------------------------------------------------------
  39096. TSPAppPrincipalIdentityProvider
  39097. --------------------------------------------------------------------}
  39098. Class Function TSPAppPrincipalIdentityProvider.ObjectRestKind : String;
  39099. begin
  39100. Result:='AppPrincipalIdentityProvider';
  39101. end;
  39102. Procedure TSPAppPrincipalIdentityProvider.SetId4a81de82eeb94d6080ea5bf63e27023a(AIndex: Integer; const AValue: string);
  39103. begin
  39104. If (FId4a81de82eeb94d6080ea5bf63e27023a=AValue) then exit;
  39105. FId4a81de82eeb94d6080ea5bf63e27023a:=AValue;
  39106. MarkPropertyChanged(AIndex);
  39107. end;
  39108. Function TSPAppPrincipalIdentityProvider.KeyAsURLPart : string;
  39109. begin
  39110. Result:=TODataObject.MakeKeyString(Id4a81de82eeb94d6080ea5bf63e27023a);
  39111. end;
  39112. Function TSPAppPrincipalIdentityProvider.External(AService: TODataService) : TSPAppPrincipalIdentityProvider;
  39113. begin
  39114. Result:=TSPAppPrincipalIdentityProvider(GetContainedSingleTon(AService,'External', TSPAppPrincipalIdentityProvider));
  39115. end;
  39116. { --------------------------------------------------------------------
  39117. TSPAppPrincipalManager
  39118. --------------------------------------------------------------------}
  39119. Class Function TSPAppPrincipalManager.ObjectRestKind : String;
  39120. begin
  39121. Result:='AppPrincipalManager';
  39122. end;
  39123. Procedure TSPAppPrincipalManager.SetId4a81de82eeb94d6080ea5bf63e27023a(AIndex: Integer; const AValue: string);
  39124. begin
  39125. If (FId4a81de82eeb94d6080ea5bf63e27023a=AValue) then exit;
  39126. FId4a81de82eeb94d6080ea5bf63e27023a:=AValue;
  39127. MarkPropertyChanged(AIndex);
  39128. end;
  39129. Function TSPAppPrincipalManager.KeyAsURLPart : string;
  39130. begin
  39131. Result:=TODataObject.MakeKeyString(Id4a81de82eeb94d6080ea5bf63e27023a);
  39132. end;
  39133. { --------------------------------------------------------------------
  39134. TSPAppPrincipalCredential
  39135. --------------------------------------------------------------------}
  39136. Class Function TSPAppPrincipalCredential.ObjectRestKind : String;
  39137. begin
  39138. Result:='AppPrincipalCredential';
  39139. end;
  39140. Procedure TSPAppPrincipalCredential.SetId4a81de82eeb94d6080ea5bf63e27023a(AIndex: Integer; const AValue: string);
  39141. begin
  39142. If (FId4a81de82eeb94d6080ea5bf63e27023a=AValue) then exit;
  39143. FId4a81de82eeb94d6080ea5bf63e27023a:=AValue;
  39144. MarkPropertyChanged(AIndex);
  39145. end;
  39146. Function TSPAppPrincipalCredential.KeyAsURLPart : string;
  39147. begin
  39148. Result:=TODataObject.MakeKeyString(Id4a81de82eeb94d6080ea5bf63e27023a);
  39149. end;
  39150. { --------------------------------------------------------------------
  39151. TSPAppPrincipalName
  39152. --------------------------------------------------------------------}
  39153. Class Function TSPAppPrincipalName.ObjectRestKind : String;
  39154. begin
  39155. Result:='AppPrincipalName';
  39156. end;
  39157. Procedure TSPAppPrincipalName.SetId4a81de82eeb94d6080ea5bf63e27023a(AIndex: Integer; const AValue: string);
  39158. begin
  39159. If (FId4a81de82eeb94d6080ea5bf63e27023a=AValue) then exit;
  39160. FId4a81de82eeb94d6080ea5bf63e27023a:=AValue;
  39161. MarkPropertyChanged(AIndex);
  39162. end;
  39163. Function TSPAppPrincipalName.KeyAsURLPart : string;
  39164. begin
  39165. Result:=TODataObject.MakeKeyString(Id4a81de82eeb94d6080ea5bf63e27023a);
  39166. end;
  39167. { --------------------------------------------------------------------
  39168. TMS_AppDataExternalEntityItemValue
  39169. --------------------------------------------------------------------}
  39170. Class Function TMS_AppDataExternalEntityItemValue.ObjectRestKind : String;
  39171. begin
  39172. Result:='ExternalEntityItemValue';
  39173. end;
  39174. Procedure TMS_AppDataExternalEntityItemValue.SetId(AIndex: Integer; const AValue: string);
  39175. begin
  39176. If (FId=AValue) then exit;
  39177. FId:=AValue;
  39178. MarkPropertyChanged(AIndex);
  39179. end;
  39180. { --------------------------------------------------------------------
  39181. TMS_AppDataDocumentEntityItemValue
  39182. --------------------------------------------------------------------}
  39183. Class Function TMS_AppDataDocumentEntityItemValue.ObjectRestKind : String;
  39184. begin
  39185. Result:='DocumentEntityItemValue';
  39186. end;
  39187. Procedure TMS_AppDataDocumentEntityItemValue.SetCreated(AIndex: Integer; const AValue: TDateTime);
  39188. begin
  39189. If (FCreated=AValue) then exit;
  39190. FCreated:=AValue;
  39191. MarkPropertyChanged(AIndex);
  39192. end;
  39193. Procedure TMS_AppDataDocumentEntityItemValue.SetModified(AIndex: Integer; const AValue: TDateTime);
  39194. begin
  39195. If (FModified=AValue) then exit;
  39196. FModified:=AValue;
  39197. MarkPropertyChanged(AIndex);
  39198. end;
  39199. Procedure TMS_AppDataDocumentEntityItemValue.SetPreviewFrameUrl(AIndex: Integer; const AValue: string);
  39200. begin
  39201. If (FPreviewFrameUrl=AValue) then exit;
  39202. FPreviewFrameUrl:=AValue;
  39203. MarkPropertyChanged(AIndex);
  39204. end;
  39205. Procedure TMS_AppDataDocumentEntityItemValue.SetTitle(AIndex: Integer; const AValue: string);
  39206. begin
  39207. If (FTitle=AValue) then exit;
  39208. FTitle:=AValue;
  39209. MarkPropertyChanged(AIndex);
  39210. end;
  39211. { --------------------------------------------------------------------
  39212. TMS_AppDataEntityItemValue
  39213. --------------------------------------------------------------------}
  39214. Class Function TMS_AppDataEntityItemValue.ObjectRestKind : String;
  39215. begin
  39216. Result:='EntityItemValue';
  39217. end;
  39218. Procedure TMS_AppDataEntityItemValue.SetFieldValues(AIndex: Integer; const AValue: TSPKeyValueArray);
  39219. begin
  39220. If (FFieldValues=AValue) then exit;
  39221. FFieldValues:=AValue;
  39222. MarkPropertyChanged(AIndex);
  39223. end;
  39224. Procedure TMS_AppDataEntityItemValue.SetId(AIndex: Integer; const AValue: TInt32);
  39225. begin
  39226. If (FId=AValue) then exit;
  39227. FId:=AValue;
  39228. MarkPropertyChanged(AIndex);
  39229. end;
  39230. {$IFDEF VER2_6}
  39231. Procedure TMS_AppDataEntityItemValue.SetArrayLength(const AName: String; ALength: Longint);
  39232. begin
  39233. Case aName of
  39234. 'fieldvalues' : SetLength(FFieldValues,aLength);
  39235. else
  39236. inherited SetArrayLength(aName,ALength);
  39237. end;
  39238. end;
  39239. {$ENDIF VER2_6}
  39240. { --------------------------------------------------------------------
  39241. TMS_AppDataEntityTypeCreationInformation
  39242. --------------------------------------------------------------------}
  39243. Class Function TMS_AppDataEntityTypeCreationInformation.ObjectRestKind : String;
  39244. begin
  39245. Result:='EntityTypeCreationInformation';
  39246. end;
  39247. Procedure TMS_AppDataEntityTypeCreationInformation.SetName(AIndex: Integer; const AValue: string);
  39248. begin
  39249. If (FName=AValue) then exit;
  39250. FName:=AValue;
  39251. MarkPropertyChanged(AIndex);
  39252. end;
  39253. Procedure TMS_AppDataEntityTypeCreationInformation.SetTitle(AIndex: Integer; const AValue: string);
  39254. begin
  39255. If (FTitle=AValue) then exit;
  39256. FTitle:=AValue;
  39257. MarkPropertyChanged(AIndex);
  39258. end;
  39259. { --------------------------------------------------------------------
  39260. TMS_AppDataExternalEntityTypeCreationInformation
  39261. --------------------------------------------------------------------}
  39262. Class Function TMS_AppDataExternalEntityTypeCreationInformation.ObjectRestKind : String;
  39263. begin
  39264. Result:='ExternalEntityTypeCreationInformation';
  39265. end;
  39266. Procedure TMS_AppDataExternalEntityTypeCreationInformation.SetKind(AIndex: Integer; const AValue: TInt32);
  39267. begin
  39268. If (FKind=AValue) then exit;
  39269. FKind:=AValue;
  39270. MarkPropertyChanged(AIndex);
  39271. end;
  39272. Procedure TMS_AppDataExternalEntityTypeCreationInformation.SetName(AIndex: Integer; const AValue: string);
  39273. begin
  39274. If (FName=AValue) then exit;
  39275. FName:=AValue;
  39276. MarkPropertyChanged(AIndex);
  39277. end;
  39278. Procedure TMS_AppDataExternalEntityTypeCreationInformation.SetProperties(AIndex: Integer; const AValue: string);
  39279. begin
  39280. If (FProperties=AValue) then exit;
  39281. FProperties:=AValue;
  39282. MarkPropertyChanged(AIndex);
  39283. end;
  39284. Procedure TMS_AppDataExternalEntityTypeCreationInformation.SetServiceUrl(AIndex: Integer; const AValue: string);
  39285. begin
  39286. If (FServiceUrl=AValue) then exit;
  39287. FServiceUrl:=AValue;
  39288. MarkPropertyChanged(AIndex);
  39289. end;
  39290. Procedure TMS_AppDataExternalEntityTypeCreationInformation.SetTitle(AIndex: Integer; const AValue: string);
  39291. begin
  39292. If (FTitle=AValue) then exit;
  39293. FTitle:=AValue;
  39294. MarkPropertyChanged(AIndex);
  39295. end;
  39296. { --------------------------------------------------------------------
  39297. TMS_AppDataFieldCreationInformation
  39298. --------------------------------------------------------------------}
  39299. Class Function TMS_AppDataFieldCreationInformation.ObjectRestKind : String;
  39300. begin
  39301. Result:='FieldCreationInformation';
  39302. end;
  39303. Procedure TMS_AppDataFieldCreationInformation.SetExternalServiceUrl(AIndex: Integer; const AValue: string);
  39304. begin
  39305. If (FExternalServiceUrl=AValue) then exit;
  39306. FExternalServiceUrl:=AValue;
  39307. MarkPropertyChanged(AIndex);
  39308. end;
  39309. Procedure TMS_AppDataFieldCreationInformation.SetFieldType(AIndex: Integer; const AValue: TInt32);
  39310. begin
  39311. If (FFieldType=AValue) then exit;
  39312. FFieldType:=AValue;
  39313. MarkPropertyChanged(AIndex);
  39314. end;
  39315. Procedure TMS_AppDataFieldCreationInformation.SetLookupTargetEntityTypeId(AIndex: Integer; const AValue: TGUIDString);
  39316. begin
  39317. If (FLookupTargetEntityTypeId=AValue) then exit;
  39318. FLookupTargetEntityTypeId:=AValue;
  39319. MarkPropertyChanged(AIndex);
  39320. end;
  39321. Procedure TMS_AppDataFieldCreationInformation.SetName(AIndex: Integer; const AValue: string);
  39322. begin
  39323. If (FName=AValue) then exit;
  39324. FName:=AValue;
  39325. MarkPropertyChanged(AIndex);
  39326. end;
  39327. Procedure TMS_AppDataFieldCreationInformation.SetTitle(AIndex: Integer; const AValue: string);
  39328. begin
  39329. If (FTitle=AValue) then exit;
  39330. FTitle:=AValue;
  39331. MarkPropertyChanged(AIndex);
  39332. end;
  39333. { --------------------------------------------------------------------
  39334. TMS_AppDataItemQuery
  39335. --------------------------------------------------------------------}
  39336. Class Function TMS_AppDataItemQuery.ObjectRestKind : String;
  39337. begin
  39338. Result:='ItemQuery';
  39339. end;
  39340. Procedure TMS_AppDataItemQuery.SetExpand(AIndex: Integer; const AValue: string);
  39341. begin
  39342. If (FExpand=AValue) then exit;
  39343. FExpand:=AValue;
  39344. MarkPropertyChanged(AIndex);
  39345. end;
  39346. Procedure TMS_AppDataItemQuery.SetSelect(AIndex: Integer; const AValue: string);
  39347. begin
  39348. If (FSelect=AValue) then exit;
  39349. FSelect:=AValue;
  39350. MarkPropertyChanged(AIndex);
  39351. end;
  39352. { --------------------------------------------------------------------
  39353. TMS_AppDataItemCollectionQuery
  39354. --------------------------------------------------------------------}
  39355. Class Function TMS_AppDataItemCollectionQuery.ObjectRestKind : String;
  39356. begin
  39357. Result:='ItemCollectionQuery';
  39358. end;
  39359. Procedure TMS_AppDataItemCollectionQuery.SetFilter(AIndex: Integer; const AValue: string);
  39360. begin
  39361. If (FFilter=AValue) then exit;
  39362. FFilter:=AValue;
  39363. MarkPropertyChanged(AIndex);
  39364. end;
  39365. Procedure TMS_AppDataItemCollectionQuery.SetIncludeAllItemsCount(AIndex: Integer; const AValue: boolean);
  39366. begin
  39367. If (FIncludeAllItemsCount=AValue) then exit;
  39368. FIncludeAllItemsCount:=AValue;
  39369. MarkPropertyChanged(AIndex);
  39370. end;
  39371. Procedure TMS_AppDataItemCollectionQuery.SetOrderBy(AIndex: Integer; const AValue: string);
  39372. begin
  39373. If (FOrderBy=AValue) then exit;
  39374. FOrderBy:=AValue;
  39375. MarkPropertyChanged(AIndex);
  39376. end;
  39377. Procedure TMS_AppDataItemCollectionQuery.SetSkip(AIndex: Integer; const AValue: TInt32);
  39378. begin
  39379. If (FSkip=AValue) then exit;
  39380. FSkip:=AValue;
  39381. MarkPropertyChanged(AIndex);
  39382. end;
  39383. Procedure TMS_AppDataItemCollectionQuery.SetTop(AIndex: Integer; const AValue: TInt32);
  39384. begin
  39385. If (FTop=AValue) then exit;
  39386. FTop:=AValue;
  39387. MarkPropertyChanged(AIndex);
  39388. end;
  39389. { --------------------------------------------------------------------
  39390. TMS_AppDataUrlFieldValue
  39391. --------------------------------------------------------------------}
  39392. Class Function TMS_AppDataUrlFieldValue.ObjectRestKind : String;
  39393. begin
  39394. Result:='UrlFieldValue';
  39395. end;
  39396. Procedure TMS_AppDataUrlFieldValue.SetText(AIndex: Integer; const AValue: string);
  39397. begin
  39398. If (FText=AValue) then exit;
  39399. FText:=AValue;
  39400. MarkPropertyChanged(AIndex);
  39401. end;
  39402. Procedure TMS_AppDataUrlFieldValue.SetUrl(AIndex: Integer; const AValue: string);
  39403. begin
  39404. If (FUrl=AValue) then exit;
  39405. FUrl:=AValue;
  39406. MarkPropertyChanged(AIndex);
  39407. end;
  39408. { --------------------------------------------------------------------
  39409. TMS_AppDataUserEntityItemValue
  39410. --------------------------------------------------------------------}
  39411. Class Function TMS_AppDataUserEntityItemValue.ObjectRestKind : String;
  39412. begin
  39413. Result:='UserEntityItemValue';
  39414. end;
  39415. Procedure TMS_AppDataUserEntityItemValue.SetDepartment(AIndex: Integer; const AValue: string);
  39416. begin
  39417. If (FDepartment=AValue) then exit;
  39418. FDepartment:=AValue;
  39419. MarkPropertyChanged(AIndex);
  39420. end;
  39421. Procedure TMS_AppDataUserEntityItemValue.SetDisplayName(AIndex: Integer; const AValue: string);
  39422. begin
  39423. If (FDisplayName=AValue) then exit;
  39424. FDisplayName:=AValue;
  39425. MarkPropertyChanged(AIndex);
  39426. end;
  39427. Procedure TMS_AppDataUserEntityItemValue.SetEmail(AIndex: Integer; const AValue: string);
  39428. begin
  39429. If (FEmail=AValue) then exit;
  39430. FEmail:=AValue;
  39431. MarkPropertyChanged(AIndex);
  39432. end;
  39433. Procedure TMS_AppDataUserEntityItemValue.SetJobTitle(AIndex: Integer; const AValue: string);
  39434. begin
  39435. If (FJobTitle=AValue) then exit;
  39436. FJobTitle:=AValue;
  39437. MarkPropertyChanged(AIndex);
  39438. end;
  39439. Procedure TMS_AppDataUserEntityItemValue.SetLoginName(AIndex: Integer; const AValue: string);
  39440. begin
  39441. If (FLoginName=AValue) then exit;
  39442. FLoginName:=AValue;
  39443. MarkPropertyChanged(AIndex);
  39444. end;
  39445. Procedure TMS_AppDataUserEntityItemValue.SetMobilePhone(AIndex: Integer; const AValue: string);
  39446. begin
  39447. If (FMobilePhone=AValue) then exit;
  39448. FMobilePhone:=AValue;
  39449. MarkPropertyChanged(AIndex);
  39450. end;
  39451. Procedure TMS_AppDataUserEntityItemValue.SetPhone(AIndex: Integer; const AValue: string);
  39452. begin
  39453. If (FPhone=AValue) then exit;
  39454. FPhone:=AValue;
  39455. MarkPropertyChanged(AIndex);
  39456. end;
  39457. Procedure TMS_AppDataUserEntityItemValue.SetPrincipleType(AIndex: Integer; const AValue: TInt32);
  39458. begin
  39459. If (FPrincipleType=AValue) then exit;
  39460. FPrincipleType:=AValue;
  39461. MarkPropertyChanged(AIndex);
  39462. end;
  39463. Procedure TMS_AppDataUserEntityItemValue.SetSipAddress(AIndex: Integer; const AValue: string);
  39464. begin
  39465. If (FSipAddress=AValue) then exit;
  39466. FSipAddress:=AValue;
  39467. MarkPropertyChanged(AIndex);
  39468. end;
  39469. { --------------------------------------------------------------------
  39470. TMS_AppDataApp
  39471. --------------------------------------------------------------------}
  39472. Class Function TMS_AppDataApp.ObjectRestKind : String;
  39473. begin
  39474. Result:='App';
  39475. end;
  39476. Procedure TMS_AppDataApp.SetId(AIndex: Integer; const AValue: TGUIDString);
  39477. begin
  39478. If (FId=AValue) then exit;
  39479. FId:=AValue;
  39480. MarkPropertyChanged(AIndex);
  39481. end;
  39482. Procedure TMS_AppDataApp.SetName(AIndex: Integer; const AValue: string);
  39483. begin
  39484. If (FName=AValue) then exit;
  39485. FName:=AValue;
  39486. MarkPropertyChanged(AIndex);
  39487. end;
  39488. Function TMS_AppDataApp.KeyAsURLPart : string;
  39489. begin
  39490. Result:=TODataObject.MakeKeyString(Id);
  39491. end;
  39492. Function TMS_AppDataApp.EntityTypes(AService: TODataService) : TMS_AppDataEntityType;
  39493. begin
  39494. Result:=TMS_AppDataEntityType(GetContainedSingleTon(AService,'EntityTypes', TMS_AppDataEntityType));
  39495. end;
  39496. Function TMS_AppDataApp.ExternalEntityTypes(AService: TODataService) : TMS_AppDataExternalEntityType;
  39497. begin
  39498. Result:=TMS_AppDataExternalEntityType(GetContainedSingleTon(AService,'ExternalEntityTypes', TMS_AppDataExternalEntityType));
  39499. end;
  39500. { --------------------------------------------------------------------
  39501. TMS_AppDataEntityTypeBase
  39502. --------------------------------------------------------------------}
  39503. Class Function TMS_AppDataEntityTypeBase.ObjectRestKind : String;
  39504. begin
  39505. Result:='EntityTypeBase';
  39506. end;
  39507. Procedure TMS_AppDataEntityTypeBase.SetId(AIndex: Integer; const AValue: TGUIDString);
  39508. begin
  39509. If (FId=AValue) then exit;
  39510. FId:=AValue;
  39511. MarkPropertyChanged(AIndex);
  39512. end;
  39513. Procedure TMS_AppDataEntityTypeBase.SetName(AIndex: Integer; const AValue: string);
  39514. begin
  39515. If (FName=AValue) then exit;
  39516. FName:=AValue;
  39517. MarkPropertyChanged(AIndex);
  39518. end;
  39519. Function TMS_AppDataEntityTypeBase.KeyAsURLPart : string;
  39520. begin
  39521. Result:=TODataObject.MakeKeyString(Id);
  39522. end;
  39523. Function TMS_AppDataEntityTypeBase.Fields(AService: TODataService) : TMS_AppDataField;
  39524. begin
  39525. Result:=TMS_AppDataField(GetContainedSingleTon(AService,'Fields', TMS_AppDataField));
  39526. end;
  39527. { --------------------------------------------------------------------
  39528. TMS_AppDataField
  39529. --------------------------------------------------------------------}
  39530. Class Function TMS_AppDataField.ObjectRestKind : String;
  39531. begin
  39532. Result:='Field';
  39533. end;
  39534. Procedure TMS_AppDataField.SetExternalServiceUrl(AIndex: Integer; const AValue: string);
  39535. begin
  39536. If (FExternalServiceUrl=AValue) then exit;
  39537. FExternalServiceUrl:=AValue;
  39538. MarkPropertyChanged(AIndex);
  39539. end;
  39540. Procedure TMS_AppDataField.SetFieldType(AIndex: Integer; const AValue: TInt32);
  39541. begin
  39542. If (FFieldType=AValue) then exit;
  39543. FFieldType:=AValue;
  39544. MarkPropertyChanged(AIndex);
  39545. end;
  39546. Procedure TMS_AppDataField.SetId(AIndex: Integer; const AValue: TGUIDString);
  39547. begin
  39548. If (FId=AValue) then exit;
  39549. FId:=AValue;
  39550. MarkPropertyChanged(AIndex);
  39551. end;
  39552. Procedure TMS_AppDataField.SetLookupTargetAppId(AIndex: Integer; const AValue: TGUIDString);
  39553. begin
  39554. If (FLookupTargetAppId=AValue) then exit;
  39555. FLookupTargetAppId:=AValue;
  39556. MarkPropertyChanged(AIndex);
  39557. end;
  39558. Procedure TMS_AppDataField.SetLookupTargetEntityTypeId(AIndex: Integer; const AValue: TGUIDString);
  39559. begin
  39560. If (FLookupTargetEntityTypeId=AValue) then exit;
  39561. FLookupTargetEntityTypeId:=AValue;
  39562. MarkPropertyChanged(AIndex);
  39563. end;
  39564. Procedure TMS_AppDataField.SetName(AIndex: Integer; const AValue: string);
  39565. begin
  39566. If (FName=AValue) then exit;
  39567. FName:=AValue;
  39568. MarkPropertyChanged(AIndex);
  39569. end;
  39570. Procedure TMS_AppDataField.SetProperties(AIndex: Integer; const AValue: TSPKeyValueArray);
  39571. begin
  39572. If (FProperties=AValue) then exit;
  39573. FProperties:=AValue;
  39574. MarkPropertyChanged(AIndex);
  39575. end;
  39576. Procedure TMS_AppDataField.SetSystemField(AIndex: Integer; const AValue: boolean);
  39577. begin
  39578. If (FSystemField=AValue) then exit;
  39579. FSystemField:=AValue;
  39580. MarkPropertyChanged(AIndex);
  39581. end;
  39582. Procedure TMS_AppDataField.SetTitle(AIndex: Integer; const AValue: string);
  39583. begin
  39584. If (FTitle=AValue) then exit;
  39585. FTitle:=AValue;
  39586. MarkPropertyChanged(AIndex);
  39587. end;
  39588. {$IFDEF VER2_6}
  39589. Procedure TMS_AppDataField.SetArrayLength(const AName: String; ALength: Longint);
  39590. begin
  39591. Case aName of
  39592. 'properties' : SetLength(FProperties,aLength);
  39593. else
  39594. inherited SetArrayLength(aName,ALength);
  39595. end;
  39596. end;
  39597. {$ENDIF VER2_6}
  39598. Function TMS_AppDataField.KeyAsURLPart : string;
  39599. begin
  39600. Result:=TODataObject.MakeKeyString(Id);
  39601. end;
  39602. { --------------------------------------------------------------------
  39603. TMS_AppDataEntityType
  39604. --------------------------------------------------------------------}
  39605. Class Function TMS_AppDataEntityType.ObjectRestKind : String;
  39606. begin
  39607. Result:='EntityType';
  39608. end;
  39609. Procedure TMS_AppDataEntityType.SetTitle(AIndex: Integer; const AValue: string);
  39610. begin
  39611. If (FTitle=AValue) then exit;
  39612. FTitle:=AValue;
  39613. MarkPropertyChanged(AIndex);
  39614. end;
  39615. Function TMS_AppDataEntityType.Items(AService: TODataService) : TMS_AppDataEntityItem;
  39616. begin
  39617. Result:=TMS_AppDataEntityItem(GetContainedSingleTon(AService,'Items', TMS_AppDataEntityItem));
  39618. end;
  39619. { --------------------------------------------------------------------
  39620. TMS_AppDataEntityItem
  39621. --------------------------------------------------------------------}
  39622. Class Function TMS_AppDataEntityItem.ObjectRestKind : String;
  39623. begin
  39624. Result:='EntityItem';
  39625. end;
  39626. Procedure TMS_AppDataEntityItem.SetETag(AIndex: Integer; const AValue: string);
  39627. begin
  39628. If (FETag=AValue) then exit;
  39629. FETag:=AValue;
  39630. MarkPropertyChanged(AIndex);
  39631. end;
  39632. Procedure TMS_AppDataEntityItem.SetFieldValues(AIndex: Integer; const AValue: TSPKeyValueArray);
  39633. begin
  39634. If (FFieldValues=AValue) then exit;
  39635. FFieldValues:=AValue;
  39636. MarkPropertyChanged(AIndex);
  39637. end;
  39638. Procedure TMS_AppDataEntityItem.SetId(AIndex: Integer; const AValue: TInt32);
  39639. begin
  39640. If (FId=AValue) then exit;
  39641. FId:=AValue;
  39642. MarkPropertyChanged(AIndex);
  39643. end;
  39644. {$IFDEF VER2_6}
  39645. Procedure TMS_AppDataEntityItem.SetArrayLength(const AName: String; ALength: Longint);
  39646. begin
  39647. Case aName of
  39648. 'fieldvalues' : SetLength(FFieldValues,aLength);
  39649. else
  39650. inherited SetArrayLength(aName,ALength);
  39651. end;
  39652. end;
  39653. {$ENDIF VER2_6}
  39654. Function TMS_AppDataEntityItem.KeyAsURLPart : string;
  39655. begin
  39656. Result:=IntToStr(Id);
  39657. end;
  39658. { --------------------------------------------------------------------
  39659. TMS_AppDataExternalEntityType
  39660. --------------------------------------------------------------------}
  39661. Class Function TMS_AppDataExternalEntityType.ObjectRestKind : String;
  39662. begin
  39663. Result:='ExternalEntityType';
  39664. end;
  39665. Procedure TMS_AppDataExternalEntityType.SetKind(AIndex: Integer; const AValue: TInt32);
  39666. begin
  39667. If (FKind=AValue) then exit;
  39668. FKind:=AValue;
  39669. MarkPropertyChanged(AIndex);
  39670. end;
  39671. Procedure TMS_AppDataExternalEntityType.SetServiceUrl(AIndex: Integer; const AValue: string);
  39672. begin
  39673. If (FServiceUrl=AValue) then exit;
  39674. FServiceUrl:=AValue;
  39675. MarkPropertyChanged(AIndex);
  39676. end;
  39677. { --------------------------------------------------------------------
  39678. TMS_AppDataStoreContextBase
  39679. --------------------------------------------------------------------}
  39680. Class Function TMS_AppDataStoreContextBase.ObjectRestKind : String;
  39681. begin
  39682. Result:='StoreContextBase';
  39683. end;
  39684. Procedure TMS_AppDataStoreContextBase.SetId4a81de82eeb94d6080ea5bf63e27023a(AIndex: Integer; const AValue: string);
  39685. begin
  39686. If (FId4a81de82eeb94d6080ea5bf63e27023a=AValue) then exit;
  39687. FId4a81de82eeb94d6080ea5bf63e27023a:=AValue;
  39688. MarkPropertyChanged(AIndex);
  39689. end;
  39690. Function TMS_AppDataStoreContextBase.KeyAsURLPart : string;
  39691. begin
  39692. Result:=TODataObject.MakeKeyString(Id4a81de82eeb94d6080ea5bf63e27023a);
  39693. end;
  39694. { --------------------------------------------------------------------
  39695. TMS_AppDataODataStoreContext
  39696. --------------------------------------------------------------------}
  39697. Class Function TMS_AppDataODataStoreContext.ObjectRestKind : String;
  39698. begin
  39699. Result:='ODataStoreContext';
  39700. end;
  39701. { --------------------------------------------------------------------
  39702. TMS_AppDataRequestContext
  39703. --------------------------------------------------------------------}
  39704. Class Function TMS_AppDataRequestContext.ObjectRestKind : String;
  39705. begin
  39706. Result:='RequestContext';
  39707. end;
  39708. Procedure TMS_AppDataRequestContext.SetId4a81de82eeb94d6080ea5bf63e27023a(AIndex: Integer; const AValue: string);
  39709. begin
  39710. If (FId4a81de82eeb94d6080ea5bf63e27023a=AValue) then exit;
  39711. FId4a81de82eeb94d6080ea5bf63e27023a:=AValue;
  39712. MarkPropertyChanged(AIndex);
  39713. end;
  39714. Function TMS_AppDataRequestContext.KeyAsURLPart : string;
  39715. begin
  39716. Result:=TODataObject.MakeKeyString(Id4a81de82eeb94d6080ea5bf63e27023a);
  39717. end;
  39718. Function TMS_AppDataRequestContext.App(AService: TODataService) : TMS_AppDataApp;
  39719. begin
  39720. Result:=TMS_AppDataApp(GetContainedSingleTon(AService,'App', TMS_AppDataApp));
  39721. end;
  39722. Function TMS_AppDataRequestContext.Current(AService: TODataService) : TMS_AppDataRequestContext;
  39723. begin
  39724. Result:=TMS_AppDataRequestContext(GetContainedSingleTon(AService,'Current', TMS_AppDataRequestContext));
  39725. end;
  39726. { --------------------------------------------------------------------
  39727. TMS_AppDataSqlStoreContext
  39728. --------------------------------------------------------------------}
  39729. Class Function TMS_AppDataSqlStoreContext.ObjectRestKind : String;
  39730. begin
  39731. Result:='SqlStoreContext';
  39732. end;
  39733. { --------------------------------------------------------------------
  39734. TSP_DirectoryLinkRequestSchema
  39735. --------------------------------------------------------------------}
  39736. Class Function TSP_DirectoryLinkRequestSchema.ObjectRestKind : String;
  39737. begin
  39738. Result:='LinkRequestSchema';
  39739. end;
  39740. Procedure TSP_DirectoryLinkRequestSchema.SetCount(AIndex: Integer; const AValue: TInt32);
  39741. begin
  39742. If (FCount=AValue) then exit;
  39743. FCount:=AValue;
  39744. MarkPropertyChanged(AIndex);
  39745. end;
  39746. Procedure TSP_DirectoryLinkRequestSchema.SetIncludeTotalCount(AIndex: Integer; const AValue: boolean);
  39747. begin
  39748. If (FIncludeTotalCount=AValue) then exit;
  39749. FIncludeTotalCount:=AValue;
  39750. MarkPropertyChanged(AIndex);
  39751. end;
  39752. Procedure TSP_DirectoryLinkRequestSchema.SetName(AIndex: Integer; const AValue: string);
  39753. begin
  39754. If (FName=AValue) then exit;
  39755. FName:=AValue;
  39756. MarkPropertyChanged(AIndex);
  39757. end;
  39758. Procedure TSP_DirectoryLinkRequestSchema.SetOffset(AIndex: Integer; const AValue: TInt32);
  39759. begin
  39760. If (FOffset=AValue) then exit;
  39761. FOffset:=AValue;
  39762. MarkPropertyChanged(AIndex);
  39763. end;
  39764. { --------------------------------------------------------------------
  39765. TSP_DirectoryDirectorySession
  39766. --------------------------------------------------------------------}
  39767. Class Function TSP_DirectoryDirectorySession.ObjectRestKind : String;
  39768. begin
  39769. Result:='DirectorySession';
  39770. end;
  39771. Procedure TSP_DirectoryDirectorySession.SetSessionOptions(AIndex: Integer; const AValue: TInt32);
  39772. begin
  39773. If (FSessionOptions=AValue) then exit;
  39774. FSessionOptions:=AValue;
  39775. MarkPropertyChanged(AIndex);
  39776. end;
  39777. Function TSP_DirectoryDirectorySession.KeyAsURLPart : string;
  39778. begin
  39779. Result:=IntToStr(SessionOptions);
  39780. end;
  39781. { --------------------------------------------------------------------
  39782. TSP_DirectoryGroupAndUserStatus
  39783. --------------------------------------------------------------------}
  39784. Class Function TSP_DirectoryGroupAndUserStatus.ObjectRestKind : String;
  39785. begin
  39786. Result:='GroupAndUserStatus';
  39787. end;
  39788. Procedure TSP_DirectoryGroupAndUserStatus.SetStatus(AIndex: Integer; const AValue: TInt32);
  39789. begin
  39790. If (FStatus=AValue) then exit;
  39791. FStatus:=AValue;
  39792. MarkPropertyChanged(AIndex);
  39793. end;
  39794. Function TSP_DirectoryGroupAndUserStatus.KeyAsURLPart : string;
  39795. begin
  39796. Result:=IntToStr(Status);
  39797. end;
  39798. Function TSP_DirectoryGroupAndUserStatus.Group(AService: TODataService) : TSP_DirectoryGroup;
  39799. begin
  39800. Result:=TSP_DirectoryGroup(GetContainedSingleTon(AService,'Group', TSP_DirectoryGroup));
  39801. end;
  39802. { --------------------------------------------------------------------
  39803. TSP_DirectoryGroup
  39804. --------------------------------------------------------------------}
  39805. Class Function TSP_DirectoryGroup.ObjectRestKind : String;
  39806. begin
  39807. Result:='Group';
  39808. end;
  39809. Procedure TSP_DirectoryGroup.SetAlias(AIndex: Integer; const AValue: string);
  39810. begin
  39811. If (FAlias=AValue) then exit;
  39812. FAlias:=AValue;
  39813. MarkPropertyChanged(AIndex);
  39814. end;
  39815. Procedure TSP_DirectoryGroup.SetCalendarUrl(AIndex: Integer; const AValue: string);
  39816. begin
  39817. If (FCalendarUrl=AValue) then exit;
  39818. FCalendarUrl:=AValue;
  39819. MarkPropertyChanged(AIndex);
  39820. end;
  39821. Procedure TSP_DirectoryGroup.SetDescription(AIndex: Integer; const AValue: string);
  39822. begin
  39823. If (FDescription=AValue) then exit;
  39824. FDescription:=AValue;
  39825. MarkPropertyChanged(AIndex);
  39826. end;
  39827. Procedure TSP_DirectoryGroup.SetDirectoryObjectType(AIndex: Integer; const AValue: TInt32);
  39828. begin
  39829. If (FDirectoryObjectType=AValue) then exit;
  39830. FDirectoryObjectType:=AValue;
  39831. MarkPropertyChanged(AIndex);
  39832. end;
  39833. Procedure TSP_DirectoryGroup.SetDisplayName(AIndex: Integer; const AValue: string);
  39834. begin
  39835. If (FDisplayName=AValue) then exit;
  39836. FDisplayName:=AValue;
  39837. MarkPropertyChanged(AIndex);
  39838. end;
  39839. Procedure TSP_DirectoryGroup.SetDocumentsUrl(AIndex: Integer; const AValue: string);
  39840. begin
  39841. If (FDocumentsUrl=AValue) then exit;
  39842. FDocumentsUrl:=AValue;
  39843. MarkPropertyChanged(AIndex);
  39844. end;
  39845. Procedure TSP_DirectoryGroup.SetEditGroupUrl(AIndex: Integer; const AValue: string);
  39846. begin
  39847. If (FEditGroupUrl=AValue) then exit;
  39848. FEditGroupUrl:=AValue;
  39849. MarkPropertyChanged(AIndex);
  39850. end;
  39851. Procedure TSP_DirectoryGroup.SetId(AIndex: Integer; const AValue: TGUIDString);
  39852. begin
  39853. If (FId=AValue) then exit;
  39854. FId:=AValue;
  39855. MarkPropertyChanged(AIndex);
  39856. end;
  39857. Procedure TSP_DirectoryGroup.SetInboxUrl(AIndex: Integer; const AValue: string);
  39858. begin
  39859. If (FInboxUrl=AValue) then exit;
  39860. FInboxUrl:=AValue;
  39861. MarkPropertyChanged(AIndex);
  39862. end;
  39863. Procedure TSP_DirectoryGroup.SetIsPublic(AIndex: Integer; const AValue: boolean);
  39864. begin
  39865. If (FIsPublic=AValue) then exit;
  39866. FIsPublic:=AValue;
  39867. MarkPropertyChanged(AIndex);
  39868. end;
  39869. Procedure TSP_DirectoryGroup.SetPeopleUrl(AIndex: Integer; const AValue: string);
  39870. begin
  39871. If (FPeopleUrl=AValue) then exit;
  39872. FPeopleUrl:=AValue;
  39873. MarkPropertyChanged(AIndex);
  39874. end;
  39875. Procedure TSP_DirectoryGroup.SetPictureUrl(AIndex: Integer; const AValue: string);
  39876. begin
  39877. If (FPictureUrl=AValue) then exit;
  39878. FPictureUrl:=AValue;
  39879. MarkPropertyChanged(AIndex);
  39880. end;
  39881. Procedure TSP_DirectoryGroup.SetPrincipalName(AIndex: Integer; const AValue: string);
  39882. begin
  39883. If (FPrincipalName=AValue) then exit;
  39884. FPrincipalName:=AValue;
  39885. MarkPropertyChanged(AIndex);
  39886. end;
  39887. Procedure TSP_DirectoryGroup.SetSiteUrl(AIndex: Integer; const AValue: string);
  39888. begin
  39889. If (FSiteUrl=AValue) then exit;
  39890. FSiteUrl:=AValue;
  39891. MarkPropertyChanged(AIndex);
  39892. end;
  39893. Function TSP_DirectoryGroup.KeyAsURLPart : string;
  39894. begin
  39895. Result:=TODataObject.MakeKeyString(Id);
  39896. end;
  39897. Function TSP_DirectoryGroup.Members(AService: TODataService) : TSP_DirectoryLinkCollection;
  39898. begin
  39899. Result:=TSP_DirectoryLinkCollection(GetContainedSingleTon(AService,'Members', TSP_DirectoryLinkCollection));
  39900. end;
  39901. Function TSP_DirectoryGroup.Owners(AService: TODataService) : TSP_DirectoryLinkCollection;
  39902. begin
  39903. Result:=TSP_DirectoryLinkCollection(GetContainedSingleTon(AService,'Owners', TSP_DirectoryLinkCollection));
  39904. end;
  39905. { --------------------------------------------------------------------
  39906. TSP_DirectoryLinkCollection
  39907. --------------------------------------------------------------------}
  39908. Class Function TSP_DirectoryLinkCollection.ObjectRestKind : String;
  39909. begin
  39910. Result:='LinkCollection';
  39911. end;
  39912. Procedure TSP_DirectoryLinkCollection.SetCount(AIndex: Integer; const AValue: TInt32);
  39913. begin
  39914. If (FCount=AValue) then exit;
  39915. FCount:=AValue;
  39916. MarkPropertyChanged(AIndex);
  39917. end;
  39918. Procedure TSP_DirectoryLinkCollection.SetOffset(AIndex: Integer; const AValue: TInt32);
  39919. begin
  39920. If (FOffset=AValue) then exit;
  39921. FOffset:=AValue;
  39922. MarkPropertyChanged(AIndex);
  39923. end;
  39924. Procedure TSP_DirectoryLinkCollection.SetTotalCount(AIndex: Integer; const AValue: TInt32);
  39925. begin
  39926. If (FTotalCount=AValue) then exit;
  39927. FTotalCount:=AValue;
  39928. MarkPropertyChanged(AIndex);
  39929. end;
  39930. Function TSP_DirectoryLinkCollection.KeyAsURLPart : string;
  39931. begin
  39932. Result:=IntToStr(Count);
  39933. end;
  39934. { --------------------------------------------------------------------
  39935. TSP_DirectoryMembershipResult
  39936. --------------------------------------------------------------------}
  39937. Class Function TSP_DirectoryMembershipResult.ObjectRestKind : String;
  39938. begin
  39939. Result:='MembershipResult';
  39940. end;
  39941. Procedure TSP_DirectoryMembershipResult.SetId4a81de82eeb94d6080ea5bf63e27023a(AIndex: Integer; const AValue: string);
  39942. begin
  39943. If (FId4a81de82eeb94d6080ea5bf63e27023a=AValue) then exit;
  39944. FId4a81de82eeb94d6080ea5bf63e27023a:=AValue;
  39945. MarkPropertyChanged(AIndex);
  39946. end;
  39947. Procedure TSP_DirectoryMembershipResult.SetGroupsList(AIndex: Integer; const AValue: TGuidStringArray);
  39948. begin
  39949. If (FGroupsList=AValue) then exit;
  39950. FGroupsList:=AValue;
  39951. MarkPropertyChanged(AIndex);
  39952. end;
  39953. {$IFDEF VER2_6}
  39954. Procedure TSP_DirectoryMembershipResult.SetArrayLength(const AName: String; ALength: Longint);
  39955. begin
  39956. Case aName of
  39957. 'groupslist' : SetLength(FGroupsList,aLength);
  39958. else
  39959. inherited SetArrayLength(aName,ALength);
  39960. end;
  39961. end;
  39962. {$ENDIF VER2_6}
  39963. Function TSP_DirectoryMembershipResult.KeyAsURLPart : string;
  39964. begin
  39965. Result:=TODataObject.MakeKeyString(Id4a81de82eeb94d6080ea5bf63e27023a);
  39966. end;
  39967. { --------------------------------------------------------------------
  39968. TSP_DirectoryMembersInfo
  39969. --------------------------------------------------------------------}
  39970. Class Function TSP_DirectoryMembersInfo.ObjectRestKind : String;
  39971. begin
  39972. Result:='MembersInfo';
  39973. end;
  39974. Procedure TSP_DirectoryMembersInfo.SetMemberNames(AIndex: Integer; const AValue: TStringArray);
  39975. begin
  39976. If (FMemberNames=AValue) then exit;
  39977. FMemberNames:=AValue;
  39978. MarkPropertyChanged(AIndex);
  39979. end;
  39980. Procedure TSP_DirectoryMembersInfo.SetTotalCount(AIndex: Integer; const AValue: TInt32);
  39981. begin
  39982. If (FTotalCount=AValue) then exit;
  39983. FTotalCount:=AValue;
  39984. MarkPropertyChanged(AIndex);
  39985. end;
  39986. {$IFDEF VER2_6}
  39987. Procedure TSP_DirectoryMembersInfo.SetArrayLength(const AName: String; ALength: Longint);
  39988. begin
  39989. Case aName of
  39990. 'membernames' : SetLength(FMemberNames,aLength);
  39991. else
  39992. inherited SetArrayLength(aName,ALength);
  39993. end;
  39994. end;
  39995. {$ENDIF VER2_6}
  39996. Function TSP_DirectoryMembersInfo.KeyAsURLPart : string;
  39997. begin
  39998. Result:=IntToStr(TotalCount);
  39999. end;
  40000. { --------------------------------------------------------------------
  40001. TSP_DirectoryMyGroupsResult
  40002. --------------------------------------------------------------------}
  40003. Class Function TSP_DirectoryMyGroupsResult.ObjectRestKind : String;
  40004. begin
  40005. Result:='MyGroupsResult';
  40006. end;
  40007. Procedure TSP_DirectoryMyGroupsResult.SetHasNext(AIndex: Integer; const AValue: boolean);
  40008. begin
  40009. If (FHasNext=AValue) then exit;
  40010. FHasNext:=AValue;
  40011. MarkPropertyChanged(AIndex);
  40012. end;
  40013. Procedure TSP_DirectoryMyGroupsResult.SetHasPrev(AIndex: Integer; const AValue: boolean);
  40014. begin
  40015. If (FHasPrev=AValue) then exit;
  40016. FHasPrev:=AValue;
  40017. MarkPropertyChanged(AIndex);
  40018. end;
  40019. Function TSP_DirectoryMyGroupsResult.KeyAsURLPart : string;
  40020. begin
  40021. Result:=BoolToStr(HasNext,'true','false');
  40022. end;
  40023. { --------------------------------------------------------------------
  40024. TSP_DirectoryPropertyDictionary
  40025. --------------------------------------------------------------------}
  40026. Class Function TSP_DirectoryPropertyDictionary.ObjectRestKind : String;
  40027. begin
  40028. Result:='PropertyDictionary';
  40029. end;
  40030. Procedure TSP_DirectoryPropertyDictionary.SetId4a81de82eeb94d6080ea5bf63e27023a(AIndex: Integer; const AValue: string);
  40031. begin
  40032. If (FId4a81de82eeb94d6080ea5bf63e27023a=AValue) then exit;
  40033. FId4a81de82eeb94d6080ea5bf63e27023a:=AValue;
  40034. MarkPropertyChanged(AIndex);
  40035. end;
  40036. Function TSP_DirectoryPropertyDictionary.KeyAsURLPart : string;
  40037. begin
  40038. Result:=TODataObject.MakeKeyString(Id4a81de82eeb94d6080ea5bf63e27023a);
  40039. end;
  40040. { --------------------------------------------------------------------
  40041. TSP_Directory_Property
  40042. --------------------------------------------------------------------}
  40043. Class Function TSP_Directory_Property.ObjectRestKind : String;
  40044. begin
  40045. Result:='Property';
  40046. end;
  40047. Procedure TSP_Directory_Property.SetIsInitialized(AIndex: Integer; const AValue: boolean);
  40048. begin
  40049. If (FIsInitialized=AValue) then exit;
  40050. FIsInitialized:=AValue;
  40051. MarkPropertyChanged(AIndex);
  40052. end;
  40053. Procedure TSP_Directory_Property.SetIsModified(AIndex: Integer; const AValue: boolean);
  40054. begin
  40055. If (FIsModified=AValue) then exit;
  40056. FIsModified:=AValue;
  40057. MarkPropertyChanged(AIndex);
  40058. end;
  40059. Procedure TSP_Directory_Property.SetName(AIndex: Integer; const AValue: string);
  40060. begin
  40061. If (FName=AValue) then exit;
  40062. FName:=AValue;
  40063. MarkPropertyChanged(AIndex);
  40064. end;
  40065. Procedure TSP_Directory_Property.SetValue(AIndex: Integer; const AValue: string);
  40066. begin
  40067. If (FValue=AValue) then exit;
  40068. FValue:=AValue;
  40069. MarkPropertyChanged(AIndex);
  40070. end;
  40071. Function TSP_Directory_Property.KeyAsURLPart : string;
  40072. begin
  40073. Result:=TODataObject.MakeKeyString(Name);
  40074. end;
  40075. { --------------------------------------------------------------------
  40076. TSP_DirectorySPHelper
  40077. --------------------------------------------------------------------}
  40078. Class Function TSP_DirectorySPHelper.ObjectRestKind : String;
  40079. begin
  40080. Result:='SPHelper';
  40081. end;
  40082. Procedure TSP_DirectorySPHelper.SetId4a81de82eeb94d6080ea5bf63e27023a(AIndex: Integer; const AValue: string);
  40083. begin
  40084. If (FId4a81de82eeb94d6080ea5bf63e27023a=AValue) then exit;
  40085. FId4a81de82eeb94d6080ea5bf63e27023a:=AValue;
  40086. MarkPropertyChanged(AIndex);
  40087. end;
  40088. Function TSP_DirectorySPHelper.KeyAsURLPart : string;
  40089. begin
  40090. Result:=TODataObject.MakeKeyString(Id4a81de82eeb94d6080ea5bf63e27023a);
  40091. end;
  40092. { --------------------------------------------------------------------
  40093. TSP_DirectoryUserRequestSchema
  40094. --------------------------------------------------------------------}
  40095. Class Function TSP_DirectoryUserRequestSchema.ObjectRestKind : String;
  40096. begin
  40097. Result:='UserRequestSchema';
  40098. end;
  40099. Procedure TSP_DirectoryUserRequestSchema.SetId4a81de82eeb94d6080ea5bf63e27023a(AIndex: Integer; const AValue: string);
  40100. begin
  40101. If (FId4a81de82eeb94d6080ea5bf63e27023a=AValue) then exit;
  40102. FId4a81de82eeb94d6080ea5bf63e27023a:=AValue;
  40103. MarkPropertyChanged(AIndex);
  40104. end;
  40105. Procedure TSP_DirectoryUserRequestSchema.SetLinks(AIndex: Integer; const AValue: TSP_DirectoryLinkRequestSchemaArray);
  40106. begin
  40107. If (FLinks=AValue) then exit;
  40108. FLinks:=AValue;
  40109. MarkPropertyChanged(AIndex);
  40110. end;
  40111. Procedure TSP_DirectoryUserRequestSchema.SetProperties(AIndex: Integer; const AValue: TStringArray);
  40112. begin
  40113. If (FProperties=AValue) then exit;
  40114. FProperties:=AValue;
  40115. MarkPropertyChanged(AIndex);
  40116. end;
  40117. Procedure TSP_DirectoryUserRequestSchema.SetResources(AIndex: Integer; const AValue: TStringArray);
  40118. begin
  40119. If (FResources=AValue) then exit;
  40120. FResources:=AValue;
  40121. MarkPropertyChanged(AIndex);
  40122. end;
  40123. {$IFDEF VER2_6}
  40124. Procedure TSP_DirectoryUserRequestSchema.SetArrayLength(const AName: String; ALength: Longint);
  40125. begin
  40126. Case aName of
  40127. 'links' : SetLength(FLinks,aLength);
  40128. 'properties' : SetLength(FProperties,aLength);
  40129. 'resources' : SetLength(FResources,aLength);
  40130. else
  40131. inherited SetArrayLength(aName,ALength);
  40132. end;
  40133. end;
  40134. {$ENDIF VER2_6}
  40135. Function TSP_DirectoryUserRequestSchema.KeyAsURLPart : string;
  40136. begin
  40137. Result:=TODataObject.MakeKeyString(Id4a81de82eeb94d6080ea5bf63e27023a);
  40138. end;
  40139. { --------------------------------------------------------------------
  40140. TSP_DirectoryUser
  40141. --------------------------------------------------------------------}
  40142. Class Function TSP_DirectoryUser.ObjectRestKind : String;
  40143. begin
  40144. Result:='User';
  40145. end;
  40146. Procedure TSP_DirectoryUser.SetAboutMe(AIndex: Integer; const AValue: string);
  40147. begin
  40148. If (FAboutMe=AValue) then exit;
  40149. FAboutMe:=AValue;
  40150. MarkPropertyChanged(AIndex);
  40151. end;
  40152. Procedure TSP_DirectoryUser.SetAlias(AIndex: Integer; const AValue: string);
  40153. begin
  40154. If (FAlias=AValue) then exit;
  40155. FAlias:=AValue;
  40156. MarkPropertyChanged(AIndex);
  40157. end;
  40158. Procedure TSP_DirectoryUser.SetBirthday(AIndex: Integer; const AValue: TDateTime);
  40159. begin
  40160. If (FBirthday=AValue) then exit;
  40161. FBirthday:=AValue;
  40162. MarkPropertyChanged(AIndex);
  40163. end;
  40164. Procedure TSP_DirectoryUser.SetDisplayName(AIndex: Integer; const AValue: string);
  40165. begin
  40166. If (FDisplayName=AValue) then exit;
  40167. FDisplayName:=AValue;
  40168. MarkPropertyChanged(AIndex);
  40169. end;
  40170. Procedure TSP_DirectoryUser.SetHireDate(AIndex: Integer; const AValue: TDateTime);
  40171. begin
  40172. If (FHireDate=AValue) then exit;
  40173. FHireDate:=AValue;
  40174. MarkPropertyChanged(AIndex);
  40175. end;
  40176. Procedure TSP_DirectoryUser.SetId(AIndex: Integer; const AValue: TGUIDString);
  40177. begin
  40178. If (FId=AValue) then exit;
  40179. FId:=AValue;
  40180. MarkPropertyChanged(AIndex);
  40181. end;
  40182. Procedure TSP_DirectoryUser.SetInterests(AIndex: Integer; const AValue: TStringArray);
  40183. begin
  40184. If (FInterests=AValue) then exit;
  40185. FInterests:=AValue;
  40186. MarkPropertyChanged(AIndex);
  40187. end;
  40188. Procedure TSP_DirectoryUser.SetMail(AIndex: Integer; const AValue: string);
  40189. begin
  40190. If (FMail=AValue) then exit;
  40191. FMail:=AValue;
  40192. MarkPropertyChanged(AIndex);
  40193. end;
  40194. Procedure TSP_DirectoryUser.SetMySite(AIndex: Integer; const AValue: string);
  40195. begin
  40196. If (FMySite=AValue) then exit;
  40197. FMySite:=AValue;
  40198. MarkPropertyChanged(AIndex);
  40199. end;
  40200. Procedure TSP_DirectoryUser.SetPastProjects(AIndex: Integer; const AValue: TStringArray);
  40201. begin
  40202. If (FPastProjects=AValue) then exit;
  40203. FPastProjects:=AValue;
  40204. MarkPropertyChanged(AIndex);
  40205. end;
  40206. Procedure TSP_DirectoryUser.SetPreferredName(AIndex: Integer; const AValue: string);
  40207. begin
  40208. If (FPreferredName=AValue) then exit;
  40209. FPreferredName:=AValue;
  40210. MarkPropertyChanged(AIndex);
  40211. end;
  40212. Procedure TSP_DirectoryUser.SetPrincipalName(AIndex: Integer; const AValue: string);
  40213. begin
  40214. If (FPrincipalName=AValue) then exit;
  40215. FPrincipalName:=AValue;
  40216. MarkPropertyChanged(AIndex);
  40217. end;
  40218. Procedure TSP_DirectoryUser.SetResponsibilities(AIndex: Integer; const AValue: TStringArray);
  40219. begin
  40220. If (FResponsibilities=AValue) then exit;
  40221. FResponsibilities:=AValue;
  40222. MarkPropertyChanged(AIndex);
  40223. end;
  40224. Procedure TSP_DirectoryUser.SetSchools(AIndex: Integer; const AValue: TStringArray);
  40225. begin
  40226. If (FSchools=AValue) then exit;
  40227. FSchools:=AValue;
  40228. MarkPropertyChanged(AIndex);
  40229. end;
  40230. Procedure TSP_DirectoryUser.SetSkills(AIndex: Integer; const AValue: TStringArray);
  40231. begin
  40232. If (FSkills=AValue) then exit;
  40233. FSkills:=AValue;
  40234. MarkPropertyChanged(AIndex);
  40235. end;
  40236. Procedure TSP_DirectoryUser.SetTags(AIndex: Integer; const AValue: TStringArray);
  40237. begin
  40238. If (FTags=AValue) then exit;
  40239. FTags:=AValue;
  40240. MarkPropertyChanged(AIndex);
  40241. end;
  40242. {$IFDEF VER2_6}
  40243. Procedure TSP_DirectoryUser.SetArrayLength(const AName: String; ALength: Longint);
  40244. begin
  40245. Case aName of
  40246. 'interests' : SetLength(FInterests,aLength);
  40247. 'pastprojects' : SetLength(FPastProjects,aLength);
  40248. 'responsibilities' : SetLength(FResponsibilities,aLength);
  40249. 'schools' : SetLength(FSchools,aLength);
  40250. 'skills' : SetLength(FSkills,aLength);
  40251. 'tags' : SetLength(FTags,aLength);
  40252. else
  40253. inherited SetArrayLength(aName,ALength);
  40254. end;
  40255. end;
  40256. {$ENDIF VER2_6}
  40257. Function TSP_DirectoryUser.KeyAsURLPart : string;
  40258. begin
  40259. Result:=TODataObject.MakeKeyString(Id);
  40260. end;
  40261. Function TSP_DirectoryUser.Properties(AService: TODataService) : TSP_DirectoryPropertyDictionary;
  40262. begin
  40263. Result:=TSP_DirectoryPropertyDictionary(GetContainedSingleTon(AService,'Properties', TSP_DirectoryPropertyDictionary));
  40264. end;
  40265. { --------------------------------------------------------------------
  40266. TMS_FileServicesUserInformation
  40267. --------------------------------------------------------------------}
  40268. Class Function TMS_FileServicesUserInformation.ObjectRestKind : String;
  40269. begin
  40270. Result:='UserInformation';
  40271. end;
  40272. Procedure TMS_FileServicesUserInformation.SetId(AIndex: Integer; const AValue: string);
  40273. begin
  40274. If (FId=AValue) then exit;
  40275. FId:=AValue;
  40276. MarkPropertyChanged(AIndex);
  40277. end;
  40278. Procedure TMS_FileServicesUserInformation.SetName(AIndex: Integer; const AValue: string);
  40279. begin
  40280. If (FName=AValue) then exit;
  40281. FName:=AValue;
  40282. MarkPropertyChanged(AIndex);
  40283. end;
  40284. Procedure TMS_FileServicesUserInformation.SetPuid(AIndex: Integer; const AValue: string);
  40285. begin
  40286. If (FPuid=AValue) then exit;
  40287. FPuid:=AValue;
  40288. MarkPropertyChanged(AIndex);
  40289. end;
  40290. { --------------------------------------------------------------------
  40291. TMS_FileServicesFileSystemItem
  40292. --------------------------------------------------------------------}
  40293. Class Function TMS_FileServicesFileSystemItem.ObjectRestKind : String;
  40294. begin
  40295. Result:='FileSystemItem';
  40296. end;
  40297. Procedure TMS_FileServicesFileSystemItem.SetCreatedBy(AIndex: Integer; const AValue: TMS_FileServicesUserInformation);
  40298. begin
  40299. If (FCreatedBy=AValue) then exit;
  40300. FCreatedBy:=AValue;
  40301. MarkPropertyChanged(AIndex);
  40302. end;
  40303. Procedure TMS_FileServicesFileSystemItem.SetETag(AIndex: Integer; const AValue: string);
  40304. begin
  40305. If (FETag=AValue) then exit;
  40306. FETag:=AValue;
  40307. MarkPropertyChanged(AIndex);
  40308. end;
  40309. Procedure TMS_FileServicesFileSystemItem.SetId(AIndex: Integer; const AValue: string);
  40310. begin
  40311. If (FId=AValue) then exit;
  40312. FId:=AValue;
  40313. MarkPropertyChanged(AIndex);
  40314. end;
  40315. Procedure TMS_FileServicesFileSystemItem.SetLastModifiedBy(AIndex: Integer; const AValue: TMS_FileServicesUserInformation);
  40316. begin
  40317. If (FLastModifiedBy=AValue) then exit;
  40318. FLastModifiedBy:=AValue;
  40319. MarkPropertyChanged(AIndex);
  40320. end;
  40321. Procedure TMS_FileServicesFileSystemItem.SetName(AIndex: Integer; const AValue: string);
  40322. begin
  40323. If (FName=AValue) then exit;
  40324. FName:=AValue;
  40325. MarkPropertyChanged(AIndex);
  40326. end;
  40327. Procedure TMS_FileServicesFileSystemItem.SetSize(AIndex: Integer; const AValue: TInt32);
  40328. begin
  40329. If (FSize=AValue) then exit;
  40330. FSize:=AValue;
  40331. MarkPropertyChanged(AIndex);
  40332. end;
  40333. Procedure TMS_FileServicesFileSystemItem.SetTimeCreated(AIndex: Integer; const AValue: TDateTime);
  40334. begin
  40335. If (FTimeCreated=AValue) then exit;
  40336. FTimeCreated:=AValue;
  40337. MarkPropertyChanged(AIndex);
  40338. end;
  40339. Procedure TMS_FileServicesFileSystemItem.SetTimeLastModified(AIndex: Integer; const AValue: TDateTime);
  40340. begin
  40341. If (FTimeLastModified=AValue) then exit;
  40342. FTimeLastModified:=AValue;
  40343. MarkPropertyChanged(AIndex);
  40344. end;
  40345. Procedure TMS_FileServicesFileSystemItem.SetUrl(AIndex: Integer; const AValue: string);
  40346. begin
  40347. If (FUrl=AValue) then exit;
  40348. FUrl:=AValue;
  40349. MarkPropertyChanged(AIndex);
  40350. end;
  40351. Function TMS_FileServicesFileSystemItem.KeyAsURLPart : string;
  40352. begin
  40353. Result:=TODataObject.MakeKeyString(Id);
  40354. end;
  40355. { --------------------------------------------------------------------
  40356. TMS_FileServices_File
  40357. --------------------------------------------------------------------}
  40358. Class Function TMS_FileServices_File.ObjectRestKind : String;
  40359. begin
  40360. Result:='File';
  40361. end;
  40362. { --------------------------------------------------------------------
  40363. TMS_FileServicesFileService
  40364. --------------------------------------------------------------------}
  40365. Class Function TMS_FileServicesFileService.ObjectRestKind : String;
  40366. begin
  40367. Result:='FileService';
  40368. end;
  40369. Procedure TMS_FileServicesFileService.SetId4a81de82eeb94d6080ea5bf63e27023a(AIndex: Integer; const AValue: string);
  40370. begin
  40371. If (FId4a81de82eeb94d6080ea5bf63e27023a=AValue) then exit;
  40372. FId4a81de82eeb94d6080ea5bf63e27023a:=AValue;
  40373. MarkPropertyChanged(AIndex);
  40374. end;
  40375. Function TMS_FileServicesFileService.KeyAsURLPart : string;
  40376. begin
  40377. Result:=TODataObject.MakeKeyString(Id4a81de82eeb94d6080ea5bf63e27023a);
  40378. end;
  40379. { --------------------------------------------------------------------
  40380. TMS_FileServicesFolder
  40381. --------------------------------------------------------------------}
  40382. Class Function TMS_FileServicesFolder.ObjectRestKind : String;
  40383. begin
  40384. Result:='Folder';
  40385. end;
  40386. Procedure TMS_FileServicesFolder.SetChildrenCount(AIndex: Integer; const AValue: TInt32);
  40387. begin
  40388. If (FChildrenCount=AValue) then exit;
  40389. FChildrenCount:=AValue;
  40390. MarkPropertyChanged(AIndex);
  40391. end;
  40392. Function TMS_FileServicesFolder.Children(AService: TODataService) : TMS_FileServicesFileSystemItem;
  40393. begin
  40394. Result:=TMS_FileServicesFileSystemItem(GetContainedSingleTon(AService,'Children', TMS_FileServicesFileSystemItem));
  40395. end;
  40396. { --------------------------------------------------------------------
  40397. TMS_FileServicesMeFileService
  40398. --------------------------------------------------------------------}
  40399. Class Function TMS_FileServicesMeFileService.ObjectRestKind : String;
  40400. begin
  40401. Result:='MeFileService';
  40402. end;
  40403. Procedure TMS_FileServicesMeFileService.SetId4a81de82eeb94d6080ea5bf63e27023a(AIndex: Integer; const AValue: string);
  40404. begin
  40405. If (FId4a81de82eeb94d6080ea5bf63e27023a=AValue) then exit;
  40406. FId4a81de82eeb94d6080ea5bf63e27023a:=AValue;
  40407. MarkPropertyChanged(AIndex);
  40408. end;
  40409. Function TMS_FileServicesMeFileService.KeyAsURLPart : string;
  40410. begin
  40411. Result:=TODataObject.MakeKeyString(Id4a81de82eeb94d6080ea5bf63e27023a);
  40412. end;
  40413. { --------------------------------------------------------------------
  40414. TSP_Directory_ProviderDirectoryObjectData
  40415. --------------------------------------------------------------------}
  40416. Class Function TSP_Directory_ProviderDirectoryObjectData.ObjectRestKind : String;
  40417. begin
  40418. Result:='DirectoryObjectData';
  40419. end;
  40420. Procedure TSP_Directory_ProviderDirectoryObjectData.SetChangeMarker(AIndex: Integer; const AValue: string);
  40421. begin
  40422. If (FChangeMarker=AValue) then exit;
  40423. FChangeMarker:=AValue;
  40424. MarkPropertyChanged(AIndex);
  40425. end;
  40426. Procedure TSP_Directory_ProviderDirectoryObjectData.SetDirectoryObjectSubType(AIndex: Integer; const AValue: TInt32);
  40427. begin
  40428. If (FDirectoryObjectSubType=AValue) then exit;
  40429. FDirectoryObjectSubType:=AValue;
  40430. MarkPropertyChanged(AIndex);
  40431. end;
  40432. Procedure TSP_Directory_ProviderDirectoryObjectData.SetDirectoryObjectType(AIndex: Integer; const AValue: TInt32);
  40433. begin
  40434. If (FDirectoryObjectType=AValue) then exit;
  40435. FDirectoryObjectType:=AValue;
  40436. MarkPropertyChanged(AIndex);
  40437. end;
  40438. Procedure TSP_Directory_ProviderDirectoryObjectData.SetId(AIndex: Integer; const AValue: TGUIDString);
  40439. begin
  40440. If (FId=AValue) then exit;
  40441. FId:=AValue;
  40442. MarkPropertyChanged(AIndex);
  40443. end;
  40444. Procedure TSP_Directory_ProviderDirectoryObjectData.SetIsNew(AIndex: Integer; const AValue: boolean);
  40445. begin
  40446. If (FIsNew=AValue) then exit;
  40447. FIsNew:=AValue;
  40448. MarkPropertyChanged(AIndex);
  40449. end;
  40450. Procedure TSP_Directory_ProviderDirectoryObjectData.SetLastModifiedTime(AIndex: Integer; const AValue: TDateTime);
  40451. begin
  40452. If (FLastModifiedTime=AValue) then exit;
  40453. FLastModifiedTime:=AValue;
  40454. MarkPropertyChanged(AIndex);
  40455. end;
  40456. Procedure TSP_Directory_ProviderDirectoryObjectData.SetTenantContextId(AIndex: Integer; const AValue: TGUIDString);
  40457. begin
  40458. If (FTenantContextId=AValue) then exit;
  40459. FTenantContextId:=AValue;
  40460. MarkPropertyChanged(AIndex);
  40461. end;
  40462. Procedure TSP_Directory_ProviderDirectoryObjectData.SetVersion(AIndex: Integer; const AValue: int64);
  40463. begin
  40464. If (FVersion=AValue) then exit;
  40465. FVersion:=AValue;
  40466. MarkPropertyChanged(AIndex);
  40467. end;
  40468. { --------------------------------------------------------------------
  40469. TSP_Directory_ProviderSchemaData
  40470. --------------------------------------------------------------------}
  40471. Class Function TSP_Directory_ProviderSchemaData.ObjectRestKind : String;
  40472. begin
  40473. Result:='SchemaData';
  40474. end;
  40475. Procedure TSP_Directory_ProviderSchemaData.SetDelayLoad(AIndex: Integer; const AValue: boolean);
  40476. begin
  40477. If (FDelayLoad=AValue) then exit;
  40478. FDelayLoad:=AValue;
  40479. MarkPropertyChanged(AIndex);
  40480. end;
  40481. Procedure TSP_Directory_ProviderSchemaData.SetIsInitialized(AIndex: Integer; const AValue: boolean);
  40482. begin
  40483. If (FIsInitialized=AValue) then exit;
  40484. FIsInitialized:=AValue;
  40485. MarkPropertyChanged(AIndex);
  40486. end;
  40487. Procedure TSP_Directory_ProviderSchemaData.SetName(AIndex: Integer; const AValue: string);
  40488. begin
  40489. If (FName=AValue) then exit;
  40490. FName:=AValue;
  40491. MarkPropertyChanged(AIndex);
  40492. end;
  40493. Procedure TSP_Directory_ProviderSchemaData.SetPrivacy(AIndex: Integer; const AValue: TInt32);
  40494. begin
  40495. If (FPrivacy=AValue) then exit;
  40496. FPrivacy:=AValue;
  40497. MarkPropertyChanged(AIndex);
  40498. end;
  40499. { --------------------------------------------------------------------
  40500. TSP_Directory_ProviderPropertyData
  40501. --------------------------------------------------------------------}
  40502. Class Function TSP_Directory_ProviderPropertyData.ObjectRestKind : String;
  40503. begin
  40504. Result:='PropertyData';
  40505. end;
  40506. Procedure TSP_Directory_ProviderPropertyData.SetValue(AIndex: Integer; const AValue: TBinary);
  40507. begin
  40508. If (FValue=AValue) then exit;
  40509. FValue:=AValue;
  40510. MarkPropertyChanged(AIndex);
  40511. end;
  40512. { --------------------------------------------------------------------
  40513. TSP_Directory_ProviderRelationData
  40514. --------------------------------------------------------------------}
  40515. Class Function TSP_Directory_ProviderRelationData.ObjectRestKind : String;
  40516. begin
  40517. Result:='RelationData';
  40518. end;
  40519. Procedure TSP_Directory_ProviderRelationData.SetValue(AIndex: Integer; const AValue: TBinary);
  40520. begin
  40521. If (FValue=AValue) then exit;
  40522. FValue:=AValue;
  40523. MarkPropertyChanged(AIndex);
  40524. end;
  40525. { --------------------------------------------------------------------
  40526. TSP_Directory_ProviderRelationSetData
  40527. --------------------------------------------------------------------}
  40528. Class Function TSP_Directory_ProviderRelationSetData.ObjectRestKind : String;
  40529. begin
  40530. Result:='RelationSetData';
  40531. end;
  40532. Procedure TSP_Directory_ProviderRelationSetData.SetTotalCount(AIndex: Integer; const AValue: TInt32);
  40533. begin
  40534. If (FTotalCount=AValue) then exit;
  40535. FTotalCount:=AValue;
  40536. MarkPropertyChanged(AIndex);
  40537. end;
  40538. { --------------------------------------------------------------------
  40539. TSP_Directory_ProviderResourceData
  40540. --------------------------------------------------------------------}
  40541. Class Function TSP_Directory_ProviderResourceData.ObjectRestKind : String;
  40542. begin
  40543. Result:='ResourceData';
  40544. end;
  40545. Procedure TSP_Directory_ProviderResourceData.SetErrorCode(AIndex: Integer; const AValue: TInt32);
  40546. begin
  40547. If (FErrorCode=AValue) then exit;
  40548. FErrorCode:=AValue;
  40549. MarkPropertyChanged(AIndex);
  40550. end;
  40551. Procedure TSP_Directory_ProviderResourceData.SetErrorMessage(AIndex: Integer; const AValue: string);
  40552. begin
  40553. If (FErrorMessage=AValue) then exit;
  40554. FErrorMessage:=AValue;
  40555. MarkPropertyChanged(AIndex);
  40556. end;
  40557. Procedure TSP_Directory_ProviderResourceData.SetState(AIndex: Integer; const AValue: TInt32);
  40558. begin
  40559. If (FState=AValue) then exit;
  40560. FState:=AValue;
  40561. MarkPropertyChanged(AIndex);
  40562. end;
  40563. Procedure TSP_Directory_ProviderResourceData.SetValue(AIndex: Integer; const AValue: TBinary);
  40564. begin
  40565. If (FValue=AValue) then exit;
  40566. FValue:=AValue;
  40567. MarkPropertyChanged(AIndex);
  40568. end;
  40569. { --------------------------------------------------------------------
  40570. TSP_Directory_ProviderStateData
  40571. --------------------------------------------------------------------}
  40572. Class Function TSP_Directory_ProviderStateData.ObjectRestKind : String;
  40573. begin
  40574. Result:='StateData';
  40575. end;
  40576. Procedure TSP_Directory_ProviderStateData.SetAdapterName(AIndex: Integer; const AValue: string);
  40577. begin
  40578. If (FAdapterName=AValue) then exit;
  40579. FAdapterName:=AValue;
  40580. MarkPropertyChanged(AIndex);
  40581. end;
  40582. Procedure TSP_Directory_ProviderStateData.SetValue(AIndex: Integer; const AValue: TBinary);
  40583. begin
  40584. If (FValue=AValue) then exit;
  40585. FValue:=AValue;
  40586. MarkPropertyChanged(AIndex);
  40587. end;
  40588. { --------------------------------------------------------------------
  40589. TSP_Directory_ProviderSharePointDirectoryProvider
  40590. --------------------------------------------------------------------}
  40591. Class Function TSP_Directory_ProviderSharePointDirectoryProvider.ObjectRestKind : String;
  40592. begin
  40593. Result:='SharePointDirectoryProvider';
  40594. end;
  40595. Procedure TSP_Directory_ProviderSharePointDirectoryProvider.SetId4a81de82eeb94d6080ea5bf63e27023a(AIndex: Integer; const AValue: string);
  40596. begin
  40597. If (FId4a81de82eeb94d6080ea5bf63e27023a=AValue) then exit;
  40598. FId4a81de82eeb94d6080ea5bf63e27023a:=AValue;
  40599. MarkPropertyChanged(AIndex);
  40600. end;
  40601. Function TSP_Directory_ProviderSharePointDirectoryProvider.KeyAsURLPart : string;
  40602. begin
  40603. Result:=TODataObject.MakeKeyString(Id4a81de82eeb94d6080ea5bf63e27023a);
  40604. end;
  40605. { --------------------------------------------------------------------
  40606. TSP_MicrofeedMicroBlogEntityCollection
  40607. --------------------------------------------------------------------}
  40608. Class Function TSP_MicrofeedMicroBlogEntityCollection.ObjectRestKind : String;
  40609. begin
  40610. Result:='MicroBlogEntityCollection';
  40611. end;
  40612. Procedure TSP_MicrofeedMicroBlogEntityCollection.SetItems(AIndex: Integer; const AValue: TSP_MicrofeedMicroBlogEntityArray);
  40613. begin
  40614. If (FItems=AValue) then exit;
  40615. FItems:=AValue;
  40616. MarkPropertyChanged(AIndex);
  40617. end;
  40618. {$IFDEF VER2_6}
  40619. Procedure TSP_MicrofeedMicroBlogEntityCollection.SetArrayLength(const AName: String; ALength: Longint);
  40620. begin
  40621. Case aName of
  40622. 'items' : SetLength(FItems,aLength);
  40623. else
  40624. inherited SetArrayLength(aName,ALength);
  40625. end;
  40626. end;
  40627. {$ENDIF VER2_6}
  40628. { --------------------------------------------------------------------
  40629. TSP_MicrofeedMicroBlogEntity
  40630. --------------------------------------------------------------------}
  40631. Class Function TSP_MicrofeedMicroBlogEntity.ObjectRestKind : String;
  40632. begin
  40633. Result:='MicroBlogEntity';
  40634. end;
  40635. Procedure TSP_MicrofeedMicroBlogEntity.SetAccountName(AIndex: Integer; const AValue: string);
  40636. begin
  40637. If (FAccountName=AValue) then exit;
  40638. FAccountName:=AValue;
  40639. MarkPropertyChanged(AIndex);
  40640. end;
  40641. Procedure TSP_MicrofeedMicroBlogEntity.SetCanFollow(AIndex: Integer; const AValue: boolean);
  40642. begin
  40643. If (FCanFollow=AValue) then exit;
  40644. FCanFollow:=AValue;
  40645. MarkPropertyChanged(AIndex);
  40646. end;
  40647. Procedure TSP_MicrofeedMicroBlogEntity.SetDescription(AIndex: Integer; const AValue: string);
  40648. begin
  40649. If (FDescription=AValue) then exit;
  40650. FDescription:=AValue;
  40651. MarkPropertyChanged(AIndex);
  40652. end;
  40653. Procedure TSP_MicrofeedMicroBlogEntity.SetDisplayName(AIndex: Integer; const AValue: string);
  40654. begin
  40655. If (FDisplayName=AValue) then exit;
  40656. FDisplayName:=AValue;
  40657. MarkPropertyChanged(AIndex);
  40658. end;
  40659. Procedure TSP_MicrofeedMicroBlogEntity.SetEmail(AIndex: Integer; const AValue: string);
  40660. begin
  40661. If (FEmail=AValue) then exit;
  40662. FEmail:=AValue;
  40663. MarkPropertyChanged(AIndex);
  40664. end;
  40665. Procedure TSP_MicrofeedMicroBlogEntity.SetEntityType(AIndex: Integer; const AValue: TInt32);
  40666. begin
  40667. If (FEntityType=AValue) then exit;
  40668. FEntityType:=AValue;
  40669. MarkPropertyChanged(AIndex);
  40670. end;
  40671. Procedure TSP_MicrofeedMicroBlogEntity.SetEntityURI(AIndex: Integer; const AValue: string);
  40672. begin
  40673. If (FEntityURI=AValue) then exit;
  40674. FEntityURI:=AValue;
  40675. MarkPropertyChanged(AIndex);
  40676. end;
  40677. Procedure TSP_MicrofeedMicroBlogEntity.SetFollowedContentURI(AIndex: Integer; const AValue: string);
  40678. begin
  40679. If (FFollowedContentURI=AValue) then exit;
  40680. FFollowedContentURI:=AValue;
  40681. MarkPropertyChanged(AIndex);
  40682. end;
  40683. Procedure TSP_MicrofeedMicroBlogEntity.SetIdentifier(AIndex: Integer; const AValue: string);
  40684. begin
  40685. If (FIdentifier=AValue) then exit;
  40686. FIdentifier:=AValue;
  40687. MarkPropertyChanged(AIndex);
  40688. end;
  40689. Procedure TSP_MicrofeedMicroBlogEntity.SetIsFollowedByMe(AIndex: Integer; const AValue: boolean);
  40690. begin
  40691. If (FIsFollowedByMe=AValue) then exit;
  40692. FIsFollowedByMe:=AValue;
  40693. MarkPropertyChanged(AIndex);
  40694. end;
  40695. Procedure TSP_MicrofeedMicroBlogEntity.SetLatestPost(AIndex: Integer; const AValue: string);
  40696. begin
  40697. If (FLatestPost=AValue) then exit;
  40698. FLatestPost:=AValue;
  40699. MarkPropertyChanged(AIndex);
  40700. end;
  40701. Procedure TSP_MicrofeedMicroBlogEntity.SetLibraryName(AIndex: Integer; const AValue: string);
  40702. begin
  40703. If (FLibraryName=AValue) then exit;
  40704. FLibraryName:=AValue;
  40705. MarkPropertyChanged(AIndex);
  40706. end;
  40707. Procedure TSP_MicrofeedMicroBlogEntity.SetLibraryUri(AIndex: Integer; const AValue: string);
  40708. begin
  40709. If (FLibraryUri=AValue) then exit;
  40710. FLibraryUri:=AValue;
  40711. MarkPropertyChanged(AIndex);
  40712. end;
  40713. Procedure TSP_MicrofeedMicroBlogEntity.SetPersonalURI(AIndex: Integer; const AValue: string);
  40714. begin
  40715. If (FPersonalURI=AValue) then exit;
  40716. FPersonalURI:=AValue;
  40717. MarkPropertyChanged(AIndex);
  40718. end;
  40719. Procedure TSP_MicrofeedMicroBlogEntity.SetPictureURI(AIndex: Integer; const AValue: string);
  40720. begin
  40721. If (FPictureURI=AValue) then exit;
  40722. FPictureURI:=AValue;
  40723. MarkPropertyChanged(AIndex);
  40724. end;
  40725. Procedure TSP_MicrofeedMicroBlogEntity.SetStatus(AIndex: Integer; const AValue: TInt32);
  40726. begin
  40727. If (FStatus=AValue) then exit;
  40728. FStatus:=AValue;
  40729. MarkPropertyChanged(AIndex);
  40730. end;
  40731. Procedure TSP_MicrofeedMicroBlogEntity.SetTitle(AIndex: Integer; const AValue: string);
  40732. begin
  40733. If (FTitle=AValue) then exit;
  40734. FTitle:=AValue;
  40735. MarkPropertyChanged(AIndex);
  40736. end;
  40737. { --------------------------------------------------------------------
  40738. TSP_MicrofeedMicrofeedPostDefinition
  40739. --------------------------------------------------------------------}
  40740. Class Function TSP_MicrofeedMicrofeedPostDefinition.ObjectRestKind : String;
  40741. begin
  40742. Result:='MicrofeedPostDefinition';
  40743. end;
  40744. Procedure TSP_MicrofeedMicrofeedPostDefinition.SetCanDelete(AIndex: Integer; const AValue: boolean);
  40745. begin
  40746. If (FCanDelete=AValue) then exit;
  40747. FCanDelete:=AValue;
  40748. MarkPropertyChanged(AIndex);
  40749. end;
  40750. Procedure TSP_MicrofeedMicrofeedPostDefinition.SetCanFollowUp(AIndex: Integer; const AValue: boolean);
  40751. begin
  40752. If (FCanFollowUp=AValue) then exit;
  40753. FCanFollowUp:=AValue;
  40754. MarkPropertyChanged(AIndex);
  40755. end;
  40756. Procedure TSP_MicrofeedMicrofeedPostDefinition.SetCanHaveAttachments(AIndex: Integer; const AValue: boolean);
  40757. begin
  40758. If (FCanHaveAttachments=AValue) then exit;
  40759. FCanHaveAttachments:=AValue;
  40760. MarkPropertyChanged(AIndex);
  40761. end;
  40762. Procedure TSP_MicrofeedMicrofeedPostDefinition.SetCanLike(AIndex: Integer; const AValue: boolean);
  40763. begin
  40764. If (FCanLike=AValue) then exit;
  40765. FCanLike:=AValue;
  40766. MarkPropertyChanged(AIndex);
  40767. end;
  40768. Procedure TSP_MicrofeedMicrofeedPostDefinition.SetCanLock(AIndex: Integer; const AValue: boolean);
  40769. begin
  40770. If (FCanLock=AValue) then exit;
  40771. FCanLock:=AValue;
  40772. MarkPropertyChanged(AIndex);
  40773. end;
  40774. Procedure TSP_MicrofeedMicrofeedPostDefinition.SetCanReply(AIndex: Integer; const AValue: boolean);
  40775. begin
  40776. If (FCanReply=AValue) then exit;
  40777. FCanReply:=AValue;
  40778. MarkPropertyChanged(AIndex);
  40779. end;
  40780. Procedure TSP_MicrofeedMicrofeedPostDefinition.SetCreationTime(AIndex: Integer; const AValue: TDateTime);
  40781. begin
  40782. If (FCreationTime=AValue) then exit;
  40783. FCreationTime:=AValue;
  40784. MarkPropertyChanged(AIndex);
  40785. end;
  40786. Procedure TSP_MicrofeedMicrofeedPostDefinition.SetDefinitionId(AIndex: Integer; const AValue: int64);
  40787. begin
  40788. If (FDefinitionId=AValue) then exit;
  40789. FDefinitionId:=AValue;
  40790. MarkPropertyChanged(AIndex);
  40791. end;
  40792. Procedure TSP_MicrofeedMicrofeedPostDefinition.SetDefinitionName(AIndex: Integer; const AValue: string);
  40793. begin
  40794. If (FDefinitionName=AValue) then exit;
  40795. FDefinitionName:=AValue;
  40796. MarkPropertyChanged(AIndex);
  40797. end;
  40798. Procedure TSP_MicrofeedMicrofeedPostDefinition.SetDefinitionVersion(AIndex: Integer; const AValue: TInt32);
  40799. begin
  40800. If (FDefinitionVersion=AValue) then exit;
  40801. FDefinitionVersion:=AValue;
  40802. MarkPropertyChanged(AIndex);
  40803. end;
  40804. Procedure TSP_MicrofeedMicrofeedPostDefinition.SetEnablePeopleList(AIndex: Integer; const AValue: boolean);
  40805. begin
  40806. If (FEnablePeopleList=AValue) then exit;
  40807. FEnablePeopleList:=AValue;
  40808. MarkPropertyChanged(AIndex);
  40809. end;
  40810. Procedure TSP_MicrofeedMicrofeedPostDefinition.SetIsDefault(AIndex: Integer; const AValue: boolean);
  40811. begin
  40812. If (FIsDefault=AValue) then exit;
  40813. FIsDefault:=AValue;
  40814. MarkPropertyChanged(AIndex);
  40815. end;
  40816. Procedure TSP_MicrofeedMicrofeedPostDefinition.SetIsEnabled(AIndex: Integer; const AValue: boolean);
  40817. begin
  40818. If (FIsEnabled=AValue) then exit;
  40819. FIsEnabled:=AValue;
  40820. MarkPropertyChanged(AIndex);
  40821. end;
  40822. Procedure TSP_MicrofeedMicrofeedPostDefinition.SetIsNotification(AIndex: Integer; const AValue: boolean);
  40823. begin
  40824. If (FIsNotification=AValue) then exit;
  40825. FIsNotification:=AValue;
  40826. MarkPropertyChanged(AIndex);
  40827. end;
  40828. Procedure TSP_MicrofeedMicrofeedPostDefinition.SetIsPrivate(AIndex: Integer; const AValue: boolean);
  40829. begin
  40830. If (FIsPrivate=AValue) then exit;
  40831. FIsPrivate:=AValue;
  40832. MarkPropertyChanged(AIndex);
  40833. end;
  40834. Procedure TSP_MicrofeedMicrofeedPostDefinition.SetIsUserPost(AIndex: Integer; const AValue: boolean);
  40835. begin
  40836. If (FIsUserPost=AValue) then exit;
  40837. FIsUserPost:=AValue;
  40838. MarkPropertyChanged(AIndex);
  40839. end;
  40840. Procedure TSP_MicrofeedMicrofeedPostDefinition.SetLastUpdateTime(AIndex: Integer; const AValue: TDateTime);
  40841. begin
  40842. If (FLastUpdateTime=AValue) then exit;
  40843. FLastUpdateTime:=AValue;
  40844. MarkPropertyChanged(AIndex);
  40845. end;
  40846. Procedure TSP_MicrofeedMicrofeedPostDefinition.SetPartitionId(AIndex: Integer; const AValue: TGUIDString);
  40847. begin
  40848. If (FPartitionId=AValue) then exit;
  40849. FPartitionId:=AValue;
  40850. MarkPropertyChanged(AIndex);
  40851. end;
  40852. Procedure TSP_MicrofeedMicrofeedPostDefinition.SetPersistToCache(AIndex: Integer; const AValue: boolean);
  40853. begin
  40854. If (FPersistToCache=AValue) then exit;
  40855. FPersistToCache:=AValue;
  40856. MarkPropertyChanged(AIndex);
  40857. end;
  40858. Procedure TSP_MicrofeedMicrofeedPostDefinition.SetPersistToPrivateFolder(AIndex: Integer; const AValue: boolean);
  40859. begin
  40860. If (FPersistToPrivateFolder=AValue) then exit;
  40861. FPersistToPrivateFolder:=AValue;
  40862. MarkPropertyChanged(AIndex);
  40863. end;
  40864. Procedure TSP_MicrofeedMicrofeedPostDefinition.SetPersistToPublishedFeed(AIndex: Integer; const AValue: boolean);
  40865. begin
  40866. If (FPersistToPublishedFeed=AValue) then exit;
  40867. FPersistToPublishedFeed:=AValue;
  40868. MarkPropertyChanged(AIndex);
  40869. end;
  40870. Procedure TSP_MicrofeedMicrofeedPostDefinition.SetReferenceLikePostName(AIndex: Integer; const AValue: string);
  40871. begin
  40872. If (FReferenceLikePostName=AValue) then exit;
  40873. FReferenceLikePostName:=AValue;
  40874. MarkPropertyChanged(AIndex);
  40875. end;
  40876. Procedure TSP_MicrofeedMicrofeedPostDefinition.SetReferenceMentionPostName(AIndex: Integer; const AValue: string);
  40877. begin
  40878. If (FReferenceMentionPostName=AValue) then exit;
  40879. FReferenceMentionPostName:=AValue;
  40880. MarkPropertyChanged(AIndex);
  40881. end;
  40882. Procedure TSP_MicrofeedMicrofeedPostDefinition.SetReferenceReplyPostName(AIndex: Integer; const AValue: string);
  40883. begin
  40884. If (FReferenceReplyPostName=AValue) then exit;
  40885. FReferenceReplyPostName:=AValue;
  40886. MarkPropertyChanged(AIndex);
  40887. end;
  40888. Procedure TSP_MicrofeedMicrofeedPostDefinition.SetRenderPostAuthorImage(AIndex: Integer; const AValue: boolean);
  40889. begin
  40890. If (FRenderPostAuthorImage=AValue) then exit;
  40891. FRenderPostAuthorImage:=AValue;
  40892. MarkPropertyChanged(AIndex);
  40893. end;
  40894. Procedure TSP_MicrofeedMicrofeedPostDefinition.SetResourceFileName(AIndex: Integer; const AValue: string);
  40895. begin
  40896. If (FResourceFileName=AValue) then exit;
  40897. FResourceFileName:=AValue;
  40898. MarkPropertyChanged(AIndex);
  40899. end;
  40900. Procedure TSP_MicrofeedMicrofeedPostDefinition.SetSecurityTrimContentUrl(AIndex: Integer; const AValue: boolean);
  40901. begin
  40902. If (FSecurityTrimContentUrl=AValue) then exit;
  40903. FSecurityTrimContentUrl:=AValue;
  40904. MarkPropertyChanged(AIndex);
  40905. end;
  40906. Procedure TSP_MicrofeedMicrofeedPostDefinition.SetSmallImageSizePreferred(AIndex: Integer; const AValue: boolean);
  40907. begin
  40908. If (FSmallImageSizePreferred=AValue) then exit;
  40909. FSmallImageSizePreferred:=AValue;
  40910. MarkPropertyChanged(AIndex);
  40911. end;
  40912. { --------------------------------------------------------------------
  40913. TSP_MicrofeedMicrofeedDataLinkCollection
  40914. --------------------------------------------------------------------}
  40915. Class Function TSP_MicrofeedMicrofeedDataLinkCollection.ObjectRestKind : String;
  40916. begin
  40917. Result:='MicrofeedDataLinkCollection';
  40918. end;
  40919. Procedure TSP_MicrofeedMicrofeedDataLinkCollection.SetItems(AIndex: Integer; const AValue: TSP_MicrofeedMicrofeedDataLinkArray);
  40920. begin
  40921. If (FItems=AValue) then exit;
  40922. FItems:=AValue;
  40923. MarkPropertyChanged(AIndex);
  40924. end;
  40925. {$IFDEF VER2_6}
  40926. Procedure TSP_MicrofeedMicrofeedDataLinkCollection.SetArrayLength(const AName: String; ALength: Longint);
  40927. begin
  40928. Case aName of
  40929. 'items' : SetLength(FItems,aLength);
  40930. else
  40931. inherited SetArrayLength(aName,ALength);
  40932. end;
  40933. end;
  40934. {$ENDIF VER2_6}
  40935. { --------------------------------------------------------------------
  40936. TSP_MicrofeedMicrofeedDataLink
  40937. --------------------------------------------------------------------}
  40938. Class Function TSP_MicrofeedMicrofeedDataLink.ObjectRestKind : String;
  40939. begin
  40940. Result:='MicrofeedDataLink';
  40941. end;
  40942. Procedure TSP_MicrofeedMicrofeedDataLink.SetDataLinkType(AIndex: Integer; const AValue: TInt32);
  40943. begin
  40944. If (FDataLinkType=AValue) then exit;
  40945. FDataLinkType:=AValue;
  40946. MarkPropertyChanged(AIndex);
  40947. end;
  40948. Procedure TSP_MicrofeedMicrofeedDataLink.SetDateTimeValue(AIndex: Integer; const AValue: TDateTime);
  40949. begin
  40950. If (FDateTimeValue=AValue) then exit;
  40951. FDateTimeValue:=AValue;
  40952. MarkPropertyChanged(AIndex);
  40953. end;
  40954. Procedure TSP_MicrofeedMicrofeedDataLink.SetName(AIndex: Integer; const AValue: string);
  40955. begin
  40956. If (FName=AValue) then exit;
  40957. FName:=AValue;
  40958. MarkPropertyChanged(AIndex);
  40959. end;
  40960. Procedure TSP_MicrofeedMicrofeedDataLink.SetPlaceHolderName(AIndex: Integer; const AValue: string);
  40961. begin
  40962. If (FPlaceHolderName=AValue) then exit;
  40963. FPlaceHolderName:=AValue;
  40964. MarkPropertyChanged(AIndex);
  40965. end;
  40966. Procedure TSP_MicrofeedMicrofeedDataLink.SetStringValue(AIndex: Integer; const AValue: string);
  40967. begin
  40968. If (FStringValue=AValue) then exit;
  40969. FStringValue:=AValue;
  40970. MarkPropertyChanged(AIndex);
  40971. end;
  40972. Procedure TSP_MicrofeedMicrofeedDataLink.SetUniqueId(AIndex: Integer; const AValue: TGUIDString);
  40973. begin
  40974. If (FUniqueId=AValue) then exit;
  40975. FUniqueId:=AValue;
  40976. MarkPropertyChanged(AIndex);
  40977. end;
  40978. Procedure TSP_MicrofeedMicrofeedDataLink.SetUriValue(AIndex: Integer; const AValue: string);
  40979. begin
  40980. If (FUriValue=AValue) then exit;
  40981. FUriValue:=AValue;
  40982. MarkPropertyChanged(AIndex);
  40983. end;
  40984. { --------------------------------------------------------------------
  40985. TSP_MicrofeedMicrofeedDataQuery
  40986. --------------------------------------------------------------------}
  40987. Class Function TSP_MicrofeedMicrofeedDataQuery.ObjectRestKind : String;
  40988. begin
  40989. Result:='MicrofeedDataQuery';
  40990. end;
  40991. Procedure TSP_MicrofeedMicrofeedDataQuery.SetItemLimit(AIndex: Integer; const AValue: int64);
  40992. begin
  40993. If (FItemLimit=AValue) then exit;
  40994. FItemLimit:=AValue;
  40995. MarkPropertyChanged(AIndex);
  40996. end;
  40997. Procedure TSP_MicrofeedMicrofeedDataQuery.SetQuery(AIndex: Integer; const AValue: string);
  40998. begin
  40999. If (FQuery=AValue) then exit;
  41000. FQuery:=AValue;
  41001. MarkPropertyChanged(AIndex);
  41002. end;
  41003. Procedure TSP_MicrofeedMicrofeedDataQuery.SetViewFields(AIndex: Integer; const AValue: TStringArray);
  41004. begin
  41005. If (FViewFields=AValue) then exit;
  41006. FViewFields:=AValue;
  41007. MarkPropertyChanged(AIndex);
  41008. end;
  41009. Procedure TSP_MicrofeedMicrofeedDataQuery.SetViewFieldsOnly(AIndex: Integer; const AValue: boolean);
  41010. begin
  41011. If (FViewFieldsOnly=AValue) then exit;
  41012. FViewFieldsOnly:=AValue;
  41013. MarkPropertyChanged(AIndex);
  41014. end;
  41015. {$IFDEF VER2_6}
  41016. Procedure TSP_MicrofeedMicrofeedDataQuery.SetArrayLength(const AName: String; ALength: Longint);
  41017. begin
  41018. Case aName of
  41019. 'viewfields' : SetLength(FViewFields,aLength);
  41020. else
  41021. inherited SetArrayLength(aName,ALength);
  41022. end;
  41023. end;
  41024. {$ENDIF VER2_6}
  41025. { --------------------------------------------------------------------
  41026. TSP_MicrofeedMicrofeedLinkAction
  41027. --------------------------------------------------------------------}
  41028. Class Function TSP_MicrofeedMicrofeedLinkAction.ObjectRestKind : String;
  41029. begin
  41030. Result:='MicrofeedLinkAction';
  41031. end;
  41032. Procedure TSP_MicrofeedMicrofeedLinkAction.SetActionUri(AIndex: Integer; const AValue: string);
  41033. begin
  41034. If (FActionUri=AValue) then exit;
  41035. FActionUri:=AValue;
  41036. MarkPropertyChanged(AIndex);
  41037. end;
  41038. Procedure TSP_MicrofeedMicrofeedLinkAction.SetHeight(AIndex: Integer; const AValue: int64);
  41039. begin
  41040. If (FHeight=AValue) then exit;
  41041. FHeight:=AValue;
  41042. MarkPropertyChanged(AIndex);
  41043. end;
  41044. Procedure TSP_MicrofeedMicrofeedLinkAction.SetKind(AIndex: Integer; const AValue: TInt32);
  41045. begin
  41046. If (FKind=AValue) then exit;
  41047. FKind:=AValue;
  41048. MarkPropertyChanged(AIndex);
  41049. end;
  41050. Procedure TSP_MicrofeedMicrofeedLinkAction.SetWidth(AIndex: Integer; const AValue: int64);
  41051. begin
  41052. If (FWidth=AValue) then exit;
  41053. FWidth:=AValue;
  41054. MarkPropertyChanged(AIndex);
  41055. end;
  41056. { --------------------------------------------------------------------
  41057. TSP_MicrofeedMicrofeedLink
  41058. --------------------------------------------------------------------}
  41059. Class Function TSP_MicrofeedMicrofeedLink.ObjectRestKind : String;
  41060. begin
  41061. Result:='MicrofeedLink';
  41062. end;
  41063. Procedure TSP_MicrofeedMicrofeedLink.SetClickAction(AIndex: Integer; const AValue: TSP_MicrofeedMicrofeedLinkAction);
  41064. begin
  41065. If (FClickAction=AValue) then exit;
  41066. FClickAction:=AValue;
  41067. MarkPropertyChanged(AIndex);
  41068. end;
  41069. Procedure TSP_MicrofeedMicrofeedLink.SetContentUri(AIndex: Integer; const AValue: string);
  41070. begin
  41071. If (FContentUri=AValue) then exit;
  41072. FContentUri:=AValue;
  41073. MarkPropertyChanged(AIndex);
  41074. end;
  41075. Procedure TSP_MicrofeedMicrofeedLink.SetDescription(AIndex: Integer; const AValue: string);
  41076. begin
  41077. If (FDescription=AValue) then exit;
  41078. FDescription:=AValue;
  41079. MarkPropertyChanged(AIndex);
  41080. end;
  41081. Procedure TSP_MicrofeedMicrofeedLink.SetHeight(AIndex: Integer; const AValue: int64);
  41082. begin
  41083. If (FHeight=AValue) then exit;
  41084. FHeight:=AValue;
  41085. MarkPropertyChanged(AIndex);
  41086. end;
  41087. Procedure TSP_MicrofeedMicrofeedLink.SetHref(AIndex: Integer; const AValue: string);
  41088. begin
  41089. If (FHref=AValue) then exit;
  41090. FHref:=AValue;
  41091. MarkPropertyChanged(AIndex);
  41092. end;
  41093. Procedure TSP_MicrofeedMicrofeedLink.Set_Length(AIndex: Integer; const AValue: int64);
  41094. begin
  41095. If (F_Length=AValue) then exit;
  41096. F_Length:=AValue;
  41097. MarkPropertyChanged(AIndex);
  41098. end;
  41099. Procedure TSP_MicrofeedMicrofeedLink.SetLinkType(AIndex: Integer; const AValue: TInt32);
  41100. begin
  41101. If (FLinkType=AValue) then exit;
  41102. FLinkType:=AValue;
  41103. MarkPropertyChanged(AIndex);
  41104. end;
  41105. Procedure TSP_MicrofeedMicrofeedLink.SetName(AIndex: Integer; const AValue: string);
  41106. begin
  41107. If (FName=AValue) then exit;
  41108. FName:=AValue;
  41109. MarkPropertyChanged(AIndex);
  41110. end;
  41111. Procedure TSP_MicrofeedMicrofeedLink.SetPreviewHeight(AIndex: Integer; const AValue: int64);
  41112. begin
  41113. If (FPreviewHeight=AValue) then exit;
  41114. FPreviewHeight:=AValue;
  41115. MarkPropertyChanged(AIndex);
  41116. end;
  41117. Procedure TSP_MicrofeedMicrofeedLink.SetPreviewPictureUrl(AIndex: Integer; const AValue: string);
  41118. begin
  41119. If (FPreviewPictureUrl=AValue) then exit;
  41120. FPreviewPictureUrl:=AValue;
  41121. MarkPropertyChanged(AIndex);
  41122. end;
  41123. Procedure TSP_MicrofeedMicrofeedLink.SetPreviewWidth(AIndex: Integer; const AValue: int64);
  41124. begin
  41125. If (FPreviewWidth=AValue) then exit;
  41126. FPreviewWidth:=AValue;
  41127. MarkPropertyChanged(AIndex);
  41128. end;
  41129. Procedure TSP_MicrofeedMicrofeedLink.SetStatus(AIndex: Integer; const AValue: TInt32);
  41130. begin
  41131. If (FStatus=AValue) then exit;
  41132. FStatus:=AValue;
  41133. MarkPropertyChanged(AIndex);
  41134. end;
  41135. Procedure TSP_MicrofeedMicrofeedLink.SetWidth(AIndex: Integer; const AValue: int64);
  41136. begin
  41137. If (FWidth=AValue) then exit;
  41138. FWidth:=AValue;
  41139. MarkPropertyChanged(AIndex);
  41140. end;
  41141. Class Function TSP_MicrofeedMicrofeedLink.ExportPropertyName(Const AName : String) :String;
  41142. begin
  41143. Case AName of
  41144. '_Length' : Result:='Length';
  41145. else
  41146. Result:=Inherited ExportPropertyName(AName);
  41147. end;
  41148. end;
  41149. { --------------------------------------------------------------------
  41150. TSP_MicrofeedMicrofeedPostCollection
  41151. --------------------------------------------------------------------}
  41152. Class Function TSP_MicrofeedMicrofeedPostCollection.ObjectRestKind : String;
  41153. begin
  41154. Result:='MicrofeedPostCollection';
  41155. end;
  41156. Procedure TSP_MicrofeedMicrofeedPostCollection.SetItems(AIndex: Integer; const AValue: TSP_MicrofeedMicrofeedPostArray);
  41157. begin
  41158. If (FItems=AValue) then exit;
  41159. FItems:=AValue;
  41160. MarkPropertyChanged(AIndex);
  41161. end;
  41162. {$IFDEF VER2_6}
  41163. Procedure TSP_MicrofeedMicrofeedPostCollection.SetArrayLength(const AName: String; ALength: Longint);
  41164. begin
  41165. Case aName of
  41166. 'items' : SetLength(FItems,aLength);
  41167. else
  41168. inherited SetArrayLength(aName,ALength);
  41169. end;
  41170. end;
  41171. {$ENDIF VER2_6}
  41172. { --------------------------------------------------------------------
  41173. TSP_MicrofeedMicrofeedPost
  41174. --------------------------------------------------------------------}
  41175. Class Function TSP_MicrofeedMicrofeedPost.ObjectRestKind : String;
  41176. begin
  41177. Result:='MicrofeedPost';
  41178. end;
  41179. Procedure TSP_MicrofeedMicrofeedPost.SetAuthorIndex(AIndex: Integer; const AValue: TInt32);
  41180. begin
  41181. If (FAuthorIndex=AValue) then exit;
  41182. FAuthorIndex:=AValue;
  41183. MarkPropertyChanged(AIndex);
  41184. end;
  41185. Procedure TSP_MicrofeedMicrofeedPost.SetBreadCrumb(AIndex: Integer; const AValue: string);
  41186. begin
  41187. If (FBreadCrumb=AValue) then exit;
  41188. FBreadCrumb:=AValue;
  41189. MarkPropertyChanged(AIndex);
  41190. end;
  41191. Procedure TSP_MicrofeedMicrofeedPost.SetCanDelete(AIndex: Integer; const AValue: boolean);
  41192. begin
  41193. If (FCanDelete=AValue) then exit;
  41194. FCanDelete:=AValue;
  41195. MarkPropertyChanged(AIndex);
  41196. end;
  41197. Procedure TSP_MicrofeedMicrofeedPost.SetCanFollowUp(AIndex: Integer; const AValue: boolean);
  41198. begin
  41199. If (FCanFollowUp=AValue) then exit;
  41200. FCanFollowUp:=AValue;
  41201. MarkPropertyChanged(AIndex);
  41202. end;
  41203. Procedure TSP_MicrofeedMicrofeedPost.SetCanHaveAttachments(AIndex: Integer; const AValue: boolean);
  41204. begin
  41205. If (FCanHaveAttachments=AValue) then exit;
  41206. FCanHaveAttachments:=AValue;
  41207. MarkPropertyChanged(AIndex);
  41208. end;
  41209. Procedure TSP_MicrofeedMicrofeedPost.SetCanLike(AIndex: Integer; const AValue: boolean);
  41210. begin
  41211. If (FCanLike=AValue) then exit;
  41212. FCanLike:=AValue;
  41213. MarkPropertyChanged(AIndex);
  41214. end;
  41215. Procedure TSP_MicrofeedMicrofeedPost.SetCanLock(AIndex: Integer; const AValue: boolean);
  41216. begin
  41217. If (FCanLock=AValue) then exit;
  41218. FCanLock:=AValue;
  41219. MarkPropertyChanged(AIndex);
  41220. end;
  41221. Procedure TSP_MicrofeedMicrofeedPost.SetCanReply(AIndex: Integer; const AValue: boolean);
  41222. begin
  41223. If (FCanReply=AValue) then exit;
  41224. FCanReply:=AValue;
  41225. MarkPropertyChanged(AIndex);
  41226. end;
  41227. Procedure TSP_MicrofeedMicrofeedPost.SetContent(AIndex: Integer; const AValue: string);
  41228. begin
  41229. If (FContent=AValue) then exit;
  41230. FContent:=AValue;
  41231. MarkPropertyChanged(AIndex);
  41232. end;
  41233. Procedure TSP_MicrofeedMicrofeedPost.SetCreated(AIndex: Integer; const AValue: TDateTime);
  41234. begin
  41235. If (FCreated=AValue) then exit;
  41236. FCreated:=AValue;
  41237. MarkPropertyChanged(AIndex);
  41238. end;
  41239. Procedure TSP_MicrofeedMicrofeedPost.SetFooter(AIndex: Integer; const AValue: string);
  41240. begin
  41241. If (FFooter=AValue) then exit;
  41242. FFooter:=AValue;
  41243. MarkPropertyChanged(AIndex);
  41244. end;
  41245. Procedure TSP_MicrofeedMicrofeedPost.SetID(AIndex: Integer; const AValue: string);
  41246. begin
  41247. If (FID=AValue) then exit;
  41248. FID:=AValue;
  41249. MarkPropertyChanged(AIndex);
  41250. end;
  41251. Procedure TSP_MicrofeedMicrofeedPost.SetILikeIt(AIndex: Integer; const AValue: boolean);
  41252. begin
  41253. If (FILikeIt=AValue) then exit;
  41254. FILikeIt:=AValue;
  41255. MarkPropertyChanged(AIndex);
  41256. end;
  41257. Procedure TSP_MicrofeedMicrofeedPost.SetLikersList(AIndex: Integer; const AValue: TInt32Array);
  41258. begin
  41259. If (FLikersList=AValue) then exit;
  41260. FLikersList:=AValue;
  41261. MarkPropertyChanged(AIndex);
  41262. end;
  41263. Procedure TSP_MicrofeedMicrofeedPost.SetLocked(AIndex: Integer; const AValue: boolean);
  41264. begin
  41265. If (FLocked=AValue) then exit;
  41266. FLocked:=AValue;
  41267. MarkPropertyChanged(AIndex);
  41268. end;
  41269. Procedure TSP_MicrofeedMicrofeedPost.SetMediaLink(AIndex: Integer; const AValue: TSP_MicrofeedMicrofeedLink);
  41270. begin
  41271. If (FMediaLink=AValue) then exit;
  41272. FMediaLink:=AValue;
  41273. MarkPropertyChanged(AIndex);
  41274. end;
  41275. Procedure TSP_MicrofeedMicrofeedPost.SetMicroBlogType(AIndex: Integer; const AValue: TInt32);
  41276. begin
  41277. If (FMicroBlogType=AValue) then exit;
  41278. FMicroBlogType:=AValue;
  41279. MarkPropertyChanged(AIndex);
  41280. end;
  41281. Procedure TSP_MicrofeedMicrofeedPost.SetModified(AIndex: Integer; const AValue: TDateTime);
  41282. begin
  41283. If (FModified=AValue) then exit;
  41284. FModified:=AValue;
  41285. MarkPropertyChanged(AIndex);
  41286. end;
  41287. Procedure TSP_MicrofeedMicrofeedPost.SetPeopleCount(AIndex: Integer; const AValue: TInt32);
  41288. begin
  41289. If (FPeopleCount=AValue) then exit;
  41290. FPeopleCount:=AValue;
  41291. MarkPropertyChanged(AIndex);
  41292. end;
  41293. Procedure TSP_MicrofeedMicrofeedPost.SetPostImageUri(AIndex: Integer; const AValue: string);
  41294. begin
  41295. If (FPostImageUri=AValue) then exit;
  41296. FPostImageUri:=AValue;
  41297. MarkPropertyChanged(AIndex);
  41298. end;
  41299. Procedure TSP_MicrofeedMicrofeedPost.SetPostSource(AIndex: Integer; const AValue: string);
  41300. begin
  41301. If (FPostSource=AValue) then exit;
  41302. FPostSource:=AValue;
  41303. MarkPropertyChanged(AIndex);
  41304. end;
  41305. Procedure TSP_MicrofeedMicrofeedPost.SetPostSourceUri(AIndex: Integer; const AValue: string);
  41306. begin
  41307. If (FPostSourceUri=AValue) then exit;
  41308. FPostSourceUri:=AValue;
  41309. MarkPropertyChanged(AIndex);
  41310. end;
  41311. Procedure TSP_MicrofeedMicrofeedPost.SetReferenceID(AIndex: Integer; const AValue: string);
  41312. begin
  41313. If (FReferenceID=AValue) then exit;
  41314. FReferenceID:=AValue;
  41315. MarkPropertyChanged(AIndex);
  41316. end;
  41317. Procedure TSP_MicrofeedMicrofeedPost.SetRenderPostAuthorImage(AIndex: Integer; const AValue: boolean);
  41318. begin
  41319. If (FRenderPostAuthorImage=AValue) then exit;
  41320. FRenderPostAuthorImage:=AValue;
  41321. MarkPropertyChanged(AIndex);
  41322. end;
  41323. Procedure TSP_MicrofeedMicrofeedPost.SetReplyCount(AIndex: Integer; const AValue: TInt32);
  41324. begin
  41325. If (FReplyCount=AValue) then exit;
  41326. FReplyCount:=AValue;
  41327. MarkPropertyChanged(AIndex);
  41328. end;
  41329. Procedure TSP_MicrofeedMicrofeedPost.SetSmallImageSizePreferred(AIndex: Integer; const AValue: boolean);
  41330. begin
  41331. If (FSmallImageSizePreferred=AValue) then exit;
  41332. FSmallImageSizePreferred:=AValue;
  41333. MarkPropertyChanged(AIndex);
  41334. end;
  41335. Procedure TSP_MicrofeedMicrofeedPost.SetTitle(AIndex: Integer; const AValue: string);
  41336. begin
  41337. If (FTitle=AValue) then exit;
  41338. FTitle:=AValue;
  41339. MarkPropertyChanged(AIndex);
  41340. end;
  41341. {$IFDEF VER2_6}
  41342. Procedure TSP_MicrofeedMicrofeedPost.SetArrayLength(const AName: String; ALength: Longint);
  41343. begin
  41344. Case aName of
  41345. 'likerslist' : SetLength(FLikersList,aLength);
  41346. else
  41347. inherited SetArrayLength(aName,ALength);
  41348. end;
  41349. end;
  41350. {$ENDIF VER2_6}
  41351. { --------------------------------------------------------------------
  41352. TSP_MicrofeedMicrofeedPostDefinitionNames
  41353. --------------------------------------------------------------------}
  41354. Class Function TSP_MicrofeedMicrofeedPostDefinitionNames.ObjectRestKind : String;
  41355. begin
  41356. Result:='MicrofeedPostDefinitionNames';
  41357. end;
  41358. { --------------------------------------------------------------------
  41359. TSP_MicrofeedMicrofeedPostDefinitionNameCollection
  41360. --------------------------------------------------------------------}
  41361. Class Function TSP_MicrofeedMicrofeedPostDefinitionNameCollection.ObjectRestKind : String;
  41362. begin
  41363. Result:='MicrofeedPostDefinitionNameCollection';
  41364. end;
  41365. Procedure TSP_MicrofeedMicrofeedPostDefinitionNameCollection.SetItems(AIndex: Integer; const AValue: TStringArray);
  41366. begin
  41367. If (FItems=AValue) then exit;
  41368. FItems:=AValue;
  41369. MarkPropertyChanged(AIndex);
  41370. end;
  41371. {$IFDEF VER2_6}
  41372. Procedure TSP_MicrofeedMicrofeedPostDefinitionNameCollection.SetArrayLength(const AName: String; ALength: Longint);
  41373. begin
  41374. Case aName of
  41375. 'items' : SetLength(FItems,aLength);
  41376. else
  41377. inherited SetArrayLength(aName,ALength);
  41378. end;
  41379. end;
  41380. {$ENDIF VER2_6}
  41381. { --------------------------------------------------------------------
  41382. TSP_MicrofeedMicrofeedPostOptions
  41383. --------------------------------------------------------------------}
  41384. Class Function TSP_MicrofeedMicrofeedPostOptions.ObjectRestKind : String;
  41385. begin
  41386. Result:='MicrofeedPostOptions';
  41387. end;
  41388. Procedure TSP_MicrofeedMicrofeedPostOptions.SetContent(AIndex: Integer; const AValue: string);
  41389. begin
  41390. If (FContent=AValue) then exit;
  41391. FContent:=AValue;
  41392. MarkPropertyChanged(AIndex);
  41393. end;
  41394. Procedure TSP_MicrofeedMicrofeedPostOptions.SetContentFormattingOption(AIndex: Integer; const AValue: TInt32);
  41395. begin
  41396. If (FContentFormattingOption=AValue) then exit;
  41397. FContentFormattingOption:=AValue;
  41398. MarkPropertyChanged(AIndex);
  41399. end;
  41400. Procedure TSP_MicrofeedMicrofeedPostOptions.SetDataLinks(AIndex: Integer; const AValue: TSP_MicrofeedMicrofeedDataLinkCollection);
  41401. begin
  41402. If (FDataLinks=AValue) then exit;
  41403. FDataLinks:=AValue;
  41404. MarkPropertyChanged(AIndex);
  41405. end;
  41406. Procedure TSP_MicrofeedMicrofeedPostOptions.SetDefinitionName(AIndex: Integer; const AValue: string);
  41407. begin
  41408. If (FDefinitionName=AValue) then exit;
  41409. FDefinitionName:=AValue;
  41410. MarkPropertyChanged(AIndex);
  41411. end;
  41412. Procedure TSP_MicrofeedMicrofeedPostOptions.SetMediaLink(AIndex: Integer; const AValue: TSP_MicrofeedMicrofeedLink);
  41413. begin
  41414. If (FMediaLink=AValue) then exit;
  41415. FMediaLink:=AValue;
  41416. MarkPropertyChanged(AIndex);
  41417. end;
  41418. Procedure TSP_MicrofeedMicrofeedPostOptions.SetPeopleList(AIndex: Integer; const AValue: TStringArray);
  41419. begin
  41420. If (FPeopleList=AValue) then exit;
  41421. FPeopleList:=AValue;
  41422. MarkPropertyChanged(AIndex);
  41423. end;
  41424. Procedure TSP_MicrofeedMicrofeedPostOptions.SetPostSource(AIndex: Integer; const AValue: string);
  41425. begin
  41426. If (FPostSource=AValue) then exit;
  41427. FPostSource:=AValue;
  41428. MarkPropertyChanged(AIndex);
  41429. end;
  41430. Procedure TSP_MicrofeedMicrofeedPostOptions.SetPostSourceUri(AIndex: Integer; const AValue: string);
  41431. begin
  41432. If (FPostSourceUri=AValue) then exit;
  41433. FPostSourceUri:=AValue;
  41434. MarkPropertyChanged(AIndex);
  41435. end;
  41436. Procedure TSP_MicrofeedMicrofeedPostOptions.SetRefThread_ReferenceID(AIndex: Integer; const AValue: string);
  41437. begin
  41438. If (FRefThread_ReferenceID=AValue) then exit;
  41439. FRefThread_ReferenceID:=AValue;
  41440. MarkPropertyChanged(AIndex);
  41441. end;
  41442. Procedure TSP_MicrofeedMicrofeedPostOptions.SetRefThread_RefReply(AIndex: Integer; const AValue: string);
  41443. begin
  41444. If (FRefThread_RefReply=AValue) then exit;
  41445. FRefThread_RefReply:=AValue;
  41446. MarkPropertyChanged(AIndex);
  41447. end;
  41448. Procedure TSP_MicrofeedMicrofeedPostOptions.SetRefThread_RefRoot(AIndex: Integer; const AValue: string);
  41449. begin
  41450. If (FRefThread_RefRoot=AValue) then exit;
  41451. FRefThread_RefRoot:=AValue;
  41452. MarkPropertyChanged(AIndex);
  41453. end;
  41454. Procedure TSP_MicrofeedMicrofeedPostOptions.SetTargetActor(AIndex: Integer; const AValue: string);
  41455. begin
  41456. If (FTargetActor=AValue) then exit;
  41457. FTargetActor:=AValue;
  41458. MarkPropertyChanged(AIndex);
  41459. end;
  41460. Procedure TSP_MicrofeedMicrofeedPostOptions.SetUpdateStatusText(AIndex: Integer; const AValue: boolean);
  41461. begin
  41462. If (FUpdateStatusText=AValue) then exit;
  41463. FUpdateStatusText:=AValue;
  41464. MarkPropertyChanged(AIndex);
  41465. end;
  41466. {$IFDEF VER2_6}
  41467. Procedure TSP_MicrofeedMicrofeedPostOptions.SetArrayLength(const AName: String; ALength: Longint);
  41468. begin
  41469. Case aName of
  41470. 'peoplelist' : SetLength(FPeopleList,aLength);
  41471. else
  41472. inherited SetArrayLength(aName,ALength);
  41473. end;
  41474. end;
  41475. {$ENDIF VER2_6}
  41476. { --------------------------------------------------------------------
  41477. TSP_MicrofeedMicrofeedRetrievalOptions
  41478. --------------------------------------------------------------------}
  41479. Class Function TSP_MicrofeedMicrofeedRetrievalOptions.ObjectRestKind : String;
  41480. begin
  41481. Result:='MicrofeedRetrievalOptions';
  41482. end;
  41483. Procedure TSP_MicrofeedMicrofeedRetrievalOptions.SetContentFormattingOption(AIndex: Integer; const AValue: TInt32);
  41484. begin
  41485. If (FContentFormattingOption=AValue) then exit;
  41486. FContentFormattingOption:=AValue;
  41487. MarkPropertyChanged(AIndex);
  41488. end;
  41489. Procedure TSP_MicrofeedMicrofeedRetrievalOptions.SetContentOnly(AIndex: Integer; const AValue: boolean);
  41490. begin
  41491. If (FContentOnly=AValue) then exit;
  41492. FContentOnly:=AValue;
  41493. MarkPropertyChanged(AIndex);
  41494. end;
  41495. Procedure TSP_MicrofeedMicrofeedRetrievalOptions.SetDropAllSecurityTrimmablePosts(AIndex: Integer; const AValue: boolean);
  41496. begin
  41497. If (FDropAllSecurityTrimmablePosts=AValue) then exit;
  41498. FDropAllSecurityTrimmablePosts:=AValue;
  41499. MarkPropertyChanged(AIndex);
  41500. end;
  41501. Procedure TSP_MicrofeedMicrofeedRetrievalOptions.SetGatherUnreadMentionCountForUser(AIndex: Integer; const AValue: boolean);
  41502. begin
  41503. If (FGatherUnreadMentionCountForUser=AValue) then exit;
  41504. FGatherUnreadMentionCountForUser:=AValue;
  41505. MarkPropertyChanged(AIndex);
  41506. end;
  41507. Procedure TSP_MicrofeedMicrofeedRetrievalOptions.SetIncludedTypes(AIndex: Integer; const AValue: TInt32);
  41508. begin
  41509. If (FIncludedTypes=AValue) then exit;
  41510. FIncludedTypes:=AValue;
  41511. MarkPropertyChanged(AIndex);
  41512. end;
  41513. Procedure TSP_MicrofeedMicrofeedRetrievalOptions.SetNewerThan(AIndex: Integer; const AValue: TDateTime);
  41514. begin
  41515. If (FNewerThan=AValue) then exit;
  41516. FNewerThan:=AValue;
  41517. MarkPropertyChanged(AIndex);
  41518. end;
  41519. Procedure TSP_MicrofeedMicrofeedRetrievalOptions.SetOlderThan(AIndex: Integer; const AValue: TDateTime);
  41520. begin
  41521. If (FOlderThan=AValue) then exit;
  41522. FOlderThan:=AValue;
  41523. MarkPropertyChanged(AIndex);
  41524. end;
  41525. Procedure TSP_MicrofeedMicrofeedRetrievalOptions.SetPostDefinitionFilter(AIndex: Integer; const AValue: TStringArray);
  41526. begin
  41527. If (FPostDefinitionFilter=AValue) then exit;
  41528. FPostDefinitionFilter:=AValue;
  41529. MarkPropertyChanged(AIndex);
  41530. end;
  41531. Procedure TSP_MicrofeedMicrofeedRetrievalOptions.SetResultSortOrder(AIndex: Integer; const AValue: TInt32);
  41532. begin
  41533. If (FResultSortOrder=AValue) then exit;
  41534. FResultSortOrder:=AValue;
  41535. MarkPropertyChanged(AIndex);
  41536. end;
  41537. Procedure TSP_MicrofeedMicrofeedRetrievalOptions.SetThreadCount(AIndex: Integer; const AValue: TInt32);
  41538. begin
  41539. If (FThreadCount=AValue) then exit;
  41540. FThreadCount:=AValue;
  41541. MarkPropertyChanged(AIndex);
  41542. end;
  41543. {$IFDEF VER2_6}
  41544. Procedure TSP_MicrofeedMicrofeedRetrievalOptions.SetArrayLength(const AName: String; ALength: Longint);
  41545. begin
  41546. Case aName of
  41547. 'postdefinitionfilter' : SetLength(FPostDefinitionFilter,aLength);
  41548. else
  41549. inherited SetArrayLength(aName,ALength);
  41550. end;
  41551. end;
  41552. {$ENDIF VER2_6}
  41553. { --------------------------------------------------------------------
  41554. TSP_MicrofeedMicrofeedThreadCollection
  41555. --------------------------------------------------------------------}
  41556. Class Function TSP_MicrofeedMicrofeedThreadCollection.ObjectRestKind : String;
  41557. begin
  41558. Result:='MicrofeedThreadCollection';
  41559. end;
  41560. Procedure TSP_MicrofeedMicrofeedThreadCollection.SetCurrentUserUnreadMentionCount(AIndex: Integer; const AValue: TInt32);
  41561. begin
  41562. If (FCurrentUserUnreadMentionCount=AValue) then exit;
  41563. FCurrentUserUnreadMentionCount:=AValue;
  41564. MarkPropertyChanged(AIndex);
  41565. end;
  41566. Procedure TSP_MicrofeedMicrofeedThreadCollection.SetNewestProcessed(AIndex: Integer; const AValue: TDateTime);
  41567. begin
  41568. If (FNewestProcessed=AValue) then exit;
  41569. FNewestProcessed:=AValue;
  41570. MarkPropertyChanged(AIndex);
  41571. end;
  41572. Procedure TSP_MicrofeedMicrofeedThreadCollection.SetOldestProcessed(AIndex: Integer; const AValue: TDateTime);
  41573. begin
  41574. If (FOldestProcessed=AValue) then exit;
  41575. FOldestProcessed:=AValue;
  41576. MarkPropertyChanged(AIndex);
  41577. end;
  41578. Procedure TSP_MicrofeedMicrofeedThreadCollection.SetItems(AIndex: Integer; const AValue: TSP_MicrofeedMicrofeedThreadArray);
  41579. begin
  41580. If (FItems=AValue) then exit;
  41581. FItems:=AValue;
  41582. MarkPropertyChanged(AIndex);
  41583. end;
  41584. {$IFDEF VER2_6}
  41585. Procedure TSP_MicrofeedMicrofeedThreadCollection.SetArrayLength(const AName: String; ALength: Longint);
  41586. begin
  41587. Case aName of
  41588. 'items' : SetLength(FItems,aLength);
  41589. else
  41590. inherited SetArrayLength(aName,ALength);
  41591. end;
  41592. end;
  41593. {$ENDIF VER2_6}
  41594. { --------------------------------------------------------------------
  41595. TSP_MicrofeedMicrofeedThread
  41596. --------------------------------------------------------------------}
  41597. Class Function TSP_MicrofeedMicrofeedThread.ObjectRestKind : String;
  41598. begin
  41599. Result:='MicrofeedThread';
  41600. end;
  41601. Procedure TSP_MicrofeedMicrofeedThread.SetCanFollowUp(AIndex: Integer; const AValue: boolean);
  41602. begin
  41603. If (FCanFollowUp=AValue) then exit;
  41604. FCanFollowUp:=AValue;
  41605. MarkPropertyChanged(AIndex);
  41606. end;
  41607. Procedure TSP_MicrofeedMicrofeedThread.SetCanHaveAttachments(AIndex: Integer; const AValue: boolean);
  41608. begin
  41609. If (FCanHaveAttachments=AValue) then exit;
  41610. FCanHaveAttachments:=AValue;
  41611. MarkPropertyChanged(AIndex);
  41612. end;
  41613. Procedure TSP_MicrofeedMicrofeedThread.SetCanLike(AIndex: Integer; const AValue: boolean);
  41614. begin
  41615. If (FCanLike=AValue) then exit;
  41616. FCanLike:=AValue;
  41617. MarkPropertyChanged(AIndex);
  41618. end;
  41619. Procedure TSP_MicrofeedMicrofeedThread.SetCanReply(AIndex: Integer; const AValue: boolean);
  41620. begin
  41621. If (FCanReply=AValue) then exit;
  41622. FCanReply:=AValue;
  41623. MarkPropertyChanged(AIndex);
  41624. end;
  41625. Procedure TSP_MicrofeedMicrofeedThread.SetDataLinks(AIndex: Integer; const AValue: TSP_MicrofeedMicrofeedDataLinkArray);
  41626. begin
  41627. If (FDataLinks=AValue) then exit;
  41628. FDataLinks:=AValue;
  41629. MarkPropertyChanged(AIndex);
  41630. end;
  41631. Procedure TSP_MicrofeedMicrofeedThread.SetDefinitionId(AIndex: Integer; const AValue: int64);
  41632. begin
  41633. If (FDefinitionId=AValue) then exit;
  41634. FDefinitionId:=AValue;
  41635. MarkPropertyChanged(AIndex);
  41636. end;
  41637. Procedure TSP_MicrofeedMicrofeedThread.SetDefinitionName(AIndex: Integer; const AValue: string);
  41638. begin
  41639. If (FDefinitionName=AValue) then exit;
  41640. FDefinitionName:=AValue;
  41641. MarkPropertyChanged(AIndex);
  41642. end;
  41643. Procedure TSP_MicrofeedMicrofeedThread.SetIdentifier(AIndex: Integer; const AValue: string);
  41644. begin
  41645. If (FIdentifier=AValue) then exit;
  41646. FIdentifier:=AValue;
  41647. MarkPropertyChanged(AIndex);
  41648. end;
  41649. Procedure TSP_MicrofeedMicrofeedThread.SetLocked(AIndex: Integer; const AValue: boolean);
  41650. begin
  41651. If (FLocked=AValue) then exit;
  41652. FLocked:=AValue;
  41653. MarkPropertyChanged(AIndex);
  41654. end;
  41655. Procedure TSP_MicrofeedMicrofeedThread.SetMicrofeedEntities(AIndex: Integer; const AValue: TSP_MicrofeedMicroBlogEntityArray);
  41656. begin
  41657. If (FMicrofeedEntities=AValue) then exit;
  41658. FMicrofeedEntities:=AValue;
  41659. MarkPropertyChanged(AIndex);
  41660. end;
  41661. Procedure TSP_MicrofeedMicrofeedThread.SetOwnerIndex(AIndex: Integer; const AValue: TInt32);
  41662. begin
  41663. If (FOwnerIndex=AValue) then exit;
  41664. FOwnerIndex:=AValue;
  41665. MarkPropertyChanged(AIndex);
  41666. end;
  41667. Procedure TSP_MicrofeedMicrofeedThread.SetRefReply(AIndex: Integer; const AValue: TSP_MicrofeedMicrofeedPost);
  41668. begin
  41669. If (FRefReply=AValue) then exit;
  41670. FRefReply:=AValue;
  41671. MarkPropertyChanged(AIndex);
  41672. end;
  41673. Procedure TSP_MicrofeedMicrofeedThread.SetRefRoot(AIndex: Integer; const AValue: TSP_MicrofeedMicrofeedPost);
  41674. begin
  41675. If (FRefRoot=AValue) then exit;
  41676. FRefRoot:=AValue;
  41677. MarkPropertyChanged(AIndex);
  41678. end;
  41679. Procedure TSP_MicrofeedMicrofeedThread.SetRenderPostAuthorImage(AIndex: Integer; const AValue: boolean);
  41680. begin
  41681. If (FRenderPostAuthorImage=AValue) then exit;
  41682. FRenderPostAuthorImage:=AValue;
  41683. MarkPropertyChanged(AIndex);
  41684. end;
  41685. Procedure TSP_MicrofeedMicrofeedThread.SetReplies(AIndex: Integer; const AValue: TSP_MicrofeedMicrofeedPostCollection);
  41686. begin
  41687. If (FReplies=AValue) then exit;
  41688. FReplies:=AValue;
  41689. MarkPropertyChanged(AIndex);
  41690. end;
  41691. Procedure TSP_MicrofeedMicrofeedThread.SetReplyCount(AIndex: Integer; const AValue: TInt32);
  41692. begin
  41693. If (FReplyCount=AValue) then exit;
  41694. FReplyCount:=AValue;
  41695. MarkPropertyChanged(AIndex);
  41696. end;
  41697. Procedure TSP_MicrofeedMicrofeedThread.SetRootPost(AIndex: Integer; const AValue: TSP_MicrofeedMicrofeedPost);
  41698. begin
  41699. If (FRootPost=AValue) then exit;
  41700. FRootPost:=AValue;
  41701. MarkPropertyChanged(AIndex);
  41702. end;
  41703. Procedure TSP_MicrofeedMicrofeedThread.SetSmallImageSizePreferred(AIndex: Integer; const AValue: boolean);
  41704. begin
  41705. If (FSmallImageSizePreferred=AValue) then exit;
  41706. FSmallImageSizePreferred:=AValue;
  41707. MarkPropertyChanged(AIndex);
  41708. end;
  41709. Procedure TSP_MicrofeedMicrofeedThread.SetStatus(AIndex: Integer; const AValue: TInt32);
  41710. begin
  41711. If (FStatus=AValue) then exit;
  41712. FStatus:=AValue;
  41713. MarkPropertyChanged(AIndex);
  41714. end;
  41715. {$IFDEF VER2_6}
  41716. Procedure TSP_MicrofeedMicrofeedThread.SetArrayLength(const AName: String; ALength: Longint);
  41717. begin
  41718. Case aName of
  41719. 'datalinks' : SetLength(FDataLinks,aLength);
  41720. 'microfeedentities' : SetLength(FMicrofeedEntities,aLength);
  41721. else
  41722. inherited SetArrayLength(aName,ALength);
  41723. end;
  41724. end;
  41725. {$ENDIF VER2_6}
  41726. { --------------------------------------------------------------------
  41727. TSP_MicrofeedMicrofeedUserPostCollection
  41728. --------------------------------------------------------------------}
  41729. Class Function TSP_MicrofeedMicrofeedUserPostCollection.ObjectRestKind : String;
  41730. begin
  41731. Result:='MicrofeedUserPostCollection';
  41732. end;
  41733. Procedure TSP_MicrofeedMicrofeedUserPostCollection.SetItems(AIndex: Integer; const AValue: TSP_MicrofeedMicrofeedUserPostsArray);
  41734. begin
  41735. If (FItems=AValue) then exit;
  41736. FItems:=AValue;
  41737. MarkPropertyChanged(AIndex);
  41738. end;
  41739. {$IFDEF VER2_6}
  41740. Procedure TSP_MicrofeedMicrofeedUserPostCollection.SetArrayLength(const AName: String; ALength: Longint);
  41741. begin
  41742. Case aName of
  41743. 'items' : SetLength(FItems,aLength);
  41744. else
  41745. inherited SetArrayLength(aName,ALength);
  41746. end;
  41747. end;
  41748. {$ENDIF VER2_6}
  41749. { --------------------------------------------------------------------
  41750. TSP_MicrofeedMicrofeedUserPosts
  41751. --------------------------------------------------------------------}
  41752. Class Function TSP_MicrofeedMicrofeedUserPosts.ObjectRestKind : String;
  41753. begin
  41754. Result:='MicrofeedUserPosts';
  41755. end;
  41756. Procedure TSP_MicrofeedMicrofeedUserPosts.SetAccountName(AIndex: Integer; const AValue: string);
  41757. begin
  41758. If (FAccountName=AValue) then exit;
  41759. FAccountName:=AValue;
  41760. MarkPropertyChanged(AIndex);
  41761. end;
  41762. { --------------------------------------------------------------------
  41763. TSP_MicrofeedMicrofeedPostDefinitionManager
  41764. --------------------------------------------------------------------}
  41765. Class Function TSP_MicrofeedMicrofeedPostDefinitionManager.ObjectRestKind : String;
  41766. begin
  41767. Result:='MicrofeedPostDefinitionManager';
  41768. end;
  41769. Procedure TSP_MicrofeedMicrofeedPostDefinitionManager.SetId4a81de82eeb94d6080ea5bf63e27023a(AIndex: Integer; const AValue: string);
  41770. begin
  41771. If (FId4a81de82eeb94d6080ea5bf63e27023a=AValue) then exit;
  41772. FId4a81de82eeb94d6080ea5bf63e27023a:=AValue;
  41773. MarkPropertyChanged(AIndex);
  41774. end;
  41775. Function TSP_MicrofeedMicrofeedPostDefinitionManager.KeyAsURLPart : string;
  41776. begin
  41777. Result:=TODataObject.MakeKeyString(Id4a81de82eeb94d6080ea5bf63e27023a);
  41778. end;
  41779. { --------------------------------------------------------------------
  41780. TSP_MicrofeedMicrofeedAttachmentStore
  41781. --------------------------------------------------------------------}
  41782. Class Function TSP_MicrofeedMicrofeedAttachmentStore.ObjectRestKind : String;
  41783. begin
  41784. Result:='MicrofeedAttachmentStore';
  41785. end;
  41786. Procedure TSP_MicrofeedMicrofeedAttachmentStore.SetId4a81de82eeb94d6080ea5bf63e27023a(AIndex: Integer; const AValue: string);
  41787. begin
  41788. If (FId4a81de82eeb94d6080ea5bf63e27023a=AValue) then exit;
  41789. FId4a81de82eeb94d6080ea5bf63e27023a:=AValue;
  41790. MarkPropertyChanged(AIndex);
  41791. end;
  41792. Function TSP_MicrofeedMicrofeedAttachmentStore.KeyAsURLPart : string;
  41793. begin
  41794. Result:=TODataObject.MakeKeyString(Id4a81de82eeb94d6080ea5bf63e27023a);
  41795. end;
  41796. { --------------------------------------------------------------------
  41797. TSP_MicrofeedMicrofeedData
  41798. --------------------------------------------------------------------}
  41799. Class Function TSP_MicrofeedMicrofeedData.ObjectRestKind : String;
  41800. begin
  41801. Result:='MicrofeedData';
  41802. end;
  41803. Procedure TSP_MicrofeedMicrofeedData.SetCreated(AIndex: Integer; const AValue: TDateTime);
  41804. begin
  41805. If (FCreated=AValue) then exit;
  41806. FCreated:=AValue;
  41807. MarkPropertyChanged(AIndex);
  41808. end;
  41809. Procedure TSP_MicrofeedMicrofeedData.SetData(AIndex: Integer; const AValue: TSPKeyValueArray);
  41810. begin
  41811. If (FData=AValue) then exit;
  41812. FData:=AValue;
  41813. MarkPropertyChanged(AIndex);
  41814. end;
  41815. Procedure TSP_MicrofeedMicrofeedData.SetDefinitionId(AIndex: Integer; const AValue: TInt32);
  41816. begin
  41817. If (FDefinitionId=AValue) then exit;
  41818. FDefinitionId:=AValue;
  41819. MarkPropertyChanged(AIndex);
  41820. end;
  41821. Procedure TSP_MicrofeedMicrofeedData.SetItemType(AIndex: Integer; const AValue: TInt32);
  41822. begin
  41823. If (FItemType=AValue) then exit;
  41824. FItemType:=AValue;
  41825. MarkPropertyChanged(AIndex);
  41826. end;
  41827. Procedure TSP_MicrofeedMicrofeedData.SetModified(AIndex: Integer; const AValue: TDateTime);
  41828. begin
  41829. If (FModified=AValue) then exit;
  41830. FModified:=AValue;
  41831. MarkPropertyChanged(AIndex);
  41832. end;
  41833. Procedure TSP_MicrofeedMicrofeedData.SetTargetIdentifier(AIndex: Integer; const AValue: string);
  41834. begin
  41835. If (FTargetIdentifier=AValue) then exit;
  41836. FTargetIdentifier:=AValue;
  41837. MarkPropertyChanged(AIndex);
  41838. end;
  41839. Procedure TSP_MicrofeedMicrofeedData.SetVersion(AIndex: Integer; const AValue: string);
  41840. begin
  41841. If (FVersion=AValue) then exit;
  41842. FVersion:=AValue;
  41843. MarkPropertyChanged(AIndex);
  41844. end;
  41845. {$IFDEF VER2_6}
  41846. Procedure TSP_MicrofeedMicrofeedData.SetArrayLength(const AName: String; ALength: Longint);
  41847. begin
  41848. Case aName of
  41849. 'data' : SetLength(FData,aLength);
  41850. else
  41851. inherited SetArrayLength(aName,ALength);
  41852. end;
  41853. end;
  41854. {$ENDIF VER2_6}
  41855. Function TSP_MicrofeedMicrofeedData.KeyAsURLPart : string;
  41856. begin
  41857. Result:=FormatDateTime('yyyy-mm-dd"T"hhmmss',Created);
  41858. end;
  41859. { --------------------------------------------------------------------
  41860. TSP_MicrofeedMicrofeedManager
  41861. --------------------------------------------------------------------}
  41862. Class Function TSP_MicrofeedMicrofeedManager.ObjectRestKind : String;
  41863. begin
  41864. Result:='MicrofeedManager';
  41865. end;
  41866. Procedure TSP_MicrofeedMicrofeedManager.SetCurrentUser(AIndex: Integer; const AValue: TSP_MicrofeedMicroBlogEntity);
  41867. begin
  41868. If (FCurrentUser=AValue) then exit;
  41869. FCurrentUser:=AValue;
  41870. MarkPropertyChanged(AIndex);
  41871. end;
  41872. Procedure TSP_MicrofeedMicrofeedManager.SetIsFeedActivityPublic(AIndex: Integer; const AValue: boolean);
  41873. begin
  41874. If (FIsFeedActivityPublic=AValue) then exit;
  41875. FIsFeedActivityPublic:=AValue;
  41876. MarkPropertyChanged(AIndex);
  41877. end;
  41878. Procedure TSP_MicrofeedMicrofeedManager.SetStaticThreadLink(AIndex: Integer; const AValue: string);
  41879. begin
  41880. If (FStaticThreadLink=AValue) then exit;
  41881. FStaticThreadLink:=AValue;
  41882. MarkPropertyChanged(AIndex);
  41883. end;
  41884. Function TSP_MicrofeedMicrofeedManager.KeyAsURLPart : string;
  41885. begin
  41886. Result:=BoolToStr(IsFeedActivityPublic,'true','false');
  41887. end;
  41888. { --------------------------------------------------------------------
  41889. TSP_MicrofeedMicrofeedPostOptionCollection
  41890. --------------------------------------------------------------------}
  41891. Class Function TSP_MicrofeedMicrofeedPostOptionCollection.ObjectRestKind : String;
  41892. begin
  41893. Result:='MicrofeedPostOptionCollection';
  41894. end;
  41895. Procedure TSP_MicrofeedMicrofeedPostOptionCollection.SetId4a81de82eeb94d6080ea5bf63e27023a(AIndex: Integer; const AValue: string);
  41896. begin
  41897. If (FId4a81de82eeb94d6080ea5bf63e27023a=AValue) then exit;
  41898. FId4a81de82eeb94d6080ea5bf63e27023a:=AValue;
  41899. MarkPropertyChanged(AIndex);
  41900. end;
  41901. Procedure TSP_MicrofeedMicrofeedPostOptionCollection.SetItems(AIndex: Integer; const AValue: TSP_MicrofeedMicrofeedPostOptionsArray);
  41902. begin
  41903. If (FItems=AValue) then exit;
  41904. FItems:=AValue;
  41905. MarkPropertyChanged(AIndex);
  41906. end;
  41907. {$IFDEF VER2_6}
  41908. Procedure TSP_MicrofeedMicrofeedPostOptionCollection.SetArrayLength(const AName: String; ALength: Longint);
  41909. begin
  41910. Case aName of
  41911. 'items' : SetLength(FItems,aLength);
  41912. else
  41913. inherited SetArrayLength(aName,ALength);
  41914. end;
  41915. end;
  41916. {$ENDIF VER2_6}
  41917. Function TSP_MicrofeedMicrofeedPostOptionCollection.KeyAsURLPart : string;
  41918. begin
  41919. Result:=TODataObject.MakeKeyString(Id4a81de82eeb94d6080ea5bf63e27023a);
  41920. end;
  41921. { --------------------------------------------------------------------
  41922. TSP_MicrofeedMicrofeedStore
  41923. --------------------------------------------------------------------}
  41924. Class Function TSP_MicrofeedMicrofeedStore.ObjectRestKind : String;
  41925. begin
  41926. Result:='MicrofeedStore';
  41927. end;
  41928. Procedure TSP_MicrofeedMicrofeedStore.SetId4a81de82eeb94d6080ea5bf63e27023a(AIndex: Integer; const AValue: string);
  41929. begin
  41930. If (FId4a81de82eeb94d6080ea5bf63e27023a=AValue) then exit;
  41931. FId4a81de82eeb94d6080ea5bf63e27023a:=AValue;
  41932. MarkPropertyChanged(AIndex);
  41933. end;
  41934. Function TSP_MicrofeedMicrofeedStore.KeyAsURLPart : string;
  41935. begin
  41936. Result:=TODataObject.MakeKeyString(Id4a81de82eeb94d6080ea5bf63e27023a);
  41937. end;
  41938. { --------------------------------------------------------------------
  41939. TSP_SocialSocialActorInfo
  41940. --------------------------------------------------------------------}
  41941. Class Function TSP_SocialSocialActorInfo.ObjectRestKind : String;
  41942. begin
  41943. Result:='SocialActorInfo';
  41944. end;
  41945. Procedure TSP_SocialSocialActorInfo.SetAccountName(AIndex: Integer; const AValue: string);
  41946. begin
  41947. If (FAccountName=AValue) then exit;
  41948. FAccountName:=AValue;
  41949. MarkPropertyChanged(AIndex);
  41950. end;
  41951. Procedure TSP_SocialSocialActorInfo.SetActorType(AIndex: Integer; const AValue: TInt32);
  41952. begin
  41953. If (FActorType=AValue) then exit;
  41954. FActorType:=AValue;
  41955. MarkPropertyChanged(AIndex);
  41956. end;
  41957. Procedure TSP_SocialSocialActorInfo.SetContentUri(AIndex: Integer; const AValue: string);
  41958. begin
  41959. If (FContentUri=AValue) then exit;
  41960. FContentUri:=AValue;
  41961. MarkPropertyChanged(AIndex);
  41962. end;
  41963. Procedure TSP_SocialSocialActorInfo.SetId(AIndex: Integer; const AValue: string);
  41964. begin
  41965. If (FId=AValue) then exit;
  41966. FId:=AValue;
  41967. MarkPropertyChanged(AIndex);
  41968. end;
  41969. Procedure TSP_SocialSocialActorInfo.SetTagGuid(AIndex: Integer; const AValue: TGUIDString);
  41970. begin
  41971. If (FTagGuid=AValue) then exit;
  41972. FTagGuid:=AValue;
  41973. MarkPropertyChanged(AIndex);
  41974. end;
  41975. { --------------------------------------------------------------------
  41976. TSP_SocialSocialActor
  41977. --------------------------------------------------------------------}
  41978. Class Function TSP_SocialSocialActor.ObjectRestKind : String;
  41979. begin
  41980. Result:='SocialActor';
  41981. end;
  41982. Procedure TSP_SocialSocialActor.SetAccountName(AIndex: Integer; const AValue: string);
  41983. begin
  41984. If (FAccountName=AValue) then exit;
  41985. FAccountName:=AValue;
  41986. MarkPropertyChanged(AIndex);
  41987. end;
  41988. Procedure TSP_SocialSocialActor.SetActorType(AIndex: Integer; const AValue: TInt32);
  41989. begin
  41990. If (FActorType=AValue) then exit;
  41991. FActorType:=AValue;
  41992. MarkPropertyChanged(AIndex);
  41993. end;
  41994. Procedure TSP_SocialSocialActor.SetCanFollow(AIndex: Integer; const AValue: boolean);
  41995. begin
  41996. If (FCanFollow=AValue) then exit;
  41997. FCanFollow:=AValue;
  41998. MarkPropertyChanged(AIndex);
  41999. end;
  42000. Procedure TSP_SocialSocialActor.SetContentUri(AIndex: Integer; const AValue: string);
  42001. begin
  42002. If (FContentUri=AValue) then exit;
  42003. FContentUri:=AValue;
  42004. MarkPropertyChanged(AIndex);
  42005. end;
  42006. Procedure TSP_SocialSocialActor.SetEmailAddress(AIndex: Integer; const AValue: string);
  42007. begin
  42008. If (FEmailAddress=AValue) then exit;
  42009. FEmailAddress:=AValue;
  42010. MarkPropertyChanged(AIndex);
  42011. end;
  42012. Procedure TSP_SocialSocialActor.SetFollowedContentUri(AIndex: Integer; const AValue: string);
  42013. begin
  42014. If (FFollowedContentUri=AValue) then exit;
  42015. FFollowedContentUri:=AValue;
  42016. MarkPropertyChanged(AIndex);
  42017. end;
  42018. Procedure TSP_SocialSocialActor.SetId(AIndex: Integer; const AValue: string);
  42019. begin
  42020. If (FId=AValue) then exit;
  42021. FId:=AValue;
  42022. MarkPropertyChanged(AIndex);
  42023. end;
  42024. Procedure TSP_SocialSocialActor.SetImageUri(AIndex: Integer; const AValue: string);
  42025. begin
  42026. If (FImageUri=AValue) then exit;
  42027. FImageUri:=AValue;
  42028. MarkPropertyChanged(AIndex);
  42029. end;
  42030. Procedure TSP_SocialSocialActor.SetIsFollowed(AIndex: Integer; const AValue: boolean);
  42031. begin
  42032. If (FIsFollowed=AValue) then exit;
  42033. FIsFollowed:=AValue;
  42034. MarkPropertyChanged(AIndex);
  42035. end;
  42036. Procedure TSP_SocialSocialActor.SetLibraryUri(AIndex: Integer; const AValue: string);
  42037. begin
  42038. If (FLibraryUri=AValue) then exit;
  42039. FLibraryUri:=AValue;
  42040. MarkPropertyChanged(AIndex);
  42041. end;
  42042. Procedure TSP_SocialSocialActor.SetName(AIndex: Integer; const AValue: string);
  42043. begin
  42044. If (FName=AValue) then exit;
  42045. FName:=AValue;
  42046. MarkPropertyChanged(AIndex);
  42047. end;
  42048. Procedure TSP_SocialSocialActor.SetPersonalSiteUri(AIndex: Integer; const AValue: string);
  42049. begin
  42050. If (FPersonalSiteUri=AValue) then exit;
  42051. FPersonalSiteUri:=AValue;
  42052. MarkPropertyChanged(AIndex);
  42053. end;
  42054. Procedure TSP_SocialSocialActor.SetStatus(AIndex: Integer; const AValue: TInt32);
  42055. begin
  42056. If (FStatus=AValue) then exit;
  42057. FStatus:=AValue;
  42058. MarkPropertyChanged(AIndex);
  42059. end;
  42060. Procedure TSP_SocialSocialActor.SetStatusText(AIndex: Integer; const AValue: string);
  42061. begin
  42062. If (FStatusText=AValue) then exit;
  42063. FStatusText:=AValue;
  42064. MarkPropertyChanged(AIndex);
  42065. end;
  42066. Procedure TSP_SocialSocialActor.SetTagGuid(AIndex: Integer; const AValue: TGUIDString);
  42067. begin
  42068. If (FTagGuid=AValue) then exit;
  42069. FTagGuid:=AValue;
  42070. MarkPropertyChanged(AIndex);
  42071. end;
  42072. Procedure TSP_SocialSocialActor.SetTitle(AIndex: Integer; const AValue: string);
  42073. begin
  42074. If (FTitle=AValue) then exit;
  42075. FTitle:=AValue;
  42076. MarkPropertyChanged(AIndex);
  42077. end;
  42078. Procedure TSP_SocialSocialActor.SetUri(AIndex: Integer; const AValue: string);
  42079. begin
  42080. If (FUri=AValue) then exit;
  42081. FUri:=AValue;
  42082. MarkPropertyChanged(AIndex);
  42083. end;
  42084. { --------------------------------------------------------------------
  42085. TSP_SocialSocialAttachmentAction
  42086. --------------------------------------------------------------------}
  42087. Class Function TSP_SocialSocialAttachmentAction.ObjectRestKind : String;
  42088. begin
  42089. Result:='SocialAttachmentAction';
  42090. end;
  42091. Procedure TSP_SocialSocialAttachmentAction.SetActionKind(AIndex: Integer; const AValue: TInt32);
  42092. begin
  42093. If (FActionKind=AValue) then exit;
  42094. FActionKind:=AValue;
  42095. MarkPropertyChanged(AIndex);
  42096. end;
  42097. Procedure TSP_SocialSocialAttachmentAction.SetActionUri(AIndex: Integer; const AValue: string);
  42098. begin
  42099. If (FActionUri=AValue) then exit;
  42100. FActionUri:=AValue;
  42101. MarkPropertyChanged(AIndex);
  42102. end;
  42103. Procedure TSP_SocialSocialAttachmentAction.SetHeight(AIndex: Integer; const AValue: int64);
  42104. begin
  42105. If (FHeight=AValue) then exit;
  42106. FHeight:=AValue;
  42107. MarkPropertyChanged(AIndex);
  42108. end;
  42109. Procedure TSP_SocialSocialAttachmentAction.SetWidth(AIndex: Integer; const AValue: int64);
  42110. begin
  42111. If (FWidth=AValue) then exit;
  42112. FWidth:=AValue;
  42113. MarkPropertyChanged(AIndex);
  42114. end;
  42115. { --------------------------------------------------------------------
  42116. TSP_SocialSocialAttachment
  42117. --------------------------------------------------------------------}
  42118. Class Function TSP_SocialSocialAttachment.ObjectRestKind : String;
  42119. begin
  42120. Result:='SocialAttachment';
  42121. end;
  42122. Procedure TSP_SocialSocialAttachment.SetAttachmentKind(AIndex: Integer; const AValue: TInt32);
  42123. begin
  42124. If (FAttachmentKind=AValue) then exit;
  42125. FAttachmentKind:=AValue;
  42126. MarkPropertyChanged(AIndex);
  42127. end;
  42128. Procedure TSP_SocialSocialAttachment.SetClickAction(AIndex: Integer; const AValue: TSP_SocialSocialAttachmentAction);
  42129. begin
  42130. If (FClickAction=AValue) then exit;
  42131. FClickAction:=AValue;
  42132. MarkPropertyChanged(AIndex);
  42133. end;
  42134. Procedure TSP_SocialSocialAttachment.SetContentUri(AIndex: Integer; const AValue: string);
  42135. begin
  42136. If (FContentUri=AValue) then exit;
  42137. FContentUri:=AValue;
  42138. MarkPropertyChanged(AIndex);
  42139. end;
  42140. Procedure TSP_SocialSocialAttachment.SetDescription(AIndex: Integer; const AValue: string);
  42141. begin
  42142. If (FDescription=AValue) then exit;
  42143. FDescription:=AValue;
  42144. MarkPropertyChanged(AIndex);
  42145. end;
  42146. Procedure TSP_SocialSocialAttachment.SetHeight(AIndex: Integer; const AValue: int64);
  42147. begin
  42148. If (FHeight=AValue) then exit;
  42149. FHeight:=AValue;
  42150. MarkPropertyChanged(AIndex);
  42151. end;
  42152. Procedure TSP_SocialSocialAttachment.Set_Length(AIndex: Integer; const AValue: int64);
  42153. begin
  42154. If (F_Length=AValue) then exit;
  42155. F_Length:=AValue;
  42156. MarkPropertyChanged(AIndex);
  42157. end;
  42158. Procedure TSP_SocialSocialAttachment.SetName(AIndex: Integer; const AValue: string);
  42159. begin
  42160. If (FName=AValue) then exit;
  42161. FName:=AValue;
  42162. MarkPropertyChanged(AIndex);
  42163. end;
  42164. Procedure TSP_SocialSocialAttachment.SetPreviewHeight(AIndex: Integer; const AValue: int64);
  42165. begin
  42166. If (FPreviewHeight=AValue) then exit;
  42167. FPreviewHeight:=AValue;
  42168. MarkPropertyChanged(AIndex);
  42169. end;
  42170. Procedure TSP_SocialSocialAttachment.SetPreviewUri(AIndex: Integer; const AValue: string);
  42171. begin
  42172. If (FPreviewUri=AValue) then exit;
  42173. FPreviewUri:=AValue;
  42174. MarkPropertyChanged(AIndex);
  42175. end;
  42176. Procedure TSP_SocialSocialAttachment.SetPreviewWidth(AIndex: Integer; const AValue: int64);
  42177. begin
  42178. If (FPreviewWidth=AValue) then exit;
  42179. FPreviewWidth:=AValue;
  42180. MarkPropertyChanged(AIndex);
  42181. end;
  42182. Procedure TSP_SocialSocialAttachment.SetUri(AIndex: Integer; const AValue: string);
  42183. begin
  42184. If (FUri=AValue) then exit;
  42185. FUri:=AValue;
  42186. MarkPropertyChanged(AIndex);
  42187. end;
  42188. Procedure TSP_SocialSocialAttachment.SetWidth(AIndex: Integer; const AValue: int64);
  42189. begin
  42190. If (FWidth=AValue) then exit;
  42191. FWidth:=AValue;
  42192. MarkPropertyChanged(AIndex);
  42193. end;
  42194. Class Function TSP_SocialSocialAttachment.ExportPropertyName(Const AName : String) :String;
  42195. begin
  42196. Case AName of
  42197. '_Length' : Result:='Length';
  42198. else
  42199. Result:=Inherited ExportPropertyName(AName);
  42200. end;
  42201. end;
  42202. { --------------------------------------------------------------------
  42203. TSP_SocialSocialDataItem
  42204. --------------------------------------------------------------------}
  42205. Class Function TSP_SocialSocialDataItem.ObjectRestKind : String;
  42206. begin
  42207. Result:='SocialDataItem';
  42208. end;
  42209. Procedure TSP_SocialSocialDataItem.SetAccountName(AIndex: Integer; const AValue: string);
  42210. begin
  42211. If (FAccountName=AValue) then exit;
  42212. FAccountName:=AValue;
  42213. MarkPropertyChanged(AIndex);
  42214. end;
  42215. Procedure TSP_SocialSocialDataItem.SetItemType(AIndex: Integer; const AValue: TInt32);
  42216. begin
  42217. If (FItemType=AValue) then exit;
  42218. FItemType:=AValue;
  42219. MarkPropertyChanged(AIndex);
  42220. end;
  42221. Procedure TSP_SocialSocialDataItem.SetTagGuid(AIndex: Integer; const AValue: TGUIDString);
  42222. begin
  42223. If (FTagGuid=AValue) then exit;
  42224. FTagGuid:=AValue;
  42225. MarkPropertyChanged(AIndex);
  42226. end;
  42227. Procedure TSP_SocialSocialDataItem.SetText(AIndex: Integer; const AValue: string);
  42228. begin
  42229. If (FText=AValue) then exit;
  42230. FText:=AValue;
  42231. MarkPropertyChanged(AIndex);
  42232. end;
  42233. Procedure TSP_SocialSocialDataItem.SetUri(AIndex: Integer; const AValue: string);
  42234. begin
  42235. If (FUri=AValue) then exit;
  42236. FUri:=AValue;
  42237. MarkPropertyChanged(AIndex);
  42238. end;
  42239. { --------------------------------------------------------------------
  42240. TSP_SocialSocialDataOverlay
  42241. --------------------------------------------------------------------}
  42242. Class Function TSP_SocialSocialDataOverlay.ObjectRestKind : String;
  42243. begin
  42244. Result:='SocialDataOverlay';
  42245. end;
  42246. Procedure TSP_SocialSocialDataOverlay.SetActorIndexes(AIndex: Integer; const AValue: TInt32Array);
  42247. begin
  42248. If (FActorIndexes=AValue) then exit;
  42249. FActorIndexes:=AValue;
  42250. MarkPropertyChanged(AIndex);
  42251. end;
  42252. Procedure TSP_SocialSocialDataOverlay.SetIndex(AIndex: Integer; const AValue: TInt32);
  42253. begin
  42254. If (FIndex=AValue) then exit;
  42255. FIndex:=AValue;
  42256. MarkPropertyChanged(AIndex);
  42257. end;
  42258. Procedure TSP_SocialSocialDataOverlay.Set_Length(AIndex: Integer; const AValue: TInt32);
  42259. begin
  42260. If (F_Length=AValue) then exit;
  42261. F_Length:=AValue;
  42262. MarkPropertyChanged(AIndex);
  42263. end;
  42264. Procedure TSP_SocialSocialDataOverlay.SetLinkUri(AIndex: Integer; const AValue: string);
  42265. begin
  42266. If (FLinkUri=AValue) then exit;
  42267. FLinkUri:=AValue;
  42268. MarkPropertyChanged(AIndex);
  42269. end;
  42270. Procedure TSP_SocialSocialDataOverlay.SetOverlayType(AIndex: Integer; const AValue: TInt32);
  42271. begin
  42272. If (FOverlayType=AValue) then exit;
  42273. FOverlayType:=AValue;
  42274. MarkPropertyChanged(AIndex);
  42275. end;
  42276. {$IFDEF VER2_6}
  42277. Procedure TSP_SocialSocialDataOverlay.SetArrayLength(const AName: String; ALength: Longint);
  42278. begin
  42279. Case aName of
  42280. 'actorindexes' : SetLength(FActorIndexes,aLength);
  42281. else
  42282. inherited SetArrayLength(aName,ALength);
  42283. end;
  42284. end;
  42285. {$ENDIF VER2_6}
  42286. Class Function TSP_SocialSocialDataOverlay.ExportPropertyName(Const AName : String) :String;
  42287. begin
  42288. Case AName of
  42289. '_Length' : Result:='Length';
  42290. else
  42291. Result:=Inherited ExportPropertyName(AName);
  42292. end;
  42293. end;
  42294. { --------------------------------------------------------------------
  42295. TSP_SocialSocialExceptionDetails
  42296. --------------------------------------------------------------------}
  42297. Class Function TSP_SocialSocialExceptionDetails.ObjectRestKind : String;
  42298. begin
  42299. Result:='SocialExceptionDetails';
  42300. end;
  42301. Procedure TSP_SocialSocialExceptionDetails.SetInternalErrorCode(AIndex: Integer; const AValue: TInt32);
  42302. begin
  42303. If (FInternalErrorCode=AValue) then exit;
  42304. FInternalErrorCode:=AValue;
  42305. MarkPropertyChanged(AIndex);
  42306. end;
  42307. Procedure TSP_SocialSocialExceptionDetails.SetInternalMessage(AIndex: Integer; const AValue: string);
  42308. begin
  42309. If (FInternalMessage=AValue) then exit;
  42310. FInternalMessage:=AValue;
  42311. MarkPropertyChanged(AIndex);
  42312. end;
  42313. Procedure TSP_SocialSocialExceptionDetails.SetInternalStackTrace(AIndex: Integer; const AValue: string);
  42314. begin
  42315. If (FInternalStackTrace=AValue) then exit;
  42316. FInternalStackTrace:=AValue;
  42317. MarkPropertyChanged(AIndex);
  42318. end;
  42319. Procedure TSP_SocialSocialExceptionDetails.SetInternalTypeName(AIndex: Integer; const AValue: string);
  42320. begin
  42321. If (FInternalTypeName=AValue) then exit;
  42322. FInternalTypeName:=AValue;
  42323. MarkPropertyChanged(AIndex);
  42324. end;
  42325. Procedure TSP_SocialSocialExceptionDetails.SetStatus(AIndex: Integer; const AValue: TInt32);
  42326. begin
  42327. If (FStatus=AValue) then exit;
  42328. FStatus:=AValue;
  42329. MarkPropertyChanged(AIndex);
  42330. end;
  42331. { --------------------------------------------------------------------
  42332. TSP_SocialSocialFeedOptions
  42333. --------------------------------------------------------------------}
  42334. Class Function TSP_SocialSocialFeedOptions.ObjectRestKind : String;
  42335. begin
  42336. Result:='SocialFeedOptions';
  42337. end;
  42338. Procedure TSP_SocialSocialFeedOptions.SetMaxThreadCount(AIndex: Integer; const AValue: TInt32);
  42339. begin
  42340. If (FMaxThreadCount=AValue) then exit;
  42341. FMaxThreadCount:=AValue;
  42342. MarkPropertyChanged(AIndex);
  42343. end;
  42344. Procedure TSP_SocialSocialFeedOptions.SetNewerThan(AIndex: Integer; const AValue: TDateTime);
  42345. begin
  42346. If (FNewerThan=AValue) then exit;
  42347. FNewerThan:=AValue;
  42348. MarkPropertyChanged(AIndex);
  42349. end;
  42350. Procedure TSP_SocialSocialFeedOptions.SetOlderThan(AIndex: Integer; const AValue: TDateTime);
  42351. begin
  42352. If (FOlderThan=AValue) then exit;
  42353. FOlderThan:=AValue;
  42354. MarkPropertyChanged(AIndex);
  42355. end;
  42356. Procedure TSP_SocialSocialFeedOptions.SetSortOrder(AIndex: Integer; const AValue: TInt32);
  42357. begin
  42358. If (FSortOrder=AValue) then exit;
  42359. FSortOrder:=AValue;
  42360. MarkPropertyChanged(AIndex);
  42361. end;
  42362. { --------------------------------------------------------------------
  42363. TSP_SocialSocialFeed
  42364. --------------------------------------------------------------------}
  42365. Class Function TSP_SocialSocialFeed.ObjectRestKind : String;
  42366. begin
  42367. Result:='SocialFeed';
  42368. end;
  42369. Procedure TSP_SocialSocialFeed.SetAttributes(AIndex: Integer; const AValue: TInt32);
  42370. begin
  42371. If (FAttributes=AValue) then exit;
  42372. FAttributes:=AValue;
  42373. MarkPropertyChanged(AIndex);
  42374. end;
  42375. Procedure TSP_SocialSocialFeed.SetNewestProcessed(AIndex: Integer; const AValue: TDateTime);
  42376. begin
  42377. If (FNewestProcessed=AValue) then exit;
  42378. FNewestProcessed:=AValue;
  42379. MarkPropertyChanged(AIndex);
  42380. end;
  42381. Procedure TSP_SocialSocialFeed.SetOldestProcessed(AIndex: Integer; const AValue: TDateTime);
  42382. begin
  42383. If (FOldestProcessed=AValue) then exit;
  42384. FOldestProcessed:=AValue;
  42385. MarkPropertyChanged(AIndex);
  42386. end;
  42387. Procedure TSP_SocialSocialFeed.SetThreads(AIndex: Integer; const AValue: TSP_SocialSocialThreadArray);
  42388. begin
  42389. If (FThreads=AValue) then exit;
  42390. FThreads:=AValue;
  42391. MarkPropertyChanged(AIndex);
  42392. end;
  42393. Procedure TSP_SocialSocialFeed.SetUnreadMentionCount(AIndex: Integer; const AValue: TInt32);
  42394. begin
  42395. If (FUnreadMentionCount=AValue) then exit;
  42396. FUnreadMentionCount:=AValue;
  42397. MarkPropertyChanged(AIndex);
  42398. end;
  42399. {$IFDEF VER2_6}
  42400. Procedure TSP_SocialSocialFeed.SetArrayLength(const AName: String; ALength: Longint);
  42401. begin
  42402. Case aName of
  42403. 'threads' : SetLength(FThreads,aLength);
  42404. else
  42405. inherited SetArrayLength(aName,ALength);
  42406. end;
  42407. end;
  42408. {$ENDIF VER2_6}
  42409. { --------------------------------------------------------------------
  42410. TSP_SocialSocialThread
  42411. --------------------------------------------------------------------}
  42412. Class Function TSP_SocialSocialThread.ObjectRestKind : String;
  42413. begin
  42414. Result:='SocialThread';
  42415. end;
  42416. Procedure TSP_SocialSocialThread.SetActors(AIndex: Integer; const AValue: TSP_SocialSocialActorArray);
  42417. begin
  42418. If (FActors=AValue) then exit;
  42419. FActors:=AValue;
  42420. MarkPropertyChanged(AIndex);
  42421. end;
  42422. Procedure TSP_SocialSocialThread.SetAttributes(AIndex: Integer; const AValue: TInt32);
  42423. begin
  42424. If (FAttributes=AValue) then exit;
  42425. FAttributes:=AValue;
  42426. MarkPropertyChanged(AIndex);
  42427. end;
  42428. Procedure TSP_SocialSocialThread.SetId(AIndex: Integer; const AValue: string);
  42429. begin
  42430. If (FId=AValue) then exit;
  42431. FId:=AValue;
  42432. MarkPropertyChanged(AIndex);
  42433. end;
  42434. Procedure TSP_SocialSocialThread.SetOwnerIndex(AIndex: Integer; const AValue: TInt32);
  42435. begin
  42436. If (FOwnerIndex=AValue) then exit;
  42437. FOwnerIndex:=AValue;
  42438. MarkPropertyChanged(AIndex);
  42439. end;
  42440. Procedure TSP_SocialSocialThread.SetPermalink(AIndex: Integer; const AValue: string);
  42441. begin
  42442. If (FPermalink=AValue) then exit;
  42443. FPermalink:=AValue;
  42444. MarkPropertyChanged(AIndex);
  42445. end;
  42446. Procedure TSP_SocialSocialThread.SetPostReference(AIndex: Integer; const AValue: TSP_SocialSocialPostReference);
  42447. begin
  42448. If (FPostReference=AValue) then exit;
  42449. FPostReference:=AValue;
  42450. MarkPropertyChanged(AIndex);
  42451. end;
  42452. Procedure TSP_SocialSocialThread.SetReplies(AIndex: Integer; const AValue: TSP_SocialSocialPostArray);
  42453. begin
  42454. If (FReplies=AValue) then exit;
  42455. FReplies:=AValue;
  42456. MarkPropertyChanged(AIndex);
  42457. end;
  42458. Procedure TSP_SocialSocialThread.SetRootPost(AIndex: Integer; const AValue: TSP_SocialSocialPost);
  42459. begin
  42460. If (FRootPost=AValue) then exit;
  42461. FRootPost:=AValue;
  42462. MarkPropertyChanged(AIndex);
  42463. end;
  42464. Procedure TSP_SocialSocialThread.SetStatus(AIndex: Integer; const AValue: TInt32);
  42465. begin
  42466. If (FStatus=AValue) then exit;
  42467. FStatus:=AValue;
  42468. MarkPropertyChanged(AIndex);
  42469. end;
  42470. Procedure TSP_SocialSocialThread.SetThreadType(AIndex: Integer; const AValue: TInt32);
  42471. begin
  42472. If (FThreadType=AValue) then exit;
  42473. FThreadType:=AValue;
  42474. MarkPropertyChanged(AIndex);
  42475. end;
  42476. Procedure TSP_SocialSocialThread.SetTotalReplyCount(AIndex: Integer; const AValue: TInt32);
  42477. begin
  42478. If (FTotalReplyCount=AValue) then exit;
  42479. FTotalReplyCount:=AValue;
  42480. MarkPropertyChanged(AIndex);
  42481. end;
  42482. {$IFDEF VER2_6}
  42483. Procedure TSP_SocialSocialThread.SetArrayLength(const AName: String; ALength: Longint);
  42484. begin
  42485. Case aName of
  42486. 'actors' : SetLength(FActors,aLength);
  42487. 'replies' : SetLength(FReplies,aLength);
  42488. else
  42489. inherited SetArrayLength(aName,ALength);
  42490. end;
  42491. end;
  42492. {$ENDIF VER2_6}
  42493. { --------------------------------------------------------------------
  42494. TSP_SocialSocialPostReference
  42495. --------------------------------------------------------------------}
  42496. Class Function TSP_SocialSocialPostReference.ObjectRestKind : String;
  42497. begin
  42498. Result:='SocialPostReference';
  42499. end;
  42500. Procedure TSP_SocialSocialPostReference.SetDigest(AIndex: Integer; const AValue: TSP_SocialSocialThread);
  42501. begin
  42502. If (FDigest=AValue) then exit;
  42503. FDigest:=AValue;
  42504. MarkPropertyChanged(AIndex);
  42505. end;
  42506. Procedure TSP_SocialSocialPostReference.SetPost(AIndex: Integer; const AValue: TSP_SocialSocialPost);
  42507. begin
  42508. If (FPost=AValue) then exit;
  42509. FPost:=AValue;
  42510. MarkPropertyChanged(AIndex);
  42511. end;
  42512. Procedure TSP_SocialSocialPostReference.SetThreadId(AIndex: Integer; const AValue: string);
  42513. begin
  42514. If (FThreadId=AValue) then exit;
  42515. FThreadId:=AValue;
  42516. MarkPropertyChanged(AIndex);
  42517. end;
  42518. Procedure TSP_SocialSocialPostReference.SetThreadOwnerIndex(AIndex: Integer; const AValue: TInt32);
  42519. begin
  42520. If (FThreadOwnerIndex=AValue) then exit;
  42521. FThreadOwnerIndex:=AValue;
  42522. MarkPropertyChanged(AIndex);
  42523. end;
  42524. { --------------------------------------------------------------------
  42525. TSP_SocialSocialPost
  42526. --------------------------------------------------------------------}
  42527. Class Function TSP_SocialSocialPost.ObjectRestKind : String;
  42528. begin
  42529. Result:='SocialPost';
  42530. end;
  42531. Procedure TSP_SocialSocialPost.SetAttachment(AIndex: Integer; const AValue: TSP_SocialSocialAttachment);
  42532. begin
  42533. If (FAttachment=AValue) then exit;
  42534. FAttachment:=AValue;
  42535. MarkPropertyChanged(AIndex);
  42536. end;
  42537. Procedure TSP_SocialSocialPost.SetAttributes(AIndex: Integer; const AValue: TInt32);
  42538. begin
  42539. If (FAttributes=AValue) then exit;
  42540. FAttributes:=AValue;
  42541. MarkPropertyChanged(AIndex);
  42542. end;
  42543. Procedure TSP_SocialSocialPost.SetAuthorIndex(AIndex: Integer; const AValue: TInt32);
  42544. begin
  42545. If (FAuthorIndex=AValue) then exit;
  42546. FAuthorIndex:=AValue;
  42547. MarkPropertyChanged(AIndex);
  42548. end;
  42549. Procedure TSP_SocialSocialPost.SetCreatedTime(AIndex: Integer; const AValue: TDateTime);
  42550. begin
  42551. If (FCreatedTime=AValue) then exit;
  42552. FCreatedTime:=AValue;
  42553. MarkPropertyChanged(AIndex);
  42554. end;
  42555. Procedure TSP_SocialSocialPost.SetId(AIndex: Integer; const AValue: string);
  42556. begin
  42557. If (FId=AValue) then exit;
  42558. FId:=AValue;
  42559. MarkPropertyChanged(AIndex);
  42560. end;
  42561. Procedure TSP_SocialSocialPost.SetLikerInfo(AIndex: Integer; const AValue: TSP_SocialSocialPostActorInfo);
  42562. begin
  42563. If (FLikerInfo=AValue) then exit;
  42564. FLikerInfo:=AValue;
  42565. MarkPropertyChanged(AIndex);
  42566. end;
  42567. Procedure TSP_SocialSocialPost.SetModifiedTime(AIndex: Integer; const AValue: TDateTime);
  42568. begin
  42569. If (FModifiedTime=AValue) then exit;
  42570. FModifiedTime:=AValue;
  42571. MarkPropertyChanged(AIndex);
  42572. end;
  42573. Procedure TSP_SocialSocialPost.SetOverlays(AIndex: Integer; const AValue: TSP_SocialSocialDataOverlayArray);
  42574. begin
  42575. If (FOverlays=AValue) then exit;
  42576. FOverlays:=AValue;
  42577. MarkPropertyChanged(AIndex);
  42578. end;
  42579. Procedure TSP_SocialSocialPost.SetPostType(AIndex: Integer; const AValue: TInt32);
  42580. begin
  42581. If (FPostType=AValue) then exit;
  42582. FPostType:=AValue;
  42583. MarkPropertyChanged(AIndex);
  42584. end;
  42585. Procedure TSP_SocialSocialPost.SetPreferredImageUri(AIndex: Integer; const AValue: string);
  42586. begin
  42587. If (FPreferredImageUri=AValue) then exit;
  42588. FPreferredImageUri:=AValue;
  42589. MarkPropertyChanged(AIndex);
  42590. end;
  42591. Procedure TSP_SocialSocialPost.SetSource(AIndex: Integer; const AValue: TSP_SocialSocialLink);
  42592. begin
  42593. If (FSource=AValue) then exit;
  42594. FSource:=AValue;
  42595. MarkPropertyChanged(AIndex);
  42596. end;
  42597. Procedure TSP_SocialSocialPost.SetText(AIndex: Integer; const AValue: string);
  42598. begin
  42599. If (FText=AValue) then exit;
  42600. FText:=AValue;
  42601. MarkPropertyChanged(AIndex);
  42602. end;
  42603. {$IFDEF VER2_6}
  42604. Procedure TSP_SocialSocialPost.SetArrayLength(const AName: String; ALength: Longint);
  42605. begin
  42606. Case aName of
  42607. 'overlays' : SetLength(FOverlays,aLength);
  42608. else
  42609. inherited SetArrayLength(aName,ALength);
  42610. end;
  42611. end;
  42612. {$ENDIF VER2_6}
  42613. { --------------------------------------------------------------------
  42614. TSP_SocialSocialPostActorInfo
  42615. --------------------------------------------------------------------}
  42616. Class Function TSP_SocialSocialPostActorInfo.ObjectRestKind : String;
  42617. begin
  42618. Result:='SocialPostActorInfo';
  42619. end;
  42620. Procedure TSP_SocialSocialPostActorInfo.SetIncludesCurrentUser(AIndex: Integer; const AValue: boolean);
  42621. begin
  42622. If (FIncludesCurrentUser=AValue) then exit;
  42623. FIncludesCurrentUser:=AValue;
  42624. MarkPropertyChanged(AIndex);
  42625. end;
  42626. Procedure TSP_SocialSocialPostActorInfo.SetIndexes(AIndex: Integer; const AValue: TInt32Array);
  42627. begin
  42628. If (FIndexes=AValue) then exit;
  42629. FIndexes:=AValue;
  42630. MarkPropertyChanged(AIndex);
  42631. end;
  42632. Procedure TSP_SocialSocialPostActorInfo.SetTotalCount(AIndex: Integer; const AValue: TInt32);
  42633. begin
  42634. If (FTotalCount=AValue) then exit;
  42635. FTotalCount:=AValue;
  42636. MarkPropertyChanged(AIndex);
  42637. end;
  42638. {$IFDEF VER2_6}
  42639. Procedure TSP_SocialSocialPostActorInfo.SetArrayLength(const AName: String; ALength: Longint);
  42640. begin
  42641. Case aName of
  42642. 'indexes' : SetLength(FIndexes,aLength);
  42643. else
  42644. inherited SetArrayLength(aName,ALength);
  42645. end;
  42646. end;
  42647. {$ENDIF VER2_6}
  42648. { --------------------------------------------------------------------
  42649. TSP_SocialSocialLink
  42650. --------------------------------------------------------------------}
  42651. Class Function TSP_SocialSocialLink.ObjectRestKind : String;
  42652. begin
  42653. Result:='SocialLink';
  42654. end;
  42655. Procedure TSP_SocialSocialLink.SetText(AIndex: Integer; const AValue: string);
  42656. begin
  42657. If (FText=AValue) then exit;
  42658. FText:=AValue;
  42659. MarkPropertyChanged(AIndex);
  42660. end;
  42661. Procedure TSP_SocialSocialLink.SetUri(AIndex: Integer; const AValue: string);
  42662. begin
  42663. If (FUri=AValue) then exit;
  42664. FUri:=AValue;
  42665. MarkPropertyChanged(AIndex);
  42666. end;
  42667. { --------------------------------------------------------------------
  42668. TSP_SocialSocialPostCreationData
  42669. --------------------------------------------------------------------}
  42670. Class Function TSP_SocialSocialPostCreationData.ObjectRestKind : String;
  42671. begin
  42672. Result:='SocialPostCreationData';
  42673. end;
  42674. Procedure TSP_SocialSocialPostCreationData.SetAttachment(AIndex: Integer; const AValue: TSP_SocialSocialAttachment);
  42675. begin
  42676. If (FAttachment=AValue) then exit;
  42677. FAttachment:=AValue;
  42678. MarkPropertyChanged(AIndex);
  42679. end;
  42680. Procedure TSP_SocialSocialPostCreationData.SetContentItems(AIndex: Integer; const AValue: TSP_SocialSocialDataItemArray);
  42681. begin
  42682. If (FContentItems=AValue) then exit;
  42683. FContentItems:=AValue;
  42684. MarkPropertyChanged(AIndex);
  42685. end;
  42686. Procedure TSP_SocialSocialPostCreationData.SetContentText(AIndex: Integer; const AValue: string);
  42687. begin
  42688. If (FContentText=AValue) then exit;
  42689. FContentText:=AValue;
  42690. MarkPropertyChanged(AIndex);
  42691. end;
  42692. Procedure TSP_SocialSocialPostCreationData.SetDefinitionData(AIndex: Integer; const AValue: TSP_SocialSocialPostDefinitionData);
  42693. begin
  42694. If (FDefinitionData=AValue) then exit;
  42695. FDefinitionData:=AValue;
  42696. MarkPropertyChanged(AIndex);
  42697. end;
  42698. Procedure TSP_SocialSocialPostCreationData.SetSecurityUris(AIndex: Integer; const AValue: TStringArray);
  42699. begin
  42700. If (FSecurityUris=AValue) then exit;
  42701. FSecurityUris:=AValue;
  42702. MarkPropertyChanged(AIndex);
  42703. end;
  42704. Procedure TSP_SocialSocialPostCreationData.SetSource(AIndex: Integer; const AValue: TSP_SocialSocialLink);
  42705. begin
  42706. If (FSource=AValue) then exit;
  42707. FSource:=AValue;
  42708. MarkPropertyChanged(AIndex);
  42709. end;
  42710. Procedure TSP_SocialSocialPostCreationData.SetUpdateStatusText(AIndex: Integer; const AValue: boolean);
  42711. begin
  42712. If (FUpdateStatusText=AValue) then exit;
  42713. FUpdateStatusText:=AValue;
  42714. MarkPropertyChanged(AIndex);
  42715. end;
  42716. {$IFDEF VER2_6}
  42717. Procedure TSP_SocialSocialPostCreationData.SetArrayLength(const AName: String; ALength: Longint);
  42718. begin
  42719. Case aName of
  42720. 'contentitems' : SetLength(FContentItems,aLength);
  42721. 'securityuris' : SetLength(FSecurityUris,aLength);
  42722. else
  42723. inherited SetArrayLength(aName,ALength);
  42724. end;
  42725. end;
  42726. {$ENDIF VER2_6}
  42727. { --------------------------------------------------------------------
  42728. TSP_SocialSocialPostDefinitionData
  42729. --------------------------------------------------------------------}
  42730. Class Function TSP_SocialSocialPostDefinitionData.ObjectRestKind : String;
  42731. begin
  42732. Result:='SocialPostDefinitionData';
  42733. end;
  42734. Procedure TSP_SocialSocialPostDefinitionData.SetItems(AIndex: Integer; const AValue: TSP_SocialSocialPostDefinitionDataItemArray);
  42735. begin
  42736. If (FItems=AValue) then exit;
  42737. FItems:=AValue;
  42738. MarkPropertyChanged(AIndex);
  42739. end;
  42740. Procedure TSP_SocialSocialPostDefinitionData.SetName(AIndex: Integer; const AValue: string);
  42741. begin
  42742. If (FName=AValue) then exit;
  42743. FName:=AValue;
  42744. MarkPropertyChanged(AIndex);
  42745. end;
  42746. {$IFDEF VER2_6}
  42747. Procedure TSP_SocialSocialPostDefinitionData.SetArrayLength(const AName: String; ALength: Longint);
  42748. begin
  42749. Case aName of
  42750. 'items' : SetLength(FItems,aLength);
  42751. else
  42752. inherited SetArrayLength(aName,ALength);
  42753. end;
  42754. end;
  42755. {$ENDIF VER2_6}
  42756. { --------------------------------------------------------------------
  42757. TSP_SocialSocialPostDefinitionDataItem
  42758. --------------------------------------------------------------------}
  42759. Class Function TSP_SocialSocialPostDefinitionDataItem.ObjectRestKind : String;
  42760. begin
  42761. Result:='SocialPostDefinitionDataItem';
  42762. end;
  42763. Procedure TSP_SocialSocialPostDefinitionDataItem.SetAccountName(AIndex: Integer; const AValue: string);
  42764. begin
  42765. If (FAccountName=AValue) then exit;
  42766. FAccountName:=AValue;
  42767. MarkPropertyChanged(AIndex);
  42768. end;
  42769. Procedure TSP_SocialSocialPostDefinitionDataItem.SetItemType(AIndex: Integer; const AValue: TInt32);
  42770. begin
  42771. If (FItemType=AValue) then exit;
  42772. FItemType:=AValue;
  42773. MarkPropertyChanged(AIndex);
  42774. end;
  42775. Procedure TSP_SocialSocialPostDefinitionDataItem.SetPlaceholderName(AIndex: Integer; const AValue: string);
  42776. begin
  42777. If (FPlaceholderName=AValue) then exit;
  42778. FPlaceholderName:=AValue;
  42779. MarkPropertyChanged(AIndex);
  42780. end;
  42781. Procedure TSP_SocialSocialPostDefinitionDataItem.SetTagGuid(AIndex: Integer; const AValue: TGUIDString);
  42782. begin
  42783. If (FTagGuid=AValue) then exit;
  42784. FTagGuid:=AValue;
  42785. MarkPropertyChanged(AIndex);
  42786. end;
  42787. Procedure TSP_SocialSocialPostDefinitionDataItem.SetText(AIndex: Integer; const AValue: string);
  42788. begin
  42789. If (FText=AValue) then exit;
  42790. FText:=AValue;
  42791. MarkPropertyChanged(AIndex);
  42792. end;
  42793. Procedure TSP_SocialSocialPostDefinitionDataItem.SetUri(AIndex: Integer; const AValue: string);
  42794. begin
  42795. If (FUri=AValue) then exit;
  42796. FUri:=AValue;
  42797. MarkPropertyChanged(AIndex);
  42798. end;
  42799. { --------------------------------------------------------------------
  42800. TSP_SocialSocialRestPostCreationData
  42801. --------------------------------------------------------------------}
  42802. Class Function TSP_SocialSocialRestPostCreationData.ObjectRestKind : String;
  42803. begin
  42804. Result:='SocialRestPostCreationData';
  42805. end;
  42806. Procedure TSP_SocialSocialRestPostCreationData.SetID(AIndex: Integer; const AValue: string);
  42807. begin
  42808. If (FID=AValue) then exit;
  42809. FID:=AValue;
  42810. MarkPropertyChanged(AIndex);
  42811. end;
  42812. Procedure TSP_SocialSocialRestPostCreationData.SetcreationData(AIndex: Integer; const AValue: TSP_SocialSocialPostCreationData);
  42813. begin
  42814. If (FcreationData=AValue) then exit;
  42815. FcreationData:=AValue;
  42816. MarkPropertyChanged(AIndex);
  42817. end;
  42818. { --------------------------------------------------------------------
  42819. TSP_SocialSocialAnnouncementManager
  42820. --------------------------------------------------------------------}
  42821. Class Function TSP_SocialSocialAnnouncementManager.ObjectRestKind : String;
  42822. begin
  42823. Result:='SocialAnnouncementManager';
  42824. end;
  42825. Procedure TSP_SocialSocialAnnouncementManager.SetId4a81de82eeb94d6080ea5bf63e27023a(AIndex: Integer; const AValue: string);
  42826. begin
  42827. If (FId4a81de82eeb94d6080ea5bf63e27023a=AValue) then exit;
  42828. FId4a81de82eeb94d6080ea5bf63e27023a:=AValue;
  42829. MarkPropertyChanged(AIndex);
  42830. end;
  42831. Function TSP_SocialSocialAnnouncementManager.KeyAsURLPart : string;
  42832. begin
  42833. Result:=TODataObject.MakeKeyString(Id4a81de82eeb94d6080ea5bf63e27023a);
  42834. end;
  42835. { --------------------------------------------------------------------
  42836. TSP_SocialSocialFeedManager
  42837. --------------------------------------------------------------------}
  42838. Class Function TSP_SocialSocialFeedManager.ObjectRestKind : String;
  42839. begin
  42840. Result:='SocialFeedManager';
  42841. end;
  42842. Procedure TSP_SocialSocialFeedManager.SetOwner(AIndex: Integer; const AValue: TSP_SocialSocialActor);
  42843. begin
  42844. If (FOwner=AValue) then exit;
  42845. FOwner:=AValue;
  42846. MarkPropertyChanged(AIndex);
  42847. end;
  42848. Procedure TSP_SocialSocialFeedManager.SetPersonalSitePortalUri(AIndex: Integer; const AValue: string);
  42849. begin
  42850. If (FPersonalSitePortalUri=AValue) then exit;
  42851. FPersonalSitePortalUri:=AValue;
  42852. MarkPropertyChanged(AIndex);
  42853. end;
  42854. Function TSP_SocialSocialFeedManager.KeyAsURLPart : string;
  42855. begin
  42856. Result:=TODataObject.MakeKeyString(PersonalSitePortalUri);
  42857. end;
  42858. { --------------------------------------------------------------------
  42859. TSP_SocialSocialFollowingManager
  42860. --------------------------------------------------------------------}
  42861. Class Function TSP_SocialSocialFollowingManager.ObjectRestKind : String;
  42862. begin
  42863. Result:='SocialFollowingManager';
  42864. end;
  42865. Procedure TSP_SocialSocialFollowingManager.SetFollowedDocumentsUri(AIndex: Integer; const AValue: string);
  42866. begin
  42867. If (FFollowedDocumentsUri=AValue) then exit;
  42868. FFollowedDocumentsUri:=AValue;
  42869. MarkPropertyChanged(AIndex);
  42870. end;
  42871. Procedure TSP_SocialSocialFollowingManager.SetFollowedSitesUri(AIndex: Integer; const AValue: string);
  42872. begin
  42873. If (FFollowedSitesUri=AValue) then exit;
  42874. FFollowedSitesUri:=AValue;
  42875. MarkPropertyChanged(AIndex);
  42876. end;
  42877. Function TSP_SocialSocialFollowingManager.KeyAsURLPart : string;
  42878. begin
  42879. Result:=TODataObject.MakeKeyString(FollowedDocumentsUri);
  42880. end;
  42881. { --------------------------------------------------------------------
  42882. TSP_SocialSocialRestActor
  42883. --------------------------------------------------------------------}
  42884. Class Function TSP_SocialSocialRestActor.ObjectRestKind : String;
  42885. begin
  42886. Result:='SocialRestActor';
  42887. end;
  42888. Procedure TSP_SocialSocialRestActor.SetFollowableItem(AIndex: Integer; const AValue: string);
  42889. begin
  42890. If (FFollowableItem=AValue) then exit;
  42891. FFollowableItem:=AValue;
  42892. MarkPropertyChanged(AIndex);
  42893. end;
  42894. Procedure TSP_SocialSocialRestActor.SetFollowableItemActor(AIndex: Integer; const AValue: TSP_SocialSocialActor);
  42895. begin
  42896. If (FFollowableItemActor=AValue) then exit;
  42897. FFollowableItemActor:=AValue;
  42898. MarkPropertyChanged(AIndex);
  42899. end;
  42900. Procedure TSP_SocialSocialRestActor.SetMe(AIndex: Integer; const AValue: TSP_SocialSocialActor);
  42901. begin
  42902. If (FMe=AValue) then exit;
  42903. FMe:=AValue;
  42904. MarkPropertyChanged(AIndex);
  42905. end;
  42906. Function TSP_SocialSocialRestActor.KeyAsURLPart : string;
  42907. begin
  42908. Result:=TODataObject.MakeKeyString(FollowableItem);
  42909. end;
  42910. { --------------------------------------------------------------------
  42911. TSP_SocialSocialRestFeedManager
  42912. --------------------------------------------------------------------}
  42913. Class Function TSP_SocialSocialRestFeedManager.ObjectRestKind : String;
  42914. begin
  42915. Result:='SocialRestFeedManager';
  42916. end;
  42917. Procedure TSP_SocialSocialRestFeedManager.SetId4a81de82eeb94d6080ea5bf63e27023a(AIndex: Integer; const AValue: string);
  42918. begin
  42919. If (FId4a81de82eeb94d6080ea5bf63e27023a=AValue) then exit;
  42920. FId4a81de82eeb94d6080ea5bf63e27023a:=AValue;
  42921. MarkPropertyChanged(AIndex);
  42922. end;
  42923. Function TSP_SocialSocialRestFeedManager.KeyAsURLPart : string;
  42924. begin
  42925. Result:=TODataObject.MakeKeyString(Id4a81de82eeb94d6080ea5bf63e27023a);
  42926. end;
  42927. { --------------------------------------------------------------------
  42928. TSP_SocialSocialRestFeed
  42929. --------------------------------------------------------------------}
  42930. Class Function TSP_SocialSocialRestFeed.ObjectRestKind : String;
  42931. begin
  42932. Result:='SocialRestFeed';
  42933. end;
  42934. Procedure TSP_SocialSocialRestFeed.SetId4a81de82eeb94d6080ea5bf63e27023a(AIndex: Integer; const AValue: string);
  42935. begin
  42936. If (FId4a81de82eeb94d6080ea5bf63e27023a=AValue) then exit;
  42937. FId4a81de82eeb94d6080ea5bf63e27023a:=AValue;
  42938. MarkPropertyChanged(AIndex);
  42939. end;
  42940. Procedure TSP_SocialSocialRestFeed.SetSocialFeed(AIndex: Integer; const AValue: TSP_SocialSocialFeed);
  42941. begin
  42942. If (FSocialFeed=AValue) then exit;
  42943. FSocialFeed:=AValue;
  42944. MarkPropertyChanged(AIndex);
  42945. end;
  42946. Function TSP_SocialSocialRestFeed.KeyAsURLPart : string;
  42947. begin
  42948. Result:=TODataObject.MakeKeyString(Id4a81de82eeb94d6080ea5bf63e27023a);
  42949. end;
  42950. { --------------------------------------------------------------------
  42951. TSP_SocialSocialRestFollowingManager
  42952. --------------------------------------------------------------------}
  42953. Class Function TSP_SocialSocialRestFollowingManager.ObjectRestKind : String;
  42954. begin
  42955. Result:='SocialRestFollowingManager';
  42956. end;
  42957. Procedure TSP_SocialSocialRestFollowingManager.SetFollowedDocumentsUri(AIndex: Integer; const AValue: string);
  42958. begin
  42959. If (FFollowedDocumentsUri=AValue) then exit;
  42960. FFollowedDocumentsUri:=AValue;
  42961. MarkPropertyChanged(AIndex);
  42962. end;
  42963. Procedure TSP_SocialSocialRestFollowingManager.SetFollowedSitesUri(AIndex: Integer; const AValue: string);
  42964. begin
  42965. If (FFollowedSitesUri=AValue) then exit;
  42966. FFollowedSitesUri:=AValue;
  42967. MarkPropertyChanged(AIndex);
  42968. end;
  42969. Procedure TSP_SocialSocialRestFollowingManager.SetMyFollowedDocumentsUri(AIndex: Integer; const AValue: string);
  42970. begin
  42971. If (FMyFollowedDocumentsUri=AValue) then exit;
  42972. FMyFollowedDocumentsUri:=AValue;
  42973. MarkPropertyChanged(AIndex);
  42974. end;
  42975. Procedure TSP_SocialSocialRestFollowingManager.SetMyFollowedSitesUri(AIndex: Integer; const AValue: string);
  42976. begin
  42977. If (FMyFollowedSitesUri=AValue) then exit;
  42978. FMyFollowedSitesUri:=AValue;
  42979. MarkPropertyChanged(AIndex);
  42980. end;
  42981. Procedure TSP_SocialSocialRestFollowingManager.SetSocialActor(AIndex: Integer; const AValue: TSP_SocialSocialActor);
  42982. begin
  42983. If (FSocialActor=AValue) then exit;
  42984. FSocialActor:=AValue;
  42985. MarkPropertyChanged(AIndex);
  42986. end;
  42987. Function TSP_SocialSocialRestFollowingManager.KeyAsURLPart : string;
  42988. begin
  42989. Result:=TODataObject.MakeKeyString(FollowedDocumentsUri);
  42990. end;
  42991. { --------------------------------------------------------------------
  42992. TSP_SocialSocialRestThread
  42993. --------------------------------------------------------------------}
  42994. Class Function TSP_SocialSocialRestThread.ObjectRestKind : String;
  42995. begin
  42996. Result:='SocialRestThread';
  42997. end;
  42998. Procedure TSP_SocialSocialRestThread.SetID(AIndex: Integer; const AValue: string);
  42999. begin
  43000. If (FID=AValue) then exit;
  43001. FID:=AValue;
  43002. MarkPropertyChanged(AIndex);
  43003. end;
  43004. Procedure TSP_SocialSocialRestThread.SetSocialThread(AIndex: Integer; const AValue: TSP_SocialSocialThread);
  43005. begin
  43006. If (FSocialThread=AValue) then exit;
  43007. FSocialThread:=AValue;
  43008. MarkPropertyChanged(AIndex);
  43009. end;
  43010. Function TSP_SocialSocialRestThread.KeyAsURLPart : string;
  43011. begin
  43012. Result:=TODataObject.MakeKeyString(ID);
  43013. end;
  43014. { --------------------------------------------------------------------
  43015. TSP_UserProfilesFollowedItem
  43016. --------------------------------------------------------------------}
  43017. Class Function TSP_UserProfilesFollowedItem.ObjectRestKind : String;
  43018. begin
  43019. Result:='FollowedItem';
  43020. end;
  43021. Procedure TSP_UserProfilesFollowedItem.SetData(AIndex: Integer; const AValue: TSPKeyValueArray);
  43022. begin
  43023. If (FData=AValue) then exit;
  43024. FData:=AValue;
  43025. MarkPropertyChanged(AIndex);
  43026. end;
  43027. Procedure TSP_UserProfilesFollowedItem.SetFileType(AIndex: Integer; const AValue: string);
  43028. begin
  43029. If (FFileType=AValue) then exit;
  43030. FFileType:=AValue;
  43031. MarkPropertyChanged(AIndex);
  43032. end;
  43033. Procedure TSP_UserProfilesFollowedItem.SetFileTypeProgid(AIndex: Integer; const AValue: string);
  43034. begin
  43035. If (FFileTypeProgid=AValue) then exit;
  43036. FFileTypeProgid:=AValue;
  43037. MarkPropertyChanged(AIndex);
  43038. end;
  43039. Procedure TSP_UserProfilesFollowedItem.SetFlags(AIndex: Integer; const AValue: string);
  43040. begin
  43041. If (FFlags=AValue) then exit;
  43042. FFlags:=AValue;
  43043. MarkPropertyChanged(AIndex);
  43044. end;
  43045. Procedure TSP_UserProfilesFollowedItem.SetGroupId(AIndex: Integer; const AValue: TGUIDString);
  43046. begin
  43047. If (FGroupId=AValue) then exit;
  43048. FGroupId:=AValue;
  43049. MarkPropertyChanged(AIndex);
  43050. end;
  43051. Procedure TSP_UserProfilesFollowedItem.SetHasFeed(AIndex: Integer; const AValue: boolean);
  43052. begin
  43053. If (FHasFeed=AValue) then exit;
  43054. FHasFeed:=AValue;
  43055. MarkPropertyChanged(AIndex);
  43056. end;
  43057. Procedure TSP_UserProfilesFollowedItem.SetHidden(AIndex: Integer; const AValue: boolean);
  43058. begin
  43059. If (FHidden=AValue) then exit;
  43060. FHidden:=AValue;
  43061. MarkPropertyChanged(AIndex);
  43062. end;
  43063. Procedure TSP_UserProfilesFollowedItem.SetIconUrl(AIndex: Integer; const AValue: string);
  43064. begin
  43065. If (FIconUrl=AValue) then exit;
  43066. FIconUrl:=AValue;
  43067. MarkPropertyChanged(AIndex);
  43068. end;
  43069. Procedure TSP_UserProfilesFollowedItem.SetItemId(AIndex: Integer; const AValue: TInt32);
  43070. begin
  43071. If (FItemId=AValue) then exit;
  43072. FItemId:=AValue;
  43073. MarkPropertyChanged(AIndex);
  43074. end;
  43075. Procedure TSP_UserProfilesFollowedItem.SetItemType(AIndex: Integer; const AValue: TInt32);
  43076. begin
  43077. If (FItemType=AValue) then exit;
  43078. FItemType:=AValue;
  43079. MarkPropertyChanged(AIndex);
  43080. end;
  43081. Procedure TSP_UserProfilesFollowedItem.SetListId(AIndex: Integer; const AValue: TGUIDString);
  43082. begin
  43083. If (FListId=AValue) then exit;
  43084. FListId:=AValue;
  43085. MarkPropertyChanged(AIndex);
  43086. end;
  43087. Procedure TSP_UserProfilesFollowedItem.SetParentUrl(AIndex: Integer; const AValue: string);
  43088. begin
  43089. If (FParentUrl=AValue) then exit;
  43090. FParentUrl:=AValue;
  43091. MarkPropertyChanged(AIndex);
  43092. end;
  43093. Procedure TSP_UserProfilesFollowedItem.SetPinned(AIndex: Integer; const AValue: TInt32);
  43094. begin
  43095. If (FPinned=AValue) then exit;
  43096. FPinned:=AValue;
  43097. MarkPropertyChanged(AIndex);
  43098. end;
  43099. Procedure TSP_UserProfilesFollowedItem.SetServerUrlProgid(AIndex: Integer; const AValue: string);
  43100. begin
  43101. If (FServerUrlProgid=AValue) then exit;
  43102. FServerUrlProgid:=AValue;
  43103. MarkPropertyChanged(AIndex);
  43104. end;
  43105. Procedure TSP_UserProfilesFollowedItem.SetSiteId(AIndex: Integer; const AValue: TGUIDString);
  43106. begin
  43107. If (FSiteId=AValue) then exit;
  43108. FSiteId:=AValue;
  43109. MarkPropertyChanged(AIndex);
  43110. end;
  43111. Procedure TSP_UserProfilesFollowedItem.SetSubtype(AIndex: Integer; const AValue: TInt32);
  43112. begin
  43113. If (FSubtype=AValue) then exit;
  43114. FSubtype:=AValue;
  43115. MarkPropertyChanged(AIndex);
  43116. end;
  43117. Procedure TSP_UserProfilesFollowedItem.SetTitle(AIndex: Integer; const AValue: string);
  43118. begin
  43119. If (FTitle=AValue) then exit;
  43120. FTitle:=AValue;
  43121. MarkPropertyChanged(AIndex);
  43122. end;
  43123. Procedure TSP_UserProfilesFollowedItem.SetUniqueId(AIndex: Integer; const AValue: TGUIDString);
  43124. begin
  43125. If (FUniqueId=AValue) then exit;
  43126. FUniqueId:=AValue;
  43127. MarkPropertyChanged(AIndex);
  43128. end;
  43129. Procedure TSP_UserProfilesFollowedItem.SetUrl(AIndex: Integer; const AValue: string);
  43130. begin
  43131. If (FUrl=AValue) then exit;
  43132. FUrl:=AValue;
  43133. MarkPropertyChanged(AIndex);
  43134. end;
  43135. Procedure TSP_UserProfilesFollowedItem.SetWebId(AIndex: Integer; const AValue: TGUIDString);
  43136. begin
  43137. If (FWebId=AValue) then exit;
  43138. FWebId:=AValue;
  43139. MarkPropertyChanged(AIndex);
  43140. end;
  43141. {$IFDEF VER2_6}
  43142. Procedure TSP_UserProfilesFollowedItem.SetArrayLength(const AName: String; ALength: Longint);
  43143. begin
  43144. Case aName of
  43145. 'data' : SetLength(FData,aLength);
  43146. else
  43147. inherited SetArrayLength(aName,ALength);
  43148. end;
  43149. end;
  43150. {$ENDIF VER2_6}
  43151. { --------------------------------------------------------------------
  43152. TSP_UserProfilesFollowResult
  43153. --------------------------------------------------------------------}
  43154. Class Function TSP_UserProfilesFollowResult.ObjectRestKind : String;
  43155. begin
  43156. Result:='FollowResult';
  43157. end;
  43158. Procedure TSP_UserProfilesFollowResult.SetItem(AIndex: Integer; const AValue: TSP_UserProfilesFollowedItem);
  43159. begin
  43160. If (FItem=AValue) then exit;
  43161. FItem:=AValue;
  43162. MarkPropertyChanged(AIndex);
  43163. end;
  43164. Procedure TSP_UserProfilesFollowResult.SetResultType(AIndex: Integer; const AValue: TInt32);
  43165. begin
  43166. If (FResultType=AValue) then exit;
  43167. FResultType:=AValue;
  43168. MarkPropertyChanged(AIndex);
  43169. end;
  43170. { --------------------------------------------------------------------
  43171. TSP_UserProfilesHashTag
  43172. --------------------------------------------------------------------}
  43173. Class Function TSP_UserProfilesHashTag.ObjectRestKind : String;
  43174. begin
  43175. Result:='HashTag';
  43176. end;
  43177. Procedure TSP_UserProfilesHashTag.SetName(AIndex: Integer; const AValue: string);
  43178. begin
  43179. If (FName=AValue) then exit;
  43180. FName:=AValue;
  43181. MarkPropertyChanged(AIndex);
  43182. end;
  43183. Procedure TSP_UserProfilesHashTag.SetUseCount(AIndex: Integer; const AValue: int64);
  43184. begin
  43185. If (FUseCount=AValue) then exit;
  43186. FUseCount:=AValue;
  43187. MarkPropertyChanged(AIndex);
  43188. end;
  43189. { --------------------------------------------------------------------
  43190. TSP_UserProfilesFollowedContent
  43191. --------------------------------------------------------------------}
  43192. Class Function TSP_UserProfilesFollowedContent.ObjectRestKind : String;
  43193. begin
  43194. Result:='FollowedContent';
  43195. end;
  43196. Procedure TSP_UserProfilesFollowedContent.SetFollowedDocumentsUrl(AIndex: Integer; const AValue: string);
  43197. begin
  43198. If (FFollowedDocumentsUrl=AValue) then exit;
  43199. FFollowedDocumentsUrl:=AValue;
  43200. MarkPropertyChanged(AIndex);
  43201. end;
  43202. Procedure TSP_UserProfilesFollowedContent.SetFollowedSitesUrl(AIndex: Integer; const AValue: string);
  43203. begin
  43204. If (FFollowedSitesUrl=AValue) then exit;
  43205. FFollowedSitesUrl:=AValue;
  43206. MarkPropertyChanged(AIndex);
  43207. end;
  43208. Function TSP_UserProfilesFollowedContent.KeyAsURLPart : string;
  43209. begin
  43210. Result:=TODataObject.MakeKeyString(FollowedDocumentsUrl);
  43211. end;
  43212. { --------------------------------------------------------------------
  43213. TSP_UserProfilesFollowedItemData
  43214. --------------------------------------------------------------------}
  43215. Class Function TSP_UserProfilesFollowedItemData.ObjectRestKind : String;
  43216. begin
  43217. Result:='FollowedItemData';
  43218. end;
  43219. Procedure TSP_UserProfilesFollowedItemData.SetId4a81de82eeb94d6080ea5bf63e27023a(AIndex: Integer; const AValue: string);
  43220. begin
  43221. If (FId4a81de82eeb94d6080ea5bf63e27023a=AValue) then exit;
  43222. FId4a81de82eeb94d6080ea5bf63e27023a:=AValue;
  43223. MarkPropertyChanged(AIndex);
  43224. end;
  43225. Procedure TSP_UserProfilesFollowedItemData.SetProperties(AIndex: Integer; const AValue: TSPKeyValueArray);
  43226. begin
  43227. If (FProperties=AValue) then exit;
  43228. FProperties:=AValue;
  43229. MarkPropertyChanged(AIndex);
  43230. end;
  43231. {$IFDEF VER2_6}
  43232. Procedure TSP_UserProfilesFollowedItemData.SetArrayLength(const AName: String; ALength: Longint);
  43233. begin
  43234. Case aName of
  43235. 'properties' : SetLength(FProperties,aLength);
  43236. else
  43237. inherited SetArrayLength(aName,ALength);
  43238. end;
  43239. end;
  43240. {$ENDIF VER2_6}
  43241. Function TSP_UserProfilesFollowedItemData.KeyAsURLPart : string;
  43242. begin
  43243. Result:=TODataObject.MakeKeyString(Id4a81de82eeb94d6080ea5bf63e27023a);
  43244. end;
  43245. { --------------------------------------------------------------------
  43246. TSP_UserProfilesHashTagCollection
  43247. --------------------------------------------------------------------}
  43248. Class Function TSP_UserProfilesHashTagCollection.ObjectRestKind : String;
  43249. begin
  43250. Result:='HashTagCollection';
  43251. end;
  43252. Procedure TSP_UserProfilesHashTagCollection.SetId4a81de82eeb94d6080ea5bf63e27023a(AIndex: Integer; const AValue: string);
  43253. begin
  43254. If (FId4a81de82eeb94d6080ea5bf63e27023a=AValue) then exit;
  43255. FId4a81de82eeb94d6080ea5bf63e27023a:=AValue;
  43256. MarkPropertyChanged(AIndex);
  43257. end;
  43258. Procedure TSP_UserProfilesHashTagCollection.SetItems(AIndex: Integer; const AValue: TSP_UserProfilesHashTagArray);
  43259. begin
  43260. If (FItems=AValue) then exit;
  43261. FItems:=AValue;
  43262. MarkPropertyChanged(AIndex);
  43263. end;
  43264. {$IFDEF VER2_6}
  43265. Procedure TSP_UserProfilesHashTagCollection.SetArrayLength(const AName: String; ALength: Longint);
  43266. begin
  43267. Case aName of
  43268. 'items' : SetLength(FItems,aLength);
  43269. else
  43270. inherited SetArrayLength(aName,ALength);
  43271. end;
  43272. end;
  43273. {$ENDIF VER2_6}
  43274. Function TSP_UserProfilesHashTagCollection.KeyAsURLPart : string;
  43275. begin
  43276. Result:=TODataObject.MakeKeyString(Id4a81de82eeb94d6080ea5bf63e27023a);
  43277. end;
  43278. { --------------------------------------------------------------------
  43279. TSP_UserProfilesPeopleManager
  43280. --------------------------------------------------------------------}
  43281. Class Function TSP_UserProfilesPeopleManager.ObjectRestKind : String;
  43282. begin
  43283. Result:='PeopleManager';
  43284. end;
  43285. Procedure TSP_UserProfilesPeopleManager.SetEditProfileLink(AIndex: Integer; const AValue: string);
  43286. begin
  43287. If (FEditProfileLink=AValue) then exit;
  43288. FEditProfileLink:=AValue;
  43289. MarkPropertyChanged(AIndex);
  43290. end;
  43291. Procedure TSP_UserProfilesPeopleManager.SetIsMyPeopleListPublic(AIndex: Integer; const AValue: boolean);
  43292. begin
  43293. If (FIsMyPeopleListPublic=AValue) then exit;
  43294. FIsMyPeopleListPublic:=AValue;
  43295. MarkPropertyChanged(AIndex);
  43296. end;
  43297. Function TSP_UserProfilesPeopleManager.KeyAsURLPart : string;
  43298. begin
  43299. Result:=TODataObject.MakeKeyString(EditProfileLink);
  43300. end;
  43301. { --------------------------------------------------------------------
  43302. TSP_UserProfilesPersonProperties
  43303. --------------------------------------------------------------------}
  43304. Class Function TSP_UserProfilesPersonProperties.ObjectRestKind : String;
  43305. begin
  43306. Result:='PersonProperties';
  43307. end;
  43308. Procedure TSP_UserProfilesPersonProperties.SetAccountName(AIndex: Integer; const AValue: string);
  43309. begin
  43310. If (FAccountName=AValue) then exit;
  43311. FAccountName:=AValue;
  43312. MarkPropertyChanged(AIndex);
  43313. end;
  43314. Procedure TSP_UserProfilesPersonProperties.SetDirectReports(AIndex: Integer; const AValue: TStringArray);
  43315. begin
  43316. If (FDirectReports=AValue) then exit;
  43317. FDirectReports:=AValue;
  43318. MarkPropertyChanged(AIndex);
  43319. end;
  43320. Procedure TSP_UserProfilesPersonProperties.SetDisplayName(AIndex: Integer; const AValue: string);
  43321. begin
  43322. If (FDisplayName=AValue) then exit;
  43323. FDisplayName:=AValue;
  43324. MarkPropertyChanged(AIndex);
  43325. end;
  43326. Procedure TSP_UserProfilesPersonProperties.SetEmail(AIndex: Integer; const AValue: string);
  43327. begin
  43328. If (FEmail=AValue) then exit;
  43329. FEmail:=AValue;
  43330. MarkPropertyChanged(AIndex);
  43331. end;
  43332. Procedure TSP_UserProfilesPersonProperties.SetExtendedManagers(AIndex: Integer; const AValue: TStringArray);
  43333. begin
  43334. If (FExtendedManagers=AValue) then exit;
  43335. FExtendedManagers:=AValue;
  43336. MarkPropertyChanged(AIndex);
  43337. end;
  43338. Procedure TSP_UserProfilesPersonProperties.SetExtendedReports(AIndex: Integer; const AValue: TStringArray);
  43339. begin
  43340. If (FExtendedReports=AValue) then exit;
  43341. FExtendedReports:=AValue;
  43342. MarkPropertyChanged(AIndex);
  43343. end;
  43344. Procedure TSP_UserProfilesPersonProperties.SetIsFollowed(AIndex: Integer; const AValue: boolean);
  43345. begin
  43346. If (FIsFollowed=AValue) then exit;
  43347. FIsFollowed:=AValue;
  43348. MarkPropertyChanged(AIndex);
  43349. end;
  43350. Procedure TSP_UserProfilesPersonProperties.SetLatestPost(AIndex: Integer; const AValue: string);
  43351. begin
  43352. If (FLatestPost=AValue) then exit;
  43353. FLatestPost:=AValue;
  43354. MarkPropertyChanged(AIndex);
  43355. end;
  43356. Procedure TSP_UserProfilesPersonProperties.SetPeers(AIndex: Integer; const AValue: TStringArray);
  43357. begin
  43358. If (FPeers=AValue) then exit;
  43359. FPeers:=AValue;
  43360. MarkPropertyChanged(AIndex);
  43361. end;
  43362. Procedure TSP_UserProfilesPersonProperties.SetPersonalUrl(AIndex: Integer; const AValue: string);
  43363. begin
  43364. If (FPersonalUrl=AValue) then exit;
  43365. FPersonalUrl:=AValue;
  43366. MarkPropertyChanged(AIndex);
  43367. end;
  43368. Procedure TSP_UserProfilesPersonProperties.SetPictureUrl(AIndex: Integer; const AValue: string);
  43369. begin
  43370. If (FPictureUrl=AValue) then exit;
  43371. FPictureUrl:=AValue;
  43372. MarkPropertyChanged(AIndex);
  43373. end;
  43374. Procedure TSP_UserProfilesPersonProperties.SetTitle(AIndex: Integer; const AValue: string);
  43375. begin
  43376. If (FTitle=AValue) then exit;
  43377. FTitle:=AValue;
  43378. MarkPropertyChanged(AIndex);
  43379. end;
  43380. Procedure TSP_UserProfilesPersonProperties.SetUserProfileProperties(AIndex: Integer; const AValue: TSPKeyValueArray);
  43381. begin
  43382. If (FUserProfileProperties=AValue) then exit;
  43383. FUserProfileProperties:=AValue;
  43384. MarkPropertyChanged(AIndex);
  43385. end;
  43386. Procedure TSP_UserProfilesPersonProperties.SetUserUrl(AIndex: Integer; const AValue: string);
  43387. begin
  43388. If (FUserUrl=AValue) then exit;
  43389. FUserUrl:=AValue;
  43390. MarkPropertyChanged(AIndex);
  43391. end;
  43392. {$IFDEF VER2_6}
  43393. Procedure TSP_UserProfilesPersonProperties.SetArrayLength(const AName: String; ALength: Longint);
  43394. begin
  43395. Case aName of
  43396. 'directreports' : SetLength(FDirectReports,aLength);
  43397. 'extendedmanagers' : SetLength(FExtendedManagers,aLength);
  43398. 'extendedreports' : SetLength(FExtendedReports,aLength);
  43399. 'peers' : SetLength(FPeers,aLength);
  43400. 'userprofileproperties' : SetLength(FUserProfileProperties,aLength);
  43401. else
  43402. inherited SetArrayLength(aName,ALength);
  43403. end;
  43404. end;
  43405. {$ENDIF VER2_6}
  43406. Function TSP_UserProfilesPersonProperties.KeyAsURLPart : string;
  43407. begin
  43408. Result:=TODataObject.MakeKeyString(AccountName);
  43409. end;
  43410. { --------------------------------------------------------------------
  43411. TSP_UserProfilesProfileImageStore
  43412. --------------------------------------------------------------------}
  43413. Class Function TSP_UserProfilesProfileImageStore.ObjectRestKind : String;
  43414. begin
  43415. Result:='ProfileImageStore';
  43416. end;
  43417. Procedure TSP_UserProfilesProfileImageStore.SetId4a81de82eeb94d6080ea5bf63e27023a(AIndex: Integer; const AValue: string);
  43418. begin
  43419. If (FId4a81de82eeb94d6080ea5bf63e27023a=AValue) then exit;
  43420. FId4a81de82eeb94d6080ea5bf63e27023a:=AValue;
  43421. MarkPropertyChanged(AIndex);
  43422. end;
  43423. Function TSP_UserProfilesProfileImageStore.KeyAsURLPart : string;
  43424. begin
  43425. Result:=TODataObject.MakeKeyString(Id4a81de82eeb94d6080ea5bf63e27023a);
  43426. end;
  43427. { --------------------------------------------------------------------
  43428. TSP_UserProfilesProfileLoader
  43429. --------------------------------------------------------------------}
  43430. Class Function TSP_UserProfilesProfileLoader.ObjectRestKind : String;
  43431. begin
  43432. Result:='ProfileLoader';
  43433. end;
  43434. Procedure TSP_UserProfilesProfileLoader.SetId4a81de82eeb94d6080ea5bf63e27023a(AIndex: Integer; const AValue: string);
  43435. begin
  43436. If (FId4a81de82eeb94d6080ea5bf63e27023a=AValue) then exit;
  43437. FId4a81de82eeb94d6080ea5bf63e27023a:=AValue;
  43438. MarkPropertyChanged(AIndex);
  43439. end;
  43440. Function TSP_UserProfilesProfileLoader.KeyAsURLPart : string;
  43441. begin
  43442. Result:=TODataObject.MakeKeyString(Id4a81de82eeb94d6080ea5bf63e27023a);
  43443. end;
  43444. { --------------------------------------------------------------------
  43445. TSP_UserProfilesUserProfilePropertiesForUser
  43446. --------------------------------------------------------------------}
  43447. Class Function TSP_UserProfilesUserProfilePropertiesForUser.ObjectRestKind : String;
  43448. begin
  43449. Result:='UserProfilePropertiesForUser';
  43450. end;
  43451. Procedure TSP_UserProfilesUserProfilePropertiesForUser.SetAccountName(AIndex: Integer; const AValue: string);
  43452. begin
  43453. If (FAccountName=AValue) then exit;
  43454. FAccountName:=AValue;
  43455. MarkPropertyChanged(AIndex);
  43456. end;
  43457. Function TSP_UserProfilesUserProfilePropertiesForUser.KeyAsURLPart : string;
  43458. begin
  43459. Result:=TODataObject.MakeKeyString(AccountName);
  43460. end;
  43461. { --------------------------------------------------------------------
  43462. TSP_UserProfilesUserProfile
  43463. --------------------------------------------------------------------}
  43464. Class Function TSP_UserProfilesUserProfile.ObjectRestKind : String;
  43465. begin
  43466. Result:='UserProfile';
  43467. end;
  43468. Procedure TSP_UserProfilesUserProfile.SetAccountName(AIndex: Integer; const AValue: string);
  43469. begin
  43470. If (FAccountName=AValue) then exit;
  43471. FAccountName:=AValue;
  43472. MarkPropertyChanged(AIndex);
  43473. end;
  43474. Procedure TSP_UserProfilesUserProfile.SetDisplayName(AIndex: Integer; const AValue: string);
  43475. begin
  43476. If (FDisplayName=AValue) then exit;
  43477. FDisplayName:=AValue;
  43478. MarkPropertyChanged(AIndex);
  43479. end;
  43480. Procedure TSP_UserProfilesUserProfile.SetIsPeopleListPublic(AIndex: Integer; const AValue: boolean);
  43481. begin
  43482. If (FIsPeopleListPublic=AValue) then exit;
  43483. FIsPeopleListPublic:=AValue;
  43484. MarkPropertyChanged(AIndex);
  43485. end;
  43486. Procedure TSP_UserProfilesUserProfile.SetIsPrivacySettingOn(AIndex: Integer; const AValue: boolean);
  43487. begin
  43488. If (FIsPrivacySettingOn=AValue) then exit;
  43489. FIsPrivacySettingOn:=AValue;
  43490. MarkPropertyChanged(AIndex);
  43491. end;
  43492. Procedure TSP_UserProfilesUserProfile.SetIsSelf(AIndex: Integer; const AValue: boolean);
  43493. begin
  43494. If (FIsSelf=AValue) then exit;
  43495. FIsSelf:=AValue;
  43496. MarkPropertyChanged(AIndex);
  43497. end;
  43498. Procedure TSP_UserProfilesUserProfile.SetJobTitle(AIndex: Integer; const AValue: string);
  43499. begin
  43500. If (FJobTitle=AValue) then exit;
  43501. FJobTitle:=AValue;
  43502. MarkPropertyChanged(AIndex);
  43503. end;
  43504. Procedure TSP_UserProfilesUserProfile.SetMySiteFirstRunExperience(AIndex: Integer; const AValue: TInt32);
  43505. begin
  43506. If (FMySiteFirstRunExperience=AValue) then exit;
  43507. FMySiteFirstRunExperience:=AValue;
  43508. MarkPropertyChanged(AIndex);
  43509. end;
  43510. Procedure TSP_UserProfilesUserProfile.SetMySiteHostUrl(AIndex: Integer; const AValue: string);
  43511. begin
  43512. If (FMySiteHostUrl=AValue) then exit;
  43513. FMySiteHostUrl:=AValue;
  43514. MarkPropertyChanged(AIndex);
  43515. end;
  43516. Procedure TSP_UserProfilesUserProfile.SetO15FirstRunExperience(AIndex: Integer; const AValue: TInt32);
  43517. begin
  43518. If (FO15FirstRunExperience=AValue) then exit;
  43519. FO15FirstRunExperience:=AValue;
  43520. MarkPropertyChanged(AIndex);
  43521. end;
  43522. Procedure TSP_UserProfilesUserProfile.SetPersonalSiteCapabilities(AIndex: Integer; const AValue: TInt32);
  43523. begin
  43524. If (FPersonalSiteCapabilities=AValue) then exit;
  43525. FPersonalSiteCapabilities:=AValue;
  43526. MarkPropertyChanged(AIndex);
  43527. end;
  43528. Procedure TSP_UserProfilesUserProfile.SetPersonalSiteFirstCreationError(AIndex: Integer; const AValue: string);
  43529. begin
  43530. If (FPersonalSiteFirstCreationError=AValue) then exit;
  43531. FPersonalSiteFirstCreationError:=AValue;
  43532. MarkPropertyChanged(AIndex);
  43533. end;
  43534. Procedure TSP_UserProfilesUserProfile.SetPersonalSiteFirstCreationTime(AIndex: Integer; const AValue: TDateTime);
  43535. begin
  43536. If (FPersonalSiteFirstCreationTime=AValue) then exit;
  43537. FPersonalSiteFirstCreationTime:=AValue;
  43538. MarkPropertyChanged(AIndex);
  43539. end;
  43540. Procedure TSP_UserProfilesUserProfile.SetPersonalSiteInstantiationState(AIndex: Integer; const AValue: TInt32);
  43541. begin
  43542. If (FPersonalSiteInstantiationState=AValue) then exit;
  43543. FPersonalSiteInstantiationState:=AValue;
  43544. MarkPropertyChanged(AIndex);
  43545. end;
  43546. Procedure TSP_UserProfilesUserProfile.SetPersonalSiteLastCreationTime(AIndex: Integer; const AValue: TDateTime);
  43547. begin
  43548. If (FPersonalSiteLastCreationTime=AValue) then exit;
  43549. FPersonalSiteLastCreationTime:=AValue;
  43550. MarkPropertyChanged(AIndex);
  43551. end;
  43552. Procedure TSP_UserProfilesUserProfile.SetPersonalSiteNumberOfRetries(AIndex: Integer; const AValue: TInt32);
  43553. begin
  43554. If (FPersonalSiteNumberOfRetries=AValue) then exit;
  43555. FPersonalSiteNumberOfRetries:=AValue;
  43556. MarkPropertyChanged(AIndex);
  43557. end;
  43558. Procedure TSP_UserProfilesUserProfile.SetPictureImportEnabled(AIndex: Integer; const AValue: boolean);
  43559. begin
  43560. If (FPictureImportEnabled=AValue) then exit;
  43561. FPictureImportEnabled:=AValue;
  43562. MarkPropertyChanged(AIndex);
  43563. end;
  43564. Procedure TSP_UserProfilesUserProfile.SetPictureUrl(AIndex: Integer; const AValue: string);
  43565. begin
  43566. If (FPictureUrl=AValue) then exit;
  43567. FPictureUrl:=AValue;
  43568. MarkPropertyChanged(AIndex);
  43569. end;
  43570. Procedure TSP_UserProfilesUserProfile.SetPublicUrl(AIndex: Integer; const AValue: string);
  43571. begin
  43572. If (FPublicUrl=AValue) then exit;
  43573. FPublicUrl:=AValue;
  43574. MarkPropertyChanged(AIndex);
  43575. end;
  43576. Procedure TSP_UserProfilesUserProfile.SetSipAddress(AIndex: Integer; const AValue: string);
  43577. begin
  43578. If (FSipAddress=AValue) then exit;
  43579. FSipAddress:=AValue;
  43580. MarkPropertyChanged(AIndex);
  43581. end;
  43582. Procedure TSP_UserProfilesUserProfile.SetUrlToCreatePersonalSite(AIndex: Integer; const AValue: string);
  43583. begin
  43584. If (FUrlToCreatePersonalSite=AValue) then exit;
  43585. FUrlToCreatePersonalSite:=AValue;
  43586. MarkPropertyChanged(AIndex);
  43587. end;
  43588. Function TSP_UserProfilesUserProfile.KeyAsURLPart : string;
  43589. begin
  43590. Result:=TODataObject.MakeKeyString(AccountName);
  43591. end;
  43592. Function TSP_UserProfilesUserProfile.FollowedContent(AService: TODataService) : TSP_UserProfilesFollowedContent;
  43593. begin
  43594. Result:=TSP_UserProfilesFollowedContent(GetContainedSingleTon(AService,'FollowedContent', TSP_UserProfilesFollowedContent));
  43595. end;
  43596. Function TSP_UserProfilesUserProfile.PersonalSite(AService: TODataService) : TSPSite;
  43597. begin
  43598. Result:=TSPSite(GetContainedSingleTon(AService,'PersonalSite', TSPSite));
  43599. end;
  43600. { --------------------------------------------------------------------
  43601. TPSAssignmentCreationInformation
  43602. --------------------------------------------------------------------}
  43603. Class Function TPSAssignmentCreationInformation.ObjectRestKind : String;
  43604. begin
  43605. Result:='AssignmentCreationInformation';
  43606. end;
  43607. Procedure TPSAssignmentCreationInformation.SetFinish(AIndex: Integer; const AValue: TDateTime);
  43608. begin
  43609. If (FFinish=AValue) then exit;
  43610. FFinish:=AValue;
  43611. MarkPropertyChanged(AIndex);
  43612. end;
  43613. Procedure TPSAssignmentCreationInformation.SetId(AIndex: Integer; const AValue: TGUIDString);
  43614. begin
  43615. If (FId=AValue) then exit;
  43616. FId:=AValue;
  43617. MarkPropertyChanged(AIndex);
  43618. end;
  43619. Procedure TPSAssignmentCreationInformation.SetNotes(AIndex: Integer; const AValue: string);
  43620. begin
  43621. If (FNotes=AValue) then exit;
  43622. FNotes:=AValue;
  43623. MarkPropertyChanged(AIndex);
  43624. end;
  43625. Procedure TPSAssignmentCreationInformation.SetResourceId(AIndex: Integer; const AValue: TGUIDString);
  43626. begin
  43627. If (FResourceId=AValue) then exit;
  43628. FResourceId:=AValue;
  43629. MarkPropertyChanged(AIndex);
  43630. end;
  43631. Procedure TPSAssignmentCreationInformation.SetStart(AIndex: Integer; const AValue: TDateTime);
  43632. begin
  43633. If (FStart=AValue) then exit;
  43634. FStart:=AValue;
  43635. MarkPropertyChanged(AIndex);
  43636. end;
  43637. Procedure TPSAssignmentCreationInformation.SetTaskId(AIndex: Integer; const AValue: TGUIDString);
  43638. begin
  43639. If (FTaskId=AValue) then exit;
  43640. FTaskId:=AValue;
  43641. MarkPropertyChanged(AIndex);
  43642. end;
  43643. { --------------------------------------------------------------------
  43644. TPSCalendarCreationInformation
  43645. --------------------------------------------------------------------}
  43646. Class Function TPSCalendarCreationInformation.ObjectRestKind : String;
  43647. begin
  43648. Result:='CalendarCreationInformation';
  43649. end;
  43650. Procedure TPSCalendarCreationInformation.SetId(AIndex: Integer; const AValue: TGUIDString);
  43651. begin
  43652. If (FId=AValue) then exit;
  43653. FId:=AValue;
  43654. MarkPropertyChanged(AIndex);
  43655. end;
  43656. Procedure TPSCalendarCreationInformation.SetName(AIndex: Integer; const AValue: string);
  43657. begin
  43658. If (FName=AValue) then exit;
  43659. FName:=AValue;
  43660. MarkPropertyChanged(AIndex);
  43661. end;
  43662. Procedure TPSCalendarCreationInformation.SetOriginalId(AIndex: Integer; const AValue: TGUIDString);
  43663. begin
  43664. If (FOriginalId=AValue) then exit;
  43665. FOriginalId:=AValue;
  43666. MarkPropertyChanged(AIndex);
  43667. end;
  43668. { --------------------------------------------------------------------
  43669. TPSCalendarExceptionCreationInformation
  43670. --------------------------------------------------------------------}
  43671. Class Function TPSCalendarExceptionCreationInformation.ObjectRestKind : String;
  43672. begin
  43673. Result:='CalendarExceptionCreationInformation';
  43674. end;
  43675. Procedure TPSCalendarExceptionCreationInformation.SetFinish(AIndex: Integer; const AValue: TDateTime);
  43676. begin
  43677. If (FFinish=AValue) then exit;
  43678. FFinish:=AValue;
  43679. MarkPropertyChanged(AIndex);
  43680. end;
  43681. Procedure TPSCalendarExceptionCreationInformation.SetName(AIndex: Integer; const AValue: string);
  43682. begin
  43683. If (FName=AValue) then exit;
  43684. FName:=AValue;
  43685. MarkPropertyChanged(AIndex);
  43686. end;
  43687. Procedure TPSCalendarExceptionCreationInformation.SetRecurrenceDays(AIndex: Integer; const AValue: TInt32);
  43688. begin
  43689. If (FRecurrenceDays=AValue) then exit;
  43690. FRecurrenceDays:=AValue;
  43691. MarkPropertyChanged(AIndex);
  43692. end;
  43693. Procedure TPSCalendarExceptionCreationInformation.SetRecurrenceFrequency(AIndex: Integer; const AValue: TInt32);
  43694. begin
  43695. If (FRecurrenceFrequency=AValue) then exit;
  43696. FRecurrenceFrequency:=AValue;
  43697. MarkPropertyChanged(AIndex);
  43698. end;
  43699. Procedure TPSCalendarExceptionCreationInformation.SetRecurrenceMonth(AIndex: Integer; const AValue: TInt32);
  43700. begin
  43701. If (FRecurrenceMonth=AValue) then exit;
  43702. FRecurrenceMonth:=AValue;
  43703. MarkPropertyChanged(AIndex);
  43704. end;
  43705. Procedure TPSCalendarExceptionCreationInformation.SetRecurrenceMonthDay(AIndex: Integer; const AValue: TInt32);
  43706. begin
  43707. If (FRecurrenceMonthDay=AValue) then exit;
  43708. FRecurrenceMonthDay:=AValue;
  43709. MarkPropertyChanged(AIndex);
  43710. end;
  43711. Procedure TPSCalendarExceptionCreationInformation.SetRecurrenceType(AIndex: Integer; const AValue: TInt32);
  43712. begin
  43713. If (FRecurrenceType=AValue) then exit;
  43714. FRecurrenceType:=AValue;
  43715. MarkPropertyChanged(AIndex);
  43716. end;
  43717. Procedure TPSCalendarExceptionCreationInformation.SetRecurrenceWeek(AIndex: Integer; const AValue: TInt32);
  43718. begin
  43719. If (FRecurrenceWeek=AValue) then exit;
  43720. FRecurrenceWeek:=AValue;
  43721. MarkPropertyChanged(AIndex);
  43722. end;
  43723. Procedure TPSCalendarExceptionCreationInformation.SetShift1Finish(AIndex: Integer; const AValue: TInt32);
  43724. begin
  43725. If (FShift1Finish=AValue) then exit;
  43726. FShift1Finish:=AValue;
  43727. MarkPropertyChanged(AIndex);
  43728. end;
  43729. Procedure TPSCalendarExceptionCreationInformation.SetShift1Start(AIndex: Integer; const AValue: TInt32);
  43730. begin
  43731. If (FShift1Start=AValue) then exit;
  43732. FShift1Start:=AValue;
  43733. MarkPropertyChanged(AIndex);
  43734. end;
  43735. Procedure TPSCalendarExceptionCreationInformation.SetShift2Finish(AIndex: Integer; const AValue: TInt32);
  43736. begin
  43737. If (FShift2Finish=AValue) then exit;
  43738. FShift2Finish:=AValue;
  43739. MarkPropertyChanged(AIndex);
  43740. end;
  43741. Procedure TPSCalendarExceptionCreationInformation.SetShift2Start(AIndex: Integer; const AValue: TInt32);
  43742. begin
  43743. If (FShift2Start=AValue) then exit;
  43744. FShift2Start:=AValue;
  43745. MarkPropertyChanged(AIndex);
  43746. end;
  43747. Procedure TPSCalendarExceptionCreationInformation.SetShift3Finish(AIndex: Integer; const AValue: TInt32);
  43748. begin
  43749. If (FShift3Finish=AValue) then exit;
  43750. FShift3Finish:=AValue;
  43751. MarkPropertyChanged(AIndex);
  43752. end;
  43753. Procedure TPSCalendarExceptionCreationInformation.SetShift3Start(AIndex: Integer; const AValue: TInt32);
  43754. begin
  43755. If (FShift3Start=AValue) then exit;
  43756. FShift3Start:=AValue;
  43757. MarkPropertyChanged(AIndex);
  43758. end;
  43759. Procedure TPSCalendarExceptionCreationInformation.SetShift4Finish(AIndex: Integer; const AValue: TInt32);
  43760. begin
  43761. If (FShift4Finish=AValue) then exit;
  43762. FShift4Finish:=AValue;
  43763. MarkPropertyChanged(AIndex);
  43764. end;
  43765. Procedure TPSCalendarExceptionCreationInformation.SetShift4Start(AIndex: Integer; const AValue: TInt32);
  43766. begin
  43767. If (FShift4Start=AValue) then exit;
  43768. FShift4Start:=AValue;
  43769. MarkPropertyChanged(AIndex);
  43770. end;
  43771. Procedure TPSCalendarExceptionCreationInformation.SetShift5Finish(AIndex: Integer; const AValue: TInt32);
  43772. begin
  43773. If (FShift5Finish=AValue) then exit;
  43774. FShift5Finish:=AValue;
  43775. MarkPropertyChanged(AIndex);
  43776. end;
  43777. Procedure TPSCalendarExceptionCreationInformation.SetShift5Start(AIndex: Integer; const AValue: TInt32);
  43778. begin
  43779. If (FShift5Start=AValue) then exit;
  43780. FShift5Start:=AValue;
  43781. MarkPropertyChanged(AIndex);
  43782. end;
  43783. Procedure TPSCalendarExceptionCreationInformation.SetStart(AIndex: Integer; const AValue: TDateTime);
  43784. begin
  43785. If (FStart=AValue) then exit;
  43786. FStart:=AValue;
  43787. MarkPropertyChanged(AIndex);
  43788. end;
  43789. { --------------------------------------------------------------------
  43790. TPSCustomFieldCreationInformation
  43791. --------------------------------------------------------------------}
  43792. Class Function TPSCustomFieldCreationInformation.ObjectRestKind : String;
  43793. begin
  43794. Result:='CustomFieldCreationInformation';
  43795. end;
  43796. Procedure TPSCustomFieldCreationInformation.SetDescription(AIndex: Integer; const AValue: string);
  43797. begin
  43798. If (FDescription=AValue) then exit;
  43799. FDescription:=AValue;
  43800. MarkPropertyChanged(AIndex);
  43801. end;
  43802. Procedure TPSCustomFieldCreationInformation.SetEntityTypeId(AIndex: Integer; const AValue: TGUIDString);
  43803. begin
  43804. If (FEntityTypeId=AValue) then exit;
  43805. FEntityTypeId:=AValue;
  43806. MarkPropertyChanged(AIndex);
  43807. end;
  43808. Procedure TPSCustomFieldCreationInformation.SetFieldType(AIndex: Integer; const AValue: TInt32);
  43809. begin
  43810. If (FFieldType=AValue) then exit;
  43811. FFieldType:=AValue;
  43812. MarkPropertyChanged(AIndex);
  43813. end;
  43814. Procedure TPSCustomFieldCreationInformation.SetFormula(AIndex: Integer; const AValue: string);
  43815. begin
  43816. If (FFormula=AValue) then exit;
  43817. FFormula:=AValue;
  43818. MarkPropertyChanged(AIndex);
  43819. end;
  43820. Procedure TPSCustomFieldCreationInformation.SetId(AIndex: Integer; const AValue: TGUIDString);
  43821. begin
  43822. If (FId=AValue) then exit;
  43823. FId:=AValue;
  43824. MarkPropertyChanged(AIndex);
  43825. end;
  43826. Procedure TPSCustomFieldCreationInformation.SetIsEditableInVisibility(AIndex: Integer; const AValue: boolean);
  43827. begin
  43828. If (FIsEditableInVisibility=AValue) then exit;
  43829. FIsEditableInVisibility:=AValue;
  43830. MarkPropertyChanged(AIndex);
  43831. end;
  43832. Procedure TPSCustomFieldCreationInformation.SetIsMultilineText(AIndex: Integer; const AValue: boolean);
  43833. begin
  43834. If (FIsMultilineText=AValue) then exit;
  43835. FIsMultilineText:=AValue;
  43836. MarkPropertyChanged(AIndex);
  43837. end;
  43838. Procedure TPSCustomFieldCreationInformation.SetIsRequired(AIndex: Integer; const AValue: boolean);
  43839. begin
  43840. If (FIsRequired=AValue) then exit;
  43841. FIsRequired:=AValue;
  43842. MarkPropertyChanged(AIndex);
  43843. end;
  43844. Procedure TPSCustomFieldCreationInformation.SetIsWorkflowControlled(AIndex: Integer; const AValue: boolean);
  43845. begin
  43846. If (FIsWorkflowControlled=AValue) then exit;
  43847. FIsWorkflowControlled:=AValue;
  43848. MarkPropertyChanged(AIndex);
  43849. end;
  43850. Procedure TPSCustomFieldCreationInformation.SetLookupAllowMultiSelect(AIndex: Integer; const AValue: boolean);
  43851. begin
  43852. If (FLookupAllowMultiSelect=AValue) then exit;
  43853. FLookupAllowMultiSelect:=AValue;
  43854. MarkPropertyChanged(AIndex);
  43855. end;
  43856. Procedure TPSCustomFieldCreationInformation.SetLookupDefaultValue(AIndex: Integer; const AValue: TGUIDString);
  43857. begin
  43858. If (FLookupDefaultValue=AValue) then exit;
  43859. FLookupDefaultValue:=AValue;
  43860. MarkPropertyChanged(AIndex);
  43861. end;
  43862. Procedure TPSCustomFieldCreationInformation.SetLookupTableId(AIndex: Integer; const AValue: TGUIDString);
  43863. begin
  43864. If (FLookupTableId=AValue) then exit;
  43865. FLookupTableId:=AValue;
  43866. MarkPropertyChanged(AIndex);
  43867. end;
  43868. Procedure TPSCustomFieldCreationInformation.SetName(AIndex: Integer; const AValue: string);
  43869. begin
  43870. If (FName=AValue) then exit;
  43871. FName:=AValue;
  43872. MarkPropertyChanged(AIndex);
  43873. end;
  43874. { --------------------------------------------------------------------
  43875. TPSEnterpriseProjectTypeCreationInformation
  43876. --------------------------------------------------------------------}
  43877. Class Function TPSEnterpriseProjectTypeCreationInformation.ObjectRestKind : String;
  43878. begin
  43879. Result:='EnterpriseProjectTypeCreationInformation';
  43880. end;
  43881. Procedure TPSEnterpriseProjectTypeCreationInformation.SetDescription(AIndex: Integer; const AValue: string);
  43882. begin
  43883. If (FDescription=AValue) then exit;
  43884. FDescription:=AValue;
  43885. MarkPropertyChanged(AIndex);
  43886. end;
  43887. Procedure TPSEnterpriseProjectTypeCreationInformation.SetId(AIndex: Integer; const AValue: TGUIDString);
  43888. begin
  43889. If (FId=AValue) then exit;
  43890. FId:=AValue;
  43891. MarkPropertyChanged(AIndex);
  43892. end;
  43893. Procedure TPSEnterpriseProjectTypeCreationInformation.SetImageUrl(AIndex: Integer; const AValue: string);
  43894. begin
  43895. If (FImageUrl=AValue) then exit;
  43896. FImageUrl:=AValue;
  43897. MarkPropertyChanged(AIndex);
  43898. end;
  43899. Procedure TPSEnterpriseProjectTypeCreationInformation.SetIsDefault(AIndex: Integer; const AValue: boolean);
  43900. begin
  43901. If (FIsDefault=AValue) then exit;
  43902. FIsDefault:=AValue;
  43903. MarkPropertyChanged(AIndex);
  43904. end;
  43905. Procedure TPSEnterpriseProjectTypeCreationInformation.SetIsManaged(AIndex: Integer; const AValue: boolean);
  43906. begin
  43907. If (FIsManaged=AValue) then exit;
  43908. FIsManaged:=AValue;
  43909. MarkPropertyChanged(AIndex);
  43910. end;
  43911. Procedure TPSEnterpriseProjectTypeCreationInformation.SetName(AIndex: Integer; const AValue: string);
  43912. begin
  43913. If (FName=AValue) then exit;
  43914. FName:=AValue;
  43915. MarkPropertyChanged(AIndex);
  43916. end;
  43917. Procedure TPSEnterpriseProjectTypeCreationInformation.SetOrder(AIndex: Integer; const AValue: TInt32);
  43918. begin
  43919. If (FOrder=AValue) then exit;
  43920. FOrder:=AValue;
  43921. MarkPropertyChanged(AIndex);
  43922. end;
  43923. Procedure TPSEnterpriseProjectTypeCreationInformation.SetProjectDetailPages(AIndex: Integer; const AValue: TPSProjectDetailPageCreationInformationArray);
  43924. begin
  43925. If (FProjectDetailPages=AValue) then exit;
  43926. FProjectDetailPages:=AValue;
  43927. MarkPropertyChanged(AIndex);
  43928. end;
  43929. Procedure TPSEnterpriseProjectTypeCreationInformation.SetProjectPlanTemplateId(AIndex: Integer; const AValue: TGUIDString);
  43930. begin
  43931. If (FProjectPlanTemplateId=AValue) then exit;
  43932. FProjectPlanTemplateId:=AValue;
  43933. MarkPropertyChanged(AIndex);
  43934. end;
  43935. Procedure TPSEnterpriseProjectTypeCreationInformation.SetWorkflowAssociationId(AIndex: Integer; const AValue: TGUIDString);
  43936. begin
  43937. If (FWorkflowAssociationId=AValue) then exit;
  43938. FWorkflowAssociationId:=AValue;
  43939. MarkPropertyChanged(AIndex);
  43940. end;
  43941. Procedure TPSEnterpriseProjectTypeCreationInformation.SetWorkflowAssociationName(AIndex: Integer; const AValue: string);
  43942. begin
  43943. If (FWorkflowAssociationName=AValue) then exit;
  43944. FWorkflowAssociationName:=AValue;
  43945. MarkPropertyChanged(AIndex);
  43946. end;
  43947. Procedure TPSEnterpriseProjectTypeCreationInformation.SetWorkspaceTemplateName(AIndex: Integer; const AValue: string);
  43948. begin
  43949. If (FWorkspaceTemplateName=AValue) then exit;
  43950. FWorkspaceTemplateName:=AValue;
  43951. MarkPropertyChanged(AIndex);
  43952. end;
  43953. {$IFDEF VER2_6}
  43954. Procedure TPSEnterpriseProjectTypeCreationInformation.SetArrayLength(const AName: String; ALength: Longint);
  43955. begin
  43956. Case aName of
  43957. 'projectdetailpages' : SetLength(FProjectDetailPages,aLength);
  43958. else
  43959. inherited SetArrayLength(aName,ALength);
  43960. end;
  43961. end;
  43962. {$ENDIF VER2_6}
  43963. { --------------------------------------------------------------------
  43964. TPSProjectDetailPageCreationInformation
  43965. --------------------------------------------------------------------}
  43966. Class Function TPSProjectDetailPageCreationInformation.ObjectRestKind : String;
  43967. begin
  43968. Result:='ProjectDetailPageCreationInformation';
  43969. end;
  43970. Procedure TPSProjectDetailPageCreationInformation.SetId(AIndex: Integer; const AValue: TGUIDString);
  43971. begin
  43972. If (FId=AValue) then exit;
  43973. FId:=AValue;
  43974. MarkPropertyChanged(AIndex);
  43975. end;
  43976. Procedure TPSProjectDetailPageCreationInformation.SetIsCreate(AIndex: Integer; const AValue: boolean);
  43977. begin
  43978. If (FIsCreate=AValue) then exit;
  43979. FIsCreate:=AValue;
  43980. MarkPropertyChanged(AIndex);
  43981. end;
  43982. Procedure TPSProjectDetailPageCreationInformation.SetPosition(AIndex: Integer; const AValue: TInt32);
  43983. begin
  43984. If (FPosition=AValue) then exit;
  43985. FPosition:=AValue;
  43986. MarkPropertyChanged(AIndex);
  43987. end;
  43988. { --------------------------------------------------------------------
  43989. TPSEnterpriseResourceCreationInformation
  43990. --------------------------------------------------------------------}
  43991. Class Function TPSEnterpriseResourceCreationInformation.ObjectRestKind : String;
  43992. begin
  43993. Result:='EnterpriseResourceCreationInformation';
  43994. end;
  43995. Procedure TPSEnterpriseResourceCreationInformation.SetId(AIndex: Integer; const AValue: TGUIDString);
  43996. begin
  43997. If (FId=AValue) then exit;
  43998. FId:=AValue;
  43999. MarkPropertyChanged(AIndex);
  44000. end;
  44001. Procedure TPSEnterpriseResourceCreationInformation.SetIsBudget(AIndex: Integer; const AValue: boolean);
  44002. begin
  44003. If (FIsBudget=AValue) then exit;
  44004. FIsBudget:=AValue;
  44005. MarkPropertyChanged(AIndex);
  44006. end;
  44007. Procedure TPSEnterpriseResourceCreationInformation.SetIsGeneric(AIndex: Integer; const AValue: boolean);
  44008. begin
  44009. If (FIsGeneric=AValue) then exit;
  44010. FIsGeneric:=AValue;
  44011. MarkPropertyChanged(AIndex);
  44012. end;
  44013. Procedure TPSEnterpriseResourceCreationInformation.SetIsInactive(AIndex: Integer; const AValue: boolean);
  44014. begin
  44015. If (FIsInactive=AValue) then exit;
  44016. FIsInactive:=AValue;
  44017. MarkPropertyChanged(AIndex);
  44018. end;
  44019. Procedure TPSEnterpriseResourceCreationInformation.SetName(AIndex: Integer; const AValue: string);
  44020. begin
  44021. If (FName=AValue) then exit;
  44022. FName:=AValue;
  44023. MarkPropertyChanged(AIndex);
  44024. end;
  44025. Procedure TPSEnterpriseResourceCreationInformation.SetResourceType(AIndex: Integer; const AValue: TInt32);
  44026. begin
  44027. If (FResourceType=AValue) then exit;
  44028. FResourceType:=AValue;
  44029. MarkPropertyChanged(AIndex);
  44030. end;
  44031. { --------------------------------------------------------------------
  44032. TPSEventHandlerCreationInformation
  44033. --------------------------------------------------------------------}
  44034. Class Function TPSEventHandlerCreationInformation.ObjectRestKind : String;
  44035. begin
  44036. Result:='EventHandlerCreationInformation';
  44037. end;
  44038. Procedure TPSEventHandlerCreationInformation.SetAssemblyName(AIndex: Integer; const AValue: string);
  44039. begin
  44040. If (FAssemblyName=AValue) then exit;
  44041. FAssemblyName:=AValue;
  44042. MarkPropertyChanged(AIndex);
  44043. end;
  44044. Procedure TPSEventHandlerCreationInformation.SetCancelOnError(AIndex: Integer; const AValue: boolean);
  44045. begin
  44046. If (FCancelOnError=AValue) then exit;
  44047. FCancelOnError:=AValue;
  44048. MarkPropertyChanged(AIndex);
  44049. end;
  44050. Procedure TPSEventHandlerCreationInformation.SetClassName(AIndex: Integer; const AValue: string);
  44051. begin
  44052. If (FClassName=AValue) then exit;
  44053. FClassName:=AValue;
  44054. MarkPropertyChanged(AIndex);
  44055. end;
  44056. Procedure TPSEventHandlerCreationInformation.SetDescription(AIndex: Integer; const AValue: string);
  44057. begin
  44058. If (FDescription=AValue) then exit;
  44059. FDescription:=AValue;
  44060. MarkPropertyChanged(AIndex);
  44061. end;
  44062. Procedure TPSEventHandlerCreationInformation.SetEndpointUrl(AIndex: Integer; const AValue: string);
  44063. begin
  44064. If (FEndpointUrl=AValue) then exit;
  44065. FEndpointUrl:=AValue;
  44066. MarkPropertyChanged(AIndex);
  44067. end;
  44068. Procedure TPSEventHandlerCreationInformation.SetEventId(AIndex: Integer; const AValue: TInt32);
  44069. begin
  44070. If (FEventId=AValue) then exit;
  44071. FEventId:=AValue;
  44072. MarkPropertyChanged(AIndex);
  44073. end;
  44074. Procedure TPSEventHandlerCreationInformation.SetId(AIndex: Integer; const AValue: TGUIDString);
  44075. begin
  44076. If (FId=AValue) then exit;
  44077. FId:=AValue;
  44078. MarkPropertyChanged(AIndex);
  44079. end;
  44080. Procedure TPSEventHandlerCreationInformation.SetName(AIndex: Integer; const AValue: string);
  44081. begin
  44082. If (FName=AValue) then exit;
  44083. FName:=AValue;
  44084. MarkPropertyChanged(AIndex);
  44085. end;
  44086. Procedure TPSEventHandlerCreationInformation.SetOrder(AIndex: Integer; const AValue: TInt32);
  44087. begin
  44088. If (FOrder=AValue) then exit;
  44089. FOrder:=AValue;
  44090. MarkPropertyChanged(AIndex);
  44091. end;
  44092. { --------------------------------------------------------------------
  44093. TPSLookupEntryCreationInformation
  44094. --------------------------------------------------------------------}
  44095. Class Function TPSLookupEntryCreationInformation.ObjectRestKind : String;
  44096. begin
  44097. Result:='LookupEntryCreationInformation';
  44098. end;
  44099. Procedure TPSLookupEntryCreationInformation.SetDescription(AIndex: Integer; const AValue: string);
  44100. begin
  44101. If (FDescription=AValue) then exit;
  44102. FDescription:=AValue;
  44103. MarkPropertyChanged(AIndex);
  44104. end;
  44105. Procedure TPSLookupEntryCreationInformation.SetId(AIndex: Integer; const AValue: TGUIDString);
  44106. begin
  44107. If (FId=AValue) then exit;
  44108. FId:=AValue;
  44109. MarkPropertyChanged(AIndex);
  44110. end;
  44111. Procedure TPSLookupEntryCreationInformation.SetParentId(AIndex: Integer; const AValue: TGUIDString);
  44112. begin
  44113. If (FParentId=AValue) then exit;
  44114. FParentId:=AValue;
  44115. MarkPropertyChanged(AIndex);
  44116. end;
  44117. Procedure TPSLookupEntryCreationInformation.SetSortIndex(AIndex: Integer; const AValue: double);
  44118. begin
  44119. If (FSortIndex=AValue) then exit;
  44120. FSortIndex:=AValue;
  44121. MarkPropertyChanged(AIndex);
  44122. end;
  44123. Procedure TPSLookupEntryCreationInformation.SetValue(AIndex: Integer; const AValue: TPSLookupEntryValue);
  44124. begin
  44125. If (FValue=AValue) then exit;
  44126. FValue:=AValue;
  44127. MarkPropertyChanged(AIndex);
  44128. end;
  44129. { --------------------------------------------------------------------
  44130. TPSLookupEntryValue
  44131. --------------------------------------------------------------------}
  44132. Class Function TPSLookupEntryValue.ObjectRestKind : String;
  44133. begin
  44134. Result:='LookupEntryValue';
  44135. end;
  44136. Procedure TPSLookupEntryValue.SetDateValue(AIndex: Integer; const AValue: TDateTime);
  44137. begin
  44138. If (FDateValue=AValue) then exit;
  44139. FDateValue:=AValue;
  44140. MarkPropertyChanged(AIndex);
  44141. end;
  44142. Procedure TPSLookupEntryValue.SetDurationValue(AIndex: Integer; const AValue: string);
  44143. begin
  44144. If (FDurationValue=AValue) then exit;
  44145. FDurationValue:=AValue;
  44146. MarkPropertyChanged(AIndex);
  44147. end;
  44148. Procedure TPSLookupEntryValue.SetNumberValue(AIndex: Integer; const AValue: double);
  44149. begin
  44150. If (FNumberValue=AValue) then exit;
  44151. FNumberValue:=AValue;
  44152. MarkPropertyChanged(AIndex);
  44153. end;
  44154. Procedure TPSLookupEntryValue.SetTextValue(AIndex: Integer; const AValue: string);
  44155. begin
  44156. If (FTextValue=AValue) then exit;
  44157. FTextValue:=AValue;
  44158. MarkPropertyChanged(AIndex);
  44159. end;
  44160. { --------------------------------------------------------------------
  44161. TPSLookupMask
  44162. --------------------------------------------------------------------}
  44163. Class Function TPSLookupMask.ObjectRestKind : String;
  44164. begin
  44165. Result:='LookupMask';
  44166. end;
  44167. Procedure TPSLookupMask.Set_Length(AIndex: Integer; const AValue: TInt32);
  44168. begin
  44169. If (F_Length=AValue) then exit;
  44170. F_Length:=AValue;
  44171. MarkPropertyChanged(AIndex);
  44172. end;
  44173. Procedure TPSLookupMask.SetMaskType(AIndex: Integer; const AValue: TInt32);
  44174. begin
  44175. If (FMaskType=AValue) then exit;
  44176. FMaskType:=AValue;
  44177. MarkPropertyChanged(AIndex);
  44178. end;
  44179. Procedure TPSLookupMask.SetSeparator(AIndex: Integer; const AValue: string);
  44180. begin
  44181. If (FSeparator=AValue) then exit;
  44182. FSeparator:=AValue;
  44183. MarkPropertyChanged(AIndex);
  44184. end;
  44185. Class Function TPSLookupMask.ExportPropertyName(Const AName : String) :String;
  44186. begin
  44187. Case AName of
  44188. '_Length' : Result:='Length';
  44189. else
  44190. Result:=Inherited ExportPropertyName(AName);
  44191. end;
  44192. end;
  44193. { --------------------------------------------------------------------
  44194. TPSLookupTableCreationInformation
  44195. --------------------------------------------------------------------}
  44196. Class Function TPSLookupTableCreationInformation.ObjectRestKind : String;
  44197. begin
  44198. Result:='LookupTableCreationInformation';
  44199. end;
  44200. Procedure TPSLookupTableCreationInformation.SetEntries(AIndex: Integer; const AValue: TPSLookupEntryCreationInformationArray);
  44201. begin
  44202. If (FEntries=AValue) then exit;
  44203. FEntries:=AValue;
  44204. MarkPropertyChanged(AIndex);
  44205. end;
  44206. Procedure TPSLookupTableCreationInformation.SetId(AIndex: Integer; const AValue: TGUIDString);
  44207. begin
  44208. If (FId=AValue) then exit;
  44209. FId:=AValue;
  44210. MarkPropertyChanged(AIndex);
  44211. end;
  44212. Procedure TPSLookupTableCreationInformation.SetMasks(AIndex: Integer; const AValue: TPSLookupMaskArray);
  44213. begin
  44214. If (FMasks=AValue) then exit;
  44215. FMasks:=AValue;
  44216. MarkPropertyChanged(AIndex);
  44217. end;
  44218. Procedure TPSLookupTableCreationInformation.SetName(AIndex: Integer; const AValue: string);
  44219. begin
  44220. If (FName=AValue) then exit;
  44221. FName:=AValue;
  44222. MarkPropertyChanged(AIndex);
  44223. end;
  44224. Procedure TPSLookupTableCreationInformation.SetSortOrder(AIndex: Integer; const AValue: TInt32);
  44225. begin
  44226. If (FSortOrder=AValue) then exit;
  44227. FSortOrder:=AValue;
  44228. MarkPropertyChanged(AIndex);
  44229. end;
  44230. {$IFDEF VER2_6}
  44231. Procedure TPSLookupTableCreationInformation.SetArrayLength(const AName: String; ALength: Longint);
  44232. begin
  44233. Case aName of
  44234. 'entries' : SetLength(FEntries,aLength);
  44235. 'masks' : SetLength(FMasks,aLength);
  44236. else
  44237. inherited SetArrayLength(aName,ALength);
  44238. end;
  44239. end;
  44240. {$ENDIF VER2_6}
  44241. { --------------------------------------------------------------------
  44242. TPSPhaseCreationInformation
  44243. --------------------------------------------------------------------}
  44244. Class Function TPSPhaseCreationInformation.ObjectRestKind : String;
  44245. begin
  44246. Result:='PhaseCreationInformation';
  44247. end;
  44248. Procedure TPSPhaseCreationInformation.SetDescription(AIndex: Integer; const AValue: string);
  44249. begin
  44250. If (FDescription=AValue) then exit;
  44251. FDescription:=AValue;
  44252. MarkPropertyChanged(AIndex);
  44253. end;
  44254. Procedure TPSPhaseCreationInformation.SetId(AIndex: Integer; const AValue: TGUIDString);
  44255. begin
  44256. If (FId=AValue) then exit;
  44257. FId:=AValue;
  44258. MarkPropertyChanged(AIndex);
  44259. end;
  44260. Procedure TPSPhaseCreationInformation.SetName(AIndex: Integer; const AValue: string);
  44261. begin
  44262. If (FName=AValue) then exit;
  44263. FName:=AValue;
  44264. MarkPropertyChanged(AIndex);
  44265. end;
  44266. { --------------------------------------------------------------------
  44267. TPSPlanAssignmentCreationInformation
  44268. --------------------------------------------------------------------}
  44269. Class Function TPSPlanAssignmentCreationInformation.ObjectRestKind : String;
  44270. begin
  44271. Result:='PlanAssignmentCreationInformation';
  44272. end;
  44273. Procedure TPSPlanAssignmentCreationInformation.SetBookingType(AIndex: Integer; const AValue: TInt32);
  44274. begin
  44275. If (FBookingType=AValue) then exit;
  44276. FBookingType:=AValue;
  44277. MarkPropertyChanged(AIndex);
  44278. end;
  44279. Procedure TPSPlanAssignmentCreationInformation.SetId(AIndex: Integer; const AValue: TGUIDString);
  44280. begin
  44281. If (FId=AValue) then exit;
  44282. FId:=AValue;
  44283. MarkPropertyChanged(AIndex);
  44284. end;
  44285. Procedure TPSPlanAssignmentCreationInformation.SetIntervals(AIndex: Integer; const AValue: TPSPlanAssignmentIntervalCreationInformationArray);
  44286. begin
  44287. If (FIntervals=AValue) then exit;
  44288. FIntervals:=AValue;
  44289. MarkPropertyChanged(AIndex);
  44290. end;
  44291. Procedure TPSPlanAssignmentCreationInformation.SetResourceId(AIndex: Integer; const AValue: TGUIDString);
  44292. begin
  44293. If (FResourceId=AValue) then exit;
  44294. FResourceId:=AValue;
  44295. MarkPropertyChanged(AIndex);
  44296. end;
  44297. {$IFDEF VER2_6}
  44298. Procedure TPSPlanAssignmentCreationInformation.SetArrayLength(const AName: String; ALength: Longint);
  44299. begin
  44300. Case aName of
  44301. 'intervals' : SetLength(FIntervals,aLength);
  44302. else
  44303. inherited SetArrayLength(aName,ALength);
  44304. end;
  44305. end;
  44306. {$ENDIF VER2_6}
  44307. { --------------------------------------------------------------------
  44308. TPSPlanAssignmentIntervalCreationInformation
  44309. --------------------------------------------------------------------}
  44310. Class Function TPSPlanAssignmentIntervalCreationInformation.ObjectRestKind : String;
  44311. begin
  44312. Result:='PlanAssignmentIntervalCreationInformation';
  44313. end;
  44314. Procedure TPSPlanAssignmentIntervalCreationInformation.SetDuration(AIndex: Integer; const AValue: string);
  44315. begin
  44316. If (FDuration=AValue) then exit;
  44317. FDuration:=AValue;
  44318. MarkPropertyChanged(AIndex);
  44319. end;
  44320. Procedure TPSPlanAssignmentIntervalCreationInformation.SetInterval(AIndex: Integer; const AValue: TDateTime);
  44321. begin
  44322. If (FInterval=AValue) then exit;
  44323. FInterval:=AValue;
  44324. MarkPropertyChanged(AIndex);
  44325. end;
  44326. { --------------------------------------------------------------------
  44327. TPSProjectCreationInformation
  44328. --------------------------------------------------------------------}
  44329. Class Function TPSProjectCreationInformation.ObjectRestKind : String;
  44330. begin
  44331. Result:='ProjectCreationInformation';
  44332. end;
  44333. Procedure TPSProjectCreationInformation.SetDescription(AIndex: Integer; const AValue: string);
  44334. begin
  44335. If (FDescription=AValue) then exit;
  44336. FDescription:=AValue;
  44337. MarkPropertyChanged(AIndex);
  44338. end;
  44339. Procedure TPSProjectCreationInformation.SetEnterpriseProjectTypeId(AIndex: Integer; const AValue: TGUIDString);
  44340. begin
  44341. If (FEnterpriseProjectTypeId=AValue) then exit;
  44342. FEnterpriseProjectTypeId:=AValue;
  44343. MarkPropertyChanged(AIndex);
  44344. end;
  44345. Procedure TPSProjectCreationInformation.SetId(AIndex: Integer; const AValue: TGUIDString);
  44346. begin
  44347. If (FId=AValue) then exit;
  44348. FId:=AValue;
  44349. MarkPropertyChanged(AIndex);
  44350. end;
  44351. Procedure TPSProjectCreationInformation.SetListId(AIndex: Integer; const AValue: TGUIDString);
  44352. begin
  44353. If (FListId=AValue) then exit;
  44354. FListId:=AValue;
  44355. MarkPropertyChanged(AIndex);
  44356. end;
  44357. Procedure TPSProjectCreationInformation.SetName(AIndex: Integer; const AValue: string);
  44358. begin
  44359. If (FName=AValue) then exit;
  44360. FName:=AValue;
  44361. MarkPropertyChanged(AIndex);
  44362. end;
  44363. Procedure TPSProjectCreationInformation.SetStart(AIndex: Integer; const AValue: TDateTime);
  44364. begin
  44365. If (FStart=AValue) then exit;
  44366. FStart:=AValue;
  44367. MarkPropertyChanged(AIndex);
  44368. end;
  44369. Procedure TPSProjectCreationInformation.SetWebId(AIndex: Integer; const AValue: TGUIDString);
  44370. begin
  44371. If (FWebId=AValue) then exit;
  44372. FWebId:=AValue;
  44373. MarkPropertyChanged(AIndex);
  44374. end;
  44375. { --------------------------------------------------------------------
  44376. TPSProjectResourceCreationInformation
  44377. --------------------------------------------------------------------}
  44378. Class Function TPSProjectResourceCreationInformation.ObjectRestKind : String;
  44379. begin
  44380. Result:='ProjectResourceCreationInformation';
  44381. end;
  44382. Procedure TPSProjectResourceCreationInformation.SetAccount(AIndex: Integer; const AValue: string);
  44383. begin
  44384. If (FAccount=AValue) then exit;
  44385. FAccount:=AValue;
  44386. MarkPropertyChanged(AIndex);
  44387. end;
  44388. Procedure TPSProjectResourceCreationInformation.SetEmail(AIndex: Integer; const AValue: string);
  44389. begin
  44390. If (FEmail=AValue) then exit;
  44391. FEmail:=AValue;
  44392. MarkPropertyChanged(AIndex);
  44393. end;
  44394. Procedure TPSProjectResourceCreationInformation.SetId(AIndex: Integer; const AValue: TGUIDString);
  44395. begin
  44396. If (FId=AValue) then exit;
  44397. FId:=AValue;
  44398. MarkPropertyChanged(AIndex);
  44399. end;
  44400. Procedure TPSProjectResourceCreationInformation.SetName(AIndex: Integer; const AValue: string);
  44401. begin
  44402. If (FName=AValue) then exit;
  44403. FName:=AValue;
  44404. MarkPropertyChanged(AIndex);
  44405. end;
  44406. Procedure TPSProjectResourceCreationInformation.SetNotes(AIndex: Integer; const AValue: string);
  44407. begin
  44408. If (FNotes=AValue) then exit;
  44409. FNotes:=AValue;
  44410. MarkPropertyChanged(AIndex);
  44411. end;
  44412. { --------------------------------------------------------------------
  44413. TPSStageCreationInformation
  44414. --------------------------------------------------------------------}
  44415. Class Function TPSStageCreationInformation.ObjectRestKind : String;
  44416. begin
  44417. Result:='StageCreationInformation';
  44418. end;
  44419. Procedure TPSStageCreationInformation.SetBehavior(AIndex: Integer; const AValue: TInt32);
  44420. begin
  44421. If (FBehavior=AValue) then exit;
  44422. FBehavior:=AValue;
  44423. MarkPropertyChanged(AIndex);
  44424. end;
  44425. Procedure TPSStageCreationInformation.SetCheckInRequired(AIndex: Integer; const AValue: boolean);
  44426. begin
  44427. If (FCheckInRequired=AValue) then exit;
  44428. FCheckInRequired:=AValue;
  44429. MarkPropertyChanged(AIndex);
  44430. end;
  44431. Procedure TPSStageCreationInformation.SetCustomFields(AIndex: Integer; const AValue: TPSStageCustomFieldCreationInformationArray);
  44432. begin
  44433. If (FCustomFields=AValue) then exit;
  44434. FCustomFields:=AValue;
  44435. MarkPropertyChanged(AIndex);
  44436. end;
  44437. Procedure TPSStageCreationInformation.SetDescription(AIndex: Integer; const AValue: string);
  44438. begin
  44439. If (FDescription=AValue) then exit;
  44440. FDescription:=AValue;
  44441. MarkPropertyChanged(AIndex);
  44442. end;
  44443. Procedure TPSStageCreationInformation.SetId(AIndex: Integer; const AValue: TGUIDString);
  44444. begin
  44445. If (FId=AValue) then exit;
  44446. FId:=AValue;
  44447. MarkPropertyChanged(AIndex);
  44448. end;
  44449. Procedure TPSStageCreationInformation.SetName(AIndex: Integer; const AValue: string);
  44450. begin
  44451. If (FName=AValue) then exit;
  44452. FName:=AValue;
  44453. MarkPropertyChanged(AIndex);
  44454. end;
  44455. Procedure TPSStageCreationInformation.SetPhaseId(AIndex: Integer; const AValue: TGUIDString);
  44456. begin
  44457. If (FPhaseId=AValue) then exit;
  44458. FPhaseId:=AValue;
  44459. MarkPropertyChanged(AIndex);
  44460. end;
  44461. Procedure TPSStageCreationInformation.SetProjectDetailPages(AIndex: Integer; const AValue: TPSStageDetailPageCreationInformationArray);
  44462. begin
  44463. If (FProjectDetailPages=AValue) then exit;
  44464. FProjectDetailPages:=AValue;
  44465. MarkPropertyChanged(AIndex);
  44466. end;
  44467. Procedure TPSStageCreationInformation.SetSubmitDescription(AIndex: Integer; const AValue: string);
  44468. begin
  44469. If (FSubmitDescription=AValue) then exit;
  44470. FSubmitDescription:=AValue;
  44471. MarkPropertyChanged(AIndex);
  44472. end;
  44473. Procedure TPSStageCreationInformation.SetWorkflowStatusPageId(AIndex: Integer; const AValue: TGUIDString);
  44474. begin
  44475. If (FWorkflowStatusPageId=AValue) then exit;
  44476. FWorkflowStatusPageId:=AValue;
  44477. MarkPropertyChanged(AIndex);
  44478. end;
  44479. {$IFDEF VER2_6}
  44480. Procedure TPSStageCreationInformation.SetArrayLength(const AName: String; ALength: Longint);
  44481. begin
  44482. Case aName of
  44483. 'customfields' : SetLength(FCustomFields,aLength);
  44484. 'projectdetailpages' : SetLength(FProjectDetailPages,aLength);
  44485. else
  44486. inherited SetArrayLength(aName,ALength);
  44487. end;
  44488. end;
  44489. {$ENDIF VER2_6}
  44490. { --------------------------------------------------------------------
  44491. TPSStageCustomFieldCreationInformation
  44492. --------------------------------------------------------------------}
  44493. Class Function TPSStageCustomFieldCreationInformation.ObjectRestKind : String;
  44494. begin
  44495. Result:='StageCustomFieldCreationInformation';
  44496. end;
  44497. Procedure TPSStageCustomFieldCreationInformation.SetId(AIndex: Integer; const AValue: TGUIDString);
  44498. begin
  44499. If (FId=AValue) then exit;
  44500. FId:=AValue;
  44501. MarkPropertyChanged(AIndex);
  44502. end;
  44503. Procedure TPSStageCustomFieldCreationInformation.SetReadOnly(AIndex: Integer; const AValue: boolean);
  44504. begin
  44505. If (FReadOnly=AValue) then exit;
  44506. FReadOnly:=AValue;
  44507. MarkPropertyChanged(AIndex);
  44508. end;
  44509. Procedure TPSStageCustomFieldCreationInformation.SetRequired(AIndex: Integer; const AValue: boolean);
  44510. begin
  44511. If (FRequired=AValue) then exit;
  44512. FRequired:=AValue;
  44513. MarkPropertyChanged(AIndex);
  44514. end;
  44515. { --------------------------------------------------------------------
  44516. TPSStageDetailPageCreationInformation
  44517. --------------------------------------------------------------------}
  44518. Class Function TPSStageDetailPageCreationInformation.ObjectRestKind : String;
  44519. begin
  44520. Result:='StageDetailPageCreationInformation';
  44521. end;
  44522. Procedure TPSStageDetailPageCreationInformation.SetDescription(AIndex: Integer; const AValue: string);
  44523. begin
  44524. If (FDescription=AValue) then exit;
  44525. FDescription:=AValue;
  44526. MarkPropertyChanged(AIndex);
  44527. end;
  44528. Procedure TPSStageDetailPageCreationInformation.SetId(AIndex: Integer; const AValue: TGUIDString);
  44529. begin
  44530. If (FId=AValue) then exit;
  44531. FId:=AValue;
  44532. MarkPropertyChanged(AIndex);
  44533. end;
  44534. Procedure TPSStageDetailPageCreationInformation.SetPosition(AIndex: Integer; const AValue: TInt32);
  44535. begin
  44536. If (FPosition=AValue) then exit;
  44537. FPosition:=AValue;
  44538. MarkPropertyChanged(AIndex);
  44539. end;
  44540. Procedure TPSStageDetailPageCreationInformation.SetRequiresAttention(AIndex: Integer; const AValue: boolean);
  44541. begin
  44542. If (FRequiresAttention=AValue) then exit;
  44543. FRequiresAttention:=AValue;
  44544. MarkPropertyChanged(AIndex);
  44545. end;
  44546. { --------------------------------------------------------------------
  44547. TPSStatusAssignmentCreationInformation
  44548. --------------------------------------------------------------------}
  44549. Class Function TPSStatusAssignmentCreationInformation.ObjectRestKind : String;
  44550. begin
  44551. Result:='StatusAssignmentCreationInformation';
  44552. end;
  44553. Procedure TPSStatusAssignmentCreationInformation.SetComment(AIndex: Integer; const AValue: string);
  44554. begin
  44555. If (FComment=AValue) then exit;
  44556. FComment:=AValue;
  44557. MarkPropertyChanged(AIndex);
  44558. end;
  44559. Procedure TPSStatusAssignmentCreationInformation.SetId(AIndex: Integer; const AValue: TGUIDString);
  44560. begin
  44561. If (FId=AValue) then exit;
  44562. FId:=AValue;
  44563. MarkPropertyChanged(AIndex);
  44564. end;
  44565. Procedure TPSStatusAssignmentCreationInformation.SetProjectId(AIndex: Integer; const AValue: TGUIDString);
  44566. begin
  44567. If (FProjectId=AValue) then exit;
  44568. FProjectId:=AValue;
  44569. MarkPropertyChanged(AIndex);
  44570. end;
  44571. Procedure TPSStatusAssignmentCreationInformation.SetTask(AIndex: Integer; const AValue: TPSStatusTaskCreationInformation);
  44572. begin
  44573. If (FTask=AValue) then exit;
  44574. FTask:=AValue;
  44575. MarkPropertyChanged(AIndex);
  44576. end;
  44577. { --------------------------------------------------------------------
  44578. TPSStatusTaskCreationInformation
  44579. --------------------------------------------------------------------}
  44580. Class Function TPSStatusTaskCreationInformation.ObjectRestKind : String;
  44581. begin
  44582. Result:='StatusTaskCreationInformation';
  44583. end;
  44584. Procedure TPSStatusTaskCreationInformation.SetFinish(AIndex: Integer; const AValue: TDateTime);
  44585. begin
  44586. If (FFinish=AValue) then exit;
  44587. FFinish:=AValue;
  44588. MarkPropertyChanged(AIndex);
  44589. end;
  44590. Procedure TPSStatusTaskCreationInformation.SetId(AIndex: Integer; const AValue: TGUIDString);
  44591. begin
  44592. If (FId=AValue) then exit;
  44593. FId:=AValue;
  44594. MarkPropertyChanged(AIndex);
  44595. end;
  44596. Procedure TPSStatusTaskCreationInformation.SetName(AIndex: Integer; const AValue: string);
  44597. begin
  44598. If (FName=AValue) then exit;
  44599. FName:=AValue;
  44600. MarkPropertyChanged(AIndex);
  44601. end;
  44602. Procedure TPSStatusTaskCreationInformation.SetParentId(AIndex: Integer; const AValue: TGUIDString);
  44603. begin
  44604. If (FParentId=AValue) then exit;
  44605. FParentId:=AValue;
  44606. MarkPropertyChanged(AIndex);
  44607. end;
  44608. Procedure TPSStatusTaskCreationInformation.SetStart(AIndex: Integer; const AValue: TDateTime);
  44609. begin
  44610. If (FStart=AValue) then exit;
  44611. FStart:=AValue;
  44612. MarkPropertyChanged(AIndex);
  44613. end;
  44614. Procedure TPSStatusTaskCreationInformation.SetWork(AIndex: Integer; const AValue: string);
  44615. begin
  44616. If (FWork=AValue) then exit;
  44617. FWork:=AValue;
  44618. MarkPropertyChanged(AIndex);
  44619. end;
  44620. { --------------------------------------------------------------------
  44621. TPSTaskCreationInformation
  44622. --------------------------------------------------------------------}
  44623. Class Function TPSTaskCreationInformation.ObjectRestKind : String;
  44624. begin
  44625. Result:='TaskCreationInformation';
  44626. end;
  44627. Procedure TPSTaskCreationInformation.SetAddAfterId(AIndex: Integer; const AValue: TGUIDString);
  44628. begin
  44629. If (FAddAfterId=AValue) then exit;
  44630. FAddAfterId:=AValue;
  44631. MarkPropertyChanged(AIndex);
  44632. end;
  44633. Procedure TPSTaskCreationInformation.SetDuration(AIndex: Integer; const AValue: string);
  44634. begin
  44635. If (FDuration=AValue) then exit;
  44636. FDuration:=AValue;
  44637. MarkPropertyChanged(AIndex);
  44638. end;
  44639. Procedure TPSTaskCreationInformation.SetFinish(AIndex: Integer; const AValue: TDateTime);
  44640. begin
  44641. If (FFinish=AValue) then exit;
  44642. FFinish:=AValue;
  44643. MarkPropertyChanged(AIndex);
  44644. end;
  44645. Procedure TPSTaskCreationInformation.SetId(AIndex: Integer; const AValue: TGUIDString);
  44646. begin
  44647. If (FId=AValue) then exit;
  44648. FId:=AValue;
  44649. MarkPropertyChanged(AIndex);
  44650. end;
  44651. Procedure TPSTaskCreationInformation.SetIsManual(AIndex: Integer; const AValue: boolean);
  44652. begin
  44653. If (FIsManual=AValue) then exit;
  44654. FIsManual:=AValue;
  44655. MarkPropertyChanged(AIndex);
  44656. end;
  44657. Procedure TPSTaskCreationInformation.SetName(AIndex: Integer; const AValue: string);
  44658. begin
  44659. If (FName=AValue) then exit;
  44660. FName:=AValue;
  44661. MarkPropertyChanged(AIndex);
  44662. end;
  44663. Procedure TPSTaskCreationInformation.SetNotes(AIndex: Integer; const AValue: string);
  44664. begin
  44665. If (FNotes=AValue) then exit;
  44666. FNotes:=AValue;
  44667. MarkPropertyChanged(AIndex);
  44668. end;
  44669. Procedure TPSTaskCreationInformation.SetParentId(AIndex: Integer; const AValue: TGUIDString);
  44670. begin
  44671. If (FParentId=AValue) then exit;
  44672. FParentId:=AValue;
  44673. MarkPropertyChanged(AIndex);
  44674. end;
  44675. Procedure TPSTaskCreationInformation.SetStart(AIndex: Integer; const AValue: TDateTime);
  44676. begin
  44677. If (FStart=AValue) then exit;
  44678. FStart:=AValue;
  44679. MarkPropertyChanged(AIndex);
  44680. end;
  44681. { --------------------------------------------------------------------
  44682. TPSTaskLinkCreationInformation
  44683. --------------------------------------------------------------------}
  44684. Class Function TPSTaskLinkCreationInformation.ObjectRestKind : String;
  44685. begin
  44686. Result:='TaskLinkCreationInformation';
  44687. end;
  44688. Procedure TPSTaskLinkCreationInformation.SetDependencyType(AIndex: Integer; const AValue: TInt32);
  44689. begin
  44690. If (FDependencyType=AValue) then exit;
  44691. FDependencyType:=AValue;
  44692. MarkPropertyChanged(AIndex);
  44693. end;
  44694. Procedure TPSTaskLinkCreationInformation.SetEndId(AIndex: Integer; const AValue: TGUIDString);
  44695. begin
  44696. If (FEndId=AValue) then exit;
  44697. FEndId:=AValue;
  44698. MarkPropertyChanged(AIndex);
  44699. end;
  44700. Procedure TPSTaskLinkCreationInformation.SetId(AIndex: Integer; const AValue: TGUIDString);
  44701. begin
  44702. If (FId=AValue) then exit;
  44703. FId:=AValue;
  44704. MarkPropertyChanged(AIndex);
  44705. end;
  44706. Procedure TPSTaskLinkCreationInformation.SetStartId(AIndex: Integer; const AValue: TGUIDString);
  44707. begin
  44708. If (FStartId=AValue) then exit;
  44709. FStartId:=AValue;
  44710. MarkPropertyChanged(AIndex);
  44711. end;
  44712. { --------------------------------------------------------------------
  44713. TPSTimeSheetLineCreationInformation
  44714. --------------------------------------------------------------------}
  44715. Class Function TPSTimeSheetLineCreationInformation.ObjectRestKind : String;
  44716. begin
  44717. Result:='TimeSheetLineCreationInformation';
  44718. end;
  44719. Procedure TPSTimeSheetLineCreationInformation.SetAssignmentId(AIndex: Integer; const AValue: TGUIDString);
  44720. begin
  44721. If (FAssignmentId=AValue) then exit;
  44722. FAssignmentId:=AValue;
  44723. MarkPropertyChanged(AIndex);
  44724. end;
  44725. Procedure TPSTimeSheetLineCreationInformation.SetComment(AIndex: Integer; const AValue: string);
  44726. begin
  44727. If (FComment=AValue) then exit;
  44728. FComment:=AValue;
  44729. MarkPropertyChanged(AIndex);
  44730. end;
  44731. Procedure TPSTimeSheetLineCreationInformation.SetId(AIndex: Integer; const AValue: TGUIDString);
  44732. begin
  44733. If (FId=AValue) then exit;
  44734. FId:=AValue;
  44735. MarkPropertyChanged(AIndex);
  44736. end;
  44737. Procedure TPSTimeSheetLineCreationInformation.SetLineClass(AIndex: Integer; const AValue: TInt32);
  44738. begin
  44739. If (FLineClass=AValue) then exit;
  44740. FLineClass:=AValue;
  44741. MarkPropertyChanged(AIndex);
  44742. end;
  44743. Procedure TPSTimeSheetLineCreationInformation.SetProjectId(AIndex: Integer; const AValue: TGUIDString);
  44744. begin
  44745. If (FProjectId=AValue) then exit;
  44746. FProjectId:=AValue;
  44747. MarkPropertyChanged(AIndex);
  44748. end;
  44749. Procedure TPSTimeSheetLineCreationInformation.SetTaskName(AIndex: Integer; const AValue: string);
  44750. begin
  44751. If (FTaskName=AValue) then exit;
  44752. FTaskName:=AValue;
  44753. MarkPropertyChanged(AIndex);
  44754. end;
  44755. { --------------------------------------------------------------------
  44756. TPSTimeSheetWorkCreationInformation
  44757. --------------------------------------------------------------------}
  44758. Class Function TPSTimeSheetWorkCreationInformation.ObjectRestKind : String;
  44759. begin
  44760. Result:='TimeSheetWorkCreationInformation';
  44761. end;
  44762. Procedure TPSTimeSheetWorkCreationInformation.SetActualWork(AIndex: Integer; const AValue: string);
  44763. begin
  44764. If (FActualWork=AValue) then exit;
  44765. FActualWork:=AValue;
  44766. MarkPropertyChanged(AIndex);
  44767. end;
  44768. Procedure TPSTimeSheetWorkCreationInformation.SetComment(AIndex: Integer; const AValue: string);
  44769. begin
  44770. If (FComment=AValue) then exit;
  44771. FComment:=AValue;
  44772. MarkPropertyChanged(AIndex);
  44773. end;
  44774. Procedure TPSTimeSheetWorkCreationInformation.Set_End(AIndex: Integer; const AValue: TDateTime);
  44775. begin
  44776. If (F_End=AValue) then exit;
  44777. F_End:=AValue;
  44778. MarkPropertyChanged(AIndex);
  44779. end;
  44780. Procedure TPSTimeSheetWorkCreationInformation.SetNonBillableOvertimeWork(AIndex: Integer; const AValue: string);
  44781. begin
  44782. If (FNonBillableOvertimeWork=AValue) then exit;
  44783. FNonBillableOvertimeWork:=AValue;
  44784. MarkPropertyChanged(AIndex);
  44785. end;
  44786. Procedure TPSTimeSheetWorkCreationInformation.SetNonBillableWork(AIndex: Integer; const AValue: string);
  44787. begin
  44788. If (FNonBillableWork=AValue) then exit;
  44789. FNonBillableWork:=AValue;
  44790. MarkPropertyChanged(AIndex);
  44791. end;
  44792. Procedure TPSTimeSheetWorkCreationInformation.SetOvertimeWork(AIndex: Integer; const AValue: string);
  44793. begin
  44794. If (FOvertimeWork=AValue) then exit;
  44795. FOvertimeWork:=AValue;
  44796. MarkPropertyChanged(AIndex);
  44797. end;
  44798. Procedure TPSTimeSheetWorkCreationInformation.SetPlannedWork(AIndex: Integer; const AValue: string);
  44799. begin
  44800. If (FPlannedWork=AValue) then exit;
  44801. FPlannedWork:=AValue;
  44802. MarkPropertyChanged(AIndex);
  44803. end;
  44804. Procedure TPSTimeSheetWorkCreationInformation.SetStart(AIndex: Integer; const AValue: TDateTime);
  44805. begin
  44806. If (FStart=AValue) then exit;
  44807. FStart:=AValue;
  44808. MarkPropertyChanged(AIndex);
  44809. end;
  44810. Class Function TPSTimeSheetWorkCreationInformation.ExportPropertyName(Const AName : String) :String;
  44811. begin
  44812. Case AName of
  44813. '_End' : Result:='End';
  44814. else
  44815. Result:=Inherited ExportPropertyName(AName);
  44816. end;
  44817. end;
  44818. { --------------------------------------------------------------------
  44819. TPSEntityType
  44820. --------------------------------------------------------------------}
  44821. Class Function TPSEntityType.ObjectRestKind : String;
  44822. begin
  44823. Result:='EntityType';
  44824. end;
  44825. Procedure TPSEntityType.SetName(AIndex: Integer; const AValue: string);
  44826. begin
  44827. If (FName=AValue) then exit;
  44828. FName:=AValue;
  44829. MarkPropertyChanged(AIndex);
  44830. end;
  44831. Procedure TPSEntityType.SetID(AIndex: Integer; const AValue: TGUIDString);
  44832. begin
  44833. If (FID=AValue) then exit;
  44834. FID:=AValue;
  44835. MarkPropertyChanged(AIndex);
  44836. end;
  44837. Function TPSEntityType.KeyAsURLPart : string;
  44838. begin
  44839. Result:=TODataObject.MakeKeyString(Name);
  44840. end;
  44841. { --------------------------------------------------------------------
  44842. TPSLookupTables
  44843. --------------------------------------------------------------------}
  44844. Class Function TPSLookupTables.ObjectRestKind : String;
  44845. begin
  44846. Result:='LookupTables';
  44847. end;
  44848. Procedure TPSLookupTables.SetId4a81de82eeb94d6080ea5bf63e27023a(AIndex: Integer; const AValue: string);
  44849. begin
  44850. If (FId4a81de82eeb94d6080ea5bf63e27023a=AValue) then exit;
  44851. FId4a81de82eeb94d6080ea5bf63e27023a:=AValue;
  44852. MarkPropertyChanged(AIndex);
  44853. end;
  44854. Function TPSLookupTables.KeyAsURLPart : string;
  44855. begin
  44856. Result:=TODataObject.MakeKeyString(Id4a81de82eeb94d6080ea5bf63e27023a);
  44857. end;
  44858. { --------------------------------------------------------------------
  44859. TPSAssignment
  44860. --------------------------------------------------------------------}
  44861. Class Function TPSAssignment.ObjectRestKind : String;
  44862. begin
  44863. Result:='Assignment';
  44864. end;
  44865. Procedure TPSAssignment.SetActualCostWorkPerformed(AIndex: Integer; const AValue: Double);
  44866. begin
  44867. If (FActualCostWorkPerformed=AValue) then exit;
  44868. FActualCostWorkPerformed:=AValue;
  44869. MarkPropertyChanged(AIndex);
  44870. end;
  44871. Procedure TPSAssignment.SetActualOvertimeCost(AIndex: Integer; const AValue: Double);
  44872. begin
  44873. If (FActualOvertimeCost=AValue) then exit;
  44874. FActualOvertimeCost:=AValue;
  44875. MarkPropertyChanged(AIndex);
  44876. end;
  44877. Procedure TPSAssignment.SetBaselineCost(AIndex: Integer; const AValue: Double);
  44878. begin
  44879. If (FBaselineCost=AValue) then exit;
  44880. FBaselineCost:=AValue;
  44881. MarkPropertyChanged(AIndex);
  44882. end;
  44883. Procedure TPSAssignment.SetBaselineCostPerUse(AIndex: Integer; const AValue: Double);
  44884. begin
  44885. If (FBaselineCostPerUse=AValue) then exit;
  44886. FBaselineCostPerUse:=AValue;
  44887. MarkPropertyChanged(AIndex);
  44888. end;
  44889. Procedure TPSAssignment.SetBaselineFinish(AIndex: Integer; const AValue: TDateTime);
  44890. begin
  44891. If (FBaselineFinish=AValue) then exit;
  44892. FBaselineFinish:=AValue;
  44893. MarkPropertyChanged(AIndex);
  44894. end;
  44895. Procedure TPSAssignment.SetBaselineStart(AIndex: Integer; const AValue: TDateTime);
  44896. begin
  44897. If (FBaselineStart=AValue) then exit;
  44898. FBaselineStart:=AValue;
  44899. MarkPropertyChanged(AIndex);
  44900. end;
  44901. Procedure TPSAssignment.SetBaselineWork(AIndex: Integer; const AValue: string);
  44902. begin
  44903. If (FBaselineWork=AValue) then exit;
  44904. FBaselineWork:=AValue;
  44905. MarkPropertyChanged(AIndex);
  44906. end;
  44907. Procedure TPSAssignment.SetBaselineWorkMilliseconds(AIndex: Integer; const AValue: TInt32);
  44908. begin
  44909. If (FBaselineWorkMilliseconds=AValue) then exit;
  44910. FBaselineWorkMilliseconds:=AValue;
  44911. MarkPropertyChanged(AIndex);
  44912. end;
  44913. Procedure TPSAssignment.SetBaselineWorkTimeSpan(AIndex: Integer; const AValue: TTime);
  44914. begin
  44915. If (FBaselineWorkTimeSpan=AValue) then exit;
  44916. FBaselineWorkTimeSpan:=AValue;
  44917. MarkPropertyChanged(AIndex);
  44918. end;
  44919. Procedure TPSAssignment.SetBudgetedCostWorkPerformed(AIndex: Integer; const AValue: Double);
  44920. begin
  44921. If (FBudgetedCostWorkPerformed=AValue) then exit;
  44922. FBudgetedCostWorkPerformed:=AValue;
  44923. MarkPropertyChanged(AIndex);
  44924. end;
  44925. Procedure TPSAssignment.SetBudgetedCostWorkScheduled(AIndex: Integer; const AValue: Double);
  44926. begin
  44927. If (FBudgetedCostWorkScheduled=AValue) then exit;
  44928. FBudgetedCostWorkScheduled:=AValue;
  44929. MarkPropertyChanged(AIndex);
  44930. end;
  44931. Procedure TPSAssignment.SetCostVariance(AIndex: Integer; const AValue: Double);
  44932. begin
  44933. If (FCostVariance=AValue) then exit;
  44934. FCostVariance:=AValue;
  44935. MarkPropertyChanged(AIndex);
  44936. end;
  44937. Procedure TPSAssignment.SetCostVarianceAtCompletion(AIndex: Integer; const AValue: Double);
  44938. begin
  44939. If (FCostVarianceAtCompletion=AValue) then exit;
  44940. FCostVarianceAtCompletion:=AValue;
  44941. MarkPropertyChanged(AIndex);
  44942. end;
  44943. Procedure TPSAssignment.SetCreated(AIndex: Integer; const AValue: TDateTime);
  44944. begin
  44945. If (FCreated=AValue) then exit;
  44946. FCreated:=AValue;
  44947. MarkPropertyChanged(AIndex);
  44948. end;
  44949. Procedure TPSAssignment.SetCurrentCostVariance(AIndex: Integer; const AValue: Double);
  44950. begin
  44951. If (FCurrentCostVariance=AValue) then exit;
  44952. FCurrentCostVariance:=AValue;
  44953. MarkPropertyChanged(AIndex);
  44954. end;
  44955. Procedure TPSAssignment.SetFinishVariance(AIndex: Integer; const AValue: string);
  44956. begin
  44957. If (FFinishVariance=AValue) then exit;
  44958. FFinishVariance:=AValue;
  44959. MarkPropertyChanged(AIndex);
  44960. end;
  44961. Procedure TPSAssignment.SetFinishVarianceMilliseconds(AIndex: Integer; const AValue: TInt32);
  44962. begin
  44963. If (FFinishVarianceMilliseconds=AValue) then exit;
  44964. FFinishVarianceMilliseconds:=AValue;
  44965. MarkPropertyChanged(AIndex);
  44966. end;
  44967. Procedure TPSAssignment.SetFinishVarianceTimeSpan(AIndex: Integer; const AValue: TTime);
  44968. begin
  44969. If (FFinishVarianceTimeSpan=AValue) then exit;
  44970. FFinishVarianceTimeSpan:=AValue;
  44971. MarkPropertyChanged(AIndex);
  44972. end;
  44973. Procedure TPSAssignment.SetId(AIndex: Integer; const AValue: TGUIDString);
  44974. begin
  44975. If (FId=AValue) then exit;
  44976. FId:=AValue;
  44977. MarkPropertyChanged(AIndex);
  44978. end;
  44979. Procedure TPSAssignment.SetIsConfirmed(AIndex: Integer; const AValue: boolean);
  44980. begin
  44981. If (FIsConfirmed=AValue) then exit;
  44982. FIsConfirmed:=AValue;
  44983. MarkPropertyChanged(AIndex);
  44984. end;
  44985. Procedure TPSAssignment.SetIsOverAllocated(AIndex: Integer; const AValue: boolean);
  44986. begin
  44987. If (FIsOverAllocated=AValue) then exit;
  44988. FIsOverAllocated:=AValue;
  44989. MarkPropertyChanged(AIndex);
  44990. end;
  44991. Procedure TPSAssignment.SetIsPublished(AIndex: Integer; const AValue: boolean);
  44992. begin
  44993. If (FIsPublished=AValue) then exit;
  44994. FIsPublished:=AValue;
  44995. MarkPropertyChanged(AIndex);
  44996. end;
  44997. Procedure TPSAssignment.SetIsResponsePending(AIndex: Integer; const AValue: boolean);
  44998. begin
  44999. If (FIsResponsePending=AValue) then exit;
  45000. FIsResponsePending:=AValue;
  45001. MarkPropertyChanged(AIndex);
  45002. end;
  45003. Procedure TPSAssignment.SetIsUpdateNeeded(AIndex: Integer; const AValue: boolean);
  45004. begin
  45005. If (FIsUpdateNeeded=AValue) then exit;
  45006. FIsUpdateNeeded:=AValue;
  45007. MarkPropertyChanged(AIndex);
  45008. end;
  45009. Procedure TPSAssignment.SetLevelingDelay(AIndex: Integer; const AValue: string);
  45010. begin
  45011. If (FLevelingDelay=AValue) then exit;
  45012. FLevelingDelay:=AValue;
  45013. MarkPropertyChanged(AIndex);
  45014. end;
  45015. Procedure TPSAssignment.SetLevelingDelayMilliseconds(AIndex: Integer; const AValue: TInt32);
  45016. begin
  45017. If (FLevelingDelayMilliseconds=AValue) then exit;
  45018. FLevelingDelayMilliseconds:=AValue;
  45019. MarkPropertyChanged(AIndex);
  45020. end;
  45021. Procedure TPSAssignment.SetLevelingDelayTimeSpan(AIndex: Integer; const AValue: TTime);
  45022. begin
  45023. If (FLevelingDelayTimeSpan=AValue) then exit;
  45024. FLevelingDelayTimeSpan:=AValue;
  45025. MarkPropertyChanged(AIndex);
  45026. end;
  45027. Procedure TPSAssignment.SetModified(AIndex: Integer; const AValue: TDateTime);
  45028. begin
  45029. If (FModified=AValue) then exit;
  45030. FModified:=AValue;
  45031. MarkPropertyChanged(AIndex);
  45032. end;
  45033. Procedure TPSAssignment.SetOvertimeCost(AIndex: Integer; const AValue: Double);
  45034. begin
  45035. If (FOvertimeCost=AValue) then exit;
  45036. FOvertimeCost:=AValue;
  45037. MarkPropertyChanged(AIndex);
  45038. end;
  45039. Procedure TPSAssignment.SetRemainingCost(AIndex: Integer; const AValue: Double);
  45040. begin
  45041. If (FRemainingCost=AValue) then exit;
  45042. FRemainingCost:=AValue;
  45043. MarkPropertyChanged(AIndex);
  45044. end;
  45045. Procedure TPSAssignment.SetRemainingOvertimeCost(AIndex: Integer; const AValue: Double);
  45046. begin
  45047. If (FRemainingOvertimeCost=AValue) then exit;
  45048. FRemainingOvertimeCost:=AValue;
  45049. MarkPropertyChanged(AIndex);
  45050. end;
  45051. Procedure TPSAssignment.SetResume(AIndex: Integer; const AValue: TDateTime);
  45052. begin
  45053. If (FResume=AValue) then exit;
  45054. FResume:=AValue;
  45055. MarkPropertyChanged(AIndex);
  45056. end;
  45057. Procedure TPSAssignment.SetScheduleCostVariance(AIndex: Integer; const AValue: Double);
  45058. begin
  45059. If (FScheduleCostVariance=AValue) then exit;
  45060. FScheduleCostVariance:=AValue;
  45061. MarkPropertyChanged(AIndex);
  45062. end;
  45063. Procedure TPSAssignment.SetStart(AIndex: Integer; const AValue: TDateTime);
  45064. begin
  45065. If (FStart=AValue) then exit;
  45066. FStart:=AValue;
  45067. MarkPropertyChanged(AIndex);
  45068. end;
  45069. Procedure TPSAssignment.SetStartVariance(AIndex: Integer; const AValue: string);
  45070. begin
  45071. If (FStartVariance=AValue) then exit;
  45072. FStartVariance:=AValue;
  45073. MarkPropertyChanged(AIndex);
  45074. end;
  45075. Procedure TPSAssignment.SetStartVarianceMilliseconds(AIndex: Integer; const AValue: TInt32);
  45076. begin
  45077. If (FStartVarianceMilliseconds=AValue) then exit;
  45078. FStartVarianceMilliseconds:=AValue;
  45079. MarkPropertyChanged(AIndex);
  45080. end;
  45081. Procedure TPSAssignment.SetStartVarianceTimeSpan(AIndex: Integer; const AValue: TTime);
  45082. begin
  45083. If (FStartVarianceTimeSpan=AValue) then exit;
  45084. FStartVarianceTimeSpan:=AValue;
  45085. MarkPropertyChanged(AIndex);
  45086. end;
  45087. Procedure TPSAssignment.SetStop(AIndex: Integer; const AValue: TDateTime);
  45088. begin
  45089. If (FStop=AValue) then exit;
  45090. FStop:=AValue;
  45091. MarkPropertyChanged(AIndex);
  45092. end;
  45093. Procedure TPSAssignment.SetWorkVariance(AIndex: Integer; const AValue: string);
  45094. begin
  45095. If (FWorkVariance=AValue) then exit;
  45096. FWorkVariance:=AValue;
  45097. MarkPropertyChanged(AIndex);
  45098. end;
  45099. Procedure TPSAssignment.SetWorkVarianceMilliseconds(AIndex: Integer; const AValue: TInt32);
  45100. begin
  45101. If (FWorkVarianceMilliseconds=AValue) then exit;
  45102. FWorkVarianceMilliseconds:=AValue;
  45103. MarkPropertyChanged(AIndex);
  45104. end;
  45105. Procedure TPSAssignment.SetWorkVarianceTimeSpan(AIndex: Integer; const AValue: TTime);
  45106. begin
  45107. If (FWorkVarianceTimeSpan=AValue) then exit;
  45108. FWorkVarianceTimeSpan:=AValue;
  45109. MarkPropertyChanged(AIndex);
  45110. end;
  45111. Function TPSAssignment.KeyAsURLPart : string;
  45112. begin
  45113. Result:=TODataObject.MakeKeyString(Id);
  45114. end;
  45115. Function TPSAssignment.CustomFields(AService: TODataService) : TPSCustomField;
  45116. begin
  45117. Result:=TPSCustomField(GetContainedSingleTon(AService,'CustomFields', TPSCustomField));
  45118. end;
  45119. { --------------------------------------------------------------------
  45120. TPSCustomField
  45121. --------------------------------------------------------------------}
  45122. Class Function TPSCustomField.ObjectRestKind : String;
  45123. begin
  45124. Result:='CustomField';
  45125. end;
  45126. Procedure TPSCustomField.SetAppAlternateId(AIndex: Integer; const AValue: TGUIDString);
  45127. begin
  45128. If (FAppAlternateId=AValue) then exit;
  45129. FAppAlternateId:=AValue;
  45130. MarkPropertyChanged(AIndex);
  45131. end;
  45132. Procedure TPSCustomField.SetDescription(AIndex: Integer; const AValue: string);
  45133. begin
  45134. If (FDescription=AValue) then exit;
  45135. FDescription:=AValue;
  45136. MarkPropertyChanged(AIndex);
  45137. end;
  45138. Procedure TPSCustomField.SetEntityTypeId(AIndex: Integer; const AValue: TGUIDString);
  45139. begin
  45140. If (FEntityTypeId=AValue) then exit;
  45141. FEntityTypeId:=AValue;
  45142. MarkPropertyChanged(AIndex);
  45143. end;
  45144. Procedure TPSCustomField.SetFieldType(AIndex: Integer; const AValue: TInt32);
  45145. begin
  45146. If (FFieldType=AValue) then exit;
  45147. FFieldType:=AValue;
  45148. MarkPropertyChanged(AIndex);
  45149. end;
  45150. Procedure TPSCustomField.SetFormula(AIndex: Integer; const AValue: string);
  45151. begin
  45152. If (FFormula=AValue) then exit;
  45153. FFormula:=AValue;
  45154. MarkPropertyChanged(AIndex);
  45155. end;
  45156. Procedure TPSCustomField.SetId(AIndex: Integer; const AValue: TGUIDString);
  45157. begin
  45158. If (FId=AValue) then exit;
  45159. FId:=AValue;
  45160. MarkPropertyChanged(AIndex);
  45161. end;
  45162. Procedure TPSCustomField.SetInternalName(AIndex: Integer; const AValue: string);
  45163. begin
  45164. If (FInternalName=AValue) then exit;
  45165. FInternalName:=AValue;
  45166. MarkPropertyChanged(AIndex);
  45167. end;
  45168. Procedure TPSCustomField.SetIsEditableInVisibility(AIndex: Integer; const AValue: boolean);
  45169. begin
  45170. If (FIsEditableInVisibility=AValue) then exit;
  45171. FIsEditableInVisibility:=AValue;
  45172. MarkPropertyChanged(AIndex);
  45173. end;
  45174. Procedure TPSCustomField.SetIsMultilineText(AIndex: Integer; const AValue: boolean);
  45175. begin
  45176. If (FIsMultilineText=AValue) then exit;
  45177. FIsMultilineText:=AValue;
  45178. MarkPropertyChanged(AIndex);
  45179. end;
  45180. Procedure TPSCustomField.SetIsRequired(AIndex: Integer; const AValue: boolean);
  45181. begin
  45182. If (FIsRequired=AValue) then exit;
  45183. FIsRequired:=AValue;
  45184. MarkPropertyChanged(AIndex);
  45185. end;
  45186. Procedure TPSCustomField.SetIsWorkflowControlled(AIndex: Integer; const AValue: boolean);
  45187. begin
  45188. If (FIsWorkflowControlled=AValue) then exit;
  45189. FIsWorkflowControlled:=AValue;
  45190. MarkPropertyChanged(AIndex);
  45191. end;
  45192. Procedure TPSCustomField.SetLookupAllowMultiSelect(AIndex: Integer; const AValue: boolean);
  45193. begin
  45194. If (FLookupAllowMultiSelect=AValue) then exit;
  45195. FLookupAllowMultiSelect:=AValue;
  45196. MarkPropertyChanged(AIndex);
  45197. end;
  45198. Procedure TPSCustomField.SetLookupDefaultValue(AIndex: Integer; const AValue: TGUIDString);
  45199. begin
  45200. If (FLookupDefaultValue=AValue) then exit;
  45201. FLookupDefaultValue:=AValue;
  45202. MarkPropertyChanged(AIndex);
  45203. end;
  45204. Procedure TPSCustomField.SetLookupTableId(AIndex: Integer; const AValue: TGUIDString);
  45205. begin
  45206. If (FLookupTableId=AValue) then exit;
  45207. FLookupTableId:=AValue;
  45208. MarkPropertyChanged(AIndex);
  45209. end;
  45210. Procedure TPSCustomField.SetName(AIndex: Integer; const AValue: string);
  45211. begin
  45212. If (FName=AValue) then exit;
  45213. FName:=AValue;
  45214. MarkPropertyChanged(AIndex);
  45215. end;
  45216. Procedure TPSCustomField.SetRollsDownToAssignments(AIndex: Integer; const AValue: boolean);
  45217. begin
  45218. If (FRollsDownToAssignments=AValue) then exit;
  45219. FRollsDownToAssignments:=AValue;
  45220. MarkPropertyChanged(AIndex);
  45221. end;
  45222. Procedure TPSCustomField.SetRollupType(AIndex: Integer; const AValue: TInt32);
  45223. begin
  45224. If (FRollupType=AValue) then exit;
  45225. FRollupType:=AValue;
  45226. MarkPropertyChanged(AIndex);
  45227. end;
  45228. Function TPSCustomField.KeyAsURLPart : string;
  45229. begin
  45230. Result:=TODataObject.MakeKeyString(Id);
  45231. end;
  45232. Function TPSCustomField.EntityType(AService: TODataService) : TPSEntityType;
  45233. begin
  45234. Result:=TPSEntityType(GetContainedSingleTon(AService,'EntityType', TPSEntityType));
  45235. end;
  45236. Function TPSCustomField.LookupEntries(AService: TODataService) : TPSLookupEntry;
  45237. begin
  45238. Result:=TPSLookupEntry(GetContainedSingleTon(AService,'LookupEntries', TPSLookupEntry));
  45239. end;
  45240. Function TPSCustomField.LookupTable(AService: TODataService) : TPSLookupTable;
  45241. begin
  45242. Result:=TPSLookupTable(GetContainedSingleTon(AService,'LookupTable', TPSLookupTable));
  45243. end;
  45244. { --------------------------------------------------------------------
  45245. TPSLookupEntry
  45246. --------------------------------------------------------------------}
  45247. Class Function TPSLookupEntry.ObjectRestKind : String;
  45248. begin
  45249. Result:='LookupEntry';
  45250. end;
  45251. Procedure TPSLookupEntry.SetAppAlternateId(AIndex: Integer; const AValue: TGUIDString);
  45252. begin
  45253. If (FAppAlternateId=AValue) then exit;
  45254. FAppAlternateId:=AValue;
  45255. MarkPropertyChanged(AIndex);
  45256. end;
  45257. Procedure TPSLookupEntry.SetDescription(AIndex: Integer; const AValue: string);
  45258. begin
  45259. If (FDescription=AValue) then exit;
  45260. FDescription:=AValue;
  45261. MarkPropertyChanged(AIndex);
  45262. end;
  45263. Procedure TPSLookupEntry.SetFullValue(AIndex: Integer; const AValue: string);
  45264. begin
  45265. If (FFullValue=AValue) then exit;
  45266. FFullValue:=AValue;
  45267. MarkPropertyChanged(AIndex);
  45268. end;
  45269. Procedure TPSLookupEntry.SetId(AIndex: Integer; const AValue: TGUIDString);
  45270. begin
  45271. If (FId=AValue) then exit;
  45272. FId:=AValue;
  45273. MarkPropertyChanged(AIndex);
  45274. end;
  45275. Procedure TPSLookupEntry.SetInternalName(AIndex: Integer; const AValue: string);
  45276. begin
  45277. If (FInternalName=AValue) then exit;
  45278. FInternalName:=AValue;
  45279. MarkPropertyChanged(AIndex);
  45280. end;
  45281. Procedure TPSLookupEntry.SetSortIndex(AIndex: Integer; const AValue: double);
  45282. begin
  45283. If (FSortIndex=AValue) then exit;
  45284. FSortIndex:=AValue;
  45285. MarkPropertyChanged(AIndex);
  45286. end;
  45287. Function TPSLookupEntry.KeyAsURLPart : string;
  45288. begin
  45289. Result:=TODataObject.MakeKeyString(Id);
  45290. end;
  45291. { --------------------------------------------------------------------
  45292. TPSLookupTable
  45293. --------------------------------------------------------------------}
  45294. Class Function TPSLookupTable.ObjectRestKind : String;
  45295. begin
  45296. Result:='LookupTable';
  45297. end;
  45298. Procedure TPSLookupTable.SetAppAlternateId(AIndex: Integer; const AValue: TGUIDString);
  45299. begin
  45300. If (FAppAlternateId=AValue) then exit;
  45301. FAppAlternateId:=AValue;
  45302. MarkPropertyChanged(AIndex);
  45303. end;
  45304. Procedure TPSLookupTable.SetFieldType(AIndex: Integer; const AValue: TInt32);
  45305. begin
  45306. If (FFieldType=AValue) then exit;
  45307. FFieldType:=AValue;
  45308. MarkPropertyChanged(AIndex);
  45309. end;
  45310. Procedure TPSLookupTable.SetId(AIndex: Integer; const AValue: TGUIDString);
  45311. begin
  45312. If (FId=AValue) then exit;
  45313. FId:=AValue;
  45314. MarkPropertyChanged(AIndex);
  45315. end;
  45316. Procedure TPSLookupTable.SetMasks(AIndex: Integer; const AValue: TPSLookupMaskArray);
  45317. begin
  45318. If (FMasks=AValue) then exit;
  45319. FMasks:=AValue;
  45320. MarkPropertyChanged(AIndex);
  45321. end;
  45322. Procedure TPSLookupTable.SetName(AIndex: Integer; const AValue: string);
  45323. begin
  45324. If (FName=AValue) then exit;
  45325. FName:=AValue;
  45326. MarkPropertyChanged(AIndex);
  45327. end;
  45328. Procedure TPSLookupTable.SetSortOrder(AIndex: Integer; const AValue: TInt32);
  45329. begin
  45330. If (FSortOrder=AValue) then exit;
  45331. FSortOrder:=AValue;
  45332. MarkPropertyChanged(AIndex);
  45333. end;
  45334. {$IFDEF VER2_6}
  45335. Procedure TPSLookupTable.SetArrayLength(const AName: String; ALength: Longint);
  45336. begin
  45337. Case aName of
  45338. 'masks' : SetLength(FMasks,aLength);
  45339. else
  45340. inherited SetArrayLength(aName,ALength);
  45341. end;
  45342. end;
  45343. {$ENDIF VER2_6}
  45344. Function TPSLookupTable.KeyAsURLPart : string;
  45345. begin
  45346. Result:=TODataObject.MakeKeyString(Id);
  45347. end;
  45348. Function TPSLookupTable.Entries(AService: TODataService) : TPSLookupEntry;
  45349. begin
  45350. Result:=TPSLookupEntry(GetContainedSingleTon(AService,'Entries', TPSLookupEntry));
  45351. end;
  45352. { --------------------------------------------------------------------
  45353. TPSCalendarException
  45354. --------------------------------------------------------------------}
  45355. Class Function TPSCalendarException.ObjectRestKind : String;
  45356. begin
  45357. Result:='CalendarException';
  45358. end;
  45359. Procedure TPSCalendarException.SetFinish(AIndex: Integer; const AValue: TDateTime);
  45360. begin
  45361. If (FFinish=AValue) then exit;
  45362. FFinish:=AValue;
  45363. MarkPropertyChanged(AIndex);
  45364. end;
  45365. Procedure TPSCalendarException.SetId(AIndex: Integer; const AValue: TInt32);
  45366. begin
  45367. If (FId=AValue) then exit;
  45368. FId:=AValue;
  45369. MarkPropertyChanged(AIndex);
  45370. end;
  45371. Procedure TPSCalendarException.SetName(AIndex: Integer; const AValue: string);
  45372. begin
  45373. If (FName=AValue) then exit;
  45374. FName:=AValue;
  45375. MarkPropertyChanged(AIndex);
  45376. end;
  45377. Procedure TPSCalendarException.SetRecurrenceDays(AIndex: Integer; const AValue: TInt32);
  45378. begin
  45379. If (FRecurrenceDays=AValue) then exit;
  45380. FRecurrenceDays:=AValue;
  45381. MarkPropertyChanged(AIndex);
  45382. end;
  45383. Procedure TPSCalendarException.SetRecurrenceFrequency(AIndex: Integer; const AValue: TInt32);
  45384. begin
  45385. If (FRecurrenceFrequency=AValue) then exit;
  45386. FRecurrenceFrequency:=AValue;
  45387. MarkPropertyChanged(AIndex);
  45388. end;
  45389. Procedure TPSCalendarException.SetRecurrenceMonth(AIndex: Integer; const AValue: TInt32);
  45390. begin
  45391. If (FRecurrenceMonth=AValue) then exit;
  45392. FRecurrenceMonth:=AValue;
  45393. MarkPropertyChanged(AIndex);
  45394. end;
  45395. Procedure TPSCalendarException.SetRecurrenceMonthDay(AIndex: Integer; const AValue: TInt32);
  45396. begin
  45397. If (FRecurrenceMonthDay=AValue) then exit;
  45398. FRecurrenceMonthDay:=AValue;
  45399. MarkPropertyChanged(AIndex);
  45400. end;
  45401. Procedure TPSCalendarException.SetRecurrenceType(AIndex: Integer; const AValue: TInt32);
  45402. begin
  45403. If (FRecurrenceType=AValue) then exit;
  45404. FRecurrenceType:=AValue;
  45405. MarkPropertyChanged(AIndex);
  45406. end;
  45407. Procedure TPSCalendarException.SetRecurrenceWeek(AIndex: Integer; const AValue: TInt32);
  45408. begin
  45409. If (FRecurrenceWeek=AValue) then exit;
  45410. FRecurrenceWeek:=AValue;
  45411. MarkPropertyChanged(AIndex);
  45412. end;
  45413. Procedure TPSCalendarException.SetShift1Finish(AIndex: Integer; const AValue: TInt32);
  45414. begin
  45415. If (FShift1Finish=AValue) then exit;
  45416. FShift1Finish:=AValue;
  45417. MarkPropertyChanged(AIndex);
  45418. end;
  45419. Procedure TPSCalendarException.SetShift1Start(AIndex: Integer; const AValue: TInt32);
  45420. begin
  45421. If (FShift1Start=AValue) then exit;
  45422. FShift1Start:=AValue;
  45423. MarkPropertyChanged(AIndex);
  45424. end;
  45425. Procedure TPSCalendarException.SetShift2Finish(AIndex: Integer; const AValue: TInt32);
  45426. begin
  45427. If (FShift2Finish=AValue) then exit;
  45428. FShift2Finish:=AValue;
  45429. MarkPropertyChanged(AIndex);
  45430. end;
  45431. Procedure TPSCalendarException.SetShift2Start(AIndex: Integer; const AValue: TInt32);
  45432. begin
  45433. If (FShift2Start=AValue) then exit;
  45434. FShift2Start:=AValue;
  45435. MarkPropertyChanged(AIndex);
  45436. end;
  45437. Procedure TPSCalendarException.SetShift3Finish(AIndex: Integer; const AValue: TInt32);
  45438. begin
  45439. If (FShift3Finish=AValue) then exit;
  45440. FShift3Finish:=AValue;
  45441. MarkPropertyChanged(AIndex);
  45442. end;
  45443. Procedure TPSCalendarException.SetShift3Start(AIndex: Integer; const AValue: TInt32);
  45444. begin
  45445. If (FShift3Start=AValue) then exit;
  45446. FShift3Start:=AValue;
  45447. MarkPropertyChanged(AIndex);
  45448. end;
  45449. Procedure TPSCalendarException.SetShift4Finish(AIndex: Integer; const AValue: TInt32);
  45450. begin
  45451. If (FShift4Finish=AValue) then exit;
  45452. FShift4Finish:=AValue;
  45453. MarkPropertyChanged(AIndex);
  45454. end;
  45455. Procedure TPSCalendarException.SetShift4Start(AIndex: Integer; const AValue: TInt32);
  45456. begin
  45457. If (FShift4Start=AValue) then exit;
  45458. FShift4Start:=AValue;
  45459. MarkPropertyChanged(AIndex);
  45460. end;
  45461. Procedure TPSCalendarException.SetShift5Finish(AIndex: Integer; const AValue: TInt32);
  45462. begin
  45463. If (FShift5Finish=AValue) then exit;
  45464. FShift5Finish:=AValue;
  45465. MarkPropertyChanged(AIndex);
  45466. end;
  45467. Procedure TPSCalendarException.SetShift5Start(AIndex: Integer; const AValue: TInt32);
  45468. begin
  45469. If (FShift5Start=AValue) then exit;
  45470. FShift5Start:=AValue;
  45471. MarkPropertyChanged(AIndex);
  45472. end;
  45473. Procedure TPSCalendarException.SetStart(AIndex: Integer; const AValue: TDateTime);
  45474. begin
  45475. If (FStart=AValue) then exit;
  45476. FStart:=AValue;
  45477. MarkPropertyChanged(AIndex);
  45478. end;
  45479. Function TPSCalendarException.KeyAsURLPart : string;
  45480. begin
  45481. Result:=IntToStr(Id);
  45482. end;
  45483. Function TPSCalendarException.Calendar(AService: TODataService) : TPSCalendar;
  45484. begin
  45485. Result:=TPSCalendar(GetContainedSingleTon(AService,'Calendar', TPSCalendar));
  45486. end;
  45487. { --------------------------------------------------------------------
  45488. TPSCalendar
  45489. --------------------------------------------------------------------}
  45490. Class Function TPSCalendar.ObjectRestKind : String;
  45491. begin
  45492. Result:='Calendar';
  45493. end;
  45494. Procedure TPSCalendar.SetCreated(AIndex: Integer; const AValue: TDateTime);
  45495. begin
  45496. If (FCreated=AValue) then exit;
  45497. FCreated:=AValue;
  45498. MarkPropertyChanged(AIndex);
  45499. end;
  45500. Procedure TPSCalendar.SetId(AIndex: Integer; const AValue: TGUIDString);
  45501. begin
  45502. If (FId=AValue) then exit;
  45503. FId:=AValue;
  45504. MarkPropertyChanged(AIndex);
  45505. end;
  45506. Procedure TPSCalendar.SetIsStandardCalendar(AIndex: Integer; const AValue: boolean);
  45507. begin
  45508. If (FIsStandardCalendar=AValue) then exit;
  45509. FIsStandardCalendar:=AValue;
  45510. MarkPropertyChanged(AIndex);
  45511. end;
  45512. Procedure TPSCalendar.SetModified(AIndex: Integer; const AValue: TDateTime);
  45513. begin
  45514. If (FModified=AValue) then exit;
  45515. FModified:=AValue;
  45516. MarkPropertyChanged(AIndex);
  45517. end;
  45518. Procedure TPSCalendar.SetName(AIndex: Integer; const AValue: string);
  45519. begin
  45520. If (FName=AValue) then exit;
  45521. FName:=AValue;
  45522. MarkPropertyChanged(AIndex);
  45523. end;
  45524. Procedure TPSCalendar.SetOriginalId(AIndex: Integer; const AValue: TGUIDString);
  45525. begin
  45526. If (FOriginalId=AValue) then exit;
  45527. FOriginalId:=AValue;
  45528. MarkPropertyChanged(AIndex);
  45529. end;
  45530. Function TPSCalendar.KeyAsURLPart : string;
  45531. begin
  45532. Result:=TODataObject.MakeKeyString(Id);
  45533. end;
  45534. Function TPSCalendar.BaseCalendarExceptions(AService: TODataService) : TPSCalendarException;
  45535. begin
  45536. Result:=TPSCalendarException(GetContainedSingleTon(AService,'BaseCalendarExceptions', TPSCalendarException));
  45537. end;
  45538. { --------------------------------------------------------------------
  45539. TPSBaseCalendarException
  45540. --------------------------------------------------------------------}
  45541. Class Function TPSBaseCalendarException.ObjectRestKind : String;
  45542. begin
  45543. Result:='BaseCalendarException';
  45544. end;
  45545. { --------------------------------------------------------------------
  45546. TPSDraftAssignment
  45547. --------------------------------------------------------------------}
  45548. Class Function TPSDraftAssignment.ObjectRestKind : String;
  45549. begin
  45550. Result:='DraftAssignment';
  45551. end;
  45552. Procedure TPSDraftAssignment.SetActualCost(AIndex: Integer; const AValue: Double);
  45553. begin
  45554. If (FActualCost=AValue) then exit;
  45555. FActualCost:=AValue;
  45556. MarkPropertyChanged(AIndex);
  45557. end;
  45558. Procedure TPSDraftAssignment.SetActualFinish(AIndex: Integer; const AValue: TDateTime);
  45559. begin
  45560. If (FActualFinish=AValue) then exit;
  45561. FActualFinish:=AValue;
  45562. MarkPropertyChanged(AIndex);
  45563. end;
  45564. Procedure TPSDraftAssignment.SetActualOvertimeWork(AIndex: Integer; const AValue: string);
  45565. begin
  45566. If (FActualOvertimeWork=AValue) then exit;
  45567. FActualOvertimeWork:=AValue;
  45568. MarkPropertyChanged(AIndex);
  45569. end;
  45570. Procedure TPSDraftAssignment.SetActualOvertimeWorkMilliseconds(AIndex: Integer; const AValue: TInt32);
  45571. begin
  45572. If (FActualOvertimeWorkMilliseconds=AValue) then exit;
  45573. FActualOvertimeWorkMilliseconds:=AValue;
  45574. MarkPropertyChanged(AIndex);
  45575. end;
  45576. Procedure TPSDraftAssignment.SetActualOvertimeWorkTimeSpan(AIndex: Integer; const AValue: TTime);
  45577. begin
  45578. If (FActualOvertimeWorkTimeSpan=AValue) then exit;
  45579. FActualOvertimeWorkTimeSpan:=AValue;
  45580. MarkPropertyChanged(AIndex);
  45581. end;
  45582. Procedure TPSDraftAssignment.SetActualStart(AIndex: Integer; const AValue: TDateTime);
  45583. begin
  45584. If (FActualStart=AValue) then exit;
  45585. FActualStart:=AValue;
  45586. MarkPropertyChanged(AIndex);
  45587. end;
  45588. Procedure TPSDraftAssignment.SetActualWork(AIndex: Integer; const AValue: string);
  45589. begin
  45590. If (FActualWork=AValue) then exit;
  45591. FActualWork:=AValue;
  45592. MarkPropertyChanged(AIndex);
  45593. end;
  45594. Procedure TPSDraftAssignment.SetActualWorkMilliseconds(AIndex: Integer; const AValue: TInt32);
  45595. begin
  45596. If (FActualWorkMilliseconds=AValue) then exit;
  45597. FActualWorkMilliseconds:=AValue;
  45598. MarkPropertyChanged(AIndex);
  45599. end;
  45600. Procedure TPSDraftAssignment.SetActualWorkTimeSpan(AIndex: Integer; const AValue: TTime);
  45601. begin
  45602. If (FActualWorkTimeSpan=AValue) then exit;
  45603. FActualWorkTimeSpan:=AValue;
  45604. MarkPropertyChanged(AIndex);
  45605. end;
  45606. Procedure TPSDraftAssignment.SetBudgetedCost(AIndex: Integer; const AValue: Double);
  45607. begin
  45608. If (FBudgetedCost=AValue) then exit;
  45609. FBudgetedCost:=AValue;
  45610. MarkPropertyChanged(AIndex);
  45611. end;
  45612. Procedure TPSDraftAssignment.SetBudgetedWork(AIndex: Integer; const AValue: string);
  45613. begin
  45614. If (FBudgetedWork=AValue) then exit;
  45615. FBudgetedWork:=AValue;
  45616. MarkPropertyChanged(AIndex);
  45617. end;
  45618. Procedure TPSDraftAssignment.SetBudgetedWorkMilliseconds(AIndex: Integer; const AValue: TInt32);
  45619. begin
  45620. If (FBudgetedWorkMilliseconds=AValue) then exit;
  45621. FBudgetedWorkMilliseconds:=AValue;
  45622. MarkPropertyChanged(AIndex);
  45623. end;
  45624. Procedure TPSDraftAssignment.SetBudgetedWorkTimeSpan(AIndex: Integer; const AValue: TTime);
  45625. begin
  45626. If (FBudgetedWorkTimeSpan=AValue) then exit;
  45627. FBudgetedWorkTimeSpan:=AValue;
  45628. MarkPropertyChanged(AIndex);
  45629. end;
  45630. Procedure TPSDraftAssignment.SetCost(AIndex: Integer; const AValue: Double);
  45631. begin
  45632. If (FCost=AValue) then exit;
  45633. FCost:=AValue;
  45634. MarkPropertyChanged(AIndex);
  45635. end;
  45636. Procedure TPSDraftAssignment.SetDefaultBookingType(AIndex: Integer; const AValue: TInt32);
  45637. begin
  45638. If (FDefaultBookingType=AValue) then exit;
  45639. FDefaultBookingType:=AValue;
  45640. MarkPropertyChanged(AIndex);
  45641. end;
  45642. Procedure TPSDraftAssignment.SetDelay(AIndex: Integer; const AValue: string);
  45643. begin
  45644. If (FDelay=AValue) then exit;
  45645. FDelay:=AValue;
  45646. MarkPropertyChanged(AIndex);
  45647. end;
  45648. Procedure TPSDraftAssignment.SetDelayMilliseconds(AIndex: Integer; const AValue: TInt32);
  45649. begin
  45650. If (FDelayMilliseconds=AValue) then exit;
  45651. FDelayMilliseconds:=AValue;
  45652. MarkPropertyChanged(AIndex);
  45653. end;
  45654. Procedure TPSDraftAssignment.SetDelayTimeSpan(AIndex: Integer; const AValue: TTime);
  45655. begin
  45656. If (FDelayTimeSpan=AValue) then exit;
  45657. FDelayTimeSpan:=AValue;
  45658. MarkPropertyChanged(AIndex);
  45659. end;
  45660. Procedure TPSDraftAssignment.SetFinish(AIndex: Integer; const AValue: TDateTime);
  45661. begin
  45662. If (FFinish=AValue) then exit;
  45663. FFinish:=AValue;
  45664. MarkPropertyChanged(AIndex);
  45665. end;
  45666. Procedure TPSDraftAssignment.SetIsLockedByManager(AIndex: Integer; const AValue: boolean);
  45667. begin
  45668. If (FIsLockedByManager=AValue) then exit;
  45669. FIsLockedByManager:=AValue;
  45670. MarkPropertyChanged(AIndex);
  45671. end;
  45672. Procedure TPSDraftAssignment.SetIsWorkResource(AIndex: Integer; const AValue: boolean);
  45673. begin
  45674. If (FIsWorkResource=AValue) then exit;
  45675. FIsWorkResource:=AValue;
  45676. MarkPropertyChanged(AIndex);
  45677. end;
  45678. Procedure TPSDraftAssignment.SetNotes(AIndex: Integer; const AValue: string);
  45679. begin
  45680. If (FNotes=AValue) then exit;
  45681. FNotes:=AValue;
  45682. MarkPropertyChanged(AIndex);
  45683. end;
  45684. Procedure TPSDraftAssignment.SetOvertimeWork(AIndex: Integer; const AValue: string);
  45685. begin
  45686. If (FOvertimeWork=AValue) then exit;
  45687. FOvertimeWork:=AValue;
  45688. MarkPropertyChanged(AIndex);
  45689. end;
  45690. Procedure TPSDraftAssignment.SetOvertimeWorkMilliseconds(AIndex: Integer; const AValue: TInt32);
  45691. begin
  45692. If (FOvertimeWorkMilliseconds=AValue) then exit;
  45693. FOvertimeWorkMilliseconds:=AValue;
  45694. MarkPropertyChanged(AIndex);
  45695. end;
  45696. Procedure TPSDraftAssignment.SetOvertimeWorkTimeSpan(AIndex: Integer; const AValue: TTime);
  45697. begin
  45698. If (FOvertimeWorkTimeSpan=AValue) then exit;
  45699. FOvertimeWorkTimeSpan:=AValue;
  45700. MarkPropertyChanged(AIndex);
  45701. end;
  45702. Procedure TPSDraftAssignment.SetPercentWorkComplete(AIndex: Integer; const AValue: TInt32);
  45703. begin
  45704. If (FPercentWorkComplete=AValue) then exit;
  45705. FPercentWorkComplete:=AValue;
  45706. MarkPropertyChanged(AIndex);
  45707. end;
  45708. Procedure TPSDraftAssignment.SetRegularWork(AIndex: Integer; const AValue: string);
  45709. begin
  45710. If (FRegularWork=AValue) then exit;
  45711. FRegularWork:=AValue;
  45712. MarkPropertyChanged(AIndex);
  45713. end;
  45714. Procedure TPSDraftAssignment.SetRegularWorkMilliseconds(AIndex: Integer; const AValue: TInt32);
  45715. begin
  45716. If (FRegularWorkMilliseconds=AValue) then exit;
  45717. FRegularWorkMilliseconds:=AValue;
  45718. MarkPropertyChanged(AIndex);
  45719. end;
  45720. Procedure TPSDraftAssignment.SetRegularWorkTimeSpan(AIndex: Integer; const AValue: TTime);
  45721. begin
  45722. If (FRegularWorkTimeSpan=AValue) then exit;
  45723. FRegularWorkTimeSpan:=AValue;
  45724. MarkPropertyChanged(AIndex);
  45725. end;
  45726. Procedure TPSDraftAssignment.SetRemainingOvertimeWork(AIndex: Integer; const AValue: string);
  45727. begin
  45728. If (FRemainingOvertimeWork=AValue) then exit;
  45729. FRemainingOvertimeWork:=AValue;
  45730. MarkPropertyChanged(AIndex);
  45731. end;
  45732. Procedure TPSDraftAssignment.SetRemainingOvertimeWorkMilliseconds(AIndex: Integer; const AValue: TInt32);
  45733. begin
  45734. If (FRemainingOvertimeWorkMilliseconds=AValue) then exit;
  45735. FRemainingOvertimeWorkMilliseconds:=AValue;
  45736. MarkPropertyChanged(AIndex);
  45737. end;
  45738. Procedure TPSDraftAssignment.SetRemainingOvertimeWorkTimeSpan(AIndex: Integer; const AValue: TTime);
  45739. begin
  45740. If (FRemainingOvertimeWorkTimeSpan=AValue) then exit;
  45741. FRemainingOvertimeWorkTimeSpan:=AValue;
  45742. MarkPropertyChanged(AIndex);
  45743. end;
  45744. Procedure TPSDraftAssignment.SetRemainingWork(AIndex: Integer; const AValue: string);
  45745. begin
  45746. If (FRemainingWork=AValue) then exit;
  45747. FRemainingWork:=AValue;
  45748. MarkPropertyChanged(AIndex);
  45749. end;
  45750. Procedure TPSDraftAssignment.SetRemainingWorkMilliseconds(AIndex: Integer; const AValue: TInt32);
  45751. begin
  45752. If (FRemainingWorkMilliseconds=AValue) then exit;
  45753. FRemainingWorkMilliseconds:=AValue;
  45754. MarkPropertyChanged(AIndex);
  45755. end;
  45756. Procedure TPSDraftAssignment.SetRemainingWorkTimeSpan(AIndex: Integer; const AValue: TTime);
  45757. begin
  45758. If (FRemainingWorkTimeSpan=AValue) then exit;
  45759. FRemainingWorkTimeSpan:=AValue;
  45760. MarkPropertyChanged(AIndex);
  45761. end;
  45762. Procedure TPSDraftAssignment.SetResourceCapacity(AIndex: Integer; const AValue: Double);
  45763. begin
  45764. If (FResourceCapacity=AValue) then exit;
  45765. FResourceCapacity:=AValue;
  45766. MarkPropertyChanged(AIndex);
  45767. end;
  45768. Procedure TPSDraftAssignment.SetResourceId(AIndex: Integer; const AValue: TGUIDString);
  45769. begin
  45770. If (FResourceId=AValue) then exit;
  45771. FResourceId:=AValue;
  45772. MarkPropertyChanged(AIndex);
  45773. end;
  45774. Procedure TPSDraftAssignment.SetTaskId(AIndex: Integer; const AValue: TGUIDString);
  45775. begin
  45776. If (FTaskId=AValue) then exit;
  45777. FTaskId:=AValue;
  45778. MarkPropertyChanged(AIndex);
  45779. end;
  45780. Procedure TPSDraftAssignment.SetWork(AIndex: Integer; const AValue: string);
  45781. begin
  45782. If (FWork=AValue) then exit;
  45783. FWork:=AValue;
  45784. MarkPropertyChanged(AIndex);
  45785. end;
  45786. Procedure TPSDraftAssignment.SetWorkMilliseconds(AIndex: Integer; const AValue: TInt32);
  45787. begin
  45788. If (FWorkMilliseconds=AValue) then exit;
  45789. FWorkMilliseconds:=AValue;
  45790. MarkPropertyChanged(AIndex);
  45791. end;
  45792. Procedure TPSDraftAssignment.SetWorkTimeSpan(AIndex: Integer; const AValue: TTime);
  45793. begin
  45794. If (FWorkTimeSpan=AValue) then exit;
  45795. FWorkTimeSpan:=AValue;
  45796. MarkPropertyChanged(AIndex);
  45797. end;
  45798. Function TPSDraftAssignment.Owner(AService: TODataService) : TSPUser;
  45799. begin
  45800. Result:=TSPUser(GetContainedSingleTon(AService,'Owner', TSPUser));
  45801. end;
  45802. Function TPSDraftAssignment.Parent(AService: TODataService) : TPSDraftAssignment;
  45803. begin
  45804. Result:=TPSDraftAssignment(GetContainedSingleTon(AService,'Parent', TPSDraftAssignment));
  45805. end;
  45806. Function TPSDraftAssignment.Resource(AService: TODataService) : TPSDraftProjectResource;
  45807. begin
  45808. Result:=TPSDraftProjectResource(GetContainedSingleTon(AService,'Resource', TPSDraftProjectResource));
  45809. end;
  45810. Function TPSDraftAssignment.Task(AService: TODataService) : TPSDraftTask;
  45811. begin
  45812. Result:=TPSDraftTask(GetContainedSingleTon(AService,'Task', TPSDraftTask));
  45813. end;
  45814. { --------------------------------------------------------------------
  45815. TPSProjectResource
  45816. --------------------------------------------------------------------}
  45817. Class Function TPSProjectResource.ObjectRestKind : String;
  45818. begin
  45819. Result:='ProjectResource';
  45820. end;
  45821. Procedure TPSProjectResource.SetActualCost(AIndex: Integer; const AValue: Double);
  45822. begin
  45823. If (FActualCost=AValue) then exit;
  45824. FActualCost:=AValue;
  45825. MarkPropertyChanged(AIndex);
  45826. end;
  45827. Procedure TPSProjectResource.SetActualCostWorkPerformed(AIndex: Integer; const AValue: string);
  45828. begin
  45829. If (FActualCostWorkPerformed=AValue) then exit;
  45830. FActualCostWorkPerformed:=AValue;
  45831. MarkPropertyChanged(AIndex);
  45832. end;
  45833. Procedure TPSProjectResource.SetActualCostWorkPerformedMilliseconds(AIndex: Integer; const AValue: TInt32);
  45834. begin
  45835. If (FActualCostWorkPerformedMilliseconds=AValue) then exit;
  45836. FActualCostWorkPerformedMilliseconds:=AValue;
  45837. MarkPropertyChanged(AIndex);
  45838. end;
  45839. Procedure TPSProjectResource.SetActualCostWorkPerformedTimeSpan(AIndex: Integer; const AValue: TTime);
  45840. begin
  45841. If (FActualCostWorkPerformedTimeSpan=AValue) then exit;
  45842. FActualCostWorkPerformedTimeSpan:=AValue;
  45843. MarkPropertyChanged(AIndex);
  45844. end;
  45845. Procedure TPSProjectResource.SetActualOvertimeCost(AIndex: Integer; const AValue: Double);
  45846. begin
  45847. If (FActualOvertimeCost=AValue) then exit;
  45848. FActualOvertimeCost:=AValue;
  45849. MarkPropertyChanged(AIndex);
  45850. end;
  45851. Procedure TPSProjectResource.SetActualOvertimeWork(AIndex: Integer; const AValue: string);
  45852. begin
  45853. If (FActualOvertimeWork=AValue) then exit;
  45854. FActualOvertimeWork:=AValue;
  45855. MarkPropertyChanged(AIndex);
  45856. end;
  45857. Procedure TPSProjectResource.SetActualOvertimeWorkMilliseconds(AIndex: Integer; const AValue: TInt32);
  45858. begin
  45859. If (FActualOvertimeWorkMilliseconds=AValue) then exit;
  45860. FActualOvertimeWorkMilliseconds:=AValue;
  45861. MarkPropertyChanged(AIndex);
  45862. end;
  45863. Procedure TPSProjectResource.SetActualOvertimeWorkTimeSpan(AIndex: Integer; const AValue: TTime);
  45864. begin
  45865. If (FActualOvertimeWorkTimeSpan=AValue) then exit;
  45866. FActualOvertimeWorkTimeSpan:=AValue;
  45867. MarkPropertyChanged(AIndex);
  45868. end;
  45869. Procedure TPSProjectResource.SetActualWork(AIndex: Integer; const AValue: string);
  45870. begin
  45871. If (FActualWork=AValue) then exit;
  45872. FActualWork:=AValue;
  45873. MarkPropertyChanged(AIndex);
  45874. end;
  45875. Procedure TPSProjectResource.SetActualWorkMilliseconds(AIndex: Integer; const AValue: TInt32);
  45876. begin
  45877. If (FActualWorkMilliseconds=AValue) then exit;
  45878. FActualWorkMilliseconds:=AValue;
  45879. MarkPropertyChanged(AIndex);
  45880. end;
  45881. Procedure TPSProjectResource.SetActualWorkTimeSpan(AIndex: Integer; const AValue: TTime);
  45882. begin
  45883. If (FActualWorkTimeSpan=AValue) then exit;
  45884. FActualWorkTimeSpan:=AValue;
  45885. MarkPropertyChanged(AIndex);
  45886. end;
  45887. Procedure TPSProjectResource.SetAvailableFrom(AIndex: Integer; const AValue: TDateTime);
  45888. begin
  45889. If (FAvailableFrom=AValue) then exit;
  45890. FAvailableFrom:=AValue;
  45891. MarkPropertyChanged(AIndex);
  45892. end;
  45893. Procedure TPSProjectResource.SetAvailableTo(AIndex: Integer; const AValue: TDateTime);
  45894. begin
  45895. If (FAvailableTo=AValue) then exit;
  45896. FAvailableTo:=AValue;
  45897. MarkPropertyChanged(AIndex);
  45898. end;
  45899. Procedure TPSProjectResource.SetBaselineCost(AIndex: Integer; const AValue: Double);
  45900. begin
  45901. If (FBaselineCost=AValue) then exit;
  45902. FBaselineCost:=AValue;
  45903. MarkPropertyChanged(AIndex);
  45904. end;
  45905. Procedure TPSProjectResource.SetBaselineWork(AIndex: Integer; const AValue: string);
  45906. begin
  45907. If (FBaselineWork=AValue) then exit;
  45908. FBaselineWork:=AValue;
  45909. MarkPropertyChanged(AIndex);
  45910. end;
  45911. Procedure TPSProjectResource.SetBaselineWorkMilliseconds(AIndex: Integer; const AValue: TInt32);
  45912. begin
  45913. If (FBaselineWorkMilliseconds=AValue) then exit;
  45914. FBaselineWorkMilliseconds:=AValue;
  45915. MarkPropertyChanged(AIndex);
  45916. end;
  45917. Procedure TPSProjectResource.SetBaselineWorkTimeSpan(AIndex: Integer; const AValue: TTime);
  45918. begin
  45919. If (FBaselineWorkTimeSpan=AValue) then exit;
  45920. FBaselineWorkTimeSpan:=AValue;
  45921. MarkPropertyChanged(AIndex);
  45922. end;
  45923. Procedure TPSProjectResource.SetBudetCostWorkPerformed(AIndex: Integer; const AValue: Double);
  45924. begin
  45925. If (FBudetCostWorkPerformed=AValue) then exit;
  45926. FBudetCostWorkPerformed:=AValue;
  45927. MarkPropertyChanged(AIndex);
  45928. end;
  45929. Procedure TPSProjectResource.SetBudgetedCost(AIndex: Integer; const AValue: Double);
  45930. begin
  45931. If (FBudgetedCost=AValue) then exit;
  45932. FBudgetedCost:=AValue;
  45933. MarkPropertyChanged(AIndex);
  45934. end;
  45935. Procedure TPSProjectResource.SetBudgetedCostWorkScheduled(AIndex: Integer; const AValue: Double);
  45936. begin
  45937. If (FBudgetedCostWorkScheduled=AValue) then exit;
  45938. FBudgetedCostWorkScheduled:=AValue;
  45939. MarkPropertyChanged(AIndex);
  45940. end;
  45941. Procedure TPSProjectResource.SetBudgetedWork(AIndex: Integer; const AValue: string);
  45942. begin
  45943. If (FBudgetedWork=AValue) then exit;
  45944. FBudgetedWork:=AValue;
  45945. MarkPropertyChanged(AIndex);
  45946. end;
  45947. Procedure TPSProjectResource.SetBudgetedWorkMilliseconds(AIndex: Integer; const AValue: TInt32);
  45948. begin
  45949. If (FBudgetedWorkMilliseconds=AValue) then exit;
  45950. FBudgetedWorkMilliseconds:=AValue;
  45951. MarkPropertyChanged(AIndex);
  45952. end;
  45953. Procedure TPSProjectResource.SetBudgetedWorkTimeSpan(AIndex: Integer; const AValue: TTime);
  45954. begin
  45955. If (FBudgetedWorkTimeSpan=AValue) then exit;
  45956. FBudgetedWorkTimeSpan:=AValue;
  45957. MarkPropertyChanged(AIndex);
  45958. end;
  45959. Procedure TPSProjectResource.SetCost(AIndex: Integer; const AValue: Double);
  45960. begin
  45961. If (FCost=AValue) then exit;
  45962. FCost:=AValue;
  45963. MarkPropertyChanged(AIndex);
  45964. end;
  45965. Procedure TPSProjectResource.SetCostVariance(AIndex: Integer; const AValue: Double);
  45966. begin
  45967. If (FCostVariance=AValue) then exit;
  45968. FCostVariance:=AValue;
  45969. MarkPropertyChanged(AIndex);
  45970. end;
  45971. Procedure TPSProjectResource.SetCostVarianceAtCompletion(AIndex: Integer; const AValue: Double);
  45972. begin
  45973. If (FCostVarianceAtCompletion=AValue) then exit;
  45974. FCostVarianceAtCompletion:=AValue;
  45975. MarkPropertyChanged(AIndex);
  45976. end;
  45977. Procedure TPSProjectResource.SetCreated(AIndex: Integer; const AValue: TDateTime);
  45978. begin
  45979. If (FCreated=AValue) then exit;
  45980. FCreated:=AValue;
  45981. MarkPropertyChanged(AIndex);
  45982. end;
  45983. Procedure TPSProjectResource.SetCurrentCostVariance(AIndex: Integer; const AValue: Double);
  45984. begin
  45985. If (FCurrentCostVariance=AValue) then exit;
  45986. FCurrentCostVariance:=AValue;
  45987. MarkPropertyChanged(AIndex);
  45988. end;
  45989. Procedure TPSProjectResource.SetFinish(AIndex: Integer; const AValue: TDateTime);
  45990. begin
  45991. If (FFinish=AValue) then exit;
  45992. FFinish:=AValue;
  45993. MarkPropertyChanged(AIndex);
  45994. end;
  45995. Procedure TPSProjectResource.SetId(AIndex: Integer; const AValue: TGUIDString);
  45996. begin
  45997. If (FId=AValue) then exit;
  45998. FId:=AValue;
  45999. MarkPropertyChanged(AIndex);
  46000. end;
  46001. Procedure TPSProjectResource.SetIsBudgeted(AIndex: Integer; const AValue: boolean);
  46002. begin
  46003. If (FIsBudgeted=AValue) then exit;
  46004. FIsBudgeted:=AValue;
  46005. MarkPropertyChanged(AIndex);
  46006. end;
  46007. Procedure TPSProjectResource.SetIsGenericResource(AIndex: Integer; const AValue: boolean);
  46008. begin
  46009. If (FIsGenericResource=AValue) then exit;
  46010. FIsGenericResource:=AValue;
  46011. MarkPropertyChanged(AIndex);
  46012. end;
  46013. Procedure TPSProjectResource.SetIsOverAllocated(AIndex: Integer; const AValue: boolean);
  46014. begin
  46015. If (FIsOverAllocated=AValue) then exit;
  46016. FIsOverAllocated:=AValue;
  46017. MarkPropertyChanged(AIndex);
  46018. end;
  46019. Procedure TPSProjectResource.SetModified(AIndex: Integer; const AValue: TDateTime);
  46020. begin
  46021. If (FModified=AValue) then exit;
  46022. FModified:=AValue;
  46023. MarkPropertyChanged(AIndex);
  46024. end;
  46025. Procedure TPSProjectResource.SetNotes(AIndex: Integer; const AValue: string);
  46026. begin
  46027. If (FNotes=AValue) then exit;
  46028. FNotes:=AValue;
  46029. MarkPropertyChanged(AIndex);
  46030. end;
  46031. Procedure TPSProjectResource.SetOvertimeCost(AIndex: Integer; const AValue: Double);
  46032. begin
  46033. If (FOvertimeCost=AValue) then exit;
  46034. FOvertimeCost:=AValue;
  46035. MarkPropertyChanged(AIndex);
  46036. end;
  46037. Procedure TPSProjectResource.SetOvertimeWork(AIndex: Integer; const AValue: string);
  46038. begin
  46039. If (FOvertimeWork=AValue) then exit;
  46040. FOvertimeWork:=AValue;
  46041. MarkPropertyChanged(AIndex);
  46042. end;
  46043. Procedure TPSProjectResource.SetOvertimeWorkMilliseconds(AIndex: Integer; const AValue: TInt32);
  46044. begin
  46045. If (FOvertimeWorkMilliseconds=AValue) then exit;
  46046. FOvertimeWorkMilliseconds:=AValue;
  46047. MarkPropertyChanged(AIndex);
  46048. end;
  46049. Procedure TPSProjectResource.SetOvertimeWorkTimeSpan(AIndex: Integer; const AValue: TTime);
  46050. begin
  46051. If (FOvertimeWorkTimeSpan=AValue) then exit;
  46052. FOvertimeWorkTimeSpan:=AValue;
  46053. MarkPropertyChanged(AIndex);
  46054. end;
  46055. Procedure TPSProjectResource.SetPeakWork(AIndex: Integer; const AValue: string);
  46056. begin
  46057. If (FPeakWork=AValue) then exit;
  46058. FPeakWork:=AValue;
  46059. MarkPropertyChanged(AIndex);
  46060. end;
  46061. Procedure TPSProjectResource.SetPeakWorkMilliseconds(AIndex: Integer; const AValue: TInt32);
  46062. begin
  46063. If (FPeakWorkMilliseconds=AValue) then exit;
  46064. FPeakWorkMilliseconds:=AValue;
  46065. MarkPropertyChanged(AIndex);
  46066. end;
  46067. Procedure TPSProjectResource.SetPeakWorkTimeSpan(AIndex: Integer; const AValue: TTime);
  46068. begin
  46069. If (FPeakWorkTimeSpan=AValue) then exit;
  46070. FPeakWorkTimeSpan:=AValue;
  46071. MarkPropertyChanged(AIndex);
  46072. end;
  46073. Procedure TPSProjectResource.SetPercentWorkComplete(AIndex: Integer; const AValue: TInt32);
  46074. begin
  46075. If (FPercentWorkComplete=AValue) then exit;
  46076. FPercentWorkComplete:=AValue;
  46077. MarkPropertyChanged(AIndex);
  46078. end;
  46079. Procedure TPSProjectResource.SetRegularWork(AIndex: Integer; const AValue: string);
  46080. begin
  46081. If (FRegularWork=AValue) then exit;
  46082. FRegularWork:=AValue;
  46083. MarkPropertyChanged(AIndex);
  46084. end;
  46085. Procedure TPSProjectResource.SetRegularWorkMilliseconds(AIndex: Integer; const AValue: TInt32);
  46086. begin
  46087. If (FRegularWorkMilliseconds=AValue) then exit;
  46088. FRegularWorkMilliseconds:=AValue;
  46089. MarkPropertyChanged(AIndex);
  46090. end;
  46091. Procedure TPSProjectResource.SetRegularWorkTimeSpan(AIndex: Integer; const AValue: TTime);
  46092. begin
  46093. If (FRegularWorkTimeSpan=AValue) then exit;
  46094. FRegularWorkTimeSpan:=AValue;
  46095. MarkPropertyChanged(AIndex);
  46096. end;
  46097. Procedure TPSProjectResource.SetRemainingCost(AIndex: Integer; const AValue: Double);
  46098. begin
  46099. If (FRemainingCost=AValue) then exit;
  46100. FRemainingCost:=AValue;
  46101. MarkPropertyChanged(AIndex);
  46102. end;
  46103. Procedure TPSProjectResource.SetRemainingOvertimeCost(AIndex: Integer; const AValue: Double);
  46104. begin
  46105. If (FRemainingOvertimeCost=AValue) then exit;
  46106. FRemainingOvertimeCost:=AValue;
  46107. MarkPropertyChanged(AIndex);
  46108. end;
  46109. Procedure TPSProjectResource.SetRemainingOvertimeWork(AIndex: Integer; const AValue: string);
  46110. begin
  46111. If (FRemainingOvertimeWork=AValue) then exit;
  46112. FRemainingOvertimeWork:=AValue;
  46113. MarkPropertyChanged(AIndex);
  46114. end;
  46115. Procedure TPSProjectResource.SetRemainingOvertimeWorkMilliseconds(AIndex: Integer; const AValue: TInt32);
  46116. begin
  46117. If (FRemainingOvertimeWorkMilliseconds=AValue) then exit;
  46118. FRemainingOvertimeWorkMilliseconds:=AValue;
  46119. MarkPropertyChanged(AIndex);
  46120. end;
  46121. Procedure TPSProjectResource.SetRemainingOvertimeWorkTimeSpan(AIndex: Integer; const AValue: TTime);
  46122. begin
  46123. If (FRemainingOvertimeWorkTimeSpan=AValue) then exit;
  46124. FRemainingOvertimeWorkTimeSpan:=AValue;
  46125. MarkPropertyChanged(AIndex);
  46126. end;
  46127. Procedure TPSProjectResource.SetRemainingWork(AIndex: Integer; const AValue: string);
  46128. begin
  46129. If (FRemainingWork=AValue) then exit;
  46130. FRemainingWork:=AValue;
  46131. MarkPropertyChanged(AIndex);
  46132. end;
  46133. Procedure TPSProjectResource.SetRemainingWorkMilliseconds(AIndex: Integer; const AValue: TInt32);
  46134. begin
  46135. If (FRemainingWorkMilliseconds=AValue) then exit;
  46136. FRemainingWorkMilliseconds:=AValue;
  46137. MarkPropertyChanged(AIndex);
  46138. end;
  46139. Procedure TPSProjectResource.SetRemainingWorkTimeSpan(AIndex: Integer; const AValue: TTime);
  46140. begin
  46141. If (FRemainingWorkTimeSpan=AValue) then exit;
  46142. FRemainingWorkTimeSpan:=AValue;
  46143. MarkPropertyChanged(AIndex);
  46144. end;
  46145. Procedure TPSProjectResource.SetScheduleCostVariance(AIndex: Integer; const AValue: Double);
  46146. begin
  46147. If (FScheduleCostVariance=AValue) then exit;
  46148. FScheduleCostVariance:=AValue;
  46149. MarkPropertyChanged(AIndex);
  46150. end;
  46151. Procedure TPSProjectResource.SetStart(AIndex: Integer; const AValue: TDateTime);
  46152. begin
  46153. If (FStart=AValue) then exit;
  46154. FStart:=AValue;
  46155. MarkPropertyChanged(AIndex);
  46156. end;
  46157. Procedure TPSProjectResource.SetWork(AIndex: Integer; const AValue: string);
  46158. begin
  46159. If (FWork=AValue) then exit;
  46160. FWork:=AValue;
  46161. MarkPropertyChanged(AIndex);
  46162. end;
  46163. Procedure TPSProjectResource.SetWorkMilliseconds(AIndex: Integer; const AValue: TInt32);
  46164. begin
  46165. If (FWorkMilliseconds=AValue) then exit;
  46166. FWorkMilliseconds:=AValue;
  46167. MarkPropertyChanged(AIndex);
  46168. end;
  46169. Procedure TPSProjectResource.SetWorkTimeSpan(AIndex: Integer; const AValue: TTime);
  46170. begin
  46171. If (FWorkTimeSpan=AValue) then exit;
  46172. FWorkTimeSpan:=AValue;
  46173. MarkPropertyChanged(AIndex);
  46174. end;
  46175. Procedure TPSProjectResource.SetWorkVariance(AIndex: Integer; const AValue: string);
  46176. begin
  46177. If (FWorkVariance=AValue) then exit;
  46178. FWorkVariance:=AValue;
  46179. MarkPropertyChanged(AIndex);
  46180. end;
  46181. Procedure TPSProjectResource.SetWorkVarianceMilliseconds(AIndex: Integer; const AValue: TInt32);
  46182. begin
  46183. If (FWorkVarianceMilliseconds=AValue) then exit;
  46184. FWorkVarianceMilliseconds:=AValue;
  46185. MarkPropertyChanged(AIndex);
  46186. end;
  46187. Procedure TPSProjectResource.SetWorkVarianceTimeSpan(AIndex: Integer; const AValue: TTime);
  46188. begin
  46189. If (FWorkVarianceTimeSpan=AValue) then exit;
  46190. FWorkVarianceTimeSpan:=AValue;
  46191. MarkPropertyChanged(AIndex);
  46192. end;
  46193. Function TPSProjectResource.KeyAsURLPart : string;
  46194. begin
  46195. Result:=TODataObject.MakeKeyString(Id);
  46196. end;
  46197. Function TPSProjectResource.CustomFields(AService: TODataService) : TPSCustomField;
  46198. begin
  46199. Result:=TPSCustomField(GetContainedSingleTon(AService,'CustomFields', TPSCustomField));
  46200. end;
  46201. Function TPSProjectResource.EnterpriseResource(AService: TODataService) : TPSEnterpriseResource;
  46202. begin
  46203. Result:=TPSEnterpriseResource(GetContainedSingleTon(AService,'EnterpriseResource', TPSEnterpriseResource));
  46204. end;
  46205. { --------------------------------------------------------------------
  46206. TPSEnterpriseResource
  46207. --------------------------------------------------------------------}
  46208. Class Function TPSEnterpriseResource.ObjectRestKind : String;
  46209. begin
  46210. Result:='EnterpriseResource';
  46211. end;
  46212. Procedure TPSEnterpriseResource.SetCanLevel(AIndex: Integer; const AValue: boolean);
  46213. begin
  46214. If (FCanLevel=AValue) then exit;
  46215. FCanLevel:=AValue;
  46216. MarkPropertyChanged(AIndex);
  46217. end;
  46218. Procedure TPSEnterpriseResource.SetCode(AIndex: Integer; const AValue: string);
  46219. begin
  46220. If (FCode=AValue) then exit;
  46221. FCode:=AValue;
  46222. MarkPropertyChanged(AIndex);
  46223. end;
  46224. Procedure TPSEnterpriseResource.SetCostAccrual(AIndex: Integer; const AValue: TInt32);
  46225. begin
  46226. If (FCostAccrual=AValue) then exit;
  46227. FCostAccrual:=AValue;
  46228. MarkPropertyChanged(AIndex);
  46229. end;
  46230. Procedure TPSEnterpriseResource.SetCostCenter(AIndex: Integer; const AValue: string);
  46231. begin
  46232. If (FCostCenter=AValue) then exit;
  46233. FCostCenter:=AValue;
  46234. MarkPropertyChanged(AIndex);
  46235. end;
  46236. Procedure TPSEnterpriseResource.SetCreated(AIndex: Integer; const AValue: TDateTime);
  46237. begin
  46238. If (FCreated=AValue) then exit;
  46239. FCreated:=AValue;
  46240. MarkPropertyChanged(AIndex);
  46241. end;
  46242. Procedure TPSEnterpriseResource.SetDefaultBookingType(AIndex: Integer; const AValue: TInt32);
  46243. begin
  46244. If (FDefaultBookingType=AValue) then exit;
  46245. FDefaultBookingType:=AValue;
  46246. MarkPropertyChanged(AIndex);
  46247. end;
  46248. Procedure TPSEnterpriseResource.SetEmail(AIndex: Integer; const AValue: string);
  46249. begin
  46250. If (FEmail=AValue) then exit;
  46251. FEmail:=AValue;
  46252. MarkPropertyChanged(AIndex);
  46253. end;
  46254. Procedure TPSEnterpriseResource.SetExternalId(AIndex: Integer; const AValue: string);
  46255. begin
  46256. If (FExternalId=AValue) then exit;
  46257. FExternalId:=AValue;
  46258. MarkPropertyChanged(AIndex);
  46259. end;
  46260. Procedure TPSEnterpriseResource.SetGroup(AIndex: Integer; const AValue: string);
  46261. begin
  46262. If (FGroup=AValue) then exit;
  46263. FGroup:=AValue;
  46264. MarkPropertyChanged(AIndex);
  46265. end;
  46266. Procedure TPSEnterpriseResource.SetHireDate(AIndex: Integer; const AValue: TDateTime);
  46267. begin
  46268. If (FHireDate=AValue) then exit;
  46269. FHireDate:=AValue;
  46270. MarkPropertyChanged(AIndex);
  46271. end;
  46272. Procedure TPSEnterpriseResource.SetId(AIndex: Integer; const AValue: TGUIDString);
  46273. begin
  46274. If (FId=AValue) then exit;
  46275. FId:=AValue;
  46276. MarkPropertyChanged(AIndex);
  46277. end;
  46278. Procedure TPSEnterpriseResource.SetInitials(AIndex: Integer; const AValue: string);
  46279. begin
  46280. If (FInitials=AValue) then exit;
  46281. FInitials:=AValue;
  46282. MarkPropertyChanged(AIndex);
  46283. end;
  46284. Procedure TPSEnterpriseResource.SetIsActive(AIndex: Integer; const AValue: boolean);
  46285. begin
  46286. If (FIsActive=AValue) then exit;
  46287. FIsActive:=AValue;
  46288. MarkPropertyChanged(AIndex);
  46289. end;
  46290. Procedure TPSEnterpriseResource.SetIsBudget(AIndex: Integer; const AValue: boolean);
  46291. begin
  46292. If (FIsBudget=AValue) then exit;
  46293. FIsBudget:=AValue;
  46294. MarkPropertyChanged(AIndex);
  46295. end;
  46296. Procedure TPSEnterpriseResource.SetIsCheckedOut(AIndex: Integer; const AValue: boolean);
  46297. begin
  46298. If (FIsCheckedOut=AValue) then exit;
  46299. FIsCheckedOut:=AValue;
  46300. MarkPropertyChanged(AIndex);
  46301. end;
  46302. Procedure TPSEnterpriseResource.SetIsGeneric(AIndex: Integer; const AValue: boolean);
  46303. begin
  46304. If (FIsGeneric=AValue) then exit;
  46305. FIsGeneric:=AValue;
  46306. MarkPropertyChanged(AIndex);
  46307. end;
  46308. Procedure TPSEnterpriseResource.SetIsTeam(AIndex: Integer; const AValue: boolean);
  46309. begin
  46310. If (FIsTeam=AValue) then exit;
  46311. FIsTeam:=AValue;
  46312. MarkPropertyChanged(AIndex);
  46313. end;
  46314. Procedure TPSEnterpriseResource.SetMaterialLabel(AIndex: Integer; const AValue: string);
  46315. begin
  46316. If (FMaterialLabel=AValue) then exit;
  46317. FMaterialLabel:=AValue;
  46318. MarkPropertyChanged(AIndex);
  46319. end;
  46320. Procedure TPSEnterpriseResource.SetModified(AIndex: Integer; const AValue: TDateTime);
  46321. begin
  46322. If (FModified=AValue) then exit;
  46323. FModified:=AValue;
  46324. MarkPropertyChanged(AIndex);
  46325. end;
  46326. Procedure TPSEnterpriseResource.SetName(AIndex: Integer; const AValue: string);
  46327. begin
  46328. If (FName=AValue) then exit;
  46329. FName:=AValue;
  46330. MarkPropertyChanged(AIndex);
  46331. end;
  46332. Procedure TPSEnterpriseResource.SetPhonetics(AIndex: Integer; const AValue: string);
  46333. begin
  46334. If (FPhonetics=AValue) then exit;
  46335. FPhonetics:=AValue;
  46336. MarkPropertyChanged(AIndex);
  46337. end;
  46338. Procedure TPSEnterpriseResource.SetResourceType(AIndex: Integer; const AValue: TInt32);
  46339. begin
  46340. If (FResourceType=AValue) then exit;
  46341. FResourceType:=AValue;
  46342. MarkPropertyChanged(AIndex);
  46343. end;
  46344. Procedure TPSEnterpriseResource.SetTerminationDate(AIndex: Integer; const AValue: TDateTime);
  46345. begin
  46346. If (FTerminationDate=AValue) then exit;
  46347. FTerminationDate:=AValue;
  46348. MarkPropertyChanged(AIndex);
  46349. end;
  46350. Function TPSEnterpriseResource.KeyAsURLPart : string;
  46351. begin
  46352. Result:=TODataObject.MakeKeyString(Id);
  46353. end;
  46354. Function TPSEnterpriseResource.Assignments(AService: TODataService) : TPSStatusAssignment;
  46355. begin
  46356. Result:=TPSStatusAssignment(GetContainedSingleTon(AService,'Assignments', TPSStatusAssignment));
  46357. end;
  46358. Function TPSEnterpriseResource.BaseCalendar(AService: TODataService) : TPSCalendar;
  46359. begin
  46360. Result:=TPSCalendar(GetContainedSingleTon(AService,'BaseCalendar', TPSCalendar));
  46361. end;
  46362. Function TPSEnterpriseResource.CustomFields(AService: TODataService) : TPSCustomField;
  46363. begin
  46364. Result:=TPSCustomField(GetContainedSingleTon(AService,'CustomFields', TPSCustomField));
  46365. end;
  46366. Function TPSEnterpriseResource.DefaultAssignmentOwner(AService: TODataService) : TSPUser;
  46367. begin
  46368. Result:=TSPUser(GetContainedSingleTon(AService,'DefaultAssignmentOwner', TSPUser));
  46369. end;
  46370. Function TPSEnterpriseResource.ResourceCalendarExceptions(AService: TODataService) : TPSCalendarException;
  46371. begin
  46372. Result:=TPSCalendarException(GetContainedSingleTon(AService,'ResourceCalendarExceptions', TPSCalendarException));
  46373. end;
  46374. Function TPSEnterpriseResource._Self(AService: TODataService) : TPSEnterpriseResource;
  46375. begin
  46376. Result:=TPSEnterpriseResource(GetContainedSingleTon(AService,'Self', TPSEnterpriseResource));
  46377. end;
  46378. Function TPSEnterpriseResource.TimesheetManager(AService: TODataService) : TSPUser;
  46379. begin
  46380. Result:=TSPUser(GetContainedSingleTon(AService,'TimesheetManager', TSPUser));
  46381. end;
  46382. Function TPSEnterpriseResource.User(AService: TODataService) : TSPUser;
  46383. begin
  46384. Result:=TSPUser(GetContainedSingleTon(AService,'User', TSPUser));
  46385. end;
  46386. { --------------------------------------------------------------------
  46387. TPSStatusAssignment
  46388. --------------------------------------------------------------------}
  46389. Class Function TPSStatusAssignment.ObjectRestKind : String;
  46390. begin
  46391. Result:='StatusAssignment';
  46392. end;
  46393. Procedure TPSStatusAssignment.SetActualFinish(AIndex: Integer; const AValue: TDateTime);
  46394. begin
  46395. If (FActualFinish=AValue) then exit;
  46396. FActualFinish:=AValue;
  46397. MarkPropertyChanged(AIndex);
  46398. end;
  46399. Procedure TPSStatusAssignment.SetActualOvertime(AIndex: Integer; const AValue: string);
  46400. begin
  46401. If (FActualOvertime=AValue) then exit;
  46402. FActualOvertime:=AValue;
  46403. MarkPropertyChanged(AIndex);
  46404. end;
  46405. Procedure TPSStatusAssignment.SetActualOvertimeMilliseconds(AIndex: Integer; const AValue: TInt32);
  46406. begin
  46407. If (FActualOvertimeMilliseconds=AValue) then exit;
  46408. FActualOvertimeMilliseconds:=AValue;
  46409. MarkPropertyChanged(AIndex);
  46410. end;
  46411. Procedure TPSStatusAssignment.SetActualOvertimeTimeSpan(AIndex: Integer; const AValue: TTime);
  46412. begin
  46413. If (FActualOvertimeTimeSpan=AValue) then exit;
  46414. FActualOvertimeTimeSpan:=AValue;
  46415. MarkPropertyChanged(AIndex);
  46416. end;
  46417. Procedure TPSStatusAssignment.SetActualStart(AIndex: Integer; const AValue: TDateTime);
  46418. begin
  46419. If (FActualStart=AValue) then exit;
  46420. FActualStart:=AValue;
  46421. MarkPropertyChanged(AIndex);
  46422. end;
  46423. Procedure TPSStatusAssignment.SetActualWork(AIndex: Integer; const AValue: string);
  46424. begin
  46425. If (FActualWork=AValue) then exit;
  46426. FActualWork:=AValue;
  46427. MarkPropertyChanged(AIndex);
  46428. end;
  46429. Procedure TPSStatusAssignment.SetActualWorkMilliseconds(AIndex: Integer; const AValue: TInt32);
  46430. begin
  46431. If (FActualWorkMilliseconds=AValue) then exit;
  46432. FActualWorkMilliseconds:=AValue;
  46433. MarkPropertyChanged(AIndex);
  46434. end;
  46435. Procedure TPSStatusAssignment.SetActualWorkTimeSpan(AIndex: Integer; const AValue: TTime);
  46436. begin
  46437. If (FActualWorkTimeSpan=AValue) then exit;
  46438. FActualWorkTimeSpan:=AValue;
  46439. MarkPropertyChanged(AIndex);
  46440. end;
  46441. Procedure TPSStatusAssignment.SetComments(AIndex: Integer; const AValue: string);
  46442. begin
  46443. If (FComments=AValue) then exit;
  46444. FComments:=AValue;
  46445. MarkPropertyChanged(AIndex);
  46446. end;
  46447. Procedure TPSStatusAssignment.SetFinish(AIndex: Integer; const AValue: TDateTime);
  46448. begin
  46449. If (FFinish=AValue) then exit;
  46450. FFinish:=AValue;
  46451. MarkPropertyChanged(AIndex);
  46452. end;
  46453. Procedure TPSStatusAssignment.SetId(AIndex: Integer; const AValue: TGUIDString);
  46454. begin
  46455. If (FId=AValue) then exit;
  46456. FId:=AValue;
  46457. MarkPropertyChanged(AIndex);
  46458. end;
  46459. Procedure TPSStatusAssignment.SetIsConfirmed(AIndex: Integer; const AValue: boolean);
  46460. begin
  46461. If (FIsConfirmed=AValue) then exit;
  46462. FIsConfirmed:=AValue;
  46463. MarkPropertyChanged(AIndex);
  46464. end;
  46465. Procedure TPSStatusAssignment.SetName(AIndex: Integer; const AValue: string);
  46466. begin
  46467. If (FName=AValue) then exit;
  46468. FName:=AValue;
  46469. MarkPropertyChanged(AIndex);
  46470. end;
  46471. Procedure TPSStatusAssignment.SetOvertime(AIndex: Integer; const AValue: string);
  46472. begin
  46473. If (FOvertime=AValue) then exit;
  46474. FOvertime:=AValue;
  46475. MarkPropertyChanged(AIndex);
  46476. end;
  46477. Procedure TPSStatusAssignment.SetOvertimeMilliseconds(AIndex: Integer; const AValue: TInt32);
  46478. begin
  46479. If (FOvertimeMilliseconds=AValue) then exit;
  46480. FOvertimeMilliseconds:=AValue;
  46481. MarkPropertyChanged(AIndex);
  46482. end;
  46483. Procedure TPSStatusAssignment.SetOvertimeTimeSpan(AIndex: Integer; const AValue: TTime);
  46484. begin
  46485. If (FOvertimeTimeSpan=AValue) then exit;
  46486. FOvertimeTimeSpan:=AValue;
  46487. MarkPropertyChanged(AIndex);
  46488. end;
  46489. Procedure TPSStatusAssignment.SetPercentComplete(AIndex: Integer; const AValue: TInt16);
  46490. begin
  46491. If (FPercentComplete=AValue) then exit;
  46492. FPercentComplete:=AValue;
  46493. MarkPropertyChanged(AIndex);
  46494. end;
  46495. Procedure TPSStatusAssignment.SetRegularWork(AIndex: Integer; const AValue: string);
  46496. begin
  46497. If (FRegularWork=AValue) then exit;
  46498. FRegularWork:=AValue;
  46499. MarkPropertyChanged(AIndex);
  46500. end;
  46501. Procedure TPSStatusAssignment.SetRegularWorkMilliseconds(AIndex: Integer; const AValue: TInt32);
  46502. begin
  46503. If (FRegularWorkMilliseconds=AValue) then exit;
  46504. FRegularWorkMilliseconds:=AValue;
  46505. MarkPropertyChanged(AIndex);
  46506. end;
  46507. Procedure TPSStatusAssignment.SetRegularWorkTimeSpan(AIndex: Integer; const AValue: TTime);
  46508. begin
  46509. If (FRegularWorkTimeSpan=AValue) then exit;
  46510. FRegularWorkTimeSpan:=AValue;
  46511. MarkPropertyChanged(AIndex);
  46512. end;
  46513. Procedure TPSStatusAssignment.SetRemainingOvertime(AIndex: Integer; const AValue: string);
  46514. begin
  46515. If (FRemainingOvertime=AValue) then exit;
  46516. FRemainingOvertime:=AValue;
  46517. MarkPropertyChanged(AIndex);
  46518. end;
  46519. Procedure TPSStatusAssignment.SetRemainingOvertimeMilliseconds(AIndex: Integer; const AValue: TInt32);
  46520. begin
  46521. If (FRemainingOvertimeMilliseconds=AValue) then exit;
  46522. FRemainingOvertimeMilliseconds:=AValue;
  46523. MarkPropertyChanged(AIndex);
  46524. end;
  46525. Procedure TPSStatusAssignment.SetRemainingOvertimeTimeSpan(AIndex: Integer; const AValue: TTime);
  46526. begin
  46527. If (FRemainingOvertimeTimeSpan=AValue) then exit;
  46528. FRemainingOvertimeTimeSpan:=AValue;
  46529. MarkPropertyChanged(AIndex);
  46530. end;
  46531. Procedure TPSStatusAssignment.SetRemainingWork(AIndex: Integer; const AValue: string);
  46532. begin
  46533. If (FRemainingWork=AValue) then exit;
  46534. FRemainingWork:=AValue;
  46535. MarkPropertyChanged(AIndex);
  46536. end;
  46537. Procedure TPSStatusAssignment.SetRemainingWorkMilliseconds(AIndex: Integer; const AValue: TInt32);
  46538. begin
  46539. If (FRemainingWorkMilliseconds=AValue) then exit;
  46540. FRemainingWorkMilliseconds:=AValue;
  46541. MarkPropertyChanged(AIndex);
  46542. end;
  46543. Procedure TPSStatusAssignment.SetRemainingWorkTimeSpan(AIndex: Integer; const AValue: TTime);
  46544. begin
  46545. If (FRemainingWorkTimeSpan=AValue) then exit;
  46546. FRemainingWorkTimeSpan:=AValue;
  46547. MarkPropertyChanged(AIndex);
  46548. end;
  46549. Procedure TPSStatusAssignment.SetStart(AIndex: Integer; const AValue: TDateTime);
  46550. begin
  46551. If (FStart=AValue) then exit;
  46552. FStart:=AValue;
  46553. MarkPropertyChanged(AIndex);
  46554. end;
  46555. Procedure TPSStatusAssignment.SetWork(AIndex: Integer; const AValue: string);
  46556. begin
  46557. If (FWork=AValue) then exit;
  46558. FWork:=AValue;
  46559. MarkPropertyChanged(AIndex);
  46560. end;
  46561. Procedure TPSStatusAssignment.SetWorkMilliseconds(AIndex: Integer; const AValue: TInt32);
  46562. begin
  46563. If (FWorkMilliseconds=AValue) then exit;
  46564. FWorkMilliseconds:=AValue;
  46565. MarkPropertyChanged(AIndex);
  46566. end;
  46567. Procedure TPSStatusAssignment.SetWorkTimeSpan(AIndex: Integer; const AValue: TTime);
  46568. begin
  46569. If (FWorkTimeSpan=AValue) then exit;
  46570. FWorkTimeSpan:=AValue;
  46571. MarkPropertyChanged(AIndex);
  46572. end;
  46573. Function TPSStatusAssignment.KeyAsURLPart : string;
  46574. begin
  46575. Result:=TODataObject.MakeKeyString(Id);
  46576. end;
  46577. Function TPSStatusAssignment.CustomFields(AService: TODataService) : TPSCustomField;
  46578. begin
  46579. Result:=TPSCustomField(GetContainedSingleTon(AService,'CustomFields', TPSCustomField));
  46580. end;
  46581. Function TPSStatusAssignment.Project(AService: TODataService) : TPSPublishedProject;
  46582. begin
  46583. Result:=TPSPublishedProject(GetContainedSingleTon(AService,'Project', TPSPublishedProject));
  46584. end;
  46585. Function TPSStatusAssignment.Resource(AService: TODataService) : TPSEnterpriseResource;
  46586. begin
  46587. Result:=TPSEnterpriseResource(GetContainedSingleTon(AService,'Resource', TPSEnterpriseResource));
  46588. end;
  46589. Function TPSStatusAssignment.Task(AService: TODataService) : TPSStatusTask;
  46590. begin
  46591. Result:=TPSStatusTask(GetContainedSingleTon(AService,'Task', TPSStatusTask));
  46592. end;
  46593. { --------------------------------------------------------------------
  46594. TPSProject
  46595. --------------------------------------------------------------------}
  46596. Class Function TPSProject.ObjectRestKind : String;
  46597. begin
  46598. Result:='Project';
  46599. end;
  46600. Procedure TPSProject.SetApprovedEnd(AIndex: Integer; const AValue: TDateTime);
  46601. begin
  46602. If (FApprovedEnd=AValue) then exit;
  46603. FApprovedEnd:=AValue;
  46604. MarkPropertyChanged(AIndex);
  46605. end;
  46606. Procedure TPSProject.SetApprovedStart(AIndex: Integer; const AValue: TDateTime);
  46607. begin
  46608. If (FApprovedStart=AValue) then exit;
  46609. FApprovedStart:=AValue;
  46610. MarkPropertyChanged(AIndex);
  46611. end;
  46612. Procedure TPSProject.SetCheckedOutDate(AIndex: Integer; const AValue: TDateTime);
  46613. begin
  46614. If (FCheckedOutDate=AValue) then exit;
  46615. FCheckedOutDate:=AValue;
  46616. MarkPropertyChanged(AIndex);
  46617. end;
  46618. Procedure TPSProject.SetCheckOutDescription(AIndex: Integer; const AValue: string);
  46619. begin
  46620. If (FCheckOutDescription=AValue) then exit;
  46621. FCheckOutDescription:=AValue;
  46622. MarkPropertyChanged(AIndex);
  46623. end;
  46624. Procedure TPSProject.SetCheckOutId(AIndex: Integer; const AValue: TGUIDString);
  46625. begin
  46626. If (FCheckOutId=AValue) then exit;
  46627. FCheckOutId:=AValue;
  46628. MarkPropertyChanged(AIndex);
  46629. end;
  46630. Procedure TPSProject.SetCreatedDate(AIndex: Integer; const AValue: TDateTime);
  46631. begin
  46632. If (FCreatedDate=AValue) then exit;
  46633. FCreatedDate:=AValue;
  46634. MarkPropertyChanged(AIndex);
  46635. end;
  46636. Procedure TPSProject.SetDefaultOvertimeRateUnits(AIndex: Integer; const AValue: TInt32);
  46637. begin
  46638. If (FDefaultOvertimeRateUnits=AValue) then exit;
  46639. FDefaultOvertimeRateUnits:=AValue;
  46640. MarkPropertyChanged(AIndex);
  46641. end;
  46642. Procedure TPSProject.SetDefaultStandardRateUnits(AIndex: Integer; const AValue: TInt32);
  46643. begin
  46644. If (FDefaultStandardRateUnits=AValue) then exit;
  46645. FDefaultStandardRateUnits:=AValue;
  46646. MarkPropertyChanged(AIndex);
  46647. end;
  46648. Procedure TPSProject.SetHasMppPendingImport(AIndex: Integer; const AValue: boolean);
  46649. begin
  46650. If (FHasMppPendingImport=AValue) then exit;
  46651. FHasMppPendingImport:=AValue;
  46652. MarkPropertyChanged(AIndex);
  46653. end;
  46654. Procedure TPSProject.SetId(AIndex: Integer; const AValue: TGUIDString);
  46655. begin
  46656. If (FId=AValue) then exit;
  46657. FId:=AValue;
  46658. MarkPropertyChanged(AIndex);
  46659. end;
  46660. Procedure TPSProject.SetIsCheckedOut(AIndex: Integer; const AValue: boolean);
  46661. begin
  46662. If (FIsCheckedOut=AValue) then exit;
  46663. FIsCheckedOut:=AValue;
  46664. MarkPropertyChanged(AIndex);
  46665. end;
  46666. Procedure TPSProject.SetLastPublishedDate(AIndex: Integer; const AValue: TDateTime);
  46667. begin
  46668. If (FLastPublishedDate=AValue) then exit;
  46669. FLastPublishedDate:=AValue;
  46670. MarkPropertyChanged(AIndex);
  46671. end;
  46672. Procedure TPSProject.SetLastSavedDate(AIndex: Integer; const AValue: TDateTime);
  46673. begin
  46674. If (FLastSavedDate=AValue) then exit;
  46675. FLastSavedDate:=AValue;
  46676. MarkPropertyChanged(AIndex);
  46677. end;
  46678. Procedure TPSProject.SetListId(AIndex: Integer; const AValue: TGUIDString);
  46679. begin
  46680. If (FListId=AValue) then exit;
  46681. FListId:=AValue;
  46682. MarkPropertyChanged(AIndex);
  46683. end;
  46684. Procedure TPSProject.SetOptimizerDecision(AIndex: Integer; const AValue: TInt32);
  46685. begin
  46686. If (FOptimizerDecision=AValue) then exit;
  46687. FOptimizerDecision:=AValue;
  46688. MarkPropertyChanged(AIndex);
  46689. end;
  46690. Procedure TPSProject.SetPercentComplete(AIndex: Integer; const AValue: TInt32);
  46691. begin
  46692. If (FPercentComplete=AValue) then exit;
  46693. FPercentComplete:=AValue;
  46694. MarkPropertyChanged(AIndex);
  46695. end;
  46696. Procedure TPSProject.SetPlannerDecision(AIndex: Integer; const AValue: TInt32);
  46697. begin
  46698. If (FPlannerDecision=AValue) then exit;
  46699. FPlannerDecision:=AValue;
  46700. MarkPropertyChanged(AIndex);
  46701. end;
  46702. Procedure TPSProject.SetProjectSiteUrl(AIndex: Integer; const AValue: string);
  46703. begin
  46704. If (FProjectSiteUrl=AValue) then exit;
  46705. FProjectSiteUrl:=AValue;
  46706. MarkPropertyChanged(AIndex);
  46707. end;
  46708. Procedure TPSProject.SetProjectType(AIndex: Integer; const AValue: TInt32);
  46709. begin
  46710. If (FProjectType=AValue) then exit;
  46711. FProjectType:=AValue;
  46712. MarkPropertyChanged(AIndex);
  46713. end;
  46714. Procedure TPSProject.SetSummaryTaskId(AIndex: Integer; const AValue: TGUIDString);
  46715. begin
  46716. If (FSummaryTaskId=AValue) then exit;
  46717. FSummaryTaskId:=AValue;
  46718. MarkPropertyChanged(AIndex);
  46719. end;
  46720. Procedure TPSProject.SetTaskListId(AIndex: Integer; const AValue: TGUIDString);
  46721. begin
  46722. If (FTaskListId=AValue) then exit;
  46723. FTaskListId:=AValue;
  46724. MarkPropertyChanged(AIndex);
  46725. end;
  46726. Procedure TPSProject.SetWebId(AIndex: Integer; const AValue: TGUIDString);
  46727. begin
  46728. If (FWebId=AValue) then exit;
  46729. FWebId:=AValue;
  46730. MarkPropertyChanged(AIndex);
  46731. end;
  46732. Function TPSProject.KeyAsURLPart : string;
  46733. begin
  46734. Result:=TODataObject.MakeKeyString(Id);
  46735. end;
  46736. Function TPSProject.CheckedOutBy(AService: TODataService) : TSPUser;
  46737. begin
  46738. Result:=TSPUser(GetContainedSingleTon(AService,'CheckedOutBy', TSPUser));
  46739. end;
  46740. Function TPSProject.CustomFields(AService: TODataService) : TPSCustomField;
  46741. begin
  46742. Result:=TPSCustomField(GetContainedSingleTon(AService,'CustomFields', TPSCustomField));
  46743. end;
  46744. Function TPSProject.EnterpriseProjectType(AService: TODataService) : TPSEnterpriseProjectType;
  46745. begin
  46746. Result:=TPSEnterpriseProjectType(GetContainedSingleTon(AService,'EnterpriseProjectType', TPSEnterpriseProjectType));
  46747. end;
  46748. Function TPSProject.Phase(AService: TODataService) : TPSPhase;
  46749. begin
  46750. Result:=TPSPhase(GetContainedSingleTon(AService,'Phase', TPSPhase));
  46751. end;
  46752. Function TPSProject.QueueJobs(AService: TODataService) : TPSQueueJob;
  46753. begin
  46754. Result:=TPSQueueJob(GetContainedSingleTon(AService,'QueueJobs', TPSQueueJob));
  46755. end;
  46756. Function TPSProject.Stage(AService: TODataService) : TPSStage;
  46757. begin
  46758. Result:=TPSStage(GetContainedSingleTon(AService,'Stage', TPSStage));
  46759. end;
  46760. { --------------------------------------------------------------------
  46761. TPSEnterpriseProjectType
  46762. --------------------------------------------------------------------}
  46763. Class Function TPSEnterpriseProjectType.ObjectRestKind : String;
  46764. begin
  46765. Result:='EnterpriseProjectType';
  46766. end;
  46767. Procedure TPSEnterpriseProjectType.SetDescription(AIndex: Integer; const AValue: string);
  46768. begin
  46769. If (FDescription=AValue) then exit;
  46770. FDescription:=AValue;
  46771. MarkPropertyChanged(AIndex);
  46772. end;
  46773. Procedure TPSEnterpriseProjectType.SetId(AIndex: Integer; const AValue: TGUIDString);
  46774. begin
  46775. If (FId=AValue) then exit;
  46776. FId:=AValue;
  46777. MarkPropertyChanged(AIndex);
  46778. end;
  46779. Procedure TPSEnterpriseProjectType.SetImageUrl(AIndex: Integer; const AValue: string);
  46780. begin
  46781. If (FImageUrl=AValue) then exit;
  46782. FImageUrl:=AValue;
  46783. MarkPropertyChanged(AIndex);
  46784. end;
  46785. Procedure TPSEnterpriseProjectType.SetIsDefault(AIndex: Integer; const AValue: boolean);
  46786. begin
  46787. If (FIsDefault=AValue) then exit;
  46788. FIsDefault:=AValue;
  46789. MarkPropertyChanged(AIndex);
  46790. end;
  46791. Procedure TPSEnterpriseProjectType.SetIsManaged(AIndex: Integer; const AValue: boolean);
  46792. begin
  46793. If (FIsManaged=AValue) then exit;
  46794. FIsManaged:=AValue;
  46795. MarkPropertyChanged(AIndex);
  46796. end;
  46797. Procedure TPSEnterpriseProjectType.SetName(AIndex: Integer; const AValue: string);
  46798. begin
  46799. If (FName=AValue) then exit;
  46800. FName:=AValue;
  46801. MarkPropertyChanged(AIndex);
  46802. end;
  46803. Procedure TPSEnterpriseProjectType.SetOrder(AIndex: Integer; const AValue: TInt32);
  46804. begin
  46805. If (FOrder=AValue) then exit;
  46806. FOrder:=AValue;
  46807. MarkPropertyChanged(AIndex);
  46808. end;
  46809. Procedure TPSEnterpriseProjectType.SetProjectPlanTemplateId(AIndex: Integer; const AValue: TGUIDString);
  46810. begin
  46811. If (FProjectPlanTemplateId=AValue) then exit;
  46812. FProjectPlanTemplateId:=AValue;
  46813. MarkPropertyChanged(AIndex);
  46814. end;
  46815. Procedure TPSEnterpriseProjectType.SetWorkflowAssociationId(AIndex: Integer; const AValue: TGUIDString);
  46816. begin
  46817. If (FWorkflowAssociationId=AValue) then exit;
  46818. FWorkflowAssociationId:=AValue;
  46819. MarkPropertyChanged(AIndex);
  46820. end;
  46821. Procedure TPSEnterpriseProjectType.SetWorkflowAssociationName(AIndex: Integer; const AValue: string);
  46822. begin
  46823. If (FWorkflowAssociationName=AValue) then exit;
  46824. FWorkflowAssociationName:=AValue;
  46825. MarkPropertyChanged(AIndex);
  46826. end;
  46827. Procedure TPSEnterpriseProjectType.SetWorkspaceTemplateName(AIndex: Integer; const AValue: string);
  46828. begin
  46829. If (FWorkspaceTemplateName=AValue) then exit;
  46830. FWorkspaceTemplateName:=AValue;
  46831. MarkPropertyChanged(AIndex);
  46832. end;
  46833. Function TPSEnterpriseProjectType.KeyAsURLPart : string;
  46834. begin
  46835. Result:=TODataObject.MakeKeyString(Id);
  46836. end;
  46837. Function TPSEnterpriseProjectType.ProjectDetailPages(AService: TODataService) : TPSProjectDetailPage;
  46838. begin
  46839. Result:=TPSProjectDetailPage(GetContainedSingleTon(AService,'ProjectDetailPages', TPSProjectDetailPage));
  46840. end;
  46841. { --------------------------------------------------------------------
  46842. TPSProjectDetailPage
  46843. --------------------------------------------------------------------}
  46844. Class Function TPSProjectDetailPage.ObjectRestKind : String;
  46845. begin
  46846. Result:='ProjectDetailPage';
  46847. end;
  46848. Procedure TPSProjectDetailPage.SetId(AIndex: Integer; const AValue: TGUIDString);
  46849. begin
  46850. If (FId=AValue) then exit;
  46851. FId:=AValue;
  46852. MarkPropertyChanged(AIndex);
  46853. end;
  46854. Procedure TPSProjectDetailPage.SetName(AIndex: Integer; const AValue: string);
  46855. begin
  46856. If (FName=AValue) then exit;
  46857. FName:=AValue;
  46858. MarkPropertyChanged(AIndex);
  46859. end;
  46860. Procedure TPSProjectDetailPage.SetPageType(AIndex: Integer; const AValue: TInt32);
  46861. begin
  46862. If (FPageType=AValue) then exit;
  46863. FPageType:=AValue;
  46864. MarkPropertyChanged(AIndex);
  46865. end;
  46866. Function TPSProjectDetailPage.KeyAsURLPart : string;
  46867. begin
  46868. Result:=TODataObject.MakeKeyString(Id);
  46869. end;
  46870. Function TPSProjectDetailPage.Item(AService: TODataService) : TSPListItem;
  46871. begin
  46872. Result:=TSPListItem(GetContainedSingleTon(AService,'Item', TSPListItem));
  46873. end;
  46874. { --------------------------------------------------------------------
  46875. TPSPhase
  46876. --------------------------------------------------------------------}
  46877. Class Function TPSPhase.ObjectRestKind : String;
  46878. begin
  46879. Result:='Phase';
  46880. end;
  46881. Procedure TPSPhase.SetDescription(AIndex: Integer; const AValue: string);
  46882. begin
  46883. If (FDescription=AValue) then exit;
  46884. FDescription:=AValue;
  46885. MarkPropertyChanged(AIndex);
  46886. end;
  46887. Procedure TPSPhase.SetId(AIndex: Integer; const AValue: TGUIDString);
  46888. begin
  46889. If (FId=AValue) then exit;
  46890. FId:=AValue;
  46891. MarkPropertyChanged(AIndex);
  46892. end;
  46893. Procedure TPSPhase.SetName(AIndex: Integer; const AValue: string);
  46894. begin
  46895. If (FName=AValue) then exit;
  46896. FName:=AValue;
  46897. MarkPropertyChanged(AIndex);
  46898. end;
  46899. Function TPSPhase.KeyAsURLPart : string;
  46900. begin
  46901. Result:=TODataObject.MakeKeyString(Id);
  46902. end;
  46903. Function TPSPhase.Stages(AService: TODataService) : TPSStage;
  46904. begin
  46905. Result:=TPSStage(GetContainedSingleTon(AService,'Stages', TPSStage));
  46906. end;
  46907. { --------------------------------------------------------------------
  46908. TPSStage
  46909. --------------------------------------------------------------------}
  46910. Class Function TPSStage.ObjectRestKind : String;
  46911. begin
  46912. Result:='Stage';
  46913. end;
  46914. Procedure TPSStage.SetBehavior(AIndex: Integer; const AValue: TInt32);
  46915. begin
  46916. If (FBehavior=AValue) then exit;
  46917. FBehavior:=AValue;
  46918. MarkPropertyChanged(AIndex);
  46919. end;
  46920. Procedure TPSStage.SetCheckInRequired(AIndex: Integer; const AValue: boolean);
  46921. begin
  46922. If (FCheckInRequired=AValue) then exit;
  46923. FCheckInRequired:=AValue;
  46924. MarkPropertyChanged(AIndex);
  46925. end;
  46926. Procedure TPSStage.SetDescription(AIndex: Integer; const AValue: string);
  46927. begin
  46928. If (FDescription=AValue) then exit;
  46929. FDescription:=AValue;
  46930. MarkPropertyChanged(AIndex);
  46931. end;
  46932. Procedure TPSStage.SetId(AIndex: Integer; const AValue: TGUIDString);
  46933. begin
  46934. If (FId=AValue) then exit;
  46935. FId:=AValue;
  46936. MarkPropertyChanged(AIndex);
  46937. end;
  46938. Procedure TPSStage.SetName(AIndex: Integer; const AValue: string);
  46939. begin
  46940. If (FName=AValue) then exit;
  46941. FName:=AValue;
  46942. MarkPropertyChanged(AIndex);
  46943. end;
  46944. Procedure TPSStage.SetSubmitDescription(AIndex: Integer; const AValue: string);
  46945. begin
  46946. If (FSubmitDescription=AValue) then exit;
  46947. FSubmitDescription:=AValue;
  46948. MarkPropertyChanged(AIndex);
  46949. end;
  46950. Function TPSStage.KeyAsURLPart : string;
  46951. begin
  46952. Result:=TODataObject.MakeKeyString(Id);
  46953. end;
  46954. Function TPSStage.CustomFields(AService: TODataService) : TPSStageCustomField;
  46955. begin
  46956. Result:=TPSStageCustomField(GetContainedSingleTon(AService,'CustomFields', TPSStageCustomField));
  46957. end;
  46958. Function TPSStage.Phase(AService: TODataService) : TPSPhase;
  46959. begin
  46960. Result:=TPSPhase(GetContainedSingleTon(AService,'Phase', TPSPhase));
  46961. end;
  46962. Function TPSStage.ProjectDetailPages(AService: TODataService) : TPSStageDetailPage;
  46963. begin
  46964. Result:=TPSStageDetailPage(GetContainedSingleTon(AService,'ProjectDetailPages', TPSStageDetailPage));
  46965. end;
  46966. Function TPSStage.WorkflowStatusPage(AService: TODataService) : TPSProjectDetailPage;
  46967. begin
  46968. Result:=TPSProjectDetailPage(GetContainedSingleTon(AService,'WorkflowStatusPage', TPSProjectDetailPage));
  46969. end;
  46970. { --------------------------------------------------------------------
  46971. TPSStageCustomField
  46972. --------------------------------------------------------------------}
  46973. Class Function TPSStageCustomField.ObjectRestKind : String;
  46974. begin
  46975. Result:='StageCustomField';
  46976. end;
  46977. Procedure TPSStageCustomField.SetId(AIndex: Integer; const AValue: TGUIDString);
  46978. begin
  46979. If (FId=AValue) then exit;
  46980. FId:=AValue;
  46981. MarkPropertyChanged(AIndex);
  46982. end;
  46983. Procedure TPSStageCustomField.SetName(AIndex: Integer; const AValue: string);
  46984. begin
  46985. If (FName=AValue) then exit;
  46986. FName:=AValue;
  46987. MarkPropertyChanged(AIndex);
  46988. end;
  46989. Procedure TPSStageCustomField.SetReadOnly(AIndex: Integer; const AValue: boolean);
  46990. begin
  46991. If (FReadOnly=AValue) then exit;
  46992. FReadOnly:=AValue;
  46993. MarkPropertyChanged(AIndex);
  46994. end;
  46995. Procedure TPSStageCustomField.SetRequired(AIndex: Integer; const AValue: boolean);
  46996. begin
  46997. If (FRequired=AValue) then exit;
  46998. FRequired:=AValue;
  46999. MarkPropertyChanged(AIndex);
  47000. end;
  47001. Function TPSStageCustomField.KeyAsURLPart : string;
  47002. begin
  47003. Result:=TODataObject.MakeKeyString(Id);
  47004. end;
  47005. Function TPSStageCustomField.Stage(AService: TODataService) : TPSStage;
  47006. begin
  47007. Result:=TPSStage(GetContainedSingleTon(AService,'Stage', TPSStage));
  47008. end;
  47009. { --------------------------------------------------------------------
  47010. TPSStageDetailPage
  47011. --------------------------------------------------------------------}
  47012. Class Function TPSStageDetailPage.ObjectRestKind : String;
  47013. begin
  47014. Result:='StageDetailPage';
  47015. end;
  47016. Procedure TPSStageDetailPage.SetDescription(AIndex: Integer; const AValue: string);
  47017. begin
  47018. If (FDescription=AValue) then exit;
  47019. FDescription:=AValue;
  47020. MarkPropertyChanged(AIndex);
  47021. end;
  47022. Procedure TPSStageDetailPage.SetId(AIndex: Integer; const AValue: TGUIDString);
  47023. begin
  47024. If (FId=AValue) then exit;
  47025. FId:=AValue;
  47026. MarkPropertyChanged(AIndex);
  47027. end;
  47028. Procedure TPSStageDetailPage.SetPosition(AIndex: Integer; const AValue: TInt32);
  47029. begin
  47030. If (FPosition=AValue) then exit;
  47031. FPosition:=AValue;
  47032. MarkPropertyChanged(AIndex);
  47033. end;
  47034. Procedure TPSStageDetailPage.SetRequiresAttention(AIndex: Integer; const AValue: boolean);
  47035. begin
  47036. If (FRequiresAttention=AValue) then exit;
  47037. FRequiresAttention:=AValue;
  47038. MarkPropertyChanged(AIndex);
  47039. end;
  47040. Function TPSStageDetailPage.KeyAsURLPart : string;
  47041. begin
  47042. Result:=TODataObject.MakeKeyString(Id);
  47043. end;
  47044. Function TPSStageDetailPage.Page(AService: TODataService) : TPSProjectDetailPage;
  47045. begin
  47046. Result:=TPSProjectDetailPage(GetContainedSingleTon(AService,'Page', TPSProjectDetailPage));
  47047. end;
  47048. Function TPSStageDetailPage.Stage(AService: TODataService) : TPSStage;
  47049. begin
  47050. Result:=TPSStage(GetContainedSingleTon(AService,'Stage', TPSStage));
  47051. end;
  47052. { --------------------------------------------------------------------
  47053. TPSQueueJob
  47054. --------------------------------------------------------------------}
  47055. Class Function TPSQueueJob.ObjectRestKind : String;
  47056. begin
  47057. Result:='QueueJob';
  47058. end;
  47059. Procedure TPSQueueJob.SetId(AIndex: Integer; const AValue: TGUIDString);
  47060. begin
  47061. If (FId=AValue) then exit;
  47062. FId:=AValue;
  47063. MarkPropertyChanged(AIndex);
  47064. end;
  47065. Procedure TPSQueueJob.SetJobState(AIndex: Integer; const AValue: TInt32);
  47066. begin
  47067. If (FJobState=AValue) then exit;
  47068. FJobState:=AValue;
  47069. MarkPropertyChanged(AIndex);
  47070. end;
  47071. Procedure TPSQueueJob.SetMessageType(AIndex: Integer; const AValue: TInt32);
  47072. begin
  47073. If (FMessageType=AValue) then exit;
  47074. FMessageType:=AValue;
  47075. MarkPropertyChanged(AIndex);
  47076. end;
  47077. Procedure TPSQueueJob.SetPercentComplete(AIndex: Integer; const AValue: TInt32);
  47078. begin
  47079. If (FPercentComplete=AValue) then exit;
  47080. FPercentComplete:=AValue;
  47081. MarkPropertyChanged(AIndex);
  47082. end;
  47083. Procedure TPSQueueJob.SetWaitMilliseconds(AIndex: Integer; const AValue: TInt32);
  47084. begin
  47085. If (FWaitMilliseconds=AValue) then exit;
  47086. FWaitMilliseconds:=AValue;
  47087. MarkPropertyChanged(AIndex);
  47088. end;
  47089. Procedure TPSQueueJob.SetWaitTime(AIndex: Integer; const AValue: TTime);
  47090. begin
  47091. If (FWaitTime=AValue) then exit;
  47092. FWaitTime:=AValue;
  47093. MarkPropertyChanged(AIndex);
  47094. end;
  47095. Function TPSQueueJob.KeyAsURLPart : string;
  47096. begin
  47097. Result:=TODataObject.MakeKeyString(Id);
  47098. end;
  47099. Function TPSQueueJob.Project(AService: TODataService) : TPSProject;
  47100. begin
  47101. Result:=TPSProject(GetContainedSingleTon(AService,'Project', TPSProject));
  47102. end;
  47103. Function TPSQueueJob.Submitter(AService: TODataService) : TSPUser;
  47104. begin
  47105. Result:=TSPUser(GetContainedSingleTon(AService,'Submitter', TSPUser));
  47106. end;
  47107. { --------------------------------------------------------------------
  47108. TPSPublishedProject
  47109. --------------------------------------------------------------------}
  47110. Class Function TPSPublishedProject.ObjectRestKind : String;
  47111. begin
  47112. Result:='PublishedProject';
  47113. end;
  47114. Procedure TPSPublishedProject.SetCalculateActualCosts(AIndex: Integer; const AValue: boolean);
  47115. begin
  47116. If (FCalculateActualCosts=AValue) then exit;
  47117. FCalculateActualCosts:=AValue;
  47118. MarkPropertyChanged(AIndex);
  47119. end;
  47120. Procedure TPSPublishedProject.SetCalculatesActualCosts(AIndex: Integer; const AValue: boolean);
  47121. begin
  47122. If (FCalculatesActualCosts=AValue) then exit;
  47123. FCalculatesActualCosts:=AValue;
  47124. MarkPropertyChanged(AIndex);
  47125. end;
  47126. Procedure TPSPublishedProject.SetCriticalSlackLimit(AIndex: Integer; const AValue: TInt32);
  47127. begin
  47128. If (FCriticalSlackLimit=AValue) then exit;
  47129. FCriticalSlackLimit:=AValue;
  47130. MarkPropertyChanged(AIndex);
  47131. end;
  47132. Procedure TPSPublishedProject.SetCurrencyCode(AIndex: Integer; const AValue: string);
  47133. begin
  47134. If (FCurrencyCode=AValue) then exit;
  47135. FCurrencyCode:=AValue;
  47136. MarkPropertyChanged(AIndex);
  47137. end;
  47138. Procedure TPSPublishedProject.SetCurrencyDigits(AIndex: Integer; const AValue: TInt32);
  47139. begin
  47140. If (FCurrencyDigits=AValue) then exit;
  47141. FCurrencyDigits:=AValue;
  47142. MarkPropertyChanged(AIndex);
  47143. end;
  47144. Procedure TPSPublishedProject.SetCurrencyPosition(AIndex: Integer; const AValue: TInt32);
  47145. begin
  47146. If (FCurrencyPosition=AValue) then exit;
  47147. FCurrencyPosition:=AValue;
  47148. MarkPropertyChanged(AIndex);
  47149. end;
  47150. Procedure TPSPublishedProject.SetCurrencySymbol(AIndex: Integer; const AValue: string);
  47151. begin
  47152. If (FCurrencySymbol=AValue) then exit;
  47153. FCurrencySymbol:=AValue;
  47154. MarkPropertyChanged(AIndex);
  47155. end;
  47156. Procedure TPSPublishedProject.SetCurrentDate(AIndex: Integer; const AValue: TDateTime);
  47157. begin
  47158. If (FCurrentDate=AValue) then exit;
  47159. FCurrentDate:=AValue;
  47160. MarkPropertyChanged(AIndex);
  47161. end;
  47162. Procedure TPSPublishedProject.SetDaysPerMonth(AIndex: Integer; const AValue: TInt16);
  47163. begin
  47164. If (FDaysPerMonth=AValue) then exit;
  47165. FDaysPerMonth:=AValue;
  47166. MarkPropertyChanged(AIndex);
  47167. end;
  47168. Procedure TPSPublishedProject.SetDefaultEffortDriven(AIndex: Integer; const AValue: boolean);
  47169. begin
  47170. If (FDefaultEffortDriven=AValue) then exit;
  47171. FDefaultEffortDriven:=AValue;
  47172. MarkPropertyChanged(AIndex);
  47173. end;
  47174. Procedure TPSPublishedProject.SetDefaultEstimatedDuration(AIndex: Integer; const AValue: boolean);
  47175. begin
  47176. If (FDefaultEstimatedDuration=AValue) then exit;
  47177. FDefaultEstimatedDuration:=AValue;
  47178. MarkPropertyChanged(AIndex);
  47179. end;
  47180. Procedure TPSPublishedProject.SetDefaultFinishTime(AIndex: Integer; const AValue: TDateTime);
  47181. begin
  47182. If (FDefaultFinishTime=AValue) then exit;
  47183. FDefaultFinishTime:=AValue;
  47184. MarkPropertyChanged(AIndex);
  47185. end;
  47186. Procedure TPSPublishedProject.SetDefaultFixedCostAccrual(AIndex: Integer; const AValue: TInt32);
  47187. begin
  47188. If (FDefaultFixedCostAccrual=AValue) then exit;
  47189. FDefaultFixedCostAccrual:=AValue;
  47190. MarkPropertyChanged(AIndex);
  47191. end;
  47192. Procedure TPSPublishedProject.SetDefaultOvertimeRate(AIndex: Integer; const AValue: Double);
  47193. begin
  47194. If (FDefaultOvertimeRate=AValue) then exit;
  47195. FDefaultOvertimeRate:=AValue;
  47196. MarkPropertyChanged(AIndex);
  47197. end;
  47198. Procedure TPSPublishedProject.SetDefaultStandardRate(AIndex: Integer; const AValue: Double);
  47199. begin
  47200. If (FDefaultStandardRate=AValue) then exit;
  47201. FDefaultStandardRate:=AValue;
  47202. MarkPropertyChanged(AIndex);
  47203. end;
  47204. Procedure TPSPublishedProject.SetDefaultStartTime(AIndex: Integer; const AValue: TDateTime);
  47205. begin
  47206. If (FDefaultStartTime=AValue) then exit;
  47207. FDefaultStartTime:=AValue;
  47208. MarkPropertyChanged(AIndex);
  47209. end;
  47210. Procedure TPSPublishedProject.SetDefaultTaskType(AIndex: Integer; const AValue: TInt32);
  47211. begin
  47212. If (FDefaultTaskType=AValue) then exit;
  47213. FDefaultTaskType:=AValue;
  47214. MarkPropertyChanged(AIndex);
  47215. end;
  47216. Procedure TPSPublishedProject.SetDefaultWorkFormat(AIndex: Integer; const AValue: TInt32);
  47217. begin
  47218. If (FDefaultWorkFormat=AValue) then exit;
  47219. FDefaultWorkFormat:=AValue;
  47220. MarkPropertyChanged(AIndex);
  47221. end;
  47222. Procedure TPSPublishedProject.SetDescription(AIndex: Integer; const AValue: string);
  47223. begin
  47224. If (FDescription=AValue) then exit;
  47225. FDescription:=AValue;
  47226. MarkPropertyChanged(AIndex);
  47227. end;
  47228. Procedure TPSPublishedProject.SetEnterpriseProjectTypeId(AIndex: Integer; const AValue: TGUIDString);
  47229. begin
  47230. If (FEnterpriseProjectTypeId=AValue) then exit;
  47231. FEnterpriseProjectTypeId:=AValue;
  47232. MarkPropertyChanged(AIndex);
  47233. end;
  47234. Procedure TPSPublishedProject.SetFinishDate(AIndex: Integer; const AValue: TDateTime);
  47235. begin
  47236. If (FFinishDate=AValue) then exit;
  47237. FFinishDate:=AValue;
  47238. MarkPropertyChanged(AIndex);
  47239. end;
  47240. Procedure TPSPublishedProject.SetFiscalYearStartMonth(AIndex: Integer; const AValue: TInt16);
  47241. begin
  47242. If (FFiscalYearStartMonth=AValue) then exit;
  47243. FFiscalYearStartMonth:=AValue;
  47244. MarkPropertyChanged(AIndex);
  47245. end;
  47246. Procedure TPSPublishedProject.SetHonorConstraints(AIndex: Integer; const AValue: boolean);
  47247. begin
  47248. If (FHonorConstraints=AValue) then exit;
  47249. FHonorConstraints:=AValue;
  47250. MarkPropertyChanged(AIndex);
  47251. end;
  47252. Procedure TPSPublishedProject.SetIsEnterpriseProject(AIndex: Integer; const AValue: boolean);
  47253. begin
  47254. If (FIsEnterpriseProject=AValue) then exit;
  47255. FIsEnterpriseProject:=AValue;
  47256. MarkPropertyChanged(AIndex);
  47257. end;
  47258. Procedure TPSPublishedProject.SetMinutesPerDay(AIndex: Integer; const AValue: TInt32);
  47259. begin
  47260. If (FMinutesPerDay=AValue) then exit;
  47261. FMinutesPerDay:=AValue;
  47262. MarkPropertyChanged(AIndex);
  47263. end;
  47264. Procedure TPSPublishedProject.SetMinutesPerWeek(AIndex: Integer; const AValue: TInt32);
  47265. begin
  47266. If (FMinutesPerWeek=AValue) then exit;
  47267. FMinutesPerWeek:=AValue;
  47268. MarkPropertyChanged(AIndex);
  47269. end;
  47270. Procedure TPSPublishedProject.SetMoveActualIfLater(AIndex: Integer; const AValue: boolean);
  47271. begin
  47272. If (FMoveActualIfLater=AValue) then exit;
  47273. FMoveActualIfLater:=AValue;
  47274. MarkPropertyChanged(AIndex);
  47275. end;
  47276. Procedure TPSPublishedProject.SetMoveActualToStatus(AIndex: Integer; const AValue: boolean);
  47277. begin
  47278. If (FMoveActualToStatus=AValue) then exit;
  47279. FMoveActualToStatus:=AValue;
  47280. MarkPropertyChanged(AIndex);
  47281. end;
  47282. Procedure TPSPublishedProject.SetMoveRemainingIfEarlier(AIndex: Integer; const AValue: boolean);
  47283. begin
  47284. If (FMoveRemainingIfEarlier=AValue) then exit;
  47285. FMoveRemainingIfEarlier:=AValue;
  47286. MarkPropertyChanged(AIndex);
  47287. end;
  47288. Procedure TPSPublishedProject.SetMoveRemainingToStatus(AIndex: Integer; const AValue: boolean);
  47289. begin
  47290. If (FMoveRemainingToStatus=AValue) then exit;
  47291. FMoveRemainingToStatus:=AValue;
  47292. MarkPropertyChanged(AIndex);
  47293. end;
  47294. Procedure TPSPublishedProject.SetMultipleCriticalPaths(AIndex: Integer; const AValue: boolean);
  47295. begin
  47296. If (FMultipleCriticalPaths=AValue) then exit;
  47297. FMultipleCriticalPaths:=AValue;
  47298. MarkPropertyChanged(AIndex);
  47299. end;
  47300. Procedure TPSPublishedProject.SetName(AIndex: Integer; const AValue: string);
  47301. begin
  47302. If (FName=AValue) then exit;
  47303. FName:=AValue;
  47304. MarkPropertyChanged(AIndex);
  47305. end;
  47306. Procedure TPSPublishedProject.SetNewTasksAreManual(AIndex: Integer; const AValue: boolean);
  47307. begin
  47308. If (FNewTasksAreManual=AValue) then exit;
  47309. FNewTasksAreManual:=AValue;
  47310. MarkPropertyChanged(AIndex);
  47311. end;
  47312. Procedure TPSPublishedProject.SetNumberFiscalYearFromStart(AIndex: Integer; const AValue: boolean);
  47313. begin
  47314. If (FNumberFiscalYearFromStart=AValue) then exit;
  47315. FNumberFiscalYearFromStart:=AValue;
  47316. MarkPropertyChanged(AIndex);
  47317. end;
  47318. Procedure TPSPublishedProject.SetProtectedActualsSynch(AIndex: Integer; const AValue: boolean);
  47319. begin
  47320. If (FProtectedActualsSynch=AValue) then exit;
  47321. FProtectedActualsSynch:=AValue;
  47322. MarkPropertyChanged(AIndex);
  47323. end;
  47324. Procedure TPSPublishedProject.SetScheduledFromStart(AIndex: Integer; const AValue: boolean);
  47325. begin
  47326. If (FScheduledFromStart=AValue) then exit;
  47327. FScheduledFromStart:=AValue;
  47328. MarkPropertyChanged(AIndex);
  47329. end;
  47330. Procedure TPSPublishedProject.SetShowEstimatedDurations(AIndex: Integer; const AValue: boolean);
  47331. begin
  47332. If (FShowEstimatedDurations=AValue) then exit;
  47333. FShowEstimatedDurations:=AValue;
  47334. MarkPropertyChanged(AIndex);
  47335. end;
  47336. Procedure TPSPublishedProject.SetSplitInProgress(AIndex: Integer; const AValue: boolean);
  47337. begin
  47338. If (FSplitInProgress=AValue) then exit;
  47339. FSplitInProgress:=AValue;
  47340. MarkPropertyChanged(AIndex);
  47341. end;
  47342. Procedure TPSPublishedProject.SetSpreadActualCostsToStatus(AIndex: Integer; const AValue: boolean);
  47343. begin
  47344. If (FSpreadActualCostsToStatus=AValue) then exit;
  47345. FSpreadActualCostsToStatus:=AValue;
  47346. MarkPropertyChanged(AIndex);
  47347. end;
  47348. Procedure TPSPublishedProject.SetSpreadPercentCompleteToStatus(AIndex: Integer; const AValue: boolean);
  47349. begin
  47350. If (FSpreadPercentCompleteToStatus=AValue) then exit;
  47351. FSpreadPercentCompleteToStatus:=AValue;
  47352. MarkPropertyChanged(AIndex);
  47353. end;
  47354. Procedure TPSPublishedProject.SetStartDate(AIndex: Integer; const AValue: TDateTime);
  47355. begin
  47356. If (FStartDate=AValue) then exit;
  47357. FStartDate:=AValue;
  47358. MarkPropertyChanged(AIndex);
  47359. end;
  47360. Procedure TPSPublishedProject.SetStatusDate(AIndex: Integer; const AValue: TDateTime);
  47361. begin
  47362. If (FStatusDate=AValue) then exit;
  47363. FStatusDate:=AValue;
  47364. MarkPropertyChanged(AIndex);
  47365. end;
  47366. Procedure TPSPublishedProject.SetTrackingMode(AIndex: Integer; const AValue: TInt32);
  47367. begin
  47368. If (FTrackingMode=AValue) then exit;
  47369. FTrackingMode:=AValue;
  47370. MarkPropertyChanged(AIndex);
  47371. end;
  47372. Procedure TPSPublishedProject.SetWeekStartDay(AIndex: Integer; const AValue: TInt16);
  47373. begin
  47374. If (FWeekStartDay=AValue) then exit;
  47375. FWeekStartDay:=AValue;
  47376. MarkPropertyChanged(AIndex);
  47377. end;
  47378. Procedure TPSPublishedProject.SetWinprojVersion(AIndex: Integer; const AValue: double);
  47379. begin
  47380. If (FWinprojVersion=AValue) then exit;
  47381. FWinprojVersion:=AValue;
  47382. MarkPropertyChanged(AIndex);
  47383. end;
  47384. Function TPSPublishedProject.Assignments(AService: TODataService) : TPSPublishedAssignment;
  47385. begin
  47386. Result:=TPSPublishedAssignment(GetContainedSingleTon(AService,'Assignments', TPSPublishedAssignment));
  47387. end;
  47388. Function TPSPublishedProject.Calendar(AService: TODataService) : TPSCalendar;
  47389. begin
  47390. Result:=TPSCalendar(GetContainedSingleTon(AService,'Calendar', TPSCalendar));
  47391. end;
  47392. Function TPSPublishedProject.Draft(AService: TODataService) : TPSDraftProject;
  47393. begin
  47394. Result:=TPSDraftProject(GetContainedSingleTon(AService,'Draft', TPSDraftProject));
  47395. end;
  47396. Function TPSPublishedProject.IncludeCustomFields(AService: TODataService) : TPSPublishedProject;
  47397. begin
  47398. Result:=TPSPublishedProject(GetContainedSingleTon(AService,'IncludeCustomFields', TPSPublishedProject));
  47399. end;
  47400. Function TPSPublishedProject.Owner(AService: TODataService) : TSPUser;
  47401. begin
  47402. Result:=TSPUser(GetContainedSingleTon(AService,'Owner', TSPUser));
  47403. end;
  47404. Function TPSPublishedProject.ProjectResources(AService: TODataService) : TPSPublishedProjectResource;
  47405. begin
  47406. Result:=TPSPublishedProjectResource(GetContainedSingleTon(AService,'ProjectResources', TPSPublishedProjectResource));
  47407. end;
  47408. Function TPSPublishedProject.TaskLinks(AService: TODataService) : TPSPublishedTaskLink;
  47409. begin
  47410. Result:=TPSPublishedTaskLink(GetContainedSingleTon(AService,'TaskLinks', TPSPublishedTaskLink));
  47411. end;
  47412. Function TPSPublishedProject.Tasks(AService: TODataService) : TPSPublishedTask;
  47413. begin
  47414. Result:=TPSPublishedTask(GetContainedSingleTon(AService,'Tasks', TPSPublishedTask));
  47415. end;
  47416. { --------------------------------------------------------------------
  47417. TPSPublishedAssignment
  47418. --------------------------------------------------------------------}
  47419. Class Function TPSPublishedAssignment.ObjectRestKind : String;
  47420. begin
  47421. Result:='PublishedAssignment';
  47422. end;
  47423. Procedure TPSPublishedAssignment.SetActualCost(AIndex: Integer; const AValue: Double);
  47424. begin
  47425. If (FActualCost=AValue) then exit;
  47426. FActualCost:=AValue;
  47427. MarkPropertyChanged(AIndex);
  47428. end;
  47429. Procedure TPSPublishedAssignment.SetActualFinish(AIndex: Integer; const AValue: TDateTime);
  47430. begin
  47431. If (FActualFinish=AValue) then exit;
  47432. FActualFinish:=AValue;
  47433. MarkPropertyChanged(AIndex);
  47434. end;
  47435. Procedure TPSPublishedAssignment.SetActualOvertimeWork(AIndex: Integer; const AValue: string);
  47436. begin
  47437. If (FActualOvertimeWork=AValue) then exit;
  47438. FActualOvertimeWork:=AValue;
  47439. MarkPropertyChanged(AIndex);
  47440. end;
  47441. Procedure TPSPublishedAssignment.SetActualOvertimeWorkMilliseconds(AIndex: Integer; const AValue: TInt32);
  47442. begin
  47443. If (FActualOvertimeWorkMilliseconds=AValue) then exit;
  47444. FActualOvertimeWorkMilliseconds:=AValue;
  47445. MarkPropertyChanged(AIndex);
  47446. end;
  47447. Procedure TPSPublishedAssignment.SetActualOvertimeWorkTimeSpan(AIndex: Integer; const AValue: TTime);
  47448. begin
  47449. If (FActualOvertimeWorkTimeSpan=AValue) then exit;
  47450. FActualOvertimeWorkTimeSpan:=AValue;
  47451. MarkPropertyChanged(AIndex);
  47452. end;
  47453. Procedure TPSPublishedAssignment.SetActualStart(AIndex: Integer; const AValue: TDateTime);
  47454. begin
  47455. If (FActualStart=AValue) then exit;
  47456. FActualStart:=AValue;
  47457. MarkPropertyChanged(AIndex);
  47458. end;
  47459. Procedure TPSPublishedAssignment.SetActualWork(AIndex: Integer; const AValue: string);
  47460. begin
  47461. If (FActualWork=AValue) then exit;
  47462. FActualWork:=AValue;
  47463. MarkPropertyChanged(AIndex);
  47464. end;
  47465. Procedure TPSPublishedAssignment.SetActualWorkMilliseconds(AIndex: Integer; const AValue: TInt32);
  47466. begin
  47467. If (FActualWorkMilliseconds=AValue) then exit;
  47468. FActualWorkMilliseconds:=AValue;
  47469. MarkPropertyChanged(AIndex);
  47470. end;
  47471. Procedure TPSPublishedAssignment.SetActualWorkTimeSpan(AIndex: Integer; const AValue: TTime);
  47472. begin
  47473. If (FActualWorkTimeSpan=AValue) then exit;
  47474. FActualWorkTimeSpan:=AValue;
  47475. MarkPropertyChanged(AIndex);
  47476. end;
  47477. Procedure TPSPublishedAssignment.SetBudgetedCost(AIndex: Integer; const AValue: Double);
  47478. begin
  47479. If (FBudgetedCost=AValue) then exit;
  47480. FBudgetedCost:=AValue;
  47481. MarkPropertyChanged(AIndex);
  47482. end;
  47483. Procedure TPSPublishedAssignment.SetBudgetedWork(AIndex: Integer; const AValue: string);
  47484. begin
  47485. If (FBudgetedWork=AValue) then exit;
  47486. FBudgetedWork:=AValue;
  47487. MarkPropertyChanged(AIndex);
  47488. end;
  47489. Procedure TPSPublishedAssignment.SetBudgetedWorkMilliseconds(AIndex: Integer; const AValue: TInt32);
  47490. begin
  47491. If (FBudgetedWorkMilliseconds=AValue) then exit;
  47492. FBudgetedWorkMilliseconds:=AValue;
  47493. MarkPropertyChanged(AIndex);
  47494. end;
  47495. Procedure TPSPublishedAssignment.SetBudgetedWorkTimeSpan(AIndex: Integer; const AValue: TTime);
  47496. begin
  47497. If (FBudgetedWorkTimeSpan=AValue) then exit;
  47498. FBudgetedWorkTimeSpan:=AValue;
  47499. MarkPropertyChanged(AIndex);
  47500. end;
  47501. Procedure TPSPublishedAssignment.SetCost(AIndex: Integer; const AValue: Double);
  47502. begin
  47503. If (FCost=AValue) then exit;
  47504. FCost:=AValue;
  47505. MarkPropertyChanged(AIndex);
  47506. end;
  47507. Procedure TPSPublishedAssignment.SetDefaultBookingType(AIndex: Integer; const AValue: TInt32);
  47508. begin
  47509. If (FDefaultBookingType=AValue) then exit;
  47510. FDefaultBookingType:=AValue;
  47511. MarkPropertyChanged(AIndex);
  47512. end;
  47513. Procedure TPSPublishedAssignment.SetDelay(AIndex: Integer; const AValue: string);
  47514. begin
  47515. If (FDelay=AValue) then exit;
  47516. FDelay:=AValue;
  47517. MarkPropertyChanged(AIndex);
  47518. end;
  47519. Procedure TPSPublishedAssignment.SetDelayMilliseconds(AIndex: Integer; const AValue: TInt32);
  47520. begin
  47521. If (FDelayMilliseconds=AValue) then exit;
  47522. FDelayMilliseconds:=AValue;
  47523. MarkPropertyChanged(AIndex);
  47524. end;
  47525. Procedure TPSPublishedAssignment.SetDelayTimeSpan(AIndex: Integer; const AValue: TTime);
  47526. begin
  47527. If (FDelayTimeSpan=AValue) then exit;
  47528. FDelayTimeSpan:=AValue;
  47529. MarkPropertyChanged(AIndex);
  47530. end;
  47531. Procedure TPSPublishedAssignment.SetFinish(AIndex: Integer; const AValue: TDateTime);
  47532. begin
  47533. If (FFinish=AValue) then exit;
  47534. FFinish:=AValue;
  47535. MarkPropertyChanged(AIndex);
  47536. end;
  47537. Procedure TPSPublishedAssignment.SetIsLockedByManager(AIndex: Integer; const AValue: boolean);
  47538. begin
  47539. If (FIsLockedByManager=AValue) then exit;
  47540. FIsLockedByManager:=AValue;
  47541. MarkPropertyChanged(AIndex);
  47542. end;
  47543. Procedure TPSPublishedAssignment.SetIsWorkResource(AIndex: Integer; const AValue: boolean);
  47544. begin
  47545. If (FIsWorkResource=AValue) then exit;
  47546. FIsWorkResource:=AValue;
  47547. MarkPropertyChanged(AIndex);
  47548. end;
  47549. Procedure TPSPublishedAssignment.SetNotes(AIndex: Integer; const AValue: string);
  47550. begin
  47551. If (FNotes=AValue) then exit;
  47552. FNotes:=AValue;
  47553. MarkPropertyChanged(AIndex);
  47554. end;
  47555. Procedure TPSPublishedAssignment.SetOvertimeWork(AIndex: Integer; const AValue: string);
  47556. begin
  47557. If (FOvertimeWork=AValue) then exit;
  47558. FOvertimeWork:=AValue;
  47559. MarkPropertyChanged(AIndex);
  47560. end;
  47561. Procedure TPSPublishedAssignment.SetOvertimeWorkMilliseconds(AIndex: Integer; const AValue: TInt32);
  47562. begin
  47563. If (FOvertimeWorkMilliseconds=AValue) then exit;
  47564. FOvertimeWorkMilliseconds:=AValue;
  47565. MarkPropertyChanged(AIndex);
  47566. end;
  47567. Procedure TPSPublishedAssignment.SetOvertimeWorkTimeSpan(AIndex: Integer; const AValue: TTime);
  47568. begin
  47569. If (FOvertimeWorkTimeSpan=AValue) then exit;
  47570. FOvertimeWorkTimeSpan:=AValue;
  47571. MarkPropertyChanged(AIndex);
  47572. end;
  47573. Procedure TPSPublishedAssignment.SetPercentWorkComplete(AIndex: Integer; const AValue: TInt32);
  47574. begin
  47575. If (FPercentWorkComplete=AValue) then exit;
  47576. FPercentWorkComplete:=AValue;
  47577. MarkPropertyChanged(AIndex);
  47578. end;
  47579. Procedure TPSPublishedAssignment.SetRegularWork(AIndex: Integer; const AValue: string);
  47580. begin
  47581. If (FRegularWork=AValue) then exit;
  47582. FRegularWork:=AValue;
  47583. MarkPropertyChanged(AIndex);
  47584. end;
  47585. Procedure TPSPublishedAssignment.SetRegularWorkMilliseconds(AIndex: Integer; const AValue: TInt32);
  47586. begin
  47587. If (FRegularWorkMilliseconds=AValue) then exit;
  47588. FRegularWorkMilliseconds:=AValue;
  47589. MarkPropertyChanged(AIndex);
  47590. end;
  47591. Procedure TPSPublishedAssignment.SetRegularWorkTimeSpan(AIndex: Integer; const AValue: TTime);
  47592. begin
  47593. If (FRegularWorkTimeSpan=AValue) then exit;
  47594. FRegularWorkTimeSpan:=AValue;
  47595. MarkPropertyChanged(AIndex);
  47596. end;
  47597. Procedure TPSPublishedAssignment.SetRemainingOvertimeWork(AIndex: Integer; const AValue: string);
  47598. begin
  47599. If (FRemainingOvertimeWork=AValue) then exit;
  47600. FRemainingOvertimeWork:=AValue;
  47601. MarkPropertyChanged(AIndex);
  47602. end;
  47603. Procedure TPSPublishedAssignment.SetRemainingOvertimeWorkMilliseconds(AIndex: Integer; const AValue: TInt32);
  47604. begin
  47605. If (FRemainingOvertimeWorkMilliseconds=AValue) then exit;
  47606. FRemainingOvertimeWorkMilliseconds:=AValue;
  47607. MarkPropertyChanged(AIndex);
  47608. end;
  47609. Procedure TPSPublishedAssignment.SetRemainingOvertimeWorkTimeSpan(AIndex: Integer; const AValue: TTime);
  47610. begin
  47611. If (FRemainingOvertimeWorkTimeSpan=AValue) then exit;
  47612. FRemainingOvertimeWorkTimeSpan:=AValue;
  47613. MarkPropertyChanged(AIndex);
  47614. end;
  47615. Procedure TPSPublishedAssignment.SetRemainingWork(AIndex: Integer; const AValue: string);
  47616. begin
  47617. If (FRemainingWork=AValue) then exit;
  47618. FRemainingWork:=AValue;
  47619. MarkPropertyChanged(AIndex);
  47620. end;
  47621. Procedure TPSPublishedAssignment.SetRemainingWorkMilliseconds(AIndex: Integer; const AValue: TInt32);
  47622. begin
  47623. If (FRemainingWorkMilliseconds=AValue) then exit;
  47624. FRemainingWorkMilliseconds:=AValue;
  47625. MarkPropertyChanged(AIndex);
  47626. end;
  47627. Procedure TPSPublishedAssignment.SetRemainingWorkTimeSpan(AIndex: Integer; const AValue: TTime);
  47628. begin
  47629. If (FRemainingWorkTimeSpan=AValue) then exit;
  47630. FRemainingWorkTimeSpan:=AValue;
  47631. MarkPropertyChanged(AIndex);
  47632. end;
  47633. Procedure TPSPublishedAssignment.SetResourceCapacity(AIndex: Integer; const AValue: Double);
  47634. begin
  47635. If (FResourceCapacity=AValue) then exit;
  47636. FResourceCapacity:=AValue;
  47637. MarkPropertyChanged(AIndex);
  47638. end;
  47639. Procedure TPSPublishedAssignment.SetWork(AIndex: Integer; const AValue: string);
  47640. begin
  47641. If (FWork=AValue) then exit;
  47642. FWork:=AValue;
  47643. MarkPropertyChanged(AIndex);
  47644. end;
  47645. Procedure TPSPublishedAssignment.SetWorkMilliseconds(AIndex: Integer; const AValue: TInt32);
  47646. begin
  47647. If (FWorkMilliseconds=AValue) then exit;
  47648. FWorkMilliseconds:=AValue;
  47649. MarkPropertyChanged(AIndex);
  47650. end;
  47651. Procedure TPSPublishedAssignment.SetWorkTimeSpan(AIndex: Integer; const AValue: TTime);
  47652. begin
  47653. If (FWorkTimeSpan=AValue) then exit;
  47654. FWorkTimeSpan:=AValue;
  47655. MarkPropertyChanged(AIndex);
  47656. end;
  47657. Function TPSPublishedAssignment.Owner(AService: TODataService) : TSPUser;
  47658. begin
  47659. Result:=TSPUser(GetContainedSingleTon(AService,'Owner', TSPUser));
  47660. end;
  47661. Function TPSPublishedAssignment.Parent(AService: TODataService) : TPSPublishedAssignment;
  47662. begin
  47663. Result:=TPSPublishedAssignment(GetContainedSingleTon(AService,'Parent', TPSPublishedAssignment));
  47664. end;
  47665. Function TPSPublishedAssignment.Resource(AService: TODataService) : TPSPublishedProjectResource;
  47666. begin
  47667. Result:=TPSPublishedProjectResource(GetContainedSingleTon(AService,'Resource', TPSPublishedProjectResource));
  47668. end;
  47669. Function TPSPublishedAssignment.Task(AService: TODataService) : TPSPublishedTask;
  47670. begin
  47671. Result:=TPSPublishedTask(GetContainedSingleTon(AService,'Task', TPSPublishedTask));
  47672. end;
  47673. { --------------------------------------------------------------------
  47674. TPSPublishedProjectResource
  47675. --------------------------------------------------------------------}
  47676. Class Function TPSPublishedProjectResource.ObjectRestKind : String;
  47677. begin
  47678. Result:='PublishedProjectResource';
  47679. end;
  47680. Procedure TPSPublishedProjectResource.SetCanLevel(AIndex: Integer; const AValue: boolean);
  47681. begin
  47682. If (FCanLevel=AValue) then exit;
  47683. FCanLevel:=AValue;
  47684. MarkPropertyChanged(AIndex);
  47685. end;
  47686. Procedure TPSPublishedProjectResource.SetCode(AIndex: Integer; const AValue: string);
  47687. begin
  47688. If (FCode=AValue) then exit;
  47689. FCode:=AValue;
  47690. MarkPropertyChanged(AIndex);
  47691. end;
  47692. Procedure TPSPublishedProjectResource.SetCostAccrual(AIndex: Integer; const AValue: TInt32);
  47693. begin
  47694. If (FCostAccrual=AValue) then exit;
  47695. FCostAccrual:=AValue;
  47696. MarkPropertyChanged(AIndex);
  47697. end;
  47698. Procedure TPSPublishedProjectResource.SetCostCenter(AIndex: Integer; const AValue: string);
  47699. begin
  47700. If (FCostCenter=AValue) then exit;
  47701. FCostCenter:=AValue;
  47702. MarkPropertyChanged(AIndex);
  47703. end;
  47704. Procedure TPSPublishedProjectResource.SetCostPerUse(AIndex: Integer; const AValue: Double);
  47705. begin
  47706. If (FCostPerUse=AValue) then exit;
  47707. FCostPerUse:=AValue;
  47708. MarkPropertyChanged(AIndex);
  47709. end;
  47710. Procedure TPSPublishedProjectResource.SetDefaultBookingType(AIndex: Integer; const AValue: TInt32);
  47711. begin
  47712. If (FDefaultBookingType=AValue) then exit;
  47713. FDefaultBookingType:=AValue;
  47714. MarkPropertyChanged(AIndex);
  47715. end;
  47716. Procedure TPSPublishedProjectResource.SetEmail(AIndex: Integer; const AValue: string);
  47717. begin
  47718. If (FEmail=AValue) then exit;
  47719. FEmail:=AValue;
  47720. MarkPropertyChanged(AIndex);
  47721. end;
  47722. Procedure TPSPublishedProjectResource.SetGroup(AIndex: Integer; const AValue: string);
  47723. begin
  47724. If (FGroup=AValue) then exit;
  47725. FGroup:=AValue;
  47726. MarkPropertyChanged(AIndex);
  47727. end;
  47728. Procedure TPSPublishedProjectResource.SetInitials(AIndex: Integer; const AValue: string);
  47729. begin
  47730. If (FInitials=AValue) then exit;
  47731. FInitials:=AValue;
  47732. MarkPropertyChanged(AIndex);
  47733. end;
  47734. Procedure TPSPublishedProjectResource.SetMaterialLabel(AIndex: Integer; const AValue: string);
  47735. begin
  47736. If (FMaterialLabel=AValue) then exit;
  47737. FMaterialLabel:=AValue;
  47738. MarkPropertyChanged(AIndex);
  47739. end;
  47740. Procedure TPSPublishedProjectResource.SetMaximumCapacity(AIndex: Integer; const AValue: Double);
  47741. begin
  47742. If (FMaximumCapacity=AValue) then exit;
  47743. FMaximumCapacity:=AValue;
  47744. MarkPropertyChanged(AIndex);
  47745. end;
  47746. Procedure TPSPublishedProjectResource.SetName(AIndex: Integer; const AValue: string);
  47747. begin
  47748. If (FName=AValue) then exit;
  47749. FName:=AValue;
  47750. MarkPropertyChanged(AIndex);
  47751. end;
  47752. Procedure TPSPublishedProjectResource.SetOvertimeRate(AIndex: Integer; const AValue: Double);
  47753. begin
  47754. If (FOvertimeRate=AValue) then exit;
  47755. FOvertimeRate:=AValue;
  47756. MarkPropertyChanged(AIndex);
  47757. end;
  47758. Procedure TPSPublishedProjectResource.SetOvertimeRateUnits(AIndex: Integer; const AValue: TInt32);
  47759. begin
  47760. If (FOvertimeRateUnits=AValue) then exit;
  47761. FOvertimeRateUnits:=AValue;
  47762. MarkPropertyChanged(AIndex);
  47763. end;
  47764. Procedure TPSPublishedProjectResource.SetPhonetics(AIndex: Integer; const AValue: string);
  47765. begin
  47766. If (FPhonetics=AValue) then exit;
  47767. FPhonetics:=AValue;
  47768. MarkPropertyChanged(AIndex);
  47769. end;
  47770. Procedure TPSPublishedProjectResource.SetStandardRate(AIndex: Integer; const AValue: Double);
  47771. begin
  47772. If (FStandardRate=AValue) then exit;
  47773. FStandardRate:=AValue;
  47774. MarkPropertyChanged(AIndex);
  47775. end;
  47776. Procedure TPSPublishedProjectResource.SetStandardRateUnits(AIndex: Integer; const AValue: TInt32);
  47777. begin
  47778. If (FStandardRateUnits=AValue) then exit;
  47779. FStandardRateUnits:=AValue;
  47780. MarkPropertyChanged(AIndex);
  47781. end;
  47782. Function TPSPublishedProjectResource.Assignments(AService: TODataService) : TPSPublishedAssignment;
  47783. begin
  47784. Result:=TPSPublishedAssignment(GetContainedSingleTon(AService,'Assignments', TPSPublishedAssignment));
  47785. end;
  47786. Function TPSPublishedProjectResource.DefaultAssignmentOwner(AService: TODataService) : TSPUser;
  47787. begin
  47788. Result:=TSPUser(GetContainedSingleTon(AService,'DefaultAssignmentOwner', TSPUser));
  47789. end;
  47790. { --------------------------------------------------------------------
  47791. TPSTask
  47792. --------------------------------------------------------------------}
  47793. Class Function TPSTask.ObjectRestKind : String;
  47794. begin
  47795. Result:='Task';
  47796. end;
  47797. Procedure TPSTask.SetActualDuration(AIndex: Integer; const AValue: string);
  47798. begin
  47799. If (FActualDuration=AValue) then exit;
  47800. FActualDuration:=AValue;
  47801. MarkPropertyChanged(AIndex);
  47802. end;
  47803. Procedure TPSTask.SetActualDurationMilliseconds(AIndex: Integer; const AValue: TInt32);
  47804. begin
  47805. If (FActualDurationMilliseconds=AValue) then exit;
  47806. FActualDurationMilliseconds:=AValue;
  47807. MarkPropertyChanged(AIndex);
  47808. end;
  47809. Procedure TPSTask.SetActualDurationTimeSpan(AIndex: Integer; const AValue: TTime);
  47810. begin
  47811. If (FActualDurationTimeSpan=AValue) then exit;
  47812. FActualDurationTimeSpan:=AValue;
  47813. MarkPropertyChanged(AIndex);
  47814. end;
  47815. Procedure TPSTask.SetBaselineCost(AIndex: Integer; const AValue: Double);
  47816. begin
  47817. If (FBaselineCost=AValue) then exit;
  47818. FBaselineCost:=AValue;
  47819. MarkPropertyChanged(AIndex);
  47820. end;
  47821. Procedure TPSTask.SetBaselineDuration(AIndex: Integer; const AValue: string);
  47822. begin
  47823. If (FBaselineDuration=AValue) then exit;
  47824. FBaselineDuration:=AValue;
  47825. MarkPropertyChanged(AIndex);
  47826. end;
  47827. Procedure TPSTask.SetBaselineDurationMilliseconds(AIndex: Integer; const AValue: TInt32);
  47828. begin
  47829. If (FBaselineDurationMilliseconds=AValue) then exit;
  47830. FBaselineDurationMilliseconds:=AValue;
  47831. MarkPropertyChanged(AIndex);
  47832. end;
  47833. Procedure TPSTask.SetBaselineDurationTimeSpan(AIndex: Integer; const AValue: TTime);
  47834. begin
  47835. If (FBaselineDurationTimeSpan=AValue) then exit;
  47836. FBaselineDurationTimeSpan:=AValue;
  47837. MarkPropertyChanged(AIndex);
  47838. end;
  47839. Procedure TPSTask.SetBaselineFinish(AIndex: Integer; const AValue: TDateTime);
  47840. begin
  47841. If (FBaselineFinish=AValue) then exit;
  47842. FBaselineFinish:=AValue;
  47843. MarkPropertyChanged(AIndex);
  47844. end;
  47845. Procedure TPSTask.SetBaselineStart(AIndex: Integer; const AValue: TDateTime);
  47846. begin
  47847. If (FBaselineStart=AValue) then exit;
  47848. FBaselineStart:=AValue;
  47849. MarkPropertyChanged(AIndex);
  47850. end;
  47851. Procedure TPSTask.SetBaselineWork(AIndex: Integer; const AValue: string);
  47852. begin
  47853. If (FBaselineWork=AValue) then exit;
  47854. FBaselineWork:=AValue;
  47855. MarkPropertyChanged(AIndex);
  47856. end;
  47857. Procedure TPSTask.SetBaselineWorkMilliseconds(AIndex: Integer; const AValue: TInt32);
  47858. begin
  47859. If (FBaselineWorkMilliseconds=AValue) then exit;
  47860. FBaselineWorkMilliseconds:=AValue;
  47861. MarkPropertyChanged(AIndex);
  47862. end;
  47863. Procedure TPSTask.SetBaselineWorkTimeSpan(AIndex: Integer; const AValue: TTime);
  47864. begin
  47865. If (FBaselineWorkTimeSpan=AValue) then exit;
  47866. FBaselineWorkTimeSpan:=AValue;
  47867. MarkPropertyChanged(AIndex);
  47868. end;
  47869. Procedure TPSTask.SetBudgetCost(AIndex: Integer; const AValue: Double);
  47870. begin
  47871. If (FBudgetCost=AValue) then exit;
  47872. FBudgetCost:=AValue;
  47873. MarkPropertyChanged(AIndex);
  47874. end;
  47875. Procedure TPSTask.SetCostPerformanceIndex(AIndex: Integer; const AValue: Double);
  47876. begin
  47877. If (FCostPerformanceIndex=AValue) then exit;
  47878. FCostPerformanceIndex:=AValue;
  47879. MarkPropertyChanged(AIndex);
  47880. end;
  47881. Procedure TPSTask.SetCostVariance(AIndex: Integer; const AValue: Double);
  47882. begin
  47883. If (FCostVariance=AValue) then exit;
  47884. FCostVariance:=AValue;
  47885. MarkPropertyChanged(AIndex);
  47886. end;
  47887. Procedure TPSTask.SetCostVarianceAtCompletion(AIndex: Integer; const AValue: Double);
  47888. begin
  47889. If (FCostVarianceAtCompletion=AValue) then exit;
  47890. FCostVarianceAtCompletion:=AValue;
  47891. MarkPropertyChanged(AIndex);
  47892. end;
  47893. Procedure TPSTask.SetCostVariancePercentage(AIndex: Integer; const AValue: TInt32);
  47894. begin
  47895. If (FCostVariancePercentage=AValue) then exit;
  47896. FCostVariancePercentage:=AValue;
  47897. MarkPropertyChanged(AIndex);
  47898. end;
  47899. Procedure TPSTask.SetCreated(AIndex: Integer; const AValue: TDateTime);
  47900. begin
  47901. If (FCreated=AValue) then exit;
  47902. FCreated:=AValue;
  47903. MarkPropertyChanged(AIndex);
  47904. end;
  47905. Procedure TPSTask.SetDurationVariance(AIndex: Integer; const AValue: string);
  47906. begin
  47907. If (FDurationVariance=AValue) then exit;
  47908. FDurationVariance:=AValue;
  47909. MarkPropertyChanged(AIndex);
  47910. end;
  47911. Procedure TPSTask.SetDurationVarianceMilliseconds(AIndex: Integer; const AValue: TInt32);
  47912. begin
  47913. If (FDurationVarianceMilliseconds=AValue) then exit;
  47914. FDurationVarianceMilliseconds:=AValue;
  47915. MarkPropertyChanged(AIndex);
  47916. end;
  47917. Procedure TPSTask.SetDurationVarianceTimeSpan(AIndex: Integer; const AValue: TTime);
  47918. begin
  47919. If (FDurationVarianceTimeSpan=AValue) then exit;
  47920. FDurationVarianceTimeSpan:=AValue;
  47921. MarkPropertyChanged(AIndex);
  47922. end;
  47923. Procedure TPSTask.SetEarliestFinish(AIndex: Integer; const AValue: TDateTime);
  47924. begin
  47925. If (FEarliestFinish=AValue) then exit;
  47926. FEarliestFinish:=AValue;
  47927. MarkPropertyChanged(AIndex);
  47928. end;
  47929. Procedure TPSTask.SetEarliestStart(AIndex: Integer; const AValue: TDateTime);
  47930. begin
  47931. If (FEarliestStart=AValue) then exit;
  47932. FEarliestStart:=AValue;
  47933. MarkPropertyChanged(AIndex);
  47934. end;
  47935. Procedure TPSTask.SetEstimateAtCompletion(AIndex: Integer; const AValue: Double);
  47936. begin
  47937. If (FEstimateAtCompletion=AValue) then exit;
  47938. FEstimateAtCompletion:=AValue;
  47939. MarkPropertyChanged(AIndex);
  47940. end;
  47941. Procedure TPSTask.SetFinishSlack(AIndex: Integer; const AValue: string);
  47942. begin
  47943. If (FFinishSlack=AValue) then exit;
  47944. FFinishSlack:=AValue;
  47945. MarkPropertyChanged(AIndex);
  47946. end;
  47947. Procedure TPSTask.SetFinishSlackMilliseconds(AIndex: Integer; const AValue: TInt32);
  47948. begin
  47949. If (FFinishSlackMilliseconds=AValue) then exit;
  47950. FFinishSlackMilliseconds:=AValue;
  47951. MarkPropertyChanged(AIndex);
  47952. end;
  47953. Procedure TPSTask.SetFinishSlackTimeSpan(AIndex: Integer; const AValue: TTime);
  47954. begin
  47955. If (FFinishSlackTimeSpan=AValue) then exit;
  47956. FFinishSlackTimeSpan:=AValue;
  47957. MarkPropertyChanged(AIndex);
  47958. end;
  47959. Procedure TPSTask.SetFinishVariance(AIndex: Integer; const AValue: string);
  47960. begin
  47961. If (FFinishVariance=AValue) then exit;
  47962. FFinishVariance:=AValue;
  47963. MarkPropertyChanged(AIndex);
  47964. end;
  47965. Procedure TPSTask.SetFinishVarianceMilliseconds(AIndex: Integer; const AValue: TInt32);
  47966. begin
  47967. If (FFinishVarianceMilliseconds=AValue) then exit;
  47968. FFinishVarianceMilliseconds:=AValue;
  47969. MarkPropertyChanged(AIndex);
  47970. end;
  47971. Procedure TPSTask.SetFinishVarianceTimeSpan(AIndex: Integer; const AValue: TTime);
  47972. begin
  47973. If (FFinishVarianceTimeSpan=AValue) then exit;
  47974. FFinishVarianceTimeSpan:=AValue;
  47975. MarkPropertyChanged(AIndex);
  47976. end;
  47977. Procedure TPSTask.SetFreeSlack(AIndex: Integer; const AValue: string);
  47978. begin
  47979. If (FFreeSlack=AValue) then exit;
  47980. FFreeSlack:=AValue;
  47981. MarkPropertyChanged(AIndex);
  47982. end;
  47983. Procedure TPSTask.SetFreeSlackMilliseconds(AIndex: Integer; const AValue: TInt32);
  47984. begin
  47985. If (FFreeSlackMilliseconds=AValue) then exit;
  47986. FFreeSlackMilliseconds:=AValue;
  47987. MarkPropertyChanged(AIndex);
  47988. end;
  47989. Procedure TPSTask.SetFreeSlackTimeSpan(AIndex: Integer; const AValue: TTime);
  47990. begin
  47991. If (FFreeSlackTimeSpan=AValue) then exit;
  47992. FFreeSlackTimeSpan:=AValue;
  47993. MarkPropertyChanged(AIndex);
  47994. end;
  47995. Procedure TPSTask.SetId(AIndex: Integer; const AValue: TGUIDString);
  47996. begin
  47997. If (FId=AValue) then exit;
  47998. FId:=AValue;
  47999. MarkPropertyChanged(AIndex);
  48000. end;
  48001. Procedure TPSTask.SetIsCritical(AIndex: Integer; const AValue: boolean);
  48002. begin
  48003. If (FIsCritical=AValue) then exit;
  48004. FIsCritical:=AValue;
  48005. MarkPropertyChanged(AIndex);
  48006. end;
  48007. Procedure TPSTask.SetIsExternalTask(AIndex: Integer; const AValue: boolean);
  48008. begin
  48009. If (FIsExternalTask=AValue) then exit;
  48010. FIsExternalTask:=AValue;
  48011. MarkPropertyChanged(AIndex);
  48012. end;
  48013. Procedure TPSTask.SetIsOverAllocated(AIndex: Integer; const AValue: boolean);
  48014. begin
  48015. If (FIsOverAllocated=AValue) then exit;
  48016. FIsOverAllocated:=AValue;
  48017. MarkPropertyChanged(AIndex);
  48018. end;
  48019. Procedure TPSTask.SetIsRecurring(AIndex: Integer; const AValue: boolean);
  48020. begin
  48021. If (FIsRecurring=AValue) then exit;
  48022. FIsRecurring:=AValue;
  48023. MarkPropertyChanged(AIndex);
  48024. end;
  48025. Procedure TPSTask.SetIsRecurringSummary(AIndex: Integer; const AValue: boolean);
  48026. begin
  48027. If (FIsRecurringSummary=AValue) then exit;
  48028. FIsRecurringSummary:=AValue;
  48029. MarkPropertyChanged(AIndex);
  48030. end;
  48031. Procedure TPSTask.SetIsRolledUp(AIndex: Integer; const AValue: boolean);
  48032. begin
  48033. If (FIsRolledUp=AValue) then exit;
  48034. FIsRolledUp:=AValue;
  48035. MarkPropertyChanged(AIndex);
  48036. end;
  48037. Procedure TPSTask.SetIsSubProject(AIndex: Integer; const AValue: boolean);
  48038. begin
  48039. If (FIsSubProject=AValue) then exit;
  48040. FIsSubProject:=AValue;
  48041. MarkPropertyChanged(AIndex);
  48042. end;
  48043. Procedure TPSTask.SetIsSubProjectReadOnly(AIndex: Integer; const AValue: boolean);
  48044. begin
  48045. If (FIsSubProjectReadOnly=AValue) then exit;
  48046. FIsSubProjectReadOnly:=AValue;
  48047. MarkPropertyChanged(AIndex);
  48048. end;
  48049. Procedure TPSTask.SetIsSubProjectScheduledFromFinish(AIndex: Integer; const AValue: boolean);
  48050. begin
  48051. If (FIsSubProjectScheduledFromFinish=AValue) then exit;
  48052. FIsSubProjectScheduledFromFinish:=AValue;
  48053. MarkPropertyChanged(AIndex);
  48054. end;
  48055. Procedure TPSTask.SetIsSummary(AIndex: Integer; const AValue: boolean);
  48056. begin
  48057. If (FIsSummary=AValue) then exit;
  48058. FIsSummary:=AValue;
  48059. MarkPropertyChanged(AIndex);
  48060. end;
  48061. Procedure TPSTask.SetLatestFinish(AIndex: Integer; const AValue: TDateTime);
  48062. begin
  48063. If (FLatestFinish=AValue) then exit;
  48064. FLatestFinish:=AValue;
  48065. MarkPropertyChanged(AIndex);
  48066. end;
  48067. Procedure TPSTask.SetLatestStart(AIndex: Integer; const AValue: TDateTime);
  48068. begin
  48069. If (FLatestStart=AValue) then exit;
  48070. FLatestStart:=AValue;
  48071. MarkPropertyChanged(AIndex);
  48072. end;
  48073. Procedure TPSTask.SetModified(AIndex: Integer; const AValue: TDateTime);
  48074. begin
  48075. If (FModified=AValue) then exit;
  48076. FModified:=AValue;
  48077. MarkPropertyChanged(AIndex);
  48078. end;
  48079. Procedure TPSTask.SetNotes(AIndex: Integer; const AValue: string);
  48080. begin
  48081. If (FNotes=AValue) then exit;
  48082. FNotes:=AValue;
  48083. MarkPropertyChanged(AIndex);
  48084. end;
  48085. Procedure TPSTask.SetOutlinePosition(AIndex: Integer; const AValue: string);
  48086. begin
  48087. If (FOutlinePosition=AValue) then exit;
  48088. FOutlinePosition:=AValue;
  48089. MarkPropertyChanged(AIndex);
  48090. end;
  48091. Procedure TPSTask.SetOvertimeCost(AIndex: Integer; const AValue: Double);
  48092. begin
  48093. If (FOvertimeCost=AValue) then exit;
  48094. FOvertimeCost:=AValue;
  48095. MarkPropertyChanged(AIndex);
  48096. end;
  48097. Procedure TPSTask.SetOvertimeWork(AIndex: Integer; const AValue: string);
  48098. begin
  48099. If (FOvertimeWork=AValue) then exit;
  48100. FOvertimeWork:=AValue;
  48101. MarkPropertyChanged(AIndex);
  48102. end;
  48103. Procedure TPSTask.SetOvertimeWorkMilliseconds(AIndex: Integer; const AValue: TInt32);
  48104. begin
  48105. If (FOvertimeWorkMilliseconds=AValue) then exit;
  48106. FOvertimeWorkMilliseconds:=AValue;
  48107. MarkPropertyChanged(AIndex);
  48108. end;
  48109. Procedure TPSTask.SetOvertimeWorkTimeSpan(AIndex: Integer; const AValue: TTime);
  48110. begin
  48111. If (FOvertimeWorkTimeSpan=AValue) then exit;
  48112. FOvertimeWorkTimeSpan:=AValue;
  48113. MarkPropertyChanged(AIndex);
  48114. end;
  48115. Procedure TPSTask.SetPercentWorkComplete(AIndex: Integer; const AValue: TInt32);
  48116. begin
  48117. If (FPercentWorkComplete=AValue) then exit;
  48118. FPercentWorkComplete:=AValue;
  48119. MarkPropertyChanged(AIndex);
  48120. end;
  48121. Procedure TPSTask.SetPreLevelingFinish(AIndex: Integer; const AValue: TDateTime);
  48122. begin
  48123. If (FPreLevelingFinish=AValue) then exit;
  48124. FPreLevelingFinish:=AValue;
  48125. MarkPropertyChanged(AIndex);
  48126. end;
  48127. Procedure TPSTask.SetPreLevelingStart(AIndex: Integer; const AValue: TDateTime);
  48128. begin
  48129. If (FPreLevelingStart=AValue) then exit;
  48130. FPreLevelingStart:=AValue;
  48131. MarkPropertyChanged(AIndex);
  48132. end;
  48133. Procedure TPSTask.SetRegularWork(AIndex: Integer; const AValue: string);
  48134. begin
  48135. If (FRegularWork=AValue) then exit;
  48136. FRegularWork:=AValue;
  48137. MarkPropertyChanged(AIndex);
  48138. end;
  48139. Procedure TPSTask.SetRegularWorkMilliseconds(AIndex: Integer; const AValue: TInt32);
  48140. begin
  48141. If (FRegularWorkMilliseconds=AValue) then exit;
  48142. FRegularWorkMilliseconds:=AValue;
  48143. MarkPropertyChanged(AIndex);
  48144. end;
  48145. Procedure TPSTask.SetRegularWorkTimeSpan(AIndex: Integer; const AValue: TTime);
  48146. begin
  48147. If (FRegularWorkTimeSpan=AValue) then exit;
  48148. FRegularWorkTimeSpan:=AValue;
  48149. MarkPropertyChanged(AIndex);
  48150. end;
  48151. Procedure TPSTask.SetRemainingCost(AIndex: Integer; const AValue: Double);
  48152. begin
  48153. If (FRemainingCost=AValue) then exit;
  48154. FRemainingCost:=AValue;
  48155. MarkPropertyChanged(AIndex);
  48156. end;
  48157. Procedure TPSTask.SetRemainingOvertimeCost(AIndex: Integer; const AValue: Double);
  48158. begin
  48159. If (FRemainingOvertimeCost=AValue) then exit;
  48160. FRemainingOvertimeCost:=AValue;
  48161. MarkPropertyChanged(AIndex);
  48162. end;
  48163. Procedure TPSTask.SetRemainingOvertimeWork(AIndex: Integer; const AValue: string);
  48164. begin
  48165. If (FRemainingOvertimeWork=AValue) then exit;
  48166. FRemainingOvertimeWork:=AValue;
  48167. MarkPropertyChanged(AIndex);
  48168. end;
  48169. Procedure TPSTask.SetRemainingOvertimeWorkMilliseconds(AIndex: Integer; const AValue: TInt32);
  48170. begin
  48171. If (FRemainingOvertimeWorkMilliseconds=AValue) then exit;
  48172. FRemainingOvertimeWorkMilliseconds:=AValue;
  48173. MarkPropertyChanged(AIndex);
  48174. end;
  48175. Procedure TPSTask.SetRemainingOvertimeWorkTimeSpan(AIndex: Integer; const AValue: TTime);
  48176. begin
  48177. If (FRemainingOvertimeWorkTimeSpan=AValue) then exit;
  48178. FRemainingOvertimeWorkTimeSpan:=AValue;
  48179. MarkPropertyChanged(AIndex);
  48180. end;
  48181. Procedure TPSTask.SetRemainingWork(AIndex: Integer; const AValue: string);
  48182. begin
  48183. If (FRemainingWork=AValue) then exit;
  48184. FRemainingWork:=AValue;
  48185. MarkPropertyChanged(AIndex);
  48186. end;
  48187. Procedure TPSTask.SetRemainingWorkMilliseconds(AIndex: Integer; const AValue: TInt32);
  48188. begin
  48189. If (FRemainingWorkMilliseconds=AValue) then exit;
  48190. FRemainingWorkMilliseconds:=AValue;
  48191. MarkPropertyChanged(AIndex);
  48192. end;
  48193. Procedure TPSTask.SetRemainingWorkTimeSpan(AIndex: Integer; const AValue: TTime);
  48194. begin
  48195. If (FRemainingWorkTimeSpan=AValue) then exit;
  48196. FRemainingWorkTimeSpan:=AValue;
  48197. MarkPropertyChanged(AIndex);
  48198. end;
  48199. Procedure TPSTask.SetResume(AIndex: Integer; const AValue: TDateTime);
  48200. begin
  48201. If (FResume=AValue) then exit;
  48202. FResume:=AValue;
  48203. MarkPropertyChanged(AIndex);
  48204. end;
  48205. Procedure TPSTask.SetScheduleCostVariance(AIndex: Integer; const AValue: Double);
  48206. begin
  48207. If (FScheduleCostVariance=AValue) then exit;
  48208. FScheduleCostVariance:=AValue;
  48209. MarkPropertyChanged(AIndex);
  48210. end;
  48211. Procedure TPSTask.SetScheduledDuration(AIndex: Integer; const AValue: string);
  48212. begin
  48213. If (FScheduledDuration=AValue) then exit;
  48214. FScheduledDuration:=AValue;
  48215. MarkPropertyChanged(AIndex);
  48216. end;
  48217. Procedure TPSTask.SetScheduledDurationMilliseconds(AIndex: Integer; const AValue: TInt32);
  48218. begin
  48219. If (FScheduledDurationMilliseconds=AValue) then exit;
  48220. FScheduledDurationMilliseconds:=AValue;
  48221. MarkPropertyChanged(AIndex);
  48222. end;
  48223. Procedure TPSTask.SetScheduledDurationTimeSpan(AIndex: Integer; const AValue: TTime);
  48224. begin
  48225. If (FScheduledDurationTimeSpan=AValue) then exit;
  48226. FScheduledDurationTimeSpan:=AValue;
  48227. MarkPropertyChanged(AIndex);
  48228. end;
  48229. Procedure TPSTask.SetScheduledFinish(AIndex: Integer; const AValue: TDateTime);
  48230. begin
  48231. If (FScheduledFinish=AValue) then exit;
  48232. FScheduledFinish:=AValue;
  48233. MarkPropertyChanged(AIndex);
  48234. end;
  48235. Procedure TPSTask.SetScheduledStart(AIndex: Integer; const AValue: TDateTime);
  48236. begin
  48237. If (FScheduledStart=AValue) then exit;
  48238. FScheduledStart:=AValue;
  48239. MarkPropertyChanged(AIndex);
  48240. end;
  48241. Procedure TPSTask.SetSchedulePerformanceIndex(AIndex: Integer; const AValue: Double);
  48242. begin
  48243. If (FSchedulePerformanceIndex=AValue) then exit;
  48244. FSchedulePerformanceIndex:=AValue;
  48245. MarkPropertyChanged(AIndex);
  48246. end;
  48247. Procedure TPSTask.SetScheduleVariancePercentage(AIndex: Integer; const AValue: TInt32);
  48248. begin
  48249. If (FScheduleVariancePercentage=AValue) then exit;
  48250. FScheduleVariancePercentage:=AValue;
  48251. MarkPropertyChanged(AIndex);
  48252. end;
  48253. Procedure TPSTask.SetStartSlack(AIndex: Integer; const AValue: string);
  48254. begin
  48255. If (FStartSlack=AValue) then exit;
  48256. FStartSlack:=AValue;
  48257. MarkPropertyChanged(AIndex);
  48258. end;
  48259. Procedure TPSTask.SetStartSlackMilliseconds(AIndex: Integer; const AValue: TInt32);
  48260. begin
  48261. If (FStartSlackMilliseconds=AValue) then exit;
  48262. FStartSlackMilliseconds:=AValue;
  48263. MarkPropertyChanged(AIndex);
  48264. end;
  48265. Procedure TPSTask.SetStartSlackTimeSpan(AIndex: Integer; const AValue: TTime);
  48266. begin
  48267. If (FStartSlackTimeSpan=AValue) then exit;
  48268. FStartSlackTimeSpan:=AValue;
  48269. MarkPropertyChanged(AIndex);
  48270. end;
  48271. Procedure TPSTask.SetStartVariance(AIndex: Integer; const AValue: string);
  48272. begin
  48273. If (FStartVariance=AValue) then exit;
  48274. FStartVariance:=AValue;
  48275. MarkPropertyChanged(AIndex);
  48276. end;
  48277. Procedure TPSTask.SetStartVarianceMilliseconds(AIndex: Integer; const AValue: TInt32);
  48278. begin
  48279. If (FStartVarianceMilliseconds=AValue) then exit;
  48280. FStartVarianceMilliseconds:=AValue;
  48281. MarkPropertyChanged(AIndex);
  48282. end;
  48283. Procedure TPSTask.SetStartVarianceTimeSpan(AIndex: Integer; const AValue: TTime);
  48284. begin
  48285. If (FStartVarianceTimeSpan=AValue) then exit;
  48286. FStartVarianceTimeSpan:=AValue;
  48287. MarkPropertyChanged(AIndex);
  48288. end;
  48289. Procedure TPSTask.SetStop(AIndex: Integer; const AValue: TDateTime);
  48290. begin
  48291. If (FStop=AValue) then exit;
  48292. FStop:=AValue;
  48293. MarkPropertyChanged(AIndex);
  48294. end;
  48295. Procedure TPSTask.SetToCompletePerformanceIndex(AIndex: Integer; const AValue: Double);
  48296. begin
  48297. If (FToCompletePerformanceIndex=AValue) then exit;
  48298. FToCompletePerformanceIndex:=AValue;
  48299. MarkPropertyChanged(AIndex);
  48300. end;
  48301. Procedure TPSTask.SetTotalSlack(AIndex: Integer; const AValue: string);
  48302. begin
  48303. If (FTotalSlack=AValue) then exit;
  48304. FTotalSlack:=AValue;
  48305. MarkPropertyChanged(AIndex);
  48306. end;
  48307. Procedure TPSTask.SetTotalSlackMilliseconds(AIndex: Integer; const AValue: TInt32);
  48308. begin
  48309. If (FTotalSlackMilliseconds=AValue) then exit;
  48310. FTotalSlackMilliseconds:=AValue;
  48311. MarkPropertyChanged(AIndex);
  48312. end;
  48313. Procedure TPSTask.SetTotalSlackTimeSpan(AIndex: Integer; const AValue: TTime);
  48314. begin
  48315. If (FTotalSlackTimeSpan=AValue) then exit;
  48316. FTotalSlackTimeSpan:=AValue;
  48317. MarkPropertyChanged(AIndex);
  48318. end;
  48319. Procedure TPSTask.SetWorkBreakdownStructure(AIndex: Integer; const AValue: string);
  48320. begin
  48321. If (FWorkBreakdownStructure=AValue) then exit;
  48322. FWorkBreakdownStructure:=AValue;
  48323. MarkPropertyChanged(AIndex);
  48324. end;
  48325. Procedure TPSTask.SetWorkVariance(AIndex: Integer; const AValue: string);
  48326. begin
  48327. If (FWorkVariance=AValue) then exit;
  48328. FWorkVariance:=AValue;
  48329. MarkPropertyChanged(AIndex);
  48330. end;
  48331. Procedure TPSTask.SetWorkVarianceMilliseconds(AIndex: Integer; const AValue: TInt32);
  48332. begin
  48333. If (FWorkVarianceMilliseconds=AValue) then exit;
  48334. FWorkVarianceMilliseconds:=AValue;
  48335. MarkPropertyChanged(AIndex);
  48336. end;
  48337. Procedure TPSTask.SetWorkVarianceTimeSpan(AIndex: Integer; const AValue: TTime);
  48338. begin
  48339. If (FWorkVarianceTimeSpan=AValue) then exit;
  48340. FWorkVarianceTimeSpan:=AValue;
  48341. MarkPropertyChanged(AIndex);
  48342. end;
  48343. Function TPSTask.KeyAsURLPart : string;
  48344. begin
  48345. Result:=TODataObject.MakeKeyString(Id);
  48346. end;
  48347. Function TPSTask.CustomFields(AService: TODataService) : TPSCustomField;
  48348. begin
  48349. Result:=TPSCustomField(GetContainedSingleTon(AService,'CustomFields', TPSCustomField));
  48350. end;
  48351. Function TPSTask.SubProject(AService: TODataService) : TPSPublishedProject;
  48352. begin
  48353. Result:=TPSPublishedProject(GetContainedSingleTon(AService,'SubProject', TPSPublishedProject));
  48354. end;
  48355. { --------------------------------------------------------------------
  48356. TPSPublishedTask
  48357. --------------------------------------------------------------------}
  48358. Class Function TPSPublishedTask.ObjectRestKind : String;
  48359. begin
  48360. Result:='PublishedTask';
  48361. end;
  48362. Procedure TPSPublishedTask.SetActualCost(AIndex: Integer; const AValue: Double);
  48363. begin
  48364. If (FActualCost=AValue) then exit;
  48365. FActualCost:=AValue;
  48366. MarkPropertyChanged(AIndex);
  48367. end;
  48368. Procedure TPSPublishedTask.SetActualCostWorkPerformed(AIndex: Integer; const AValue: Double);
  48369. begin
  48370. If (FActualCostWorkPerformed=AValue) then exit;
  48371. FActualCostWorkPerformed:=AValue;
  48372. MarkPropertyChanged(AIndex);
  48373. end;
  48374. Procedure TPSPublishedTask.SetActualFinish(AIndex: Integer; const AValue: TDateTime);
  48375. begin
  48376. If (FActualFinish=AValue) then exit;
  48377. FActualFinish:=AValue;
  48378. MarkPropertyChanged(AIndex);
  48379. end;
  48380. Procedure TPSPublishedTask.SetActualOvertimeCost(AIndex: Integer; const AValue: Double);
  48381. begin
  48382. If (FActualOvertimeCost=AValue) then exit;
  48383. FActualOvertimeCost:=AValue;
  48384. MarkPropertyChanged(AIndex);
  48385. end;
  48386. Procedure TPSPublishedTask.SetActualOvertimeWork(AIndex: Integer; const AValue: string);
  48387. begin
  48388. If (FActualOvertimeWork=AValue) then exit;
  48389. FActualOvertimeWork:=AValue;
  48390. MarkPropertyChanged(AIndex);
  48391. end;
  48392. Procedure TPSPublishedTask.SetActualOvertimeWorkMilliseconds(AIndex: Integer; const AValue: TInt32);
  48393. begin
  48394. If (FActualOvertimeWorkMilliseconds=AValue) then exit;
  48395. FActualOvertimeWorkMilliseconds:=AValue;
  48396. MarkPropertyChanged(AIndex);
  48397. end;
  48398. Procedure TPSPublishedTask.SetActualOvertimeWorkTimeSpan(AIndex: Integer; const AValue: TTime);
  48399. begin
  48400. If (FActualOvertimeWorkTimeSpan=AValue) then exit;
  48401. FActualOvertimeWorkTimeSpan:=AValue;
  48402. MarkPropertyChanged(AIndex);
  48403. end;
  48404. Procedure TPSPublishedTask.SetActualStart(AIndex: Integer; const AValue: TDateTime);
  48405. begin
  48406. If (FActualStart=AValue) then exit;
  48407. FActualStart:=AValue;
  48408. MarkPropertyChanged(AIndex);
  48409. end;
  48410. Procedure TPSPublishedTask.SetActualWork(AIndex: Integer; const AValue: string);
  48411. begin
  48412. If (FActualWork=AValue) then exit;
  48413. FActualWork:=AValue;
  48414. MarkPropertyChanged(AIndex);
  48415. end;
  48416. Procedure TPSPublishedTask.SetActualWorkMilliseconds(AIndex: Integer; const AValue: TInt32);
  48417. begin
  48418. If (FActualWorkMilliseconds=AValue) then exit;
  48419. FActualWorkMilliseconds:=AValue;
  48420. MarkPropertyChanged(AIndex);
  48421. end;
  48422. Procedure TPSPublishedTask.SetActualWorkTimeSpan(AIndex: Integer; const AValue: TTime);
  48423. begin
  48424. If (FActualWorkTimeSpan=AValue) then exit;
  48425. FActualWorkTimeSpan:=AValue;
  48426. MarkPropertyChanged(AIndex);
  48427. end;
  48428. Procedure TPSPublishedTask.SetBudgetedCostWorkPerformed(AIndex: Integer; const AValue: Double);
  48429. begin
  48430. If (FBudgetedCostWorkPerformed=AValue) then exit;
  48431. FBudgetedCostWorkPerformed:=AValue;
  48432. MarkPropertyChanged(AIndex);
  48433. end;
  48434. Procedure TPSPublishedTask.SetBudgetedCostWorkScheduled(AIndex: Integer; const AValue: Double);
  48435. begin
  48436. If (FBudgetedCostWorkScheduled=AValue) then exit;
  48437. FBudgetedCostWorkScheduled:=AValue;
  48438. MarkPropertyChanged(AIndex);
  48439. end;
  48440. Procedure TPSPublishedTask.SetBudgetWork(AIndex: Integer; const AValue: string);
  48441. begin
  48442. If (FBudgetWork=AValue) then exit;
  48443. FBudgetWork:=AValue;
  48444. MarkPropertyChanged(AIndex);
  48445. end;
  48446. Procedure TPSPublishedTask.SetBudgetWorkMilliseconds(AIndex: Integer; const AValue: TInt32);
  48447. begin
  48448. If (FBudgetWorkMilliseconds=AValue) then exit;
  48449. FBudgetWorkMilliseconds:=AValue;
  48450. MarkPropertyChanged(AIndex);
  48451. end;
  48452. Procedure TPSPublishedTask.SetBudgetWorkTimeSpan(AIndex: Integer; const AValue: TTime);
  48453. begin
  48454. If (FBudgetWorkTimeSpan=AValue) then exit;
  48455. FBudgetWorkTimeSpan:=AValue;
  48456. MarkPropertyChanged(AIndex);
  48457. end;
  48458. Procedure TPSPublishedTask.SetCompletion(AIndex: Integer; const AValue: TDateTime);
  48459. begin
  48460. If (FCompletion=AValue) then exit;
  48461. FCompletion:=AValue;
  48462. MarkPropertyChanged(AIndex);
  48463. end;
  48464. Procedure TPSPublishedTask.SetConstraintStartEnd(AIndex: Integer; const AValue: TDateTime);
  48465. begin
  48466. If (FConstraintStartEnd=AValue) then exit;
  48467. FConstraintStartEnd:=AValue;
  48468. MarkPropertyChanged(AIndex);
  48469. end;
  48470. Procedure TPSPublishedTask.SetConstraintType(AIndex: Integer; const AValue: TInt32);
  48471. begin
  48472. If (FConstraintType=AValue) then exit;
  48473. FConstraintType:=AValue;
  48474. MarkPropertyChanged(AIndex);
  48475. end;
  48476. Procedure TPSPublishedTask.SetContact(AIndex: Integer; const AValue: string);
  48477. begin
  48478. If (FContact=AValue) then exit;
  48479. FContact:=AValue;
  48480. MarkPropertyChanged(AIndex);
  48481. end;
  48482. Procedure TPSPublishedTask.SetCost(AIndex: Integer; const AValue: Double);
  48483. begin
  48484. If (FCost=AValue) then exit;
  48485. FCost:=AValue;
  48486. MarkPropertyChanged(AIndex);
  48487. end;
  48488. Procedure TPSPublishedTask.SetDeadline(AIndex: Integer; const AValue: TDateTime);
  48489. begin
  48490. If (FDeadline=AValue) then exit;
  48491. FDeadline:=AValue;
  48492. MarkPropertyChanged(AIndex);
  48493. end;
  48494. Procedure TPSPublishedTask.SetDuration(AIndex: Integer; const AValue: string);
  48495. begin
  48496. If (FDuration=AValue) then exit;
  48497. FDuration:=AValue;
  48498. MarkPropertyChanged(AIndex);
  48499. end;
  48500. Procedure TPSPublishedTask.SetDurationMilliseconds(AIndex: Integer; const AValue: TInt32);
  48501. begin
  48502. If (FDurationMilliseconds=AValue) then exit;
  48503. FDurationMilliseconds:=AValue;
  48504. MarkPropertyChanged(AIndex);
  48505. end;
  48506. Procedure TPSPublishedTask.SetDurationTimeSpan(AIndex: Integer; const AValue: TTime);
  48507. begin
  48508. If (FDurationTimeSpan=AValue) then exit;
  48509. FDurationTimeSpan:=AValue;
  48510. MarkPropertyChanged(AIndex);
  48511. end;
  48512. Procedure TPSPublishedTask.SetFinish(AIndex: Integer; const AValue: TDateTime);
  48513. begin
  48514. If (FFinish=AValue) then exit;
  48515. FFinish:=AValue;
  48516. MarkPropertyChanged(AIndex);
  48517. end;
  48518. Procedure TPSPublishedTask.SetFixedCost(AIndex: Integer; const AValue: Double);
  48519. begin
  48520. If (FFixedCost=AValue) then exit;
  48521. FFixedCost:=AValue;
  48522. MarkPropertyChanged(AIndex);
  48523. end;
  48524. Procedure TPSPublishedTask.SetFixedCostAccrual(AIndex: Integer; const AValue: TInt32);
  48525. begin
  48526. If (FFixedCostAccrual=AValue) then exit;
  48527. FFixedCostAccrual:=AValue;
  48528. MarkPropertyChanged(AIndex);
  48529. end;
  48530. Procedure TPSPublishedTask.SetIsActive(AIndex: Integer; const AValue: boolean);
  48531. begin
  48532. If (FIsActive=AValue) then exit;
  48533. FIsActive:=AValue;
  48534. MarkPropertyChanged(AIndex);
  48535. end;
  48536. Procedure TPSPublishedTask.SetIsEffortDriven(AIndex: Integer; const AValue: boolean);
  48537. begin
  48538. If (FIsEffortDriven=AValue) then exit;
  48539. FIsEffortDriven:=AValue;
  48540. MarkPropertyChanged(AIndex);
  48541. end;
  48542. Procedure TPSPublishedTask.SetIsLockedByManager(AIndex: Integer; const AValue: boolean);
  48543. begin
  48544. If (FIsLockedByManager=AValue) then exit;
  48545. FIsLockedByManager:=AValue;
  48546. MarkPropertyChanged(AIndex);
  48547. end;
  48548. Procedure TPSPublishedTask.SetIsManual(AIndex: Integer; const AValue: boolean);
  48549. begin
  48550. If (FIsManual=AValue) then exit;
  48551. FIsManual:=AValue;
  48552. MarkPropertyChanged(AIndex);
  48553. end;
  48554. Procedure TPSPublishedTask.SetIsMarked(AIndex: Integer; const AValue: boolean);
  48555. begin
  48556. If (FIsMarked=AValue) then exit;
  48557. FIsMarked:=AValue;
  48558. MarkPropertyChanged(AIndex);
  48559. end;
  48560. Procedure TPSPublishedTask.SetIsMilestone(AIndex: Integer; const AValue: boolean);
  48561. begin
  48562. If (FIsMilestone=AValue) then exit;
  48563. FIsMilestone:=AValue;
  48564. MarkPropertyChanged(AIndex);
  48565. end;
  48566. Procedure TPSPublishedTask.SetLevelingAdjustsAssignments(AIndex: Integer; const AValue: boolean);
  48567. begin
  48568. If (FLevelingAdjustsAssignments=AValue) then exit;
  48569. FLevelingAdjustsAssignments:=AValue;
  48570. MarkPropertyChanged(AIndex);
  48571. end;
  48572. Procedure TPSPublishedTask.SetLevelingCanSplit(AIndex: Integer; const AValue: boolean);
  48573. begin
  48574. If (FLevelingCanSplit=AValue) then exit;
  48575. FLevelingCanSplit:=AValue;
  48576. MarkPropertyChanged(AIndex);
  48577. end;
  48578. Procedure TPSPublishedTask.SetLevelingDelay(AIndex: Integer; const AValue: string);
  48579. begin
  48580. If (FLevelingDelay=AValue) then exit;
  48581. FLevelingDelay:=AValue;
  48582. MarkPropertyChanged(AIndex);
  48583. end;
  48584. Procedure TPSPublishedTask.SetLevelingDelayMilliseconds(AIndex: Integer; const AValue: TInt32);
  48585. begin
  48586. If (FLevelingDelayMilliseconds=AValue) then exit;
  48587. FLevelingDelayMilliseconds:=AValue;
  48588. MarkPropertyChanged(AIndex);
  48589. end;
  48590. Procedure TPSPublishedTask.SetLevelingDelayTimeSpan(AIndex: Integer; const AValue: TTime);
  48591. begin
  48592. If (FLevelingDelayTimeSpan=AValue) then exit;
  48593. FLevelingDelayTimeSpan:=AValue;
  48594. MarkPropertyChanged(AIndex);
  48595. end;
  48596. Procedure TPSPublishedTask.SetName(AIndex: Integer; const AValue: string);
  48597. begin
  48598. If (FName=AValue) then exit;
  48599. FName:=AValue;
  48600. MarkPropertyChanged(AIndex);
  48601. end;
  48602. Procedure TPSPublishedTask.SetOutlineLevel(AIndex: Integer; const AValue: TInt32);
  48603. begin
  48604. If (FOutlineLevel=AValue) then exit;
  48605. FOutlineLevel:=AValue;
  48606. MarkPropertyChanged(AIndex);
  48607. end;
  48608. Procedure TPSPublishedTask.SetPercentComplete(AIndex: Integer; const AValue: TInt32);
  48609. begin
  48610. If (FPercentComplete=AValue) then exit;
  48611. FPercentComplete:=AValue;
  48612. MarkPropertyChanged(AIndex);
  48613. end;
  48614. Procedure TPSPublishedTask.SetPercentPhysicalWorkComplete(AIndex: Integer; const AValue: TInt32);
  48615. begin
  48616. If (FPercentPhysicalWorkComplete=AValue) then exit;
  48617. FPercentPhysicalWorkComplete:=AValue;
  48618. MarkPropertyChanged(AIndex);
  48619. end;
  48620. Procedure TPSPublishedTask.SetPriority(AIndex: Integer; const AValue: TInt32);
  48621. begin
  48622. If (FPriority=AValue) then exit;
  48623. FPriority:=AValue;
  48624. MarkPropertyChanged(AIndex);
  48625. end;
  48626. Procedure TPSPublishedTask.SetRemainingDuration(AIndex: Integer; const AValue: string);
  48627. begin
  48628. If (FRemainingDuration=AValue) then exit;
  48629. FRemainingDuration:=AValue;
  48630. MarkPropertyChanged(AIndex);
  48631. end;
  48632. Procedure TPSPublishedTask.SetRemainingDurationMilliseconds(AIndex: Integer; const AValue: TInt32);
  48633. begin
  48634. If (FRemainingDurationMilliseconds=AValue) then exit;
  48635. FRemainingDurationMilliseconds:=AValue;
  48636. MarkPropertyChanged(AIndex);
  48637. end;
  48638. Procedure TPSPublishedTask.SetRemainingDurationTimeSpan(AIndex: Integer; const AValue: TTime);
  48639. begin
  48640. If (FRemainingDurationTimeSpan=AValue) then exit;
  48641. FRemainingDurationTimeSpan:=AValue;
  48642. MarkPropertyChanged(AIndex);
  48643. end;
  48644. Procedure TPSPublishedTask.SetStart(AIndex: Integer; const AValue: TDateTime);
  48645. begin
  48646. If (FStart=AValue) then exit;
  48647. FStart:=AValue;
  48648. MarkPropertyChanged(AIndex);
  48649. end;
  48650. Procedure TPSPublishedTask.SetTaskType(AIndex: Integer; const AValue: TInt32);
  48651. begin
  48652. If (FTaskType=AValue) then exit;
  48653. FTaskType:=AValue;
  48654. MarkPropertyChanged(AIndex);
  48655. end;
  48656. Procedure TPSPublishedTask.SetUsePercentPhysicalWorkComplete(AIndex: Integer; const AValue: boolean);
  48657. begin
  48658. If (FUsePercentPhysicalWorkComplete=AValue) then exit;
  48659. FUsePercentPhysicalWorkComplete:=AValue;
  48660. MarkPropertyChanged(AIndex);
  48661. end;
  48662. Procedure TPSPublishedTask.SetWork(AIndex: Integer; const AValue: string);
  48663. begin
  48664. If (FWork=AValue) then exit;
  48665. FWork:=AValue;
  48666. MarkPropertyChanged(AIndex);
  48667. end;
  48668. Procedure TPSPublishedTask.SetWorkMilliseconds(AIndex: Integer; const AValue: TInt32);
  48669. begin
  48670. If (FWorkMilliseconds=AValue) then exit;
  48671. FWorkMilliseconds:=AValue;
  48672. MarkPropertyChanged(AIndex);
  48673. end;
  48674. Procedure TPSPublishedTask.SetWorkTimeSpan(AIndex: Integer; const AValue: TTime);
  48675. begin
  48676. If (FWorkTimeSpan=AValue) then exit;
  48677. FWorkTimeSpan:=AValue;
  48678. MarkPropertyChanged(AIndex);
  48679. end;
  48680. Function TPSPublishedTask.Assignments(AService: TODataService) : TPSPublishedAssignment;
  48681. begin
  48682. Result:=TPSPublishedAssignment(GetContainedSingleTon(AService,'Assignments', TPSPublishedAssignment));
  48683. end;
  48684. Function TPSPublishedTask.Calendar(AService: TODataService) : TPSCalendar;
  48685. begin
  48686. Result:=TPSCalendar(GetContainedSingleTon(AService,'Calendar', TPSCalendar));
  48687. end;
  48688. Function TPSPublishedTask.Parent(AService: TODataService) : TPSPublishedTask;
  48689. begin
  48690. Result:=TPSPublishedTask(GetContainedSingleTon(AService,'Parent', TPSPublishedTask));
  48691. end;
  48692. Function TPSPublishedTask.Predecessors(AService: TODataService) : TPSPublishedTaskLink;
  48693. begin
  48694. Result:=TPSPublishedTaskLink(GetContainedSingleTon(AService,'Predecessors', TPSPublishedTaskLink));
  48695. end;
  48696. Function TPSPublishedTask.Successors(AService: TODataService) : TPSPublishedTaskLink;
  48697. begin
  48698. Result:=TPSPublishedTaskLink(GetContainedSingleTon(AService,'Successors', TPSPublishedTaskLink));
  48699. end;
  48700. { --------------------------------------------------------------------
  48701. TPSTaskLink
  48702. --------------------------------------------------------------------}
  48703. Class Function TPSTaskLink.ObjectRestKind : String;
  48704. begin
  48705. Result:='TaskLink';
  48706. end;
  48707. Procedure TPSTaskLink.SetId(AIndex: Integer; const AValue: TGUIDString);
  48708. begin
  48709. If (FId=AValue) then exit;
  48710. FId:=AValue;
  48711. MarkPropertyChanged(AIndex);
  48712. end;
  48713. Function TPSTaskLink.KeyAsURLPart : string;
  48714. begin
  48715. Result:=TODataObject.MakeKeyString(Id);
  48716. end;
  48717. { --------------------------------------------------------------------
  48718. TPSPublishedTaskLink
  48719. --------------------------------------------------------------------}
  48720. Class Function TPSPublishedTaskLink.ObjectRestKind : String;
  48721. begin
  48722. Result:='PublishedTaskLink';
  48723. end;
  48724. Procedure TPSPublishedTaskLink.SetDependencyType(AIndex: Integer; const AValue: TInt32);
  48725. begin
  48726. If (FDependencyType=AValue) then exit;
  48727. FDependencyType:=AValue;
  48728. MarkPropertyChanged(AIndex);
  48729. end;
  48730. Function TPSPublishedTaskLink._End(AService: TODataService) : TPSPublishedTask;
  48731. begin
  48732. Result:=TPSPublishedTask(GetContainedSingleTon(AService,'End', TPSPublishedTask));
  48733. end;
  48734. Function TPSPublishedTaskLink.Start(AService: TODataService) : TPSPublishedTask;
  48735. begin
  48736. Result:=TPSPublishedTask(GetContainedSingleTon(AService,'Start', TPSPublishedTask));
  48737. end;
  48738. { --------------------------------------------------------------------
  48739. TPSDraftProject
  48740. --------------------------------------------------------------------}
  48741. Class Function TPSDraftProject.ObjectRestKind : String;
  48742. begin
  48743. Result:='DraftProject';
  48744. end;
  48745. Procedure TPSDraftProject.SetCalculateActualCosts(AIndex: Integer; const AValue: boolean);
  48746. begin
  48747. If (FCalculateActualCosts=AValue) then exit;
  48748. FCalculateActualCosts:=AValue;
  48749. MarkPropertyChanged(AIndex);
  48750. end;
  48751. Procedure TPSDraftProject.SetCalculatesActualCosts(AIndex: Integer; const AValue: boolean);
  48752. begin
  48753. If (FCalculatesActualCosts=AValue) then exit;
  48754. FCalculatesActualCosts:=AValue;
  48755. MarkPropertyChanged(AIndex);
  48756. end;
  48757. Procedure TPSDraftProject.SetCriticalSlackLimit(AIndex: Integer; const AValue: TInt32);
  48758. begin
  48759. If (FCriticalSlackLimit=AValue) then exit;
  48760. FCriticalSlackLimit:=AValue;
  48761. MarkPropertyChanged(AIndex);
  48762. end;
  48763. Procedure TPSDraftProject.SetCurrencyCode(AIndex: Integer; const AValue: string);
  48764. begin
  48765. If (FCurrencyCode=AValue) then exit;
  48766. FCurrencyCode:=AValue;
  48767. MarkPropertyChanged(AIndex);
  48768. end;
  48769. Procedure TPSDraftProject.SetCurrencyDigits(AIndex: Integer; const AValue: TInt32);
  48770. begin
  48771. If (FCurrencyDigits=AValue) then exit;
  48772. FCurrencyDigits:=AValue;
  48773. MarkPropertyChanged(AIndex);
  48774. end;
  48775. Procedure TPSDraftProject.SetCurrencyPosition(AIndex: Integer; const AValue: TInt32);
  48776. begin
  48777. If (FCurrencyPosition=AValue) then exit;
  48778. FCurrencyPosition:=AValue;
  48779. MarkPropertyChanged(AIndex);
  48780. end;
  48781. Procedure TPSDraftProject.SetCurrencySymbol(AIndex: Integer; const AValue: string);
  48782. begin
  48783. If (FCurrencySymbol=AValue) then exit;
  48784. FCurrencySymbol:=AValue;
  48785. MarkPropertyChanged(AIndex);
  48786. end;
  48787. Procedure TPSDraftProject.SetCurrentDate(AIndex: Integer; const AValue: TDateTime);
  48788. begin
  48789. If (FCurrentDate=AValue) then exit;
  48790. FCurrentDate:=AValue;
  48791. MarkPropertyChanged(AIndex);
  48792. end;
  48793. Procedure TPSDraftProject.SetDaysPerMonth(AIndex: Integer; const AValue: TInt16);
  48794. begin
  48795. If (FDaysPerMonth=AValue) then exit;
  48796. FDaysPerMonth:=AValue;
  48797. MarkPropertyChanged(AIndex);
  48798. end;
  48799. Procedure TPSDraftProject.SetDefaultEffortDriven(AIndex: Integer; const AValue: boolean);
  48800. begin
  48801. If (FDefaultEffortDriven=AValue) then exit;
  48802. FDefaultEffortDriven:=AValue;
  48803. MarkPropertyChanged(AIndex);
  48804. end;
  48805. Procedure TPSDraftProject.SetDefaultEstimatedDuration(AIndex: Integer; const AValue: boolean);
  48806. begin
  48807. If (FDefaultEstimatedDuration=AValue) then exit;
  48808. FDefaultEstimatedDuration:=AValue;
  48809. MarkPropertyChanged(AIndex);
  48810. end;
  48811. Procedure TPSDraftProject.SetDefaultFinishTime(AIndex: Integer; const AValue: TDateTime);
  48812. begin
  48813. If (FDefaultFinishTime=AValue) then exit;
  48814. FDefaultFinishTime:=AValue;
  48815. MarkPropertyChanged(AIndex);
  48816. end;
  48817. Procedure TPSDraftProject.SetDefaultFixedCostAccrual(AIndex: Integer; const AValue: TInt32);
  48818. begin
  48819. If (FDefaultFixedCostAccrual=AValue) then exit;
  48820. FDefaultFixedCostAccrual:=AValue;
  48821. MarkPropertyChanged(AIndex);
  48822. end;
  48823. Procedure TPSDraftProject.SetDefaultOvertimeRate(AIndex: Integer; const AValue: Double);
  48824. begin
  48825. If (FDefaultOvertimeRate=AValue) then exit;
  48826. FDefaultOvertimeRate:=AValue;
  48827. MarkPropertyChanged(AIndex);
  48828. end;
  48829. Procedure TPSDraftProject.SetDefaultStandardRate(AIndex: Integer; const AValue: Double);
  48830. begin
  48831. If (FDefaultStandardRate=AValue) then exit;
  48832. FDefaultStandardRate:=AValue;
  48833. MarkPropertyChanged(AIndex);
  48834. end;
  48835. Procedure TPSDraftProject.SetDefaultStartTime(AIndex: Integer; const AValue: TDateTime);
  48836. begin
  48837. If (FDefaultStartTime=AValue) then exit;
  48838. FDefaultStartTime:=AValue;
  48839. MarkPropertyChanged(AIndex);
  48840. end;
  48841. Procedure TPSDraftProject.SetDefaultTaskType(AIndex: Integer; const AValue: TInt32);
  48842. begin
  48843. If (FDefaultTaskType=AValue) then exit;
  48844. FDefaultTaskType:=AValue;
  48845. MarkPropertyChanged(AIndex);
  48846. end;
  48847. Procedure TPSDraftProject.SetDefaultWorkFormat(AIndex: Integer; const AValue: TInt32);
  48848. begin
  48849. If (FDefaultWorkFormat=AValue) then exit;
  48850. FDefaultWorkFormat:=AValue;
  48851. MarkPropertyChanged(AIndex);
  48852. end;
  48853. Procedure TPSDraftProject.SetDescription(AIndex: Integer; const AValue: string);
  48854. begin
  48855. If (FDescription=AValue) then exit;
  48856. FDescription:=AValue;
  48857. MarkPropertyChanged(AIndex);
  48858. end;
  48859. Procedure TPSDraftProject.SetFinishDate(AIndex: Integer; const AValue: TDateTime);
  48860. begin
  48861. If (FFinishDate=AValue) then exit;
  48862. FFinishDate:=AValue;
  48863. MarkPropertyChanged(AIndex);
  48864. end;
  48865. Procedure TPSDraftProject.SetFiscalYearStartMonth(AIndex: Integer; const AValue: TInt16);
  48866. begin
  48867. If (FFiscalYearStartMonth=AValue) then exit;
  48868. FFiscalYearStartMonth:=AValue;
  48869. MarkPropertyChanged(AIndex);
  48870. end;
  48871. Procedure TPSDraftProject.SetHonorConstraints(AIndex: Integer; const AValue: boolean);
  48872. begin
  48873. If (FHonorConstraints=AValue) then exit;
  48874. FHonorConstraints:=AValue;
  48875. MarkPropertyChanged(AIndex);
  48876. end;
  48877. Procedure TPSDraftProject.SetMinutesPerDay(AIndex: Integer; const AValue: TInt32);
  48878. begin
  48879. If (FMinutesPerDay=AValue) then exit;
  48880. FMinutesPerDay:=AValue;
  48881. MarkPropertyChanged(AIndex);
  48882. end;
  48883. Procedure TPSDraftProject.SetMinutesPerWeek(AIndex: Integer; const AValue: TInt32);
  48884. begin
  48885. If (FMinutesPerWeek=AValue) then exit;
  48886. FMinutesPerWeek:=AValue;
  48887. MarkPropertyChanged(AIndex);
  48888. end;
  48889. Procedure TPSDraftProject.SetMoveActualIfLater(AIndex: Integer; const AValue: boolean);
  48890. begin
  48891. If (FMoveActualIfLater=AValue) then exit;
  48892. FMoveActualIfLater:=AValue;
  48893. MarkPropertyChanged(AIndex);
  48894. end;
  48895. Procedure TPSDraftProject.SetMoveActualToStatus(AIndex: Integer; const AValue: boolean);
  48896. begin
  48897. If (FMoveActualToStatus=AValue) then exit;
  48898. FMoveActualToStatus:=AValue;
  48899. MarkPropertyChanged(AIndex);
  48900. end;
  48901. Procedure TPSDraftProject.SetMoveRemainingIfEarlier(AIndex: Integer; const AValue: boolean);
  48902. begin
  48903. If (FMoveRemainingIfEarlier=AValue) then exit;
  48904. FMoveRemainingIfEarlier:=AValue;
  48905. MarkPropertyChanged(AIndex);
  48906. end;
  48907. Procedure TPSDraftProject.SetMoveRemainingToStatus(AIndex: Integer; const AValue: boolean);
  48908. begin
  48909. If (FMoveRemainingToStatus=AValue) then exit;
  48910. FMoveRemainingToStatus:=AValue;
  48911. MarkPropertyChanged(AIndex);
  48912. end;
  48913. Procedure TPSDraftProject.SetMultipleCriticalPaths(AIndex: Integer; const AValue: boolean);
  48914. begin
  48915. If (FMultipleCriticalPaths=AValue) then exit;
  48916. FMultipleCriticalPaths:=AValue;
  48917. MarkPropertyChanged(AIndex);
  48918. end;
  48919. Procedure TPSDraftProject.SetName(AIndex: Integer; const AValue: string);
  48920. begin
  48921. If (FName=AValue) then exit;
  48922. FName:=AValue;
  48923. MarkPropertyChanged(AIndex);
  48924. end;
  48925. Procedure TPSDraftProject.SetNewTasksAreManual(AIndex: Integer; const AValue: boolean);
  48926. begin
  48927. If (FNewTasksAreManual=AValue) then exit;
  48928. FNewTasksAreManual:=AValue;
  48929. MarkPropertyChanged(AIndex);
  48930. end;
  48931. Procedure TPSDraftProject.SetNumberFiscalYearFromStart(AIndex: Integer; const AValue: boolean);
  48932. begin
  48933. If (FNumberFiscalYearFromStart=AValue) then exit;
  48934. FNumberFiscalYearFromStart:=AValue;
  48935. MarkPropertyChanged(AIndex);
  48936. end;
  48937. Procedure TPSDraftProject.SetProtectedActualsSynch(AIndex: Integer; const AValue: boolean);
  48938. begin
  48939. If (FProtectedActualsSynch=AValue) then exit;
  48940. FProtectedActualsSynch:=AValue;
  48941. MarkPropertyChanged(AIndex);
  48942. end;
  48943. Procedure TPSDraftProject.SetScheduledFromStart(AIndex: Integer; const AValue: boolean);
  48944. begin
  48945. If (FScheduledFromStart=AValue) then exit;
  48946. FScheduledFromStart:=AValue;
  48947. MarkPropertyChanged(AIndex);
  48948. end;
  48949. Procedure TPSDraftProject.SetShowEstimatedDurations(AIndex: Integer; const AValue: boolean);
  48950. begin
  48951. If (FShowEstimatedDurations=AValue) then exit;
  48952. FShowEstimatedDurations:=AValue;
  48953. MarkPropertyChanged(AIndex);
  48954. end;
  48955. Procedure TPSDraftProject.SetSplitInProgress(AIndex: Integer; const AValue: boolean);
  48956. begin
  48957. If (FSplitInProgress=AValue) then exit;
  48958. FSplitInProgress:=AValue;
  48959. MarkPropertyChanged(AIndex);
  48960. end;
  48961. Procedure TPSDraftProject.SetSpreadActualCostsToStatus(AIndex: Integer; const AValue: boolean);
  48962. begin
  48963. If (FSpreadActualCostsToStatus=AValue) then exit;
  48964. FSpreadActualCostsToStatus:=AValue;
  48965. MarkPropertyChanged(AIndex);
  48966. end;
  48967. Procedure TPSDraftProject.SetSpreadPercentCompleteToStatus(AIndex: Integer; const AValue: boolean);
  48968. begin
  48969. If (FSpreadPercentCompleteToStatus=AValue) then exit;
  48970. FSpreadPercentCompleteToStatus:=AValue;
  48971. MarkPropertyChanged(AIndex);
  48972. end;
  48973. Procedure TPSDraftProject.SetStartDate(AIndex: Integer; const AValue: TDateTime);
  48974. begin
  48975. If (FStartDate=AValue) then exit;
  48976. FStartDate:=AValue;
  48977. MarkPropertyChanged(AIndex);
  48978. end;
  48979. Procedure TPSDraftProject.SetStatusDate(AIndex: Integer; const AValue: TDateTime);
  48980. begin
  48981. If (FStatusDate=AValue) then exit;
  48982. FStatusDate:=AValue;
  48983. MarkPropertyChanged(AIndex);
  48984. end;
  48985. Procedure TPSDraftProject.SetTrackingMode(AIndex: Integer; const AValue: TInt32);
  48986. begin
  48987. If (FTrackingMode=AValue) then exit;
  48988. FTrackingMode:=AValue;
  48989. MarkPropertyChanged(AIndex);
  48990. end;
  48991. Procedure TPSDraftProject.SetWeekStartDay(AIndex: Integer; const AValue: TInt16);
  48992. begin
  48993. If (FWeekStartDay=AValue) then exit;
  48994. FWeekStartDay:=AValue;
  48995. MarkPropertyChanged(AIndex);
  48996. end;
  48997. Procedure TPSDraftProject.SetWinprojVersion(AIndex: Integer; const AValue: double);
  48998. begin
  48999. If (FWinprojVersion=AValue) then exit;
  49000. FWinprojVersion:=AValue;
  49001. MarkPropertyChanged(AIndex);
  49002. end;
  49003. Function TPSDraftProject.Assignments(AService: TODataService) : TPSDraftAssignment;
  49004. begin
  49005. Result:=TPSDraftAssignment(GetContainedSingleTon(AService,'Assignments', TPSDraftAssignment));
  49006. end;
  49007. Function TPSDraftProject.Calendar(AService: TODataService) : TPSCalendar;
  49008. begin
  49009. Result:=TPSCalendar(GetContainedSingleTon(AService,'Calendar', TPSCalendar));
  49010. end;
  49011. Function TPSDraftProject.IncludeCustomFields(AService: TODataService) : TPSDraftProject;
  49012. begin
  49013. Result:=TPSDraftProject(GetContainedSingleTon(AService,'IncludeCustomFields', TPSDraftProject));
  49014. end;
  49015. Function TPSDraftProject.Owner(AService: TODataService) : TSPUser;
  49016. begin
  49017. Result:=TSPUser(GetContainedSingleTon(AService,'Owner', TSPUser));
  49018. end;
  49019. Function TPSDraftProject.ProjectResources(AService: TODataService) : TPSDraftProjectResource;
  49020. begin
  49021. Result:=TPSDraftProjectResource(GetContainedSingleTon(AService,'ProjectResources', TPSDraftProjectResource));
  49022. end;
  49023. Function TPSDraftProject.TaskLinks(AService: TODataService) : TPSDraftTaskLink;
  49024. begin
  49025. Result:=TPSDraftTaskLink(GetContainedSingleTon(AService,'TaskLinks', TPSDraftTaskLink));
  49026. end;
  49027. Function TPSDraftProject.Tasks(AService: TODataService) : TPSDraftTask;
  49028. begin
  49029. Result:=TPSDraftTask(GetContainedSingleTon(AService,'Tasks', TPSDraftTask));
  49030. end;
  49031. { --------------------------------------------------------------------
  49032. TPSDraftProjectResource
  49033. --------------------------------------------------------------------}
  49034. Class Function TPSDraftProjectResource.ObjectRestKind : String;
  49035. begin
  49036. Result:='DraftProjectResource';
  49037. end;
  49038. Procedure TPSDraftProjectResource.SetCanLevel(AIndex: Integer; const AValue: boolean);
  49039. begin
  49040. If (FCanLevel=AValue) then exit;
  49041. FCanLevel:=AValue;
  49042. MarkPropertyChanged(AIndex);
  49043. end;
  49044. Procedure TPSDraftProjectResource.SetCode(AIndex: Integer; const AValue: string);
  49045. begin
  49046. If (FCode=AValue) then exit;
  49047. FCode:=AValue;
  49048. MarkPropertyChanged(AIndex);
  49049. end;
  49050. Procedure TPSDraftProjectResource.SetCostAccrual(AIndex: Integer; const AValue: TInt32);
  49051. begin
  49052. If (FCostAccrual=AValue) then exit;
  49053. FCostAccrual:=AValue;
  49054. MarkPropertyChanged(AIndex);
  49055. end;
  49056. Procedure TPSDraftProjectResource.SetCostCenter(AIndex: Integer; const AValue: string);
  49057. begin
  49058. If (FCostCenter=AValue) then exit;
  49059. FCostCenter:=AValue;
  49060. MarkPropertyChanged(AIndex);
  49061. end;
  49062. Procedure TPSDraftProjectResource.SetCostPerUse(AIndex: Integer; const AValue: Double);
  49063. begin
  49064. If (FCostPerUse=AValue) then exit;
  49065. FCostPerUse:=AValue;
  49066. MarkPropertyChanged(AIndex);
  49067. end;
  49068. Procedure TPSDraftProjectResource.SetDefaultBookingType(AIndex: Integer; const AValue: TInt32);
  49069. begin
  49070. If (FDefaultBookingType=AValue) then exit;
  49071. FDefaultBookingType:=AValue;
  49072. MarkPropertyChanged(AIndex);
  49073. end;
  49074. Procedure TPSDraftProjectResource.SetEmail(AIndex: Integer; const AValue: string);
  49075. begin
  49076. If (FEmail=AValue) then exit;
  49077. FEmail:=AValue;
  49078. MarkPropertyChanged(AIndex);
  49079. end;
  49080. Procedure TPSDraftProjectResource.SetGroup(AIndex: Integer; const AValue: string);
  49081. begin
  49082. If (FGroup=AValue) then exit;
  49083. FGroup:=AValue;
  49084. MarkPropertyChanged(AIndex);
  49085. end;
  49086. Procedure TPSDraftProjectResource.SetInitials(AIndex: Integer; const AValue: string);
  49087. begin
  49088. If (FInitials=AValue) then exit;
  49089. FInitials:=AValue;
  49090. MarkPropertyChanged(AIndex);
  49091. end;
  49092. Procedure TPSDraftProjectResource.SetMaterialLabel(AIndex: Integer; const AValue: string);
  49093. begin
  49094. If (FMaterialLabel=AValue) then exit;
  49095. FMaterialLabel:=AValue;
  49096. MarkPropertyChanged(AIndex);
  49097. end;
  49098. Procedure TPSDraftProjectResource.SetMaximumCapacity(AIndex: Integer; const AValue: Double);
  49099. begin
  49100. If (FMaximumCapacity=AValue) then exit;
  49101. FMaximumCapacity:=AValue;
  49102. MarkPropertyChanged(AIndex);
  49103. end;
  49104. Procedure TPSDraftProjectResource.SetName(AIndex: Integer; const AValue: string);
  49105. begin
  49106. If (FName=AValue) then exit;
  49107. FName:=AValue;
  49108. MarkPropertyChanged(AIndex);
  49109. end;
  49110. Procedure TPSDraftProjectResource.SetOvertimeRate(AIndex: Integer; const AValue: Double);
  49111. begin
  49112. If (FOvertimeRate=AValue) then exit;
  49113. FOvertimeRate:=AValue;
  49114. MarkPropertyChanged(AIndex);
  49115. end;
  49116. Procedure TPSDraftProjectResource.SetOvertimeRateUnits(AIndex: Integer; const AValue: TInt32);
  49117. begin
  49118. If (FOvertimeRateUnits=AValue) then exit;
  49119. FOvertimeRateUnits:=AValue;
  49120. MarkPropertyChanged(AIndex);
  49121. end;
  49122. Procedure TPSDraftProjectResource.SetPhonetics(AIndex: Integer; const AValue: string);
  49123. begin
  49124. If (FPhonetics=AValue) then exit;
  49125. FPhonetics:=AValue;
  49126. MarkPropertyChanged(AIndex);
  49127. end;
  49128. Procedure TPSDraftProjectResource.SetStandardRate(AIndex: Integer; const AValue: Double);
  49129. begin
  49130. If (FStandardRate=AValue) then exit;
  49131. FStandardRate:=AValue;
  49132. MarkPropertyChanged(AIndex);
  49133. end;
  49134. Procedure TPSDraftProjectResource.SetStandardRateUnits(AIndex: Integer; const AValue: TInt32);
  49135. begin
  49136. If (FStandardRateUnits=AValue) then exit;
  49137. FStandardRateUnits:=AValue;
  49138. MarkPropertyChanged(AIndex);
  49139. end;
  49140. Function TPSDraftProjectResource.Assignments(AService: TODataService) : TPSDraftAssignment;
  49141. begin
  49142. Result:=TPSDraftAssignment(GetContainedSingleTon(AService,'Assignments', TPSDraftAssignment));
  49143. end;
  49144. Function TPSDraftProjectResource.DefaultAssignmentOwner(AService: TODataService) : TSPUser;
  49145. begin
  49146. Result:=TSPUser(GetContainedSingleTon(AService,'DefaultAssignmentOwner', TSPUser));
  49147. end;
  49148. { --------------------------------------------------------------------
  49149. TPSDraftTaskLink
  49150. --------------------------------------------------------------------}
  49151. Class Function TPSDraftTaskLink.ObjectRestKind : String;
  49152. begin
  49153. Result:='DraftTaskLink';
  49154. end;
  49155. Procedure TPSDraftTaskLink.SetDependencyType(AIndex: Integer; const AValue: TInt32);
  49156. begin
  49157. If (FDependencyType=AValue) then exit;
  49158. FDependencyType:=AValue;
  49159. MarkPropertyChanged(AIndex);
  49160. end;
  49161. Procedure TPSDraftTaskLink.SetEndId(AIndex: Integer; const AValue: TGUIDString);
  49162. begin
  49163. If (FEndId=AValue) then exit;
  49164. FEndId:=AValue;
  49165. MarkPropertyChanged(AIndex);
  49166. end;
  49167. Procedure TPSDraftTaskLink.SetStartId(AIndex: Integer; const AValue: TGUIDString);
  49168. begin
  49169. If (FStartId=AValue) then exit;
  49170. FStartId:=AValue;
  49171. MarkPropertyChanged(AIndex);
  49172. end;
  49173. Function TPSDraftTaskLink._End(AService: TODataService) : TPSDraftTask;
  49174. begin
  49175. Result:=TPSDraftTask(GetContainedSingleTon(AService,'End', TPSDraftTask));
  49176. end;
  49177. Function TPSDraftTaskLink.Start(AService: TODataService) : TPSDraftTask;
  49178. begin
  49179. Result:=TPSDraftTask(GetContainedSingleTon(AService,'Start', TPSDraftTask));
  49180. end;
  49181. { --------------------------------------------------------------------
  49182. TPSDraftTask
  49183. --------------------------------------------------------------------}
  49184. Class Function TPSDraftTask.ObjectRestKind : String;
  49185. begin
  49186. Result:='DraftTask';
  49187. end;
  49188. Procedure TPSDraftTask.SetActualCost(AIndex: Integer; const AValue: Double);
  49189. begin
  49190. If (FActualCost=AValue) then exit;
  49191. FActualCost:=AValue;
  49192. MarkPropertyChanged(AIndex);
  49193. end;
  49194. Procedure TPSDraftTask.SetActualCostWorkPerformed(AIndex: Integer; const AValue: Double);
  49195. begin
  49196. If (FActualCostWorkPerformed=AValue) then exit;
  49197. FActualCostWorkPerformed:=AValue;
  49198. MarkPropertyChanged(AIndex);
  49199. end;
  49200. Procedure TPSDraftTask.SetActualFinish(AIndex: Integer; const AValue: TDateTime);
  49201. begin
  49202. If (FActualFinish=AValue) then exit;
  49203. FActualFinish:=AValue;
  49204. MarkPropertyChanged(AIndex);
  49205. end;
  49206. Procedure TPSDraftTask.SetActualOvertimeCost(AIndex: Integer; const AValue: Double);
  49207. begin
  49208. If (FActualOvertimeCost=AValue) then exit;
  49209. FActualOvertimeCost:=AValue;
  49210. MarkPropertyChanged(AIndex);
  49211. end;
  49212. Procedure TPSDraftTask.SetActualOvertimeWork(AIndex: Integer; const AValue: string);
  49213. begin
  49214. If (FActualOvertimeWork=AValue) then exit;
  49215. FActualOvertimeWork:=AValue;
  49216. MarkPropertyChanged(AIndex);
  49217. end;
  49218. Procedure TPSDraftTask.SetActualOvertimeWorkMilliseconds(AIndex: Integer; const AValue: TInt32);
  49219. begin
  49220. If (FActualOvertimeWorkMilliseconds=AValue) then exit;
  49221. FActualOvertimeWorkMilliseconds:=AValue;
  49222. MarkPropertyChanged(AIndex);
  49223. end;
  49224. Procedure TPSDraftTask.SetActualOvertimeWorkTimeSpan(AIndex: Integer; const AValue: TTime);
  49225. begin
  49226. If (FActualOvertimeWorkTimeSpan=AValue) then exit;
  49227. FActualOvertimeWorkTimeSpan:=AValue;
  49228. MarkPropertyChanged(AIndex);
  49229. end;
  49230. Procedure TPSDraftTask.SetActualStart(AIndex: Integer; const AValue: TDateTime);
  49231. begin
  49232. If (FActualStart=AValue) then exit;
  49233. FActualStart:=AValue;
  49234. MarkPropertyChanged(AIndex);
  49235. end;
  49236. Procedure TPSDraftTask.SetActualWork(AIndex: Integer; const AValue: string);
  49237. begin
  49238. If (FActualWork=AValue) then exit;
  49239. FActualWork:=AValue;
  49240. MarkPropertyChanged(AIndex);
  49241. end;
  49242. Procedure TPSDraftTask.SetActualWorkMilliseconds(AIndex: Integer; const AValue: TInt32);
  49243. begin
  49244. If (FActualWorkMilliseconds=AValue) then exit;
  49245. FActualWorkMilliseconds:=AValue;
  49246. MarkPropertyChanged(AIndex);
  49247. end;
  49248. Procedure TPSDraftTask.SetActualWorkTimeSpan(AIndex: Integer; const AValue: TTime);
  49249. begin
  49250. If (FActualWorkTimeSpan=AValue) then exit;
  49251. FActualWorkTimeSpan:=AValue;
  49252. MarkPropertyChanged(AIndex);
  49253. end;
  49254. Procedure TPSDraftTask.SetAddAfterId(AIndex: Integer; const AValue: TGUIDString);
  49255. begin
  49256. If (FAddAfterId=AValue) then exit;
  49257. FAddAfterId:=AValue;
  49258. MarkPropertyChanged(AIndex);
  49259. end;
  49260. Procedure TPSDraftTask.SetBudgetedCostWorkPerformed(AIndex: Integer; const AValue: Double);
  49261. begin
  49262. If (FBudgetedCostWorkPerformed=AValue) then exit;
  49263. FBudgetedCostWorkPerformed:=AValue;
  49264. MarkPropertyChanged(AIndex);
  49265. end;
  49266. Procedure TPSDraftTask.SetBudgetedCostWorkScheduled(AIndex: Integer; const AValue: Double);
  49267. begin
  49268. If (FBudgetedCostWorkScheduled=AValue) then exit;
  49269. FBudgetedCostWorkScheduled:=AValue;
  49270. MarkPropertyChanged(AIndex);
  49271. end;
  49272. Procedure TPSDraftTask.SetBudgetWork(AIndex: Integer; const AValue: string);
  49273. begin
  49274. If (FBudgetWork=AValue) then exit;
  49275. FBudgetWork:=AValue;
  49276. MarkPropertyChanged(AIndex);
  49277. end;
  49278. Procedure TPSDraftTask.SetBudgetWorkMilliseconds(AIndex: Integer; const AValue: TInt32);
  49279. begin
  49280. If (FBudgetWorkMilliseconds=AValue) then exit;
  49281. FBudgetWorkMilliseconds:=AValue;
  49282. MarkPropertyChanged(AIndex);
  49283. end;
  49284. Procedure TPSDraftTask.SetBudgetWorkTimeSpan(AIndex: Integer; const AValue: TTime);
  49285. begin
  49286. If (FBudgetWorkTimeSpan=AValue) then exit;
  49287. FBudgetWorkTimeSpan:=AValue;
  49288. MarkPropertyChanged(AIndex);
  49289. end;
  49290. Procedure TPSDraftTask.SetCompletion(AIndex: Integer; const AValue: TDateTime);
  49291. begin
  49292. If (FCompletion=AValue) then exit;
  49293. FCompletion:=AValue;
  49294. MarkPropertyChanged(AIndex);
  49295. end;
  49296. Procedure TPSDraftTask.SetConstraintStartEnd(AIndex: Integer; const AValue: TDateTime);
  49297. begin
  49298. If (FConstraintStartEnd=AValue) then exit;
  49299. FConstraintStartEnd:=AValue;
  49300. MarkPropertyChanged(AIndex);
  49301. end;
  49302. Procedure TPSDraftTask.SetConstraintType(AIndex: Integer; const AValue: TInt32);
  49303. begin
  49304. If (FConstraintType=AValue) then exit;
  49305. FConstraintType:=AValue;
  49306. MarkPropertyChanged(AIndex);
  49307. end;
  49308. Procedure TPSDraftTask.SetContact(AIndex: Integer; const AValue: string);
  49309. begin
  49310. If (FContact=AValue) then exit;
  49311. FContact:=AValue;
  49312. MarkPropertyChanged(AIndex);
  49313. end;
  49314. Procedure TPSDraftTask.SetCost(AIndex: Integer; const AValue: Double);
  49315. begin
  49316. If (FCost=AValue) then exit;
  49317. FCost:=AValue;
  49318. MarkPropertyChanged(AIndex);
  49319. end;
  49320. Procedure TPSDraftTask.SetDeadline(AIndex: Integer; const AValue: TDateTime);
  49321. begin
  49322. If (FDeadline=AValue) then exit;
  49323. FDeadline:=AValue;
  49324. MarkPropertyChanged(AIndex);
  49325. end;
  49326. Procedure TPSDraftTask.SetDuration(AIndex: Integer; const AValue: string);
  49327. begin
  49328. If (FDuration=AValue) then exit;
  49329. FDuration:=AValue;
  49330. MarkPropertyChanged(AIndex);
  49331. end;
  49332. Procedure TPSDraftTask.SetDurationMilliseconds(AIndex: Integer; const AValue: TInt32);
  49333. begin
  49334. If (FDurationMilliseconds=AValue) then exit;
  49335. FDurationMilliseconds:=AValue;
  49336. MarkPropertyChanged(AIndex);
  49337. end;
  49338. Procedure TPSDraftTask.SetDurationTimeSpan(AIndex: Integer; const AValue: TTime);
  49339. begin
  49340. If (FDurationTimeSpan=AValue) then exit;
  49341. FDurationTimeSpan:=AValue;
  49342. MarkPropertyChanged(AIndex);
  49343. end;
  49344. Procedure TPSDraftTask.SetFinish(AIndex: Integer; const AValue: TDateTime);
  49345. begin
  49346. If (FFinish=AValue) then exit;
  49347. FFinish:=AValue;
  49348. MarkPropertyChanged(AIndex);
  49349. end;
  49350. Procedure TPSDraftTask.SetFixedCost(AIndex: Integer; const AValue: Double);
  49351. begin
  49352. If (FFixedCost=AValue) then exit;
  49353. FFixedCost:=AValue;
  49354. MarkPropertyChanged(AIndex);
  49355. end;
  49356. Procedure TPSDraftTask.SetFixedCostAccrual(AIndex: Integer; const AValue: TInt32);
  49357. begin
  49358. If (FFixedCostAccrual=AValue) then exit;
  49359. FFixedCostAccrual:=AValue;
  49360. MarkPropertyChanged(AIndex);
  49361. end;
  49362. Procedure TPSDraftTask.SetIsActive(AIndex: Integer; const AValue: boolean);
  49363. begin
  49364. If (FIsActive=AValue) then exit;
  49365. FIsActive:=AValue;
  49366. MarkPropertyChanged(AIndex);
  49367. end;
  49368. Procedure TPSDraftTask.SetIsEffortDriven(AIndex: Integer; const AValue: boolean);
  49369. begin
  49370. If (FIsEffortDriven=AValue) then exit;
  49371. FIsEffortDriven:=AValue;
  49372. MarkPropertyChanged(AIndex);
  49373. end;
  49374. Procedure TPSDraftTask.SetIsLockedByManager(AIndex: Integer; const AValue: boolean);
  49375. begin
  49376. If (FIsLockedByManager=AValue) then exit;
  49377. FIsLockedByManager:=AValue;
  49378. MarkPropertyChanged(AIndex);
  49379. end;
  49380. Procedure TPSDraftTask.SetIsManual(AIndex: Integer; const AValue: boolean);
  49381. begin
  49382. If (FIsManual=AValue) then exit;
  49383. FIsManual:=AValue;
  49384. MarkPropertyChanged(AIndex);
  49385. end;
  49386. Procedure TPSDraftTask.SetIsMarked(AIndex: Integer; const AValue: boolean);
  49387. begin
  49388. If (FIsMarked=AValue) then exit;
  49389. FIsMarked:=AValue;
  49390. MarkPropertyChanged(AIndex);
  49391. end;
  49392. Procedure TPSDraftTask.SetIsMilestone(AIndex: Integer; const AValue: boolean);
  49393. begin
  49394. If (FIsMilestone=AValue) then exit;
  49395. FIsMilestone:=AValue;
  49396. MarkPropertyChanged(AIndex);
  49397. end;
  49398. Procedure TPSDraftTask.SetLevelingAdjustsAssignments(AIndex: Integer; const AValue: boolean);
  49399. begin
  49400. If (FLevelingAdjustsAssignments=AValue) then exit;
  49401. FLevelingAdjustsAssignments:=AValue;
  49402. MarkPropertyChanged(AIndex);
  49403. end;
  49404. Procedure TPSDraftTask.SetLevelingCanSplit(AIndex: Integer; const AValue: boolean);
  49405. begin
  49406. If (FLevelingCanSplit=AValue) then exit;
  49407. FLevelingCanSplit:=AValue;
  49408. MarkPropertyChanged(AIndex);
  49409. end;
  49410. Procedure TPSDraftTask.SetLevelingDelay(AIndex: Integer; const AValue: string);
  49411. begin
  49412. If (FLevelingDelay=AValue) then exit;
  49413. FLevelingDelay:=AValue;
  49414. MarkPropertyChanged(AIndex);
  49415. end;
  49416. Procedure TPSDraftTask.SetLevelingDelayMilliseconds(AIndex: Integer; const AValue: TInt32);
  49417. begin
  49418. If (FLevelingDelayMilliseconds=AValue) then exit;
  49419. FLevelingDelayMilliseconds:=AValue;
  49420. MarkPropertyChanged(AIndex);
  49421. end;
  49422. Procedure TPSDraftTask.SetLevelingDelayTimeSpan(AIndex: Integer; const AValue: TTime);
  49423. begin
  49424. If (FLevelingDelayTimeSpan=AValue) then exit;
  49425. FLevelingDelayTimeSpan:=AValue;
  49426. MarkPropertyChanged(AIndex);
  49427. end;
  49428. Procedure TPSDraftTask.SetName(AIndex: Integer; const AValue: string);
  49429. begin
  49430. If (FName=AValue) then exit;
  49431. FName:=AValue;
  49432. MarkPropertyChanged(AIndex);
  49433. end;
  49434. Procedure TPSDraftTask.SetOutlineLevel(AIndex: Integer; const AValue: TInt32);
  49435. begin
  49436. If (FOutlineLevel=AValue) then exit;
  49437. FOutlineLevel:=AValue;
  49438. MarkPropertyChanged(AIndex);
  49439. end;
  49440. Procedure TPSDraftTask.SetParentId(AIndex: Integer; const AValue: TGUIDString);
  49441. begin
  49442. If (FParentId=AValue) then exit;
  49443. FParentId:=AValue;
  49444. MarkPropertyChanged(AIndex);
  49445. end;
  49446. Procedure TPSDraftTask.SetPercentComplete(AIndex: Integer; const AValue: TInt32);
  49447. begin
  49448. If (FPercentComplete=AValue) then exit;
  49449. FPercentComplete:=AValue;
  49450. MarkPropertyChanged(AIndex);
  49451. end;
  49452. Procedure TPSDraftTask.SetPercentPhysicalWorkComplete(AIndex: Integer; const AValue: TInt32);
  49453. begin
  49454. If (FPercentPhysicalWorkComplete=AValue) then exit;
  49455. FPercentPhysicalWorkComplete:=AValue;
  49456. MarkPropertyChanged(AIndex);
  49457. end;
  49458. Procedure TPSDraftTask.SetPriority(AIndex: Integer; const AValue: TInt32);
  49459. begin
  49460. If (FPriority=AValue) then exit;
  49461. FPriority:=AValue;
  49462. MarkPropertyChanged(AIndex);
  49463. end;
  49464. Procedure TPSDraftTask.SetRemainingDuration(AIndex: Integer; const AValue: string);
  49465. begin
  49466. If (FRemainingDuration=AValue) then exit;
  49467. FRemainingDuration:=AValue;
  49468. MarkPropertyChanged(AIndex);
  49469. end;
  49470. Procedure TPSDraftTask.SetRemainingDurationMilliseconds(AIndex: Integer; const AValue: TInt32);
  49471. begin
  49472. If (FRemainingDurationMilliseconds=AValue) then exit;
  49473. FRemainingDurationMilliseconds:=AValue;
  49474. MarkPropertyChanged(AIndex);
  49475. end;
  49476. Procedure TPSDraftTask.SetRemainingDurationTimeSpan(AIndex: Integer; const AValue: TTime);
  49477. begin
  49478. If (FRemainingDurationTimeSpan=AValue) then exit;
  49479. FRemainingDurationTimeSpan:=AValue;
  49480. MarkPropertyChanged(AIndex);
  49481. end;
  49482. Procedure TPSDraftTask.SetStart(AIndex: Integer; const AValue: TDateTime);
  49483. begin
  49484. If (FStart=AValue) then exit;
  49485. FStart:=AValue;
  49486. MarkPropertyChanged(AIndex);
  49487. end;
  49488. Procedure TPSDraftTask.SetTaskType(AIndex: Integer; const AValue: TInt32);
  49489. begin
  49490. If (FTaskType=AValue) then exit;
  49491. FTaskType:=AValue;
  49492. MarkPropertyChanged(AIndex);
  49493. end;
  49494. Procedure TPSDraftTask.SetUsePercentPhysicalWorkComplete(AIndex: Integer; const AValue: boolean);
  49495. begin
  49496. If (FUsePercentPhysicalWorkComplete=AValue) then exit;
  49497. FUsePercentPhysicalWorkComplete:=AValue;
  49498. MarkPropertyChanged(AIndex);
  49499. end;
  49500. Procedure TPSDraftTask.SetWork(AIndex: Integer; const AValue: string);
  49501. begin
  49502. If (FWork=AValue) then exit;
  49503. FWork:=AValue;
  49504. MarkPropertyChanged(AIndex);
  49505. end;
  49506. Procedure TPSDraftTask.SetWorkMilliseconds(AIndex: Integer; const AValue: TInt32);
  49507. begin
  49508. If (FWorkMilliseconds=AValue) then exit;
  49509. FWorkMilliseconds:=AValue;
  49510. MarkPropertyChanged(AIndex);
  49511. end;
  49512. Procedure TPSDraftTask.SetWorkTimeSpan(AIndex: Integer; const AValue: TTime);
  49513. begin
  49514. If (FWorkTimeSpan=AValue) then exit;
  49515. FWorkTimeSpan:=AValue;
  49516. MarkPropertyChanged(AIndex);
  49517. end;
  49518. Function TPSDraftTask.Assignments(AService: TODataService) : TPSDraftAssignment;
  49519. begin
  49520. Result:=TPSDraftAssignment(GetContainedSingleTon(AService,'Assignments', TPSDraftAssignment));
  49521. end;
  49522. Function TPSDraftTask.Calendar(AService: TODataService) : TPSCalendar;
  49523. begin
  49524. Result:=TPSCalendar(GetContainedSingleTon(AService,'Calendar', TPSCalendar));
  49525. end;
  49526. Function TPSDraftTask.Parent(AService: TODataService) : TPSDraftTask;
  49527. begin
  49528. Result:=TPSDraftTask(GetContainedSingleTon(AService,'Parent', TPSDraftTask));
  49529. end;
  49530. Function TPSDraftTask.Predecessors(AService: TODataService) : TPSDraftTaskLink;
  49531. begin
  49532. Result:=TPSDraftTaskLink(GetContainedSingleTon(AService,'Predecessors', TPSDraftTaskLink));
  49533. end;
  49534. Function TPSDraftTask.Successors(AService: TODataService) : TPSDraftTaskLink;
  49535. begin
  49536. Result:=TPSDraftTaskLink(GetContainedSingleTon(AService,'Successors', TPSDraftTaskLink));
  49537. end;
  49538. { --------------------------------------------------------------------
  49539. TPSStatusTask
  49540. --------------------------------------------------------------------}
  49541. Class Function TPSStatusTask.ObjectRestKind : String;
  49542. begin
  49543. Result:='StatusTask';
  49544. end;
  49545. Procedure TPSStatusTask.SetActualWork(AIndex: Integer; const AValue: string);
  49546. begin
  49547. If (FActualWork=AValue) then exit;
  49548. FActualWork:=AValue;
  49549. MarkPropertyChanged(AIndex);
  49550. end;
  49551. Procedure TPSStatusTask.SetActualWorkMilliseconds(AIndex: Integer; const AValue: TInt32);
  49552. begin
  49553. If (FActualWorkMilliseconds=AValue) then exit;
  49554. FActualWorkMilliseconds:=AValue;
  49555. MarkPropertyChanged(AIndex);
  49556. end;
  49557. Procedure TPSStatusTask.SetActualWorkTimeSpan(AIndex: Integer; const AValue: TTime);
  49558. begin
  49559. If (FActualWorkTimeSpan=AValue) then exit;
  49560. FActualWorkTimeSpan:=AValue;
  49561. MarkPropertyChanged(AIndex);
  49562. end;
  49563. Procedure TPSStatusTask.SetDeadline(AIndex: Integer; const AValue: TDateTime);
  49564. begin
  49565. If (FDeadline=AValue) then exit;
  49566. FDeadline:=AValue;
  49567. MarkPropertyChanged(AIndex);
  49568. end;
  49569. Procedure TPSStatusTask.SetDuration(AIndex: Integer; const AValue: string);
  49570. begin
  49571. If (FDuration=AValue) then exit;
  49572. FDuration:=AValue;
  49573. MarkPropertyChanged(AIndex);
  49574. end;
  49575. Procedure TPSStatusTask.SetDurationMilliseconds(AIndex: Integer; const AValue: TInt32);
  49576. begin
  49577. If (FDurationMilliseconds=AValue) then exit;
  49578. FDurationMilliseconds:=AValue;
  49579. MarkPropertyChanged(AIndex);
  49580. end;
  49581. Procedure TPSStatusTask.SetDurationTimeSpan(AIndex: Integer; const AValue: TTime);
  49582. begin
  49583. If (FDurationTimeSpan=AValue) then exit;
  49584. FDurationTimeSpan:=AValue;
  49585. MarkPropertyChanged(AIndex);
  49586. end;
  49587. Procedure TPSStatusTask.SetFinish(AIndex: Integer; const AValue: TDateTime);
  49588. begin
  49589. If (FFinish=AValue) then exit;
  49590. FFinish:=AValue;
  49591. MarkPropertyChanged(AIndex);
  49592. end;
  49593. Procedure TPSStatusTask.SetId(AIndex: Integer; const AValue: TGUIDString);
  49594. begin
  49595. If (FId=AValue) then exit;
  49596. FId:=AValue;
  49597. MarkPropertyChanged(AIndex);
  49598. end;
  49599. Procedure TPSStatusTask.SetName(AIndex: Integer; const AValue: string);
  49600. begin
  49601. If (FName=AValue) then exit;
  49602. FName:=AValue;
  49603. MarkPropertyChanged(AIndex);
  49604. end;
  49605. Procedure TPSStatusTask.SetOvertime(AIndex: Integer; const AValue: string);
  49606. begin
  49607. If (FOvertime=AValue) then exit;
  49608. FOvertime:=AValue;
  49609. MarkPropertyChanged(AIndex);
  49610. end;
  49611. Procedure TPSStatusTask.SetOvertimeMilliseconds(AIndex: Integer; const AValue: TInt32);
  49612. begin
  49613. If (FOvertimeMilliseconds=AValue) then exit;
  49614. FOvertimeMilliseconds:=AValue;
  49615. MarkPropertyChanged(AIndex);
  49616. end;
  49617. Procedure TPSStatusTask.SetOvertimeTimeSpan(AIndex: Integer; const AValue: TTime);
  49618. begin
  49619. If (FOvertimeTimeSpan=AValue) then exit;
  49620. FOvertimeTimeSpan:=AValue;
  49621. MarkPropertyChanged(AIndex);
  49622. end;
  49623. Procedure TPSStatusTask.SetPercentComplete(AIndex: Integer; const AValue: TInt16);
  49624. begin
  49625. If (FPercentComplete=AValue) then exit;
  49626. FPercentComplete:=AValue;
  49627. MarkPropertyChanged(AIndex);
  49628. end;
  49629. Procedure TPSStatusTask.SetPercentWorkComplete(AIndex: Integer; const AValue: TInt16);
  49630. begin
  49631. If (FPercentWorkComplete=AValue) then exit;
  49632. FPercentWorkComplete:=AValue;
  49633. MarkPropertyChanged(AIndex);
  49634. end;
  49635. Procedure TPSStatusTask.SetPhysicalPercentComplete(AIndex: Integer; const AValue: TInt16);
  49636. begin
  49637. If (FPhysicalPercentComplete=AValue) then exit;
  49638. FPhysicalPercentComplete:=AValue;
  49639. MarkPropertyChanged(AIndex);
  49640. end;
  49641. Procedure TPSStatusTask.SetRegularWork(AIndex: Integer; const AValue: string);
  49642. begin
  49643. If (FRegularWork=AValue) then exit;
  49644. FRegularWork:=AValue;
  49645. MarkPropertyChanged(AIndex);
  49646. end;
  49647. Procedure TPSStatusTask.SetRegularWorkMilliseconds(AIndex: Integer; const AValue: TInt32);
  49648. begin
  49649. If (FRegularWorkMilliseconds=AValue) then exit;
  49650. FRegularWorkMilliseconds:=AValue;
  49651. MarkPropertyChanged(AIndex);
  49652. end;
  49653. Procedure TPSStatusTask.SetRegularWorkTimeSpan(AIndex: Integer; const AValue: TTime);
  49654. begin
  49655. If (FRegularWorkTimeSpan=AValue) then exit;
  49656. FRegularWorkTimeSpan:=AValue;
  49657. MarkPropertyChanged(AIndex);
  49658. end;
  49659. Procedure TPSStatusTask.SetRemainingDuration(AIndex: Integer; const AValue: string);
  49660. begin
  49661. If (FRemainingDuration=AValue) then exit;
  49662. FRemainingDuration:=AValue;
  49663. MarkPropertyChanged(AIndex);
  49664. end;
  49665. Procedure TPSStatusTask.SetRemainingDurationMilliseconds(AIndex: Integer; const AValue: TInt32);
  49666. begin
  49667. If (FRemainingDurationMilliseconds=AValue) then exit;
  49668. FRemainingDurationMilliseconds:=AValue;
  49669. MarkPropertyChanged(AIndex);
  49670. end;
  49671. Procedure TPSStatusTask.SetRemainingDurationTimeSpan(AIndex: Integer; const AValue: TTime);
  49672. begin
  49673. If (FRemainingDurationTimeSpan=AValue) then exit;
  49674. FRemainingDurationTimeSpan:=AValue;
  49675. MarkPropertyChanged(AIndex);
  49676. end;
  49677. Procedure TPSStatusTask.SetRemainingOvertime(AIndex: Integer; const AValue: string);
  49678. begin
  49679. If (FRemainingOvertime=AValue) then exit;
  49680. FRemainingOvertime:=AValue;
  49681. MarkPropertyChanged(AIndex);
  49682. end;
  49683. Procedure TPSStatusTask.SetRemainingOvertimeMilliseconds(AIndex: Integer; const AValue: TInt32);
  49684. begin
  49685. If (FRemainingOvertimeMilliseconds=AValue) then exit;
  49686. FRemainingOvertimeMilliseconds:=AValue;
  49687. MarkPropertyChanged(AIndex);
  49688. end;
  49689. Procedure TPSStatusTask.SetRemainingOvertimeTimeSpan(AIndex: Integer; const AValue: TTime);
  49690. begin
  49691. If (FRemainingOvertimeTimeSpan=AValue) then exit;
  49692. FRemainingOvertimeTimeSpan:=AValue;
  49693. MarkPropertyChanged(AIndex);
  49694. end;
  49695. Procedure TPSStatusTask.SetRemainingWork(AIndex: Integer; const AValue: string);
  49696. begin
  49697. If (FRemainingWork=AValue) then exit;
  49698. FRemainingWork:=AValue;
  49699. MarkPropertyChanged(AIndex);
  49700. end;
  49701. Procedure TPSStatusTask.SetRemainingWorkMilliseconds(AIndex: Integer; const AValue: TInt32);
  49702. begin
  49703. If (FRemainingWorkMilliseconds=AValue) then exit;
  49704. FRemainingWorkMilliseconds:=AValue;
  49705. MarkPropertyChanged(AIndex);
  49706. end;
  49707. Procedure TPSStatusTask.SetRemainingWorkTimeSpan(AIndex: Integer; const AValue: TTime);
  49708. begin
  49709. If (FRemainingWorkTimeSpan=AValue) then exit;
  49710. FRemainingWorkTimeSpan:=AValue;
  49711. MarkPropertyChanged(AIndex);
  49712. end;
  49713. Procedure TPSStatusTask.SetResume(AIndex: Integer; const AValue: TDateTime);
  49714. begin
  49715. If (FResume=AValue) then exit;
  49716. FResume:=AValue;
  49717. MarkPropertyChanged(AIndex);
  49718. end;
  49719. Procedure TPSStatusTask.SetStart(AIndex: Integer; const AValue: TDateTime);
  49720. begin
  49721. If (FStart=AValue) then exit;
  49722. FStart:=AValue;
  49723. MarkPropertyChanged(AIndex);
  49724. end;
  49725. Procedure TPSStatusTask.SetWork(AIndex: Integer; const AValue: string);
  49726. begin
  49727. If (FWork=AValue) then exit;
  49728. FWork:=AValue;
  49729. MarkPropertyChanged(AIndex);
  49730. end;
  49731. Procedure TPSStatusTask.SetWorkMilliseconds(AIndex: Integer; const AValue: TInt32);
  49732. begin
  49733. If (FWorkMilliseconds=AValue) then exit;
  49734. FWorkMilliseconds:=AValue;
  49735. MarkPropertyChanged(AIndex);
  49736. end;
  49737. Procedure TPSStatusTask.SetWorkTimeSpan(AIndex: Integer; const AValue: TTime);
  49738. begin
  49739. If (FWorkTimeSpan=AValue) then exit;
  49740. FWorkTimeSpan:=AValue;
  49741. MarkPropertyChanged(AIndex);
  49742. end;
  49743. Function TPSStatusTask.KeyAsURLPart : string;
  49744. begin
  49745. Result:=TODataObject.MakeKeyString(Id);
  49746. end;
  49747. { --------------------------------------------------------------------
  49748. TPSEntityTypes
  49749. --------------------------------------------------------------------}
  49750. Class Function TPSEntityTypes.ObjectRestKind : String;
  49751. begin
  49752. Result:='EntityTypes';
  49753. end;
  49754. Procedure TPSEntityTypes.SetId4a81de82eeb94d6080ea5bf63e27023a(AIndex: Integer; const AValue: string);
  49755. begin
  49756. If (FId4a81de82eeb94d6080ea5bf63e27023a=AValue) then exit;
  49757. FId4a81de82eeb94d6080ea5bf63e27023a:=AValue;
  49758. MarkPropertyChanged(AIndex);
  49759. end;
  49760. Function TPSEntityTypes.KeyAsURLPart : string;
  49761. begin
  49762. Result:=TODataObject.MakeKeyString(Id4a81de82eeb94d6080ea5bf63e27023a);
  49763. end;
  49764. Function TPSEntityTypes.AssignmentEntity(AService: TODataService) : TPSEntityType;
  49765. begin
  49766. Result:=TPSEntityType(GetContainedSingleTon(AService,'AssignmentEntity', TPSEntityType));
  49767. end;
  49768. Function TPSEntityTypes.ProjectEntity(AService: TODataService) : TPSEntityType;
  49769. begin
  49770. Result:=TPSEntityType(GetContainedSingleTon(AService,'ProjectEntity', TPSEntityType));
  49771. end;
  49772. Function TPSEntityTypes.ResourceEntity(AService: TODataService) : TPSEntityType;
  49773. begin
  49774. Result:=TPSEntityType(GetContainedSingleTon(AService,'ResourceEntity', TPSEntityType));
  49775. end;
  49776. Function TPSEntityTypes.TaskEntity(AService: TODataService) : TPSEntityType;
  49777. begin
  49778. Result:=TPSEntityType(GetContainedSingleTon(AService,'TaskEntity', TPSEntityType));
  49779. end;
  49780. { --------------------------------------------------------------------
  49781. TPSEvent
  49782. --------------------------------------------------------------------}
  49783. Class Function TPSEvent.ObjectRestKind : String;
  49784. begin
  49785. Result:='Event';
  49786. end;
  49787. Procedure TPSEvent.SetEventName(AIndex: Integer; const AValue: string);
  49788. begin
  49789. If (FEventName=AValue) then exit;
  49790. FEventName:=AValue;
  49791. MarkPropertyChanged(AIndex);
  49792. end;
  49793. Procedure TPSEvent.SetId(AIndex: Integer; const AValue: TInt32);
  49794. begin
  49795. If (FId=AValue) then exit;
  49796. FId:=AValue;
  49797. MarkPropertyChanged(AIndex);
  49798. end;
  49799. Procedure TPSEvent.SetSourceName(AIndex: Integer; const AValue: string);
  49800. begin
  49801. If (FSourceName=AValue) then exit;
  49802. FSourceName:=AValue;
  49803. MarkPropertyChanged(AIndex);
  49804. end;
  49805. Function TPSEvent.KeyAsURLPart : string;
  49806. begin
  49807. Result:=IntToStr(Id);
  49808. end;
  49809. { --------------------------------------------------------------------
  49810. TPSEventHandler
  49811. --------------------------------------------------------------------}
  49812. Class Function TPSEventHandler.ObjectRestKind : String;
  49813. begin
  49814. Result:='EventHandler';
  49815. end;
  49816. Procedure TPSEventHandler.SetAssemblyName(AIndex: Integer; const AValue: string);
  49817. begin
  49818. If (FAssemblyName=AValue) then exit;
  49819. FAssemblyName:=AValue;
  49820. MarkPropertyChanged(AIndex);
  49821. end;
  49822. Procedure TPSEventHandler.SetCancelOnError(AIndex: Integer; const AValue: boolean);
  49823. begin
  49824. If (FCancelOnError=AValue) then exit;
  49825. FCancelOnError:=AValue;
  49826. MarkPropertyChanged(AIndex);
  49827. end;
  49828. Procedure TPSEventHandler.SetClassName(AIndex: Integer; const AValue: string);
  49829. begin
  49830. If (FClassName=AValue) then exit;
  49831. FClassName:=AValue;
  49832. MarkPropertyChanged(AIndex);
  49833. end;
  49834. Procedure TPSEventHandler.SetDescription(AIndex: Integer; const AValue: string);
  49835. begin
  49836. If (FDescription=AValue) then exit;
  49837. FDescription:=AValue;
  49838. MarkPropertyChanged(AIndex);
  49839. end;
  49840. Procedure TPSEventHandler.SetEndpointUrl(AIndex: Integer; const AValue: string);
  49841. begin
  49842. If (FEndpointUrl=AValue) then exit;
  49843. FEndpointUrl:=AValue;
  49844. MarkPropertyChanged(AIndex);
  49845. end;
  49846. Procedure TPSEventHandler.SetEventId(AIndex: Integer; const AValue: TInt32);
  49847. begin
  49848. If (FEventId=AValue) then exit;
  49849. FEventId:=AValue;
  49850. MarkPropertyChanged(AIndex);
  49851. end;
  49852. Procedure TPSEventHandler.SetId(AIndex: Integer; const AValue: TGUIDString);
  49853. begin
  49854. If (FId=AValue) then exit;
  49855. FId:=AValue;
  49856. MarkPropertyChanged(AIndex);
  49857. end;
  49858. Procedure TPSEventHandler.SetName(AIndex: Integer; const AValue: string);
  49859. begin
  49860. If (FName=AValue) then exit;
  49861. FName:=AValue;
  49862. MarkPropertyChanged(AIndex);
  49863. end;
  49864. Procedure TPSEventHandler.SetOrder(AIndex: Integer; const AValue: TInt32);
  49865. begin
  49866. If (FOrder=AValue) then exit;
  49867. FOrder:=AValue;
  49868. MarkPropertyChanged(AIndex);
  49869. end;
  49870. Function TPSEventHandler.KeyAsURLPart : string;
  49871. begin
  49872. Result:=TODataObject.MakeKeyString(Id);
  49873. end;
  49874. Function TPSEventHandler.Event(AService: TODataService) : TPSEvent;
  49875. begin
  49876. Result:=TPSEvent(GetContainedSingleTon(AService,'Event', TPSEvent));
  49877. end;
  49878. { --------------------------------------------------------------------
  49879. TPSLookupCost
  49880. --------------------------------------------------------------------}
  49881. Class Function TPSLookupCost.ObjectRestKind : String;
  49882. begin
  49883. Result:='LookupCost';
  49884. end;
  49885. Procedure TPSLookupCost.SetValue(AIndex: Integer; const AValue: double);
  49886. begin
  49887. If (FValue=AValue) then exit;
  49888. FValue:=AValue;
  49889. MarkPropertyChanged(AIndex);
  49890. end;
  49891. { --------------------------------------------------------------------
  49892. TPSLookupDate
  49893. --------------------------------------------------------------------}
  49894. Class Function TPSLookupDate.ObjectRestKind : String;
  49895. begin
  49896. Result:='LookupDate';
  49897. end;
  49898. Procedure TPSLookupDate.SetValue(AIndex: Integer; const AValue: TDateTime);
  49899. begin
  49900. If (FValue=AValue) then exit;
  49901. FValue:=AValue;
  49902. MarkPropertyChanged(AIndex);
  49903. end;
  49904. { --------------------------------------------------------------------
  49905. TPSLookupDuration
  49906. --------------------------------------------------------------------}
  49907. Class Function TPSLookupDuration.ObjectRestKind : String;
  49908. begin
  49909. Result:='LookupDuration';
  49910. end;
  49911. Procedure TPSLookupDuration.SetValue(AIndex: Integer; const AValue: string);
  49912. begin
  49913. If (FValue=AValue) then exit;
  49914. FValue:=AValue;
  49915. MarkPropertyChanged(AIndex);
  49916. end;
  49917. Procedure TPSLookupDuration.SetValueMilliseconds(AIndex: Integer; const AValue: TInt32);
  49918. begin
  49919. If (FValueMilliseconds=AValue) then exit;
  49920. FValueMilliseconds:=AValue;
  49921. MarkPropertyChanged(AIndex);
  49922. end;
  49923. Procedure TPSLookupDuration.SetValueTimeSpan(AIndex: Integer; const AValue: TTime);
  49924. begin
  49925. If (FValueTimeSpan=AValue) then exit;
  49926. FValueTimeSpan:=AValue;
  49927. MarkPropertyChanged(AIndex);
  49928. end;
  49929. { --------------------------------------------------------------------
  49930. TPSLookupNumber
  49931. --------------------------------------------------------------------}
  49932. Class Function TPSLookupNumber.ObjectRestKind : String;
  49933. begin
  49934. Result:='LookupNumber';
  49935. end;
  49936. Procedure TPSLookupNumber.SetValue(AIndex: Integer; const AValue: double);
  49937. begin
  49938. If (FValue=AValue) then exit;
  49939. FValue:=AValue;
  49940. MarkPropertyChanged(AIndex);
  49941. end;
  49942. { --------------------------------------------------------------------
  49943. TPSLookupText
  49944. --------------------------------------------------------------------}
  49945. Class Function TPSLookupText.ObjectRestKind : String;
  49946. begin
  49947. Result:='LookupText';
  49948. end;
  49949. Procedure TPSLookupText.SetHasChildren(AIndex: Integer; const AValue: boolean);
  49950. begin
  49951. If (FHasChildren=AValue) then exit;
  49952. FHasChildren:=AValue;
  49953. MarkPropertyChanged(AIndex);
  49954. end;
  49955. Procedure TPSLookupText.SetMask(AIndex: Integer; const AValue: TPSLookupMask);
  49956. begin
  49957. If (FMask=AValue) then exit;
  49958. FMask:=AValue;
  49959. MarkPropertyChanged(AIndex);
  49960. end;
  49961. Procedure TPSLookupText.SetValue(AIndex: Integer; const AValue: string);
  49962. begin
  49963. If (FValue=AValue) then exit;
  49964. FValue:=AValue;
  49965. MarkPropertyChanged(AIndex);
  49966. end;
  49967. Function TPSLookupText.Parent(AService: TODataService) : TPSLookupText;
  49968. begin
  49969. Result:=TPSLookupText(GetContainedSingleTon(AService,'Parent', TPSLookupText));
  49970. end;
  49971. { --------------------------------------------------------------------
  49972. TPSPlanAssignment
  49973. --------------------------------------------------------------------}
  49974. Class Function TPSPlanAssignment.ObjectRestKind : String;
  49975. begin
  49976. Result:='PlanAssignment';
  49977. end;
  49978. Procedure TPSPlanAssignment.SetBookingType(AIndex: Integer; const AValue: TInt32);
  49979. begin
  49980. If (FBookingType=AValue) then exit;
  49981. FBookingType:=AValue;
  49982. MarkPropertyChanged(AIndex);
  49983. end;
  49984. Procedure TPSPlanAssignment.SetCanLevel(AIndex: Integer; const AValue: boolean);
  49985. begin
  49986. If (FCanLevel=AValue) then exit;
  49987. FCanLevel:=AValue;
  49988. MarkPropertyChanged(AIndex);
  49989. end;
  49990. Procedure TPSPlanAssignment.SetCode(AIndex: Integer; const AValue: string);
  49991. begin
  49992. If (FCode=AValue) then exit;
  49993. FCode:=AValue;
  49994. MarkPropertyChanged(AIndex);
  49995. end;
  49996. Procedure TPSPlanAssignment.SetCostCenter(AIndex: Integer; const AValue: string);
  49997. begin
  49998. If (FCostCenter=AValue) then exit;
  49999. FCostCenter:=AValue;
  50000. MarkPropertyChanged(AIndex);
  50001. end;
  50002. Procedure TPSPlanAssignment.SetEmail(AIndex: Integer; const AValue: string);
  50003. begin
  50004. If (FEmail=AValue) then exit;
  50005. FEmail:=AValue;
  50006. MarkPropertyChanged(AIndex);
  50007. end;
  50008. Procedure TPSPlanAssignment.SetGroup(AIndex: Integer; const AValue: string);
  50009. begin
  50010. If (FGroup=AValue) then exit;
  50011. FGroup:=AValue;
  50012. MarkPropertyChanged(AIndex);
  50013. end;
  50014. Procedure TPSPlanAssignment.SetHireDate(AIndex: Integer; const AValue: TDateTime);
  50015. begin
  50016. If (FHireDate=AValue) then exit;
  50017. FHireDate:=AValue;
  50018. MarkPropertyChanged(AIndex);
  50019. end;
  50020. Procedure TPSPlanAssignment.SetId(AIndex: Integer; const AValue: TGUIDString);
  50021. begin
  50022. If (FId=AValue) then exit;
  50023. FId:=AValue;
  50024. MarkPropertyChanged(AIndex);
  50025. end;
  50026. Procedure TPSPlanAssignment.SetIsTeam(AIndex: Integer; const AValue: boolean);
  50027. begin
  50028. If (FIsTeam=AValue) then exit;
  50029. FIsTeam:=AValue;
  50030. MarkPropertyChanged(AIndex);
  50031. end;
  50032. Procedure TPSPlanAssignment.SetName(AIndex: Integer; const AValue: string);
  50033. begin
  50034. If (FName=AValue) then exit;
  50035. FName:=AValue;
  50036. MarkPropertyChanged(AIndex);
  50037. end;
  50038. Procedure TPSPlanAssignment.SetPhonetics(AIndex: Integer; const AValue: string);
  50039. begin
  50040. If (FPhonetics=AValue) then exit;
  50041. FPhonetics:=AValue;
  50042. MarkPropertyChanged(AIndex);
  50043. end;
  50044. Procedure TPSPlanAssignment.SetResourceType(AIndex: Integer; const AValue: TInt32);
  50045. begin
  50046. If (FResourceType=AValue) then exit;
  50047. FResourceType:=AValue;
  50048. MarkPropertyChanged(AIndex);
  50049. end;
  50050. Procedure TPSPlanAssignment.SetTerminationDate(AIndex: Integer; const AValue: TDateTime);
  50051. begin
  50052. If (FTerminationDate=AValue) then exit;
  50053. FTerminationDate:=AValue;
  50054. MarkPropertyChanged(AIndex);
  50055. end;
  50056. Function TPSPlanAssignment.KeyAsURLPart : string;
  50057. begin
  50058. Result:=TODataObject.MakeKeyString(Id);
  50059. end;
  50060. Function TPSPlanAssignment.CustomFields(AService: TODataService) : TPSCustomField;
  50061. begin
  50062. Result:=TPSCustomField(GetContainedSingleTon(AService,'CustomFields', TPSCustomField));
  50063. end;
  50064. Function TPSPlanAssignment.Intervals(AService: TODataService) : TPSPlanAssignmentInterval;
  50065. begin
  50066. Result:=TPSPlanAssignmentInterval(GetContainedSingleTon(AService,'Intervals', TPSPlanAssignmentInterval));
  50067. end;
  50068. Function TPSPlanAssignment.Resource(AService: TODataService) : TPSEnterpriseResource;
  50069. begin
  50070. Result:=TPSEnterpriseResource(GetContainedSingleTon(AService,'Resource', TPSEnterpriseResource));
  50071. end;
  50072. { --------------------------------------------------------------------
  50073. TPSPlanAssignmentInterval
  50074. --------------------------------------------------------------------}
  50075. Class Function TPSPlanAssignmentInterval.ObjectRestKind : String;
  50076. begin
  50077. Result:='PlanAssignmentInterval';
  50078. end;
  50079. Procedure TPSPlanAssignmentInterval.SetDuration(AIndex: Integer; const AValue: string);
  50080. begin
  50081. If (FDuration=AValue) then exit;
  50082. FDuration:=AValue;
  50083. MarkPropertyChanged(AIndex);
  50084. end;
  50085. Procedure TPSPlanAssignmentInterval.SetDurationMilliseconds(AIndex: Integer; const AValue: TInt32);
  50086. begin
  50087. If (FDurationMilliseconds=AValue) then exit;
  50088. FDurationMilliseconds:=AValue;
  50089. MarkPropertyChanged(AIndex);
  50090. end;
  50091. Procedure TPSPlanAssignmentInterval.SetDurationTimeSpan(AIndex: Integer; const AValue: TTime);
  50092. begin
  50093. If (FDurationTimeSpan=AValue) then exit;
  50094. FDurationTimeSpan:=AValue;
  50095. MarkPropertyChanged(AIndex);
  50096. end;
  50097. Procedure TPSPlanAssignmentInterval.Set_End(AIndex: Integer; const AValue: TDateTime);
  50098. begin
  50099. If (F_End=AValue) then exit;
  50100. F_End:=AValue;
  50101. MarkPropertyChanged(AIndex);
  50102. end;
  50103. Procedure TPSPlanAssignmentInterval.SetName(AIndex: Integer; const AValue: string);
  50104. begin
  50105. If (FName=AValue) then exit;
  50106. FName:=AValue;
  50107. MarkPropertyChanged(AIndex);
  50108. end;
  50109. Procedure TPSPlanAssignmentInterval.SetStart(AIndex: Integer; const AValue: TDateTime);
  50110. begin
  50111. If (FStart=AValue) then exit;
  50112. FStart:=AValue;
  50113. MarkPropertyChanged(AIndex);
  50114. end;
  50115. Class Function TPSPlanAssignmentInterval.ExportPropertyName(Const AName : String) :String;
  50116. begin
  50117. Case AName of
  50118. '_End' : Result:='End';
  50119. else
  50120. Result:=Inherited ExportPropertyName(AName);
  50121. end;
  50122. end;
  50123. Function TPSPlanAssignmentInterval.KeyAsURLPart : string;
  50124. begin
  50125. Result:=TODataObject.MakeKeyString(Name);
  50126. end;
  50127. { --------------------------------------------------------------------
  50128. TPSProjectServerData
  50129. --------------------------------------------------------------------}
  50130. Class Function TPSProjectServerData.ObjectRestKind : String;
  50131. begin
  50132. Result:='ProjectServerData';
  50133. end;
  50134. Procedure TPSProjectServerData.SetId4a81de82eeb94d6080ea5bf63e27023a(AIndex: Integer; const AValue: string);
  50135. begin
  50136. If (FId4a81de82eeb94d6080ea5bf63e27023a=AValue) then exit;
  50137. FId4a81de82eeb94d6080ea5bf63e27023a:=AValue;
  50138. MarkPropertyChanged(AIndex);
  50139. end;
  50140. Function TPSProjectServerData.KeyAsURLPart : string;
  50141. begin
  50142. Result:=TODataObject.MakeKeyString(Id4a81de82eeb94d6080ea5bf63e27023a);
  50143. end;
  50144. { --------------------------------------------------------------------
  50145. TPSProjectServer
  50146. --------------------------------------------------------------------}
  50147. Class Function TPSProjectServer.ObjectRestKind : String;
  50148. begin
  50149. Result:='ProjectServer';
  50150. end;
  50151. Procedure TPSProjectServer.SetIsDelegate(AIndex: Integer; const AValue: boolean);
  50152. begin
  50153. If (FIsDelegate=AValue) then exit;
  50154. FIsDelegate:=AValue;
  50155. MarkPropertyChanged(AIndex);
  50156. end;
  50157. Procedure TPSProjectServer.SetIsReadOnly(AIndex: Integer; const AValue: boolean);
  50158. begin
  50159. If (FIsReadOnly=AValue) then exit;
  50160. FIsReadOnly:=AValue;
  50161. MarkPropertyChanged(AIndex);
  50162. end;
  50163. Function TPSProjectServer.KeyAsURLPart : string;
  50164. begin
  50165. Result:=BoolToStr(IsDelegate,'true','false');
  50166. end;
  50167. Function TPSProjectServer.Calendars(AService: TODataService) : TPSCalendar;
  50168. begin
  50169. Result:=TPSCalendar(GetContainedSingleTon(AService,'Calendars', TPSCalendar));
  50170. end;
  50171. Function TPSProjectServer.CustomFields(AService: TODataService) : TPSCustomField;
  50172. begin
  50173. Result:=TPSCustomField(GetContainedSingleTon(AService,'CustomFields', TPSCustomField));
  50174. end;
  50175. Function TPSProjectServer.EnterpriseProjectTypes(AService: TODataService) : TPSEnterpriseProjectType;
  50176. begin
  50177. Result:=TPSEnterpriseProjectType(GetContainedSingleTon(AService,'EnterpriseProjectTypes', TPSEnterpriseProjectType));
  50178. end;
  50179. Function TPSProjectServer.EnterpriseResources(AService: TODataService) : TPSEnterpriseResource;
  50180. begin
  50181. Result:=TPSEnterpriseResource(GetContainedSingleTon(AService,'EnterpriseResources', TPSEnterpriseResource));
  50182. end;
  50183. Function TPSProjectServer.EntityTypes(AService: TODataService) : TPSEntityTypes;
  50184. begin
  50185. Result:=TPSEntityTypes(GetContainedSingleTon(AService,'EntityTypes', TPSEntityTypes));
  50186. end;
  50187. Function TPSProjectServer.EventHandlers(AService: TODataService) : TPSEventHandler;
  50188. begin
  50189. Result:=TPSEventHandler(GetContainedSingleTon(AService,'EventHandlers', TPSEventHandler));
  50190. end;
  50191. Function TPSProjectServer.Events(AService: TODataService) : TPSEvent;
  50192. begin
  50193. Result:=TPSEvent(GetContainedSingleTon(AService,'Events', TPSEvent));
  50194. end;
  50195. Function TPSProjectServer.LookupTables(AService: TODataService) : TPSLookupTable;
  50196. begin
  50197. Result:=TPSLookupTable(GetContainedSingleTon(AService,'LookupTables', TPSLookupTable));
  50198. end;
  50199. Function TPSProjectServer.Phases(AService: TODataService) : TPSPhase;
  50200. begin
  50201. Result:=TPSPhase(GetContainedSingleTon(AService,'Phases', TPSPhase));
  50202. end;
  50203. Function TPSProjectServer.ProjectDetailPages(AService: TODataService) : TPSProjectDetailPage;
  50204. begin
  50205. Result:=TPSProjectDetailPage(GetContainedSingleTon(AService,'ProjectDetailPages', TPSProjectDetailPage));
  50206. end;
  50207. Function TPSProjectServer.Projects(AService: TODataService) : TPSPublishedProject;
  50208. begin
  50209. Result:=TPSPublishedProject(GetContainedSingleTon(AService,'Projects', TPSPublishedProject));
  50210. end;
  50211. Function TPSProjectServer.Stages(AService: TODataService) : TPSStage;
  50212. begin
  50213. Result:=TPSStage(GetContainedSingleTon(AService,'Stages', TPSStage));
  50214. end;
  50215. Function TPSProjectServer.TimeSheetPeriods(AService: TODataService) : TPSTimeSheetPeriod;
  50216. begin
  50217. Result:=TPSTimeSheetPeriod(GetContainedSingleTon(AService,'TimeSheetPeriods', TPSTimeSheetPeriod));
  50218. end;
  50219. Function TPSProjectServer.WorkflowActivities(AService: TODataService) : TPSWorkflowActivities;
  50220. begin
  50221. Result:=TPSWorkflowActivities(GetContainedSingleTon(AService,'WorkflowActivities', TPSWorkflowActivities));
  50222. end;
  50223. Function TPSProjectServer.WorkflowDesigner(AService: TODataService) : TPSWorkflowDesigner;
  50224. begin
  50225. Result:=TPSWorkflowDesigner(GetContainedSingleTon(AService,'WorkflowDesigner', TPSWorkflowDesigner));
  50226. end;
  50227. { --------------------------------------------------------------------
  50228. TPSTimeSheetPeriod
  50229. --------------------------------------------------------------------}
  50230. Class Function TPSTimeSheetPeriod.ObjectRestKind : String;
  50231. begin
  50232. Result:='TimeSheetPeriod';
  50233. end;
  50234. Procedure TPSTimeSheetPeriod.Set_End(AIndex: Integer; const AValue: TDateTime);
  50235. begin
  50236. If (F_End=AValue) then exit;
  50237. F_End:=AValue;
  50238. MarkPropertyChanged(AIndex);
  50239. end;
  50240. Procedure TPSTimeSheetPeriod.SetId(AIndex: Integer; const AValue: TGUIDString);
  50241. begin
  50242. If (FId=AValue) then exit;
  50243. FId:=AValue;
  50244. MarkPropertyChanged(AIndex);
  50245. end;
  50246. Procedure TPSTimeSheetPeriod.SetName(AIndex: Integer; const AValue: string);
  50247. begin
  50248. If (FName=AValue) then exit;
  50249. FName:=AValue;
  50250. MarkPropertyChanged(AIndex);
  50251. end;
  50252. Procedure TPSTimeSheetPeriod.SetStart(AIndex: Integer; const AValue: TDateTime);
  50253. begin
  50254. If (FStart=AValue) then exit;
  50255. FStart:=AValue;
  50256. MarkPropertyChanged(AIndex);
  50257. end;
  50258. Class Function TPSTimeSheetPeriod.ExportPropertyName(Const AName : String) :String;
  50259. begin
  50260. Case AName of
  50261. '_End' : Result:='End';
  50262. else
  50263. Result:=Inherited ExportPropertyName(AName);
  50264. end;
  50265. end;
  50266. Function TPSTimeSheetPeriod.KeyAsURLPart : string;
  50267. begin
  50268. Result:=TODataObject.MakeKeyString(Id);
  50269. end;
  50270. Function TPSTimeSheetPeriod.TimeSheet(AService: TODataService) : TPSTimeSheet;
  50271. begin
  50272. Result:=TPSTimeSheet(GetContainedSingleTon(AService,'TimeSheet', TPSTimeSheet));
  50273. end;
  50274. { --------------------------------------------------------------------
  50275. TPSTimeSheet
  50276. --------------------------------------------------------------------}
  50277. Class Function TPSTimeSheet.ObjectRestKind : String;
  50278. begin
  50279. Result:='TimeSheet';
  50280. end;
  50281. Procedure TPSTimeSheet.SetComments(AIndex: Integer; const AValue: string);
  50282. begin
  50283. If (FComments=AValue) then exit;
  50284. FComments:=AValue;
  50285. MarkPropertyChanged(AIndex);
  50286. end;
  50287. Procedure TPSTimeSheet.SetEntryMode(AIndex: Integer; const AValue: TInt32);
  50288. begin
  50289. If (FEntryMode=AValue) then exit;
  50290. FEntryMode:=AValue;
  50291. MarkPropertyChanged(AIndex);
  50292. end;
  50293. Procedure TPSTimeSheet.SetId(AIndex: Integer; const AValue: TGUIDString);
  50294. begin
  50295. If (FId=AValue) then exit;
  50296. FId:=AValue;
  50297. MarkPropertyChanged(AIndex);
  50298. end;
  50299. Procedure TPSTimeSheet.SetIsControlledByOwner(AIndex: Integer; const AValue: boolean);
  50300. begin
  50301. If (FIsControlledByOwner=AValue) then exit;
  50302. FIsControlledByOwner:=AValue;
  50303. MarkPropertyChanged(AIndex);
  50304. end;
  50305. Procedure TPSTimeSheet.SetIsProcessed(AIndex: Integer; const AValue: boolean);
  50306. begin
  50307. If (FIsProcessed=AValue) then exit;
  50308. FIsProcessed:=AValue;
  50309. MarkPropertyChanged(AIndex);
  50310. end;
  50311. Procedure TPSTimeSheet.SetName(AIndex: Integer; const AValue: string);
  50312. begin
  50313. If (FName=AValue) then exit;
  50314. FName:=AValue;
  50315. MarkPropertyChanged(AIndex);
  50316. end;
  50317. Procedure TPSTimeSheet.SetStatus(AIndex: Integer; const AValue: TInt32);
  50318. begin
  50319. If (FStatus=AValue) then exit;
  50320. FStatus:=AValue;
  50321. MarkPropertyChanged(AIndex);
  50322. end;
  50323. Procedure TPSTimeSheet.SetTotalActualWork(AIndex: Integer; const AValue: string);
  50324. begin
  50325. If (FTotalActualWork=AValue) then exit;
  50326. FTotalActualWork:=AValue;
  50327. MarkPropertyChanged(AIndex);
  50328. end;
  50329. Procedure TPSTimeSheet.SetTotalActualWorkMilliseconds(AIndex: Integer; const AValue: TInt32);
  50330. begin
  50331. If (FTotalActualWorkMilliseconds=AValue) then exit;
  50332. FTotalActualWorkMilliseconds:=AValue;
  50333. MarkPropertyChanged(AIndex);
  50334. end;
  50335. Procedure TPSTimeSheet.SetTotalActualWorkTimeSpan(AIndex: Integer; const AValue: TTime);
  50336. begin
  50337. If (FTotalActualWorkTimeSpan=AValue) then exit;
  50338. FTotalActualWorkTimeSpan:=AValue;
  50339. MarkPropertyChanged(AIndex);
  50340. end;
  50341. Procedure TPSTimeSheet.SetTotalNonBillableOvertimeWork(AIndex: Integer; const AValue: string);
  50342. begin
  50343. If (FTotalNonBillableOvertimeWork=AValue) then exit;
  50344. FTotalNonBillableOvertimeWork:=AValue;
  50345. MarkPropertyChanged(AIndex);
  50346. end;
  50347. Procedure TPSTimeSheet.SetTotalNonBillableOvertimeWorkMilliseconds(AIndex: Integer; const AValue: TInt32);
  50348. begin
  50349. If (FTotalNonBillableOvertimeWorkMilliseconds=AValue) then exit;
  50350. FTotalNonBillableOvertimeWorkMilliseconds:=AValue;
  50351. MarkPropertyChanged(AIndex);
  50352. end;
  50353. Procedure TPSTimeSheet.SetTotalNonBillableOvertimeWorkTimeSpan(AIndex: Integer; const AValue: TTime);
  50354. begin
  50355. If (FTotalNonBillableOvertimeWorkTimeSpan=AValue) then exit;
  50356. FTotalNonBillableOvertimeWorkTimeSpan:=AValue;
  50357. MarkPropertyChanged(AIndex);
  50358. end;
  50359. Procedure TPSTimeSheet.SetTotalNonBillableWork(AIndex: Integer; const AValue: string);
  50360. begin
  50361. If (FTotalNonBillableWork=AValue) then exit;
  50362. FTotalNonBillableWork:=AValue;
  50363. MarkPropertyChanged(AIndex);
  50364. end;
  50365. Procedure TPSTimeSheet.SetTotalNonBillableWorkMilliseconds(AIndex: Integer; const AValue: TInt32);
  50366. begin
  50367. If (FTotalNonBillableWorkMilliseconds=AValue) then exit;
  50368. FTotalNonBillableWorkMilliseconds:=AValue;
  50369. MarkPropertyChanged(AIndex);
  50370. end;
  50371. Procedure TPSTimeSheet.SetTotalNonBillableWorkTimeSpan(AIndex: Integer; const AValue: TTime);
  50372. begin
  50373. If (FTotalNonBillableWorkTimeSpan=AValue) then exit;
  50374. FTotalNonBillableWorkTimeSpan:=AValue;
  50375. MarkPropertyChanged(AIndex);
  50376. end;
  50377. Procedure TPSTimeSheet.SetTotalOvertimeWork(AIndex: Integer; const AValue: string);
  50378. begin
  50379. If (FTotalOvertimeWork=AValue) then exit;
  50380. FTotalOvertimeWork:=AValue;
  50381. MarkPropertyChanged(AIndex);
  50382. end;
  50383. Procedure TPSTimeSheet.SetTotalOvertimeWorkMilliseconds(AIndex: Integer; const AValue: TInt32);
  50384. begin
  50385. If (FTotalOvertimeWorkMilliseconds=AValue) then exit;
  50386. FTotalOvertimeWorkMilliseconds:=AValue;
  50387. MarkPropertyChanged(AIndex);
  50388. end;
  50389. Procedure TPSTimeSheet.SetTotalOvertimeWorkTimeSpan(AIndex: Integer; const AValue: TTime);
  50390. begin
  50391. If (FTotalOvertimeWorkTimeSpan=AValue) then exit;
  50392. FTotalOvertimeWorkTimeSpan:=AValue;
  50393. MarkPropertyChanged(AIndex);
  50394. end;
  50395. Procedure TPSTimeSheet.SetTotalWork(AIndex: Integer; const AValue: string);
  50396. begin
  50397. If (FTotalWork=AValue) then exit;
  50398. FTotalWork:=AValue;
  50399. MarkPropertyChanged(AIndex);
  50400. end;
  50401. Procedure TPSTimeSheet.SetTotalWorkMilliseconds(AIndex: Integer; const AValue: TInt32);
  50402. begin
  50403. If (FTotalWorkMilliseconds=AValue) then exit;
  50404. FTotalWorkMilliseconds:=AValue;
  50405. MarkPropertyChanged(AIndex);
  50406. end;
  50407. Procedure TPSTimeSheet.SetTotalWorkTimeSpan(AIndex: Integer; const AValue: TTime);
  50408. begin
  50409. If (FTotalWorkTimeSpan=AValue) then exit;
  50410. FTotalWorkTimeSpan:=AValue;
  50411. MarkPropertyChanged(AIndex);
  50412. end;
  50413. Procedure TPSTimeSheet.SetWeekStartsOn(AIndex: Integer; const AValue: Byte);
  50414. begin
  50415. If (FWeekStartsOn=AValue) then exit;
  50416. FWeekStartsOn:=AValue;
  50417. MarkPropertyChanged(AIndex);
  50418. end;
  50419. Function TPSTimeSheet.KeyAsURLPart : string;
  50420. begin
  50421. Result:=TODataObject.MakeKeyString(Id);
  50422. end;
  50423. Function TPSTimeSheet.Creator(AService: TODataService) : TSPUser;
  50424. begin
  50425. Result:=TSPUser(GetContainedSingleTon(AService,'Creator', TSPUser));
  50426. end;
  50427. Function TPSTimeSheet.Lines(AService: TODataService) : TPSTimeSheetLine;
  50428. begin
  50429. Result:=TPSTimeSheetLine(GetContainedSingleTon(AService,'Lines', TPSTimeSheetLine));
  50430. end;
  50431. Function TPSTimeSheet.Manager(AService: TODataService) : TSPUser;
  50432. begin
  50433. Result:=TSPUser(GetContainedSingleTon(AService,'Manager', TSPUser));
  50434. end;
  50435. Function TPSTimeSheet.Period(AService: TODataService) : TPSTimeSheetPeriod;
  50436. begin
  50437. Result:=TPSTimeSheetPeriod(GetContainedSingleTon(AService,'Period', TPSTimeSheetPeriod));
  50438. end;
  50439. { --------------------------------------------------------------------
  50440. TPSTimeSheetLine
  50441. --------------------------------------------------------------------}
  50442. Class Function TPSTimeSheetLine.ObjectRestKind : String;
  50443. begin
  50444. Result:='TimeSheetLine';
  50445. end;
  50446. Procedure TPSTimeSheetLine.SetComment(AIndex: Integer; const AValue: string);
  50447. begin
  50448. If (FComment=AValue) then exit;
  50449. FComment:=AValue;
  50450. MarkPropertyChanged(AIndex);
  50451. end;
  50452. Procedure TPSTimeSheetLine.SetId(AIndex: Integer; const AValue: TGUIDString);
  50453. begin
  50454. If (FId=AValue) then exit;
  50455. FId:=AValue;
  50456. MarkPropertyChanged(AIndex);
  50457. end;
  50458. Procedure TPSTimeSheetLine.SetLineClass(AIndex: Integer; const AValue: TInt32);
  50459. begin
  50460. If (FLineClass=AValue) then exit;
  50461. FLineClass:=AValue;
  50462. MarkPropertyChanged(AIndex);
  50463. end;
  50464. Procedure TPSTimeSheetLine.SetProjectName(AIndex: Integer; const AValue: string);
  50465. begin
  50466. If (FProjectName=AValue) then exit;
  50467. FProjectName:=AValue;
  50468. MarkPropertyChanged(AIndex);
  50469. end;
  50470. Procedure TPSTimeSheetLine.SetStatus(AIndex: Integer; const AValue: TInt32);
  50471. begin
  50472. If (FStatus=AValue) then exit;
  50473. FStatus:=AValue;
  50474. MarkPropertyChanged(AIndex);
  50475. end;
  50476. Procedure TPSTimeSheetLine.SetTaskName(AIndex: Integer; const AValue: string);
  50477. begin
  50478. If (FTaskName=AValue) then exit;
  50479. FTaskName:=AValue;
  50480. MarkPropertyChanged(AIndex);
  50481. end;
  50482. Procedure TPSTimeSheetLine.SetTotalWork(AIndex: Integer; const AValue: string);
  50483. begin
  50484. If (FTotalWork=AValue) then exit;
  50485. FTotalWork:=AValue;
  50486. MarkPropertyChanged(AIndex);
  50487. end;
  50488. Procedure TPSTimeSheetLine.SetTotalWorkMilliseconds(AIndex: Integer; const AValue: TInt32);
  50489. begin
  50490. If (FTotalWorkMilliseconds=AValue) then exit;
  50491. FTotalWorkMilliseconds:=AValue;
  50492. MarkPropertyChanged(AIndex);
  50493. end;
  50494. Procedure TPSTimeSheetLine.SetTotalWorkTimeSpan(AIndex: Integer; const AValue: TTime);
  50495. begin
  50496. If (FTotalWorkTimeSpan=AValue) then exit;
  50497. FTotalWorkTimeSpan:=AValue;
  50498. MarkPropertyChanged(AIndex);
  50499. end;
  50500. Procedure TPSTimeSheetLine.SetValidationType(AIndex: Integer; const AValue: TInt32);
  50501. begin
  50502. If (FValidationType=AValue) then exit;
  50503. FValidationType:=AValue;
  50504. MarkPropertyChanged(AIndex);
  50505. end;
  50506. Function TPSTimeSheetLine.KeyAsURLPart : string;
  50507. begin
  50508. Result:=TODataObject.MakeKeyString(Id);
  50509. end;
  50510. Function TPSTimeSheetLine.Assignment(AService: TODataService) : TPSPublishedAssignment;
  50511. begin
  50512. Result:=TPSPublishedAssignment(GetContainedSingleTon(AService,'Assignment', TPSPublishedAssignment));
  50513. end;
  50514. Function TPSTimeSheetLine.TimeSheet(AService: TODataService) : TPSTimeSheet;
  50515. begin
  50516. Result:=TPSTimeSheet(GetContainedSingleTon(AService,'TimeSheet', TPSTimeSheet));
  50517. end;
  50518. Function TPSTimeSheetLine.Work(AService: TODataService) : TPSTimeSheetWork;
  50519. begin
  50520. Result:=TPSTimeSheetWork(GetContainedSingleTon(AService,'Work', TPSTimeSheetWork));
  50521. end;
  50522. { --------------------------------------------------------------------
  50523. TPSTimeSheetWork
  50524. --------------------------------------------------------------------}
  50525. Class Function TPSTimeSheetWork.ObjectRestKind : String;
  50526. begin
  50527. Result:='TimeSheetWork';
  50528. end;
  50529. Procedure TPSTimeSheetWork.SetActualWork(AIndex: Integer; const AValue: string);
  50530. begin
  50531. If (FActualWork=AValue) then exit;
  50532. FActualWork:=AValue;
  50533. MarkPropertyChanged(AIndex);
  50534. end;
  50535. Procedure TPSTimeSheetWork.SetActualWorkMilliseconds(AIndex: Integer; const AValue: TInt32);
  50536. begin
  50537. If (FActualWorkMilliseconds=AValue) then exit;
  50538. FActualWorkMilliseconds:=AValue;
  50539. MarkPropertyChanged(AIndex);
  50540. end;
  50541. Procedure TPSTimeSheetWork.SetActualWorkTimeSpan(AIndex: Integer; const AValue: TTime);
  50542. begin
  50543. If (FActualWorkTimeSpan=AValue) then exit;
  50544. FActualWorkTimeSpan:=AValue;
  50545. MarkPropertyChanged(AIndex);
  50546. end;
  50547. Procedure TPSTimeSheetWork.SetComment(AIndex: Integer; const AValue: string);
  50548. begin
  50549. If (FComment=AValue) then exit;
  50550. FComment:=AValue;
  50551. MarkPropertyChanged(AIndex);
  50552. end;
  50553. Procedure TPSTimeSheetWork.Set_End(AIndex: Integer; const AValue: TDateTime);
  50554. begin
  50555. If (F_End=AValue) then exit;
  50556. F_End:=AValue;
  50557. MarkPropertyChanged(AIndex);
  50558. end;
  50559. Procedure TPSTimeSheetWork.SetId(AIndex: Integer; const AValue: TGUIDString);
  50560. begin
  50561. If (FId=AValue) then exit;
  50562. FId:=AValue;
  50563. MarkPropertyChanged(AIndex);
  50564. end;
  50565. Procedure TPSTimeSheetWork.SetNonBillableOvertimeWork(AIndex: Integer; const AValue: string);
  50566. begin
  50567. If (FNonBillableOvertimeWork=AValue) then exit;
  50568. FNonBillableOvertimeWork:=AValue;
  50569. MarkPropertyChanged(AIndex);
  50570. end;
  50571. Procedure TPSTimeSheetWork.SetNonBillableOvertimeWorkMilliseconds(AIndex: Integer; const AValue: TInt32);
  50572. begin
  50573. If (FNonBillableOvertimeWorkMilliseconds=AValue) then exit;
  50574. FNonBillableOvertimeWorkMilliseconds:=AValue;
  50575. MarkPropertyChanged(AIndex);
  50576. end;
  50577. Procedure TPSTimeSheetWork.SetNonBillableOvertimeWorkTimeSpan(AIndex: Integer; const AValue: TTime);
  50578. begin
  50579. If (FNonBillableOvertimeWorkTimeSpan=AValue) then exit;
  50580. FNonBillableOvertimeWorkTimeSpan:=AValue;
  50581. MarkPropertyChanged(AIndex);
  50582. end;
  50583. Procedure TPSTimeSheetWork.SetNonBillableWork(AIndex: Integer; const AValue: string);
  50584. begin
  50585. If (FNonBillableWork=AValue) then exit;
  50586. FNonBillableWork:=AValue;
  50587. MarkPropertyChanged(AIndex);
  50588. end;
  50589. Procedure TPSTimeSheetWork.SetNonBillableWorkMilliseconds(AIndex: Integer; const AValue: TInt32);
  50590. begin
  50591. If (FNonBillableWorkMilliseconds=AValue) then exit;
  50592. FNonBillableWorkMilliseconds:=AValue;
  50593. MarkPropertyChanged(AIndex);
  50594. end;
  50595. Procedure TPSTimeSheetWork.SetNonBillableWorkTimeSpan(AIndex: Integer; const AValue: TTime);
  50596. begin
  50597. If (FNonBillableWorkTimeSpan=AValue) then exit;
  50598. FNonBillableWorkTimeSpan:=AValue;
  50599. MarkPropertyChanged(AIndex);
  50600. end;
  50601. Procedure TPSTimeSheetWork.SetOvertimeWork(AIndex: Integer; const AValue: string);
  50602. begin
  50603. If (FOvertimeWork=AValue) then exit;
  50604. FOvertimeWork:=AValue;
  50605. MarkPropertyChanged(AIndex);
  50606. end;
  50607. Procedure TPSTimeSheetWork.SetOvertimeWorkMilliseconds(AIndex: Integer; const AValue: TInt32);
  50608. begin
  50609. If (FOvertimeWorkMilliseconds=AValue) then exit;
  50610. FOvertimeWorkMilliseconds:=AValue;
  50611. MarkPropertyChanged(AIndex);
  50612. end;
  50613. Procedure TPSTimeSheetWork.SetOvertimeWorkTimeSpan(AIndex: Integer; const AValue: TTime);
  50614. begin
  50615. If (FOvertimeWorkTimeSpan=AValue) then exit;
  50616. FOvertimeWorkTimeSpan:=AValue;
  50617. MarkPropertyChanged(AIndex);
  50618. end;
  50619. Procedure TPSTimeSheetWork.SetPlannedWork(AIndex: Integer; const AValue: string);
  50620. begin
  50621. If (FPlannedWork=AValue) then exit;
  50622. FPlannedWork:=AValue;
  50623. MarkPropertyChanged(AIndex);
  50624. end;
  50625. Procedure TPSTimeSheetWork.SetPlannedWorkMilliseconds(AIndex: Integer; const AValue: TInt32);
  50626. begin
  50627. If (FPlannedWorkMilliseconds=AValue) then exit;
  50628. FPlannedWorkMilliseconds:=AValue;
  50629. MarkPropertyChanged(AIndex);
  50630. end;
  50631. Procedure TPSTimeSheetWork.SetPlannedWorkTimeSpan(AIndex: Integer; const AValue: TTime);
  50632. begin
  50633. If (FPlannedWorkTimeSpan=AValue) then exit;
  50634. FPlannedWorkTimeSpan:=AValue;
  50635. MarkPropertyChanged(AIndex);
  50636. end;
  50637. Procedure TPSTimeSheetWork.SetStart(AIndex: Integer; const AValue: TDateTime);
  50638. begin
  50639. If (FStart=AValue) then exit;
  50640. FStart:=AValue;
  50641. MarkPropertyChanged(AIndex);
  50642. end;
  50643. Class Function TPSTimeSheetWork.ExportPropertyName(Const AName : String) :String;
  50644. begin
  50645. Case AName of
  50646. '_End' : Result:='End';
  50647. else
  50648. Result:=Inherited ExportPropertyName(AName);
  50649. end;
  50650. end;
  50651. Function TPSTimeSheetWork.KeyAsURLPart : string;
  50652. begin
  50653. Result:=TODataObject.MakeKeyString(Id);
  50654. end;
  50655. { --------------------------------------------------------------------
  50656. TPSWorkflowActivities
  50657. --------------------------------------------------------------------}
  50658. Class Function TPSWorkflowActivities.ObjectRestKind : String;
  50659. begin
  50660. Result:='WorkflowActivities';
  50661. end;
  50662. Procedure TPSWorkflowActivities.SetId4a81de82eeb94d6080ea5bf63e27023a(AIndex: Integer; const AValue: string);
  50663. begin
  50664. If (FId4a81de82eeb94d6080ea5bf63e27023a=AValue) then exit;
  50665. FId4a81de82eeb94d6080ea5bf63e27023a:=AValue;
  50666. MarkPropertyChanged(AIndex);
  50667. end;
  50668. Function TPSWorkflowActivities.KeyAsURLPart : string;
  50669. begin
  50670. Result:=TODataObject.MakeKeyString(Id4a81de82eeb94d6080ea5bf63e27023a);
  50671. end;
  50672. { --------------------------------------------------------------------
  50673. TPSWorkflowDesigner
  50674. --------------------------------------------------------------------}
  50675. Class Function TPSWorkflowDesigner.ObjectRestKind : String;
  50676. begin
  50677. Result:='WorkflowDesigner';
  50678. end;
  50679. Procedure TPSWorkflowDesigner.SetId4a81de82eeb94d6080ea5bf63e27023a(AIndex: Integer; const AValue: string);
  50680. begin
  50681. If (FId4a81de82eeb94d6080ea5bf63e27023a=AValue) then exit;
  50682. FId4a81de82eeb94d6080ea5bf63e27023a:=AValue;
  50683. MarkPropertyChanged(AIndex);
  50684. end;
  50685. Function TPSWorkflowDesigner.KeyAsURLPart : string;
  50686. begin
  50687. Result:=TODataObject.MakeKeyString(Id4a81de82eeb94d6080ea5bf63e27023a);
  50688. end;
  50689. Function TPSWorkflowDesigner.Fields(AService: TODataService) : TPSWorkflowDesignerField;
  50690. begin
  50691. Result:=TPSWorkflowDesignerField(GetContainedSingleTon(AService,'Fields', TPSWorkflowDesignerField));
  50692. end;
  50693. { --------------------------------------------------------------------
  50694. TPSWorkflowDesignerField
  50695. --------------------------------------------------------------------}
  50696. Class Function TPSWorkflowDesignerField.ObjectRestKind : String;
  50697. begin
  50698. Result:='WorkflowDesignerField';
  50699. end;
  50700. Procedure TPSWorkflowDesignerField.SetDisplayName(AIndex: Integer; const AValue: string);
  50701. begin
  50702. If (FDisplayName=AValue) then exit;
  50703. FDisplayName:=AValue;
  50704. MarkPropertyChanged(AIndex);
  50705. end;
  50706. Procedure TPSWorkflowDesignerField.SetId(AIndex: Integer; const AValue: string);
  50707. begin
  50708. If (FId=AValue) then exit;
  50709. FId:=AValue;
  50710. MarkPropertyChanged(AIndex);
  50711. end;
  50712. Procedure TPSWorkflowDesignerField.SetIsLookupField(AIndex: Integer; const AValue: boolean);
  50713. begin
  50714. If (FIsLookupField=AValue) then exit;
  50715. FIsLookupField:=AValue;
  50716. MarkPropertyChanged(AIndex);
  50717. end;
  50718. Procedure TPSWorkflowDesignerField.SetIsReadOnly(AIndex: Integer; const AValue: boolean);
  50719. begin
  50720. If (FIsReadOnly=AValue) then exit;
  50721. FIsReadOnly:=AValue;
  50722. MarkPropertyChanged(AIndex);
  50723. end;
  50724. Procedure TPSWorkflowDesignerField.SetSPFieldType(AIndex: Integer; const AValue: TInt32);
  50725. begin
  50726. If (FSPFieldType=AValue) then exit;
  50727. FSPFieldType:=AValue;
  50728. MarkPropertyChanged(AIndex);
  50729. end;
  50730. Function TPSWorkflowDesignerField.KeyAsURLPart : string;
  50731. begin
  50732. Result:=TODataObject.MakeKeyString(Id);
  50733. end;
  50734. Function TPSWorkflowDesignerField.LookupEntries(AService: TODataService) : TPSLookupEntry;
  50735. begin
  50736. Result:=TPSLookupEntry(GetContainedSingleTon(AService,'LookupEntries', TPSLookupEntry));
  50737. end;
  50738. { --------------------------------------------------------------------
  50739. TPSResourceCalendarException
  50740. --------------------------------------------------------------------}
  50741. Class Function TPSResourceCalendarException.ObjectRestKind : String;
  50742. begin
  50743. Result:='ResourceCalendarException';
  50744. end;
  50745. { --------------------------------------------------------------------
  50746. TPSResourcePlan
  50747. --------------------------------------------------------------------}
  50748. Class Function TPSResourcePlan.ObjectRestKind : String;
  50749. begin
  50750. Result:='ResourcePlan';
  50751. end;
  50752. Procedure TPSResourcePlan.SetFinish(AIndex: Integer; const AValue: TDateTime);
  50753. begin
  50754. If (FFinish=AValue) then exit;
  50755. FFinish:=AValue;
  50756. MarkPropertyChanged(AIndex);
  50757. end;
  50758. Procedure TPSResourcePlan.SetId(AIndex: Integer; const AValue: TGUIDString);
  50759. begin
  50760. If (FId=AValue) then exit;
  50761. FId:=AValue;
  50762. MarkPropertyChanged(AIndex);
  50763. end;
  50764. Procedure TPSResourcePlan.SetStart(AIndex: Integer; const AValue: TDateTime);
  50765. begin
  50766. If (FStart=AValue) then exit;
  50767. FStart:=AValue;
  50768. MarkPropertyChanged(AIndex);
  50769. end;
  50770. Procedure TPSResourcePlan.SetUtilizationDate(AIndex: Integer; const AValue: TDateTime);
  50771. begin
  50772. If (FUtilizationDate=AValue) then exit;
  50773. FUtilizationDate:=AValue;
  50774. MarkPropertyChanged(AIndex);
  50775. end;
  50776. Procedure TPSResourcePlan.SetUtilizationType(AIndex: Integer; const AValue: TInt32);
  50777. begin
  50778. If (FUtilizationType=AValue) then exit;
  50779. FUtilizationType:=AValue;
  50780. MarkPropertyChanged(AIndex);
  50781. end;
  50782. Function TPSResourcePlan.KeyAsURLPart : string;
  50783. begin
  50784. Result:=TODataObject.MakeKeyString(Id);
  50785. end;
  50786. Function TPSResourcePlan.Assignments(AService: TODataService) : TPSPlanAssignment;
  50787. begin
  50788. Result:=TPSPlanAssignment(GetContainedSingleTon(AService,'Assignments', TPSPlanAssignment));
  50789. end;
  50790. { --------------------------------------------------------------------
  50791. TPSServiceStatus
  50792. --------------------------------------------------------------------}
  50793. Class Function TPSServiceStatus.ObjectRestKind : String;
  50794. begin
  50795. Result:='ServiceStatus';
  50796. end;
  50797. Procedure TPSServiceStatus.SetIsDelegate(AIndex: Integer; const AValue: boolean);
  50798. begin
  50799. If (FIsDelegate=AValue) then exit;
  50800. FIsDelegate:=AValue;
  50801. MarkPropertyChanged(AIndex);
  50802. end;
  50803. Procedure TPSServiceStatus.SetIsReadOnly(AIndex: Integer; const AValue: boolean);
  50804. begin
  50805. If (FIsReadOnly=AValue) then exit;
  50806. FIsReadOnly:=AValue;
  50807. MarkPropertyChanged(AIndex);
  50808. end;
  50809. Function TPSServiceStatus.KeyAsURLPart : string;
  50810. begin
  50811. Result:=BoolToStr(IsDelegate,'true','false');
  50812. end;
  50813. { --------------------------------------------------------------------
  50814. TPSTaskServiceOdataEndpoint
  50815. --------------------------------------------------------------------}
  50816. Class Function TPSTaskServiceOdataEndpoint.ObjectRestKind : String;
  50817. begin
  50818. Result:='TaskServiceOdataEndpoint';
  50819. end;
  50820. Procedure TPSTaskServiceOdataEndpoint.SetId4a81de82eeb94d6080ea5bf63e27023a(AIndex: Integer; const AValue: string);
  50821. begin
  50822. If (FId4a81de82eeb94d6080ea5bf63e27023a=AValue) then exit;
  50823. FId4a81de82eeb94d6080ea5bf63e27023a:=AValue;
  50824. MarkPropertyChanged(AIndex);
  50825. end;
  50826. Function TPSTaskServiceOdataEndpoint.KeyAsURLPart : string;
  50827. begin
  50828. Result:=TODataObject.MakeKeyString(Id4a81de82eeb94d6080ea5bf63e27023a);
  50829. end;
  50830. { --------------------------------------------------------------------
  50831. TPSTimePhase
  50832. --------------------------------------------------------------------}
  50833. Class Function TPSTimePhase.ObjectRestKind : String;
  50834. begin
  50835. Result:='TimePhase';
  50836. end;
  50837. Procedure TPSTimePhase.Set_End(AIndex: Integer; const AValue: TDateTime);
  50838. begin
  50839. If (F_End=AValue) then exit;
  50840. F_End:=AValue;
  50841. MarkPropertyChanged(AIndex);
  50842. end;
  50843. Procedure TPSTimePhase.SetStart(AIndex: Integer; const AValue: TDateTime);
  50844. begin
  50845. If (FStart=AValue) then exit;
  50846. FStart:=AValue;
  50847. MarkPropertyChanged(AIndex);
  50848. end;
  50849. Class Function TPSTimePhase.ExportPropertyName(Const AName : String) :String;
  50850. begin
  50851. Case AName of
  50852. '_End' : Result:='End';
  50853. else
  50854. Result:=Inherited ExportPropertyName(AName);
  50855. end;
  50856. end;
  50857. Function TPSTimePhase.KeyAsURLPart : string;
  50858. begin
  50859. Result:=FormatDateTime('yyyy-mm-dd"T"hhmmss',_End);
  50860. end;
  50861. Function TPSTimePhase.Assignments(AService: TODataService) : TPSStatusAssignment;
  50862. begin
  50863. Result:=TPSStatusAssignment(GetContainedSingleTon(AService,'Assignments', TPSStatusAssignment));
  50864. end;
  50865. { --------------------------------------------------------------------
  50866. TSP_PublishingPersonMagazineData
  50867. --------------------------------------------------------------------}
  50868. Class Function TSP_PublishingPersonMagazineData.ObjectRestKind : String;
  50869. begin
  50870. Result:='PersonMagazineData';
  50871. end;
  50872. Procedure TSP_PublishingPersonMagazineData.SetAboutMe(AIndex: Integer; const AValue: string);
  50873. begin
  50874. If (FAboutMe=AValue) then exit;
  50875. FAboutMe:=AValue;
  50876. MarkPropertyChanged(AIndex);
  50877. end;
  50878. Procedure TSP_PublishingPersonMagazineData.SetBackgroundImageUrl(AIndex: Integer; const AValue: string);
  50879. begin
  50880. If (FBackgroundImageUrl=AValue) then exit;
  50881. FBackgroundImageUrl:=AValue;
  50882. MarkPropertyChanged(AIndex);
  50883. end;
  50884. Procedure TSP_PublishingPersonMagazineData.SetBackgroundImageX(AIndex: Integer; const AValue: TInt32);
  50885. begin
  50886. If (FBackgroundImageX=AValue) then exit;
  50887. FBackgroundImageX:=AValue;
  50888. MarkPropertyChanged(AIndex);
  50889. end;
  50890. Procedure TSP_PublishingPersonMagazineData.SetBackgroundImageY(AIndex: Integer; const AValue: TInt32);
  50891. begin
  50892. If (FBackgroundImageY=AValue) then exit;
  50893. FBackgroundImageY:=AValue;
  50894. MarkPropertyChanged(AIndex);
  50895. end;
  50896. Procedure TSP_PublishingPersonMagazineData.SetDepartmentName(AIndex: Integer; const AValue: string);
  50897. begin
  50898. If (FDepartmentName=AValue) then exit;
  50899. FDepartmentName:=AValue;
  50900. MarkPropertyChanged(AIndex);
  50901. end;
  50902. Procedure TSP_PublishingPersonMagazineData.SetDisplayName(AIndex: Integer; const AValue: string);
  50903. begin
  50904. If (FDisplayName=AValue) then exit;
  50905. FDisplayName:=AValue;
  50906. MarkPropertyChanged(AIndex);
  50907. end;
  50908. Procedure TSP_PublishingPersonMagazineData.SetEmail(AIndex: Integer; const AValue: string);
  50909. begin
  50910. If (FEmail=AValue) then exit;
  50911. FEmail:=AValue;
  50912. MarkPropertyChanged(AIndex);
  50913. end;
  50914. Procedure TSP_PublishingPersonMagazineData.SetHasEditPermission(AIndex: Integer; const AValue: boolean);
  50915. begin
  50916. If (FHasEditPermission=AValue) then exit;
  50917. FHasEditPermission:=AValue;
  50918. MarkPropertyChanged(AIndex);
  50919. end;
  50920. Procedure TSP_PublishingPersonMagazineData.SetOffice(AIndex: Integer; const AValue: string);
  50921. begin
  50922. If (FOffice=AValue) then exit;
  50923. FOffice:=AValue;
  50924. MarkPropertyChanged(AIndex);
  50925. end;
  50926. Procedure TSP_PublishingPersonMagazineData.SetPhone(AIndex: Integer; const AValue: string);
  50927. begin
  50928. If (FPhone=AValue) then exit;
  50929. FPhone:=AValue;
  50930. MarkPropertyChanged(AIndex);
  50931. end;
  50932. Procedure TSP_PublishingPersonMagazineData.SetPictureUrl(AIndex: Integer; const AValue: string);
  50933. begin
  50934. If (FPictureUrl=AValue) then exit;
  50935. FPictureUrl:=AValue;
  50936. MarkPropertyChanged(AIndex);
  50937. end;
  50938. Procedure TSP_PublishingPersonMagazineData.SetTitle(AIndex: Integer; const AValue: string);
  50939. begin
  50940. If (FTitle=AValue) then exit;
  50941. FTitle:=AValue;
  50942. MarkPropertyChanged(AIndex);
  50943. end;
  50944. { --------------------------------------------------------------------
  50945. TSP_PublishingPersonMagazinePeopleBasicInfo
  50946. --------------------------------------------------------------------}
  50947. Class Function TSP_PublishingPersonMagazinePeopleBasicInfo.ObjectRestKind : String;
  50948. begin
  50949. Result:='PersonMagazinePeopleBasicInfo';
  50950. end;
  50951. Procedure TSP_PublishingPersonMagazinePeopleBasicInfo.SetAccountName(AIndex: Integer; const AValue: string);
  50952. begin
  50953. If (FAccountName=AValue) then exit;
  50954. FAccountName:=AValue;
  50955. MarkPropertyChanged(AIndex);
  50956. end;
  50957. Procedure TSP_PublishingPersonMagazinePeopleBasicInfo.SetDisplayName(AIndex: Integer; const AValue: string);
  50958. begin
  50959. If (FDisplayName=AValue) then exit;
  50960. FDisplayName:=AValue;
  50961. MarkPropertyChanged(AIndex);
  50962. end;
  50963. Procedure TSP_PublishingPersonMagazinePeopleBasicInfo.SetPictureUrl(AIndex: Integer; const AValue: string);
  50964. begin
  50965. If (FPictureUrl=AValue) then exit;
  50966. FPictureUrl:=AValue;
  50967. MarkPropertyChanged(AIndex);
  50968. end;
  50969. Procedure TSP_PublishingPersonMagazinePeopleBasicInfo.SetTitle(AIndex: Integer; const AValue: string);
  50970. begin
  50971. If (FTitle=AValue) then exit;
  50972. FTitle:=AValue;
  50973. MarkPropertyChanged(AIndex);
  50974. end;
  50975. { --------------------------------------------------------------------
  50976. TSP_PublishingPersonMagazinePeopleModel
  50977. --------------------------------------------------------------------}
  50978. Class Function TSP_PublishingPersonMagazinePeopleModel.ObjectRestKind : String;
  50979. begin
  50980. Result:='PersonMagazinePeopleModel';
  50981. end;
  50982. Procedure TSP_PublishingPersonMagazinePeopleModel.SetAboutMe(AIndex: Integer; const AValue: string);
  50983. begin
  50984. If (FAboutMe=AValue) then exit;
  50985. FAboutMe:=AValue;
  50986. MarkPropertyChanged(AIndex);
  50987. end;
  50988. Procedure TSP_PublishingPersonMagazinePeopleModel.SetBackgroundImageUrl(AIndex: Integer; const AValue: string);
  50989. begin
  50990. If (FBackgroundImageUrl=AValue) then exit;
  50991. FBackgroundImageUrl:=AValue;
  50992. MarkPropertyChanged(AIndex);
  50993. end;
  50994. Procedure TSP_PublishingPersonMagazinePeopleModel.SetBasicInfo(AIndex: Integer; const AValue: TSP_PublishingPersonMagazinePeopleBasicInfo);
  50995. begin
  50996. If (FBasicInfo=AValue) then exit;
  50997. FBasicInfo:=AValue;
  50998. MarkPropertyChanged(AIndex);
  50999. end;
  51000. Procedure TSP_PublishingPersonMagazinePeopleModel.SetBirthday(AIndex: Integer; const AValue: string);
  51001. begin
  51002. If (FBirthday=AValue) then exit;
  51003. FBirthday:=AValue;
  51004. MarkPropertyChanged(AIndex);
  51005. end;
  51006. Procedure TSP_PublishingPersonMagazinePeopleModel.SetCustomProperties(AIndex: Integer; const AValue: TSPKeyValueArray);
  51007. begin
  51008. If (FCustomProperties=AValue) then exit;
  51009. FCustomProperties:=AValue;
  51010. MarkPropertyChanged(AIndex);
  51011. end;
  51012. Procedure TSP_PublishingPersonMagazinePeopleModel.SetDepartmentName(AIndex: Integer; const AValue: string);
  51013. begin
  51014. If (FDepartmentName=AValue) then exit;
  51015. FDepartmentName:=AValue;
  51016. MarkPropertyChanged(AIndex);
  51017. end;
  51018. Procedure TSP_PublishingPersonMagazinePeopleModel.SetDirectReports(AIndex: Integer; const AValue: TSP_PublishingPersonMagazinePeopleBasicInfoArray);
  51019. begin
  51020. If (FDirectReports=AValue) then exit;
  51021. FDirectReports:=AValue;
  51022. MarkPropertyChanged(AIndex);
  51023. end;
  51024. Procedure TSP_PublishingPersonMagazinePeopleModel.SetEmail(AIndex: Integer; const AValue: string);
  51025. begin
  51026. If (FEmail=AValue) then exit;
  51027. FEmail:=AValue;
  51028. MarkPropertyChanged(AIndex);
  51029. end;
  51030. Procedure TSP_PublishingPersonMagazinePeopleModel.SetHasEditPermission(AIndex: Integer; const AValue: boolean);
  51031. begin
  51032. If (FHasEditPermission=AValue) then exit;
  51033. FHasEditPermission:=AValue;
  51034. MarkPropertyChanged(AIndex);
  51035. end;
  51036. Procedure TSP_PublishingPersonMagazinePeopleModel.SetInterest(AIndex: Integer; const AValue: string);
  51037. begin
  51038. If (FInterest=AValue) then exit;
  51039. FInterest:=AValue;
  51040. MarkPropertyChanged(AIndex);
  51041. end;
  51042. Procedure TSP_PublishingPersonMagazinePeopleModel.SetLync(AIndex: Integer; const AValue: string);
  51043. begin
  51044. If (FLync=AValue) then exit;
  51045. FLync:=AValue;
  51046. MarkPropertyChanged(AIndex);
  51047. end;
  51048. Procedure TSP_PublishingPersonMagazinePeopleModel.SetManagerChain(AIndex: Integer; const AValue: TSP_PublishingPersonMagazinePeopleBasicInfoArray);
  51049. begin
  51050. If (FManagerChain=AValue) then exit;
  51051. FManagerChain:=AValue;
  51052. MarkPropertyChanged(AIndex);
  51053. end;
  51054. Procedure TSP_PublishingPersonMagazinePeopleModel.SetOffice(AIndex: Integer; const AValue: string);
  51055. begin
  51056. If (FOffice=AValue) then exit;
  51057. FOffice:=AValue;
  51058. MarkPropertyChanged(AIndex);
  51059. end;
  51060. Procedure TSP_PublishingPersonMagazinePeopleModel.SetOneDriveUrl(AIndex: Integer; const AValue: string);
  51061. begin
  51062. If (FOneDriveUrl=AValue) then exit;
  51063. FOneDriveUrl:=AValue;
  51064. MarkPropertyChanged(AIndex);
  51065. end;
  51066. Procedure TSP_PublishingPersonMagazinePeopleModel.SetPastProjects(AIndex: Integer; const AValue: string);
  51067. begin
  51068. If (FPastProjects=AValue) then exit;
  51069. FPastProjects:=AValue;
  51070. MarkPropertyChanged(AIndex);
  51071. end;
  51072. Procedure TSP_PublishingPersonMagazinePeopleModel.SetPhone(AIndex: Integer; const AValue: string);
  51073. begin
  51074. If (FPhone=AValue) then exit;
  51075. FPhone:=AValue;
  51076. MarkPropertyChanged(AIndex);
  51077. end;
  51078. Procedure TSP_PublishingPersonMagazinePeopleModel.SetSchools(AIndex: Integer; const AValue: string);
  51079. begin
  51080. If (FSchools=AValue) then exit;
  51081. FSchools:=AValue;
  51082. MarkPropertyChanged(AIndex);
  51083. end;
  51084. Procedure TSP_PublishingPersonMagazinePeopleModel.SetSkills(AIndex: Integer; const AValue: string);
  51085. begin
  51086. If (FSkills=AValue) then exit;
  51087. FSkills:=AValue;
  51088. MarkPropertyChanged(AIndex);
  51089. end;
  51090. {$IFDEF VER2_6}
  51091. Procedure TSP_PublishingPersonMagazinePeopleModel.SetArrayLength(const AName: String; ALength: Longint);
  51092. begin
  51093. Case aName of
  51094. 'customproperties' : SetLength(FCustomProperties,aLength);
  51095. 'directreports' : SetLength(FDirectReports,aLength);
  51096. 'managerchain' : SetLength(FManagerChain,aLength);
  51097. else
  51098. inherited SetArrayLength(aName,ALength);
  51099. end;
  51100. end;
  51101. {$ENDIF VER2_6}
  51102. { --------------------------------------------------------------------
  51103. TSP_PublishingPersonMagazineUserProfileDirectsData
  51104. --------------------------------------------------------------------}
  51105. Class Function TSP_PublishingPersonMagazineUserProfileDirectsData.ObjectRestKind : String;
  51106. begin
  51107. Result:='PersonMagazineUserProfileDirectsData';
  51108. end;
  51109. Procedure TSP_PublishingPersonMagazineUserProfileDirectsData.SetDirectReports(AIndex: Integer; const AValue: TSP_PublishingPersonMagazineUserProfileArray);
  51110. begin
  51111. If (FDirectReports=AValue) then exit;
  51112. FDirectReports:=AValue;
  51113. MarkPropertyChanged(AIndex);
  51114. end;
  51115. {$IFDEF VER2_6}
  51116. Procedure TSP_PublishingPersonMagazineUserProfileDirectsData.SetArrayLength(const AName: String; ALength: Longint);
  51117. begin
  51118. Case aName of
  51119. 'directreports' : SetLength(FDirectReports,aLength);
  51120. else
  51121. inherited SetArrayLength(aName,ALength);
  51122. end;
  51123. end;
  51124. {$ENDIF VER2_6}
  51125. { --------------------------------------------------------------------
  51126. TSP_PublishingPersonMagazineUserProfile
  51127. --------------------------------------------------------------------}
  51128. Class Function TSP_PublishingPersonMagazineUserProfile.ObjectRestKind : String;
  51129. begin
  51130. Result:='PersonMagazineUserProfile';
  51131. end;
  51132. Procedure TSP_PublishingPersonMagazineUserProfile.SetAboutMe(AIndex: Integer; const AValue: string);
  51133. begin
  51134. If (FAboutMe=AValue) then exit;
  51135. FAboutMe:=AValue;
  51136. MarkPropertyChanged(AIndex);
  51137. end;
  51138. Procedure TSP_PublishingPersonMagazineUserProfile.SetAccountName(AIndex: Integer; const AValue: string);
  51139. begin
  51140. If (FAccountName=AValue) then exit;
  51141. FAccountName:=AValue;
  51142. MarkPropertyChanged(AIndex);
  51143. end;
  51144. Procedure TSP_PublishingPersonMagazineUserProfile.SetBirthday(AIndex: Integer; const AValue: string);
  51145. begin
  51146. If (FBirthday=AValue) then exit;
  51147. FBirthday:=AValue;
  51148. MarkPropertyChanged(AIndex);
  51149. end;
  51150. Procedure TSP_PublishingPersonMagazineUserProfile.SetCustomProperties(AIndex: Integer; const AValue: TSPKeyValueArray);
  51151. begin
  51152. If (FCustomProperties=AValue) then exit;
  51153. FCustomProperties:=AValue;
  51154. MarkPropertyChanged(AIndex);
  51155. end;
  51156. Procedure TSP_PublishingPersonMagazineUserProfile.SetDepartmentName(AIndex: Integer; const AValue: string);
  51157. begin
  51158. If (FDepartmentName=AValue) then exit;
  51159. FDepartmentName:=AValue;
  51160. MarkPropertyChanged(AIndex);
  51161. end;
  51162. Procedure TSP_PublishingPersonMagazineUserProfile.SetDisplayName(AIndex: Integer; const AValue: string);
  51163. begin
  51164. If (FDisplayName=AValue) then exit;
  51165. FDisplayName:=AValue;
  51166. MarkPropertyChanged(AIndex);
  51167. end;
  51168. Procedure TSP_PublishingPersonMagazineUserProfile.SetEmail(AIndex: Integer; const AValue: string);
  51169. begin
  51170. If (FEmail=AValue) then exit;
  51171. FEmail:=AValue;
  51172. MarkPropertyChanged(AIndex);
  51173. end;
  51174. Procedure TSP_PublishingPersonMagazineUserProfile.SetHasEditPermission(AIndex: Integer; const AValue: boolean);
  51175. begin
  51176. If (FHasEditPermission=AValue) then exit;
  51177. FHasEditPermission:=AValue;
  51178. MarkPropertyChanged(AIndex);
  51179. end;
  51180. Procedure TSP_PublishingPersonMagazineUserProfile.SetInterest(AIndex: Integer; const AValue: string);
  51181. begin
  51182. If (FInterest=AValue) then exit;
  51183. FInterest:=AValue;
  51184. MarkPropertyChanged(AIndex);
  51185. end;
  51186. Procedure TSP_PublishingPersonMagazineUserProfile.SetLync(AIndex: Integer; const AValue: string);
  51187. begin
  51188. If (FLync=AValue) then exit;
  51189. FLync:=AValue;
  51190. MarkPropertyChanged(AIndex);
  51191. end;
  51192. Procedure TSP_PublishingPersonMagazineUserProfile.SetOffice(AIndex: Integer; const AValue: string);
  51193. begin
  51194. If (FOffice=AValue) then exit;
  51195. FOffice:=AValue;
  51196. MarkPropertyChanged(AIndex);
  51197. end;
  51198. Procedure TSP_PublishingPersonMagazineUserProfile.SetOneDriveUrl(AIndex: Integer; const AValue: string);
  51199. begin
  51200. If (FOneDriveUrl=AValue) then exit;
  51201. FOneDriveUrl:=AValue;
  51202. MarkPropertyChanged(AIndex);
  51203. end;
  51204. Procedure TSP_PublishingPersonMagazineUserProfile.SetPastProjects(AIndex: Integer; const AValue: string);
  51205. begin
  51206. If (FPastProjects=AValue) then exit;
  51207. FPastProjects:=AValue;
  51208. MarkPropertyChanged(AIndex);
  51209. end;
  51210. Procedure TSP_PublishingPersonMagazineUserProfile.SetPhone(AIndex: Integer; const AValue: string);
  51211. begin
  51212. If (FPhone=AValue) then exit;
  51213. FPhone:=AValue;
  51214. MarkPropertyChanged(AIndex);
  51215. end;
  51216. Procedure TSP_PublishingPersonMagazineUserProfile.SetPictureUrl(AIndex: Integer; const AValue: string);
  51217. begin
  51218. If (FPictureUrl=AValue) then exit;
  51219. FPictureUrl:=AValue;
  51220. MarkPropertyChanged(AIndex);
  51221. end;
  51222. Procedure TSP_PublishingPersonMagazineUserProfile.SetSchools(AIndex: Integer; const AValue: string);
  51223. begin
  51224. If (FSchools=AValue) then exit;
  51225. FSchools:=AValue;
  51226. MarkPropertyChanged(AIndex);
  51227. end;
  51228. Procedure TSP_PublishingPersonMagazineUserProfile.SetSkills(AIndex: Integer; const AValue: string);
  51229. begin
  51230. If (FSkills=AValue) then exit;
  51231. FSkills:=AValue;
  51232. MarkPropertyChanged(AIndex);
  51233. end;
  51234. Procedure TSP_PublishingPersonMagazineUserProfile.SetTitle(AIndex: Integer; const AValue: string);
  51235. begin
  51236. If (FTitle=AValue) then exit;
  51237. FTitle:=AValue;
  51238. MarkPropertyChanged(AIndex);
  51239. end;
  51240. Procedure TSP_PublishingPersonMagazineUserProfile.SetUserName(AIndex: Integer; const AValue: string);
  51241. begin
  51242. If (FUserName=AValue) then exit;
  51243. FUserName:=AValue;
  51244. MarkPropertyChanged(AIndex);
  51245. end;
  51246. {$IFDEF VER2_6}
  51247. Procedure TSP_PublishingPersonMagazineUserProfile.SetArrayLength(const AName: String; ALength: Longint);
  51248. begin
  51249. Case aName of
  51250. 'customproperties' : SetLength(FCustomProperties,aLength);
  51251. else
  51252. inherited SetArrayLength(aName,ALength);
  51253. end;
  51254. end;
  51255. {$ENDIF VER2_6}
  51256. { --------------------------------------------------------------------
  51257. TSP_PublishingPersonMagazineUserProfileData
  51258. --------------------------------------------------------------------}
  51259. Class Function TSP_PublishingPersonMagazineUserProfileData.ObjectRestKind : String;
  51260. begin
  51261. Result:='PersonMagazineUserProfileData';
  51262. end;
  51263. Procedure TSP_PublishingPersonMagazineUserProfileData.SetManagerChain(AIndex: Integer; const AValue: TSP_PublishingPersonMagazineUserProfileArray);
  51264. begin
  51265. If (FManagerChain=AValue) then exit;
  51266. FManagerChain:=AValue;
  51267. MarkPropertyChanged(AIndex);
  51268. end;
  51269. Procedure TSP_PublishingPersonMagazineUserProfileData.SetPrimary(AIndex: Integer; const AValue: TSP_PublishingPersonMagazineUserProfile);
  51270. begin
  51271. If (FPrimary=AValue) then exit;
  51272. FPrimary:=AValue;
  51273. MarkPropertyChanged(AIndex);
  51274. end;
  51275. {$IFDEF VER2_6}
  51276. Procedure TSP_PublishingPersonMagazineUserProfileData.SetArrayLength(const AName: String; ALength: Longint);
  51277. begin
  51278. Case aName of
  51279. 'managerchain' : SetLength(FManagerChain,aLength);
  51280. else
  51281. inherited SetArrayLength(aName,ALength);
  51282. end;
  51283. end;
  51284. {$ENDIF VER2_6}
  51285. { --------------------------------------------------------------------
  51286. TSP_PublishingPublishSiteInformation
  51287. --------------------------------------------------------------------}
  51288. Class Function TSP_PublishingPublishSiteInformation.ObjectRestKind : String;
  51289. begin
  51290. Result:='PublishSiteInformation';
  51291. end;
  51292. Procedure TSP_PublishingPublishSiteInformation.SetSiteType(AIndex: Integer; const AValue: TInt32);
  51293. begin
  51294. If (FSiteType=AValue) then exit;
  51295. FSiteType:=AValue;
  51296. MarkPropertyChanged(AIndex);
  51297. end;
  51298. Procedure TSP_PublishingPublishSiteInformation.SetSiteUrl(AIndex: Integer; const AValue: string);
  51299. begin
  51300. If (FSiteUrl=AValue) then exit;
  51301. FSiteUrl:=AValue;
  51302. MarkPropertyChanged(AIndex);
  51303. end;
  51304. Procedure TSP_PublishingPublishSiteInformation.SetTitle(AIndex: Integer; const AValue: string);
  51305. begin
  51306. If (FTitle=AValue) then exit;
  51307. FTitle:=AValue;
  51308. MarkPropertyChanged(AIndex);
  51309. end;
  51310. { --------------------------------------------------------------------
  51311. TSP_PublishingVideoItem
  51312. --------------------------------------------------------------------}
  51313. Class Function TSP_PublishingVideoItem.ObjectRestKind : String;
  51314. begin
  51315. Result:='VideoItem';
  51316. end;
  51317. Procedure TSP_PublishingVideoItem.SetChannelID(AIndex: Integer; const AValue: TGUIDString);
  51318. begin
  51319. If (FChannelID=AValue) then exit;
  51320. FChannelID:=AValue;
  51321. MarkPropertyChanged(AIndex);
  51322. end;
  51323. Procedure TSP_PublishingVideoItem.SetCreatedDate(AIndex: Integer; const AValue: TDateTime);
  51324. begin
  51325. If (FCreatedDate=AValue) then exit;
  51326. FCreatedDate:=AValue;
  51327. MarkPropertyChanged(AIndex);
  51328. end;
  51329. Procedure TSP_PublishingVideoItem.SetDescription(AIndex: Integer; const AValue: string);
  51330. begin
  51331. If (FDescription=AValue) then exit;
  51332. FDescription:=AValue;
  51333. MarkPropertyChanged(AIndex);
  51334. end;
  51335. Procedure TSP_PublishingVideoItem.SetDisplayFormUrl(AIndex: Integer; const AValue: string);
  51336. begin
  51337. If (FDisplayFormUrl=AValue) then exit;
  51338. FDisplayFormUrl:=AValue;
  51339. MarkPropertyChanged(AIndex);
  51340. end;
  51341. Procedure TSP_PublishingVideoItem.SetFileName(AIndex: Integer; const AValue: string);
  51342. begin
  51343. If (FFileName=AValue) then exit;
  51344. FFileName:=AValue;
  51345. MarkPropertyChanged(AIndex);
  51346. end;
  51347. Procedure TSP_PublishingVideoItem.SetOwnerName(AIndex: Integer; const AValue: string);
  51348. begin
  51349. If (FOwnerName=AValue) then exit;
  51350. FOwnerName:=AValue;
  51351. MarkPropertyChanged(AIndex);
  51352. end;
  51353. Procedure TSP_PublishingVideoItem.SetPlayerPageUrl(AIndex: Integer; const AValue: string);
  51354. begin
  51355. If (FPlayerPageUrl=AValue) then exit;
  51356. FPlayerPageUrl:=AValue;
  51357. MarkPropertyChanged(AIndex);
  51358. end;
  51359. Procedure TSP_PublishingVideoItem.SetServerRelativeUrl(AIndex: Integer; const AValue: string);
  51360. begin
  51361. If (FServerRelativeUrl=AValue) then exit;
  51362. FServerRelativeUrl:=AValue;
  51363. MarkPropertyChanged(AIndex);
  51364. end;
  51365. Procedure TSP_PublishingVideoItem.SetThumbnailUrl(AIndex: Integer; const AValue: string);
  51366. begin
  51367. If (FThumbnailUrl=AValue) then exit;
  51368. FThumbnailUrl:=AValue;
  51369. MarkPropertyChanged(AIndex);
  51370. end;
  51371. Procedure TSP_PublishingVideoItem.SetTitle(AIndex: Integer; const AValue: string);
  51372. begin
  51373. If (FTitle=AValue) then exit;
  51374. FTitle:=AValue;
  51375. MarkPropertyChanged(AIndex);
  51376. end;
  51377. Procedure TSP_PublishingVideoItem.SetID(AIndex: Integer; const AValue: TGUIDString);
  51378. begin
  51379. If (FID=AValue) then exit;
  51380. FID:=AValue;
  51381. MarkPropertyChanged(AIndex);
  51382. end;
  51383. Procedure TSP_PublishingVideoItem.SetUrl(AIndex: Integer; const AValue: string);
  51384. begin
  51385. If (FUrl=AValue) then exit;
  51386. FUrl:=AValue;
  51387. MarkPropertyChanged(AIndex);
  51388. end;
  51389. Procedure TSP_PublishingVideoItem.SetVideoDurationInSeconds(AIndex: Integer; const AValue: TInt32);
  51390. begin
  51391. If (FVideoDurationInSeconds=AValue) then exit;
  51392. FVideoDurationInSeconds:=AValue;
  51393. MarkPropertyChanged(AIndex);
  51394. end;
  51395. Procedure TSP_PublishingVideoItem.SetVideoProcessingStatus(AIndex: Integer; const AValue: TInt32);
  51396. begin
  51397. If (FVideoProcessingStatus=AValue) then exit;
  51398. FVideoProcessingStatus:=AValue;
  51399. MarkPropertyChanged(AIndex);
  51400. end;
  51401. Procedure TSP_PublishingVideoItem.SetViewCount(AIndex: Integer; const AValue: TInt32);
  51402. begin
  51403. If (FViewCount=AValue) then exit;
  51404. FViewCount:=AValue;
  51405. MarkPropertyChanged(AIndex);
  51406. end;
  51407. Procedure TSP_PublishingVideoItem.SetYammerObjectUrl(AIndex: Integer; const AValue: string);
  51408. begin
  51409. If (FYammerObjectUrl=AValue) then exit;
  51410. FYammerObjectUrl:=AValue;
  51411. MarkPropertyChanged(AIndex);
  51412. end;
  51413. Function TSP_PublishingVideoItem.KeyAsURLPart : string;
  51414. begin
  51415. Result:=TODataObject.MakeKeyString(ID);
  51416. end;
  51417. Function TSP_PublishingVideoItem.Author(AService: TODataService) : TSPUser;
  51418. begin
  51419. Result:=TSPUser(GetContainedSingleTon(AService,'Author', TSPUser));
  51420. end;
  51421. Function TSP_PublishingVideoItem.Owner(AService: TODataService) : TSPUser;
  51422. begin
  51423. Result:=TSPUser(GetContainedSingleTon(AService,'Owner', TSPUser));
  51424. end;
  51425. Function TSP_PublishingVideoItem.PeopleInMedia(AService: TODataService) : TSPUser;
  51426. begin
  51427. Result:=TSPUser(GetContainedSingleTon(AService,'PeopleInMedia', TSPUser));
  51428. end;
  51429. { --------------------------------------------------------------------
  51430. TSP_PublishingPersonMagazine
  51431. --------------------------------------------------------------------}
  51432. Class Function TSP_PublishingPersonMagazine.ObjectRestKind : String;
  51433. begin
  51434. Result:='PersonMagazine';
  51435. end;
  51436. Procedure TSP_PublishingPersonMagazine.SetId4a81de82eeb94d6080ea5bf63e27023a(AIndex: Integer; const AValue: string);
  51437. begin
  51438. If (FId4a81de82eeb94d6080ea5bf63e27023a=AValue) then exit;
  51439. FId4a81de82eeb94d6080ea5bf63e27023a:=AValue;
  51440. MarkPropertyChanged(AIndex);
  51441. end;
  51442. Function TSP_PublishingPersonMagazine.KeyAsURLPart : string;
  51443. begin
  51444. Result:=TODataObject.MakeKeyString(Id4a81de82eeb94d6080ea5bf63e27023a);
  51445. end;
  51446. { --------------------------------------------------------------------
  51447. TSP_PublishingPointPublishingDocProps
  51448. --------------------------------------------------------------------}
  51449. Class Function TSP_PublishingPointPublishingDocProps.ObjectRestKind : String;
  51450. begin
  51451. Result:='PointPublishingDocProps';
  51452. end;
  51453. Procedure TSP_PublishingPointPublishingDocProps.SetAuthor(AIndex: Integer; const AValue: string);
  51454. begin
  51455. If (FAuthor=AValue) then exit;
  51456. FAuthor:=AValue;
  51457. MarkPropertyChanged(AIndex);
  51458. end;
  51459. Procedure TSP_PublishingPointPublishingDocProps.SetContentTypeId(AIndex: Integer; const AValue: string);
  51460. begin
  51461. If (FContentTypeId=AValue) then exit;
  51462. FContentTypeId:=AValue;
  51463. MarkPropertyChanged(AIndex);
  51464. end;
  51465. Procedure TSP_PublishingPointPublishingDocProps.SetDocLibraryUrl(AIndex: Integer; const AValue: string);
  51466. begin
  51467. If (FDocLibraryUrl=AValue) then exit;
  51468. FDocLibraryUrl:=AValue;
  51469. MarkPropertyChanged(AIndex);
  51470. end;
  51471. Procedure TSP_PublishingPointPublishingDocProps.SetFileType(AIndex: Integer; const AValue: string);
  51472. begin
  51473. If (FFileType=AValue) then exit;
  51474. FFileType:=AValue;
  51475. MarkPropertyChanged(AIndex);
  51476. end;
  51477. Procedure TSP_PublishingPointPublishingDocProps.SetModified(AIndex: Integer; const AValue: TDateTime);
  51478. begin
  51479. If (FModified=AValue) then exit;
  51480. FModified:=AValue;
  51481. MarkPropertyChanged(AIndex);
  51482. end;
  51483. Procedure TSP_PublishingPointPublishingDocProps.SetServerRedirectedEmbedUrl(AIndex: Integer; const AValue: string);
  51484. begin
  51485. If (FServerRedirectedEmbedUrl=AValue) then exit;
  51486. FServerRedirectedEmbedUrl:=AValue;
  51487. MarkPropertyChanged(AIndex);
  51488. end;
  51489. Procedure TSP_PublishingPointPublishingDocProps.SetServerRedirectedPreviewUrl(AIndex: Integer; const AValue: string);
  51490. begin
  51491. If (FServerRedirectedPreviewUrl=AValue) then exit;
  51492. FServerRedirectedPreviewUrl:=AValue;
  51493. MarkPropertyChanged(AIndex);
  51494. end;
  51495. Procedure TSP_PublishingPointPublishingDocProps.SetSiteId(AIndex: Integer; const AValue: TGUIDString);
  51496. begin
  51497. If (FSiteId=AValue) then exit;
  51498. FSiteId:=AValue;
  51499. MarkPropertyChanged(AIndex);
  51500. end;
  51501. Procedure TSP_PublishingPointPublishingDocProps.SetSiteTitle(AIndex: Integer; const AValue: string);
  51502. begin
  51503. If (FSiteTitle=AValue) then exit;
  51504. FSiteTitle:=AValue;
  51505. MarkPropertyChanged(AIndex);
  51506. end;
  51507. Procedure TSP_PublishingPointPublishingDocProps.SetTitle(AIndex: Integer; const AValue: string);
  51508. begin
  51509. If (FTitle=AValue) then exit;
  51510. FTitle:=AValue;
  51511. MarkPropertyChanged(AIndex);
  51512. end;
  51513. Procedure TSP_PublishingPointPublishingDocProps.SetUniqueId(AIndex: Integer; const AValue: TGUIDString);
  51514. begin
  51515. If (FUniqueId=AValue) then exit;
  51516. FUniqueId:=AValue;
  51517. MarkPropertyChanged(AIndex);
  51518. end;
  51519. Procedure TSP_PublishingPointPublishingDocProps.SetUrl(AIndex: Integer; const AValue: string);
  51520. begin
  51521. If (FUrl=AValue) then exit;
  51522. FUrl:=AValue;
  51523. MarkPropertyChanged(AIndex);
  51524. end;
  51525. Procedure TSP_PublishingPointPublishingDocProps.SetWebId(AIndex: Integer; const AValue: TGUIDString);
  51526. begin
  51527. If (FWebId=AValue) then exit;
  51528. FWebId:=AValue;
  51529. MarkPropertyChanged(AIndex);
  51530. end;
  51531. Function TSP_PublishingPointPublishingDocProps.KeyAsURLPart : string;
  51532. begin
  51533. Result:=TODataObject.MakeKeyString(Author);
  51534. end;
  51535. { --------------------------------------------------------------------
  51536. TSP_PublishingPointPublishingMagazineProps
  51537. --------------------------------------------------------------------}
  51538. Class Function TSP_PublishingPointPublishingMagazineProps.ObjectRestKind : String;
  51539. begin
  51540. Result:='PointPublishingMagazineProps';
  51541. end;
  51542. Procedure TSP_PublishingPointPublishingMagazineProps.SetBannerColor(AIndex: Integer; const AValue: string);
  51543. begin
  51544. If (FBannerColor=AValue) then exit;
  51545. FBannerColor:=AValue;
  51546. MarkPropertyChanged(AIndex);
  51547. end;
  51548. Procedure TSP_PublishingPointPublishingMagazineProps.SetBannerImageUrl(AIndex: Integer; const AValue: string);
  51549. begin
  51550. If (FBannerImageUrl=AValue) then exit;
  51551. FBannerImageUrl:=AValue;
  51552. MarkPropertyChanged(AIndex);
  51553. end;
  51554. Procedure TSP_PublishingPointPublishingMagazineProps.SetBannerPattern(AIndex: Integer; const AValue: string);
  51555. begin
  51556. If (FBannerPattern=AValue) then exit;
  51557. FBannerPattern:=AValue;
  51558. MarkPropertyChanged(AIndex);
  51559. end;
  51560. Procedure TSP_PublishingPointPublishingMagazineProps.SetDescription(AIndex: Integer; const AValue: string);
  51561. begin
  51562. If (FDescription=AValue) then exit;
  51563. FDescription:=AValue;
  51564. MarkPropertyChanged(AIndex);
  51565. end;
  51566. Procedure TSP_PublishingPointPublishingMagazineProps.SetIsUserContributor(AIndex: Integer; const AValue: boolean);
  51567. begin
  51568. If (FIsUserContributor=AValue) then exit;
  51569. FIsUserContributor:=AValue;
  51570. MarkPropertyChanged(AIndex);
  51571. end;
  51572. Procedure TSP_PublishingPointPublishingMagazineProps.SetIsUserOwner(AIndex: Integer; const AValue: boolean);
  51573. begin
  51574. If (FIsUserOwner=AValue) then exit;
  51575. FIsUserOwner:=AValue;
  51576. MarkPropertyChanged(AIndex);
  51577. end;
  51578. Procedure TSP_PublishingPointPublishingMagazineProps.SetMagazineType(AIndex: Integer; const AValue: TInt32);
  51579. begin
  51580. If (FMagazineType=AValue) then exit;
  51581. FMagazineType:=AValue;
  51582. MarkPropertyChanged(AIndex);
  51583. end;
  51584. Procedure TSP_PublishingPointPublishingMagazineProps.SetPublishedDate(AIndex: Integer; const AValue: TDateTime);
  51585. begin
  51586. If (FPublishedDate=AValue) then exit;
  51587. FPublishedDate:=AValue;
  51588. MarkPropertyChanged(AIndex);
  51589. end;
  51590. Procedure TSP_PublishingPointPublishingMagazineProps.SetTitle(AIndex: Integer; const AValue: string);
  51591. begin
  51592. If (FTitle=AValue) then exit;
  51593. FTitle:=AValue;
  51594. MarkPropertyChanged(AIndex);
  51595. end;
  51596. Function TSP_PublishingPointPublishingMagazineProps.KeyAsURLPart : string;
  51597. begin
  51598. Result:=TODataObject.MakeKeyString(BannerColor);
  51599. end;
  51600. { --------------------------------------------------------------------
  51601. TSP_PublishingPointPublishingPost
  51602. --------------------------------------------------------------------}
  51603. Class Function TSP_PublishingPointPublishingPost.ObjectRestKind : String;
  51604. begin
  51605. Result:='PointPublishingPost';
  51606. end;
  51607. Procedure TSP_PublishingPointPublishingPost.SetAuthor(AIndex: Integer; const AValue: string);
  51608. begin
  51609. If (FAuthor=AValue) then exit;
  51610. FAuthor:=AValue;
  51611. MarkPropertyChanged(AIndex);
  51612. end;
  51613. Procedure TSP_PublishingPointPublishingPost.SetContent(AIndex: Integer; const AValue: string);
  51614. begin
  51615. If (FContent=AValue) then exit;
  51616. FContent:=AValue;
  51617. MarkPropertyChanged(AIndex);
  51618. end;
  51619. Procedure TSP_PublishingPointPublishingPost.SetCreatedDate(AIndex: Integer; const AValue: TDateTime);
  51620. begin
  51621. If (FCreatedDate=AValue) then exit;
  51622. FCreatedDate:=AValue;
  51623. MarkPropertyChanged(AIndex);
  51624. end;
  51625. Procedure TSP_PublishingPointPublishingPost.SetFriendlyUrlFileName(AIndex: Integer; const AValue: string);
  51626. begin
  51627. If (FFriendlyUrlFileName=AValue) then exit;
  51628. FFriendlyUrlFileName:=AValue;
  51629. MarkPropertyChanged(AIndex);
  51630. end;
  51631. Procedure TSP_PublishingPointPublishingPost.SetId(AIndex: Integer; const AValue: TInt32);
  51632. begin
  51633. If (FId=AValue) then exit;
  51634. FId:=AValue;
  51635. MarkPropertyChanged(AIndex);
  51636. end;
  51637. Procedure TSP_PublishingPointPublishingPost.SetModifiedDate(AIndex: Integer; const AValue: TDateTime);
  51638. begin
  51639. If (FModifiedDate=AValue) then exit;
  51640. FModifiedDate:=AValue;
  51641. MarkPropertyChanged(AIndex);
  51642. end;
  51643. Procedure TSP_PublishingPointPublishingPost.SetOperationType(AIndex: Integer; const AValue: TInt32);
  51644. begin
  51645. If (FOperationType=AValue) then exit;
  51646. FOperationType:=AValue;
  51647. MarkPropertyChanged(AIndex);
  51648. end;
  51649. Procedure TSP_PublishingPointPublishingPost.SetTitle(AIndex: Integer; const AValue: string);
  51650. begin
  51651. If (FTitle=AValue) then exit;
  51652. FTitle:=AValue;
  51653. MarkPropertyChanged(AIndex);
  51654. end;
  51655. Procedure TSP_PublishingPointPublishingPost.SetUserIsAuthor(AIndex: Integer; const AValue: boolean);
  51656. begin
  51657. If (FUserIsAuthor=AValue) then exit;
  51658. FUserIsAuthor:=AValue;
  51659. MarkPropertyChanged(AIndex);
  51660. end;
  51661. Procedure TSP_PublishingPointPublishingPost.SetVersion(AIndex: Integer; const AValue: string);
  51662. begin
  51663. If (FVersion=AValue) then exit;
  51664. FVersion:=AValue;
  51665. MarkPropertyChanged(AIndex);
  51666. end;
  51667. Function TSP_PublishingPointPublishingPost.KeyAsURLPart : string;
  51668. begin
  51669. Result:=IntToStr(Id);
  51670. end;
  51671. Function TSP_PublishingPointPublishingPost.images(AService: TODataService) : TSP_File;
  51672. begin
  51673. Result:=TSP_File(GetContainedSingleTon(AService,'images', TSP_File));
  51674. end;
  51675. { --------------------------------------------------------------------
  51676. TSP_PublishingPointPublishingPostServiceManager
  51677. --------------------------------------------------------------------}
  51678. Class Function TSP_PublishingPointPublishingPostServiceManager.ObjectRestKind : String;
  51679. begin
  51680. Result:='PointPublishingPostServiceManager';
  51681. end;
  51682. Procedure TSP_PublishingPointPublishingPostServiceManager.SetId4a81de82eeb94d6080ea5bf63e27023a(AIndex: Integer; const AValue: string);
  51683. begin
  51684. If (FId4a81de82eeb94d6080ea5bf63e27023a=AValue) then exit;
  51685. FId4a81de82eeb94d6080ea5bf63e27023a:=AValue;
  51686. MarkPropertyChanged(AIndex);
  51687. end;
  51688. Function TSP_PublishingPointPublishingPostServiceManager.KeyAsURLPart : string;
  51689. begin
  51690. Result:=TODataObject.MakeKeyString(Id4a81de82eeb94d6080ea5bf63e27023a);
  51691. end;
  51692. Function TSP_PublishingPointPublishingPostServiceManager.bannerimages(AService: TODataService) : TSP_File;
  51693. begin
  51694. Result:=TSP_File(GetContainedSingleTon(AService,'bannerimages', TSP_File));
  51695. end;
  51696. Function TSP_PublishingPointPublishingPostServiceManager.contributors(AService: TODataService) : TSP_PublishingPointPublishingUser;
  51697. begin
  51698. Result:=TSP_PublishingPointPublishingUser(GetContainedSingleTon(AService,'contributors', TSP_PublishingPointPublishingUser));
  51699. end;
  51700. Function TSP_PublishingPointPublishingPostServiceManager.creators(AService: TODataService) : TSP_PublishingPointPublishingUser;
  51701. begin
  51702. Result:=TSP_PublishingPointPublishingUser(GetContainedSingleTon(AService,'creators', TSP_PublishingPointPublishingUser));
  51703. end;
  51704. Function TSP_PublishingPointPublishingPostServiceManager.magazineprops(AService: TODataService) : TSP_PublishingPointPublishingMagazineProps;
  51705. begin
  51706. Result:=TSP_PublishingPointPublishingMagazineProps(GetContainedSingleTon(AService,'magazineprops', TSP_PublishingPointPublishingMagazineProps));
  51707. end;
  51708. Function TSP_PublishingPointPublishingPostServiceManager.posts(AService: TODataService) : TSP_PublishingPointPublishingPost;
  51709. begin
  51710. Result:=TSP_PublishingPointPublishingPost(GetContainedSingleTon(AService,'posts', TSP_PublishingPointPublishingPost));
  51711. end;
  51712. Function TSP_PublishingPointPublishingPostServiceManager.viewers(AService: TODataService) : TSP_PublishingPointPublishingUser;
  51713. begin
  51714. Result:=TSP_PublishingPointPublishingUser(GetContainedSingleTon(AService,'viewers', TSP_PublishingPointPublishingUser));
  51715. end;
  51716. { --------------------------------------------------------------------
  51717. TSP_PublishingPointPublishingUser
  51718. --------------------------------------------------------------------}
  51719. Class Function TSP_PublishingPointPublishingUser.ObjectRestKind : String;
  51720. begin
  51721. Result:='PointPublishingUser';
  51722. end;
  51723. Procedure TSP_PublishingPointPublishingUser.SetAccountName(AIndex: Integer; const AValue: string);
  51724. begin
  51725. If (FAccountName=AValue) then exit;
  51726. FAccountName:=AValue;
  51727. MarkPropertyChanged(AIndex);
  51728. end;
  51729. Procedure TSP_PublishingPointPublishingUser.SetDepartment(AIndex: Integer; const AValue: string);
  51730. begin
  51731. If (FDepartment=AValue) then exit;
  51732. FDepartment:=AValue;
  51733. MarkPropertyChanged(AIndex);
  51734. end;
  51735. Procedure TSP_PublishingPointPublishingUser.SetEmail(AIndex: Integer; const AValue: string);
  51736. begin
  51737. If (FEmail=AValue) then exit;
  51738. FEmail:=AValue;
  51739. MarkPropertyChanged(AIndex);
  51740. end;
  51741. Procedure TSP_PublishingPointPublishingUser.SetID(AIndex: Integer; const AValue: TInt32);
  51742. begin
  51743. If (FID=AValue) then exit;
  51744. FID:=AValue;
  51745. MarkPropertyChanged(AIndex);
  51746. end;
  51747. Procedure TSP_PublishingPointPublishingUser.SetIsDomainGroup(AIndex: Integer; const AValue: boolean);
  51748. begin
  51749. If (FIsDomainGroup=AValue) then exit;
  51750. FIsDomainGroup:=AValue;
  51751. MarkPropertyChanged(AIndex);
  51752. end;
  51753. Procedure TSP_PublishingPointPublishingUser.SetIsMagazineOwner(AIndex: Integer; const AValue: boolean);
  51754. begin
  51755. If (FIsMagazineOwner=AValue) then exit;
  51756. FIsMagazineOwner:=AValue;
  51757. MarkPropertyChanged(AIndex);
  51758. end;
  51759. Procedure TSP_PublishingPointPublishingUser.SetJobTitle(AIndex: Integer; const AValue: string);
  51760. begin
  51761. If (FJobTitle=AValue) then exit;
  51762. FJobTitle:=AValue;
  51763. MarkPropertyChanged(AIndex);
  51764. end;
  51765. Procedure TSP_PublishingPointPublishingUser.SetLoginName(AIndex: Integer; const AValue: string);
  51766. begin
  51767. If (FLoginName=AValue) then exit;
  51768. FLoginName:=AValue;
  51769. MarkPropertyChanged(AIndex);
  51770. end;
  51771. Procedure TSP_PublishingPointPublishingUser.SetName(AIndex: Integer; const AValue: string);
  51772. begin
  51773. If (FName=AValue) then exit;
  51774. FName:=AValue;
  51775. MarkPropertyChanged(AIndex);
  51776. end;
  51777. Procedure TSP_PublishingPointPublishingUser.SetPictureUrl(AIndex: Integer; const AValue: string);
  51778. begin
  51779. If (FPictureUrl=AValue) then exit;
  51780. FPictureUrl:=AValue;
  51781. MarkPropertyChanged(AIndex);
  51782. end;
  51783. Procedure TSP_PublishingPointPublishingUser.SetSipAddress(AIndex: Integer; const AValue: string);
  51784. begin
  51785. If (FSipAddress=AValue) then exit;
  51786. FSipAddress:=AValue;
  51787. MarkPropertyChanged(AIndex);
  51788. end;
  51789. Function TSP_PublishingPointPublishingUser.KeyAsURLPart : string;
  51790. begin
  51791. Result:=TODataObject.MakeKeyString(Name);
  51792. end;
  51793. { --------------------------------------------------------------------
  51794. TSP_PublishingPointPublishingSiteManager
  51795. --------------------------------------------------------------------}
  51796. Class Function TSP_PublishingPointPublishingSiteManager.ObjectRestKind : String;
  51797. begin
  51798. Result:='PointPublishingSiteManager';
  51799. end;
  51800. Procedure TSP_PublishingPointPublishingSiteManager.SetId4a81de82eeb94d6080ea5bf63e27023a(AIndex: Integer; const AValue: string);
  51801. begin
  51802. If (FId4a81de82eeb94d6080ea5bf63e27023a=AValue) then exit;
  51803. FId4a81de82eeb94d6080ea5bf63e27023a:=AValue;
  51804. MarkPropertyChanged(AIndex);
  51805. end;
  51806. Function TSP_PublishingPointPublishingSiteManager.KeyAsURLPart : string;
  51807. begin
  51808. Result:=TODataObject.MakeKeyString(Id4a81de82eeb94d6080ea5bf63e27023a);
  51809. end;
  51810. { --------------------------------------------------------------------
  51811. TSP_PublishingPointPublishingSiteStatus
  51812. --------------------------------------------------------------------}
  51813. Class Function TSP_PublishingPointPublishingSiteStatus.ObjectRestKind : String;
  51814. begin
  51815. Result:='PointPublishingSiteStatus';
  51816. end;
  51817. Procedure TSP_PublishingPointPublishingSiteStatus.SetFriendlyUrl(AIndex: Integer; const AValue: string);
  51818. begin
  51819. If (FFriendlyUrl=AValue) then exit;
  51820. FFriendlyUrl:=AValue;
  51821. MarkPropertyChanged(AIndex);
  51822. end;
  51823. Procedure TSP_PublishingPointPublishingSiteStatus.SetSiteUrl(AIndex: Integer; const AValue: string);
  51824. begin
  51825. If (FSiteUrl=AValue) then exit;
  51826. FSiteUrl:=AValue;
  51827. MarkPropertyChanged(AIndex);
  51828. end;
  51829. Procedure TSP_PublishingPointPublishingSiteStatus.SetStatus(AIndex: Integer; const AValue: TInt32);
  51830. begin
  51831. If (FStatus=AValue) then exit;
  51832. FStatus:=AValue;
  51833. MarkPropertyChanged(AIndex);
  51834. end;
  51835. Function TSP_PublishingPointPublishingSiteStatus.KeyAsURLPart : string;
  51836. begin
  51837. Result:=TODataObject.MakeKeyString(FriendlyUrl);
  51838. end;
  51839. { --------------------------------------------------------------------
  51840. TSP_PublishingSpotlightChannel
  51841. --------------------------------------------------------------------}
  51842. Class Function TSP_PublishingSpotlightChannel.ObjectRestKind : String;
  51843. begin
  51844. Result:='SpotlightChannel';
  51845. end;
  51846. Procedure TSP_PublishingSpotlightChannel.SetChannelId(AIndex: Integer; const AValue: TGUIDString);
  51847. begin
  51848. If (FChannelId=AValue) then exit;
  51849. FChannelId:=AValue;
  51850. MarkPropertyChanged(AIndex);
  51851. end;
  51852. Procedure TSP_PublishingSpotlightChannel.SetId(AIndex: Integer; const AValue: TInt32);
  51853. begin
  51854. If (FId=AValue) then exit;
  51855. FId:=AValue;
  51856. MarkPropertyChanged(AIndex);
  51857. end;
  51858. Procedure TSP_PublishingSpotlightChannel.SetTileHtmlColor(AIndex: Integer; const AValue: string);
  51859. begin
  51860. If (FTileHtmlColor=AValue) then exit;
  51861. FTileHtmlColor:=AValue;
  51862. MarkPropertyChanged(AIndex);
  51863. end;
  51864. Procedure TSP_PublishingSpotlightChannel.SetTitle(AIndex: Integer; const AValue: string);
  51865. begin
  51866. If (FTitle=AValue) then exit;
  51867. FTitle:=AValue;
  51868. MarkPropertyChanged(AIndex);
  51869. end;
  51870. Procedure TSP_PublishingSpotlightChannel.SetVideoLibraryServerRelativeUrl(AIndex: Integer; const AValue: string);
  51871. begin
  51872. If (FVideoLibraryServerRelativeUrl=AValue) then exit;
  51873. FVideoLibraryServerRelativeUrl:=AValue;
  51874. MarkPropertyChanged(AIndex);
  51875. end;
  51876. Function TSP_PublishingSpotlightChannel.KeyAsURLPart : string;
  51877. begin
  51878. Result:=IntToStr(Id);
  51879. end;
  51880. Function TSP_PublishingSpotlightChannel.Channel(AService: TODataService) : TSP_PublishingVideoChannel;
  51881. begin
  51882. Result:=TSP_PublishingVideoChannel(GetContainedSingleTon(AService,'Channel', TSP_PublishingVideoChannel));
  51883. end;
  51884. { --------------------------------------------------------------------
  51885. TSP_PublishingVideoChannel
  51886. --------------------------------------------------------------------}
  51887. Class Function TSP_PublishingVideoChannel.ObjectRestKind : String;
  51888. begin
  51889. Result:='VideoChannel';
  51890. end;
  51891. Procedure TSP_PublishingVideoChannel.SetChannelPageUrl(AIndex: Integer; const AValue: string);
  51892. begin
  51893. If (FChannelPageUrl=AValue) then exit;
  51894. FChannelPageUrl:=AValue;
  51895. MarkPropertyChanged(AIndex);
  51896. end;
  51897. Procedure TSP_PublishingVideoChannel.SetDescription(AIndex: Integer; const AValue: string);
  51898. begin
  51899. If (FDescription=AValue) then exit;
  51900. FDescription:=AValue;
  51901. MarkPropertyChanged(AIndex);
  51902. end;
  51903. Procedure TSP_PublishingVideoChannel.SetId(AIndex: Integer; const AValue: TGUIDString);
  51904. begin
  51905. If (FId=AValue) then exit;
  51906. FId:=AValue;
  51907. MarkPropertyChanged(AIndex);
  51908. end;
  51909. Procedure TSP_PublishingVideoChannel.SetTileHtmlColor(AIndex: Integer; const AValue: string);
  51910. begin
  51911. If (FTileHtmlColor=AValue) then exit;
  51912. FTileHtmlColor:=AValue;
  51913. MarkPropertyChanged(AIndex);
  51914. end;
  51915. Procedure TSP_PublishingVideoChannel.SetTitle(AIndex: Integer; const AValue: string);
  51916. begin
  51917. If (FTitle=AValue) then exit;
  51918. FTitle:=AValue;
  51919. MarkPropertyChanged(AIndex);
  51920. end;
  51921. Procedure TSP_PublishingVideoChannel.SetYammerEnabled(AIndex: Integer; const AValue: boolean);
  51922. begin
  51923. If (FYammerEnabled=AValue) then exit;
  51924. FYammerEnabled:=AValue;
  51925. MarkPropertyChanged(AIndex);
  51926. end;
  51927. Function TSP_PublishingVideoChannel.KeyAsURLPart : string;
  51928. begin
  51929. Result:=TODataObject.MakeKeyString(Id);
  51930. end;
  51931. Function TSP_PublishingVideoChannel.Search(AService: TODataService) : TSP_PublishingSearch;
  51932. begin
  51933. Result:=TSP_PublishingSearch(GetContainedSingleTon(AService,'Search', TSP_PublishingSearch));
  51934. end;
  51935. Function TSP_PublishingVideoChannel.SpotlightVideos(AService: TODataService) : TSP_PublishingSpotlightVideo;
  51936. begin
  51937. Result:=TSP_PublishingSpotlightVideo(GetContainedSingleTon(AService,'SpotlightVideos', TSP_PublishingSpotlightVideo));
  51938. end;
  51939. Function TSP_PublishingVideoChannel.Videos(AService: TODataService) : TSP_PublishingVideoItem;
  51940. begin
  51941. Result:=TSP_PublishingVideoItem(GetContainedSingleTon(AService,'Videos', TSP_PublishingVideoItem));
  51942. end;
  51943. { --------------------------------------------------------------------
  51944. TSP_PublishingSearch
  51945. --------------------------------------------------------------------}
  51946. Class Function TSP_PublishingSearch.ObjectRestKind : String;
  51947. begin
  51948. Result:='Search';
  51949. end;
  51950. Procedure TSP_PublishingSearch.SetId4a81de82eeb94d6080ea5bf63e27023a(AIndex: Integer; const AValue: string);
  51951. begin
  51952. If (FId4a81de82eeb94d6080ea5bf63e27023a=AValue) then exit;
  51953. FId4a81de82eeb94d6080ea5bf63e27023a:=AValue;
  51954. MarkPropertyChanged(AIndex);
  51955. end;
  51956. Function TSP_PublishingSearch.KeyAsURLPart : string;
  51957. begin
  51958. Result:=TODataObject.MakeKeyString(Id4a81de82eeb94d6080ea5bf63e27023a);
  51959. end;
  51960. { --------------------------------------------------------------------
  51961. TSP_PublishingSpotlightVideo
  51962. --------------------------------------------------------------------}
  51963. Class Function TSP_PublishingSpotlightVideo.ObjectRestKind : String;
  51964. begin
  51965. Result:='SpotlightVideo';
  51966. end;
  51967. Procedure TSP_PublishingSpotlightVideo.SetId(AIndex: Integer; const AValue: TInt32);
  51968. begin
  51969. If (FId=AValue) then exit;
  51970. FId:=AValue;
  51971. MarkPropertyChanged(AIndex);
  51972. end;
  51973. Procedure TSP_PublishingSpotlightVideo.SetServerRelativeUrl(AIndex: Integer; const AValue: string);
  51974. begin
  51975. If (FServerRelativeUrl=AValue) then exit;
  51976. FServerRelativeUrl:=AValue;
  51977. MarkPropertyChanged(AIndex);
  51978. end;
  51979. Procedure TSP_PublishingSpotlightVideo.SetUrl(AIndex: Integer; const AValue: string);
  51980. begin
  51981. If (FUrl=AValue) then exit;
  51982. FUrl:=AValue;
  51983. MarkPropertyChanged(AIndex);
  51984. end;
  51985. Function TSP_PublishingSpotlightVideo.KeyAsURLPart : string;
  51986. begin
  51987. Result:=IntToStr(Id);
  51988. end;
  51989. Function TSP_PublishingSpotlightVideo.Video(AService: TODataService) : TSP_PublishingVideoItem;
  51990. begin
  51991. Result:=TSP_PublishingVideoItem(GetContainedSingleTon(AService,'Video', TSP_PublishingVideoItem));
  51992. end;
  51993. { --------------------------------------------------------------------
  51994. TSP_PublishingVideoPermissionGroup
  51995. --------------------------------------------------------------------}
  51996. Class Function TSP_PublishingVideoPermissionGroup.ObjectRestKind : String;
  51997. begin
  51998. Result:='VideoPermissionGroup';
  51999. end;
  52000. Procedure TSP_PublishingVideoPermissionGroup.SetId(AIndex: Integer; const AValue: TInt32);
  52001. begin
  52002. If (FId=AValue) then exit;
  52003. FId:=AValue;
  52004. MarkPropertyChanged(AIndex);
  52005. end;
  52006. Function TSP_PublishingVideoPermissionGroup.KeyAsURLPart : string;
  52007. begin
  52008. Result:=IntToStr(Id);
  52009. end;
  52010. Function TSP_PublishingVideoPermissionGroup.Users(AService: TODataService) : TSPUser;
  52011. begin
  52012. Result:=TSPUser(GetContainedSingleTon(AService,'Users', TSPUser));
  52013. end;
  52014. { --------------------------------------------------------------------
  52015. TSP_PublishingVideoServiceDiscoverer
  52016. --------------------------------------------------------------------}
  52017. Class Function TSP_PublishingVideoServiceDiscoverer.ObjectRestKind : String;
  52018. begin
  52019. Result:='VideoServiceDiscoverer';
  52020. end;
  52021. Procedure TSP_PublishingVideoServiceDiscoverer.SetChannelUrlTemplate(AIndex: Integer; const AValue: string);
  52022. begin
  52023. If (FChannelUrlTemplate=AValue) then exit;
  52024. FChannelUrlTemplate:=AValue;
  52025. MarkPropertyChanged(AIndex);
  52026. end;
  52027. Procedure TSP_PublishingVideoServiceDiscoverer.SetIsLicensedForVideoPortal(AIndex: Integer; const AValue: boolean);
  52028. begin
  52029. If (FIsLicensedForVideoPortal=AValue) then exit;
  52030. FIsLicensedForVideoPortal:=AValue;
  52031. MarkPropertyChanged(AIndex);
  52032. end;
  52033. Procedure TSP_PublishingVideoServiceDiscoverer.SetIsVideoPortalEnabled(AIndex: Integer; const AValue: boolean);
  52034. begin
  52035. If (FIsVideoPortalEnabled=AValue) then exit;
  52036. FIsVideoPortalEnabled:=AValue;
  52037. MarkPropertyChanged(AIndex);
  52038. end;
  52039. Procedure TSP_PublishingVideoServiceDiscoverer.SetPlayerUrlTemplate(AIndex: Integer; const AValue: string);
  52040. begin
  52041. If (FPlayerUrlTemplate=AValue) then exit;
  52042. FPlayerUrlTemplate:=AValue;
  52043. MarkPropertyChanged(AIndex);
  52044. end;
  52045. Procedure TSP_PublishingVideoServiceDiscoverer.SetVideoPortalLayoutsUrl(AIndex: Integer; const AValue: string);
  52046. begin
  52047. If (FVideoPortalLayoutsUrl=AValue) then exit;
  52048. FVideoPortalLayoutsUrl:=AValue;
  52049. MarkPropertyChanged(AIndex);
  52050. end;
  52051. Procedure TSP_PublishingVideoServiceDiscoverer.SetVideoPortalUrl(AIndex: Integer; const AValue: string);
  52052. begin
  52053. If (FVideoPortalUrl=AValue) then exit;
  52054. FVideoPortalUrl:=AValue;
  52055. MarkPropertyChanged(AIndex);
  52056. end;
  52057. Function TSP_PublishingVideoServiceDiscoverer.KeyAsURLPart : string;
  52058. begin
  52059. Result:=TODataObject.MakeKeyString(ChannelUrlTemplate);
  52060. end;
  52061. { --------------------------------------------------------------------
  52062. TSP_PublishingVideoServiceManager
  52063. --------------------------------------------------------------------}
  52064. Class Function TSP_PublishingVideoServiceManager.ObjectRestKind : String;
  52065. begin
  52066. Result:='VideoServiceManager';
  52067. end;
  52068. Procedure TSP_PublishingVideoServiceManager.SetId4a81de82eeb94d6080ea5bf63e27023a(AIndex: Integer; const AValue: string);
  52069. begin
  52070. If (FId4a81de82eeb94d6080ea5bf63e27023a=AValue) then exit;
  52071. FId4a81de82eeb94d6080ea5bf63e27023a:=AValue;
  52072. MarkPropertyChanged(AIndex);
  52073. end;
  52074. Function TSP_PublishingVideoServiceManager.KeyAsURLPart : string;
  52075. begin
  52076. Result:=TODataObject.MakeKeyString(Id4a81de82eeb94d6080ea5bf63e27023a);
  52077. end;
  52078. Function TSP_PublishingVideoServiceManager.CanEditChannels(AService: TODataService) : TSP_PublishingVideoChannel;
  52079. begin
  52080. Result:=TSP_PublishingVideoChannel(GetContainedSingleTon(AService,'CanEditChannels', TSP_PublishingVideoChannel));
  52081. end;
  52082. Function TSP_PublishingVideoServiceManager.Channels(AService: TODataService) : TSP_PublishingVideoChannel;
  52083. begin
  52084. Result:=TSP_PublishingVideoChannel(GetContainedSingleTon(AService,'Channels', TSP_PublishingVideoChannel));
  52085. end;
  52086. Function TSP_PublishingVideoServiceManager.Search(AService: TODataService) : TSP_PublishingSearch;
  52087. begin
  52088. Result:=TSP_PublishingSearch(GetContainedSingleTon(AService,'Search', TSP_PublishingSearch));
  52089. end;
  52090. Function TSP_PublishingVideoServiceManager.SpotlightChannels(AService: TODataService) : TSP_PublishingSpotlightChannel;
  52091. begin
  52092. Result:=TSP_PublishingSpotlightChannel(GetContainedSingleTon(AService,'SpotlightChannels', TSP_PublishingSpotlightChannel));
  52093. end;
  52094. Function TSP_PublishingVideoServiceManager.SpotlightVideos(AService: TODataService) : TSP_PublishingSpotlightVideo;
  52095. begin
  52096. Result:=TSP_PublishingSpotlightVideo(GetContainedSingleTon(AService,'SpotlightVideos', TSP_PublishingSpotlightVideo));
  52097. end;
  52098. { --------------------------------------------------------------------
  52099. TMicrosoft_SharePoint_Client_Search_QueryPersonalResultSuggestion
  52100. --------------------------------------------------------------------}
  52101. Class Function TMicrosoft_SharePoint_Client_Search_QueryPersonalResultSuggestion.ObjectRestKind : String;
  52102. begin
  52103. Result:='PersonalResultSuggestion';
  52104. end;
  52105. Procedure TMicrosoft_SharePoint_Client_Search_QueryPersonalResultSuggestion.SetHighlightedTitle(AIndex: Integer; const AValue: string);
  52106. begin
  52107. If (FHighlightedTitle=AValue) then exit;
  52108. FHighlightedTitle:=AValue;
  52109. MarkPropertyChanged(AIndex);
  52110. end;
  52111. Procedure TMicrosoft_SharePoint_Client_Search_QueryPersonalResultSuggestion.SetIsBestBet(AIndex: Integer; const AValue: boolean);
  52112. begin
  52113. If (FIsBestBet=AValue) then exit;
  52114. FIsBestBet:=AValue;
  52115. MarkPropertyChanged(AIndex);
  52116. end;
  52117. Procedure TMicrosoft_SharePoint_Client_Search_QueryPersonalResultSuggestion.SetTitle(AIndex: Integer; const AValue: string);
  52118. begin
  52119. If (FTitle=AValue) then exit;
  52120. FTitle:=AValue;
  52121. MarkPropertyChanged(AIndex);
  52122. end;
  52123. Procedure TMicrosoft_SharePoint_Client_Search_QueryPersonalResultSuggestion.SetUrl(AIndex: Integer; const AValue: string);
  52124. begin
  52125. If (FUrl=AValue) then exit;
  52126. FUrl:=AValue;
  52127. MarkPropertyChanged(AIndex);
  52128. end;
  52129. { --------------------------------------------------------------------
  52130. TMicrosoft_SharePoint_Client_Search_QueryQueryAutoCompletionMatch
  52131. --------------------------------------------------------------------}
  52132. Class Function TMicrosoft_SharePoint_Client_Search_QueryQueryAutoCompletionMatch.ObjectRestKind : String;
  52133. begin
  52134. Result:='QueryAutoCompletionMatch';
  52135. end;
  52136. Procedure TMicrosoft_SharePoint_Client_Search_QueryQueryAutoCompletionMatch.SetAlternation(AIndex: Integer; const AValue: boolean);
  52137. begin
  52138. If (FAlternation=AValue) then exit;
  52139. FAlternation:=AValue;
  52140. MarkPropertyChanged(AIndex);
  52141. end;
  52142. Procedure TMicrosoft_SharePoint_Client_Search_QueryQueryAutoCompletionMatch.SetKey(AIndex: Integer; const AValue: string);
  52143. begin
  52144. If (FKey=AValue) then exit;
  52145. FKey:=AValue;
  52146. MarkPropertyChanged(AIndex);
  52147. end;
  52148. Procedure TMicrosoft_SharePoint_Client_Search_QueryQueryAutoCompletionMatch.Set_Length(AIndex: Integer; const AValue: int64);
  52149. begin
  52150. If (F_Length=AValue) then exit;
  52151. F_Length:=AValue;
  52152. MarkPropertyChanged(AIndex);
  52153. end;
  52154. Procedure TMicrosoft_SharePoint_Client_Search_QueryQueryAutoCompletionMatch.SetMatchType(AIndex: Integer; const AValue: string);
  52155. begin
  52156. If (FMatchType=AValue) then exit;
  52157. FMatchType:=AValue;
  52158. MarkPropertyChanged(AIndex);
  52159. end;
  52160. Procedure TMicrosoft_SharePoint_Client_Search_QueryQueryAutoCompletionMatch.SetScore(AIndex: Integer; const AValue: Double);
  52161. begin
  52162. If (FScore=AValue) then exit;
  52163. FScore:=AValue;
  52164. MarkPropertyChanged(AIndex);
  52165. end;
  52166. Procedure TMicrosoft_SharePoint_Client_Search_QueryQueryAutoCompletionMatch.SetSourceName(AIndex: Integer; const AValue: string);
  52167. begin
  52168. If (FSourceName=AValue) then exit;
  52169. FSourceName:=AValue;
  52170. MarkPropertyChanged(AIndex);
  52171. end;
  52172. Procedure TMicrosoft_SharePoint_Client_Search_QueryQueryAutoCompletionMatch.SetStart(AIndex: Integer; const AValue: int64);
  52173. begin
  52174. If (FStart=AValue) then exit;
  52175. FStart:=AValue;
  52176. MarkPropertyChanged(AIndex);
  52177. end;
  52178. Procedure TMicrosoft_SharePoint_Client_Search_QueryQueryAutoCompletionMatch.SetValue(AIndex: Integer; const AValue: string);
  52179. begin
  52180. If (FValue=AValue) then exit;
  52181. FValue:=AValue;
  52182. MarkPropertyChanged(AIndex);
  52183. end;
  52184. Class Function TMicrosoft_SharePoint_Client_Search_QueryQueryAutoCompletionMatch.ExportPropertyName(Const AName : String) :String;
  52185. begin
  52186. Case AName of
  52187. '_Length' : Result:='Length';
  52188. else
  52189. Result:=Inherited ExportPropertyName(AName);
  52190. end;
  52191. end;
  52192. { --------------------------------------------------------------------
  52193. TMicrosoft_SharePoint_Client_Search_QueryQueryAutoCompletionResults
  52194. --------------------------------------------------------------------}
  52195. Class Function TMicrosoft_SharePoint_Client_Search_QueryQueryAutoCompletionResults.ObjectRestKind : String;
  52196. begin
  52197. Result:='QueryAutoCompletionResults';
  52198. end;
  52199. Procedure TMicrosoft_SharePoint_Client_Search_QueryQueryAutoCompletionResults.SetCoreExecutionTimeMs(AIndex: Integer; const AValue: int64);
  52200. begin
  52201. If (FCoreExecutionTimeMs=AValue) then exit;
  52202. FCoreExecutionTimeMs:=AValue;
  52203. MarkPropertyChanged(AIndex);
  52204. end;
  52205. Procedure TMicrosoft_SharePoint_Client_Search_QueryQueryAutoCompletionResults.SetCorrelationId(AIndex: Integer; const AValue: string);
  52206. begin
  52207. If (FCorrelationId=AValue) then exit;
  52208. FCorrelationId:=AValue;
  52209. MarkPropertyChanged(AIndex);
  52210. end;
  52211. Procedure TMicrosoft_SharePoint_Client_Search_QueryQueryAutoCompletionResults.SetQueries(AIndex: Integer; const AValue: TMicrosoft_SharePoint_Client_Search_QueryQueryAutoCompletionArray);
  52212. begin
  52213. If (FQueries=AValue) then exit;
  52214. FQueries:=AValue;
  52215. MarkPropertyChanged(AIndex);
  52216. end;
  52217. {$IFDEF VER2_6}
  52218. Procedure TMicrosoft_SharePoint_Client_Search_QueryQueryAutoCompletionResults.SetArrayLength(const AName: String; ALength: Longint);
  52219. begin
  52220. Case aName of
  52221. 'queries' : SetLength(FQueries,aLength);
  52222. else
  52223. inherited SetArrayLength(aName,ALength);
  52224. end;
  52225. end;
  52226. {$ENDIF VER2_6}
  52227. { --------------------------------------------------------------------
  52228. TMicrosoft_SharePoint_Client_Search_QueryQueryAutoCompletion
  52229. --------------------------------------------------------------------}
  52230. Class Function TMicrosoft_SharePoint_Client_Search_QueryQueryAutoCompletion.ObjectRestKind : String;
  52231. begin
  52232. Result:='QueryAutoCompletion';
  52233. end;
  52234. Procedure TMicrosoft_SharePoint_Client_Search_QueryQueryAutoCompletion.SetMatches(AIndex: Integer; const AValue: TMicrosoft_SharePoint_Client_Search_QueryQueryAutoCompletionMatchArray);
  52235. begin
  52236. If (FMatches=AValue) then exit;
  52237. FMatches:=AValue;
  52238. MarkPropertyChanged(AIndex);
  52239. end;
  52240. Procedure TMicrosoft_SharePoint_Client_Search_QueryQueryAutoCompletion.SetQuery(AIndex: Integer; const AValue: string);
  52241. begin
  52242. If (FQuery=AValue) then exit;
  52243. FQuery:=AValue;
  52244. MarkPropertyChanged(AIndex);
  52245. end;
  52246. Procedure TMicrosoft_SharePoint_Client_Search_QueryQueryAutoCompletion.SetScore(AIndex: Integer; const AValue: Double);
  52247. begin
  52248. If (FScore=AValue) then exit;
  52249. FScore:=AValue;
  52250. MarkPropertyChanged(AIndex);
  52251. end;
  52252. Procedure TMicrosoft_SharePoint_Client_Search_QueryQueryAutoCompletion.SetSource(AIndex: Integer; const AValue: string);
  52253. begin
  52254. If (FSource=AValue) then exit;
  52255. FSource:=AValue;
  52256. MarkPropertyChanged(AIndex);
  52257. end;
  52258. {$IFDEF VER2_6}
  52259. Procedure TMicrosoft_SharePoint_Client_Search_QueryQueryAutoCompletion.SetArrayLength(const AName: String; ALength: Longint);
  52260. begin
  52261. Case aName of
  52262. 'matches' : SetLength(FMatches,aLength);
  52263. else
  52264. inherited SetArrayLength(aName,ALength);
  52265. end;
  52266. end;
  52267. {$ENDIF VER2_6}
  52268. { --------------------------------------------------------------------
  52269. TMicrosoft_SharePoint_Client_Search_QueryQueryPropertyValue
  52270. --------------------------------------------------------------------}
  52271. Class Function TMicrosoft_SharePoint_Client_Search_QueryQueryPropertyValue.ObjectRestKind : String;
  52272. begin
  52273. Result:='QueryPropertyValue';
  52274. end;
  52275. Procedure TMicrosoft_SharePoint_Client_Search_QueryQueryPropertyValue.SetBoolVal(AIndex: Integer; const AValue: boolean);
  52276. begin
  52277. If (FBoolVal=AValue) then exit;
  52278. FBoolVal:=AValue;
  52279. MarkPropertyChanged(AIndex);
  52280. end;
  52281. Procedure TMicrosoft_SharePoint_Client_Search_QueryQueryPropertyValue.SetIntVal(AIndex: Integer; const AValue: TInt32);
  52282. begin
  52283. If (FIntVal=AValue) then exit;
  52284. FIntVal:=AValue;
  52285. MarkPropertyChanged(AIndex);
  52286. end;
  52287. Procedure TMicrosoft_SharePoint_Client_Search_QueryQueryPropertyValue.SetQueryPropertyValueTypeIndex(AIndex: Integer; const AValue: TInt32);
  52288. begin
  52289. If (FQueryPropertyValueTypeIndex=AValue) then exit;
  52290. FQueryPropertyValueTypeIndex:=AValue;
  52291. MarkPropertyChanged(AIndex);
  52292. end;
  52293. Procedure TMicrosoft_SharePoint_Client_Search_QueryQueryPropertyValue.SetStrArray(AIndex: Integer; const AValue: TStringArray);
  52294. begin
  52295. If (FStrArray=AValue) then exit;
  52296. FStrArray:=AValue;
  52297. MarkPropertyChanged(AIndex);
  52298. end;
  52299. Procedure TMicrosoft_SharePoint_Client_Search_QueryQueryPropertyValue.SetStrVal(AIndex: Integer; const AValue: string);
  52300. begin
  52301. If (FStrVal=AValue) then exit;
  52302. FStrVal:=AValue;
  52303. MarkPropertyChanged(AIndex);
  52304. end;
  52305. {$IFDEF VER2_6}
  52306. Procedure TMicrosoft_SharePoint_Client_Search_QueryQueryPropertyValue.SetArrayLength(const AName: String; ALength: Longint);
  52307. begin
  52308. Case aName of
  52309. 'strarray' : SetLength(FStrArray,aLength);
  52310. else
  52311. inherited SetArrayLength(aName,ALength);
  52312. end;
  52313. end;
  52314. {$ENDIF VER2_6}
  52315. { --------------------------------------------------------------------
  52316. TMicrosoft_SharePoint_Client_Search_QueryQuerySuggestionQuery
  52317. --------------------------------------------------------------------}
  52318. Class Function TMicrosoft_SharePoint_Client_Search_QueryQuerySuggestionQuery.ObjectRestKind : String;
  52319. begin
  52320. Result:='QuerySuggestionQuery';
  52321. end;
  52322. Procedure TMicrosoft_SharePoint_Client_Search_QueryQuerySuggestionQuery.SetIsPersonal(AIndex: Integer; const AValue: boolean);
  52323. begin
  52324. If (FIsPersonal=AValue) then exit;
  52325. FIsPersonal:=AValue;
  52326. MarkPropertyChanged(AIndex);
  52327. end;
  52328. Procedure TMicrosoft_SharePoint_Client_Search_QueryQuerySuggestionQuery.SetQuery(AIndex: Integer; const AValue: string);
  52329. begin
  52330. If (FQuery=AValue) then exit;
  52331. FQuery:=AValue;
  52332. MarkPropertyChanged(AIndex);
  52333. end;
  52334. { --------------------------------------------------------------------
  52335. TMicrosoft_SharePoint_Client_Search_QueryQuerySuggestionRange
  52336. --------------------------------------------------------------------}
  52337. Class Function TMicrosoft_SharePoint_Client_Search_QueryQuerySuggestionRange.ObjectRestKind : String;
  52338. begin
  52339. Result:='QuerySuggestionRange';
  52340. end;
  52341. Procedure TMicrosoft_SharePoint_Client_Search_QueryQuerySuggestionRange.Set_Length(AIndex: Integer; const AValue: TInt32);
  52342. begin
  52343. If (F_Length=AValue) then exit;
  52344. F_Length:=AValue;
  52345. MarkPropertyChanged(AIndex);
  52346. end;
  52347. Procedure TMicrosoft_SharePoint_Client_Search_QueryQuerySuggestionRange.SetStart(AIndex: Integer; const AValue: TInt32);
  52348. begin
  52349. If (FStart=AValue) then exit;
  52350. FStart:=AValue;
  52351. MarkPropertyChanged(AIndex);
  52352. end;
  52353. Class Function TMicrosoft_SharePoint_Client_Search_QueryQuerySuggestionRange.ExportPropertyName(Const AName : String) :String;
  52354. begin
  52355. Case AName of
  52356. '_Length' : Result:='Length';
  52357. else
  52358. Result:=Inherited ExportPropertyName(AName);
  52359. end;
  52360. end;
  52361. { --------------------------------------------------------------------
  52362. TMicrosoft_SharePoint_Client_Search_QueryQuerySuggestionResults
  52363. --------------------------------------------------------------------}
  52364. Class Function TMicrosoft_SharePoint_Client_Search_QueryQuerySuggestionResults.ObjectRestKind : String;
  52365. begin
  52366. Result:='QuerySuggestionResults';
  52367. end;
  52368. Procedure TMicrosoft_SharePoint_Client_Search_QueryQuerySuggestionResults.SetPeopleNames(AIndex: Integer; const AValue: TStringArray);
  52369. begin
  52370. If (FPeopleNames=AValue) then exit;
  52371. FPeopleNames:=AValue;
  52372. MarkPropertyChanged(AIndex);
  52373. end;
  52374. Procedure TMicrosoft_SharePoint_Client_Search_QueryQuerySuggestionResults.SetPersonalResults(AIndex: Integer; const AValue: TMicrosoft_SharePoint_Client_Search_QueryPersonalResultSuggestionArray);
  52375. begin
  52376. If (FPersonalResults=AValue) then exit;
  52377. FPersonalResults:=AValue;
  52378. MarkPropertyChanged(AIndex);
  52379. end;
  52380. Procedure TMicrosoft_SharePoint_Client_Search_QueryQuerySuggestionResults.SetQueries(AIndex: Integer; const AValue: TMicrosoft_SharePoint_Client_Search_QueryQuerySuggestionQueryArray);
  52381. begin
  52382. If (FQueries=AValue) then exit;
  52383. FQueries:=AValue;
  52384. MarkPropertyChanged(AIndex);
  52385. end;
  52386. {$IFDEF VER2_6}
  52387. Procedure TMicrosoft_SharePoint_Client_Search_QueryQuerySuggestionResults.SetArrayLength(const AName: String; ALength: Longint);
  52388. begin
  52389. Case aName of
  52390. 'peoplenames' : SetLength(FPeopleNames,aLength);
  52391. 'personalresults' : SetLength(FPersonalResults,aLength);
  52392. 'queries' : SetLength(FQueries,aLength);
  52393. else
  52394. inherited SetArrayLength(aName,ALength);
  52395. end;
  52396. end;
  52397. {$ENDIF VER2_6}
  52398. { --------------------------------------------------------------------
  52399. TMicrosoft_SharePoint_Client_Search_QueryReorderingRule
  52400. --------------------------------------------------------------------}
  52401. Class Function TMicrosoft_SharePoint_Client_Search_QueryReorderingRule.ObjectRestKind : String;
  52402. begin
  52403. Result:='ReorderingRule';
  52404. end;
  52405. Procedure TMicrosoft_SharePoint_Client_Search_QueryReorderingRule.SetBoost(AIndex: Integer; const AValue: TInt32);
  52406. begin
  52407. If (FBoost=AValue) then exit;
  52408. FBoost:=AValue;
  52409. MarkPropertyChanged(AIndex);
  52410. end;
  52411. Procedure TMicrosoft_SharePoint_Client_Search_QueryReorderingRule.SetMatchType(AIndex: Integer; const AValue: TInt32);
  52412. begin
  52413. If (FMatchType=AValue) then exit;
  52414. FMatchType:=AValue;
  52415. MarkPropertyChanged(AIndex);
  52416. end;
  52417. Procedure TMicrosoft_SharePoint_Client_Search_QueryReorderingRule.SetMatchValue(AIndex: Integer; const AValue: string);
  52418. begin
  52419. If (FMatchValue=AValue) then exit;
  52420. FMatchValue:=AValue;
  52421. MarkPropertyChanged(AIndex);
  52422. end;
  52423. { --------------------------------------------------------------------
  52424. TMicrosoft_SharePoint_Client_Search_QuerySort
  52425. --------------------------------------------------------------------}
  52426. Class Function TMicrosoft_SharePoint_Client_Search_QuerySort.ObjectRestKind : String;
  52427. begin
  52428. Result:='Sort';
  52429. end;
  52430. Procedure TMicrosoft_SharePoint_Client_Search_QuerySort.SetDirection(AIndex: Integer; const AValue: TInt32);
  52431. begin
  52432. If (FDirection=AValue) then exit;
  52433. FDirection:=AValue;
  52434. MarkPropertyChanged(AIndex);
  52435. end;
  52436. Procedure TMicrosoft_SharePoint_Client_Search_QuerySort.Set_Property(AIndex: Integer; const AValue: string);
  52437. begin
  52438. If (F_Property=AValue) then exit;
  52439. F_Property:=AValue;
  52440. MarkPropertyChanged(AIndex);
  52441. end;
  52442. Class Function TMicrosoft_SharePoint_Client_Search_QuerySort.ExportPropertyName(Const AName : String) :String;
  52443. begin
  52444. Case AName of
  52445. '_Property' : Result:='Property';
  52446. else
  52447. Result:=Inherited ExportPropertyName(AName);
  52448. end;
  52449. end;
  52450. { --------------------------------------------------------------------
  52451. TMicrosoft_SharePoint_Client_Search_QueryStringCollection
  52452. --------------------------------------------------------------------}
  52453. Class Function TMicrosoft_SharePoint_Client_Search_QueryStringCollection.ObjectRestKind : String;
  52454. begin
  52455. Result:='StringCollection';
  52456. end;
  52457. Procedure TMicrosoft_SharePoint_Client_Search_QueryStringCollection.SetId4a81de82eeb94d6080ea5bf63e27023a(AIndex: Integer; const AValue: string);
  52458. begin
  52459. If (FId4a81de82eeb94d6080ea5bf63e27023a=AValue) then exit;
  52460. FId4a81de82eeb94d6080ea5bf63e27023a:=AValue;
  52461. MarkPropertyChanged(AIndex);
  52462. end;
  52463. Procedure TMicrosoft_SharePoint_Client_Search_QueryStringCollection.SetItems(AIndex: Integer; const AValue: TStringArray);
  52464. begin
  52465. If (FItems=AValue) then exit;
  52466. FItems:=AValue;
  52467. MarkPropertyChanged(AIndex);
  52468. end;
  52469. {$IFDEF VER2_6}
  52470. Procedure TMicrosoft_SharePoint_Client_Search_QueryStringCollection.SetArrayLength(const AName: String; ALength: Longint);
  52471. begin
  52472. Case aName of
  52473. 'items' : SetLength(FItems,aLength);
  52474. else
  52475. inherited SetArrayLength(aName,ALength);
  52476. end;
  52477. end;
  52478. {$ENDIF VER2_6}
  52479. Function TMicrosoft_SharePoint_Client_Search_QueryStringCollection.KeyAsURLPart : string;
  52480. begin
  52481. Result:=TODataObject.MakeKeyString(Id4a81de82eeb94d6080ea5bf63e27023a);
  52482. end;
  52483. { --------------------------------------------------------------------
  52484. TMicrosoft_SharePoint_Client_Search_QueryQueryPersonalizationData
  52485. --------------------------------------------------------------------}
  52486. Class Function TMicrosoft_SharePoint_Client_Search_QueryQueryPersonalizationData.ObjectRestKind : String;
  52487. begin
  52488. Result:='QueryPersonalizationData';
  52489. end;
  52490. Procedure TMicrosoft_SharePoint_Client_Search_QueryQueryPersonalizationData.SetId4a81de82eeb94d6080ea5bf63e27023a(AIndex: Integer; const AValue: string);
  52491. begin
  52492. If (FId4a81de82eeb94d6080ea5bf63e27023a=AValue) then exit;
  52493. FId4a81de82eeb94d6080ea5bf63e27023a:=AValue;
  52494. MarkPropertyChanged(AIndex);
  52495. end;
  52496. Function TMicrosoft_SharePoint_Client_Search_QueryQueryPersonalizationData.KeyAsURLPart : string;
  52497. begin
  52498. Result:=TODataObject.MakeKeyString(Id4a81de82eeb94d6080ea5bf63e27023a);
  52499. end;
  52500. { --------------------------------------------------------------------
  52501. TMicrosoft_SharePoint_Client_Search_QueryRankingLabeling
  52502. --------------------------------------------------------------------}
  52503. Class Function TMicrosoft_SharePoint_Client_Search_QueryRankingLabeling.ObjectRestKind : String;
  52504. begin
  52505. Result:='RankingLabeling';
  52506. end;
  52507. Procedure TMicrosoft_SharePoint_Client_Search_QueryRankingLabeling.SetId4a81de82eeb94d6080ea5bf63e27023a(AIndex: Integer; const AValue: string);
  52508. begin
  52509. If (FId4a81de82eeb94d6080ea5bf63e27023a=AValue) then exit;
  52510. FId4a81de82eeb94d6080ea5bf63e27023a:=AValue;
  52511. MarkPropertyChanged(AIndex);
  52512. end;
  52513. Function TMicrosoft_SharePoint_Client_Search_QueryRankingLabeling.KeyAsURLPart : string;
  52514. begin
  52515. Result:=TODataObject.MakeKeyString(Id4a81de82eeb94d6080ea5bf63e27023a);
  52516. end;
  52517. { --------------------------------------------------------------------
  52518. TMicrosoft_SharePoint_Client_Search_QueryReorderingRuleCollection
  52519. --------------------------------------------------------------------}
  52520. Class Function TMicrosoft_SharePoint_Client_Search_QueryReorderingRuleCollection.ObjectRestKind : String;
  52521. begin
  52522. Result:='ReorderingRuleCollection';
  52523. end;
  52524. Procedure TMicrosoft_SharePoint_Client_Search_QueryReorderingRuleCollection.SetId4a81de82eeb94d6080ea5bf63e27023a(AIndex: Integer; const AValue: string);
  52525. begin
  52526. If (FId4a81de82eeb94d6080ea5bf63e27023a=AValue) then exit;
  52527. FId4a81de82eeb94d6080ea5bf63e27023a:=AValue;
  52528. MarkPropertyChanged(AIndex);
  52529. end;
  52530. Procedure TMicrosoft_SharePoint_Client_Search_QueryReorderingRuleCollection.SetItems(AIndex: Integer; const AValue: TMicrosoft_SharePoint_Client_Search_QueryReorderingRuleArray);
  52531. begin
  52532. If (FItems=AValue) then exit;
  52533. FItems:=AValue;
  52534. MarkPropertyChanged(AIndex);
  52535. end;
  52536. {$IFDEF VER2_6}
  52537. Procedure TMicrosoft_SharePoint_Client_Search_QueryReorderingRuleCollection.SetArrayLength(const AName: String; ALength: Longint);
  52538. begin
  52539. Case aName of
  52540. 'items' : SetLength(FItems,aLength);
  52541. else
  52542. inherited SetArrayLength(aName,ALength);
  52543. end;
  52544. end;
  52545. {$ENDIF VER2_6}
  52546. Function TMicrosoft_SharePoint_Client_Search_QueryReorderingRuleCollection.KeyAsURLPart : string;
  52547. begin
  52548. Result:=TODataObject.MakeKeyString(Id4a81de82eeb94d6080ea5bf63e27023a);
  52549. end;
  52550. { --------------------------------------------------------------------
  52551. TMicrosoft_SharePoint_Client_Search_QuerySortCollection
  52552. --------------------------------------------------------------------}
  52553. Class Function TMicrosoft_SharePoint_Client_Search_QuerySortCollection.ObjectRestKind : String;
  52554. begin
  52555. Result:='SortCollection';
  52556. end;
  52557. Procedure TMicrosoft_SharePoint_Client_Search_QuerySortCollection.SetId4a81de82eeb94d6080ea5bf63e27023a(AIndex: Integer; const AValue: string);
  52558. begin
  52559. If (FId4a81de82eeb94d6080ea5bf63e27023a=AValue) then exit;
  52560. FId4a81de82eeb94d6080ea5bf63e27023a:=AValue;
  52561. MarkPropertyChanged(AIndex);
  52562. end;
  52563. Procedure TMicrosoft_SharePoint_Client_Search_QuerySortCollection.SetItems(AIndex: Integer; const AValue: TMicrosoft_SharePoint_Client_Search_QuerySortArray);
  52564. begin
  52565. If (FItems=AValue) then exit;
  52566. FItems:=AValue;
  52567. MarkPropertyChanged(AIndex);
  52568. end;
  52569. {$IFDEF VER2_6}
  52570. Procedure TMicrosoft_SharePoint_Client_Search_QuerySortCollection.SetArrayLength(const AName: String; ALength: Longint);
  52571. begin
  52572. Case aName of
  52573. 'items' : SetLength(FItems,aLength);
  52574. else
  52575. inherited SetArrayLength(aName,ALength);
  52576. end;
  52577. end;
  52578. {$ENDIF VER2_6}
  52579. Function TMicrosoft_SharePoint_Client_Search_QuerySortCollection.KeyAsURLPart : string;
  52580. begin
  52581. Result:=TODataObject.MakeKeyString(Id4a81de82eeb94d6080ea5bf63e27023a);
  52582. end;
  52583. { --------------------------------------------------------------------
  52584. TMicrosoft_Office_Server_Search_RESTCustomResult
  52585. --------------------------------------------------------------------}
  52586. Class Function TMicrosoft_Office_Server_Search_RESTCustomResult.ObjectRestKind : String;
  52587. begin
  52588. Result:='CustomResult';
  52589. end;
  52590. Procedure TMicrosoft_Office_Server_Search_RESTCustomResult.SetGroupTemplateId(AIndex: Integer; const AValue: string);
  52591. begin
  52592. If (FGroupTemplateId=AValue) then exit;
  52593. FGroupTemplateId:=AValue;
  52594. MarkPropertyChanged(AIndex);
  52595. end;
  52596. Procedure TMicrosoft_Office_Server_Search_RESTCustomResult.SetItemTemplateId(AIndex: Integer; const AValue: string);
  52597. begin
  52598. If (FItemTemplateId=AValue) then exit;
  52599. FItemTemplateId:=AValue;
  52600. MarkPropertyChanged(AIndex);
  52601. end;
  52602. Procedure TMicrosoft_Office_Server_Search_RESTCustomResult.SetProperties(AIndex: Integer; const AValue: TSPKeyValueArray);
  52603. begin
  52604. If (FProperties=AValue) then exit;
  52605. FProperties:=AValue;
  52606. MarkPropertyChanged(AIndex);
  52607. end;
  52608. Procedure TMicrosoft_Office_Server_Search_RESTCustomResult.SetResultTitle(AIndex: Integer; const AValue: string);
  52609. begin
  52610. If (FResultTitle=AValue) then exit;
  52611. FResultTitle:=AValue;
  52612. MarkPropertyChanged(AIndex);
  52613. end;
  52614. Procedure TMicrosoft_Office_Server_Search_RESTCustomResult.SetResultTitleUrl(AIndex: Integer; const AValue: string);
  52615. begin
  52616. If (FResultTitleUrl=AValue) then exit;
  52617. FResultTitleUrl:=AValue;
  52618. MarkPropertyChanged(AIndex);
  52619. end;
  52620. Procedure TMicrosoft_Office_Server_Search_RESTCustomResult.SetTable(AIndex: Integer; const AValue: TSPSimpleDataTable);
  52621. begin
  52622. If (FTable=AValue) then exit;
  52623. FTable:=AValue;
  52624. MarkPropertyChanged(AIndex);
  52625. end;
  52626. Procedure TMicrosoft_Office_Server_Search_RESTCustomResult.SetTableType(AIndex: Integer; const AValue: string);
  52627. begin
  52628. If (FTableType=AValue) then exit;
  52629. FTableType:=AValue;
  52630. MarkPropertyChanged(AIndex);
  52631. end;
  52632. {$IFDEF VER2_6}
  52633. Procedure TMicrosoft_Office_Server_Search_RESTCustomResult.SetArrayLength(const AName: String; ALength: Longint);
  52634. begin
  52635. Case aName of
  52636. 'properties' : SetLength(FProperties,aLength);
  52637. else
  52638. inherited SetArrayLength(aName,ALength);
  52639. end;
  52640. end;
  52641. {$ENDIF VER2_6}
  52642. { --------------------------------------------------------------------
  52643. TMicrosoft_Office_Server_Search_RESTQueryProperty
  52644. --------------------------------------------------------------------}
  52645. Class Function TMicrosoft_Office_Server_Search_RESTQueryProperty.ObjectRestKind : String;
  52646. begin
  52647. Result:='QueryProperty';
  52648. end;
  52649. Procedure TMicrosoft_Office_Server_Search_RESTQueryProperty.SetName(AIndex: Integer; const AValue: string);
  52650. begin
  52651. If (FName=AValue) then exit;
  52652. FName:=AValue;
  52653. MarkPropertyChanged(AIndex);
  52654. end;
  52655. Procedure TMicrosoft_Office_Server_Search_RESTQueryProperty.SetValue(AIndex: Integer; const AValue: TMicrosoft_SharePoint_Client_Search_QueryQueryPropertyValue);
  52656. begin
  52657. If (FValue=AValue) then exit;
  52658. FValue:=AValue;
  52659. MarkPropertyChanged(AIndex);
  52660. end;
  52661. { --------------------------------------------------------------------
  52662. TMicrosoft_Office_Server_Search_RESTQueryResult
  52663. --------------------------------------------------------------------}
  52664. Class Function TMicrosoft_Office_Server_Search_RESTQueryResult.ObjectRestKind : String;
  52665. begin
  52666. Result:='QueryResult';
  52667. end;
  52668. Procedure TMicrosoft_Office_Server_Search_RESTQueryResult.SetCustomResults(AIndex: Integer; const AValue: TMicrosoft_Office_Server_Search_RESTCustomResultArray);
  52669. begin
  52670. If (FCustomResults=AValue) then exit;
  52671. FCustomResults:=AValue;
  52672. MarkPropertyChanged(AIndex);
  52673. end;
  52674. Procedure TMicrosoft_Office_Server_Search_RESTQueryResult.SetQueryId(AIndex: Integer; const AValue: string);
  52675. begin
  52676. If (FQueryId=AValue) then exit;
  52677. FQueryId:=AValue;
  52678. MarkPropertyChanged(AIndex);
  52679. end;
  52680. Procedure TMicrosoft_Office_Server_Search_RESTQueryResult.SetQueryRuleId(AIndex: Integer; const AValue: TGUIDString);
  52681. begin
  52682. If (FQueryRuleId=AValue) then exit;
  52683. FQueryRuleId:=AValue;
  52684. MarkPropertyChanged(AIndex);
  52685. end;
  52686. Procedure TMicrosoft_Office_Server_Search_RESTQueryResult.SetRefinementResults(AIndex: Integer; const AValue: TMicrosoft_Office_Server_Search_RESTRefinementResults);
  52687. begin
  52688. If (FRefinementResults=AValue) then exit;
  52689. FRefinementResults:=AValue;
  52690. MarkPropertyChanged(AIndex);
  52691. end;
  52692. Procedure TMicrosoft_Office_Server_Search_RESTQueryResult.SetRelevantResults(AIndex: Integer; const AValue: TMicrosoft_Office_Server_Search_RESTRelevantResults);
  52693. begin
  52694. If (FRelevantResults=AValue) then exit;
  52695. FRelevantResults:=AValue;
  52696. MarkPropertyChanged(AIndex);
  52697. end;
  52698. Procedure TMicrosoft_Office_Server_Search_RESTQueryResult.SetSpecialTermResults(AIndex: Integer; const AValue: TMicrosoft_Office_Server_Search_RESTSpecialTermResults);
  52699. begin
  52700. If (FSpecialTermResults=AValue) then exit;
  52701. FSpecialTermResults:=AValue;
  52702. MarkPropertyChanged(AIndex);
  52703. end;
  52704. {$IFDEF VER2_6}
  52705. Procedure TMicrosoft_Office_Server_Search_RESTQueryResult.SetArrayLength(const AName: String; ALength: Longint);
  52706. begin
  52707. Case aName of
  52708. 'customresults' : SetLength(FCustomResults,aLength);
  52709. else
  52710. inherited SetArrayLength(aName,ALength);
  52711. end;
  52712. end;
  52713. {$ENDIF VER2_6}
  52714. { --------------------------------------------------------------------
  52715. TMicrosoft_Office_Server_Search_RESTRefinementResults
  52716. --------------------------------------------------------------------}
  52717. Class Function TMicrosoft_Office_Server_Search_RESTRefinementResults.ObjectRestKind : String;
  52718. begin
  52719. Result:='RefinementResults';
  52720. end;
  52721. Procedure TMicrosoft_Office_Server_Search_RESTRefinementResults.SetGroupTemplateId(AIndex: Integer; const AValue: string);
  52722. begin
  52723. If (FGroupTemplateId=AValue) then exit;
  52724. FGroupTemplateId:=AValue;
  52725. MarkPropertyChanged(AIndex);
  52726. end;
  52727. Procedure TMicrosoft_Office_Server_Search_RESTRefinementResults.SetItemTemplateId(AIndex: Integer; const AValue: string);
  52728. begin
  52729. If (FItemTemplateId=AValue) then exit;
  52730. FItemTemplateId:=AValue;
  52731. MarkPropertyChanged(AIndex);
  52732. end;
  52733. Procedure TMicrosoft_Office_Server_Search_RESTRefinementResults.SetProperties(AIndex: Integer; const AValue: TSPKeyValueArray);
  52734. begin
  52735. If (FProperties=AValue) then exit;
  52736. FProperties:=AValue;
  52737. MarkPropertyChanged(AIndex);
  52738. end;
  52739. Procedure TMicrosoft_Office_Server_Search_RESTRefinementResults.SetRefiners(AIndex: Integer; const AValue: TMicrosoft_Office_Server_Search_RESTRefinerArray);
  52740. begin
  52741. If (FRefiners=AValue) then exit;
  52742. FRefiners:=AValue;
  52743. MarkPropertyChanged(AIndex);
  52744. end;
  52745. Procedure TMicrosoft_Office_Server_Search_RESTRefinementResults.SetResultTitle(AIndex: Integer; const AValue: string);
  52746. begin
  52747. If (FResultTitle=AValue) then exit;
  52748. FResultTitle:=AValue;
  52749. MarkPropertyChanged(AIndex);
  52750. end;
  52751. Procedure TMicrosoft_Office_Server_Search_RESTRefinementResults.SetResultTitleUrl(AIndex: Integer; const AValue: string);
  52752. begin
  52753. If (FResultTitleUrl=AValue) then exit;
  52754. FResultTitleUrl:=AValue;
  52755. MarkPropertyChanged(AIndex);
  52756. end;
  52757. {$IFDEF VER2_6}
  52758. Procedure TMicrosoft_Office_Server_Search_RESTRefinementResults.SetArrayLength(const AName: String; ALength: Longint);
  52759. begin
  52760. Case aName of
  52761. 'properties' : SetLength(FProperties,aLength);
  52762. 'refiners' : SetLength(FRefiners,aLength);
  52763. else
  52764. inherited SetArrayLength(aName,ALength);
  52765. end;
  52766. end;
  52767. {$ENDIF VER2_6}
  52768. { --------------------------------------------------------------------
  52769. TMicrosoft_Office_Server_Search_RESTRefiner
  52770. --------------------------------------------------------------------}
  52771. Class Function TMicrosoft_Office_Server_Search_RESTRefiner.ObjectRestKind : String;
  52772. begin
  52773. Result:='Refiner';
  52774. end;
  52775. Procedure TMicrosoft_Office_Server_Search_RESTRefiner.SetEntries(AIndex: Integer; const AValue: TMicrosoft_Office_Server_Search_RESTRefinerEntryArray);
  52776. begin
  52777. If (FEntries=AValue) then exit;
  52778. FEntries:=AValue;
  52779. MarkPropertyChanged(AIndex);
  52780. end;
  52781. Procedure TMicrosoft_Office_Server_Search_RESTRefiner.SetName(AIndex: Integer; const AValue: string);
  52782. begin
  52783. If (FName=AValue) then exit;
  52784. FName:=AValue;
  52785. MarkPropertyChanged(AIndex);
  52786. end;
  52787. {$IFDEF VER2_6}
  52788. Procedure TMicrosoft_Office_Server_Search_RESTRefiner.SetArrayLength(const AName: String; ALength: Longint);
  52789. begin
  52790. Case aName of
  52791. 'entries' : SetLength(FEntries,aLength);
  52792. else
  52793. inherited SetArrayLength(aName,ALength);
  52794. end;
  52795. end;
  52796. {$ENDIF VER2_6}
  52797. { --------------------------------------------------------------------
  52798. TMicrosoft_Office_Server_Search_RESTRefinerEntry
  52799. --------------------------------------------------------------------}
  52800. Class Function TMicrosoft_Office_Server_Search_RESTRefinerEntry.ObjectRestKind : String;
  52801. begin
  52802. Result:='RefinerEntry';
  52803. end;
  52804. Procedure TMicrosoft_Office_Server_Search_RESTRefinerEntry.SetRefinementCount(AIndex: Integer; const AValue: int64);
  52805. begin
  52806. If (FRefinementCount=AValue) then exit;
  52807. FRefinementCount:=AValue;
  52808. MarkPropertyChanged(AIndex);
  52809. end;
  52810. Procedure TMicrosoft_Office_Server_Search_RESTRefinerEntry.SetRefinementName(AIndex: Integer; const AValue: string);
  52811. begin
  52812. If (FRefinementName=AValue) then exit;
  52813. FRefinementName:=AValue;
  52814. MarkPropertyChanged(AIndex);
  52815. end;
  52816. Procedure TMicrosoft_Office_Server_Search_RESTRefinerEntry.SetRefinementToken(AIndex: Integer; const AValue: string);
  52817. begin
  52818. If (FRefinementToken=AValue) then exit;
  52819. FRefinementToken:=AValue;
  52820. MarkPropertyChanged(AIndex);
  52821. end;
  52822. Procedure TMicrosoft_Office_Server_Search_RESTRefinerEntry.SetRefinementValue(AIndex: Integer; const AValue: string);
  52823. begin
  52824. If (FRefinementValue=AValue) then exit;
  52825. FRefinementValue:=AValue;
  52826. MarkPropertyChanged(AIndex);
  52827. end;
  52828. { --------------------------------------------------------------------
  52829. TMicrosoft_Office_Server_Search_RESTRelevantResults
  52830. --------------------------------------------------------------------}
  52831. Class Function TMicrosoft_Office_Server_Search_RESTRelevantResults.ObjectRestKind : String;
  52832. begin
  52833. Result:='RelevantResults';
  52834. end;
  52835. Procedure TMicrosoft_Office_Server_Search_RESTRelevantResults.SetGroupTemplateId(AIndex: Integer; const AValue: string);
  52836. begin
  52837. If (FGroupTemplateId=AValue) then exit;
  52838. FGroupTemplateId:=AValue;
  52839. MarkPropertyChanged(AIndex);
  52840. end;
  52841. Procedure TMicrosoft_Office_Server_Search_RESTRelevantResults.SetItemTemplateId(AIndex: Integer; const AValue: string);
  52842. begin
  52843. If (FItemTemplateId=AValue) then exit;
  52844. FItemTemplateId:=AValue;
  52845. MarkPropertyChanged(AIndex);
  52846. end;
  52847. Procedure TMicrosoft_Office_Server_Search_RESTRelevantResults.SetProperties(AIndex: Integer; const AValue: TSPKeyValueArray);
  52848. begin
  52849. If (FProperties=AValue) then exit;
  52850. FProperties:=AValue;
  52851. MarkPropertyChanged(AIndex);
  52852. end;
  52853. Procedure TMicrosoft_Office_Server_Search_RESTRelevantResults.SetResultTitle(AIndex: Integer; const AValue: string);
  52854. begin
  52855. If (FResultTitle=AValue) then exit;
  52856. FResultTitle:=AValue;
  52857. MarkPropertyChanged(AIndex);
  52858. end;
  52859. Procedure TMicrosoft_Office_Server_Search_RESTRelevantResults.SetResultTitleUrl(AIndex: Integer; const AValue: string);
  52860. begin
  52861. If (FResultTitleUrl=AValue) then exit;
  52862. FResultTitleUrl:=AValue;
  52863. MarkPropertyChanged(AIndex);
  52864. end;
  52865. Procedure TMicrosoft_Office_Server_Search_RESTRelevantResults.SetRowCount(AIndex: Integer; const AValue: TInt32);
  52866. begin
  52867. If (FRowCount=AValue) then exit;
  52868. FRowCount:=AValue;
  52869. MarkPropertyChanged(AIndex);
  52870. end;
  52871. Procedure TMicrosoft_Office_Server_Search_RESTRelevantResults.SetTable(AIndex: Integer; const AValue: TSPSimpleDataTable);
  52872. begin
  52873. If (FTable=AValue) then exit;
  52874. FTable:=AValue;
  52875. MarkPropertyChanged(AIndex);
  52876. end;
  52877. Procedure TMicrosoft_Office_Server_Search_RESTRelevantResults.SetTotalRows(AIndex: Integer; const AValue: TInt32);
  52878. begin
  52879. If (FTotalRows=AValue) then exit;
  52880. FTotalRows:=AValue;
  52881. MarkPropertyChanged(AIndex);
  52882. end;
  52883. Procedure TMicrosoft_Office_Server_Search_RESTRelevantResults.SetTotalRowsIncludingDuplicates(AIndex: Integer; const AValue: TInt32);
  52884. begin
  52885. If (FTotalRowsIncludingDuplicates=AValue) then exit;
  52886. FTotalRowsIncludingDuplicates:=AValue;
  52887. MarkPropertyChanged(AIndex);
  52888. end;
  52889. {$IFDEF VER2_6}
  52890. Procedure TMicrosoft_Office_Server_Search_RESTRelevantResults.SetArrayLength(const AName: String; ALength: Longint);
  52891. begin
  52892. Case aName of
  52893. 'properties' : SetLength(FProperties,aLength);
  52894. else
  52895. inherited SetArrayLength(aName,ALength);
  52896. end;
  52897. end;
  52898. {$ENDIF VER2_6}
  52899. { --------------------------------------------------------------------
  52900. TMicrosoft_Office_Server_Search_RESTSpecialTermResults
  52901. --------------------------------------------------------------------}
  52902. Class Function TMicrosoft_Office_Server_Search_RESTSpecialTermResults.ObjectRestKind : String;
  52903. begin
  52904. Result:='SpecialTermResults';
  52905. end;
  52906. Procedure TMicrosoft_Office_Server_Search_RESTSpecialTermResults.SetGroupTemplateId(AIndex: Integer; const AValue: string);
  52907. begin
  52908. If (FGroupTemplateId=AValue) then exit;
  52909. FGroupTemplateId:=AValue;
  52910. MarkPropertyChanged(AIndex);
  52911. end;
  52912. Procedure TMicrosoft_Office_Server_Search_RESTSpecialTermResults.SetItemTemplateId(AIndex: Integer; const AValue: string);
  52913. begin
  52914. If (FItemTemplateId=AValue) then exit;
  52915. FItemTemplateId:=AValue;
  52916. MarkPropertyChanged(AIndex);
  52917. end;
  52918. Procedure TMicrosoft_Office_Server_Search_RESTSpecialTermResults.SetProperties(AIndex: Integer; const AValue: TSPKeyValueArray);
  52919. begin
  52920. If (FProperties=AValue) then exit;
  52921. FProperties:=AValue;
  52922. MarkPropertyChanged(AIndex);
  52923. end;
  52924. Procedure TMicrosoft_Office_Server_Search_RESTSpecialTermResults.SetResults(AIndex: Integer; const AValue: TMicrosoft_Office_Server_Search_RESTSpecialTermResultArray);
  52925. begin
  52926. If (FResults=AValue) then exit;
  52927. FResults:=AValue;
  52928. MarkPropertyChanged(AIndex);
  52929. end;
  52930. Procedure TMicrosoft_Office_Server_Search_RESTSpecialTermResults.SetResultTitle(AIndex: Integer; const AValue: string);
  52931. begin
  52932. If (FResultTitle=AValue) then exit;
  52933. FResultTitle:=AValue;
  52934. MarkPropertyChanged(AIndex);
  52935. end;
  52936. Procedure TMicrosoft_Office_Server_Search_RESTSpecialTermResults.SetResultTitleUrl(AIndex: Integer; const AValue: string);
  52937. begin
  52938. If (FResultTitleUrl=AValue) then exit;
  52939. FResultTitleUrl:=AValue;
  52940. MarkPropertyChanged(AIndex);
  52941. end;
  52942. {$IFDEF VER2_6}
  52943. Procedure TMicrosoft_Office_Server_Search_RESTSpecialTermResults.SetArrayLength(const AName: String; ALength: Longint);
  52944. begin
  52945. Case aName of
  52946. 'properties' : SetLength(FProperties,aLength);
  52947. 'results' : SetLength(FResults,aLength);
  52948. else
  52949. inherited SetArrayLength(aName,ALength);
  52950. end;
  52951. end;
  52952. {$ENDIF VER2_6}
  52953. { --------------------------------------------------------------------
  52954. TMicrosoft_Office_Server_Search_RESTSpecialTermResult
  52955. --------------------------------------------------------------------}
  52956. Class Function TMicrosoft_Office_Server_Search_RESTSpecialTermResult.ObjectRestKind : String;
  52957. begin
  52958. Result:='SpecialTermResult';
  52959. end;
  52960. Procedure TMicrosoft_Office_Server_Search_RESTSpecialTermResult.SetDescription(AIndex: Integer; const AValue: string);
  52961. begin
  52962. If (FDescription=AValue) then exit;
  52963. FDescription:=AValue;
  52964. MarkPropertyChanged(AIndex);
  52965. end;
  52966. Procedure TMicrosoft_Office_Server_Search_RESTSpecialTermResult.SetIsVisualBestBet(AIndex: Integer; const AValue: boolean);
  52967. begin
  52968. If (FIsVisualBestBet=AValue) then exit;
  52969. FIsVisualBestBet:=AValue;
  52970. MarkPropertyChanged(AIndex);
  52971. end;
  52972. Procedure TMicrosoft_Office_Server_Search_RESTSpecialTermResult.SetPiSearchResultId(AIndex: Integer; const AValue: string);
  52973. begin
  52974. If (FPiSearchResultId=AValue) then exit;
  52975. FPiSearchResultId:=AValue;
  52976. MarkPropertyChanged(AIndex);
  52977. end;
  52978. Procedure TMicrosoft_Office_Server_Search_RESTSpecialTermResult.SetRenderTemplateId(AIndex: Integer; const AValue: string);
  52979. begin
  52980. If (FRenderTemplateId=AValue) then exit;
  52981. FRenderTemplateId:=AValue;
  52982. MarkPropertyChanged(AIndex);
  52983. end;
  52984. Procedure TMicrosoft_Office_Server_Search_RESTSpecialTermResult.SetTitle(AIndex: Integer; const AValue: string);
  52985. begin
  52986. If (FTitle=AValue) then exit;
  52987. FTitle:=AValue;
  52988. MarkPropertyChanged(AIndex);
  52989. end;
  52990. Procedure TMicrosoft_Office_Server_Search_RESTSpecialTermResult.SetUrl(AIndex: Integer; const AValue: string);
  52991. begin
  52992. If (FUrl=AValue) then exit;
  52993. FUrl:=AValue;
  52994. MarkPropertyChanged(AIndex);
  52995. end;
  52996. { --------------------------------------------------------------------
  52997. TMicrosoft_Office_Server_Search_RESTSearchRequest
  52998. --------------------------------------------------------------------}
  52999. Class Function TMicrosoft_Office_Server_Search_RESTSearchRequest.ObjectRestKind : String;
  53000. begin
  53001. Result:='SearchRequest';
  53002. end;
  53003. Procedure TMicrosoft_Office_Server_Search_RESTSearchRequest.SetBlockDedupeMode(AIndex: Integer; const AValue: TInt32);
  53004. begin
  53005. If (FBlockDedupeMode=AValue) then exit;
  53006. FBlockDedupeMode:=AValue;
  53007. MarkPropertyChanged(AIndex);
  53008. end;
  53009. Procedure TMicrosoft_Office_Server_Search_RESTSearchRequest.SetBypassResultTypes(AIndex: Integer; const AValue: boolean);
  53010. begin
  53011. If (FBypassResultTypes=AValue) then exit;
  53012. FBypassResultTypes:=AValue;
  53013. MarkPropertyChanged(AIndex);
  53014. end;
  53015. Procedure TMicrosoft_Office_Server_Search_RESTSearchRequest.SetClientType(AIndex: Integer; const AValue: string);
  53016. begin
  53017. If (FClientType=AValue) then exit;
  53018. FClientType:=AValue;
  53019. MarkPropertyChanged(AIndex);
  53020. end;
  53021. Procedure TMicrosoft_Office_Server_Search_RESTSearchRequest.SetCollapseSpecification(AIndex: Integer; const AValue: string);
  53022. begin
  53023. If (FCollapseSpecification=AValue) then exit;
  53024. FCollapseSpecification:=AValue;
  53025. MarkPropertyChanged(AIndex);
  53026. end;
  53027. Procedure TMicrosoft_Office_Server_Search_RESTSearchRequest.SetCulture(AIndex: Integer; const AValue: TInt32);
  53028. begin
  53029. If (FCulture=AValue) then exit;
  53030. FCulture:=AValue;
  53031. MarkPropertyChanged(AIndex);
  53032. end;
  53033. Procedure TMicrosoft_Office_Server_Search_RESTSearchRequest.SetDesiredSnippetLength(AIndex: Integer; const AValue: TInt32);
  53034. begin
  53035. If (FDesiredSnippetLength=AValue) then exit;
  53036. FDesiredSnippetLength:=AValue;
  53037. MarkPropertyChanged(AIndex);
  53038. end;
  53039. Procedure TMicrosoft_Office_Server_Search_RESTSearchRequest.SetEnableFQL(AIndex: Integer; const AValue: boolean);
  53040. begin
  53041. If (FEnableFQL=AValue) then exit;
  53042. FEnableFQL:=AValue;
  53043. MarkPropertyChanged(AIndex);
  53044. end;
  53045. Procedure TMicrosoft_Office_Server_Search_RESTSearchRequest.SetEnableInterleaving(AIndex: Integer; const AValue: boolean);
  53046. begin
  53047. If (FEnableInterleaving=AValue) then exit;
  53048. FEnableInterleaving:=AValue;
  53049. MarkPropertyChanged(AIndex);
  53050. end;
  53051. Procedure TMicrosoft_Office_Server_Search_RESTSearchRequest.SetEnableNicknames(AIndex: Integer; const AValue: boolean);
  53052. begin
  53053. If (FEnableNicknames=AValue) then exit;
  53054. FEnableNicknames:=AValue;
  53055. MarkPropertyChanged(AIndex);
  53056. end;
  53057. Procedure TMicrosoft_Office_Server_Search_RESTSearchRequest.SetEnableOrderingHitHighlightedProperty(AIndex: Integer; const AValue: boolean);
  53058. begin
  53059. If (FEnableOrderingHitHighlightedProperty=AValue) then exit;
  53060. FEnableOrderingHitHighlightedProperty:=AValue;
  53061. MarkPropertyChanged(AIndex);
  53062. end;
  53063. Procedure TMicrosoft_Office_Server_Search_RESTSearchRequest.SetEnablePhonetic(AIndex: Integer; const AValue: boolean);
  53064. begin
  53065. If (FEnablePhonetic=AValue) then exit;
  53066. FEnablePhonetic:=AValue;
  53067. MarkPropertyChanged(AIndex);
  53068. end;
  53069. Procedure TMicrosoft_Office_Server_Search_RESTSearchRequest.SetEnableQueryRules(AIndex: Integer; const AValue: boolean);
  53070. begin
  53071. If (FEnableQueryRules=AValue) then exit;
  53072. FEnableQueryRules:=AValue;
  53073. MarkPropertyChanged(AIndex);
  53074. end;
  53075. Procedure TMicrosoft_Office_Server_Search_RESTSearchRequest.SetEnableSorting(AIndex: Integer; const AValue: boolean);
  53076. begin
  53077. If (FEnableSorting=AValue) then exit;
  53078. FEnableSorting:=AValue;
  53079. MarkPropertyChanged(AIndex);
  53080. end;
  53081. Procedure TMicrosoft_Office_Server_Search_RESTSearchRequest.SetEnableStemming(AIndex: Integer; const AValue: boolean);
  53082. begin
  53083. If (FEnableStemming=AValue) then exit;
  53084. FEnableStemming:=AValue;
  53085. MarkPropertyChanged(AIndex);
  53086. end;
  53087. Procedure TMicrosoft_Office_Server_Search_RESTSearchRequest.SetGenerateBlockRankLog(AIndex: Integer; const AValue: boolean);
  53088. begin
  53089. If (FGenerateBlockRankLog=AValue) then exit;
  53090. FGenerateBlockRankLog:=AValue;
  53091. MarkPropertyChanged(AIndex);
  53092. end;
  53093. Procedure TMicrosoft_Office_Server_Search_RESTSearchRequest.SetHiddenConstraints(AIndex: Integer; const AValue: string);
  53094. begin
  53095. If (FHiddenConstraints=AValue) then exit;
  53096. FHiddenConstraints:=AValue;
  53097. MarkPropertyChanged(AIndex);
  53098. end;
  53099. Procedure TMicrosoft_Office_Server_Search_RESTSearchRequest.SetHitHighlightedMultivaluePropertyLimit(AIndex: Integer; const AValue: TInt32);
  53100. begin
  53101. If (FHitHighlightedMultivaluePropertyLimit=AValue) then exit;
  53102. FHitHighlightedMultivaluePropertyLimit:=AValue;
  53103. MarkPropertyChanged(AIndex);
  53104. end;
  53105. Procedure TMicrosoft_Office_Server_Search_RESTSearchRequest.SetHitHighlightedProperties(AIndex: Integer; const AValue: TStringArray);
  53106. begin
  53107. If (FHitHighlightedProperties=AValue) then exit;
  53108. FHitHighlightedProperties:=AValue;
  53109. MarkPropertyChanged(AIndex);
  53110. end;
  53111. Procedure TMicrosoft_Office_Server_Search_RESTSearchRequest.SetImpressionId(AIndex: Integer; const AValue: string);
  53112. begin
  53113. If (FImpressionId=AValue) then exit;
  53114. FImpressionId:=AValue;
  53115. MarkPropertyChanged(AIndex);
  53116. end;
  53117. Procedure TMicrosoft_Office_Server_Search_RESTSearchRequest.SetMaxSnippetLength(AIndex: Integer; const AValue: TInt32);
  53118. begin
  53119. If (FMaxSnippetLength=AValue) then exit;
  53120. FMaxSnippetLength:=AValue;
  53121. MarkPropertyChanged(AIndex);
  53122. end;
  53123. Procedure TMicrosoft_Office_Server_Search_RESTSearchRequest.SetPersonalizationData(AIndex: Integer; const AValue: TGUIDString);
  53124. begin
  53125. If (FPersonalizationData=AValue) then exit;
  53126. FPersonalizationData:=AValue;
  53127. MarkPropertyChanged(AIndex);
  53128. end;
  53129. Procedure TMicrosoft_Office_Server_Search_RESTSearchRequest.SetProcessBestBets(AIndex: Integer; const AValue: boolean);
  53130. begin
  53131. If (FProcessBestBets=AValue) then exit;
  53132. FProcessBestBets:=AValue;
  53133. MarkPropertyChanged(AIndex);
  53134. end;
  53135. Procedure TMicrosoft_Office_Server_Search_RESTSearchRequest.SetProcessPersonalFavorites(AIndex: Integer; const AValue: boolean);
  53136. begin
  53137. If (FProcessPersonalFavorites=AValue) then exit;
  53138. FProcessPersonalFavorites:=AValue;
  53139. MarkPropertyChanged(AIndex);
  53140. end;
  53141. Procedure TMicrosoft_Office_Server_Search_RESTSearchRequest.SetProperties(AIndex: Integer; const AValue: TMicrosoft_Office_Server_Search_RESTQueryPropertyArray);
  53142. begin
  53143. If (FProperties=AValue) then exit;
  53144. FProperties:=AValue;
  53145. MarkPropertyChanged(AIndex);
  53146. end;
  53147. Procedure TMicrosoft_Office_Server_Search_RESTSearchRequest.SetQueryTag(AIndex: Integer; const AValue: string);
  53148. begin
  53149. If (FQueryTag=AValue) then exit;
  53150. FQueryTag:=AValue;
  53151. MarkPropertyChanged(AIndex);
  53152. end;
  53153. Procedure TMicrosoft_Office_Server_Search_RESTSearchRequest.SetQueryTemplate(AIndex: Integer; const AValue: string);
  53154. begin
  53155. If (FQueryTemplate=AValue) then exit;
  53156. FQueryTemplate:=AValue;
  53157. MarkPropertyChanged(AIndex);
  53158. end;
  53159. Procedure TMicrosoft_Office_Server_Search_RESTSearchRequest.SetQueryTemplatePropertiesUrl(AIndex: Integer; const AValue: string);
  53160. begin
  53161. If (FQueryTemplatePropertiesUrl=AValue) then exit;
  53162. FQueryTemplatePropertiesUrl:=AValue;
  53163. MarkPropertyChanged(AIndex);
  53164. end;
  53165. Procedure TMicrosoft_Office_Server_Search_RESTSearchRequest.SetQuerytext(AIndex: Integer; const AValue: string);
  53166. begin
  53167. If (FQuerytext=AValue) then exit;
  53168. FQuerytext:=AValue;
  53169. MarkPropertyChanged(AIndex);
  53170. end;
  53171. Procedure TMicrosoft_Office_Server_Search_RESTSearchRequest.SetRankingModelId(AIndex: Integer; const AValue: string);
  53172. begin
  53173. If (FRankingModelId=AValue) then exit;
  53174. FRankingModelId:=AValue;
  53175. MarkPropertyChanged(AIndex);
  53176. end;
  53177. Procedure TMicrosoft_Office_Server_Search_RESTSearchRequest.SetRefinementFilters(AIndex: Integer; const AValue: TStringArray);
  53178. begin
  53179. If (FRefinementFilters=AValue) then exit;
  53180. FRefinementFilters:=AValue;
  53181. MarkPropertyChanged(AIndex);
  53182. end;
  53183. Procedure TMicrosoft_Office_Server_Search_RESTSearchRequest.SetRefiners(AIndex: Integer; const AValue: string);
  53184. begin
  53185. If (FRefiners=AValue) then exit;
  53186. FRefiners:=AValue;
  53187. MarkPropertyChanged(AIndex);
  53188. end;
  53189. Procedure TMicrosoft_Office_Server_Search_RESTSearchRequest.SetReorderingRules(AIndex: Integer; const AValue: TMicrosoft_SharePoint_Client_Search_QueryReorderingRuleArray);
  53190. begin
  53191. If (FReorderingRules=AValue) then exit;
  53192. FReorderingRules:=AValue;
  53193. MarkPropertyChanged(AIndex);
  53194. end;
  53195. Procedure TMicrosoft_Office_Server_Search_RESTSearchRequest.SetResultsUrl(AIndex: Integer; const AValue: string);
  53196. begin
  53197. If (FResultsUrl=AValue) then exit;
  53198. FResultsUrl:=AValue;
  53199. MarkPropertyChanged(AIndex);
  53200. end;
  53201. Procedure TMicrosoft_Office_Server_Search_RESTSearchRequest.SetRowLimit(AIndex: Integer; const AValue: TInt32);
  53202. begin
  53203. If (FRowLimit=AValue) then exit;
  53204. FRowLimit:=AValue;
  53205. MarkPropertyChanged(AIndex);
  53206. end;
  53207. Procedure TMicrosoft_Office_Server_Search_RESTSearchRequest.SetRowsPerPage(AIndex: Integer; const AValue: TInt32);
  53208. begin
  53209. If (FRowsPerPage=AValue) then exit;
  53210. FRowsPerPage:=AValue;
  53211. MarkPropertyChanged(AIndex);
  53212. end;
  53213. Procedure TMicrosoft_Office_Server_Search_RESTSearchRequest.SetSelectProperties(AIndex: Integer; const AValue: TStringArray);
  53214. begin
  53215. If (FSelectProperties=AValue) then exit;
  53216. FSelectProperties:=AValue;
  53217. MarkPropertyChanged(AIndex);
  53218. end;
  53219. Procedure TMicrosoft_Office_Server_Search_RESTSearchRequest.SetSortList(AIndex: Integer; const AValue: TMicrosoft_SharePoint_Client_Search_QuerySortArray);
  53220. begin
  53221. If (FSortList=AValue) then exit;
  53222. FSortList:=AValue;
  53223. MarkPropertyChanged(AIndex);
  53224. end;
  53225. Procedure TMicrosoft_Office_Server_Search_RESTSearchRequest.SetSourceId(AIndex: Integer; const AValue: TGUIDString);
  53226. begin
  53227. If (FSourceId=AValue) then exit;
  53228. FSourceId:=AValue;
  53229. MarkPropertyChanged(AIndex);
  53230. end;
  53231. Procedure TMicrosoft_Office_Server_Search_RESTSearchRequest.SetStartRow(AIndex: Integer; const AValue: TInt32);
  53232. begin
  53233. If (FStartRow=AValue) then exit;
  53234. FStartRow:=AValue;
  53235. MarkPropertyChanged(AIndex);
  53236. end;
  53237. Procedure TMicrosoft_Office_Server_Search_RESTSearchRequest.SetSummaryLength(AIndex: Integer; const AValue: TInt32);
  53238. begin
  53239. If (FSummaryLength=AValue) then exit;
  53240. FSummaryLength:=AValue;
  53241. MarkPropertyChanged(AIndex);
  53242. end;
  53243. Procedure TMicrosoft_Office_Server_Search_RESTSearchRequest.SetTimeout(AIndex: Integer; const AValue: TInt32);
  53244. begin
  53245. If (FTimeout=AValue) then exit;
  53246. FTimeout:=AValue;
  53247. MarkPropertyChanged(AIndex);
  53248. end;
  53249. Procedure TMicrosoft_Office_Server_Search_RESTSearchRequest.SetTimeZoneId(AIndex: Integer; const AValue: TInt32);
  53250. begin
  53251. If (FTimeZoneId=AValue) then exit;
  53252. FTimeZoneId:=AValue;
  53253. MarkPropertyChanged(AIndex);
  53254. end;
  53255. Procedure TMicrosoft_Office_Server_Search_RESTSearchRequest.SetTotalRowsExactMinimum(AIndex: Integer; const AValue: TInt32);
  53256. begin
  53257. If (FTotalRowsExactMinimum=AValue) then exit;
  53258. FTotalRowsExactMinimum:=AValue;
  53259. MarkPropertyChanged(AIndex);
  53260. end;
  53261. Procedure TMicrosoft_Office_Server_Search_RESTSearchRequest.SetTrimDuplicates(AIndex: Integer; const AValue: boolean);
  53262. begin
  53263. If (FTrimDuplicates=AValue) then exit;
  53264. FTrimDuplicates:=AValue;
  53265. MarkPropertyChanged(AIndex);
  53266. end;
  53267. Procedure TMicrosoft_Office_Server_Search_RESTSearchRequest.SetTrimDuplicatesIncludeId(AIndex: Integer; const AValue: int64);
  53268. begin
  53269. If (FTrimDuplicatesIncludeId=AValue) then exit;
  53270. FTrimDuplicatesIncludeId:=AValue;
  53271. MarkPropertyChanged(AIndex);
  53272. end;
  53273. Procedure TMicrosoft_Office_Server_Search_RESTSearchRequest.SetUILanguage(AIndex: Integer; const AValue: TInt32);
  53274. begin
  53275. If (FUILanguage=AValue) then exit;
  53276. FUILanguage:=AValue;
  53277. MarkPropertyChanged(AIndex);
  53278. end;
  53279. {$IFDEF VER2_6}
  53280. Procedure TMicrosoft_Office_Server_Search_RESTSearchRequest.SetArrayLength(const AName: String; ALength: Longint);
  53281. begin
  53282. Case aName of
  53283. 'hithighlightedproperties' : SetLength(FHitHighlightedProperties,aLength);
  53284. 'properties' : SetLength(FProperties,aLength);
  53285. 'refinementfilters' : SetLength(FRefinementFilters,aLength);
  53286. 'reorderingrules' : SetLength(FReorderingRules,aLength);
  53287. 'selectproperties' : SetLength(FSelectProperties,aLength);
  53288. 'sortlist' : SetLength(FSortList,aLength);
  53289. else
  53290. inherited SetArrayLength(aName,ALength);
  53291. end;
  53292. end;
  53293. {$ENDIF VER2_6}
  53294. { --------------------------------------------------------------------
  53295. TMicrosoft_Office_Server_Search_RESTSearchResult
  53296. --------------------------------------------------------------------}
  53297. Class Function TMicrosoft_Office_Server_Search_RESTSearchResult.ObjectRestKind : String;
  53298. begin
  53299. Result:='SearchResult';
  53300. end;
  53301. Procedure TMicrosoft_Office_Server_Search_RESTSearchResult.SetElapsedTime(AIndex: Integer; const AValue: TInt32);
  53302. begin
  53303. If (FElapsedTime=AValue) then exit;
  53304. FElapsedTime:=AValue;
  53305. MarkPropertyChanged(AIndex);
  53306. end;
  53307. Procedure TMicrosoft_Office_Server_Search_RESTSearchResult.SetPrimaryQueryResult(AIndex: Integer; const AValue: TMicrosoft_Office_Server_Search_RESTQueryResult);
  53308. begin
  53309. If (FPrimaryQueryResult=AValue) then exit;
  53310. FPrimaryQueryResult:=AValue;
  53311. MarkPropertyChanged(AIndex);
  53312. end;
  53313. Procedure TMicrosoft_Office_Server_Search_RESTSearchResult.SetProperties(AIndex: Integer; const AValue: TSPKeyValueArray);
  53314. begin
  53315. If (FProperties=AValue) then exit;
  53316. FProperties:=AValue;
  53317. MarkPropertyChanged(AIndex);
  53318. end;
  53319. Procedure TMicrosoft_Office_Server_Search_RESTSearchResult.SetSecondaryQueryResults(AIndex: Integer; const AValue: TMicrosoft_Office_Server_Search_RESTQueryResultArray);
  53320. begin
  53321. If (FSecondaryQueryResults=AValue) then exit;
  53322. FSecondaryQueryResults:=AValue;
  53323. MarkPropertyChanged(AIndex);
  53324. end;
  53325. Procedure TMicrosoft_Office_Server_Search_RESTSearchResult.SetSpellingSuggestion(AIndex: Integer; const AValue: string);
  53326. begin
  53327. If (FSpellingSuggestion=AValue) then exit;
  53328. FSpellingSuggestion:=AValue;
  53329. MarkPropertyChanged(AIndex);
  53330. end;
  53331. Procedure TMicrosoft_Office_Server_Search_RESTSearchResult.SetTriggeredRules(AIndex: Integer; const AValue: TGuidStringArray);
  53332. begin
  53333. If (FTriggeredRules=AValue) then exit;
  53334. FTriggeredRules:=AValue;
  53335. MarkPropertyChanged(AIndex);
  53336. end;
  53337. {$IFDEF VER2_6}
  53338. Procedure TMicrosoft_Office_Server_Search_RESTSearchResult.SetArrayLength(const AName: String; ALength: Longint);
  53339. begin
  53340. Case aName of
  53341. 'properties' : SetLength(FProperties,aLength);
  53342. 'secondaryqueryresults' : SetLength(FSecondaryQueryResults,aLength);
  53343. 'triggeredrules' : SetLength(FTriggeredRules,aLength);
  53344. else
  53345. inherited SetArrayLength(aName,ALength);
  53346. end;
  53347. end;
  53348. {$ENDIF VER2_6}
  53349. { --------------------------------------------------------------------
  53350. TMicrosoft_Office_Server_Search_RESTSearchService
  53351. --------------------------------------------------------------------}
  53352. Class Function TMicrosoft_Office_Server_Search_RESTSearchService.ObjectRestKind : String;
  53353. begin
  53354. Result:='SearchService';
  53355. end;
  53356. Procedure TMicrosoft_Office_Server_Search_RESTSearchService.SetId4a81de82eeb94d6080ea5bf63e27023a(AIndex: Integer; const AValue: string);
  53357. begin
  53358. If (FId4a81de82eeb94d6080ea5bf63e27023a=AValue) then exit;
  53359. FId4a81de82eeb94d6080ea5bf63e27023a:=AValue;
  53360. MarkPropertyChanged(AIndex);
  53361. end;
  53362. Function TMicrosoft_Office_Server_Search_RESTSearchService.KeyAsURLPart : string;
  53363. begin
  53364. Result:=TODataObject.MakeKeyString(Id4a81de82eeb94d6080ea5bf63e27023a);
  53365. end;
  53366. { --------------------------------------------------------------------
  53367. TMicrosoft_SharePoint_Client_Search_AnalyticsAnalyticsAction
  53368. --------------------------------------------------------------------}
  53369. Class Function TMicrosoft_SharePoint_Client_Search_AnalyticsAnalyticsAction.ObjectRestKind : String;
  53370. begin
  53371. Result:='AnalyticsAction';
  53372. end;
  53373. Procedure TMicrosoft_SharePoint_Client_Search_AnalyticsAnalyticsAction.SetActionType(AIndex: Integer; const AValue: string);
  53374. begin
  53375. If (FActionType=AValue) then exit;
  53376. FActionType:=AValue;
  53377. MarkPropertyChanged(AIndex);
  53378. end;
  53379. Procedure TMicrosoft_SharePoint_Client_Search_AnalyticsAnalyticsAction.SetExpireTime(AIndex: Integer; const AValue: TDateTime);
  53380. begin
  53381. If (FExpireTime=AValue) then exit;
  53382. FExpireTime:=AValue;
  53383. MarkPropertyChanged(AIndex);
  53384. end;
  53385. Procedure TMicrosoft_SharePoint_Client_Search_AnalyticsAnalyticsAction.SetProperties(AIndex: Integer; const AValue: TSPKeyValueArray);
  53386. begin
  53387. If (FProperties=AValue) then exit;
  53388. FProperties:=AValue;
  53389. MarkPropertyChanged(AIndex);
  53390. end;
  53391. Procedure TMicrosoft_SharePoint_Client_Search_AnalyticsAnalyticsAction.SetUserTime(AIndex: Integer; const AValue: TDateTime);
  53392. begin
  53393. If (FUserTime=AValue) then exit;
  53394. FUserTime:=AValue;
  53395. MarkPropertyChanged(AIndex);
  53396. end;
  53397. {$IFDEF VER2_6}
  53398. Procedure TMicrosoft_SharePoint_Client_Search_AnalyticsAnalyticsAction.SetArrayLength(const AName: String; ALength: Longint);
  53399. begin
  53400. Case aName of
  53401. 'properties' : SetLength(FProperties,aLength);
  53402. else
  53403. inherited SetArrayLength(aName,ALength);
  53404. end;
  53405. end;
  53406. {$ENDIF VER2_6}
  53407. { --------------------------------------------------------------------
  53408. TMicrosoft_SharePoint_Client_Search_AnalyticsAnalyticsActor
  53409. --------------------------------------------------------------------}
  53410. Class Function TMicrosoft_SharePoint_Client_Search_AnalyticsAnalyticsActor.ObjectRestKind : String;
  53411. begin
  53412. Result:='AnalyticsActor';
  53413. end;
  53414. Procedure TMicrosoft_SharePoint_Client_Search_AnalyticsAnalyticsActor.SetId(AIndex: Integer; const AValue: string);
  53415. begin
  53416. If (FId=AValue) then exit;
  53417. FId:=AValue;
  53418. MarkPropertyChanged(AIndex);
  53419. end;
  53420. Procedure TMicrosoft_SharePoint_Client_Search_AnalyticsAnalyticsActor.SetProperties(AIndex: Integer; const AValue: TSPKeyValueArray);
  53421. begin
  53422. If (FProperties=AValue) then exit;
  53423. FProperties:=AValue;
  53424. MarkPropertyChanged(AIndex);
  53425. end;
  53426. Procedure TMicrosoft_SharePoint_Client_Search_AnalyticsAnalyticsActor.SetTenantId(AIndex: Integer; const AValue: TGUIDString);
  53427. begin
  53428. If (FTenantId=AValue) then exit;
  53429. FTenantId:=AValue;
  53430. MarkPropertyChanged(AIndex);
  53431. end;
  53432. {$IFDEF VER2_6}
  53433. Procedure TMicrosoft_SharePoint_Client_Search_AnalyticsAnalyticsActor.SetArrayLength(const AName: String; ALength: Longint);
  53434. begin
  53435. Case aName of
  53436. 'properties' : SetLength(FProperties,aLength);
  53437. else
  53438. inherited SetArrayLength(aName,ALength);
  53439. end;
  53440. end;
  53441. {$ENDIF VER2_6}
  53442. { --------------------------------------------------------------------
  53443. TMicrosoft_SharePoint_Client_Search_AnalyticsAnalyticsItem
  53444. --------------------------------------------------------------------}
  53445. Class Function TMicrosoft_SharePoint_Client_Search_AnalyticsAnalyticsItem.ObjectRestKind : String;
  53446. begin
  53447. Result:='AnalyticsItem';
  53448. end;
  53449. Procedure TMicrosoft_SharePoint_Client_Search_AnalyticsAnalyticsItem.SetId(AIndex: Integer; const AValue: string);
  53450. begin
  53451. If (FId=AValue) then exit;
  53452. FId:=AValue;
  53453. MarkPropertyChanged(AIndex);
  53454. end;
  53455. Procedure TMicrosoft_SharePoint_Client_Search_AnalyticsAnalyticsItem.SetProperties(AIndex: Integer; const AValue: TSPKeyValueArray);
  53456. begin
  53457. If (FProperties=AValue) then exit;
  53458. FProperties:=AValue;
  53459. MarkPropertyChanged(AIndex);
  53460. end;
  53461. {$IFDEF VER2_6}
  53462. Procedure TMicrosoft_SharePoint_Client_Search_AnalyticsAnalyticsItem.SetArrayLength(const AName: String; ALength: Longint);
  53463. begin
  53464. Case aName of
  53465. 'properties' : SetLength(FProperties,aLength);
  53466. else
  53467. inherited SetArrayLength(aName,ALength);
  53468. end;
  53469. end;
  53470. {$ENDIF VER2_6}
  53471. { --------------------------------------------------------------------
  53472. TMicrosoft_SharePoint_Client_Search_AnalyticsAnalyticsSignal
  53473. --------------------------------------------------------------------}
  53474. Class Function TMicrosoft_SharePoint_Client_Search_AnalyticsAnalyticsSignal.ObjectRestKind : String;
  53475. begin
  53476. Result:='AnalyticsSignal';
  53477. end;
  53478. Procedure TMicrosoft_SharePoint_Client_Search_AnalyticsAnalyticsSignal.SetAction(AIndex: Integer; const AValue: TMicrosoft_SharePoint_Client_Search_AnalyticsAnalyticsAction);
  53479. begin
  53480. If (FAction=AValue) then exit;
  53481. FAction:=AValue;
  53482. MarkPropertyChanged(AIndex);
  53483. end;
  53484. Procedure TMicrosoft_SharePoint_Client_Search_AnalyticsAnalyticsSignal.SetActor(AIndex: Integer; const AValue: TMicrosoft_SharePoint_Client_Search_AnalyticsAnalyticsActor);
  53485. begin
  53486. If (FActor=AValue) then exit;
  53487. FActor:=AValue;
  53488. MarkPropertyChanged(AIndex);
  53489. end;
  53490. Procedure TMicrosoft_SharePoint_Client_Search_AnalyticsAnalyticsSignal.SetItem(AIndex: Integer; const AValue: TMicrosoft_SharePoint_Client_Search_AnalyticsAnalyticsItem);
  53491. begin
  53492. If (FItem=AValue) then exit;
  53493. FItem:=AValue;
  53494. MarkPropertyChanged(AIndex);
  53495. end;
  53496. Procedure TMicrosoft_SharePoint_Client_Search_AnalyticsAnalyticsSignal.SetSource(AIndex: Integer; const AValue: string);
  53497. begin
  53498. If (FSource=AValue) then exit;
  53499. FSource:=AValue;
  53500. MarkPropertyChanged(AIndex);
  53501. end;
  53502. { --------------------------------------------------------------------
  53503. TMicrosoft_SharePoint_Client_Search_AnalyticsSignalStore
  53504. --------------------------------------------------------------------}
  53505. Class Function TMicrosoft_SharePoint_Client_Search_AnalyticsSignalStore.ObjectRestKind : String;
  53506. begin
  53507. Result:='SignalStore';
  53508. end;
  53509. Procedure TMicrosoft_SharePoint_Client_Search_AnalyticsSignalStore.SetId4a81de82eeb94d6080ea5bf63e27023a(AIndex: Integer; const AValue: string);
  53510. begin
  53511. If (FId4a81de82eeb94d6080ea5bf63e27023a=AValue) then exit;
  53512. FId4a81de82eeb94d6080ea5bf63e27023a:=AValue;
  53513. MarkPropertyChanged(AIndex);
  53514. end;
  53515. Function TMicrosoft_SharePoint_Client_Search_AnalyticsSignalStore.KeyAsURLPart : string;
  53516. begin
  53517. Result:=TODataObject.MakeKeyString(Id4a81de82eeb94d6080ea5bf63e27023a);
  53518. end;
  53519. { --------------------------------------------------------------------
  53520. TMicrosoft_SharePoint_YammerWacToken
  53521. --------------------------------------------------------------------}
  53522. Class Function TMicrosoft_SharePoint_YammerWacToken.ObjectRestKind : String;
  53523. begin
  53524. Result:='WacToken';
  53525. end;
  53526. Procedure TMicrosoft_SharePoint_YammerWacToken.SetAccessToken(AIndex: Integer; const AValue: string);
  53527. begin
  53528. If (FAccessToken=AValue) then exit;
  53529. FAccessToken:=AValue;
  53530. MarkPropertyChanged(AIndex);
  53531. end;
  53532. Procedure TMicrosoft_SharePoint_YammerWacToken.SetAccessTokenTtl(AIndex: Integer; const AValue: int64);
  53533. begin
  53534. If (FAccessTokenTtl=AValue) then exit;
  53535. FAccessTokenTtl:=AValue;
  53536. MarkPropertyChanged(AIndex);
  53537. end;
  53538. Procedure TMicrosoft_SharePoint_YammerWacToken.SetAppUrl(AIndex: Integer; const AValue: string);
  53539. begin
  53540. If (FAppUrl=AValue) then exit;
  53541. FAppUrl:=AValue;
  53542. MarkPropertyChanged(AIndex);
  53543. end;
  53544. Procedure TMicrosoft_SharePoint_YammerWacToken.SetErrorMessageToDisplay(AIndex: Integer; const AValue: string);
  53545. begin
  53546. If (FErrorMessageToDisplay=AValue) then exit;
  53547. FErrorMessageToDisplay:=AValue;
  53548. MarkPropertyChanged(AIndex);
  53549. end;
  53550. Procedure TMicrosoft_SharePoint_YammerWacToken.SetFavIconTarget(AIndex: Integer; const AValue: string);
  53551. begin
  53552. If (FFavIconTarget=AValue) then exit;
  53553. FFavIconTarget:=AValue;
  53554. MarkPropertyChanged(AIndex);
  53555. end;
  53556. Procedure TMicrosoft_SharePoint_YammerWacToken.SetRedirectUrl(AIndex: Integer; const AValue: string);
  53557. begin
  53558. If (FRedirectUrl=AValue) then exit;
  53559. FRedirectUrl:=AValue;
  53560. MarkPropertyChanged(AIndex);
  53561. end;
  53562. { --------------------------------------------------------------------
  53563. TMicrosoft_SharePoint_YammerWacApi
  53564. --------------------------------------------------------------------}
  53565. Class Function TMicrosoft_SharePoint_YammerWacApi.ObjectRestKind : String;
  53566. begin
  53567. Result:='WacApi';
  53568. end;
  53569. Procedure TMicrosoft_SharePoint_YammerWacApi.SetId4a81de82eeb94d6080ea5bf63e27023a(AIndex: Integer; const AValue: string);
  53570. begin
  53571. If (FId4a81de82eeb94d6080ea5bf63e27023a=AValue) then exit;
  53572. FId4a81de82eeb94d6080ea5bf63e27023a:=AValue;
  53573. MarkPropertyChanged(AIndex);
  53574. end;
  53575. Function TMicrosoft_SharePoint_YammerWacApi.KeyAsURLPart : string;
  53576. begin
  53577. Result:=TODataObject.MakeKeyString(Id4a81de82eeb94d6080ea5bf63e27023a);
  53578. end;
  53579. { --------------------------------------------------------------------
  53580. TMicrosoft_SharePoint_PortalCollaborationMailboxResponse
  53581. --------------------------------------------------------------------}
  53582. Class Function TMicrosoft_SharePoint_PortalCollaborationMailboxResponse.ObjectRestKind : String;
  53583. begin
  53584. Result:='CollaborationMailboxResponse';
  53585. end;
  53586. Procedure TMicrosoft_SharePoint_PortalCollaborationMailboxResponse.SetAlternateUrl(AIndex: Integer; const AValue: string);
  53587. begin
  53588. If (FAlternateUrl=AValue) then exit;
  53589. FAlternateUrl:=AValue;
  53590. MarkPropertyChanged(AIndex);
  53591. end;
  53592. Procedure TMicrosoft_SharePoint_PortalCollaborationMailboxResponse.SetCorrelationId(AIndex: Integer; const AValue: string);
  53593. begin
  53594. If (FCorrelationId=AValue) then exit;
  53595. FCorrelationId:=AValue;
  53596. MarkPropertyChanged(AIndex);
  53597. end;
  53598. Procedure TMicrosoft_SharePoint_PortalCollaborationMailboxResponse.SetErrorCode(AIndex: Integer; const AValue: TInt32);
  53599. begin
  53600. If (FErrorCode=AValue) then exit;
  53601. FErrorCode:=AValue;
  53602. MarkPropertyChanged(AIndex);
  53603. end;
  53604. Procedure TMicrosoft_SharePoint_PortalCollaborationMailboxResponse.SetStatus(AIndex: Integer; const AValue: TInt32);
  53605. begin
  53606. If (FStatus=AValue) then exit;
  53607. FStatus:=AValue;
  53608. MarkPropertyChanged(AIndex);
  53609. end;
  53610. Procedure TMicrosoft_SharePoint_PortalCollaborationMailboxResponse.SetUrl(AIndex: Integer; const AValue: string);
  53611. begin
  53612. If (FUrl=AValue) then exit;
  53613. FUrl:=AValue;
  53614. MarkPropertyChanged(AIndex);
  53615. end;
  53616. { --------------------------------------------------------------------
  53617. TMicrosoft_SharePoint_PortalCollaborationMailbox
  53618. --------------------------------------------------------------------}
  53619. Class Function TMicrosoft_SharePoint_PortalCollaborationMailbox.ObjectRestKind : String;
  53620. begin
  53621. Result:='CollaborationMailbox';
  53622. end;
  53623. Procedure TMicrosoft_SharePoint_PortalCollaborationMailbox.SetId4a81de82eeb94d6080ea5bf63e27023a(AIndex: Integer; const AValue: string);
  53624. begin
  53625. If (FId4a81de82eeb94d6080ea5bf63e27023a=AValue) then exit;
  53626. FId4a81de82eeb94d6080ea5bf63e27023a:=AValue;
  53627. MarkPropertyChanged(AIndex);
  53628. end;
  53629. Function TMicrosoft_SharePoint_PortalCollaborationMailbox.KeyAsURLPart : string;
  53630. begin
  53631. Result:=TODataObject.MakeKeyString(Id4a81de82eeb94d6080ea5bf63e27023a);
  53632. end;
  53633. { --------------------------------------------------------------------
  53634. TMicrosoft_SharePoint_PortalCommunityModeration
  53635. --------------------------------------------------------------------}
  53636. Class Function TMicrosoft_SharePoint_PortalCommunityModeration.ObjectRestKind : String;
  53637. begin
  53638. Result:='CommunityModeration';
  53639. end;
  53640. Procedure TMicrosoft_SharePoint_PortalCommunityModeration.SetId4a81de82eeb94d6080ea5bf63e27023a(AIndex: Integer; const AValue: string);
  53641. begin
  53642. If (FId4a81de82eeb94d6080ea5bf63e27023a=AValue) then exit;
  53643. FId4a81de82eeb94d6080ea5bf63e27023a:=AValue;
  53644. MarkPropertyChanged(AIndex);
  53645. end;
  53646. Function TMicrosoft_SharePoint_PortalCommunityModeration.KeyAsURLPart : string;
  53647. begin
  53648. Result:=TODataObject.MakeKeyString(Id4a81de82eeb94d6080ea5bf63e27023a);
  53649. end;
  53650. { --------------------------------------------------------------------
  53651. TMicrosoft_SharePoint_PortalMySiteRecommendations
  53652. --------------------------------------------------------------------}
  53653. Class Function TMicrosoft_SharePoint_PortalMySiteRecommendations.ObjectRestKind : String;
  53654. begin
  53655. Result:='MySiteRecommendations';
  53656. end;
  53657. Procedure TMicrosoft_SharePoint_PortalMySiteRecommendations.SetId4a81de82eeb94d6080ea5bf63e27023a(AIndex: Integer; const AValue: string);
  53658. begin
  53659. If (FId4a81de82eeb94d6080ea5bf63e27023a=AValue) then exit;
  53660. FId4a81de82eeb94d6080ea5bf63e27023a:=AValue;
  53661. MarkPropertyChanged(AIndex);
  53662. end;
  53663. Function TMicrosoft_SharePoint_PortalMySiteRecommendations.KeyAsURLPart : string;
  53664. begin
  53665. Result:=TODataObject.MakeKeyString(Id4a81de82eeb94d6080ea5bf63e27023a);
  53666. end;
  53667. { --------------------------------------------------------------------
  53668. TMicrosoft_SharePoint_Portal_UserProfilesSharedWithMeDocumentUser
  53669. --------------------------------------------------------------------}
  53670. Class Function TMicrosoft_SharePoint_Portal_UserProfilesSharedWithMeDocumentUser.ObjectRestKind : String;
  53671. begin
  53672. Result:='SharedWithMeDocumentUser';
  53673. end;
  53674. Procedure TMicrosoft_SharePoint_Portal_UserProfilesSharedWithMeDocumentUser.SetLoginName(AIndex: Integer; const AValue: string);
  53675. begin
  53676. If (FLoginName=AValue) then exit;
  53677. FLoginName:=AValue;
  53678. MarkPropertyChanged(AIndex);
  53679. end;
  53680. Procedure TMicrosoft_SharePoint_Portal_UserProfilesSharedWithMeDocumentUser.SetSipAddress(AIndex: Integer; const AValue: string);
  53681. begin
  53682. If (FSipAddress=AValue) then exit;
  53683. FSipAddress:=AValue;
  53684. MarkPropertyChanged(AIndex);
  53685. end;
  53686. Procedure TMicrosoft_SharePoint_Portal_UserProfilesSharedWithMeDocumentUser.SetTitle(AIndex: Integer; const AValue: string);
  53687. begin
  53688. If (FTitle=AValue) then exit;
  53689. FTitle:=AValue;
  53690. MarkPropertyChanged(AIndex);
  53691. end;
  53692. { --------------------------------------------------------------------
  53693. TMicrosoft_SharePoint_Portal_UserProfilesMySiteLinks
  53694. --------------------------------------------------------------------}
  53695. Class Function TMicrosoft_SharePoint_Portal_UserProfilesMySiteLinks.ObjectRestKind : String;
  53696. begin
  53697. Result:='MySiteLinks';
  53698. end;
  53699. Procedure TMicrosoft_SharePoint_Portal_UserProfilesMySiteLinks.SetAllDocumentsLink(AIndex: Integer; const AValue: string);
  53700. begin
  53701. If (FAllDocumentsLink=AValue) then exit;
  53702. FAllDocumentsLink:=AValue;
  53703. MarkPropertyChanged(AIndex);
  53704. end;
  53705. Procedure TMicrosoft_SharePoint_Portal_UserProfilesMySiteLinks.SetAllDocumentsLinkHref(AIndex: Integer; const AValue: string);
  53706. begin
  53707. If (FAllDocumentsLinkHref=AValue) then exit;
  53708. FAllDocumentsLinkHref:=AValue;
  53709. MarkPropertyChanged(AIndex);
  53710. end;
  53711. Procedure TMicrosoft_SharePoint_Portal_UserProfilesMySiteLinks.SetAllDocumentsLinkTarget(AIndex: Integer; const AValue: string);
  53712. begin
  53713. If (FAllDocumentsLinkTarget=AValue) then exit;
  53714. FAllDocumentsLinkTarget:=AValue;
  53715. MarkPropertyChanged(AIndex);
  53716. end;
  53717. Procedure TMicrosoft_SharePoint_Portal_UserProfilesMySiteLinks.SetAllSitesLink(AIndex: Integer; const AValue: string);
  53718. begin
  53719. If (FAllSitesLink=AValue) then exit;
  53720. FAllSitesLink:=AValue;
  53721. MarkPropertyChanged(AIndex);
  53722. end;
  53723. Procedure TMicrosoft_SharePoint_Portal_UserProfilesMySiteLinks.SetAllSitesLinkHref(AIndex: Integer; const AValue: string);
  53724. begin
  53725. If (FAllSitesLinkHref=AValue) then exit;
  53726. FAllSitesLinkHref:=AValue;
  53727. MarkPropertyChanged(AIndex);
  53728. end;
  53729. Procedure TMicrosoft_SharePoint_Portal_UserProfilesMySiteLinks.SetAllSitesLinkTarget(AIndex: Integer; const AValue: string);
  53730. begin
  53731. If (FAllSitesLinkTarget=AValue) then exit;
  53732. FAllSitesLinkTarget:=AValue;
  53733. MarkPropertyChanged(AIndex);
  53734. end;
  53735. Function TMicrosoft_SharePoint_Portal_UserProfilesMySiteLinks.KeyAsURLPart : string;
  53736. begin
  53737. Result:=TODataObject.MakeKeyString(AllDocumentsLink);
  53738. end;
  53739. { --------------------------------------------------------------------
  53740. TMicrosoft_SharePoint_Portal_UserProfilesMySiteDismissStatusText
  53741. --------------------------------------------------------------------}
  53742. Class Function TMicrosoft_SharePoint_Portal_UserProfilesMySiteDismissStatusText.ObjectRestKind : String;
  53743. begin
  53744. Result:='MySiteDismissStatusText';
  53745. end;
  53746. Procedure TMicrosoft_SharePoint_Portal_UserProfilesMySiteDismissStatusText.SetId4a81de82eeb94d6080ea5bf63e27023a(AIndex: Integer; const AValue: string);
  53747. begin
  53748. If (FId4a81de82eeb94d6080ea5bf63e27023a=AValue) then exit;
  53749. FId4a81de82eeb94d6080ea5bf63e27023a:=AValue;
  53750. MarkPropertyChanged(AIndex);
  53751. end;
  53752. Function TMicrosoft_SharePoint_Portal_UserProfilesMySiteDismissStatusText.KeyAsURLPart : string;
  53753. begin
  53754. Result:=TODataObject.MakeKeyString(Id4a81de82eeb94d6080ea5bf63e27023a);
  53755. end;
  53756. { --------------------------------------------------------------------
  53757. TMicrosoft_SharePoint_Portal_UserProfilesMySiteDocumentMoveUtility
  53758. --------------------------------------------------------------------}
  53759. Class Function TMicrosoft_SharePoint_Portal_UserProfilesMySiteDocumentMoveUtility.ObjectRestKind : String;
  53760. begin
  53761. Result:='MySiteDocumentMoveUtility';
  53762. end;
  53763. Procedure TMicrosoft_SharePoint_Portal_UserProfilesMySiteDocumentMoveUtility.SetId4a81de82eeb94d6080ea5bf63e27023a(AIndex: Integer; const AValue: string);
  53764. begin
  53765. If (FId4a81de82eeb94d6080ea5bf63e27023a=AValue) then exit;
  53766. FId4a81de82eeb94d6080ea5bf63e27023a:=AValue;
  53767. MarkPropertyChanged(AIndex);
  53768. end;
  53769. Function TMicrosoft_SharePoint_Portal_UserProfilesMySiteDocumentMoveUtility.KeyAsURLPart : string;
  53770. begin
  53771. Result:=TODataObject.MakeKeyString(Id4a81de82eeb94d6080ea5bf63e27023a);
  53772. end;
  53773. { --------------------------------------------------------------------
  53774. TMicrosoft_SharePoint_Portal_UserProfilesSharedWithMeDocument
  53775. --------------------------------------------------------------------}
  53776. Class Function TMicrosoft_SharePoint_Portal_UserProfilesSharedWithMeDocument.ObjectRestKind : String;
  53777. begin
  53778. Result:='SharedWithMeDocument';
  53779. end;
  53780. Procedure TMicrosoft_SharePoint_Portal_UserProfilesSharedWithMeDocument.SetAuthors(AIndex: Integer; const AValue: TMicrosoft_SharePoint_Portal_UserProfilesSharedWithMeDocumentUserArray);
  53781. begin
  53782. If (FAuthors=AValue) then exit;
  53783. FAuthors:=AValue;
  53784. MarkPropertyChanged(AIndex);
  53785. end;
  53786. Procedure TMicrosoft_SharePoint_Portal_UserProfilesSharedWithMeDocument.SetContentTypeId(AIndex: Integer; const AValue: TSPContentTypeId);
  53787. begin
  53788. If (FContentTypeId=AValue) then exit;
  53789. FContentTypeId:=AValue;
  53790. MarkPropertyChanged(AIndex);
  53791. end;
  53792. Procedure TMicrosoft_SharePoint_Portal_UserProfilesSharedWithMeDocument.SetDocId(AIndex: Integer; const AValue: string);
  53793. begin
  53794. If (FDocId=AValue) then exit;
  53795. FDocId:=AValue;
  53796. MarkPropertyChanged(AIndex);
  53797. end;
  53798. Procedure TMicrosoft_SharePoint_Portal_UserProfilesSharedWithMeDocument.SetEditors(AIndex: Integer; const AValue: TMicrosoft_SharePoint_Portal_UserProfilesSharedWithMeDocumentUserArray);
  53799. begin
  53800. If (FEditors=AValue) then exit;
  53801. FEditors:=AValue;
  53802. MarkPropertyChanged(AIndex);
  53803. end;
  53804. Procedure TMicrosoft_SharePoint_Portal_UserProfilesSharedWithMeDocument.SetExtension(AIndex: Integer; const AValue: string);
  53805. begin
  53806. If (FExtension=AValue) then exit;
  53807. FExtension:=AValue;
  53808. MarkPropertyChanged(AIndex);
  53809. end;
  53810. Procedure TMicrosoft_SharePoint_Portal_UserProfilesSharedWithMeDocument.SetFileLeafRef(AIndex: Integer; const AValue: string);
  53811. begin
  53812. If (FFileLeafRef=AValue) then exit;
  53813. FFileLeafRef:=AValue;
  53814. MarkPropertyChanged(AIndex);
  53815. end;
  53816. Procedure TMicrosoft_SharePoint_Portal_UserProfilesSharedWithMeDocument.SetFileRef(AIndex: Integer; const AValue: string);
  53817. begin
  53818. If (FFileRef=AValue) then exit;
  53819. FFileRef:=AValue;
  53820. MarkPropertyChanged(AIndex);
  53821. end;
  53822. Procedure TMicrosoft_SharePoint_Portal_UserProfilesSharedWithMeDocument.SetId(AIndex: Integer; const AValue: TInt32);
  53823. begin
  53824. If (FId=AValue) then exit;
  53825. FId:=AValue;
  53826. MarkPropertyChanged(AIndex);
  53827. end;
  53828. Procedure TMicrosoft_SharePoint_Portal_UserProfilesSharedWithMeDocument.SetIsContainer(AIndex: Integer; const AValue: boolean);
  53829. begin
  53830. If (FIsContainer=AValue) then exit;
  53831. FIsContainer:=AValue;
  53832. MarkPropertyChanged(AIndex);
  53833. end;
  53834. Procedure TMicrosoft_SharePoint_Portal_UserProfilesSharedWithMeDocument.SetIsMyDocument(AIndex: Integer; const AValue: boolean);
  53835. begin
  53836. If (FIsMyDocument=AValue) then exit;
  53837. FIsMyDocument:=AValue;
  53838. MarkPropertyChanged(AIndex);
  53839. end;
  53840. Procedure TMicrosoft_SharePoint_Portal_UserProfilesSharedWithMeDocument.SetLinkingUrl(AIndex: Integer; const AValue: string);
  53841. begin
  53842. If (FLinkingUrl=AValue) then exit;
  53843. FLinkingUrl:=AValue;
  53844. MarkPropertyChanged(AIndex);
  53845. end;
  53846. Procedure TMicrosoft_SharePoint_Portal_UserProfilesSharedWithMeDocument.SetListId(AIndex: Integer; const AValue: string);
  53847. begin
  53848. If (FListId=AValue) then exit;
  53849. FListId:=AValue;
  53850. MarkPropertyChanged(AIndex);
  53851. end;
  53852. Procedure TMicrosoft_SharePoint_Portal_UserProfilesSharedWithMeDocument.SetListItemId(AIndex: Integer; const AValue: string);
  53853. begin
  53854. If (FListItemId=AValue) then exit;
  53855. FListItemId:=AValue;
  53856. MarkPropertyChanged(AIndex);
  53857. end;
  53858. Procedure TMicrosoft_SharePoint_Portal_UserProfilesSharedWithMeDocument.SetModified(AIndex: Integer; const AValue: TDateTime);
  53859. begin
  53860. If (FModified=AValue) then exit;
  53861. FModified:=AValue;
  53862. MarkPropertyChanged(AIndex);
  53863. end;
  53864. Procedure TMicrosoft_SharePoint_Portal_UserProfilesSharedWithMeDocument.SetParentLink(AIndex: Integer; const AValue: string);
  53865. begin
  53866. If (FParentLink=AValue) then exit;
  53867. FParentLink:=AValue;
  53868. MarkPropertyChanged(AIndex);
  53869. end;
  53870. Procedure TMicrosoft_SharePoint_Portal_UserProfilesSharedWithMeDocument.SetProgId(AIndex: Integer; const AValue: string);
  53871. begin
  53872. If (FProgId=AValue) then exit;
  53873. FProgId:=AValue;
  53874. MarkPropertyChanged(AIndex);
  53875. end;
  53876. Procedure TMicrosoft_SharePoint_Portal_UserProfilesSharedWithMeDocument.SetServerRedirectedEmbedUrl(AIndex: Integer; const AValue: string);
  53877. begin
  53878. If (FServerRedirectedEmbedUrl=AValue) then exit;
  53879. FServerRedirectedEmbedUrl:=AValue;
  53880. MarkPropertyChanged(AIndex);
  53881. end;
  53882. Procedure TMicrosoft_SharePoint_Portal_UserProfilesSharedWithMeDocument.SetServerRedirectedPreviewUrl(AIndex: Integer; const AValue: string);
  53883. begin
  53884. If (FServerRedirectedPreviewUrl=AValue) then exit;
  53885. FServerRedirectedPreviewUrl:=AValue;
  53886. MarkPropertyChanged(AIndex);
  53887. end;
  53888. Procedure TMicrosoft_SharePoint_Portal_UserProfilesSharedWithMeDocument.SetServerRedirectedUrl(AIndex: Integer; const AValue: string);
  53889. begin
  53890. If (FServerRedirectedUrl=AValue) then exit;
  53891. FServerRedirectedUrl:=AValue;
  53892. MarkPropertyChanged(AIndex);
  53893. end;
  53894. Procedure TMicrosoft_SharePoint_Portal_UserProfilesSharedWithMeDocument.SetSharedWithInternal(AIndex: Integer; const AValue: TMicrosoft_SharePoint_Portal_UserProfilesSharedWithMeDocumentUserArray);
  53895. begin
  53896. If (FSharedWithInternal=AValue) then exit;
  53897. FSharedWithInternal:=AValue;
  53898. MarkPropertyChanged(AIndex);
  53899. end;
  53900. Procedure TMicrosoft_SharePoint_Portal_UserProfilesSharedWithMeDocument.SetSiteId(AIndex: Integer; const AValue: string);
  53901. begin
  53902. If (FSiteId=AValue) then exit;
  53903. FSiteId:=AValue;
  53904. MarkPropertyChanged(AIndex);
  53905. end;
  53906. Procedure TMicrosoft_SharePoint_Portal_UserProfilesSharedWithMeDocument.SetSiteUrl(AIndex: Integer; const AValue: string);
  53907. begin
  53908. If (FSiteUrl=AValue) then exit;
  53909. FSiteUrl:=AValue;
  53910. MarkPropertyChanged(AIndex);
  53911. end;
  53912. Procedure TMicrosoft_SharePoint_Portal_UserProfilesSharedWithMeDocument.SetTitle(AIndex: Integer; const AValue: string);
  53913. begin
  53914. If (FTitle=AValue) then exit;
  53915. FTitle:=AValue;
  53916. MarkPropertyChanged(AIndex);
  53917. end;
  53918. Procedure TMicrosoft_SharePoint_Portal_UserProfilesSharedWithMeDocument.SetUniqueId(AIndex: Integer; const AValue: string);
  53919. begin
  53920. If (FUniqueId=AValue) then exit;
  53921. FUniqueId:=AValue;
  53922. MarkPropertyChanged(AIndex);
  53923. end;
  53924. Procedure TMicrosoft_SharePoint_Portal_UserProfilesSharedWithMeDocument.SetUrlPath(AIndex: Integer; const AValue: string);
  53925. begin
  53926. If (FUrlPath=AValue) then exit;
  53927. FUrlPath:=AValue;
  53928. MarkPropertyChanged(AIndex);
  53929. end;
  53930. Procedure TMicrosoft_SharePoint_Portal_UserProfilesSharedWithMeDocument.SetWebId(AIndex: Integer; const AValue: string);
  53931. begin
  53932. If (FWebId=AValue) then exit;
  53933. FWebId:=AValue;
  53934. MarkPropertyChanged(AIndex);
  53935. end;
  53936. {$IFDEF VER2_6}
  53937. Procedure TMicrosoft_SharePoint_Portal_UserProfilesSharedWithMeDocument.SetArrayLength(const AName: String; ALength: Longint);
  53938. begin
  53939. Case aName of
  53940. 'authors' : SetLength(FAuthors,aLength);
  53941. 'editors' : SetLength(FEditors,aLength);
  53942. 'sharedwithinternal' : SetLength(FSharedWithInternal,aLength);
  53943. else
  53944. inherited SetArrayLength(aName,ALength);
  53945. end;
  53946. end;
  53947. {$ENDIF VER2_6}
  53948. Function TMicrosoft_SharePoint_Portal_UserProfilesSharedWithMeDocument.KeyAsURLPart : string;
  53949. begin
  53950. Result:=IntToStr(Id);
  53951. end;
  53952. { --------------------------------------------------------------------
  53953. TMicrosoft_SharePoint_Portal_UserProfilesDocumentsSharedWithMe
  53954. --------------------------------------------------------------------}
  53955. Class Function TMicrosoft_SharePoint_Portal_UserProfilesDocumentsSharedWithMe.ObjectRestKind : String;
  53956. begin
  53957. Result:='DocumentsSharedWithMe';
  53958. end;
  53959. Procedure TMicrosoft_SharePoint_Portal_UserProfilesDocumentsSharedWithMe.SetId4a81de82eeb94d6080ea5bf63e27023a(AIndex: Integer; const AValue: string);
  53960. begin
  53961. If (FId4a81de82eeb94d6080ea5bf63e27023a=AValue) then exit;
  53962. FId4a81de82eeb94d6080ea5bf63e27023a:=AValue;
  53963. MarkPropertyChanged(AIndex);
  53964. end;
  53965. Function TMicrosoft_SharePoint_Portal_UserProfilesDocumentsSharedWithMe.KeyAsURLPart : string;
  53966. begin
  53967. Result:=TODataObject.MakeKeyString(Id4a81de82eeb94d6080ea5bf63e27023a);
  53968. end;
  53969. { --------------------------------------------------------------------
  53970. TMicrosoft_SharePoint_Portal_UserProfilesDocumentsSharedWithGroup
  53971. --------------------------------------------------------------------}
  53972. Class Function TMicrosoft_SharePoint_Portal_UserProfilesDocumentsSharedWithGroup.ObjectRestKind : String;
  53973. begin
  53974. Result:='DocumentsSharedWithGroup';
  53975. end;
  53976. Procedure TMicrosoft_SharePoint_Portal_UserProfilesDocumentsSharedWithGroup.SetId4a81de82eeb94d6080ea5bf63e27023a(AIndex: Integer; const AValue: string);
  53977. begin
  53978. If (FId4a81de82eeb94d6080ea5bf63e27023a=AValue) then exit;
  53979. FId4a81de82eeb94d6080ea5bf63e27023a:=AValue;
  53980. MarkPropertyChanged(AIndex);
  53981. end;
  53982. Function TMicrosoft_SharePoint_Portal_UserProfilesDocumentsSharedWithGroup.KeyAsURLPart : string;
  53983. begin
  53984. Result:=TODataObject.MakeKeyString(Id4a81de82eeb94d6080ea5bf63e27023a);
  53985. end;
  53986. { --------------------------------------------------------------------
  53987. TMicrosoft_SharePoint_Portal_UserProfilesDocumentsSharedWithPerson
  53988. --------------------------------------------------------------------}
  53989. Class Function TMicrosoft_SharePoint_Portal_UserProfilesDocumentsSharedWithPerson.ObjectRestKind : String;
  53990. begin
  53991. Result:='DocumentsSharedWithPerson';
  53992. end;
  53993. Procedure TMicrosoft_SharePoint_Portal_UserProfilesDocumentsSharedWithPerson.SetId4a81de82eeb94d6080ea5bf63e27023a(AIndex: Integer; const AValue: string);
  53994. begin
  53995. If (FId4a81de82eeb94d6080ea5bf63e27023a=AValue) then exit;
  53996. FId4a81de82eeb94d6080ea5bf63e27023a:=AValue;
  53997. MarkPropertyChanged(AIndex);
  53998. end;
  53999. Function TMicrosoft_SharePoint_Portal_UserProfilesDocumentsSharedWithPerson.KeyAsURLPart : string;
  54000. begin
  54001. Result:=TODataObject.MakeKeyString(Id4a81de82eeb94d6080ea5bf63e27023a);
  54002. end;
  54003. { --------------------------------------------------------------------
  54004. TMicrosoft_SharePoint_Portal_UserProfilesPromotedSites
  54005. --------------------------------------------------------------------}
  54006. Class Function TMicrosoft_SharePoint_Portal_UserProfilesPromotedSites.ObjectRestKind : String;
  54007. begin
  54008. Result:='PromotedSites';
  54009. end;
  54010. Procedure TMicrosoft_SharePoint_Portal_UserProfilesPromotedSites.SetId4a81de82eeb94d6080ea5bf63e27023a(AIndex: Integer; const AValue: string);
  54011. begin
  54012. If (FId4a81de82eeb94d6080ea5bf63e27023a=AValue) then exit;
  54013. FId4a81de82eeb94d6080ea5bf63e27023a:=AValue;
  54014. MarkPropertyChanged(AIndex);
  54015. end;
  54016. Function TMicrosoft_SharePoint_Portal_UserProfilesPromotedSites.KeyAsURLPart : string;
  54017. begin
  54018. Result:=TODataObject.MakeKeyString(Id4a81de82eeb94d6080ea5bf63e27023a);
  54019. end;
  54020. { --------------------------------------------------------------------
  54021. TMicrosoft_SharePoint_Portal_ProjectMyRecsCacheBlob
  54022. --------------------------------------------------------------------}
  54023. Class Function TMicrosoft_SharePoint_Portal_ProjectMyRecsCacheBlob.ObjectRestKind : String;
  54024. begin
  54025. Result:='MyRecsCacheBlob';
  54026. end;
  54027. Procedure TMicrosoft_SharePoint_Portal_ProjectMyRecsCacheBlob.SetDateCached(AIndex: Integer; const AValue: TDateTime);
  54028. begin
  54029. If (FDateCached=AValue) then exit;
  54030. FDateCached:=AValue;
  54031. MarkPropertyChanged(AIndex);
  54032. end;
  54033. Procedure TMicrosoft_SharePoint_Portal_ProjectMyRecsCacheBlob.SetFillInQuery(AIndex: Integer; const AValue: string);
  54034. begin
  54035. If (FFillInQuery=AValue) then exit;
  54036. FFillInQuery:=AValue;
  54037. MarkPropertyChanged(AIndex);
  54038. end;
  54039. Procedure TMicrosoft_SharePoint_Portal_ProjectMyRecsCacheBlob.SetFillInSortBy(AIndex: Integer; const AValue: string);
  54040. begin
  54041. If (FFillInSortBy=AValue) then exit;
  54042. FFillInSortBy:=AValue;
  54043. MarkPropertyChanged(AIndex);
  54044. end;
  54045. Procedure TMicrosoft_SharePoint_Portal_ProjectMyRecsCacheBlob.SetQuery(AIndex: Integer; const AValue: string);
  54046. begin
  54047. If (FQuery=AValue) then exit;
  54048. FQuery:=AValue;
  54049. MarkPropertyChanged(AIndex);
  54050. end;
  54051. Procedure TMicrosoft_SharePoint_Portal_ProjectMyRecsCacheBlob.SetQueryInfo(AIndex: Integer; const AValue: TMicrosoft_SharePoint_Portal_ProjectMyRecsQueryInfo);
  54052. begin
  54053. If (FQueryInfo=AValue) then exit;
  54054. FQueryInfo:=AValue;
  54055. MarkPropertyChanged(AIndex);
  54056. end;
  54057. Procedure TMicrosoft_SharePoint_Portal_ProjectMyRecsCacheBlob.Set_Result(AIndex: Integer; const AValue: string);
  54058. begin
  54059. If (F_Result=AValue) then exit;
  54060. F_Result:=AValue;
  54061. MarkPropertyChanged(AIndex);
  54062. end;
  54063. Procedure TMicrosoft_SharePoint_Portal_ProjectMyRecsCacheBlob.SetSortBy(AIndex: Integer; const AValue: string);
  54064. begin
  54065. If (FSortBy=AValue) then exit;
  54066. FSortBy:=AValue;
  54067. MarkPropertyChanged(AIndex);
  54068. end;
  54069. Class Function TMicrosoft_SharePoint_Portal_ProjectMyRecsCacheBlob.ExportPropertyName(Const AName : String) :String;
  54070. begin
  54071. Case AName of
  54072. '_Result' : Result:='Result';
  54073. else
  54074. Result:=Inherited ExportPropertyName(AName);
  54075. end;
  54076. end;
  54077. { --------------------------------------------------------------------
  54078. TMicrosoft_SharePoint_Portal_ProjectMyRecsQueryInfo
  54079. --------------------------------------------------------------------}
  54080. Class Function TMicrosoft_SharePoint_Portal_ProjectMyRecsQueryInfo.ObjectRestKind : String;
  54081. begin
  54082. Result:='MyRecsQueryInfo';
  54083. end;
  54084. Procedure TMicrosoft_SharePoint_Portal_ProjectMyRecsQueryInfo.SetCategory(AIndex: Integer; const AValue: TInt32);
  54085. begin
  54086. If (FCategory=AValue) then exit;
  54087. FCategory:=AValue;
  54088. MarkPropertyChanged(AIndex);
  54089. end;
  54090. Procedure TMicrosoft_SharePoint_Portal_ProjectMyRecsQueryInfo.SetExpertiseTags(AIndex: Integer; const AValue: TStringArray);
  54091. begin
  54092. If (FExpertiseTags=AValue) then exit;
  54093. FExpertiseTags:=AValue;
  54094. MarkPropertyChanged(AIndex);
  54095. end;
  54096. Procedure TMicrosoft_SharePoint_Portal_ProjectMyRecsQueryInfo.SetFollowedUrls(AIndex: Integer; const AValue: TStringArray);
  54097. begin
  54098. If (FFollowedUrls=AValue) then exit;
  54099. FFollowedUrls:=AValue;
  54100. MarkPropertyChanged(AIndex);
  54101. end;
  54102. Procedure TMicrosoft_SharePoint_Portal_ProjectMyRecsQueryInfo.SetInterestTags(AIndex: Integer; const AValue: TStringArray);
  54103. begin
  54104. If (FInterestTags=AValue) then exit;
  54105. FInterestTags:=AValue;
  54106. MarkPropertyChanged(AIndex);
  54107. end;
  54108. Procedure TMicrosoft_SharePoint_Portal_ProjectMyRecsQueryInfo.SetQueryInfoExists(AIndex: Integer; const AValue: boolean);
  54109. begin
  54110. If (FQueryInfoExists=AValue) then exit;
  54111. FQueryInfoExists:=AValue;
  54112. MarkPropertyChanged(AIndex);
  54113. end;
  54114. Procedure TMicrosoft_SharePoint_Portal_ProjectMyRecsQueryInfo.SetSuggestedTags(AIndex: Integer; const AValue: TStringArray);
  54115. begin
  54116. If (FSuggestedTags=AValue) then exit;
  54117. FSuggestedTags:=AValue;
  54118. MarkPropertyChanged(AIndex);
  54119. end;
  54120. {$IFDEF VER2_6}
  54121. Procedure TMicrosoft_SharePoint_Portal_ProjectMyRecsQueryInfo.SetArrayLength(const AName: String; ALength: Longint);
  54122. begin
  54123. Case aName of
  54124. 'expertisetags' : SetLength(FExpertiseTags,aLength);
  54125. 'followedurls' : SetLength(FFollowedUrls,aLength);
  54126. 'interesttags' : SetLength(FInterestTags,aLength);
  54127. 'suggestedtags' : SetLength(FSuggestedTags,aLength);
  54128. else
  54129. inherited SetArrayLength(aName,ALength);
  54130. end;
  54131. end;
  54132. {$ENDIF VER2_6}
  54133. { --------------------------------------------------------------------
  54134. TSP_SiteHealthSiteHealthResult
  54135. --------------------------------------------------------------------}
  54136. Class Function TSP_SiteHealthSiteHealthResult.ObjectRestKind : String;
  54137. begin
  54138. Result:='SiteHealthResult';
  54139. end;
  54140. Procedure TSP_SiteHealthSiteHealthResult.SetMessageAsText(AIndex: Integer; const AValue: string);
  54141. begin
  54142. If (FMessageAsText=AValue) then exit;
  54143. FMessageAsText:=AValue;
  54144. MarkPropertyChanged(AIndex);
  54145. end;
  54146. Procedure TSP_SiteHealthSiteHealthResult.SetRuleHelpLink(AIndex: Integer; const AValue: string);
  54147. begin
  54148. If (FRuleHelpLink=AValue) then exit;
  54149. FRuleHelpLink:=AValue;
  54150. MarkPropertyChanged(AIndex);
  54151. end;
  54152. Procedure TSP_SiteHealthSiteHealthResult.SetRuleId(AIndex: Integer; const AValue: TGUIDString);
  54153. begin
  54154. If (FRuleId=AValue) then exit;
  54155. FRuleId:=AValue;
  54156. MarkPropertyChanged(AIndex);
  54157. end;
  54158. Procedure TSP_SiteHealthSiteHealthResult.SetRuleIsRepairable(AIndex: Integer; const AValue: boolean);
  54159. begin
  54160. If (FRuleIsRepairable=AValue) then exit;
  54161. FRuleIsRepairable:=AValue;
  54162. MarkPropertyChanged(AIndex);
  54163. end;
  54164. Procedure TSP_SiteHealthSiteHealthResult.SetRuleName(AIndex: Integer; const AValue: string);
  54165. begin
  54166. If (FRuleName=AValue) then exit;
  54167. FRuleName:=AValue;
  54168. MarkPropertyChanged(AIndex);
  54169. end;
  54170. Procedure TSP_SiteHealthSiteHealthResult.SetStatus(AIndex: Integer; const AValue: TInt32);
  54171. begin
  54172. If (FStatus=AValue) then exit;
  54173. FStatus:=AValue;
  54174. MarkPropertyChanged(AIndex);
  54175. end;
  54176. Procedure TSP_SiteHealthSiteHealthResult.SetTimeStamp(AIndex: Integer; const AValue: TDateTime);
  54177. begin
  54178. If (FTimeStamp=AValue) then exit;
  54179. FTimeStamp:=AValue;
  54180. MarkPropertyChanged(AIndex);
  54181. end;
  54182. { --------------------------------------------------------------------
  54183. TSP_SiteHealthSiteHealthSummary
  54184. --------------------------------------------------------------------}
  54185. Class Function TSP_SiteHealthSiteHealthSummary.ObjectRestKind : String;
  54186. begin
  54187. Result:='SiteHealthSummary';
  54188. end;
  54189. Procedure TSP_SiteHealthSiteHealthSummary.SetFailedErrorCount(AIndex: Integer; const AValue: TInt32);
  54190. begin
  54191. If (FFailedErrorCount=AValue) then exit;
  54192. FFailedErrorCount:=AValue;
  54193. MarkPropertyChanged(AIndex);
  54194. end;
  54195. Procedure TSP_SiteHealthSiteHealthSummary.SetFailedWarningCount(AIndex: Integer; const AValue: TInt32);
  54196. begin
  54197. If (FFailedWarningCount=AValue) then exit;
  54198. FFailedWarningCount:=AValue;
  54199. MarkPropertyChanged(AIndex);
  54200. end;
  54201. Procedure TSP_SiteHealthSiteHealthSummary.SetPassedCount(AIndex: Integer; const AValue: TInt32);
  54202. begin
  54203. If (FPassedCount=AValue) then exit;
  54204. FPassedCount:=AValue;
  54205. MarkPropertyChanged(AIndex);
  54206. end;
  54207. Procedure TSP_SiteHealthSiteHealthSummary.SetResults(AIndex: Integer; const AValue: TSP_SiteHealthSiteHealthResultArray);
  54208. begin
  54209. If (FResults=AValue) then exit;
  54210. FResults:=AValue;
  54211. MarkPropertyChanged(AIndex);
  54212. end;
  54213. {$IFDEF VER2_6}
  54214. Procedure TSP_SiteHealthSiteHealthSummary.SetArrayLength(const AName: String; ALength: Longint);
  54215. begin
  54216. Case aName of
  54217. 'results' : SetLength(FResults,aLength);
  54218. else
  54219. inherited SetArrayLength(aName,ALength);
  54220. end;
  54221. end;
  54222. {$ENDIF VER2_6}
  54223. Function TSP_SiteHealthSiteHealthSummary.KeyAsURLPart : string;
  54224. begin
  54225. Result:=IntToStr(FailedErrorCount);
  54226. end;
  54227. { --------------------------------------------------------------------
  54228. TMicrosoft_SharePoint_AdministrationUsageEntry
  54229. --------------------------------------------------------------------}
  54230. Class Function TMicrosoft_SharePoint_AdministrationUsageEntry.ObjectRestKind : String;
  54231. begin
  54232. Result:='UsageEntry';
  54233. end;
  54234. Procedure TMicrosoft_SharePoint_AdministrationUsageEntry.SetEventTypeId(AIndex: Integer; const AValue: TInt32);
  54235. begin
  54236. If (FEventTypeId=AValue) then exit;
  54237. FEventTypeId:=AValue;
  54238. MarkPropertyChanged(AIndex);
  54239. end;
  54240. Procedure TMicrosoft_SharePoint_AdministrationUsageEntry.SetItemId(AIndex: Integer; const AValue: string);
  54241. begin
  54242. If (FItemId=AValue) then exit;
  54243. FItemId:=AValue;
  54244. MarkPropertyChanged(AIndex);
  54245. end;
  54246. Procedure TMicrosoft_SharePoint_AdministrationUsageEntry.SetScopeId(AIndex: Integer; const AValue: TGUIDString);
  54247. begin
  54248. If (FScopeId=AValue) then exit;
  54249. FScopeId:=AValue;
  54250. MarkPropertyChanged(AIndex);
  54251. end;
  54252. Procedure TMicrosoft_SharePoint_AdministrationUsageEntry.SetSite(AIndex: Integer; const AValue: TGUIDString);
  54253. begin
  54254. If (FSite=AValue) then exit;
  54255. FSite:=AValue;
  54256. MarkPropertyChanged(AIndex);
  54257. end;
  54258. Procedure TMicrosoft_SharePoint_AdministrationUsageEntry.SetUser(AIndex: Integer; const AValue: string);
  54259. begin
  54260. If (FUser=AValue) then exit;
  54261. FUser:=AValue;
  54262. MarkPropertyChanged(AIndex);
  54263. end;
  54264. { --------------------------------------------------------------------
  54265. TMicrosoft_SharePoint_AdministrationSPAppStateQueryJobDefinition
  54266. --------------------------------------------------------------------}
  54267. Class Function TMicrosoft_SharePoint_AdministrationSPAppStateQueryJobDefinition.ObjectRestKind : String;
  54268. begin
  54269. Result:='SPAppStateQueryJobDefinition';
  54270. end;
  54271. Procedure TMicrosoft_SharePoint_AdministrationSPAppStateQueryJobDefinition.SetId4a81de82eeb94d6080ea5bf63e27023a(AIndex: Integer; const AValue: string);
  54272. begin
  54273. If (FId4a81de82eeb94d6080ea5bf63e27023a=AValue) then exit;
  54274. FId4a81de82eeb94d6080ea5bf63e27023a:=AValue;
  54275. MarkPropertyChanged(AIndex);
  54276. end;
  54277. Function TMicrosoft_SharePoint_AdministrationSPAppStateQueryJobDefinition.KeyAsURLPart : string;
  54278. begin
  54279. Result:=TODataObject.MakeKeyString(Id4a81de82eeb94d6080ea5bf63e27023a);
  54280. end;
  54281. { --------------------------------------------------------------------
  54282. TMicrosoft_SharePoint_AdministrationSPFarm
  54283. --------------------------------------------------------------------}
  54284. Class Function TMicrosoft_SharePoint_AdministrationSPFarm.ObjectRestKind : String;
  54285. begin
  54286. Result:='SPFarm';
  54287. end;
  54288. Procedure TMicrosoft_SharePoint_AdministrationSPFarm.SetId(AIndex: Integer; const AValue: TGUIDString);
  54289. begin
  54290. If (FId=AValue) then exit;
  54291. FId:=AValue;
  54292. MarkPropertyChanged(AIndex);
  54293. end;
  54294. Function TMicrosoft_SharePoint_AdministrationSPFarm.KeyAsURLPart : string;
  54295. begin
  54296. Result:=TODataObject.MakeKeyString(Id);
  54297. end;
  54298. Function TMicrosoft_SharePoint_AdministrationSPFarm.Local(AService: TODataService) : TMicrosoft_SharePoint_AdministrationSPFarm;
  54299. begin
  54300. Result:=TMicrosoft_SharePoint_AdministrationSPFarm(GetContainedSingleTon(AService,'Local', TMicrosoft_SharePoint_AdministrationSPFarm));
  54301. end;
  54302. { --------------------------------------------------------------------
  54303. TMicrosoft_SharePoint_AdministrationFeatureDefinition
  54304. --------------------------------------------------------------------}
  54305. Class Function TMicrosoft_SharePoint_AdministrationFeatureDefinition.ObjectRestKind : String;
  54306. begin
  54307. Result:='FeatureDefinition';
  54308. end;
  54309. Procedure TMicrosoft_SharePoint_AdministrationFeatureDefinition.SetDisplayName(AIndex: Integer; const AValue: string);
  54310. begin
  54311. If (FDisplayName=AValue) then exit;
  54312. FDisplayName:=AValue;
  54313. MarkPropertyChanged(AIndex);
  54314. end;
  54315. Procedure TMicrosoft_SharePoint_AdministrationFeatureDefinition.SetId(AIndex: Integer; const AValue: TGUIDString);
  54316. begin
  54317. If (FId=AValue) then exit;
  54318. FId:=AValue;
  54319. MarkPropertyChanged(AIndex);
  54320. end;
  54321. Function TMicrosoft_SharePoint_AdministrationFeatureDefinition.KeyAsURLPart : string;
  54322. begin
  54323. Result:=TODataObject.MakeKeyString(Id);
  54324. end;
  54325. { --------------------------------------------------------------------
  54326. TMicrosoft_SharePoint_AdministrationSPTenantAppInstanceData
  54327. --------------------------------------------------------------------}
  54328. Class Function TMicrosoft_SharePoint_AdministrationSPTenantAppInstanceData.ObjectRestKind : String;
  54329. begin
  54330. Result:='SPTenantAppInstanceData';
  54331. end;
  54332. Procedure TMicrosoft_SharePoint_AdministrationSPTenantAppInstanceData.SetId4a81de82eeb94d6080ea5bf63e27023a(AIndex: Integer; const AValue: string);
  54333. begin
  54334. If (FId4a81de82eeb94d6080ea5bf63e27023a=AValue) then exit;
  54335. FId4a81de82eeb94d6080ea5bf63e27023a:=AValue;
  54336. MarkPropertyChanged(AIndex);
  54337. end;
  54338. Function TMicrosoft_SharePoint_AdministrationSPTenantAppInstanceData.KeyAsURLPart : string;
  54339. begin
  54340. Result:=TODataObject.MakeKeyString(Id4a81de82eeb94d6080ea5bf63e27023a);
  54341. end;
  54342. { --------------------------------------------------------------------
  54343. TMicrosoft_SharePoint_AdministrationSPWebApplication
  54344. --------------------------------------------------------------------}
  54345. Class Function TMicrosoft_SharePoint_AdministrationSPWebApplication.ObjectRestKind : String;
  54346. begin
  54347. Result:='SPWebApplication';
  54348. end;
  54349. Procedure TMicrosoft_SharePoint_AdministrationSPWebApplication.SetDisplayName(AIndex: Integer; const AValue: string);
  54350. begin
  54351. If (FDisplayName=AValue) then exit;
  54352. FDisplayName:=AValue;
  54353. MarkPropertyChanged(AIndex);
  54354. end;
  54355. Procedure TMicrosoft_SharePoint_AdministrationSPWebApplication.SetId(AIndex: Integer; const AValue: TGUIDString);
  54356. begin
  54357. If (FId=AValue) then exit;
  54358. FId:=AValue;
  54359. MarkPropertyChanged(AIndex);
  54360. end;
  54361. Procedure TMicrosoft_SharePoint_AdministrationSPWebApplication.SetOutboundMailPort(AIndex: Integer; const AValue: TInt32);
  54362. begin
  54363. If (FOutboundMailPort=AValue) then exit;
  54364. FOutboundMailPort:=AValue;
  54365. MarkPropertyChanged(AIndex);
  54366. end;
  54367. Procedure TMicrosoft_SharePoint_AdministrationSPWebApplication.SetOutboundMailReplyToAddress(AIndex: Integer; const AValue: string);
  54368. begin
  54369. If (FOutboundMailReplyToAddress=AValue) then exit;
  54370. FOutboundMailReplyToAddress:=AValue;
  54371. MarkPropertyChanged(AIndex);
  54372. end;
  54373. Procedure TMicrosoft_SharePoint_AdministrationSPWebApplication.SetOutboundMailSenderAddress(AIndex: Integer; const AValue: string);
  54374. begin
  54375. If (FOutboundMailSenderAddress=AValue) then exit;
  54376. FOutboundMailSenderAddress:=AValue;
  54377. MarkPropertyChanged(AIndex);
  54378. end;
  54379. Function TMicrosoft_SharePoint_AdministrationSPWebApplication.KeyAsURLPart : string;
  54380. begin
  54381. Result:=TODataObject.MakeKeyString(Id);
  54382. end;
  54383. Function TMicrosoft_SharePoint_AdministrationSPWebApplication.Sites(AService: TODataService) : TSPSite;
  54384. begin
  54385. Result:=TSPSite(GetContainedSingleTon(AService,'Sites', TSPSite));
  54386. end;
  54387. { --------------------------------------------------------------------
  54388. TMicrosoft_SharePoint_AdministrationSPWebService
  54389. --------------------------------------------------------------------}
  54390. Class Function TMicrosoft_SharePoint_AdministrationSPWebService.ObjectRestKind : String;
  54391. begin
  54392. Result:='SPWebService';
  54393. end;
  54394. Procedure TMicrosoft_SharePoint_AdministrationSPWebService.SetId4a81de82eeb94d6080ea5bf63e27023a(AIndex: Integer; const AValue: string);
  54395. begin
  54396. If (FId4a81de82eeb94d6080ea5bf63e27023a=AValue) then exit;
  54397. FId4a81de82eeb94d6080ea5bf63e27023a:=AValue;
  54398. MarkPropertyChanged(AIndex);
  54399. end;
  54400. Function TMicrosoft_SharePoint_AdministrationSPWebService.KeyAsURLPart : string;
  54401. begin
  54402. Result:=TODataObject.MakeKeyString(Id4a81de82eeb94d6080ea5bf63e27023a);
  54403. end;
  54404. Function TMicrosoft_SharePoint_AdministrationSPWebService.ContentService(AService: TODataService) : TMicrosoft_SharePoint_AdministrationSPWebService;
  54405. begin
  54406. Result:=TMicrosoft_SharePoint_AdministrationSPWebService(GetContainedSingleTon(AService,'ContentService', TMicrosoft_SharePoint_AdministrationSPWebService));
  54407. end;
  54408. Function TMicrosoft_SharePoint_AdministrationSPWebService.WebApplications(AService: TODataService) : TMicrosoft_SharePoint_AdministrationSPWebApplication;
  54409. begin
  54410. Result:=TMicrosoft_SharePoint_AdministrationSPWebApplication(GetContainedSingleTon(AService,'WebApplications', TMicrosoft_SharePoint_AdministrationSPWebApplication));
  54411. end;
  54412. { --------------------------------------------------------------------
  54413. TMicrosoft_SharePoint_AdministrationSPAnalyticsUsageService
  54414. --------------------------------------------------------------------}
  54415. Class Function TMicrosoft_SharePoint_AdministrationSPAnalyticsUsageService.ObjectRestKind : String;
  54416. begin
  54417. Result:='SPAnalyticsUsageService';
  54418. end;
  54419. Procedure TMicrosoft_SharePoint_AdministrationSPAnalyticsUsageService.SetId4a81de82eeb94d6080ea5bf63e27023a(AIndex: Integer; const AValue: string);
  54420. begin
  54421. If (FId4a81de82eeb94d6080ea5bf63e27023a=AValue) then exit;
  54422. FId4a81de82eeb94d6080ea5bf63e27023a:=AValue;
  54423. MarkPropertyChanged(AIndex);
  54424. end;
  54425. Function TMicrosoft_SharePoint_AdministrationSPAnalyticsUsageService.KeyAsURLPart : string;
  54426. begin
  54427. Result:=TODataObject.MakeKeyString(Id4a81de82eeb94d6080ea5bf63e27023a);
  54428. end;
  54429. { --------------------------------------------------------------------
  54430. TSP_UI_ApplicationPagesClientPeoplePickerQueryParameters
  54431. --------------------------------------------------------------------}
  54432. Class Function TSP_UI_ApplicationPagesClientPeoplePickerQueryParameters.ObjectRestKind : String;
  54433. begin
  54434. Result:='ClientPeoplePickerQueryParameters';
  54435. end;
  54436. Procedure TSP_UI_ApplicationPagesClientPeoplePickerQueryParameters.SetAllowEmailAddresses(AIndex: Integer; const AValue: boolean);
  54437. begin
  54438. If (FAllowEmailAddresses=AValue) then exit;
  54439. FAllowEmailAddresses:=AValue;
  54440. MarkPropertyChanged(AIndex);
  54441. end;
  54442. Procedure TSP_UI_ApplicationPagesClientPeoplePickerQueryParameters.SetAllowMultipleEntities(AIndex: Integer; const AValue: boolean);
  54443. begin
  54444. If (FAllowMultipleEntities=AValue) then exit;
  54445. FAllowMultipleEntities:=AValue;
  54446. MarkPropertyChanged(AIndex);
  54447. end;
  54448. Procedure TSP_UI_ApplicationPagesClientPeoplePickerQueryParameters.SetAllUrlZones(AIndex: Integer; const AValue: boolean);
  54449. begin
  54450. If (FAllUrlZones=AValue) then exit;
  54451. FAllUrlZones:=AValue;
  54452. MarkPropertyChanged(AIndex);
  54453. end;
  54454. Procedure TSP_UI_ApplicationPagesClientPeoplePickerQueryParameters.SetEnabledClaimProviders(AIndex: Integer; const AValue: string);
  54455. begin
  54456. If (FEnabledClaimProviders=AValue) then exit;
  54457. FEnabledClaimProviders:=AValue;
  54458. MarkPropertyChanged(AIndex);
  54459. end;
  54460. Procedure TSP_UI_ApplicationPagesClientPeoplePickerQueryParameters.SetForceClaims(AIndex: Integer; const AValue: boolean);
  54461. begin
  54462. If (FForceClaims=AValue) then exit;
  54463. FForceClaims:=AValue;
  54464. MarkPropertyChanged(AIndex);
  54465. end;
  54466. Procedure TSP_UI_ApplicationPagesClientPeoplePickerQueryParameters.SetMaximumEntitySuggestions(AIndex: Integer; const AValue: TInt32);
  54467. begin
  54468. If (FMaximumEntitySuggestions=AValue) then exit;
  54469. FMaximumEntitySuggestions:=AValue;
  54470. MarkPropertyChanged(AIndex);
  54471. end;
  54472. Procedure TSP_UI_ApplicationPagesClientPeoplePickerQueryParameters.SetPrincipalSource(AIndex: Integer; const AValue: TInt32);
  54473. begin
  54474. If (FPrincipalSource=AValue) then exit;
  54475. FPrincipalSource:=AValue;
  54476. MarkPropertyChanged(AIndex);
  54477. end;
  54478. Procedure TSP_UI_ApplicationPagesClientPeoplePickerQueryParameters.SetPrincipalType(AIndex: Integer; const AValue: TInt32);
  54479. begin
  54480. If (FPrincipalType=AValue) then exit;
  54481. FPrincipalType:=AValue;
  54482. MarkPropertyChanged(AIndex);
  54483. end;
  54484. Procedure TSP_UI_ApplicationPagesClientPeoplePickerQueryParameters.SetQueryString(AIndex: Integer; const AValue: string);
  54485. begin
  54486. If (FQueryString=AValue) then exit;
  54487. FQueryString:=AValue;
  54488. MarkPropertyChanged(AIndex);
  54489. end;
  54490. Procedure TSP_UI_ApplicationPagesClientPeoplePickerQueryParameters.SetRequired(AIndex: Integer; const AValue: boolean);
  54491. begin
  54492. If (FRequired=AValue) then exit;
  54493. FRequired:=AValue;
  54494. MarkPropertyChanged(AIndex);
  54495. end;
  54496. Procedure TSP_UI_ApplicationPagesClientPeoplePickerQueryParameters.SetSharePointGroupID(AIndex: Integer; const AValue: TInt32);
  54497. begin
  54498. If (FSharePointGroupID=AValue) then exit;
  54499. FSharePointGroupID:=AValue;
  54500. MarkPropertyChanged(AIndex);
  54501. end;
  54502. Procedure TSP_UI_ApplicationPagesClientPeoplePickerQueryParameters.SetUrlZone(AIndex: Integer; const AValue: TInt32);
  54503. begin
  54504. If (FUrlZone=AValue) then exit;
  54505. FUrlZone:=AValue;
  54506. MarkPropertyChanged(AIndex);
  54507. end;
  54508. Procedure TSP_UI_ApplicationPagesClientPeoplePickerQueryParameters.SetUrlZoneSpecified(AIndex: Integer; const AValue: boolean);
  54509. begin
  54510. If (FUrlZoneSpecified=AValue) then exit;
  54511. FUrlZoneSpecified:=AValue;
  54512. MarkPropertyChanged(AIndex);
  54513. end;
  54514. Procedure TSP_UI_ApplicationPagesClientPeoplePickerQueryParameters.SetWebApplicationID(AIndex: Integer; const AValue: TGUIDString);
  54515. begin
  54516. If (FWebApplicationID=AValue) then exit;
  54517. FWebApplicationID:=AValue;
  54518. MarkPropertyChanged(AIndex);
  54519. end;
  54520. { --------------------------------------------------------------------
  54521. TSP_UI_ApplicationPagesClientPeoplePickerWebServiceInterface
  54522. --------------------------------------------------------------------}
  54523. Class Function TSP_UI_ApplicationPagesClientPeoplePickerWebServiceInterface.ObjectRestKind : String;
  54524. begin
  54525. Result:='ClientPeoplePickerWebServiceInterface';
  54526. end;
  54527. Procedure TSP_UI_ApplicationPagesClientPeoplePickerWebServiceInterface.SetId4a81de82eeb94d6080ea5bf63e27023a(AIndex: Integer; const AValue: string);
  54528. begin
  54529. If (FId4a81de82eeb94d6080ea5bf63e27023a=AValue) then exit;
  54530. FId4a81de82eeb94d6080ea5bf63e27023a:=AValue;
  54531. MarkPropertyChanged(AIndex);
  54532. end;
  54533. Function TSP_UI_ApplicationPagesClientPeoplePickerWebServiceInterface.KeyAsURLPart : string;
  54534. begin
  54535. Result:=TODataObject.MakeKeyString(Id4a81de82eeb94d6080ea5bf63e27023a);
  54536. end;
  54537. { --------------------------------------------------------------------
  54538. TSP_PageInstrumentationPageImpressionClient
  54539. --------------------------------------------------------------------}
  54540. Class Function TSP_PageInstrumentationPageImpressionClient.ObjectRestKind : String;
  54541. begin
  54542. Result:='PageImpressionClient';
  54543. end;
  54544. Procedure TSP_PageInstrumentationPageImpressionClient.SetBasePageCorrelationId(AIndex: Integer; const AValue: string);
  54545. begin
  54546. If (FBasePageCorrelationId=AValue) then exit;
  54547. FBasePageCorrelationId:=AValue;
  54548. MarkPropertyChanged(AIndex);
  54549. end;
  54550. Procedure TSP_PageInstrumentationPageImpressionClient.SetClientIdToClickInfoMap(AIndex: Integer; const AValue: TSPKeyValueArray);
  54551. begin
  54552. If (FClientIdToClickInfoMap=AValue) then exit;
  54553. FClientIdToClickInfoMap:=AValue;
  54554. MarkPropertyChanged(AIndex);
  54555. end;
  54556. {$IFDEF VER2_6}
  54557. Procedure TSP_PageInstrumentationPageImpressionClient.SetArrayLength(const AName: String; ALength: Longint);
  54558. begin
  54559. Case aName of
  54560. 'clientidtoclickinfomap' : SetLength(FClientIdToClickInfoMap,aLength);
  54561. else
  54562. inherited SetArrayLength(aName,ALength);
  54563. end;
  54564. end;
  54565. {$ENDIF VER2_6}
  54566. { --------------------------------------------------------------------
  54567. TSP_PageInstrumentationClickManager
  54568. --------------------------------------------------------------------}
  54569. Class Function TSP_PageInstrumentationClickManager.ObjectRestKind : String;
  54570. begin
  54571. Result:='ClickManager';
  54572. end;
  54573. Procedure TSP_PageInstrumentationClickManager.SetId4a81de82eeb94d6080ea5bf63e27023a(AIndex: Integer; const AValue: string);
  54574. begin
  54575. If (FId4a81de82eeb94d6080ea5bf63e27023a=AValue) then exit;
  54576. FId4a81de82eeb94d6080ea5bf63e27023a:=AValue;
  54577. MarkPropertyChanged(AIndex);
  54578. end;
  54579. Function TSP_PageInstrumentationClickManager.KeyAsURLPart : string;
  54580. begin
  54581. Result:=TODataObject.MakeKeyString(Id4a81de82eeb94d6080ea5bf63e27023a);
  54582. end;
  54583. { --------------------------------------------------------------------
  54584. TSP_UtilitiesEmailProperties
  54585. --------------------------------------------------------------------}
  54586. Class Function TSP_UtilitiesEmailProperties.ObjectRestKind : String;
  54587. begin
  54588. Result:='EmailProperties';
  54589. end;
  54590. Procedure TSP_UtilitiesEmailProperties.SetAdditionalHeaders(AIndex: Integer; const AValue: TSPKeyValueArray);
  54591. begin
  54592. If (FAdditionalHeaders=AValue) then exit;
  54593. FAdditionalHeaders:=AValue;
  54594. MarkPropertyChanged(AIndex);
  54595. end;
  54596. Procedure TSP_UtilitiesEmailProperties.SetBCC(AIndex: Integer; const AValue: TStringArray);
  54597. begin
  54598. If (FBCC=AValue) then exit;
  54599. FBCC:=AValue;
  54600. MarkPropertyChanged(AIndex);
  54601. end;
  54602. Procedure TSP_UtilitiesEmailProperties.SetBody(AIndex: Integer; const AValue: string);
  54603. begin
  54604. If (FBody=AValue) then exit;
  54605. FBody:=AValue;
  54606. MarkPropertyChanged(AIndex);
  54607. end;
  54608. Procedure TSP_UtilitiesEmailProperties.SetCC(AIndex: Integer; const AValue: TStringArray);
  54609. begin
  54610. If (FCC=AValue) then exit;
  54611. FCC:=AValue;
  54612. MarkPropertyChanged(AIndex);
  54613. end;
  54614. Procedure TSP_UtilitiesEmailProperties.SetFrom(AIndex: Integer; const AValue: string);
  54615. begin
  54616. If (FFrom=AValue) then exit;
  54617. FFrom:=AValue;
  54618. MarkPropertyChanged(AIndex);
  54619. end;
  54620. Procedure TSP_UtilitiesEmailProperties.SetSubject(AIndex: Integer; const AValue: string);
  54621. begin
  54622. If (FSubject=AValue) then exit;
  54623. FSubject:=AValue;
  54624. MarkPropertyChanged(AIndex);
  54625. end;
  54626. Procedure TSP_UtilitiesEmailProperties.Set_To(AIndex: Integer; const AValue: TStringArray);
  54627. begin
  54628. If (F_To=AValue) then exit;
  54629. F_To:=AValue;
  54630. MarkPropertyChanged(AIndex);
  54631. end;
  54632. {$IFDEF VER2_6}
  54633. Procedure TSP_UtilitiesEmailProperties.SetArrayLength(const AName: String; ALength: Longint);
  54634. begin
  54635. Case aName of
  54636. 'additionalheaders' : SetLength(FAdditionalHeaders,aLength);
  54637. 'bcc' : SetLength(FBCC,aLength);
  54638. 'cc' : SetLength(FCC,aLength);
  54639. '_to' : SetLength(F_To,aLength);
  54640. else
  54641. inherited SetArrayLength(aName,ALength);
  54642. end;
  54643. end;
  54644. {$ENDIF VER2_6}
  54645. Class Function TSP_UtilitiesEmailProperties.ExportPropertyName(Const AName : String) :String;
  54646. begin
  54647. Case AName of
  54648. '_To' : Result:='To';
  54649. else
  54650. Result:=Inherited ExportPropertyName(AName);
  54651. end;
  54652. end;
  54653. { --------------------------------------------------------------------
  54654. TSP_UtilitiesPrincipalInfo
  54655. --------------------------------------------------------------------}
  54656. Class Function TSP_UtilitiesPrincipalInfo.ObjectRestKind : String;
  54657. begin
  54658. Result:='PrincipalInfo';
  54659. end;
  54660. Procedure TSP_UtilitiesPrincipalInfo.SetDepartment(AIndex: Integer; const AValue: string);
  54661. begin
  54662. If (FDepartment=AValue) then exit;
  54663. FDepartment:=AValue;
  54664. MarkPropertyChanged(AIndex);
  54665. end;
  54666. Procedure TSP_UtilitiesPrincipalInfo.SetDisplayName(AIndex: Integer; const AValue: string);
  54667. begin
  54668. If (FDisplayName=AValue) then exit;
  54669. FDisplayName:=AValue;
  54670. MarkPropertyChanged(AIndex);
  54671. end;
  54672. Procedure TSP_UtilitiesPrincipalInfo.SetEmail(AIndex: Integer; const AValue: string);
  54673. begin
  54674. If (FEmail=AValue) then exit;
  54675. FEmail:=AValue;
  54676. MarkPropertyChanged(AIndex);
  54677. end;
  54678. Procedure TSP_UtilitiesPrincipalInfo.SetJobTitle(AIndex: Integer; const AValue: string);
  54679. begin
  54680. If (FJobTitle=AValue) then exit;
  54681. FJobTitle:=AValue;
  54682. MarkPropertyChanged(AIndex);
  54683. end;
  54684. Procedure TSP_UtilitiesPrincipalInfo.SetLoginName(AIndex: Integer; const AValue: string);
  54685. begin
  54686. If (FLoginName=AValue) then exit;
  54687. FLoginName:=AValue;
  54688. MarkPropertyChanged(AIndex);
  54689. end;
  54690. Procedure TSP_UtilitiesPrincipalInfo.SetMobile(AIndex: Integer; const AValue: string);
  54691. begin
  54692. If (FMobile=AValue) then exit;
  54693. FMobile:=AValue;
  54694. MarkPropertyChanged(AIndex);
  54695. end;
  54696. Procedure TSP_UtilitiesPrincipalInfo.SetPrincipalId(AIndex: Integer; const AValue: TInt32);
  54697. begin
  54698. If (FPrincipalId=AValue) then exit;
  54699. FPrincipalId:=AValue;
  54700. MarkPropertyChanged(AIndex);
  54701. end;
  54702. Procedure TSP_UtilitiesPrincipalInfo.SetPrincipalType(AIndex: Integer; const AValue: TInt32);
  54703. begin
  54704. If (FPrincipalType=AValue) then exit;
  54705. FPrincipalType:=AValue;
  54706. MarkPropertyChanged(AIndex);
  54707. end;
  54708. Procedure TSP_UtilitiesPrincipalInfo.SetSIPAddress(AIndex: Integer; const AValue: string);
  54709. begin
  54710. If (FSIPAddress=AValue) then exit;
  54711. FSIPAddress:=AValue;
  54712. MarkPropertyChanged(AIndex);
  54713. end;
  54714. { --------------------------------------------------------------------
  54715. TSP_UtilitiesWikiPageCreationInformation
  54716. --------------------------------------------------------------------}
  54717. Class Function TSP_UtilitiesWikiPageCreationInformation.ObjectRestKind : String;
  54718. begin
  54719. Result:='WikiPageCreationInformation';
  54720. end;
  54721. Procedure TSP_UtilitiesWikiPageCreationInformation.SetServerRelativeUrl(AIndex: Integer; const AValue: string);
  54722. begin
  54723. If (FServerRelativeUrl=AValue) then exit;
  54724. FServerRelativeUrl:=AValue;
  54725. MarkPropertyChanged(AIndex);
  54726. end;
  54727. Procedure TSP_UtilitiesWikiPageCreationInformation.SetWikiHtmlContent(AIndex: Integer; const AValue: string);
  54728. begin
  54729. If (FWikiHtmlContent=AValue) then exit;
  54730. FWikiHtmlContent:=AValue;
  54731. MarkPropertyChanged(AIndex);
  54732. end;
  54733. { --------------------------------------------------------------------
  54734. TSP_UtilitiesMarketplaceUtilities
  54735. --------------------------------------------------------------------}
  54736. Class Function TSP_UtilitiesMarketplaceUtilities.ObjectRestKind : String;
  54737. begin
  54738. Result:='MarketplaceUtilities';
  54739. end;
  54740. Procedure TSP_UtilitiesMarketplaceUtilities.SetId4a81de82eeb94d6080ea5bf63e27023a(AIndex: Integer; const AValue: string);
  54741. begin
  54742. If (FId4a81de82eeb94d6080ea5bf63e27023a=AValue) then exit;
  54743. FId4a81de82eeb94d6080ea5bf63e27023a:=AValue;
  54744. MarkPropertyChanged(AIndex);
  54745. end;
  54746. Function TSP_UtilitiesMarketplaceUtilities.KeyAsURLPart : string;
  54747. begin
  54748. Result:=TODataObject.MakeKeyString(Id4a81de82eeb94d6080ea5bf63e27023a);
  54749. end;
  54750. { --------------------------------------------------------------------
  54751. TSP_UtilitiesUtility
  54752. --------------------------------------------------------------------}
  54753. Class Function TSP_UtilitiesUtility.ObjectRestKind : String;
  54754. begin
  54755. Result:='Utility';
  54756. end;
  54757. Procedure TSP_UtilitiesUtility.SetId4a81de82eeb94d6080ea5bf63e27023a(AIndex: Integer; const AValue: string);
  54758. begin
  54759. If (FId4a81de82eeb94d6080ea5bf63e27023a=AValue) then exit;
  54760. FId4a81de82eeb94d6080ea5bf63e27023a:=AValue;
  54761. MarkPropertyChanged(AIndex);
  54762. end;
  54763. Function TSP_UtilitiesUtility.KeyAsURLPart : string;
  54764. begin
  54765. Result:=TODataObject.MakeKeyString(Id4a81de82eeb94d6080ea5bf63e27023a);
  54766. end;
  54767. { --------------------------------------------------------------------
  54768. TSP_WebPartsTileData
  54769. --------------------------------------------------------------------}
  54770. Class Function TSP_WebPartsTileData.ObjectRestKind : String;
  54771. begin
  54772. Result:='TileData';
  54773. end;
  54774. Procedure TSP_WebPartsTileData.SetBackgroundCollageImageLocations(AIndex: Integer; const AValue: TStringArray);
  54775. begin
  54776. If (FBackgroundCollageImageLocations=AValue) then exit;
  54777. FBackgroundCollageImageLocations:=AValue;
  54778. MarkPropertyChanged(AIndex);
  54779. end;
  54780. Procedure TSP_WebPartsTileData.SetBackgroundImageLocation(AIndex: Integer; const AValue: string);
  54781. begin
  54782. If (FBackgroundImageLocation=AValue) then exit;
  54783. FBackgroundImageLocation:=AValue;
  54784. MarkPropertyChanged(AIndex);
  54785. end;
  54786. Procedure TSP_WebPartsTileData.SetBackgroundImageRendersAsIcon(AIndex: Integer; const AValue: boolean);
  54787. begin
  54788. If (FBackgroundImageRendersAsIcon=AValue) then exit;
  54789. FBackgroundImageRendersAsIcon:=AValue;
  54790. MarkPropertyChanged(AIndex);
  54791. end;
  54792. Procedure TSP_WebPartsTileData.SetBodyText(AIndex: Integer; const AValue: string);
  54793. begin
  54794. If (FBodyText=AValue) then exit;
  54795. FBodyText:=AValue;
  54796. MarkPropertyChanged(AIndex);
  54797. end;
  54798. Procedure TSP_WebPartsTileData.SetDescription(AIndex: Integer; const AValue: string);
  54799. begin
  54800. If (FDescription=AValue) then exit;
  54801. FDescription:=AValue;
  54802. MarkPropertyChanged(AIndex);
  54803. end;
  54804. Procedure TSP_WebPartsTileData.SetHoverDisabled(AIndex: Integer; const AValue: boolean);
  54805. begin
  54806. If (FHoverDisabled=AValue) then exit;
  54807. FHoverDisabled:=AValue;
  54808. MarkPropertyChanged(AIndex);
  54809. end;
  54810. Procedure TSP_WebPartsTileData.SetID(AIndex: Integer; const AValue: TInt32);
  54811. begin
  54812. If (FID=AValue) then exit;
  54813. FID:=AValue;
  54814. MarkPropertyChanged(AIndex);
  54815. end;
  54816. Procedure TSP_WebPartsTileData.SetIsWide(AIndex: Integer; const AValue: boolean);
  54817. begin
  54818. If (FIsWide=AValue) then exit;
  54819. FIsWide:=AValue;
  54820. MarkPropertyChanged(AIndex);
  54821. end;
  54822. Procedure TSP_WebPartsTileData.SetLinkLocation(AIndex: Integer; const AValue: string);
  54823. begin
  54824. If (FLinkLocation=AValue) then exit;
  54825. FLinkLocation:=AValue;
  54826. MarkPropertyChanged(AIndex);
  54827. end;
  54828. Procedure TSP_WebPartsTileData.SetTileOrder(AIndex: Integer; const AValue: TInt32);
  54829. begin
  54830. If (FTileOrder=AValue) then exit;
  54831. FTileOrder:=AValue;
  54832. MarkPropertyChanged(AIndex);
  54833. end;
  54834. Procedure TSP_WebPartsTileData.SetTitle(AIndex: Integer; const AValue: string);
  54835. begin
  54836. If (FTitle=AValue) then exit;
  54837. FTitle:=AValue;
  54838. MarkPropertyChanged(AIndex);
  54839. end;
  54840. Procedure TSP_WebPartsTileData.SetTransparentOverlay(AIndex: Integer; const AValue: boolean);
  54841. begin
  54842. If (FTransparentOverlay=AValue) then exit;
  54843. FTransparentOverlay:=AValue;
  54844. MarkPropertyChanged(AIndex);
  54845. end;
  54846. {$IFDEF VER2_6}
  54847. Procedure TSP_WebPartsTileData.SetArrayLength(const AName: String; ALength: Longint);
  54848. begin
  54849. Case aName of
  54850. 'backgroundcollageimagelocations' : SetLength(FBackgroundCollageImageLocations,aLength);
  54851. else
  54852. inherited SetArrayLength(aName,ALength);
  54853. end;
  54854. end;
  54855. {$ENDIF VER2_6}
  54856. { --------------------------------------------------------------------
  54857. TSP_WebPartsLimitedWebPartManager
  54858. --------------------------------------------------------------------}
  54859. Class Function TSP_WebPartsLimitedWebPartManager.ObjectRestKind : String;
  54860. begin
  54861. Result:='LimitedWebPartManager';
  54862. end;
  54863. Procedure TSP_WebPartsLimitedWebPartManager.SetHasPersonalizedParts(AIndex: Integer; const AValue: boolean);
  54864. begin
  54865. If (FHasPersonalizedParts=AValue) then exit;
  54866. FHasPersonalizedParts:=AValue;
  54867. MarkPropertyChanged(AIndex);
  54868. end;
  54869. Procedure TSP_WebPartsLimitedWebPartManager.SetScope(AIndex: Integer; const AValue: TInt32);
  54870. begin
  54871. If (FScope=AValue) then exit;
  54872. FScope:=AValue;
  54873. MarkPropertyChanged(AIndex);
  54874. end;
  54875. Function TSP_WebPartsLimitedWebPartManager.KeyAsURLPart : string;
  54876. begin
  54877. Result:=BoolToStr(HasPersonalizedParts,'true','false');
  54878. end;
  54879. Function TSP_WebPartsLimitedWebPartManager.WebParts(AService: TODataService) : TSP_WebPartsWebPartDefinition;
  54880. begin
  54881. Result:=TSP_WebPartsWebPartDefinition(GetContainedSingleTon(AService,'WebParts', TSP_WebPartsWebPartDefinition));
  54882. end;
  54883. { --------------------------------------------------------------------
  54884. TSP_WebPartsWebPartDefinition
  54885. --------------------------------------------------------------------}
  54886. Class Function TSP_WebPartsWebPartDefinition.ObjectRestKind : String;
  54887. begin
  54888. Result:='WebPartDefinition';
  54889. end;
  54890. Procedure TSP_WebPartsWebPartDefinition.SetId(AIndex: Integer; const AValue: TGUIDString);
  54891. begin
  54892. If (FId=AValue) then exit;
  54893. FId:=AValue;
  54894. MarkPropertyChanged(AIndex);
  54895. end;
  54896. Function TSP_WebPartsWebPartDefinition.KeyAsURLPart : string;
  54897. begin
  54898. Result:=TODataObject.MakeKeyString(Id);
  54899. end;
  54900. Function TSP_WebPartsWebPartDefinition.WebPart(AService: TODataService) : TSP_WebPartsWebPart;
  54901. begin
  54902. Result:=TSP_WebPartsWebPart(GetContainedSingleTon(AService,'WebPart', TSP_WebPartsWebPart));
  54903. end;
  54904. { --------------------------------------------------------------------
  54905. TSP_WebPartsWebPart
  54906. --------------------------------------------------------------------}
  54907. Class Function TSP_WebPartsWebPart.ObjectRestKind : String;
  54908. begin
  54909. Result:='WebPart';
  54910. end;
  54911. Procedure TSP_WebPartsWebPart.SetHidden(AIndex: Integer; const AValue: boolean);
  54912. begin
  54913. If (FHidden=AValue) then exit;
  54914. FHidden:=AValue;
  54915. MarkPropertyChanged(AIndex);
  54916. end;
  54917. Procedure TSP_WebPartsWebPart.SetIsClosed(AIndex: Integer; const AValue: boolean);
  54918. begin
  54919. If (FIsClosed=AValue) then exit;
  54920. FIsClosed:=AValue;
  54921. MarkPropertyChanged(AIndex);
  54922. end;
  54923. Procedure TSP_WebPartsWebPart.SetSubtitle(AIndex: Integer; const AValue: string);
  54924. begin
  54925. If (FSubtitle=AValue) then exit;
  54926. FSubtitle:=AValue;
  54927. MarkPropertyChanged(AIndex);
  54928. end;
  54929. Procedure TSP_WebPartsWebPart.SetTitle(AIndex: Integer; const AValue: string);
  54930. begin
  54931. If (FTitle=AValue) then exit;
  54932. FTitle:=AValue;
  54933. MarkPropertyChanged(AIndex);
  54934. end;
  54935. Procedure TSP_WebPartsWebPart.SetTitleUrl(AIndex: Integer; const AValue: string);
  54936. begin
  54937. If (FTitleUrl=AValue) then exit;
  54938. FTitleUrl:=AValue;
  54939. MarkPropertyChanged(AIndex);
  54940. end;
  54941. Procedure TSP_WebPartsWebPart.SetZoneIndex(AIndex: Integer; const AValue: TInt32);
  54942. begin
  54943. If (FZoneIndex=AValue) then exit;
  54944. FZoneIndex:=AValue;
  54945. MarkPropertyChanged(AIndex);
  54946. end;
  54947. Function TSP_WebPartsWebPart.KeyAsURLPart : string;
  54948. begin
  54949. Result:=BoolToStr(Hidden,'true','false');
  54950. end;
  54951. Function TSP_WebPartsWebPart.Properties(AService: TODataService) : TSPPropertyValues;
  54952. begin
  54953. Result:=TSPPropertyValues(GetContainedSingleTon(AService,'Properties', TSPPropertyValues));
  54954. end;
  54955. { --------------------------------------------------------------------
  54956. TSP_WorkflowWorkflowAssociationCreationInformation
  54957. --------------------------------------------------------------------}
  54958. Class Function TSP_WorkflowWorkflowAssociationCreationInformation.ObjectRestKind : String;
  54959. begin
  54960. Result:='WorkflowAssociationCreationInformation';
  54961. end;
  54962. Procedure TSP_WorkflowWorkflowAssociationCreationInformation.SetContentTypeAssociationHistoryListName(AIndex: Integer; const AValue: string);
  54963. begin
  54964. If (FContentTypeAssociationHistoryListName=AValue) then exit;
  54965. FContentTypeAssociationHistoryListName:=AValue;
  54966. MarkPropertyChanged(AIndex);
  54967. end;
  54968. Procedure TSP_WorkflowWorkflowAssociationCreationInformation.SetContentTypeAssociationTaskListName(AIndex: Integer; const AValue: string);
  54969. begin
  54970. If (FContentTypeAssociationTaskListName=AValue) then exit;
  54971. FContentTypeAssociationTaskListName:=AValue;
  54972. MarkPropertyChanged(AIndex);
  54973. end;
  54974. Procedure TSP_WorkflowWorkflowAssociationCreationInformation.SetName(AIndex: Integer; const AValue: string);
  54975. begin
  54976. If (FName=AValue) then exit;
  54977. FName:=AValue;
  54978. MarkPropertyChanged(AIndex);
  54979. end;
  54980. { --------------------------------------------------------------------
  54981. TSP_WorkflowWorkflowAssociation
  54982. --------------------------------------------------------------------}
  54983. Class Function TSP_WorkflowWorkflowAssociation.ObjectRestKind : String;
  54984. begin
  54985. Result:='WorkflowAssociation';
  54986. end;
  54987. Procedure TSP_WorkflowWorkflowAssociation.SetAllowManual(AIndex: Integer; const AValue: boolean);
  54988. begin
  54989. If (FAllowManual=AValue) then exit;
  54990. FAllowManual:=AValue;
  54991. MarkPropertyChanged(AIndex);
  54992. end;
  54993. Procedure TSP_WorkflowWorkflowAssociation.SetAssociationData(AIndex: Integer; const AValue: string);
  54994. begin
  54995. If (FAssociationData=AValue) then exit;
  54996. FAssociationData:=AValue;
  54997. MarkPropertyChanged(AIndex);
  54998. end;
  54999. Procedure TSP_WorkflowWorkflowAssociation.SetAutoStartChange(AIndex: Integer; const AValue: boolean);
  55000. begin
  55001. If (FAutoStartChange=AValue) then exit;
  55002. FAutoStartChange:=AValue;
  55003. MarkPropertyChanged(AIndex);
  55004. end;
  55005. Procedure TSP_WorkflowWorkflowAssociation.SetAutoStartCreate(AIndex: Integer; const AValue: boolean);
  55006. begin
  55007. If (FAutoStartCreate=AValue) then exit;
  55008. FAutoStartCreate:=AValue;
  55009. MarkPropertyChanged(AIndex);
  55010. end;
  55011. Procedure TSP_WorkflowWorkflowAssociation.SetBaseId(AIndex: Integer; const AValue: TGUIDString);
  55012. begin
  55013. If (FBaseId=AValue) then exit;
  55014. FBaseId:=AValue;
  55015. MarkPropertyChanged(AIndex);
  55016. end;
  55017. Procedure TSP_WorkflowWorkflowAssociation.SetCreated(AIndex: Integer; const AValue: TDateTime);
  55018. begin
  55019. If (FCreated=AValue) then exit;
  55020. FCreated:=AValue;
  55021. MarkPropertyChanged(AIndex);
  55022. end;
  55023. Procedure TSP_WorkflowWorkflowAssociation.SetDescription(AIndex: Integer; const AValue: string);
  55024. begin
  55025. If (FDescription=AValue) then exit;
  55026. FDescription:=AValue;
  55027. MarkPropertyChanged(AIndex);
  55028. end;
  55029. Procedure TSP_WorkflowWorkflowAssociation.SetEnabled(AIndex: Integer; const AValue: boolean);
  55030. begin
  55031. If (FEnabled=AValue) then exit;
  55032. FEnabled:=AValue;
  55033. MarkPropertyChanged(AIndex);
  55034. end;
  55035. Procedure TSP_WorkflowWorkflowAssociation.SetHistoryListTitle(AIndex: Integer; const AValue: string);
  55036. begin
  55037. If (FHistoryListTitle=AValue) then exit;
  55038. FHistoryListTitle:=AValue;
  55039. MarkPropertyChanged(AIndex);
  55040. end;
  55041. Procedure TSP_WorkflowWorkflowAssociation.SetId(AIndex: Integer; const AValue: TGUIDString);
  55042. begin
  55043. If (FId=AValue) then exit;
  55044. FId:=AValue;
  55045. MarkPropertyChanged(AIndex);
  55046. end;
  55047. Procedure TSP_WorkflowWorkflowAssociation.SetInstantiationUrl(AIndex: Integer; const AValue: string);
  55048. begin
  55049. If (FInstantiationUrl=AValue) then exit;
  55050. FInstantiationUrl:=AValue;
  55051. MarkPropertyChanged(AIndex);
  55052. end;
  55053. Procedure TSP_WorkflowWorkflowAssociation.SetInternalName(AIndex: Integer; const AValue: string);
  55054. begin
  55055. If (FInternalName=AValue) then exit;
  55056. FInternalName:=AValue;
  55057. MarkPropertyChanged(AIndex);
  55058. end;
  55059. Procedure TSP_WorkflowWorkflowAssociation.SetIsDeclarative(AIndex: Integer; const AValue: boolean);
  55060. begin
  55061. If (FIsDeclarative=AValue) then exit;
  55062. FIsDeclarative:=AValue;
  55063. MarkPropertyChanged(AIndex);
  55064. end;
  55065. Procedure TSP_WorkflowWorkflowAssociation.SetListId(AIndex: Integer; const AValue: TGUIDString);
  55066. begin
  55067. If (FListId=AValue) then exit;
  55068. FListId:=AValue;
  55069. MarkPropertyChanged(AIndex);
  55070. end;
  55071. Procedure TSP_WorkflowWorkflowAssociation.SetModified(AIndex: Integer; const AValue: TDateTime);
  55072. begin
  55073. If (FModified=AValue) then exit;
  55074. FModified:=AValue;
  55075. MarkPropertyChanged(AIndex);
  55076. end;
  55077. Procedure TSP_WorkflowWorkflowAssociation.SetName(AIndex: Integer; const AValue: string);
  55078. begin
  55079. If (FName=AValue) then exit;
  55080. FName:=AValue;
  55081. MarkPropertyChanged(AIndex);
  55082. end;
  55083. Procedure TSP_WorkflowWorkflowAssociation.SetTaskListTitle(AIndex: Integer; const AValue: string);
  55084. begin
  55085. If (FTaskListTitle=AValue) then exit;
  55086. FTaskListTitle:=AValue;
  55087. MarkPropertyChanged(AIndex);
  55088. end;
  55089. Procedure TSP_WorkflowWorkflowAssociation.SetWebId(AIndex: Integer; const AValue: TGUIDString);
  55090. begin
  55091. If (FWebId=AValue) then exit;
  55092. FWebId:=AValue;
  55093. MarkPropertyChanged(AIndex);
  55094. end;
  55095. Function TSP_WorkflowWorkflowAssociation.KeyAsURLPart : string;
  55096. begin
  55097. Result:=TODataObject.MakeKeyString(Id);
  55098. end;
  55099. { --------------------------------------------------------------------
  55100. TSP_WorkflowWorkflowTemplate
  55101. --------------------------------------------------------------------}
  55102. Class Function TSP_WorkflowWorkflowTemplate.ObjectRestKind : String;
  55103. begin
  55104. Result:='WorkflowTemplate';
  55105. end;
  55106. Procedure TSP_WorkflowWorkflowTemplate.SetAllowManual(AIndex: Integer; const AValue: boolean);
  55107. begin
  55108. If (FAllowManual=AValue) then exit;
  55109. FAllowManual:=AValue;
  55110. MarkPropertyChanged(AIndex);
  55111. end;
  55112. Procedure TSP_WorkflowWorkflowTemplate.SetAssociationUrl(AIndex: Integer; const AValue: string);
  55113. begin
  55114. If (FAssociationUrl=AValue) then exit;
  55115. FAssociationUrl:=AValue;
  55116. MarkPropertyChanged(AIndex);
  55117. end;
  55118. Procedure TSP_WorkflowWorkflowTemplate.SetAutoStartChange(AIndex: Integer; const AValue: boolean);
  55119. begin
  55120. If (FAutoStartChange=AValue) then exit;
  55121. FAutoStartChange:=AValue;
  55122. MarkPropertyChanged(AIndex);
  55123. end;
  55124. Procedure TSP_WorkflowWorkflowTemplate.SetAutoStartCreate(AIndex: Integer; const AValue: boolean);
  55125. begin
  55126. If (FAutoStartCreate=AValue) then exit;
  55127. FAutoStartCreate:=AValue;
  55128. MarkPropertyChanged(AIndex);
  55129. end;
  55130. Procedure TSP_WorkflowWorkflowTemplate.SetDescription(AIndex: Integer; const AValue: string);
  55131. begin
  55132. If (FDescription=AValue) then exit;
  55133. FDescription:=AValue;
  55134. MarkPropertyChanged(AIndex);
  55135. end;
  55136. Procedure TSP_WorkflowWorkflowTemplate.SetId(AIndex: Integer; const AValue: TGUIDString);
  55137. begin
  55138. If (FId=AValue) then exit;
  55139. FId:=AValue;
  55140. MarkPropertyChanged(AIndex);
  55141. end;
  55142. Procedure TSP_WorkflowWorkflowTemplate.SetIsDeclarative(AIndex: Integer; const AValue: boolean);
  55143. begin
  55144. If (FIsDeclarative=AValue) then exit;
  55145. FIsDeclarative:=AValue;
  55146. MarkPropertyChanged(AIndex);
  55147. end;
  55148. Procedure TSP_WorkflowWorkflowTemplate.SetName(AIndex: Integer; const AValue: string);
  55149. begin
  55150. If (FName=AValue) then exit;
  55151. FName:=AValue;
  55152. MarkPropertyChanged(AIndex);
  55153. end;
  55154. Procedure TSP_WorkflowWorkflowTemplate.SetPermissionsManual(AIndex: Integer; const AValue: TSPBasePermissions);
  55155. begin
  55156. If (FPermissionsManual=AValue) then exit;
  55157. FPermissionsManual:=AValue;
  55158. MarkPropertyChanged(AIndex);
  55159. end;
  55160. Function TSP_WorkflowWorkflowTemplate.KeyAsURLPart : string;
  55161. begin
  55162. Result:=TODataObject.MakeKeyString(Id);
  55163. end;
  55164. { --------------------------------------------------------------------
  55165. TSP_WorkflowSPWorkflow
  55166. --------------------------------------------------------------------}
  55167. Class Function TSP_WorkflowSPWorkflow.ObjectRestKind : String;
  55168. begin
  55169. Result:='SPWorkflow';
  55170. end;
  55171. Procedure TSP_WorkflowSPWorkflow.SetAssociationId(AIndex: Integer; const AValue: TGUIDString);
  55172. begin
  55173. If (FAssociationId=AValue) then exit;
  55174. FAssociationId:=AValue;
  55175. MarkPropertyChanged(AIndex);
  55176. end;
  55177. Procedure TSP_WorkflowSPWorkflow.SetInstanceId(AIndex: Integer; const AValue: TGUIDString);
  55178. begin
  55179. If (FInstanceId=AValue) then exit;
  55180. FInstanceId:=AValue;
  55181. MarkPropertyChanged(AIndex);
  55182. end;
  55183. Procedure TSP_WorkflowSPWorkflow.SetIsCompleted(AIndex: Integer; const AValue: boolean);
  55184. begin
  55185. If (FIsCompleted=AValue) then exit;
  55186. FIsCompleted:=AValue;
  55187. MarkPropertyChanged(AIndex);
  55188. end;
  55189. Procedure TSP_WorkflowSPWorkflow.SetStatusText(AIndex: Integer; const AValue: string);
  55190. begin
  55191. If (FStatusText=AValue) then exit;
  55192. FStatusText:=AValue;
  55193. MarkPropertyChanged(AIndex);
  55194. end;
  55195. Function TSP_WorkflowSPWorkflow.KeyAsURLPart : string;
  55196. begin
  55197. Result:=TODataObject.MakeKeyString(AssociationId);
  55198. end;
  55199. { --------------------------------------------------------------------
  55200. TSP_WorkflowSPWorkflowManager
  55201. --------------------------------------------------------------------}
  55202. Class Function TSP_WorkflowSPWorkflowManager.ObjectRestKind : String;
  55203. begin
  55204. Result:='SPWorkflowManager';
  55205. end;
  55206. Procedure TSP_WorkflowSPWorkflowManager.SetId4a81de82eeb94d6080ea5bf63e27023a(AIndex: Integer; const AValue: string);
  55207. begin
  55208. If (FId4a81de82eeb94d6080ea5bf63e27023a=AValue) then exit;
  55209. FId4a81de82eeb94d6080ea5bf63e27023a:=AValue;
  55210. MarkPropertyChanged(AIndex);
  55211. end;
  55212. Function TSP_WorkflowSPWorkflowManager.KeyAsURLPart : string;
  55213. begin
  55214. Result:=TODataObject.MakeKeyString(Id4a81de82eeb94d6080ea5bf63e27023a);
  55215. end;
  55216. { --------------------------------------------------------------------
  55217. TSP_WorkflowSPWorkflowTask
  55218. --------------------------------------------------------------------}
  55219. Class Function TSP_WorkflowSPWorkflowTask.ObjectRestKind : String;
  55220. begin
  55221. Result:='SPWorkflowTask';
  55222. end;
  55223. { --------------------------------------------------------------------
  55224. TSP_SharingUserRoleAssignment
  55225. --------------------------------------------------------------------}
  55226. Class Function TSP_SharingUserRoleAssignment.ObjectRestKind : String;
  55227. begin
  55228. Result:='UserRoleAssignment';
  55229. end;
  55230. Procedure TSP_SharingUserRoleAssignment.SetRole(AIndex: Integer; const AValue: TInt32);
  55231. begin
  55232. If (FRole=AValue) then exit;
  55233. FRole:=AValue;
  55234. MarkPropertyChanged(AIndex);
  55235. end;
  55236. Procedure TSP_SharingUserRoleAssignment.SetUserId(AIndex: Integer; const AValue: string);
  55237. begin
  55238. If (FUserId=AValue) then exit;
  55239. FUserId:=AValue;
  55240. MarkPropertyChanged(AIndex);
  55241. end;
  55242. { --------------------------------------------------------------------
  55243. TSP_SharingUserSharingResult
  55244. --------------------------------------------------------------------}
  55245. Class Function TSP_SharingUserSharingResult.ObjectRestKind : String;
  55246. begin
  55247. Result:='UserSharingResult';
  55248. end;
  55249. Procedure TSP_SharingUserSharingResult.SetAllowedRoles(AIndex: Integer; const AValue: TInt32Array);
  55250. begin
  55251. If (FAllowedRoles=AValue) then exit;
  55252. FAllowedRoles:=AValue;
  55253. MarkPropertyChanged(AIndex);
  55254. end;
  55255. Procedure TSP_SharingUserSharingResult.SetCurrentRole(AIndex: Integer; const AValue: TInt32);
  55256. begin
  55257. If (FCurrentRole=AValue) then exit;
  55258. FCurrentRole:=AValue;
  55259. MarkPropertyChanged(AIndex);
  55260. end;
  55261. Procedure TSP_SharingUserSharingResult.SetDisplayName(AIndex: Integer; const AValue: string);
  55262. begin
  55263. If (FDisplayName=AValue) then exit;
  55264. FDisplayName:=AValue;
  55265. MarkPropertyChanged(AIndex);
  55266. end;
  55267. Procedure TSP_SharingUserSharingResult.SetEmail(AIndex: Integer; const AValue: string);
  55268. begin
  55269. If (FEmail=AValue) then exit;
  55270. FEmail:=AValue;
  55271. MarkPropertyChanged(AIndex);
  55272. end;
  55273. Procedure TSP_SharingUserSharingResult.SetInvitationLink(AIndex: Integer; const AValue: string);
  55274. begin
  55275. If (FInvitationLink=AValue) then exit;
  55276. FInvitationLink:=AValue;
  55277. MarkPropertyChanged(AIndex);
  55278. end;
  55279. Procedure TSP_SharingUserSharingResult.SetIsUserKnown(AIndex: Integer; const AValue: boolean);
  55280. begin
  55281. If (FIsUserKnown=AValue) then exit;
  55282. FIsUserKnown:=AValue;
  55283. MarkPropertyChanged(AIndex);
  55284. end;
  55285. Procedure TSP_SharingUserSharingResult.SetMessage(AIndex: Integer; const AValue: string);
  55286. begin
  55287. If (FMessage=AValue) then exit;
  55288. FMessage:=AValue;
  55289. MarkPropertyChanged(AIndex);
  55290. end;
  55291. Procedure TSP_SharingUserSharingResult.SetStatus(AIndex: Integer; const AValue: boolean);
  55292. begin
  55293. If (FStatus=AValue) then exit;
  55294. FStatus:=AValue;
  55295. MarkPropertyChanged(AIndex);
  55296. end;
  55297. Procedure TSP_SharingUserSharingResult.SetUser(AIndex: Integer; const AValue: string);
  55298. begin
  55299. If (FUser=AValue) then exit;
  55300. FUser:=AValue;
  55301. MarkPropertyChanged(AIndex);
  55302. end;
  55303. {$IFDEF VER2_6}
  55304. Procedure TSP_SharingUserSharingResult.SetArrayLength(const AName: String; ALength: Longint);
  55305. begin
  55306. Case aName of
  55307. 'allowedroles' : SetLength(FAllowedRoles,aLength);
  55308. else
  55309. inherited SetArrayLength(aName,ALength);
  55310. end;
  55311. end;
  55312. {$ENDIF VER2_6}
  55313. { --------------------------------------------------------------------
  55314. TSP_SharingDocumentSharingManager
  55315. --------------------------------------------------------------------}
  55316. Class Function TSP_SharingDocumentSharingManager.ObjectRestKind : String;
  55317. begin
  55318. Result:='DocumentSharingManager';
  55319. end;
  55320. Procedure TSP_SharingDocumentSharingManager.SetId4a81de82eeb94d6080ea5bf63e27023a(AIndex: Integer; const AValue: string);
  55321. begin
  55322. If (FId4a81de82eeb94d6080ea5bf63e27023a=AValue) then exit;
  55323. FId4a81de82eeb94d6080ea5bf63e27023a:=AValue;
  55324. MarkPropertyChanged(AIndex);
  55325. end;
  55326. Function TSP_SharingDocumentSharingManager.KeyAsURLPart : string;
  55327. begin
  55328. Result:=TODataObject.MakeKeyString(Id4a81de82eeb94d6080ea5bf63e27023a);
  55329. end;
  55330. { --------------------------------------------------------------------
  55331. TSP_SharingWebSharingManager
  55332. --------------------------------------------------------------------}
  55333. Class Function TSP_SharingWebSharingManager.ObjectRestKind : String;
  55334. begin
  55335. Result:='WebSharingManager';
  55336. end;
  55337. Procedure TSP_SharingWebSharingManager.SetId4a81de82eeb94d6080ea5bf63e27023a(AIndex: Integer; const AValue: string);
  55338. begin
  55339. If (FId4a81de82eeb94d6080ea5bf63e27023a=AValue) then exit;
  55340. FId4a81de82eeb94d6080ea5bf63e27023a:=AValue;
  55341. MarkPropertyChanged(AIndex);
  55342. end;
  55343. Function TSP_SharingWebSharingManager.KeyAsURLPart : string;
  55344. begin
  55345. Result:=TODataObject.MakeKeyString(Id4a81de82eeb94d6080ea5bf63e27023a);
  55346. end;
  55347. { --------------------------------------------------------------------
  55348. TSP_TaxonomyTaxonomyFieldValue
  55349. --------------------------------------------------------------------}
  55350. Class Function TSP_TaxonomyTaxonomyFieldValue.ObjectRestKind : String;
  55351. begin
  55352. Result:='TaxonomyFieldValue';
  55353. end;
  55354. Procedure TSP_TaxonomyTaxonomyFieldValue.Set_Label(AIndex: Integer; const AValue: string);
  55355. begin
  55356. If (F_Label=AValue) then exit;
  55357. F_Label:=AValue;
  55358. MarkPropertyChanged(AIndex);
  55359. end;
  55360. Procedure TSP_TaxonomyTaxonomyFieldValue.SetTermGuid(AIndex: Integer; const AValue: string);
  55361. begin
  55362. If (FTermGuid=AValue) then exit;
  55363. FTermGuid:=AValue;
  55364. MarkPropertyChanged(AIndex);
  55365. end;
  55366. Procedure TSP_TaxonomyTaxonomyFieldValue.SetWssId(AIndex: Integer; const AValue: TInt32);
  55367. begin
  55368. If (FWssId=AValue) then exit;
  55369. FWssId:=AValue;
  55370. MarkPropertyChanged(AIndex);
  55371. end;
  55372. Class Function TSP_TaxonomyTaxonomyFieldValue.ExportPropertyName(Const AName : String) :String;
  55373. begin
  55374. Case AName of
  55375. '_Label' : Result:='Label';
  55376. else
  55377. Result:=Inherited ExportPropertyName(AName);
  55378. end;
  55379. end;
  55380. { --------------------------------------------------------------------
  55381. TSP_TranslationTranslationItemInfo
  55382. --------------------------------------------------------------------}
  55383. Class Function TSP_TranslationTranslationItemInfo.ObjectRestKind : String;
  55384. begin
  55385. Result:='TranslationItemInfo';
  55386. end;
  55387. Procedure TSP_TranslationTranslationItemInfo.SetCanceled(AIndex: Integer; const AValue: boolean);
  55388. begin
  55389. If (FCanceled=AValue) then exit;
  55390. FCanceled:=AValue;
  55391. MarkPropertyChanged(AIndex);
  55392. end;
  55393. Procedure TSP_TranslationTranslationItemInfo.SetErrorMessage(AIndex: Integer; const AValue: string);
  55394. begin
  55395. If (FErrorMessage=AValue) then exit;
  55396. FErrorMessage:=AValue;
  55397. MarkPropertyChanged(AIndex);
  55398. end;
  55399. Procedure TSP_TranslationTranslationItemInfo.SetFailed(AIndex: Integer; const AValue: boolean);
  55400. begin
  55401. If (FFailed=AValue) then exit;
  55402. FFailed:=AValue;
  55403. MarkPropertyChanged(AIndex);
  55404. end;
  55405. Procedure TSP_TranslationTranslationItemInfo.SetInProgress(AIndex: Integer; const AValue: boolean);
  55406. begin
  55407. If (FInProgress=AValue) then exit;
  55408. FInProgress:=AValue;
  55409. MarkPropertyChanged(AIndex);
  55410. end;
  55411. Procedure TSP_TranslationTranslationItemInfo.SetInputFile(AIndex: Integer; const AValue: string);
  55412. begin
  55413. If (FInputFile=AValue) then exit;
  55414. FInputFile:=AValue;
  55415. MarkPropertyChanged(AIndex);
  55416. end;
  55417. Procedure TSP_TranslationTranslationItemInfo.SetNotStarted(AIndex: Integer; const AValue: boolean);
  55418. begin
  55419. If (FNotStarted=AValue) then exit;
  55420. FNotStarted:=AValue;
  55421. MarkPropertyChanged(AIndex);
  55422. end;
  55423. Procedure TSP_TranslationTranslationItemInfo.SetOutputFile(AIndex: Integer; const AValue: string);
  55424. begin
  55425. If (FOutputFile=AValue) then exit;
  55426. FOutputFile:=AValue;
  55427. MarkPropertyChanged(AIndex);
  55428. end;
  55429. Procedure TSP_TranslationTranslationItemInfo.Set_Result(AIndex: Integer; const AValue: TInt32);
  55430. begin
  55431. If (F_Result=AValue) then exit;
  55432. F_Result:=AValue;
  55433. MarkPropertyChanged(AIndex);
  55434. end;
  55435. Procedure TSP_TranslationTranslationItemInfo.SetSucceeded(AIndex: Integer; const AValue: boolean);
  55436. begin
  55437. If (FSucceeded=AValue) then exit;
  55438. FSucceeded:=AValue;
  55439. MarkPropertyChanged(AIndex);
  55440. end;
  55441. Procedure TSP_TranslationTranslationItemInfo.SetTranslationId(AIndex: Integer; const AValue: TGUIDString);
  55442. begin
  55443. If (FTranslationId=AValue) then exit;
  55444. FTranslationId:=AValue;
  55445. MarkPropertyChanged(AIndex);
  55446. end;
  55447. Class Function TSP_TranslationTranslationItemInfo.ExportPropertyName(Const AName : String) :String;
  55448. begin
  55449. Case AName of
  55450. '_Result' : Result:='Result';
  55451. else
  55452. Result:=Inherited ExportPropertyName(AName);
  55453. end;
  55454. end;
  55455. { --------------------------------------------------------------------
  55456. TSP_TranslationTranslationJobInfo
  55457. --------------------------------------------------------------------}
  55458. Class Function TSP_TranslationTranslationJobInfo.ObjectRestKind : String;
  55459. begin
  55460. Result:='TranslationJobInfo';
  55461. end;
  55462. Procedure TSP_TranslationTranslationJobInfo.SetCanceled(AIndex: Integer; const AValue: boolean);
  55463. begin
  55464. If (FCanceled=AValue) then exit;
  55465. FCanceled:=AValue;
  55466. MarkPropertyChanged(AIndex);
  55467. end;
  55468. Procedure TSP_TranslationTranslationJobInfo.SetCancelTime(AIndex: Integer; const AValue: TDateTime);
  55469. begin
  55470. If (FCancelTime=AValue) then exit;
  55471. FCancelTime:=AValue;
  55472. MarkPropertyChanged(AIndex);
  55473. end;
  55474. Procedure TSP_TranslationTranslationJobInfo.SetJobId(AIndex: Integer; const AValue: TGUIDString);
  55475. begin
  55476. If (FJobId=AValue) then exit;
  55477. FJobId:=AValue;
  55478. MarkPropertyChanged(AIndex);
  55479. end;
  55480. Procedure TSP_TranslationTranslationJobInfo.SetName(AIndex: Integer; const AValue: string);
  55481. begin
  55482. If (FName=AValue) then exit;
  55483. FName:=AValue;
  55484. MarkPropertyChanged(AIndex);
  55485. end;
  55486. Procedure TSP_TranslationTranslationJobInfo.SetPartiallySubmitted(AIndex: Integer; const AValue: boolean);
  55487. begin
  55488. If (FPartiallySubmitted=AValue) then exit;
  55489. FPartiallySubmitted:=AValue;
  55490. MarkPropertyChanged(AIndex);
  55491. end;
  55492. Procedure TSP_TranslationTranslationJobInfo.SetSubmittedTime(AIndex: Integer; const AValue: TDateTime);
  55493. begin
  55494. If (FSubmittedTime=AValue) then exit;
  55495. FSubmittedTime:=AValue;
  55496. MarkPropertyChanged(AIndex);
  55497. end;
  55498. { --------------------------------------------------------------------
  55499. TSP_TranslationSyncTranslator
  55500. --------------------------------------------------------------------}
  55501. Class Function TSP_TranslationSyncTranslator.ObjectRestKind : String;
  55502. begin
  55503. Result:='SyncTranslator';
  55504. end;
  55505. Procedure TSP_TranslationSyncTranslator.SetOutputSaveBehavior(AIndex: Integer; const AValue: TInt32);
  55506. begin
  55507. If (FOutputSaveBehavior=AValue) then exit;
  55508. FOutputSaveBehavior:=AValue;
  55509. MarkPropertyChanged(AIndex);
  55510. end;
  55511. Function TSP_TranslationSyncTranslator.KeyAsURLPart : string;
  55512. begin
  55513. Result:=IntToStr(OutputSaveBehavior);
  55514. end;
  55515. { --------------------------------------------------------------------
  55516. TSP_TranslationTranslationJob
  55517. --------------------------------------------------------------------}
  55518. Class Function TSP_TranslationTranslationJob.ObjectRestKind : String;
  55519. begin
  55520. Result:='TranslationJob';
  55521. end;
  55522. Procedure TSP_TranslationTranslationJob.SetJobId(AIndex: Integer; const AValue: TGUIDString);
  55523. begin
  55524. If (FJobId=AValue) then exit;
  55525. FJobId:=AValue;
  55526. MarkPropertyChanged(AIndex);
  55527. end;
  55528. Procedure TSP_TranslationTranslationJob.SetName(AIndex: Integer; const AValue: string);
  55529. begin
  55530. If (FName=AValue) then exit;
  55531. FName:=AValue;
  55532. MarkPropertyChanged(AIndex);
  55533. end;
  55534. Procedure TSP_TranslationTranslationJob.SetOutputSaveBehavior(AIndex: Integer; const AValue: TInt32);
  55535. begin
  55536. If (FOutputSaveBehavior=AValue) then exit;
  55537. FOutputSaveBehavior:=AValue;
  55538. MarkPropertyChanged(AIndex);
  55539. end;
  55540. Function TSP_TranslationTranslationJob.KeyAsURLPart : string;
  55541. begin
  55542. Result:=TODataObject.MakeKeyString(Name);
  55543. end;
  55544. { --------------------------------------------------------------------
  55545. TSP_TranslationTranslationJobStatus
  55546. --------------------------------------------------------------------}
  55547. Class Function TSP_TranslationTranslationJobStatus.ObjectRestKind : String;
  55548. begin
  55549. Result:='TranslationJobStatus';
  55550. end;
  55551. Procedure TSP_TranslationTranslationJobStatus.SetCanceled(AIndex: Integer; const AValue: TInt32);
  55552. begin
  55553. If (FCanceled=AValue) then exit;
  55554. FCanceled:=AValue;
  55555. MarkPropertyChanged(AIndex);
  55556. end;
  55557. Procedure TSP_TranslationTranslationJobStatus.SetCount(AIndex: Integer; const AValue: TInt32);
  55558. begin
  55559. If (FCount=AValue) then exit;
  55560. FCount:=AValue;
  55561. MarkPropertyChanged(AIndex);
  55562. end;
  55563. Procedure TSP_TranslationTranslationJobStatus.SetFailed(AIndex: Integer; const AValue: TInt32);
  55564. begin
  55565. If (FFailed=AValue) then exit;
  55566. FFailed:=AValue;
  55567. MarkPropertyChanged(AIndex);
  55568. end;
  55569. Procedure TSP_TranslationTranslationJobStatus.SetInProgress(AIndex: Integer; const AValue: TInt32);
  55570. begin
  55571. If (FInProgress=AValue) then exit;
  55572. FInProgress:=AValue;
  55573. MarkPropertyChanged(AIndex);
  55574. end;
  55575. Procedure TSP_TranslationTranslationJobStatus.SetName(AIndex: Integer; const AValue: string);
  55576. begin
  55577. If (FName=AValue) then exit;
  55578. FName:=AValue;
  55579. MarkPropertyChanged(AIndex);
  55580. end;
  55581. Procedure TSP_TranslationTranslationJobStatus.SetNotStarted(AIndex: Integer; const AValue: TInt32);
  55582. begin
  55583. If (FNotStarted=AValue) then exit;
  55584. FNotStarted:=AValue;
  55585. MarkPropertyChanged(AIndex);
  55586. end;
  55587. Procedure TSP_TranslationTranslationJobStatus.SetSucceeded(AIndex: Integer; const AValue: TInt32);
  55588. begin
  55589. If (FSucceeded=AValue) then exit;
  55590. FSucceeded:=AValue;
  55591. MarkPropertyChanged(AIndex);
  55592. end;
  55593. Function TSP_TranslationTranslationJobStatus.KeyAsURLPart : string;
  55594. begin
  55595. Result:=TODataObject.MakeKeyString(Name);
  55596. end;
  55597. { --------------------------------------------------------------------
  55598. TSP_TranslationVariationsTranslationTimerJob
  55599. --------------------------------------------------------------------}
  55600. Class Function TSP_TranslationVariationsTranslationTimerJob.ObjectRestKind : String;
  55601. begin
  55602. Result:='VariationsTranslationTimerJob';
  55603. end;
  55604. Procedure TSP_TranslationVariationsTranslationTimerJob.SetId4a81de82eeb94d6080ea5bf63e27023a(AIndex: Integer; const AValue: string);
  55605. begin
  55606. If (FId4a81de82eeb94d6080ea5bf63e27023a=AValue) then exit;
  55607. FId4a81de82eeb94d6080ea5bf63e27023a:=AValue;
  55608. MarkPropertyChanged(AIndex);
  55609. end;
  55610. Function TSP_TranslationVariationsTranslationTimerJob.KeyAsURLPart : string;
  55611. begin
  55612. Result:=TODataObject.MakeKeyString(Id4a81de82eeb94d6080ea5bf63e27023a);
  55613. end;
  55614. { --------------------------------------------------------------------
  55615. TMicrosoft_Online_SharePoint_TenantAdministrationSPOTenantWebTemplate
  55616. --------------------------------------------------------------------}
  55617. Class Function TMicrosoft_Online_SharePoint_TenantAdministrationSPOTenantWebTemplate.ObjectRestKind : String;
  55618. begin
  55619. Result:='SPOTenantWebTemplate';
  55620. end;
  55621. Procedure TMicrosoft_Online_SharePoint_TenantAdministrationSPOTenantWebTemplate.SetCompatibilityLevel(AIndex: Integer; const AValue: TInt32);
  55622. begin
  55623. If (FCompatibilityLevel=AValue) then exit;
  55624. FCompatibilityLevel:=AValue;
  55625. MarkPropertyChanged(AIndex);
  55626. end;
  55627. Procedure TMicrosoft_Online_SharePoint_TenantAdministrationSPOTenantWebTemplate.SetDescription(AIndex: Integer; const AValue: string);
  55628. begin
  55629. If (FDescription=AValue) then exit;
  55630. FDescription:=AValue;
  55631. MarkPropertyChanged(AIndex);
  55632. end;
  55633. Procedure TMicrosoft_Online_SharePoint_TenantAdministrationSPOTenantWebTemplate.SetDisplayCategory(AIndex: Integer; const AValue: string);
  55634. begin
  55635. If (FDisplayCategory=AValue) then exit;
  55636. FDisplayCategory:=AValue;
  55637. MarkPropertyChanged(AIndex);
  55638. end;
  55639. Procedure TMicrosoft_Online_SharePoint_TenantAdministrationSPOTenantWebTemplate.SetLcid(AIndex: Integer; const AValue: int64);
  55640. begin
  55641. If (FLcid=AValue) then exit;
  55642. FLcid:=AValue;
  55643. MarkPropertyChanged(AIndex);
  55644. end;
  55645. Procedure TMicrosoft_Online_SharePoint_TenantAdministrationSPOTenantWebTemplate.SetName(AIndex: Integer; const AValue: string);
  55646. begin
  55647. If (FName=AValue) then exit;
  55648. FName:=AValue;
  55649. MarkPropertyChanged(AIndex);
  55650. end;
  55651. Procedure TMicrosoft_Online_SharePoint_TenantAdministrationSPOTenantWebTemplate.SetTitle(AIndex: Integer; const AValue: string);
  55652. begin
  55653. If (FTitle=AValue) then exit;
  55654. FTitle:=AValue;
  55655. MarkPropertyChanged(AIndex);
  55656. end;
  55657. { --------------------------------------------------------------------
  55658. TMicrosoft_Online_SharePoint_TenantAdministrationSPOTenantWebTemplateCollection
  55659. --------------------------------------------------------------------}
  55660. Class Function TMicrosoft_Online_SharePoint_TenantAdministrationSPOTenantWebTemplateCollection.ObjectRestKind : String;
  55661. begin
  55662. Result:='SPOTenantWebTemplateCollection';
  55663. end;
  55664. Procedure TMicrosoft_Online_SharePoint_TenantAdministrationSPOTenantWebTemplateCollection.SetId4a81de82eeb94d6080ea5bf63e27023a(AIndex: Integer; const AValue: string);
  55665. begin
  55666. If (FId4a81de82eeb94d6080ea5bf63e27023a=AValue) then exit;
  55667. FId4a81de82eeb94d6080ea5bf63e27023a:=AValue;
  55668. MarkPropertyChanged(AIndex);
  55669. end;
  55670. Procedure TMicrosoft_Online_SharePoint_TenantAdministrationSPOTenantWebTemplateCollection.SetItems(AIndex: Integer; const AValue: TMicrosoft_Online_SharePoint_TenantAdministrationSPOTenantWebTemplateArray);
  55671. begin
  55672. If (FItems=AValue) then exit;
  55673. FItems:=AValue;
  55674. MarkPropertyChanged(AIndex);
  55675. end;
  55676. {$IFDEF VER2_6}
  55677. Procedure TMicrosoft_Online_SharePoint_TenantAdministrationSPOTenantWebTemplateCollection.SetArrayLength(const AName: String; ALength: Longint);
  55678. begin
  55679. Case aName of
  55680. 'items' : SetLength(FItems,aLength);
  55681. else
  55682. inherited SetArrayLength(aName,ALength);
  55683. end;
  55684. end;
  55685. {$ENDIF VER2_6}
  55686. Function TMicrosoft_Online_SharePoint_TenantAdministrationSPOTenantWebTemplateCollection.KeyAsURLPart : string;
  55687. begin
  55688. Result:=TODataObject.MakeKeyString(Id4a81de82eeb94d6080ea5bf63e27023a);
  55689. end;
  55690. { --------------------------------------------------------------------
  55691. TMicrosoft_Online_AppData_AccessAccessApp
  55692. --------------------------------------------------------------------}
  55693. Class Function TMicrosoft_Online_AppData_AccessAccessApp.ObjectRestKind : String;
  55694. begin
  55695. Result:='AccessApp';
  55696. end;
  55697. { --------------------------------------------------------------------
  55698. TSP_WorkManagement_OMBaseSession
  55699. --------------------------------------------------------------------}
  55700. Class Function TSP_WorkManagement_OMBaseSession.ObjectRestKind : String;
  55701. begin
  55702. Result:='BaseSession';
  55703. end;
  55704. Procedure TSP_WorkManagement_OMBaseSession.SetId4a81de82eeb94d6080ea5bf63e27023a(AIndex: Integer; const AValue: string);
  55705. begin
  55706. If (FId4a81de82eeb94d6080ea5bf63e27023a=AValue) then exit;
  55707. FId4a81de82eeb94d6080ea5bf63e27023a:=AValue;
  55708. MarkPropertyChanged(AIndex);
  55709. end;
  55710. Function TSP_WorkManagement_OMBaseSession.KeyAsURLPart : string;
  55711. begin
  55712. Result:=TODataObject.MakeKeyString(Id4a81de82eeb94d6080ea5bf63e27023a);
  55713. end;
  55714. { --------------------------------------------------------------------
  55715. TSP_WorkManagement_OMBooleanCriterion
  55716. --------------------------------------------------------------------}
  55717. Class Function TSP_WorkManagement_OMBooleanCriterion.ObjectRestKind : String;
  55718. begin
  55719. Result:='BooleanCriterion';
  55720. end;
  55721. Procedure TSP_WorkManagement_OMBooleanCriterion.SetCompareType(AIndex: Integer; const AValue: TInt32);
  55722. begin
  55723. If (FCompareType=AValue) then exit;
  55724. FCompareType:=AValue;
  55725. MarkPropertyChanged(AIndex);
  55726. end;
  55727. Function TSP_WorkManagement_OMBooleanCriterion.KeyAsURLPart : string;
  55728. begin
  55729. Result:=IntToStr(CompareType);
  55730. end;
  55731. { --------------------------------------------------------------------
  55732. TSP_WorkManagement_OMCalloutInfo
  55733. --------------------------------------------------------------------}
  55734. Class Function TSP_WorkManagement_OMCalloutInfo.ObjectRestKind : String;
  55735. begin
  55736. Result:='CalloutInfo';
  55737. end;
  55738. Procedure TSP_WorkManagement_OMCalloutInfo.SetContacts(AIndex: Integer; const AValue: TStringArray);
  55739. begin
  55740. If (FContacts=AValue) then exit;
  55741. FContacts:=AValue;
  55742. MarkPropertyChanged(AIndex);
  55743. end;
  55744. Procedure TSP_WorkManagement_OMCalloutInfo.SetDirectLinkTitle(AIndex: Integer; const AValue: string);
  55745. begin
  55746. If (FDirectLinkTitle=AValue) then exit;
  55747. FDirectLinkTitle:=AValue;
  55748. MarkPropertyChanged(AIndex);
  55749. end;
  55750. Procedure TSP_WorkManagement_OMCalloutInfo.SetDirectLinkUrl(AIndex: Integer; const AValue: string);
  55751. begin
  55752. If (FDirectLinkUrl=AValue) then exit;
  55753. FDirectLinkUrl:=AValue;
  55754. MarkPropertyChanged(AIndex);
  55755. end;
  55756. Procedure TSP_WorkManagement_OMCalloutInfo.SetHierarchy(AIndex: Integer; const AValue: TStringArray);
  55757. begin
  55758. If (FHierarchy=AValue) then exit;
  55759. FHierarchy:=AValue;
  55760. MarkPropertyChanged(AIndex);
  55761. end;
  55762. Procedure TSP_WorkManagement_OMCalloutInfo.SetPredecessors(AIndex: Integer; const AValue: TStringArray);
  55763. begin
  55764. If (FPredecessors=AValue) then exit;
  55765. FPredecessors:=AValue;
  55766. MarkPropertyChanged(AIndex);
  55767. end;
  55768. Procedure TSP_WorkManagement_OMCalloutInfo.SetSuccessors(AIndex: Integer; const AValue: TStringArray);
  55769. begin
  55770. If (FSuccessors=AValue) then exit;
  55771. FSuccessors:=AValue;
  55772. MarkPropertyChanged(AIndex);
  55773. end;
  55774. Procedure TSP_WorkManagement_OMCalloutInfo.SetTitle(AIndex: Integer; const AValue: string);
  55775. begin
  55776. If (FTitle=AValue) then exit;
  55777. FTitle:=AValue;
  55778. MarkPropertyChanged(AIndex);
  55779. end;
  55780. Procedure TSP_WorkManagement_OMCalloutInfo.SetUrl(AIndex: Integer; const AValue: string);
  55781. begin
  55782. If (FUrl=AValue) then exit;
  55783. FUrl:=AValue;
  55784. MarkPropertyChanged(AIndex);
  55785. end;
  55786. {$IFDEF VER2_6}
  55787. Procedure TSP_WorkManagement_OMCalloutInfo.SetArrayLength(const AName: String; ALength: Longint);
  55788. begin
  55789. Case aName of
  55790. 'contacts' : SetLength(FContacts,aLength);
  55791. 'hierarchy' : SetLength(FHierarchy,aLength);
  55792. 'predecessors' : SetLength(FPredecessors,aLength);
  55793. 'successors' : SetLength(FSuccessors,aLength);
  55794. else
  55795. inherited SetArrayLength(aName,ALength);
  55796. end;
  55797. end;
  55798. {$ENDIF VER2_6}
  55799. Function TSP_WorkManagement_OMCalloutInfo.KeyAsURLPart : string;
  55800. begin
  55801. Result:=TODataObject.MakeKeyString(DirectLinkTitle);
  55802. end;
  55803. { --------------------------------------------------------------------
  55804. TSP_WorkManagement_OMCreateRefreshJobResult
  55805. --------------------------------------------------------------------}
  55806. Class Function TSP_WorkManagement_OMCreateRefreshJobResult.ObjectRestKind : String;
  55807. begin
  55808. Result:='CreateRefreshJobResult';
  55809. end;
  55810. Procedure TSP_WorkManagement_OMCreateRefreshJobResult.SetCreatedJob(AIndex: Integer; const AValue: boolean);
  55811. begin
  55812. If (FCreatedJob=AValue) then exit;
  55813. FCreatedJob:=AValue;
  55814. MarkPropertyChanged(AIndex);
  55815. end;
  55816. Procedure TSP_WorkManagement_OMCreateRefreshJobResult.SetCurrentJobId(AIndex: Integer; const AValue: TInt32);
  55817. begin
  55818. If (FCurrentJobId=AValue) then exit;
  55819. FCurrentJobId:=AValue;
  55820. MarkPropertyChanged(AIndex);
  55821. end;
  55822. Procedure TSP_WorkManagement_OMCreateRefreshJobResult.SetEncounteredError(AIndex: Integer; const AValue: boolean);
  55823. begin
  55824. If (FEncounteredError=AValue) then exit;
  55825. FEncounteredError:=AValue;
  55826. MarkPropertyChanged(AIndex);
  55827. end;
  55828. Function TSP_WorkManagement_OMCreateRefreshJobResult.KeyAsURLPart : string;
  55829. begin
  55830. Result:=BoolToStr(CreatedJob,'true','false');
  55831. end;
  55832. { --------------------------------------------------------------------
  55833. TSP_WorkManagement_OMCustomAttributeFilter
  55834. --------------------------------------------------------------------}
  55835. Class Function TSP_WorkManagement_OMCustomAttributeFilter.ObjectRestKind : String;
  55836. begin
  55837. Result:='CustomAttributeFilter';
  55838. end;
  55839. Procedure TSP_WorkManagement_OMCustomAttributeFilter.SetAttributes(AIndex: Integer; const AValue: TStringArray);
  55840. begin
  55841. If (FAttributes=AValue) then exit;
  55842. FAttributes:=AValue;
  55843. MarkPropertyChanged(AIndex);
  55844. end;
  55845. Procedure TSP_WorkManagement_OMCustomAttributeFilter.SetConcatType(AIndex: Integer; const AValue: TInt32);
  55846. begin
  55847. If (FConcatType=AValue) then exit;
  55848. FConcatType:=AValue;
  55849. MarkPropertyChanged(AIndex);
  55850. end;
  55851. {$IFDEF VER2_6}
  55852. Procedure TSP_WorkManagement_OMCustomAttributeFilter.SetArrayLength(const AName: String; ALength: Longint);
  55853. begin
  55854. Case aName of
  55855. 'attributes' : SetLength(FAttributes,aLength);
  55856. else
  55857. inherited SetArrayLength(aName,ALength);
  55858. end;
  55859. end;
  55860. {$ENDIF VER2_6}
  55861. Function TSP_WorkManagement_OMCustomAttributeFilter.KeyAsURLPart : string;
  55862. begin
  55863. Result:=IntToStr(ConcatType);
  55864. end;
  55865. { --------------------------------------------------------------------
  55866. TSP_WorkManagement_OMDashboardScriptExtensionInfo
  55867. --------------------------------------------------------------------}
  55868. Class Function TSP_WorkManagement_OMDashboardScriptExtensionInfo.ObjectRestKind : String;
  55869. begin
  55870. Result:='DashboardScriptExtensionInfo';
  55871. end;
  55872. Procedure TSP_WorkManagement_OMDashboardScriptExtensionInfo.SetProviderKey(AIndex: Integer; const AValue: string);
  55873. begin
  55874. If (FProviderKey=AValue) then exit;
  55875. FProviderKey:=AValue;
  55876. MarkPropertyChanged(AIndex);
  55877. end;
  55878. Procedure TSP_WorkManagement_OMDashboardScriptExtensionInfo.SetScriptClass(AIndex: Integer; const AValue: string);
  55879. begin
  55880. If (FScriptClass=AValue) then exit;
  55881. FScriptClass:=AValue;
  55882. MarkPropertyChanged(AIndex);
  55883. end;
  55884. Procedure TSP_WorkManagement_OMDashboardScriptExtensionInfo.SetScriptData(AIndex: Integer; const AValue: string);
  55885. begin
  55886. If (FScriptData=AValue) then exit;
  55887. FScriptData:=AValue;
  55888. MarkPropertyChanged(AIndex);
  55889. end;
  55890. Procedure TSP_WorkManagement_OMDashboardScriptExtensionInfo.SetScriptFiles(AIndex: Integer; const AValue: TStringArray);
  55891. begin
  55892. If (FScriptFiles=AValue) then exit;
  55893. FScriptFiles:=AValue;
  55894. MarkPropertyChanged(AIndex);
  55895. end;
  55896. {$IFDEF VER2_6}
  55897. Procedure TSP_WorkManagement_OMDashboardScriptExtensionInfo.SetArrayLength(const AName: String; ALength: Longint);
  55898. begin
  55899. Case aName of
  55900. 'scriptfiles' : SetLength(FScriptFiles,aLength);
  55901. else
  55902. inherited SetArrayLength(aName,ALength);
  55903. end;
  55904. end;
  55905. {$ENDIF VER2_6}
  55906. Function TSP_WorkManagement_OMDashboardScriptExtensionInfo.KeyAsURLPart : string;
  55907. begin
  55908. Result:=TODataObject.MakeKeyString(ProviderKey);
  55909. end;
  55910. { --------------------------------------------------------------------
  55911. TSP_WorkManagement_OMDateRangeCriterion
  55912. --------------------------------------------------------------------}
  55913. Class Function TSP_WorkManagement_OMDateRangeCriterion.ObjectRestKind : String;
  55914. begin
  55915. Result:='DateRangeCriterion';
  55916. end;
  55917. Procedure TSP_WorkManagement_OMDateRangeCriterion.SetRangeEndValue(AIndex: Integer; const AValue: TDateTime);
  55918. begin
  55919. If (FRangeEndValue=AValue) then exit;
  55920. FRangeEndValue:=AValue;
  55921. MarkPropertyChanged(AIndex);
  55922. end;
  55923. Procedure TSP_WorkManagement_OMDateRangeCriterion.SetRangeStartValue(AIndex: Integer; const AValue: TDateTime);
  55924. begin
  55925. If (FRangeStartValue=AValue) then exit;
  55926. FRangeStartValue:=AValue;
  55927. MarkPropertyChanged(AIndex);
  55928. end;
  55929. Function TSP_WorkManagement_OMDateRangeCriterion.KeyAsURLPart : string;
  55930. begin
  55931. Result:=FormatDateTime('yyyy-mm-dd"T"hhmmss',RangeEndValue);
  55932. end;
  55933. { --------------------------------------------------------------------
  55934. TSP_WorkManagement_OMExchangeUserSyncState
  55935. --------------------------------------------------------------------}
  55936. Class Function TSP_WorkManagement_OMExchangeUserSyncState.ObjectRestKind : String;
  55937. begin
  55938. Result:='ExchangeUserSyncState';
  55939. end;
  55940. Procedure TSP_WorkManagement_OMExchangeUserSyncState.SetIsOptedIn(AIndex: Integer; const AValue: boolean);
  55941. begin
  55942. If (FIsOptedIn=AValue) then exit;
  55943. FIsOptedIn:=AValue;
  55944. MarkPropertyChanged(AIndex);
  55945. end;
  55946. Procedure TSP_WorkManagement_OMExchangeUserSyncState.SetLastEndTime(AIndex: Integer; const AValue: TDateTime);
  55947. begin
  55948. If (FLastEndTime=AValue) then exit;
  55949. FLastEndTime:=AValue;
  55950. MarkPropertyChanged(AIndex);
  55951. end;
  55952. Procedure TSP_WorkManagement_OMExchangeUserSyncState.SetLastSyncResult(AIndex: Integer; const AValue: TInt32);
  55953. begin
  55954. If (FLastSyncResult=AValue) then exit;
  55955. FLastSyncResult:=AValue;
  55956. MarkPropertyChanged(AIndex);
  55957. end;
  55958. Function TSP_WorkManagement_OMExchangeUserSyncState.KeyAsURLPart : string;
  55959. begin
  55960. Result:=BoolToStr(IsOptedIn,'true','false');
  55961. end;
  55962. { --------------------------------------------------------------------
  55963. TSP_WorkManagement_OMLocation
  55964. --------------------------------------------------------------------}
  55965. Class Function TSP_WorkManagement_OMLocation.ObjectRestKind : String;
  55966. begin
  55967. Result:='Location';
  55968. end;
  55969. Procedure TSP_WorkManagement_OMLocation.SetColor(AIndex: Integer; const AValue: string);
  55970. begin
  55971. If (FColor=AValue) then exit;
  55972. FColor:=AValue;
  55973. MarkPropertyChanged(AIndex);
  55974. end;
  55975. Procedure TSP_WorkManagement_OMLocation.SetId(AIndex: Integer; const AValue: TInt32);
  55976. begin
  55977. If (FId=AValue) then exit;
  55978. FId:=AValue;
  55979. MarkPropertyChanged(AIndex);
  55980. end;
  55981. Procedure TSP_WorkManagement_OMLocation.SetImportant(AIndex: Integer; const AValue: boolean);
  55982. begin
  55983. If (FImportant=AValue) then exit;
  55984. FImportant:=AValue;
  55985. MarkPropertyChanged(AIndex);
  55986. end;
  55987. Procedure TSP_WorkManagement_OMLocation.SetName(AIndex: Integer; const AValue: string);
  55988. begin
  55989. If (FName=AValue) then exit;
  55990. FName:=AValue;
  55991. MarkPropertyChanged(AIndex);
  55992. end;
  55993. Procedure TSP_WorkManagement_OMLocation.SetParentId(AIndex: Integer; const AValue: TInt32);
  55994. begin
  55995. If (FParentId=AValue) then exit;
  55996. FParentId:=AValue;
  55997. MarkPropertyChanged(AIndex);
  55998. end;
  55999. Procedure TSP_WorkManagement_OMLocation.SetRootProviderKey(AIndex: Integer; const AValue: string);
  56000. begin
  56001. If (FRootProviderKey=AValue) then exit;
  56002. FRootProviderKey:=AValue;
  56003. MarkPropertyChanged(AIndex);
  56004. end;
  56005. Procedure TSP_WorkManagement_OMLocation.SetUrl(AIndex: Integer; const AValue: string);
  56006. begin
  56007. If (FUrl=AValue) then exit;
  56008. FUrl:=AValue;
  56009. MarkPropertyChanged(AIndex);
  56010. end;
  56011. Function TSP_WorkManagement_OMLocation.KeyAsURLPart : string;
  56012. begin
  56013. Result:=IntToStr(Id);
  56014. end;
  56015. { --------------------------------------------------------------------
  56016. TSP_WorkManagement_OMLocationDisplaySetting
  56017. --------------------------------------------------------------------}
  56018. Class Function TSP_WorkManagement_OMLocationDisplaySetting.ObjectRestKind : String;
  56019. begin
  56020. Result:='LocationDisplaySetting';
  56021. end;
  56022. Procedure TSP_WorkManagement_OMLocationDisplaySetting.SetColor(AIndex: Integer; const AValue: string);
  56023. begin
  56024. If (FColor=AValue) then exit;
  56025. FColor:=AValue;
  56026. MarkPropertyChanged(AIndex);
  56027. end;
  56028. Procedure TSP_WorkManagement_OMLocationDisplaySetting.SetId(AIndex: Integer; const AValue: TInt32);
  56029. begin
  56030. If (FId=AValue) then exit;
  56031. FId:=AValue;
  56032. MarkPropertyChanged(AIndex);
  56033. end;
  56034. Function TSP_WorkManagement_OMLocationDisplaySetting.KeyAsURLPart : string;
  56035. begin
  56036. Result:=IntToStr(Id);
  56037. end;
  56038. { --------------------------------------------------------------------
  56039. TSP_WorkManagement_OMLocationFilter
  56040. --------------------------------------------------------------------}
  56041. Class Function TSP_WorkManagement_OMLocationFilter.ObjectRestKind : String;
  56042. begin
  56043. Result:='LocationFilter';
  56044. end;
  56045. Procedure TSP_WorkManagement_OMLocationFilter.SetIncludeUncategorizedTasks(AIndex: Integer; const AValue: boolean);
  56046. begin
  56047. If (FIncludeUncategorizedTasks=AValue) then exit;
  56048. FIncludeUncategorizedTasks:=AValue;
  56049. MarkPropertyChanged(AIndex);
  56050. end;
  56051. Procedure TSP_WorkManagement_OMLocationFilter.SetLocationKeys(AIndex: Integer; const AValue: TInt32Array);
  56052. begin
  56053. If (FLocationKeys=AValue) then exit;
  56054. FLocationKeys:=AValue;
  56055. MarkPropertyChanged(AIndex);
  56056. end;
  56057. {$IFDEF VER2_6}
  56058. Procedure TSP_WorkManagement_OMLocationFilter.SetArrayLength(const AName: String; ALength: Longint);
  56059. begin
  56060. Case aName of
  56061. 'locationkeys' : SetLength(FLocationKeys,aLength);
  56062. else
  56063. inherited SetArrayLength(aName,ALength);
  56064. end;
  56065. end;
  56066. {$ENDIF VER2_6}
  56067. Function TSP_WorkManagement_OMLocationFilter.KeyAsURLPart : string;
  56068. begin
  56069. Result:=BoolToStr(IncludeUncategorizedTasks,'true','false');
  56070. end;
  56071. { --------------------------------------------------------------------
  56072. TSP_WorkManagement_OMTask
  56073. --------------------------------------------------------------------}
  56074. Class Function TSP_WorkManagement_OMTask.ObjectRestKind : String;
  56075. begin
  56076. Result:='Task';
  56077. end;
  56078. Procedure TSP_WorkManagement_OMTask.SetCustomAttributes(AIndex: Integer; const AValue: TStringArray);
  56079. begin
  56080. If (FCustomAttributes=AValue) then exit;
  56081. FCustomAttributes:=AValue;
  56082. MarkPropertyChanged(AIndex);
  56083. end;
  56084. Procedure TSP_WorkManagement_OMTask.SetDescription(AIndex: Integer; const AValue: string);
  56085. begin
  56086. If (FDescription=AValue) then exit;
  56087. FDescription:=AValue;
  56088. MarkPropertyChanged(AIndex);
  56089. end;
  56090. Procedure TSP_WorkManagement_OMTask.SetDueDate(AIndex: Integer; const AValue: TDateTime);
  56091. begin
  56092. If (FDueDate=AValue) then exit;
  56093. FDueDate:=AValue;
  56094. MarkPropertyChanged(AIndex);
  56095. end;
  56096. Procedure TSP_WorkManagement_OMTask.SetEditUrl(AIndex: Integer; const AValue: string);
  56097. begin
  56098. If (FEditUrl=AValue) then exit;
  56099. FEditUrl:=AValue;
  56100. MarkPropertyChanged(AIndex);
  56101. end;
  56102. Procedure TSP_WorkManagement_OMTask.SetId(AIndex: Integer; const AValue: TInt32);
  56103. begin
  56104. If (FId=AValue) then exit;
  56105. FId:=AValue;
  56106. MarkPropertyChanged(AIndex);
  56107. end;
  56108. Procedure TSP_WorkManagement_OMTask.SetIsCompleted(AIndex: Integer; const AValue: boolean);
  56109. begin
  56110. If (FIsCompleted=AValue) then exit;
  56111. FIsCompleted:=AValue;
  56112. MarkPropertyChanged(AIndex);
  56113. end;
  56114. Procedure TSP_WorkManagement_OMTask.SetIsPersonal(AIndex: Integer; const AValue: boolean);
  56115. begin
  56116. If (FIsPersonal=AValue) then exit;
  56117. FIsPersonal:=AValue;
  56118. MarkPropertyChanged(AIndex);
  56119. end;
  56120. Procedure TSP_WorkManagement_OMTask.SetIsReadOnly(AIndex: Integer; const AValue: boolean);
  56121. begin
  56122. If (FIsReadOnly=AValue) then exit;
  56123. FIsReadOnly:=AValue;
  56124. MarkPropertyChanged(AIndex);
  56125. end;
  56126. Procedure TSP_WorkManagement_OMTask.SetLastModified(AIndex: Integer; const AValue: TDateTime);
  56127. begin
  56128. If (FLastModified=AValue) then exit;
  56129. FLastModified:=AValue;
  56130. MarkPropertyChanged(AIndex);
  56131. end;
  56132. Procedure TSP_WorkManagement_OMTask.SetLocationId(AIndex: Integer; const AValue: TInt32);
  56133. begin
  56134. If (FLocationId=AValue) then exit;
  56135. FLocationId:=AValue;
  56136. MarkPropertyChanged(AIndex);
  56137. end;
  56138. Procedure TSP_WorkManagement_OMTask.SetName(AIndex: Integer; const AValue: string);
  56139. begin
  56140. If (FName=AValue) then exit;
  56141. FName:=AValue;
  56142. MarkPropertyChanged(AIndex);
  56143. end;
  56144. Procedure TSP_WorkManagement_OMTask.SetPinAge(AIndex: Integer; const AValue: TInt32);
  56145. begin
  56146. If (FPinAge=AValue) then exit;
  56147. FPinAge:=AValue;
  56148. MarkPropertyChanged(AIndex);
  56149. end;
  56150. Procedure TSP_WorkManagement_OMTask.SetSerializedCustomDataForClient(AIndex: Integer; const AValue: string);
  56151. begin
  56152. If (FSerializedCustomDataForClient=AValue) then exit;
  56153. FSerializedCustomDataForClient:=AValue;
  56154. MarkPropertyChanged(AIndex);
  56155. end;
  56156. Procedure TSP_WorkManagement_OMTask.SetStartDate(AIndex: Integer; const AValue: TDateTime);
  56157. begin
  56158. If (FStartDate=AValue) then exit;
  56159. FStartDate:=AValue;
  56160. MarkPropertyChanged(AIndex);
  56161. end;
  56162. {$IFDEF VER2_6}
  56163. Procedure TSP_WorkManagement_OMTask.SetArrayLength(const AName: String; ALength: Longint);
  56164. begin
  56165. Case aName of
  56166. 'customattributes' : SetLength(FCustomAttributes,aLength);
  56167. else
  56168. inherited SetArrayLength(aName,ALength);
  56169. end;
  56170. end;
  56171. {$ENDIF VER2_6}
  56172. Function TSP_WorkManagement_OMTask.KeyAsURLPart : string;
  56173. begin
  56174. Result:=IntToStr(Id);
  56175. end;
  56176. { --------------------------------------------------------------------
  56177. TSP_WorkManagement_OMLocationOrientedSortableSession
  56178. --------------------------------------------------------------------}
  56179. Class Function TSP_WorkManagement_OMLocationOrientedSortableSession.ObjectRestKind : String;
  56180. begin
  56181. Result:='LocationOrientedSortableSession';
  56182. end;
  56183. { --------------------------------------------------------------------
  56184. TSP_WorkManagement_OMLocationOrientedUserOrderedSession
  56185. --------------------------------------------------------------------}
  56186. Class Function TSP_WorkManagement_OMLocationOrientedUserOrderedSession.ObjectRestKind : String;
  56187. begin
  56188. Result:='LocationOrientedUserOrderedSession';
  56189. end;
  56190. { --------------------------------------------------------------------
  56191. TSP_WorkManagement_OMLocationUpdateResult
  56192. --------------------------------------------------------------------}
  56193. Class Function TSP_WorkManagement_OMLocationUpdateResult.ObjectRestKind : String;
  56194. begin
  56195. Result:='LocationUpdateResult';
  56196. end;
  56197. Procedure TSP_WorkManagement_OMLocationUpdateResult.SetActiveAddedCount(AIndex: Integer; const AValue: int64);
  56198. begin
  56199. If (FActiveAddedCount=AValue) then exit;
  56200. FActiveAddedCount:=AValue;
  56201. MarkPropertyChanged(AIndex);
  56202. end;
  56203. Procedure TSP_WorkManagement_OMLocationUpdateResult.SetAddedCount(AIndex: Integer; const AValue: int64);
  56204. begin
  56205. If (FAddedCount=AValue) then exit;
  56206. FAddedCount:=AValue;
  56207. MarkPropertyChanged(AIndex);
  56208. end;
  56209. Procedure TSP_WorkManagement_OMLocationUpdateResult.SetRemovedCount(AIndex: Integer; const AValue: int64);
  56210. begin
  56211. If (FRemovedCount=AValue) then exit;
  56212. FRemovedCount:=AValue;
  56213. MarkPropertyChanged(AIndex);
  56214. end;
  56215. Procedure TSP_WorkManagement_OMLocationUpdateResult.SetRootLocationId(AIndex: Integer; const AValue: TInt32);
  56216. begin
  56217. If (FRootLocationId=AValue) then exit;
  56218. FRootLocationId:=AValue;
  56219. MarkPropertyChanged(AIndex);
  56220. end;
  56221. Procedure TSP_WorkManagement_OMLocationUpdateResult.SetUpdatedCount(AIndex: Integer; const AValue: int64);
  56222. begin
  56223. If (FUpdatedCount=AValue) then exit;
  56224. FUpdatedCount:=AValue;
  56225. MarkPropertyChanged(AIndex);
  56226. end;
  56227. Function TSP_WorkManagement_OMLocationUpdateResult.KeyAsURLPart : string;
  56228. begin
  56229. Result:=IntToStr(ActiveAddedCount);
  56230. end;
  56231. { --------------------------------------------------------------------
  56232. TSP_WorkManagement_OMNameCriterion
  56233. --------------------------------------------------------------------}
  56234. Class Function TSP_WorkManagement_OMNameCriterion.ObjectRestKind : String;
  56235. begin
  56236. Result:='NameCriterion';
  56237. end;
  56238. Procedure TSP_WorkManagement_OMNameCriterion.SetCompareType(AIndex: Integer; const AValue: TInt32);
  56239. begin
  56240. If (FCompareType=AValue) then exit;
  56241. FCompareType:=AValue;
  56242. MarkPropertyChanged(AIndex);
  56243. end;
  56244. Procedure TSP_WorkManagement_OMNameCriterion.SetCompareValue(AIndex: Integer; const AValue: string);
  56245. begin
  56246. If (FCompareValue=AValue) then exit;
  56247. FCompareValue:=AValue;
  56248. MarkPropertyChanged(AIndex);
  56249. end;
  56250. Function TSP_WorkManagement_OMNameCriterion.KeyAsURLPart : string;
  56251. begin
  56252. Result:=IntToStr(CompareType);
  56253. end;
  56254. { --------------------------------------------------------------------
  56255. TSP_WorkManagement_OMNonTaskDataReadResult
  56256. --------------------------------------------------------------------}
  56257. Class Function TSP_WorkManagement_OMNonTaskDataReadResult.ObjectRestKind : String;
  56258. begin
  56259. Result:='NonTaskDataReadResult';
  56260. end;
  56261. Procedure TSP_WorkManagement_OMNonTaskDataReadResult.SetId4a81de82eeb94d6080ea5bf63e27023a(AIndex: Integer; const AValue: string);
  56262. begin
  56263. If (FId4a81de82eeb94d6080ea5bf63e27023a=AValue) then exit;
  56264. FId4a81de82eeb94d6080ea5bf63e27023a:=AValue;
  56265. MarkPropertyChanged(AIndex);
  56266. end;
  56267. Function TSP_WorkManagement_OMNonTaskDataReadResult.KeyAsURLPart : string;
  56268. begin
  56269. Result:=TODataObject.MakeKeyString(Id4a81de82eeb94d6080ea5bf63e27023a);
  56270. end;
  56271. Function TSP_WorkManagement_OMNonTaskDataReadResult.AllLocatons(AService: TODataService) : TSP_WorkManagement_OMLocation;
  56272. begin
  56273. Result:=TSP_WorkManagement_OMLocation(GetContainedSingleTon(AService,'AllLocatons', TSP_WorkManagement_OMLocation));
  56274. end;
  56275. Function TSP_WorkManagement_OMNonTaskDataReadResult.PersistedProperties(AService: TODataService) : TSP_WorkManagement_OMPersistedProperties;
  56276. begin
  56277. Result:=TSP_WorkManagement_OMPersistedProperties(GetContainedSingleTon(AService,'PersistedProperties', TSP_WorkManagement_OMPersistedProperties));
  56278. end;
  56279. Function TSP_WorkManagement_OMNonTaskDataReadResult.RefreshHistory(AService: TODataService) : TSP_WorkManagement_OMRefreshHistory;
  56280. begin
  56281. Result:=TSP_WorkManagement_OMRefreshHistory(GetContainedSingleTon(AService,'RefreshHistory', TSP_WorkManagement_OMRefreshHistory));
  56282. end;
  56283. Function TSP_WorkManagement_OMNonTaskDataReadResult.ScriptExtensions(AService: TODataService) : TSP_WorkManagement_OMDashboardScriptExtensionInfo;
  56284. begin
  56285. Result:=TSP_WorkManagement_OMDashboardScriptExtensionInfo(GetContainedSingleTon(AService,'ScriptExtensions', TSP_WorkManagement_OMDashboardScriptExtensionInfo));
  56286. end;
  56287. Function TSP_WorkManagement_OMNonTaskDataReadResult.UserSettings(AService: TODataService) : TSP_WorkManagement_OMUserSettings;
  56288. begin
  56289. Result:=TSP_WorkManagement_OMUserSettings(GetContainedSingleTon(AService,'UserSettings', TSP_WorkManagement_OMUserSettings));
  56290. end;
  56291. { --------------------------------------------------------------------
  56292. TSP_WorkManagement_OMPersistedProperties
  56293. --------------------------------------------------------------------}
  56294. Class Function TSP_WorkManagement_OMPersistedProperties.ObjectRestKind : String;
  56295. begin
  56296. Result:='PersistedProperties';
  56297. end;
  56298. Procedure TSP_WorkManagement_OMPersistedProperties.SetFilteredLocationIds(AIndex: Integer; const AValue: TInt32Array);
  56299. begin
  56300. If (FFilteredLocationIds=AValue) then exit;
  56301. FFilteredLocationIds:=AValue;
  56302. MarkPropertyChanged(AIndex);
  56303. end;
  56304. Procedure TSP_WorkManagement_OMPersistedProperties.SetGroupByProjects(AIndex: Integer; const AValue: boolean);
  56305. begin
  56306. If (FGroupByProjects=AValue) then exit;
  56307. FGroupByProjects:=AValue;
  56308. MarkPropertyChanged(AIndex);
  56309. end;
  56310. Procedure TSP_WorkManagement_OMPersistedProperties.SetHasShownMarkAsImportantCallout(AIndex: Integer; const AValue: boolean);
  56311. begin
  56312. If (FHasShownMarkAsImportantCallout=AValue) then exit;
  56313. FHasShownMarkAsImportantCallout:=AValue;
  56314. MarkPropertyChanged(AIndex);
  56315. end;
  56316. Procedure TSP_WorkManagement_OMPersistedProperties.SetHasShownTaskListTooLongNotification(AIndex: Integer; const AValue: boolean);
  56317. begin
  56318. If (FHasShownTaskListTooLongNotification=AValue) then exit;
  56319. FHasShownTaskListTooLongNotification:=AValue;
  56320. MarkPropertyChanged(AIndex);
  56321. end;
  56322. Procedure TSP_WorkManagement_OMPersistedProperties.SetQuickLaunchLandingPage(AIndex: Integer; const AValue: string);
  56323. begin
  56324. If (FQuickLaunchLandingPage=AValue) then exit;
  56325. FQuickLaunchLandingPage:=AValue;
  56326. MarkPropertyChanged(AIndex);
  56327. end;
  56328. {$IFDEF VER2_6}
  56329. Procedure TSP_WorkManagement_OMPersistedProperties.SetArrayLength(const AName: String; ALength: Longint);
  56330. begin
  56331. Case aName of
  56332. 'filteredlocationids' : SetLength(FFilteredLocationIds,aLength);
  56333. else
  56334. inherited SetArrayLength(aName,ALength);
  56335. end;
  56336. end;
  56337. {$ENDIF VER2_6}
  56338. Function TSP_WorkManagement_OMPersistedProperties.KeyAsURLPart : string;
  56339. begin
  56340. Result:=BoolToStr(GroupByProjects,'true','false');
  56341. end;
  56342. { --------------------------------------------------------------------
  56343. TSP_WorkManagement_OMRefreshHistory
  56344. --------------------------------------------------------------------}
  56345. Class Function TSP_WorkManagement_OMRefreshHistory.ObjectRestKind : String;
  56346. begin
  56347. Result:='RefreshHistory';
  56348. end;
  56349. Procedure TSP_WorkManagement_OMRefreshHistory.SetId4a81de82eeb94d6080ea5bf63e27023a(AIndex: Integer; const AValue: string);
  56350. begin
  56351. If (FId4a81de82eeb94d6080ea5bf63e27023a=AValue) then exit;
  56352. FId4a81de82eeb94d6080ea5bf63e27023a:=AValue;
  56353. MarkPropertyChanged(AIndex);
  56354. end;
  56355. Function TSP_WorkManagement_OMRefreshHistory.KeyAsURLPart : string;
  56356. begin
  56357. Result:=TODataObject.MakeKeyString(Id4a81de82eeb94d6080ea5bf63e27023a);
  56358. end;
  56359. Function TSP_WorkManagement_OMRefreshHistory.Refreshes(AService: TODataService) : TSP_WorkManagement_OMRefreshResult;
  56360. begin
  56361. Result:=TSP_WorkManagement_OMRefreshResult(GetContainedSingleTon(AService,'Refreshes', TSP_WorkManagement_OMRefreshResult));
  56362. end;
  56363. { --------------------------------------------------------------------
  56364. TSP_WorkManagement_OMRefreshResult
  56365. --------------------------------------------------------------------}
  56366. Class Function TSP_WorkManagement_OMRefreshResult.ObjectRestKind : String;
  56367. begin
  56368. Result:='RefreshResult';
  56369. end;
  56370. Procedure TSP_WorkManagement_OMRefreshResult.SetAggregatorRefreshState(AIndex: Integer; const AValue: TInt32);
  56371. begin
  56372. If (FAggregatorRefreshState=AValue) then exit;
  56373. FAggregatorRefreshState:=AValue;
  56374. MarkPropertyChanged(AIndex);
  56375. end;
  56376. Procedure TSP_WorkManagement_OMRefreshResult.SetCorrelationId(AIndex: Integer; const AValue: string);
  56377. begin
  56378. If (FCorrelationId=AValue) then exit;
  56379. FCorrelationId:=AValue;
  56380. MarkPropertyChanged(AIndex);
  56381. end;
  56382. Procedure TSP_WorkManagement_OMRefreshResult.SetRefreshFinished(AIndex: Integer; const AValue: TDateTime);
  56383. begin
  56384. If (FRefreshFinished=AValue) then exit;
  56385. FRefreshFinished:=AValue;
  56386. MarkPropertyChanged(AIndex);
  56387. end;
  56388. Procedure TSP_WorkManagement_OMRefreshResult.SetRefreshId(AIndex: Integer; const AValue: TInt32);
  56389. begin
  56390. If (FRefreshId=AValue) then exit;
  56391. FRefreshId:=AValue;
  56392. MarkPropertyChanged(AIndex);
  56393. end;
  56394. Function TSP_WorkManagement_OMRefreshResult.KeyAsURLPart : string;
  56395. begin
  56396. Result:=IntToStr(AggregatorRefreshState);
  56397. end;
  56398. Function TSP_WorkManagement_OMRefreshResult.ProviderStatuses(AService: TODataService) : TSP_WorkManagement_OMProviderRefreshStatus;
  56399. begin
  56400. Result:=TSP_WorkManagement_OMProviderRefreshStatus(GetContainedSingleTon(AService,'ProviderStatuses', TSP_WorkManagement_OMProviderRefreshStatus));
  56401. end;
  56402. Function TSP_WorkManagement_OMRefreshResult.TaskChangesByLocation(AService: TODataService) : TSP_WorkManagement_OMLocationUpdateResult;
  56403. begin
  56404. Result:=TSP_WorkManagement_OMLocationUpdateResult(GetContainedSingleTon(AService,'TaskChangesByLocation', TSP_WorkManagement_OMLocationUpdateResult));
  56405. end;
  56406. { --------------------------------------------------------------------
  56407. TSP_WorkManagement_OMProviderRefreshStatus
  56408. --------------------------------------------------------------------}
  56409. Class Function TSP_WorkManagement_OMProviderRefreshStatus.ObjectRestKind : String;
  56410. begin
  56411. Result:='ProviderRefreshStatus';
  56412. end;
  56413. Procedure TSP_WorkManagement_OMProviderRefreshStatus.SetProviderKey(AIndex: Integer; const AValue: string);
  56414. begin
  56415. If (FProviderKey=AValue) then exit;
  56416. FProviderKey:=AValue;
  56417. MarkPropertyChanged(AIndex);
  56418. end;
  56419. Procedure TSP_WorkManagement_OMProviderRefreshStatus.SetProviderLocalizedName(AIndex: Integer; const AValue: string);
  56420. begin
  56421. If (FProviderLocalizedName=AValue) then exit;
  56422. FProviderLocalizedName:=AValue;
  56423. MarkPropertyChanged(AIndex);
  56424. end;
  56425. Procedure TSP_WorkManagement_OMProviderRefreshStatus.SetRefreshFinished(AIndex: Integer; const AValue: TDateTime);
  56426. begin
  56427. If (FRefreshFinished=AValue) then exit;
  56428. FRefreshFinished:=AValue;
  56429. MarkPropertyChanged(AIndex);
  56430. end;
  56431. Procedure TSP_WorkManagement_OMProviderRefreshStatus.SetRefreshStarted(AIndex: Integer; const AValue: TDateTime);
  56432. begin
  56433. If (FRefreshStarted=AValue) then exit;
  56434. FRefreshStarted:=AValue;
  56435. MarkPropertyChanged(AIndex);
  56436. end;
  56437. Procedure TSP_WorkManagement_OMProviderRefreshStatus.SetRootLocationId(AIndex: Integer; const AValue: TInt32);
  56438. begin
  56439. If (FRootLocationId=AValue) then exit;
  56440. FRootLocationId:=AValue;
  56441. MarkPropertyChanged(AIndex);
  56442. end;
  56443. Function TSP_WorkManagement_OMProviderRefreshStatus.KeyAsURLPart : string;
  56444. begin
  56445. Result:=TODataObject.MakeKeyString(ProviderKey);
  56446. end;
  56447. { --------------------------------------------------------------------
  56448. TSP_WorkManagement_OMUserSettings
  56449. --------------------------------------------------------------------}
  56450. Class Function TSP_WorkManagement_OMUserSettings.ObjectRestKind : String;
  56451. begin
  56452. Result:='UserSettings';
  56453. end;
  56454. Procedure TSP_WorkManagement_OMUserSettings.SetDaysAfterCurrentDateTimelineEnds(AIndex: Integer; const AValue: TInt32);
  56455. begin
  56456. If (FDaysAfterCurrentDateTimelineEnds=AValue) then exit;
  56457. FDaysAfterCurrentDateTimelineEnds:=AValue;
  56458. MarkPropertyChanged(AIndex);
  56459. end;
  56460. Procedure TSP_WorkManagement_OMUserSettings.SetDaysATaskIsConsideredNewTask(AIndex: Integer; const AValue: TInt32);
  56461. begin
  56462. If (FDaysATaskIsConsideredNewTask=AValue) then exit;
  56463. FDaysATaskIsConsideredNewTask:=AValue;
  56464. MarkPropertyChanged(AIndex);
  56465. end;
  56466. Procedure TSP_WorkManagement_OMUserSettings.SetDaysBeforeCurrentDateTimelineStarts(AIndex: Integer; const AValue: TInt32);
  56467. begin
  56468. If (FDaysBeforeCurrentDateTimelineStarts=AValue) then exit;
  56469. FDaysBeforeCurrentDateTimelineStarts:=AValue;
  56470. MarkPropertyChanged(AIndex);
  56471. end;
  56472. Procedure TSP_WorkManagement_OMUserSettings.SetImportantLocationIds(AIndex: Integer; const AValue: TInt32Array);
  56473. begin
  56474. If (FImportantLocationIds=AValue) then exit;
  56475. FImportantLocationIds:=AValue;
  56476. MarkPropertyChanged(AIndex);
  56477. end;
  56478. Procedure TSP_WorkManagement_OMUserSettings.SetImportantTasksLimit(AIndex: Integer; const AValue: TInt32);
  56479. begin
  56480. If (FImportantTasksLimit=AValue) then exit;
  56481. FImportantTasksLimit:=AValue;
  56482. MarkPropertyChanged(AIndex);
  56483. end;
  56484. Procedure TSP_WorkManagement_OMUserSettings.SetInactiveMonthsBeforeLocationExpiration(AIndex: Integer; const AValue: TInt32);
  56485. begin
  56486. If (FInactiveMonthsBeforeLocationExpiration=AValue) then exit;
  56487. FInactiveMonthsBeforeLocationExpiration:=AValue;
  56488. MarkPropertyChanged(AIndex);
  56489. end;
  56490. Procedure TSP_WorkManagement_OMUserSettings.SetLateTasksLimit(AIndex: Integer; const AValue: TInt32);
  56491. begin
  56492. If (FLateTasksLimit=AValue) then exit;
  56493. FLateTasksLimit:=AValue;
  56494. MarkPropertyChanged(AIndex);
  56495. end;
  56496. Procedure TSP_WorkManagement_OMUserSettings.SetOldTasksLimit(AIndex: Integer; const AValue: TInt32);
  56497. begin
  56498. If (FOldTasksLimit=AValue) then exit;
  56499. FOldTasksLimit:=AValue;
  56500. MarkPropertyChanged(AIndex);
  56501. end;
  56502. Procedure TSP_WorkManagement_OMUserSettings.SetUpcomingTasksLimit(AIndex: Integer; const AValue: TInt32);
  56503. begin
  56504. If (FUpcomingTasksLimit=AValue) then exit;
  56505. FUpcomingTasksLimit:=AValue;
  56506. MarkPropertyChanged(AIndex);
  56507. end;
  56508. {$IFDEF VER2_6}
  56509. Procedure TSP_WorkManagement_OMUserSettings.SetArrayLength(const AName: String; ALength: Longint);
  56510. begin
  56511. Case aName of
  56512. 'importantlocationids' : SetLength(FImportantLocationIds,aLength);
  56513. else
  56514. inherited SetArrayLength(aName,ALength);
  56515. end;
  56516. end;
  56517. {$ENDIF VER2_6}
  56518. Function TSP_WorkManagement_OMUserSettings.KeyAsURLPart : string;
  56519. begin
  56520. Result:=IntToStr(DaysAfterCurrentDateTimelineEnds);
  56521. end;
  56522. { --------------------------------------------------------------------
  56523. TSP_WorkManagement_OMOrderInfo
  56524. --------------------------------------------------------------------}
  56525. Class Function TSP_WorkManagement_OMOrderInfo.ObjectRestKind : String;
  56526. begin
  56527. Result:='OrderInfo';
  56528. end;
  56529. Procedure TSP_WorkManagement_OMOrderInfo.SetField(AIndex: Integer; const AValue: TInt32);
  56530. begin
  56531. If (FField=AValue) then exit;
  56532. FField:=AValue;
  56533. MarkPropertyChanged(AIndex);
  56534. end;
  56535. Procedure TSP_WorkManagement_OMOrderInfo.SetIsDescending(AIndex: Integer; const AValue: boolean);
  56536. begin
  56537. If (FIsDescending=AValue) then exit;
  56538. FIsDescending:=AValue;
  56539. MarkPropertyChanged(AIndex);
  56540. end;
  56541. Function TSP_WorkManagement_OMOrderInfo.KeyAsURLPart : string;
  56542. begin
  56543. Result:=IntToStr(Field);
  56544. end;
  56545. { --------------------------------------------------------------------
  56546. TSP_WorkManagement_OMProviderErrorInfo
  56547. --------------------------------------------------------------------}
  56548. Class Function TSP_WorkManagement_OMProviderErrorInfo.ObjectRestKind : String;
  56549. begin
  56550. Result:='ProviderErrorInfo';
  56551. end;
  56552. Procedure TSP_WorkManagement_OMProviderErrorInfo.SetCorrelationId(AIndex: Integer; const AValue: string);
  56553. begin
  56554. If (FCorrelationId=AValue) then exit;
  56555. FCorrelationId:=AValue;
  56556. MarkPropertyChanged(AIndex);
  56557. end;
  56558. Procedure TSP_WorkManagement_OMProviderErrorInfo.SetLastSuccessfulRefresh(AIndex: Integer; const AValue: TDateTime);
  56559. begin
  56560. If (FLastSuccessfulRefresh=AValue) then exit;
  56561. FLastSuccessfulRefresh:=AValue;
  56562. MarkPropertyChanged(AIndex);
  56563. end;
  56564. Procedure TSP_WorkManagement_OMProviderErrorInfo.SetLocalizedName(AIndex: Integer; const AValue: string);
  56565. begin
  56566. If (FLocalizedName=AValue) then exit;
  56567. FLocalizedName:=AValue;
  56568. MarkPropertyChanged(AIndex);
  56569. end;
  56570. Function TSP_WorkManagement_OMProviderErrorInfo.KeyAsURLPart : string;
  56571. begin
  56572. Result:=TODataObject.MakeKeyString(CorrelationId);
  56573. end;
  56574. { --------------------------------------------------------------------
  56575. TSP_WorkManagement_OMRefreshHealthInfo
  56576. --------------------------------------------------------------------}
  56577. Class Function TSP_WorkManagement_OMRefreshHealthInfo.ObjectRestKind : String;
  56578. begin
  56579. Result:='RefreshHealthInfo';
  56580. end;
  56581. Procedure TSP_WorkManagement_OMRefreshHealthInfo.SetLatestRefreshTime(AIndex: Integer; const AValue: TDateTime);
  56582. begin
  56583. If (FLatestRefreshTime=AValue) then exit;
  56584. FLatestRefreshTime:=AValue;
  56585. MarkPropertyChanged(AIndex);
  56586. end;
  56587. Procedure TSP_WorkManagement_OMRefreshHealthInfo.SetNewTasks(AIndex: Integer; const AValue: TInt32);
  56588. begin
  56589. If (FNewTasks=AValue) then exit;
  56590. FNewTasks:=AValue;
  56591. MarkPropertyChanged(AIndex);
  56592. end;
  56593. Procedure TSP_WorkManagement_OMRefreshHealthInfo.SetSucceeded(AIndex: Integer; const AValue: boolean);
  56594. begin
  56595. If (FSucceeded=AValue) then exit;
  56596. FSucceeded:=AValue;
  56597. MarkPropertyChanged(AIndex);
  56598. end;
  56599. Function TSP_WorkManagement_OMRefreshHealthInfo.KeyAsURLPart : string;
  56600. begin
  56601. Result:=FormatDateTime('yyyy-mm-dd"T"hhmmss',LatestRefreshTime);
  56602. end;
  56603. Function TSP_WorkManagement_OMRefreshHealthInfo.ProviderErrors(AService: TODataService) : TSP_WorkManagement_OMProviderErrorInfo;
  56604. begin
  56605. Result:=TSP_WorkManagement_OMProviderErrorInfo(GetContainedSingleTon(AService,'ProviderErrors', TSP_WorkManagement_OMProviderErrorInfo));
  56606. end;
  56607. { --------------------------------------------------------------------
  56608. TSP_WorkManagement_OMSortableSessionManager
  56609. --------------------------------------------------------------------}
  56610. Class Function TSP_WorkManagement_OMSortableSessionManager.ObjectRestKind : String;
  56611. begin
  56612. Result:='SortableSessionManager';
  56613. end;
  56614. Procedure TSP_WorkManagement_OMSortableSessionManager.SetId4a81de82eeb94d6080ea5bf63e27023a(AIndex: Integer; const AValue: string);
  56615. begin
  56616. If (FId4a81de82eeb94d6080ea5bf63e27023a=AValue) then exit;
  56617. FId4a81de82eeb94d6080ea5bf63e27023a:=AValue;
  56618. MarkPropertyChanged(AIndex);
  56619. end;
  56620. Function TSP_WorkManagement_OMSortableSessionManager.KeyAsURLPart : string;
  56621. begin
  56622. Result:=TODataObject.MakeKeyString(Id4a81de82eeb94d6080ea5bf63e27023a);
  56623. end;
  56624. { --------------------------------------------------------------------
  56625. TSP_WorkManagement_OMSortableSession
  56626. --------------------------------------------------------------------}
  56627. Class Function TSP_WorkManagement_OMSortableSession.ObjectRestKind : String;
  56628. begin
  56629. Result:='SortableSession';
  56630. end;
  56631. { --------------------------------------------------------------------
  56632. TSP_WorkManagement_OMSortableTaskQuery
  56633. --------------------------------------------------------------------}
  56634. Class Function TSP_WorkManagement_OMSortableTaskQuery.ObjectRestKind : String;
  56635. begin
  56636. Result:='SortableTaskQuery';
  56637. end;
  56638. Procedure TSP_WorkManagement_OMSortableTaskQuery.SetId4a81de82eeb94d6080ea5bf63e27023a(AIndex: Integer; const AValue: string);
  56639. begin
  56640. If (FId4a81de82eeb94d6080ea5bf63e27023a=AValue) then exit;
  56641. FId4a81de82eeb94d6080ea5bf63e27023a:=AValue;
  56642. MarkPropertyChanged(AIndex);
  56643. end;
  56644. Function TSP_WorkManagement_OMSortableTaskQuery.KeyAsURLPart : string;
  56645. begin
  56646. Result:=TODataObject.MakeKeyString(Id4a81de82eeb94d6080ea5bf63e27023a);
  56647. end;
  56648. Function TSP_WorkManagement_OMSortableTaskQuery.CoreQuery(AService: TODataService) : TSP_WorkManagement_OMTaskQuery;
  56649. begin
  56650. Result:=TSP_WorkManagement_OMTaskQuery(GetContainedSingleTon(AService,'CoreQuery', TSP_WorkManagement_OMTaskQuery));
  56651. end;
  56652. Function TSP_WorkManagement_OMSortableTaskQuery.Order(AService: TODataService) : TSP_WorkManagement_OMOrderInfo;
  56653. begin
  56654. Result:=TSP_WorkManagement_OMOrderInfo(GetContainedSingleTon(AService,'Order', TSP_WorkManagement_OMOrderInfo));
  56655. end;
  56656. { --------------------------------------------------------------------
  56657. TSP_WorkManagement_OMTaskQuery
  56658. --------------------------------------------------------------------}
  56659. Class Function TSP_WorkManagement_OMTaskQuery.ObjectRestKind : String;
  56660. begin
  56661. Result:='TaskQuery';
  56662. end;
  56663. Procedure TSP_WorkManagement_OMTaskQuery.SetKeywordFilter(AIndex: Integer; const AValue: string);
  56664. begin
  56665. If (FKeywordFilter=AValue) then exit;
  56666. FKeywordFilter:=AValue;
  56667. MarkPropertyChanged(AIndex);
  56668. end;
  56669. Procedure TSP_WorkManagement_OMTaskQuery.SetLastQueryTime(AIndex: Integer; const AValue: TDateTime);
  56670. begin
  56671. If (FLastQueryTime=AValue) then exit;
  56672. FLastQueryTime:=AValue;
  56673. MarkPropertyChanged(AIndex);
  56674. end;
  56675. Procedure TSP_WorkManagement_OMTaskQuery.SetPinnedFilter(AIndex: Integer; const AValue: TInt32);
  56676. begin
  56677. If (FPinnedFilter=AValue) then exit;
  56678. FPinnedFilter:=AValue;
  56679. MarkPropertyChanged(AIndex);
  56680. end;
  56681. Function TSP_WorkManagement_OMTaskQuery.KeyAsURLPart : string;
  56682. begin
  56683. Result:=TODataObject.MakeKeyString(KeywordFilter);
  56684. end;
  56685. Function TSP_WorkManagement_OMTaskQuery.CustomAttributeFilter(AService: TODataService) : TSP_WorkManagement_OMCustomAttributeFilter;
  56686. begin
  56687. Result:=TSP_WorkManagement_OMCustomAttributeFilter(GetContainedSingleTon(AService,'CustomAttributeFilter', TSP_WorkManagement_OMCustomAttributeFilter));
  56688. end;
  56689. Function TSP_WorkManagement_OMTaskQuery.FieldFilter(AService: TODataService) : TSP_WorkManagement_OMTaskFilter;
  56690. begin
  56691. Result:=TSP_WorkManagement_OMTaskFilter(GetContainedSingleTon(AService,'FieldFilter', TSP_WorkManagement_OMTaskFilter));
  56692. end;
  56693. Function TSP_WorkManagement_OMTaskQuery.LastModifiedDateRangeFilter(AService: TODataService) : TSP_WorkManagement_OMDateRangeCriterion;
  56694. begin
  56695. Result:=TSP_WorkManagement_OMDateRangeCriterion(GetContainedSingleTon(AService,'LastModifiedDateRangeFilter', TSP_WorkManagement_OMDateRangeCriterion));
  56696. end;
  56697. Function TSP_WorkManagement_OMTaskQuery.LocationFilter(AService: TODataService) : TSP_WorkManagement_OMLocationFilter;
  56698. begin
  56699. Result:=TSP_WorkManagement_OMLocationFilter(GetContainedSingleTon(AService,'LocationFilter', TSP_WorkManagement_OMLocationFilter));
  56700. end;
  56701. { --------------------------------------------------------------------
  56702. TSP_WorkManagement_OMTaskFilter
  56703. --------------------------------------------------------------------}
  56704. Class Function TSP_WorkManagement_OMTaskFilter.ObjectRestKind : String;
  56705. begin
  56706. Result:='TaskFilter';
  56707. end;
  56708. Procedure TSP_WorkManagement_OMTaskFilter.SetCriterionConcatType(AIndex: Integer; const AValue: TInt32);
  56709. begin
  56710. If (FCriterionConcatType=AValue) then exit;
  56711. FCriterionConcatType:=AValue;
  56712. MarkPropertyChanged(AIndex);
  56713. end;
  56714. Procedure TSP_WorkManagement_OMTaskFilter.SetIdsToFilterBy(AIndex: Integer; const AValue: TInt32Array);
  56715. begin
  56716. If (FIdsToFilterBy=AValue) then exit;
  56717. FIdsToFilterBy:=AValue;
  56718. MarkPropertyChanged(AIndex);
  56719. end;
  56720. {$IFDEF VER2_6}
  56721. Procedure TSP_WorkManagement_OMTaskFilter.SetArrayLength(const AName: String; ALength: Longint);
  56722. begin
  56723. Case aName of
  56724. 'idstofilterby' : SetLength(FIdsToFilterBy,aLength);
  56725. else
  56726. inherited SetArrayLength(aName,ALength);
  56727. end;
  56728. end;
  56729. {$ENDIF VER2_6}
  56730. Function TSP_WorkManagement_OMTaskFilter.KeyAsURLPart : string;
  56731. begin
  56732. Result:=IntToStr(CriterionConcatType);
  56733. end;
  56734. Function TSP_WorkManagement_OMTaskFilter.CompletedCriterion(AService: TODataService) : TSP_WorkManagement_OMBooleanCriterion;
  56735. begin
  56736. Result:=TSP_WorkManagement_OMBooleanCriterion(GetContainedSingleTon(AService,'CompletedCriterion', TSP_WorkManagement_OMBooleanCriterion));
  56737. end;
  56738. Function TSP_WorkManagement_OMTaskFilter.DueDateRangeCriterion(AService: TODataService) : TSP_WorkManagement_OMDateRangeCriterion;
  56739. begin
  56740. Result:=TSP_WorkManagement_OMDateRangeCriterion(GetContainedSingleTon(AService,'DueDateRangeCriterion', TSP_WorkManagement_OMDateRangeCriterion));
  56741. end;
  56742. Function TSP_WorkManagement_OMTaskFilter.IsNewCriterion(AService: TODataService) : TSP_WorkManagement_OMBooleanCriterion;
  56743. begin
  56744. Result:=TSP_WorkManagement_OMBooleanCriterion(GetContainedSingleTon(AService,'IsNewCriterion', TSP_WorkManagement_OMBooleanCriterion));
  56745. end;
  56746. Function TSP_WorkManagement_OMTaskFilter.NameCriterion(AService: TODataService) : TSP_WorkManagement_OMNameCriterion;
  56747. begin
  56748. Result:=TSP_WorkManagement_OMNameCriterion(GetContainedSingleTon(AService,'NameCriterion', TSP_WorkManagement_OMNameCriterion));
  56749. end;
  56750. Function TSP_WorkManagement_OMTaskFilter.StartDateRangeCriterion(AService: TODataService) : TSP_WorkManagement_OMDateRangeCriterion;
  56751. begin
  56752. Result:=TSP_WorkManagement_OMDateRangeCriterion(GetContainedSingleTon(AService,'StartDateRangeCriterion', TSP_WorkManagement_OMDateRangeCriterion));
  56753. end;
  56754. { --------------------------------------------------------------------
  56755. TSP_WorkManagement_OMTaskQueryByLocationResult
  56756. --------------------------------------------------------------------}
  56757. Class Function TSP_WorkManagement_OMTaskQueryByLocationResult.ObjectRestKind : String;
  56758. begin
  56759. Result:='TaskQueryByLocationResult';
  56760. end;
  56761. Procedure TSP_WorkManagement_OMTaskQueryByLocationResult.SetError(AIndex: Integer; const AValue: TInt32);
  56762. begin
  56763. If (FError=AValue) then exit;
  56764. FError:=AValue;
  56765. MarkPropertyChanged(AIndex);
  56766. end;
  56767. Procedure TSP_WorkManagement_OMTaskQueryByLocationResult.SetErrorMessage(AIndex: Integer; const AValue: string);
  56768. begin
  56769. If (FErrorMessage=AValue) then exit;
  56770. FErrorMessage:=AValue;
  56771. MarkPropertyChanged(AIndex);
  56772. end;
  56773. Function TSP_WorkManagement_OMTaskQueryByLocationResult.KeyAsURLPart : string;
  56774. begin
  56775. Result:=IntToStr(Error);
  56776. end;
  56777. Function TSP_WorkManagement_OMTaskQueryByLocationResult.Results(AService: TODataService) : TSP_WorkManagement_OMTask;
  56778. begin
  56779. Result:=TSP_WorkManagement_OMTask(GetContainedSingleTon(AService,'Results', TSP_WorkManagement_OMTask));
  56780. end;
  56781. { --------------------------------------------------------------------
  56782. TSP_WorkManagement_OMTaskQueryResult
  56783. --------------------------------------------------------------------}
  56784. Class Function TSP_WorkManagement_OMTaskQueryResult.ObjectRestKind : String;
  56785. begin
  56786. Result:='TaskQueryResult';
  56787. end;
  56788. Procedure TSP_WorkManagement_OMTaskQueryResult.SetError(AIndex: Integer; const AValue: TInt32);
  56789. begin
  56790. If (FError=AValue) then exit;
  56791. FError:=AValue;
  56792. MarkPropertyChanged(AIndex);
  56793. end;
  56794. Procedure TSP_WorkManagement_OMTaskQueryResult.SetErrorMessage(AIndex: Integer; const AValue: string);
  56795. begin
  56796. If (FErrorMessage=AValue) then exit;
  56797. FErrorMessage:=AValue;
  56798. MarkPropertyChanged(AIndex);
  56799. end;
  56800. Function TSP_WorkManagement_OMTaskQueryResult.KeyAsURLPart : string;
  56801. begin
  56802. Result:=IntToStr(Error);
  56803. end;
  56804. Function TSP_WorkManagement_OMTaskQueryResult.Results(AService: TODataService) : TSP_WorkManagement_OMTask;
  56805. begin
  56806. Result:=TSP_WorkManagement_OMTask(GetContainedSingleTon(AService,'Results', TSP_WorkManagement_OMTask));
  56807. end;
  56808. { --------------------------------------------------------------------
  56809. TSP_WorkManagement_OMTaskRefreshResult
  56810. --------------------------------------------------------------------}
  56811. Class Function TSP_WorkManagement_OMTaskRefreshResult.ObjectRestKind : String;
  56812. begin
  56813. Result:='TaskRefreshResult';
  56814. end;
  56815. Procedure TSP_WorkManagement_OMTaskRefreshResult.SetErrorCorrelationId(AIndex: Integer; const AValue: string);
  56816. begin
  56817. If (FErrorCorrelationId=AValue) then exit;
  56818. FErrorCorrelationId:=AValue;
  56819. MarkPropertyChanged(AIndex);
  56820. end;
  56821. Procedure TSP_WorkManagement_OMTaskRefreshResult.SetRefreshState(AIndex: Integer; const AValue: TInt32);
  56822. begin
  56823. If (FRefreshState=AValue) then exit;
  56824. FRefreshState:=AValue;
  56825. MarkPropertyChanged(AIndex);
  56826. end;
  56827. Function TSP_WorkManagement_OMTaskRefreshResult.KeyAsURLPart : string;
  56828. begin
  56829. Result:=TODataObject.MakeKeyString(ErrorCorrelationId);
  56830. end;
  56831. Function TSP_WorkManagement_OMTaskRefreshResult._Result(AService: TODataService) : TSP_WorkManagement_OMTask;
  56832. begin
  56833. Result:=TSP_WorkManagement_OMTask(GetContainedSingleTon(AService,'Result', TSP_WorkManagement_OMTask));
  56834. end;
  56835. { --------------------------------------------------------------------
  56836. TSP_WorkManagement_OMTaskWriteResult
  56837. --------------------------------------------------------------------}
  56838. Class Function TSP_WorkManagement_OMTaskWriteResult.ObjectRestKind : String;
  56839. begin
  56840. Result:='TaskWriteResult';
  56841. end;
  56842. Procedure TSP_WorkManagement_OMTaskWriteResult.SetError(AIndex: Integer; const AValue: TInt32);
  56843. begin
  56844. If (FError=AValue) then exit;
  56845. FError:=AValue;
  56846. MarkPropertyChanged(AIndex);
  56847. end;
  56848. Procedure TSP_WorkManagement_OMTaskWriteResult.SetErrorMessage(AIndex: Integer; const AValue: string);
  56849. begin
  56850. If (FErrorMessage=AValue) then exit;
  56851. FErrorMessage:=AValue;
  56852. MarkPropertyChanged(AIndex);
  56853. end;
  56854. Function TSP_WorkManagement_OMTaskWriteResult.KeyAsURLPart : string;
  56855. begin
  56856. Result:=IntToStr(Error);
  56857. end;
  56858. Function TSP_WorkManagement_OMTaskWriteResult._Result(AService: TODataService) : TSP_WorkManagement_OMTask;
  56859. begin
  56860. Result:=TSP_WorkManagement_OMTask(GetContainedSingleTon(AService,'Result', TSP_WorkManagement_OMTask));
  56861. end;
  56862. { --------------------------------------------------------------------
  56863. TSP_WorkManagement_OMUserOrderedSessionManager
  56864. --------------------------------------------------------------------}
  56865. Class Function TSP_WorkManagement_OMUserOrderedSessionManager.ObjectRestKind : String;
  56866. begin
  56867. Result:='UserOrderedSessionManager';
  56868. end;
  56869. Procedure TSP_WorkManagement_OMUserOrderedSessionManager.SetId4a81de82eeb94d6080ea5bf63e27023a(AIndex: Integer; const AValue: string);
  56870. begin
  56871. If (FId4a81de82eeb94d6080ea5bf63e27023a=AValue) then exit;
  56872. FId4a81de82eeb94d6080ea5bf63e27023a:=AValue;
  56873. MarkPropertyChanged(AIndex);
  56874. end;
  56875. Function TSP_WorkManagement_OMUserOrderedSessionManager.KeyAsURLPart : string;
  56876. begin
  56877. Result:=TODataObject.MakeKeyString(Id4a81de82eeb94d6080ea5bf63e27023a);
  56878. end;
  56879. { --------------------------------------------------------------------
  56880. TSP_WorkManagement_OMUserOrderedSession
  56881. --------------------------------------------------------------------}
  56882. Class Function TSP_WorkManagement_OMUserOrderedSession.ObjectRestKind : String;
  56883. begin
  56884. Result:='UserOrderedSession';
  56885. end;
  56886. { --------------------------------------------------------------------
  56887. TSP_WorkManagement_OMUserSettingsManager
  56888. --------------------------------------------------------------------}
  56889. Class Function TSP_WorkManagement_OMUserSettingsManager.ObjectRestKind : String;
  56890. begin
  56891. Result:='UserSettingsManager';
  56892. end;
  56893. Procedure TSP_WorkManagement_OMUserSettingsManager.SetId4a81de82eeb94d6080ea5bf63e27023a(AIndex: Integer; const AValue: string);
  56894. begin
  56895. If (FId4a81de82eeb94d6080ea5bf63e27023a=AValue) then exit;
  56896. FId4a81de82eeb94d6080ea5bf63e27023a:=AValue;
  56897. MarkPropertyChanged(AIndex);
  56898. end;
  56899. Function TSP_WorkManagement_OMUserSettingsManager.KeyAsURLPart : string;
  56900. begin
  56901. Result:=TODataObject.MakeKeyString(Id4a81de82eeb94d6080ea5bf63e27023a);
  56902. end;
  56903. { --------------------------------------------------------------------
  56904. TSP_WorkManagement_OMViewSelectionInfo
  56905. --------------------------------------------------------------------}
  56906. Class Function TSP_WorkManagement_OMViewSelectionInfo.ObjectRestKind : String;
  56907. begin
  56908. Result:='ViewSelectionInfo';
  56909. end;
  56910. Procedure TSP_WorkManagement_OMViewSelectionInfo.SetId(AIndex: Integer; const AValue: TInt32);
  56911. begin
  56912. If (FId=AValue) then exit;
  56913. FId:=AValue;
  56914. MarkPropertyChanged(AIndex);
  56915. end;
  56916. Procedure TSP_WorkManagement_OMViewSelectionInfo.SetImage(AIndex: Integer; const AValue: string);
  56917. begin
  56918. If (FImage=AValue) then exit;
  56919. FImage:=AValue;
  56920. MarkPropertyChanged(AIndex);
  56921. end;
  56922. Procedure TSP_WorkManagement_OMViewSelectionInfo.SetName(AIndex: Integer; const AValue: string);
  56923. begin
  56924. If (FName=AValue) then exit;
  56925. FName:=AValue;
  56926. MarkPropertyChanged(AIndex);
  56927. end;
  56928. Function TSP_WorkManagement_OMViewSelectionInfo.KeyAsURLPart : string;
  56929. begin
  56930. Result:=IntToStr(Id);
  56931. end;
  56932. { --------------------------------------------------------------------
  56933. TMicrosoft_AppServicesApp
  56934. --------------------------------------------------------------------}
  56935. Class Function TMicrosoft_AppServicesApp.ObjectRestKind : String;
  56936. begin
  56937. Result:='App';
  56938. end;
  56939. Procedure TMicrosoft_AppServicesApp.SetId(AIndex: Integer; const AValue: string);
  56940. begin
  56941. If (FId=AValue) then exit;
  56942. FId:=AValue;
  56943. MarkPropertyChanged(AIndex);
  56944. end;
  56945. Procedure TMicrosoft_AppServicesApp.SetManifest(AIndex: Integer; const AValue: string);
  56946. begin
  56947. If (FManifest=AValue) then exit;
  56948. FManifest:=AValue;
  56949. MarkPropertyChanged(AIndex);
  56950. end;
  56951. Function TMicrosoft_AppServicesApp.KeyAsURLPart : string;
  56952. begin
  56953. Result:=TODataObject.MakeKeyString(Id);
  56954. end;
  56955. { --------------------------------------------------------------------
  56956. TMicrosoft_AppServicesAppStore
  56957. --------------------------------------------------------------------}
  56958. Class Function TMicrosoft_AppServicesAppStore.ObjectRestKind : String;
  56959. begin
  56960. Result:='AppStore';
  56961. end;
  56962. Procedure TMicrosoft_AppServicesAppStore.SetId4a81de82eeb94d6080ea5bf63e27023a(AIndex: Integer; const AValue: string);
  56963. begin
  56964. If (FId4a81de82eeb94d6080ea5bf63e27023a=AValue) then exit;
  56965. FId4a81de82eeb94d6080ea5bf63e27023a:=AValue;
  56966. MarkPropertyChanged(AIndex);
  56967. end;
  56968. Function TMicrosoft_AppServicesAppStore.KeyAsURLPart : string;
  56969. begin
  56970. Result:=TODataObject.MakeKeyString(Id4a81de82eeb94d6080ea5bf63e27023a);
  56971. end;
  56972. Function TMicrosoft_AppServicesAppStore.Apps(AService: TODataService) : TMicrosoft_AppServicesApp;
  56973. begin
  56974. Result:=TMicrosoft_AppServicesApp(GetContainedSingleTon(AService,'Apps', TMicrosoft_AppServicesApp));
  56975. end;
  56976. { --------------------------------------------------------------------
  56977. TSP_CompliancePolicyPolicyEvaluationInfo
  56978. --------------------------------------------------------------------}
  56979. Class Function TSP_CompliancePolicyPolicyEvaluationInfo.ObjectRestKind : String;
  56980. begin
  56981. Result:='PolicyEvaluationInfo';
  56982. end;
  56983. Procedure TSP_CompliancePolicyPolicyEvaluationInfo.SetApplicablePolicies(AIndex: Integer; const AValue: TStringArray);
  56984. begin
  56985. If (FApplicablePolicies=AValue) then exit;
  56986. FApplicablePolicies:=AValue;
  56987. MarkPropertyChanged(AIndex);
  56988. end;
  56989. Procedure TSP_CompliancePolicyPolicyEvaluationInfo.SetDlpAccessScope(AIndex: Integer; const AValue: TInt32);
  56990. begin
  56991. If (FDlpAccessScope=AValue) then exit;
  56992. FDlpAccessScope:=AValue;
  56993. MarkPropertyChanged(AIndex);
  56994. end;
  56995. Procedure TSP_CompliancePolicyPolicyEvaluationInfo.SetOverriddenRules(AIndex: Integer; const AValue: TStringArray);
  56996. begin
  56997. If (FOverriddenRules=AValue) then exit;
  56998. FOverriddenRules:=AValue;
  56999. MarkPropertyChanged(AIndex);
  57000. end;
  57001. {$IFDEF VER2_6}
  57002. Procedure TSP_CompliancePolicyPolicyEvaluationInfo.SetArrayLength(const AName: String; ALength: Longint);
  57003. begin
  57004. Case aName of
  57005. 'applicablepolicies' : SetLength(FApplicablePolicies,aLength);
  57006. 'overriddenrules' : SetLength(FOverriddenRules,aLength);
  57007. else
  57008. inherited SetArrayLength(aName,ALength);
  57009. end;
  57010. end;
  57011. {$ENDIF VER2_6}
  57012. Function TSP_CompliancePolicyPolicyEvaluationInfo.KeyAsURLPart : string;
  57013. begin
  57014. Result:=IntToStr(DlpAccessScope);
  57015. end;
  57016. { --------------------------------------------------------------------
  57017. TSP_CompliancePolicySPPolicyStoreProxy
  57018. --------------------------------------------------------------------}
  57019. Class Function TSP_CompliancePolicySPPolicyStoreProxy.ObjectRestKind : String;
  57020. begin
  57021. Result:='SPPolicyStoreProxy';
  57022. end;
  57023. Procedure TSP_CompliancePolicySPPolicyStoreProxy.SetPolicyStoreUrl(AIndex: Integer; const AValue: string);
  57024. begin
  57025. If (FPolicyStoreUrl=AValue) then exit;
  57026. FPolicyStoreUrl:=AValue;
  57027. MarkPropertyChanged(AIndex);
  57028. end;
  57029. Function TSP_CompliancePolicySPPolicyStoreProxy.KeyAsURLPart : string;
  57030. begin
  57031. Result:=TODataObject.MakeKeyString(PolicyStoreUrl);
  57032. end;
  57033. { --------------------------------------------------------------------
  57034. TSPO_IdentitySPOIdentityHelper
  57035. --------------------------------------------------------------------}
  57036. Class Function TSPO_IdentitySPOIdentityHelper.ObjectRestKind : String;
  57037. begin
  57038. Result:='SPOIdentityHelper';
  57039. end;
  57040. Procedure TSPO_IdentitySPOIdentityHelper.SetId4a81de82eeb94d6080ea5bf63e27023a(AIndex: Integer; const AValue: string);
  57041. begin
  57042. If (FId4a81de82eeb94d6080ea5bf63e27023a=AValue) then exit;
  57043. FId4a81de82eeb94d6080ea5bf63e27023a:=AValue;
  57044. MarkPropertyChanged(AIndex);
  57045. end;
  57046. Function TSPO_IdentitySPOIdentityHelper.KeyAsURLPart : string;
  57047. begin
  57048. Result:=TODataObject.MakeKeyString(Id4a81de82eeb94d6080ea5bf63e27023a);
  57049. end;
  57050. { --------------------------------------------------------------------
  57051. TOBA_Server_ServerWrapperDiagnostics
  57052. --------------------------------------------------------------------}
  57053. Class Function TOBA_Server_ServerWrapperDiagnostics.ObjectRestKind : String;
  57054. begin
  57055. Result:='Diagnostics';
  57056. end;
  57057. Procedure TOBA_Server_ServerWrapperDiagnostics.SetId4a81de82eeb94d6080ea5bf63e27023a(AIndex: Integer; const AValue: string);
  57058. begin
  57059. If (FId4a81de82eeb94d6080ea5bf63e27023a=AValue) then exit;
  57060. FId4a81de82eeb94d6080ea5bf63e27023a:=AValue;
  57061. MarkPropertyChanged(AIndex);
  57062. end;
  57063. Function TOBA_Server_ServerWrapperDiagnostics.KeyAsURLPart : string;
  57064. begin
  57065. Result:=TODataObject.MakeKeyString(Id4a81de82eeb94d6080ea5bf63e27023a);
  57066. end;
  57067. { --------------------------------------------------------------------
  57068. TOBA_Server_ServerWrapperReporting
  57069. --------------------------------------------------------------------}
  57070. Class Function TOBA_Server_ServerWrapperReporting.ObjectRestKind : String;
  57071. begin
  57072. Result:='Reporting';
  57073. end;
  57074. Procedure TOBA_Server_ServerWrapperReporting.SetId4a81de82eeb94d6080ea5bf63e27023a(AIndex: Integer; const AValue: string);
  57075. begin
  57076. If (FId4a81de82eeb94d6080ea5bf63e27023a=AValue) then exit;
  57077. FId4a81de82eeb94d6080ea5bf63e27023a:=AValue;
  57078. MarkPropertyChanged(AIndex);
  57079. end;
  57080. Function TOBA_Server_ServerWrapperReporting.KeyAsURLPart : string;
  57081. begin
  57082. Result:=TODataObject.MakeKeyString(Id4a81de82eeb94d6080ea5bf63e27023a);
  57083. end;
  57084. { --------------------------------------------------------------------
  57085. TOBA_Server_ServerWrapperTaskflow
  57086. --------------------------------------------------------------------}
  57087. Class Function TOBA_Server_ServerWrapperTaskflow.ObjectRestKind : String;
  57088. begin
  57089. Result:='Taskflow';
  57090. end;
  57091. Procedure TOBA_Server_ServerWrapperTaskflow.SetId4a81de82eeb94d6080ea5bf63e27023a(AIndex: Integer; const AValue: string);
  57092. begin
  57093. If (FId4a81de82eeb94d6080ea5bf63e27023a=AValue) then exit;
  57094. FId4a81de82eeb94d6080ea5bf63e27023a:=AValue;
  57095. MarkPropertyChanged(AIndex);
  57096. end;
  57097. Function TOBA_Server_ServerWrapperTaskflow.KeyAsURLPart : string;
  57098. begin
  57099. Result:=TODataObject.MakeKeyString(Id4a81de82eeb94d6080ea5bf63e27023a);
  57100. end;
  57101. { --------------------------------------------------------------------
  57102. TSP_WorkflowServicesWorkflowDefinition
  57103. --------------------------------------------------------------------}
  57104. Class Function TSP_WorkflowServicesWorkflowDefinition.ObjectRestKind : String;
  57105. begin
  57106. Result:='WorkflowDefinition';
  57107. end;
  57108. Procedure TSP_WorkflowServicesWorkflowDefinition.SetAssociationUrl(AIndex: Integer; const AValue: string);
  57109. begin
  57110. If (FAssociationUrl=AValue) then exit;
  57111. FAssociationUrl:=AValue;
  57112. MarkPropertyChanged(AIndex);
  57113. end;
  57114. Procedure TSP_WorkflowServicesWorkflowDefinition.SetDescription(AIndex: Integer; const AValue: string);
  57115. begin
  57116. If (FDescription=AValue) then exit;
  57117. FDescription:=AValue;
  57118. MarkPropertyChanged(AIndex);
  57119. end;
  57120. Procedure TSP_WorkflowServicesWorkflowDefinition.SetDisplayName(AIndex: Integer; const AValue: string);
  57121. begin
  57122. If (FDisplayName=AValue) then exit;
  57123. FDisplayName:=AValue;
  57124. MarkPropertyChanged(AIndex);
  57125. end;
  57126. Procedure TSP_WorkflowServicesWorkflowDefinition.SetDraftVersion(AIndex: Integer; const AValue: string);
  57127. begin
  57128. If (FDraftVersion=AValue) then exit;
  57129. FDraftVersion:=AValue;
  57130. MarkPropertyChanged(AIndex);
  57131. end;
  57132. Procedure TSP_WorkflowServicesWorkflowDefinition.SetFormField(AIndex: Integer; const AValue: string);
  57133. begin
  57134. If (FFormField=AValue) then exit;
  57135. FFormField:=AValue;
  57136. MarkPropertyChanged(AIndex);
  57137. end;
  57138. Procedure TSP_WorkflowServicesWorkflowDefinition.SetId(AIndex: Integer; const AValue: TGUIDString);
  57139. begin
  57140. If (FId=AValue) then exit;
  57141. FId:=AValue;
  57142. MarkPropertyChanged(AIndex);
  57143. end;
  57144. Procedure TSP_WorkflowServicesWorkflowDefinition.SetInitiationUrl(AIndex: Integer; const AValue: string);
  57145. begin
  57146. If (FInitiationUrl=AValue) then exit;
  57147. FInitiationUrl:=AValue;
  57148. MarkPropertyChanged(AIndex);
  57149. end;
  57150. Procedure TSP_WorkflowServicesWorkflowDefinition.SetProperties(AIndex: Integer; const AValue: TSPKeyValueArray);
  57151. begin
  57152. If (FProperties=AValue) then exit;
  57153. FProperties:=AValue;
  57154. MarkPropertyChanged(AIndex);
  57155. end;
  57156. Procedure TSP_WorkflowServicesWorkflowDefinition.Set_Published(AIndex: Integer; const AValue: boolean);
  57157. begin
  57158. If (F_Published=AValue) then exit;
  57159. F_Published:=AValue;
  57160. MarkPropertyChanged(AIndex);
  57161. end;
  57162. Procedure TSP_WorkflowServicesWorkflowDefinition.SetRequiresAssociationForm(AIndex: Integer; const AValue: boolean);
  57163. begin
  57164. If (FRequiresAssociationForm=AValue) then exit;
  57165. FRequiresAssociationForm:=AValue;
  57166. MarkPropertyChanged(AIndex);
  57167. end;
  57168. Procedure TSP_WorkflowServicesWorkflowDefinition.SetRequiresInitiationForm(AIndex: Integer; const AValue: boolean);
  57169. begin
  57170. If (FRequiresInitiationForm=AValue) then exit;
  57171. FRequiresInitiationForm:=AValue;
  57172. MarkPropertyChanged(AIndex);
  57173. end;
  57174. Procedure TSP_WorkflowServicesWorkflowDefinition.SetRestrictToScope(AIndex: Integer; const AValue: string);
  57175. begin
  57176. If (FRestrictToScope=AValue) then exit;
  57177. FRestrictToScope:=AValue;
  57178. MarkPropertyChanged(AIndex);
  57179. end;
  57180. Procedure TSP_WorkflowServicesWorkflowDefinition.SetRestrictToType(AIndex: Integer; const AValue: string);
  57181. begin
  57182. If (FRestrictToType=AValue) then exit;
  57183. FRestrictToType:=AValue;
  57184. MarkPropertyChanged(AIndex);
  57185. end;
  57186. Procedure TSP_WorkflowServicesWorkflowDefinition.SetXaml(AIndex: Integer; const AValue: string);
  57187. begin
  57188. If (FXaml=AValue) then exit;
  57189. FXaml:=AValue;
  57190. MarkPropertyChanged(AIndex);
  57191. end;
  57192. {$IFDEF VER2_6}
  57193. Procedure TSP_WorkflowServicesWorkflowDefinition.SetArrayLength(const AName: String; ALength: Longint);
  57194. begin
  57195. Case aName of
  57196. 'properties' : SetLength(FProperties,aLength);
  57197. else
  57198. inherited SetArrayLength(aName,ALength);
  57199. end;
  57200. end;
  57201. {$ENDIF VER2_6}
  57202. Class Function TSP_WorkflowServicesWorkflowDefinition.ExportPropertyName(Const AName : String) :String;
  57203. begin
  57204. Case AName of
  57205. '_Published' : Result:='Published';
  57206. else
  57207. Result:=Inherited ExportPropertyName(AName);
  57208. end;
  57209. end;
  57210. Function TSP_WorkflowServicesWorkflowDefinition.KeyAsURLPart : string;
  57211. begin
  57212. Result:=TODataObject.MakeKeyString(Id);
  57213. end;
  57214. { --------------------------------------------------------------------
  57215. TSP_WorkflowServicesWorkflowDeploymentService
  57216. --------------------------------------------------------------------}
  57217. Class Function TSP_WorkflowServicesWorkflowDeploymentService.ObjectRestKind : String;
  57218. begin
  57219. Result:='WorkflowDeploymentService';
  57220. end;
  57221. Procedure TSP_WorkflowServicesWorkflowDeploymentService.SetId4a81de82eeb94d6080ea5bf63e27023a(AIndex: Integer; const AValue: string);
  57222. begin
  57223. If (FId4a81de82eeb94d6080ea5bf63e27023a=AValue) then exit;
  57224. FId4a81de82eeb94d6080ea5bf63e27023a:=AValue;
  57225. MarkPropertyChanged(AIndex);
  57226. end;
  57227. Function TSP_WorkflowServicesWorkflowDeploymentService.KeyAsURLPart : string;
  57228. begin
  57229. Result:=TODataObject.MakeKeyString(Id4a81de82eeb94d6080ea5bf63e27023a);
  57230. end;
  57231. { --------------------------------------------------------------------
  57232. TSP_WorkflowServicesWorkflowInstance
  57233. --------------------------------------------------------------------}
  57234. Class Function TSP_WorkflowServicesWorkflowInstance.ObjectRestKind : String;
  57235. begin
  57236. Result:='WorkflowInstance';
  57237. end;
  57238. Procedure TSP_WorkflowServicesWorkflowInstance.SetFaultInfo(AIndex: Integer; const AValue: string);
  57239. begin
  57240. If (FFaultInfo=AValue) then exit;
  57241. FFaultInfo:=AValue;
  57242. MarkPropertyChanged(AIndex);
  57243. end;
  57244. Procedure TSP_WorkflowServicesWorkflowInstance.SetId(AIndex: Integer; const AValue: TGUIDString);
  57245. begin
  57246. If (FId=AValue) then exit;
  57247. FId:=AValue;
  57248. MarkPropertyChanged(AIndex);
  57249. end;
  57250. Procedure TSP_WorkflowServicesWorkflowInstance.SetInstanceCreated(AIndex: Integer; const AValue: TDateTime);
  57251. begin
  57252. If (FInstanceCreated=AValue) then exit;
  57253. FInstanceCreated:=AValue;
  57254. MarkPropertyChanged(AIndex);
  57255. end;
  57256. Procedure TSP_WorkflowServicesWorkflowInstance.SetLastUpdated(AIndex: Integer; const AValue: TDateTime);
  57257. begin
  57258. If (FLastUpdated=AValue) then exit;
  57259. FLastUpdated:=AValue;
  57260. MarkPropertyChanged(AIndex);
  57261. end;
  57262. Procedure TSP_WorkflowServicesWorkflowInstance.SetProperties(AIndex: Integer; const AValue: TSPKeyValueArray);
  57263. begin
  57264. If (FProperties=AValue) then exit;
  57265. FProperties:=AValue;
  57266. MarkPropertyChanged(AIndex);
  57267. end;
  57268. Procedure TSP_WorkflowServicesWorkflowInstance.SetStatus(AIndex: Integer; const AValue: TInt32);
  57269. begin
  57270. If (FStatus=AValue) then exit;
  57271. FStatus:=AValue;
  57272. MarkPropertyChanged(AIndex);
  57273. end;
  57274. Procedure TSP_WorkflowServicesWorkflowInstance.SetUserStatus(AIndex: Integer; const AValue: string);
  57275. begin
  57276. If (FUserStatus=AValue) then exit;
  57277. FUserStatus:=AValue;
  57278. MarkPropertyChanged(AIndex);
  57279. end;
  57280. Procedure TSP_WorkflowServicesWorkflowInstance.SetWorkflowSubscriptionId(AIndex: Integer; const AValue: TGUIDString);
  57281. begin
  57282. If (FWorkflowSubscriptionId=AValue) then exit;
  57283. FWorkflowSubscriptionId:=AValue;
  57284. MarkPropertyChanged(AIndex);
  57285. end;
  57286. {$IFDEF VER2_6}
  57287. Procedure TSP_WorkflowServicesWorkflowInstance.SetArrayLength(const AName: String; ALength: Longint);
  57288. begin
  57289. Case aName of
  57290. 'properties' : SetLength(FProperties,aLength);
  57291. else
  57292. inherited SetArrayLength(aName,ALength);
  57293. end;
  57294. end;
  57295. {$ENDIF VER2_6}
  57296. Function TSP_WorkflowServicesWorkflowInstance.KeyAsURLPart : string;
  57297. begin
  57298. Result:=TODataObject.MakeKeyString(Id);
  57299. end;
  57300. { --------------------------------------------------------------------
  57301. TSP_WorkflowServicesWorkflowInstanceService
  57302. --------------------------------------------------------------------}
  57303. Class Function TSP_WorkflowServicesWorkflowInstanceService.ObjectRestKind : String;
  57304. begin
  57305. Result:='WorkflowInstanceService';
  57306. end;
  57307. Procedure TSP_WorkflowServicesWorkflowInstanceService.SetId4a81de82eeb94d6080ea5bf63e27023a(AIndex: Integer; const AValue: string);
  57308. begin
  57309. If (FId4a81de82eeb94d6080ea5bf63e27023a=AValue) then exit;
  57310. FId4a81de82eeb94d6080ea5bf63e27023a:=AValue;
  57311. MarkPropertyChanged(AIndex);
  57312. end;
  57313. Function TSP_WorkflowServicesWorkflowInstanceService.KeyAsURLPart : string;
  57314. begin
  57315. Result:=TODataObject.MakeKeyString(Id4a81de82eeb94d6080ea5bf63e27023a);
  57316. end;
  57317. Function TSP_WorkflowServicesWorkflowInstanceService.Current(AService: TODataService) : TSP_WorkflowServicesWorkflowInstanceService;
  57318. begin
  57319. Result:=TSP_WorkflowServicesWorkflowInstanceService(GetContainedSingleTon(AService,'Current', TSP_WorkflowServicesWorkflowInstanceService));
  57320. end;
  57321. { --------------------------------------------------------------------
  57322. TSP_WorkflowServicesInteropService
  57323. --------------------------------------------------------------------}
  57324. Class Function TSP_WorkflowServicesInteropService.ObjectRestKind : String;
  57325. begin
  57326. Result:='InteropService';
  57327. end;
  57328. Procedure TSP_WorkflowServicesInteropService.SetId4a81de82eeb94d6080ea5bf63e27023a(AIndex: Integer; const AValue: string);
  57329. begin
  57330. If (FId4a81de82eeb94d6080ea5bf63e27023a=AValue) then exit;
  57331. FId4a81de82eeb94d6080ea5bf63e27023a:=AValue;
  57332. MarkPropertyChanged(AIndex);
  57333. end;
  57334. Function TSP_WorkflowServicesInteropService.KeyAsURLPart : string;
  57335. begin
  57336. Result:=TODataObject.MakeKeyString(Id4a81de82eeb94d6080ea5bf63e27023a);
  57337. end;
  57338. Function TSP_WorkflowServicesInteropService.Current(AService: TODataService) : TSP_WorkflowServicesInteropService;
  57339. begin
  57340. Result:=TSP_WorkflowServicesInteropService(GetContainedSingleTon(AService,'Current', TSP_WorkflowServicesInteropService));
  57341. end;
  57342. { --------------------------------------------------------------------
  57343. TSP_WorkflowServicesWorkflowServicesManager
  57344. --------------------------------------------------------------------}
  57345. Class Function TSP_WorkflowServicesWorkflowServicesManager.ObjectRestKind : String;
  57346. begin
  57347. Result:='WorkflowServicesManager';
  57348. end;
  57349. Procedure TSP_WorkflowServicesWorkflowServicesManager.SetAppId(AIndex: Integer; const AValue: string);
  57350. begin
  57351. If (FAppId=AValue) then exit;
  57352. FAppId:=AValue;
  57353. MarkPropertyChanged(AIndex);
  57354. end;
  57355. Procedure TSP_WorkflowServicesWorkflowServicesManager.SetIsConnected(AIndex: Integer; const AValue: boolean);
  57356. begin
  57357. If (FIsConnected=AValue) then exit;
  57358. FIsConnected:=AValue;
  57359. MarkPropertyChanged(AIndex);
  57360. end;
  57361. Procedure TSP_WorkflowServicesWorkflowServicesManager.SetScopePath(AIndex: Integer; const AValue: string);
  57362. begin
  57363. If (FScopePath=AValue) then exit;
  57364. FScopePath:=AValue;
  57365. MarkPropertyChanged(AIndex);
  57366. end;
  57367. Procedure TSP_WorkflowServicesWorkflowServicesManager.SetServiceHealthStatus(AIndex: Integer; const AValue: TInt32);
  57368. begin
  57369. If (FServiceHealthStatus=AValue) then exit;
  57370. FServiceHealthStatus:=AValue;
  57371. MarkPropertyChanged(AIndex);
  57372. end;
  57373. Function TSP_WorkflowServicesWorkflowServicesManager.KeyAsURLPart : string;
  57374. begin
  57375. Result:=TODataObject.MakeKeyString(AppId);
  57376. end;
  57377. Function TSP_WorkflowServicesWorkflowServicesManager.Current(AService: TODataService) : TSP_WorkflowServicesWorkflowServicesManager;
  57378. begin
  57379. Result:=TSP_WorkflowServicesWorkflowServicesManager(GetContainedSingleTon(AService,'Current', TSP_WorkflowServicesWorkflowServicesManager));
  57380. end;
  57381. { --------------------------------------------------------------------
  57382. TSP_WorkflowServicesWorkflowSubscription
  57383. --------------------------------------------------------------------}
  57384. Class Function TSP_WorkflowServicesWorkflowSubscription.ObjectRestKind : String;
  57385. begin
  57386. Result:='WorkflowSubscription';
  57387. end;
  57388. Procedure TSP_WorkflowServicesWorkflowSubscription.SetDefinitionId(AIndex: Integer; const AValue: TGUIDString);
  57389. begin
  57390. If (FDefinitionId=AValue) then exit;
  57391. FDefinitionId:=AValue;
  57392. MarkPropertyChanged(AIndex);
  57393. end;
  57394. Procedure TSP_WorkflowServicesWorkflowSubscription.SetEnabled(AIndex: Integer; const AValue: boolean);
  57395. begin
  57396. If (FEnabled=AValue) then exit;
  57397. FEnabled:=AValue;
  57398. MarkPropertyChanged(AIndex);
  57399. end;
  57400. Procedure TSP_WorkflowServicesWorkflowSubscription.SetEventSourceId(AIndex: Integer; const AValue: TGUIDString);
  57401. begin
  57402. If (FEventSourceId=AValue) then exit;
  57403. FEventSourceId:=AValue;
  57404. MarkPropertyChanged(AIndex);
  57405. end;
  57406. Procedure TSP_WorkflowServicesWorkflowSubscription.SetEventTypes(AIndex: Integer; const AValue: TStringArray);
  57407. begin
  57408. If (FEventTypes=AValue) then exit;
  57409. FEventTypes:=AValue;
  57410. MarkPropertyChanged(AIndex);
  57411. end;
  57412. Procedure TSP_WorkflowServicesWorkflowSubscription.SetId(AIndex: Integer; const AValue: TGUIDString);
  57413. begin
  57414. If (FId=AValue) then exit;
  57415. FId:=AValue;
  57416. MarkPropertyChanged(AIndex);
  57417. end;
  57418. Procedure TSP_WorkflowServicesWorkflowSubscription.SetManualStartBypassesActivationLimit(AIndex: Integer; const AValue: boolean);
  57419. begin
  57420. If (FManualStartBypassesActivationLimit=AValue) then exit;
  57421. FManualStartBypassesActivationLimit:=AValue;
  57422. MarkPropertyChanged(AIndex);
  57423. end;
  57424. Procedure TSP_WorkflowServicesWorkflowSubscription.SetName(AIndex: Integer; const AValue: string);
  57425. begin
  57426. If (FName=AValue) then exit;
  57427. FName:=AValue;
  57428. MarkPropertyChanged(AIndex);
  57429. end;
  57430. Procedure TSP_WorkflowServicesWorkflowSubscription.SetParentContentTypeId(AIndex: Integer; const AValue: string);
  57431. begin
  57432. If (FParentContentTypeId=AValue) then exit;
  57433. FParentContentTypeId:=AValue;
  57434. MarkPropertyChanged(AIndex);
  57435. end;
  57436. Procedure TSP_WorkflowServicesWorkflowSubscription.SetPropertyDefinitions(AIndex: Integer; const AValue: TSPKeyValueArray);
  57437. begin
  57438. If (FPropertyDefinitions=AValue) then exit;
  57439. FPropertyDefinitions:=AValue;
  57440. MarkPropertyChanged(AIndex);
  57441. end;
  57442. Procedure TSP_WorkflowServicesWorkflowSubscription.SetStatusFieldName(AIndex: Integer; const AValue: string);
  57443. begin
  57444. If (FStatusFieldName=AValue) then exit;
  57445. FStatusFieldName:=AValue;
  57446. MarkPropertyChanged(AIndex);
  57447. end;
  57448. {$IFDEF VER2_6}
  57449. Procedure TSP_WorkflowServicesWorkflowSubscription.SetArrayLength(const AName: String; ALength: Longint);
  57450. begin
  57451. Case aName of
  57452. 'eventtypes' : SetLength(FEventTypes,aLength);
  57453. 'propertydefinitions' : SetLength(FPropertyDefinitions,aLength);
  57454. else
  57455. inherited SetArrayLength(aName,ALength);
  57456. end;
  57457. end;
  57458. {$ENDIF VER2_6}
  57459. Function TSP_WorkflowServicesWorkflowSubscription.KeyAsURLPart : string;
  57460. begin
  57461. Result:=TODataObject.MakeKeyString(Id);
  57462. end;
  57463. { --------------------------------------------------------------------
  57464. TSP_WorkflowServicesWorkflowSubscriptionService
  57465. --------------------------------------------------------------------}
  57466. Class Function TSP_WorkflowServicesWorkflowSubscriptionService.ObjectRestKind : String;
  57467. begin
  57468. Result:='WorkflowSubscriptionService';
  57469. end;
  57470. Procedure TSP_WorkflowServicesWorkflowSubscriptionService.SetId4a81de82eeb94d6080ea5bf63e27023a(AIndex: Integer; const AValue: string);
  57471. begin
  57472. If (FId4a81de82eeb94d6080ea5bf63e27023a=AValue) then exit;
  57473. FId4a81de82eeb94d6080ea5bf63e27023a:=AValue;
  57474. MarkPropertyChanged(AIndex);
  57475. end;
  57476. Function TSP_WorkflowServicesWorkflowSubscriptionService.KeyAsURLPart : string;
  57477. begin
  57478. Result:=TODataObject.MakeKeyString(Id4a81de82eeb94d6080ea5bf63e27023a);
  57479. end;
  57480. Function TSP_WorkflowServicesWorkflowSubscriptionService.Current(AService: TODataService) : TSP_WorkflowServicesWorkflowSubscriptionService;
  57481. begin
  57482. Result:=TSP_WorkflowServicesWorkflowSubscriptionService(GetContainedSingleTon(AService,'Current', TSP_WorkflowServicesWorkflowSubscriptionService));
  57483. end;
  57484. { --------------------------------------------------------------------
  57485. TSP_WorkflowServicesWorkflowMessagingService
  57486. --------------------------------------------------------------------}
  57487. Class Function TSP_WorkflowServicesWorkflowMessagingService.ObjectRestKind : String;
  57488. begin
  57489. Result:='WorkflowMessagingService';
  57490. end;
  57491. Procedure TSP_WorkflowServicesWorkflowMessagingService.SetId4a81de82eeb94d6080ea5bf63e27023a(AIndex: Integer; const AValue: string);
  57492. begin
  57493. If (FId4a81de82eeb94d6080ea5bf63e27023a=AValue) then exit;
  57494. FId4a81de82eeb94d6080ea5bf63e27023a:=AValue;
  57495. MarkPropertyChanged(AIndex);
  57496. end;
  57497. Function TSP_WorkflowServicesWorkflowMessagingService.KeyAsURLPart : string;
  57498. begin
  57499. Result:=TODataObject.MakeKeyString(Id4a81de82eeb94d6080ea5bf63e27023a);
  57500. end;
  57501. { --------------------------------------------------------------------
  57502. TMicrosoft_Office_Server_ReputationModelReputation
  57503. --------------------------------------------------------------------}
  57504. Class Function TMicrosoft_Office_Server_ReputationModelReputation.ObjectRestKind : String;
  57505. begin
  57506. Result:='Reputation';
  57507. end;
  57508. Procedure TMicrosoft_Office_Server_ReputationModelReputation.SetId4a81de82eeb94d6080ea5bf63e27023a(AIndex: Integer; const AValue: string);
  57509. begin
  57510. If (FId4a81de82eeb94d6080ea5bf63e27023a=AValue) then exit;
  57511. FId4a81de82eeb94d6080ea5bf63e27023a:=AValue;
  57512. MarkPropertyChanged(AIndex);
  57513. end;
  57514. Function TMicrosoft_Office_Server_ReputationModelReputation.KeyAsURLPart : string;
  57515. begin
  57516. Result:=TODataObject.MakeKeyString(Id4a81de82eeb94d6080ea5bf63e27023a);
  57517. end;
  57518. { --------------------------------------------------------------------
  57519. TMicrosoft_SharePoint_Client_Search_AdministrationDocumentCrawlLog
  57520. --------------------------------------------------------------------}
  57521. Class Function TMicrosoft_SharePoint_Client_Search_AdministrationDocumentCrawlLog.ObjectRestKind : String;
  57522. begin
  57523. Result:='DocumentCrawlLog';
  57524. end;
  57525. Procedure TMicrosoft_SharePoint_Client_Search_AdministrationDocumentCrawlLog.SetId4a81de82eeb94d6080ea5bf63e27023a(AIndex: Integer; const AValue: string);
  57526. begin
  57527. If (FId4a81de82eeb94d6080ea5bf63e27023a=AValue) then exit;
  57528. FId4a81de82eeb94d6080ea5bf63e27023a:=AValue;
  57529. MarkPropertyChanged(AIndex);
  57530. end;
  57531. Function TMicrosoft_SharePoint_Client_Search_AdministrationDocumentCrawlLog.KeyAsURLPart : string;
  57532. begin
  57533. Result:=TODataObject.MakeKeyString(Id4a81de82eeb94d6080ea5bf63e27023a);
  57534. end;
  57535. { --------------------------------------------------------------------
  57536. TMicrosoft_BusinessData_Infrastructure_SecureStoreConnectionSettings
  57537. --------------------------------------------------------------------}
  57538. Class Function TMicrosoft_BusinessData_Infrastructure_SecureStoreConnectionSettings.ObjectRestKind : String;
  57539. begin
  57540. Result:='ConnectionSettings';
  57541. end;
  57542. Procedure TMicrosoft_BusinessData_Infrastructure_SecureStoreConnectionSettings.SetAuthenticationMode(AIndex: Integer; const AValue: string);
  57543. begin
  57544. If (FAuthenticationMode=AValue) then exit;
  57545. FAuthenticationMode:=AValue;
  57546. MarkPropertyChanged(AIndex);
  57547. end;
  57548. Procedure TMicrosoft_BusinessData_Infrastructure_SecureStoreConnectionSettings.SetConnectionSettingsType(AIndex: Integer; const AValue: TInt32);
  57549. begin
  57550. If (FConnectionSettingsType=AValue) then exit;
  57551. FConnectionSettingsType:=AValue;
  57552. MarkPropertyChanged(AIndex);
  57553. end;
  57554. Procedure TMicrosoft_BusinessData_Infrastructure_SecureStoreConnectionSettings.SetDescription(AIndex: Integer; const AValue: string);
  57555. begin
  57556. If (FDescription=AValue) then exit;
  57557. FDescription:=AValue;
  57558. MarkPropertyChanged(AIndex);
  57559. end;
  57560. Procedure TMicrosoft_BusinessData_Infrastructure_SecureStoreConnectionSettings.SetName(AIndex: Integer; const AValue: string);
  57561. begin
  57562. If (FName=AValue) then exit;
  57563. FName:=AValue;
  57564. MarkPropertyChanged(AIndex);
  57565. end;
  57566. Procedure TMicrosoft_BusinessData_Infrastructure_SecureStoreConnectionSettings.SetParentName(AIndex: Integer; const AValue: string);
  57567. begin
  57568. If (FParentName=AValue) then exit;
  57569. FParentName:=AValue;
  57570. MarkPropertyChanged(AIndex);
  57571. end;
  57572. Procedure TMicrosoft_BusinessData_Infrastructure_SecureStoreConnectionSettings.SetProxySSOApplicationId(AIndex: Integer; const AValue: string);
  57573. begin
  57574. If (FProxySSOApplicationId=AValue) then exit;
  57575. FProxySSOApplicationId:=AValue;
  57576. MarkPropertyChanged(AIndex);
  57577. end;
  57578. Procedure TMicrosoft_BusinessData_Infrastructure_SecureStoreConnectionSettings.SetProxyTarget(AIndex: Integer; const AValue: string);
  57579. begin
  57580. If (FProxyTarget=AValue) then exit;
  57581. FProxyTarget:=AValue;
  57582. MarkPropertyChanged(AIndex);
  57583. end;
  57584. Procedure TMicrosoft_BusinessData_Infrastructure_SecureStoreConnectionSettings.SetSSOApplicationId(AIndex: Integer; const AValue: string);
  57585. begin
  57586. If (FSSOApplicationId=AValue) then exit;
  57587. FSSOApplicationId:=AValue;
  57588. MarkPropertyChanged(AIndex);
  57589. end;
  57590. Procedure TMicrosoft_BusinessData_Infrastructure_SecureStoreConnectionSettings.SetSSOProviderImplId(AIndex: Integer; const AValue: string);
  57591. begin
  57592. If (FSSOProviderImplId=AValue) then exit;
  57593. FSSOProviderImplId:=AValue;
  57594. MarkPropertyChanged(AIndex);
  57595. end;
  57596. Procedure TMicrosoft_BusinessData_Infrastructure_SecureStoreConnectionSettings.SetTarget(AIndex: Integer; const AValue: string);
  57597. begin
  57598. If (FTarget=AValue) then exit;
  57599. FTarget:=AValue;
  57600. MarkPropertyChanged(AIndex);
  57601. end;
  57602. Function TMicrosoft_BusinessData_Infrastructure_SecureStoreConnectionSettings.KeyAsURLPart : string;
  57603. begin
  57604. Result:=TODataObject.MakeKeyString(Name);
  57605. end;
  57606. { --------------------------------------------------------------------
  57607. TMicrosoft_Office_SecureStoreService_ServerTargetApplicationField
  57608. --------------------------------------------------------------------}
  57609. Class Function TMicrosoft_Office_SecureStoreService_ServerTargetApplicationField.ObjectRestKind : String;
  57610. begin
  57611. Result:='TargetApplicationField';
  57612. end;
  57613. Procedure TMicrosoft_Office_SecureStoreService_ServerTargetApplicationField.SetCredentialType(AIndex: Integer; const AValue: TInt32);
  57614. begin
  57615. If (FCredentialType=AValue) then exit;
  57616. FCredentialType:=AValue;
  57617. MarkPropertyChanged(AIndex);
  57618. end;
  57619. Procedure TMicrosoft_Office_SecureStoreService_ServerTargetApplicationField.SetIsMasked(AIndex: Integer; const AValue: boolean);
  57620. begin
  57621. If (FIsMasked=AValue) then exit;
  57622. FIsMasked:=AValue;
  57623. MarkPropertyChanged(AIndex);
  57624. end;
  57625. Procedure TMicrosoft_Office_SecureStoreService_ServerTargetApplicationField.SetName(AIndex: Integer; const AValue: string);
  57626. begin
  57627. If (FName=AValue) then exit;
  57628. FName:=AValue;
  57629. MarkPropertyChanged(AIndex);
  57630. end;
  57631. Function TMicrosoft_Office_SecureStoreService_ServerTargetApplicationField.KeyAsURLPart : string;
  57632. begin
  57633. Result:=TODataObject.MakeKeyString(Name);
  57634. end;
  57635. { --------------------------------------------------------------------
  57636. TMicrosoft_Office_SecureStoreService_ServerTargetApplication
  57637. --------------------------------------------------------------------}
  57638. Class Function TMicrosoft_Office_SecureStoreService_ServerTargetApplication.ObjectRestKind : String;
  57639. begin
  57640. Result:='TargetApplication';
  57641. end;
  57642. Procedure TMicrosoft_Office_SecureStoreService_ServerTargetApplication.SetApplicationId(AIndex: Integer; const AValue: string);
  57643. begin
  57644. If (FApplicationId=AValue) then exit;
  57645. FApplicationId:=AValue;
  57646. MarkPropertyChanged(AIndex);
  57647. end;
  57648. Procedure TMicrosoft_Office_SecureStoreService_ServerTargetApplication.SetContactEmail(AIndex: Integer; const AValue: string);
  57649. begin
  57650. If (FContactEmail=AValue) then exit;
  57651. FContactEmail:=AValue;
  57652. MarkPropertyChanged(AIndex);
  57653. end;
  57654. Procedure TMicrosoft_Office_SecureStoreService_ServerTargetApplication.SetFriendlyName(AIndex: Integer; const AValue: string);
  57655. begin
  57656. If (FFriendlyName=AValue) then exit;
  57657. FFriendlyName:=AValue;
  57658. MarkPropertyChanged(AIndex);
  57659. end;
  57660. Procedure TMicrosoft_Office_SecureStoreService_ServerTargetApplication.SetTargetAppType(AIndex: Integer; const AValue: TInt32);
  57661. begin
  57662. If (FTargetAppType=AValue) then exit;
  57663. FTargetAppType:=AValue;
  57664. MarkPropertyChanged(AIndex);
  57665. end;
  57666. Function TMicrosoft_Office_SecureStoreService_ServerTargetApplication.KeyAsURLPart : string;
  57667. begin
  57668. Result:=TODataObject.MakeKeyString(ApplicationId);
  57669. end;
  57670. { --------------------------------------------------------------------
  57671. TMicrosoft_SharePoint_AppManagementSPAppPrincipalInfo
  57672. --------------------------------------------------------------------}
  57673. Class Function TMicrosoft_SharePoint_AppManagementSPAppPrincipalInfo.ObjectRestKind : String;
  57674. begin
  57675. Result:='SPAppPrincipalInfo';
  57676. end;
  57677. Procedure TMicrosoft_SharePoint_AppManagementSPAppPrincipalInfo.SetFlag(AIndex: Integer; const AValue: TInt32);
  57678. begin
  57679. If (FFlag=AValue) then exit;
  57680. FFlag:=AValue;
  57681. MarkPropertyChanged(AIndex);
  57682. end;
  57683. Procedure TMicrosoft_SharePoint_AppManagementSPAppPrincipalInfo.SetName(AIndex: Integer; const AValue: string);
  57684. begin
  57685. If (FName=AValue) then exit;
  57686. FName:=AValue;
  57687. MarkPropertyChanged(AIndex);
  57688. end;
  57689. Procedure TMicrosoft_SharePoint_AppManagementSPAppPrincipalInfo.SetTitle(AIndex: Integer; const AValue: string);
  57690. begin
  57691. If (FTitle=AValue) then exit;
  57692. FTitle:=AValue;
  57693. MarkPropertyChanged(AIndex);
  57694. end;
  57695. Function TMicrosoft_SharePoint_AppManagementSPAppPrincipalInfo.KeyAsURLPart : string;
  57696. begin
  57697. Result:=TODataObject.MakeKeyString(Name);
  57698. end;
  57699. { --------------------------------------------------------------------
  57700. TMicrosoft_SharePoint_Flighting_RuntimeSPFlight
  57701. --------------------------------------------------------------------}
  57702. Class Function TMicrosoft_SharePoint_Flighting_RuntimeSPFlight.ObjectRestKind : String;
  57703. begin
  57704. Result:='SPFlight';
  57705. end;
  57706. Procedure TMicrosoft_SharePoint_Flighting_RuntimeSPFlight.SetConfiguration(AIndex: Integer; const AValue: string);
  57707. begin
  57708. If (FConfiguration=AValue) then exit;
  57709. FConfiguration:=AValue;
  57710. MarkPropertyChanged(AIndex);
  57711. end;
  57712. Function TMicrosoft_SharePoint_Flighting_RuntimeSPFlight.KeyAsURLPart : string;
  57713. begin
  57714. Result:=TODataObject.MakeKeyString(Configuration);
  57715. end;
  57716. { --------------------------------------------------------------------
  57717. TMicrosoft_SharePoint_Marketplace_CorporateCuratedGallerySPCorporateCuratedGallerySettingsBase
  57718. --------------------------------------------------------------------}
  57719. Class Function TMicrosoft_SharePoint_Marketplace_CorporateCuratedGallerySPCorporateCuratedGallerySettingsBase.ObjectRestKind : String;
  57720. begin
  57721. Result:='SPCorporateCuratedGallerySettingsBase';
  57722. end;
  57723. Procedure TMicrosoft_SharePoint_Marketplace_CorporateCuratedGallerySPCorporateCuratedGallerySettingsBase.SetHostSiteFullUrl(AIndex: Integer; const AValue: string);
  57724. begin
  57725. If (FHostSiteFullUrl=AValue) then exit;
  57726. FHostSiteFullUrl:=AValue;
  57727. MarkPropertyChanged(AIndex);
  57728. end;
  57729. Function TMicrosoft_SharePoint_Marketplace_CorporateCuratedGallerySPCorporateCuratedGallerySettingsBase.KeyAsURLPart : string;
  57730. begin
  57731. Result:=TODataObject.MakeKeyString(HostSiteFullUrl);
  57732. end;
  57733. { --------------------------------------------------------------------
  57734. TMicrosoft_SharePoint_Marketplace_CorporateCuratedGallerySPCorporateCuratedGallerySettingsFactory
  57735. --------------------------------------------------------------------}
  57736. Class Function TMicrosoft_SharePoint_Marketplace_CorporateCuratedGallerySPCorporateCuratedGallerySettingsFactory.ObjectRestKind : String;
  57737. begin
  57738. Result:='SPCorporateCuratedGallerySettingsFactory';
  57739. end;
  57740. Procedure TMicrosoft_SharePoint_Marketplace_CorporateCuratedGallerySPCorporateCuratedGallerySettingsFactory.SetId4a81de82eeb94d6080ea5bf63e27023a(AIndex: Integer; const AValue: string);
  57741. begin
  57742. If (FId4a81de82eeb94d6080ea5bf63e27023a=AValue) then exit;
  57743. FId4a81de82eeb94d6080ea5bf63e27023a:=AValue;
  57744. MarkPropertyChanged(AIndex);
  57745. end;
  57746. Function TMicrosoft_SharePoint_Marketplace_CorporateCuratedGallerySPCorporateCuratedGallerySettingsFactory.KeyAsURLPart : string;
  57747. begin
  57748. Result:=TODataObject.MakeKeyString(Id4a81de82eeb94d6080ea5bf63e27023a);
  57749. end;
  57750. { --------------------------------------------------------------------
  57751. TMicrosoft_SharePoint_MarketplaceSPMarketplaceSettings
  57752. --------------------------------------------------------------------}
  57753. Class Function TMicrosoft_SharePoint_MarketplaceSPMarketplaceSettings.ObjectRestKind : String;
  57754. begin
  57755. Result:='SPMarketplaceSettings';
  57756. end;
  57757. Procedure TMicrosoft_SharePoint_MarketplaceSPMarketplaceSettings.SetId4a81de82eeb94d6080ea5bf63e27023a(AIndex: Integer; const AValue: string);
  57758. begin
  57759. If (FId4a81de82eeb94d6080ea5bf63e27023a=AValue) then exit;
  57760. FId4a81de82eeb94d6080ea5bf63e27023a:=AValue;
  57761. MarkPropertyChanged(AIndex);
  57762. end;
  57763. Function TMicrosoft_SharePoint_MarketplaceSPMarketplaceSettings.KeyAsURLPart : string;
  57764. begin
  57765. Result:=TODataObject.MakeKeyString(Id4a81de82eeb94d6080ea5bf63e27023a);
  57766. end;
  57767. { --------------------------------------------------------------------
  57768. TMicrosoft_SharePoint_Portal_WebControlsRecentDocument
  57769. --------------------------------------------------------------------}
  57770. Class Function TMicrosoft_SharePoint_Portal_WebControlsRecentDocument.ObjectRestKind : String;
  57771. begin
  57772. Result:='RecentDocument';
  57773. end;
  57774. Procedure TMicrosoft_SharePoint_Portal_WebControlsRecentDocument.SetApplication(AIndex: Integer; const AValue: string);
  57775. begin
  57776. If (FApplication=AValue) then exit;
  57777. FApplication:=AValue;
  57778. MarkPropertyChanged(AIndex);
  57779. end;
  57780. Procedure TMicrosoft_SharePoint_Portal_WebControlsRecentDocument.SetFileName(AIndex: Integer; const AValue: string);
  57781. begin
  57782. If (FFileName=AValue) then exit;
  57783. FFileName:=AValue;
  57784. MarkPropertyChanged(AIndex);
  57785. end;
  57786. Procedure TMicrosoft_SharePoint_Portal_WebControlsRecentDocument.SetIconUrl(AIndex: Integer; const AValue: string);
  57787. begin
  57788. If (FIconUrl=AValue) then exit;
  57789. FIconUrl:=AValue;
  57790. MarkPropertyChanged(AIndex);
  57791. end;
  57792. Procedure TMicrosoft_SharePoint_Portal_WebControlsRecentDocument.SetId(AIndex: Integer; const AValue: TInt32);
  57793. begin
  57794. If (FId=AValue) then exit;
  57795. FId:=AValue;
  57796. MarkPropertyChanged(AIndex);
  57797. end;
  57798. Procedure TMicrosoft_SharePoint_Portal_WebControlsRecentDocument.SetIsPinned(AIndex: Integer; const AValue: boolean);
  57799. begin
  57800. If (FIsPinned=AValue) then exit;
  57801. FIsPinned:=AValue;
  57802. MarkPropertyChanged(AIndex);
  57803. end;
  57804. Procedure TMicrosoft_SharePoint_Portal_WebControlsRecentDocument.SetLinkLocation(AIndex: Integer; const AValue: string);
  57805. begin
  57806. If (FLinkLocation=AValue) then exit;
  57807. FLinkLocation:=AValue;
  57808. MarkPropertyChanged(AIndex);
  57809. end;
  57810. Procedure TMicrosoft_SharePoint_Portal_WebControlsRecentDocument.SetTimeStamp(AIndex: Integer; const AValue: TDateTime);
  57811. begin
  57812. If (FTimeStamp=AValue) then exit;
  57813. FTimeStamp:=AValue;
  57814. MarkPropertyChanged(AIndex);
  57815. end;
  57816. Function TMicrosoft_SharePoint_Portal_WebControlsRecentDocument.KeyAsURLPart : string;
  57817. begin
  57818. Result:=IntToStr(Id);
  57819. end;
  57820. { --------------------------------------------------------------------
  57821. TSP_BusinessData_RuntimeEntityIdentity
  57822. --------------------------------------------------------------------}
  57823. Class Function TSP_BusinessData_RuntimeEntityIdentity.ObjectRestKind : String;
  57824. begin
  57825. Result:='EntityIdentity';
  57826. end;
  57827. Procedure TSP_BusinessData_RuntimeEntityIdentity.SetIdentifierCount(AIndex: Integer; const AValue: TInt32);
  57828. begin
  57829. If (FIdentifierCount=AValue) then exit;
  57830. FIdentifierCount:=AValue;
  57831. MarkPropertyChanged(AIndex);
  57832. end;
  57833. Function TSP_BusinessData_RuntimeEntityIdentity.KeyAsURLPart : string;
  57834. begin
  57835. Result:=IntToStr(IdentifierCount);
  57836. end;
  57837. { --------------------------------------------------------------------
  57838. TSP_BusinessData_RuntimeNotificationCallback
  57839. --------------------------------------------------------------------}
  57840. Class Function TSP_BusinessData_RuntimeNotificationCallback.ObjectRestKind : String;
  57841. begin
  57842. Result:='NotificationCallback';
  57843. end;
  57844. Procedure TSP_BusinessData_RuntimeNotificationCallback.SetNotificationContext(AIndex: Integer; const AValue: string);
  57845. begin
  57846. If (FNotificationContext=AValue) then exit;
  57847. FNotificationContext:=AValue;
  57848. MarkPropertyChanged(AIndex);
  57849. end;
  57850. Procedure TSP_BusinessData_RuntimeNotificationCallback.SetNotificationEndpoint(AIndex: Integer; const AValue: string);
  57851. begin
  57852. If (FNotificationEndpoint=AValue) then exit;
  57853. FNotificationEndpoint:=AValue;
  57854. MarkPropertyChanged(AIndex);
  57855. end;
  57856. Procedure TSP_BusinessData_RuntimeNotificationCallback.SetNotificationForwarderType(AIndex: Integer; const AValue: string);
  57857. begin
  57858. If (FNotificationForwarderType=AValue) then exit;
  57859. FNotificationForwarderType:=AValue;
  57860. MarkPropertyChanged(AIndex);
  57861. end;
  57862. Function TSP_BusinessData_RuntimeNotificationCallback.KeyAsURLPart : string;
  57863. begin
  57864. Result:=TODataObject.MakeKeyString(NotificationContext);
  57865. end;
  57866. { --------------------------------------------------------------------
  57867. TSP_BusinessData_RuntimeSubscription
  57868. --------------------------------------------------------------------}
  57869. Class Function TSP_BusinessData_RuntimeSubscription.ObjectRestKind : String;
  57870. begin
  57871. Result:='Subscription';
  57872. end;
  57873. Procedure TSP_BusinessData_RuntimeSubscription.SetHash(AIndex: Integer; const AValue: string);
  57874. begin
  57875. If (FHash=AValue) then exit;
  57876. FHash:=AValue;
  57877. MarkPropertyChanged(AIndex);
  57878. end;
  57879. Procedure TSP_BusinessData_RuntimeSubscription.SetID(AIndex: Integer; const AValue: TSPKeyValueArray);
  57880. begin
  57881. If (FID=AValue) then exit;
  57882. FID:=AValue;
  57883. MarkPropertyChanged(AIndex);
  57884. end;
  57885. {$IFDEF VER2_6}
  57886. Procedure TSP_BusinessData_RuntimeSubscription.SetArrayLength(const AName: String; ALength: Longint);
  57887. begin
  57888. Case aName of
  57889. 'id' : SetLength(FID,aLength);
  57890. else
  57891. inherited SetArrayLength(aName,ALength);
  57892. end;
  57893. end;
  57894. {$ENDIF VER2_6}
  57895. Function TSP_BusinessData_RuntimeSubscription.KeyAsURLPart : string;
  57896. begin
  57897. Result:=TODataObject.MakeKeyString(Hash);
  57898. end;
  57899. { --------------------------------------------------------------------
  57900. TSP_BusinessData_RuntimeEntityInstance
  57901. --------------------------------------------------------------------}
  57902. Class Function TSP_BusinessData_RuntimeEntityInstance.ObjectRestKind : String;
  57903. begin
  57904. Result:='EntityInstance';
  57905. end;
  57906. Procedure TSP_BusinessData_RuntimeEntityInstance.SetId4a81de82eeb94d6080ea5bf63e27023a(AIndex: Integer; const AValue: string);
  57907. begin
  57908. If (FId4a81de82eeb94d6080ea5bf63e27023a=AValue) then exit;
  57909. FId4a81de82eeb94d6080ea5bf63e27023a:=AValue;
  57910. MarkPropertyChanged(AIndex);
  57911. end;
  57912. Function TSP_BusinessData_RuntimeEntityInstance.KeyAsURLPart : string;
  57913. begin
  57914. Result:=TODataObject.MakeKeyString(Id4a81de82eeb94d6080ea5bf63e27023a);
  57915. end;
  57916. { --------------------------------------------------------------------
  57917. TSP_BusinessData_RuntimeEntityFieldValueDictionary
  57918. --------------------------------------------------------------------}
  57919. Class Function TSP_BusinessData_RuntimeEntityFieldValueDictionary.ObjectRestKind : String;
  57920. begin
  57921. Result:='EntityFieldValueDictionary';
  57922. end;
  57923. Procedure TSP_BusinessData_RuntimeEntityFieldValueDictionary.SetId4a81de82eeb94d6080ea5bf63e27023a(AIndex: Integer; const AValue: string);
  57924. begin
  57925. If (FId4a81de82eeb94d6080ea5bf63e27023a=AValue) then exit;
  57926. FId4a81de82eeb94d6080ea5bf63e27023a:=AValue;
  57927. MarkPropertyChanged(AIndex);
  57928. end;
  57929. Function TSP_BusinessData_RuntimeEntityFieldValueDictionary.KeyAsURLPart : string;
  57930. begin
  57931. Result:=TODataObject.MakeKeyString(Id4a81de82eeb94d6080ea5bf63e27023a);
  57932. end;
  57933. { --------------------------------------------------------------------
  57934. TSP_BusinessDataEntityField
  57935. --------------------------------------------------------------------}
  57936. Class Function TSP_BusinessDataEntityField.ObjectRestKind : String;
  57937. begin
  57938. Result:='EntityField';
  57939. end;
  57940. Procedure TSP_BusinessDataEntityField.SetContainsLocalizedDisplayName(AIndex: Integer; const AValue: boolean);
  57941. begin
  57942. If (FContainsLocalizedDisplayName=AValue) then exit;
  57943. FContainsLocalizedDisplayName:=AValue;
  57944. MarkPropertyChanged(AIndex);
  57945. end;
  57946. Procedure TSP_BusinessDataEntityField.SetDefaultDisplayName(AIndex: Integer; const AValue: string);
  57947. begin
  57948. If (FDefaultDisplayName=AValue) then exit;
  57949. FDefaultDisplayName:=AValue;
  57950. MarkPropertyChanged(AIndex);
  57951. end;
  57952. Procedure TSP_BusinessDataEntityField.SetLocalizedDisplayName(AIndex: Integer; const AValue: string);
  57953. begin
  57954. If (FLocalizedDisplayName=AValue) then exit;
  57955. FLocalizedDisplayName:=AValue;
  57956. MarkPropertyChanged(AIndex);
  57957. end;
  57958. Procedure TSP_BusinessDataEntityField.SetName(AIndex: Integer; const AValue: string);
  57959. begin
  57960. If (FName=AValue) then exit;
  57961. FName:=AValue;
  57962. MarkPropertyChanged(AIndex);
  57963. end;
  57964. Function TSP_BusinessDataEntityField.KeyAsURLPart : string;
  57965. begin
  57966. Result:=TODataObject.MakeKeyString(Name);
  57967. end;
  57968. { --------------------------------------------------------------------
  57969. TSP_BusinessDataFilter
  57970. --------------------------------------------------------------------}
  57971. Class Function TSP_BusinessDataFilter.ObjectRestKind : String;
  57972. begin
  57973. Result:='Filter';
  57974. end;
  57975. Procedure TSP_BusinessDataFilter.SetDefaultDisplayName(AIndex: Integer; const AValue: string);
  57976. begin
  57977. If (FDefaultDisplayName=AValue) then exit;
  57978. FDefaultDisplayName:=AValue;
  57979. MarkPropertyChanged(AIndex);
  57980. end;
  57981. Procedure TSP_BusinessDataFilter.SetFilterField(AIndex: Integer; const AValue: string);
  57982. begin
  57983. If (FFilterField=AValue) then exit;
  57984. FFilterField:=AValue;
  57985. MarkPropertyChanged(AIndex);
  57986. end;
  57987. Procedure TSP_BusinessDataFilter.SetFilterType(AIndex: Integer; const AValue: string);
  57988. begin
  57989. If (FFilterType=AValue) then exit;
  57990. FFilterType:=AValue;
  57991. MarkPropertyChanged(AIndex);
  57992. end;
  57993. Procedure TSP_BusinessDataFilter.SetLocalizedDisplayName(AIndex: Integer; const AValue: string);
  57994. begin
  57995. If (FLocalizedDisplayName=AValue) then exit;
  57996. FLocalizedDisplayName:=AValue;
  57997. MarkPropertyChanged(AIndex);
  57998. end;
  57999. Procedure TSP_BusinessDataFilter.SetName(AIndex: Integer; const AValue: string);
  58000. begin
  58001. If (FName=AValue) then exit;
  58002. FName:=AValue;
  58003. MarkPropertyChanged(AIndex);
  58004. end;
  58005. Procedure TSP_BusinessDataFilter.SetValueCount(AIndex: Integer; const AValue: TInt32);
  58006. begin
  58007. If (FValueCount=AValue) then exit;
  58008. FValueCount:=AValue;
  58009. MarkPropertyChanged(AIndex);
  58010. end;
  58011. Function TSP_BusinessDataFilter.KeyAsURLPart : string;
  58012. begin
  58013. Result:=TODataObject.MakeKeyString(Name);
  58014. end;
  58015. { --------------------------------------------------------------------
  58016. TSP_BusinessDataEntityIdentifier
  58017. --------------------------------------------------------------------}
  58018. Class Function TSP_BusinessDataEntityIdentifier.ObjectRestKind : String;
  58019. begin
  58020. Result:='EntityIdentifier';
  58021. end;
  58022. Procedure TSP_BusinessDataEntityIdentifier.SetIdentifierType(AIndex: Integer; const AValue: string);
  58023. begin
  58024. If (FIdentifierType=AValue) then exit;
  58025. FIdentifierType:=AValue;
  58026. MarkPropertyChanged(AIndex);
  58027. end;
  58028. Procedure TSP_BusinessDataEntityIdentifier.SetName(AIndex: Integer; const AValue: string);
  58029. begin
  58030. If (FName=AValue) then exit;
  58031. FName:=AValue;
  58032. MarkPropertyChanged(AIndex);
  58033. end;
  58034. Function TSP_BusinessDataEntityIdentifier.KeyAsURLPart : string;
  58035. begin
  58036. Result:=TODataObject.MakeKeyString(Name);
  58037. end;
  58038. { --------------------------------------------------------------------
  58039. TSP_BusinessDataLobSystemInstance
  58040. --------------------------------------------------------------------}
  58041. Class Function TSP_BusinessDataLobSystemInstance.ObjectRestKind : String;
  58042. begin
  58043. Result:='LobSystemInstance';
  58044. end;
  58045. Procedure TSP_BusinessDataLobSystemInstance.SetName(AIndex: Integer; const AValue: string);
  58046. begin
  58047. If (FName=AValue) then exit;
  58048. FName:=AValue;
  58049. MarkPropertyChanged(AIndex);
  58050. end;
  58051. Function TSP_BusinessDataLobSystemInstance.KeyAsURLPart : string;
  58052. begin
  58053. Result:=TODataObject.MakeKeyString(Name);
  58054. end;
  58055. { --------------------------------------------------------------------
  58056. TSP_BusinessDataTypeDescriptor
  58057. --------------------------------------------------------------------}
  58058. Class Function TSP_BusinessDataTypeDescriptor.ObjectRestKind : String;
  58059. begin
  58060. Result:='TypeDescriptor';
  58061. end;
  58062. Procedure TSP_BusinessDataTypeDescriptor.SetContainsReadOnly(AIndex: Integer; const AValue: boolean);
  58063. begin
  58064. If (FContainsReadOnly=AValue) then exit;
  58065. FContainsReadOnly:=AValue;
  58066. MarkPropertyChanged(AIndex);
  58067. end;
  58068. Procedure TSP_BusinessDataTypeDescriptor.SetIsCollection(AIndex: Integer; const AValue: boolean);
  58069. begin
  58070. If (FIsCollection=AValue) then exit;
  58071. FIsCollection:=AValue;
  58072. MarkPropertyChanged(AIndex);
  58073. end;
  58074. Procedure TSP_BusinessDataTypeDescriptor.SetIsReadOnly(AIndex: Integer; const AValue: boolean);
  58075. begin
  58076. If (FIsReadOnly=AValue) then exit;
  58077. FIsReadOnly:=AValue;
  58078. MarkPropertyChanged(AIndex);
  58079. end;
  58080. Procedure TSP_BusinessDataTypeDescriptor.SetName(AIndex: Integer; const AValue: string);
  58081. begin
  58082. If (FName=AValue) then exit;
  58083. FName:=AValue;
  58084. MarkPropertyChanged(AIndex);
  58085. end;
  58086. Procedure TSP_BusinessDataTypeDescriptor.SetTypeName(AIndex: Integer; const AValue: string);
  58087. begin
  58088. If (FTypeName=AValue) then exit;
  58089. FTypeName:=AValue;
  58090. MarkPropertyChanged(AIndex);
  58091. end;
  58092. Function TSP_BusinessDataTypeDescriptor.KeyAsURLPart : string;
  58093. begin
  58094. Result:=TODataObject.MakeKeyString(Name);
  58095. end;
  58096. { --------------------------------------------------------------------
  58097. TSP_BusinessDataEntity
  58098. --------------------------------------------------------------------}
  58099. Class Function TSP_BusinessDataEntity.ObjectRestKind : String;
  58100. begin
  58101. Result:='Entity';
  58102. end;
  58103. Procedure TSP_BusinessDataEntity.SetEstimatedInstanceCount(AIndex: Integer; const AValue: int64);
  58104. begin
  58105. If (FEstimatedInstanceCount=AValue) then exit;
  58106. FEstimatedInstanceCount:=AValue;
  58107. MarkPropertyChanged(AIndex);
  58108. end;
  58109. Procedure TSP_BusinessDataEntity.SetName(AIndex: Integer; const AValue: string);
  58110. begin
  58111. If (FName=AValue) then exit;
  58112. FName:=AValue;
  58113. MarkPropertyChanged(AIndex);
  58114. end;
  58115. Procedure TSP_BusinessDataEntity.SetNamespace(AIndex: Integer; const AValue: string);
  58116. begin
  58117. If (FNamespace=AValue) then exit;
  58118. FNamespace:=AValue;
  58119. MarkPropertyChanged(AIndex);
  58120. end;
  58121. Function TSP_BusinessDataEntity.KeyAsURLPart : string;
  58122. begin
  58123. Result:=TODataObject.MakeKeyString(Name);
  58124. end;
  58125. { --------------------------------------------------------------------
  58126. TSP_BusinessDataLobSystem
  58127. --------------------------------------------------------------------}
  58128. Class Function TSP_BusinessDataLobSystem.ObjectRestKind : String;
  58129. begin
  58130. Result:='LobSystem';
  58131. end;
  58132. Procedure TSP_BusinessDataLobSystem.SetName(AIndex: Integer; const AValue: string);
  58133. begin
  58134. If (FName=AValue) then exit;
  58135. FName:=AValue;
  58136. MarkPropertyChanged(AIndex);
  58137. end;
  58138. Function TSP_BusinessDataLobSystem.KeyAsURLPart : string;
  58139. begin
  58140. Result:=TODataObject.MakeKeyString(Name);
  58141. end;
  58142. { --------------------------------------------------------------------
  58143. TSP_BusinessDataMethodExecutionResult
  58144. --------------------------------------------------------------------}
  58145. Class Function TSP_BusinessDataMethodExecutionResult.ObjectRestKind : String;
  58146. begin
  58147. Result:='MethodExecutionResult';
  58148. end;
  58149. Procedure TSP_BusinessDataMethodExecutionResult.SetId4a81de82eeb94d6080ea5bf63e27023a(AIndex: Integer; const AValue: string);
  58150. begin
  58151. If (FId4a81de82eeb94d6080ea5bf63e27023a=AValue) then exit;
  58152. FId4a81de82eeb94d6080ea5bf63e27023a:=AValue;
  58153. MarkPropertyChanged(AIndex);
  58154. end;
  58155. Function TSP_BusinessDataMethodExecutionResult.KeyAsURLPart : string;
  58156. begin
  58157. Result:=TODataObject.MakeKeyString(Id4a81de82eeb94d6080ea5bf63e27023a);
  58158. end;
  58159. Function TSP_BusinessDataMethodExecutionResult.ReturnParameterCollection(AService: TODataService) : TSP_BusinessData_RuntimeEntityFieldValueDictionary;
  58160. begin
  58161. Result:=TSP_BusinessData_RuntimeEntityFieldValueDictionary(GetContainedSingleTon(AService,'ReturnParameterCollection', TSP_BusinessData_RuntimeEntityFieldValueDictionary));
  58162. end;
  58163. { --------------------------------------------------------------------
  58164. TSP_BusinessDataEntityView
  58165. --------------------------------------------------------------------}
  58166. Class Function TSP_BusinessDataEntityView.ObjectRestKind : String;
  58167. begin
  58168. Result:='EntityView';
  58169. end;
  58170. Procedure TSP_BusinessDataEntityView.SetName(AIndex: Integer; const AValue: string);
  58171. begin
  58172. If (FName=AValue) then exit;
  58173. FName:=AValue;
  58174. MarkPropertyChanged(AIndex);
  58175. end;
  58176. Procedure TSP_BusinessDataEntityView.SetRelatedSpecificFinderName(AIndex: Integer; const AValue: string);
  58177. begin
  58178. If (FRelatedSpecificFinderName=AValue) then exit;
  58179. FRelatedSpecificFinderName:=AValue;
  58180. MarkPropertyChanged(AIndex);
  58181. end;
  58182. Function TSP_BusinessDataEntityView.KeyAsURLPart : string;
  58183. begin
  58184. Result:=TODataObject.MakeKeyString(Name);
  58185. end;
  58186. Function TSP_BusinessDataEntityView.Fields(AService: TODataService) : TSP_BusinessDataEntityField;
  58187. begin
  58188. Result:=TSP_BusinessDataEntityField(GetContainedSingleTon(AService,'Fields', TSP_BusinessDataEntityField));
  58189. end;
  58190. { --------------------------------------------------------------------
  58191. TSP_BusinessDataAppBdcCatalog
  58192. --------------------------------------------------------------------}
  58193. Class Function TSP_BusinessDataAppBdcCatalog.ObjectRestKind : String;
  58194. begin
  58195. Result:='AppBdcCatalog';
  58196. end;
  58197. Procedure TSP_BusinessDataAppBdcCatalog.SetId4a81de82eeb94d6080ea5bf63e27023a(AIndex: Integer; const AValue: string);
  58198. begin
  58199. If (FId4a81de82eeb94d6080ea5bf63e27023a=AValue) then exit;
  58200. FId4a81de82eeb94d6080ea5bf63e27023a:=AValue;
  58201. MarkPropertyChanged(AIndex);
  58202. end;
  58203. Function TSP_BusinessDataAppBdcCatalog.KeyAsURLPart : string;
  58204. begin
  58205. Result:=TODataObject.MakeKeyString(Id4a81de82eeb94d6080ea5bf63e27023a);
  58206. end;
  58207. { --------------------------------------------------------------------
  58208. TSP_AnalyticsAnalyticsUsageEntry
  58209. --------------------------------------------------------------------}
  58210. Class Function TSP_AnalyticsAnalyticsUsageEntry.ObjectRestKind : String;
  58211. begin
  58212. Result:='AnalyticsUsageEntry';
  58213. end;
  58214. Procedure TSP_AnalyticsAnalyticsUsageEntry.SetId4a81de82eeb94d6080ea5bf63e27023a(AIndex: Integer; const AValue: string);
  58215. begin
  58216. If (FId4a81de82eeb94d6080ea5bf63e27023a=AValue) then exit;
  58217. FId4a81de82eeb94d6080ea5bf63e27023a:=AValue;
  58218. MarkPropertyChanged(AIndex);
  58219. end;
  58220. Function TSP_AnalyticsAnalyticsUsageEntry.KeyAsURLPart : string;
  58221. begin
  58222. Result:=TODataObject.MakeKeyString(Id4a81de82eeb94d6080ea5bf63e27023a);
  58223. end;
  58224. { --------------------------------------------------------------------
  58225. TSP_BusinessData_InfrastructureExternalSubscriptionStore
  58226. --------------------------------------------------------------------}
  58227. Class Function TSP_BusinessData_InfrastructureExternalSubscriptionStore.ObjectRestKind : String;
  58228. begin
  58229. Result:='ExternalSubscriptionStore';
  58230. end;
  58231. Procedure TSP_BusinessData_InfrastructureExternalSubscriptionStore.SetId4a81de82eeb94d6080ea5bf63e27023a(AIndex: Integer; const AValue: string);
  58232. begin
  58233. If (FId4a81de82eeb94d6080ea5bf63e27023a=AValue) then exit;
  58234. FId4a81de82eeb94d6080ea5bf63e27023a:=AValue;
  58235. MarkPropertyChanged(AIndex);
  58236. end;
  58237. Function TSP_BusinessData_InfrastructureExternalSubscriptionStore.KeyAsURLPart : string;
  58238. begin
  58239. Result:=TODataObject.MakeKeyString(Id4a81de82eeb94d6080ea5bf63e27023a);
  58240. end;
  58241. { --------------------------------------------------------------------
  58242. TMicrosoft_SharePoint_Navigation_RESTNavigationServiceRest
  58243. --------------------------------------------------------------------}
  58244. Class Function TMicrosoft_SharePoint_Navigation_RESTNavigationServiceRest.ObjectRestKind : String;
  58245. begin
  58246. Result:='NavigationServiceRest';
  58247. end;
  58248. Procedure TMicrosoft_SharePoint_Navigation_RESTNavigationServiceRest.SetId4a81de82eeb94d6080ea5bf63e27023a(AIndex: Integer; const AValue: string);
  58249. begin
  58250. If (FId4a81de82eeb94d6080ea5bf63e27023a=AValue) then exit;
  58251. FId4a81de82eeb94d6080ea5bf63e27023a:=AValue;
  58252. MarkPropertyChanged(AIndex);
  58253. end;
  58254. Function TMicrosoft_SharePoint_Navigation_RESTNavigationServiceRest.KeyAsURLPart : string;
  58255. begin
  58256. Result:=TODataObject.MakeKeyString(Id4a81de82eeb94d6080ea5bf63e27023a);
  58257. end;
  58258. { --------------------------------------------------------------------
  58259. TMicrosoft_SharePoint_PackagingAppDetails
  58260. --------------------------------------------------------------------}
  58261. Class Function TMicrosoft_SharePoint_PackagingAppDetails.ObjectRestKind : String;
  58262. begin
  58263. Result:='AppDetails';
  58264. end;
  58265. Procedure TMicrosoft_SharePoint_PackagingAppDetails.SetEulaUrl(AIndex: Integer; const AValue: string);
  58266. begin
  58267. If (FEulaUrl=AValue) then exit;
  58268. FEulaUrl:=AValue;
  58269. MarkPropertyChanged(AIndex);
  58270. end;
  58271. Procedure TMicrosoft_SharePoint_PackagingAppDetails.SetPrivacyUrl(AIndex: Integer; const AValue: string);
  58272. begin
  58273. If (FPrivacyUrl=AValue) then exit;
  58274. FPrivacyUrl:=AValue;
  58275. MarkPropertyChanged(AIndex);
  58276. end;
  58277. Procedure TMicrosoft_SharePoint_PackagingAppDetails.SetPublisher(AIndex: Integer; const AValue: string);
  58278. begin
  58279. If (FPublisher=AValue) then exit;
  58280. FPublisher:=AValue;
  58281. MarkPropertyChanged(AIndex);
  58282. end;
  58283. Procedure TMicrosoft_SharePoint_PackagingAppDetails.SetShortDescription(AIndex: Integer; const AValue: string);
  58284. begin
  58285. If (FShortDescription=AValue) then exit;
  58286. FShortDescription:=AValue;
  58287. MarkPropertyChanged(AIndex);
  58288. end;
  58289. Procedure TMicrosoft_SharePoint_PackagingAppDetails.SetSupportUrl(AIndex: Integer; const AValue: string);
  58290. begin
  58291. If (FSupportUrl=AValue) then exit;
  58292. FSupportUrl:=AValue;
  58293. MarkPropertyChanged(AIndex);
  58294. end;
  58295. Function TMicrosoft_SharePoint_PackagingAppDetails.KeyAsURLPart : string;
  58296. begin
  58297. Result:=TODataObject.MakeKeyString(EulaUrl);
  58298. end;
  58299. { --------------------------------------------------------------------
  58300. TMicrosoft_SharePoint_PackagingAppIconInfo
  58301. --------------------------------------------------------------------}
  58302. Class Function TMicrosoft_SharePoint_PackagingAppIconInfo.ObjectRestKind : String;
  58303. begin
  58304. Result:='AppIconInfo';
  58305. end;
  58306. Procedure TMicrosoft_SharePoint_PackagingAppIconInfo.SetContent(AIndex: Integer; const AValue: TBinary);
  58307. begin
  58308. If (FContent=AValue) then exit;
  58309. FContent:=AValue;
  58310. MarkPropertyChanged(AIndex);
  58311. end;
  58312. Procedure TMicrosoft_SharePoint_PackagingAppIconInfo.SetMimeType(AIndex: Integer; const AValue: string);
  58313. begin
  58314. If (FMimeType=AValue) then exit;
  58315. FMimeType:=AValue;
  58316. MarkPropertyChanged(AIndex);
  58317. end;
  58318. Function TMicrosoft_SharePoint_PackagingAppIconInfo.KeyAsURLPart : string;
  58319. begin
  58320. Result:=BinaryToString(Content);
  58321. end;
  58322. { --------------------------------------------------------------------
  58323. TSP_OAuthNativeClient
  58324. --------------------------------------------------------------------}
  58325. Class Function TSP_OAuthNativeClient.ObjectRestKind : String;
  58326. begin
  58327. Result:='NativeClient';
  58328. end;
  58329. Procedure TSP_OAuthNativeClient.SetId4a81de82eeb94d6080ea5bf63e27023a(AIndex: Integer; const AValue: string);
  58330. begin
  58331. If (FId4a81de82eeb94d6080ea5bf63e27023a=AValue) then exit;
  58332. FId4a81de82eeb94d6080ea5bf63e27023a:=AValue;
  58333. MarkPropertyChanged(AIndex);
  58334. end;
  58335. Function TSP_OAuthNativeClient.KeyAsURLPart : string;
  58336. begin
  58337. Result:=TODataObject.MakeKeyString(Id4a81de82eeb94d6080ea5bf63e27023a);
  58338. end;
  58339. { --------------------------------------------------------------------
  58340. TMicrosoft_SharePoint_WebControlsModuleLink
  58341. --------------------------------------------------------------------}
  58342. Class Function TMicrosoft_SharePoint_WebControlsModuleLink.ObjectRestKind : String;
  58343. begin
  58344. Result:='ModuleLink';
  58345. end;
  58346. Procedure TMicrosoft_SharePoint_WebControlsModuleLink.SetId4a81de82eeb94d6080ea5bf63e27023a(AIndex: Integer; const AValue: string);
  58347. begin
  58348. If (FId4a81de82eeb94d6080ea5bf63e27023a=AValue) then exit;
  58349. FId4a81de82eeb94d6080ea5bf63e27023a:=AValue;
  58350. MarkPropertyChanged(AIndex);
  58351. end;
  58352. Function TMicrosoft_SharePoint_WebControlsModuleLink.KeyAsURLPart : string;
  58353. begin
  58354. Result:=TODataObject.MakeKeyString(Id4a81de82eeb94d6080ea5bf63e27023a);
  58355. end;
  58356. { --------------------------------------------------------------------
  58357. TMicrosoft_SharePoint_WebControlsResourceManifestInformation
  58358. --------------------------------------------------------------------}
  58359. Class Function TMicrosoft_SharePoint_WebControlsResourceManifestInformation.ObjectRestKind : String;
  58360. begin
  58361. Result:='ResourceManifestInformation';
  58362. end;
  58363. Procedure TMicrosoft_SharePoint_WebControlsResourceManifestInformation.SetRequireJsScriptBlock(AIndex: Integer; const AValue: string);
  58364. begin
  58365. If (FRequireJsScriptBlock=AValue) then exit;
  58366. FRequireJsScriptBlock:=AValue;
  58367. MarkPropertyChanged(AIndex);
  58368. end;
  58369. Procedure TMicrosoft_SharePoint_WebControlsResourceManifestInformation.SetScenarioMapping(AIndex: Integer; const AValue: TSPKeyValueArray);
  58370. begin
  58371. If (FScenarioMapping=AValue) then exit;
  58372. FScenarioMapping:=AValue;
  58373. MarkPropertyChanged(AIndex);
  58374. end;
  58375. {$IFDEF VER2_6}
  58376. Procedure TMicrosoft_SharePoint_WebControlsResourceManifestInformation.SetArrayLength(const AName: String; ALength: Longint);
  58377. begin
  58378. Case aName of
  58379. 'scenariomapping' : SetLength(FScenarioMapping,aLength);
  58380. else
  58381. inherited SetArrayLength(aName,ALength);
  58382. end;
  58383. end;
  58384. {$ENDIF VER2_6}
  58385. Function TMicrosoft_SharePoint_WebControlsResourceManifestInformation.KeyAsURLPart : string;
  58386. begin
  58387. Result:=TODataObject.MakeKeyString(RequireJsScriptBlock);
  58388. end;
  58389. { --------------------------------------------------------------------
  58390. TMicrosoft_Online_SharePoint_PointPublishingPointPublishingAdmin
  58391. --------------------------------------------------------------------}
  58392. Class Function TMicrosoft_Online_SharePoint_PointPublishingPointPublishingAdmin.ObjectRestKind : String;
  58393. begin
  58394. Result:='PointPublishingAdmin';
  58395. end;
  58396. Procedure TMicrosoft_Online_SharePoint_PointPublishingPointPublishingAdmin.SetId4a81de82eeb94d6080ea5bf63e27023a(AIndex: Integer; const AValue: string);
  58397. begin
  58398. If (FId4a81de82eeb94d6080ea5bf63e27023a=AValue) then exit;
  58399. FId4a81de82eeb94d6080ea5bf63e27023a:=AValue;
  58400. MarkPropertyChanged(AIndex);
  58401. end;
  58402. Function TMicrosoft_Online_SharePoint_PointPublishingPointPublishingAdmin.KeyAsURLPart : string;
  58403. begin
  58404. Result:=TODataObject.MakeKeyString(Id4a81de82eeb94d6080ea5bf63e27023a);
  58405. end;
  58406. { --------------------------------------------------------------------
  58407. TMicrosoft_Online_SharePoint_TenantAdmin_MiddleTierDDIAdapter
  58408. --------------------------------------------------------------------}
  58409. Class Function TMicrosoft_Online_SharePoint_TenantAdmin_MiddleTierDDIAdapter.ObjectRestKind : String;
  58410. begin
  58411. Result:='DDIAdapter';
  58412. end;
  58413. Procedure TMicrosoft_Online_SharePoint_TenantAdmin_MiddleTierDDIAdapter.SetId4a81de82eeb94d6080ea5bf63e27023a(AIndex: Integer; const AValue: string);
  58414. begin
  58415. If (FId4a81de82eeb94d6080ea5bf63e27023a=AValue) then exit;
  58416. FId4a81de82eeb94d6080ea5bf63e27023a:=AValue;
  58417. MarkPropertyChanged(AIndex);
  58418. end;
  58419. Function TMicrosoft_Online_SharePoint_TenantAdmin_MiddleTierDDIAdapter.KeyAsURLPart : string;
  58420. begin
  58421. Result:=TODataObject.MakeKeyString(Id4a81de82eeb94d6080ea5bf63e27023a);
  58422. end;
  58423. { --------------------------------------------------------------------
  58424. TMicrosoft_Online_SharePoint_TenantManagementExternalUser
  58425. --------------------------------------------------------------------}
  58426. Class Function TMicrosoft_Online_SharePoint_TenantManagementExternalUser.ObjectRestKind : String;
  58427. begin
  58428. Result:='ExternalUser';
  58429. end;
  58430. Procedure TMicrosoft_Online_SharePoint_TenantManagementExternalUser.SetAcceptedAs(AIndex: Integer; const AValue: string);
  58431. begin
  58432. If (FAcceptedAs=AValue) then exit;
  58433. FAcceptedAs:=AValue;
  58434. MarkPropertyChanged(AIndex);
  58435. end;
  58436. Procedure TMicrosoft_Online_SharePoint_TenantManagementExternalUser.SetDisplayName(AIndex: Integer; const AValue: string);
  58437. begin
  58438. If (FDisplayName=AValue) then exit;
  58439. FDisplayName:=AValue;
  58440. MarkPropertyChanged(AIndex);
  58441. end;
  58442. Procedure TMicrosoft_Online_SharePoint_TenantManagementExternalUser.SetInvitedAs(AIndex: Integer; const AValue: string);
  58443. begin
  58444. If (FInvitedAs=AValue) then exit;
  58445. FInvitedAs:=AValue;
  58446. MarkPropertyChanged(AIndex);
  58447. end;
  58448. Procedure TMicrosoft_Online_SharePoint_TenantManagementExternalUser.SetInvitedBy(AIndex: Integer; const AValue: string);
  58449. begin
  58450. If (FInvitedBy=AValue) then exit;
  58451. FInvitedBy:=AValue;
  58452. MarkPropertyChanged(AIndex);
  58453. end;
  58454. Procedure TMicrosoft_Online_SharePoint_TenantManagementExternalUser.SetUniqueId(AIndex: Integer; const AValue: string);
  58455. begin
  58456. If (FUniqueId=AValue) then exit;
  58457. FUniqueId:=AValue;
  58458. MarkPropertyChanged(AIndex);
  58459. end;
  58460. Procedure TMicrosoft_Online_SharePoint_TenantManagementExternalUser.SetUserId(AIndex: Integer; const AValue: TInt32);
  58461. begin
  58462. If (FUserId=AValue) then exit;
  58463. FUserId:=AValue;
  58464. MarkPropertyChanged(AIndex);
  58465. end;
  58466. Procedure TMicrosoft_Online_SharePoint_TenantManagementExternalUser.SetWhenCreated(AIndex: Integer; const AValue: TDateTime);
  58467. begin
  58468. If (FWhenCreated=AValue) then exit;
  58469. FWhenCreated:=AValue;
  58470. MarkPropertyChanged(AIndex);
  58471. end;
  58472. Function TMicrosoft_Online_SharePoint_TenantManagementExternalUser.KeyAsURLPart : string;
  58473. begin
  58474. Result:=TODataObject.MakeKeyString(AcceptedAs);
  58475. end;
  58476. { --------------------------------------------------------------------
  58477. TMicrosoft_Online_SharePoint_TenantManagementGetExternalUsersResults
  58478. --------------------------------------------------------------------}
  58479. Class Function TMicrosoft_Online_SharePoint_TenantManagementGetExternalUsersResults.ObjectRestKind : String;
  58480. begin
  58481. Result:='GetExternalUsersResults';
  58482. end;
  58483. Procedure TMicrosoft_Online_SharePoint_TenantManagementGetExternalUsersResults.SetTotalUserCount(AIndex: Integer; const AValue: TInt32);
  58484. begin
  58485. If (FTotalUserCount=AValue) then exit;
  58486. FTotalUserCount:=AValue;
  58487. MarkPropertyChanged(AIndex);
  58488. end;
  58489. Procedure TMicrosoft_Online_SharePoint_TenantManagementGetExternalUsersResults.SetUserCollectionPosition(AIndex: Integer; const AValue: TInt32);
  58490. begin
  58491. If (FUserCollectionPosition=AValue) then exit;
  58492. FUserCollectionPosition:=AValue;
  58493. MarkPropertyChanged(AIndex);
  58494. end;
  58495. Function TMicrosoft_Online_SharePoint_TenantManagementGetExternalUsersResults.KeyAsURLPart : string;
  58496. begin
  58497. Result:=IntToStr(TotalUserCount);
  58498. end;
  58499. Function TMicrosoft_Online_SharePoint_TenantManagementGetExternalUsersResults.ExternalUserCollection(AService: TODataService) : TMicrosoft_Online_SharePoint_TenantManagementExternalUser;
  58500. begin
  58501. Result:=TMicrosoft_Online_SharePoint_TenantManagementExternalUser(GetContainedSingleTon(AService,'ExternalUserCollection', TMicrosoft_Online_SharePoint_TenantManagementExternalUser));
  58502. end;
  58503. { --------------------------------------------------------------------
  58504. TMicrosoft_Online_SharePoint_TenantManagementOffice365Tenant
  58505. --------------------------------------------------------------------}
  58506. Class Function TMicrosoft_Online_SharePoint_TenantManagementOffice365Tenant.ObjectRestKind : String;
  58507. begin
  58508. Result:='Office365Tenant';
  58509. end;
  58510. Procedure TMicrosoft_Online_SharePoint_TenantManagementOffice365Tenant.SetAllowedDomainListForSyncClient(AIndex: Integer; const AValue: TGuidStringArray);
  58511. begin
  58512. If (FAllowedDomainListForSyncClient=AValue) then exit;
  58513. FAllowedDomainListForSyncClient:=AValue;
  58514. MarkPropertyChanged(AIndex);
  58515. end;
  58516. Procedure TMicrosoft_Online_SharePoint_TenantManagementOffice365Tenant.SetDisplayStartASiteOption(AIndex: Integer; const AValue: boolean);
  58517. begin
  58518. If (FDisplayStartASiteOption=AValue) then exit;
  58519. FDisplayStartASiteOption:=AValue;
  58520. MarkPropertyChanged(AIndex);
  58521. end;
  58522. Procedure TMicrosoft_Online_SharePoint_TenantManagementOffice365Tenant.SetExternalServicesEnabled(AIndex: Integer; const AValue: boolean);
  58523. begin
  58524. If (FExternalServicesEnabled=AValue) then exit;
  58525. FExternalServicesEnabled:=AValue;
  58526. MarkPropertyChanged(AIndex);
  58527. end;
  58528. Procedure TMicrosoft_Online_SharePoint_TenantManagementOffice365Tenant.SetIsUnmanagedSyncClientForTenantRestricted(AIndex: Integer; const AValue: boolean);
  58529. begin
  58530. If (FIsUnmanagedSyncClientForTenantRestricted=AValue) then exit;
  58531. FIsUnmanagedSyncClientForTenantRestricted:=AValue;
  58532. MarkPropertyChanged(AIndex);
  58533. end;
  58534. Procedure TMicrosoft_Online_SharePoint_TenantManagementOffice365Tenant.SetIsUnmanagedSyncClientRestrictionFlightEnabled(AIndex: Integer; const AValue: boolean);
  58535. begin
  58536. If (FIsUnmanagedSyncClientRestrictionFlightEnabled=AValue) then exit;
  58537. FIsUnmanagedSyncClientRestrictionFlightEnabled:=AValue;
  58538. MarkPropertyChanged(AIndex);
  58539. end;
  58540. Procedure TMicrosoft_Online_SharePoint_TenantManagementOffice365Tenant.SetMySitesPublicEnabled(AIndex: Integer; const AValue: boolean);
  58541. begin
  58542. If (FMySitesPublicEnabled=AValue) then exit;
  58543. FMySitesPublicEnabled:=AValue;
  58544. MarkPropertyChanged(AIndex);
  58545. end;
  58546. Procedure TMicrosoft_Online_SharePoint_TenantManagementOffice365Tenant.SetSharingCapability(AIndex: Integer; const AValue: TInt32);
  58547. begin
  58548. If (FSharingCapability=AValue) then exit;
  58549. FSharingCapability:=AValue;
  58550. MarkPropertyChanged(AIndex);
  58551. end;
  58552. Procedure TMicrosoft_Online_SharePoint_TenantManagementOffice365Tenant.SetStartASiteFormUrl(AIndex: Integer; const AValue: string);
  58553. begin
  58554. If (FStartASiteFormUrl=AValue) then exit;
  58555. FStartASiteFormUrl:=AValue;
  58556. MarkPropertyChanged(AIndex);
  58557. end;
  58558. {$IFDEF VER2_6}
  58559. Procedure TMicrosoft_Online_SharePoint_TenantManagementOffice365Tenant.SetArrayLength(const AName: String; ALength: Longint);
  58560. begin
  58561. Case aName of
  58562. 'alloweddomainlistforsyncclient' : SetLength(FAllowedDomainListForSyncClient,aLength);
  58563. else
  58564. inherited SetArrayLength(aName,ALength);
  58565. end;
  58566. end;
  58567. {$ENDIF VER2_6}
  58568. Function TMicrosoft_Online_SharePoint_TenantManagementOffice365Tenant.KeyAsURLPart : string;
  58569. begin
  58570. Result:=BoolToStr(DisplayStartASiteOption,'true','false');
  58571. end;
  58572. { --------------------------------------------------------------------
  58573. TMicrosoft_Online_SharePoint_TenantManagementRemoveExternalUsersResults
  58574. --------------------------------------------------------------------}
  58575. Class Function TMicrosoft_Online_SharePoint_TenantManagementRemoveExternalUsersResults.ObjectRestKind : String;
  58576. begin
  58577. Result:='RemoveExternalUsersResults';
  58578. end;
  58579. Procedure TMicrosoft_Online_SharePoint_TenantManagementRemoveExternalUsersResults.SetId4a81de82eeb94d6080ea5bf63e27023a(AIndex: Integer; const AValue: string);
  58580. begin
  58581. If (FId4a81de82eeb94d6080ea5bf63e27023a=AValue) then exit;
  58582. FId4a81de82eeb94d6080ea5bf63e27023a:=AValue;
  58583. MarkPropertyChanged(AIndex);
  58584. end;
  58585. Procedure TMicrosoft_Online_SharePoint_TenantManagementRemoveExternalUsersResults.SetRemoveFailed(AIndex: Integer; const AValue: TStringArray);
  58586. begin
  58587. If (FRemoveFailed=AValue) then exit;
  58588. FRemoveFailed:=AValue;
  58589. MarkPropertyChanged(AIndex);
  58590. end;
  58591. Procedure TMicrosoft_Online_SharePoint_TenantManagementRemoveExternalUsersResults.SetRemoveSucceeded(AIndex: Integer; const AValue: TStringArray);
  58592. begin
  58593. If (FRemoveSucceeded=AValue) then exit;
  58594. FRemoveSucceeded:=AValue;
  58595. MarkPropertyChanged(AIndex);
  58596. end;
  58597. {$IFDEF VER2_6}
  58598. Procedure TMicrosoft_Online_SharePoint_TenantManagementRemoveExternalUsersResults.SetArrayLength(const AName: String; ALength: Longint);
  58599. begin
  58600. Case aName of
  58601. 'removefailed' : SetLength(FRemoveFailed,aLength);
  58602. 'removesucceeded' : SetLength(FRemoveSucceeded,aLength);
  58603. else
  58604. inherited SetArrayLength(aName,ALength);
  58605. end;
  58606. end;
  58607. {$ENDIF VER2_6}
  58608. Function TMicrosoft_Online_SharePoint_TenantManagementRemoveExternalUsersResults.KeyAsURLPart : string;
  58609. begin
  58610. Result:=TODataObject.MakeKeyString(Id4a81de82eeb94d6080ea5bf63e27023a);
  58611. end;
  58612. { --------------------------------------------------------------------
  58613. TSP_DataOData__x005f_catalogs_x002f_appdataItem
  58614. --------------------------------------------------------------------}
  58615. Class Function TSP_DataOData__x005f_catalogs_x002f_appdataItem.ObjectRestKind : String;
  58616. begin
  58617. Result:='OData__x005f_catalogs_x002f_appdataItem';
  58618. end;
  58619. Procedure TSP_DataOData__x005f_catalogs_x002f_appdataItem.SetContentTypeId(AIndex: Integer; const AValue: string);
  58620. begin
  58621. If (FContentTypeId=AValue) then exit;
  58622. FContentTypeId:=AValue;
  58623. MarkPropertyChanged(AIndex);
  58624. end;
  58625. Procedure TSP_DataOData__x005f_catalogs_x002f_appdataItem.SetTitle(AIndex: Integer; const AValue: string);
  58626. begin
  58627. If (FTitle=AValue) then exit;
  58628. FTitle:=AValue;
  58629. MarkPropertyChanged(AIndex);
  58630. end;
  58631. Procedure TSP_DataOData__x005f_catalogs_x002f_appdataItem.SetModified(AIndex: Integer; const AValue: TDateTime);
  58632. begin
  58633. If (FModified=AValue) then exit;
  58634. FModified:=AValue;
  58635. MarkPropertyChanged(AIndex);
  58636. end;
  58637. Procedure TSP_DataOData__x005f_catalogs_x002f_appdataItem.SetCreated(AIndex: Integer; const AValue: TDateTime);
  58638. begin
  58639. If (FCreated=AValue) then exit;
  58640. FCreated:=AValue;
  58641. MarkPropertyChanged(AIndex);
  58642. end;
  58643. Procedure TSP_DataOData__x005f_catalogs_x002f_appdataItem.SetAuthorId(AIndex: Integer; const AValue: TInt32);
  58644. begin
  58645. If (FAuthorId=AValue) then exit;
  58646. FAuthorId:=AValue;
  58647. MarkPropertyChanged(AIndex);
  58648. end;
  58649. Procedure TSP_DataOData__x005f_catalogs_x002f_appdataItem.SetEditorId(AIndex: Integer; const AValue: TInt32);
  58650. begin
  58651. If (FEditorId=AValue) then exit;
  58652. FEditorId:=AValue;
  58653. MarkPropertyChanged(AIndex);
  58654. end;
  58655. Procedure TSP_DataOData__x005f_catalogs_x002f_appdataItem.SetOData__HasCopyDestinations(AIndex: Integer; const AValue: boolean);
  58656. begin
  58657. If (FOData__HasCopyDestinations=AValue) then exit;
  58658. FOData__HasCopyDestinations:=AValue;
  58659. MarkPropertyChanged(AIndex);
  58660. end;
  58661. Procedure TSP_DataOData__x005f_catalogs_x002f_appdataItem.SetOData__CopySource(AIndex: Integer; const AValue: string);
  58662. begin
  58663. If (FOData__CopySource=AValue) then exit;
  58664. FOData__CopySource:=AValue;
  58665. MarkPropertyChanged(AIndex);
  58666. end;
  58667. Procedure TSP_DataOData__x005f_catalogs_x002f_appdataItem.Setowshiddenversion(AIndex: Integer; const AValue: TInt32);
  58668. begin
  58669. If (Fowshiddenversion=AValue) then exit;
  58670. Fowshiddenversion:=AValue;
  58671. MarkPropertyChanged(AIndex);
  58672. end;
  58673. Procedure TSP_DataOData__x005f_catalogs_x002f_appdataItem.SetWorkflowVersion(AIndex: Integer; const AValue: TInt32);
  58674. begin
  58675. If (FWorkflowVersion=AValue) then exit;
  58676. FWorkflowVersion:=AValue;
  58677. MarkPropertyChanged(AIndex);
  58678. end;
  58679. Procedure TSP_DataOData__x005f_catalogs_x002f_appdataItem.SetOData__UIVersion(AIndex: Integer; const AValue: TInt32);
  58680. begin
  58681. If (FOData__UIVersion=AValue) then exit;
  58682. FOData__UIVersion:=AValue;
  58683. MarkPropertyChanged(AIndex);
  58684. end;
  58685. Procedure TSP_DataOData__x005f_catalogs_x002f_appdataItem.SetOData__UIVersionString(AIndex: Integer; const AValue: string);
  58686. begin
  58687. If (FOData__UIVersionString=AValue) then exit;
  58688. FOData__UIVersionString:=AValue;
  58689. MarkPropertyChanged(AIndex);
  58690. end;
  58691. Procedure TSP_DataOData__x005f_catalogs_x002f_appdataItem.SetAttachments(AIndex: Integer; const AValue: boolean);
  58692. begin
  58693. If (FAttachments=AValue) then exit;
  58694. FAttachments:=AValue;
  58695. MarkPropertyChanged(AIndex);
  58696. end;
  58697. Procedure TSP_DataOData__x005f_catalogs_x002f_appdataItem.SetOData__ModerationStatus(AIndex: Integer; const AValue: TInt32);
  58698. begin
  58699. If (FOData__ModerationStatus=AValue) then exit;
  58700. FOData__ModerationStatus:=AValue;
  58701. MarkPropertyChanged(AIndex);
  58702. end;
  58703. Procedure TSP_DataOData__x005f_catalogs_x002f_appdataItem.SetOData__ModerationComments(AIndex: Integer; const AValue: string);
  58704. begin
  58705. If (FOData__ModerationComments=AValue) then exit;
  58706. FOData__ModerationComments:=AValue;
  58707. MarkPropertyChanged(AIndex);
  58708. end;
  58709. Procedure TSP_DataOData__x005f_catalogs_x002f_appdataItem.SetEdit(AIndex: Integer; const AValue: string);
  58710. begin
  58711. If (FEdit=AValue) then exit;
  58712. FEdit:=AValue;
  58713. MarkPropertyChanged(AIndex);
  58714. end;
  58715. Procedure TSP_DataOData__x005f_catalogs_x002f_appdataItem.SetLinkTitleNoMenu(AIndex: Integer; const AValue: string);
  58716. begin
  58717. If (FLinkTitleNoMenu=AValue) then exit;
  58718. FLinkTitleNoMenu:=AValue;
  58719. MarkPropertyChanged(AIndex);
  58720. end;
  58721. Procedure TSP_DataOData__x005f_catalogs_x002f_appdataItem.SetLinkTitle(AIndex: Integer; const AValue: string);
  58722. begin
  58723. If (FLinkTitle=AValue) then exit;
  58724. FLinkTitle:=AValue;
  58725. MarkPropertyChanged(AIndex);
  58726. end;
  58727. Procedure TSP_DataOData__x005f_catalogs_x002f_appdataItem.SetLinkTitle2(AIndex: Integer; const AValue: string);
  58728. begin
  58729. If (FLinkTitle2=AValue) then exit;
  58730. FLinkTitle2:=AValue;
  58731. MarkPropertyChanged(AIndex);
  58732. end;
  58733. Procedure TSP_DataOData__x005f_catalogs_x002f_appdataItem.SetSelectTitle(AIndex: Integer; const AValue: string);
  58734. begin
  58735. If (FSelectTitle=AValue) then exit;
  58736. FSelectTitle:=AValue;
  58737. MarkPropertyChanged(AIndex);
  58738. end;
  58739. Procedure TSP_DataOData__x005f_catalogs_x002f_appdataItem.SetInstanceID(AIndex: Integer; const AValue: TInt32);
  58740. begin
  58741. If (FInstanceID=AValue) then exit;
  58742. FInstanceID:=AValue;
  58743. MarkPropertyChanged(AIndex);
  58744. end;
  58745. Procedure TSP_DataOData__x005f_catalogs_x002f_appdataItem.SetOrder(AIndex: Integer; const AValue: Double);
  58746. begin
  58747. If (FOrder=AValue) then exit;
  58748. FOrder:=AValue;
  58749. MarkPropertyChanged(AIndex);
  58750. end;
  58751. Procedure TSP_DataOData__x005f_catalogs_x002f_appdataItem.SetGUID(AIndex: Integer; const AValue: TGUIDString);
  58752. begin
  58753. If (FGUID=AValue) then exit;
  58754. FGUID:=AValue;
  58755. MarkPropertyChanged(AIndex);
  58756. end;
  58757. Procedure TSP_DataOData__x005f_catalogs_x002f_appdataItem.SetWorkflowInstanceID(AIndex: Integer; const AValue: TGUIDString);
  58758. begin
  58759. If (FWorkflowInstanceID=AValue) then exit;
  58760. FWorkflowInstanceID:=AValue;
  58761. MarkPropertyChanged(AIndex);
  58762. end;
  58763. Procedure TSP_DataOData__x005f_catalogs_x002f_appdataItem.SetFileRef(AIndex: Integer; const AValue: string);
  58764. begin
  58765. If (FFileRef=AValue) then exit;
  58766. FFileRef:=AValue;
  58767. MarkPropertyChanged(AIndex);
  58768. end;
  58769. Procedure TSP_DataOData__x005f_catalogs_x002f_appdataItem.SetFileDirRef(AIndex: Integer; const AValue: string);
  58770. begin
  58771. If (FFileDirRef=AValue) then exit;
  58772. FFileDirRef:=AValue;
  58773. MarkPropertyChanged(AIndex);
  58774. end;
  58775. Procedure TSP_DataOData__x005f_catalogs_x002f_appdataItem.SetLast_x0020_Modified(AIndex: Integer; const AValue: TDateTime);
  58776. begin
  58777. If (FLast_x0020_Modified=AValue) then exit;
  58778. FLast_x0020_Modified:=AValue;
  58779. MarkPropertyChanged(AIndex);
  58780. end;
  58781. Procedure TSP_DataOData__x005f_catalogs_x002f_appdataItem.SetCreated_x0020_Date(AIndex: Integer; const AValue: TDateTime);
  58782. begin
  58783. If (FCreated_x0020_Date=AValue) then exit;
  58784. FCreated_x0020_Date:=AValue;
  58785. MarkPropertyChanged(AIndex);
  58786. end;
  58787. Procedure TSP_DataOData__x005f_catalogs_x002f_appdataItem.SetFSObjType(AIndex: Integer; const AValue: TInt32);
  58788. begin
  58789. If (FFSObjType=AValue) then exit;
  58790. FFSObjType:=AValue;
  58791. MarkPropertyChanged(AIndex);
  58792. end;
  58793. Procedure TSP_DataOData__x005f_catalogs_x002f_appdataItem.SetPermMask(AIndex: Integer; const AValue: string);
  58794. begin
  58795. If (FPermMask=AValue) then exit;
  58796. FPermMask:=AValue;
  58797. MarkPropertyChanged(AIndex);
  58798. end;
  58799. Procedure TSP_DataOData__x005f_catalogs_x002f_appdataItem.SetFileLeafRef(AIndex: Integer; const AValue: string);
  58800. begin
  58801. If (FFileLeafRef=AValue) then exit;
  58802. FFileLeafRef:=AValue;
  58803. MarkPropertyChanged(AIndex);
  58804. end;
  58805. Procedure TSP_DataOData__x005f_catalogs_x002f_appdataItem.SetUniqueId(AIndex: Integer; const AValue: TGUIDString);
  58806. begin
  58807. If (FUniqueId=AValue) then exit;
  58808. FUniqueId:=AValue;
  58809. MarkPropertyChanged(AIndex);
  58810. end;
  58811. Procedure TSP_DataOData__x005f_catalogs_x002f_appdataItem.SetFile_x0020_Type(AIndex: Integer; const AValue: string);
  58812. begin
  58813. If (FFile_x0020_Type=AValue) then exit;
  58814. FFile_x0020_Type:=AValue;
  58815. MarkPropertyChanged(AIndex);
  58816. end;
  58817. Procedure TSP_DataOData__x005f_catalogs_x002f_appdataItem.SetHTML_x0020_File_x0020_Type(AIndex: Integer; const AValue: string);
  58818. begin
  58819. If (FHTML_x0020_File_x0020_Type=AValue) then exit;
  58820. FHTML_x0020_File_x0020_Type:=AValue;
  58821. MarkPropertyChanged(AIndex);
  58822. end;
  58823. Procedure TSP_DataOData__x005f_catalogs_x002f_appdataItem.SetOData__EditMenuTableStart(AIndex: Integer; const AValue: string);
  58824. begin
  58825. If (FOData__EditMenuTableStart=AValue) then exit;
  58826. FOData__EditMenuTableStart:=AValue;
  58827. MarkPropertyChanged(AIndex);
  58828. end;
  58829. Procedure TSP_DataOData__x005f_catalogs_x002f_appdataItem.SetOData__EditMenuTableStart2(AIndex: Integer; const AValue: string);
  58830. begin
  58831. If (FOData__EditMenuTableStart2=AValue) then exit;
  58832. FOData__EditMenuTableStart2:=AValue;
  58833. MarkPropertyChanged(AIndex);
  58834. end;
  58835. Procedure TSP_DataOData__x005f_catalogs_x002f_appdataItem.SetOData__EditMenuTableEnd(AIndex: Integer; const AValue: string);
  58836. begin
  58837. If (FOData__EditMenuTableEnd=AValue) then exit;
  58838. FOData__EditMenuTableEnd:=AValue;
  58839. MarkPropertyChanged(AIndex);
  58840. end;
  58841. Procedure TSP_DataOData__x005f_catalogs_x002f_appdataItem.SetLinkFilenameNoMenu(AIndex: Integer; const AValue: string);
  58842. begin
  58843. If (FLinkFilenameNoMenu=AValue) then exit;
  58844. FLinkFilenameNoMenu:=AValue;
  58845. MarkPropertyChanged(AIndex);
  58846. end;
  58847. Procedure TSP_DataOData__x005f_catalogs_x002f_appdataItem.SetLinkFilename(AIndex: Integer; const AValue: string);
  58848. begin
  58849. If (FLinkFilename=AValue) then exit;
  58850. FLinkFilename:=AValue;
  58851. MarkPropertyChanged(AIndex);
  58852. end;
  58853. Procedure TSP_DataOData__x005f_catalogs_x002f_appdataItem.SetLinkFilename2(AIndex: Integer; const AValue: string);
  58854. begin
  58855. If (FLinkFilename2=AValue) then exit;
  58856. FLinkFilename2:=AValue;
  58857. MarkPropertyChanged(AIndex);
  58858. end;
  58859. Procedure TSP_DataOData__x005f_catalogs_x002f_appdataItem.SetDocIcon(AIndex: Integer; const AValue: string);
  58860. begin
  58861. If (FDocIcon=AValue) then exit;
  58862. FDocIcon:=AValue;
  58863. MarkPropertyChanged(AIndex);
  58864. end;
  58865. Procedure TSP_DataOData__x005f_catalogs_x002f_appdataItem.SetServerUrl(AIndex: Integer; const AValue: string);
  58866. begin
  58867. If (FServerUrl=AValue) then exit;
  58868. FServerUrl:=AValue;
  58869. MarkPropertyChanged(AIndex);
  58870. end;
  58871. Procedure TSP_DataOData__x005f_catalogs_x002f_appdataItem.SetEncodedAbsUrl(AIndex: Integer; const AValue: string);
  58872. begin
  58873. If (FEncodedAbsUrl=AValue) then exit;
  58874. FEncodedAbsUrl:=AValue;
  58875. MarkPropertyChanged(AIndex);
  58876. end;
  58877. Procedure TSP_DataOData__x005f_catalogs_x002f_appdataItem.SetBaseName(AIndex: Integer; const AValue: string);
  58878. begin
  58879. If (FBaseName=AValue) then exit;
  58880. FBaseName:=AValue;
  58881. MarkPropertyChanged(AIndex);
  58882. end;
  58883. Procedure TSP_DataOData__x005f_catalogs_x002f_appdataItem.SetOData__Level(AIndex: Integer; const AValue: TInt32);
  58884. begin
  58885. If (FOData__Level=AValue) then exit;
  58886. FOData__Level:=AValue;
  58887. MarkPropertyChanged(AIndex);
  58888. end;
  58889. Procedure TSP_DataOData__x005f_catalogs_x002f_appdataItem.SetOData__IsCurrentVersion(AIndex: Integer; const AValue: boolean);
  58890. begin
  58891. If (FOData__IsCurrentVersion=AValue) then exit;
  58892. FOData__IsCurrentVersion:=AValue;
  58893. MarkPropertyChanged(AIndex);
  58894. end;
  58895. Procedure TSP_DataOData__x005f_catalogs_x002f_appdataItem.SetAppAuthorId(AIndex: Integer; const AValue: TInt32);
  58896. begin
  58897. If (FAppAuthorId=AValue) then exit;
  58898. FAppAuthorId:=AValue;
  58899. MarkPropertyChanged(AIndex);
  58900. end;
  58901. Procedure TSP_DataOData__x005f_catalogs_x002f_appdataItem.SetAppEditorId(AIndex: Integer; const AValue: TInt32);
  58902. begin
  58903. If (FAppEditorId=AValue) then exit;
  58904. FAppEditorId:=AValue;
  58905. MarkPropertyChanged(AIndex);
  58906. end;
  58907. Function TSP_DataOData__x005f_catalogs_x002f_appdataItem.Author(AService: TODataService) : TSP_DataUserInfoItem;
  58908. begin
  58909. Result:=TSP_DataUserInfoItem(GetContainedSingleTon(AService,'Author', TSP_DataUserInfoItem));
  58910. end;
  58911. Function TSP_DataOData__x005f_catalogs_x002f_appdataItem.Editor(AService: TODataService) : TSP_DataUserInfoItem;
  58912. begin
  58913. Result:=TSP_DataUserInfoItem(GetContainedSingleTon(AService,'Editor', TSP_DataUserInfoItem));
  58914. end;
  58915. { --------------------------------------------------------------------
  58916. TSP_DataUserInfoItem
  58917. --------------------------------------------------------------------}
  58918. Class Function TSP_DataUserInfoItem.ObjectRestKind : String;
  58919. begin
  58920. Result:='UserInfoItem';
  58921. end;
  58922. Procedure TSP_DataUserInfoItem.SetContentTypeId(AIndex: Integer; const AValue: string);
  58923. begin
  58924. If (FContentTypeId=AValue) then exit;
  58925. FContentTypeId:=AValue;
  58926. MarkPropertyChanged(AIndex);
  58927. end;
  58928. Procedure TSP_DataUserInfoItem.SetTitle(AIndex: Integer; const AValue: string);
  58929. begin
  58930. If (FTitle=AValue) then exit;
  58931. FTitle:=AValue;
  58932. MarkPropertyChanged(AIndex);
  58933. end;
  58934. Procedure TSP_DataUserInfoItem.SetOData__ModerationComments(AIndex: Integer; const AValue: string);
  58935. begin
  58936. If (FOData__ModerationComments=AValue) then exit;
  58937. FOData__ModerationComments:=AValue;
  58938. MarkPropertyChanged(AIndex);
  58939. end;
  58940. Procedure TSP_DataUserInfoItem.SetFile_x0020_Type(AIndex: Integer; const AValue: string);
  58941. begin
  58942. If (FFile_x0020_Type=AValue) then exit;
  58943. FFile_x0020_Type:=AValue;
  58944. MarkPropertyChanged(AIndex);
  58945. end;
  58946. Procedure TSP_DataUserInfoItem.SetName(AIndex: Integer; const AValue: string);
  58947. begin
  58948. If (FName=AValue) then exit;
  58949. FName:=AValue;
  58950. MarkPropertyChanged(AIndex);
  58951. end;
  58952. Procedure TSP_DataUserInfoItem.SetEMail(AIndex: Integer; const AValue: string);
  58953. begin
  58954. If (FEMail=AValue) then exit;
  58955. FEMail:=AValue;
  58956. MarkPropertyChanged(AIndex);
  58957. end;
  58958. Procedure TSP_DataUserInfoItem.SetMobilePhone(AIndex: Integer; const AValue: string);
  58959. begin
  58960. If (FMobilePhone=AValue) then exit;
  58961. FMobilePhone:=AValue;
  58962. MarkPropertyChanged(AIndex);
  58963. end;
  58964. Procedure TSP_DataUserInfoItem.SetNotes(AIndex: Integer; const AValue: string);
  58965. begin
  58966. If (FNotes=AValue) then exit;
  58967. FNotes:=AValue;
  58968. MarkPropertyChanged(AIndex);
  58969. end;
  58970. Procedure TSP_DataUserInfoItem.SetSipAddress(AIndex: Integer; const AValue: string);
  58971. begin
  58972. If (FSipAddress=AValue) then exit;
  58973. FSipAddress:=AValue;
  58974. MarkPropertyChanged(AIndex);
  58975. end;
  58976. Procedure TSP_DataUserInfoItem.SetLocale(AIndex: Integer; const AValue: TInt32);
  58977. begin
  58978. If (FLocale=AValue) then exit;
  58979. FLocale:=AValue;
  58980. MarkPropertyChanged(AIndex);
  58981. end;
  58982. Procedure TSP_DataUserInfoItem.SetCalendarType(AIndex: Integer; const AValue: TInt32);
  58983. begin
  58984. If (FCalendarType=AValue) then exit;
  58985. FCalendarType:=AValue;
  58986. MarkPropertyChanged(AIndex);
  58987. end;
  58988. Procedure TSP_DataUserInfoItem.SetAdjustHijriDays(AIndex: Integer; const AValue: TInt32);
  58989. begin
  58990. If (FAdjustHijriDays=AValue) then exit;
  58991. FAdjustHijriDays:=AValue;
  58992. MarkPropertyChanged(AIndex);
  58993. end;
  58994. Procedure TSP_DataUserInfoItem.SetTimeZone(AIndex: Integer; const AValue: TInt32);
  58995. begin
  58996. If (FTimeZone=AValue) then exit;
  58997. FTimeZone:=AValue;
  58998. MarkPropertyChanged(AIndex);
  58999. end;
  59000. Procedure TSP_DataUserInfoItem.SetTime24(AIndex: Integer; const AValue: boolean);
  59001. begin
  59002. If (FTime24=AValue) then exit;
  59003. FTime24:=AValue;
  59004. MarkPropertyChanged(AIndex);
  59005. end;
  59006. Procedure TSP_DataUserInfoItem.SetAltCalendarType(AIndex: Integer; const AValue: TInt32);
  59007. begin
  59008. If (FAltCalendarType=AValue) then exit;
  59009. FAltCalendarType:=AValue;
  59010. MarkPropertyChanged(AIndex);
  59011. end;
  59012. Procedure TSP_DataUserInfoItem.SetCalendarViewOptions(AIndex: Integer; const AValue: TInt32);
  59013. begin
  59014. If (FCalendarViewOptions=AValue) then exit;
  59015. FCalendarViewOptions:=AValue;
  59016. MarkPropertyChanged(AIndex);
  59017. end;
  59018. Procedure TSP_DataUserInfoItem.SetWorkDays(AIndex: Integer; const AValue: TInt32);
  59019. begin
  59020. If (FWorkDays=AValue) then exit;
  59021. FWorkDays:=AValue;
  59022. MarkPropertyChanged(AIndex);
  59023. end;
  59024. Procedure TSP_DataUserInfoItem.SetWorkDayStartHour(AIndex: Integer; const AValue: TInt32);
  59025. begin
  59026. If (FWorkDayStartHour=AValue) then exit;
  59027. FWorkDayStartHour:=AValue;
  59028. MarkPropertyChanged(AIndex);
  59029. end;
  59030. Procedure TSP_DataUserInfoItem.SetWorkDayEndHour(AIndex: Integer; const AValue: TInt32);
  59031. begin
  59032. If (FWorkDayEndHour=AValue) then exit;
  59033. FWorkDayEndHour:=AValue;
  59034. MarkPropertyChanged(AIndex);
  59035. end;
  59036. Procedure TSP_DataUserInfoItem.SetMUILanguages(AIndex: Integer; const AValue: string);
  59037. begin
  59038. If (FMUILanguages=AValue) then exit;
  59039. FMUILanguages:=AValue;
  59040. MarkPropertyChanged(AIndex);
  59041. end;
  59042. Procedure TSP_DataUserInfoItem.SetContentLanguages(AIndex: Integer; const AValue: string);
  59043. begin
  59044. If (FContentLanguages=AValue) then exit;
  59045. FContentLanguages:=AValue;
  59046. MarkPropertyChanged(AIndex);
  59047. end;
  59048. Procedure TSP_DataUserInfoItem.SetIsSiteAdmin(AIndex: Integer; const AValue: boolean);
  59049. begin
  59050. If (FIsSiteAdmin=AValue) then exit;
  59051. FIsSiteAdmin:=AValue;
  59052. MarkPropertyChanged(AIndex);
  59053. end;
  59054. Procedure TSP_DataUserInfoItem.SetDeleted(AIndex: Integer; const AValue: boolean);
  59055. begin
  59056. If (FDeleted=AValue) then exit;
  59057. FDeleted:=AValue;
  59058. MarkPropertyChanged(AIndex);
  59059. end;
  59060. Procedure TSP_DataUserInfoItem.SetUserInfoHidden(AIndex: Integer; const AValue: boolean);
  59061. begin
  59062. If (FUserInfoHidden=AValue) then exit;
  59063. FUserInfoHidden:=AValue;
  59064. MarkPropertyChanged(AIndex);
  59065. end;
  59066. Procedure TSP_DataUserInfoItem.SetPicture(AIndex: Integer; const AValue: TSPFieldUrlValue);
  59067. begin
  59068. If (FPicture=AValue) then exit;
  59069. FPicture:=AValue;
  59070. MarkPropertyChanged(AIndex);
  59071. end;
  59072. Procedure TSP_DataUserInfoItem.SetDepartment(AIndex: Integer; const AValue: string);
  59073. begin
  59074. If (FDepartment=AValue) then exit;
  59075. FDepartment:=AValue;
  59076. MarkPropertyChanged(AIndex);
  59077. end;
  59078. Procedure TSP_DataUserInfoItem.SetJobTitle(AIndex: Integer; const AValue: string);
  59079. begin
  59080. If (FJobTitle=AValue) then exit;
  59081. FJobTitle:=AValue;
  59082. MarkPropertyChanged(AIndex);
  59083. end;
  59084. Procedure TSP_DataUserInfoItem.SetIsActive(AIndex: Integer; const AValue: boolean);
  59085. begin
  59086. If (FIsActive=AValue) then exit;
  59087. FIsActive:=AValue;
  59088. MarkPropertyChanged(AIndex);
  59089. end;
  59090. Procedure TSP_DataUserInfoItem.SetFirstName(AIndex: Integer; const AValue: string);
  59091. begin
  59092. If (FFirstName=AValue) then exit;
  59093. FFirstName:=AValue;
  59094. MarkPropertyChanged(AIndex);
  59095. end;
  59096. Procedure TSP_DataUserInfoItem.SetLastName(AIndex: Integer; const AValue: string);
  59097. begin
  59098. If (FLastName=AValue) then exit;
  59099. FLastName:=AValue;
  59100. MarkPropertyChanged(AIndex);
  59101. end;
  59102. Procedure TSP_DataUserInfoItem.SetLinkTitle(AIndex: Integer; const AValue: string);
  59103. begin
  59104. If (FLinkTitle=AValue) then exit;
  59105. FLinkTitle:=AValue;
  59106. MarkPropertyChanged(AIndex);
  59107. end;
  59108. Procedure TSP_DataUserInfoItem.SetLinkTitle2(AIndex: Integer; const AValue: string);
  59109. begin
  59110. If (FLinkTitle2=AValue) then exit;
  59111. FLinkTitle2:=AValue;
  59112. MarkPropertyChanged(AIndex);
  59113. end;
  59114. Procedure TSP_DataUserInfoItem.SetWorkPhone(AIndex: Integer; const AValue: string);
  59115. begin
  59116. If (FWorkPhone=AValue) then exit;
  59117. FWorkPhone:=AValue;
  59118. MarkPropertyChanged(AIndex);
  59119. end;
  59120. Procedure TSP_DataUserInfoItem.SetUserName(AIndex: Integer; const AValue: string);
  59121. begin
  59122. If (FUserName=AValue) then exit;
  59123. FUserName:=AValue;
  59124. MarkPropertyChanged(AIndex);
  59125. end;
  59126. Procedure TSP_DataUserInfoItem.SetWebSite(AIndex: Integer; const AValue: TSPFieldUrlValue);
  59127. begin
  59128. If (FWebSite=AValue) then exit;
  59129. FWebSite:=AValue;
  59130. MarkPropertyChanged(AIndex);
  59131. end;
  59132. Procedure TSP_DataUserInfoItem.SetSPSResponsibility(AIndex: Integer; const AValue: string);
  59133. begin
  59134. If (FSPSResponsibility=AValue) then exit;
  59135. FSPSResponsibility:=AValue;
  59136. MarkPropertyChanged(AIndex);
  59137. end;
  59138. Procedure TSP_DataUserInfoItem.SetOffice(AIndex: Integer; const AValue: string);
  59139. begin
  59140. If (FOffice=AValue) then exit;
  59141. FOffice:=AValue;
  59142. MarkPropertyChanged(AIndex);
  59143. end;
  59144. Procedure TSP_DataUserInfoItem.SetSPSPictureTimestamp(AIndex: Integer; const AValue: string);
  59145. begin
  59146. If (FSPSPictureTimestamp=AValue) then exit;
  59147. FSPSPictureTimestamp:=AValue;
  59148. MarkPropertyChanged(AIndex);
  59149. end;
  59150. Procedure TSP_DataUserInfoItem.SetSPSPicturePlaceholderState(AIndex: Integer; const AValue: TInt32);
  59151. begin
  59152. If (FSPSPicturePlaceholderState=AValue) then exit;
  59153. FSPSPicturePlaceholderState:=AValue;
  59154. MarkPropertyChanged(AIndex);
  59155. end;
  59156. Procedure TSP_DataUserInfoItem.SetSPSPictureExchangeSyncState(AIndex: Integer; const AValue: TInt32);
  59157. begin
  59158. If (FSPSPictureExchangeSyncState=AValue) then exit;
  59159. FSPSPictureExchangeSyncState:=AValue;
  59160. MarkPropertyChanged(AIndex);
  59161. end;
  59162. Procedure TSP_DataUserInfoItem.SetModified(AIndex: Integer; const AValue: TDateTime);
  59163. begin
  59164. If (FModified=AValue) then exit;
  59165. FModified:=AValue;
  59166. MarkPropertyChanged(AIndex);
  59167. end;
  59168. Procedure TSP_DataUserInfoItem.SetCreated(AIndex: Integer; const AValue: TDateTime);
  59169. begin
  59170. If (FCreated=AValue) then exit;
  59171. FCreated:=AValue;
  59172. MarkPropertyChanged(AIndex);
  59173. end;
  59174. Procedure TSP_DataUserInfoItem.SetAuthorId(AIndex: Integer; const AValue: TInt32);
  59175. begin
  59176. If (FAuthorId=AValue) then exit;
  59177. FAuthorId:=AValue;
  59178. MarkPropertyChanged(AIndex);
  59179. end;
  59180. Procedure TSP_DataUserInfoItem.SetEditorId(AIndex: Integer; const AValue: TInt32);
  59181. begin
  59182. If (FEditorId=AValue) then exit;
  59183. FEditorId:=AValue;
  59184. MarkPropertyChanged(AIndex);
  59185. end;
  59186. Procedure TSP_DataUserInfoItem.SetOData__HasCopyDestinations(AIndex: Integer; const AValue: boolean);
  59187. begin
  59188. If (FOData__HasCopyDestinations=AValue) then exit;
  59189. FOData__HasCopyDestinations:=AValue;
  59190. MarkPropertyChanged(AIndex);
  59191. end;
  59192. Procedure TSP_DataUserInfoItem.SetOData__CopySource(AIndex: Integer; const AValue: string);
  59193. begin
  59194. If (FOData__CopySource=AValue) then exit;
  59195. FOData__CopySource:=AValue;
  59196. MarkPropertyChanged(AIndex);
  59197. end;
  59198. Procedure TSP_DataUserInfoItem.Setowshiddenversion(AIndex: Integer; const AValue: TInt32);
  59199. begin
  59200. If (Fowshiddenversion=AValue) then exit;
  59201. Fowshiddenversion:=AValue;
  59202. MarkPropertyChanged(AIndex);
  59203. end;
  59204. Procedure TSP_DataUserInfoItem.SetWorkflowVersion(AIndex: Integer; const AValue: TInt32);
  59205. begin
  59206. If (FWorkflowVersion=AValue) then exit;
  59207. FWorkflowVersion:=AValue;
  59208. MarkPropertyChanged(AIndex);
  59209. end;
  59210. Procedure TSP_DataUserInfoItem.SetOData__UIVersion(AIndex: Integer; const AValue: TInt32);
  59211. begin
  59212. If (FOData__UIVersion=AValue) then exit;
  59213. FOData__UIVersion:=AValue;
  59214. MarkPropertyChanged(AIndex);
  59215. end;
  59216. Procedure TSP_DataUserInfoItem.SetOData__UIVersionString(AIndex: Integer; const AValue: string);
  59217. begin
  59218. If (FOData__UIVersionString=AValue) then exit;
  59219. FOData__UIVersionString:=AValue;
  59220. MarkPropertyChanged(AIndex);
  59221. end;
  59222. Procedure TSP_DataUserInfoItem.SetAttachments(AIndex: Integer; const AValue: boolean);
  59223. begin
  59224. If (FAttachments=AValue) then exit;
  59225. FAttachments:=AValue;
  59226. MarkPropertyChanged(AIndex);
  59227. end;
  59228. Procedure TSP_DataUserInfoItem.SetOData__ModerationStatus(AIndex: Integer; const AValue: TInt32);
  59229. begin
  59230. If (FOData__ModerationStatus=AValue) then exit;
  59231. FOData__ModerationStatus:=AValue;
  59232. MarkPropertyChanged(AIndex);
  59233. end;
  59234. Procedure TSP_DataUserInfoItem.SetEdit(AIndex: Integer; const AValue: string);
  59235. begin
  59236. If (FEdit=AValue) then exit;
  59237. FEdit:=AValue;
  59238. MarkPropertyChanged(AIndex);
  59239. end;
  59240. Procedure TSP_DataUserInfoItem.SetLinkTitleNoMenu(AIndex: Integer; const AValue: string);
  59241. begin
  59242. If (FLinkTitleNoMenu=AValue) then exit;
  59243. FLinkTitleNoMenu:=AValue;
  59244. MarkPropertyChanged(AIndex);
  59245. end;
  59246. Procedure TSP_DataUserInfoItem.SetSelectTitle(AIndex: Integer; const AValue: string);
  59247. begin
  59248. If (FSelectTitle=AValue) then exit;
  59249. FSelectTitle:=AValue;
  59250. MarkPropertyChanged(AIndex);
  59251. end;
  59252. Procedure TSP_DataUserInfoItem.SetInstanceID(AIndex: Integer; const AValue: TInt32);
  59253. begin
  59254. If (FInstanceID=AValue) then exit;
  59255. FInstanceID:=AValue;
  59256. MarkPropertyChanged(AIndex);
  59257. end;
  59258. Procedure TSP_DataUserInfoItem.SetOrder(AIndex: Integer; const AValue: Double);
  59259. begin
  59260. If (FOrder=AValue) then exit;
  59261. FOrder:=AValue;
  59262. MarkPropertyChanged(AIndex);
  59263. end;
  59264. Procedure TSP_DataUserInfoItem.SetGUID(AIndex: Integer; const AValue: TGUIDString);
  59265. begin
  59266. If (FGUID=AValue) then exit;
  59267. FGUID:=AValue;
  59268. MarkPropertyChanged(AIndex);
  59269. end;
  59270. Procedure TSP_DataUserInfoItem.SetWorkflowInstanceID(AIndex: Integer; const AValue: TGUIDString);
  59271. begin
  59272. If (FWorkflowInstanceID=AValue) then exit;
  59273. FWorkflowInstanceID:=AValue;
  59274. MarkPropertyChanged(AIndex);
  59275. end;
  59276. Procedure TSP_DataUserInfoItem.SetFileRef(AIndex: Integer; const AValue: string);
  59277. begin
  59278. If (FFileRef=AValue) then exit;
  59279. FFileRef:=AValue;
  59280. MarkPropertyChanged(AIndex);
  59281. end;
  59282. Procedure TSP_DataUserInfoItem.SetFileDirRef(AIndex: Integer; const AValue: string);
  59283. begin
  59284. If (FFileDirRef=AValue) then exit;
  59285. FFileDirRef:=AValue;
  59286. MarkPropertyChanged(AIndex);
  59287. end;
  59288. Procedure TSP_DataUserInfoItem.SetLast_x0020_Modified(AIndex: Integer; const AValue: TDateTime);
  59289. begin
  59290. If (FLast_x0020_Modified=AValue) then exit;
  59291. FLast_x0020_Modified:=AValue;
  59292. MarkPropertyChanged(AIndex);
  59293. end;
  59294. Procedure TSP_DataUserInfoItem.SetCreated_x0020_Date(AIndex: Integer; const AValue: TDateTime);
  59295. begin
  59296. If (FCreated_x0020_Date=AValue) then exit;
  59297. FCreated_x0020_Date:=AValue;
  59298. MarkPropertyChanged(AIndex);
  59299. end;
  59300. Procedure TSP_DataUserInfoItem.SetFSObjType(AIndex: Integer; const AValue: TInt32);
  59301. begin
  59302. If (FFSObjType=AValue) then exit;
  59303. FFSObjType:=AValue;
  59304. MarkPropertyChanged(AIndex);
  59305. end;
  59306. Procedure TSP_DataUserInfoItem.SetPermMask(AIndex: Integer; const AValue: string);
  59307. begin
  59308. If (FPermMask=AValue) then exit;
  59309. FPermMask:=AValue;
  59310. MarkPropertyChanged(AIndex);
  59311. end;
  59312. Procedure TSP_DataUserInfoItem.SetFileLeafRef(AIndex: Integer; const AValue: string);
  59313. begin
  59314. If (FFileLeafRef=AValue) then exit;
  59315. FFileLeafRef:=AValue;
  59316. MarkPropertyChanged(AIndex);
  59317. end;
  59318. Procedure TSP_DataUserInfoItem.SetUniqueId(AIndex: Integer; const AValue: TGUIDString);
  59319. begin
  59320. If (FUniqueId=AValue) then exit;
  59321. FUniqueId:=AValue;
  59322. MarkPropertyChanged(AIndex);
  59323. end;
  59324. Procedure TSP_DataUserInfoItem.SetHTML_x0020_File_x0020_Type(AIndex: Integer; const AValue: string);
  59325. begin
  59326. If (FHTML_x0020_File_x0020_Type=AValue) then exit;
  59327. FHTML_x0020_File_x0020_Type:=AValue;
  59328. MarkPropertyChanged(AIndex);
  59329. end;
  59330. Procedure TSP_DataUserInfoItem.SetOData__EditMenuTableStart(AIndex: Integer; const AValue: string);
  59331. begin
  59332. If (FOData__EditMenuTableStart=AValue) then exit;
  59333. FOData__EditMenuTableStart:=AValue;
  59334. MarkPropertyChanged(AIndex);
  59335. end;
  59336. Procedure TSP_DataUserInfoItem.SetOData__EditMenuTableStart2(AIndex: Integer; const AValue: string);
  59337. begin
  59338. If (FOData__EditMenuTableStart2=AValue) then exit;
  59339. FOData__EditMenuTableStart2:=AValue;
  59340. MarkPropertyChanged(AIndex);
  59341. end;
  59342. Procedure TSP_DataUserInfoItem.SetOData__EditMenuTableEnd(AIndex: Integer; const AValue: string);
  59343. begin
  59344. If (FOData__EditMenuTableEnd=AValue) then exit;
  59345. FOData__EditMenuTableEnd:=AValue;
  59346. MarkPropertyChanged(AIndex);
  59347. end;
  59348. Procedure TSP_DataUserInfoItem.SetLinkFilenameNoMenu(AIndex: Integer; const AValue: string);
  59349. begin
  59350. If (FLinkFilenameNoMenu=AValue) then exit;
  59351. FLinkFilenameNoMenu:=AValue;
  59352. MarkPropertyChanged(AIndex);
  59353. end;
  59354. Procedure TSP_DataUserInfoItem.SetLinkFilename(AIndex: Integer; const AValue: string);
  59355. begin
  59356. If (FLinkFilename=AValue) then exit;
  59357. FLinkFilename:=AValue;
  59358. MarkPropertyChanged(AIndex);
  59359. end;
  59360. Procedure TSP_DataUserInfoItem.SetLinkFilename2(AIndex: Integer; const AValue: string);
  59361. begin
  59362. If (FLinkFilename2=AValue) then exit;
  59363. FLinkFilename2:=AValue;
  59364. MarkPropertyChanged(AIndex);
  59365. end;
  59366. Procedure TSP_DataUserInfoItem.SetDocIcon(AIndex: Integer; const AValue: string);
  59367. begin
  59368. If (FDocIcon=AValue) then exit;
  59369. FDocIcon:=AValue;
  59370. MarkPropertyChanged(AIndex);
  59371. end;
  59372. Procedure TSP_DataUserInfoItem.SetServerUrl(AIndex: Integer; const AValue: string);
  59373. begin
  59374. If (FServerUrl=AValue) then exit;
  59375. FServerUrl:=AValue;
  59376. MarkPropertyChanged(AIndex);
  59377. end;
  59378. Procedure TSP_DataUserInfoItem.SetEncodedAbsUrl(AIndex: Integer; const AValue: string);
  59379. begin
  59380. If (FEncodedAbsUrl=AValue) then exit;
  59381. FEncodedAbsUrl:=AValue;
  59382. MarkPropertyChanged(AIndex);
  59383. end;
  59384. Procedure TSP_DataUserInfoItem.SetBaseName(AIndex: Integer; const AValue: string);
  59385. begin
  59386. If (FBaseName=AValue) then exit;
  59387. FBaseName:=AValue;
  59388. MarkPropertyChanged(AIndex);
  59389. end;
  59390. Procedure TSP_DataUserInfoItem.SetOData__Level(AIndex: Integer; const AValue: TInt32);
  59391. begin
  59392. If (FOData__Level=AValue) then exit;
  59393. FOData__Level:=AValue;
  59394. MarkPropertyChanged(AIndex);
  59395. end;
  59396. Procedure TSP_DataUserInfoItem.SetOData__IsCurrentVersion(AIndex: Integer; const AValue: boolean);
  59397. begin
  59398. If (FOData__IsCurrentVersion=AValue) then exit;
  59399. FOData__IsCurrentVersion:=AValue;
  59400. MarkPropertyChanged(AIndex);
  59401. end;
  59402. Procedure TSP_DataUserInfoItem.SetAppAuthorId(AIndex: Integer; const AValue: TInt32);
  59403. begin
  59404. If (FAppAuthorId=AValue) then exit;
  59405. FAppAuthorId:=AValue;
  59406. MarkPropertyChanged(AIndex);
  59407. end;
  59408. Procedure TSP_DataUserInfoItem.SetAppEditorId(AIndex: Integer; const AValue: TInt32);
  59409. begin
  59410. If (FAppEditorId=AValue) then exit;
  59411. FAppEditorId:=AValue;
  59412. MarkPropertyChanged(AIndex);
  59413. end;
  59414. Procedure TSP_DataUserInfoItem.SetGroupLink(AIndex: Integer; const AValue: string);
  59415. begin
  59416. If (FGroupLink=AValue) then exit;
  59417. FGroupLink:=AValue;
  59418. MarkPropertyChanged(AIndex);
  59419. end;
  59420. Procedure TSP_DataUserInfoItem.SetGroupEdit(AIndex: Integer; const AValue: string);
  59421. begin
  59422. If (FGroupEdit=AValue) then exit;
  59423. FGroupEdit:=AValue;
  59424. MarkPropertyChanged(AIndex);
  59425. end;
  59426. Procedure TSP_DataUserInfoItem.SetImnName(AIndex: Integer; const AValue: string);
  59427. begin
  59428. If (FImnName=AValue) then exit;
  59429. FImnName:=AValue;
  59430. MarkPropertyChanged(AIndex);
  59431. end;
  59432. Procedure TSP_DataUserInfoItem.SetPictureDisp(AIndex: Integer; const AValue: string);
  59433. begin
  59434. If (FPictureDisp=AValue) then exit;
  59435. FPictureDisp:=AValue;
  59436. MarkPropertyChanged(AIndex);
  59437. end;
  59438. Procedure TSP_DataUserInfoItem.SetPictureOnly_Size_36px(AIndex: Integer; const AValue: string);
  59439. begin
  59440. If (FPictureOnly_Size_36px=AValue) then exit;
  59441. FPictureOnly_Size_36px:=AValue;
  59442. MarkPropertyChanged(AIndex);
  59443. end;
  59444. Procedure TSP_DataUserInfoItem.SetPictureOnly_Size_48px(AIndex: Integer; const AValue: string);
  59445. begin
  59446. If (FPictureOnly_Size_48px=AValue) then exit;
  59447. FPictureOnly_Size_48px:=AValue;
  59448. MarkPropertyChanged(AIndex);
  59449. end;
  59450. Procedure TSP_DataUserInfoItem.SetPictureOnly_Size_72px(AIndex: Integer; const AValue: string);
  59451. begin
  59452. If (FPictureOnly_Size_72px=AValue) then exit;
  59453. FPictureOnly_Size_72px:=AValue;
  59454. MarkPropertyChanged(AIndex);
  59455. end;
  59456. Procedure TSP_DataUserInfoItem.SetNameWithPicture(AIndex: Integer; const AValue: string);
  59457. begin
  59458. If (FNameWithPicture=AValue) then exit;
  59459. FNameWithPicture:=AValue;
  59460. MarkPropertyChanged(AIndex);
  59461. end;
  59462. Procedure TSP_DataUserInfoItem.SetNameWithPictureAndDetails(AIndex: Integer; const AValue: string);
  59463. begin
  59464. If (FNameWithPictureAndDetails=AValue) then exit;
  59465. FNameWithPictureAndDetails:=AValue;
  59466. MarkPropertyChanged(AIndex);
  59467. end;
  59468. Procedure TSP_DataUserInfoItem.SetEditUser(AIndex: Integer; const AValue: string);
  59469. begin
  59470. If (FEditUser=AValue) then exit;
  59471. FEditUser:=AValue;
  59472. MarkPropertyChanged(AIndex);
  59473. end;
  59474. Procedure TSP_DataUserInfoItem.SetUserSelection(AIndex: Integer; const AValue: string);
  59475. begin
  59476. If (FUserSelection=AValue) then exit;
  59477. FUserSelection:=AValue;
  59478. MarkPropertyChanged(AIndex);
  59479. end;
  59480. Procedure TSP_DataUserInfoItem.SetContentTypeDisp(AIndex: Integer; const AValue: string);
  59481. begin
  59482. If (FContentTypeDisp=AValue) then exit;
  59483. FContentTypeDisp:=AValue;
  59484. MarkPropertyChanged(AIndex);
  59485. end;
  59486. Function TSP_DataUserInfoItem.Author(AService: TODataService) : TSP_DataUserInfoItem;
  59487. begin
  59488. Result:=TSP_DataUserInfoItem(GetContainedSingleTon(AService,'Author', TSP_DataUserInfoItem));
  59489. end;
  59490. Function TSP_DataUserInfoItem.Editor(AService: TODataService) : TSP_DataUserInfoItem;
  59491. begin
  59492. Result:=TSP_DataUserInfoItem(GetContainedSingleTon(AService,'Editor', TSP_DataUserInfoItem));
  59493. end;
  59494. { --------------------------------------------------------------------
  59495. TSP_DataOData__x005f_catalogs_x002f_designItem
  59496. --------------------------------------------------------------------}
  59497. Class Function TSP_DataOData__x005f_catalogs_x002f_designItem.ObjectRestKind : String;
  59498. begin
  59499. Result:='OData__x005f_catalogs_x002f_designItem';
  59500. end;
  59501. Procedure TSP_DataOData__x005f_catalogs_x002f_designItem.SetContentTypeId(AIndex: Integer; const AValue: string);
  59502. begin
  59503. If (FContentTypeId=AValue) then exit;
  59504. FContentTypeId:=AValue;
  59505. MarkPropertyChanged(AIndex);
  59506. end;
  59507. Procedure TSP_DataOData__x005f_catalogs_x002f_designItem.SetTitle(AIndex: Integer; const AValue: string);
  59508. begin
  59509. If (FTitle=AValue) then exit;
  59510. FTitle:=AValue;
  59511. MarkPropertyChanged(AIndex);
  59512. end;
  59513. Procedure TSP_DataOData__x005f_catalogs_x002f_designItem.SetModified(AIndex: Integer; const AValue: TDateTime);
  59514. begin
  59515. If (FModified=AValue) then exit;
  59516. FModified:=AValue;
  59517. MarkPropertyChanged(AIndex);
  59518. end;
  59519. Procedure TSP_DataOData__x005f_catalogs_x002f_designItem.SetCreated(AIndex: Integer; const AValue: TDateTime);
  59520. begin
  59521. If (FCreated=AValue) then exit;
  59522. FCreated:=AValue;
  59523. MarkPropertyChanged(AIndex);
  59524. end;
  59525. Procedure TSP_DataOData__x005f_catalogs_x002f_designItem.SetAuthorId(AIndex: Integer; const AValue: TInt32);
  59526. begin
  59527. If (FAuthorId=AValue) then exit;
  59528. FAuthorId:=AValue;
  59529. MarkPropertyChanged(AIndex);
  59530. end;
  59531. Procedure TSP_DataOData__x005f_catalogs_x002f_designItem.SetEditorId(AIndex: Integer; const AValue: TInt32);
  59532. begin
  59533. If (FEditorId=AValue) then exit;
  59534. FEditorId:=AValue;
  59535. MarkPropertyChanged(AIndex);
  59536. end;
  59537. Procedure TSP_DataOData__x005f_catalogs_x002f_designItem.SetOData__HasCopyDestinations(AIndex: Integer; const AValue: boolean);
  59538. begin
  59539. If (FOData__HasCopyDestinations=AValue) then exit;
  59540. FOData__HasCopyDestinations:=AValue;
  59541. MarkPropertyChanged(AIndex);
  59542. end;
  59543. Procedure TSP_DataOData__x005f_catalogs_x002f_designItem.SetOData__CopySource(AIndex: Integer; const AValue: string);
  59544. begin
  59545. If (FOData__CopySource=AValue) then exit;
  59546. FOData__CopySource:=AValue;
  59547. MarkPropertyChanged(AIndex);
  59548. end;
  59549. Procedure TSP_DataOData__x005f_catalogs_x002f_designItem.Setowshiddenversion(AIndex: Integer; const AValue: TInt32);
  59550. begin
  59551. If (Fowshiddenversion=AValue) then exit;
  59552. Fowshiddenversion:=AValue;
  59553. MarkPropertyChanged(AIndex);
  59554. end;
  59555. Procedure TSP_DataOData__x005f_catalogs_x002f_designItem.SetWorkflowVersion(AIndex: Integer; const AValue: TInt32);
  59556. begin
  59557. If (FWorkflowVersion=AValue) then exit;
  59558. FWorkflowVersion:=AValue;
  59559. MarkPropertyChanged(AIndex);
  59560. end;
  59561. Procedure TSP_DataOData__x005f_catalogs_x002f_designItem.SetOData__UIVersion(AIndex: Integer; const AValue: TInt32);
  59562. begin
  59563. If (FOData__UIVersion=AValue) then exit;
  59564. FOData__UIVersion:=AValue;
  59565. MarkPropertyChanged(AIndex);
  59566. end;
  59567. Procedure TSP_DataOData__x005f_catalogs_x002f_designItem.SetOData__UIVersionString(AIndex: Integer; const AValue: string);
  59568. begin
  59569. If (FOData__UIVersionString=AValue) then exit;
  59570. FOData__UIVersionString:=AValue;
  59571. MarkPropertyChanged(AIndex);
  59572. end;
  59573. Procedure TSP_DataOData__x005f_catalogs_x002f_designItem.SetAttachments(AIndex: Integer; const AValue: boolean);
  59574. begin
  59575. If (FAttachments=AValue) then exit;
  59576. FAttachments:=AValue;
  59577. MarkPropertyChanged(AIndex);
  59578. end;
  59579. Procedure TSP_DataOData__x005f_catalogs_x002f_designItem.SetOData__ModerationStatus(AIndex: Integer; const AValue: TInt32);
  59580. begin
  59581. If (FOData__ModerationStatus=AValue) then exit;
  59582. FOData__ModerationStatus:=AValue;
  59583. MarkPropertyChanged(AIndex);
  59584. end;
  59585. Procedure TSP_DataOData__x005f_catalogs_x002f_designItem.SetOData__ModerationComments(AIndex: Integer; const AValue: string);
  59586. begin
  59587. If (FOData__ModerationComments=AValue) then exit;
  59588. FOData__ModerationComments:=AValue;
  59589. MarkPropertyChanged(AIndex);
  59590. end;
  59591. Procedure TSP_DataOData__x005f_catalogs_x002f_designItem.SetEdit(AIndex: Integer; const AValue: string);
  59592. begin
  59593. If (FEdit=AValue) then exit;
  59594. FEdit:=AValue;
  59595. MarkPropertyChanged(AIndex);
  59596. end;
  59597. Procedure TSP_DataOData__x005f_catalogs_x002f_designItem.SetLinkTitleNoMenu(AIndex: Integer; const AValue: string);
  59598. begin
  59599. If (FLinkTitleNoMenu=AValue) then exit;
  59600. FLinkTitleNoMenu:=AValue;
  59601. MarkPropertyChanged(AIndex);
  59602. end;
  59603. Procedure TSP_DataOData__x005f_catalogs_x002f_designItem.SetLinkTitle(AIndex: Integer; const AValue: string);
  59604. begin
  59605. If (FLinkTitle=AValue) then exit;
  59606. FLinkTitle:=AValue;
  59607. MarkPropertyChanged(AIndex);
  59608. end;
  59609. Procedure TSP_DataOData__x005f_catalogs_x002f_designItem.SetLinkTitle2(AIndex: Integer; const AValue: string);
  59610. begin
  59611. If (FLinkTitle2=AValue) then exit;
  59612. FLinkTitle2:=AValue;
  59613. MarkPropertyChanged(AIndex);
  59614. end;
  59615. Procedure TSP_DataOData__x005f_catalogs_x002f_designItem.SetSelectTitle(AIndex: Integer; const AValue: string);
  59616. begin
  59617. If (FSelectTitle=AValue) then exit;
  59618. FSelectTitle:=AValue;
  59619. MarkPropertyChanged(AIndex);
  59620. end;
  59621. Procedure TSP_DataOData__x005f_catalogs_x002f_designItem.SetInstanceID(AIndex: Integer; const AValue: TInt32);
  59622. begin
  59623. If (FInstanceID=AValue) then exit;
  59624. FInstanceID:=AValue;
  59625. MarkPropertyChanged(AIndex);
  59626. end;
  59627. Procedure TSP_DataOData__x005f_catalogs_x002f_designItem.SetOrder(AIndex: Integer; const AValue: Double);
  59628. begin
  59629. If (FOrder=AValue) then exit;
  59630. FOrder:=AValue;
  59631. MarkPropertyChanged(AIndex);
  59632. end;
  59633. Procedure TSP_DataOData__x005f_catalogs_x002f_designItem.SetGUID(AIndex: Integer; const AValue: TGUIDString);
  59634. begin
  59635. If (FGUID=AValue) then exit;
  59636. FGUID:=AValue;
  59637. MarkPropertyChanged(AIndex);
  59638. end;
  59639. Procedure TSP_DataOData__x005f_catalogs_x002f_designItem.SetWorkflowInstanceID(AIndex: Integer; const AValue: TGUIDString);
  59640. begin
  59641. If (FWorkflowInstanceID=AValue) then exit;
  59642. FWorkflowInstanceID:=AValue;
  59643. MarkPropertyChanged(AIndex);
  59644. end;
  59645. Procedure TSP_DataOData__x005f_catalogs_x002f_designItem.SetFileRef(AIndex: Integer; const AValue: string);
  59646. begin
  59647. If (FFileRef=AValue) then exit;
  59648. FFileRef:=AValue;
  59649. MarkPropertyChanged(AIndex);
  59650. end;
  59651. Procedure TSP_DataOData__x005f_catalogs_x002f_designItem.SetFileDirRef(AIndex: Integer; const AValue: string);
  59652. begin
  59653. If (FFileDirRef=AValue) then exit;
  59654. FFileDirRef:=AValue;
  59655. MarkPropertyChanged(AIndex);
  59656. end;
  59657. Procedure TSP_DataOData__x005f_catalogs_x002f_designItem.SetLast_x0020_Modified(AIndex: Integer; const AValue: TDateTime);
  59658. begin
  59659. If (FLast_x0020_Modified=AValue) then exit;
  59660. FLast_x0020_Modified:=AValue;
  59661. MarkPropertyChanged(AIndex);
  59662. end;
  59663. Procedure TSP_DataOData__x005f_catalogs_x002f_designItem.SetCreated_x0020_Date(AIndex: Integer; const AValue: TDateTime);
  59664. begin
  59665. If (FCreated_x0020_Date=AValue) then exit;
  59666. FCreated_x0020_Date:=AValue;
  59667. MarkPropertyChanged(AIndex);
  59668. end;
  59669. Procedure TSP_DataOData__x005f_catalogs_x002f_designItem.SetFSObjType(AIndex: Integer; const AValue: TInt32);
  59670. begin
  59671. If (FFSObjType=AValue) then exit;
  59672. FFSObjType:=AValue;
  59673. MarkPropertyChanged(AIndex);
  59674. end;
  59675. Procedure TSP_DataOData__x005f_catalogs_x002f_designItem.SetPermMask(AIndex: Integer; const AValue: string);
  59676. begin
  59677. If (FPermMask=AValue) then exit;
  59678. FPermMask:=AValue;
  59679. MarkPropertyChanged(AIndex);
  59680. end;
  59681. Procedure TSP_DataOData__x005f_catalogs_x002f_designItem.SetFileLeafRef(AIndex: Integer; const AValue: string);
  59682. begin
  59683. If (FFileLeafRef=AValue) then exit;
  59684. FFileLeafRef:=AValue;
  59685. MarkPropertyChanged(AIndex);
  59686. end;
  59687. Procedure TSP_DataOData__x005f_catalogs_x002f_designItem.SetUniqueId(AIndex: Integer; const AValue: TGUIDString);
  59688. begin
  59689. If (FUniqueId=AValue) then exit;
  59690. FUniqueId:=AValue;
  59691. MarkPropertyChanged(AIndex);
  59692. end;
  59693. Procedure TSP_DataOData__x005f_catalogs_x002f_designItem.SetFile_x0020_Type(AIndex: Integer; const AValue: string);
  59694. begin
  59695. If (FFile_x0020_Type=AValue) then exit;
  59696. FFile_x0020_Type:=AValue;
  59697. MarkPropertyChanged(AIndex);
  59698. end;
  59699. Procedure TSP_DataOData__x005f_catalogs_x002f_designItem.SetHTML_x0020_File_x0020_Type(AIndex: Integer; const AValue: string);
  59700. begin
  59701. If (FHTML_x0020_File_x0020_Type=AValue) then exit;
  59702. FHTML_x0020_File_x0020_Type:=AValue;
  59703. MarkPropertyChanged(AIndex);
  59704. end;
  59705. Procedure TSP_DataOData__x005f_catalogs_x002f_designItem.SetOData__EditMenuTableStart(AIndex: Integer; const AValue: string);
  59706. begin
  59707. If (FOData__EditMenuTableStart=AValue) then exit;
  59708. FOData__EditMenuTableStart:=AValue;
  59709. MarkPropertyChanged(AIndex);
  59710. end;
  59711. Procedure TSP_DataOData__x005f_catalogs_x002f_designItem.SetOData__EditMenuTableStart2(AIndex: Integer; const AValue: string);
  59712. begin
  59713. If (FOData__EditMenuTableStart2=AValue) then exit;
  59714. FOData__EditMenuTableStart2:=AValue;
  59715. MarkPropertyChanged(AIndex);
  59716. end;
  59717. Procedure TSP_DataOData__x005f_catalogs_x002f_designItem.SetOData__EditMenuTableEnd(AIndex: Integer; const AValue: string);
  59718. begin
  59719. If (FOData__EditMenuTableEnd=AValue) then exit;
  59720. FOData__EditMenuTableEnd:=AValue;
  59721. MarkPropertyChanged(AIndex);
  59722. end;
  59723. Procedure TSP_DataOData__x005f_catalogs_x002f_designItem.SetLinkFilenameNoMenu(AIndex: Integer; const AValue: string);
  59724. begin
  59725. If (FLinkFilenameNoMenu=AValue) then exit;
  59726. FLinkFilenameNoMenu:=AValue;
  59727. MarkPropertyChanged(AIndex);
  59728. end;
  59729. Procedure TSP_DataOData__x005f_catalogs_x002f_designItem.SetLinkFilename(AIndex: Integer; const AValue: string);
  59730. begin
  59731. If (FLinkFilename=AValue) then exit;
  59732. FLinkFilename:=AValue;
  59733. MarkPropertyChanged(AIndex);
  59734. end;
  59735. Procedure TSP_DataOData__x005f_catalogs_x002f_designItem.SetLinkFilename2(AIndex: Integer; const AValue: string);
  59736. begin
  59737. If (FLinkFilename2=AValue) then exit;
  59738. FLinkFilename2:=AValue;
  59739. MarkPropertyChanged(AIndex);
  59740. end;
  59741. Procedure TSP_DataOData__x005f_catalogs_x002f_designItem.SetDocIcon(AIndex: Integer; const AValue: string);
  59742. begin
  59743. If (FDocIcon=AValue) then exit;
  59744. FDocIcon:=AValue;
  59745. MarkPropertyChanged(AIndex);
  59746. end;
  59747. Procedure TSP_DataOData__x005f_catalogs_x002f_designItem.SetServerUrl(AIndex: Integer; const AValue: string);
  59748. begin
  59749. If (FServerUrl=AValue) then exit;
  59750. FServerUrl:=AValue;
  59751. MarkPropertyChanged(AIndex);
  59752. end;
  59753. Procedure TSP_DataOData__x005f_catalogs_x002f_designItem.SetEncodedAbsUrl(AIndex: Integer; const AValue: string);
  59754. begin
  59755. If (FEncodedAbsUrl=AValue) then exit;
  59756. FEncodedAbsUrl:=AValue;
  59757. MarkPropertyChanged(AIndex);
  59758. end;
  59759. Procedure TSP_DataOData__x005f_catalogs_x002f_designItem.SetBaseName(AIndex: Integer; const AValue: string);
  59760. begin
  59761. If (FBaseName=AValue) then exit;
  59762. FBaseName:=AValue;
  59763. MarkPropertyChanged(AIndex);
  59764. end;
  59765. Procedure TSP_DataOData__x005f_catalogs_x002f_designItem.SetOData__Level(AIndex: Integer; const AValue: TInt32);
  59766. begin
  59767. If (FOData__Level=AValue) then exit;
  59768. FOData__Level:=AValue;
  59769. MarkPropertyChanged(AIndex);
  59770. end;
  59771. Procedure TSP_DataOData__x005f_catalogs_x002f_designItem.SetOData__IsCurrentVersion(AIndex: Integer; const AValue: boolean);
  59772. begin
  59773. If (FOData__IsCurrentVersion=AValue) then exit;
  59774. FOData__IsCurrentVersion:=AValue;
  59775. MarkPropertyChanged(AIndex);
  59776. end;
  59777. Procedure TSP_DataOData__x005f_catalogs_x002f_designItem.SetAppAuthorId(AIndex: Integer; const AValue: TInt32);
  59778. begin
  59779. If (FAppAuthorId=AValue) then exit;
  59780. FAppAuthorId:=AValue;
  59781. MarkPropertyChanged(AIndex);
  59782. end;
  59783. Procedure TSP_DataOData__x005f_catalogs_x002f_designItem.SetAppEditorId(AIndex: Integer; const AValue: TInt32);
  59784. begin
  59785. If (FAppEditorId=AValue) then exit;
  59786. FAppEditorId:=AValue;
  59787. MarkPropertyChanged(AIndex);
  59788. end;
  59789. Procedure TSP_DataOData__x005f_catalogs_x002f_designItem.SetName(AIndex: Integer; const AValue: string);
  59790. begin
  59791. If (FName=AValue) then exit;
  59792. FName:=AValue;
  59793. MarkPropertyChanged(AIndex);
  59794. end;
  59795. Procedure TSP_DataOData__x005f_catalogs_x002f_designItem.SetMasterPageUrl(AIndex: Integer; const AValue: TSPFieldUrlValue);
  59796. begin
  59797. If (FMasterPageUrl=AValue) then exit;
  59798. FMasterPageUrl:=AValue;
  59799. MarkPropertyChanged(AIndex);
  59800. end;
  59801. Procedure TSP_DataOData__x005f_catalogs_x002f_designItem.SetThemeUrl(AIndex: Integer; const AValue: TSPFieldUrlValue);
  59802. begin
  59803. If (FThemeUrl=AValue) then exit;
  59804. FThemeUrl:=AValue;
  59805. MarkPropertyChanged(AIndex);
  59806. end;
  59807. Procedure TSP_DataOData__x005f_catalogs_x002f_designItem.SetImageUrl(AIndex: Integer; const AValue: TSPFieldUrlValue);
  59808. begin
  59809. If (FImageUrl=AValue) then exit;
  59810. FImageUrl:=AValue;
  59811. MarkPropertyChanged(AIndex);
  59812. end;
  59813. Procedure TSP_DataOData__x005f_catalogs_x002f_designItem.SetFontSchemeUrl(AIndex: Integer; const AValue: TSPFieldUrlValue);
  59814. begin
  59815. If (FFontSchemeUrl=AValue) then exit;
  59816. FFontSchemeUrl:=AValue;
  59817. MarkPropertyChanged(AIndex);
  59818. end;
  59819. Procedure TSP_DataOData__x005f_catalogs_x002f_designItem.SetDisplayOrder(AIndex: Integer; const AValue: Double);
  59820. begin
  59821. If (FDisplayOrder=AValue) then exit;
  59822. FDisplayOrder:=AValue;
  59823. MarkPropertyChanged(AIndex);
  59824. end;
  59825. Function TSP_DataOData__x005f_catalogs_x002f_designItem.Author(AService: TODataService) : TSP_DataUserInfoItem;
  59826. begin
  59827. Result:=TSP_DataUserInfoItem(GetContainedSingleTon(AService,'Author', TSP_DataUserInfoItem));
  59828. end;
  59829. Function TSP_DataOData__x005f_catalogs_x002f_designItem.Editor(AService: TODataService) : TSP_DataUserInfoItem;
  59830. begin
  59831. Result:=TSP_DataUserInfoItem(GetContainedSingleTon(AService,'Editor', TSP_DataUserInfoItem));
  59832. end;
  59833. { --------------------------------------------------------------------
  59834. TSP_DataContentTypeSyncLogListItem
  59835. --------------------------------------------------------------------}
  59836. Class Function TSP_DataContentTypeSyncLogListItem.ObjectRestKind : String;
  59837. begin
  59838. Result:='ContentTypeSyncLogListItem';
  59839. end;
  59840. Procedure TSP_DataContentTypeSyncLogListItem.SetContentTypeId(AIndex: Integer; const AValue: string);
  59841. begin
  59842. If (FContentTypeId=AValue) then exit;
  59843. FContentTypeId:=AValue;
  59844. MarkPropertyChanged(AIndex);
  59845. end;
  59846. Procedure TSP_DataContentTypeSyncLogListItem.SetTitle(AIndex: Integer; const AValue: string);
  59847. begin
  59848. If (FTitle=AValue) then exit;
  59849. FTitle:=AValue;
  59850. MarkPropertyChanged(AIndex);
  59851. end;
  59852. Procedure TSP_DataContentTypeSyncLogListItem.SetOData__ModerationComments(AIndex: Integer; const AValue: string);
  59853. begin
  59854. If (FOData__ModerationComments=AValue) then exit;
  59855. FOData__ModerationComments:=AValue;
  59856. MarkPropertyChanged(AIndex);
  59857. end;
  59858. Procedure TSP_DataContentTypeSyncLogListItem.SetFile_x0020_Type(AIndex: Integer; const AValue: string);
  59859. begin
  59860. If (FFile_x0020_Type=AValue) then exit;
  59861. FFile_x0020_Type:=AValue;
  59862. MarkPropertyChanged(AIndex);
  59863. end;
  59864. Procedure TSP_DataContentTypeSyncLogListItem.SetPublishedObjectName(AIndex: Integer; const AValue: string);
  59865. begin
  59866. If (FPublishedObjectName=AValue) then exit;
  59867. FPublishedObjectName:=AValue;
  59868. MarkPropertyChanged(AIndex);
  59869. end;
  59870. Procedure TSP_DataContentTypeSyncLogListItem.SetFailure_x0020_Stage(AIndex: Integer; const AValue: string);
  59871. begin
  59872. If (FFailure_x0020_Stage=AValue) then exit;
  59873. FFailure_x0020_Stage:=AValue;
  59874. MarkPropertyChanged(AIndex);
  59875. end;
  59876. Procedure TSP_DataContentTypeSyncLogListItem.SetFailure_x0020_Message(AIndex: Integer; const AValue: string);
  59877. begin
  59878. If (FFailure_x0020_Message=AValue) then exit;
  59879. FFailure_x0020_Message:=AValue;
  59880. MarkPropertyChanged(AIndex);
  59881. end;
  59882. Procedure TSP_DataContentTypeSyncLogListItem.SetFailure_x0020_Time(AIndex: Integer; const AValue: TDateTime);
  59883. begin
  59884. If (FFailure_x0020_Time=AValue) then exit;
  59885. FFailure_x0020_Time:=AValue;
  59886. MarkPropertyChanged(AIndex);
  59887. end;
  59888. Procedure TSP_DataContentTypeSyncLogListItem.SetModified(AIndex: Integer; const AValue: TDateTime);
  59889. begin
  59890. If (FModified=AValue) then exit;
  59891. FModified:=AValue;
  59892. MarkPropertyChanged(AIndex);
  59893. end;
  59894. Procedure TSP_DataContentTypeSyncLogListItem.SetCreated(AIndex: Integer; const AValue: TDateTime);
  59895. begin
  59896. If (FCreated=AValue) then exit;
  59897. FCreated:=AValue;
  59898. MarkPropertyChanged(AIndex);
  59899. end;
  59900. Procedure TSP_DataContentTypeSyncLogListItem.SetAuthorId(AIndex: Integer; const AValue: TInt32);
  59901. begin
  59902. If (FAuthorId=AValue) then exit;
  59903. FAuthorId:=AValue;
  59904. MarkPropertyChanged(AIndex);
  59905. end;
  59906. Procedure TSP_DataContentTypeSyncLogListItem.SetEditorId(AIndex: Integer; const AValue: TInt32);
  59907. begin
  59908. If (FEditorId=AValue) then exit;
  59909. FEditorId:=AValue;
  59910. MarkPropertyChanged(AIndex);
  59911. end;
  59912. Procedure TSP_DataContentTypeSyncLogListItem.SetOData__HasCopyDestinations(AIndex: Integer; const AValue: boolean);
  59913. begin
  59914. If (FOData__HasCopyDestinations=AValue) then exit;
  59915. FOData__HasCopyDestinations:=AValue;
  59916. MarkPropertyChanged(AIndex);
  59917. end;
  59918. Procedure TSP_DataContentTypeSyncLogListItem.SetOData__CopySource(AIndex: Integer; const AValue: string);
  59919. begin
  59920. If (FOData__CopySource=AValue) then exit;
  59921. FOData__CopySource:=AValue;
  59922. MarkPropertyChanged(AIndex);
  59923. end;
  59924. Procedure TSP_DataContentTypeSyncLogListItem.Setowshiddenversion(AIndex: Integer; const AValue: TInt32);
  59925. begin
  59926. If (Fowshiddenversion=AValue) then exit;
  59927. Fowshiddenversion:=AValue;
  59928. MarkPropertyChanged(AIndex);
  59929. end;
  59930. Procedure TSP_DataContentTypeSyncLogListItem.SetWorkflowVersion(AIndex: Integer; const AValue: TInt32);
  59931. begin
  59932. If (FWorkflowVersion=AValue) then exit;
  59933. FWorkflowVersion:=AValue;
  59934. MarkPropertyChanged(AIndex);
  59935. end;
  59936. Procedure TSP_DataContentTypeSyncLogListItem.SetOData__UIVersion(AIndex: Integer; const AValue: TInt32);
  59937. begin
  59938. If (FOData__UIVersion=AValue) then exit;
  59939. FOData__UIVersion:=AValue;
  59940. MarkPropertyChanged(AIndex);
  59941. end;
  59942. Procedure TSP_DataContentTypeSyncLogListItem.SetOData__UIVersionString(AIndex: Integer; const AValue: string);
  59943. begin
  59944. If (FOData__UIVersionString=AValue) then exit;
  59945. FOData__UIVersionString:=AValue;
  59946. MarkPropertyChanged(AIndex);
  59947. end;
  59948. Procedure TSP_DataContentTypeSyncLogListItem.SetAttachments(AIndex: Integer; const AValue: boolean);
  59949. begin
  59950. If (FAttachments=AValue) then exit;
  59951. FAttachments:=AValue;
  59952. MarkPropertyChanged(AIndex);
  59953. end;
  59954. Procedure TSP_DataContentTypeSyncLogListItem.SetOData__ModerationStatus(AIndex: Integer; const AValue: TInt32);
  59955. begin
  59956. If (FOData__ModerationStatus=AValue) then exit;
  59957. FOData__ModerationStatus:=AValue;
  59958. MarkPropertyChanged(AIndex);
  59959. end;
  59960. Procedure TSP_DataContentTypeSyncLogListItem.SetEdit(AIndex: Integer; const AValue: string);
  59961. begin
  59962. If (FEdit=AValue) then exit;
  59963. FEdit:=AValue;
  59964. MarkPropertyChanged(AIndex);
  59965. end;
  59966. Procedure TSP_DataContentTypeSyncLogListItem.SetLinkTitleNoMenu(AIndex: Integer; const AValue: string);
  59967. begin
  59968. If (FLinkTitleNoMenu=AValue) then exit;
  59969. FLinkTitleNoMenu:=AValue;
  59970. MarkPropertyChanged(AIndex);
  59971. end;
  59972. Procedure TSP_DataContentTypeSyncLogListItem.SetLinkTitle(AIndex: Integer; const AValue: string);
  59973. begin
  59974. If (FLinkTitle=AValue) then exit;
  59975. FLinkTitle:=AValue;
  59976. MarkPropertyChanged(AIndex);
  59977. end;
  59978. Procedure TSP_DataContentTypeSyncLogListItem.SetLinkTitle2(AIndex: Integer; const AValue: string);
  59979. begin
  59980. If (FLinkTitle2=AValue) then exit;
  59981. FLinkTitle2:=AValue;
  59982. MarkPropertyChanged(AIndex);
  59983. end;
  59984. Procedure TSP_DataContentTypeSyncLogListItem.SetSelectTitle(AIndex: Integer; const AValue: string);
  59985. begin
  59986. If (FSelectTitle=AValue) then exit;
  59987. FSelectTitle:=AValue;
  59988. MarkPropertyChanged(AIndex);
  59989. end;
  59990. Procedure TSP_DataContentTypeSyncLogListItem.SetInstanceID(AIndex: Integer; const AValue: TInt32);
  59991. begin
  59992. If (FInstanceID=AValue) then exit;
  59993. FInstanceID:=AValue;
  59994. MarkPropertyChanged(AIndex);
  59995. end;
  59996. Procedure TSP_DataContentTypeSyncLogListItem.SetOrder(AIndex: Integer; const AValue: Double);
  59997. begin
  59998. If (FOrder=AValue) then exit;
  59999. FOrder:=AValue;
  60000. MarkPropertyChanged(AIndex);
  60001. end;
  60002. Procedure TSP_DataContentTypeSyncLogListItem.SetGUID(AIndex: Integer; const AValue: TGUIDString);
  60003. begin
  60004. If (FGUID=AValue) then exit;
  60005. FGUID:=AValue;
  60006. MarkPropertyChanged(AIndex);
  60007. end;
  60008. Procedure TSP_DataContentTypeSyncLogListItem.SetWorkflowInstanceID(AIndex: Integer; const AValue: TGUIDString);
  60009. begin
  60010. If (FWorkflowInstanceID=AValue) then exit;
  60011. FWorkflowInstanceID:=AValue;
  60012. MarkPropertyChanged(AIndex);
  60013. end;
  60014. Procedure TSP_DataContentTypeSyncLogListItem.SetFileRef(AIndex: Integer; const AValue: string);
  60015. begin
  60016. If (FFileRef=AValue) then exit;
  60017. FFileRef:=AValue;
  60018. MarkPropertyChanged(AIndex);
  60019. end;
  60020. Procedure TSP_DataContentTypeSyncLogListItem.SetFileDirRef(AIndex: Integer; const AValue: string);
  60021. begin
  60022. If (FFileDirRef=AValue) then exit;
  60023. FFileDirRef:=AValue;
  60024. MarkPropertyChanged(AIndex);
  60025. end;
  60026. Procedure TSP_DataContentTypeSyncLogListItem.SetLast_x0020_Modified(AIndex: Integer; const AValue: TDateTime);
  60027. begin
  60028. If (FLast_x0020_Modified=AValue) then exit;
  60029. FLast_x0020_Modified:=AValue;
  60030. MarkPropertyChanged(AIndex);
  60031. end;
  60032. Procedure TSP_DataContentTypeSyncLogListItem.SetCreated_x0020_Date(AIndex: Integer; const AValue: TDateTime);
  60033. begin
  60034. If (FCreated_x0020_Date=AValue) then exit;
  60035. FCreated_x0020_Date:=AValue;
  60036. MarkPropertyChanged(AIndex);
  60037. end;
  60038. Procedure TSP_DataContentTypeSyncLogListItem.SetFSObjType(AIndex: Integer; const AValue: TInt32);
  60039. begin
  60040. If (FFSObjType=AValue) then exit;
  60041. FFSObjType:=AValue;
  60042. MarkPropertyChanged(AIndex);
  60043. end;
  60044. Procedure TSP_DataContentTypeSyncLogListItem.SetPermMask(AIndex: Integer; const AValue: string);
  60045. begin
  60046. If (FPermMask=AValue) then exit;
  60047. FPermMask:=AValue;
  60048. MarkPropertyChanged(AIndex);
  60049. end;
  60050. Procedure TSP_DataContentTypeSyncLogListItem.SetFileLeafRef(AIndex: Integer; const AValue: string);
  60051. begin
  60052. If (FFileLeafRef=AValue) then exit;
  60053. FFileLeafRef:=AValue;
  60054. MarkPropertyChanged(AIndex);
  60055. end;
  60056. Procedure TSP_DataContentTypeSyncLogListItem.SetUniqueId(AIndex: Integer; const AValue: TGUIDString);
  60057. begin
  60058. If (FUniqueId=AValue) then exit;
  60059. FUniqueId:=AValue;
  60060. MarkPropertyChanged(AIndex);
  60061. end;
  60062. Procedure TSP_DataContentTypeSyncLogListItem.SetHTML_x0020_File_x0020_Type(AIndex: Integer; const AValue: string);
  60063. begin
  60064. If (FHTML_x0020_File_x0020_Type=AValue) then exit;
  60065. FHTML_x0020_File_x0020_Type:=AValue;
  60066. MarkPropertyChanged(AIndex);
  60067. end;
  60068. Procedure TSP_DataContentTypeSyncLogListItem.SetOData__EditMenuTableStart(AIndex: Integer; const AValue: string);
  60069. begin
  60070. If (FOData__EditMenuTableStart=AValue) then exit;
  60071. FOData__EditMenuTableStart:=AValue;
  60072. MarkPropertyChanged(AIndex);
  60073. end;
  60074. Procedure TSP_DataContentTypeSyncLogListItem.SetOData__EditMenuTableStart2(AIndex: Integer; const AValue: string);
  60075. begin
  60076. If (FOData__EditMenuTableStart2=AValue) then exit;
  60077. FOData__EditMenuTableStart2:=AValue;
  60078. MarkPropertyChanged(AIndex);
  60079. end;
  60080. Procedure TSP_DataContentTypeSyncLogListItem.SetOData__EditMenuTableEnd(AIndex: Integer; const AValue: string);
  60081. begin
  60082. If (FOData__EditMenuTableEnd=AValue) then exit;
  60083. FOData__EditMenuTableEnd:=AValue;
  60084. MarkPropertyChanged(AIndex);
  60085. end;
  60086. Procedure TSP_DataContentTypeSyncLogListItem.SetLinkFilenameNoMenu(AIndex: Integer; const AValue: string);
  60087. begin
  60088. If (FLinkFilenameNoMenu=AValue) then exit;
  60089. FLinkFilenameNoMenu:=AValue;
  60090. MarkPropertyChanged(AIndex);
  60091. end;
  60092. Procedure TSP_DataContentTypeSyncLogListItem.SetLinkFilename(AIndex: Integer; const AValue: string);
  60093. begin
  60094. If (FLinkFilename=AValue) then exit;
  60095. FLinkFilename:=AValue;
  60096. MarkPropertyChanged(AIndex);
  60097. end;
  60098. Procedure TSP_DataContentTypeSyncLogListItem.SetLinkFilename2(AIndex: Integer; const AValue: string);
  60099. begin
  60100. If (FLinkFilename2=AValue) then exit;
  60101. FLinkFilename2:=AValue;
  60102. MarkPropertyChanged(AIndex);
  60103. end;
  60104. Procedure TSP_DataContentTypeSyncLogListItem.SetDocIcon(AIndex: Integer; const AValue: string);
  60105. begin
  60106. If (FDocIcon=AValue) then exit;
  60107. FDocIcon:=AValue;
  60108. MarkPropertyChanged(AIndex);
  60109. end;
  60110. Procedure TSP_DataContentTypeSyncLogListItem.SetServerUrl(AIndex: Integer; const AValue: string);
  60111. begin
  60112. If (FServerUrl=AValue) then exit;
  60113. FServerUrl:=AValue;
  60114. MarkPropertyChanged(AIndex);
  60115. end;
  60116. Procedure TSP_DataContentTypeSyncLogListItem.SetEncodedAbsUrl(AIndex: Integer; const AValue: string);
  60117. begin
  60118. If (FEncodedAbsUrl=AValue) then exit;
  60119. FEncodedAbsUrl:=AValue;
  60120. MarkPropertyChanged(AIndex);
  60121. end;
  60122. Procedure TSP_DataContentTypeSyncLogListItem.SetBaseName(AIndex: Integer; const AValue: string);
  60123. begin
  60124. If (FBaseName=AValue) then exit;
  60125. FBaseName:=AValue;
  60126. MarkPropertyChanged(AIndex);
  60127. end;
  60128. Procedure TSP_DataContentTypeSyncLogListItem.SetOData__Level(AIndex: Integer; const AValue: TInt32);
  60129. begin
  60130. If (FOData__Level=AValue) then exit;
  60131. FOData__Level:=AValue;
  60132. MarkPropertyChanged(AIndex);
  60133. end;
  60134. Procedure TSP_DataContentTypeSyncLogListItem.SetOData__IsCurrentVersion(AIndex: Integer; const AValue: boolean);
  60135. begin
  60136. If (FOData__IsCurrentVersion=AValue) then exit;
  60137. FOData__IsCurrentVersion:=AValue;
  60138. MarkPropertyChanged(AIndex);
  60139. end;
  60140. Procedure TSP_DataContentTypeSyncLogListItem.SetAppAuthorId(AIndex: Integer; const AValue: TInt32);
  60141. begin
  60142. If (FAppAuthorId=AValue) then exit;
  60143. FAppAuthorId:=AValue;
  60144. MarkPropertyChanged(AIndex);
  60145. end;
  60146. Procedure TSP_DataContentTypeSyncLogListItem.SetAppEditorId(AIndex: Integer; const AValue: TInt32);
  60147. begin
  60148. If (FAppEditorId=AValue) then exit;
  60149. FAppEditorId:=AValue;
  60150. MarkPropertyChanged(AIndex);
  60151. end;
  60152. Function TSP_DataContentTypeSyncLogListItem.Author(AService: TODataService) : TSP_DataUserInfoItem;
  60153. begin
  60154. Result:=TSP_DataUserInfoItem(GetContainedSingleTon(AService,'Author', TSP_DataUserInfoItem));
  60155. end;
  60156. Function TSP_DataContentTypeSyncLogListItem.Editor(AService: TODataService) : TSP_DataUserInfoItem;
  60157. begin
  60158. Result:=TSP_DataUserInfoItem(GetContainedSingleTon(AService,'Editor', TSP_DataUserInfoItem));
  60159. end;
  60160. { --------------------------------------------------------------------
  60161. TSP_DataIWConvertedFormsItem
  60162. --------------------------------------------------------------------}
  60163. Class Function TSP_DataIWConvertedFormsItem.ObjectRestKind : String;
  60164. begin
  60165. Result:='IWConvertedFormsItem';
  60166. end;
  60167. Procedure TSP_DataIWConvertedFormsItem.SetContentTypeId(AIndex: Integer; const AValue: string);
  60168. begin
  60169. If (FContentTypeId=AValue) then exit;
  60170. FContentTypeId:=AValue;
  60171. MarkPropertyChanged(AIndex);
  60172. end;
  60173. Procedure TSP_DataIWConvertedFormsItem.SetCreated(AIndex: Integer; const AValue: TDateTime);
  60174. begin
  60175. If (FCreated=AValue) then exit;
  60176. FCreated:=AValue;
  60177. MarkPropertyChanged(AIndex);
  60178. end;
  60179. Procedure TSP_DataIWConvertedFormsItem.SetAuthorId(AIndex: Integer; const AValue: TInt32);
  60180. begin
  60181. If (FAuthorId=AValue) then exit;
  60182. FAuthorId:=AValue;
  60183. MarkPropertyChanged(AIndex);
  60184. end;
  60185. Procedure TSP_DataIWConvertedFormsItem.SetModified(AIndex: Integer; const AValue: TDateTime);
  60186. begin
  60187. If (FModified=AValue) then exit;
  60188. FModified:=AValue;
  60189. MarkPropertyChanged(AIndex);
  60190. end;
  60191. Procedure TSP_DataIWConvertedFormsItem.SetEditorId(AIndex: Integer; const AValue: TInt32);
  60192. begin
  60193. If (FEditorId=AValue) then exit;
  60194. FEditorId:=AValue;
  60195. MarkPropertyChanged(AIndex);
  60196. end;
  60197. Procedure TSP_DataIWConvertedFormsItem.SetOData__HasCopyDestinations(AIndex: Integer; const AValue: boolean);
  60198. begin
  60199. If (FOData__HasCopyDestinations=AValue) then exit;
  60200. FOData__HasCopyDestinations:=AValue;
  60201. MarkPropertyChanged(AIndex);
  60202. end;
  60203. Procedure TSP_DataIWConvertedFormsItem.SetOData__CopySource(AIndex: Integer; const AValue: string);
  60204. begin
  60205. If (FOData__CopySource=AValue) then exit;
  60206. FOData__CopySource:=AValue;
  60207. MarkPropertyChanged(AIndex);
  60208. end;
  60209. Procedure TSP_DataIWConvertedFormsItem.SetOData__ModerationStatus(AIndex: Integer; const AValue: TInt32);
  60210. begin
  60211. If (FOData__ModerationStatus=AValue) then exit;
  60212. FOData__ModerationStatus:=AValue;
  60213. MarkPropertyChanged(AIndex);
  60214. end;
  60215. Procedure TSP_DataIWConvertedFormsItem.SetOData__ModerationComments(AIndex: Integer; const AValue: string);
  60216. begin
  60217. If (FOData__ModerationComments=AValue) then exit;
  60218. FOData__ModerationComments:=AValue;
  60219. MarkPropertyChanged(AIndex);
  60220. end;
  60221. Procedure TSP_DataIWConvertedFormsItem.SetFileRef(AIndex: Integer; const AValue: string);
  60222. begin
  60223. If (FFileRef=AValue) then exit;
  60224. FFileRef:=AValue;
  60225. MarkPropertyChanged(AIndex);
  60226. end;
  60227. Procedure TSP_DataIWConvertedFormsItem.SetFileDirRef(AIndex: Integer; const AValue: string);
  60228. begin
  60229. If (FFileDirRef=AValue) then exit;
  60230. FFileDirRef:=AValue;
  60231. MarkPropertyChanged(AIndex);
  60232. end;
  60233. Procedure TSP_DataIWConvertedFormsItem.SetLast_x0020_Modified(AIndex: Integer; const AValue: TDateTime);
  60234. begin
  60235. If (FLast_x0020_Modified=AValue) then exit;
  60236. FLast_x0020_Modified:=AValue;
  60237. MarkPropertyChanged(AIndex);
  60238. end;
  60239. Procedure TSP_DataIWConvertedFormsItem.SetCreated_x0020_Date(AIndex: Integer; const AValue: TDateTime);
  60240. begin
  60241. If (FCreated_x0020_Date=AValue) then exit;
  60242. FCreated_x0020_Date:=AValue;
  60243. MarkPropertyChanged(AIndex);
  60244. end;
  60245. Procedure TSP_DataIWConvertedFormsItem.SetFSObjType(AIndex: Integer; const AValue: TInt32);
  60246. begin
  60247. If (FFSObjType=AValue) then exit;
  60248. FFSObjType:=AValue;
  60249. MarkPropertyChanged(AIndex);
  60250. end;
  60251. Procedure TSP_DataIWConvertedFormsItem.SetPermMask(AIndex: Integer; const AValue: string);
  60252. begin
  60253. If (FPermMask=AValue) then exit;
  60254. FPermMask:=AValue;
  60255. MarkPropertyChanged(AIndex);
  60256. end;
  60257. Procedure TSP_DataIWConvertedFormsItem.SetCheckoutUserId(AIndex: Integer; const AValue: TInt32);
  60258. begin
  60259. If (FCheckoutUserId=AValue) then exit;
  60260. FCheckoutUserId:=AValue;
  60261. MarkPropertyChanged(AIndex);
  60262. end;
  60263. Procedure TSP_DataIWConvertedFormsItem.SetFileLeafRef(AIndex: Integer; const AValue: string);
  60264. begin
  60265. If (FFileLeafRef=AValue) then exit;
  60266. FFileLeafRef:=AValue;
  60267. MarkPropertyChanged(AIndex);
  60268. end;
  60269. Procedure TSP_DataIWConvertedFormsItem.SetUniqueId(AIndex: Integer; const AValue: TGUIDString);
  60270. begin
  60271. If (FUniqueId=AValue) then exit;
  60272. FUniqueId:=AValue;
  60273. MarkPropertyChanged(AIndex);
  60274. end;
  60275. Procedure TSP_DataIWConvertedFormsItem.SetOData__CheckinComment(AIndex: Integer; const AValue: string);
  60276. begin
  60277. If (FOData__CheckinComment=AValue) then exit;
  60278. FOData__CheckinComment:=AValue;
  60279. MarkPropertyChanged(AIndex);
  60280. end;
  60281. Procedure TSP_DataIWConvertedFormsItem.SetLinkCheckedOutTitle(AIndex: Integer; const AValue: string);
  60282. begin
  60283. If (FLinkCheckedOutTitle=AValue) then exit;
  60284. FLinkCheckedOutTitle:=AValue;
  60285. MarkPropertyChanged(AIndex);
  60286. end;
  60287. Procedure TSP_DataIWConvertedFormsItem.SetModified_x0020_By(AIndex: Integer; const AValue: string);
  60288. begin
  60289. If (FModified_x0020_By=AValue) then exit;
  60290. FModified_x0020_By:=AValue;
  60291. MarkPropertyChanged(AIndex);
  60292. end;
  60293. Procedure TSP_DataIWConvertedFormsItem.SetCreated_x0020_By(AIndex: Integer; const AValue: string);
  60294. begin
  60295. If (FCreated_x0020_By=AValue) then exit;
  60296. FCreated_x0020_By:=AValue;
  60297. MarkPropertyChanged(AIndex);
  60298. end;
  60299. Procedure TSP_DataIWConvertedFormsItem.SetFile_x0020_Type(AIndex: Integer; const AValue: string);
  60300. begin
  60301. If (FFile_x0020_Type=AValue) then exit;
  60302. FFile_x0020_Type:=AValue;
  60303. MarkPropertyChanged(AIndex);
  60304. end;
  60305. Procedure TSP_DataIWConvertedFormsItem.SetHTML_x0020_File_x0020_Type(AIndex: Integer; const AValue: string);
  60306. begin
  60307. If (FHTML_x0020_File_x0020_Type=AValue) then exit;
  60308. FHTML_x0020_File_x0020_Type:=AValue;
  60309. MarkPropertyChanged(AIndex);
  60310. end;
  60311. Procedure TSP_DataIWConvertedFormsItem.SetOData__SourceUrl(AIndex: Integer; const AValue: string);
  60312. begin
  60313. If (FOData__SourceUrl=AValue) then exit;
  60314. FOData__SourceUrl:=AValue;
  60315. MarkPropertyChanged(AIndex);
  60316. end;
  60317. Procedure TSP_DataIWConvertedFormsItem.SetOData__SharedFileIndex(AIndex: Integer; const AValue: string);
  60318. begin
  60319. If (FOData__SharedFileIndex=AValue) then exit;
  60320. FOData__SharedFileIndex:=AValue;
  60321. MarkPropertyChanged(AIndex);
  60322. end;
  60323. Procedure TSP_DataIWConvertedFormsItem.SetOData__EditMenuTableStart(AIndex: Integer; const AValue: string);
  60324. begin
  60325. If (FOData__EditMenuTableStart=AValue) then exit;
  60326. FOData__EditMenuTableStart:=AValue;
  60327. MarkPropertyChanged(AIndex);
  60328. end;
  60329. Procedure TSP_DataIWConvertedFormsItem.SetOData__EditMenuTableStart2(AIndex: Integer; const AValue: string);
  60330. begin
  60331. If (FOData__EditMenuTableStart2=AValue) then exit;
  60332. FOData__EditMenuTableStart2:=AValue;
  60333. MarkPropertyChanged(AIndex);
  60334. end;
  60335. Procedure TSP_DataIWConvertedFormsItem.SetOData__EditMenuTableEnd(AIndex: Integer; const AValue: string);
  60336. begin
  60337. If (FOData__EditMenuTableEnd=AValue) then exit;
  60338. FOData__EditMenuTableEnd:=AValue;
  60339. MarkPropertyChanged(AIndex);
  60340. end;
  60341. Procedure TSP_DataIWConvertedFormsItem.SetLinkFilenameNoMenu(AIndex: Integer; const AValue: string);
  60342. begin
  60343. If (FLinkFilenameNoMenu=AValue) then exit;
  60344. FLinkFilenameNoMenu:=AValue;
  60345. MarkPropertyChanged(AIndex);
  60346. end;
  60347. Procedure TSP_DataIWConvertedFormsItem.SetLinkFilename(AIndex: Integer; const AValue: string);
  60348. begin
  60349. If (FLinkFilename=AValue) then exit;
  60350. FLinkFilename:=AValue;
  60351. MarkPropertyChanged(AIndex);
  60352. end;
  60353. Procedure TSP_DataIWConvertedFormsItem.SetLinkFilename2(AIndex: Integer; const AValue: string);
  60354. begin
  60355. If (FLinkFilename2=AValue) then exit;
  60356. FLinkFilename2:=AValue;
  60357. MarkPropertyChanged(AIndex);
  60358. end;
  60359. Procedure TSP_DataIWConvertedFormsItem.SetDocIcon(AIndex: Integer; const AValue: string);
  60360. begin
  60361. If (FDocIcon=AValue) then exit;
  60362. FDocIcon:=AValue;
  60363. MarkPropertyChanged(AIndex);
  60364. end;
  60365. Procedure TSP_DataIWConvertedFormsItem.SetServerUrl(AIndex: Integer; const AValue: string);
  60366. begin
  60367. If (FServerUrl=AValue) then exit;
  60368. FServerUrl:=AValue;
  60369. MarkPropertyChanged(AIndex);
  60370. end;
  60371. Procedure TSP_DataIWConvertedFormsItem.SetEncodedAbsUrl(AIndex: Integer; const AValue: string);
  60372. begin
  60373. If (FEncodedAbsUrl=AValue) then exit;
  60374. FEncodedAbsUrl:=AValue;
  60375. MarkPropertyChanged(AIndex);
  60376. end;
  60377. Procedure TSP_DataIWConvertedFormsItem.SetBaseName(AIndex: Integer; const AValue: string);
  60378. begin
  60379. If (FBaseName=AValue) then exit;
  60380. FBaseName:=AValue;
  60381. MarkPropertyChanged(AIndex);
  60382. end;
  60383. Procedure TSP_DataIWConvertedFormsItem.SetFileSizeDisplay(AIndex: Integer; const AValue: string);
  60384. begin
  60385. If (FFileSizeDisplay=AValue) then exit;
  60386. FFileSizeDisplay:=AValue;
  60387. MarkPropertyChanged(AIndex);
  60388. end;
  60389. Procedure TSP_DataIWConvertedFormsItem.SetOData__Level(AIndex: Integer; const AValue: TInt32);
  60390. begin
  60391. If (FOData__Level=AValue) then exit;
  60392. FOData__Level:=AValue;
  60393. MarkPropertyChanged(AIndex);
  60394. end;
  60395. Procedure TSP_DataIWConvertedFormsItem.SetOData__IsCurrentVersion(AIndex: Integer; const AValue: boolean);
  60396. begin
  60397. If (FOData__IsCurrentVersion=AValue) then exit;
  60398. FOData__IsCurrentVersion:=AValue;
  60399. MarkPropertyChanged(AIndex);
  60400. end;
  60401. Procedure TSP_DataIWConvertedFormsItem.SetAppAuthorId(AIndex: Integer; const AValue: TInt32);
  60402. begin
  60403. If (FAppAuthorId=AValue) then exit;
  60404. FAppAuthorId:=AValue;
  60405. MarkPropertyChanged(AIndex);
  60406. end;
  60407. Procedure TSP_DataIWConvertedFormsItem.SetAppEditorId(AIndex: Integer; const AValue: TInt32);
  60408. begin
  60409. If (FAppEditorId=AValue) then exit;
  60410. FAppEditorId:=AValue;
  60411. MarkPropertyChanged(AIndex);
  60412. end;
  60413. Procedure TSP_DataIWConvertedFormsItem.SetSelectTitle(AIndex: Integer; const AValue: string);
  60414. begin
  60415. If (FSelectTitle=AValue) then exit;
  60416. FSelectTitle:=AValue;
  60417. MarkPropertyChanged(AIndex);
  60418. end;
  60419. Procedure TSP_DataIWConvertedFormsItem.SetSelectFilename(AIndex: Integer; const AValue: string);
  60420. begin
  60421. If (FSelectFilename=AValue) then exit;
  60422. FSelectFilename:=AValue;
  60423. MarkPropertyChanged(AIndex);
  60424. end;
  60425. Procedure TSP_DataIWConvertedFormsItem.SetEdit(AIndex: Integer; const AValue: string);
  60426. begin
  60427. If (FEdit=AValue) then exit;
  60428. FEdit:=AValue;
  60429. MarkPropertyChanged(AIndex);
  60430. end;
  60431. Procedure TSP_DataIWConvertedFormsItem.Setowshiddenversion(AIndex: Integer; const AValue: TInt32);
  60432. begin
  60433. If (Fowshiddenversion=AValue) then exit;
  60434. Fowshiddenversion:=AValue;
  60435. MarkPropertyChanged(AIndex);
  60436. end;
  60437. Procedure TSP_DataIWConvertedFormsItem.SetOData__UIVersion(AIndex: Integer; const AValue: TInt32);
  60438. begin
  60439. If (FOData__UIVersion=AValue) then exit;
  60440. FOData__UIVersion:=AValue;
  60441. MarkPropertyChanged(AIndex);
  60442. end;
  60443. Procedure TSP_DataIWConvertedFormsItem.SetOData__UIVersionString(AIndex: Integer; const AValue: string);
  60444. begin
  60445. If (FOData__UIVersionString=AValue) then exit;
  60446. FOData__UIVersionString:=AValue;
  60447. MarkPropertyChanged(AIndex);
  60448. end;
  60449. Procedure TSP_DataIWConvertedFormsItem.SetInstanceID(AIndex: Integer; const AValue: TInt32);
  60450. begin
  60451. If (FInstanceID=AValue) then exit;
  60452. FInstanceID:=AValue;
  60453. MarkPropertyChanged(AIndex);
  60454. end;
  60455. Procedure TSP_DataIWConvertedFormsItem.SetOrder(AIndex: Integer; const AValue: Double);
  60456. begin
  60457. If (FOrder=AValue) then exit;
  60458. FOrder:=AValue;
  60459. MarkPropertyChanged(AIndex);
  60460. end;
  60461. Procedure TSP_DataIWConvertedFormsItem.SetGUID(AIndex: Integer; const AValue: TGUIDString);
  60462. begin
  60463. If (FGUID=AValue) then exit;
  60464. FGUID:=AValue;
  60465. MarkPropertyChanged(AIndex);
  60466. end;
  60467. Procedure TSP_DataIWConvertedFormsItem.SetWorkflowVersion(AIndex: Integer; const AValue: TInt32);
  60468. begin
  60469. If (FWorkflowVersion=AValue) then exit;
  60470. FWorkflowVersion:=AValue;
  60471. MarkPropertyChanged(AIndex);
  60472. end;
  60473. Procedure TSP_DataIWConvertedFormsItem.SetWorkflowInstanceID(AIndex: Integer; const AValue: TGUIDString);
  60474. begin
  60475. If (FWorkflowInstanceID=AValue) then exit;
  60476. FWorkflowInstanceID:=AValue;
  60477. MarkPropertyChanged(AIndex);
  60478. end;
  60479. Procedure TSP_DataIWConvertedFormsItem.SetTemplateId(AIndex: Integer; const AValue: string);
  60480. begin
  60481. If (FTemplateId=AValue) then exit;
  60482. FTemplateId:=AValue;
  60483. MarkPropertyChanged(AIndex);
  60484. end;
  60485. Procedure TSP_DataIWConvertedFormsItem.SetFormRelativeUrl(AIndex: Integer; const AValue: string);
  60486. begin
  60487. If (FFormRelativeUrl=AValue) then exit;
  60488. FFormRelativeUrl:=AValue;
  60489. MarkPropertyChanged(AIndex);
  60490. end;
  60491. Procedure TSP_DataIWConvertedFormsItem.SetFormVersion(AIndex: Integer; const AValue: string);
  60492. begin
  60493. If (FFormVersion=AValue) then exit;
  60494. FFormVersion:=AValue;
  60495. MarkPropertyChanged(AIndex);
  60496. end;
  60497. Function TSP_DataIWConvertedFormsItem.Author(AService: TODataService) : TSP_DataUserInfoItem;
  60498. begin
  60499. Result:=TSP_DataUserInfoItem(GetContainedSingleTon(AService,'Author', TSP_DataUserInfoItem));
  60500. end;
  60501. Function TSP_DataIWConvertedFormsItem.Editor(AService: TODataService) : TSP_DataUserInfoItem;
  60502. begin
  60503. Result:=TSP_DataUserInfoItem(GetContainedSingleTon(AService,'Editor', TSP_DataUserInfoItem));
  60504. end;
  60505. Function TSP_DataIWConvertedFormsItem.CheckoutUser(AService: TODataService) : TSP_DataUserInfoItem;
  60506. begin
  60507. Result:=TSP_DataUserInfoItem(GetContainedSingleTon(AService,'CheckoutUser', TSP_DataUserInfoItem));
  60508. end;
  60509. { --------------------------------------------------------------------
  60510. TSP_DataDocumentsItem
  60511. --------------------------------------------------------------------}
  60512. Class Function TSP_DataDocumentsItem.ObjectRestKind : String;
  60513. begin
  60514. Result:='DocumentsItem';
  60515. end;
  60516. Procedure TSP_DataDocumentsItem.SetContentTypeId(AIndex: Integer; const AValue: string);
  60517. begin
  60518. If (FContentTypeId=AValue) then exit;
  60519. FContentTypeId:=AValue;
  60520. MarkPropertyChanged(AIndex);
  60521. end;
  60522. Procedure TSP_DataDocumentsItem.SetOData__ModerationComments(AIndex: Integer; const AValue: string);
  60523. begin
  60524. If (FOData__ModerationComments=AValue) then exit;
  60525. FOData__ModerationComments:=AValue;
  60526. MarkPropertyChanged(AIndex);
  60527. end;
  60528. Procedure TSP_DataDocumentsItem.SetFileLeafRef(AIndex: Integer; const AValue: string);
  60529. begin
  60530. If (FFileLeafRef=AValue) then exit;
  60531. FFileLeafRef:=AValue;
  60532. MarkPropertyChanged(AIndex);
  60533. end;
  60534. Procedure TSP_DataDocumentsItem.SetModified_x0020_By(AIndex: Integer; const AValue: string);
  60535. begin
  60536. If (FModified_x0020_By=AValue) then exit;
  60537. FModified_x0020_By:=AValue;
  60538. MarkPropertyChanged(AIndex);
  60539. end;
  60540. Procedure TSP_DataDocumentsItem.SetCreated_x0020_By(AIndex: Integer; const AValue: string);
  60541. begin
  60542. If (FCreated_x0020_By=AValue) then exit;
  60543. FCreated_x0020_By:=AValue;
  60544. MarkPropertyChanged(AIndex);
  60545. end;
  60546. Procedure TSP_DataDocumentsItem.SetFile_x0020_Type(AIndex: Integer; const AValue: string);
  60547. begin
  60548. If (FFile_x0020_Type=AValue) then exit;
  60549. FFile_x0020_Type:=AValue;
  60550. MarkPropertyChanged(AIndex);
  60551. end;
  60552. Procedure TSP_DataDocumentsItem.SetHTML_x0020_File_x0020_Type(AIndex: Integer; const AValue: string);
  60553. begin
  60554. If (FHTML_x0020_File_x0020_Type=AValue) then exit;
  60555. FHTML_x0020_File_x0020_Type:=AValue;
  60556. MarkPropertyChanged(AIndex);
  60557. end;
  60558. Procedure TSP_DataDocumentsItem.SetOData__SourceUrl(AIndex: Integer; const AValue: string);
  60559. begin
  60560. If (FOData__SourceUrl=AValue) then exit;
  60561. FOData__SourceUrl:=AValue;
  60562. MarkPropertyChanged(AIndex);
  60563. end;
  60564. Procedure TSP_DataDocumentsItem.SetOData__SharedFileIndex(AIndex: Integer; const AValue: string);
  60565. begin
  60566. If (FOData__SharedFileIndex=AValue) then exit;
  60567. FOData__SharedFileIndex:=AValue;
  60568. MarkPropertyChanged(AIndex);
  60569. end;
  60570. Procedure TSP_DataDocumentsItem.SetTitle(AIndex: Integer; const AValue: string);
  60571. begin
  60572. If (FTitle=AValue) then exit;
  60573. FTitle:=AValue;
  60574. MarkPropertyChanged(AIndex);
  60575. end;
  60576. Procedure TSP_DataDocumentsItem.SetPrincipalCount(AIndex: Integer; const AValue: string);
  60577. begin
  60578. If (FPrincipalCount=AValue) then exit;
  60579. FPrincipalCount:=AValue;
  60580. MarkPropertyChanged(AIndex);
  60581. end;
  60582. Procedure TSP_DataDocumentsItem.SetSharedWith(AIndex: Integer; const AValue: string);
  60583. begin
  60584. If (FSharedWith=AValue) then exit;
  60585. FSharedWith:=AValue;
  60586. MarkPropertyChanged(AIndex);
  60587. end;
  60588. Procedure TSP_DataDocumentsItem.SetIsMyDocuments(AIndex: Integer; const AValue: boolean);
  60589. begin
  60590. If (FIsMyDocuments=AValue) then exit;
  60591. FIsMyDocuments:=AValue;
  60592. MarkPropertyChanged(AIndex);
  60593. end;
  60594. Procedure TSP_DataDocumentsItem.SetSharedWithInternalId(AIndex: Integer; const AValue: TInt32Array);
  60595. begin
  60596. If (FSharedWithInternalId=AValue) then exit;
  60597. FSharedWithInternalId:=AValue;
  60598. MarkPropertyChanged(AIndex);
  60599. end;
  60600. Procedure TSP_DataDocumentsItem.SetSharedWithUsersId(AIndex: Integer; const AValue: TInt32Array);
  60601. begin
  60602. If (FSharedWithUsersId=AValue) then exit;
  60603. FSharedWithUsersId:=AValue;
  60604. MarkPropertyChanged(AIndex);
  60605. end;
  60606. Procedure TSP_DataDocumentsItem.SetCreated(AIndex: Integer; const AValue: TDateTime);
  60607. begin
  60608. If (FCreated=AValue) then exit;
  60609. FCreated:=AValue;
  60610. MarkPropertyChanged(AIndex);
  60611. end;
  60612. Procedure TSP_DataDocumentsItem.SetAuthorId(AIndex: Integer; const AValue: TInt32);
  60613. begin
  60614. If (FAuthorId=AValue) then exit;
  60615. FAuthorId:=AValue;
  60616. MarkPropertyChanged(AIndex);
  60617. end;
  60618. Procedure TSP_DataDocumentsItem.SetModified(AIndex: Integer; const AValue: TDateTime);
  60619. begin
  60620. If (FModified=AValue) then exit;
  60621. FModified:=AValue;
  60622. MarkPropertyChanged(AIndex);
  60623. end;
  60624. Procedure TSP_DataDocumentsItem.SetEditorId(AIndex: Integer; const AValue: TInt32);
  60625. begin
  60626. If (FEditorId=AValue) then exit;
  60627. FEditorId:=AValue;
  60628. MarkPropertyChanged(AIndex);
  60629. end;
  60630. Procedure TSP_DataDocumentsItem.SetOData__HasCopyDestinations(AIndex: Integer; const AValue: boolean);
  60631. begin
  60632. If (FOData__HasCopyDestinations=AValue) then exit;
  60633. FOData__HasCopyDestinations:=AValue;
  60634. MarkPropertyChanged(AIndex);
  60635. end;
  60636. Procedure TSP_DataDocumentsItem.SetOData__CopySource(AIndex: Integer; const AValue: string);
  60637. begin
  60638. If (FOData__CopySource=AValue) then exit;
  60639. FOData__CopySource:=AValue;
  60640. MarkPropertyChanged(AIndex);
  60641. end;
  60642. Procedure TSP_DataDocumentsItem.SetOData__ModerationStatus(AIndex: Integer; const AValue: TInt32);
  60643. begin
  60644. If (FOData__ModerationStatus=AValue) then exit;
  60645. FOData__ModerationStatus:=AValue;
  60646. MarkPropertyChanged(AIndex);
  60647. end;
  60648. Procedure TSP_DataDocumentsItem.SetFileRef(AIndex: Integer; const AValue: string);
  60649. begin
  60650. If (FFileRef=AValue) then exit;
  60651. FFileRef:=AValue;
  60652. MarkPropertyChanged(AIndex);
  60653. end;
  60654. Procedure TSP_DataDocumentsItem.SetFileDirRef(AIndex: Integer; const AValue: string);
  60655. begin
  60656. If (FFileDirRef=AValue) then exit;
  60657. FFileDirRef:=AValue;
  60658. MarkPropertyChanged(AIndex);
  60659. end;
  60660. Procedure TSP_DataDocumentsItem.SetLast_x0020_Modified(AIndex: Integer; const AValue: TDateTime);
  60661. begin
  60662. If (FLast_x0020_Modified=AValue) then exit;
  60663. FLast_x0020_Modified:=AValue;
  60664. MarkPropertyChanged(AIndex);
  60665. end;
  60666. Procedure TSP_DataDocumentsItem.SetCreated_x0020_Date(AIndex: Integer; const AValue: TDateTime);
  60667. begin
  60668. If (FCreated_x0020_Date=AValue) then exit;
  60669. FCreated_x0020_Date:=AValue;
  60670. MarkPropertyChanged(AIndex);
  60671. end;
  60672. Procedure TSP_DataDocumentsItem.SetFSObjType(AIndex: Integer; const AValue: TInt32);
  60673. begin
  60674. If (FFSObjType=AValue) then exit;
  60675. FFSObjType:=AValue;
  60676. MarkPropertyChanged(AIndex);
  60677. end;
  60678. Procedure TSP_DataDocumentsItem.SetPermMask(AIndex: Integer; const AValue: string);
  60679. begin
  60680. If (FPermMask=AValue) then exit;
  60681. FPermMask:=AValue;
  60682. MarkPropertyChanged(AIndex);
  60683. end;
  60684. Procedure TSP_DataDocumentsItem.SetCheckoutUserId(AIndex: Integer; const AValue: TInt32);
  60685. begin
  60686. If (FCheckoutUserId=AValue) then exit;
  60687. FCheckoutUserId:=AValue;
  60688. MarkPropertyChanged(AIndex);
  60689. end;
  60690. Procedure TSP_DataDocumentsItem.SetUniqueId(AIndex: Integer; const AValue: TGUIDString);
  60691. begin
  60692. If (FUniqueId=AValue) then exit;
  60693. FUniqueId:=AValue;
  60694. MarkPropertyChanged(AIndex);
  60695. end;
  60696. Procedure TSP_DataDocumentsItem.SetOData__CheckinComment(AIndex: Integer; const AValue: string);
  60697. begin
  60698. If (FOData__CheckinComment=AValue) then exit;
  60699. FOData__CheckinComment:=AValue;
  60700. MarkPropertyChanged(AIndex);
  60701. end;
  60702. Procedure TSP_DataDocumentsItem.SetLinkCheckedOutTitle(AIndex: Integer; const AValue: string);
  60703. begin
  60704. If (FLinkCheckedOutTitle=AValue) then exit;
  60705. FLinkCheckedOutTitle:=AValue;
  60706. MarkPropertyChanged(AIndex);
  60707. end;
  60708. Procedure TSP_DataDocumentsItem.SetOData__EditMenuTableStart(AIndex: Integer; const AValue: string);
  60709. begin
  60710. If (FOData__EditMenuTableStart=AValue) then exit;
  60711. FOData__EditMenuTableStart:=AValue;
  60712. MarkPropertyChanged(AIndex);
  60713. end;
  60714. Procedure TSP_DataDocumentsItem.SetOData__EditMenuTableStart2(AIndex: Integer; const AValue: string);
  60715. begin
  60716. If (FOData__EditMenuTableStart2=AValue) then exit;
  60717. FOData__EditMenuTableStart2:=AValue;
  60718. MarkPropertyChanged(AIndex);
  60719. end;
  60720. Procedure TSP_DataDocumentsItem.SetOData__EditMenuTableEnd(AIndex: Integer; const AValue: string);
  60721. begin
  60722. If (FOData__EditMenuTableEnd=AValue) then exit;
  60723. FOData__EditMenuTableEnd:=AValue;
  60724. MarkPropertyChanged(AIndex);
  60725. end;
  60726. Procedure TSP_DataDocumentsItem.SetLinkFilenameNoMenu(AIndex: Integer; const AValue: string);
  60727. begin
  60728. If (FLinkFilenameNoMenu=AValue) then exit;
  60729. FLinkFilenameNoMenu:=AValue;
  60730. MarkPropertyChanged(AIndex);
  60731. end;
  60732. Procedure TSP_DataDocumentsItem.SetLinkFilename(AIndex: Integer; const AValue: string);
  60733. begin
  60734. If (FLinkFilename=AValue) then exit;
  60735. FLinkFilename:=AValue;
  60736. MarkPropertyChanged(AIndex);
  60737. end;
  60738. Procedure TSP_DataDocumentsItem.SetLinkFilename2(AIndex: Integer; const AValue: string);
  60739. begin
  60740. If (FLinkFilename2=AValue) then exit;
  60741. FLinkFilename2:=AValue;
  60742. MarkPropertyChanged(AIndex);
  60743. end;
  60744. Procedure TSP_DataDocumentsItem.SetDocIcon(AIndex: Integer; const AValue: string);
  60745. begin
  60746. If (FDocIcon=AValue) then exit;
  60747. FDocIcon:=AValue;
  60748. MarkPropertyChanged(AIndex);
  60749. end;
  60750. Procedure TSP_DataDocumentsItem.SetServerUrl(AIndex: Integer; const AValue: string);
  60751. begin
  60752. If (FServerUrl=AValue) then exit;
  60753. FServerUrl:=AValue;
  60754. MarkPropertyChanged(AIndex);
  60755. end;
  60756. Procedure TSP_DataDocumentsItem.SetEncodedAbsUrl(AIndex: Integer; const AValue: string);
  60757. begin
  60758. If (FEncodedAbsUrl=AValue) then exit;
  60759. FEncodedAbsUrl:=AValue;
  60760. MarkPropertyChanged(AIndex);
  60761. end;
  60762. Procedure TSP_DataDocumentsItem.SetBaseName(AIndex: Integer; const AValue: string);
  60763. begin
  60764. If (FBaseName=AValue) then exit;
  60765. FBaseName:=AValue;
  60766. MarkPropertyChanged(AIndex);
  60767. end;
  60768. Procedure TSP_DataDocumentsItem.SetFileSizeDisplay(AIndex: Integer; const AValue: string);
  60769. begin
  60770. If (FFileSizeDisplay=AValue) then exit;
  60771. FFileSizeDisplay:=AValue;
  60772. MarkPropertyChanged(AIndex);
  60773. end;
  60774. Procedure TSP_DataDocumentsItem.SetOData__Level(AIndex: Integer; const AValue: TInt32);
  60775. begin
  60776. If (FOData__Level=AValue) then exit;
  60777. FOData__Level:=AValue;
  60778. MarkPropertyChanged(AIndex);
  60779. end;
  60780. Procedure TSP_DataDocumentsItem.SetOData__IsCurrentVersion(AIndex: Integer; const AValue: boolean);
  60781. begin
  60782. If (FOData__IsCurrentVersion=AValue) then exit;
  60783. FOData__IsCurrentVersion:=AValue;
  60784. MarkPropertyChanged(AIndex);
  60785. end;
  60786. Procedure TSP_DataDocumentsItem.SetAppAuthorId(AIndex: Integer; const AValue: TInt32);
  60787. begin
  60788. If (FAppAuthorId=AValue) then exit;
  60789. FAppAuthorId:=AValue;
  60790. MarkPropertyChanged(AIndex);
  60791. end;
  60792. Procedure TSP_DataDocumentsItem.SetAppEditorId(AIndex: Integer; const AValue: TInt32);
  60793. begin
  60794. If (FAppEditorId=AValue) then exit;
  60795. FAppEditorId:=AValue;
  60796. MarkPropertyChanged(AIndex);
  60797. end;
  60798. Procedure TSP_DataDocumentsItem.SetSelectTitle(AIndex: Integer; const AValue: string);
  60799. begin
  60800. If (FSelectTitle=AValue) then exit;
  60801. FSelectTitle:=AValue;
  60802. MarkPropertyChanged(AIndex);
  60803. end;
  60804. Procedure TSP_DataDocumentsItem.SetSelectFilename(AIndex: Integer; const AValue: string);
  60805. begin
  60806. If (FSelectFilename=AValue) then exit;
  60807. FSelectFilename:=AValue;
  60808. MarkPropertyChanged(AIndex);
  60809. end;
  60810. Procedure TSP_DataDocumentsItem.SetEdit(AIndex: Integer; const AValue: string);
  60811. begin
  60812. If (FEdit=AValue) then exit;
  60813. FEdit:=AValue;
  60814. MarkPropertyChanged(AIndex);
  60815. end;
  60816. Procedure TSP_DataDocumentsItem.Setowshiddenversion(AIndex: Integer; const AValue: TInt32);
  60817. begin
  60818. If (Fowshiddenversion=AValue) then exit;
  60819. Fowshiddenversion:=AValue;
  60820. MarkPropertyChanged(AIndex);
  60821. end;
  60822. Procedure TSP_DataDocumentsItem.SetOData__UIVersion(AIndex: Integer; const AValue: TInt32);
  60823. begin
  60824. If (FOData__UIVersion=AValue) then exit;
  60825. FOData__UIVersion:=AValue;
  60826. MarkPropertyChanged(AIndex);
  60827. end;
  60828. Procedure TSP_DataDocumentsItem.SetOData__UIVersionString(AIndex: Integer; const AValue: string);
  60829. begin
  60830. If (FOData__UIVersionString=AValue) then exit;
  60831. FOData__UIVersionString:=AValue;
  60832. MarkPropertyChanged(AIndex);
  60833. end;
  60834. Procedure TSP_DataDocumentsItem.SetInstanceID(AIndex: Integer; const AValue: TInt32);
  60835. begin
  60836. If (FInstanceID=AValue) then exit;
  60837. FInstanceID:=AValue;
  60838. MarkPropertyChanged(AIndex);
  60839. end;
  60840. Procedure TSP_DataDocumentsItem.SetOrder(AIndex: Integer; const AValue: Double);
  60841. begin
  60842. If (FOrder=AValue) then exit;
  60843. FOrder:=AValue;
  60844. MarkPropertyChanged(AIndex);
  60845. end;
  60846. Procedure TSP_DataDocumentsItem.SetGUID(AIndex: Integer; const AValue: TGUIDString);
  60847. begin
  60848. If (FGUID=AValue) then exit;
  60849. FGUID:=AValue;
  60850. MarkPropertyChanged(AIndex);
  60851. end;
  60852. Procedure TSP_DataDocumentsItem.SetWorkflowVersion(AIndex: Integer; const AValue: TInt32);
  60853. begin
  60854. If (FWorkflowVersion=AValue) then exit;
  60855. FWorkflowVersion:=AValue;
  60856. MarkPropertyChanged(AIndex);
  60857. end;
  60858. Procedure TSP_DataDocumentsItem.SetWorkflowInstanceID(AIndex: Integer; const AValue: TGUIDString);
  60859. begin
  60860. If (FWorkflowInstanceID=AValue) then exit;
  60861. FWorkflowInstanceID:=AValue;
  60862. MarkPropertyChanged(AIndex);
  60863. end;
  60864. {$IFDEF VER2_6}
  60865. Procedure TSP_DataDocumentsItem.SetArrayLength(const AName: String; ALength: Longint);
  60866. begin
  60867. Case aName of
  60868. 'sharedwithinternalid' : SetLength(FSharedWithInternalId,aLength);
  60869. 'sharedwithusersid' : SetLength(FSharedWithUsersId,aLength);
  60870. else
  60871. inherited SetArrayLength(aName,ALength);
  60872. end;
  60873. end;
  60874. {$ENDIF VER2_6}
  60875. Function TSP_DataDocumentsItem.SharedWithInternal(AService: TODataService) : TSP_DataUserInfoItem;
  60876. begin
  60877. Result:=TSP_DataUserInfoItem(GetContainedSingleTon(AService,'SharedWithInternal', TSP_DataUserInfoItem));
  60878. end;
  60879. Function TSP_DataDocumentsItem.SharedWithUsers(AService: TODataService) : TSP_DataUserInfoItem;
  60880. begin
  60881. Result:=TSP_DataUserInfoItem(GetContainedSingleTon(AService,'SharedWithUsers', TSP_DataUserInfoItem));
  60882. end;
  60883. Function TSP_DataDocumentsItem.Author(AService: TODataService) : TSP_DataUserInfoItem;
  60884. begin
  60885. Result:=TSP_DataUserInfoItem(GetContainedSingleTon(AService,'Author', TSP_DataUserInfoItem));
  60886. end;
  60887. Function TSP_DataDocumentsItem.Editor(AService: TODataService) : TSP_DataUserInfoItem;
  60888. begin
  60889. Result:=TSP_DataUserInfoItem(GetContainedSingleTon(AService,'Editor', TSP_DataUserInfoItem));
  60890. end;
  60891. Function TSP_DataDocumentsItem.CheckoutUser(AService: TODataService) : TSP_DataUserInfoItem;
  60892. begin
  60893. Result:=TSP_DataUserInfoItem(GetContainedSingleTon(AService,'CheckoutUser', TSP_DataUserInfoItem));
  60894. end;
  60895. { --------------------------------------------------------------------
  60896. TSP_DataFormServerTemplatesItem
  60897. --------------------------------------------------------------------}
  60898. Class Function TSP_DataFormServerTemplatesItem.ObjectRestKind : String;
  60899. begin
  60900. Result:='FormServerTemplatesItem';
  60901. end;
  60902. Procedure TSP_DataFormServerTemplatesItem.SetContentTypeId(AIndex: Integer; const AValue: string);
  60903. begin
  60904. If (FContentTypeId=AValue) then exit;
  60905. FContentTypeId:=AValue;
  60906. MarkPropertyChanged(AIndex);
  60907. end;
  60908. Procedure TSP_DataFormServerTemplatesItem.SetOData__ModerationComments(AIndex: Integer; const AValue: string);
  60909. begin
  60910. If (FOData__ModerationComments=AValue) then exit;
  60911. FOData__ModerationComments:=AValue;
  60912. MarkPropertyChanged(AIndex);
  60913. end;
  60914. Procedure TSP_DataFormServerTemplatesItem.SetFileLeafRef(AIndex: Integer; const AValue: string);
  60915. begin
  60916. If (FFileLeafRef=AValue) then exit;
  60917. FFileLeafRef:=AValue;
  60918. MarkPropertyChanged(AIndex);
  60919. end;
  60920. Procedure TSP_DataFormServerTemplatesItem.SetModified_x0020_By(AIndex: Integer; const AValue: string);
  60921. begin
  60922. If (FModified_x0020_By=AValue) then exit;
  60923. FModified_x0020_By:=AValue;
  60924. MarkPropertyChanged(AIndex);
  60925. end;
  60926. Procedure TSP_DataFormServerTemplatesItem.SetCreated_x0020_By(AIndex: Integer; const AValue: string);
  60927. begin
  60928. If (FCreated_x0020_By=AValue) then exit;
  60929. FCreated_x0020_By:=AValue;
  60930. MarkPropertyChanged(AIndex);
  60931. end;
  60932. Procedure TSP_DataFormServerTemplatesItem.SetFile_x0020_Type(AIndex: Integer; const AValue: string);
  60933. begin
  60934. If (FFile_x0020_Type=AValue) then exit;
  60935. FFile_x0020_Type:=AValue;
  60936. MarkPropertyChanged(AIndex);
  60937. end;
  60938. Procedure TSP_DataFormServerTemplatesItem.SetHTML_x0020_File_x0020_Type(AIndex: Integer; const AValue: string);
  60939. begin
  60940. If (FHTML_x0020_File_x0020_Type=AValue) then exit;
  60941. FHTML_x0020_File_x0020_Type:=AValue;
  60942. MarkPropertyChanged(AIndex);
  60943. end;
  60944. Procedure TSP_DataFormServerTemplatesItem.SetOData__SourceUrl(AIndex: Integer; const AValue: string);
  60945. begin
  60946. If (FOData__SourceUrl=AValue) then exit;
  60947. FOData__SourceUrl:=AValue;
  60948. MarkPropertyChanged(AIndex);
  60949. end;
  60950. Procedure TSP_DataFormServerTemplatesItem.SetOData__SharedFileIndex(AIndex: Integer; const AValue: string);
  60951. begin
  60952. If (FOData__SharedFileIndex=AValue) then exit;
  60953. FOData__SharedFileIndex:=AValue;
  60954. MarkPropertyChanged(AIndex);
  60955. end;
  60956. Procedure TSP_DataFormServerTemplatesItem.SetTitle(AIndex: Integer; const AValue: string);
  60957. begin
  60958. If (FTitle=AValue) then exit;
  60959. FTitle:=AValue;
  60960. MarkPropertyChanged(AIndex);
  60961. end;
  60962. Procedure TSP_DataFormServerTemplatesItem.SetTemplateUrl(AIndex: Integer; const AValue: string);
  60963. begin
  60964. If (FTemplateUrl=AValue) then exit;
  60965. FTemplateUrl:=AValue;
  60966. MarkPropertyChanged(AIndex);
  60967. end;
  60968. Procedure TSP_DataFormServerTemplatesItem.Setxd_ProgID(AIndex: Integer; const AValue: string);
  60969. begin
  60970. If (Fxd_ProgID=AValue) then exit;
  60971. Fxd_ProgID:=AValue;
  60972. MarkPropertyChanged(AIndex);
  60973. end;
  60974. Procedure TSP_DataFormServerTemplatesItem.Setxd_Signature(AIndex: Integer; const AValue: boolean);
  60975. begin
  60976. If (Fxd_Signature=AValue) then exit;
  60977. Fxd_Signature:=AValue;
  60978. MarkPropertyChanged(AIndex);
  60979. end;
  60980. Procedure TSP_DataFormServerTemplatesItem.SetFormName(AIndex: Integer; const AValue: string);
  60981. begin
  60982. If (FFormName=AValue) then exit;
  60983. FFormName:=AValue;
  60984. MarkPropertyChanged(AIndex);
  60985. end;
  60986. Procedure TSP_DataFormServerTemplatesItem.SetFormCategory(AIndex: Integer; const AValue: string);
  60987. begin
  60988. If (FFormCategory=AValue) then exit;
  60989. FFormCategory:=AValue;
  60990. MarkPropertyChanged(AIndex);
  60991. end;
  60992. Procedure TSP_DataFormServerTemplatesItem.SetFormVersion(AIndex: Integer; const AValue: string);
  60993. begin
  60994. If (FFormVersion=AValue) then exit;
  60995. FFormVersion:=AValue;
  60996. MarkPropertyChanged(AIndex);
  60997. end;
  60998. Procedure TSP_DataFormServerTemplatesItem.SetFormId(AIndex: Integer; const AValue: string);
  60999. begin
  61000. If (FFormId=AValue) then exit;
  61001. FFormId:=AValue;
  61002. MarkPropertyChanged(AIndex);
  61003. end;
  61004. Procedure TSP_DataFormServerTemplatesItem.SetFormLocale(AIndex: Integer; const AValue: string);
  61005. begin
  61006. If (FFormLocale=AValue) then exit;
  61007. FFormLocale:=AValue;
  61008. MarkPropertyChanged(AIndex);
  61009. end;
  61010. Procedure TSP_DataFormServerTemplatesItem.SetFormDescription(AIndex: Integer; const AValue: string);
  61011. begin
  61012. If (FFormDescription=AValue) then exit;
  61013. FFormDescription:=AValue;
  61014. MarkPropertyChanged(AIndex);
  61015. end;
  61016. Procedure TSP_DataFormServerTemplatesItem.SetCustomContentTypeId(AIndex: Integer; const AValue: string);
  61017. begin
  61018. If (FCustomContentTypeId=AValue) then exit;
  61019. FCustomContentTypeId:=AValue;
  61020. MarkPropertyChanged(AIndex);
  61021. end;
  61022. Procedure TSP_DataFormServerTemplatesItem.SetShowInCatalog(AIndex: Integer; const AValue: boolean);
  61023. begin
  61024. If (FShowInCatalog=AValue) then exit;
  61025. FShowInCatalog:=AValue;
  61026. MarkPropertyChanged(AIndex);
  61027. end;
  61028. Procedure TSP_DataFormServerTemplatesItem.SetLinkTemplateName(AIndex: Integer; const AValue: string);
  61029. begin
  61030. If (FLinkTemplateName=AValue) then exit;
  61031. FLinkTemplateName:=AValue;
  61032. MarkPropertyChanged(AIndex);
  61033. end;
  61034. Procedure TSP_DataFormServerTemplatesItem.SetCreated(AIndex: Integer; const AValue: TDateTime);
  61035. begin
  61036. If (FCreated=AValue) then exit;
  61037. FCreated:=AValue;
  61038. MarkPropertyChanged(AIndex);
  61039. end;
  61040. Procedure TSP_DataFormServerTemplatesItem.SetAuthorId(AIndex: Integer; const AValue: TInt32);
  61041. begin
  61042. If (FAuthorId=AValue) then exit;
  61043. FAuthorId:=AValue;
  61044. MarkPropertyChanged(AIndex);
  61045. end;
  61046. Procedure TSP_DataFormServerTemplatesItem.SetModified(AIndex: Integer; const AValue: TDateTime);
  61047. begin
  61048. If (FModified=AValue) then exit;
  61049. FModified:=AValue;
  61050. MarkPropertyChanged(AIndex);
  61051. end;
  61052. Procedure TSP_DataFormServerTemplatesItem.SetEditorId(AIndex: Integer; const AValue: TInt32);
  61053. begin
  61054. If (FEditorId=AValue) then exit;
  61055. FEditorId:=AValue;
  61056. MarkPropertyChanged(AIndex);
  61057. end;
  61058. Procedure TSP_DataFormServerTemplatesItem.SetOData__HasCopyDestinations(AIndex: Integer; const AValue: boolean);
  61059. begin
  61060. If (FOData__HasCopyDestinations=AValue) then exit;
  61061. FOData__HasCopyDestinations:=AValue;
  61062. MarkPropertyChanged(AIndex);
  61063. end;
  61064. Procedure TSP_DataFormServerTemplatesItem.SetOData__CopySource(AIndex: Integer; const AValue: string);
  61065. begin
  61066. If (FOData__CopySource=AValue) then exit;
  61067. FOData__CopySource:=AValue;
  61068. MarkPropertyChanged(AIndex);
  61069. end;
  61070. Procedure TSP_DataFormServerTemplatesItem.SetOData__ModerationStatus(AIndex: Integer; const AValue: TInt32);
  61071. begin
  61072. If (FOData__ModerationStatus=AValue) then exit;
  61073. FOData__ModerationStatus:=AValue;
  61074. MarkPropertyChanged(AIndex);
  61075. end;
  61076. Procedure TSP_DataFormServerTemplatesItem.SetFileRef(AIndex: Integer; const AValue: string);
  61077. begin
  61078. If (FFileRef=AValue) then exit;
  61079. FFileRef:=AValue;
  61080. MarkPropertyChanged(AIndex);
  61081. end;
  61082. Procedure TSP_DataFormServerTemplatesItem.SetFileDirRef(AIndex: Integer; const AValue: string);
  61083. begin
  61084. If (FFileDirRef=AValue) then exit;
  61085. FFileDirRef:=AValue;
  61086. MarkPropertyChanged(AIndex);
  61087. end;
  61088. Procedure TSP_DataFormServerTemplatesItem.SetLast_x0020_Modified(AIndex: Integer; const AValue: TDateTime);
  61089. begin
  61090. If (FLast_x0020_Modified=AValue) then exit;
  61091. FLast_x0020_Modified:=AValue;
  61092. MarkPropertyChanged(AIndex);
  61093. end;
  61094. Procedure TSP_DataFormServerTemplatesItem.SetCreated_x0020_Date(AIndex: Integer; const AValue: TDateTime);
  61095. begin
  61096. If (FCreated_x0020_Date=AValue) then exit;
  61097. FCreated_x0020_Date:=AValue;
  61098. MarkPropertyChanged(AIndex);
  61099. end;
  61100. Procedure TSP_DataFormServerTemplatesItem.SetFSObjType(AIndex: Integer; const AValue: TInt32);
  61101. begin
  61102. If (FFSObjType=AValue) then exit;
  61103. FFSObjType:=AValue;
  61104. MarkPropertyChanged(AIndex);
  61105. end;
  61106. Procedure TSP_DataFormServerTemplatesItem.SetPermMask(AIndex: Integer; const AValue: string);
  61107. begin
  61108. If (FPermMask=AValue) then exit;
  61109. FPermMask:=AValue;
  61110. MarkPropertyChanged(AIndex);
  61111. end;
  61112. Procedure TSP_DataFormServerTemplatesItem.SetCheckoutUserId(AIndex: Integer; const AValue: TInt32);
  61113. begin
  61114. If (FCheckoutUserId=AValue) then exit;
  61115. FCheckoutUserId:=AValue;
  61116. MarkPropertyChanged(AIndex);
  61117. end;
  61118. Procedure TSP_DataFormServerTemplatesItem.SetUniqueId(AIndex: Integer; const AValue: TGUIDString);
  61119. begin
  61120. If (FUniqueId=AValue) then exit;
  61121. FUniqueId:=AValue;
  61122. MarkPropertyChanged(AIndex);
  61123. end;
  61124. Procedure TSP_DataFormServerTemplatesItem.SetOData__CheckinComment(AIndex: Integer; const AValue: string);
  61125. begin
  61126. If (FOData__CheckinComment=AValue) then exit;
  61127. FOData__CheckinComment:=AValue;
  61128. MarkPropertyChanged(AIndex);
  61129. end;
  61130. Procedure TSP_DataFormServerTemplatesItem.SetLinkCheckedOutTitle(AIndex: Integer; const AValue: string);
  61131. begin
  61132. If (FLinkCheckedOutTitle=AValue) then exit;
  61133. FLinkCheckedOutTitle:=AValue;
  61134. MarkPropertyChanged(AIndex);
  61135. end;
  61136. Procedure TSP_DataFormServerTemplatesItem.SetOData__EditMenuTableStart(AIndex: Integer; const AValue: string);
  61137. begin
  61138. If (FOData__EditMenuTableStart=AValue) then exit;
  61139. FOData__EditMenuTableStart:=AValue;
  61140. MarkPropertyChanged(AIndex);
  61141. end;
  61142. Procedure TSP_DataFormServerTemplatesItem.SetOData__EditMenuTableStart2(AIndex: Integer; const AValue: string);
  61143. begin
  61144. If (FOData__EditMenuTableStart2=AValue) then exit;
  61145. FOData__EditMenuTableStart2:=AValue;
  61146. MarkPropertyChanged(AIndex);
  61147. end;
  61148. Procedure TSP_DataFormServerTemplatesItem.SetOData__EditMenuTableEnd(AIndex: Integer; const AValue: string);
  61149. begin
  61150. If (FOData__EditMenuTableEnd=AValue) then exit;
  61151. FOData__EditMenuTableEnd:=AValue;
  61152. MarkPropertyChanged(AIndex);
  61153. end;
  61154. Procedure TSP_DataFormServerTemplatesItem.SetLinkFilenameNoMenu(AIndex: Integer; const AValue: string);
  61155. begin
  61156. If (FLinkFilenameNoMenu=AValue) then exit;
  61157. FLinkFilenameNoMenu:=AValue;
  61158. MarkPropertyChanged(AIndex);
  61159. end;
  61160. Procedure TSP_DataFormServerTemplatesItem.SetLinkFilename(AIndex: Integer; const AValue: string);
  61161. begin
  61162. If (FLinkFilename=AValue) then exit;
  61163. FLinkFilename:=AValue;
  61164. MarkPropertyChanged(AIndex);
  61165. end;
  61166. Procedure TSP_DataFormServerTemplatesItem.SetLinkFilename2(AIndex: Integer; const AValue: string);
  61167. begin
  61168. If (FLinkFilename2=AValue) then exit;
  61169. FLinkFilename2:=AValue;
  61170. MarkPropertyChanged(AIndex);
  61171. end;
  61172. Procedure TSP_DataFormServerTemplatesItem.SetDocIcon(AIndex: Integer; const AValue: string);
  61173. begin
  61174. If (FDocIcon=AValue) then exit;
  61175. FDocIcon:=AValue;
  61176. MarkPropertyChanged(AIndex);
  61177. end;
  61178. Procedure TSP_DataFormServerTemplatesItem.SetServerUrl(AIndex: Integer; const AValue: string);
  61179. begin
  61180. If (FServerUrl=AValue) then exit;
  61181. FServerUrl:=AValue;
  61182. MarkPropertyChanged(AIndex);
  61183. end;
  61184. Procedure TSP_DataFormServerTemplatesItem.SetEncodedAbsUrl(AIndex: Integer; const AValue: string);
  61185. begin
  61186. If (FEncodedAbsUrl=AValue) then exit;
  61187. FEncodedAbsUrl:=AValue;
  61188. MarkPropertyChanged(AIndex);
  61189. end;
  61190. Procedure TSP_DataFormServerTemplatesItem.SetBaseName(AIndex: Integer; const AValue: string);
  61191. begin
  61192. If (FBaseName=AValue) then exit;
  61193. FBaseName:=AValue;
  61194. MarkPropertyChanged(AIndex);
  61195. end;
  61196. Procedure TSP_DataFormServerTemplatesItem.SetFileSizeDisplay(AIndex: Integer; const AValue: string);
  61197. begin
  61198. If (FFileSizeDisplay=AValue) then exit;
  61199. FFileSizeDisplay:=AValue;
  61200. MarkPropertyChanged(AIndex);
  61201. end;
  61202. Procedure TSP_DataFormServerTemplatesItem.SetOData__Level(AIndex: Integer; const AValue: TInt32);
  61203. begin
  61204. If (FOData__Level=AValue) then exit;
  61205. FOData__Level:=AValue;
  61206. MarkPropertyChanged(AIndex);
  61207. end;
  61208. Procedure TSP_DataFormServerTemplatesItem.SetOData__IsCurrentVersion(AIndex: Integer; const AValue: boolean);
  61209. begin
  61210. If (FOData__IsCurrentVersion=AValue) then exit;
  61211. FOData__IsCurrentVersion:=AValue;
  61212. MarkPropertyChanged(AIndex);
  61213. end;
  61214. Procedure TSP_DataFormServerTemplatesItem.SetAppAuthorId(AIndex: Integer; const AValue: TInt32);
  61215. begin
  61216. If (FAppAuthorId=AValue) then exit;
  61217. FAppAuthorId:=AValue;
  61218. MarkPropertyChanged(AIndex);
  61219. end;
  61220. Procedure TSP_DataFormServerTemplatesItem.SetAppEditorId(AIndex: Integer; const AValue: TInt32);
  61221. begin
  61222. If (FAppEditorId=AValue) then exit;
  61223. FAppEditorId:=AValue;
  61224. MarkPropertyChanged(AIndex);
  61225. end;
  61226. Procedure TSP_DataFormServerTemplatesItem.SetSelectTitle(AIndex: Integer; const AValue: string);
  61227. begin
  61228. If (FSelectTitle=AValue) then exit;
  61229. FSelectTitle:=AValue;
  61230. MarkPropertyChanged(AIndex);
  61231. end;
  61232. Procedure TSP_DataFormServerTemplatesItem.SetSelectFilename(AIndex: Integer; const AValue: string);
  61233. begin
  61234. If (FSelectFilename=AValue) then exit;
  61235. FSelectFilename:=AValue;
  61236. MarkPropertyChanged(AIndex);
  61237. end;
  61238. Procedure TSP_DataFormServerTemplatesItem.SetEdit(AIndex: Integer; const AValue: string);
  61239. begin
  61240. If (FEdit=AValue) then exit;
  61241. FEdit:=AValue;
  61242. MarkPropertyChanged(AIndex);
  61243. end;
  61244. Procedure TSP_DataFormServerTemplatesItem.Setowshiddenversion(AIndex: Integer; const AValue: TInt32);
  61245. begin
  61246. If (Fowshiddenversion=AValue) then exit;
  61247. Fowshiddenversion:=AValue;
  61248. MarkPropertyChanged(AIndex);
  61249. end;
  61250. Procedure TSP_DataFormServerTemplatesItem.SetOData__UIVersion(AIndex: Integer; const AValue: TInt32);
  61251. begin
  61252. If (FOData__UIVersion=AValue) then exit;
  61253. FOData__UIVersion:=AValue;
  61254. MarkPropertyChanged(AIndex);
  61255. end;
  61256. Procedure TSP_DataFormServerTemplatesItem.SetOData__UIVersionString(AIndex: Integer; const AValue: string);
  61257. begin
  61258. If (FOData__UIVersionString=AValue) then exit;
  61259. FOData__UIVersionString:=AValue;
  61260. MarkPropertyChanged(AIndex);
  61261. end;
  61262. Procedure TSP_DataFormServerTemplatesItem.SetInstanceID(AIndex: Integer; const AValue: TInt32);
  61263. begin
  61264. If (FInstanceID=AValue) then exit;
  61265. FInstanceID:=AValue;
  61266. MarkPropertyChanged(AIndex);
  61267. end;
  61268. Procedure TSP_DataFormServerTemplatesItem.SetOrder(AIndex: Integer; const AValue: Double);
  61269. begin
  61270. If (FOrder=AValue) then exit;
  61271. FOrder:=AValue;
  61272. MarkPropertyChanged(AIndex);
  61273. end;
  61274. Procedure TSP_DataFormServerTemplatesItem.SetGUID(AIndex: Integer; const AValue: TGUIDString);
  61275. begin
  61276. If (FGUID=AValue) then exit;
  61277. FGUID:=AValue;
  61278. MarkPropertyChanged(AIndex);
  61279. end;
  61280. Procedure TSP_DataFormServerTemplatesItem.SetWorkflowVersion(AIndex: Integer; const AValue: TInt32);
  61281. begin
  61282. If (FWorkflowVersion=AValue) then exit;
  61283. FWorkflowVersion:=AValue;
  61284. MarkPropertyChanged(AIndex);
  61285. end;
  61286. Procedure TSP_DataFormServerTemplatesItem.SetWorkflowInstanceID(AIndex: Integer; const AValue: TGUIDString);
  61287. begin
  61288. If (FWorkflowInstanceID=AValue) then exit;
  61289. FWorkflowInstanceID:=AValue;
  61290. MarkPropertyChanged(AIndex);
  61291. end;
  61292. Procedure TSP_DataFormServerTemplatesItem.SetCombine(AIndex: Integer; const AValue: string);
  61293. begin
  61294. If (FCombine=AValue) then exit;
  61295. FCombine:=AValue;
  61296. MarkPropertyChanged(AIndex);
  61297. end;
  61298. Procedure TSP_DataFormServerTemplatesItem.SetRepairDocument(AIndex: Integer; const AValue: string);
  61299. begin
  61300. If (FRepairDocument=AValue) then exit;
  61301. FRepairDocument:=AValue;
  61302. MarkPropertyChanged(AIndex);
  61303. end;
  61304. Function TSP_DataFormServerTemplatesItem.Author(AService: TODataService) : TSP_DataUserInfoItem;
  61305. begin
  61306. Result:=TSP_DataUserInfoItem(GetContainedSingleTon(AService,'Author', TSP_DataUserInfoItem));
  61307. end;
  61308. Function TSP_DataFormServerTemplatesItem.Editor(AService: TODataService) : TSP_DataUserInfoItem;
  61309. begin
  61310. Result:=TSP_DataUserInfoItem(GetContainedSingleTon(AService,'Editor', TSP_DataUserInfoItem));
  61311. end;
  61312. Function TSP_DataFormServerTemplatesItem.CheckoutUser(AService: TODataService) : TSP_DataUserInfoItem;
  61313. begin
  61314. Result:=TSP_DataUserInfoItem(GetContainedSingleTon(AService,'CheckoutUser', TSP_DataUserInfoItem));
  61315. end;
  61316. { --------------------------------------------------------------------
  61317. TSP_DataOData__x005f_catalogs_x002f_ltItem
  61318. --------------------------------------------------------------------}
  61319. Class Function TSP_DataOData__x005f_catalogs_x002f_ltItem.ObjectRestKind : String;
  61320. begin
  61321. Result:='OData__x005f_catalogs_x002f_ltItem';
  61322. end;
  61323. Procedure TSP_DataOData__x005f_catalogs_x002f_ltItem.SetContentTypeId(AIndex: Integer; const AValue: string);
  61324. begin
  61325. If (FContentTypeId=AValue) then exit;
  61326. FContentTypeId:=AValue;
  61327. MarkPropertyChanged(AIndex);
  61328. end;
  61329. Procedure TSP_DataOData__x005f_catalogs_x002f_ltItem.SetCreated(AIndex: Integer; const AValue: TDateTime);
  61330. begin
  61331. If (FCreated=AValue) then exit;
  61332. FCreated:=AValue;
  61333. MarkPropertyChanged(AIndex);
  61334. end;
  61335. Procedure TSP_DataOData__x005f_catalogs_x002f_ltItem.SetAuthorId(AIndex: Integer; const AValue: TInt32);
  61336. begin
  61337. If (FAuthorId=AValue) then exit;
  61338. FAuthorId:=AValue;
  61339. MarkPropertyChanged(AIndex);
  61340. end;
  61341. Procedure TSP_DataOData__x005f_catalogs_x002f_ltItem.SetModified(AIndex: Integer; const AValue: TDateTime);
  61342. begin
  61343. If (FModified=AValue) then exit;
  61344. FModified:=AValue;
  61345. MarkPropertyChanged(AIndex);
  61346. end;
  61347. Procedure TSP_DataOData__x005f_catalogs_x002f_ltItem.SetEditorId(AIndex: Integer; const AValue: TInt32);
  61348. begin
  61349. If (FEditorId=AValue) then exit;
  61350. FEditorId:=AValue;
  61351. MarkPropertyChanged(AIndex);
  61352. end;
  61353. Procedure TSP_DataOData__x005f_catalogs_x002f_ltItem.SetOData__HasCopyDestinations(AIndex: Integer; const AValue: boolean);
  61354. begin
  61355. If (FOData__HasCopyDestinations=AValue) then exit;
  61356. FOData__HasCopyDestinations:=AValue;
  61357. MarkPropertyChanged(AIndex);
  61358. end;
  61359. Procedure TSP_DataOData__x005f_catalogs_x002f_ltItem.SetOData__CopySource(AIndex: Integer; const AValue: string);
  61360. begin
  61361. If (FOData__CopySource=AValue) then exit;
  61362. FOData__CopySource:=AValue;
  61363. MarkPropertyChanged(AIndex);
  61364. end;
  61365. Procedure TSP_DataOData__x005f_catalogs_x002f_ltItem.SetOData__ModerationStatus(AIndex: Integer; const AValue: TInt32);
  61366. begin
  61367. If (FOData__ModerationStatus=AValue) then exit;
  61368. FOData__ModerationStatus:=AValue;
  61369. MarkPropertyChanged(AIndex);
  61370. end;
  61371. Procedure TSP_DataOData__x005f_catalogs_x002f_ltItem.SetOData__ModerationComments(AIndex: Integer; const AValue: string);
  61372. begin
  61373. If (FOData__ModerationComments=AValue) then exit;
  61374. FOData__ModerationComments:=AValue;
  61375. MarkPropertyChanged(AIndex);
  61376. end;
  61377. Procedure TSP_DataOData__x005f_catalogs_x002f_ltItem.SetFileRef(AIndex: Integer; const AValue: string);
  61378. begin
  61379. If (FFileRef=AValue) then exit;
  61380. FFileRef:=AValue;
  61381. MarkPropertyChanged(AIndex);
  61382. end;
  61383. Procedure TSP_DataOData__x005f_catalogs_x002f_ltItem.SetFileDirRef(AIndex: Integer; const AValue: string);
  61384. begin
  61385. If (FFileDirRef=AValue) then exit;
  61386. FFileDirRef:=AValue;
  61387. MarkPropertyChanged(AIndex);
  61388. end;
  61389. Procedure TSP_DataOData__x005f_catalogs_x002f_ltItem.SetLast_x0020_Modified(AIndex: Integer; const AValue: TDateTime);
  61390. begin
  61391. If (FLast_x0020_Modified=AValue) then exit;
  61392. FLast_x0020_Modified:=AValue;
  61393. MarkPropertyChanged(AIndex);
  61394. end;
  61395. Procedure TSP_DataOData__x005f_catalogs_x002f_ltItem.SetCreated_x0020_Date(AIndex: Integer; const AValue: TDateTime);
  61396. begin
  61397. If (FCreated_x0020_Date=AValue) then exit;
  61398. FCreated_x0020_Date:=AValue;
  61399. MarkPropertyChanged(AIndex);
  61400. end;
  61401. Procedure TSP_DataOData__x005f_catalogs_x002f_ltItem.SetFSObjType(AIndex: Integer; const AValue: TInt32);
  61402. begin
  61403. If (FFSObjType=AValue) then exit;
  61404. FFSObjType:=AValue;
  61405. MarkPropertyChanged(AIndex);
  61406. end;
  61407. Procedure TSP_DataOData__x005f_catalogs_x002f_ltItem.SetPermMask(AIndex: Integer; const AValue: string);
  61408. begin
  61409. If (FPermMask=AValue) then exit;
  61410. FPermMask:=AValue;
  61411. MarkPropertyChanged(AIndex);
  61412. end;
  61413. Procedure TSP_DataOData__x005f_catalogs_x002f_ltItem.SetCheckoutUserId(AIndex: Integer; const AValue: TInt32);
  61414. begin
  61415. If (FCheckoutUserId=AValue) then exit;
  61416. FCheckoutUserId:=AValue;
  61417. MarkPropertyChanged(AIndex);
  61418. end;
  61419. Procedure TSP_DataOData__x005f_catalogs_x002f_ltItem.SetFileLeafRef(AIndex: Integer; const AValue: string);
  61420. begin
  61421. If (FFileLeafRef=AValue) then exit;
  61422. FFileLeafRef:=AValue;
  61423. MarkPropertyChanged(AIndex);
  61424. end;
  61425. Procedure TSP_DataOData__x005f_catalogs_x002f_ltItem.SetUniqueId(AIndex: Integer; const AValue: TGUIDString);
  61426. begin
  61427. If (FUniqueId=AValue) then exit;
  61428. FUniqueId:=AValue;
  61429. MarkPropertyChanged(AIndex);
  61430. end;
  61431. Procedure TSP_DataOData__x005f_catalogs_x002f_ltItem.SetOData__CheckinComment(AIndex: Integer; const AValue: string);
  61432. begin
  61433. If (FOData__CheckinComment=AValue) then exit;
  61434. FOData__CheckinComment:=AValue;
  61435. MarkPropertyChanged(AIndex);
  61436. end;
  61437. Procedure TSP_DataOData__x005f_catalogs_x002f_ltItem.SetLinkCheckedOutTitle(AIndex: Integer; const AValue: string);
  61438. begin
  61439. If (FLinkCheckedOutTitle=AValue) then exit;
  61440. FLinkCheckedOutTitle:=AValue;
  61441. MarkPropertyChanged(AIndex);
  61442. end;
  61443. Procedure TSP_DataOData__x005f_catalogs_x002f_ltItem.SetModified_x0020_By(AIndex: Integer; const AValue: string);
  61444. begin
  61445. If (FModified_x0020_By=AValue) then exit;
  61446. FModified_x0020_By:=AValue;
  61447. MarkPropertyChanged(AIndex);
  61448. end;
  61449. Procedure TSP_DataOData__x005f_catalogs_x002f_ltItem.SetCreated_x0020_By(AIndex: Integer; const AValue: string);
  61450. begin
  61451. If (FCreated_x0020_By=AValue) then exit;
  61452. FCreated_x0020_By:=AValue;
  61453. MarkPropertyChanged(AIndex);
  61454. end;
  61455. Procedure TSP_DataOData__x005f_catalogs_x002f_ltItem.SetFile_x0020_Type(AIndex: Integer; const AValue: string);
  61456. begin
  61457. If (FFile_x0020_Type=AValue) then exit;
  61458. FFile_x0020_Type:=AValue;
  61459. MarkPropertyChanged(AIndex);
  61460. end;
  61461. Procedure TSP_DataOData__x005f_catalogs_x002f_ltItem.SetHTML_x0020_File_x0020_Type(AIndex: Integer; const AValue: string);
  61462. begin
  61463. If (FHTML_x0020_File_x0020_Type=AValue) then exit;
  61464. FHTML_x0020_File_x0020_Type:=AValue;
  61465. MarkPropertyChanged(AIndex);
  61466. end;
  61467. Procedure TSP_DataOData__x005f_catalogs_x002f_ltItem.SetOData__SourceUrl(AIndex: Integer; const AValue: string);
  61468. begin
  61469. If (FOData__SourceUrl=AValue) then exit;
  61470. FOData__SourceUrl:=AValue;
  61471. MarkPropertyChanged(AIndex);
  61472. end;
  61473. Procedure TSP_DataOData__x005f_catalogs_x002f_ltItem.SetOData__SharedFileIndex(AIndex: Integer; const AValue: string);
  61474. begin
  61475. If (FOData__SharedFileIndex=AValue) then exit;
  61476. FOData__SharedFileIndex:=AValue;
  61477. MarkPropertyChanged(AIndex);
  61478. end;
  61479. Procedure TSP_DataOData__x005f_catalogs_x002f_ltItem.SetOData__EditMenuTableStart(AIndex: Integer; const AValue: string);
  61480. begin
  61481. If (FOData__EditMenuTableStart=AValue) then exit;
  61482. FOData__EditMenuTableStart:=AValue;
  61483. MarkPropertyChanged(AIndex);
  61484. end;
  61485. Procedure TSP_DataOData__x005f_catalogs_x002f_ltItem.SetOData__EditMenuTableStart2(AIndex: Integer; const AValue: string);
  61486. begin
  61487. If (FOData__EditMenuTableStart2=AValue) then exit;
  61488. FOData__EditMenuTableStart2:=AValue;
  61489. MarkPropertyChanged(AIndex);
  61490. end;
  61491. Procedure TSP_DataOData__x005f_catalogs_x002f_ltItem.SetOData__EditMenuTableEnd(AIndex: Integer; const AValue: string);
  61492. begin
  61493. If (FOData__EditMenuTableEnd=AValue) then exit;
  61494. FOData__EditMenuTableEnd:=AValue;
  61495. MarkPropertyChanged(AIndex);
  61496. end;
  61497. Procedure TSP_DataOData__x005f_catalogs_x002f_ltItem.SetLinkFilenameNoMenu(AIndex: Integer; const AValue: string);
  61498. begin
  61499. If (FLinkFilenameNoMenu=AValue) then exit;
  61500. FLinkFilenameNoMenu:=AValue;
  61501. MarkPropertyChanged(AIndex);
  61502. end;
  61503. Procedure TSP_DataOData__x005f_catalogs_x002f_ltItem.SetLinkFilename(AIndex: Integer; const AValue: string);
  61504. begin
  61505. If (FLinkFilename=AValue) then exit;
  61506. FLinkFilename:=AValue;
  61507. MarkPropertyChanged(AIndex);
  61508. end;
  61509. Procedure TSP_DataOData__x005f_catalogs_x002f_ltItem.SetLinkFilename2(AIndex: Integer; const AValue: string);
  61510. begin
  61511. If (FLinkFilename2=AValue) then exit;
  61512. FLinkFilename2:=AValue;
  61513. MarkPropertyChanged(AIndex);
  61514. end;
  61515. Procedure TSP_DataOData__x005f_catalogs_x002f_ltItem.SetDocIcon(AIndex: Integer; const AValue: string);
  61516. begin
  61517. If (FDocIcon=AValue) then exit;
  61518. FDocIcon:=AValue;
  61519. MarkPropertyChanged(AIndex);
  61520. end;
  61521. Procedure TSP_DataOData__x005f_catalogs_x002f_ltItem.SetServerUrl(AIndex: Integer; const AValue: string);
  61522. begin
  61523. If (FServerUrl=AValue) then exit;
  61524. FServerUrl:=AValue;
  61525. MarkPropertyChanged(AIndex);
  61526. end;
  61527. Procedure TSP_DataOData__x005f_catalogs_x002f_ltItem.SetEncodedAbsUrl(AIndex: Integer; const AValue: string);
  61528. begin
  61529. If (FEncodedAbsUrl=AValue) then exit;
  61530. FEncodedAbsUrl:=AValue;
  61531. MarkPropertyChanged(AIndex);
  61532. end;
  61533. Procedure TSP_DataOData__x005f_catalogs_x002f_ltItem.SetBaseName(AIndex: Integer; const AValue: string);
  61534. begin
  61535. If (FBaseName=AValue) then exit;
  61536. FBaseName:=AValue;
  61537. MarkPropertyChanged(AIndex);
  61538. end;
  61539. Procedure TSP_DataOData__x005f_catalogs_x002f_ltItem.SetFileSizeDisplay(AIndex: Integer; const AValue: string);
  61540. begin
  61541. If (FFileSizeDisplay=AValue) then exit;
  61542. FFileSizeDisplay:=AValue;
  61543. MarkPropertyChanged(AIndex);
  61544. end;
  61545. Procedure TSP_DataOData__x005f_catalogs_x002f_ltItem.SetOData__Level(AIndex: Integer; const AValue: TInt32);
  61546. begin
  61547. If (FOData__Level=AValue) then exit;
  61548. FOData__Level:=AValue;
  61549. MarkPropertyChanged(AIndex);
  61550. end;
  61551. Procedure TSP_DataOData__x005f_catalogs_x002f_ltItem.SetOData__IsCurrentVersion(AIndex: Integer; const AValue: boolean);
  61552. begin
  61553. If (FOData__IsCurrentVersion=AValue) then exit;
  61554. FOData__IsCurrentVersion:=AValue;
  61555. MarkPropertyChanged(AIndex);
  61556. end;
  61557. Procedure TSP_DataOData__x005f_catalogs_x002f_ltItem.SetAppAuthorId(AIndex: Integer; const AValue: TInt32);
  61558. begin
  61559. If (FAppAuthorId=AValue) then exit;
  61560. FAppAuthorId:=AValue;
  61561. MarkPropertyChanged(AIndex);
  61562. end;
  61563. Procedure TSP_DataOData__x005f_catalogs_x002f_ltItem.SetAppEditorId(AIndex: Integer; const AValue: TInt32);
  61564. begin
  61565. If (FAppEditorId=AValue) then exit;
  61566. FAppEditorId:=AValue;
  61567. MarkPropertyChanged(AIndex);
  61568. end;
  61569. Procedure TSP_DataOData__x005f_catalogs_x002f_ltItem.SetSelectTitle(AIndex: Integer; const AValue: string);
  61570. begin
  61571. If (FSelectTitle=AValue) then exit;
  61572. FSelectTitle:=AValue;
  61573. MarkPropertyChanged(AIndex);
  61574. end;
  61575. Procedure TSP_DataOData__x005f_catalogs_x002f_ltItem.SetSelectFilename(AIndex: Integer; const AValue: string);
  61576. begin
  61577. If (FSelectFilename=AValue) then exit;
  61578. FSelectFilename:=AValue;
  61579. MarkPropertyChanged(AIndex);
  61580. end;
  61581. Procedure TSP_DataOData__x005f_catalogs_x002f_ltItem.SetEdit(AIndex: Integer; const AValue: string);
  61582. begin
  61583. If (FEdit=AValue) then exit;
  61584. FEdit:=AValue;
  61585. MarkPropertyChanged(AIndex);
  61586. end;
  61587. Procedure TSP_DataOData__x005f_catalogs_x002f_ltItem.Setowshiddenversion(AIndex: Integer; const AValue: TInt32);
  61588. begin
  61589. If (Fowshiddenversion=AValue) then exit;
  61590. Fowshiddenversion:=AValue;
  61591. MarkPropertyChanged(AIndex);
  61592. end;
  61593. Procedure TSP_DataOData__x005f_catalogs_x002f_ltItem.SetOData__UIVersion(AIndex: Integer; const AValue: TInt32);
  61594. begin
  61595. If (FOData__UIVersion=AValue) then exit;
  61596. FOData__UIVersion:=AValue;
  61597. MarkPropertyChanged(AIndex);
  61598. end;
  61599. Procedure TSP_DataOData__x005f_catalogs_x002f_ltItem.SetOData__UIVersionString(AIndex: Integer; const AValue: string);
  61600. begin
  61601. If (FOData__UIVersionString=AValue) then exit;
  61602. FOData__UIVersionString:=AValue;
  61603. MarkPropertyChanged(AIndex);
  61604. end;
  61605. Procedure TSP_DataOData__x005f_catalogs_x002f_ltItem.SetInstanceID(AIndex: Integer; const AValue: TInt32);
  61606. begin
  61607. If (FInstanceID=AValue) then exit;
  61608. FInstanceID:=AValue;
  61609. MarkPropertyChanged(AIndex);
  61610. end;
  61611. Procedure TSP_DataOData__x005f_catalogs_x002f_ltItem.SetOrder(AIndex: Integer; const AValue: Double);
  61612. begin
  61613. If (FOrder=AValue) then exit;
  61614. FOrder:=AValue;
  61615. MarkPropertyChanged(AIndex);
  61616. end;
  61617. Procedure TSP_DataOData__x005f_catalogs_x002f_ltItem.SetGUID(AIndex: Integer; const AValue: TGUIDString);
  61618. begin
  61619. If (FGUID=AValue) then exit;
  61620. FGUID:=AValue;
  61621. MarkPropertyChanged(AIndex);
  61622. end;
  61623. Procedure TSP_DataOData__x005f_catalogs_x002f_ltItem.SetWorkflowVersion(AIndex: Integer; const AValue: TInt32);
  61624. begin
  61625. If (FWorkflowVersion=AValue) then exit;
  61626. FWorkflowVersion:=AValue;
  61627. MarkPropertyChanged(AIndex);
  61628. end;
  61629. Procedure TSP_DataOData__x005f_catalogs_x002f_ltItem.SetWorkflowInstanceID(AIndex: Integer; const AValue: TGUIDString);
  61630. begin
  61631. If (FWorkflowInstanceID=AValue) then exit;
  61632. FWorkflowInstanceID:=AValue;
  61633. MarkPropertyChanged(AIndex);
  61634. end;
  61635. Procedure TSP_DataOData__x005f_catalogs_x002f_ltItem.SetTemplateTitle(AIndex: Integer; const AValue: string);
  61636. begin
  61637. If (FTemplateTitle=AValue) then exit;
  61638. FTemplateTitle:=AValue;
  61639. MarkPropertyChanged(AIndex);
  61640. end;
  61641. Procedure TSP_DataOData__x005f_catalogs_x002f_ltItem.SetTemplateDescription(AIndex: Integer; const AValue: string);
  61642. begin
  61643. If (FTemplateDescription=AValue) then exit;
  61644. FTemplateDescription:=AValue;
  61645. MarkPropertyChanged(AIndex);
  61646. end;
  61647. Procedure TSP_DataOData__x005f_catalogs_x002f_ltItem.SetTemplateID(AIndex: Integer; const AValue: string);
  61648. begin
  61649. If (FTemplateID=AValue) then exit;
  61650. FTemplateID:=AValue;
  61651. MarkPropertyChanged(AIndex);
  61652. end;
  61653. Procedure TSP_DataOData__x005f_catalogs_x002f_ltItem.SetLanguage(AIndex: Integer; const AValue: TInt32);
  61654. begin
  61655. If (FLanguage=AValue) then exit;
  61656. FLanguage:=AValue;
  61657. MarkPropertyChanged(AIndex);
  61658. end;
  61659. Procedure TSP_DataOData__x005f_catalogs_x002f_ltItem.SetTemplateType(AIndex: Integer; const AValue: TInt32);
  61660. begin
  61661. If (FTemplateType=AValue) then exit;
  61662. FTemplateType:=AValue;
  61663. MarkPropertyChanged(AIndex);
  61664. end;
  61665. Procedure TSP_DataOData__x005f_catalogs_x002f_ltItem.SetBaseType(AIndex: Integer; const AValue: TInt32);
  61666. begin
  61667. If (FBaseType=AValue) then exit;
  61668. FBaseType:=AValue;
  61669. MarkPropertyChanged(AIndex);
  61670. end;
  61671. Procedure TSP_DataOData__x005f_catalogs_x002f_ltItem.SetSubType(AIndex: Integer; const AValue: TInt32);
  61672. begin
  61673. If (FSubType=AValue) then exit;
  61674. FSubType:=AValue;
  61675. MarkPropertyChanged(AIndex);
  61676. end;
  61677. Procedure TSP_DataOData__x005f_catalogs_x002f_ltItem.SetHidden(AIndex: Integer; const AValue: boolean);
  61678. begin
  61679. If (FHidden=AValue) then exit;
  61680. FHidden:=AValue;
  61681. MarkPropertyChanged(AIndex);
  61682. end;
  61683. Procedure TSP_DataOData__x005f_catalogs_x002f_ltItem.SetMajorVersion(AIndex: Integer; const AValue: Double);
  61684. begin
  61685. If (FMajorVersion=AValue) then exit;
  61686. FMajorVersion:=AValue;
  61687. MarkPropertyChanged(AIndex);
  61688. end;
  61689. Procedure TSP_DataOData__x005f_catalogs_x002f_ltItem.SetFeatureID(AIndex: Integer; const AValue: TGUIDString);
  61690. begin
  61691. If (FFeatureID=AValue) then exit;
  61692. FFeatureID:=AValue;
  61693. MarkPropertyChanged(AIndex);
  61694. end;
  61695. Procedure TSP_DataOData__x005f_catalogs_x002f_ltItem.SetLanguageDisplay(AIndex: Integer; const AValue: string);
  61696. begin
  61697. If (FLanguageDisplay=AValue) then exit;
  61698. FLanguageDisplay:=AValue;
  61699. MarkPropertyChanged(AIndex);
  61700. end;
  61701. Function TSP_DataOData__x005f_catalogs_x002f_ltItem.Author(AService: TODataService) : TSP_DataUserInfoItem;
  61702. begin
  61703. Result:=TSP_DataUserInfoItem(GetContainedSingleTon(AService,'Author', TSP_DataUserInfoItem));
  61704. end;
  61705. Function TSP_DataOData__x005f_catalogs_x002f_ltItem.Editor(AService: TODataService) : TSP_DataUserInfoItem;
  61706. begin
  61707. Result:=TSP_DataUserInfoItem(GetContainedSingleTon(AService,'Editor', TSP_DataUserInfoItem));
  61708. end;
  61709. Function TSP_DataOData__x005f_catalogs_x002f_ltItem.CheckoutUser(AService: TODataService) : TSP_DataUserInfoItem;
  61710. begin
  61711. Result:=TSP_DataUserInfoItem(GetContainedSingleTon(AService,'CheckoutUser', TSP_DataUserInfoItem));
  61712. end;
  61713. { --------------------------------------------------------------------
  61714. TSP_DataOData__x005f_catalogs_x002f_MaintenanceLogsItem
  61715. --------------------------------------------------------------------}
  61716. Class Function TSP_DataOData__x005f_catalogs_x002f_MaintenanceLogsItem.ObjectRestKind : String;
  61717. begin
  61718. Result:='OData__x005f_catalogs_x002f_MaintenanceLogsItem';
  61719. end;
  61720. Procedure TSP_DataOData__x005f_catalogs_x002f_MaintenanceLogsItem.SetContentTypeId(AIndex: Integer; const AValue: string);
  61721. begin
  61722. If (FContentTypeId=AValue) then exit;
  61723. FContentTypeId:=AValue;
  61724. MarkPropertyChanged(AIndex);
  61725. end;
  61726. Procedure TSP_DataOData__x005f_catalogs_x002f_MaintenanceLogsItem.SetCreated(AIndex: Integer; const AValue: TDateTime);
  61727. begin
  61728. If (FCreated=AValue) then exit;
  61729. FCreated:=AValue;
  61730. MarkPropertyChanged(AIndex);
  61731. end;
  61732. Procedure TSP_DataOData__x005f_catalogs_x002f_MaintenanceLogsItem.SetAuthorId(AIndex: Integer; const AValue: TInt32);
  61733. begin
  61734. If (FAuthorId=AValue) then exit;
  61735. FAuthorId:=AValue;
  61736. MarkPropertyChanged(AIndex);
  61737. end;
  61738. Procedure TSP_DataOData__x005f_catalogs_x002f_MaintenanceLogsItem.SetModified(AIndex: Integer; const AValue: TDateTime);
  61739. begin
  61740. If (FModified=AValue) then exit;
  61741. FModified:=AValue;
  61742. MarkPropertyChanged(AIndex);
  61743. end;
  61744. Procedure TSP_DataOData__x005f_catalogs_x002f_MaintenanceLogsItem.SetEditorId(AIndex: Integer; const AValue: TInt32);
  61745. begin
  61746. If (FEditorId=AValue) then exit;
  61747. FEditorId:=AValue;
  61748. MarkPropertyChanged(AIndex);
  61749. end;
  61750. Procedure TSP_DataOData__x005f_catalogs_x002f_MaintenanceLogsItem.SetOData__HasCopyDestinations(AIndex: Integer; const AValue: boolean);
  61751. begin
  61752. If (FOData__HasCopyDestinations=AValue) then exit;
  61753. FOData__HasCopyDestinations:=AValue;
  61754. MarkPropertyChanged(AIndex);
  61755. end;
  61756. Procedure TSP_DataOData__x005f_catalogs_x002f_MaintenanceLogsItem.SetOData__CopySource(AIndex: Integer; const AValue: string);
  61757. begin
  61758. If (FOData__CopySource=AValue) then exit;
  61759. FOData__CopySource:=AValue;
  61760. MarkPropertyChanged(AIndex);
  61761. end;
  61762. Procedure TSP_DataOData__x005f_catalogs_x002f_MaintenanceLogsItem.SetOData__ModerationStatus(AIndex: Integer; const AValue: TInt32);
  61763. begin
  61764. If (FOData__ModerationStatus=AValue) then exit;
  61765. FOData__ModerationStatus:=AValue;
  61766. MarkPropertyChanged(AIndex);
  61767. end;
  61768. Procedure TSP_DataOData__x005f_catalogs_x002f_MaintenanceLogsItem.SetOData__ModerationComments(AIndex: Integer; const AValue: string);
  61769. begin
  61770. If (FOData__ModerationComments=AValue) then exit;
  61771. FOData__ModerationComments:=AValue;
  61772. MarkPropertyChanged(AIndex);
  61773. end;
  61774. Procedure TSP_DataOData__x005f_catalogs_x002f_MaintenanceLogsItem.SetFileRef(AIndex: Integer; const AValue: string);
  61775. begin
  61776. If (FFileRef=AValue) then exit;
  61777. FFileRef:=AValue;
  61778. MarkPropertyChanged(AIndex);
  61779. end;
  61780. Procedure TSP_DataOData__x005f_catalogs_x002f_MaintenanceLogsItem.SetFileDirRef(AIndex: Integer; const AValue: string);
  61781. begin
  61782. If (FFileDirRef=AValue) then exit;
  61783. FFileDirRef:=AValue;
  61784. MarkPropertyChanged(AIndex);
  61785. end;
  61786. Procedure TSP_DataOData__x005f_catalogs_x002f_MaintenanceLogsItem.SetLast_x0020_Modified(AIndex: Integer; const AValue: TDateTime);
  61787. begin
  61788. If (FLast_x0020_Modified=AValue) then exit;
  61789. FLast_x0020_Modified:=AValue;
  61790. MarkPropertyChanged(AIndex);
  61791. end;
  61792. Procedure TSP_DataOData__x005f_catalogs_x002f_MaintenanceLogsItem.SetCreated_x0020_Date(AIndex: Integer; const AValue: TDateTime);
  61793. begin
  61794. If (FCreated_x0020_Date=AValue) then exit;
  61795. FCreated_x0020_Date:=AValue;
  61796. MarkPropertyChanged(AIndex);
  61797. end;
  61798. Procedure TSP_DataOData__x005f_catalogs_x002f_MaintenanceLogsItem.SetFSObjType(AIndex: Integer; const AValue: TInt32);
  61799. begin
  61800. If (FFSObjType=AValue) then exit;
  61801. FFSObjType:=AValue;
  61802. MarkPropertyChanged(AIndex);
  61803. end;
  61804. Procedure TSP_DataOData__x005f_catalogs_x002f_MaintenanceLogsItem.SetPermMask(AIndex: Integer; const AValue: string);
  61805. begin
  61806. If (FPermMask=AValue) then exit;
  61807. FPermMask:=AValue;
  61808. MarkPropertyChanged(AIndex);
  61809. end;
  61810. Procedure TSP_DataOData__x005f_catalogs_x002f_MaintenanceLogsItem.SetCheckoutUserId(AIndex: Integer; const AValue: TInt32);
  61811. begin
  61812. If (FCheckoutUserId=AValue) then exit;
  61813. FCheckoutUserId:=AValue;
  61814. MarkPropertyChanged(AIndex);
  61815. end;
  61816. Procedure TSP_DataOData__x005f_catalogs_x002f_MaintenanceLogsItem.SetFileLeafRef(AIndex: Integer; const AValue: string);
  61817. begin
  61818. If (FFileLeafRef=AValue) then exit;
  61819. FFileLeafRef:=AValue;
  61820. MarkPropertyChanged(AIndex);
  61821. end;
  61822. Procedure TSP_DataOData__x005f_catalogs_x002f_MaintenanceLogsItem.SetUniqueId(AIndex: Integer; const AValue: TGUIDString);
  61823. begin
  61824. If (FUniqueId=AValue) then exit;
  61825. FUniqueId:=AValue;
  61826. MarkPropertyChanged(AIndex);
  61827. end;
  61828. Procedure TSP_DataOData__x005f_catalogs_x002f_MaintenanceLogsItem.SetOData__CheckinComment(AIndex: Integer; const AValue: string);
  61829. begin
  61830. If (FOData__CheckinComment=AValue) then exit;
  61831. FOData__CheckinComment:=AValue;
  61832. MarkPropertyChanged(AIndex);
  61833. end;
  61834. Procedure TSP_DataOData__x005f_catalogs_x002f_MaintenanceLogsItem.SetLinkCheckedOutTitle(AIndex: Integer; const AValue: string);
  61835. begin
  61836. If (FLinkCheckedOutTitle=AValue) then exit;
  61837. FLinkCheckedOutTitle:=AValue;
  61838. MarkPropertyChanged(AIndex);
  61839. end;
  61840. Procedure TSP_DataOData__x005f_catalogs_x002f_MaintenanceLogsItem.SetModified_x0020_By(AIndex: Integer; const AValue: string);
  61841. begin
  61842. If (FModified_x0020_By=AValue) then exit;
  61843. FModified_x0020_By:=AValue;
  61844. MarkPropertyChanged(AIndex);
  61845. end;
  61846. Procedure TSP_DataOData__x005f_catalogs_x002f_MaintenanceLogsItem.SetCreated_x0020_By(AIndex: Integer; const AValue: string);
  61847. begin
  61848. If (FCreated_x0020_By=AValue) then exit;
  61849. FCreated_x0020_By:=AValue;
  61850. MarkPropertyChanged(AIndex);
  61851. end;
  61852. Procedure TSP_DataOData__x005f_catalogs_x002f_MaintenanceLogsItem.SetFile_x0020_Type(AIndex: Integer; const AValue: string);
  61853. begin
  61854. If (FFile_x0020_Type=AValue) then exit;
  61855. FFile_x0020_Type:=AValue;
  61856. MarkPropertyChanged(AIndex);
  61857. end;
  61858. Procedure TSP_DataOData__x005f_catalogs_x002f_MaintenanceLogsItem.SetHTML_x0020_File_x0020_Type(AIndex: Integer; const AValue: string);
  61859. begin
  61860. If (FHTML_x0020_File_x0020_Type=AValue) then exit;
  61861. FHTML_x0020_File_x0020_Type:=AValue;
  61862. MarkPropertyChanged(AIndex);
  61863. end;
  61864. Procedure TSP_DataOData__x005f_catalogs_x002f_MaintenanceLogsItem.SetOData__SourceUrl(AIndex: Integer; const AValue: string);
  61865. begin
  61866. If (FOData__SourceUrl=AValue) then exit;
  61867. FOData__SourceUrl:=AValue;
  61868. MarkPropertyChanged(AIndex);
  61869. end;
  61870. Procedure TSP_DataOData__x005f_catalogs_x002f_MaintenanceLogsItem.SetOData__SharedFileIndex(AIndex: Integer; const AValue: string);
  61871. begin
  61872. If (FOData__SharedFileIndex=AValue) then exit;
  61873. FOData__SharedFileIndex:=AValue;
  61874. MarkPropertyChanged(AIndex);
  61875. end;
  61876. Procedure TSP_DataOData__x005f_catalogs_x002f_MaintenanceLogsItem.SetOData__EditMenuTableStart(AIndex: Integer; const AValue: string);
  61877. begin
  61878. If (FOData__EditMenuTableStart=AValue) then exit;
  61879. FOData__EditMenuTableStart:=AValue;
  61880. MarkPropertyChanged(AIndex);
  61881. end;
  61882. Procedure TSP_DataOData__x005f_catalogs_x002f_MaintenanceLogsItem.SetOData__EditMenuTableStart2(AIndex: Integer; const AValue: string);
  61883. begin
  61884. If (FOData__EditMenuTableStart2=AValue) then exit;
  61885. FOData__EditMenuTableStart2:=AValue;
  61886. MarkPropertyChanged(AIndex);
  61887. end;
  61888. Procedure TSP_DataOData__x005f_catalogs_x002f_MaintenanceLogsItem.SetOData__EditMenuTableEnd(AIndex: Integer; const AValue: string);
  61889. begin
  61890. If (FOData__EditMenuTableEnd=AValue) then exit;
  61891. FOData__EditMenuTableEnd:=AValue;
  61892. MarkPropertyChanged(AIndex);
  61893. end;
  61894. Procedure TSP_DataOData__x005f_catalogs_x002f_MaintenanceLogsItem.SetLinkFilenameNoMenu(AIndex: Integer; const AValue: string);
  61895. begin
  61896. If (FLinkFilenameNoMenu=AValue) then exit;
  61897. FLinkFilenameNoMenu:=AValue;
  61898. MarkPropertyChanged(AIndex);
  61899. end;
  61900. Procedure TSP_DataOData__x005f_catalogs_x002f_MaintenanceLogsItem.SetLinkFilename(AIndex: Integer; const AValue: string);
  61901. begin
  61902. If (FLinkFilename=AValue) then exit;
  61903. FLinkFilename:=AValue;
  61904. MarkPropertyChanged(AIndex);
  61905. end;
  61906. Procedure TSP_DataOData__x005f_catalogs_x002f_MaintenanceLogsItem.SetLinkFilename2(AIndex: Integer; const AValue: string);
  61907. begin
  61908. If (FLinkFilename2=AValue) then exit;
  61909. FLinkFilename2:=AValue;
  61910. MarkPropertyChanged(AIndex);
  61911. end;
  61912. Procedure TSP_DataOData__x005f_catalogs_x002f_MaintenanceLogsItem.SetDocIcon(AIndex: Integer; const AValue: string);
  61913. begin
  61914. If (FDocIcon=AValue) then exit;
  61915. FDocIcon:=AValue;
  61916. MarkPropertyChanged(AIndex);
  61917. end;
  61918. Procedure TSP_DataOData__x005f_catalogs_x002f_MaintenanceLogsItem.SetServerUrl(AIndex: Integer; const AValue: string);
  61919. begin
  61920. If (FServerUrl=AValue) then exit;
  61921. FServerUrl:=AValue;
  61922. MarkPropertyChanged(AIndex);
  61923. end;
  61924. Procedure TSP_DataOData__x005f_catalogs_x002f_MaintenanceLogsItem.SetEncodedAbsUrl(AIndex: Integer; const AValue: string);
  61925. begin
  61926. If (FEncodedAbsUrl=AValue) then exit;
  61927. FEncodedAbsUrl:=AValue;
  61928. MarkPropertyChanged(AIndex);
  61929. end;
  61930. Procedure TSP_DataOData__x005f_catalogs_x002f_MaintenanceLogsItem.SetBaseName(AIndex: Integer; const AValue: string);
  61931. begin
  61932. If (FBaseName=AValue) then exit;
  61933. FBaseName:=AValue;
  61934. MarkPropertyChanged(AIndex);
  61935. end;
  61936. Procedure TSP_DataOData__x005f_catalogs_x002f_MaintenanceLogsItem.SetFileSizeDisplay(AIndex: Integer; const AValue: string);
  61937. begin
  61938. If (FFileSizeDisplay=AValue) then exit;
  61939. FFileSizeDisplay:=AValue;
  61940. MarkPropertyChanged(AIndex);
  61941. end;
  61942. Procedure TSP_DataOData__x005f_catalogs_x002f_MaintenanceLogsItem.SetOData__Level(AIndex: Integer; const AValue: TInt32);
  61943. begin
  61944. If (FOData__Level=AValue) then exit;
  61945. FOData__Level:=AValue;
  61946. MarkPropertyChanged(AIndex);
  61947. end;
  61948. Procedure TSP_DataOData__x005f_catalogs_x002f_MaintenanceLogsItem.SetOData__IsCurrentVersion(AIndex: Integer; const AValue: boolean);
  61949. begin
  61950. If (FOData__IsCurrentVersion=AValue) then exit;
  61951. FOData__IsCurrentVersion:=AValue;
  61952. MarkPropertyChanged(AIndex);
  61953. end;
  61954. Procedure TSP_DataOData__x005f_catalogs_x002f_MaintenanceLogsItem.SetAppAuthorId(AIndex: Integer; const AValue: TInt32);
  61955. begin
  61956. If (FAppAuthorId=AValue) then exit;
  61957. FAppAuthorId:=AValue;
  61958. MarkPropertyChanged(AIndex);
  61959. end;
  61960. Procedure TSP_DataOData__x005f_catalogs_x002f_MaintenanceLogsItem.SetAppEditorId(AIndex: Integer; const AValue: TInt32);
  61961. begin
  61962. If (FAppEditorId=AValue) then exit;
  61963. FAppEditorId:=AValue;
  61964. MarkPropertyChanged(AIndex);
  61965. end;
  61966. Procedure TSP_DataOData__x005f_catalogs_x002f_MaintenanceLogsItem.SetSelectTitle(AIndex: Integer; const AValue: string);
  61967. begin
  61968. If (FSelectTitle=AValue) then exit;
  61969. FSelectTitle:=AValue;
  61970. MarkPropertyChanged(AIndex);
  61971. end;
  61972. Procedure TSP_DataOData__x005f_catalogs_x002f_MaintenanceLogsItem.SetSelectFilename(AIndex: Integer; const AValue: string);
  61973. begin
  61974. If (FSelectFilename=AValue) then exit;
  61975. FSelectFilename:=AValue;
  61976. MarkPropertyChanged(AIndex);
  61977. end;
  61978. Procedure TSP_DataOData__x005f_catalogs_x002f_MaintenanceLogsItem.SetEdit(AIndex: Integer; const AValue: string);
  61979. begin
  61980. If (FEdit=AValue) then exit;
  61981. FEdit:=AValue;
  61982. MarkPropertyChanged(AIndex);
  61983. end;
  61984. Procedure TSP_DataOData__x005f_catalogs_x002f_MaintenanceLogsItem.Setowshiddenversion(AIndex: Integer; const AValue: TInt32);
  61985. begin
  61986. If (Fowshiddenversion=AValue) then exit;
  61987. Fowshiddenversion:=AValue;
  61988. MarkPropertyChanged(AIndex);
  61989. end;
  61990. Procedure TSP_DataOData__x005f_catalogs_x002f_MaintenanceLogsItem.SetOData__UIVersion(AIndex: Integer; const AValue: TInt32);
  61991. begin
  61992. If (FOData__UIVersion=AValue) then exit;
  61993. FOData__UIVersion:=AValue;
  61994. MarkPropertyChanged(AIndex);
  61995. end;
  61996. Procedure TSP_DataOData__x005f_catalogs_x002f_MaintenanceLogsItem.SetOData__UIVersionString(AIndex: Integer; const AValue: string);
  61997. begin
  61998. If (FOData__UIVersionString=AValue) then exit;
  61999. FOData__UIVersionString:=AValue;
  62000. MarkPropertyChanged(AIndex);
  62001. end;
  62002. Procedure TSP_DataOData__x005f_catalogs_x002f_MaintenanceLogsItem.SetInstanceID(AIndex: Integer; const AValue: TInt32);
  62003. begin
  62004. If (FInstanceID=AValue) then exit;
  62005. FInstanceID:=AValue;
  62006. MarkPropertyChanged(AIndex);
  62007. end;
  62008. Procedure TSP_DataOData__x005f_catalogs_x002f_MaintenanceLogsItem.SetOrder(AIndex: Integer; const AValue: Double);
  62009. begin
  62010. If (FOrder=AValue) then exit;
  62011. FOrder:=AValue;
  62012. MarkPropertyChanged(AIndex);
  62013. end;
  62014. Procedure TSP_DataOData__x005f_catalogs_x002f_MaintenanceLogsItem.SetGUID(AIndex: Integer; const AValue: TGUIDString);
  62015. begin
  62016. If (FGUID=AValue) then exit;
  62017. FGUID:=AValue;
  62018. MarkPropertyChanged(AIndex);
  62019. end;
  62020. Procedure TSP_DataOData__x005f_catalogs_x002f_MaintenanceLogsItem.SetWorkflowVersion(AIndex: Integer; const AValue: TInt32);
  62021. begin
  62022. If (FWorkflowVersion=AValue) then exit;
  62023. FWorkflowVersion:=AValue;
  62024. MarkPropertyChanged(AIndex);
  62025. end;
  62026. Procedure TSP_DataOData__x005f_catalogs_x002f_MaintenanceLogsItem.SetWorkflowInstanceID(AIndex: Integer; const AValue: TGUIDString);
  62027. begin
  62028. If (FWorkflowInstanceID=AValue) then exit;
  62029. FWorkflowInstanceID:=AValue;
  62030. MarkPropertyChanged(AIndex);
  62031. end;
  62032. Function TSP_DataOData__x005f_catalogs_x002f_MaintenanceLogsItem.Author(AService: TODataService) : TSP_DataUserInfoItem;
  62033. begin
  62034. Result:=TSP_DataUserInfoItem(GetContainedSingleTon(AService,'Author', TSP_DataUserInfoItem));
  62035. end;
  62036. Function TSP_DataOData__x005f_catalogs_x002f_MaintenanceLogsItem.Editor(AService: TODataService) : TSP_DataUserInfoItem;
  62037. begin
  62038. Result:=TSP_DataUserInfoItem(GetContainedSingleTon(AService,'Editor', TSP_DataUserInfoItem));
  62039. end;
  62040. Function TSP_DataOData__x005f_catalogs_x002f_MaintenanceLogsItem.CheckoutUser(AService: TODataService) : TSP_DataUserInfoItem;
  62041. begin
  62042. Result:=TSP_DataUserInfoItem(GetContainedSingleTon(AService,'CheckoutUser', TSP_DataUserInfoItem));
  62043. end;
  62044. { --------------------------------------------------------------------
  62045. TSP_DataOData__x005f_catalogs_x002f_masterpageItem
  62046. --------------------------------------------------------------------}
  62047. Class Function TSP_DataOData__x005f_catalogs_x002f_masterpageItem.ObjectRestKind : String;
  62048. begin
  62049. Result:='OData__x005f_catalogs_x002f_masterpageItem';
  62050. end;
  62051. Procedure TSP_DataOData__x005f_catalogs_x002f_masterpageItem.SetContentTypeId(AIndex: Integer; const AValue: string);
  62052. begin
  62053. If (FContentTypeId=AValue) then exit;
  62054. FContentTypeId:=AValue;
  62055. MarkPropertyChanged(AIndex);
  62056. end;
  62057. Procedure TSP_DataOData__x005f_catalogs_x002f_masterpageItem.SetOData__ModerationComments(AIndex: Integer; const AValue: string);
  62058. begin
  62059. If (FOData__ModerationComments=AValue) then exit;
  62060. FOData__ModerationComments:=AValue;
  62061. MarkPropertyChanged(AIndex);
  62062. end;
  62063. Procedure TSP_DataOData__x005f_catalogs_x002f_masterpageItem.SetFileLeafRef(AIndex: Integer; const AValue: string);
  62064. begin
  62065. If (FFileLeafRef=AValue) then exit;
  62066. FFileLeafRef:=AValue;
  62067. MarkPropertyChanged(AIndex);
  62068. end;
  62069. Procedure TSP_DataOData__x005f_catalogs_x002f_masterpageItem.SetModified_x0020_By(AIndex: Integer; const AValue: string);
  62070. begin
  62071. If (FModified_x0020_By=AValue) then exit;
  62072. FModified_x0020_By:=AValue;
  62073. MarkPropertyChanged(AIndex);
  62074. end;
  62075. Procedure TSP_DataOData__x005f_catalogs_x002f_masterpageItem.SetCreated_x0020_By(AIndex: Integer; const AValue: string);
  62076. begin
  62077. If (FCreated_x0020_By=AValue) then exit;
  62078. FCreated_x0020_By:=AValue;
  62079. MarkPropertyChanged(AIndex);
  62080. end;
  62081. Procedure TSP_DataOData__x005f_catalogs_x002f_masterpageItem.SetFile_x0020_Type(AIndex: Integer; const AValue: string);
  62082. begin
  62083. If (FFile_x0020_Type=AValue) then exit;
  62084. FFile_x0020_Type:=AValue;
  62085. MarkPropertyChanged(AIndex);
  62086. end;
  62087. Procedure TSP_DataOData__x005f_catalogs_x002f_masterpageItem.SetHTML_x0020_File_x0020_Type(AIndex: Integer; const AValue: string);
  62088. begin
  62089. If (FHTML_x0020_File_x0020_Type=AValue) then exit;
  62090. FHTML_x0020_File_x0020_Type:=AValue;
  62091. MarkPropertyChanged(AIndex);
  62092. end;
  62093. Procedure TSP_DataOData__x005f_catalogs_x002f_masterpageItem.SetOData__SourceUrl(AIndex: Integer; const AValue: string);
  62094. begin
  62095. If (FOData__SourceUrl=AValue) then exit;
  62096. FOData__SourceUrl:=AValue;
  62097. MarkPropertyChanged(AIndex);
  62098. end;
  62099. Procedure TSP_DataOData__x005f_catalogs_x002f_masterpageItem.SetOData__SharedFileIndex(AIndex: Integer; const AValue: string);
  62100. begin
  62101. If (FOData__SharedFileIndex=AValue) then exit;
  62102. FOData__SharedFileIndex:=AValue;
  62103. MarkPropertyChanged(AIndex);
  62104. end;
  62105. Procedure TSP_DataOData__x005f_catalogs_x002f_masterpageItem.SetMasterPageDescription(AIndex: Integer; const AValue: string);
  62106. begin
  62107. If (FMasterPageDescription=AValue) then exit;
  62108. FMasterPageDescription:=AValue;
  62109. MarkPropertyChanged(AIndex);
  62110. end;
  62111. Procedure TSP_DataOData__x005f_catalogs_x002f_masterpageItem.SetUIVersion(AIndex: Integer; const AValue: TStringArray);
  62112. begin
  62113. If (FUIVersion=AValue) then exit;
  62114. FUIVersion:=AValue;
  62115. MarkPropertyChanged(AIndex);
  62116. end;
  62117. Procedure TSP_DataOData__x005f_catalogs_x002f_masterpageItem.SetDefaultCssFile(AIndex: Integer; const AValue: string);
  62118. begin
  62119. If (FDefaultCssFile=AValue) then exit;
  62120. FDefaultCssFile:=AValue;
  62121. MarkPropertyChanged(AIndex);
  62122. end;
  62123. Procedure TSP_DataOData__x005f_catalogs_x002f_masterpageItem.SetDisplayTemplateJSTemplateHidden(AIndex: Integer; const AValue: boolean);
  62124. begin
  62125. If (FDisplayTemplateJSTemplateHidden=AValue) then exit;
  62126. FDisplayTemplateJSTemplateHidden:=AValue;
  62127. MarkPropertyChanged(AIndex);
  62128. end;
  62129. Procedure TSP_DataOData__x005f_catalogs_x002f_masterpageItem.SetDisplayTemplateJSTargetControlType(AIndex: Integer; const AValue: string);
  62130. begin
  62131. If (FDisplayTemplateJSTargetControlType=AValue) then exit;
  62132. FDisplayTemplateJSTargetControlType:=AValue;
  62133. MarkPropertyChanged(AIndex);
  62134. end;
  62135. Procedure TSP_DataOData__x005f_catalogs_x002f_masterpageItem.SetDisplayTemplateJSIconUrl(AIndex: Integer; const AValue: TSPFieldUrlValue);
  62136. begin
  62137. If (FDisplayTemplateJSIconUrl=AValue) then exit;
  62138. FDisplayTemplateJSIconUrl:=AValue;
  62139. MarkPropertyChanged(AIndex);
  62140. end;
  62141. Procedure TSP_DataOData__x005f_catalogs_x002f_masterpageItem.SetDisplayTemplateJSTemplateType(AIndex: Integer; const AValue: string);
  62142. begin
  62143. If (FDisplayTemplateJSTemplateType=AValue) then exit;
  62144. FDisplayTemplateJSTemplateType:=AValue;
  62145. MarkPropertyChanged(AIndex);
  62146. end;
  62147. Procedure TSP_DataOData__x005f_catalogs_x002f_masterpageItem.SetDisplayTemplateJSTargetScope(AIndex: Integer; const AValue: string);
  62148. begin
  62149. If (FDisplayTemplateJSTargetScope=AValue) then exit;
  62150. FDisplayTemplateJSTargetScope:=AValue;
  62151. MarkPropertyChanged(AIndex);
  62152. end;
  62153. Procedure TSP_DataOData__x005f_catalogs_x002f_masterpageItem.SetDisplayTemplateJSTargetListTemplate(AIndex: Integer; const AValue: string);
  62154. begin
  62155. If (FDisplayTemplateJSTargetListTemplate=AValue) then exit;
  62156. FDisplayTemplateJSTargetListTemplate:=AValue;
  62157. MarkPropertyChanged(AIndex);
  62158. end;
  62159. Procedure TSP_DataOData__x005f_catalogs_x002f_masterpageItem.SetDisplayTemplateJSTargetContentType(AIndex: Integer; const AValue: string);
  62160. begin
  62161. If (FDisplayTemplateJSTargetContentType=AValue) then exit;
  62162. FDisplayTemplateJSTargetContentType:=AValue;
  62163. MarkPropertyChanged(AIndex);
  62164. end;
  62165. Procedure TSP_DataOData__x005f_catalogs_x002f_masterpageItem.SetDisplayTemplateJSConfigurationUrl(AIndex: Integer; const AValue: TSPFieldUrlValue);
  62166. begin
  62167. If (FDisplayTemplateJSConfigurationUrl=AValue) then exit;
  62168. FDisplayTemplateJSConfigurationUrl:=AValue;
  62169. MarkPropertyChanged(AIndex);
  62170. end;
  62171. Procedure TSP_DataOData__x005f_catalogs_x002f_masterpageItem.SetTitle(AIndex: Integer; const AValue: string);
  62172. begin
  62173. If (FTitle=AValue) then exit;
  62174. FTitle:=AValue;
  62175. MarkPropertyChanged(AIndex);
  62176. end;
  62177. Procedure TSP_DataOData__x005f_catalogs_x002f_masterpageItem.SetTemplateHidden(AIndex: Integer; const AValue: boolean);
  62178. begin
  62179. If (FTemplateHidden=AValue) then exit;
  62180. FTemplateHidden:=AValue;
  62181. MarkPropertyChanged(AIndex);
  62182. end;
  62183. Procedure TSP_DataOData__x005f_catalogs_x002f_masterpageItem.SetTargetControlType(AIndex: Integer; const AValue: TStringArray);
  62184. begin
  62185. If (FTargetControlType=AValue) then exit;
  62186. FTargetControlType:=AValue;
  62187. MarkPropertyChanged(AIndex);
  62188. end;
  62189. Procedure TSP_DataOData__x005f_catalogs_x002f_masterpageItem.SetCrawlerXSLFile(AIndex: Integer; const AValue: TSPFieldUrlValue);
  62190. begin
  62191. If (FCrawlerXSLFile=AValue) then exit;
  62192. FCrawlerXSLFile:=AValue;
  62193. MarkPropertyChanged(AIndex);
  62194. end;
  62195. Procedure TSP_DataOData__x005f_catalogs_x002f_masterpageItem.SetDisplayTemplateLevel(AIndex: Integer; const AValue: string);
  62196. begin
  62197. If (FDisplayTemplateLevel=AValue) then exit;
  62198. FDisplayTemplateLevel:=AValue;
  62199. MarkPropertyChanged(AIndex);
  62200. end;
  62201. Procedure TSP_DataOData__x005f_catalogs_x002f_masterpageItem.SetManagedPropertyMapping(AIndex: Integer; const AValue: string);
  62202. begin
  62203. If (FManagedPropertyMapping=AValue) then exit;
  62204. FManagedPropertyMapping:=AValue;
  62205. MarkPropertyChanged(AIndex);
  62206. end;
  62207. Procedure TSP_DataOData__x005f_catalogs_x002f_masterpageItem.SetCompatibleSearchDataTypes(AIndex: Integer; const AValue: TStringArray);
  62208. begin
  62209. If (FCompatibleSearchDataTypes=AValue) then exit;
  62210. FCompatibleSearchDataTypes:=AValue;
  62211. MarkPropertyChanged(AIndex);
  62212. end;
  62213. Procedure TSP_DataOData__x005f_catalogs_x002f_masterpageItem.SetCompatibleManagedProperties(AIndex: Integer; const AValue: string);
  62214. begin
  62215. If (FCompatibleManagedProperties=AValue) then exit;
  62216. FCompatibleManagedProperties:=AValue;
  62217. MarkPropertyChanged(AIndex);
  62218. end;
  62219. Procedure TSP_DataOData__x005f_catalogs_x002f_masterpageItem.SetCreated(AIndex: Integer; const AValue: TDateTime);
  62220. begin
  62221. If (FCreated=AValue) then exit;
  62222. FCreated:=AValue;
  62223. MarkPropertyChanged(AIndex);
  62224. end;
  62225. Procedure TSP_DataOData__x005f_catalogs_x002f_masterpageItem.SetAuthorId(AIndex: Integer; const AValue: TInt32);
  62226. begin
  62227. If (FAuthorId=AValue) then exit;
  62228. FAuthorId:=AValue;
  62229. MarkPropertyChanged(AIndex);
  62230. end;
  62231. Procedure TSP_DataOData__x005f_catalogs_x002f_masterpageItem.SetModified(AIndex: Integer; const AValue: TDateTime);
  62232. begin
  62233. If (FModified=AValue) then exit;
  62234. FModified:=AValue;
  62235. MarkPropertyChanged(AIndex);
  62236. end;
  62237. Procedure TSP_DataOData__x005f_catalogs_x002f_masterpageItem.SetEditorId(AIndex: Integer; const AValue: TInt32);
  62238. begin
  62239. If (FEditorId=AValue) then exit;
  62240. FEditorId:=AValue;
  62241. MarkPropertyChanged(AIndex);
  62242. end;
  62243. Procedure TSP_DataOData__x005f_catalogs_x002f_masterpageItem.SetOData__HasCopyDestinations(AIndex: Integer; const AValue: boolean);
  62244. begin
  62245. If (FOData__HasCopyDestinations=AValue) then exit;
  62246. FOData__HasCopyDestinations:=AValue;
  62247. MarkPropertyChanged(AIndex);
  62248. end;
  62249. Procedure TSP_DataOData__x005f_catalogs_x002f_masterpageItem.SetOData__CopySource(AIndex: Integer; const AValue: string);
  62250. begin
  62251. If (FOData__CopySource=AValue) then exit;
  62252. FOData__CopySource:=AValue;
  62253. MarkPropertyChanged(AIndex);
  62254. end;
  62255. Procedure TSP_DataOData__x005f_catalogs_x002f_masterpageItem.SetOData__ModerationStatus(AIndex: Integer; const AValue: TInt32);
  62256. begin
  62257. If (FOData__ModerationStatus=AValue) then exit;
  62258. FOData__ModerationStatus:=AValue;
  62259. MarkPropertyChanged(AIndex);
  62260. end;
  62261. Procedure TSP_DataOData__x005f_catalogs_x002f_masterpageItem.SetFileRef(AIndex: Integer; const AValue: string);
  62262. begin
  62263. If (FFileRef=AValue) then exit;
  62264. FFileRef:=AValue;
  62265. MarkPropertyChanged(AIndex);
  62266. end;
  62267. Procedure TSP_DataOData__x005f_catalogs_x002f_masterpageItem.SetFileDirRef(AIndex: Integer; const AValue: string);
  62268. begin
  62269. If (FFileDirRef=AValue) then exit;
  62270. FFileDirRef:=AValue;
  62271. MarkPropertyChanged(AIndex);
  62272. end;
  62273. Procedure TSP_DataOData__x005f_catalogs_x002f_masterpageItem.SetLast_x0020_Modified(AIndex: Integer; const AValue: TDateTime);
  62274. begin
  62275. If (FLast_x0020_Modified=AValue) then exit;
  62276. FLast_x0020_Modified:=AValue;
  62277. MarkPropertyChanged(AIndex);
  62278. end;
  62279. Procedure TSP_DataOData__x005f_catalogs_x002f_masterpageItem.SetCreated_x0020_Date(AIndex: Integer; const AValue: TDateTime);
  62280. begin
  62281. If (FCreated_x0020_Date=AValue) then exit;
  62282. FCreated_x0020_Date:=AValue;
  62283. MarkPropertyChanged(AIndex);
  62284. end;
  62285. Procedure TSP_DataOData__x005f_catalogs_x002f_masterpageItem.SetFSObjType(AIndex: Integer; const AValue: TInt32);
  62286. begin
  62287. If (FFSObjType=AValue) then exit;
  62288. FFSObjType:=AValue;
  62289. MarkPropertyChanged(AIndex);
  62290. end;
  62291. Procedure TSP_DataOData__x005f_catalogs_x002f_masterpageItem.SetPermMask(AIndex: Integer; const AValue: string);
  62292. begin
  62293. If (FPermMask=AValue) then exit;
  62294. FPermMask:=AValue;
  62295. MarkPropertyChanged(AIndex);
  62296. end;
  62297. Procedure TSP_DataOData__x005f_catalogs_x002f_masterpageItem.SetCheckoutUserId(AIndex: Integer; const AValue: TInt32);
  62298. begin
  62299. If (FCheckoutUserId=AValue) then exit;
  62300. FCheckoutUserId:=AValue;
  62301. MarkPropertyChanged(AIndex);
  62302. end;
  62303. Procedure TSP_DataOData__x005f_catalogs_x002f_masterpageItem.SetUniqueId(AIndex: Integer; const AValue: TGUIDString);
  62304. begin
  62305. If (FUniqueId=AValue) then exit;
  62306. FUniqueId:=AValue;
  62307. MarkPropertyChanged(AIndex);
  62308. end;
  62309. Procedure TSP_DataOData__x005f_catalogs_x002f_masterpageItem.SetOData__CheckinComment(AIndex: Integer; const AValue: string);
  62310. begin
  62311. If (FOData__CheckinComment=AValue) then exit;
  62312. FOData__CheckinComment:=AValue;
  62313. MarkPropertyChanged(AIndex);
  62314. end;
  62315. Procedure TSP_DataOData__x005f_catalogs_x002f_masterpageItem.SetLinkCheckedOutTitle(AIndex: Integer; const AValue: string);
  62316. begin
  62317. If (FLinkCheckedOutTitle=AValue) then exit;
  62318. FLinkCheckedOutTitle:=AValue;
  62319. MarkPropertyChanged(AIndex);
  62320. end;
  62321. Procedure TSP_DataOData__x005f_catalogs_x002f_masterpageItem.SetOData__EditMenuTableStart(AIndex: Integer; const AValue: string);
  62322. begin
  62323. If (FOData__EditMenuTableStart=AValue) then exit;
  62324. FOData__EditMenuTableStart:=AValue;
  62325. MarkPropertyChanged(AIndex);
  62326. end;
  62327. Procedure TSP_DataOData__x005f_catalogs_x002f_masterpageItem.SetOData__EditMenuTableStart2(AIndex: Integer; const AValue: string);
  62328. begin
  62329. If (FOData__EditMenuTableStart2=AValue) then exit;
  62330. FOData__EditMenuTableStart2:=AValue;
  62331. MarkPropertyChanged(AIndex);
  62332. end;
  62333. Procedure TSP_DataOData__x005f_catalogs_x002f_masterpageItem.SetOData__EditMenuTableEnd(AIndex: Integer; const AValue: string);
  62334. begin
  62335. If (FOData__EditMenuTableEnd=AValue) then exit;
  62336. FOData__EditMenuTableEnd:=AValue;
  62337. MarkPropertyChanged(AIndex);
  62338. end;
  62339. Procedure TSP_DataOData__x005f_catalogs_x002f_masterpageItem.SetLinkFilenameNoMenu(AIndex: Integer; const AValue: string);
  62340. begin
  62341. If (FLinkFilenameNoMenu=AValue) then exit;
  62342. FLinkFilenameNoMenu:=AValue;
  62343. MarkPropertyChanged(AIndex);
  62344. end;
  62345. Procedure TSP_DataOData__x005f_catalogs_x002f_masterpageItem.SetLinkFilename(AIndex: Integer; const AValue: string);
  62346. begin
  62347. If (FLinkFilename=AValue) then exit;
  62348. FLinkFilename:=AValue;
  62349. MarkPropertyChanged(AIndex);
  62350. end;
  62351. Procedure TSP_DataOData__x005f_catalogs_x002f_masterpageItem.SetLinkFilename2(AIndex: Integer; const AValue: string);
  62352. begin
  62353. If (FLinkFilename2=AValue) then exit;
  62354. FLinkFilename2:=AValue;
  62355. MarkPropertyChanged(AIndex);
  62356. end;
  62357. Procedure TSP_DataOData__x005f_catalogs_x002f_masterpageItem.SetDocIcon(AIndex: Integer; const AValue: string);
  62358. begin
  62359. If (FDocIcon=AValue) then exit;
  62360. FDocIcon:=AValue;
  62361. MarkPropertyChanged(AIndex);
  62362. end;
  62363. Procedure TSP_DataOData__x005f_catalogs_x002f_masterpageItem.SetServerUrl(AIndex: Integer; const AValue: string);
  62364. begin
  62365. If (FServerUrl=AValue) then exit;
  62366. FServerUrl:=AValue;
  62367. MarkPropertyChanged(AIndex);
  62368. end;
  62369. Procedure TSP_DataOData__x005f_catalogs_x002f_masterpageItem.SetEncodedAbsUrl(AIndex: Integer; const AValue: string);
  62370. begin
  62371. If (FEncodedAbsUrl=AValue) then exit;
  62372. FEncodedAbsUrl:=AValue;
  62373. MarkPropertyChanged(AIndex);
  62374. end;
  62375. Procedure TSP_DataOData__x005f_catalogs_x002f_masterpageItem.SetBaseName(AIndex: Integer; const AValue: string);
  62376. begin
  62377. If (FBaseName=AValue) then exit;
  62378. FBaseName:=AValue;
  62379. MarkPropertyChanged(AIndex);
  62380. end;
  62381. Procedure TSP_DataOData__x005f_catalogs_x002f_masterpageItem.SetFileSizeDisplay(AIndex: Integer; const AValue: string);
  62382. begin
  62383. If (FFileSizeDisplay=AValue) then exit;
  62384. FFileSizeDisplay:=AValue;
  62385. MarkPropertyChanged(AIndex);
  62386. end;
  62387. Procedure TSP_DataOData__x005f_catalogs_x002f_masterpageItem.SetOData__Level(AIndex: Integer; const AValue: TInt32);
  62388. begin
  62389. If (FOData__Level=AValue) then exit;
  62390. FOData__Level:=AValue;
  62391. MarkPropertyChanged(AIndex);
  62392. end;
  62393. Procedure TSP_DataOData__x005f_catalogs_x002f_masterpageItem.SetOData__IsCurrentVersion(AIndex: Integer; const AValue: boolean);
  62394. begin
  62395. If (FOData__IsCurrentVersion=AValue) then exit;
  62396. FOData__IsCurrentVersion:=AValue;
  62397. MarkPropertyChanged(AIndex);
  62398. end;
  62399. Procedure TSP_DataOData__x005f_catalogs_x002f_masterpageItem.SetAppAuthorId(AIndex: Integer; const AValue: TInt32);
  62400. begin
  62401. If (FAppAuthorId=AValue) then exit;
  62402. FAppAuthorId:=AValue;
  62403. MarkPropertyChanged(AIndex);
  62404. end;
  62405. Procedure TSP_DataOData__x005f_catalogs_x002f_masterpageItem.SetAppEditorId(AIndex: Integer; const AValue: TInt32);
  62406. begin
  62407. If (FAppEditorId=AValue) then exit;
  62408. FAppEditorId:=AValue;
  62409. MarkPropertyChanged(AIndex);
  62410. end;
  62411. Procedure TSP_DataOData__x005f_catalogs_x002f_masterpageItem.SetSelectTitle(AIndex: Integer; const AValue: string);
  62412. begin
  62413. If (FSelectTitle=AValue) then exit;
  62414. FSelectTitle:=AValue;
  62415. MarkPropertyChanged(AIndex);
  62416. end;
  62417. Procedure TSP_DataOData__x005f_catalogs_x002f_masterpageItem.SetSelectFilename(AIndex: Integer; const AValue: string);
  62418. begin
  62419. If (FSelectFilename=AValue) then exit;
  62420. FSelectFilename:=AValue;
  62421. MarkPropertyChanged(AIndex);
  62422. end;
  62423. Procedure TSP_DataOData__x005f_catalogs_x002f_masterpageItem.SetEdit(AIndex: Integer; const AValue: string);
  62424. begin
  62425. If (FEdit=AValue) then exit;
  62426. FEdit:=AValue;
  62427. MarkPropertyChanged(AIndex);
  62428. end;
  62429. Procedure TSP_DataOData__x005f_catalogs_x002f_masterpageItem.Setowshiddenversion(AIndex: Integer; const AValue: TInt32);
  62430. begin
  62431. If (Fowshiddenversion=AValue) then exit;
  62432. Fowshiddenversion:=AValue;
  62433. MarkPropertyChanged(AIndex);
  62434. end;
  62435. Procedure TSP_DataOData__x005f_catalogs_x002f_masterpageItem.SetOData__UIVersion(AIndex: Integer; const AValue: TInt32);
  62436. begin
  62437. If (FOData__UIVersion=AValue) then exit;
  62438. FOData__UIVersion:=AValue;
  62439. MarkPropertyChanged(AIndex);
  62440. end;
  62441. Procedure TSP_DataOData__x005f_catalogs_x002f_masterpageItem.SetOData__UIVersionString(AIndex: Integer; const AValue: string);
  62442. begin
  62443. If (FOData__UIVersionString=AValue) then exit;
  62444. FOData__UIVersionString:=AValue;
  62445. MarkPropertyChanged(AIndex);
  62446. end;
  62447. Procedure TSP_DataOData__x005f_catalogs_x002f_masterpageItem.SetInstanceID(AIndex: Integer; const AValue: TInt32);
  62448. begin
  62449. If (FInstanceID=AValue) then exit;
  62450. FInstanceID:=AValue;
  62451. MarkPropertyChanged(AIndex);
  62452. end;
  62453. Procedure TSP_DataOData__x005f_catalogs_x002f_masterpageItem.SetOrder(AIndex: Integer; const AValue: Double);
  62454. begin
  62455. If (FOrder=AValue) then exit;
  62456. FOrder:=AValue;
  62457. MarkPropertyChanged(AIndex);
  62458. end;
  62459. Procedure TSP_DataOData__x005f_catalogs_x002f_masterpageItem.SetGUID(AIndex: Integer; const AValue: TGUIDString);
  62460. begin
  62461. If (FGUID=AValue) then exit;
  62462. FGUID:=AValue;
  62463. MarkPropertyChanged(AIndex);
  62464. end;
  62465. Procedure TSP_DataOData__x005f_catalogs_x002f_masterpageItem.SetWorkflowVersion(AIndex: Integer; const AValue: TInt32);
  62466. begin
  62467. If (FWorkflowVersion=AValue) then exit;
  62468. FWorkflowVersion:=AValue;
  62469. MarkPropertyChanged(AIndex);
  62470. end;
  62471. Procedure TSP_DataOData__x005f_catalogs_x002f_masterpageItem.SetWorkflowInstanceID(AIndex: Integer; const AValue: TGUIDString);
  62472. begin
  62473. If (FWorkflowInstanceID=AValue) then exit;
  62474. FWorkflowInstanceID:=AValue;
  62475. MarkPropertyChanged(AIndex);
  62476. end;
  62477. Procedure TSP_DataOData__x005f_catalogs_x002f_masterpageItem.SetFilenameMenuNoLink(AIndex: Integer; const AValue: string);
  62478. begin
  62479. If (FFilenameMenuNoLink=AValue) then exit;
  62480. FFilenameMenuNoLink:=AValue;
  62481. MarkPropertyChanged(AIndex);
  62482. end;
  62483. Procedure TSP_DataOData__x005f_catalogs_x002f_masterpageItem.SetMasterPageIcon(AIndex: Integer; const AValue: string);
  62484. begin
  62485. If (FMasterPageIcon=AValue) then exit;
  62486. FMasterPageIcon:=AValue;
  62487. MarkPropertyChanged(AIndex);
  62488. end;
  62489. Procedure TSP_DataOData__x005f_catalogs_x002f_masterpageItem.SetFilenameNoLink(AIndex: Integer; const AValue: string);
  62490. begin
  62491. If (FFilenameNoLink=AValue) then exit;
  62492. FFilenameNoLink:=AValue;
  62493. MarkPropertyChanged(AIndex);
  62494. end;
  62495. {$IFDEF VER2_6}
  62496. Procedure TSP_DataOData__x005f_catalogs_x002f_masterpageItem.SetArrayLength(const AName: String; ALength: Longint);
  62497. begin
  62498. Case aName of
  62499. 'uiversion' : SetLength(FUIVersion,aLength);
  62500. 'targetcontroltype' : SetLength(FTargetControlType,aLength);
  62501. 'compatiblesearchdatatypes' : SetLength(FCompatibleSearchDataTypes,aLength);
  62502. else
  62503. inherited SetArrayLength(aName,ALength);
  62504. end;
  62505. end;
  62506. {$ENDIF VER2_6}
  62507. Function TSP_DataOData__x005f_catalogs_x002f_masterpageItem.Author(AService: TODataService) : TSP_DataUserInfoItem;
  62508. begin
  62509. Result:=TSP_DataUserInfoItem(GetContainedSingleTon(AService,'Author', TSP_DataUserInfoItem));
  62510. end;
  62511. Function TSP_DataOData__x005f_catalogs_x002f_masterpageItem.Editor(AService: TODataService) : TSP_DataUserInfoItem;
  62512. begin
  62513. Result:=TSP_DataUserInfoItem(GetContainedSingleTon(AService,'Editor', TSP_DataUserInfoItem));
  62514. end;
  62515. Function TSP_DataOData__x005f_catalogs_x002f_masterpageItem.CheckoutUser(AService: TODataService) : TSP_DataUserInfoItem;
  62516. begin
  62517. Result:=TSP_DataUserInfoItem(GetContainedSingleTon(AService,'CheckoutUser', TSP_DataUserInfoItem));
  62518. end;
  62519. { --------------------------------------------------------------------
  62520. TSP_DataPublishedFeedListItem
  62521. --------------------------------------------------------------------}
  62522. Class Function TSP_DataPublishedFeedListItem.ObjectRestKind : String;
  62523. begin
  62524. Result:='PublishedFeedListItem';
  62525. end;
  62526. Procedure TSP_DataPublishedFeedListItem.SetContentTypeId(AIndex: Integer; const AValue: string);
  62527. begin
  62528. If (FContentTypeId=AValue) then exit;
  62529. FContentTypeId:=AValue;
  62530. MarkPropertyChanged(AIndex);
  62531. end;
  62532. Procedure TSP_DataPublishedFeedListItem.SetTitle(AIndex: Integer; const AValue: string);
  62533. begin
  62534. If (FTitle=AValue) then exit;
  62535. FTitle:=AValue;
  62536. MarkPropertyChanged(AIndex);
  62537. end;
  62538. Procedure TSP_DataPublishedFeedListItem.SetOData__ModerationComments(AIndex: Integer; const AValue: string);
  62539. begin
  62540. If (FOData__ModerationComments=AValue) then exit;
  62541. FOData__ModerationComments:=AValue;
  62542. MarkPropertyChanged(AIndex);
  62543. end;
  62544. Procedure TSP_DataPublishedFeedListItem.SetFile_x0020_Type(AIndex: Integer; const AValue: string);
  62545. begin
  62546. If (FFile_x0020_Type=AValue) then exit;
  62547. FFile_x0020_Type:=AValue;
  62548. MarkPropertyChanged(AIndex);
  62549. end;
  62550. Procedure TSP_DataPublishedFeedListItem.SetMicroBlogType(AIndex: Integer; const AValue: TInt32);
  62551. begin
  62552. If (FMicroBlogType=AValue) then exit;
  62553. FMicroBlogType:=AValue;
  62554. MarkPropertyChanged(AIndex);
  62555. end;
  62556. Procedure TSP_DataPublishedFeedListItem.SetPostAuthor(AIndex: Integer; const AValue: string);
  62557. begin
  62558. If (FPostAuthor=AValue) then exit;
  62559. FPostAuthor:=AValue;
  62560. MarkPropertyChanged(AIndex);
  62561. end;
  62562. Procedure TSP_DataPublishedFeedListItem.SetDefinitionId(AIndex: Integer; const AValue: TInt32);
  62563. begin
  62564. If (FDefinitionId=AValue) then exit;
  62565. FDefinitionId:=AValue;
  62566. MarkPropertyChanged(AIndex);
  62567. end;
  62568. Procedure TSP_DataPublishedFeedListItem.SetRootPostID(AIndex: Integer; const AValue: TInt32);
  62569. begin
  62570. If (FRootPostID=AValue) then exit;
  62571. FRootPostID:=AValue;
  62572. MarkPropertyChanged(AIndex);
  62573. end;
  62574. Procedure TSP_DataPublishedFeedListItem.SetRootPostOwnerID(AIndex: Integer; const AValue: string);
  62575. begin
  62576. If (FRootPostOwnerID=AValue) then exit;
  62577. FRootPostOwnerID:=AValue;
  62578. MarkPropertyChanged(AIndex);
  62579. end;
  62580. Procedure TSP_DataPublishedFeedListItem.SetRootPostUniqueID(AIndex: Integer; const AValue: string);
  62581. begin
  62582. If (FRootPostUniqueID=AValue) then exit;
  62583. FRootPostUniqueID:=AValue;
  62584. MarkPropertyChanged(AIndex);
  62585. end;
  62586. Procedure TSP_DataPublishedFeedListItem.SetReplyCount(AIndex: Integer; const AValue: TInt32);
  62587. begin
  62588. If (FReplyCount=AValue) then exit;
  62589. FReplyCount:=AValue;
  62590. MarkPropertyChanged(AIndex);
  62591. end;
  62592. Procedure TSP_DataPublishedFeedListItem.SetReferenceID(AIndex: Integer; const AValue: string);
  62593. begin
  62594. If (FReferenceID=AValue) then exit;
  62595. FReferenceID:=AValue;
  62596. MarkPropertyChanged(AIndex);
  62597. end;
  62598. Procedure TSP_DataPublishedFeedListItem.SetAttributes(AIndex: Integer; const AValue: TInt32);
  62599. begin
  62600. If (FAttributes=AValue) then exit;
  62601. FAttributes:=AValue;
  62602. MarkPropertyChanged(AIndex);
  62603. end;
  62604. Procedure TSP_DataPublishedFeedListItem.SetContent(AIndex: Integer; const AValue: string);
  62605. begin
  62606. If (FContent=AValue) then exit;
  62607. FContent:=AValue;
  62608. MarkPropertyChanged(AIndex);
  62609. end;
  62610. Procedure TSP_DataPublishedFeedListItem.SetContentData(AIndex: Integer; const AValue: string);
  62611. begin
  62612. If (FContentData=AValue) then exit;
  62613. FContentData:=AValue;
  62614. MarkPropertyChanged(AIndex);
  62615. end;
  62616. Procedure TSP_DataPublishedFeedListItem.SetSearchContent(AIndex: Integer; const AValue: string);
  62617. begin
  62618. If (FSearchContent=AValue) then exit;
  62619. FSearchContent:=AValue;
  62620. MarkPropertyChanged(AIndex);
  62621. end;
  62622. Procedure TSP_DataPublishedFeedListItem.SetRefRoot(AIndex: Integer; const AValue: string);
  62623. begin
  62624. If (FRefRoot=AValue) then exit;
  62625. FRefRoot:=AValue;
  62626. MarkPropertyChanged(AIndex);
  62627. end;
  62628. Procedure TSP_DataPublishedFeedListItem.SetRefReply(AIndex: Integer; const AValue: string);
  62629. begin
  62630. If (FRefReply=AValue) then exit;
  62631. FRefReply:=AValue;
  62632. MarkPropertyChanged(AIndex);
  62633. end;
  62634. Procedure TSP_DataPublishedFeedListItem.SetPostSource(AIndex: Integer; const AValue: string);
  62635. begin
  62636. If (FPostSource=AValue) then exit;
  62637. FPostSource:=AValue;
  62638. MarkPropertyChanged(AIndex);
  62639. end;
  62640. Procedure TSP_DataPublishedFeedListItem.SetPeopleCount(AIndex: Integer; const AValue: TInt32);
  62641. begin
  62642. If (FPeopleCount=AValue) then exit;
  62643. FPeopleCount:=AValue;
  62644. MarkPropertyChanged(AIndex);
  62645. end;
  62646. Procedure TSP_DataPublishedFeedListItem.SetPeopleList(AIndex: Integer; const AValue: string);
  62647. begin
  62648. If (FPeopleList=AValue) then exit;
  62649. FPeopleList:=AValue;
  62650. MarkPropertyChanged(AIndex);
  62651. end;
  62652. Procedure TSP_DataPublishedFeedListItem.SetMediaLinkType(AIndex: Integer; const AValue: TInt32);
  62653. begin
  62654. If (FMediaLinkType=AValue) then exit;
  62655. FMediaLinkType:=AValue;
  62656. MarkPropertyChanged(AIndex);
  62657. end;
  62658. Procedure TSP_DataPublishedFeedListItem.SetMediaLinkDescription(AIndex: Integer; const AValue: string);
  62659. begin
  62660. If (FMediaLinkDescription=AValue) then exit;
  62661. FMediaLinkDescription:=AValue;
  62662. MarkPropertyChanged(AIndex);
  62663. end;
  62664. Procedure TSP_DataPublishedFeedListItem.SetPostSourceUri(AIndex: Integer; const AValue: string);
  62665. begin
  62666. If (FPostSourceUri=AValue) then exit;
  62667. FPostSourceUri:=AValue;
  62668. MarkPropertyChanged(AIndex);
  62669. end;
  62670. Procedure TSP_DataPublishedFeedListItem.SetMediaLinkURI(AIndex: Integer; const AValue: TSPFieldUrlValue);
  62671. begin
  62672. If (FMediaLinkURI=AValue) then exit;
  62673. FMediaLinkURI:=AValue;
  62674. MarkPropertyChanged(AIndex);
  62675. end;
  62676. Procedure TSP_DataPublishedFeedListItem.SetMediaLinkUISnippet(AIndex: Integer; const AValue: TSPFieldUrlValue);
  62677. begin
  62678. If (FMediaLinkUISnippet=AValue) then exit;
  62679. FMediaLinkUISnippet:=AValue;
  62680. MarkPropertyChanged(AIndex);
  62681. end;
  62682. Procedure TSP_DataPublishedFeedListItem.SetMediaLinkContentURI(AIndex: Integer; const AValue: TSPFieldUrlValue);
  62683. begin
  62684. If (FMediaLinkContentURI=AValue) then exit;
  62685. FMediaLinkContentURI:=AValue;
  62686. MarkPropertyChanged(AIndex);
  62687. end;
  62688. Procedure TSP_DataPublishedFeedListItem.SetMediaLength(AIndex: Integer; const AValue: TInt32);
  62689. begin
  62690. If (FMediaLength=AValue) then exit;
  62691. FMediaLength:=AValue;
  62692. MarkPropertyChanged(AIndex);
  62693. end;
  62694. Procedure TSP_DataPublishedFeedListItem.SetMediaWidth(AIndex: Integer; const AValue: TInt32);
  62695. begin
  62696. If (FMediaWidth=AValue) then exit;
  62697. FMediaWidth:=AValue;
  62698. MarkPropertyChanged(AIndex);
  62699. end;
  62700. Procedure TSP_DataPublishedFeedListItem.SetMediaHeight(AIndex: Integer; const AValue: TInt32);
  62701. begin
  62702. If (FMediaHeight=AValue) then exit;
  62703. FMediaHeight:=AValue;
  62704. MarkPropertyChanged(AIndex);
  62705. end;
  62706. Procedure TSP_DataPublishedFeedListItem.SetMediaPreviewWidth(AIndex: Integer; const AValue: TInt32);
  62707. begin
  62708. If (FMediaPreviewWidth=AValue) then exit;
  62709. FMediaPreviewWidth:=AValue;
  62710. MarkPropertyChanged(AIndex);
  62711. end;
  62712. Procedure TSP_DataPublishedFeedListItem.SetMediaPreviewHeight(AIndex: Integer; const AValue: TInt32);
  62713. begin
  62714. If (FMediaPreviewHeight=AValue) then exit;
  62715. FMediaPreviewHeight:=AValue;
  62716. MarkPropertyChanged(AIndex);
  62717. end;
  62718. Procedure TSP_DataPublishedFeedListItem.SetMediaActionWidth(AIndex: Integer; const AValue: TInt32);
  62719. begin
  62720. If (FMediaActionWidth=AValue) then exit;
  62721. FMediaActionWidth:=AValue;
  62722. MarkPropertyChanged(AIndex);
  62723. end;
  62724. Procedure TSP_DataPublishedFeedListItem.SetMediaActionHeight(AIndex: Integer; const AValue: TInt32);
  62725. begin
  62726. If (FMediaActionHeight=AValue) then exit;
  62727. FMediaActionHeight:=AValue;
  62728. MarkPropertyChanged(AIndex);
  62729. end;
  62730. Procedure TSP_DataPublishedFeedListItem.SetMediaActionClickUrl(AIndex: Integer; const AValue: TSPFieldUrlValue);
  62731. begin
  62732. If (FMediaActionClickUrl=AValue) then exit;
  62733. FMediaActionClickUrl:=AValue;
  62734. MarkPropertyChanged(AIndex);
  62735. end;
  62736. Procedure TSP_DataPublishedFeedListItem.SetMediaActionClickKind(AIndex: Integer; const AValue: TInt32);
  62737. begin
  62738. If (FMediaActionClickKind=AValue) then exit;
  62739. FMediaActionClickKind:=AValue;
  62740. MarkPropertyChanged(AIndex);
  62741. end;
  62742. Procedure TSP_DataPublishedFeedListItem.SeteMailSubscribers(AIndex: Integer; const AValue: string);
  62743. begin
  62744. If (FeMailSubscribers=AValue) then exit;
  62745. FeMailSubscribers:=AValue;
  62746. MarkPropertyChanged(AIndex);
  62747. end;
  62748. Procedure TSP_DataPublishedFeedListItem.SeteMailUnsubscribed(AIndex: Integer; const AValue: string);
  62749. begin
  62750. If (FeMailUnsubscribed=AValue) then exit;
  62751. FeMailUnsubscribed:=AValue;
  62752. MarkPropertyChanged(AIndex);
  62753. end;
  62754. Procedure TSP_DataPublishedFeedListItem.SetRemoteLocation(AIndex: Integer; const AValue: string);
  62755. begin
  62756. If (FRemoteLocation=AValue) then exit;
  62757. FRemoteLocation:=AValue;
  62758. MarkPropertyChanged(AIndex);
  62759. end;
  62760. Procedure TSP_DataPublishedFeedListItem.SetLikesCount(AIndex: Integer; const AValue: Double);
  62761. begin
  62762. If (FLikesCount=AValue) then exit;
  62763. FLikesCount:=AValue;
  62764. MarkPropertyChanged(AIndex);
  62765. end;
  62766. Procedure TSP_DataPublishedFeedListItem.SetLikedById(AIndex: Integer; const AValue: TInt32Array);
  62767. begin
  62768. If (FLikedById=AValue) then exit;
  62769. FLikedById:=AValue;
  62770. MarkPropertyChanged(AIndex);
  62771. end;
  62772. Procedure TSP_DataPublishedFeedListItem.SetHashTags(AIndex: Integer; const AValue: TSP_TaxonomyTaxonomyFieldValueArray);
  62773. begin
  62774. If (FHashTags=AValue) then exit;
  62775. FHashTags:=AValue;
  62776. MarkPropertyChanged(AIndex);
  62777. end;
  62778. Procedure TSP_DataPublishedFeedListItem.Setj33b1bc20532487296f1bbbdead35a56(AIndex: Integer; const AValue: string);
  62779. begin
  62780. If (Fj33b1bc20532487296f1bbbdead35a56=AValue) then exit;
  62781. Fj33b1bc20532487296f1bbbdead35a56:=AValue;
  62782. MarkPropertyChanged(AIndex);
  62783. end;
  62784. Procedure TSP_DataPublishedFeedListItem.SetTaxCatchAllId(AIndex: Integer; const AValue: TInt32Array);
  62785. begin
  62786. If (FTaxCatchAllId=AValue) then exit;
  62787. FTaxCatchAllId:=AValue;
  62788. MarkPropertyChanged(AIndex);
  62789. end;
  62790. Procedure TSP_DataPublishedFeedListItem.SetTaxCatchAllLabelId(AIndex: Integer; const AValue: TInt32Array);
  62791. begin
  62792. If (FTaxCatchAllLabelId=AValue) then exit;
  62793. FTaxCatchAllLabelId:=AValue;
  62794. MarkPropertyChanged(AIndex);
  62795. end;
  62796. Procedure TSP_DataPublishedFeedListItem.SetModified(AIndex: Integer; const AValue: TDateTime);
  62797. begin
  62798. If (FModified=AValue) then exit;
  62799. FModified:=AValue;
  62800. MarkPropertyChanged(AIndex);
  62801. end;
  62802. Procedure TSP_DataPublishedFeedListItem.SetCreated(AIndex: Integer; const AValue: TDateTime);
  62803. begin
  62804. If (FCreated=AValue) then exit;
  62805. FCreated:=AValue;
  62806. MarkPropertyChanged(AIndex);
  62807. end;
  62808. Procedure TSP_DataPublishedFeedListItem.SetAuthorId(AIndex: Integer; const AValue: TInt32);
  62809. begin
  62810. If (FAuthorId=AValue) then exit;
  62811. FAuthorId:=AValue;
  62812. MarkPropertyChanged(AIndex);
  62813. end;
  62814. Procedure TSP_DataPublishedFeedListItem.SetEditorId(AIndex: Integer; const AValue: TInt32);
  62815. begin
  62816. If (FEditorId=AValue) then exit;
  62817. FEditorId:=AValue;
  62818. MarkPropertyChanged(AIndex);
  62819. end;
  62820. Procedure TSP_DataPublishedFeedListItem.SetOData__HasCopyDestinations(AIndex: Integer; const AValue: boolean);
  62821. begin
  62822. If (FOData__HasCopyDestinations=AValue) then exit;
  62823. FOData__HasCopyDestinations:=AValue;
  62824. MarkPropertyChanged(AIndex);
  62825. end;
  62826. Procedure TSP_DataPublishedFeedListItem.SetOData__CopySource(AIndex: Integer; const AValue: string);
  62827. begin
  62828. If (FOData__CopySource=AValue) then exit;
  62829. FOData__CopySource:=AValue;
  62830. MarkPropertyChanged(AIndex);
  62831. end;
  62832. Procedure TSP_DataPublishedFeedListItem.Setowshiddenversion(AIndex: Integer; const AValue: TInt32);
  62833. begin
  62834. If (Fowshiddenversion=AValue) then exit;
  62835. Fowshiddenversion:=AValue;
  62836. MarkPropertyChanged(AIndex);
  62837. end;
  62838. Procedure TSP_DataPublishedFeedListItem.SetWorkflowVersion(AIndex: Integer; const AValue: TInt32);
  62839. begin
  62840. If (FWorkflowVersion=AValue) then exit;
  62841. FWorkflowVersion:=AValue;
  62842. MarkPropertyChanged(AIndex);
  62843. end;
  62844. Procedure TSP_DataPublishedFeedListItem.SetOData__UIVersion(AIndex: Integer; const AValue: TInt32);
  62845. begin
  62846. If (FOData__UIVersion=AValue) then exit;
  62847. FOData__UIVersion:=AValue;
  62848. MarkPropertyChanged(AIndex);
  62849. end;
  62850. Procedure TSP_DataPublishedFeedListItem.SetOData__UIVersionString(AIndex: Integer; const AValue: string);
  62851. begin
  62852. If (FOData__UIVersionString=AValue) then exit;
  62853. FOData__UIVersionString:=AValue;
  62854. MarkPropertyChanged(AIndex);
  62855. end;
  62856. Procedure TSP_DataPublishedFeedListItem.SetAttachments(AIndex: Integer; const AValue: boolean);
  62857. begin
  62858. If (FAttachments=AValue) then exit;
  62859. FAttachments:=AValue;
  62860. MarkPropertyChanged(AIndex);
  62861. end;
  62862. Procedure TSP_DataPublishedFeedListItem.SetOData__ModerationStatus(AIndex: Integer; const AValue: TInt32);
  62863. begin
  62864. If (FOData__ModerationStatus=AValue) then exit;
  62865. FOData__ModerationStatus:=AValue;
  62866. MarkPropertyChanged(AIndex);
  62867. end;
  62868. Procedure TSP_DataPublishedFeedListItem.SetEdit(AIndex: Integer; const AValue: string);
  62869. begin
  62870. If (FEdit=AValue) then exit;
  62871. FEdit:=AValue;
  62872. MarkPropertyChanged(AIndex);
  62873. end;
  62874. Procedure TSP_DataPublishedFeedListItem.SetLinkTitleNoMenu(AIndex: Integer; const AValue: string);
  62875. begin
  62876. If (FLinkTitleNoMenu=AValue) then exit;
  62877. FLinkTitleNoMenu:=AValue;
  62878. MarkPropertyChanged(AIndex);
  62879. end;
  62880. Procedure TSP_DataPublishedFeedListItem.SetLinkTitle(AIndex: Integer; const AValue: string);
  62881. begin
  62882. If (FLinkTitle=AValue) then exit;
  62883. FLinkTitle:=AValue;
  62884. MarkPropertyChanged(AIndex);
  62885. end;
  62886. Procedure TSP_DataPublishedFeedListItem.SetLinkTitle2(AIndex: Integer; const AValue: string);
  62887. begin
  62888. If (FLinkTitle2=AValue) then exit;
  62889. FLinkTitle2:=AValue;
  62890. MarkPropertyChanged(AIndex);
  62891. end;
  62892. Procedure TSP_DataPublishedFeedListItem.SetSelectTitle(AIndex: Integer; const AValue: string);
  62893. begin
  62894. If (FSelectTitle=AValue) then exit;
  62895. FSelectTitle:=AValue;
  62896. MarkPropertyChanged(AIndex);
  62897. end;
  62898. Procedure TSP_DataPublishedFeedListItem.SetInstanceID(AIndex: Integer; const AValue: TInt32);
  62899. begin
  62900. If (FInstanceID=AValue) then exit;
  62901. FInstanceID:=AValue;
  62902. MarkPropertyChanged(AIndex);
  62903. end;
  62904. Procedure TSP_DataPublishedFeedListItem.SetOrder(AIndex: Integer; const AValue: Double);
  62905. begin
  62906. If (FOrder=AValue) then exit;
  62907. FOrder:=AValue;
  62908. MarkPropertyChanged(AIndex);
  62909. end;
  62910. Procedure TSP_DataPublishedFeedListItem.SetGUID(AIndex: Integer; const AValue: TGUIDString);
  62911. begin
  62912. If (FGUID=AValue) then exit;
  62913. FGUID:=AValue;
  62914. MarkPropertyChanged(AIndex);
  62915. end;
  62916. Procedure TSP_DataPublishedFeedListItem.SetWorkflowInstanceID(AIndex: Integer; const AValue: TGUIDString);
  62917. begin
  62918. If (FWorkflowInstanceID=AValue) then exit;
  62919. FWorkflowInstanceID:=AValue;
  62920. MarkPropertyChanged(AIndex);
  62921. end;
  62922. Procedure TSP_DataPublishedFeedListItem.SetFileRef(AIndex: Integer; const AValue: string);
  62923. begin
  62924. If (FFileRef=AValue) then exit;
  62925. FFileRef:=AValue;
  62926. MarkPropertyChanged(AIndex);
  62927. end;
  62928. Procedure TSP_DataPublishedFeedListItem.SetFileDirRef(AIndex: Integer; const AValue: string);
  62929. begin
  62930. If (FFileDirRef=AValue) then exit;
  62931. FFileDirRef:=AValue;
  62932. MarkPropertyChanged(AIndex);
  62933. end;
  62934. Procedure TSP_DataPublishedFeedListItem.SetLast_x0020_Modified(AIndex: Integer; const AValue: TDateTime);
  62935. begin
  62936. If (FLast_x0020_Modified=AValue) then exit;
  62937. FLast_x0020_Modified:=AValue;
  62938. MarkPropertyChanged(AIndex);
  62939. end;
  62940. Procedure TSP_DataPublishedFeedListItem.SetCreated_x0020_Date(AIndex: Integer; const AValue: TDateTime);
  62941. begin
  62942. If (FCreated_x0020_Date=AValue) then exit;
  62943. FCreated_x0020_Date:=AValue;
  62944. MarkPropertyChanged(AIndex);
  62945. end;
  62946. Procedure TSP_DataPublishedFeedListItem.SetFSObjType(AIndex: Integer; const AValue: TInt32);
  62947. begin
  62948. If (FFSObjType=AValue) then exit;
  62949. FFSObjType:=AValue;
  62950. MarkPropertyChanged(AIndex);
  62951. end;
  62952. Procedure TSP_DataPublishedFeedListItem.SetPermMask(AIndex: Integer; const AValue: string);
  62953. begin
  62954. If (FPermMask=AValue) then exit;
  62955. FPermMask:=AValue;
  62956. MarkPropertyChanged(AIndex);
  62957. end;
  62958. Procedure TSP_DataPublishedFeedListItem.SetFileLeafRef(AIndex: Integer; const AValue: string);
  62959. begin
  62960. If (FFileLeafRef=AValue) then exit;
  62961. FFileLeafRef:=AValue;
  62962. MarkPropertyChanged(AIndex);
  62963. end;
  62964. Procedure TSP_DataPublishedFeedListItem.SetUniqueId(AIndex: Integer; const AValue: TGUIDString);
  62965. begin
  62966. If (FUniqueId=AValue) then exit;
  62967. FUniqueId:=AValue;
  62968. MarkPropertyChanged(AIndex);
  62969. end;
  62970. Procedure TSP_DataPublishedFeedListItem.SetHTML_x0020_File_x0020_Type(AIndex: Integer; const AValue: string);
  62971. begin
  62972. If (FHTML_x0020_File_x0020_Type=AValue) then exit;
  62973. FHTML_x0020_File_x0020_Type:=AValue;
  62974. MarkPropertyChanged(AIndex);
  62975. end;
  62976. Procedure TSP_DataPublishedFeedListItem.SetOData__EditMenuTableStart(AIndex: Integer; const AValue: string);
  62977. begin
  62978. If (FOData__EditMenuTableStart=AValue) then exit;
  62979. FOData__EditMenuTableStart:=AValue;
  62980. MarkPropertyChanged(AIndex);
  62981. end;
  62982. Procedure TSP_DataPublishedFeedListItem.SetOData__EditMenuTableStart2(AIndex: Integer; const AValue: string);
  62983. begin
  62984. If (FOData__EditMenuTableStart2=AValue) then exit;
  62985. FOData__EditMenuTableStart2:=AValue;
  62986. MarkPropertyChanged(AIndex);
  62987. end;
  62988. Procedure TSP_DataPublishedFeedListItem.SetOData__EditMenuTableEnd(AIndex: Integer; const AValue: string);
  62989. begin
  62990. If (FOData__EditMenuTableEnd=AValue) then exit;
  62991. FOData__EditMenuTableEnd:=AValue;
  62992. MarkPropertyChanged(AIndex);
  62993. end;
  62994. Procedure TSP_DataPublishedFeedListItem.SetLinkFilenameNoMenu(AIndex: Integer; const AValue: string);
  62995. begin
  62996. If (FLinkFilenameNoMenu=AValue) then exit;
  62997. FLinkFilenameNoMenu:=AValue;
  62998. MarkPropertyChanged(AIndex);
  62999. end;
  63000. Procedure TSP_DataPublishedFeedListItem.SetLinkFilename(AIndex: Integer; const AValue: string);
  63001. begin
  63002. If (FLinkFilename=AValue) then exit;
  63003. FLinkFilename:=AValue;
  63004. MarkPropertyChanged(AIndex);
  63005. end;
  63006. Procedure TSP_DataPublishedFeedListItem.SetLinkFilename2(AIndex: Integer; const AValue: string);
  63007. begin
  63008. If (FLinkFilename2=AValue) then exit;
  63009. FLinkFilename2:=AValue;
  63010. MarkPropertyChanged(AIndex);
  63011. end;
  63012. Procedure TSP_DataPublishedFeedListItem.SetDocIcon(AIndex: Integer; const AValue: string);
  63013. begin
  63014. If (FDocIcon=AValue) then exit;
  63015. FDocIcon:=AValue;
  63016. MarkPropertyChanged(AIndex);
  63017. end;
  63018. Procedure TSP_DataPublishedFeedListItem.SetServerUrl(AIndex: Integer; const AValue: string);
  63019. begin
  63020. If (FServerUrl=AValue) then exit;
  63021. FServerUrl:=AValue;
  63022. MarkPropertyChanged(AIndex);
  63023. end;
  63024. Procedure TSP_DataPublishedFeedListItem.SetEncodedAbsUrl(AIndex: Integer; const AValue: string);
  63025. begin
  63026. If (FEncodedAbsUrl=AValue) then exit;
  63027. FEncodedAbsUrl:=AValue;
  63028. MarkPropertyChanged(AIndex);
  63029. end;
  63030. Procedure TSP_DataPublishedFeedListItem.SetBaseName(AIndex: Integer; const AValue: string);
  63031. begin
  63032. If (FBaseName=AValue) then exit;
  63033. FBaseName:=AValue;
  63034. MarkPropertyChanged(AIndex);
  63035. end;
  63036. Procedure TSP_DataPublishedFeedListItem.SetOData__Level(AIndex: Integer; const AValue: TInt32);
  63037. begin
  63038. If (FOData__Level=AValue) then exit;
  63039. FOData__Level:=AValue;
  63040. MarkPropertyChanged(AIndex);
  63041. end;
  63042. Procedure TSP_DataPublishedFeedListItem.SetOData__IsCurrentVersion(AIndex: Integer; const AValue: boolean);
  63043. begin
  63044. If (FOData__IsCurrentVersion=AValue) then exit;
  63045. FOData__IsCurrentVersion:=AValue;
  63046. MarkPropertyChanged(AIndex);
  63047. end;
  63048. Procedure TSP_DataPublishedFeedListItem.SetAppAuthorId(AIndex: Integer; const AValue: TInt32);
  63049. begin
  63050. If (FAppAuthorId=AValue) then exit;
  63051. FAppAuthorId:=AValue;
  63052. MarkPropertyChanged(AIndex);
  63053. end;
  63054. Procedure TSP_DataPublishedFeedListItem.SetAppEditorId(AIndex: Integer; const AValue: TInt32);
  63055. begin
  63056. If (FAppEditorId=AValue) then exit;
  63057. FAppEditorId:=AValue;
  63058. MarkPropertyChanged(AIndex);
  63059. end;
  63060. {$IFDEF VER2_6}
  63061. Procedure TSP_DataPublishedFeedListItem.SetArrayLength(const AName: String; ALength: Longint);
  63062. begin
  63063. Case aName of
  63064. 'likedbyid' : SetLength(FLikedById,aLength);
  63065. 'hashtags' : SetLength(FHashTags,aLength);
  63066. 'taxcatchallid' : SetLength(FTaxCatchAllId,aLength);
  63067. 'taxcatchalllabelid' : SetLength(FTaxCatchAllLabelId,aLength);
  63068. else
  63069. inherited SetArrayLength(aName,ALength);
  63070. end;
  63071. end;
  63072. {$ENDIF VER2_6}
  63073. Function TSP_DataPublishedFeedListItem.LikedBy(AService: TODataService) : TSP_DataUserInfoItem;
  63074. begin
  63075. Result:=TSP_DataUserInfoItem(GetContainedSingleTon(AService,'LikedBy', TSP_DataUserInfoItem));
  63076. end;
  63077. Function TSP_DataPublishedFeedListItem.TaxCatchAll(AService: TODataService) : TSP_DataTaxonomyHiddenListListItem;
  63078. begin
  63079. Result:=TSP_DataTaxonomyHiddenListListItem(GetContainedSingleTon(AService,'TaxCatchAll', TSP_DataTaxonomyHiddenListListItem));
  63080. end;
  63081. Function TSP_DataPublishedFeedListItem.Author(AService: TODataService) : TSP_DataUserInfoItem;
  63082. begin
  63083. Result:=TSP_DataUserInfoItem(GetContainedSingleTon(AService,'Author', TSP_DataUserInfoItem));
  63084. end;
  63085. Function TSP_DataPublishedFeedListItem.Editor(AService: TODataService) : TSP_DataUserInfoItem;
  63086. begin
  63087. Result:=TSP_DataUserInfoItem(GetContainedSingleTon(AService,'Editor', TSP_DataUserInfoItem));
  63088. end;
  63089. { --------------------------------------------------------------------
  63090. TSP_DataTaxonomyHiddenListListItem
  63091. --------------------------------------------------------------------}
  63092. Class Function TSP_DataTaxonomyHiddenListListItem.ObjectRestKind : String;
  63093. begin
  63094. Result:='TaxonomyHiddenListListItem';
  63095. end;
  63096. Procedure TSP_DataTaxonomyHiddenListListItem.SetContentTypeId(AIndex: Integer; const AValue: string);
  63097. begin
  63098. If (FContentTypeId=AValue) then exit;
  63099. FContentTypeId:=AValue;
  63100. MarkPropertyChanged(AIndex);
  63101. end;
  63102. Procedure TSP_DataTaxonomyHiddenListListItem.SetTitle(AIndex: Integer; const AValue: string);
  63103. begin
  63104. If (FTitle=AValue) then exit;
  63105. FTitle:=AValue;
  63106. MarkPropertyChanged(AIndex);
  63107. end;
  63108. Procedure TSP_DataTaxonomyHiddenListListItem.SetOData__ModerationComments(AIndex: Integer; const AValue: string);
  63109. begin
  63110. If (FOData__ModerationComments=AValue) then exit;
  63111. FOData__ModerationComments:=AValue;
  63112. MarkPropertyChanged(AIndex);
  63113. end;
  63114. Procedure TSP_DataTaxonomyHiddenListListItem.SetFile_x0020_Type(AIndex: Integer; const AValue: string);
  63115. begin
  63116. If (FFile_x0020_Type=AValue) then exit;
  63117. FFile_x0020_Type:=AValue;
  63118. MarkPropertyChanged(AIndex);
  63119. end;
  63120. Procedure TSP_DataTaxonomyHiddenListListItem.SetIdForTermStore(AIndex: Integer; const AValue: string);
  63121. begin
  63122. If (FIdForTermStore=AValue) then exit;
  63123. FIdForTermStore:=AValue;
  63124. MarkPropertyChanged(AIndex);
  63125. end;
  63126. Procedure TSP_DataTaxonomyHiddenListListItem.SetIdForTerm(AIndex: Integer; const AValue: string);
  63127. begin
  63128. If (FIdForTerm=AValue) then exit;
  63129. FIdForTerm:=AValue;
  63130. MarkPropertyChanged(AIndex);
  63131. end;
  63132. Procedure TSP_DataTaxonomyHiddenListListItem.SetIdForTermSet(AIndex: Integer; const AValue: string);
  63133. begin
  63134. If (FIdForTermSet=AValue) then exit;
  63135. FIdForTermSet:=AValue;
  63136. MarkPropertyChanged(AIndex);
  63137. end;
  63138. Procedure TSP_DataTaxonomyHiddenListListItem.SetTerm(AIndex: Integer; const AValue: string);
  63139. begin
  63140. If (FTerm=AValue) then exit;
  63141. FTerm:=AValue;
  63142. MarkPropertyChanged(AIndex);
  63143. end;
  63144. Procedure TSP_DataTaxonomyHiddenListListItem.SetPath(AIndex: Integer; const AValue: string);
  63145. begin
  63146. If (FPath=AValue) then exit;
  63147. FPath:=AValue;
  63148. MarkPropertyChanged(AIndex);
  63149. end;
  63150. Procedure TSP_DataTaxonomyHiddenListListItem.SetCatchAllData(AIndex: Integer; const AValue: string);
  63151. begin
  63152. If (FCatchAllData=AValue) then exit;
  63153. FCatchAllData:=AValue;
  63154. MarkPropertyChanged(AIndex);
  63155. end;
  63156. Procedure TSP_DataTaxonomyHiddenListListItem.SetCatchAllDataLabel(AIndex: Integer; const AValue: string);
  63157. begin
  63158. If (FCatchAllDataLabel=AValue) then exit;
  63159. FCatchAllDataLabel:=AValue;
  63160. MarkPropertyChanged(AIndex);
  63161. end;
  63162. Procedure TSP_DataTaxonomyHiddenListListItem.SetTerm1031(AIndex: Integer; const AValue: string);
  63163. begin
  63164. If (FTerm1031=AValue) then exit;
  63165. FTerm1031:=AValue;
  63166. MarkPropertyChanged(AIndex);
  63167. end;
  63168. Procedure TSP_DataTaxonomyHiddenListListItem.SetPath1031(AIndex: Integer; const AValue: string);
  63169. begin
  63170. If (FPath1031=AValue) then exit;
  63171. FPath1031:=AValue;
  63172. MarkPropertyChanged(AIndex);
  63173. end;
  63174. Procedure TSP_DataTaxonomyHiddenListListItem.SetTerm1036(AIndex: Integer; const AValue: string);
  63175. begin
  63176. If (FTerm1036=AValue) then exit;
  63177. FTerm1036:=AValue;
  63178. MarkPropertyChanged(AIndex);
  63179. end;
  63180. Procedure TSP_DataTaxonomyHiddenListListItem.SetPath1036(AIndex: Integer; const AValue: string);
  63181. begin
  63182. If (FPath1036=AValue) then exit;
  63183. FPath1036:=AValue;
  63184. MarkPropertyChanged(AIndex);
  63185. end;
  63186. Procedure TSP_DataTaxonomyHiddenListListItem.SetTerm1057(AIndex: Integer; const AValue: string);
  63187. begin
  63188. If (FTerm1057=AValue) then exit;
  63189. FTerm1057:=AValue;
  63190. MarkPropertyChanged(AIndex);
  63191. end;
  63192. Procedure TSP_DataTaxonomyHiddenListListItem.SetPath1057(AIndex: Integer; const AValue: string);
  63193. begin
  63194. If (FPath1057=AValue) then exit;
  63195. FPath1057:=AValue;
  63196. MarkPropertyChanged(AIndex);
  63197. end;
  63198. Procedure TSP_DataTaxonomyHiddenListListItem.SetTerm1044(AIndex: Integer; const AValue: string);
  63199. begin
  63200. If (FTerm1044=AValue) then exit;
  63201. FTerm1044:=AValue;
  63202. MarkPropertyChanged(AIndex);
  63203. end;
  63204. Procedure TSP_DataTaxonomyHiddenListListItem.SetPath1044(AIndex: Integer; const AValue: string);
  63205. begin
  63206. If (FPath1044=AValue) then exit;
  63207. FPath1044:=AValue;
  63208. MarkPropertyChanged(AIndex);
  63209. end;
  63210. Procedure TSP_DataTaxonomyHiddenListListItem.SetTerm1049(AIndex: Integer; const AValue: string);
  63211. begin
  63212. If (FTerm1049=AValue) then exit;
  63213. FTerm1049:=AValue;
  63214. MarkPropertyChanged(AIndex);
  63215. end;
  63216. Procedure TSP_DataTaxonomyHiddenListListItem.SetPath1049(AIndex: Integer; const AValue: string);
  63217. begin
  63218. If (FPath1049=AValue) then exit;
  63219. FPath1049:=AValue;
  63220. MarkPropertyChanged(AIndex);
  63221. end;
  63222. Procedure TSP_DataTaxonomyHiddenListListItem.SetTerm2052(AIndex: Integer; const AValue: string);
  63223. begin
  63224. If (FTerm2052=AValue) then exit;
  63225. FTerm2052:=AValue;
  63226. MarkPropertyChanged(AIndex);
  63227. end;
  63228. Procedure TSP_DataTaxonomyHiddenListListItem.SetPath2052(AIndex: Integer; const AValue: string);
  63229. begin
  63230. If (FPath2052=AValue) then exit;
  63231. FPath2052:=AValue;
  63232. MarkPropertyChanged(AIndex);
  63233. end;
  63234. Procedure TSP_DataTaxonomyHiddenListListItem.SetTerm1028(AIndex: Integer; const AValue: string);
  63235. begin
  63236. If (FTerm1028=AValue) then exit;
  63237. FTerm1028:=AValue;
  63238. MarkPropertyChanged(AIndex);
  63239. end;
  63240. Procedure TSP_DataTaxonomyHiddenListListItem.SetPath1028(AIndex: Integer; const AValue: string);
  63241. begin
  63242. If (FPath1028=AValue) then exit;
  63243. FPath1028:=AValue;
  63244. MarkPropertyChanged(AIndex);
  63245. end;
  63246. Procedure TSP_DataTaxonomyHiddenListListItem.SetTerm1027(AIndex: Integer; const AValue: string);
  63247. begin
  63248. If (FTerm1027=AValue) then exit;
  63249. FTerm1027:=AValue;
  63250. MarkPropertyChanged(AIndex);
  63251. end;
  63252. Procedure TSP_DataTaxonomyHiddenListListItem.SetPath1027(AIndex: Integer; const AValue: string);
  63253. begin
  63254. If (FPath1027=AValue) then exit;
  63255. FPath1027:=AValue;
  63256. MarkPropertyChanged(AIndex);
  63257. end;
  63258. Procedure TSP_DataTaxonomyHiddenListListItem.SetTerm1081(AIndex: Integer; const AValue: string);
  63259. begin
  63260. If (FTerm1081=AValue) then exit;
  63261. FTerm1081:=AValue;
  63262. MarkPropertyChanged(AIndex);
  63263. end;
  63264. Procedure TSP_DataTaxonomyHiddenListListItem.SetPath1081(AIndex: Integer; const AValue: string);
  63265. begin
  63266. If (FPath1081=AValue) then exit;
  63267. FPath1081:=AValue;
  63268. MarkPropertyChanged(AIndex);
  63269. end;
  63270. Procedure TSP_DataTaxonomyHiddenListListItem.SetTerm1086(AIndex: Integer; const AValue: string);
  63271. begin
  63272. If (FTerm1086=AValue) then exit;
  63273. FTerm1086:=AValue;
  63274. MarkPropertyChanged(AIndex);
  63275. end;
  63276. Procedure TSP_DataTaxonomyHiddenListListItem.SetPath1086(AIndex: Integer; const AValue: string);
  63277. begin
  63278. If (FPath1086=AValue) then exit;
  63279. FPath1086:=AValue;
  63280. MarkPropertyChanged(AIndex);
  63281. end;
  63282. Procedure TSP_DataTaxonomyHiddenListListItem.SetTerm1048(AIndex: Integer; const AValue: string);
  63283. begin
  63284. If (FTerm1048=AValue) then exit;
  63285. FTerm1048:=AValue;
  63286. MarkPropertyChanged(AIndex);
  63287. end;
  63288. Procedure TSP_DataTaxonomyHiddenListListItem.SetPath1048(AIndex: Integer; const AValue: string);
  63289. begin
  63290. If (FPath1048=AValue) then exit;
  63291. FPath1048:=AValue;
  63292. MarkPropertyChanged(AIndex);
  63293. end;
  63294. Procedure TSP_DataTaxonomyHiddenListListItem.SetTerm1060(AIndex: Integer; const AValue: string);
  63295. begin
  63296. If (FTerm1060=AValue) then exit;
  63297. FTerm1060:=AValue;
  63298. MarkPropertyChanged(AIndex);
  63299. end;
  63300. Procedure TSP_DataTaxonomyHiddenListListItem.SetPath1060(AIndex: Integer; const AValue: string);
  63301. begin
  63302. If (FPath1060=AValue) then exit;
  63303. FPath1060:=AValue;
  63304. MarkPropertyChanged(AIndex);
  63305. end;
  63306. Procedure TSP_DataTaxonomyHiddenListListItem.SetTerm1030(AIndex: Integer; const AValue: string);
  63307. begin
  63308. If (FTerm1030=AValue) then exit;
  63309. FTerm1030:=AValue;
  63310. MarkPropertyChanged(AIndex);
  63311. end;
  63312. Procedure TSP_DataTaxonomyHiddenListListItem.SetPath1030(AIndex: Integer; const AValue: string);
  63313. begin
  63314. If (FPath1030=AValue) then exit;
  63315. FPath1030:=AValue;
  63316. MarkPropertyChanged(AIndex);
  63317. end;
  63318. Procedure TSP_DataTaxonomyHiddenListListItem.SetTerm1069(AIndex: Integer; const AValue: string);
  63319. begin
  63320. If (FTerm1069=AValue) then exit;
  63321. FTerm1069:=AValue;
  63322. MarkPropertyChanged(AIndex);
  63323. end;
  63324. Procedure TSP_DataTaxonomyHiddenListListItem.SetPath1069(AIndex: Integer; const AValue: string);
  63325. begin
  63326. If (FPath1069=AValue) then exit;
  63327. FPath1069:=AValue;
  63328. MarkPropertyChanged(AIndex);
  63329. end;
  63330. Procedure TSP_DataTaxonomyHiddenListListItem.SetTerm1035(AIndex: Integer; const AValue: string);
  63331. begin
  63332. If (FTerm1035=AValue) then exit;
  63333. FTerm1035:=AValue;
  63334. MarkPropertyChanged(AIndex);
  63335. end;
  63336. Procedure TSP_DataTaxonomyHiddenListListItem.SetPath1035(AIndex: Integer; const AValue: string);
  63337. begin
  63338. If (FPath1035=AValue) then exit;
  63339. FPath1035:=AValue;
  63340. MarkPropertyChanged(AIndex);
  63341. end;
  63342. Procedure TSP_DataTaxonomyHiddenListListItem.SetTerm1043(AIndex: Integer; const AValue: string);
  63343. begin
  63344. If (FTerm1043=AValue) then exit;
  63345. FTerm1043:=AValue;
  63346. MarkPropertyChanged(AIndex);
  63347. end;
  63348. Procedure TSP_DataTaxonomyHiddenListListItem.SetPath1043(AIndex: Integer; const AValue: string);
  63349. begin
  63350. If (FPath1043=AValue) then exit;
  63351. FPath1043:=AValue;
  63352. MarkPropertyChanged(AIndex);
  63353. end;
  63354. Procedure TSP_DataTaxonomyHiddenListListItem.SetTerm1051(AIndex: Integer; const AValue: string);
  63355. begin
  63356. If (FTerm1051=AValue) then exit;
  63357. FTerm1051:=AValue;
  63358. MarkPropertyChanged(AIndex);
  63359. end;
  63360. Procedure TSP_DataTaxonomyHiddenListListItem.SetPath1051(AIndex: Integer; const AValue: string);
  63361. begin
  63362. If (FPath1051=AValue) then exit;
  63363. FPath1051:=AValue;
  63364. MarkPropertyChanged(AIndex);
  63365. end;
  63366. Procedure TSP_DataTaxonomyHiddenListListItem.SetTerm1026(AIndex: Integer; const AValue: string);
  63367. begin
  63368. If (FTerm1026=AValue) then exit;
  63369. FTerm1026:=AValue;
  63370. MarkPropertyChanged(AIndex);
  63371. end;
  63372. Procedure TSP_DataTaxonomyHiddenListListItem.SetPath1026(AIndex: Integer; const AValue: string);
  63373. begin
  63374. If (FPath1026=AValue) then exit;
  63375. FPath1026:=AValue;
  63376. MarkPropertyChanged(AIndex);
  63377. end;
  63378. Procedure TSP_DataTaxonomyHiddenListListItem.SetTerm1110(AIndex: Integer; const AValue: string);
  63379. begin
  63380. If (FTerm1110=AValue) then exit;
  63381. FTerm1110:=AValue;
  63382. MarkPropertyChanged(AIndex);
  63383. end;
  63384. Procedure TSP_DataTaxonomyHiddenListListItem.SetPath1110(AIndex: Integer; const AValue: string);
  63385. begin
  63386. If (FPath1110=AValue) then exit;
  63387. FPath1110:=AValue;
  63388. MarkPropertyChanged(AIndex);
  63389. end;
  63390. Procedure TSP_DataTaxonomyHiddenListListItem.SetTerm1055(AIndex: Integer; const AValue: string);
  63391. begin
  63392. If (FTerm1055=AValue) then exit;
  63393. FTerm1055:=AValue;
  63394. MarkPropertyChanged(AIndex);
  63395. end;
  63396. Procedure TSP_DataTaxonomyHiddenListListItem.SetPath1055(AIndex: Integer; const AValue: string);
  63397. begin
  63398. If (FPath1055=AValue) then exit;
  63399. FPath1055:=AValue;
  63400. MarkPropertyChanged(AIndex);
  63401. end;
  63402. Procedure TSP_DataTaxonomyHiddenListListItem.SetTerm1050(AIndex: Integer; const AValue: string);
  63403. begin
  63404. If (FTerm1050=AValue) then exit;
  63405. FTerm1050:=AValue;
  63406. MarkPropertyChanged(AIndex);
  63407. end;
  63408. Procedure TSP_DataTaxonomyHiddenListListItem.SetPath1050(AIndex: Integer; const AValue: string);
  63409. begin
  63410. If (FPath1050=AValue) then exit;
  63411. FPath1050:=AValue;
  63412. MarkPropertyChanged(AIndex);
  63413. end;
  63414. Procedure TSP_DataTaxonomyHiddenListListItem.SetTerm1038(AIndex: Integer; const AValue: string);
  63415. begin
  63416. If (FTerm1038=AValue) then exit;
  63417. FTerm1038:=AValue;
  63418. MarkPropertyChanged(AIndex);
  63419. end;
  63420. Procedure TSP_DataTaxonomyHiddenListListItem.SetPath1038(AIndex: Integer; const AValue: string);
  63421. begin
  63422. If (FPath1038=AValue) then exit;
  63423. FPath1038:=AValue;
  63424. MarkPropertyChanged(AIndex);
  63425. end;
  63426. Procedure TSP_DataTaxonomyHiddenListListItem.SetTerm1042(AIndex: Integer; const AValue: string);
  63427. begin
  63428. If (FTerm1042=AValue) then exit;
  63429. FTerm1042:=AValue;
  63430. MarkPropertyChanged(AIndex);
  63431. end;
  63432. Procedure TSP_DataTaxonomyHiddenListListItem.SetPath1042(AIndex: Integer; const AValue: string);
  63433. begin
  63434. If (FPath1042=AValue) then exit;
  63435. FPath1042:=AValue;
  63436. MarkPropertyChanged(AIndex);
  63437. end;
  63438. Procedure TSP_DataTaxonomyHiddenListListItem.SetTerm1063(AIndex: Integer; const AValue: string);
  63439. begin
  63440. If (FTerm1063=AValue) then exit;
  63441. FTerm1063:=AValue;
  63442. MarkPropertyChanged(AIndex);
  63443. end;
  63444. Procedure TSP_DataTaxonomyHiddenListListItem.SetPath1063(AIndex: Integer; const AValue: string);
  63445. begin
  63446. If (FPath1063=AValue) then exit;
  63447. FPath1063:=AValue;
  63448. MarkPropertyChanged(AIndex);
  63449. end;
  63450. Procedure TSP_DataTaxonomyHiddenListListItem.SetTerm1033(AIndex: Integer; const AValue: string);
  63451. begin
  63452. If (FTerm1033=AValue) then exit;
  63453. FTerm1033:=AValue;
  63454. MarkPropertyChanged(AIndex);
  63455. end;
  63456. Procedure TSP_DataTaxonomyHiddenListListItem.SetPath1033(AIndex: Integer; const AValue: string);
  63457. begin
  63458. If (FPath1033=AValue) then exit;
  63459. FPath1033:=AValue;
  63460. MarkPropertyChanged(AIndex);
  63461. end;
  63462. Procedure TSP_DataTaxonomyHiddenListListItem.SetTerm1025(AIndex: Integer; const AValue: string);
  63463. begin
  63464. If (FTerm1025=AValue) then exit;
  63465. FTerm1025:=AValue;
  63466. MarkPropertyChanged(AIndex);
  63467. end;
  63468. Procedure TSP_DataTaxonomyHiddenListListItem.SetPath1025(AIndex: Integer; const AValue: string);
  63469. begin
  63470. If (FPath1025=AValue) then exit;
  63471. FPath1025:=AValue;
  63472. MarkPropertyChanged(AIndex);
  63473. end;
  63474. Procedure TSP_DataTaxonomyHiddenListListItem.SetTerm1041(AIndex: Integer; const AValue: string);
  63475. begin
  63476. If (FTerm1041=AValue) then exit;
  63477. FTerm1041:=AValue;
  63478. MarkPropertyChanged(AIndex);
  63479. end;
  63480. Procedure TSP_DataTaxonomyHiddenListListItem.SetPath1041(AIndex: Integer; const AValue: string);
  63481. begin
  63482. If (FPath1041=AValue) then exit;
  63483. FPath1041:=AValue;
  63484. MarkPropertyChanged(AIndex);
  63485. end;
  63486. Procedure TSP_DataTaxonomyHiddenListListItem.SetTerm1062(AIndex: Integer; const AValue: string);
  63487. begin
  63488. If (FTerm1062=AValue) then exit;
  63489. FTerm1062:=AValue;
  63490. MarkPropertyChanged(AIndex);
  63491. end;
  63492. Procedure TSP_DataTaxonomyHiddenListListItem.SetPath1062(AIndex: Integer; const AValue: string);
  63493. begin
  63494. If (FPath1062=AValue) then exit;
  63495. FPath1062:=AValue;
  63496. MarkPropertyChanged(AIndex);
  63497. end;
  63498. Procedure TSP_DataTaxonomyHiddenListListItem.SetTerm1046(AIndex: Integer; const AValue: string);
  63499. begin
  63500. If (FTerm1046=AValue) then exit;
  63501. FTerm1046:=AValue;
  63502. MarkPropertyChanged(AIndex);
  63503. end;
  63504. Procedure TSP_DataTaxonomyHiddenListListItem.SetPath1046(AIndex: Integer; const AValue: string);
  63505. begin
  63506. If (FPath1046=AValue) then exit;
  63507. FPath1046:=AValue;
  63508. MarkPropertyChanged(AIndex);
  63509. end;
  63510. Procedure TSP_DataTaxonomyHiddenListListItem.SetTerm2070(AIndex: Integer; const AValue: string);
  63511. begin
  63512. If (FTerm2070=AValue) then exit;
  63513. FTerm2070:=AValue;
  63514. MarkPropertyChanged(AIndex);
  63515. end;
  63516. Procedure TSP_DataTaxonomyHiddenListListItem.SetPath2070(AIndex: Integer; const AValue: string);
  63517. begin
  63518. If (FPath2070=AValue) then exit;
  63519. FPath2070:=AValue;
  63520. MarkPropertyChanged(AIndex);
  63521. end;
  63522. Procedure TSP_DataTaxonomyHiddenListListItem.SetTerm1054(AIndex: Integer; const AValue: string);
  63523. begin
  63524. If (FTerm1054=AValue) then exit;
  63525. FTerm1054:=AValue;
  63526. MarkPropertyChanged(AIndex);
  63527. end;
  63528. Procedure TSP_DataTaxonomyHiddenListListItem.SetPath1054(AIndex: Integer; const AValue: string);
  63529. begin
  63530. If (FPath1054=AValue) then exit;
  63531. FPath1054:=AValue;
  63532. MarkPropertyChanged(AIndex);
  63533. end;
  63534. Procedure TSP_DataTaxonomyHiddenListListItem.SetTerm1029(AIndex: Integer; const AValue: string);
  63535. begin
  63536. If (FTerm1029=AValue) then exit;
  63537. FTerm1029:=AValue;
  63538. MarkPropertyChanged(AIndex);
  63539. end;
  63540. Procedure TSP_DataTaxonomyHiddenListListItem.SetPath1029(AIndex: Integer; const AValue: string);
  63541. begin
  63542. If (FPath1029=AValue) then exit;
  63543. FPath1029:=AValue;
  63544. MarkPropertyChanged(AIndex);
  63545. end;
  63546. Procedure TSP_DataTaxonomyHiddenListListItem.SetTerm3082(AIndex: Integer; const AValue: string);
  63547. begin
  63548. If (FTerm3082=AValue) then exit;
  63549. FTerm3082:=AValue;
  63550. MarkPropertyChanged(AIndex);
  63551. end;
  63552. Procedure TSP_DataTaxonomyHiddenListListItem.SetPath3082(AIndex: Integer; const AValue: string);
  63553. begin
  63554. If (FPath3082=AValue) then exit;
  63555. FPath3082:=AValue;
  63556. MarkPropertyChanged(AIndex);
  63557. end;
  63558. Procedure TSP_DataTaxonomyHiddenListListItem.SetTerm1037(AIndex: Integer; const AValue: string);
  63559. begin
  63560. If (FTerm1037=AValue) then exit;
  63561. FTerm1037:=AValue;
  63562. MarkPropertyChanged(AIndex);
  63563. end;
  63564. Procedure TSP_DataTaxonomyHiddenListListItem.SetPath1037(AIndex: Integer; const AValue: string);
  63565. begin
  63566. If (FPath1037=AValue) then exit;
  63567. FPath1037:=AValue;
  63568. MarkPropertyChanged(AIndex);
  63569. end;
  63570. Procedure TSP_DataTaxonomyHiddenListListItem.SetTerm1045(AIndex: Integer; const AValue: string);
  63571. begin
  63572. If (FTerm1045=AValue) then exit;
  63573. FTerm1045:=AValue;
  63574. MarkPropertyChanged(AIndex);
  63575. end;
  63576. Procedure TSP_DataTaxonomyHiddenListListItem.SetPath1045(AIndex: Integer; const AValue: string);
  63577. begin
  63578. If (FPath1045=AValue) then exit;
  63579. FPath1045:=AValue;
  63580. MarkPropertyChanged(AIndex);
  63581. end;
  63582. Procedure TSP_DataTaxonomyHiddenListListItem.SetTerm2074(AIndex: Integer; const AValue: string);
  63583. begin
  63584. If (FTerm2074=AValue) then exit;
  63585. FTerm2074:=AValue;
  63586. MarkPropertyChanged(AIndex);
  63587. end;
  63588. Procedure TSP_DataTaxonomyHiddenListListItem.SetPath2074(AIndex: Integer; const AValue: string);
  63589. begin
  63590. If (FPath2074=AValue) then exit;
  63591. FPath2074:=AValue;
  63592. MarkPropertyChanged(AIndex);
  63593. end;
  63594. Procedure TSP_DataTaxonomyHiddenListListItem.SetTerm1058(AIndex: Integer; const AValue: string);
  63595. begin
  63596. If (FTerm1058=AValue) then exit;
  63597. FTerm1058:=AValue;
  63598. MarkPropertyChanged(AIndex);
  63599. end;
  63600. Procedure TSP_DataTaxonomyHiddenListListItem.SetPath1058(AIndex: Integer; const AValue: string);
  63601. begin
  63602. If (FPath1058=AValue) then exit;
  63603. FPath1058:=AValue;
  63604. MarkPropertyChanged(AIndex);
  63605. end;
  63606. Procedure TSP_DataTaxonomyHiddenListListItem.SetTerm1032(AIndex: Integer; const AValue: string);
  63607. begin
  63608. If (FTerm1032=AValue) then exit;
  63609. FTerm1032:=AValue;
  63610. MarkPropertyChanged(AIndex);
  63611. end;
  63612. Procedure TSP_DataTaxonomyHiddenListListItem.SetPath1032(AIndex: Integer; const AValue: string);
  63613. begin
  63614. If (FPath1032=AValue) then exit;
  63615. FPath1032:=AValue;
  63616. MarkPropertyChanged(AIndex);
  63617. end;
  63618. Procedure TSP_DataTaxonomyHiddenListListItem.SetTerm1061(AIndex: Integer; const AValue: string);
  63619. begin
  63620. If (FTerm1061=AValue) then exit;
  63621. FTerm1061:=AValue;
  63622. MarkPropertyChanged(AIndex);
  63623. end;
  63624. Procedure TSP_DataTaxonomyHiddenListListItem.SetPath1061(AIndex: Integer; const AValue: string);
  63625. begin
  63626. If (FPath1061=AValue) then exit;
  63627. FPath1061:=AValue;
  63628. MarkPropertyChanged(AIndex);
  63629. end;
  63630. Procedure TSP_DataTaxonomyHiddenListListItem.SetTerm1040(AIndex: Integer; const AValue: string);
  63631. begin
  63632. If (FTerm1040=AValue) then exit;
  63633. FTerm1040:=AValue;
  63634. MarkPropertyChanged(AIndex);
  63635. end;
  63636. Procedure TSP_DataTaxonomyHiddenListListItem.SetPath1040(AIndex: Integer; const AValue: string);
  63637. begin
  63638. If (FPath1040=AValue) then exit;
  63639. FPath1040:=AValue;
  63640. MarkPropertyChanged(AIndex);
  63641. end;
  63642. Procedure TSP_DataTaxonomyHiddenListListItem.SetTerm1087(AIndex: Integer; const AValue: string);
  63643. begin
  63644. If (FTerm1087=AValue) then exit;
  63645. FTerm1087:=AValue;
  63646. MarkPropertyChanged(AIndex);
  63647. end;
  63648. Procedure TSP_DataTaxonomyHiddenListListItem.SetPath1087(AIndex: Integer; const AValue: string);
  63649. begin
  63650. If (FPath1087=AValue) then exit;
  63651. FPath1087:=AValue;
  63652. MarkPropertyChanged(AIndex);
  63653. end;
  63654. Procedure TSP_DataTaxonomyHiddenListListItem.SetTerm1053(AIndex: Integer; const AValue: string);
  63655. begin
  63656. If (FTerm1053=AValue) then exit;
  63657. FTerm1053:=AValue;
  63658. MarkPropertyChanged(AIndex);
  63659. end;
  63660. Procedure TSP_DataTaxonomyHiddenListListItem.SetPath1053(AIndex: Integer; const AValue: string);
  63661. begin
  63662. If (FPath1053=AValue) then exit;
  63663. FPath1053:=AValue;
  63664. MarkPropertyChanged(AIndex);
  63665. end;
  63666. Procedure TSP_DataTaxonomyHiddenListListItem.SetTerm1066(AIndex: Integer; const AValue: string);
  63667. begin
  63668. If (FTerm1066=AValue) then exit;
  63669. FTerm1066:=AValue;
  63670. MarkPropertyChanged(AIndex);
  63671. end;
  63672. Procedure TSP_DataTaxonomyHiddenListListItem.SetPath1066(AIndex: Integer; const AValue: string);
  63673. begin
  63674. If (FPath1066=AValue) then exit;
  63675. FPath1066:=AValue;
  63676. MarkPropertyChanged(AIndex);
  63677. end;
  63678. Procedure TSP_DataTaxonomyHiddenListListItem.SetTerm10266(AIndex: Integer; const AValue: string);
  63679. begin
  63680. If (FTerm10266=AValue) then exit;
  63681. FTerm10266:=AValue;
  63682. MarkPropertyChanged(AIndex);
  63683. end;
  63684. Procedure TSP_DataTaxonomyHiddenListListItem.SetPath10266(AIndex: Integer; const AValue: string);
  63685. begin
  63686. If (FPath10266=AValue) then exit;
  63687. FPath10266:=AValue;
  63688. MarkPropertyChanged(AIndex);
  63689. end;
  63690. Procedure TSP_DataTaxonomyHiddenListListItem.SetModified(AIndex: Integer; const AValue: TDateTime);
  63691. begin
  63692. If (FModified=AValue) then exit;
  63693. FModified:=AValue;
  63694. MarkPropertyChanged(AIndex);
  63695. end;
  63696. Procedure TSP_DataTaxonomyHiddenListListItem.SetCreated(AIndex: Integer; const AValue: TDateTime);
  63697. begin
  63698. If (FCreated=AValue) then exit;
  63699. FCreated:=AValue;
  63700. MarkPropertyChanged(AIndex);
  63701. end;
  63702. Procedure TSP_DataTaxonomyHiddenListListItem.SetAuthorId(AIndex: Integer; const AValue: TInt32);
  63703. begin
  63704. If (FAuthorId=AValue) then exit;
  63705. FAuthorId:=AValue;
  63706. MarkPropertyChanged(AIndex);
  63707. end;
  63708. Procedure TSP_DataTaxonomyHiddenListListItem.SetEditorId(AIndex: Integer; const AValue: TInt32);
  63709. begin
  63710. If (FEditorId=AValue) then exit;
  63711. FEditorId:=AValue;
  63712. MarkPropertyChanged(AIndex);
  63713. end;
  63714. Procedure TSP_DataTaxonomyHiddenListListItem.SetOData__HasCopyDestinations(AIndex: Integer; const AValue: boolean);
  63715. begin
  63716. If (FOData__HasCopyDestinations=AValue) then exit;
  63717. FOData__HasCopyDestinations:=AValue;
  63718. MarkPropertyChanged(AIndex);
  63719. end;
  63720. Procedure TSP_DataTaxonomyHiddenListListItem.SetOData__CopySource(AIndex: Integer; const AValue: string);
  63721. begin
  63722. If (FOData__CopySource=AValue) then exit;
  63723. FOData__CopySource:=AValue;
  63724. MarkPropertyChanged(AIndex);
  63725. end;
  63726. Procedure TSP_DataTaxonomyHiddenListListItem.Setowshiddenversion(AIndex: Integer; const AValue: TInt32);
  63727. begin
  63728. If (Fowshiddenversion=AValue) then exit;
  63729. Fowshiddenversion:=AValue;
  63730. MarkPropertyChanged(AIndex);
  63731. end;
  63732. Procedure TSP_DataTaxonomyHiddenListListItem.SetWorkflowVersion(AIndex: Integer; const AValue: TInt32);
  63733. begin
  63734. If (FWorkflowVersion=AValue) then exit;
  63735. FWorkflowVersion:=AValue;
  63736. MarkPropertyChanged(AIndex);
  63737. end;
  63738. Procedure TSP_DataTaxonomyHiddenListListItem.SetOData__UIVersion(AIndex: Integer; const AValue: TInt32);
  63739. begin
  63740. If (FOData__UIVersion=AValue) then exit;
  63741. FOData__UIVersion:=AValue;
  63742. MarkPropertyChanged(AIndex);
  63743. end;
  63744. Procedure TSP_DataTaxonomyHiddenListListItem.SetOData__UIVersionString(AIndex: Integer; const AValue: string);
  63745. begin
  63746. If (FOData__UIVersionString=AValue) then exit;
  63747. FOData__UIVersionString:=AValue;
  63748. MarkPropertyChanged(AIndex);
  63749. end;
  63750. Procedure TSP_DataTaxonomyHiddenListListItem.SetAttachments(AIndex: Integer; const AValue: boolean);
  63751. begin
  63752. If (FAttachments=AValue) then exit;
  63753. FAttachments:=AValue;
  63754. MarkPropertyChanged(AIndex);
  63755. end;
  63756. Procedure TSP_DataTaxonomyHiddenListListItem.SetOData__ModerationStatus(AIndex: Integer; const AValue: TInt32);
  63757. begin
  63758. If (FOData__ModerationStatus=AValue) then exit;
  63759. FOData__ModerationStatus:=AValue;
  63760. MarkPropertyChanged(AIndex);
  63761. end;
  63762. Procedure TSP_DataTaxonomyHiddenListListItem.SetEdit(AIndex: Integer; const AValue: string);
  63763. begin
  63764. If (FEdit=AValue) then exit;
  63765. FEdit:=AValue;
  63766. MarkPropertyChanged(AIndex);
  63767. end;
  63768. Procedure TSP_DataTaxonomyHiddenListListItem.SetLinkTitleNoMenu(AIndex: Integer; const AValue: string);
  63769. begin
  63770. If (FLinkTitleNoMenu=AValue) then exit;
  63771. FLinkTitleNoMenu:=AValue;
  63772. MarkPropertyChanged(AIndex);
  63773. end;
  63774. Procedure TSP_DataTaxonomyHiddenListListItem.SetLinkTitle(AIndex: Integer; const AValue: string);
  63775. begin
  63776. If (FLinkTitle=AValue) then exit;
  63777. FLinkTitle:=AValue;
  63778. MarkPropertyChanged(AIndex);
  63779. end;
  63780. Procedure TSP_DataTaxonomyHiddenListListItem.SetLinkTitle2(AIndex: Integer; const AValue: string);
  63781. begin
  63782. If (FLinkTitle2=AValue) then exit;
  63783. FLinkTitle2:=AValue;
  63784. MarkPropertyChanged(AIndex);
  63785. end;
  63786. Procedure TSP_DataTaxonomyHiddenListListItem.SetSelectTitle(AIndex: Integer; const AValue: string);
  63787. begin
  63788. If (FSelectTitle=AValue) then exit;
  63789. FSelectTitle:=AValue;
  63790. MarkPropertyChanged(AIndex);
  63791. end;
  63792. Procedure TSP_DataTaxonomyHiddenListListItem.SetInstanceID(AIndex: Integer; const AValue: TInt32);
  63793. begin
  63794. If (FInstanceID=AValue) then exit;
  63795. FInstanceID:=AValue;
  63796. MarkPropertyChanged(AIndex);
  63797. end;
  63798. Procedure TSP_DataTaxonomyHiddenListListItem.SetOrder(AIndex: Integer; const AValue: Double);
  63799. begin
  63800. If (FOrder=AValue) then exit;
  63801. FOrder:=AValue;
  63802. MarkPropertyChanged(AIndex);
  63803. end;
  63804. Procedure TSP_DataTaxonomyHiddenListListItem.SetGUID(AIndex: Integer; const AValue: TGUIDString);
  63805. begin
  63806. If (FGUID=AValue) then exit;
  63807. FGUID:=AValue;
  63808. MarkPropertyChanged(AIndex);
  63809. end;
  63810. Procedure TSP_DataTaxonomyHiddenListListItem.SetWorkflowInstanceID(AIndex: Integer; const AValue: TGUIDString);
  63811. begin
  63812. If (FWorkflowInstanceID=AValue) then exit;
  63813. FWorkflowInstanceID:=AValue;
  63814. MarkPropertyChanged(AIndex);
  63815. end;
  63816. Procedure TSP_DataTaxonomyHiddenListListItem.SetFileRef(AIndex: Integer; const AValue: string);
  63817. begin
  63818. If (FFileRef=AValue) then exit;
  63819. FFileRef:=AValue;
  63820. MarkPropertyChanged(AIndex);
  63821. end;
  63822. Procedure TSP_DataTaxonomyHiddenListListItem.SetFileDirRef(AIndex: Integer; const AValue: string);
  63823. begin
  63824. If (FFileDirRef=AValue) then exit;
  63825. FFileDirRef:=AValue;
  63826. MarkPropertyChanged(AIndex);
  63827. end;
  63828. Procedure TSP_DataTaxonomyHiddenListListItem.SetLast_x0020_Modified(AIndex: Integer; const AValue: TDateTime);
  63829. begin
  63830. If (FLast_x0020_Modified=AValue) then exit;
  63831. FLast_x0020_Modified:=AValue;
  63832. MarkPropertyChanged(AIndex);
  63833. end;
  63834. Procedure TSP_DataTaxonomyHiddenListListItem.SetCreated_x0020_Date(AIndex: Integer; const AValue: TDateTime);
  63835. begin
  63836. If (FCreated_x0020_Date=AValue) then exit;
  63837. FCreated_x0020_Date:=AValue;
  63838. MarkPropertyChanged(AIndex);
  63839. end;
  63840. Procedure TSP_DataTaxonomyHiddenListListItem.SetFSObjType(AIndex: Integer; const AValue: TInt32);
  63841. begin
  63842. If (FFSObjType=AValue) then exit;
  63843. FFSObjType:=AValue;
  63844. MarkPropertyChanged(AIndex);
  63845. end;
  63846. Procedure TSP_DataTaxonomyHiddenListListItem.SetPermMask(AIndex: Integer; const AValue: string);
  63847. begin
  63848. If (FPermMask=AValue) then exit;
  63849. FPermMask:=AValue;
  63850. MarkPropertyChanged(AIndex);
  63851. end;
  63852. Procedure TSP_DataTaxonomyHiddenListListItem.SetFileLeafRef(AIndex: Integer; const AValue: string);
  63853. begin
  63854. If (FFileLeafRef=AValue) then exit;
  63855. FFileLeafRef:=AValue;
  63856. MarkPropertyChanged(AIndex);
  63857. end;
  63858. Procedure TSP_DataTaxonomyHiddenListListItem.SetUniqueId(AIndex: Integer; const AValue: TGUIDString);
  63859. begin
  63860. If (FUniqueId=AValue) then exit;
  63861. FUniqueId:=AValue;
  63862. MarkPropertyChanged(AIndex);
  63863. end;
  63864. Procedure TSP_DataTaxonomyHiddenListListItem.SetHTML_x0020_File_x0020_Type(AIndex: Integer; const AValue: string);
  63865. begin
  63866. If (FHTML_x0020_File_x0020_Type=AValue) then exit;
  63867. FHTML_x0020_File_x0020_Type:=AValue;
  63868. MarkPropertyChanged(AIndex);
  63869. end;
  63870. Procedure TSP_DataTaxonomyHiddenListListItem.SetOData__EditMenuTableStart(AIndex: Integer; const AValue: string);
  63871. begin
  63872. If (FOData__EditMenuTableStart=AValue) then exit;
  63873. FOData__EditMenuTableStart:=AValue;
  63874. MarkPropertyChanged(AIndex);
  63875. end;
  63876. Procedure TSP_DataTaxonomyHiddenListListItem.SetOData__EditMenuTableStart2(AIndex: Integer; const AValue: string);
  63877. begin
  63878. If (FOData__EditMenuTableStart2=AValue) then exit;
  63879. FOData__EditMenuTableStart2:=AValue;
  63880. MarkPropertyChanged(AIndex);
  63881. end;
  63882. Procedure TSP_DataTaxonomyHiddenListListItem.SetOData__EditMenuTableEnd(AIndex: Integer; const AValue: string);
  63883. begin
  63884. If (FOData__EditMenuTableEnd=AValue) then exit;
  63885. FOData__EditMenuTableEnd:=AValue;
  63886. MarkPropertyChanged(AIndex);
  63887. end;
  63888. Procedure TSP_DataTaxonomyHiddenListListItem.SetLinkFilenameNoMenu(AIndex: Integer; const AValue: string);
  63889. begin
  63890. If (FLinkFilenameNoMenu=AValue) then exit;
  63891. FLinkFilenameNoMenu:=AValue;
  63892. MarkPropertyChanged(AIndex);
  63893. end;
  63894. Procedure TSP_DataTaxonomyHiddenListListItem.SetLinkFilename(AIndex: Integer; const AValue: string);
  63895. begin
  63896. If (FLinkFilename=AValue) then exit;
  63897. FLinkFilename:=AValue;
  63898. MarkPropertyChanged(AIndex);
  63899. end;
  63900. Procedure TSP_DataTaxonomyHiddenListListItem.SetLinkFilename2(AIndex: Integer; const AValue: string);
  63901. begin
  63902. If (FLinkFilename2=AValue) then exit;
  63903. FLinkFilename2:=AValue;
  63904. MarkPropertyChanged(AIndex);
  63905. end;
  63906. Procedure TSP_DataTaxonomyHiddenListListItem.SetDocIcon(AIndex: Integer; const AValue: string);
  63907. begin
  63908. If (FDocIcon=AValue) then exit;
  63909. FDocIcon:=AValue;
  63910. MarkPropertyChanged(AIndex);
  63911. end;
  63912. Procedure TSP_DataTaxonomyHiddenListListItem.SetServerUrl(AIndex: Integer; const AValue: string);
  63913. begin
  63914. If (FServerUrl=AValue) then exit;
  63915. FServerUrl:=AValue;
  63916. MarkPropertyChanged(AIndex);
  63917. end;
  63918. Procedure TSP_DataTaxonomyHiddenListListItem.SetEncodedAbsUrl(AIndex: Integer; const AValue: string);
  63919. begin
  63920. If (FEncodedAbsUrl=AValue) then exit;
  63921. FEncodedAbsUrl:=AValue;
  63922. MarkPropertyChanged(AIndex);
  63923. end;
  63924. Procedure TSP_DataTaxonomyHiddenListListItem.SetBaseName(AIndex: Integer; const AValue: string);
  63925. begin
  63926. If (FBaseName=AValue) then exit;
  63927. FBaseName:=AValue;
  63928. MarkPropertyChanged(AIndex);
  63929. end;
  63930. Procedure TSP_DataTaxonomyHiddenListListItem.SetOData__Level(AIndex: Integer; const AValue: TInt32);
  63931. begin
  63932. If (FOData__Level=AValue) then exit;
  63933. FOData__Level:=AValue;
  63934. MarkPropertyChanged(AIndex);
  63935. end;
  63936. Procedure TSP_DataTaxonomyHiddenListListItem.SetOData__IsCurrentVersion(AIndex: Integer; const AValue: boolean);
  63937. begin
  63938. If (FOData__IsCurrentVersion=AValue) then exit;
  63939. FOData__IsCurrentVersion:=AValue;
  63940. MarkPropertyChanged(AIndex);
  63941. end;
  63942. Procedure TSP_DataTaxonomyHiddenListListItem.SetAppAuthorId(AIndex: Integer; const AValue: TInt32);
  63943. begin
  63944. If (FAppAuthorId=AValue) then exit;
  63945. FAppAuthorId:=AValue;
  63946. MarkPropertyChanged(AIndex);
  63947. end;
  63948. Procedure TSP_DataTaxonomyHiddenListListItem.SetAppEditorId(AIndex: Integer; const AValue: TInt32);
  63949. begin
  63950. If (FAppEditorId=AValue) then exit;
  63951. FAppEditorId:=AValue;
  63952. MarkPropertyChanged(AIndex);
  63953. end;
  63954. Function TSP_DataTaxonomyHiddenListListItem.Author(AService: TODataService) : TSP_DataUserInfoItem;
  63955. begin
  63956. Result:=TSP_DataUserInfoItem(GetContainedSingleTon(AService,'Author', TSP_DataUserInfoItem));
  63957. end;
  63958. Function TSP_DataTaxonomyHiddenListListItem.Editor(AService: TODataService) : TSP_DataUserInfoItem;
  63959. begin
  63960. Result:=TSP_DataUserInfoItem(GetContainedSingleTon(AService,'Editor', TSP_DataUserInfoItem));
  63961. end;
  63962. { --------------------------------------------------------------------
  63963. TSP_DataSiteAssetsItem
  63964. --------------------------------------------------------------------}
  63965. Class Function TSP_DataSiteAssetsItem.ObjectRestKind : String;
  63966. begin
  63967. Result:='SiteAssetsItem';
  63968. end;
  63969. Procedure TSP_DataSiteAssetsItem.SetContentTypeId(AIndex: Integer; const AValue: string);
  63970. begin
  63971. If (FContentTypeId=AValue) then exit;
  63972. FContentTypeId:=AValue;
  63973. MarkPropertyChanged(AIndex);
  63974. end;
  63975. Procedure TSP_DataSiteAssetsItem.SetCreated(AIndex: Integer; const AValue: TDateTime);
  63976. begin
  63977. If (FCreated=AValue) then exit;
  63978. FCreated:=AValue;
  63979. MarkPropertyChanged(AIndex);
  63980. end;
  63981. Procedure TSP_DataSiteAssetsItem.SetAuthorId(AIndex: Integer; const AValue: TInt32);
  63982. begin
  63983. If (FAuthorId=AValue) then exit;
  63984. FAuthorId:=AValue;
  63985. MarkPropertyChanged(AIndex);
  63986. end;
  63987. Procedure TSP_DataSiteAssetsItem.SetModified(AIndex: Integer; const AValue: TDateTime);
  63988. begin
  63989. If (FModified=AValue) then exit;
  63990. FModified:=AValue;
  63991. MarkPropertyChanged(AIndex);
  63992. end;
  63993. Procedure TSP_DataSiteAssetsItem.SetEditorId(AIndex: Integer; const AValue: TInt32);
  63994. begin
  63995. If (FEditorId=AValue) then exit;
  63996. FEditorId:=AValue;
  63997. MarkPropertyChanged(AIndex);
  63998. end;
  63999. Procedure TSP_DataSiteAssetsItem.SetOData__HasCopyDestinations(AIndex: Integer; const AValue: boolean);
  64000. begin
  64001. If (FOData__HasCopyDestinations=AValue) then exit;
  64002. FOData__HasCopyDestinations:=AValue;
  64003. MarkPropertyChanged(AIndex);
  64004. end;
  64005. Procedure TSP_DataSiteAssetsItem.SetOData__CopySource(AIndex: Integer; const AValue: string);
  64006. begin
  64007. If (FOData__CopySource=AValue) then exit;
  64008. FOData__CopySource:=AValue;
  64009. MarkPropertyChanged(AIndex);
  64010. end;
  64011. Procedure TSP_DataSiteAssetsItem.SetOData__ModerationStatus(AIndex: Integer; const AValue: TInt32);
  64012. begin
  64013. If (FOData__ModerationStatus=AValue) then exit;
  64014. FOData__ModerationStatus:=AValue;
  64015. MarkPropertyChanged(AIndex);
  64016. end;
  64017. Procedure TSP_DataSiteAssetsItem.SetOData__ModerationComments(AIndex: Integer; const AValue: string);
  64018. begin
  64019. If (FOData__ModerationComments=AValue) then exit;
  64020. FOData__ModerationComments:=AValue;
  64021. MarkPropertyChanged(AIndex);
  64022. end;
  64023. Procedure TSP_DataSiteAssetsItem.SetFileRef(AIndex: Integer; const AValue: string);
  64024. begin
  64025. If (FFileRef=AValue) then exit;
  64026. FFileRef:=AValue;
  64027. MarkPropertyChanged(AIndex);
  64028. end;
  64029. Procedure TSP_DataSiteAssetsItem.SetFileDirRef(AIndex: Integer; const AValue: string);
  64030. begin
  64031. If (FFileDirRef=AValue) then exit;
  64032. FFileDirRef:=AValue;
  64033. MarkPropertyChanged(AIndex);
  64034. end;
  64035. Procedure TSP_DataSiteAssetsItem.SetLast_x0020_Modified(AIndex: Integer; const AValue: TDateTime);
  64036. begin
  64037. If (FLast_x0020_Modified=AValue) then exit;
  64038. FLast_x0020_Modified:=AValue;
  64039. MarkPropertyChanged(AIndex);
  64040. end;
  64041. Procedure TSP_DataSiteAssetsItem.SetCreated_x0020_Date(AIndex: Integer; const AValue: TDateTime);
  64042. begin
  64043. If (FCreated_x0020_Date=AValue) then exit;
  64044. FCreated_x0020_Date:=AValue;
  64045. MarkPropertyChanged(AIndex);
  64046. end;
  64047. Procedure TSP_DataSiteAssetsItem.SetFSObjType(AIndex: Integer; const AValue: TInt32);
  64048. begin
  64049. If (FFSObjType=AValue) then exit;
  64050. FFSObjType:=AValue;
  64051. MarkPropertyChanged(AIndex);
  64052. end;
  64053. Procedure TSP_DataSiteAssetsItem.SetPermMask(AIndex: Integer; const AValue: string);
  64054. begin
  64055. If (FPermMask=AValue) then exit;
  64056. FPermMask:=AValue;
  64057. MarkPropertyChanged(AIndex);
  64058. end;
  64059. Procedure TSP_DataSiteAssetsItem.SetCheckoutUserId(AIndex: Integer; const AValue: TInt32);
  64060. begin
  64061. If (FCheckoutUserId=AValue) then exit;
  64062. FCheckoutUserId:=AValue;
  64063. MarkPropertyChanged(AIndex);
  64064. end;
  64065. Procedure TSP_DataSiteAssetsItem.SetFileLeafRef(AIndex: Integer; const AValue: string);
  64066. begin
  64067. If (FFileLeafRef=AValue) then exit;
  64068. FFileLeafRef:=AValue;
  64069. MarkPropertyChanged(AIndex);
  64070. end;
  64071. Procedure TSP_DataSiteAssetsItem.SetUniqueId(AIndex: Integer; const AValue: TGUIDString);
  64072. begin
  64073. If (FUniqueId=AValue) then exit;
  64074. FUniqueId:=AValue;
  64075. MarkPropertyChanged(AIndex);
  64076. end;
  64077. Procedure TSP_DataSiteAssetsItem.SetOData__CheckinComment(AIndex: Integer; const AValue: string);
  64078. begin
  64079. If (FOData__CheckinComment=AValue) then exit;
  64080. FOData__CheckinComment:=AValue;
  64081. MarkPropertyChanged(AIndex);
  64082. end;
  64083. Procedure TSP_DataSiteAssetsItem.SetLinkCheckedOutTitle(AIndex: Integer; const AValue: string);
  64084. begin
  64085. If (FLinkCheckedOutTitle=AValue) then exit;
  64086. FLinkCheckedOutTitle:=AValue;
  64087. MarkPropertyChanged(AIndex);
  64088. end;
  64089. Procedure TSP_DataSiteAssetsItem.SetModified_x0020_By(AIndex: Integer; const AValue: string);
  64090. begin
  64091. If (FModified_x0020_By=AValue) then exit;
  64092. FModified_x0020_By:=AValue;
  64093. MarkPropertyChanged(AIndex);
  64094. end;
  64095. Procedure TSP_DataSiteAssetsItem.SetCreated_x0020_By(AIndex: Integer; const AValue: string);
  64096. begin
  64097. If (FCreated_x0020_By=AValue) then exit;
  64098. FCreated_x0020_By:=AValue;
  64099. MarkPropertyChanged(AIndex);
  64100. end;
  64101. Procedure TSP_DataSiteAssetsItem.SetFile_x0020_Type(AIndex: Integer; const AValue: string);
  64102. begin
  64103. If (FFile_x0020_Type=AValue) then exit;
  64104. FFile_x0020_Type:=AValue;
  64105. MarkPropertyChanged(AIndex);
  64106. end;
  64107. Procedure TSP_DataSiteAssetsItem.SetHTML_x0020_File_x0020_Type(AIndex: Integer; const AValue: string);
  64108. begin
  64109. If (FHTML_x0020_File_x0020_Type=AValue) then exit;
  64110. FHTML_x0020_File_x0020_Type:=AValue;
  64111. MarkPropertyChanged(AIndex);
  64112. end;
  64113. Procedure TSP_DataSiteAssetsItem.SetOData__SourceUrl(AIndex: Integer; const AValue: string);
  64114. begin
  64115. If (FOData__SourceUrl=AValue) then exit;
  64116. FOData__SourceUrl:=AValue;
  64117. MarkPropertyChanged(AIndex);
  64118. end;
  64119. Procedure TSP_DataSiteAssetsItem.SetOData__SharedFileIndex(AIndex: Integer; const AValue: string);
  64120. begin
  64121. If (FOData__SharedFileIndex=AValue) then exit;
  64122. FOData__SharedFileIndex:=AValue;
  64123. MarkPropertyChanged(AIndex);
  64124. end;
  64125. Procedure TSP_DataSiteAssetsItem.SetOData__EditMenuTableStart(AIndex: Integer; const AValue: string);
  64126. begin
  64127. If (FOData__EditMenuTableStart=AValue) then exit;
  64128. FOData__EditMenuTableStart:=AValue;
  64129. MarkPropertyChanged(AIndex);
  64130. end;
  64131. Procedure TSP_DataSiteAssetsItem.SetOData__EditMenuTableStart2(AIndex: Integer; const AValue: string);
  64132. begin
  64133. If (FOData__EditMenuTableStart2=AValue) then exit;
  64134. FOData__EditMenuTableStart2:=AValue;
  64135. MarkPropertyChanged(AIndex);
  64136. end;
  64137. Procedure TSP_DataSiteAssetsItem.SetOData__EditMenuTableEnd(AIndex: Integer; const AValue: string);
  64138. begin
  64139. If (FOData__EditMenuTableEnd=AValue) then exit;
  64140. FOData__EditMenuTableEnd:=AValue;
  64141. MarkPropertyChanged(AIndex);
  64142. end;
  64143. Procedure TSP_DataSiteAssetsItem.SetLinkFilenameNoMenu(AIndex: Integer; const AValue: string);
  64144. begin
  64145. If (FLinkFilenameNoMenu=AValue) then exit;
  64146. FLinkFilenameNoMenu:=AValue;
  64147. MarkPropertyChanged(AIndex);
  64148. end;
  64149. Procedure TSP_DataSiteAssetsItem.SetLinkFilename(AIndex: Integer; const AValue: string);
  64150. begin
  64151. If (FLinkFilename=AValue) then exit;
  64152. FLinkFilename:=AValue;
  64153. MarkPropertyChanged(AIndex);
  64154. end;
  64155. Procedure TSP_DataSiteAssetsItem.SetLinkFilename2(AIndex: Integer; const AValue: string);
  64156. begin
  64157. If (FLinkFilename2=AValue) then exit;
  64158. FLinkFilename2:=AValue;
  64159. MarkPropertyChanged(AIndex);
  64160. end;
  64161. Procedure TSP_DataSiteAssetsItem.SetDocIcon(AIndex: Integer; const AValue: string);
  64162. begin
  64163. If (FDocIcon=AValue) then exit;
  64164. FDocIcon:=AValue;
  64165. MarkPropertyChanged(AIndex);
  64166. end;
  64167. Procedure TSP_DataSiteAssetsItem.SetServerUrl(AIndex: Integer; const AValue: string);
  64168. begin
  64169. If (FServerUrl=AValue) then exit;
  64170. FServerUrl:=AValue;
  64171. MarkPropertyChanged(AIndex);
  64172. end;
  64173. Procedure TSP_DataSiteAssetsItem.SetEncodedAbsUrl(AIndex: Integer; const AValue: string);
  64174. begin
  64175. If (FEncodedAbsUrl=AValue) then exit;
  64176. FEncodedAbsUrl:=AValue;
  64177. MarkPropertyChanged(AIndex);
  64178. end;
  64179. Procedure TSP_DataSiteAssetsItem.SetBaseName(AIndex: Integer; const AValue: string);
  64180. begin
  64181. If (FBaseName=AValue) then exit;
  64182. FBaseName:=AValue;
  64183. MarkPropertyChanged(AIndex);
  64184. end;
  64185. Procedure TSP_DataSiteAssetsItem.SetFileSizeDisplay(AIndex: Integer; const AValue: string);
  64186. begin
  64187. If (FFileSizeDisplay=AValue) then exit;
  64188. FFileSizeDisplay:=AValue;
  64189. MarkPropertyChanged(AIndex);
  64190. end;
  64191. Procedure TSP_DataSiteAssetsItem.SetOData__Level(AIndex: Integer; const AValue: TInt32);
  64192. begin
  64193. If (FOData__Level=AValue) then exit;
  64194. FOData__Level:=AValue;
  64195. MarkPropertyChanged(AIndex);
  64196. end;
  64197. Procedure TSP_DataSiteAssetsItem.SetOData__IsCurrentVersion(AIndex: Integer; const AValue: boolean);
  64198. begin
  64199. If (FOData__IsCurrentVersion=AValue) then exit;
  64200. FOData__IsCurrentVersion:=AValue;
  64201. MarkPropertyChanged(AIndex);
  64202. end;
  64203. Procedure TSP_DataSiteAssetsItem.SetAppAuthorId(AIndex: Integer; const AValue: TInt32);
  64204. begin
  64205. If (FAppAuthorId=AValue) then exit;
  64206. FAppAuthorId:=AValue;
  64207. MarkPropertyChanged(AIndex);
  64208. end;
  64209. Procedure TSP_DataSiteAssetsItem.SetAppEditorId(AIndex: Integer; const AValue: TInt32);
  64210. begin
  64211. If (FAppEditorId=AValue) then exit;
  64212. FAppEditorId:=AValue;
  64213. MarkPropertyChanged(AIndex);
  64214. end;
  64215. Procedure TSP_DataSiteAssetsItem.SetSelectTitle(AIndex: Integer; const AValue: string);
  64216. begin
  64217. If (FSelectTitle=AValue) then exit;
  64218. FSelectTitle:=AValue;
  64219. MarkPropertyChanged(AIndex);
  64220. end;
  64221. Procedure TSP_DataSiteAssetsItem.SetSelectFilename(AIndex: Integer; const AValue: string);
  64222. begin
  64223. If (FSelectFilename=AValue) then exit;
  64224. FSelectFilename:=AValue;
  64225. MarkPropertyChanged(AIndex);
  64226. end;
  64227. Procedure TSP_DataSiteAssetsItem.SetEdit(AIndex: Integer; const AValue: string);
  64228. begin
  64229. If (FEdit=AValue) then exit;
  64230. FEdit:=AValue;
  64231. MarkPropertyChanged(AIndex);
  64232. end;
  64233. Procedure TSP_DataSiteAssetsItem.Setowshiddenversion(AIndex: Integer; const AValue: TInt32);
  64234. begin
  64235. If (Fowshiddenversion=AValue) then exit;
  64236. Fowshiddenversion:=AValue;
  64237. MarkPropertyChanged(AIndex);
  64238. end;
  64239. Procedure TSP_DataSiteAssetsItem.SetOData__UIVersion(AIndex: Integer; const AValue: TInt32);
  64240. begin
  64241. If (FOData__UIVersion=AValue) then exit;
  64242. FOData__UIVersion:=AValue;
  64243. MarkPropertyChanged(AIndex);
  64244. end;
  64245. Procedure TSP_DataSiteAssetsItem.SetOData__UIVersionString(AIndex: Integer; const AValue: string);
  64246. begin
  64247. If (FOData__UIVersionString=AValue) then exit;
  64248. FOData__UIVersionString:=AValue;
  64249. MarkPropertyChanged(AIndex);
  64250. end;
  64251. Procedure TSP_DataSiteAssetsItem.SetInstanceID(AIndex: Integer; const AValue: TInt32);
  64252. begin
  64253. If (FInstanceID=AValue) then exit;
  64254. FInstanceID:=AValue;
  64255. MarkPropertyChanged(AIndex);
  64256. end;
  64257. Procedure TSP_DataSiteAssetsItem.SetOrder(AIndex: Integer; const AValue: Double);
  64258. begin
  64259. If (FOrder=AValue) then exit;
  64260. FOrder:=AValue;
  64261. MarkPropertyChanged(AIndex);
  64262. end;
  64263. Procedure TSP_DataSiteAssetsItem.SetGUID(AIndex: Integer; const AValue: TGUIDString);
  64264. begin
  64265. If (FGUID=AValue) then exit;
  64266. FGUID:=AValue;
  64267. MarkPropertyChanged(AIndex);
  64268. end;
  64269. Procedure TSP_DataSiteAssetsItem.SetWorkflowVersion(AIndex: Integer; const AValue: TInt32);
  64270. begin
  64271. If (FWorkflowVersion=AValue) then exit;
  64272. FWorkflowVersion:=AValue;
  64273. MarkPropertyChanged(AIndex);
  64274. end;
  64275. Procedure TSP_DataSiteAssetsItem.SetWorkflowInstanceID(AIndex: Integer; const AValue: TGUIDString);
  64276. begin
  64277. If (FWorkflowInstanceID=AValue) then exit;
  64278. FWorkflowInstanceID:=AValue;
  64279. MarkPropertyChanged(AIndex);
  64280. end;
  64281. Procedure TSP_DataSiteAssetsItem.SetTitle(AIndex: Integer; const AValue: string);
  64282. begin
  64283. If (FTitle=AValue) then exit;
  64284. FTitle:=AValue;
  64285. MarkPropertyChanged(AIndex);
  64286. end;
  64287. Procedure TSP_DataSiteAssetsItem.SetTemplateUrl(AIndex: Integer; const AValue: string);
  64288. begin
  64289. If (FTemplateUrl=AValue) then exit;
  64290. FTemplateUrl:=AValue;
  64291. MarkPropertyChanged(AIndex);
  64292. end;
  64293. Procedure TSP_DataSiteAssetsItem.Setxd_ProgID(AIndex: Integer; const AValue: string);
  64294. begin
  64295. If (Fxd_ProgID=AValue) then exit;
  64296. Fxd_ProgID:=AValue;
  64297. MarkPropertyChanged(AIndex);
  64298. end;
  64299. Procedure TSP_DataSiteAssetsItem.Setxd_Signature(AIndex: Integer; const AValue: boolean);
  64300. begin
  64301. If (Fxd_Signature=AValue) then exit;
  64302. Fxd_Signature:=AValue;
  64303. MarkPropertyChanged(AIndex);
  64304. end;
  64305. Procedure TSP_DataSiteAssetsItem.SetCombine(AIndex: Integer; const AValue: string);
  64306. begin
  64307. If (FCombine=AValue) then exit;
  64308. FCombine:=AValue;
  64309. MarkPropertyChanged(AIndex);
  64310. end;
  64311. Procedure TSP_DataSiteAssetsItem.SetRepairDocument(AIndex: Integer; const AValue: string);
  64312. begin
  64313. If (FRepairDocument=AValue) then exit;
  64314. FRepairDocument:=AValue;
  64315. MarkPropertyChanged(AIndex);
  64316. end;
  64317. Function TSP_DataSiteAssetsItem.Author(AService: TODataService) : TSP_DataUserInfoItem;
  64318. begin
  64319. Result:=TSP_DataUserInfoItem(GetContainedSingleTon(AService,'Author', TSP_DataUserInfoItem));
  64320. end;
  64321. Function TSP_DataSiteAssetsItem.Editor(AService: TODataService) : TSP_DataUserInfoItem;
  64322. begin
  64323. Result:=TSP_DataUserInfoItem(GetContainedSingleTon(AService,'Editor', TSP_DataUserInfoItem));
  64324. end;
  64325. Function TSP_DataSiteAssetsItem.CheckoutUser(AService: TODataService) : TSP_DataUserInfoItem;
  64326. begin
  64327. Result:=TSP_DataUserInfoItem(GetContainedSingleTon(AService,'CheckoutUser', TSP_DataUserInfoItem));
  64328. end;
  64329. { --------------------------------------------------------------------
  64330. TSP_DataSocialItem
  64331. --------------------------------------------------------------------}
  64332. Class Function TSP_DataSocialItem.ObjectRestKind : String;
  64333. begin
  64334. Result:='SocialItem';
  64335. end;
  64336. Procedure TSP_DataSocialItem.SetContentTypeId(AIndex: Integer; const AValue: string);
  64337. begin
  64338. If (FContentTypeId=AValue) then exit;
  64339. FContentTypeId:=AValue;
  64340. MarkPropertyChanged(AIndex);
  64341. end;
  64342. Procedure TSP_DataSocialItem.SetTitle(AIndex: Integer; const AValue: string);
  64343. begin
  64344. If (FTitle=AValue) then exit;
  64345. FTitle:=AValue;
  64346. MarkPropertyChanged(AIndex);
  64347. end;
  64348. Procedure TSP_DataSocialItem.SetOData__ModerationComments(AIndex: Integer; const AValue: string);
  64349. begin
  64350. If (FOData__ModerationComments=AValue) then exit;
  64351. FOData__ModerationComments:=AValue;
  64352. MarkPropertyChanged(AIndex);
  64353. end;
  64354. Procedure TSP_DataSocialItem.SetFile_x0020_Type(AIndex: Integer; const AValue: string);
  64355. begin
  64356. If (FFile_x0020_Type=AValue) then exit;
  64357. FFile_x0020_Type:=AValue;
  64358. MarkPropertyChanged(AIndex);
  64359. end;
  64360. Procedure TSP_DataSocialItem.SetUnreadMentions(AIndex: Integer; const AValue: TInt32);
  64361. begin
  64362. If (FUnreadMentions=AValue) then exit;
  64363. FUnreadMentions:=AValue;
  64364. MarkPropertyChanged(AIndex);
  64365. end;
  64366. Procedure TSP_DataSocialItem.SetLastPostId(AIndex: Integer; const AValue: string);
  64367. begin
  64368. If (FLastPostId=AValue) then exit;
  64369. FLastPostId:=AValue;
  64370. MarkPropertyChanged(AIndex);
  64371. end;
  64372. Procedure TSP_DataSocialItem.SetSocialProperties(AIndex: Integer; const AValue: string);
  64373. begin
  64374. If (FSocialProperties=AValue) then exit;
  64375. FSocialProperties:=AValue;
  64376. MarkPropertyChanged(AIndex);
  64377. end;
  64378. Procedure TSP_DataSocialItem.SetUrl(AIndex: Integer; const AValue: string);
  64379. begin
  64380. If (FUrl=AValue) then exit;
  64381. FUrl:=AValue;
  64382. MarkPropertyChanged(AIndex);
  64383. end;
  64384. Procedure TSP_DataSocialItem.SetFarmId(AIndex: Integer; const AValue: string);
  64385. begin
  64386. If (FFarmId=AValue) then exit;
  64387. FFarmId:=AValue;
  64388. MarkPropertyChanged(AIndex);
  64389. end;
  64390. Procedure TSP_DataSocialItem.SetSiteId(AIndex: Integer; const AValue: TGUIDString);
  64391. begin
  64392. If (FSiteId=AValue) then exit;
  64393. FSiteId:=AValue;
  64394. MarkPropertyChanged(AIndex);
  64395. end;
  64396. Procedure TSP_DataSocialItem.SetWebId(AIndex: Integer; const AValue: TGUIDString);
  64397. begin
  64398. If (FWebId=AValue) then exit;
  64399. FWebId:=AValue;
  64400. MarkPropertyChanged(AIndex);
  64401. end;
  64402. Procedure TSP_DataSocialItem.SetParentUrl(AIndex: Integer; const AValue: string);
  64403. begin
  64404. If (FParentUrl=AValue) then exit;
  64405. FParentUrl:=AValue;
  64406. MarkPropertyChanged(AIndex);
  64407. end;
  64408. Procedure TSP_DataSocialItem.SetIconUrl(AIndex: Integer; const AValue: string);
  64409. begin
  64410. If (FIconUrl=AValue) then exit;
  64411. FIconUrl:=AValue;
  64412. MarkPropertyChanged(AIndex);
  64413. end;
  64414. Procedure TSP_DataSocialItem.SetHidden(AIndex: Integer; const AValue: boolean);
  64415. begin
  64416. If (FHidden=AValue) then exit;
  64417. FHidden:=AValue;
  64418. MarkPropertyChanged(AIndex);
  64419. end;
  64420. Procedure TSP_DataSocialItem.SetHasFeed(AIndex: Integer; const AValue: boolean);
  64421. begin
  64422. If (FHasFeed=AValue) then exit;
  64423. FHasFeed:=AValue;
  64424. MarkPropertyChanged(AIndex);
  64425. end;
  64426. Procedure TSP_DataSocialItem.SetFlags(AIndex: Integer; const AValue: string);
  64427. begin
  64428. If (FFlags=AValue) then exit;
  64429. FFlags:=AValue;
  64430. MarkPropertyChanged(AIndex);
  64431. end;
  64432. Procedure TSP_DataSocialItem.SetListId(AIndex: Integer; const AValue: TGUIDString);
  64433. begin
  64434. If (FListId=AValue) then exit;
  64435. FListId:=AValue;
  64436. MarkPropertyChanged(AIndex);
  64437. end;
  64438. Procedure TSP_DataSocialItem.SetItemUniqueId(AIndex: Integer; const AValue: TGUIDString);
  64439. begin
  64440. If (FItemUniqueId=AValue) then exit;
  64441. FItemUniqueId:=AValue;
  64442. MarkPropertyChanged(AIndex);
  64443. end;
  64444. Procedure TSP_DataSocialItem.SetItemId(AIndex: Integer; const AValue: TInt32);
  64445. begin
  64446. If (FItemId=AValue) then exit;
  64447. FItemId:=AValue;
  64448. MarkPropertyChanged(AIndex);
  64449. end;
  64450. Procedure TSP_DataSocialItem.SetSubtype(AIndex: Integer; const AValue: TInt32);
  64451. begin
  64452. If (FSubtype=AValue) then exit;
  64453. FSubtype:=AValue;
  64454. MarkPropertyChanged(AIndex);
  64455. end;
  64456. Procedure TSP_DataSocialItem.SetFileTypeProgid(AIndex: Integer; const AValue: string);
  64457. begin
  64458. If (FFileTypeProgid=AValue) then exit;
  64459. FFileTypeProgid:=AValue;
  64460. MarkPropertyChanged(AIndex);
  64461. end;
  64462. Procedure TSP_DataSocialItem.SetServerUrlProgid(AIndex: Integer; const AValue: string);
  64463. begin
  64464. If (FServerUrlProgid=AValue) then exit;
  64465. FServerUrlProgid:=AValue;
  64466. MarkPropertyChanged(AIndex);
  64467. end;
  64468. Procedure TSP_DataSocialItem.SetGroupId(AIndex: Integer; const AValue: TGUIDString);
  64469. begin
  64470. If (FGroupId=AValue) then exit;
  64471. FGroupId:=AValue;
  64472. MarkPropertyChanged(AIndex);
  64473. end;
  64474. Procedure TSP_DataSocialItem.SetPinned(AIndex: Integer; const AValue: TInt32);
  64475. begin
  64476. If (FPinned=AValue) then exit;
  64477. FPinned:=AValue;
  64478. MarkPropertyChanged(AIndex);
  64479. end;
  64480. Procedure TSP_DataSocialItem.SetModified(AIndex: Integer; const AValue: TDateTime);
  64481. begin
  64482. If (FModified=AValue) then exit;
  64483. FModified:=AValue;
  64484. MarkPropertyChanged(AIndex);
  64485. end;
  64486. Procedure TSP_DataSocialItem.SetCreated(AIndex: Integer; const AValue: TDateTime);
  64487. begin
  64488. If (FCreated=AValue) then exit;
  64489. FCreated:=AValue;
  64490. MarkPropertyChanged(AIndex);
  64491. end;
  64492. Procedure TSP_DataSocialItem.SetAuthorId(AIndex: Integer; const AValue: TInt32);
  64493. begin
  64494. If (FAuthorId=AValue) then exit;
  64495. FAuthorId:=AValue;
  64496. MarkPropertyChanged(AIndex);
  64497. end;
  64498. Procedure TSP_DataSocialItem.SetEditorId(AIndex: Integer; const AValue: TInt32);
  64499. begin
  64500. If (FEditorId=AValue) then exit;
  64501. FEditorId:=AValue;
  64502. MarkPropertyChanged(AIndex);
  64503. end;
  64504. Procedure TSP_DataSocialItem.SetOData__HasCopyDestinations(AIndex: Integer; const AValue: boolean);
  64505. begin
  64506. If (FOData__HasCopyDestinations=AValue) then exit;
  64507. FOData__HasCopyDestinations:=AValue;
  64508. MarkPropertyChanged(AIndex);
  64509. end;
  64510. Procedure TSP_DataSocialItem.SetOData__CopySource(AIndex: Integer; const AValue: string);
  64511. begin
  64512. If (FOData__CopySource=AValue) then exit;
  64513. FOData__CopySource:=AValue;
  64514. MarkPropertyChanged(AIndex);
  64515. end;
  64516. Procedure TSP_DataSocialItem.Setowshiddenversion(AIndex: Integer; const AValue: TInt32);
  64517. begin
  64518. If (Fowshiddenversion=AValue) then exit;
  64519. Fowshiddenversion:=AValue;
  64520. MarkPropertyChanged(AIndex);
  64521. end;
  64522. Procedure TSP_DataSocialItem.SetWorkflowVersion(AIndex: Integer; const AValue: TInt32);
  64523. begin
  64524. If (FWorkflowVersion=AValue) then exit;
  64525. FWorkflowVersion:=AValue;
  64526. MarkPropertyChanged(AIndex);
  64527. end;
  64528. Procedure TSP_DataSocialItem.SetOData__UIVersion(AIndex: Integer; const AValue: TInt32);
  64529. begin
  64530. If (FOData__UIVersion=AValue) then exit;
  64531. FOData__UIVersion:=AValue;
  64532. MarkPropertyChanged(AIndex);
  64533. end;
  64534. Procedure TSP_DataSocialItem.SetOData__UIVersionString(AIndex: Integer; const AValue: string);
  64535. begin
  64536. If (FOData__UIVersionString=AValue) then exit;
  64537. FOData__UIVersionString:=AValue;
  64538. MarkPropertyChanged(AIndex);
  64539. end;
  64540. Procedure TSP_DataSocialItem.SetAttachments(AIndex: Integer; const AValue: boolean);
  64541. begin
  64542. If (FAttachments=AValue) then exit;
  64543. FAttachments:=AValue;
  64544. MarkPropertyChanged(AIndex);
  64545. end;
  64546. Procedure TSP_DataSocialItem.SetOData__ModerationStatus(AIndex: Integer; const AValue: TInt32);
  64547. begin
  64548. If (FOData__ModerationStatus=AValue) then exit;
  64549. FOData__ModerationStatus:=AValue;
  64550. MarkPropertyChanged(AIndex);
  64551. end;
  64552. Procedure TSP_DataSocialItem.SetEdit(AIndex: Integer; const AValue: string);
  64553. begin
  64554. If (FEdit=AValue) then exit;
  64555. FEdit:=AValue;
  64556. MarkPropertyChanged(AIndex);
  64557. end;
  64558. Procedure TSP_DataSocialItem.SetLinkTitleNoMenu(AIndex: Integer; const AValue: string);
  64559. begin
  64560. If (FLinkTitleNoMenu=AValue) then exit;
  64561. FLinkTitleNoMenu:=AValue;
  64562. MarkPropertyChanged(AIndex);
  64563. end;
  64564. Procedure TSP_DataSocialItem.SetLinkTitle(AIndex: Integer; const AValue: string);
  64565. begin
  64566. If (FLinkTitle=AValue) then exit;
  64567. FLinkTitle:=AValue;
  64568. MarkPropertyChanged(AIndex);
  64569. end;
  64570. Procedure TSP_DataSocialItem.SetLinkTitle2(AIndex: Integer; const AValue: string);
  64571. begin
  64572. If (FLinkTitle2=AValue) then exit;
  64573. FLinkTitle2:=AValue;
  64574. MarkPropertyChanged(AIndex);
  64575. end;
  64576. Procedure TSP_DataSocialItem.SetSelectTitle(AIndex: Integer; const AValue: string);
  64577. begin
  64578. If (FSelectTitle=AValue) then exit;
  64579. FSelectTitle:=AValue;
  64580. MarkPropertyChanged(AIndex);
  64581. end;
  64582. Procedure TSP_DataSocialItem.SetInstanceID(AIndex: Integer; const AValue: TInt32);
  64583. begin
  64584. If (FInstanceID=AValue) then exit;
  64585. FInstanceID:=AValue;
  64586. MarkPropertyChanged(AIndex);
  64587. end;
  64588. Procedure TSP_DataSocialItem.SetOrder(AIndex: Integer; const AValue: Double);
  64589. begin
  64590. If (FOrder=AValue) then exit;
  64591. FOrder:=AValue;
  64592. MarkPropertyChanged(AIndex);
  64593. end;
  64594. Procedure TSP_DataSocialItem.SetGUID(AIndex: Integer; const AValue: TGUIDString);
  64595. begin
  64596. If (FGUID=AValue) then exit;
  64597. FGUID:=AValue;
  64598. MarkPropertyChanged(AIndex);
  64599. end;
  64600. Procedure TSP_DataSocialItem.SetWorkflowInstanceID(AIndex: Integer; const AValue: TGUIDString);
  64601. begin
  64602. If (FWorkflowInstanceID=AValue) then exit;
  64603. FWorkflowInstanceID:=AValue;
  64604. MarkPropertyChanged(AIndex);
  64605. end;
  64606. Procedure TSP_DataSocialItem.SetFileRef(AIndex: Integer; const AValue: string);
  64607. begin
  64608. If (FFileRef=AValue) then exit;
  64609. FFileRef:=AValue;
  64610. MarkPropertyChanged(AIndex);
  64611. end;
  64612. Procedure TSP_DataSocialItem.SetFileDirRef(AIndex: Integer; const AValue: string);
  64613. begin
  64614. If (FFileDirRef=AValue) then exit;
  64615. FFileDirRef:=AValue;
  64616. MarkPropertyChanged(AIndex);
  64617. end;
  64618. Procedure TSP_DataSocialItem.SetLast_x0020_Modified(AIndex: Integer; const AValue: TDateTime);
  64619. begin
  64620. If (FLast_x0020_Modified=AValue) then exit;
  64621. FLast_x0020_Modified:=AValue;
  64622. MarkPropertyChanged(AIndex);
  64623. end;
  64624. Procedure TSP_DataSocialItem.SetCreated_x0020_Date(AIndex: Integer; const AValue: TDateTime);
  64625. begin
  64626. If (FCreated_x0020_Date=AValue) then exit;
  64627. FCreated_x0020_Date:=AValue;
  64628. MarkPropertyChanged(AIndex);
  64629. end;
  64630. Procedure TSP_DataSocialItem.SetFSObjType(AIndex: Integer; const AValue: TInt32);
  64631. begin
  64632. If (FFSObjType=AValue) then exit;
  64633. FFSObjType:=AValue;
  64634. MarkPropertyChanged(AIndex);
  64635. end;
  64636. Procedure TSP_DataSocialItem.SetPermMask(AIndex: Integer; const AValue: string);
  64637. begin
  64638. If (FPermMask=AValue) then exit;
  64639. FPermMask:=AValue;
  64640. MarkPropertyChanged(AIndex);
  64641. end;
  64642. Procedure TSP_DataSocialItem.SetFileLeafRef(AIndex: Integer; const AValue: string);
  64643. begin
  64644. If (FFileLeafRef=AValue) then exit;
  64645. FFileLeafRef:=AValue;
  64646. MarkPropertyChanged(AIndex);
  64647. end;
  64648. Procedure TSP_DataSocialItem.SetUniqueId(AIndex: Integer; const AValue: TGUIDString);
  64649. begin
  64650. If (FUniqueId=AValue) then exit;
  64651. FUniqueId:=AValue;
  64652. MarkPropertyChanged(AIndex);
  64653. end;
  64654. Procedure TSP_DataSocialItem.SetHTML_x0020_File_x0020_Type(AIndex: Integer; const AValue: string);
  64655. begin
  64656. If (FHTML_x0020_File_x0020_Type=AValue) then exit;
  64657. FHTML_x0020_File_x0020_Type:=AValue;
  64658. MarkPropertyChanged(AIndex);
  64659. end;
  64660. Procedure TSP_DataSocialItem.SetOData__EditMenuTableStart(AIndex: Integer; const AValue: string);
  64661. begin
  64662. If (FOData__EditMenuTableStart=AValue) then exit;
  64663. FOData__EditMenuTableStart:=AValue;
  64664. MarkPropertyChanged(AIndex);
  64665. end;
  64666. Procedure TSP_DataSocialItem.SetOData__EditMenuTableStart2(AIndex: Integer; const AValue: string);
  64667. begin
  64668. If (FOData__EditMenuTableStart2=AValue) then exit;
  64669. FOData__EditMenuTableStart2:=AValue;
  64670. MarkPropertyChanged(AIndex);
  64671. end;
  64672. Procedure TSP_DataSocialItem.SetOData__EditMenuTableEnd(AIndex: Integer; const AValue: string);
  64673. begin
  64674. If (FOData__EditMenuTableEnd=AValue) then exit;
  64675. FOData__EditMenuTableEnd:=AValue;
  64676. MarkPropertyChanged(AIndex);
  64677. end;
  64678. Procedure TSP_DataSocialItem.SetLinkFilenameNoMenu(AIndex: Integer; const AValue: string);
  64679. begin
  64680. If (FLinkFilenameNoMenu=AValue) then exit;
  64681. FLinkFilenameNoMenu:=AValue;
  64682. MarkPropertyChanged(AIndex);
  64683. end;
  64684. Procedure TSP_DataSocialItem.SetLinkFilename(AIndex: Integer; const AValue: string);
  64685. begin
  64686. If (FLinkFilename=AValue) then exit;
  64687. FLinkFilename:=AValue;
  64688. MarkPropertyChanged(AIndex);
  64689. end;
  64690. Procedure TSP_DataSocialItem.SetLinkFilename2(AIndex: Integer; const AValue: string);
  64691. begin
  64692. If (FLinkFilename2=AValue) then exit;
  64693. FLinkFilename2:=AValue;
  64694. MarkPropertyChanged(AIndex);
  64695. end;
  64696. Procedure TSP_DataSocialItem.SetDocIcon(AIndex: Integer; const AValue: string);
  64697. begin
  64698. If (FDocIcon=AValue) then exit;
  64699. FDocIcon:=AValue;
  64700. MarkPropertyChanged(AIndex);
  64701. end;
  64702. Procedure TSP_DataSocialItem.SetServerUrl(AIndex: Integer; const AValue: string);
  64703. begin
  64704. If (FServerUrl=AValue) then exit;
  64705. FServerUrl:=AValue;
  64706. MarkPropertyChanged(AIndex);
  64707. end;
  64708. Procedure TSP_DataSocialItem.SetEncodedAbsUrl(AIndex: Integer; const AValue: string);
  64709. begin
  64710. If (FEncodedAbsUrl=AValue) then exit;
  64711. FEncodedAbsUrl:=AValue;
  64712. MarkPropertyChanged(AIndex);
  64713. end;
  64714. Procedure TSP_DataSocialItem.SetBaseName(AIndex: Integer; const AValue: string);
  64715. begin
  64716. If (FBaseName=AValue) then exit;
  64717. FBaseName:=AValue;
  64718. MarkPropertyChanged(AIndex);
  64719. end;
  64720. Procedure TSP_DataSocialItem.SetOData__Level(AIndex: Integer; const AValue: TInt32);
  64721. begin
  64722. If (FOData__Level=AValue) then exit;
  64723. FOData__Level:=AValue;
  64724. MarkPropertyChanged(AIndex);
  64725. end;
  64726. Procedure TSP_DataSocialItem.SetOData__IsCurrentVersion(AIndex: Integer; const AValue: boolean);
  64727. begin
  64728. If (FOData__IsCurrentVersion=AValue) then exit;
  64729. FOData__IsCurrentVersion:=AValue;
  64730. MarkPropertyChanged(AIndex);
  64731. end;
  64732. Procedure TSP_DataSocialItem.SetAppAuthorId(AIndex: Integer; const AValue: TInt32);
  64733. begin
  64734. If (FAppAuthorId=AValue) then exit;
  64735. FAppAuthorId:=AValue;
  64736. MarkPropertyChanged(AIndex);
  64737. end;
  64738. Procedure TSP_DataSocialItem.SetAppEditorId(AIndex: Integer; const AValue: TInt32);
  64739. begin
  64740. If (FAppEditorId=AValue) then exit;
  64741. FAppEditorId:=AValue;
  64742. MarkPropertyChanged(AIndex);
  64743. end;
  64744. Function TSP_DataSocialItem.Author(AService: TODataService) : TSP_DataUserInfoItem;
  64745. begin
  64746. Result:=TSP_DataUserInfoItem(GetContainedSingleTon(AService,'Author', TSP_DataUserInfoItem));
  64747. end;
  64748. Function TSP_DataSocialItem.Editor(AService: TODataService) : TSP_DataUserInfoItem;
  64749. begin
  64750. Result:=TSP_DataUserInfoItem(GetContainedSingleTon(AService,'Editor', TSP_DataUserInfoItem));
  64751. end;
  64752. { --------------------------------------------------------------------
  64753. TSP_DataOData__x005f_catalogs_x002f_solutionsItem
  64754. --------------------------------------------------------------------}
  64755. Class Function TSP_DataOData__x005f_catalogs_x002f_solutionsItem.ObjectRestKind : String;
  64756. begin
  64757. Result:='OData__x005f_catalogs_x002f_solutionsItem';
  64758. end;
  64759. Procedure TSP_DataOData__x005f_catalogs_x002f_solutionsItem.SetContentTypeId(AIndex: Integer; const AValue: string);
  64760. begin
  64761. If (FContentTypeId=AValue) then exit;
  64762. FContentTypeId:=AValue;
  64763. MarkPropertyChanged(AIndex);
  64764. end;
  64765. Procedure TSP_DataOData__x005f_catalogs_x002f_solutionsItem.SetCreated(AIndex: Integer; const AValue: TDateTime);
  64766. begin
  64767. If (FCreated=AValue) then exit;
  64768. FCreated:=AValue;
  64769. MarkPropertyChanged(AIndex);
  64770. end;
  64771. Procedure TSP_DataOData__x005f_catalogs_x002f_solutionsItem.SetAuthorId(AIndex: Integer; const AValue: TInt32);
  64772. begin
  64773. If (FAuthorId=AValue) then exit;
  64774. FAuthorId:=AValue;
  64775. MarkPropertyChanged(AIndex);
  64776. end;
  64777. Procedure TSP_DataOData__x005f_catalogs_x002f_solutionsItem.SetModified(AIndex: Integer; const AValue: TDateTime);
  64778. begin
  64779. If (FModified=AValue) then exit;
  64780. FModified:=AValue;
  64781. MarkPropertyChanged(AIndex);
  64782. end;
  64783. Procedure TSP_DataOData__x005f_catalogs_x002f_solutionsItem.SetEditorId(AIndex: Integer; const AValue: TInt32);
  64784. begin
  64785. If (FEditorId=AValue) then exit;
  64786. FEditorId:=AValue;
  64787. MarkPropertyChanged(AIndex);
  64788. end;
  64789. Procedure TSP_DataOData__x005f_catalogs_x002f_solutionsItem.SetOData__HasCopyDestinations(AIndex: Integer; const AValue: boolean);
  64790. begin
  64791. If (FOData__HasCopyDestinations=AValue) then exit;
  64792. FOData__HasCopyDestinations:=AValue;
  64793. MarkPropertyChanged(AIndex);
  64794. end;
  64795. Procedure TSP_DataOData__x005f_catalogs_x002f_solutionsItem.SetOData__CopySource(AIndex: Integer; const AValue: string);
  64796. begin
  64797. If (FOData__CopySource=AValue) then exit;
  64798. FOData__CopySource:=AValue;
  64799. MarkPropertyChanged(AIndex);
  64800. end;
  64801. Procedure TSP_DataOData__x005f_catalogs_x002f_solutionsItem.SetOData__ModerationStatus(AIndex: Integer; const AValue: TInt32);
  64802. begin
  64803. If (FOData__ModerationStatus=AValue) then exit;
  64804. FOData__ModerationStatus:=AValue;
  64805. MarkPropertyChanged(AIndex);
  64806. end;
  64807. Procedure TSP_DataOData__x005f_catalogs_x002f_solutionsItem.SetOData__ModerationComments(AIndex: Integer; const AValue: string);
  64808. begin
  64809. If (FOData__ModerationComments=AValue) then exit;
  64810. FOData__ModerationComments:=AValue;
  64811. MarkPropertyChanged(AIndex);
  64812. end;
  64813. Procedure TSP_DataOData__x005f_catalogs_x002f_solutionsItem.SetFileRef(AIndex: Integer; const AValue: string);
  64814. begin
  64815. If (FFileRef=AValue) then exit;
  64816. FFileRef:=AValue;
  64817. MarkPropertyChanged(AIndex);
  64818. end;
  64819. Procedure TSP_DataOData__x005f_catalogs_x002f_solutionsItem.SetFileDirRef(AIndex: Integer; const AValue: string);
  64820. begin
  64821. If (FFileDirRef=AValue) then exit;
  64822. FFileDirRef:=AValue;
  64823. MarkPropertyChanged(AIndex);
  64824. end;
  64825. Procedure TSP_DataOData__x005f_catalogs_x002f_solutionsItem.SetLast_x0020_Modified(AIndex: Integer; const AValue: TDateTime);
  64826. begin
  64827. If (FLast_x0020_Modified=AValue) then exit;
  64828. FLast_x0020_Modified:=AValue;
  64829. MarkPropertyChanged(AIndex);
  64830. end;
  64831. Procedure TSP_DataOData__x005f_catalogs_x002f_solutionsItem.SetCreated_x0020_Date(AIndex: Integer; const AValue: TDateTime);
  64832. begin
  64833. If (FCreated_x0020_Date=AValue) then exit;
  64834. FCreated_x0020_Date:=AValue;
  64835. MarkPropertyChanged(AIndex);
  64836. end;
  64837. Procedure TSP_DataOData__x005f_catalogs_x002f_solutionsItem.SetFSObjType(AIndex: Integer; const AValue: TInt32);
  64838. begin
  64839. If (FFSObjType=AValue) then exit;
  64840. FFSObjType:=AValue;
  64841. MarkPropertyChanged(AIndex);
  64842. end;
  64843. Procedure TSP_DataOData__x005f_catalogs_x002f_solutionsItem.SetPermMask(AIndex: Integer; const AValue: string);
  64844. begin
  64845. If (FPermMask=AValue) then exit;
  64846. FPermMask:=AValue;
  64847. MarkPropertyChanged(AIndex);
  64848. end;
  64849. Procedure TSP_DataOData__x005f_catalogs_x002f_solutionsItem.SetCheckoutUserId(AIndex: Integer; const AValue: TInt32);
  64850. begin
  64851. If (FCheckoutUserId=AValue) then exit;
  64852. FCheckoutUserId:=AValue;
  64853. MarkPropertyChanged(AIndex);
  64854. end;
  64855. Procedure TSP_DataOData__x005f_catalogs_x002f_solutionsItem.SetFileLeafRef(AIndex: Integer; const AValue: string);
  64856. begin
  64857. If (FFileLeafRef=AValue) then exit;
  64858. FFileLeafRef:=AValue;
  64859. MarkPropertyChanged(AIndex);
  64860. end;
  64861. Procedure TSP_DataOData__x005f_catalogs_x002f_solutionsItem.SetUniqueId(AIndex: Integer; const AValue: TGUIDString);
  64862. begin
  64863. If (FUniqueId=AValue) then exit;
  64864. FUniqueId:=AValue;
  64865. MarkPropertyChanged(AIndex);
  64866. end;
  64867. Procedure TSP_DataOData__x005f_catalogs_x002f_solutionsItem.SetOData__CheckinComment(AIndex: Integer; const AValue: string);
  64868. begin
  64869. If (FOData__CheckinComment=AValue) then exit;
  64870. FOData__CheckinComment:=AValue;
  64871. MarkPropertyChanged(AIndex);
  64872. end;
  64873. Procedure TSP_DataOData__x005f_catalogs_x002f_solutionsItem.SetLinkCheckedOutTitle(AIndex: Integer; const AValue: string);
  64874. begin
  64875. If (FLinkCheckedOutTitle=AValue) then exit;
  64876. FLinkCheckedOutTitle:=AValue;
  64877. MarkPropertyChanged(AIndex);
  64878. end;
  64879. Procedure TSP_DataOData__x005f_catalogs_x002f_solutionsItem.SetModified_x0020_By(AIndex: Integer; const AValue: string);
  64880. begin
  64881. If (FModified_x0020_By=AValue) then exit;
  64882. FModified_x0020_By:=AValue;
  64883. MarkPropertyChanged(AIndex);
  64884. end;
  64885. Procedure TSP_DataOData__x005f_catalogs_x002f_solutionsItem.SetCreated_x0020_By(AIndex: Integer; const AValue: string);
  64886. begin
  64887. If (FCreated_x0020_By=AValue) then exit;
  64888. FCreated_x0020_By:=AValue;
  64889. MarkPropertyChanged(AIndex);
  64890. end;
  64891. Procedure TSP_DataOData__x005f_catalogs_x002f_solutionsItem.SetFile_x0020_Type(AIndex: Integer; const AValue: string);
  64892. begin
  64893. If (FFile_x0020_Type=AValue) then exit;
  64894. FFile_x0020_Type:=AValue;
  64895. MarkPropertyChanged(AIndex);
  64896. end;
  64897. Procedure TSP_DataOData__x005f_catalogs_x002f_solutionsItem.SetHTML_x0020_File_x0020_Type(AIndex: Integer; const AValue: string);
  64898. begin
  64899. If (FHTML_x0020_File_x0020_Type=AValue) then exit;
  64900. FHTML_x0020_File_x0020_Type:=AValue;
  64901. MarkPropertyChanged(AIndex);
  64902. end;
  64903. Procedure TSP_DataOData__x005f_catalogs_x002f_solutionsItem.SetOData__SourceUrl(AIndex: Integer; const AValue: string);
  64904. begin
  64905. If (FOData__SourceUrl=AValue) then exit;
  64906. FOData__SourceUrl:=AValue;
  64907. MarkPropertyChanged(AIndex);
  64908. end;
  64909. Procedure TSP_DataOData__x005f_catalogs_x002f_solutionsItem.SetOData__SharedFileIndex(AIndex: Integer; const AValue: string);
  64910. begin
  64911. If (FOData__SharedFileIndex=AValue) then exit;
  64912. FOData__SharedFileIndex:=AValue;
  64913. MarkPropertyChanged(AIndex);
  64914. end;
  64915. Procedure TSP_DataOData__x005f_catalogs_x002f_solutionsItem.SetOData__EditMenuTableStart(AIndex: Integer; const AValue: string);
  64916. begin
  64917. If (FOData__EditMenuTableStart=AValue) then exit;
  64918. FOData__EditMenuTableStart:=AValue;
  64919. MarkPropertyChanged(AIndex);
  64920. end;
  64921. Procedure TSP_DataOData__x005f_catalogs_x002f_solutionsItem.SetOData__EditMenuTableStart2(AIndex: Integer; const AValue: string);
  64922. begin
  64923. If (FOData__EditMenuTableStart2=AValue) then exit;
  64924. FOData__EditMenuTableStart2:=AValue;
  64925. MarkPropertyChanged(AIndex);
  64926. end;
  64927. Procedure TSP_DataOData__x005f_catalogs_x002f_solutionsItem.SetOData__EditMenuTableEnd(AIndex: Integer; const AValue: string);
  64928. begin
  64929. If (FOData__EditMenuTableEnd=AValue) then exit;
  64930. FOData__EditMenuTableEnd:=AValue;
  64931. MarkPropertyChanged(AIndex);
  64932. end;
  64933. Procedure TSP_DataOData__x005f_catalogs_x002f_solutionsItem.SetLinkFilenameNoMenu(AIndex: Integer; const AValue: string);
  64934. begin
  64935. If (FLinkFilenameNoMenu=AValue) then exit;
  64936. FLinkFilenameNoMenu:=AValue;
  64937. MarkPropertyChanged(AIndex);
  64938. end;
  64939. Procedure TSP_DataOData__x005f_catalogs_x002f_solutionsItem.SetLinkFilename(AIndex: Integer; const AValue: string);
  64940. begin
  64941. If (FLinkFilename=AValue) then exit;
  64942. FLinkFilename:=AValue;
  64943. MarkPropertyChanged(AIndex);
  64944. end;
  64945. Procedure TSP_DataOData__x005f_catalogs_x002f_solutionsItem.SetLinkFilename2(AIndex: Integer; const AValue: string);
  64946. begin
  64947. If (FLinkFilename2=AValue) then exit;
  64948. FLinkFilename2:=AValue;
  64949. MarkPropertyChanged(AIndex);
  64950. end;
  64951. Procedure TSP_DataOData__x005f_catalogs_x002f_solutionsItem.SetDocIcon(AIndex: Integer; const AValue: string);
  64952. begin
  64953. If (FDocIcon=AValue) then exit;
  64954. FDocIcon:=AValue;
  64955. MarkPropertyChanged(AIndex);
  64956. end;
  64957. Procedure TSP_DataOData__x005f_catalogs_x002f_solutionsItem.SetServerUrl(AIndex: Integer; const AValue: string);
  64958. begin
  64959. If (FServerUrl=AValue) then exit;
  64960. FServerUrl:=AValue;
  64961. MarkPropertyChanged(AIndex);
  64962. end;
  64963. Procedure TSP_DataOData__x005f_catalogs_x002f_solutionsItem.SetEncodedAbsUrl(AIndex: Integer; const AValue: string);
  64964. begin
  64965. If (FEncodedAbsUrl=AValue) then exit;
  64966. FEncodedAbsUrl:=AValue;
  64967. MarkPropertyChanged(AIndex);
  64968. end;
  64969. Procedure TSP_DataOData__x005f_catalogs_x002f_solutionsItem.SetBaseName(AIndex: Integer; const AValue: string);
  64970. begin
  64971. If (FBaseName=AValue) then exit;
  64972. FBaseName:=AValue;
  64973. MarkPropertyChanged(AIndex);
  64974. end;
  64975. Procedure TSP_DataOData__x005f_catalogs_x002f_solutionsItem.SetFileSizeDisplay(AIndex: Integer; const AValue: string);
  64976. begin
  64977. If (FFileSizeDisplay=AValue) then exit;
  64978. FFileSizeDisplay:=AValue;
  64979. MarkPropertyChanged(AIndex);
  64980. end;
  64981. Procedure TSP_DataOData__x005f_catalogs_x002f_solutionsItem.SetOData__Level(AIndex: Integer; const AValue: TInt32);
  64982. begin
  64983. If (FOData__Level=AValue) then exit;
  64984. FOData__Level:=AValue;
  64985. MarkPropertyChanged(AIndex);
  64986. end;
  64987. Procedure TSP_DataOData__x005f_catalogs_x002f_solutionsItem.SetOData__IsCurrentVersion(AIndex: Integer; const AValue: boolean);
  64988. begin
  64989. If (FOData__IsCurrentVersion=AValue) then exit;
  64990. FOData__IsCurrentVersion:=AValue;
  64991. MarkPropertyChanged(AIndex);
  64992. end;
  64993. Procedure TSP_DataOData__x005f_catalogs_x002f_solutionsItem.SetAppAuthorId(AIndex: Integer; const AValue: TInt32);
  64994. begin
  64995. If (FAppAuthorId=AValue) then exit;
  64996. FAppAuthorId:=AValue;
  64997. MarkPropertyChanged(AIndex);
  64998. end;
  64999. Procedure TSP_DataOData__x005f_catalogs_x002f_solutionsItem.SetAppEditorId(AIndex: Integer; const AValue: TInt32);
  65000. begin
  65001. If (FAppEditorId=AValue) then exit;
  65002. FAppEditorId:=AValue;
  65003. MarkPropertyChanged(AIndex);
  65004. end;
  65005. Procedure TSP_DataOData__x005f_catalogs_x002f_solutionsItem.SetSelectTitle(AIndex: Integer; const AValue: string);
  65006. begin
  65007. If (FSelectTitle=AValue) then exit;
  65008. FSelectTitle:=AValue;
  65009. MarkPropertyChanged(AIndex);
  65010. end;
  65011. Procedure TSP_DataOData__x005f_catalogs_x002f_solutionsItem.SetSelectFilename(AIndex: Integer; const AValue: string);
  65012. begin
  65013. If (FSelectFilename=AValue) then exit;
  65014. FSelectFilename:=AValue;
  65015. MarkPropertyChanged(AIndex);
  65016. end;
  65017. Procedure TSP_DataOData__x005f_catalogs_x002f_solutionsItem.SetEdit(AIndex: Integer; const AValue: string);
  65018. begin
  65019. If (FEdit=AValue) then exit;
  65020. FEdit:=AValue;
  65021. MarkPropertyChanged(AIndex);
  65022. end;
  65023. Procedure TSP_DataOData__x005f_catalogs_x002f_solutionsItem.Setowshiddenversion(AIndex: Integer; const AValue: TInt32);
  65024. begin
  65025. If (Fowshiddenversion=AValue) then exit;
  65026. Fowshiddenversion:=AValue;
  65027. MarkPropertyChanged(AIndex);
  65028. end;
  65029. Procedure TSP_DataOData__x005f_catalogs_x002f_solutionsItem.SetOData__UIVersion(AIndex: Integer; const AValue: TInt32);
  65030. begin
  65031. If (FOData__UIVersion=AValue) then exit;
  65032. FOData__UIVersion:=AValue;
  65033. MarkPropertyChanged(AIndex);
  65034. end;
  65035. Procedure TSP_DataOData__x005f_catalogs_x002f_solutionsItem.SetOData__UIVersionString(AIndex: Integer; const AValue: string);
  65036. begin
  65037. If (FOData__UIVersionString=AValue) then exit;
  65038. FOData__UIVersionString:=AValue;
  65039. MarkPropertyChanged(AIndex);
  65040. end;
  65041. Procedure TSP_DataOData__x005f_catalogs_x002f_solutionsItem.SetInstanceID(AIndex: Integer; const AValue: TInt32);
  65042. begin
  65043. If (FInstanceID=AValue) then exit;
  65044. FInstanceID:=AValue;
  65045. MarkPropertyChanged(AIndex);
  65046. end;
  65047. Procedure TSP_DataOData__x005f_catalogs_x002f_solutionsItem.SetOrder(AIndex: Integer; const AValue: Double);
  65048. begin
  65049. If (FOrder=AValue) then exit;
  65050. FOrder:=AValue;
  65051. MarkPropertyChanged(AIndex);
  65052. end;
  65053. Procedure TSP_DataOData__x005f_catalogs_x002f_solutionsItem.SetGUID(AIndex: Integer; const AValue: TGUIDString);
  65054. begin
  65055. If (FGUID=AValue) then exit;
  65056. FGUID:=AValue;
  65057. MarkPropertyChanged(AIndex);
  65058. end;
  65059. Procedure TSP_DataOData__x005f_catalogs_x002f_solutionsItem.SetWorkflowVersion(AIndex: Integer; const AValue: TInt32);
  65060. begin
  65061. If (FWorkflowVersion=AValue) then exit;
  65062. FWorkflowVersion:=AValue;
  65063. MarkPropertyChanged(AIndex);
  65064. end;
  65065. Procedure TSP_DataOData__x005f_catalogs_x002f_solutionsItem.SetWorkflowInstanceID(AIndex: Integer; const AValue: TGUIDString);
  65066. begin
  65067. If (FWorkflowInstanceID=AValue) then exit;
  65068. FWorkflowInstanceID:=AValue;
  65069. MarkPropertyChanged(AIndex);
  65070. end;
  65071. Procedure TSP_DataOData__x005f_catalogs_x002f_solutionsItem.SetSolutionId(AIndex: Integer; const AValue: TGUIDString);
  65072. begin
  65073. If (FSolutionId=AValue) then exit;
  65074. FSolutionId:=AValue;
  65075. MarkPropertyChanged(AIndex);
  65076. end;
  65077. Procedure TSP_DataOData__x005f_catalogs_x002f_solutionsItem.SetSolutionTitle(AIndex: Integer; const AValue: string);
  65078. begin
  65079. If (FSolutionTitle=AValue) then exit;
  65080. FSolutionTitle:=AValue;
  65081. MarkPropertyChanged(AIndex);
  65082. end;
  65083. Procedure TSP_DataOData__x005f_catalogs_x002f_solutionsItem.SetSolutionDescription(AIndex: Integer; const AValue: string);
  65084. begin
  65085. If (FSolutionDescription=AValue) then exit;
  65086. FSolutionDescription:=AValue;
  65087. MarkPropertyChanged(AIndex);
  65088. end;
  65089. Procedure TSP_DataOData__x005f_catalogs_x002f_solutionsItem.SetSolutionHash(AIndex: Integer; const AValue: string);
  65090. begin
  65091. If (FSolutionHash=AValue) then exit;
  65092. FSolutionHash:=AValue;
  65093. MarkPropertyChanged(AIndex);
  65094. end;
  65095. Procedure TSP_DataOData__x005f_catalogs_x002f_solutionsItem.SetComputedStatus(AIndex: Integer; const AValue: string);
  65096. begin
  65097. If (FComputedStatus=AValue) then exit;
  65098. FComputedStatus:=AValue;
  65099. MarkPropertyChanged(AIndex);
  65100. end;
  65101. Procedure TSP_DataOData__x005f_catalogs_x002f_solutionsItem.SetComputedQuota(AIndex: Integer; const AValue: string);
  65102. begin
  65103. If (FComputedQuota=AValue) then exit;
  65104. FComputedQuota:=AValue;
  65105. MarkPropertyChanged(AIndex);
  65106. end;
  65107. Function TSP_DataOData__x005f_catalogs_x002f_solutionsItem.Author(AService: TODataService) : TSP_DataUserInfoItem;
  65108. begin
  65109. Result:=TSP_DataUserInfoItem(GetContainedSingleTon(AService,'Author', TSP_DataUserInfoItem));
  65110. end;
  65111. Function TSP_DataOData__x005f_catalogs_x002f_solutionsItem.Editor(AService: TODataService) : TSP_DataUserInfoItem;
  65112. begin
  65113. Result:=TSP_DataUserInfoItem(GetContainedSingleTon(AService,'Editor', TSP_DataUserInfoItem));
  65114. end;
  65115. Function TSP_DataOData__x005f_catalogs_x002f_solutionsItem.CheckoutUser(AService: TODataService) : TSP_DataUserInfoItem;
  65116. begin
  65117. Result:=TSP_DataUserInfoItem(GetContainedSingleTon(AService,'CheckoutUser', TSP_DataUserInfoItem));
  65118. end;
  65119. { --------------------------------------------------------------------
  65120. TSP_DataStyle_x0020_LibraryItem
  65121. --------------------------------------------------------------------}
  65122. Class Function TSP_DataStyle_x0020_LibraryItem.ObjectRestKind : String;
  65123. begin
  65124. Result:='Style_x0020_LibraryItem';
  65125. end;
  65126. Procedure TSP_DataStyle_x0020_LibraryItem.SetContentTypeId(AIndex: Integer; const AValue: string);
  65127. begin
  65128. If (FContentTypeId=AValue) then exit;
  65129. FContentTypeId:=AValue;
  65130. MarkPropertyChanged(AIndex);
  65131. end;
  65132. Procedure TSP_DataStyle_x0020_LibraryItem.SetCreated(AIndex: Integer; const AValue: TDateTime);
  65133. begin
  65134. If (FCreated=AValue) then exit;
  65135. FCreated:=AValue;
  65136. MarkPropertyChanged(AIndex);
  65137. end;
  65138. Procedure TSP_DataStyle_x0020_LibraryItem.SetAuthorId(AIndex: Integer; const AValue: TInt32);
  65139. begin
  65140. If (FAuthorId=AValue) then exit;
  65141. FAuthorId:=AValue;
  65142. MarkPropertyChanged(AIndex);
  65143. end;
  65144. Procedure TSP_DataStyle_x0020_LibraryItem.SetModified(AIndex: Integer; const AValue: TDateTime);
  65145. begin
  65146. If (FModified=AValue) then exit;
  65147. FModified:=AValue;
  65148. MarkPropertyChanged(AIndex);
  65149. end;
  65150. Procedure TSP_DataStyle_x0020_LibraryItem.SetEditorId(AIndex: Integer; const AValue: TInt32);
  65151. begin
  65152. If (FEditorId=AValue) then exit;
  65153. FEditorId:=AValue;
  65154. MarkPropertyChanged(AIndex);
  65155. end;
  65156. Procedure TSP_DataStyle_x0020_LibraryItem.SetOData__HasCopyDestinations(AIndex: Integer; const AValue: boolean);
  65157. begin
  65158. If (FOData__HasCopyDestinations=AValue) then exit;
  65159. FOData__HasCopyDestinations:=AValue;
  65160. MarkPropertyChanged(AIndex);
  65161. end;
  65162. Procedure TSP_DataStyle_x0020_LibraryItem.SetOData__CopySource(AIndex: Integer; const AValue: string);
  65163. begin
  65164. If (FOData__CopySource=AValue) then exit;
  65165. FOData__CopySource:=AValue;
  65166. MarkPropertyChanged(AIndex);
  65167. end;
  65168. Procedure TSP_DataStyle_x0020_LibraryItem.SetOData__ModerationStatus(AIndex: Integer; const AValue: TInt32);
  65169. begin
  65170. If (FOData__ModerationStatus=AValue) then exit;
  65171. FOData__ModerationStatus:=AValue;
  65172. MarkPropertyChanged(AIndex);
  65173. end;
  65174. Procedure TSP_DataStyle_x0020_LibraryItem.SetOData__ModerationComments(AIndex: Integer; const AValue: string);
  65175. begin
  65176. If (FOData__ModerationComments=AValue) then exit;
  65177. FOData__ModerationComments:=AValue;
  65178. MarkPropertyChanged(AIndex);
  65179. end;
  65180. Procedure TSP_DataStyle_x0020_LibraryItem.SetFileRef(AIndex: Integer; const AValue: string);
  65181. begin
  65182. If (FFileRef=AValue) then exit;
  65183. FFileRef:=AValue;
  65184. MarkPropertyChanged(AIndex);
  65185. end;
  65186. Procedure TSP_DataStyle_x0020_LibraryItem.SetFileDirRef(AIndex: Integer; const AValue: string);
  65187. begin
  65188. If (FFileDirRef=AValue) then exit;
  65189. FFileDirRef:=AValue;
  65190. MarkPropertyChanged(AIndex);
  65191. end;
  65192. Procedure TSP_DataStyle_x0020_LibraryItem.SetLast_x0020_Modified(AIndex: Integer; const AValue: TDateTime);
  65193. begin
  65194. If (FLast_x0020_Modified=AValue) then exit;
  65195. FLast_x0020_Modified:=AValue;
  65196. MarkPropertyChanged(AIndex);
  65197. end;
  65198. Procedure TSP_DataStyle_x0020_LibraryItem.SetCreated_x0020_Date(AIndex: Integer; const AValue: TDateTime);
  65199. begin
  65200. If (FCreated_x0020_Date=AValue) then exit;
  65201. FCreated_x0020_Date:=AValue;
  65202. MarkPropertyChanged(AIndex);
  65203. end;
  65204. Procedure TSP_DataStyle_x0020_LibraryItem.SetFSObjType(AIndex: Integer; const AValue: TInt32);
  65205. begin
  65206. If (FFSObjType=AValue) then exit;
  65207. FFSObjType:=AValue;
  65208. MarkPropertyChanged(AIndex);
  65209. end;
  65210. Procedure TSP_DataStyle_x0020_LibraryItem.SetPermMask(AIndex: Integer; const AValue: string);
  65211. begin
  65212. If (FPermMask=AValue) then exit;
  65213. FPermMask:=AValue;
  65214. MarkPropertyChanged(AIndex);
  65215. end;
  65216. Procedure TSP_DataStyle_x0020_LibraryItem.SetCheckoutUserId(AIndex: Integer; const AValue: TInt32);
  65217. begin
  65218. If (FCheckoutUserId=AValue) then exit;
  65219. FCheckoutUserId:=AValue;
  65220. MarkPropertyChanged(AIndex);
  65221. end;
  65222. Procedure TSP_DataStyle_x0020_LibraryItem.SetFileLeafRef(AIndex: Integer; const AValue: string);
  65223. begin
  65224. If (FFileLeafRef=AValue) then exit;
  65225. FFileLeafRef:=AValue;
  65226. MarkPropertyChanged(AIndex);
  65227. end;
  65228. Procedure TSP_DataStyle_x0020_LibraryItem.SetUniqueId(AIndex: Integer; const AValue: TGUIDString);
  65229. begin
  65230. If (FUniqueId=AValue) then exit;
  65231. FUniqueId:=AValue;
  65232. MarkPropertyChanged(AIndex);
  65233. end;
  65234. Procedure TSP_DataStyle_x0020_LibraryItem.SetOData__CheckinComment(AIndex: Integer; const AValue: string);
  65235. begin
  65236. If (FOData__CheckinComment=AValue) then exit;
  65237. FOData__CheckinComment:=AValue;
  65238. MarkPropertyChanged(AIndex);
  65239. end;
  65240. Procedure TSP_DataStyle_x0020_LibraryItem.SetLinkCheckedOutTitle(AIndex: Integer; const AValue: string);
  65241. begin
  65242. If (FLinkCheckedOutTitle=AValue) then exit;
  65243. FLinkCheckedOutTitle:=AValue;
  65244. MarkPropertyChanged(AIndex);
  65245. end;
  65246. Procedure TSP_DataStyle_x0020_LibraryItem.SetModified_x0020_By(AIndex: Integer; const AValue: string);
  65247. begin
  65248. If (FModified_x0020_By=AValue) then exit;
  65249. FModified_x0020_By:=AValue;
  65250. MarkPropertyChanged(AIndex);
  65251. end;
  65252. Procedure TSP_DataStyle_x0020_LibraryItem.SetCreated_x0020_By(AIndex: Integer; const AValue: string);
  65253. begin
  65254. If (FCreated_x0020_By=AValue) then exit;
  65255. FCreated_x0020_By:=AValue;
  65256. MarkPropertyChanged(AIndex);
  65257. end;
  65258. Procedure TSP_DataStyle_x0020_LibraryItem.SetFile_x0020_Type(AIndex: Integer; const AValue: string);
  65259. begin
  65260. If (FFile_x0020_Type=AValue) then exit;
  65261. FFile_x0020_Type:=AValue;
  65262. MarkPropertyChanged(AIndex);
  65263. end;
  65264. Procedure TSP_DataStyle_x0020_LibraryItem.SetHTML_x0020_File_x0020_Type(AIndex: Integer; const AValue: string);
  65265. begin
  65266. If (FHTML_x0020_File_x0020_Type=AValue) then exit;
  65267. FHTML_x0020_File_x0020_Type:=AValue;
  65268. MarkPropertyChanged(AIndex);
  65269. end;
  65270. Procedure TSP_DataStyle_x0020_LibraryItem.SetOData__SourceUrl(AIndex: Integer; const AValue: string);
  65271. begin
  65272. If (FOData__SourceUrl=AValue) then exit;
  65273. FOData__SourceUrl:=AValue;
  65274. MarkPropertyChanged(AIndex);
  65275. end;
  65276. Procedure TSP_DataStyle_x0020_LibraryItem.SetOData__SharedFileIndex(AIndex: Integer; const AValue: string);
  65277. begin
  65278. If (FOData__SharedFileIndex=AValue) then exit;
  65279. FOData__SharedFileIndex:=AValue;
  65280. MarkPropertyChanged(AIndex);
  65281. end;
  65282. Procedure TSP_DataStyle_x0020_LibraryItem.SetOData__EditMenuTableStart(AIndex: Integer; const AValue: string);
  65283. begin
  65284. If (FOData__EditMenuTableStart=AValue) then exit;
  65285. FOData__EditMenuTableStart:=AValue;
  65286. MarkPropertyChanged(AIndex);
  65287. end;
  65288. Procedure TSP_DataStyle_x0020_LibraryItem.SetOData__EditMenuTableStart2(AIndex: Integer; const AValue: string);
  65289. begin
  65290. If (FOData__EditMenuTableStart2=AValue) then exit;
  65291. FOData__EditMenuTableStart2:=AValue;
  65292. MarkPropertyChanged(AIndex);
  65293. end;
  65294. Procedure TSP_DataStyle_x0020_LibraryItem.SetOData__EditMenuTableEnd(AIndex: Integer; const AValue: string);
  65295. begin
  65296. If (FOData__EditMenuTableEnd=AValue) then exit;
  65297. FOData__EditMenuTableEnd:=AValue;
  65298. MarkPropertyChanged(AIndex);
  65299. end;
  65300. Procedure TSP_DataStyle_x0020_LibraryItem.SetLinkFilenameNoMenu(AIndex: Integer; const AValue: string);
  65301. begin
  65302. If (FLinkFilenameNoMenu=AValue) then exit;
  65303. FLinkFilenameNoMenu:=AValue;
  65304. MarkPropertyChanged(AIndex);
  65305. end;
  65306. Procedure TSP_DataStyle_x0020_LibraryItem.SetLinkFilename(AIndex: Integer; const AValue: string);
  65307. begin
  65308. If (FLinkFilename=AValue) then exit;
  65309. FLinkFilename:=AValue;
  65310. MarkPropertyChanged(AIndex);
  65311. end;
  65312. Procedure TSP_DataStyle_x0020_LibraryItem.SetLinkFilename2(AIndex: Integer; const AValue: string);
  65313. begin
  65314. If (FLinkFilename2=AValue) then exit;
  65315. FLinkFilename2:=AValue;
  65316. MarkPropertyChanged(AIndex);
  65317. end;
  65318. Procedure TSP_DataStyle_x0020_LibraryItem.SetDocIcon(AIndex: Integer; const AValue: string);
  65319. begin
  65320. If (FDocIcon=AValue) then exit;
  65321. FDocIcon:=AValue;
  65322. MarkPropertyChanged(AIndex);
  65323. end;
  65324. Procedure TSP_DataStyle_x0020_LibraryItem.SetServerUrl(AIndex: Integer; const AValue: string);
  65325. begin
  65326. If (FServerUrl=AValue) then exit;
  65327. FServerUrl:=AValue;
  65328. MarkPropertyChanged(AIndex);
  65329. end;
  65330. Procedure TSP_DataStyle_x0020_LibraryItem.SetEncodedAbsUrl(AIndex: Integer; const AValue: string);
  65331. begin
  65332. If (FEncodedAbsUrl=AValue) then exit;
  65333. FEncodedAbsUrl:=AValue;
  65334. MarkPropertyChanged(AIndex);
  65335. end;
  65336. Procedure TSP_DataStyle_x0020_LibraryItem.SetBaseName(AIndex: Integer; const AValue: string);
  65337. begin
  65338. If (FBaseName=AValue) then exit;
  65339. FBaseName:=AValue;
  65340. MarkPropertyChanged(AIndex);
  65341. end;
  65342. Procedure TSP_DataStyle_x0020_LibraryItem.SetFileSizeDisplay(AIndex: Integer; const AValue: string);
  65343. begin
  65344. If (FFileSizeDisplay=AValue) then exit;
  65345. FFileSizeDisplay:=AValue;
  65346. MarkPropertyChanged(AIndex);
  65347. end;
  65348. Procedure TSP_DataStyle_x0020_LibraryItem.SetOData__Level(AIndex: Integer; const AValue: TInt32);
  65349. begin
  65350. If (FOData__Level=AValue) then exit;
  65351. FOData__Level:=AValue;
  65352. MarkPropertyChanged(AIndex);
  65353. end;
  65354. Procedure TSP_DataStyle_x0020_LibraryItem.SetOData__IsCurrentVersion(AIndex: Integer; const AValue: boolean);
  65355. begin
  65356. If (FOData__IsCurrentVersion=AValue) then exit;
  65357. FOData__IsCurrentVersion:=AValue;
  65358. MarkPropertyChanged(AIndex);
  65359. end;
  65360. Procedure TSP_DataStyle_x0020_LibraryItem.SetAppAuthorId(AIndex: Integer; const AValue: TInt32);
  65361. begin
  65362. If (FAppAuthorId=AValue) then exit;
  65363. FAppAuthorId:=AValue;
  65364. MarkPropertyChanged(AIndex);
  65365. end;
  65366. Procedure TSP_DataStyle_x0020_LibraryItem.SetAppEditorId(AIndex: Integer; const AValue: TInt32);
  65367. begin
  65368. If (FAppEditorId=AValue) then exit;
  65369. FAppEditorId:=AValue;
  65370. MarkPropertyChanged(AIndex);
  65371. end;
  65372. Procedure TSP_DataStyle_x0020_LibraryItem.SetSelectTitle(AIndex: Integer; const AValue: string);
  65373. begin
  65374. If (FSelectTitle=AValue) then exit;
  65375. FSelectTitle:=AValue;
  65376. MarkPropertyChanged(AIndex);
  65377. end;
  65378. Procedure TSP_DataStyle_x0020_LibraryItem.SetSelectFilename(AIndex: Integer; const AValue: string);
  65379. begin
  65380. If (FSelectFilename=AValue) then exit;
  65381. FSelectFilename:=AValue;
  65382. MarkPropertyChanged(AIndex);
  65383. end;
  65384. Procedure TSP_DataStyle_x0020_LibraryItem.SetEdit(AIndex: Integer; const AValue: string);
  65385. begin
  65386. If (FEdit=AValue) then exit;
  65387. FEdit:=AValue;
  65388. MarkPropertyChanged(AIndex);
  65389. end;
  65390. Procedure TSP_DataStyle_x0020_LibraryItem.Setowshiddenversion(AIndex: Integer; const AValue: TInt32);
  65391. begin
  65392. If (Fowshiddenversion=AValue) then exit;
  65393. Fowshiddenversion:=AValue;
  65394. MarkPropertyChanged(AIndex);
  65395. end;
  65396. Procedure TSP_DataStyle_x0020_LibraryItem.SetOData__UIVersion(AIndex: Integer; const AValue: TInt32);
  65397. begin
  65398. If (FOData__UIVersion=AValue) then exit;
  65399. FOData__UIVersion:=AValue;
  65400. MarkPropertyChanged(AIndex);
  65401. end;
  65402. Procedure TSP_DataStyle_x0020_LibraryItem.SetOData__UIVersionString(AIndex: Integer; const AValue: string);
  65403. begin
  65404. If (FOData__UIVersionString=AValue) then exit;
  65405. FOData__UIVersionString:=AValue;
  65406. MarkPropertyChanged(AIndex);
  65407. end;
  65408. Procedure TSP_DataStyle_x0020_LibraryItem.SetInstanceID(AIndex: Integer; const AValue: TInt32);
  65409. begin
  65410. If (FInstanceID=AValue) then exit;
  65411. FInstanceID:=AValue;
  65412. MarkPropertyChanged(AIndex);
  65413. end;
  65414. Procedure TSP_DataStyle_x0020_LibraryItem.SetOrder(AIndex: Integer; const AValue: Double);
  65415. begin
  65416. If (FOrder=AValue) then exit;
  65417. FOrder:=AValue;
  65418. MarkPropertyChanged(AIndex);
  65419. end;
  65420. Procedure TSP_DataStyle_x0020_LibraryItem.SetGUID(AIndex: Integer; const AValue: TGUIDString);
  65421. begin
  65422. If (FGUID=AValue) then exit;
  65423. FGUID:=AValue;
  65424. MarkPropertyChanged(AIndex);
  65425. end;
  65426. Procedure TSP_DataStyle_x0020_LibraryItem.SetWorkflowVersion(AIndex: Integer; const AValue: TInt32);
  65427. begin
  65428. If (FWorkflowVersion=AValue) then exit;
  65429. FWorkflowVersion:=AValue;
  65430. MarkPropertyChanged(AIndex);
  65431. end;
  65432. Procedure TSP_DataStyle_x0020_LibraryItem.SetWorkflowInstanceID(AIndex: Integer; const AValue: TGUIDString);
  65433. begin
  65434. If (FWorkflowInstanceID=AValue) then exit;
  65435. FWorkflowInstanceID:=AValue;
  65436. MarkPropertyChanged(AIndex);
  65437. end;
  65438. Procedure TSP_DataStyle_x0020_LibraryItem.SetTitle(AIndex: Integer; const AValue: string);
  65439. begin
  65440. If (FTitle=AValue) then exit;
  65441. FTitle:=AValue;
  65442. MarkPropertyChanged(AIndex);
  65443. end;
  65444. Procedure TSP_DataStyle_x0020_LibraryItem.SetTemplateUrl(AIndex: Integer; const AValue: string);
  65445. begin
  65446. If (FTemplateUrl=AValue) then exit;
  65447. FTemplateUrl:=AValue;
  65448. MarkPropertyChanged(AIndex);
  65449. end;
  65450. Procedure TSP_DataStyle_x0020_LibraryItem.Setxd_ProgID(AIndex: Integer; const AValue: string);
  65451. begin
  65452. If (Fxd_ProgID=AValue) then exit;
  65453. Fxd_ProgID:=AValue;
  65454. MarkPropertyChanged(AIndex);
  65455. end;
  65456. Procedure TSP_DataStyle_x0020_LibraryItem.Setxd_Signature(AIndex: Integer; const AValue: boolean);
  65457. begin
  65458. If (Fxd_Signature=AValue) then exit;
  65459. Fxd_Signature:=AValue;
  65460. MarkPropertyChanged(AIndex);
  65461. end;
  65462. Procedure TSP_DataStyle_x0020_LibraryItem.SetCombine(AIndex: Integer; const AValue: string);
  65463. begin
  65464. If (FCombine=AValue) then exit;
  65465. FCombine:=AValue;
  65466. MarkPropertyChanged(AIndex);
  65467. end;
  65468. Procedure TSP_DataStyle_x0020_LibraryItem.SetRepairDocument(AIndex: Integer; const AValue: string);
  65469. begin
  65470. If (FRepairDocument=AValue) then exit;
  65471. FRepairDocument:=AValue;
  65472. MarkPropertyChanged(AIndex);
  65473. end;
  65474. Function TSP_DataStyle_x0020_LibraryItem.Author(AService: TODataService) : TSP_DataUserInfoItem;
  65475. begin
  65476. Result:=TSP_DataUserInfoItem(GetContainedSingleTon(AService,'Author', TSP_DataUserInfoItem));
  65477. end;
  65478. Function TSP_DataStyle_x0020_LibraryItem.Editor(AService: TODataService) : TSP_DataUserInfoItem;
  65479. begin
  65480. Result:=TSP_DataUserInfoItem(GetContainedSingleTon(AService,'Editor', TSP_DataUserInfoItem));
  65481. end;
  65482. Function TSP_DataStyle_x0020_LibraryItem.CheckoutUser(AService: TODataService) : TSP_DataUserInfoItem;
  65483. begin
  65484. Result:=TSP_DataUserInfoItem(GetContainedSingleTon(AService,'CheckoutUser', TSP_DataUserInfoItem));
  65485. end;
  65486. { --------------------------------------------------------------------
  65487. TSP_DataOData__x005f_catalogs_x002f_themeItem
  65488. --------------------------------------------------------------------}
  65489. Class Function TSP_DataOData__x005f_catalogs_x002f_themeItem.ObjectRestKind : String;
  65490. begin
  65491. Result:='OData__x005f_catalogs_x002f_themeItem';
  65492. end;
  65493. Procedure TSP_DataOData__x005f_catalogs_x002f_themeItem.SetContentTypeId(AIndex: Integer; const AValue: string);
  65494. begin
  65495. If (FContentTypeId=AValue) then exit;
  65496. FContentTypeId:=AValue;
  65497. MarkPropertyChanged(AIndex);
  65498. end;
  65499. Procedure TSP_DataOData__x005f_catalogs_x002f_themeItem.SetCreated(AIndex: Integer; const AValue: TDateTime);
  65500. begin
  65501. If (FCreated=AValue) then exit;
  65502. FCreated:=AValue;
  65503. MarkPropertyChanged(AIndex);
  65504. end;
  65505. Procedure TSP_DataOData__x005f_catalogs_x002f_themeItem.SetAuthorId(AIndex: Integer; const AValue: TInt32);
  65506. begin
  65507. If (FAuthorId=AValue) then exit;
  65508. FAuthorId:=AValue;
  65509. MarkPropertyChanged(AIndex);
  65510. end;
  65511. Procedure TSP_DataOData__x005f_catalogs_x002f_themeItem.SetModified(AIndex: Integer; const AValue: TDateTime);
  65512. begin
  65513. If (FModified=AValue) then exit;
  65514. FModified:=AValue;
  65515. MarkPropertyChanged(AIndex);
  65516. end;
  65517. Procedure TSP_DataOData__x005f_catalogs_x002f_themeItem.SetEditorId(AIndex: Integer; const AValue: TInt32);
  65518. begin
  65519. If (FEditorId=AValue) then exit;
  65520. FEditorId:=AValue;
  65521. MarkPropertyChanged(AIndex);
  65522. end;
  65523. Procedure TSP_DataOData__x005f_catalogs_x002f_themeItem.SetOData__HasCopyDestinations(AIndex: Integer; const AValue: boolean);
  65524. begin
  65525. If (FOData__HasCopyDestinations=AValue) then exit;
  65526. FOData__HasCopyDestinations:=AValue;
  65527. MarkPropertyChanged(AIndex);
  65528. end;
  65529. Procedure TSP_DataOData__x005f_catalogs_x002f_themeItem.SetOData__CopySource(AIndex: Integer; const AValue: string);
  65530. begin
  65531. If (FOData__CopySource=AValue) then exit;
  65532. FOData__CopySource:=AValue;
  65533. MarkPropertyChanged(AIndex);
  65534. end;
  65535. Procedure TSP_DataOData__x005f_catalogs_x002f_themeItem.SetOData__ModerationStatus(AIndex: Integer; const AValue: TInt32);
  65536. begin
  65537. If (FOData__ModerationStatus=AValue) then exit;
  65538. FOData__ModerationStatus:=AValue;
  65539. MarkPropertyChanged(AIndex);
  65540. end;
  65541. Procedure TSP_DataOData__x005f_catalogs_x002f_themeItem.SetOData__ModerationComments(AIndex: Integer; const AValue: string);
  65542. begin
  65543. If (FOData__ModerationComments=AValue) then exit;
  65544. FOData__ModerationComments:=AValue;
  65545. MarkPropertyChanged(AIndex);
  65546. end;
  65547. Procedure TSP_DataOData__x005f_catalogs_x002f_themeItem.SetFileRef(AIndex: Integer; const AValue: string);
  65548. begin
  65549. If (FFileRef=AValue) then exit;
  65550. FFileRef:=AValue;
  65551. MarkPropertyChanged(AIndex);
  65552. end;
  65553. Procedure TSP_DataOData__x005f_catalogs_x002f_themeItem.SetFileDirRef(AIndex: Integer; const AValue: string);
  65554. begin
  65555. If (FFileDirRef=AValue) then exit;
  65556. FFileDirRef:=AValue;
  65557. MarkPropertyChanged(AIndex);
  65558. end;
  65559. Procedure TSP_DataOData__x005f_catalogs_x002f_themeItem.SetLast_x0020_Modified(AIndex: Integer; const AValue: TDateTime);
  65560. begin
  65561. If (FLast_x0020_Modified=AValue) then exit;
  65562. FLast_x0020_Modified:=AValue;
  65563. MarkPropertyChanged(AIndex);
  65564. end;
  65565. Procedure TSP_DataOData__x005f_catalogs_x002f_themeItem.SetCreated_x0020_Date(AIndex: Integer; const AValue: TDateTime);
  65566. begin
  65567. If (FCreated_x0020_Date=AValue) then exit;
  65568. FCreated_x0020_Date:=AValue;
  65569. MarkPropertyChanged(AIndex);
  65570. end;
  65571. Procedure TSP_DataOData__x005f_catalogs_x002f_themeItem.SetFSObjType(AIndex: Integer; const AValue: TInt32);
  65572. begin
  65573. If (FFSObjType=AValue) then exit;
  65574. FFSObjType:=AValue;
  65575. MarkPropertyChanged(AIndex);
  65576. end;
  65577. Procedure TSP_DataOData__x005f_catalogs_x002f_themeItem.SetPermMask(AIndex: Integer; const AValue: string);
  65578. begin
  65579. If (FPermMask=AValue) then exit;
  65580. FPermMask:=AValue;
  65581. MarkPropertyChanged(AIndex);
  65582. end;
  65583. Procedure TSP_DataOData__x005f_catalogs_x002f_themeItem.SetCheckoutUserId(AIndex: Integer; const AValue: TInt32);
  65584. begin
  65585. If (FCheckoutUserId=AValue) then exit;
  65586. FCheckoutUserId:=AValue;
  65587. MarkPropertyChanged(AIndex);
  65588. end;
  65589. Procedure TSP_DataOData__x005f_catalogs_x002f_themeItem.SetFileLeafRef(AIndex: Integer; const AValue: string);
  65590. begin
  65591. If (FFileLeafRef=AValue) then exit;
  65592. FFileLeafRef:=AValue;
  65593. MarkPropertyChanged(AIndex);
  65594. end;
  65595. Procedure TSP_DataOData__x005f_catalogs_x002f_themeItem.SetUniqueId(AIndex: Integer; const AValue: TGUIDString);
  65596. begin
  65597. If (FUniqueId=AValue) then exit;
  65598. FUniqueId:=AValue;
  65599. MarkPropertyChanged(AIndex);
  65600. end;
  65601. Procedure TSP_DataOData__x005f_catalogs_x002f_themeItem.SetOData__CheckinComment(AIndex: Integer; const AValue: string);
  65602. begin
  65603. If (FOData__CheckinComment=AValue) then exit;
  65604. FOData__CheckinComment:=AValue;
  65605. MarkPropertyChanged(AIndex);
  65606. end;
  65607. Procedure TSP_DataOData__x005f_catalogs_x002f_themeItem.SetLinkCheckedOutTitle(AIndex: Integer; const AValue: string);
  65608. begin
  65609. If (FLinkCheckedOutTitle=AValue) then exit;
  65610. FLinkCheckedOutTitle:=AValue;
  65611. MarkPropertyChanged(AIndex);
  65612. end;
  65613. Procedure TSP_DataOData__x005f_catalogs_x002f_themeItem.SetModified_x0020_By(AIndex: Integer; const AValue: string);
  65614. begin
  65615. If (FModified_x0020_By=AValue) then exit;
  65616. FModified_x0020_By:=AValue;
  65617. MarkPropertyChanged(AIndex);
  65618. end;
  65619. Procedure TSP_DataOData__x005f_catalogs_x002f_themeItem.SetCreated_x0020_By(AIndex: Integer; const AValue: string);
  65620. begin
  65621. If (FCreated_x0020_By=AValue) then exit;
  65622. FCreated_x0020_By:=AValue;
  65623. MarkPropertyChanged(AIndex);
  65624. end;
  65625. Procedure TSP_DataOData__x005f_catalogs_x002f_themeItem.SetFile_x0020_Type(AIndex: Integer; const AValue: string);
  65626. begin
  65627. If (FFile_x0020_Type=AValue) then exit;
  65628. FFile_x0020_Type:=AValue;
  65629. MarkPropertyChanged(AIndex);
  65630. end;
  65631. Procedure TSP_DataOData__x005f_catalogs_x002f_themeItem.SetHTML_x0020_File_x0020_Type(AIndex: Integer; const AValue: string);
  65632. begin
  65633. If (FHTML_x0020_File_x0020_Type=AValue) then exit;
  65634. FHTML_x0020_File_x0020_Type:=AValue;
  65635. MarkPropertyChanged(AIndex);
  65636. end;
  65637. Procedure TSP_DataOData__x005f_catalogs_x002f_themeItem.SetOData__SourceUrl(AIndex: Integer; const AValue: string);
  65638. begin
  65639. If (FOData__SourceUrl=AValue) then exit;
  65640. FOData__SourceUrl:=AValue;
  65641. MarkPropertyChanged(AIndex);
  65642. end;
  65643. Procedure TSP_DataOData__x005f_catalogs_x002f_themeItem.SetOData__SharedFileIndex(AIndex: Integer; const AValue: string);
  65644. begin
  65645. If (FOData__SharedFileIndex=AValue) then exit;
  65646. FOData__SharedFileIndex:=AValue;
  65647. MarkPropertyChanged(AIndex);
  65648. end;
  65649. Procedure TSP_DataOData__x005f_catalogs_x002f_themeItem.SetOData__EditMenuTableStart(AIndex: Integer; const AValue: string);
  65650. begin
  65651. If (FOData__EditMenuTableStart=AValue) then exit;
  65652. FOData__EditMenuTableStart:=AValue;
  65653. MarkPropertyChanged(AIndex);
  65654. end;
  65655. Procedure TSP_DataOData__x005f_catalogs_x002f_themeItem.SetOData__EditMenuTableStart2(AIndex: Integer; const AValue: string);
  65656. begin
  65657. If (FOData__EditMenuTableStart2=AValue) then exit;
  65658. FOData__EditMenuTableStart2:=AValue;
  65659. MarkPropertyChanged(AIndex);
  65660. end;
  65661. Procedure TSP_DataOData__x005f_catalogs_x002f_themeItem.SetOData__EditMenuTableEnd(AIndex: Integer; const AValue: string);
  65662. begin
  65663. If (FOData__EditMenuTableEnd=AValue) then exit;
  65664. FOData__EditMenuTableEnd:=AValue;
  65665. MarkPropertyChanged(AIndex);
  65666. end;
  65667. Procedure TSP_DataOData__x005f_catalogs_x002f_themeItem.SetLinkFilenameNoMenu(AIndex: Integer; const AValue: string);
  65668. begin
  65669. If (FLinkFilenameNoMenu=AValue) then exit;
  65670. FLinkFilenameNoMenu:=AValue;
  65671. MarkPropertyChanged(AIndex);
  65672. end;
  65673. Procedure TSP_DataOData__x005f_catalogs_x002f_themeItem.SetLinkFilename(AIndex: Integer; const AValue: string);
  65674. begin
  65675. If (FLinkFilename=AValue) then exit;
  65676. FLinkFilename:=AValue;
  65677. MarkPropertyChanged(AIndex);
  65678. end;
  65679. Procedure TSP_DataOData__x005f_catalogs_x002f_themeItem.SetLinkFilename2(AIndex: Integer; const AValue: string);
  65680. begin
  65681. If (FLinkFilename2=AValue) then exit;
  65682. FLinkFilename2:=AValue;
  65683. MarkPropertyChanged(AIndex);
  65684. end;
  65685. Procedure TSP_DataOData__x005f_catalogs_x002f_themeItem.SetDocIcon(AIndex: Integer; const AValue: string);
  65686. begin
  65687. If (FDocIcon=AValue) then exit;
  65688. FDocIcon:=AValue;
  65689. MarkPropertyChanged(AIndex);
  65690. end;
  65691. Procedure TSP_DataOData__x005f_catalogs_x002f_themeItem.SetServerUrl(AIndex: Integer; const AValue: string);
  65692. begin
  65693. If (FServerUrl=AValue) then exit;
  65694. FServerUrl:=AValue;
  65695. MarkPropertyChanged(AIndex);
  65696. end;
  65697. Procedure TSP_DataOData__x005f_catalogs_x002f_themeItem.SetEncodedAbsUrl(AIndex: Integer; const AValue: string);
  65698. begin
  65699. If (FEncodedAbsUrl=AValue) then exit;
  65700. FEncodedAbsUrl:=AValue;
  65701. MarkPropertyChanged(AIndex);
  65702. end;
  65703. Procedure TSP_DataOData__x005f_catalogs_x002f_themeItem.SetBaseName(AIndex: Integer; const AValue: string);
  65704. begin
  65705. If (FBaseName=AValue) then exit;
  65706. FBaseName:=AValue;
  65707. MarkPropertyChanged(AIndex);
  65708. end;
  65709. Procedure TSP_DataOData__x005f_catalogs_x002f_themeItem.SetFileSizeDisplay(AIndex: Integer; const AValue: string);
  65710. begin
  65711. If (FFileSizeDisplay=AValue) then exit;
  65712. FFileSizeDisplay:=AValue;
  65713. MarkPropertyChanged(AIndex);
  65714. end;
  65715. Procedure TSP_DataOData__x005f_catalogs_x002f_themeItem.SetOData__Level(AIndex: Integer; const AValue: TInt32);
  65716. begin
  65717. If (FOData__Level=AValue) then exit;
  65718. FOData__Level:=AValue;
  65719. MarkPropertyChanged(AIndex);
  65720. end;
  65721. Procedure TSP_DataOData__x005f_catalogs_x002f_themeItem.SetOData__IsCurrentVersion(AIndex: Integer; const AValue: boolean);
  65722. begin
  65723. If (FOData__IsCurrentVersion=AValue) then exit;
  65724. FOData__IsCurrentVersion:=AValue;
  65725. MarkPropertyChanged(AIndex);
  65726. end;
  65727. Procedure TSP_DataOData__x005f_catalogs_x002f_themeItem.SetAppAuthorId(AIndex: Integer; const AValue: TInt32);
  65728. begin
  65729. If (FAppAuthorId=AValue) then exit;
  65730. FAppAuthorId:=AValue;
  65731. MarkPropertyChanged(AIndex);
  65732. end;
  65733. Procedure TSP_DataOData__x005f_catalogs_x002f_themeItem.SetAppEditorId(AIndex: Integer; const AValue: TInt32);
  65734. begin
  65735. If (FAppEditorId=AValue) then exit;
  65736. FAppEditorId:=AValue;
  65737. MarkPropertyChanged(AIndex);
  65738. end;
  65739. Procedure TSP_DataOData__x005f_catalogs_x002f_themeItem.SetSelectTitle(AIndex: Integer; const AValue: string);
  65740. begin
  65741. If (FSelectTitle=AValue) then exit;
  65742. FSelectTitle:=AValue;
  65743. MarkPropertyChanged(AIndex);
  65744. end;
  65745. Procedure TSP_DataOData__x005f_catalogs_x002f_themeItem.SetSelectFilename(AIndex: Integer; const AValue: string);
  65746. begin
  65747. If (FSelectFilename=AValue) then exit;
  65748. FSelectFilename:=AValue;
  65749. MarkPropertyChanged(AIndex);
  65750. end;
  65751. Procedure TSP_DataOData__x005f_catalogs_x002f_themeItem.SetEdit(AIndex: Integer; const AValue: string);
  65752. begin
  65753. If (FEdit=AValue) then exit;
  65754. FEdit:=AValue;
  65755. MarkPropertyChanged(AIndex);
  65756. end;
  65757. Procedure TSP_DataOData__x005f_catalogs_x002f_themeItem.Setowshiddenversion(AIndex: Integer; const AValue: TInt32);
  65758. begin
  65759. If (Fowshiddenversion=AValue) then exit;
  65760. Fowshiddenversion:=AValue;
  65761. MarkPropertyChanged(AIndex);
  65762. end;
  65763. Procedure TSP_DataOData__x005f_catalogs_x002f_themeItem.SetOData__UIVersion(AIndex: Integer; const AValue: TInt32);
  65764. begin
  65765. If (FOData__UIVersion=AValue) then exit;
  65766. FOData__UIVersion:=AValue;
  65767. MarkPropertyChanged(AIndex);
  65768. end;
  65769. Procedure TSP_DataOData__x005f_catalogs_x002f_themeItem.SetOData__UIVersionString(AIndex: Integer; const AValue: string);
  65770. begin
  65771. If (FOData__UIVersionString=AValue) then exit;
  65772. FOData__UIVersionString:=AValue;
  65773. MarkPropertyChanged(AIndex);
  65774. end;
  65775. Procedure TSP_DataOData__x005f_catalogs_x002f_themeItem.SetInstanceID(AIndex: Integer; const AValue: TInt32);
  65776. begin
  65777. If (FInstanceID=AValue) then exit;
  65778. FInstanceID:=AValue;
  65779. MarkPropertyChanged(AIndex);
  65780. end;
  65781. Procedure TSP_DataOData__x005f_catalogs_x002f_themeItem.SetOrder(AIndex: Integer; const AValue: Double);
  65782. begin
  65783. If (FOrder=AValue) then exit;
  65784. FOrder:=AValue;
  65785. MarkPropertyChanged(AIndex);
  65786. end;
  65787. Procedure TSP_DataOData__x005f_catalogs_x002f_themeItem.SetGUID(AIndex: Integer; const AValue: TGUIDString);
  65788. begin
  65789. If (FGUID=AValue) then exit;
  65790. FGUID:=AValue;
  65791. MarkPropertyChanged(AIndex);
  65792. end;
  65793. Procedure TSP_DataOData__x005f_catalogs_x002f_themeItem.SetWorkflowVersion(AIndex: Integer; const AValue: TInt32);
  65794. begin
  65795. If (FWorkflowVersion=AValue) then exit;
  65796. FWorkflowVersion:=AValue;
  65797. MarkPropertyChanged(AIndex);
  65798. end;
  65799. Procedure TSP_DataOData__x005f_catalogs_x002f_themeItem.SetWorkflowInstanceID(AIndex: Integer; const AValue: TGUIDString);
  65800. begin
  65801. If (FWorkflowInstanceID=AValue) then exit;
  65802. FWorkflowInstanceID:=AValue;
  65803. MarkPropertyChanged(AIndex);
  65804. end;
  65805. Procedure TSP_DataOData__x005f_catalogs_x002f_themeItem.SetThemeDescription(AIndex: Integer; const AValue: string);
  65806. begin
  65807. If (FThemeDescription=AValue) then exit;
  65808. FThemeDescription:=AValue;
  65809. MarkPropertyChanged(AIndex);
  65810. end;
  65811. Function TSP_DataOData__x005f_catalogs_x002f_themeItem.Author(AService: TODataService) : TSP_DataUserInfoItem;
  65812. begin
  65813. Result:=TSP_DataUserInfoItem(GetContainedSingleTon(AService,'Author', TSP_DataUserInfoItem));
  65814. end;
  65815. Function TSP_DataOData__x005f_catalogs_x002f_themeItem.Editor(AService: TODataService) : TSP_DataUserInfoItem;
  65816. begin
  65817. Result:=TSP_DataUserInfoItem(GetContainedSingleTon(AService,'Editor', TSP_DataUserInfoItem));
  65818. end;
  65819. Function TSP_DataOData__x005f_catalogs_x002f_themeItem.CheckoutUser(AService: TODataService) : TSP_DataUserInfoItem;
  65820. begin
  65821. Result:=TSP_DataUserInfoItem(GetContainedSingleTon(AService,'CheckoutUser', TSP_DataUserInfoItem));
  65822. end;
  65823. { --------------------------------------------------------------------
  65824. TSP_DataOData__x005f_catalogs_x002f_wpItem
  65825. --------------------------------------------------------------------}
  65826. Class Function TSP_DataOData__x005f_catalogs_x002f_wpItem.ObjectRestKind : String;
  65827. begin
  65828. Result:='OData__x005f_catalogs_x002f_wpItem';
  65829. end;
  65830. Procedure TSP_DataOData__x005f_catalogs_x002f_wpItem.SetContentTypeId(AIndex: Integer; const AValue: string);
  65831. begin
  65832. If (FContentTypeId=AValue) then exit;
  65833. FContentTypeId:=AValue;
  65834. MarkPropertyChanged(AIndex);
  65835. end;
  65836. Procedure TSP_DataOData__x005f_catalogs_x002f_wpItem.SetCreated(AIndex: Integer; const AValue: TDateTime);
  65837. begin
  65838. If (FCreated=AValue) then exit;
  65839. FCreated:=AValue;
  65840. MarkPropertyChanged(AIndex);
  65841. end;
  65842. Procedure TSP_DataOData__x005f_catalogs_x002f_wpItem.SetAuthorId(AIndex: Integer; const AValue: TInt32);
  65843. begin
  65844. If (FAuthorId=AValue) then exit;
  65845. FAuthorId:=AValue;
  65846. MarkPropertyChanged(AIndex);
  65847. end;
  65848. Procedure TSP_DataOData__x005f_catalogs_x002f_wpItem.SetModified(AIndex: Integer; const AValue: TDateTime);
  65849. begin
  65850. If (FModified=AValue) then exit;
  65851. FModified:=AValue;
  65852. MarkPropertyChanged(AIndex);
  65853. end;
  65854. Procedure TSP_DataOData__x005f_catalogs_x002f_wpItem.SetEditorId(AIndex: Integer; const AValue: TInt32);
  65855. begin
  65856. If (FEditorId=AValue) then exit;
  65857. FEditorId:=AValue;
  65858. MarkPropertyChanged(AIndex);
  65859. end;
  65860. Procedure TSP_DataOData__x005f_catalogs_x002f_wpItem.SetOData__HasCopyDestinations(AIndex: Integer; const AValue: boolean);
  65861. begin
  65862. If (FOData__HasCopyDestinations=AValue) then exit;
  65863. FOData__HasCopyDestinations:=AValue;
  65864. MarkPropertyChanged(AIndex);
  65865. end;
  65866. Procedure TSP_DataOData__x005f_catalogs_x002f_wpItem.SetOData__CopySource(AIndex: Integer; const AValue: string);
  65867. begin
  65868. If (FOData__CopySource=AValue) then exit;
  65869. FOData__CopySource:=AValue;
  65870. MarkPropertyChanged(AIndex);
  65871. end;
  65872. Procedure TSP_DataOData__x005f_catalogs_x002f_wpItem.SetOData__ModerationStatus(AIndex: Integer; const AValue: TInt32);
  65873. begin
  65874. If (FOData__ModerationStatus=AValue) then exit;
  65875. FOData__ModerationStatus:=AValue;
  65876. MarkPropertyChanged(AIndex);
  65877. end;
  65878. Procedure TSP_DataOData__x005f_catalogs_x002f_wpItem.SetOData__ModerationComments(AIndex: Integer; const AValue: string);
  65879. begin
  65880. If (FOData__ModerationComments=AValue) then exit;
  65881. FOData__ModerationComments:=AValue;
  65882. MarkPropertyChanged(AIndex);
  65883. end;
  65884. Procedure TSP_DataOData__x005f_catalogs_x002f_wpItem.SetFileRef(AIndex: Integer; const AValue: string);
  65885. begin
  65886. If (FFileRef=AValue) then exit;
  65887. FFileRef:=AValue;
  65888. MarkPropertyChanged(AIndex);
  65889. end;
  65890. Procedure TSP_DataOData__x005f_catalogs_x002f_wpItem.SetFileDirRef(AIndex: Integer; const AValue: string);
  65891. begin
  65892. If (FFileDirRef=AValue) then exit;
  65893. FFileDirRef:=AValue;
  65894. MarkPropertyChanged(AIndex);
  65895. end;
  65896. Procedure TSP_DataOData__x005f_catalogs_x002f_wpItem.SetLast_x0020_Modified(AIndex: Integer; const AValue: TDateTime);
  65897. begin
  65898. If (FLast_x0020_Modified=AValue) then exit;
  65899. FLast_x0020_Modified:=AValue;
  65900. MarkPropertyChanged(AIndex);
  65901. end;
  65902. Procedure TSP_DataOData__x005f_catalogs_x002f_wpItem.SetCreated_x0020_Date(AIndex: Integer; const AValue: TDateTime);
  65903. begin
  65904. If (FCreated_x0020_Date=AValue) then exit;
  65905. FCreated_x0020_Date:=AValue;
  65906. MarkPropertyChanged(AIndex);
  65907. end;
  65908. Procedure TSP_DataOData__x005f_catalogs_x002f_wpItem.SetFSObjType(AIndex: Integer; const AValue: TInt32);
  65909. begin
  65910. If (FFSObjType=AValue) then exit;
  65911. FFSObjType:=AValue;
  65912. MarkPropertyChanged(AIndex);
  65913. end;
  65914. Procedure TSP_DataOData__x005f_catalogs_x002f_wpItem.SetPermMask(AIndex: Integer; const AValue: string);
  65915. begin
  65916. If (FPermMask=AValue) then exit;
  65917. FPermMask:=AValue;
  65918. MarkPropertyChanged(AIndex);
  65919. end;
  65920. Procedure TSP_DataOData__x005f_catalogs_x002f_wpItem.SetCheckoutUserId(AIndex: Integer; const AValue: TInt32);
  65921. begin
  65922. If (FCheckoutUserId=AValue) then exit;
  65923. FCheckoutUserId:=AValue;
  65924. MarkPropertyChanged(AIndex);
  65925. end;
  65926. Procedure TSP_DataOData__x005f_catalogs_x002f_wpItem.SetFileLeafRef(AIndex: Integer; const AValue: string);
  65927. begin
  65928. If (FFileLeafRef=AValue) then exit;
  65929. FFileLeafRef:=AValue;
  65930. MarkPropertyChanged(AIndex);
  65931. end;
  65932. Procedure TSP_DataOData__x005f_catalogs_x002f_wpItem.SetUniqueId(AIndex: Integer; const AValue: TGUIDString);
  65933. begin
  65934. If (FUniqueId=AValue) then exit;
  65935. FUniqueId:=AValue;
  65936. MarkPropertyChanged(AIndex);
  65937. end;
  65938. Procedure TSP_DataOData__x005f_catalogs_x002f_wpItem.SetOData__CheckinComment(AIndex: Integer; const AValue: string);
  65939. begin
  65940. If (FOData__CheckinComment=AValue) then exit;
  65941. FOData__CheckinComment:=AValue;
  65942. MarkPropertyChanged(AIndex);
  65943. end;
  65944. Procedure TSP_DataOData__x005f_catalogs_x002f_wpItem.SetLinkCheckedOutTitle(AIndex: Integer; const AValue: string);
  65945. begin
  65946. If (FLinkCheckedOutTitle=AValue) then exit;
  65947. FLinkCheckedOutTitle:=AValue;
  65948. MarkPropertyChanged(AIndex);
  65949. end;
  65950. Procedure TSP_DataOData__x005f_catalogs_x002f_wpItem.SetModified_x0020_By(AIndex: Integer; const AValue: string);
  65951. begin
  65952. If (FModified_x0020_By=AValue) then exit;
  65953. FModified_x0020_By:=AValue;
  65954. MarkPropertyChanged(AIndex);
  65955. end;
  65956. Procedure TSP_DataOData__x005f_catalogs_x002f_wpItem.SetCreated_x0020_By(AIndex: Integer; const AValue: string);
  65957. begin
  65958. If (FCreated_x0020_By=AValue) then exit;
  65959. FCreated_x0020_By:=AValue;
  65960. MarkPropertyChanged(AIndex);
  65961. end;
  65962. Procedure TSP_DataOData__x005f_catalogs_x002f_wpItem.SetFile_x0020_Type(AIndex: Integer; const AValue: string);
  65963. begin
  65964. If (FFile_x0020_Type=AValue) then exit;
  65965. FFile_x0020_Type:=AValue;
  65966. MarkPropertyChanged(AIndex);
  65967. end;
  65968. Procedure TSP_DataOData__x005f_catalogs_x002f_wpItem.SetHTML_x0020_File_x0020_Type(AIndex: Integer; const AValue: string);
  65969. begin
  65970. If (FHTML_x0020_File_x0020_Type=AValue) then exit;
  65971. FHTML_x0020_File_x0020_Type:=AValue;
  65972. MarkPropertyChanged(AIndex);
  65973. end;
  65974. Procedure TSP_DataOData__x005f_catalogs_x002f_wpItem.SetOData__SourceUrl(AIndex: Integer; const AValue: string);
  65975. begin
  65976. If (FOData__SourceUrl=AValue) then exit;
  65977. FOData__SourceUrl:=AValue;
  65978. MarkPropertyChanged(AIndex);
  65979. end;
  65980. Procedure TSP_DataOData__x005f_catalogs_x002f_wpItem.SetOData__SharedFileIndex(AIndex: Integer; const AValue: string);
  65981. begin
  65982. If (FOData__SharedFileIndex=AValue) then exit;
  65983. FOData__SharedFileIndex:=AValue;
  65984. MarkPropertyChanged(AIndex);
  65985. end;
  65986. Procedure TSP_DataOData__x005f_catalogs_x002f_wpItem.SetOData__EditMenuTableStart(AIndex: Integer; const AValue: string);
  65987. begin
  65988. If (FOData__EditMenuTableStart=AValue) then exit;
  65989. FOData__EditMenuTableStart:=AValue;
  65990. MarkPropertyChanged(AIndex);
  65991. end;
  65992. Procedure TSP_DataOData__x005f_catalogs_x002f_wpItem.SetOData__EditMenuTableStart2(AIndex: Integer; const AValue: string);
  65993. begin
  65994. If (FOData__EditMenuTableStart2=AValue) then exit;
  65995. FOData__EditMenuTableStart2:=AValue;
  65996. MarkPropertyChanged(AIndex);
  65997. end;
  65998. Procedure TSP_DataOData__x005f_catalogs_x002f_wpItem.SetOData__EditMenuTableEnd(AIndex: Integer; const AValue: string);
  65999. begin
  66000. If (FOData__EditMenuTableEnd=AValue) then exit;
  66001. FOData__EditMenuTableEnd:=AValue;
  66002. MarkPropertyChanged(AIndex);
  66003. end;
  66004. Procedure TSP_DataOData__x005f_catalogs_x002f_wpItem.SetLinkFilenameNoMenu(AIndex: Integer; const AValue: string);
  66005. begin
  66006. If (FLinkFilenameNoMenu=AValue) then exit;
  66007. FLinkFilenameNoMenu:=AValue;
  66008. MarkPropertyChanged(AIndex);
  66009. end;
  66010. Procedure TSP_DataOData__x005f_catalogs_x002f_wpItem.SetLinkFilename(AIndex: Integer; const AValue: string);
  66011. begin
  66012. If (FLinkFilename=AValue) then exit;
  66013. FLinkFilename:=AValue;
  66014. MarkPropertyChanged(AIndex);
  66015. end;
  66016. Procedure TSP_DataOData__x005f_catalogs_x002f_wpItem.SetLinkFilename2(AIndex: Integer; const AValue: string);
  66017. begin
  66018. If (FLinkFilename2=AValue) then exit;
  66019. FLinkFilename2:=AValue;
  66020. MarkPropertyChanged(AIndex);
  66021. end;
  66022. Procedure TSP_DataOData__x005f_catalogs_x002f_wpItem.SetDocIcon(AIndex: Integer; const AValue: string);
  66023. begin
  66024. If (FDocIcon=AValue) then exit;
  66025. FDocIcon:=AValue;
  66026. MarkPropertyChanged(AIndex);
  66027. end;
  66028. Procedure TSP_DataOData__x005f_catalogs_x002f_wpItem.SetServerUrl(AIndex: Integer; const AValue: string);
  66029. begin
  66030. If (FServerUrl=AValue) then exit;
  66031. FServerUrl:=AValue;
  66032. MarkPropertyChanged(AIndex);
  66033. end;
  66034. Procedure TSP_DataOData__x005f_catalogs_x002f_wpItem.SetEncodedAbsUrl(AIndex: Integer; const AValue: string);
  66035. begin
  66036. If (FEncodedAbsUrl=AValue) then exit;
  66037. FEncodedAbsUrl:=AValue;
  66038. MarkPropertyChanged(AIndex);
  66039. end;
  66040. Procedure TSP_DataOData__x005f_catalogs_x002f_wpItem.SetBaseName(AIndex: Integer; const AValue: string);
  66041. begin
  66042. If (FBaseName=AValue) then exit;
  66043. FBaseName:=AValue;
  66044. MarkPropertyChanged(AIndex);
  66045. end;
  66046. Procedure TSP_DataOData__x005f_catalogs_x002f_wpItem.SetFileSizeDisplay(AIndex: Integer; const AValue: string);
  66047. begin
  66048. If (FFileSizeDisplay=AValue) then exit;
  66049. FFileSizeDisplay:=AValue;
  66050. MarkPropertyChanged(AIndex);
  66051. end;
  66052. Procedure TSP_DataOData__x005f_catalogs_x002f_wpItem.SetOData__Level(AIndex: Integer; const AValue: TInt32);
  66053. begin
  66054. If (FOData__Level=AValue) then exit;
  66055. FOData__Level:=AValue;
  66056. MarkPropertyChanged(AIndex);
  66057. end;
  66058. Procedure TSP_DataOData__x005f_catalogs_x002f_wpItem.SetOData__IsCurrentVersion(AIndex: Integer; const AValue: boolean);
  66059. begin
  66060. If (FOData__IsCurrentVersion=AValue) then exit;
  66061. FOData__IsCurrentVersion:=AValue;
  66062. MarkPropertyChanged(AIndex);
  66063. end;
  66064. Procedure TSP_DataOData__x005f_catalogs_x002f_wpItem.SetAppAuthorId(AIndex: Integer; const AValue: TInt32);
  66065. begin
  66066. If (FAppAuthorId=AValue) then exit;
  66067. FAppAuthorId:=AValue;
  66068. MarkPropertyChanged(AIndex);
  66069. end;
  66070. Procedure TSP_DataOData__x005f_catalogs_x002f_wpItem.SetAppEditorId(AIndex: Integer; const AValue: TInt32);
  66071. begin
  66072. If (FAppEditorId=AValue) then exit;
  66073. FAppEditorId:=AValue;
  66074. MarkPropertyChanged(AIndex);
  66075. end;
  66076. Procedure TSP_DataOData__x005f_catalogs_x002f_wpItem.SetSelectTitle(AIndex: Integer; const AValue: string);
  66077. begin
  66078. If (FSelectTitle=AValue) then exit;
  66079. FSelectTitle:=AValue;
  66080. MarkPropertyChanged(AIndex);
  66081. end;
  66082. Procedure TSP_DataOData__x005f_catalogs_x002f_wpItem.SetSelectFilename(AIndex: Integer; const AValue: string);
  66083. begin
  66084. If (FSelectFilename=AValue) then exit;
  66085. FSelectFilename:=AValue;
  66086. MarkPropertyChanged(AIndex);
  66087. end;
  66088. Procedure TSP_DataOData__x005f_catalogs_x002f_wpItem.SetEdit(AIndex: Integer; const AValue: string);
  66089. begin
  66090. If (FEdit=AValue) then exit;
  66091. FEdit:=AValue;
  66092. MarkPropertyChanged(AIndex);
  66093. end;
  66094. Procedure TSP_DataOData__x005f_catalogs_x002f_wpItem.Setowshiddenversion(AIndex: Integer; const AValue: TInt32);
  66095. begin
  66096. If (Fowshiddenversion=AValue) then exit;
  66097. Fowshiddenversion:=AValue;
  66098. MarkPropertyChanged(AIndex);
  66099. end;
  66100. Procedure TSP_DataOData__x005f_catalogs_x002f_wpItem.SetOData__UIVersion(AIndex: Integer; const AValue: TInt32);
  66101. begin
  66102. If (FOData__UIVersion=AValue) then exit;
  66103. FOData__UIVersion:=AValue;
  66104. MarkPropertyChanged(AIndex);
  66105. end;
  66106. Procedure TSP_DataOData__x005f_catalogs_x002f_wpItem.SetOData__UIVersionString(AIndex: Integer; const AValue: string);
  66107. begin
  66108. If (FOData__UIVersionString=AValue) then exit;
  66109. FOData__UIVersionString:=AValue;
  66110. MarkPropertyChanged(AIndex);
  66111. end;
  66112. Procedure TSP_DataOData__x005f_catalogs_x002f_wpItem.SetInstanceID(AIndex: Integer; const AValue: TInt32);
  66113. begin
  66114. If (FInstanceID=AValue) then exit;
  66115. FInstanceID:=AValue;
  66116. MarkPropertyChanged(AIndex);
  66117. end;
  66118. Procedure TSP_DataOData__x005f_catalogs_x002f_wpItem.SetOrder(AIndex: Integer; const AValue: Double);
  66119. begin
  66120. If (FOrder=AValue) then exit;
  66121. FOrder:=AValue;
  66122. MarkPropertyChanged(AIndex);
  66123. end;
  66124. Procedure TSP_DataOData__x005f_catalogs_x002f_wpItem.SetGUID(AIndex: Integer; const AValue: TGUIDString);
  66125. begin
  66126. If (FGUID=AValue) then exit;
  66127. FGUID:=AValue;
  66128. MarkPropertyChanged(AIndex);
  66129. end;
  66130. Procedure TSP_DataOData__x005f_catalogs_x002f_wpItem.SetWorkflowVersion(AIndex: Integer; const AValue: TInt32);
  66131. begin
  66132. If (FWorkflowVersion=AValue) then exit;
  66133. FWorkflowVersion:=AValue;
  66134. MarkPropertyChanged(AIndex);
  66135. end;
  66136. Procedure TSP_DataOData__x005f_catalogs_x002f_wpItem.SetWorkflowInstanceID(AIndex: Integer; const AValue: TGUIDString);
  66137. begin
  66138. If (FWorkflowInstanceID=AValue) then exit;
  66139. FWorkflowInstanceID:=AValue;
  66140. MarkPropertyChanged(AIndex);
  66141. end;
  66142. Procedure TSP_DataOData__x005f_catalogs_x002f_wpItem.SetTitle(AIndex: Integer; const AValue: string);
  66143. begin
  66144. If (FTitle=AValue) then exit;
  66145. FTitle:=AValue;
  66146. MarkPropertyChanged(AIndex);
  66147. end;
  66148. Procedure TSP_DataOData__x005f_catalogs_x002f_wpItem.SetWebPartDescription(AIndex: Integer; const AValue: string);
  66149. begin
  66150. If (FWebPartDescription=AValue) then exit;
  66151. FWebPartDescription:=AValue;
  66152. MarkPropertyChanged(AIndex);
  66153. end;
  66154. Procedure TSP_DataOData__x005f_catalogs_x002f_wpItem.SetWebPartAssembly(AIndex: Integer; const AValue: string);
  66155. begin
  66156. If (FWebPartAssembly=AValue) then exit;
  66157. FWebPartAssembly:=AValue;
  66158. MarkPropertyChanged(AIndex);
  66159. end;
  66160. Procedure TSP_DataOData__x005f_catalogs_x002f_wpItem.SetWebPartTypeName(AIndex: Integer; const AValue: string);
  66161. begin
  66162. If (FWebPartTypeName=AValue) then exit;
  66163. FWebPartTypeName:=AValue;
  66164. MarkPropertyChanged(AIndex);
  66165. end;
  66166. Procedure TSP_DataOData__x005f_catalogs_x002f_wpItem.SetWebPartPartImageLarge(AIndex: Integer; const AValue: string);
  66167. begin
  66168. If (FWebPartPartImageLarge=AValue) then exit;
  66169. FWebPartPartImageLarge:=AValue;
  66170. MarkPropertyChanged(AIndex);
  66171. end;
  66172. Procedure TSP_DataOData__x005f_catalogs_x002f_wpItem.SetLinkWebPart(AIndex: Integer; const AValue: string);
  66173. begin
  66174. If (FLinkWebPart=AValue) then exit;
  66175. FLinkWebPart:=AValue;
  66176. MarkPropertyChanged(AIndex);
  66177. end;
  66178. Procedure TSP_DataOData__x005f_catalogs_x002f_wpItem.SetWebPartIcon(AIndex: Integer; const AValue: string);
  66179. begin
  66180. If (FWebPartIcon=AValue) then exit;
  66181. FWebPartIcon:=AValue;
  66182. MarkPropertyChanged(AIndex);
  66183. end;
  66184. Procedure TSP_DataOData__x005f_catalogs_x002f_wpItem.SetGroup(AIndex: Integer; const AValue: string);
  66185. begin
  66186. If (FGroup=AValue) then exit;
  66187. FGroup:=AValue;
  66188. MarkPropertyChanged(AIndex);
  66189. end;
  66190. Procedure TSP_DataOData__x005f_catalogs_x002f_wpItem.SetQuickAddGroups(AIndex: Integer; const AValue: TStringArray);
  66191. begin
  66192. If (FQuickAddGroups=AValue) then exit;
  66193. FQuickAddGroups:=AValue;
  66194. MarkPropertyChanged(AIndex);
  66195. end;
  66196. {$IFDEF VER2_6}
  66197. Procedure TSP_DataOData__x005f_catalogs_x002f_wpItem.SetArrayLength(const AName: String; ALength: Longint);
  66198. begin
  66199. Case aName of
  66200. 'quickaddgroups' : SetLength(FQuickAddGroups,aLength);
  66201. else
  66202. inherited SetArrayLength(aName,ALength);
  66203. end;
  66204. end;
  66205. {$ENDIF VER2_6}
  66206. Function TSP_DataOData__x005f_catalogs_x002f_wpItem.Author(AService: TODataService) : TSP_DataUserInfoItem;
  66207. begin
  66208. Result:=TSP_DataUserInfoItem(GetContainedSingleTon(AService,'Author', TSP_DataUserInfoItem));
  66209. end;
  66210. Function TSP_DataOData__x005f_catalogs_x002f_wpItem.Editor(AService: TODataService) : TSP_DataUserInfoItem;
  66211. begin
  66212. Result:=TSP_DataUserInfoItem(GetContainedSingleTon(AService,'Editor', TSP_DataUserInfoItem));
  66213. end;
  66214. Function TSP_DataOData__x005f_catalogs_x002f_wpItem.CheckoutUser(AService: TODataService) : TSP_DataUserInfoItem;
  66215. begin
  66216. Result:=TSP_DataUserInfoItem(GetContainedSingleTon(AService,'CheckoutUser', TSP_DataUserInfoItem));
  66217. end;
  66218. { --------------------------------------------------------------------
  66219. TSPApiData
  66220. --------------------------------------------------------------------}
  66221. Class Function TSPApiData.ObjectRestKind : String;
  66222. begin
  66223. Result:='ApiData';
  66224. end;
  66225. Function TSPApiData.CreateNewApps : TSPAppsEntitySet;
  66226. begin
  66227. Result:=TSPAppsEntitySet(CreateEntitySet(TSPAppsEntitySet));
  66228. end;
  66229. Function TSPApiData.GetApps : TSPAppsEntitySet;
  66230. begin
  66231. If Not Assigned(FApps) then
  66232. FApps:=TSPAppsEntitySet(CreateEntitySet(TSPAppsEntitySet));
  66233. Result:=FApps;
  66234. end;
  66235. Function TSPApiData.CreateNewFiles : TSPFilesEntitySet;
  66236. begin
  66237. Result:=TSPFilesEntitySet(CreateEntitySet(TSPFilesEntitySet));
  66238. end;
  66239. Function TSPApiData.GetFiles : TSPFilesEntitySet;
  66240. begin
  66241. If Not Assigned(FFiles) then
  66242. FFiles:=TSPFilesEntitySet(CreateEntitySet(TSPFilesEntitySet));
  66243. Result:=FFiles;
  66244. end;
  66245. Function TSPApiData.CreateNewLists : TSPListsEntitySet;
  66246. begin
  66247. Result:=TSPListsEntitySet(CreateEntitySet(TSPListsEntitySet));
  66248. end;
  66249. Function TSPApiData.GetLists : TSPListsEntitySet;
  66250. begin
  66251. If Not Assigned(FLists) then
  66252. FLists:=TSPListsEntitySet(CreateEntitySet(TSPListsEntitySet));
  66253. Result:=FLists;
  66254. end;
  66255. Function TSPApiData.CreateNewMes : TSPMesEntitySet;
  66256. begin
  66257. Result:=TSPMesEntitySet(CreateEntitySet(TSPMesEntitySet));
  66258. end;
  66259. Function TSPApiData.GetMes : TSPMesEntitySet;
  66260. begin
  66261. If Not Assigned(FMes) then
  66262. FMes:=TSPMesEntitySet(CreateEntitySet(TSPMesEntitySet));
  66263. Result:=FMes;
  66264. end;
  66265. Function TSPApiData.CreateNewSites : TSPSitesEntitySet;
  66266. begin
  66267. Result:=TSPSitesEntitySet(CreateEntitySet(TSPSitesEntitySet));
  66268. end;
  66269. Function TSPApiData.GetSites : TSPSitesEntitySet;
  66270. begin
  66271. If Not Assigned(FSites) then
  66272. FSites:=TSPSitesEntitySet(CreateEntitySet(TSPSitesEntitySet));
  66273. Result:=FSites;
  66274. end;
  66275. Function TSPApiData.CreateNewWebs : TSPWebsEntitySet;
  66276. begin
  66277. Result:=TSPWebsEntitySet(CreateEntitySet(TSPWebsEntitySet));
  66278. end;
  66279. Function TSPApiData.GetWebs : TSPWebsEntitySet;
  66280. begin
  66281. If Not Assigned(FWebs) then
  66282. FWebs:=TSPWebsEntitySet(CreateEntitySet(TSPWebsEntitySet));
  66283. Result:=FWebs;
  66284. end;
  66285. Function TSPApiData.CreateNewAppStores : TSPAppStoresEntitySet;
  66286. begin
  66287. Result:=TSPAppStoresEntitySet(CreateEntitySet(TSPAppStoresEntitySet));
  66288. end;
  66289. Function TSPApiData.GetAppStores : TSPAppStoresEntitySet;
  66290. begin
  66291. If Not Assigned(FAppStores) then
  66292. FAppStores:=TSPAppStoresEntitySet(CreateEntitySet(TSPAppStoresEntitySet));
  66293. Result:=FAppStores;
  66294. end;
  66295. Function TSPApiData.CreateNewConnectionSettingss : TSPConnectionSettingssEntitySet;
  66296. begin
  66297. Result:=TSPConnectionSettingssEntitySet(CreateEntitySet(TSPConnectionSettingssEntitySet));
  66298. end;
  66299. Function TSPApiData.GetConnectionSettingss : TSPConnectionSettingssEntitySet;
  66300. begin
  66301. If Not Assigned(FConnectionSettingss) then
  66302. FConnectionSettingss:=TSPConnectionSettingssEntitySet(CreateEntitySet(TSPConnectionSettingssEntitySet));
  66303. Result:=FConnectionSettingss;
  66304. end;
  66305. Function TSPApiData.CreateNewTargetApplications : TSPTargetApplicationsEntitySet;
  66306. begin
  66307. Result:=TSPTargetApplicationsEntitySet(CreateEntitySet(TSPTargetApplicationsEntitySet));
  66308. end;
  66309. Function TSPApiData.GetTargetApplications : TSPTargetApplicationsEntitySet;
  66310. begin
  66311. If Not Assigned(FTargetApplications) then
  66312. FTargetApplications:=TSPTargetApplicationsEntitySet(CreateEntitySet(TSPTargetApplicationsEntitySet));
  66313. Result:=FTargetApplications;
  66314. end;
  66315. Function TSPApiData.CreateNewTargetApplicationFields : TSPTargetApplicationFieldsEntitySet;
  66316. begin
  66317. Result:=TSPTargetApplicationFieldsEntitySet(CreateEntitySet(TSPTargetApplicationFieldsEntitySet));
  66318. end;
  66319. Function TSPApiData.GetTargetApplicationFields : TSPTargetApplicationFieldsEntitySet;
  66320. begin
  66321. If Not Assigned(FTargetApplicationFields) then
  66322. FTargetApplicationFields:=TSPTargetApplicationFieldsEntitySet(CreateEntitySet(TSPTargetApplicationFieldsEntitySet));
  66323. Result:=FTargetApplicationFields;
  66324. end;
  66325. Function TSPApiData.CreateNewReputations : TSPReputationsEntitySet;
  66326. begin
  66327. Result:=TSPReputationsEntitySet(CreateEntitySet(TSPReputationsEntitySet));
  66328. end;
  66329. Function TSPApiData.GetReputations : TSPReputationsEntitySet;
  66330. begin
  66331. If Not Assigned(FReputations) then
  66332. FReputations:=TSPReputationsEntitySet(CreateEntitySet(TSPReputationsEntitySet));
  66333. Result:=FReputations;
  66334. end;
  66335. Function TSPApiData.CreateNewSearchServices : TSPSearchServicesEntitySet;
  66336. begin
  66337. Result:=TSPSearchServicesEntitySet(CreateEntitySet(TSPSearchServicesEntitySet));
  66338. end;
  66339. Function TSPApiData.GetSearchServices : TSPSearchServicesEntitySet;
  66340. begin
  66341. If Not Assigned(FSearchServices) then
  66342. FSearchServices:=TSPSearchServicesEntitySet(CreateEntitySet(TSPSearchServicesEntitySet));
  66343. Result:=FSearchServices;
  66344. end;
  66345. Function TSPApiData.CreateNewApps1 : TSPApps1EntitySet;
  66346. begin
  66347. Result:=TSPApps1EntitySet(CreateEntitySet(TSPApps1EntitySet));
  66348. end;
  66349. Function TSPApiData.GetApps1 : TSPApps1EntitySet;
  66350. begin
  66351. If Not Assigned(FApps1) then
  66352. FApps1:=TSPApps1EntitySet(CreateEntitySet(TSPApps1EntitySet));
  66353. Result:=FApps1;
  66354. end;
  66355. Function TSPApiData.CreateNewPointPublishingAdmins : TSPPointPublishingAdminsEntitySet;
  66356. begin
  66357. Result:=TSPPointPublishingAdminsEntitySet(CreateEntitySet(TSPPointPublishingAdminsEntitySet));
  66358. end;
  66359. Function TSPApiData.GetPointPublishingAdmins : TSPPointPublishingAdminsEntitySet;
  66360. begin
  66361. If Not Assigned(FPointPublishingAdmins) then
  66362. FPointPublishingAdmins:=TSPPointPublishingAdminsEntitySet(CreateEntitySet(TSPPointPublishingAdminsEntitySet));
  66363. Result:=FPointPublishingAdmins;
  66364. end;
  66365. Function TSPApiData.CreateNewDDIAdapters : TSPDDIAdaptersEntitySet;
  66366. begin
  66367. Result:=TSPDDIAdaptersEntitySet(CreateEntitySet(TSPDDIAdaptersEntitySet));
  66368. end;
  66369. Function TSPApiData.GetDDIAdapters : TSPDDIAdaptersEntitySet;
  66370. begin
  66371. If Not Assigned(FDDIAdapters) then
  66372. FDDIAdapters:=TSPDDIAdaptersEntitySet(CreateEntitySet(TSPDDIAdaptersEntitySet));
  66373. Result:=FDDIAdapters;
  66374. end;
  66375. Function TSPApiData.CreateNewSPOTenantWebTemplateCollections : TSPSPOTenantWebTemplateCollectionsEntitySet;
  66376. begin
  66377. Result:=TSPSPOTenantWebTemplateCollectionsEntitySet(CreateEntitySet(TSPSPOTenantWebTemplateCollectionsEntitySet));
  66378. end;
  66379. Function TSPApiData.GetSPOTenantWebTemplateCollections : TSPSPOTenantWebTemplateCollectionsEntitySet;
  66380. begin
  66381. If Not Assigned(FSPOTenantWebTemplateCollections) then
  66382. FSPOTenantWebTemplateCollections:=TSPSPOTenantWebTemplateCollectionsEntitySet(CreateEntitySet(TSPSPOTenantWebTemplateCollectionsEntitySet));
  66383. Result:=FSPOTenantWebTemplateCollections;
  66384. end;
  66385. Function TSPApiData.CreateNewExternalUsers : TSPExternalUsersEntitySet;
  66386. begin
  66387. Result:=TSPExternalUsersEntitySet(CreateEntitySet(TSPExternalUsersEntitySet));
  66388. end;
  66389. Function TSPApiData.GetExternalUsers : TSPExternalUsersEntitySet;
  66390. begin
  66391. If Not Assigned(FExternalUsers) then
  66392. FExternalUsers:=TSPExternalUsersEntitySet(CreateEntitySet(TSPExternalUsersEntitySet));
  66393. Result:=FExternalUsers;
  66394. end;
  66395. Function TSPApiData.CreateNewGetExternalUsersResultss : TSPGetExternalUsersResultssEntitySet;
  66396. begin
  66397. Result:=TSPGetExternalUsersResultssEntitySet(CreateEntitySet(TSPGetExternalUsersResultssEntitySet));
  66398. end;
  66399. Function TSPApiData.GetGetExternalUsersResultss : TSPGetExternalUsersResultssEntitySet;
  66400. begin
  66401. If Not Assigned(FGetExternalUsersResultss) then
  66402. FGetExternalUsersResultss:=TSPGetExternalUsersResultssEntitySet(CreateEntitySet(TSPGetExternalUsersResultssEntitySet));
  66403. Result:=FGetExternalUsersResultss;
  66404. end;
  66405. Function TSPApiData.CreateNewOffice365Tenants : TSPOffice365TenantsEntitySet;
  66406. begin
  66407. Result:=TSPOffice365TenantsEntitySet(CreateEntitySet(TSPOffice365TenantsEntitySet));
  66408. end;
  66409. Function TSPApiData.GetOffice365Tenants : TSPOffice365TenantsEntitySet;
  66410. begin
  66411. If Not Assigned(FOffice365Tenants) then
  66412. FOffice365Tenants:=TSPOffice365TenantsEntitySet(CreateEntitySet(TSPOffice365TenantsEntitySet));
  66413. Result:=FOffice365Tenants;
  66414. end;
  66415. Function TSPApiData.CreateNewRemoveExternalUsersResultss : TSPRemoveExternalUsersResultssEntitySet;
  66416. begin
  66417. Result:=TSPRemoveExternalUsersResultssEntitySet(CreateEntitySet(TSPRemoveExternalUsersResultssEntitySet));
  66418. end;
  66419. Function TSPApiData.GetRemoveExternalUsersResultss : TSPRemoveExternalUsersResultssEntitySet;
  66420. begin
  66421. If Not Assigned(FRemoveExternalUsersResultss) then
  66422. FRemoveExternalUsersResultss:=TSPRemoveExternalUsersResultssEntitySet(CreateEntitySet(TSPRemoveExternalUsersResultssEntitySet));
  66423. Result:=FRemoveExternalUsersResultss;
  66424. end;
  66425. Function TSPApiData.CreateNewFeatureDefinitions : TSPFeatureDefinitionsEntitySet;
  66426. begin
  66427. Result:=TSPFeatureDefinitionsEntitySet(CreateEntitySet(TSPFeatureDefinitionsEntitySet));
  66428. end;
  66429. Function TSPApiData.GetFeatureDefinitions : TSPFeatureDefinitionsEntitySet;
  66430. begin
  66431. If Not Assigned(FFeatureDefinitions) then
  66432. FFeatureDefinitions:=TSPFeatureDefinitionsEntitySet(CreateEntitySet(TSPFeatureDefinitionsEntitySet));
  66433. Result:=FFeatureDefinitions;
  66434. end;
  66435. Function TSPApiData.CreateNewSPAnalyticsUsageServices : TSPSPAnalyticsUsageServicesEntitySet;
  66436. begin
  66437. Result:=TSPSPAnalyticsUsageServicesEntitySet(CreateEntitySet(TSPSPAnalyticsUsageServicesEntitySet));
  66438. end;
  66439. Function TSPApiData.GetSPAnalyticsUsageServices : TSPSPAnalyticsUsageServicesEntitySet;
  66440. begin
  66441. If Not Assigned(FSPAnalyticsUsageServices) then
  66442. FSPAnalyticsUsageServices:=TSPSPAnalyticsUsageServicesEntitySet(CreateEntitySet(TSPSPAnalyticsUsageServicesEntitySet));
  66443. Result:=FSPAnalyticsUsageServices;
  66444. end;
  66445. Function TSPApiData.CreateNewSPAppStateQueryJobDefinitions : TSPSPAppStateQueryJobDefinitionsEntitySet;
  66446. begin
  66447. Result:=TSPSPAppStateQueryJobDefinitionsEntitySet(CreateEntitySet(TSPSPAppStateQueryJobDefinitionsEntitySet));
  66448. end;
  66449. Function TSPApiData.GetSPAppStateQueryJobDefinitions : TSPSPAppStateQueryJobDefinitionsEntitySet;
  66450. begin
  66451. If Not Assigned(FSPAppStateQueryJobDefinitions) then
  66452. FSPAppStateQueryJobDefinitions:=TSPSPAppStateQueryJobDefinitionsEntitySet(CreateEntitySet(TSPSPAppStateQueryJobDefinitionsEntitySet));
  66453. Result:=FSPAppStateQueryJobDefinitions;
  66454. end;
  66455. Function TSPApiData.CreateNewSPFarms : TSPSPFarmsEntitySet;
  66456. begin
  66457. Result:=TSPSPFarmsEntitySet(CreateEntitySet(TSPSPFarmsEntitySet));
  66458. end;
  66459. Function TSPApiData.GetSPFarms : TSPSPFarmsEntitySet;
  66460. begin
  66461. If Not Assigned(FSPFarms) then
  66462. FSPFarms:=TSPSPFarmsEntitySet(CreateEntitySet(TSPSPFarmsEntitySet));
  66463. Result:=FSPFarms;
  66464. end;
  66465. Function TSPApiData.CreateNewSPTenantAppInstanceDatas : TSPSPTenantAppInstanceDatasEntitySet;
  66466. begin
  66467. Result:=TSPSPTenantAppInstanceDatasEntitySet(CreateEntitySet(TSPSPTenantAppInstanceDatasEntitySet));
  66468. end;
  66469. Function TSPApiData.GetSPTenantAppInstanceDatas : TSPSPTenantAppInstanceDatasEntitySet;
  66470. begin
  66471. If Not Assigned(FSPTenantAppInstanceDatas) then
  66472. FSPTenantAppInstanceDatas:=TSPSPTenantAppInstanceDatasEntitySet(CreateEntitySet(TSPSPTenantAppInstanceDatasEntitySet));
  66473. Result:=FSPTenantAppInstanceDatas;
  66474. end;
  66475. Function TSPApiData.CreateNewSPWebApplications : TSPSPWebApplicationsEntitySet;
  66476. begin
  66477. Result:=TSPSPWebApplicationsEntitySet(CreateEntitySet(TSPSPWebApplicationsEntitySet));
  66478. end;
  66479. Function TSPApiData.GetSPWebApplications : TSPSPWebApplicationsEntitySet;
  66480. begin
  66481. If Not Assigned(FSPWebApplications) then
  66482. FSPWebApplications:=TSPSPWebApplicationsEntitySet(CreateEntitySet(TSPSPWebApplicationsEntitySet));
  66483. Result:=FSPWebApplications;
  66484. end;
  66485. Function TSPApiData.CreateNewSPWebServices : TSPSPWebServicesEntitySet;
  66486. begin
  66487. Result:=TSPSPWebServicesEntitySet(CreateEntitySet(TSPSPWebServicesEntitySet));
  66488. end;
  66489. Function TSPApiData.GetSPWebServices : TSPSPWebServicesEntitySet;
  66490. begin
  66491. If Not Assigned(FSPWebServices) then
  66492. FSPWebServices:=TSPSPWebServicesEntitySet(CreateEntitySet(TSPSPWebServicesEntitySet));
  66493. Result:=FSPWebServices;
  66494. end;
  66495. Function TSPApiData.CreateNewSPAppPrincipalInfos : TSPSPAppPrincipalInfosEntitySet;
  66496. begin
  66497. Result:=TSPSPAppPrincipalInfosEntitySet(CreateEntitySet(TSPSPAppPrincipalInfosEntitySet));
  66498. end;
  66499. Function TSPApiData.GetSPAppPrincipalInfos : TSPSPAppPrincipalInfosEntitySet;
  66500. begin
  66501. If Not Assigned(FSPAppPrincipalInfos) then
  66502. FSPAppPrincipalInfos:=TSPSPAppPrincipalInfosEntitySet(CreateEntitySet(TSPSPAppPrincipalInfosEntitySet));
  66503. Result:=FSPAppPrincipalInfos;
  66504. end;
  66505. Function TSPApiData.CreateNewDocumentCrawlLogs : TSPDocumentCrawlLogsEntitySet;
  66506. begin
  66507. Result:=TSPDocumentCrawlLogsEntitySet(CreateEntitySet(TSPDocumentCrawlLogsEntitySet));
  66508. end;
  66509. Function TSPApiData.GetDocumentCrawlLogs : TSPDocumentCrawlLogsEntitySet;
  66510. begin
  66511. If Not Assigned(FDocumentCrawlLogs) then
  66512. FDocumentCrawlLogs:=TSPDocumentCrawlLogsEntitySet(CreateEntitySet(TSPDocumentCrawlLogsEntitySet));
  66513. Result:=FDocumentCrawlLogs;
  66514. end;
  66515. Function TSPApiData.CreateNewSignalStores : TSPSignalStoresEntitySet;
  66516. begin
  66517. Result:=TSPSignalStoresEntitySet(CreateEntitySet(TSPSignalStoresEntitySet));
  66518. end;
  66519. Function TSPApiData.GetSignalStores : TSPSignalStoresEntitySet;
  66520. begin
  66521. If Not Assigned(FSignalStores) then
  66522. FSignalStores:=TSPSignalStoresEntitySet(CreateEntitySet(TSPSignalStoresEntitySet));
  66523. Result:=FSignalStores;
  66524. end;
  66525. Function TSPApiData.CreateNewQueryPersonalizationDatas : TSPQueryPersonalizationDatasEntitySet;
  66526. begin
  66527. Result:=TSPQueryPersonalizationDatasEntitySet(CreateEntitySet(TSPQueryPersonalizationDatasEntitySet));
  66528. end;
  66529. Function TSPApiData.GetQueryPersonalizationDatas : TSPQueryPersonalizationDatasEntitySet;
  66530. begin
  66531. If Not Assigned(FQueryPersonalizationDatas) then
  66532. FQueryPersonalizationDatas:=TSPQueryPersonalizationDatasEntitySet(CreateEntitySet(TSPQueryPersonalizationDatasEntitySet));
  66533. Result:=FQueryPersonalizationDatas;
  66534. end;
  66535. Function TSPApiData.CreateNewRankingLabelings : TSPRankingLabelingsEntitySet;
  66536. begin
  66537. Result:=TSPRankingLabelingsEntitySet(CreateEntitySet(TSPRankingLabelingsEntitySet));
  66538. end;
  66539. Function TSPApiData.GetRankingLabelings : TSPRankingLabelingsEntitySet;
  66540. begin
  66541. If Not Assigned(FRankingLabelings) then
  66542. FRankingLabelings:=TSPRankingLabelingsEntitySet(CreateEntitySet(TSPRankingLabelingsEntitySet));
  66543. Result:=FRankingLabelings;
  66544. end;
  66545. Function TSPApiData.CreateNewReorderingRuleCollections : TSPReorderingRuleCollectionsEntitySet;
  66546. begin
  66547. Result:=TSPReorderingRuleCollectionsEntitySet(CreateEntitySet(TSPReorderingRuleCollectionsEntitySet));
  66548. end;
  66549. Function TSPApiData.GetReorderingRuleCollections : TSPReorderingRuleCollectionsEntitySet;
  66550. begin
  66551. If Not Assigned(FReorderingRuleCollections) then
  66552. FReorderingRuleCollections:=TSPReorderingRuleCollectionsEntitySet(CreateEntitySet(TSPReorderingRuleCollectionsEntitySet));
  66553. Result:=FReorderingRuleCollections;
  66554. end;
  66555. Function TSPApiData.CreateNewSortCollections : TSPSortCollectionsEntitySet;
  66556. begin
  66557. Result:=TSPSortCollectionsEntitySet(CreateEntitySet(TSPSortCollectionsEntitySet));
  66558. end;
  66559. Function TSPApiData.GetSortCollections : TSPSortCollectionsEntitySet;
  66560. begin
  66561. If Not Assigned(FSortCollections) then
  66562. FSortCollections:=TSPSortCollectionsEntitySet(CreateEntitySet(TSPSortCollectionsEntitySet));
  66563. Result:=FSortCollections;
  66564. end;
  66565. Function TSPApiData.CreateNewStringCollections : TSPStringCollectionsEntitySet;
  66566. begin
  66567. Result:=TSPStringCollectionsEntitySet(CreateEntitySet(TSPStringCollectionsEntitySet));
  66568. end;
  66569. Function TSPApiData.GetStringCollections : TSPStringCollectionsEntitySet;
  66570. begin
  66571. If Not Assigned(FStringCollections) then
  66572. FStringCollections:=TSPStringCollectionsEntitySet(CreateEntitySet(TSPStringCollectionsEntitySet));
  66573. Result:=FStringCollections;
  66574. end;
  66575. Function TSPApiData.CreateNewSPFlights : TSPSPFlightsEntitySet;
  66576. begin
  66577. Result:=TSPSPFlightsEntitySet(CreateEntitySet(TSPSPFlightsEntitySet));
  66578. end;
  66579. Function TSPApiData.GetSPFlights : TSPSPFlightsEntitySet;
  66580. begin
  66581. If Not Assigned(FSPFlights) then
  66582. FSPFlights:=TSPSPFlightsEntitySet(CreateEntitySet(TSPSPFlightsEntitySet));
  66583. Result:=FSPFlights;
  66584. end;
  66585. Function TSPApiData.CreateNewSPCorporateCuratedGallerySettingsBases : TSPSPCorporateCuratedGallerySettingsBasesEntitySet;
  66586. begin
  66587. Result:=TSPSPCorporateCuratedGallerySettingsBasesEntitySet(CreateEntitySet(TSPSPCorporateCuratedGallerySettingsBasesEntitySet));
  66588. end;
  66589. Function TSPApiData.GetSPCorporateCuratedGallerySettingsBases : TSPSPCorporateCuratedGallerySettingsBasesEntitySet;
  66590. begin
  66591. If Not Assigned(FSPCorporateCuratedGallerySettingsBases) then
  66592. FSPCorporateCuratedGallerySettingsBases:=TSPSPCorporateCuratedGallerySettingsBasesEntitySet(CreateEntitySet(TSPSPCorporateCuratedGallerySettingsBasesEntitySet));
  66593. Result:=FSPCorporateCuratedGallerySettingsBases;
  66594. end;
  66595. Function TSPApiData.CreateNewSPCorporateCuratedGallerySettingsFactorys : TSPSPCorporateCuratedGallerySettingsFactorysEntitySet;
  66596. begin
  66597. Result:=TSPSPCorporateCuratedGallerySettingsFactorysEntitySet(CreateEntitySet(TSPSPCorporateCuratedGallerySettingsFactorysEntitySet));
  66598. end;
  66599. Function TSPApiData.GetSPCorporateCuratedGallerySettingsFactorys : TSPSPCorporateCuratedGallerySettingsFactorysEntitySet;
  66600. begin
  66601. If Not Assigned(FSPCorporateCuratedGallerySettingsFactorys) then
  66602. FSPCorporateCuratedGallerySettingsFactorys:=TSPSPCorporateCuratedGallerySettingsFactorysEntitySet(CreateEntitySet(TSPSPCorporateCuratedGallerySettingsFactorysEntitySet));
  66603. Result:=FSPCorporateCuratedGallerySettingsFactorys;
  66604. end;
  66605. Function TSPApiData.CreateNewSPMarketplaceSettingss : TSPSPMarketplaceSettingssEntitySet;
  66606. begin
  66607. Result:=TSPSPMarketplaceSettingssEntitySet(CreateEntitySet(TSPSPMarketplaceSettingssEntitySet));
  66608. end;
  66609. Function TSPApiData.GetSPMarketplaceSettingss : TSPSPMarketplaceSettingssEntitySet;
  66610. begin
  66611. If Not Assigned(FSPMarketplaceSettingss) then
  66612. FSPMarketplaceSettingss:=TSPSPMarketplaceSettingssEntitySet(CreateEntitySet(TSPSPMarketplaceSettingssEntitySet));
  66613. Result:=FSPMarketplaceSettingss;
  66614. end;
  66615. Function TSPApiData.CreateNewNavigationServiceRests : TSPNavigationServiceRestsEntitySet;
  66616. begin
  66617. Result:=TSPNavigationServiceRestsEntitySet(CreateEntitySet(TSPNavigationServiceRestsEntitySet));
  66618. end;
  66619. Function TSPApiData.GetNavigationServiceRests : TSPNavigationServiceRestsEntitySet;
  66620. begin
  66621. If Not Assigned(FNavigationServiceRests) then
  66622. FNavigationServiceRests:=TSPNavigationServiceRestsEntitySet(CreateEntitySet(TSPNavigationServiceRestsEntitySet));
  66623. Result:=FNavigationServiceRests;
  66624. end;
  66625. Function TSPApiData.CreateNewAppDetailss : TSPAppDetailssEntitySet;
  66626. begin
  66627. Result:=TSPAppDetailssEntitySet(CreateEntitySet(TSPAppDetailssEntitySet));
  66628. end;
  66629. Function TSPApiData.GetAppDetailss : TSPAppDetailssEntitySet;
  66630. begin
  66631. If Not Assigned(FAppDetailss) then
  66632. FAppDetailss:=TSPAppDetailssEntitySet(CreateEntitySet(TSPAppDetailssEntitySet));
  66633. Result:=FAppDetailss;
  66634. end;
  66635. Function TSPApiData.CreateNewAppIconInfos : TSPAppIconInfosEntitySet;
  66636. begin
  66637. Result:=TSPAppIconInfosEntitySet(CreateEntitySet(TSPAppIconInfosEntitySet));
  66638. end;
  66639. Function TSPApiData.GetAppIconInfos : TSPAppIconInfosEntitySet;
  66640. begin
  66641. If Not Assigned(FAppIconInfos) then
  66642. FAppIconInfos:=TSPAppIconInfosEntitySet(CreateEntitySet(TSPAppIconInfosEntitySet));
  66643. Result:=FAppIconInfos;
  66644. end;
  66645. Function TSPApiData.CreateNewCollaborationMailboxs : TSPCollaborationMailboxsEntitySet;
  66646. begin
  66647. Result:=TSPCollaborationMailboxsEntitySet(CreateEntitySet(TSPCollaborationMailboxsEntitySet));
  66648. end;
  66649. Function TSPApiData.GetCollaborationMailboxs : TSPCollaborationMailboxsEntitySet;
  66650. begin
  66651. If Not Assigned(FCollaborationMailboxs) then
  66652. FCollaborationMailboxs:=TSPCollaborationMailboxsEntitySet(CreateEntitySet(TSPCollaborationMailboxsEntitySet));
  66653. Result:=FCollaborationMailboxs;
  66654. end;
  66655. Function TSPApiData.CreateNewCommunityModerations : TSPCommunityModerationsEntitySet;
  66656. begin
  66657. Result:=TSPCommunityModerationsEntitySet(CreateEntitySet(TSPCommunityModerationsEntitySet));
  66658. end;
  66659. Function TSPApiData.GetCommunityModerations : TSPCommunityModerationsEntitySet;
  66660. begin
  66661. If Not Assigned(FCommunityModerations) then
  66662. FCommunityModerations:=TSPCommunityModerationsEntitySet(CreateEntitySet(TSPCommunityModerationsEntitySet));
  66663. Result:=FCommunityModerations;
  66664. end;
  66665. Function TSPApiData.CreateNewMySiteRecommendationss : TSPMySiteRecommendationssEntitySet;
  66666. begin
  66667. Result:=TSPMySiteRecommendationssEntitySet(CreateEntitySet(TSPMySiteRecommendationssEntitySet));
  66668. end;
  66669. Function TSPApiData.GetMySiteRecommendationss : TSPMySiteRecommendationssEntitySet;
  66670. begin
  66671. If Not Assigned(FMySiteRecommendationss) then
  66672. FMySiteRecommendationss:=TSPMySiteRecommendationssEntitySet(CreateEntitySet(TSPMySiteRecommendationssEntitySet));
  66673. Result:=FMySiteRecommendationss;
  66674. end;
  66675. Function TSPApiData.CreateNewDocumentsSharedWithGroups : TSPDocumentsSharedWithGroupsEntitySet;
  66676. begin
  66677. Result:=TSPDocumentsSharedWithGroupsEntitySet(CreateEntitySet(TSPDocumentsSharedWithGroupsEntitySet));
  66678. end;
  66679. Function TSPApiData.GetDocumentsSharedWithGroups : TSPDocumentsSharedWithGroupsEntitySet;
  66680. begin
  66681. If Not Assigned(FDocumentsSharedWithGroups) then
  66682. FDocumentsSharedWithGroups:=TSPDocumentsSharedWithGroupsEntitySet(CreateEntitySet(TSPDocumentsSharedWithGroupsEntitySet));
  66683. Result:=FDocumentsSharedWithGroups;
  66684. end;
  66685. Function TSPApiData.CreateNewDocumentsSharedWithMes : TSPDocumentsSharedWithMesEntitySet;
  66686. begin
  66687. Result:=TSPDocumentsSharedWithMesEntitySet(CreateEntitySet(TSPDocumentsSharedWithMesEntitySet));
  66688. end;
  66689. Function TSPApiData.GetDocumentsSharedWithMes : TSPDocumentsSharedWithMesEntitySet;
  66690. begin
  66691. If Not Assigned(FDocumentsSharedWithMes) then
  66692. FDocumentsSharedWithMes:=TSPDocumentsSharedWithMesEntitySet(CreateEntitySet(TSPDocumentsSharedWithMesEntitySet));
  66693. Result:=FDocumentsSharedWithMes;
  66694. end;
  66695. Function TSPApiData.CreateNewDocumentsSharedWithPersons : TSPDocumentsSharedWithPersonsEntitySet;
  66696. begin
  66697. Result:=TSPDocumentsSharedWithPersonsEntitySet(CreateEntitySet(TSPDocumentsSharedWithPersonsEntitySet));
  66698. end;
  66699. Function TSPApiData.GetDocumentsSharedWithPersons : TSPDocumentsSharedWithPersonsEntitySet;
  66700. begin
  66701. If Not Assigned(FDocumentsSharedWithPersons) then
  66702. FDocumentsSharedWithPersons:=TSPDocumentsSharedWithPersonsEntitySet(CreateEntitySet(TSPDocumentsSharedWithPersonsEntitySet));
  66703. Result:=FDocumentsSharedWithPersons;
  66704. end;
  66705. Function TSPApiData.CreateNewMySiteDismissStatusTexts : TSPMySiteDismissStatusTextsEntitySet;
  66706. begin
  66707. Result:=TSPMySiteDismissStatusTextsEntitySet(CreateEntitySet(TSPMySiteDismissStatusTextsEntitySet));
  66708. end;
  66709. Function TSPApiData.GetMySiteDismissStatusTexts : TSPMySiteDismissStatusTextsEntitySet;
  66710. begin
  66711. If Not Assigned(FMySiteDismissStatusTexts) then
  66712. FMySiteDismissStatusTexts:=TSPMySiteDismissStatusTextsEntitySet(CreateEntitySet(TSPMySiteDismissStatusTextsEntitySet));
  66713. Result:=FMySiteDismissStatusTexts;
  66714. end;
  66715. Function TSPApiData.CreateNewMySiteDocumentMoveUtilitys : TSPMySiteDocumentMoveUtilitysEntitySet;
  66716. begin
  66717. Result:=TSPMySiteDocumentMoveUtilitysEntitySet(CreateEntitySet(TSPMySiteDocumentMoveUtilitysEntitySet));
  66718. end;
  66719. Function TSPApiData.GetMySiteDocumentMoveUtilitys : TSPMySiteDocumentMoveUtilitysEntitySet;
  66720. begin
  66721. If Not Assigned(FMySiteDocumentMoveUtilitys) then
  66722. FMySiteDocumentMoveUtilitys:=TSPMySiteDocumentMoveUtilitysEntitySet(CreateEntitySet(TSPMySiteDocumentMoveUtilitysEntitySet));
  66723. Result:=FMySiteDocumentMoveUtilitys;
  66724. end;
  66725. Function TSPApiData.CreateNewMySiteLinkss : TSPMySiteLinkssEntitySet;
  66726. begin
  66727. Result:=TSPMySiteLinkssEntitySet(CreateEntitySet(TSPMySiteLinkssEntitySet));
  66728. end;
  66729. Function TSPApiData.GetMySiteLinkss : TSPMySiteLinkssEntitySet;
  66730. begin
  66731. If Not Assigned(FMySiteLinkss) then
  66732. FMySiteLinkss:=TSPMySiteLinkssEntitySet(CreateEntitySet(TSPMySiteLinkssEntitySet));
  66733. Result:=FMySiteLinkss;
  66734. end;
  66735. Function TSPApiData.CreateNewPromotedSitess : TSPPromotedSitessEntitySet;
  66736. begin
  66737. Result:=TSPPromotedSitessEntitySet(CreateEntitySet(TSPPromotedSitessEntitySet));
  66738. end;
  66739. Function TSPApiData.GetPromotedSitess : TSPPromotedSitessEntitySet;
  66740. begin
  66741. If Not Assigned(FPromotedSitess) then
  66742. FPromotedSitess:=TSPPromotedSitessEntitySet(CreateEntitySet(TSPPromotedSitessEntitySet));
  66743. Result:=FPromotedSitess;
  66744. end;
  66745. Function TSPApiData.CreateNewSharedWithMeDocuments : TSPSharedWithMeDocumentsEntitySet;
  66746. begin
  66747. Result:=TSPSharedWithMeDocumentsEntitySet(CreateEntitySet(TSPSharedWithMeDocumentsEntitySet));
  66748. end;
  66749. Function TSPApiData.GetSharedWithMeDocuments : TSPSharedWithMeDocumentsEntitySet;
  66750. begin
  66751. If Not Assigned(FSharedWithMeDocuments) then
  66752. FSharedWithMeDocuments:=TSPSharedWithMeDocumentsEntitySet(CreateEntitySet(TSPSharedWithMeDocumentsEntitySet));
  66753. Result:=FSharedWithMeDocuments;
  66754. end;
  66755. Function TSPApiData.CreateNewRecentDocuments : TSPRecentDocumentsEntitySet;
  66756. begin
  66757. Result:=TSPRecentDocumentsEntitySet(CreateEntitySet(TSPRecentDocumentsEntitySet));
  66758. end;
  66759. Function TSPApiData.GetRecentDocuments : TSPRecentDocumentsEntitySet;
  66760. begin
  66761. If Not Assigned(FRecentDocuments) then
  66762. FRecentDocuments:=TSPRecentDocumentsEntitySet(CreateEntitySet(TSPRecentDocumentsEntitySet));
  66763. Result:=FRecentDocuments;
  66764. end;
  66765. Function TSPApiData.CreateNewModuleLinks : TSPModuleLinksEntitySet;
  66766. begin
  66767. Result:=TSPModuleLinksEntitySet(CreateEntitySet(TSPModuleLinksEntitySet));
  66768. end;
  66769. Function TSPApiData.GetModuleLinks : TSPModuleLinksEntitySet;
  66770. begin
  66771. If Not Assigned(FModuleLinks) then
  66772. FModuleLinks:=TSPModuleLinksEntitySet(CreateEntitySet(TSPModuleLinksEntitySet));
  66773. Result:=FModuleLinks;
  66774. end;
  66775. Function TSPApiData.CreateNewResourceManifestInformations : TSPResourceManifestInformationsEntitySet;
  66776. begin
  66777. Result:=TSPResourceManifestInformationsEntitySet(CreateEntitySet(TSPResourceManifestInformationsEntitySet));
  66778. end;
  66779. Function TSPApiData.GetResourceManifestInformations : TSPResourceManifestInformationsEntitySet;
  66780. begin
  66781. If Not Assigned(FResourceManifestInformations) then
  66782. FResourceManifestInformations:=TSPResourceManifestInformationsEntitySet(CreateEntitySet(TSPResourceManifestInformationsEntitySet));
  66783. Result:=FResourceManifestInformations;
  66784. end;
  66785. Function TSPApiData.CreateNewWacApis : TSPWacApisEntitySet;
  66786. begin
  66787. Result:=TSPWacApisEntitySet(CreateEntitySet(TSPWacApisEntitySet));
  66788. end;
  66789. Function TSPApiData.GetWacApis : TSPWacApisEntitySet;
  66790. begin
  66791. If Not Assigned(FWacApis) then
  66792. FWacApis:=TSPWacApisEntitySet(CreateEntitySet(TSPWacApisEntitySet));
  66793. Result:=FWacApis;
  66794. end;
  66795. Function TSPApiData.CreateNewEntityItems : TSPEntityItemsEntitySet;
  66796. begin
  66797. Result:=TSPEntityItemsEntitySet(CreateEntitySet(TSPEntityItemsEntitySet));
  66798. end;
  66799. Function TSPApiData.GetEntityItems : TSPEntityItemsEntitySet;
  66800. begin
  66801. If Not Assigned(FEntityItems) then
  66802. FEntityItems:=TSPEntityItemsEntitySet(CreateEntitySet(TSPEntityItemsEntitySet));
  66803. Result:=FEntityItems;
  66804. end;
  66805. Function TSPApiData.CreateNewEntityTypes : TSPEntityTypesEntitySet;
  66806. begin
  66807. Result:=TSPEntityTypesEntitySet(CreateEntitySet(TSPEntityTypesEntitySet));
  66808. end;
  66809. Function TSPApiData.GetEntityTypes : TSPEntityTypesEntitySet;
  66810. begin
  66811. If Not Assigned(FEntityTypes) then
  66812. FEntityTypes:=TSPEntityTypesEntitySet(CreateEntitySet(TSPEntityTypesEntitySet));
  66813. Result:=FEntityTypes;
  66814. end;
  66815. Function TSPApiData.CreateNewEntityTypeBases : TSPEntityTypeBasesEntitySet;
  66816. begin
  66817. Result:=TSPEntityTypeBasesEntitySet(CreateEntitySet(TSPEntityTypeBasesEntitySet));
  66818. end;
  66819. Function TSPApiData.GetEntityTypeBases : TSPEntityTypeBasesEntitySet;
  66820. begin
  66821. If Not Assigned(FEntityTypeBases) then
  66822. FEntityTypeBases:=TSPEntityTypeBasesEntitySet(CreateEntitySet(TSPEntityTypeBasesEntitySet));
  66823. Result:=FEntityTypeBases;
  66824. end;
  66825. Function TSPApiData.CreateNewExternalEntityTypes : TSPExternalEntityTypesEntitySet;
  66826. begin
  66827. Result:=TSPExternalEntityTypesEntitySet(CreateEntitySet(TSPExternalEntityTypesEntitySet));
  66828. end;
  66829. Function TSPApiData.GetExternalEntityTypes : TSPExternalEntityTypesEntitySet;
  66830. begin
  66831. If Not Assigned(FExternalEntityTypes) then
  66832. FExternalEntityTypes:=TSPExternalEntityTypesEntitySet(CreateEntitySet(TSPExternalEntityTypesEntitySet));
  66833. Result:=FExternalEntityTypes;
  66834. end;
  66835. Function TSPApiData.CreateNewFields : TSPFieldsEntitySet;
  66836. begin
  66837. Result:=TSPFieldsEntitySet(CreateEntitySet(TSPFieldsEntitySet));
  66838. end;
  66839. Function TSPApiData.GetFields : TSPFieldsEntitySet;
  66840. begin
  66841. If Not Assigned(FFields) then
  66842. FFields:=TSPFieldsEntitySet(CreateEntitySet(TSPFieldsEntitySet));
  66843. Result:=FFields;
  66844. end;
  66845. Function TSPApiData.CreateNewODataStoreContexts : TSPODataStoreContextsEntitySet;
  66846. begin
  66847. Result:=TSPODataStoreContextsEntitySet(CreateEntitySet(TSPODataStoreContextsEntitySet));
  66848. end;
  66849. Function TSPApiData.GetODataStoreContexts : TSPODataStoreContextsEntitySet;
  66850. begin
  66851. If Not Assigned(FODataStoreContexts) then
  66852. FODataStoreContexts:=TSPODataStoreContextsEntitySet(CreateEntitySet(TSPODataStoreContextsEntitySet));
  66853. Result:=FODataStoreContexts;
  66854. end;
  66855. Function TSPApiData.CreateNewRequestContexts : TSPRequestContextsEntitySet;
  66856. begin
  66857. Result:=TSPRequestContextsEntitySet(CreateEntitySet(TSPRequestContextsEntitySet));
  66858. end;
  66859. Function TSPApiData.GetRequestContexts : TSPRequestContextsEntitySet;
  66860. begin
  66861. If Not Assigned(FRequestContexts) then
  66862. FRequestContexts:=TSPRequestContextsEntitySet(CreateEntitySet(TSPRequestContextsEntitySet));
  66863. Result:=FRequestContexts;
  66864. end;
  66865. Function TSPApiData.CreateNewSqlStoreContexts : TSPSqlStoreContextsEntitySet;
  66866. begin
  66867. Result:=TSPSqlStoreContextsEntitySet(CreateEntitySet(TSPSqlStoreContextsEntitySet));
  66868. end;
  66869. Function TSPApiData.GetSqlStoreContexts : TSPSqlStoreContextsEntitySet;
  66870. begin
  66871. If Not Assigned(FSqlStoreContexts) then
  66872. FSqlStoreContexts:=TSPSqlStoreContextsEntitySet(CreateEntitySet(TSPSqlStoreContextsEntitySet));
  66873. Result:=FSqlStoreContexts;
  66874. end;
  66875. Function TSPApiData.CreateNewStoreContextBases : TSPStoreContextBasesEntitySet;
  66876. begin
  66877. Result:=TSPStoreContextBasesEntitySet(CreateEntitySet(TSPStoreContextBasesEntitySet));
  66878. end;
  66879. Function TSPApiData.GetStoreContextBases : TSPStoreContextBasesEntitySet;
  66880. begin
  66881. If Not Assigned(FStoreContextBases) then
  66882. FStoreContextBases:=TSPStoreContextBasesEntitySet(CreateEntitySet(TSPStoreContextBasesEntitySet));
  66883. Result:=FStoreContextBases;
  66884. end;
  66885. Function TSPApiData.CreateNewFiles1 : TSPFiles1EntitySet;
  66886. begin
  66887. Result:=TSPFiles1EntitySet(CreateEntitySet(TSPFiles1EntitySet));
  66888. end;
  66889. Function TSPApiData.GetFiles1 : TSPFiles1EntitySet;
  66890. begin
  66891. If Not Assigned(FFiles1) then
  66892. FFiles1:=TSPFiles1EntitySet(CreateEntitySet(TSPFiles1EntitySet));
  66893. Result:=FFiles1;
  66894. end;
  66895. Function TSPApiData.CreateNewFileServices : TSPFileServicesEntitySet;
  66896. begin
  66897. Result:=TSPFileServicesEntitySet(CreateEntitySet(TSPFileServicesEntitySet));
  66898. end;
  66899. Function TSPApiData.GetFileServices : TSPFileServicesEntitySet;
  66900. begin
  66901. If Not Assigned(FFileServices) then
  66902. FFileServices:=TSPFileServicesEntitySet(CreateEntitySet(TSPFileServicesEntitySet));
  66903. Result:=FFileServices;
  66904. end;
  66905. Function TSPApiData.CreateNewFolders : TSPFoldersEntitySet;
  66906. begin
  66907. Result:=TSPFoldersEntitySet(CreateEntitySet(TSPFoldersEntitySet));
  66908. end;
  66909. Function TSPApiData.GetFolders : TSPFoldersEntitySet;
  66910. begin
  66911. If Not Assigned(FFolders) then
  66912. FFolders:=TSPFoldersEntitySet(CreateEntitySet(TSPFoldersEntitySet));
  66913. Result:=FFolders;
  66914. end;
  66915. Function TSPApiData.CreateNewMeFileServices : TSPMeFileServicesEntitySet;
  66916. begin
  66917. Result:=TSPMeFileServicesEntitySet(CreateEntitySet(TSPMeFileServicesEntitySet));
  66918. end;
  66919. Function TSPApiData.GetMeFileServices : TSPMeFileServicesEntitySet;
  66920. begin
  66921. If Not Assigned(FMeFileServices) then
  66922. FMeFileServices:=TSPMeFileServicesEntitySet(CreateEntitySet(TSPMeFileServicesEntitySet));
  66923. Result:=FMeFileServices;
  66924. end;
  66925. Function TSPApiData.CreateNewDiagnosticss : TSPDiagnosticssEntitySet;
  66926. begin
  66927. Result:=TSPDiagnosticssEntitySet(CreateEntitySet(TSPDiagnosticssEntitySet));
  66928. end;
  66929. Function TSPApiData.GetDiagnosticss : TSPDiagnosticssEntitySet;
  66930. begin
  66931. If Not Assigned(FDiagnosticss) then
  66932. FDiagnosticss:=TSPDiagnosticssEntitySet(CreateEntitySet(TSPDiagnosticssEntitySet));
  66933. Result:=FDiagnosticss;
  66934. end;
  66935. Function TSPApiData.CreateNewReportings : TSPReportingsEntitySet;
  66936. begin
  66937. Result:=TSPReportingsEntitySet(CreateEntitySet(TSPReportingsEntitySet));
  66938. end;
  66939. Function TSPApiData.GetReportings : TSPReportingsEntitySet;
  66940. begin
  66941. If Not Assigned(FReportings) then
  66942. FReportings:=TSPReportingsEntitySet(CreateEntitySet(TSPReportingsEntitySet));
  66943. Result:=FReportings;
  66944. end;
  66945. Function TSPApiData.CreateNewTaskflows : TSPTaskflowsEntitySet;
  66946. begin
  66947. Result:=TSPTaskflowsEntitySet(CreateEntitySet(TSPTaskflowsEntitySet));
  66948. end;
  66949. Function TSPApiData.GetTaskflows : TSPTaskflowsEntitySet;
  66950. begin
  66951. If Not Assigned(FTaskflows) then
  66952. FTaskflows:=TSPTaskflowsEntitySet(CreateEntitySet(TSPTaskflowsEntitySet));
  66953. Result:=FTaskflows;
  66954. end;
  66955. Function TSPApiData.CreateNewAssignments : TSPAssignmentsEntitySet;
  66956. begin
  66957. Result:=TSPAssignmentsEntitySet(CreateEntitySet(TSPAssignmentsEntitySet));
  66958. end;
  66959. Function TSPApiData.GetAssignments : TSPAssignmentsEntitySet;
  66960. begin
  66961. If Not Assigned(FAssignments) then
  66962. FAssignments:=TSPAssignmentsEntitySet(CreateEntitySet(TSPAssignmentsEntitySet));
  66963. Result:=FAssignments;
  66964. end;
  66965. Function TSPApiData.CreateNewBaseCalendarExceptions : TSPBaseCalendarExceptionsEntitySet;
  66966. begin
  66967. Result:=TSPBaseCalendarExceptionsEntitySet(CreateEntitySet(TSPBaseCalendarExceptionsEntitySet));
  66968. end;
  66969. Function TSPApiData.GetBaseCalendarExceptions : TSPBaseCalendarExceptionsEntitySet;
  66970. begin
  66971. If Not Assigned(FBaseCalendarExceptions) then
  66972. FBaseCalendarExceptions:=TSPBaseCalendarExceptionsEntitySet(CreateEntitySet(TSPBaseCalendarExceptionsEntitySet));
  66973. Result:=FBaseCalendarExceptions;
  66974. end;
  66975. Function TSPApiData.CreateNewCalendars : TSPCalendarsEntitySet;
  66976. begin
  66977. Result:=TSPCalendarsEntitySet(CreateEntitySet(TSPCalendarsEntitySet));
  66978. end;
  66979. Function TSPApiData.GetCalendars : TSPCalendarsEntitySet;
  66980. begin
  66981. If Not Assigned(FCalendars) then
  66982. FCalendars:=TSPCalendarsEntitySet(CreateEntitySet(TSPCalendarsEntitySet));
  66983. Result:=FCalendars;
  66984. end;
  66985. Function TSPApiData.CreateNewCalendarExceptions : TSPCalendarExceptionsEntitySet;
  66986. begin
  66987. Result:=TSPCalendarExceptionsEntitySet(CreateEntitySet(TSPCalendarExceptionsEntitySet));
  66988. end;
  66989. Function TSPApiData.GetCalendarExceptions : TSPCalendarExceptionsEntitySet;
  66990. begin
  66991. If Not Assigned(FCalendarExceptions) then
  66992. FCalendarExceptions:=TSPCalendarExceptionsEntitySet(CreateEntitySet(TSPCalendarExceptionsEntitySet));
  66993. Result:=FCalendarExceptions;
  66994. end;
  66995. Function TSPApiData.CreateNewCustomFields : TSPCustomFieldsEntitySet;
  66996. begin
  66997. Result:=TSPCustomFieldsEntitySet(CreateEntitySet(TSPCustomFieldsEntitySet));
  66998. end;
  66999. Function TSPApiData.GetCustomFields : TSPCustomFieldsEntitySet;
  67000. begin
  67001. If Not Assigned(FCustomFields) then
  67002. FCustomFields:=TSPCustomFieldsEntitySet(CreateEntitySet(TSPCustomFieldsEntitySet));
  67003. Result:=FCustomFields;
  67004. end;
  67005. Function TSPApiData.CreateNewDraftAssignments : TSPDraftAssignmentsEntitySet;
  67006. begin
  67007. Result:=TSPDraftAssignmentsEntitySet(CreateEntitySet(TSPDraftAssignmentsEntitySet));
  67008. end;
  67009. Function TSPApiData.GetDraftAssignments : TSPDraftAssignmentsEntitySet;
  67010. begin
  67011. If Not Assigned(FDraftAssignments) then
  67012. FDraftAssignments:=TSPDraftAssignmentsEntitySet(CreateEntitySet(TSPDraftAssignmentsEntitySet));
  67013. Result:=FDraftAssignments;
  67014. end;
  67015. Function TSPApiData.CreateNewDraftProjects : TSPDraftProjectsEntitySet;
  67016. begin
  67017. Result:=TSPDraftProjectsEntitySet(CreateEntitySet(TSPDraftProjectsEntitySet));
  67018. end;
  67019. Function TSPApiData.GetDraftProjects : TSPDraftProjectsEntitySet;
  67020. begin
  67021. If Not Assigned(FDraftProjects) then
  67022. FDraftProjects:=TSPDraftProjectsEntitySet(CreateEntitySet(TSPDraftProjectsEntitySet));
  67023. Result:=FDraftProjects;
  67024. end;
  67025. Function TSPApiData.CreateNewDraftProjectResources : TSPDraftProjectResourcesEntitySet;
  67026. begin
  67027. Result:=TSPDraftProjectResourcesEntitySet(CreateEntitySet(TSPDraftProjectResourcesEntitySet));
  67028. end;
  67029. Function TSPApiData.GetDraftProjectResources : TSPDraftProjectResourcesEntitySet;
  67030. begin
  67031. If Not Assigned(FDraftProjectResources) then
  67032. FDraftProjectResources:=TSPDraftProjectResourcesEntitySet(CreateEntitySet(TSPDraftProjectResourcesEntitySet));
  67033. Result:=FDraftProjectResources;
  67034. end;
  67035. Function TSPApiData.CreateNewDraftTasks : TSPDraftTasksEntitySet;
  67036. begin
  67037. Result:=TSPDraftTasksEntitySet(CreateEntitySet(TSPDraftTasksEntitySet));
  67038. end;
  67039. Function TSPApiData.GetDraftTasks : TSPDraftTasksEntitySet;
  67040. begin
  67041. If Not Assigned(FDraftTasks) then
  67042. FDraftTasks:=TSPDraftTasksEntitySet(CreateEntitySet(TSPDraftTasksEntitySet));
  67043. Result:=FDraftTasks;
  67044. end;
  67045. Function TSPApiData.CreateNewDraftTaskLinks : TSPDraftTaskLinksEntitySet;
  67046. begin
  67047. Result:=TSPDraftTaskLinksEntitySet(CreateEntitySet(TSPDraftTaskLinksEntitySet));
  67048. end;
  67049. Function TSPApiData.GetDraftTaskLinks : TSPDraftTaskLinksEntitySet;
  67050. begin
  67051. If Not Assigned(FDraftTaskLinks) then
  67052. FDraftTaskLinks:=TSPDraftTaskLinksEntitySet(CreateEntitySet(TSPDraftTaskLinksEntitySet));
  67053. Result:=FDraftTaskLinks;
  67054. end;
  67055. Function TSPApiData.CreateNewEnterpriseProjectTypes : TSPEnterpriseProjectTypesEntitySet;
  67056. begin
  67057. Result:=TSPEnterpriseProjectTypesEntitySet(CreateEntitySet(TSPEnterpriseProjectTypesEntitySet));
  67058. end;
  67059. Function TSPApiData.GetEnterpriseProjectTypes : TSPEnterpriseProjectTypesEntitySet;
  67060. begin
  67061. If Not Assigned(FEnterpriseProjectTypes) then
  67062. FEnterpriseProjectTypes:=TSPEnterpriseProjectTypesEntitySet(CreateEntitySet(TSPEnterpriseProjectTypesEntitySet));
  67063. Result:=FEnterpriseProjectTypes;
  67064. end;
  67065. Function TSPApiData.CreateNewEnterpriseResources : TSPEnterpriseResourcesEntitySet;
  67066. begin
  67067. Result:=TSPEnterpriseResourcesEntitySet(CreateEntitySet(TSPEnterpriseResourcesEntitySet));
  67068. end;
  67069. Function TSPApiData.GetEnterpriseResources : TSPEnterpriseResourcesEntitySet;
  67070. begin
  67071. If Not Assigned(FEnterpriseResources) then
  67072. FEnterpriseResources:=TSPEnterpriseResourcesEntitySet(CreateEntitySet(TSPEnterpriseResourcesEntitySet));
  67073. Result:=FEnterpriseResources;
  67074. end;
  67075. Function TSPApiData.CreateNewEntityTypes1 : TSPEntityTypes1EntitySet;
  67076. begin
  67077. Result:=TSPEntityTypes1EntitySet(CreateEntitySet(TSPEntityTypes1EntitySet));
  67078. end;
  67079. Function TSPApiData.GetEntityTypes1 : TSPEntityTypes1EntitySet;
  67080. begin
  67081. If Not Assigned(FEntityTypes1) then
  67082. FEntityTypes1:=TSPEntityTypes1EntitySet(CreateEntitySet(TSPEntityTypes1EntitySet));
  67083. Result:=FEntityTypes1;
  67084. end;
  67085. Function TSPApiData.CreateNewEntityTypess : TSPEntityTypessEntitySet;
  67086. begin
  67087. Result:=TSPEntityTypessEntitySet(CreateEntitySet(TSPEntityTypessEntitySet));
  67088. end;
  67089. Function TSPApiData.GetEntityTypess : TSPEntityTypessEntitySet;
  67090. begin
  67091. If Not Assigned(FEntityTypess) then
  67092. FEntityTypess:=TSPEntityTypessEntitySet(CreateEntitySet(TSPEntityTypessEntitySet));
  67093. Result:=FEntityTypess;
  67094. end;
  67095. Function TSPApiData.CreateNewEvents : TSPEventsEntitySet;
  67096. begin
  67097. Result:=TSPEventsEntitySet(CreateEntitySet(TSPEventsEntitySet));
  67098. end;
  67099. Function TSPApiData.GetEvents : TSPEventsEntitySet;
  67100. begin
  67101. If Not Assigned(FEvents) then
  67102. FEvents:=TSPEventsEntitySet(CreateEntitySet(TSPEventsEntitySet));
  67103. Result:=FEvents;
  67104. end;
  67105. Function TSPApiData.CreateNewEventHandlers : TSPEventHandlersEntitySet;
  67106. begin
  67107. Result:=TSPEventHandlersEntitySet(CreateEntitySet(TSPEventHandlersEntitySet));
  67108. end;
  67109. Function TSPApiData.GetEventHandlers : TSPEventHandlersEntitySet;
  67110. begin
  67111. If Not Assigned(FEventHandlers) then
  67112. FEventHandlers:=TSPEventHandlersEntitySet(CreateEntitySet(TSPEventHandlersEntitySet));
  67113. Result:=FEventHandlers;
  67114. end;
  67115. Function TSPApiData.CreateNewLookupCosts : TSPLookupCostsEntitySet;
  67116. begin
  67117. Result:=TSPLookupCostsEntitySet(CreateEntitySet(TSPLookupCostsEntitySet));
  67118. end;
  67119. Function TSPApiData.GetLookupCosts : TSPLookupCostsEntitySet;
  67120. begin
  67121. If Not Assigned(FLookupCosts) then
  67122. FLookupCosts:=TSPLookupCostsEntitySet(CreateEntitySet(TSPLookupCostsEntitySet));
  67123. Result:=FLookupCosts;
  67124. end;
  67125. Function TSPApiData.CreateNewLookupDates : TSPLookupDatesEntitySet;
  67126. begin
  67127. Result:=TSPLookupDatesEntitySet(CreateEntitySet(TSPLookupDatesEntitySet));
  67128. end;
  67129. Function TSPApiData.GetLookupDates : TSPLookupDatesEntitySet;
  67130. begin
  67131. If Not Assigned(FLookupDates) then
  67132. FLookupDates:=TSPLookupDatesEntitySet(CreateEntitySet(TSPLookupDatesEntitySet));
  67133. Result:=FLookupDates;
  67134. end;
  67135. Function TSPApiData.CreateNewLookupDurations : TSPLookupDurationsEntitySet;
  67136. begin
  67137. Result:=TSPLookupDurationsEntitySet(CreateEntitySet(TSPLookupDurationsEntitySet));
  67138. end;
  67139. Function TSPApiData.GetLookupDurations : TSPLookupDurationsEntitySet;
  67140. begin
  67141. If Not Assigned(FLookupDurations) then
  67142. FLookupDurations:=TSPLookupDurationsEntitySet(CreateEntitySet(TSPLookupDurationsEntitySet));
  67143. Result:=FLookupDurations;
  67144. end;
  67145. Function TSPApiData.CreateNewLookupEntrys : TSPLookupEntrysEntitySet;
  67146. begin
  67147. Result:=TSPLookupEntrysEntitySet(CreateEntitySet(TSPLookupEntrysEntitySet));
  67148. end;
  67149. Function TSPApiData.GetLookupEntrys : TSPLookupEntrysEntitySet;
  67150. begin
  67151. If Not Assigned(FLookupEntrys) then
  67152. FLookupEntrys:=TSPLookupEntrysEntitySet(CreateEntitySet(TSPLookupEntrysEntitySet));
  67153. Result:=FLookupEntrys;
  67154. end;
  67155. Function TSPApiData.CreateNewLookupNumbers : TSPLookupNumbersEntitySet;
  67156. begin
  67157. Result:=TSPLookupNumbersEntitySet(CreateEntitySet(TSPLookupNumbersEntitySet));
  67158. end;
  67159. Function TSPApiData.GetLookupNumbers : TSPLookupNumbersEntitySet;
  67160. begin
  67161. If Not Assigned(FLookupNumbers) then
  67162. FLookupNumbers:=TSPLookupNumbersEntitySet(CreateEntitySet(TSPLookupNumbersEntitySet));
  67163. Result:=FLookupNumbers;
  67164. end;
  67165. Function TSPApiData.CreateNewLookupTables : TSPLookupTablesEntitySet;
  67166. begin
  67167. Result:=TSPLookupTablesEntitySet(CreateEntitySet(TSPLookupTablesEntitySet));
  67168. end;
  67169. Function TSPApiData.GetLookupTables : TSPLookupTablesEntitySet;
  67170. begin
  67171. If Not Assigned(FLookupTables) then
  67172. FLookupTables:=TSPLookupTablesEntitySet(CreateEntitySet(TSPLookupTablesEntitySet));
  67173. Result:=FLookupTables;
  67174. end;
  67175. Function TSPApiData.CreateNewLookupTabless : TSPLookupTablessEntitySet;
  67176. begin
  67177. Result:=TSPLookupTablessEntitySet(CreateEntitySet(TSPLookupTablessEntitySet));
  67178. end;
  67179. Function TSPApiData.GetLookupTabless : TSPLookupTablessEntitySet;
  67180. begin
  67181. If Not Assigned(FLookupTabless) then
  67182. FLookupTabless:=TSPLookupTablessEntitySet(CreateEntitySet(TSPLookupTablessEntitySet));
  67183. Result:=FLookupTabless;
  67184. end;
  67185. Function TSPApiData.CreateNewLookupTexts : TSPLookupTextsEntitySet;
  67186. begin
  67187. Result:=TSPLookupTextsEntitySet(CreateEntitySet(TSPLookupTextsEntitySet));
  67188. end;
  67189. Function TSPApiData.GetLookupTexts : TSPLookupTextsEntitySet;
  67190. begin
  67191. If Not Assigned(FLookupTexts) then
  67192. FLookupTexts:=TSPLookupTextsEntitySet(CreateEntitySet(TSPLookupTextsEntitySet));
  67193. Result:=FLookupTexts;
  67194. end;
  67195. Function TSPApiData.CreateNewPhases : TSPPhasesEntitySet;
  67196. begin
  67197. Result:=TSPPhasesEntitySet(CreateEntitySet(TSPPhasesEntitySet));
  67198. end;
  67199. Function TSPApiData.GetPhases : TSPPhasesEntitySet;
  67200. begin
  67201. If Not Assigned(FPhases) then
  67202. FPhases:=TSPPhasesEntitySet(CreateEntitySet(TSPPhasesEntitySet));
  67203. Result:=FPhases;
  67204. end;
  67205. Function TSPApiData.CreateNewPlanAssignments : TSPPlanAssignmentsEntitySet;
  67206. begin
  67207. Result:=TSPPlanAssignmentsEntitySet(CreateEntitySet(TSPPlanAssignmentsEntitySet));
  67208. end;
  67209. Function TSPApiData.GetPlanAssignments : TSPPlanAssignmentsEntitySet;
  67210. begin
  67211. If Not Assigned(FPlanAssignments) then
  67212. FPlanAssignments:=TSPPlanAssignmentsEntitySet(CreateEntitySet(TSPPlanAssignmentsEntitySet));
  67213. Result:=FPlanAssignments;
  67214. end;
  67215. Function TSPApiData.CreateNewPlanAssignmentIntervals : TSPPlanAssignmentIntervalsEntitySet;
  67216. begin
  67217. Result:=TSPPlanAssignmentIntervalsEntitySet(CreateEntitySet(TSPPlanAssignmentIntervalsEntitySet));
  67218. end;
  67219. Function TSPApiData.GetPlanAssignmentIntervals : TSPPlanAssignmentIntervalsEntitySet;
  67220. begin
  67221. If Not Assigned(FPlanAssignmentIntervals) then
  67222. FPlanAssignmentIntervals:=TSPPlanAssignmentIntervalsEntitySet(CreateEntitySet(TSPPlanAssignmentIntervalsEntitySet));
  67223. Result:=FPlanAssignmentIntervals;
  67224. end;
  67225. Function TSPApiData.CreateNewProjects : TSPProjectsEntitySet;
  67226. begin
  67227. Result:=TSPProjectsEntitySet(CreateEntitySet(TSPProjectsEntitySet));
  67228. end;
  67229. Function TSPApiData.GetProjects : TSPProjectsEntitySet;
  67230. begin
  67231. If Not Assigned(FProjects) then
  67232. FProjects:=TSPProjectsEntitySet(CreateEntitySet(TSPProjectsEntitySet));
  67233. Result:=FProjects;
  67234. end;
  67235. Function TSPApiData.CreateNewProjectDetailPages : TSPProjectDetailPagesEntitySet;
  67236. begin
  67237. Result:=TSPProjectDetailPagesEntitySet(CreateEntitySet(TSPProjectDetailPagesEntitySet));
  67238. end;
  67239. Function TSPApiData.GetProjectDetailPages : TSPProjectDetailPagesEntitySet;
  67240. begin
  67241. If Not Assigned(FProjectDetailPages) then
  67242. FProjectDetailPages:=TSPProjectDetailPagesEntitySet(CreateEntitySet(TSPProjectDetailPagesEntitySet));
  67243. Result:=FProjectDetailPages;
  67244. end;
  67245. Function TSPApiData.CreateNewProjectResources : TSPProjectResourcesEntitySet;
  67246. begin
  67247. Result:=TSPProjectResourcesEntitySet(CreateEntitySet(TSPProjectResourcesEntitySet));
  67248. end;
  67249. Function TSPApiData.GetProjectResources : TSPProjectResourcesEntitySet;
  67250. begin
  67251. If Not Assigned(FProjectResources) then
  67252. FProjectResources:=TSPProjectResourcesEntitySet(CreateEntitySet(TSPProjectResourcesEntitySet));
  67253. Result:=FProjectResources;
  67254. end;
  67255. Function TSPApiData.CreateNewProjectServers : TSPProjectServersEntitySet;
  67256. begin
  67257. Result:=TSPProjectServersEntitySet(CreateEntitySet(TSPProjectServersEntitySet));
  67258. end;
  67259. Function TSPApiData.GetProjectServers : TSPProjectServersEntitySet;
  67260. begin
  67261. If Not Assigned(FProjectServers) then
  67262. FProjectServers:=TSPProjectServersEntitySet(CreateEntitySet(TSPProjectServersEntitySet));
  67263. Result:=FProjectServers;
  67264. end;
  67265. Function TSPApiData.CreateNewProjectServerDatas : TSPProjectServerDatasEntitySet;
  67266. begin
  67267. Result:=TSPProjectServerDatasEntitySet(CreateEntitySet(TSPProjectServerDatasEntitySet));
  67268. end;
  67269. Function TSPApiData.GetProjectServerDatas : TSPProjectServerDatasEntitySet;
  67270. begin
  67271. If Not Assigned(FProjectServerDatas) then
  67272. FProjectServerDatas:=TSPProjectServerDatasEntitySet(CreateEntitySet(TSPProjectServerDatasEntitySet));
  67273. Result:=FProjectServerDatas;
  67274. end;
  67275. Function TSPApiData.CreateNewPublishedAssignments : TSPPublishedAssignmentsEntitySet;
  67276. begin
  67277. Result:=TSPPublishedAssignmentsEntitySet(CreateEntitySet(TSPPublishedAssignmentsEntitySet));
  67278. end;
  67279. Function TSPApiData.GetPublishedAssignments : TSPPublishedAssignmentsEntitySet;
  67280. begin
  67281. If Not Assigned(FPublishedAssignments) then
  67282. FPublishedAssignments:=TSPPublishedAssignmentsEntitySet(CreateEntitySet(TSPPublishedAssignmentsEntitySet));
  67283. Result:=FPublishedAssignments;
  67284. end;
  67285. Function TSPApiData.CreateNewPublishedProjects : TSPPublishedProjectsEntitySet;
  67286. begin
  67287. Result:=TSPPublishedProjectsEntitySet(CreateEntitySet(TSPPublishedProjectsEntitySet));
  67288. end;
  67289. Function TSPApiData.GetPublishedProjects : TSPPublishedProjectsEntitySet;
  67290. begin
  67291. If Not Assigned(FPublishedProjects) then
  67292. FPublishedProjects:=TSPPublishedProjectsEntitySet(CreateEntitySet(TSPPublishedProjectsEntitySet));
  67293. Result:=FPublishedProjects;
  67294. end;
  67295. Function TSPApiData.CreateNewPublishedProjectResources : TSPPublishedProjectResourcesEntitySet;
  67296. begin
  67297. Result:=TSPPublishedProjectResourcesEntitySet(CreateEntitySet(TSPPublishedProjectResourcesEntitySet));
  67298. end;
  67299. Function TSPApiData.GetPublishedProjectResources : TSPPublishedProjectResourcesEntitySet;
  67300. begin
  67301. If Not Assigned(FPublishedProjectResources) then
  67302. FPublishedProjectResources:=TSPPublishedProjectResourcesEntitySet(CreateEntitySet(TSPPublishedProjectResourcesEntitySet));
  67303. Result:=FPublishedProjectResources;
  67304. end;
  67305. Function TSPApiData.CreateNewPublishedTasks : TSPPublishedTasksEntitySet;
  67306. begin
  67307. Result:=TSPPublishedTasksEntitySet(CreateEntitySet(TSPPublishedTasksEntitySet));
  67308. end;
  67309. Function TSPApiData.GetPublishedTasks : TSPPublishedTasksEntitySet;
  67310. begin
  67311. If Not Assigned(FPublishedTasks) then
  67312. FPublishedTasks:=TSPPublishedTasksEntitySet(CreateEntitySet(TSPPublishedTasksEntitySet));
  67313. Result:=FPublishedTasks;
  67314. end;
  67315. Function TSPApiData.CreateNewPublishedTaskLinks : TSPPublishedTaskLinksEntitySet;
  67316. begin
  67317. Result:=TSPPublishedTaskLinksEntitySet(CreateEntitySet(TSPPublishedTaskLinksEntitySet));
  67318. end;
  67319. Function TSPApiData.GetPublishedTaskLinks : TSPPublishedTaskLinksEntitySet;
  67320. begin
  67321. If Not Assigned(FPublishedTaskLinks) then
  67322. FPublishedTaskLinks:=TSPPublishedTaskLinksEntitySet(CreateEntitySet(TSPPublishedTaskLinksEntitySet));
  67323. Result:=FPublishedTaskLinks;
  67324. end;
  67325. Function TSPApiData.CreateNewQueueJobs : TSPQueueJobsEntitySet;
  67326. begin
  67327. Result:=TSPQueueJobsEntitySet(CreateEntitySet(TSPQueueJobsEntitySet));
  67328. end;
  67329. Function TSPApiData.GetQueueJobs : TSPQueueJobsEntitySet;
  67330. begin
  67331. If Not Assigned(FQueueJobs) then
  67332. FQueueJobs:=TSPQueueJobsEntitySet(CreateEntitySet(TSPQueueJobsEntitySet));
  67333. Result:=FQueueJobs;
  67334. end;
  67335. Function TSPApiData.CreateNewResourceCalendarExceptions : TSPResourceCalendarExceptionsEntitySet;
  67336. begin
  67337. Result:=TSPResourceCalendarExceptionsEntitySet(CreateEntitySet(TSPResourceCalendarExceptionsEntitySet));
  67338. end;
  67339. Function TSPApiData.GetResourceCalendarExceptions : TSPResourceCalendarExceptionsEntitySet;
  67340. begin
  67341. If Not Assigned(FResourceCalendarExceptions) then
  67342. FResourceCalendarExceptions:=TSPResourceCalendarExceptionsEntitySet(CreateEntitySet(TSPResourceCalendarExceptionsEntitySet));
  67343. Result:=FResourceCalendarExceptions;
  67344. end;
  67345. Function TSPApiData.CreateNewResourcePlans : TSPResourcePlansEntitySet;
  67346. begin
  67347. Result:=TSPResourcePlansEntitySet(CreateEntitySet(TSPResourcePlansEntitySet));
  67348. end;
  67349. Function TSPApiData.GetResourcePlans : TSPResourcePlansEntitySet;
  67350. begin
  67351. If Not Assigned(FResourcePlans) then
  67352. FResourcePlans:=TSPResourcePlansEntitySet(CreateEntitySet(TSPResourcePlansEntitySet));
  67353. Result:=FResourcePlans;
  67354. end;
  67355. Function TSPApiData.CreateNewServiceStatuss : TSPServiceStatussEntitySet;
  67356. begin
  67357. Result:=TSPServiceStatussEntitySet(CreateEntitySet(TSPServiceStatussEntitySet));
  67358. end;
  67359. Function TSPApiData.GetServiceStatuss : TSPServiceStatussEntitySet;
  67360. begin
  67361. If Not Assigned(FServiceStatuss) then
  67362. FServiceStatuss:=TSPServiceStatussEntitySet(CreateEntitySet(TSPServiceStatussEntitySet));
  67363. Result:=FServiceStatuss;
  67364. end;
  67365. Function TSPApiData.CreateNewStages : TSPStagesEntitySet;
  67366. begin
  67367. Result:=TSPStagesEntitySet(CreateEntitySet(TSPStagesEntitySet));
  67368. end;
  67369. Function TSPApiData.GetStages : TSPStagesEntitySet;
  67370. begin
  67371. If Not Assigned(FStages) then
  67372. FStages:=TSPStagesEntitySet(CreateEntitySet(TSPStagesEntitySet));
  67373. Result:=FStages;
  67374. end;
  67375. Function TSPApiData.CreateNewStageCustomFields : TSPStageCustomFieldsEntitySet;
  67376. begin
  67377. Result:=TSPStageCustomFieldsEntitySet(CreateEntitySet(TSPStageCustomFieldsEntitySet));
  67378. end;
  67379. Function TSPApiData.GetStageCustomFields : TSPStageCustomFieldsEntitySet;
  67380. begin
  67381. If Not Assigned(FStageCustomFields) then
  67382. FStageCustomFields:=TSPStageCustomFieldsEntitySet(CreateEntitySet(TSPStageCustomFieldsEntitySet));
  67383. Result:=FStageCustomFields;
  67384. end;
  67385. Function TSPApiData.CreateNewStageDetailPages : TSPStageDetailPagesEntitySet;
  67386. begin
  67387. Result:=TSPStageDetailPagesEntitySet(CreateEntitySet(TSPStageDetailPagesEntitySet));
  67388. end;
  67389. Function TSPApiData.GetStageDetailPages : TSPStageDetailPagesEntitySet;
  67390. begin
  67391. If Not Assigned(FStageDetailPages) then
  67392. FStageDetailPages:=TSPStageDetailPagesEntitySet(CreateEntitySet(TSPStageDetailPagesEntitySet));
  67393. Result:=FStageDetailPages;
  67394. end;
  67395. Function TSPApiData.CreateNewStatusAssignments : TSPStatusAssignmentsEntitySet;
  67396. begin
  67397. Result:=TSPStatusAssignmentsEntitySet(CreateEntitySet(TSPStatusAssignmentsEntitySet));
  67398. end;
  67399. Function TSPApiData.GetStatusAssignments : TSPStatusAssignmentsEntitySet;
  67400. begin
  67401. If Not Assigned(FStatusAssignments) then
  67402. FStatusAssignments:=TSPStatusAssignmentsEntitySet(CreateEntitySet(TSPStatusAssignmentsEntitySet));
  67403. Result:=FStatusAssignments;
  67404. end;
  67405. Function TSPApiData.CreateNewStatusTasks : TSPStatusTasksEntitySet;
  67406. begin
  67407. Result:=TSPStatusTasksEntitySet(CreateEntitySet(TSPStatusTasksEntitySet));
  67408. end;
  67409. Function TSPApiData.GetStatusTasks : TSPStatusTasksEntitySet;
  67410. begin
  67411. If Not Assigned(FStatusTasks) then
  67412. FStatusTasks:=TSPStatusTasksEntitySet(CreateEntitySet(TSPStatusTasksEntitySet));
  67413. Result:=FStatusTasks;
  67414. end;
  67415. Function TSPApiData.CreateNewTasks : TSPTasksEntitySet;
  67416. begin
  67417. Result:=TSPTasksEntitySet(CreateEntitySet(TSPTasksEntitySet));
  67418. end;
  67419. Function TSPApiData.GetTasks : TSPTasksEntitySet;
  67420. begin
  67421. If Not Assigned(FTasks) then
  67422. FTasks:=TSPTasksEntitySet(CreateEntitySet(TSPTasksEntitySet));
  67423. Result:=FTasks;
  67424. end;
  67425. Function TSPApiData.CreateNewTaskLinks : TSPTaskLinksEntitySet;
  67426. begin
  67427. Result:=TSPTaskLinksEntitySet(CreateEntitySet(TSPTaskLinksEntitySet));
  67428. end;
  67429. Function TSPApiData.GetTaskLinks : TSPTaskLinksEntitySet;
  67430. begin
  67431. If Not Assigned(FTaskLinks) then
  67432. FTaskLinks:=TSPTaskLinksEntitySet(CreateEntitySet(TSPTaskLinksEntitySet));
  67433. Result:=FTaskLinks;
  67434. end;
  67435. Function TSPApiData.CreateNewTaskServiceOdataEndpoints : TSPTaskServiceOdataEndpointsEntitySet;
  67436. begin
  67437. Result:=TSPTaskServiceOdataEndpointsEntitySet(CreateEntitySet(TSPTaskServiceOdataEndpointsEntitySet));
  67438. end;
  67439. Function TSPApiData.GetTaskServiceOdataEndpoints : TSPTaskServiceOdataEndpointsEntitySet;
  67440. begin
  67441. If Not Assigned(FTaskServiceOdataEndpoints) then
  67442. FTaskServiceOdataEndpoints:=TSPTaskServiceOdataEndpointsEntitySet(CreateEntitySet(TSPTaskServiceOdataEndpointsEntitySet));
  67443. Result:=FTaskServiceOdataEndpoints;
  67444. end;
  67445. Function TSPApiData.CreateNewTimePhases : TSPTimePhasesEntitySet;
  67446. begin
  67447. Result:=TSPTimePhasesEntitySet(CreateEntitySet(TSPTimePhasesEntitySet));
  67448. end;
  67449. Function TSPApiData.GetTimePhases : TSPTimePhasesEntitySet;
  67450. begin
  67451. If Not Assigned(FTimePhases) then
  67452. FTimePhases:=TSPTimePhasesEntitySet(CreateEntitySet(TSPTimePhasesEntitySet));
  67453. Result:=FTimePhases;
  67454. end;
  67455. Function TSPApiData.CreateNewTimeSheets : TSPTimeSheetsEntitySet;
  67456. begin
  67457. Result:=TSPTimeSheetsEntitySet(CreateEntitySet(TSPTimeSheetsEntitySet));
  67458. end;
  67459. Function TSPApiData.GetTimeSheets : TSPTimeSheetsEntitySet;
  67460. begin
  67461. If Not Assigned(FTimeSheets) then
  67462. FTimeSheets:=TSPTimeSheetsEntitySet(CreateEntitySet(TSPTimeSheetsEntitySet));
  67463. Result:=FTimeSheets;
  67464. end;
  67465. Function TSPApiData.CreateNewTimeSheetLines : TSPTimeSheetLinesEntitySet;
  67466. begin
  67467. Result:=TSPTimeSheetLinesEntitySet(CreateEntitySet(TSPTimeSheetLinesEntitySet));
  67468. end;
  67469. Function TSPApiData.GetTimeSheetLines : TSPTimeSheetLinesEntitySet;
  67470. begin
  67471. If Not Assigned(FTimeSheetLines) then
  67472. FTimeSheetLines:=TSPTimeSheetLinesEntitySet(CreateEntitySet(TSPTimeSheetLinesEntitySet));
  67473. Result:=FTimeSheetLines;
  67474. end;
  67475. Function TSPApiData.CreateNewTimeSheetPeriods : TSPTimeSheetPeriodsEntitySet;
  67476. begin
  67477. Result:=TSPTimeSheetPeriodsEntitySet(CreateEntitySet(TSPTimeSheetPeriodsEntitySet));
  67478. end;
  67479. Function TSPApiData.GetTimeSheetPeriods : TSPTimeSheetPeriodsEntitySet;
  67480. begin
  67481. If Not Assigned(FTimeSheetPeriods) then
  67482. FTimeSheetPeriods:=TSPTimeSheetPeriodsEntitySet(CreateEntitySet(TSPTimeSheetPeriodsEntitySet));
  67483. Result:=FTimeSheetPeriods;
  67484. end;
  67485. Function TSPApiData.CreateNewTimeSheetWorks : TSPTimeSheetWorksEntitySet;
  67486. begin
  67487. Result:=TSPTimeSheetWorksEntitySet(CreateEntitySet(TSPTimeSheetWorksEntitySet));
  67488. end;
  67489. Function TSPApiData.GetTimeSheetWorks : TSPTimeSheetWorksEntitySet;
  67490. begin
  67491. If Not Assigned(FTimeSheetWorks) then
  67492. FTimeSheetWorks:=TSPTimeSheetWorksEntitySet(CreateEntitySet(TSPTimeSheetWorksEntitySet));
  67493. Result:=FTimeSheetWorks;
  67494. end;
  67495. Function TSPApiData.CreateNewWorkflowActivitiess : TSPWorkflowActivitiessEntitySet;
  67496. begin
  67497. Result:=TSPWorkflowActivitiessEntitySet(CreateEntitySet(TSPWorkflowActivitiessEntitySet));
  67498. end;
  67499. Function TSPApiData.GetWorkflowActivitiess : TSPWorkflowActivitiessEntitySet;
  67500. begin
  67501. If Not Assigned(FWorkflowActivitiess) then
  67502. FWorkflowActivitiess:=TSPWorkflowActivitiessEntitySet(CreateEntitySet(TSPWorkflowActivitiessEntitySet));
  67503. Result:=FWorkflowActivitiess;
  67504. end;
  67505. Function TSPApiData.CreateNewWorkflowDesigners : TSPWorkflowDesignersEntitySet;
  67506. begin
  67507. Result:=TSPWorkflowDesignersEntitySet(CreateEntitySet(TSPWorkflowDesignersEntitySet));
  67508. end;
  67509. Function TSPApiData.GetWorkflowDesigners : TSPWorkflowDesignersEntitySet;
  67510. begin
  67511. If Not Assigned(FWorkflowDesigners) then
  67512. FWorkflowDesigners:=TSPWorkflowDesignersEntitySet(CreateEntitySet(TSPWorkflowDesignersEntitySet));
  67513. Result:=FWorkflowDesigners;
  67514. end;
  67515. Function TSPApiData.CreateNewWorkflowDesignerFields : TSPWorkflowDesignerFieldsEntitySet;
  67516. begin
  67517. Result:=TSPWorkflowDesignerFieldsEntitySet(CreateEntitySet(TSPWorkflowDesignerFieldsEntitySet));
  67518. end;
  67519. Function TSPApiData.GetWorkflowDesignerFields : TSPWorkflowDesignerFieldsEntitySet;
  67520. begin
  67521. If Not Assigned(FWorkflowDesignerFields) then
  67522. FWorkflowDesignerFields:=TSPWorkflowDesignerFieldsEntitySet(CreateEntitySet(TSPWorkflowDesignerFieldsEntitySet));
  67523. Result:=FWorkflowDesignerFields;
  67524. end;
  67525. Function TSPApiData.CreateNewAccessRequestss : TSPAccessRequestssEntitySet;
  67526. begin
  67527. Result:=TSPAccessRequestssEntitySet(CreateEntitySet(TSPAccessRequestssEntitySet));
  67528. end;
  67529. Function TSPApiData.GetAccessRequestss : TSPAccessRequestssEntitySet;
  67530. begin
  67531. If Not Assigned(FAccessRequestss) then
  67532. FAccessRequestss:=TSPAccessRequestssEntitySet(CreateEntitySet(TSPAccessRequestssEntitySet));
  67533. Result:=FAccessRequestss;
  67534. end;
  67535. Function TSPApiData.CreateNewAlternateUrls : TSPAlternateUrlsEntitySet;
  67536. begin
  67537. Result:=TSPAlternateUrlsEntitySet(CreateEntitySet(TSPAlternateUrlsEntitySet));
  67538. end;
  67539. Function TSPApiData.GetAlternateUrls : TSPAlternateUrlsEntitySet;
  67540. begin
  67541. If Not Assigned(FAlternateUrls) then
  67542. FAlternateUrls:=TSPAlternateUrlsEntitySet(CreateEntitySet(TSPAlternateUrlsEntitySet));
  67543. Result:=FAlternateUrls;
  67544. end;
  67545. Function TSPApiData.CreateNewAnalyticsUsageEntrys : TSPAnalyticsUsageEntrysEntitySet;
  67546. begin
  67547. Result:=TSPAnalyticsUsageEntrysEntitySet(CreateEntitySet(TSPAnalyticsUsageEntrysEntitySet));
  67548. end;
  67549. Function TSPApiData.GetAnalyticsUsageEntrys : TSPAnalyticsUsageEntrysEntitySet;
  67550. begin
  67551. If Not Assigned(FAnalyticsUsageEntrys) then
  67552. FAnalyticsUsageEntrys:=TSPAnalyticsUsageEntrysEntitySet(CreateEntitySet(TSPAnalyticsUsageEntrysEntitySet));
  67553. Result:=FAnalyticsUsageEntrys;
  67554. end;
  67555. Function TSPApiData.CreateNewApiMetadatas : TSPApiMetadatasEntitySet;
  67556. begin
  67557. Result:=TSPApiMetadatasEntitySet(CreateEntitySet(TSPApiMetadatasEntitySet));
  67558. end;
  67559. Function TSPApiData.GetApiMetadatas : TSPApiMetadatasEntitySet;
  67560. begin
  67561. If Not Assigned(FApiMetadatas) then
  67562. FApiMetadatas:=TSPApiMetadatasEntitySet(CreateEntitySet(TSPApiMetadatasEntitySet));
  67563. Result:=FApiMetadatas;
  67564. end;
  67565. Function TSPApiData.CreateNewApps12 : TSPApps12EntitySet;
  67566. begin
  67567. Result:=TSPApps12EntitySet(CreateEntitySet(TSPApps12EntitySet));
  67568. end;
  67569. Function TSPApiData.GetApps12 : TSPApps12EntitySet;
  67570. begin
  67571. If Not Assigned(FApps12) then
  67572. FApps12:=TSPApps12EntitySet(CreateEntitySet(TSPApps12EntitySet));
  67573. Result:=FApps12;
  67574. end;
  67575. Function TSPApiData.CreateNewAppCatalogs : TSPAppCatalogsEntitySet;
  67576. begin
  67577. Result:=TSPAppCatalogsEntitySet(CreateEntitySet(TSPAppCatalogsEntitySet));
  67578. end;
  67579. Function TSPApiData.GetAppCatalogs : TSPAppCatalogsEntitySet;
  67580. begin
  67581. If Not Assigned(FAppCatalogs) then
  67582. FAppCatalogs:=TSPAppCatalogsEntitySet(CreateEntitySet(TSPAppCatalogsEntitySet));
  67583. Result:=FAppCatalogs;
  67584. end;
  67585. Function TSPApiData.CreateNewAppContextSites : TSPAppContextSitesEntitySet;
  67586. begin
  67587. Result:=TSPAppContextSitesEntitySet(CreateEntitySet(TSPAppContextSitesEntitySet));
  67588. end;
  67589. Function TSPApiData.GetAppContextSites : TSPAppContextSitesEntitySet;
  67590. begin
  67591. If Not Assigned(FAppContextSites) then
  67592. FAppContextSites:=TSPAppContextSitesEntitySet(CreateEntitySet(TSPAppContextSitesEntitySet));
  67593. Result:=FAppContextSites;
  67594. end;
  67595. Function TSPApiData.CreateNewAppInstances : TSPAppInstancesEntitySet;
  67596. begin
  67597. Result:=TSPAppInstancesEntitySet(CreateEntitySet(TSPAppInstancesEntitySet));
  67598. end;
  67599. Function TSPApiData.GetAppInstances : TSPAppInstancesEntitySet;
  67600. begin
  67601. If Not Assigned(FAppInstances) then
  67602. FAppInstances:=TSPAppInstancesEntitySet(CreateEntitySet(TSPAppInstancesEntitySet));
  67603. Result:=FAppInstances;
  67604. end;
  67605. Function TSPApiData.CreateNewAppInstanceErrorDetailss : TSPAppInstanceErrorDetailssEntitySet;
  67606. begin
  67607. Result:=TSPAppInstanceErrorDetailssEntitySet(CreateEntitySet(TSPAppInstanceErrorDetailssEntitySet));
  67608. end;
  67609. Function TSPApiData.GetAppInstanceErrorDetailss : TSPAppInstanceErrorDetailssEntitySet;
  67610. begin
  67611. If Not Assigned(FAppInstanceErrorDetailss) then
  67612. FAppInstanceErrorDetailss:=TSPAppInstanceErrorDetailssEntitySet(CreateEntitySet(TSPAppInstanceErrorDetailssEntitySet));
  67613. Result:=FAppInstanceErrorDetailss;
  67614. end;
  67615. Function TSPApiData.CreateNewAppTiles : TSPAppTilesEntitySet;
  67616. begin
  67617. Result:=TSPAppTilesEntitySet(CreateEntitySet(TSPAppTilesEntitySet));
  67618. end;
  67619. Function TSPApiData.GetAppTiles : TSPAppTilesEntitySet;
  67620. begin
  67621. If Not Assigned(FAppTiles) then
  67622. FAppTiles:=TSPAppTilesEntitySet(CreateEntitySet(TSPAppTilesEntitySet));
  67623. Result:=FAppTiles;
  67624. end;
  67625. Function TSPApiData.CreateNewAttachments : TSPAttachmentsEntitySet;
  67626. begin
  67627. Result:=TSPAttachmentsEntitySet(CreateEntitySet(TSPAttachmentsEntitySet));
  67628. end;
  67629. Function TSPApiData.GetAttachments : TSPAttachmentsEntitySet;
  67630. begin
  67631. If Not Assigned(FAttachments) then
  67632. FAttachments:=TSPAttachmentsEntitySet(CreateEntitySet(TSPAttachmentsEntitySet));
  67633. Result:=FAttachments;
  67634. end;
  67635. Function TSPApiData.CreateNewAudits : TSPAuditsEntitySet;
  67636. begin
  67637. Result:=TSPAuditsEntitySet(CreateEntitySet(TSPAuditsEntitySet));
  67638. end;
  67639. Function TSPApiData.GetAudits : TSPAuditsEntitySet;
  67640. begin
  67641. If Not Assigned(FAudits) then
  67642. FAudits:=TSPAuditsEntitySet(CreateEntitySet(TSPAuditsEntitySet));
  67643. Result:=FAudits;
  67644. end;
  67645. Function TSPApiData.CreateNewAppBdcCatalogs : TSPAppBdcCatalogsEntitySet;
  67646. begin
  67647. Result:=TSPAppBdcCatalogsEntitySet(CreateEntitySet(TSPAppBdcCatalogsEntitySet));
  67648. end;
  67649. Function TSPApiData.GetAppBdcCatalogs : TSPAppBdcCatalogsEntitySet;
  67650. begin
  67651. If Not Assigned(FAppBdcCatalogs) then
  67652. FAppBdcCatalogs:=TSPAppBdcCatalogsEntitySet(CreateEntitySet(TSPAppBdcCatalogsEntitySet));
  67653. Result:=FAppBdcCatalogs;
  67654. end;
  67655. Function TSPApiData.CreateNewEntitys : TSPEntitysEntitySet;
  67656. begin
  67657. Result:=TSPEntitysEntitySet(CreateEntitySet(TSPEntitysEntitySet));
  67658. end;
  67659. Function TSPApiData.GetEntitys : TSPEntitysEntitySet;
  67660. begin
  67661. If Not Assigned(FEntitys) then
  67662. FEntitys:=TSPEntitysEntitySet(CreateEntitySet(TSPEntitysEntitySet));
  67663. Result:=FEntitys;
  67664. end;
  67665. Function TSPApiData.CreateNewEntityFields : TSPEntityFieldsEntitySet;
  67666. begin
  67667. Result:=TSPEntityFieldsEntitySet(CreateEntitySet(TSPEntityFieldsEntitySet));
  67668. end;
  67669. Function TSPApiData.GetEntityFields : TSPEntityFieldsEntitySet;
  67670. begin
  67671. If Not Assigned(FEntityFields) then
  67672. FEntityFields:=TSPEntityFieldsEntitySet(CreateEntitySet(TSPEntityFieldsEntitySet));
  67673. Result:=FEntityFields;
  67674. end;
  67675. Function TSPApiData.CreateNewEntityIdentifiers : TSPEntityIdentifiersEntitySet;
  67676. begin
  67677. Result:=TSPEntityIdentifiersEntitySet(CreateEntitySet(TSPEntityIdentifiersEntitySet));
  67678. end;
  67679. Function TSPApiData.GetEntityIdentifiers : TSPEntityIdentifiersEntitySet;
  67680. begin
  67681. If Not Assigned(FEntityIdentifiers) then
  67682. FEntityIdentifiers:=TSPEntityIdentifiersEntitySet(CreateEntitySet(TSPEntityIdentifiersEntitySet));
  67683. Result:=FEntityIdentifiers;
  67684. end;
  67685. Function TSPApiData.CreateNewEntityViews : TSPEntityViewsEntitySet;
  67686. begin
  67687. Result:=TSPEntityViewsEntitySet(CreateEntitySet(TSPEntityViewsEntitySet));
  67688. end;
  67689. Function TSPApiData.GetEntityViews : TSPEntityViewsEntitySet;
  67690. begin
  67691. If Not Assigned(FEntityViews) then
  67692. FEntityViews:=TSPEntityViewsEntitySet(CreateEntitySet(TSPEntityViewsEntitySet));
  67693. Result:=FEntityViews;
  67694. end;
  67695. Function TSPApiData.CreateNewFilters : TSPFiltersEntitySet;
  67696. begin
  67697. Result:=TSPFiltersEntitySet(CreateEntitySet(TSPFiltersEntitySet));
  67698. end;
  67699. Function TSPApiData.GetFilters : TSPFiltersEntitySet;
  67700. begin
  67701. If Not Assigned(FFilters) then
  67702. FFilters:=TSPFiltersEntitySet(CreateEntitySet(TSPFiltersEntitySet));
  67703. Result:=FFilters;
  67704. end;
  67705. Function TSPApiData.CreateNewExternalSubscriptionStores : TSPExternalSubscriptionStoresEntitySet;
  67706. begin
  67707. Result:=TSPExternalSubscriptionStoresEntitySet(CreateEntitySet(TSPExternalSubscriptionStoresEntitySet));
  67708. end;
  67709. Function TSPApiData.GetExternalSubscriptionStores : TSPExternalSubscriptionStoresEntitySet;
  67710. begin
  67711. If Not Assigned(FExternalSubscriptionStores) then
  67712. FExternalSubscriptionStores:=TSPExternalSubscriptionStoresEntitySet(CreateEntitySet(TSPExternalSubscriptionStoresEntitySet));
  67713. Result:=FExternalSubscriptionStores;
  67714. end;
  67715. Function TSPApiData.CreateNewLobSystems : TSPLobSystemsEntitySet;
  67716. begin
  67717. Result:=TSPLobSystemsEntitySet(CreateEntitySet(TSPLobSystemsEntitySet));
  67718. end;
  67719. Function TSPApiData.GetLobSystems : TSPLobSystemsEntitySet;
  67720. begin
  67721. If Not Assigned(FLobSystems) then
  67722. FLobSystems:=TSPLobSystemsEntitySet(CreateEntitySet(TSPLobSystemsEntitySet));
  67723. Result:=FLobSystems;
  67724. end;
  67725. Function TSPApiData.CreateNewLobSystemInstances : TSPLobSystemInstancesEntitySet;
  67726. begin
  67727. Result:=TSPLobSystemInstancesEntitySet(CreateEntitySet(TSPLobSystemInstancesEntitySet));
  67728. end;
  67729. Function TSPApiData.GetLobSystemInstances : TSPLobSystemInstancesEntitySet;
  67730. begin
  67731. If Not Assigned(FLobSystemInstances) then
  67732. FLobSystemInstances:=TSPLobSystemInstancesEntitySet(CreateEntitySet(TSPLobSystemInstancesEntitySet));
  67733. Result:=FLobSystemInstances;
  67734. end;
  67735. Function TSPApiData.CreateNewMethodExecutionResults : TSPMethodExecutionResultsEntitySet;
  67736. begin
  67737. Result:=TSPMethodExecutionResultsEntitySet(CreateEntitySet(TSPMethodExecutionResultsEntitySet));
  67738. end;
  67739. Function TSPApiData.GetMethodExecutionResults : TSPMethodExecutionResultsEntitySet;
  67740. begin
  67741. If Not Assigned(FMethodExecutionResults) then
  67742. FMethodExecutionResults:=TSPMethodExecutionResultsEntitySet(CreateEntitySet(TSPMethodExecutionResultsEntitySet));
  67743. Result:=FMethodExecutionResults;
  67744. end;
  67745. Function TSPApiData.CreateNewEntityFieldValueDictionarys : TSPEntityFieldValueDictionarysEntitySet;
  67746. begin
  67747. Result:=TSPEntityFieldValueDictionarysEntitySet(CreateEntitySet(TSPEntityFieldValueDictionarysEntitySet));
  67748. end;
  67749. Function TSPApiData.GetEntityFieldValueDictionarys : TSPEntityFieldValueDictionarysEntitySet;
  67750. begin
  67751. If Not Assigned(FEntityFieldValueDictionarys) then
  67752. FEntityFieldValueDictionarys:=TSPEntityFieldValueDictionarysEntitySet(CreateEntitySet(TSPEntityFieldValueDictionarysEntitySet));
  67753. Result:=FEntityFieldValueDictionarys;
  67754. end;
  67755. Function TSPApiData.CreateNewEntityIdentitys : TSPEntityIdentitysEntitySet;
  67756. begin
  67757. Result:=TSPEntityIdentitysEntitySet(CreateEntitySet(TSPEntityIdentitysEntitySet));
  67758. end;
  67759. Function TSPApiData.GetEntityIdentitys : TSPEntityIdentitysEntitySet;
  67760. begin
  67761. If Not Assigned(FEntityIdentitys) then
  67762. FEntityIdentitys:=TSPEntityIdentitysEntitySet(CreateEntitySet(TSPEntityIdentitysEntitySet));
  67763. Result:=FEntityIdentitys;
  67764. end;
  67765. Function TSPApiData.CreateNewEntityInstances : TSPEntityInstancesEntitySet;
  67766. begin
  67767. Result:=TSPEntityInstancesEntitySet(CreateEntitySet(TSPEntityInstancesEntitySet));
  67768. end;
  67769. Function TSPApiData.GetEntityInstances : TSPEntityInstancesEntitySet;
  67770. begin
  67771. If Not Assigned(FEntityInstances) then
  67772. FEntityInstances:=TSPEntityInstancesEntitySet(CreateEntitySet(TSPEntityInstancesEntitySet));
  67773. Result:=FEntityInstances;
  67774. end;
  67775. Function TSPApiData.CreateNewNotificationCallbacks : TSPNotificationCallbacksEntitySet;
  67776. begin
  67777. Result:=TSPNotificationCallbacksEntitySet(CreateEntitySet(TSPNotificationCallbacksEntitySet));
  67778. end;
  67779. Function TSPApiData.GetNotificationCallbacks : TSPNotificationCallbacksEntitySet;
  67780. begin
  67781. If Not Assigned(FNotificationCallbacks) then
  67782. FNotificationCallbacks:=TSPNotificationCallbacksEntitySet(CreateEntitySet(TSPNotificationCallbacksEntitySet));
  67783. Result:=FNotificationCallbacks;
  67784. end;
  67785. Function TSPApiData.CreateNewSubscriptions : TSPSubscriptionsEntitySet;
  67786. begin
  67787. Result:=TSPSubscriptionsEntitySet(CreateEntitySet(TSPSubscriptionsEntitySet));
  67788. end;
  67789. Function TSPApiData.GetSubscriptions : TSPSubscriptionsEntitySet;
  67790. begin
  67791. If Not Assigned(FSubscriptions) then
  67792. FSubscriptions:=TSPSubscriptionsEntitySet(CreateEntitySet(TSPSubscriptionsEntitySet));
  67793. Result:=FSubscriptions;
  67794. end;
  67795. Function TSPApiData.CreateNewTypeDescriptors : TSPTypeDescriptorsEntitySet;
  67796. begin
  67797. Result:=TSPTypeDescriptorsEntitySet(CreateEntitySet(TSPTypeDescriptorsEntitySet));
  67798. end;
  67799. Function TSPApiData.GetTypeDescriptors : TSPTypeDescriptorsEntitySet;
  67800. begin
  67801. If Not Assigned(FTypeDescriptors) then
  67802. FTypeDescriptors:=TSPTypeDescriptorsEntitySet(CreateEntitySet(TSPTypeDescriptorsEntitySet));
  67803. Result:=FTypeDescriptors;
  67804. end;
  67805. Function TSPApiData.CreateNewChanges : TSPChangesEntitySet;
  67806. begin
  67807. Result:=TSPChangesEntitySet(CreateEntitySet(TSPChangesEntitySet));
  67808. end;
  67809. Function TSPApiData.GetChanges : TSPChangesEntitySet;
  67810. begin
  67811. If Not Assigned(FChanges) then
  67812. FChanges:=TSPChangesEntitySet(CreateEntitySet(TSPChangesEntitySet));
  67813. Result:=FChanges;
  67814. end;
  67815. Function TSPApiData.CreateNewCompatibilityRanges : TSPCompatibilityRangesEntitySet;
  67816. begin
  67817. Result:=TSPCompatibilityRangesEntitySet(CreateEntitySet(TSPCompatibilityRangesEntitySet));
  67818. end;
  67819. Function TSPApiData.GetCompatibilityRanges : TSPCompatibilityRangesEntitySet;
  67820. begin
  67821. If Not Assigned(FCompatibilityRanges) then
  67822. FCompatibilityRanges:=TSPCompatibilityRangesEntitySet(CreateEntitySet(TSPCompatibilityRangesEntitySet));
  67823. Result:=FCompatibilityRanges;
  67824. end;
  67825. Function TSPApiData.CreateNewPolicyEvaluationInfos : TSPPolicyEvaluationInfosEntitySet;
  67826. begin
  67827. Result:=TSPPolicyEvaluationInfosEntitySet(CreateEntitySet(TSPPolicyEvaluationInfosEntitySet));
  67828. end;
  67829. Function TSPApiData.GetPolicyEvaluationInfos : TSPPolicyEvaluationInfosEntitySet;
  67830. begin
  67831. If Not Assigned(FPolicyEvaluationInfos) then
  67832. FPolicyEvaluationInfos:=TSPPolicyEvaluationInfosEntitySet(CreateEntitySet(TSPPolicyEvaluationInfosEntitySet));
  67833. Result:=FPolicyEvaluationInfos;
  67834. end;
  67835. Function TSPApiData.CreateNewSPPolicyStoreProxys : TSPSPPolicyStoreProxysEntitySet;
  67836. begin
  67837. Result:=TSPSPPolicyStoreProxysEntitySet(CreateEntitySet(TSPSPPolicyStoreProxysEntitySet));
  67838. end;
  67839. Function TSPApiData.GetSPPolicyStoreProxys : TSPSPPolicyStoreProxysEntitySet;
  67840. begin
  67841. If Not Assigned(FSPPolicyStoreProxys) then
  67842. FSPPolicyStoreProxys:=TSPSPPolicyStoreProxysEntitySet(CreateEntitySet(TSPSPPolicyStoreProxysEntitySet));
  67843. Result:=FSPPolicyStoreProxys;
  67844. end;
  67845. Function TSPApiData.CreateNewContentTypes : TSPContentTypesEntitySet;
  67846. begin
  67847. Result:=TSPContentTypesEntitySet(CreateEntitySet(TSPContentTypesEntitySet));
  67848. end;
  67849. Function TSPApiData.GetContentTypes : TSPContentTypesEntitySet;
  67850. begin
  67851. If Not Assigned(FContentTypes) then
  67852. FContentTypes:=TSPContentTypesEntitySet(CreateEntitySet(TSPContentTypesEntitySet));
  67853. Result:=FContentTypes;
  67854. end;
  67855. Function TSPApiData.CreateNewCreatablesInfos : TSPCreatablesInfosEntitySet;
  67856. begin
  67857. Result:=TSPCreatablesInfosEntitySet(CreateEntitySet(TSPCreatablesInfosEntitySet));
  67858. end;
  67859. Function TSPApiData.GetCreatablesInfos : TSPCreatablesInfosEntitySet;
  67860. begin
  67861. If Not Assigned(FCreatablesInfos) then
  67862. FCreatablesInfos:=TSPCreatablesInfosEntitySet(CreateEntitySet(TSPCreatablesInfosEntitySet));
  67863. Result:=FCreatablesInfos;
  67864. end;
  67865. Function TSPApiData.CreateNewDirectorySessions : TSPDirectorySessionsEntitySet;
  67866. begin
  67867. Result:=TSPDirectorySessionsEntitySet(CreateEntitySet(TSPDirectorySessionsEntitySet));
  67868. end;
  67869. Function TSPApiData.GetDirectorySessions : TSPDirectorySessionsEntitySet;
  67870. begin
  67871. If Not Assigned(FDirectorySessions) then
  67872. FDirectorySessions:=TSPDirectorySessionsEntitySet(CreateEntitySet(TSPDirectorySessionsEntitySet));
  67873. Result:=FDirectorySessions;
  67874. end;
  67875. Function TSPApiData.CreateNewGroups : TSPGroupsEntitySet;
  67876. begin
  67877. Result:=TSPGroupsEntitySet(CreateEntitySet(TSPGroupsEntitySet));
  67878. end;
  67879. Function TSPApiData.GetGroups : TSPGroupsEntitySet;
  67880. begin
  67881. If Not Assigned(FGroups) then
  67882. FGroups:=TSPGroupsEntitySet(CreateEntitySet(TSPGroupsEntitySet));
  67883. Result:=FGroups;
  67884. end;
  67885. Function TSPApiData.CreateNewGroupAndUserStatuss : TSPGroupAndUserStatussEntitySet;
  67886. begin
  67887. Result:=TSPGroupAndUserStatussEntitySet(CreateEntitySet(TSPGroupAndUserStatussEntitySet));
  67888. end;
  67889. Function TSPApiData.GetGroupAndUserStatuss : TSPGroupAndUserStatussEntitySet;
  67890. begin
  67891. If Not Assigned(FGroupAndUserStatuss) then
  67892. FGroupAndUserStatuss:=TSPGroupAndUserStatussEntitySet(CreateEntitySet(TSPGroupAndUserStatussEntitySet));
  67893. Result:=FGroupAndUserStatuss;
  67894. end;
  67895. Function TSPApiData.CreateNewLinkCollections : TSPLinkCollectionsEntitySet;
  67896. begin
  67897. Result:=TSPLinkCollectionsEntitySet(CreateEntitySet(TSPLinkCollectionsEntitySet));
  67898. end;
  67899. Function TSPApiData.GetLinkCollections : TSPLinkCollectionsEntitySet;
  67900. begin
  67901. If Not Assigned(FLinkCollections) then
  67902. FLinkCollections:=TSPLinkCollectionsEntitySet(CreateEntitySet(TSPLinkCollectionsEntitySet));
  67903. Result:=FLinkCollections;
  67904. end;
  67905. Function TSPApiData.CreateNewMembershipResults : TSPMembershipResultsEntitySet;
  67906. begin
  67907. Result:=TSPMembershipResultsEntitySet(CreateEntitySet(TSPMembershipResultsEntitySet));
  67908. end;
  67909. Function TSPApiData.GetMembershipResults : TSPMembershipResultsEntitySet;
  67910. begin
  67911. If Not Assigned(FMembershipResults) then
  67912. FMembershipResults:=TSPMembershipResultsEntitySet(CreateEntitySet(TSPMembershipResultsEntitySet));
  67913. Result:=FMembershipResults;
  67914. end;
  67915. Function TSPApiData.CreateNewMembersInfos : TSPMembersInfosEntitySet;
  67916. begin
  67917. Result:=TSPMembersInfosEntitySet(CreateEntitySet(TSPMembersInfosEntitySet));
  67918. end;
  67919. Function TSPApiData.GetMembersInfos : TSPMembersInfosEntitySet;
  67920. begin
  67921. If Not Assigned(FMembersInfos) then
  67922. FMembersInfos:=TSPMembersInfosEntitySet(CreateEntitySet(TSPMembersInfosEntitySet));
  67923. Result:=FMembersInfos;
  67924. end;
  67925. Function TSPApiData.CreateNewMyGroupsResults : TSPMyGroupsResultsEntitySet;
  67926. begin
  67927. Result:=TSPMyGroupsResultsEntitySet(CreateEntitySet(TSPMyGroupsResultsEntitySet));
  67928. end;
  67929. Function TSPApiData.GetMyGroupsResults : TSPMyGroupsResultsEntitySet;
  67930. begin
  67931. If Not Assigned(FMyGroupsResults) then
  67932. FMyGroupsResults:=TSPMyGroupsResultsEntitySet(CreateEntitySet(TSPMyGroupsResultsEntitySet));
  67933. Result:=FMyGroupsResults;
  67934. end;
  67935. Function TSPApiData.CreateNewPropertys : TSPPropertysEntitySet;
  67936. begin
  67937. Result:=TSPPropertysEntitySet(CreateEntitySet(TSPPropertysEntitySet));
  67938. end;
  67939. Function TSPApiData.GetPropertys : TSPPropertysEntitySet;
  67940. begin
  67941. If Not Assigned(FPropertys) then
  67942. FPropertys:=TSPPropertysEntitySet(CreateEntitySet(TSPPropertysEntitySet));
  67943. Result:=FPropertys;
  67944. end;
  67945. Function TSPApiData.CreateNewPropertyDictionarys : TSPPropertyDictionarysEntitySet;
  67946. begin
  67947. Result:=TSPPropertyDictionarysEntitySet(CreateEntitySet(TSPPropertyDictionarysEntitySet));
  67948. end;
  67949. Function TSPApiData.GetPropertyDictionarys : TSPPropertyDictionarysEntitySet;
  67950. begin
  67951. If Not Assigned(FPropertyDictionarys) then
  67952. FPropertyDictionarys:=TSPPropertyDictionarysEntitySet(CreateEntitySet(TSPPropertyDictionarysEntitySet));
  67953. Result:=FPropertyDictionarys;
  67954. end;
  67955. Function TSPApiData.CreateNewSharePointDirectoryProviders : TSPSharePointDirectoryProvidersEntitySet;
  67956. begin
  67957. Result:=TSPSharePointDirectoryProvidersEntitySet(CreateEntitySet(TSPSharePointDirectoryProvidersEntitySet));
  67958. end;
  67959. Function TSPApiData.GetSharePointDirectoryProviders : TSPSharePointDirectoryProvidersEntitySet;
  67960. begin
  67961. If Not Assigned(FSharePointDirectoryProviders) then
  67962. FSharePointDirectoryProviders:=TSPSharePointDirectoryProvidersEntitySet(CreateEntitySet(TSPSharePointDirectoryProvidersEntitySet));
  67963. Result:=FSharePointDirectoryProviders;
  67964. end;
  67965. Function TSPApiData.CreateNewSPHelpers : TSPSPHelpersEntitySet;
  67966. begin
  67967. Result:=TSPSPHelpersEntitySet(CreateEntitySet(TSPSPHelpersEntitySet));
  67968. end;
  67969. Function TSPApiData.GetSPHelpers : TSPSPHelpersEntitySet;
  67970. begin
  67971. If Not Assigned(FSPHelpers) then
  67972. FSPHelpers:=TSPSPHelpersEntitySet(CreateEntitySet(TSPSPHelpersEntitySet));
  67973. Result:=FSPHelpers;
  67974. end;
  67975. Function TSPApiData.CreateNewUsers : TSPUsersEntitySet;
  67976. begin
  67977. Result:=TSPUsersEntitySet(CreateEntitySet(TSPUsersEntitySet));
  67978. end;
  67979. Function TSPApiData.GetUsers : TSPUsersEntitySet;
  67980. begin
  67981. If Not Assigned(FUsers) then
  67982. FUsers:=TSPUsersEntitySet(CreateEntitySet(TSPUsersEntitySet));
  67983. Result:=FUsers;
  67984. end;
  67985. Function TSPApiData.CreateNewUserRequestSchemas : TSPUserRequestSchemasEntitySet;
  67986. begin
  67987. Result:=TSPUserRequestSchemasEntitySet(CreateEntitySet(TSPUserRequestSchemasEntitySet));
  67988. end;
  67989. Function TSPApiData.GetUserRequestSchemas : TSPUserRequestSchemasEntitySet;
  67990. begin
  67991. If Not Assigned(FUserRequestSchemas) then
  67992. FUserRequestSchemas:=TSPUserRequestSchemasEntitySet(CreateEntitySet(TSPUserRequestSchemasEntitySet));
  67993. Result:=FUserRequestSchemas;
  67994. end;
  67995. Function TSPApiData.CreateNewDlpPolicyTips : TSPDlpPolicyTipsEntitySet;
  67996. begin
  67997. Result:=TSPDlpPolicyTipsEntitySet(CreateEntitySet(TSPDlpPolicyTipsEntitySet));
  67998. end;
  67999. Function TSPApiData.GetDlpPolicyTips : TSPDlpPolicyTipsEntitySet;
  68000. begin
  68001. If Not Assigned(FDlpPolicyTips) then
  68002. FDlpPolicyTips:=TSPDlpPolicyTipsEntitySet(CreateEntitySet(TSPDlpPolicyTipsEntitySet));
  68003. Result:=FDlpPolicyTips;
  68004. end;
  68005. Function TSPApiData.CreateNewEventReceiverDefinitions : TSPEventReceiverDefinitionsEntitySet;
  68006. begin
  68007. Result:=TSPEventReceiverDefinitionsEntitySet(CreateEntitySet(TSPEventReceiverDefinitionsEntitySet));
  68008. end;
  68009. Function TSPApiData.GetEventReceiverDefinitions : TSPEventReceiverDefinitionsEntitySet;
  68010. begin
  68011. If Not Assigned(FEventReceiverDefinitions) then
  68012. FEventReceiverDefinitions:=TSPEventReceiverDefinitionsEntitySet(CreateEntitySet(TSPEventReceiverDefinitionsEntitySet));
  68013. Result:=FEventReceiverDefinitions;
  68014. end;
  68015. Function TSPApiData.CreateNewFeatures : TSPFeaturesEntitySet;
  68016. begin
  68017. Result:=TSPFeaturesEntitySet(CreateEntitySet(TSPFeaturesEntitySet));
  68018. end;
  68019. Function TSPApiData.GetFeatures : TSPFeaturesEntitySet;
  68020. begin
  68021. If Not Assigned(FFeatures) then
  68022. FFeatures:=TSPFeaturesEntitySet(CreateEntitySet(TSPFeaturesEntitySet));
  68023. Result:=FFeatures;
  68024. end;
  68025. Function TSPApiData.CreateNewFields1 : TSPFields1EntitySet;
  68026. begin
  68027. Result:=TSPFields1EntitySet(CreateEntitySet(TSPFields1EntitySet));
  68028. end;
  68029. Function TSPApiData.GetFields1 : TSPFields1EntitySet;
  68030. begin
  68031. If Not Assigned(FFields1) then
  68032. FFields1:=TSPFields1EntitySet(CreateEntitySet(TSPFields1EntitySet));
  68033. Result:=FFields1;
  68034. end;
  68035. Function TSPApiData.CreateNewFieldLinks : TSPFieldLinksEntitySet;
  68036. begin
  68037. Result:=TSPFieldLinksEntitySet(CreateEntitySet(TSPFieldLinksEntitySet));
  68038. end;
  68039. Function TSPApiData.GetFieldLinks : TSPFieldLinksEntitySet;
  68040. begin
  68041. If Not Assigned(FFieldLinks) then
  68042. FFieldLinks:=TSPFieldLinksEntitySet(CreateEntitySet(TSPFieldLinksEntitySet));
  68043. Result:=FFieldLinks;
  68044. end;
  68045. Function TSPApiData.CreateNewFieldStringValuess : TSPFieldStringValuessEntitySet;
  68046. begin
  68047. Result:=TSPFieldStringValuessEntitySet(CreateEntitySet(TSPFieldStringValuessEntitySet));
  68048. end;
  68049. Function TSPApiData.GetFieldStringValuess : TSPFieldStringValuessEntitySet;
  68050. begin
  68051. If Not Assigned(FFieldStringValuess) then
  68052. FFieldStringValuess:=TSPFieldStringValuessEntitySet(CreateEntitySet(TSPFieldStringValuessEntitySet));
  68053. Result:=FFieldStringValuess;
  68054. end;
  68055. Function TSPApiData.CreateNewFiles12 : TSPFiles12EntitySet;
  68056. begin
  68057. Result:=TSPFiles12EntitySet(CreateEntitySet(TSPFiles12EntitySet));
  68058. end;
  68059. Function TSPApiData.GetFiles12 : TSPFiles12EntitySet;
  68060. begin
  68061. If Not Assigned(FFiles12) then
  68062. FFiles12:=TSPFiles12EntitySet(CreateEntitySet(TSPFiles12EntitySet));
  68063. Result:=FFiles12;
  68064. end;
  68065. Function TSPApiData.CreateNewFileVersions : TSPFileVersionsEntitySet;
  68066. begin
  68067. Result:=TSPFileVersionsEntitySet(CreateEntitySet(TSPFileVersionsEntitySet));
  68068. end;
  68069. Function TSPApiData.GetFileVersions : TSPFileVersionsEntitySet;
  68070. begin
  68071. If Not Assigned(FFileVersions) then
  68072. FFileVersions:=TSPFileVersionsEntitySet(CreateEntitySet(TSPFileVersionsEntitySet));
  68073. Result:=FFileVersions;
  68074. end;
  68075. Function TSPApiData.CreateNewFolders1 : TSPFolders1EntitySet;
  68076. begin
  68077. Result:=TSPFolders1EntitySet(CreateEntitySet(TSPFolders1EntitySet));
  68078. end;
  68079. Function TSPApiData.GetFolders1 : TSPFolders1EntitySet;
  68080. begin
  68081. If Not Assigned(FFolders1) then
  68082. FFolders1:=TSPFolders1EntitySet(CreateEntitySet(TSPFolders1EntitySet));
  68083. Result:=FFolders1;
  68084. end;
  68085. Function TSPApiData.CreateNewForms : TSPFormsEntitySet;
  68086. begin
  68087. Result:=TSPFormsEntitySet(CreateEntitySet(TSPFormsEntitySet));
  68088. end;
  68089. Function TSPApiData.GetForms : TSPFormsEntitySet;
  68090. begin
  68091. If Not Assigned(FForms) then
  68092. FForms:=TSPFormsEntitySet(CreateEntitySet(TSPFormsEntitySet));
  68093. Result:=FForms;
  68094. end;
  68095. Function TSPApiData.CreateNewGroups1 : TSPGroups1EntitySet;
  68096. begin
  68097. Result:=TSPGroups1EntitySet(CreateEntitySet(TSPGroups1EntitySet));
  68098. end;
  68099. Function TSPApiData.GetGroups1 : TSPGroups1EntitySet;
  68100. begin
  68101. If Not Assigned(FGroups1) then
  68102. FGroups1:=TSPGroups1EntitySet(CreateEntitySet(TSPGroups1EntitySet));
  68103. Result:=FGroups1;
  68104. end;
  68105. Function TSPApiData.CreateNewInformationRightsManagementSettingss : TSPInformationRightsManagementSettingssEntitySet;
  68106. begin
  68107. Result:=TSPInformationRightsManagementSettingssEntitySet(CreateEntitySet(TSPInformationRightsManagementSettingssEntitySet));
  68108. end;
  68109. Function TSPApiData.GetInformationRightsManagementSettingss : TSPInformationRightsManagementSettingssEntitySet;
  68110. begin
  68111. If Not Assigned(FInformationRightsManagementSettingss) then
  68112. FInformationRightsManagementSettingss:=TSPInformationRightsManagementSettingssEntitySet(CreateEntitySet(TSPInformationRightsManagementSettingssEntitySet));
  68113. Result:=FInformationRightsManagementSettingss;
  68114. end;
  68115. Function TSPApiData.CreateNewListItems : TSPListItemsEntitySet;
  68116. begin
  68117. Result:=TSPListItemsEntitySet(CreateEntitySet(TSPListItemsEntitySet));
  68118. end;
  68119. Function TSPApiData.GetListItems : TSPListItemsEntitySet;
  68120. begin
  68121. If Not Assigned(FListItems) then
  68122. FListItems:=TSPListItemsEntitySet(CreateEntitySet(TSPListItemsEntitySet));
  68123. Result:=FListItems;
  68124. end;
  68125. Function TSPApiData.CreateNewListTemplates : TSPListTemplatesEntitySet;
  68126. begin
  68127. Result:=TSPListTemplatesEntitySet(CreateEntitySet(TSPListTemplatesEntitySet));
  68128. end;
  68129. Function TSPApiData.GetListTemplates : TSPListTemplatesEntitySet;
  68130. begin
  68131. If Not Assigned(FListTemplates) then
  68132. FListTemplates:=TSPListTemplatesEntitySet(CreateEntitySet(TSPListTemplatesEntitySet));
  68133. Result:=FListTemplates;
  68134. end;
  68135. Function TSPApiData.CreateNewMicrofeedAttachmentStores : TSPMicrofeedAttachmentStoresEntitySet;
  68136. begin
  68137. Result:=TSPMicrofeedAttachmentStoresEntitySet(CreateEntitySet(TSPMicrofeedAttachmentStoresEntitySet));
  68138. end;
  68139. Function TSPApiData.GetMicrofeedAttachmentStores : TSPMicrofeedAttachmentStoresEntitySet;
  68140. begin
  68141. If Not Assigned(FMicrofeedAttachmentStores) then
  68142. FMicrofeedAttachmentStores:=TSPMicrofeedAttachmentStoresEntitySet(CreateEntitySet(TSPMicrofeedAttachmentStoresEntitySet));
  68143. Result:=FMicrofeedAttachmentStores;
  68144. end;
  68145. Function TSPApiData.CreateNewMicrofeedDatas : TSPMicrofeedDatasEntitySet;
  68146. begin
  68147. Result:=TSPMicrofeedDatasEntitySet(CreateEntitySet(TSPMicrofeedDatasEntitySet));
  68148. end;
  68149. Function TSPApiData.GetMicrofeedDatas : TSPMicrofeedDatasEntitySet;
  68150. begin
  68151. If Not Assigned(FMicrofeedDatas) then
  68152. FMicrofeedDatas:=TSPMicrofeedDatasEntitySet(CreateEntitySet(TSPMicrofeedDatasEntitySet));
  68153. Result:=FMicrofeedDatas;
  68154. end;
  68155. Function TSPApiData.CreateNewMicrofeedManagers : TSPMicrofeedManagersEntitySet;
  68156. begin
  68157. Result:=TSPMicrofeedManagersEntitySet(CreateEntitySet(TSPMicrofeedManagersEntitySet));
  68158. end;
  68159. Function TSPApiData.GetMicrofeedManagers : TSPMicrofeedManagersEntitySet;
  68160. begin
  68161. If Not Assigned(FMicrofeedManagers) then
  68162. FMicrofeedManagers:=TSPMicrofeedManagersEntitySet(CreateEntitySet(TSPMicrofeedManagersEntitySet));
  68163. Result:=FMicrofeedManagers;
  68164. end;
  68165. Function TSPApiData.CreateNewMicrofeedPostDefinitionManagers : TSPMicrofeedPostDefinitionManagersEntitySet;
  68166. begin
  68167. Result:=TSPMicrofeedPostDefinitionManagersEntitySet(CreateEntitySet(TSPMicrofeedPostDefinitionManagersEntitySet));
  68168. end;
  68169. Function TSPApiData.GetMicrofeedPostDefinitionManagers : TSPMicrofeedPostDefinitionManagersEntitySet;
  68170. begin
  68171. If Not Assigned(FMicrofeedPostDefinitionManagers) then
  68172. FMicrofeedPostDefinitionManagers:=TSPMicrofeedPostDefinitionManagersEntitySet(CreateEntitySet(TSPMicrofeedPostDefinitionManagersEntitySet));
  68173. Result:=FMicrofeedPostDefinitionManagers;
  68174. end;
  68175. Function TSPApiData.CreateNewMicrofeedPostOptionCollections : TSPMicrofeedPostOptionCollectionsEntitySet;
  68176. begin
  68177. Result:=TSPMicrofeedPostOptionCollectionsEntitySet(CreateEntitySet(TSPMicrofeedPostOptionCollectionsEntitySet));
  68178. end;
  68179. Function TSPApiData.GetMicrofeedPostOptionCollections : TSPMicrofeedPostOptionCollectionsEntitySet;
  68180. begin
  68181. If Not Assigned(FMicrofeedPostOptionCollections) then
  68182. FMicrofeedPostOptionCollections:=TSPMicrofeedPostOptionCollectionsEntitySet(CreateEntitySet(TSPMicrofeedPostOptionCollectionsEntitySet));
  68183. Result:=FMicrofeedPostOptionCollections;
  68184. end;
  68185. Function TSPApiData.CreateNewMicrofeedStores : TSPMicrofeedStoresEntitySet;
  68186. begin
  68187. Result:=TSPMicrofeedStoresEntitySet(CreateEntitySet(TSPMicrofeedStoresEntitySet));
  68188. end;
  68189. Function TSPApiData.GetMicrofeedStores : TSPMicrofeedStoresEntitySet;
  68190. begin
  68191. If Not Assigned(FMicrofeedStores) then
  68192. FMicrofeedStores:=TSPMicrofeedStoresEntitySet(CreateEntitySet(TSPMicrofeedStoresEntitySet));
  68193. Result:=FMicrofeedStores;
  68194. end;
  68195. Function TSPApiData.CreateNewMountedFolderInfos : TSPMountedFolderInfosEntitySet;
  68196. begin
  68197. Result:=TSPMountedFolderInfosEntitySet(CreateEntitySet(TSPMountedFolderInfosEntitySet));
  68198. end;
  68199. Function TSPApiData.GetMountedFolderInfos : TSPMountedFolderInfosEntitySet;
  68200. begin
  68201. If Not Assigned(FMountedFolderInfos) then
  68202. FMountedFolderInfos:=TSPMountedFolderInfosEntitySet(CreateEntitySet(TSPMountedFolderInfosEntitySet));
  68203. Result:=FMountedFolderInfos;
  68204. end;
  68205. Function TSPApiData.CreateNewMountPoints : TSPMountPointsEntitySet;
  68206. begin
  68207. Result:=TSPMountPointsEntitySet(CreateEntitySet(TSPMountPointsEntitySet));
  68208. end;
  68209. Function TSPApiData.GetMountPoints : TSPMountPointsEntitySet;
  68210. begin
  68211. If Not Assigned(FMountPoints) then
  68212. FMountPoints:=TSPMountPointsEntitySet(CreateEntitySet(TSPMountPointsEntitySet));
  68213. Result:=FMountPoints;
  68214. end;
  68215. Function TSPApiData.CreateNewMountPointInfos : TSPMountPointInfosEntitySet;
  68216. begin
  68217. Result:=TSPMountPointInfosEntitySet(CreateEntitySet(TSPMountPointInfosEntitySet));
  68218. end;
  68219. Function TSPApiData.GetMountPointInfos : TSPMountPointInfosEntitySet;
  68220. begin
  68221. If Not Assigned(FMountPointInfos) then
  68222. FMountPointInfos:=TSPMountPointInfosEntitySet(CreateEntitySet(TSPMountPointInfosEntitySet));
  68223. Result:=FMountPointInfos;
  68224. end;
  68225. Function TSPApiData.CreateNewMoveCopyUtils : TSPMoveCopyUtilsEntitySet;
  68226. begin
  68227. Result:=TSPMoveCopyUtilsEntitySet(CreateEntitySet(TSPMoveCopyUtilsEntitySet));
  68228. end;
  68229. Function TSPApiData.GetMoveCopyUtils : TSPMoveCopyUtilsEntitySet;
  68230. begin
  68231. If Not Assigned(FMoveCopyUtils) then
  68232. FMoveCopyUtils:=TSPMoveCopyUtilsEntitySet(CreateEntitySet(TSPMoveCopyUtilsEntitySet));
  68233. Result:=FMoveCopyUtils;
  68234. end;
  68235. Function TSPApiData.CreateNewNavigations : TSPNavigationsEntitySet;
  68236. begin
  68237. Result:=TSPNavigationsEntitySet(CreateEntitySet(TSPNavigationsEntitySet));
  68238. end;
  68239. Function TSPApiData.GetNavigations : TSPNavigationsEntitySet;
  68240. begin
  68241. If Not Assigned(FNavigations) then
  68242. FNavigations:=TSPNavigationsEntitySet(CreateEntitySet(TSPNavigationsEntitySet));
  68243. Result:=FNavigations;
  68244. end;
  68245. Function TSPApiData.CreateNewNavigationNodes : TSPNavigationNodesEntitySet;
  68246. begin
  68247. Result:=TSPNavigationNodesEntitySet(CreateEntitySet(TSPNavigationNodesEntitySet));
  68248. end;
  68249. Function TSPApiData.GetNavigationNodes : TSPNavigationNodesEntitySet;
  68250. begin
  68251. If Not Assigned(FNavigationNodes) then
  68252. FNavigationNodes:=TSPNavigationNodesEntitySet(CreateEntitySet(TSPNavigationNodesEntitySet));
  68253. Result:=FNavigationNodes;
  68254. end;
  68255. Function TSPApiData.CreateNewNativeClients : TSPNativeClientsEntitySet;
  68256. begin
  68257. Result:=TSPNativeClientsEntitySet(CreateEntitySet(TSPNativeClientsEntitySet));
  68258. end;
  68259. Function TSPApiData.GetNativeClients : TSPNativeClientsEntitySet;
  68260. begin
  68261. If Not Assigned(FNativeClients) then
  68262. FNativeClients:=TSPNativeClientsEntitySet(CreateEntitySet(TSPNativeClientsEntitySet));
  68263. Result:=FNativeClients;
  68264. end;
  68265. Function TSPApiData.CreateNewObjectSharingInformations : TSPObjectSharingInformationsEntitySet;
  68266. begin
  68267. Result:=TSPObjectSharingInformationsEntitySet(CreateEntitySet(TSPObjectSharingInformationsEntitySet));
  68268. end;
  68269. Function TSPApiData.GetObjectSharingInformations : TSPObjectSharingInformationsEntitySet;
  68270. begin
  68271. If Not Assigned(FObjectSharingInformations) then
  68272. FObjectSharingInformations:=TSPObjectSharingInformationsEntitySet(CreateEntitySet(TSPObjectSharingInformationsEntitySet));
  68273. Result:=FObjectSharingInformations;
  68274. end;
  68275. Function TSPApiData.CreateNewObjectSharingInformationUsers : TSPObjectSharingInformationUsersEntitySet;
  68276. begin
  68277. Result:=TSPObjectSharingInformationUsersEntitySet(CreateEntitySet(TSPObjectSharingInformationUsersEntitySet));
  68278. end;
  68279. Function TSPApiData.GetObjectSharingInformationUsers : TSPObjectSharingInformationUsersEntitySet;
  68280. begin
  68281. If Not Assigned(FObjectSharingInformationUsers) then
  68282. FObjectSharingInformationUsers:=TSPObjectSharingInformationUsersEntitySet(CreateEntitySet(TSPObjectSharingInformationUsersEntitySet));
  68283. Result:=FObjectSharingInformationUsers;
  68284. end;
  68285. Function TSPApiData.CreateNewObjectSharingSettingss : TSPObjectSharingSettingssEntitySet;
  68286. begin
  68287. Result:=TSPObjectSharingSettingssEntitySet(CreateEntitySet(TSPObjectSharingSettingssEntitySet));
  68288. end;
  68289. Function TSPApiData.GetObjectSharingSettingss : TSPObjectSharingSettingssEntitySet;
  68290. begin
  68291. If Not Assigned(FObjectSharingSettingss) then
  68292. FObjectSharingSettingss:=TSPObjectSharingSettingssEntitySet(CreateEntitySet(TSPObjectSharingSettingssEntitySet));
  68293. Result:=FObjectSharingSettingss;
  68294. end;
  68295. Function TSPApiData.CreateNewClickManagers : TSPClickManagersEntitySet;
  68296. begin
  68297. Result:=TSPClickManagersEntitySet(CreateEntitySet(TSPClickManagersEntitySet));
  68298. end;
  68299. Function TSPApiData.GetClickManagers : TSPClickManagersEntitySet;
  68300. begin
  68301. If Not Assigned(FClickManagers) then
  68302. FClickManagers:=TSPClickManagersEntitySet(CreateEntitySet(TSPClickManagersEntitySet));
  68303. Result:=FClickManagers;
  68304. end;
  68305. Function TSPApiData.CreateNewPickerSettingss : TSPPickerSettingssEntitySet;
  68306. begin
  68307. Result:=TSPPickerSettingssEntitySet(CreateEntitySet(TSPPickerSettingssEntitySet));
  68308. end;
  68309. Function TSPApiData.GetPickerSettingss : TSPPickerSettingssEntitySet;
  68310. begin
  68311. If Not Assigned(FPickerSettingss) then
  68312. FPickerSettingss:=TSPPickerSettingssEntitySet(CreateEntitySet(TSPPickerSettingssEntitySet));
  68313. Result:=FPickerSettingss;
  68314. end;
  68315. Function TSPApiData.CreateNewPrincipals : TSPPrincipalsEntitySet;
  68316. begin
  68317. Result:=TSPPrincipalsEntitySet(CreateEntitySet(TSPPrincipalsEntitySet));
  68318. end;
  68319. Function TSPApiData.GetPrincipals : TSPPrincipalsEntitySet;
  68320. begin
  68321. If Not Assigned(FPrincipals) then
  68322. FPrincipals:=TSPPrincipalsEntitySet(CreateEntitySet(TSPPrincipalsEntitySet));
  68323. Result:=FPrincipals;
  68324. end;
  68325. Function TSPApiData.CreateNewPropertyValuess : TSPPropertyValuessEntitySet;
  68326. begin
  68327. Result:=TSPPropertyValuessEntitySet(CreateEntitySet(TSPPropertyValuessEntitySet));
  68328. end;
  68329. Function TSPApiData.GetPropertyValuess : TSPPropertyValuessEntitySet;
  68330. begin
  68331. If Not Assigned(FPropertyValuess) then
  68332. FPropertyValuess:=TSPPropertyValuessEntitySet(CreateEntitySet(TSPPropertyValuessEntitySet));
  68333. Result:=FPropertyValuess;
  68334. end;
  68335. Function TSPApiData.CreateNewPersonMagazines : TSPPersonMagazinesEntitySet;
  68336. begin
  68337. Result:=TSPPersonMagazinesEntitySet(CreateEntitySet(TSPPersonMagazinesEntitySet));
  68338. end;
  68339. Function TSPApiData.GetPersonMagazines : TSPPersonMagazinesEntitySet;
  68340. begin
  68341. If Not Assigned(FPersonMagazines) then
  68342. FPersonMagazines:=TSPPersonMagazinesEntitySet(CreateEntitySet(TSPPersonMagazinesEntitySet));
  68343. Result:=FPersonMagazines;
  68344. end;
  68345. Function TSPApiData.CreateNewPointPublishingDocPropss : TSPPointPublishingDocPropssEntitySet;
  68346. begin
  68347. Result:=TSPPointPublishingDocPropssEntitySet(CreateEntitySet(TSPPointPublishingDocPropssEntitySet));
  68348. end;
  68349. Function TSPApiData.GetPointPublishingDocPropss : TSPPointPublishingDocPropssEntitySet;
  68350. begin
  68351. If Not Assigned(FPointPublishingDocPropss) then
  68352. FPointPublishingDocPropss:=TSPPointPublishingDocPropssEntitySet(CreateEntitySet(TSPPointPublishingDocPropssEntitySet));
  68353. Result:=FPointPublishingDocPropss;
  68354. end;
  68355. Function TSPApiData.CreateNewPointPublishingMagazinePropss : TSPPointPublishingMagazinePropssEntitySet;
  68356. begin
  68357. Result:=TSPPointPublishingMagazinePropssEntitySet(CreateEntitySet(TSPPointPublishingMagazinePropssEntitySet));
  68358. end;
  68359. Function TSPApiData.GetPointPublishingMagazinePropss : TSPPointPublishingMagazinePropssEntitySet;
  68360. begin
  68361. If Not Assigned(FPointPublishingMagazinePropss) then
  68362. FPointPublishingMagazinePropss:=TSPPointPublishingMagazinePropssEntitySet(CreateEntitySet(TSPPointPublishingMagazinePropssEntitySet));
  68363. Result:=FPointPublishingMagazinePropss;
  68364. end;
  68365. Function TSPApiData.CreateNewPointPublishingPosts : TSPPointPublishingPostsEntitySet;
  68366. begin
  68367. Result:=TSPPointPublishingPostsEntitySet(CreateEntitySet(TSPPointPublishingPostsEntitySet));
  68368. end;
  68369. Function TSPApiData.GetPointPublishingPosts : TSPPointPublishingPostsEntitySet;
  68370. begin
  68371. If Not Assigned(FPointPublishingPosts) then
  68372. FPointPublishingPosts:=TSPPointPublishingPostsEntitySet(CreateEntitySet(TSPPointPublishingPostsEntitySet));
  68373. Result:=FPointPublishingPosts;
  68374. end;
  68375. Function TSPApiData.CreateNewPointPublishingPostServiceManagers : TSPPointPublishingPostServiceManagersEntitySet;
  68376. begin
  68377. Result:=TSPPointPublishingPostServiceManagersEntitySet(CreateEntitySet(TSPPointPublishingPostServiceManagersEntitySet));
  68378. end;
  68379. Function TSPApiData.GetPointPublishingPostServiceManagers : TSPPointPublishingPostServiceManagersEntitySet;
  68380. begin
  68381. If Not Assigned(FPointPublishingPostServiceManagers) then
  68382. FPointPublishingPostServiceManagers:=TSPPointPublishingPostServiceManagersEntitySet(CreateEntitySet(TSPPointPublishingPostServiceManagersEntitySet));
  68383. Result:=FPointPublishingPostServiceManagers;
  68384. end;
  68385. Function TSPApiData.CreateNewPointPublishingSiteManagers : TSPPointPublishingSiteManagersEntitySet;
  68386. begin
  68387. Result:=TSPPointPublishingSiteManagersEntitySet(CreateEntitySet(TSPPointPublishingSiteManagersEntitySet));
  68388. end;
  68389. Function TSPApiData.GetPointPublishingSiteManagers : TSPPointPublishingSiteManagersEntitySet;
  68390. begin
  68391. If Not Assigned(FPointPublishingSiteManagers) then
  68392. FPointPublishingSiteManagers:=TSPPointPublishingSiteManagersEntitySet(CreateEntitySet(TSPPointPublishingSiteManagersEntitySet));
  68393. Result:=FPointPublishingSiteManagers;
  68394. end;
  68395. Function TSPApiData.CreateNewPointPublishingSiteStatuss : TSPPointPublishingSiteStatussEntitySet;
  68396. begin
  68397. Result:=TSPPointPublishingSiteStatussEntitySet(CreateEntitySet(TSPPointPublishingSiteStatussEntitySet));
  68398. end;
  68399. Function TSPApiData.GetPointPublishingSiteStatuss : TSPPointPublishingSiteStatussEntitySet;
  68400. begin
  68401. If Not Assigned(FPointPublishingSiteStatuss) then
  68402. FPointPublishingSiteStatuss:=TSPPointPublishingSiteStatussEntitySet(CreateEntitySet(TSPPointPublishingSiteStatussEntitySet));
  68403. Result:=FPointPublishingSiteStatuss;
  68404. end;
  68405. Function TSPApiData.CreateNewPointPublishingUsers : TSPPointPublishingUsersEntitySet;
  68406. begin
  68407. Result:=TSPPointPublishingUsersEntitySet(CreateEntitySet(TSPPointPublishingUsersEntitySet));
  68408. end;
  68409. Function TSPApiData.GetPointPublishingUsers : TSPPointPublishingUsersEntitySet;
  68410. begin
  68411. If Not Assigned(FPointPublishingUsers) then
  68412. FPointPublishingUsers:=TSPPointPublishingUsersEntitySet(CreateEntitySet(TSPPointPublishingUsersEntitySet));
  68413. Result:=FPointPublishingUsers;
  68414. end;
  68415. Function TSPApiData.CreateNewSearchs : TSPSearchsEntitySet;
  68416. begin
  68417. Result:=TSPSearchsEntitySet(CreateEntitySet(TSPSearchsEntitySet));
  68418. end;
  68419. Function TSPApiData.GetSearchs : TSPSearchsEntitySet;
  68420. begin
  68421. If Not Assigned(FSearchs) then
  68422. FSearchs:=TSPSearchsEntitySet(CreateEntitySet(TSPSearchsEntitySet));
  68423. Result:=FSearchs;
  68424. end;
  68425. Function TSPApiData.CreateNewSpotlightChannels : TSPSpotlightChannelsEntitySet;
  68426. begin
  68427. Result:=TSPSpotlightChannelsEntitySet(CreateEntitySet(TSPSpotlightChannelsEntitySet));
  68428. end;
  68429. Function TSPApiData.GetSpotlightChannels : TSPSpotlightChannelsEntitySet;
  68430. begin
  68431. If Not Assigned(FSpotlightChannels) then
  68432. FSpotlightChannels:=TSPSpotlightChannelsEntitySet(CreateEntitySet(TSPSpotlightChannelsEntitySet));
  68433. Result:=FSpotlightChannels;
  68434. end;
  68435. Function TSPApiData.CreateNewSpotlightVideos : TSPSpotlightVideosEntitySet;
  68436. begin
  68437. Result:=TSPSpotlightVideosEntitySet(CreateEntitySet(TSPSpotlightVideosEntitySet));
  68438. end;
  68439. Function TSPApiData.GetSpotlightVideos : TSPSpotlightVideosEntitySet;
  68440. begin
  68441. If Not Assigned(FSpotlightVideos) then
  68442. FSpotlightVideos:=TSPSpotlightVideosEntitySet(CreateEntitySet(TSPSpotlightVideosEntitySet));
  68443. Result:=FSpotlightVideos;
  68444. end;
  68445. Function TSPApiData.CreateNewVideoChannels : TSPVideoChannelsEntitySet;
  68446. begin
  68447. Result:=TSPVideoChannelsEntitySet(CreateEntitySet(TSPVideoChannelsEntitySet));
  68448. end;
  68449. Function TSPApiData.GetVideoChannels : TSPVideoChannelsEntitySet;
  68450. begin
  68451. If Not Assigned(FVideoChannels) then
  68452. FVideoChannels:=TSPVideoChannelsEntitySet(CreateEntitySet(TSPVideoChannelsEntitySet));
  68453. Result:=FVideoChannels;
  68454. end;
  68455. Function TSPApiData.CreateNewVideoItems : TSPVideoItemsEntitySet;
  68456. begin
  68457. Result:=TSPVideoItemsEntitySet(CreateEntitySet(TSPVideoItemsEntitySet));
  68458. end;
  68459. Function TSPApiData.GetVideoItems : TSPVideoItemsEntitySet;
  68460. begin
  68461. If Not Assigned(FVideoItems) then
  68462. FVideoItems:=TSPVideoItemsEntitySet(CreateEntitySet(TSPVideoItemsEntitySet));
  68463. Result:=FVideoItems;
  68464. end;
  68465. Function TSPApiData.CreateNewVideoPermissionGroups : TSPVideoPermissionGroupsEntitySet;
  68466. begin
  68467. Result:=TSPVideoPermissionGroupsEntitySet(CreateEntitySet(TSPVideoPermissionGroupsEntitySet));
  68468. end;
  68469. Function TSPApiData.GetVideoPermissionGroups : TSPVideoPermissionGroupsEntitySet;
  68470. begin
  68471. If Not Assigned(FVideoPermissionGroups) then
  68472. FVideoPermissionGroups:=TSPVideoPermissionGroupsEntitySet(CreateEntitySet(TSPVideoPermissionGroupsEntitySet));
  68473. Result:=FVideoPermissionGroups;
  68474. end;
  68475. Function TSPApiData.CreateNewVideoServiceDiscoverers : TSPVideoServiceDiscoverersEntitySet;
  68476. begin
  68477. Result:=TSPVideoServiceDiscoverersEntitySet(CreateEntitySet(TSPVideoServiceDiscoverersEntitySet));
  68478. end;
  68479. Function TSPApiData.GetVideoServiceDiscoverers : TSPVideoServiceDiscoverersEntitySet;
  68480. begin
  68481. If Not Assigned(FVideoServiceDiscoverers) then
  68482. FVideoServiceDiscoverers:=TSPVideoServiceDiscoverersEntitySet(CreateEntitySet(TSPVideoServiceDiscoverersEntitySet));
  68483. Result:=FVideoServiceDiscoverers;
  68484. end;
  68485. Function TSPApiData.CreateNewVideoServiceManagers : TSPVideoServiceManagersEntitySet;
  68486. begin
  68487. Result:=TSPVideoServiceManagersEntitySet(CreateEntitySet(TSPVideoServiceManagersEntitySet));
  68488. end;
  68489. Function TSPApiData.GetVideoServiceManagers : TSPVideoServiceManagersEntitySet;
  68490. begin
  68491. If Not Assigned(FVideoServiceManagers) then
  68492. FVideoServiceManagers:=TSPVideoServiceManagersEntitySet(CreateEntitySet(TSPVideoServiceManagersEntitySet));
  68493. Result:=FVideoServiceManagers;
  68494. end;
  68495. Function TSPApiData.CreateNewPushNotificationSubscribers : TSPPushNotificationSubscribersEntitySet;
  68496. begin
  68497. Result:=TSPPushNotificationSubscribersEntitySet(CreateEntitySet(TSPPushNotificationSubscribersEntitySet));
  68498. end;
  68499. Function TSPApiData.GetPushNotificationSubscribers : TSPPushNotificationSubscribersEntitySet;
  68500. begin
  68501. If Not Assigned(FPushNotificationSubscribers) then
  68502. FPushNotificationSubscribers:=TSPPushNotificationSubscribersEntitySet(CreateEntitySet(TSPPushNotificationSubscribersEntitySet));
  68503. Result:=FPushNotificationSubscribers;
  68504. end;
  68505. Function TSPApiData.CreateNewRecycleBinItems : TSPRecycleBinItemsEntitySet;
  68506. begin
  68507. Result:=TSPRecycleBinItemsEntitySet(CreateEntitySet(TSPRecycleBinItemsEntitySet));
  68508. end;
  68509. Function TSPApiData.GetRecycleBinItems : TSPRecycleBinItemsEntitySet;
  68510. begin
  68511. If Not Assigned(FRecycleBinItems) then
  68512. FRecycleBinItems:=TSPRecycleBinItemsEntitySet(CreateEntitySet(TSPRecycleBinItemsEntitySet));
  68513. Result:=FRecycleBinItems;
  68514. end;
  68515. Function TSPApiData.CreateNewRegionalSettingss : TSPRegionalSettingssEntitySet;
  68516. begin
  68517. Result:=TSPRegionalSettingssEntitySet(CreateEntitySet(TSPRegionalSettingssEntitySet));
  68518. end;
  68519. Function TSPApiData.GetRegionalSettingss : TSPRegionalSettingssEntitySet;
  68520. begin
  68521. If Not Assigned(FRegionalSettingss) then
  68522. FRegionalSettingss:=TSPRegionalSettingssEntitySet(CreateEntitySet(TSPRegionalSettingssEntitySet));
  68523. Result:=FRegionalSettingss;
  68524. end;
  68525. Function TSPApiData.CreateNewRelatedFields : TSPRelatedFieldsEntitySet;
  68526. begin
  68527. Result:=TSPRelatedFieldsEntitySet(CreateEntitySet(TSPRelatedFieldsEntitySet));
  68528. end;
  68529. Function TSPApiData.GetRelatedFields : TSPRelatedFieldsEntitySet;
  68530. begin
  68531. If Not Assigned(FRelatedFields) then
  68532. FRelatedFields:=TSPRelatedFieldsEntitySet(CreateEntitySet(TSPRelatedFieldsEntitySet));
  68533. Result:=FRelatedFields;
  68534. end;
  68535. Function TSPApiData.CreateNewRelatedItemManagers : TSPRelatedItemManagersEntitySet;
  68536. begin
  68537. Result:=TSPRelatedItemManagersEntitySet(CreateEntitySet(TSPRelatedItemManagersEntitySet));
  68538. end;
  68539. Function TSPApiData.GetRelatedItemManagers : TSPRelatedItemManagersEntitySet;
  68540. begin
  68541. If Not Assigned(FRelatedItemManagers) then
  68542. FRelatedItemManagers:=TSPRelatedItemManagersEntitySet(CreateEntitySet(TSPRelatedItemManagersEntitySet));
  68543. Result:=FRelatedItemManagers;
  68544. end;
  68545. Function TSPApiData.CreateNewRemoteWebs : TSPRemoteWebsEntitySet;
  68546. begin
  68547. Result:=TSPRemoteWebsEntitySet(CreateEntitySet(TSPRemoteWebsEntitySet));
  68548. end;
  68549. Function TSPApiData.GetRemoteWebs : TSPRemoteWebsEntitySet;
  68550. begin
  68551. If Not Assigned(FRemoteWebs) then
  68552. FRemoteWebs:=TSPRemoteWebsEntitySet(CreateEntitySet(TSPRemoteWebsEntitySet));
  68553. Result:=FRemoteWebs;
  68554. end;
  68555. Function TSPApiData.CreateNewRequestContexts1 : TSPRequestContexts1EntitySet;
  68556. begin
  68557. Result:=TSPRequestContexts1EntitySet(CreateEntitySet(TSPRequestContexts1EntitySet));
  68558. end;
  68559. Function TSPApiData.GetRequestContexts1 : TSPRequestContexts1EntitySet;
  68560. begin
  68561. If Not Assigned(FRequestContexts1) then
  68562. FRequestContexts1:=TSPRequestContexts1EntitySet(CreateEntitySet(TSPRequestContexts1EntitySet));
  68563. Result:=FRequestContexts1;
  68564. end;
  68565. Function TSPApiData.CreateNewRoleAssignments : TSPRoleAssignmentsEntitySet;
  68566. begin
  68567. Result:=TSPRoleAssignmentsEntitySet(CreateEntitySet(TSPRoleAssignmentsEntitySet));
  68568. end;
  68569. Function TSPApiData.GetRoleAssignments : TSPRoleAssignmentsEntitySet;
  68570. begin
  68571. If Not Assigned(FRoleAssignments) then
  68572. FRoleAssignments:=TSPRoleAssignmentsEntitySet(CreateEntitySet(TSPRoleAssignmentsEntitySet));
  68573. Result:=FRoleAssignments;
  68574. end;
  68575. Function TSPApiData.CreateNewRoleDefinitions : TSPRoleDefinitionsEntitySet;
  68576. begin
  68577. Result:=TSPRoleDefinitionsEntitySet(CreateEntitySet(TSPRoleDefinitionsEntitySet));
  68578. end;
  68579. Function TSPApiData.GetRoleDefinitions : TSPRoleDefinitionsEntitySet;
  68580. begin
  68581. If Not Assigned(FRoleDefinitions) then
  68582. FRoleDefinitions:=TSPRoleDefinitionsEntitySet(CreateEntitySet(TSPRoleDefinitionsEntitySet));
  68583. Result:=FRoleDefinitions;
  68584. end;
  68585. Function TSPApiData.CreateNewSecurableObjects : TSPSecurableObjectsEntitySet;
  68586. begin
  68587. Result:=TSPSecurableObjectsEntitySet(CreateEntitySet(TSPSecurableObjectsEntitySet));
  68588. end;
  68589. Function TSPApiData.GetSecurableObjects : TSPSecurableObjectsEntitySet;
  68590. begin
  68591. If Not Assigned(FSecurableObjects) then
  68592. FSecurableObjects:=TSPSecurableObjectsEntitySet(CreateEntitySet(TSPSecurableObjectsEntitySet));
  68593. Result:=FSecurableObjects;
  68594. end;
  68595. Function TSPApiData.CreateNewServerSettingss : TSPServerSettingssEntitySet;
  68596. begin
  68597. Result:=TSPServerSettingssEntitySet(CreateEntitySet(TSPServerSettingssEntitySet));
  68598. end;
  68599. Function TSPApiData.GetServerSettingss : TSPServerSettingssEntitySet;
  68600. begin
  68601. If Not Assigned(FServerSettingss) then
  68602. FServerSettingss:=TSPServerSettingssEntitySet(CreateEntitySet(TSPServerSettingssEntitySet));
  68603. Result:=FServerSettingss;
  68604. end;
  68605. Function TSPApiData.CreateNewSharePointSharingSettingss : TSPSharePointSharingSettingssEntitySet;
  68606. begin
  68607. Result:=TSPSharePointSharingSettingssEntitySet(CreateEntitySet(TSPSharePointSharingSettingssEntitySet));
  68608. end;
  68609. Function TSPApiData.GetSharePointSharingSettingss : TSPSharePointSharingSettingssEntitySet;
  68610. begin
  68611. If Not Assigned(FSharePointSharingSettingss) then
  68612. FSharePointSharingSettingss:=TSPSharePointSharingSettingssEntitySet(CreateEntitySet(TSPSharePointSharingSettingssEntitySet));
  68613. Result:=FSharePointSharingSettingss;
  68614. end;
  68615. Function TSPApiData.CreateNewDocumentSharingManagers : TSPDocumentSharingManagersEntitySet;
  68616. begin
  68617. Result:=TSPDocumentSharingManagersEntitySet(CreateEntitySet(TSPDocumentSharingManagersEntitySet));
  68618. end;
  68619. Function TSPApiData.GetDocumentSharingManagers : TSPDocumentSharingManagersEntitySet;
  68620. begin
  68621. If Not Assigned(FDocumentSharingManagers) then
  68622. FDocumentSharingManagers:=TSPDocumentSharingManagersEntitySet(CreateEntitySet(TSPDocumentSharingManagersEntitySet));
  68623. Result:=FDocumentSharingManagers;
  68624. end;
  68625. Function TSPApiData.CreateNewWebSharingManagers : TSPWebSharingManagersEntitySet;
  68626. begin
  68627. Result:=TSPWebSharingManagersEntitySet(CreateEntitySet(TSPWebSharingManagersEntitySet));
  68628. end;
  68629. Function TSPApiData.GetWebSharingManagers : TSPWebSharingManagersEntitySet;
  68630. begin
  68631. If Not Assigned(FWebSharingManagers) then
  68632. FWebSharingManagers:=TSPWebSharingManagersEntitySet(CreateEntitySet(TSPWebSharingManagersEntitySet));
  68633. Result:=FWebSharingManagers;
  68634. end;
  68635. Function TSPApiData.CreateNewSharingResults : TSPSharingResultsEntitySet;
  68636. begin
  68637. Result:=TSPSharingResultsEntitySet(CreateEntitySet(TSPSharingResultsEntitySet));
  68638. end;
  68639. Function TSPApiData.GetSharingResults : TSPSharingResultsEntitySet;
  68640. begin
  68641. If Not Assigned(FSharingResults) then
  68642. FSharingResults:=TSPSharingResultsEntitySet(CreateEntitySet(TSPSharingResultsEntitySet));
  68643. Result:=FSharingResults;
  68644. end;
  68645. Function TSPApiData.CreateNewSiteHealthSummarys : TSPSiteHealthSummarysEntitySet;
  68646. begin
  68647. Result:=TSPSiteHealthSummarysEntitySet(CreateEntitySet(TSPSiteHealthSummarysEntitySet));
  68648. end;
  68649. Function TSPApiData.GetSiteHealthSummarys : TSPSiteHealthSummarysEntitySet;
  68650. begin
  68651. If Not Assigned(FSiteHealthSummarys) then
  68652. FSiteHealthSummarys:=TSPSiteHealthSummarysEntitySet(CreateEntitySet(TSPSiteHealthSummarysEntitySet));
  68653. Result:=FSiteHealthSummarys;
  68654. end;
  68655. Function TSPApiData.CreateNewSiteUrls : TSPSiteUrlsEntitySet;
  68656. begin
  68657. Result:=TSPSiteUrlsEntitySet(CreateEntitySet(TSPSiteUrlsEntitySet));
  68658. end;
  68659. Function TSPApiData.GetSiteUrls : TSPSiteUrlsEntitySet;
  68660. begin
  68661. If Not Assigned(FSiteUrls) then
  68662. FSiteUrls:=TSPSiteUrlsEntitySet(CreateEntitySet(TSPSiteUrlsEntitySet));
  68663. Result:=FSiteUrls;
  68664. end;
  68665. Function TSPApiData.CreateNewSocialAnnouncementManagers : TSPSocialAnnouncementManagersEntitySet;
  68666. begin
  68667. Result:=TSPSocialAnnouncementManagersEntitySet(CreateEntitySet(TSPSocialAnnouncementManagersEntitySet));
  68668. end;
  68669. Function TSPApiData.GetSocialAnnouncementManagers : TSPSocialAnnouncementManagersEntitySet;
  68670. begin
  68671. If Not Assigned(FSocialAnnouncementManagers) then
  68672. FSocialAnnouncementManagers:=TSPSocialAnnouncementManagersEntitySet(CreateEntitySet(TSPSocialAnnouncementManagersEntitySet));
  68673. Result:=FSocialAnnouncementManagers;
  68674. end;
  68675. Function TSPApiData.CreateNewSocialFeedManagers : TSPSocialFeedManagersEntitySet;
  68676. begin
  68677. Result:=TSPSocialFeedManagersEntitySet(CreateEntitySet(TSPSocialFeedManagersEntitySet));
  68678. end;
  68679. Function TSPApiData.GetSocialFeedManagers : TSPSocialFeedManagersEntitySet;
  68680. begin
  68681. If Not Assigned(FSocialFeedManagers) then
  68682. FSocialFeedManagers:=TSPSocialFeedManagersEntitySet(CreateEntitySet(TSPSocialFeedManagersEntitySet));
  68683. Result:=FSocialFeedManagers;
  68684. end;
  68685. Function TSPApiData.CreateNewSocialFollowingManagers : TSPSocialFollowingManagersEntitySet;
  68686. begin
  68687. Result:=TSPSocialFollowingManagersEntitySet(CreateEntitySet(TSPSocialFollowingManagersEntitySet));
  68688. end;
  68689. Function TSPApiData.GetSocialFollowingManagers : TSPSocialFollowingManagersEntitySet;
  68690. begin
  68691. If Not Assigned(FSocialFollowingManagers) then
  68692. FSocialFollowingManagers:=TSPSocialFollowingManagersEntitySet(CreateEntitySet(TSPSocialFollowingManagersEntitySet));
  68693. Result:=FSocialFollowingManagers;
  68694. end;
  68695. Function TSPApiData.CreateNewSocialRestActors : TSPSocialRestActorsEntitySet;
  68696. begin
  68697. Result:=TSPSocialRestActorsEntitySet(CreateEntitySet(TSPSocialRestActorsEntitySet));
  68698. end;
  68699. Function TSPApiData.GetSocialRestActors : TSPSocialRestActorsEntitySet;
  68700. begin
  68701. If Not Assigned(FSocialRestActors) then
  68702. FSocialRestActors:=TSPSocialRestActorsEntitySet(CreateEntitySet(TSPSocialRestActorsEntitySet));
  68703. Result:=FSocialRestActors;
  68704. end;
  68705. Function TSPApiData.CreateNewSocialRestFeeds : TSPSocialRestFeedsEntitySet;
  68706. begin
  68707. Result:=TSPSocialRestFeedsEntitySet(CreateEntitySet(TSPSocialRestFeedsEntitySet));
  68708. end;
  68709. Function TSPApiData.GetSocialRestFeeds : TSPSocialRestFeedsEntitySet;
  68710. begin
  68711. If Not Assigned(FSocialRestFeeds) then
  68712. FSocialRestFeeds:=TSPSocialRestFeedsEntitySet(CreateEntitySet(TSPSocialRestFeedsEntitySet));
  68713. Result:=FSocialRestFeeds;
  68714. end;
  68715. Function TSPApiData.CreateNewSocialRestFeedManagers : TSPSocialRestFeedManagersEntitySet;
  68716. begin
  68717. Result:=TSPSocialRestFeedManagersEntitySet(CreateEntitySet(TSPSocialRestFeedManagersEntitySet));
  68718. end;
  68719. Function TSPApiData.GetSocialRestFeedManagers : TSPSocialRestFeedManagersEntitySet;
  68720. begin
  68721. If Not Assigned(FSocialRestFeedManagers) then
  68722. FSocialRestFeedManagers:=TSPSocialRestFeedManagersEntitySet(CreateEntitySet(TSPSocialRestFeedManagersEntitySet));
  68723. Result:=FSocialRestFeedManagers;
  68724. end;
  68725. Function TSPApiData.CreateNewSocialRestFollowingManagers : TSPSocialRestFollowingManagersEntitySet;
  68726. begin
  68727. Result:=TSPSocialRestFollowingManagersEntitySet(CreateEntitySet(TSPSocialRestFollowingManagersEntitySet));
  68728. end;
  68729. Function TSPApiData.GetSocialRestFollowingManagers : TSPSocialRestFollowingManagersEntitySet;
  68730. begin
  68731. If Not Assigned(FSocialRestFollowingManagers) then
  68732. FSocialRestFollowingManagers:=TSPSocialRestFollowingManagersEntitySet(CreateEntitySet(TSPSocialRestFollowingManagersEntitySet));
  68733. Result:=FSocialRestFollowingManagers;
  68734. end;
  68735. Function TSPApiData.CreateNewSocialRestThreads : TSPSocialRestThreadsEntitySet;
  68736. begin
  68737. Result:=TSPSocialRestThreadsEntitySet(CreateEntitySet(TSPSocialRestThreadsEntitySet));
  68738. end;
  68739. Function TSPApiData.GetSocialRestThreads : TSPSocialRestThreadsEntitySet;
  68740. begin
  68741. If Not Assigned(FSocialRestThreads) then
  68742. FSocialRestThreads:=TSPSocialRestThreadsEntitySet(CreateEntitySet(TSPSocialRestThreadsEntitySet));
  68743. Result:=FSocialRestThreads;
  68744. end;
  68745. Function TSPApiData.CreateNewSolutionExporters : TSPSolutionExportersEntitySet;
  68746. begin
  68747. Result:=TSPSolutionExportersEntitySet(CreateEntitySet(TSPSolutionExportersEntitySet));
  68748. end;
  68749. Function TSPApiData.GetSolutionExporters : TSPSolutionExportersEntitySet;
  68750. begin
  68751. If Not Assigned(FSolutionExporters) then
  68752. FSolutionExporters:=TSPSolutionExportersEntitySet(CreateEntitySet(TSPSolutionExportersEntitySet));
  68753. Result:=FSolutionExporters;
  68754. end;
  68755. Function TSPApiData.CreateNewSPAppLicenseManagers : TSPSPAppLicenseManagersEntitySet;
  68756. begin
  68757. Result:=TSPSPAppLicenseManagersEntitySet(CreateEntitySet(TSPSPAppLicenseManagersEntitySet));
  68758. end;
  68759. Function TSPApiData.GetSPAppLicenseManagers : TSPSPAppLicenseManagersEntitySet;
  68760. begin
  68761. If Not Assigned(FSPAppLicenseManagers) then
  68762. FSPAppLicenseManagers:=TSPSPAppLicenseManagersEntitySet(CreateEntitySet(TSPSPAppLicenseManagersEntitySet));
  68763. Result:=FSPAppLicenseManagers;
  68764. end;
  68765. Function TSPApiData.CreateNewSPDataLeakagePreventionStatusInfos : TSPSPDataLeakagePreventionStatusInfosEntitySet;
  68766. begin
  68767. Result:=TSPSPDataLeakagePreventionStatusInfosEntitySet(CreateEntitySet(TSPSPDataLeakagePreventionStatusInfosEntitySet));
  68768. end;
  68769. Function TSPApiData.GetSPDataLeakagePreventionStatusInfos : TSPSPDataLeakagePreventionStatusInfosEntitySet;
  68770. begin
  68771. If Not Assigned(FSPDataLeakagePreventionStatusInfos) then
  68772. FSPDataLeakagePreventionStatusInfos:=TSPSPDataLeakagePreventionStatusInfosEntitySet(CreateEntitySet(TSPSPDataLeakagePreventionStatusInfosEntitySet));
  68773. Result:=FSPDataLeakagePreventionStatusInfos;
  68774. end;
  68775. Function TSPApiData.CreateNewTenantAppInstances : TSPTenantAppInstancesEntitySet;
  68776. begin
  68777. Result:=TSPTenantAppInstancesEntitySet(CreateEntitySet(TSPTenantAppInstancesEntitySet));
  68778. end;
  68779. Function TSPApiData.GetTenantAppInstances : TSPTenantAppInstancesEntitySet;
  68780. begin
  68781. If Not Assigned(FTenantAppInstances) then
  68782. FTenantAppInstances:=TSPTenantAppInstancesEntitySet(CreateEntitySet(TSPTenantAppInstancesEntitySet));
  68783. Result:=FTenantAppInstances;
  68784. end;
  68785. Function TSPApiData.CreateNewTenantAppUtilitys : TSPTenantAppUtilitysEntitySet;
  68786. begin
  68787. Result:=TSPTenantAppUtilitysEntitySet(CreateEntitySet(TSPTenantAppUtilitysEntitySet));
  68788. end;
  68789. Function TSPApiData.GetTenantAppUtilitys : TSPTenantAppUtilitysEntitySet;
  68790. begin
  68791. If Not Assigned(FTenantAppUtilitys) then
  68792. FTenantAppUtilitys:=TSPTenantAppUtilitysEntitySet(CreateEntitySet(TSPTenantAppUtilitysEntitySet));
  68793. Result:=FTenantAppUtilitys;
  68794. end;
  68795. Function TSPApiData.CreateNewTenantSettingss : TSPTenantSettingssEntitySet;
  68796. begin
  68797. Result:=TSPTenantSettingssEntitySet(CreateEntitySet(TSPTenantSettingssEntitySet));
  68798. end;
  68799. Function TSPApiData.GetTenantSettingss : TSPTenantSettingssEntitySet;
  68800. begin
  68801. If Not Assigned(FTenantSettingss) then
  68802. FTenantSettingss:=TSPTenantSettingssEntitySet(CreateEntitySet(TSPTenantSettingssEntitySet));
  68803. Result:=FTenantSettingss;
  68804. end;
  68805. Function TSPApiData.CreateNewThemeInfos : TSPThemeInfosEntitySet;
  68806. begin
  68807. Result:=TSPThemeInfosEntitySet(CreateEntitySet(TSPThemeInfosEntitySet));
  68808. end;
  68809. Function TSPApiData.GetThemeInfos : TSPThemeInfosEntitySet;
  68810. begin
  68811. If Not Assigned(FThemeInfos) then
  68812. FThemeInfos:=TSPThemeInfosEntitySet(CreateEntitySet(TSPThemeInfosEntitySet));
  68813. Result:=FThemeInfos;
  68814. end;
  68815. Function TSPApiData.CreateNewTimeZones : TSPTimeZonesEntitySet;
  68816. begin
  68817. Result:=TSPTimeZonesEntitySet(CreateEntitySet(TSPTimeZonesEntitySet));
  68818. end;
  68819. Function TSPApiData.GetTimeZones : TSPTimeZonesEntitySet;
  68820. begin
  68821. If Not Assigned(FTimeZones) then
  68822. FTimeZones:=TSPTimeZonesEntitySet(CreateEntitySet(TSPTimeZonesEntitySet));
  68823. Result:=FTimeZones;
  68824. end;
  68825. Function TSPApiData.CreateNewSyncTranslators : TSPSyncTranslatorsEntitySet;
  68826. begin
  68827. Result:=TSPSyncTranslatorsEntitySet(CreateEntitySet(TSPSyncTranslatorsEntitySet));
  68828. end;
  68829. Function TSPApiData.GetSyncTranslators : TSPSyncTranslatorsEntitySet;
  68830. begin
  68831. If Not Assigned(FSyncTranslators) then
  68832. FSyncTranslators:=TSPSyncTranslatorsEntitySet(CreateEntitySet(TSPSyncTranslatorsEntitySet));
  68833. Result:=FSyncTranslators;
  68834. end;
  68835. Function TSPApiData.CreateNewTranslationJobs : TSPTranslationJobsEntitySet;
  68836. begin
  68837. Result:=TSPTranslationJobsEntitySet(CreateEntitySet(TSPTranslationJobsEntitySet));
  68838. end;
  68839. Function TSPApiData.GetTranslationJobs : TSPTranslationJobsEntitySet;
  68840. begin
  68841. If Not Assigned(FTranslationJobs) then
  68842. FTranslationJobs:=TSPTranslationJobsEntitySet(CreateEntitySet(TSPTranslationJobsEntitySet));
  68843. Result:=FTranslationJobs;
  68844. end;
  68845. Function TSPApiData.CreateNewTranslationJobStatuss : TSPTranslationJobStatussEntitySet;
  68846. begin
  68847. Result:=TSPTranslationJobStatussEntitySet(CreateEntitySet(TSPTranslationJobStatussEntitySet));
  68848. end;
  68849. Function TSPApiData.GetTranslationJobStatuss : TSPTranslationJobStatussEntitySet;
  68850. begin
  68851. If Not Assigned(FTranslationJobStatuss) then
  68852. FTranslationJobStatuss:=TSPTranslationJobStatussEntitySet(CreateEntitySet(TSPTranslationJobStatussEntitySet));
  68853. Result:=FTranslationJobStatuss;
  68854. end;
  68855. Function TSPApiData.CreateNewVariationsTranslationTimerJobs : TSPVariationsTranslationTimerJobsEntitySet;
  68856. begin
  68857. Result:=TSPVariationsTranslationTimerJobsEntitySet(CreateEntitySet(TSPVariationsTranslationTimerJobsEntitySet));
  68858. end;
  68859. Function TSPApiData.GetVariationsTranslationTimerJobs : TSPVariationsTranslationTimerJobsEntitySet;
  68860. begin
  68861. If Not Assigned(FVariationsTranslationTimerJobs) then
  68862. FVariationsTranslationTimerJobs:=TSPVariationsTranslationTimerJobsEntitySet(CreateEntitySet(TSPVariationsTranslationTimerJobsEntitySet));
  68863. Result:=FVariationsTranslationTimerJobs;
  68864. end;
  68865. Function TSPApiData.CreateNewTypeInformations : TSPTypeInformationsEntitySet;
  68866. begin
  68867. Result:=TSPTypeInformationsEntitySet(CreateEntitySet(TSPTypeInformationsEntitySet));
  68868. end;
  68869. Function TSPApiData.GetTypeInformations : TSPTypeInformationsEntitySet;
  68870. begin
  68871. If Not Assigned(FTypeInformations) then
  68872. FTypeInformations:=TSPTypeInformationsEntitySet(CreateEntitySet(TSPTypeInformationsEntitySet));
  68873. Result:=FTypeInformations;
  68874. end;
  68875. Function TSPApiData.CreateNewClientPeoplePickerWebServiceInterfaces : TSPClientPeoplePickerWebServiceInterfacesEntitySet;
  68876. begin
  68877. Result:=TSPClientPeoplePickerWebServiceInterfacesEntitySet(CreateEntitySet(TSPClientPeoplePickerWebServiceInterfacesEntitySet));
  68878. end;
  68879. Function TSPApiData.GetClientPeoplePickerWebServiceInterfaces : TSPClientPeoplePickerWebServiceInterfacesEntitySet;
  68880. begin
  68881. If Not Assigned(FClientPeoplePickerWebServiceInterfaces) then
  68882. FClientPeoplePickerWebServiceInterfaces:=TSPClientPeoplePickerWebServiceInterfacesEntitySet(CreateEntitySet(TSPClientPeoplePickerWebServiceInterfacesEntitySet));
  68883. Result:=FClientPeoplePickerWebServiceInterfaces;
  68884. end;
  68885. Function TSPApiData.CreateNewUsers1 : TSPUsers1EntitySet;
  68886. begin
  68887. Result:=TSPUsers1EntitySet(CreateEntitySet(TSPUsers1EntitySet));
  68888. end;
  68889. Function TSPApiData.GetUsers1 : TSPUsers1EntitySet;
  68890. begin
  68891. If Not Assigned(FUsers1) then
  68892. FUsers1:=TSPUsers1EntitySet(CreateEntitySet(TSPUsers1EntitySet));
  68893. Result:=FUsers1;
  68894. end;
  68895. Function TSPApiData.CreateNewUserCustomActions : TSPUserCustomActionsEntitySet;
  68896. begin
  68897. Result:=TSPUserCustomActionsEntitySet(CreateEntitySet(TSPUserCustomActionsEntitySet));
  68898. end;
  68899. Function TSPApiData.GetUserCustomActions : TSPUserCustomActionsEntitySet;
  68900. begin
  68901. If Not Assigned(FUserCustomActions) then
  68902. FUserCustomActions:=TSPUserCustomActionsEntitySet(CreateEntitySet(TSPUserCustomActionsEntitySet));
  68903. Result:=FUserCustomActions;
  68904. end;
  68905. Function TSPApiData.CreateNewFollowedContents : TSPFollowedContentsEntitySet;
  68906. begin
  68907. Result:=TSPFollowedContentsEntitySet(CreateEntitySet(TSPFollowedContentsEntitySet));
  68908. end;
  68909. Function TSPApiData.GetFollowedContents : TSPFollowedContentsEntitySet;
  68910. begin
  68911. If Not Assigned(FFollowedContents) then
  68912. FFollowedContents:=TSPFollowedContentsEntitySet(CreateEntitySet(TSPFollowedContentsEntitySet));
  68913. Result:=FFollowedContents;
  68914. end;
  68915. Function TSPApiData.CreateNewFollowedItemDatas : TSPFollowedItemDatasEntitySet;
  68916. begin
  68917. Result:=TSPFollowedItemDatasEntitySet(CreateEntitySet(TSPFollowedItemDatasEntitySet));
  68918. end;
  68919. Function TSPApiData.GetFollowedItemDatas : TSPFollowedItemDatasEntitySet;
  68920. begin
  68921. If Not Assigned(FFollowedItemDatas) then
  68922. FFollowedItemDatas:=TSPFollowedItemDatasEntitySet(CreateEntitySet(TSPFollowedItemDatasEntitySet));
  68923. Result:=FFollowedItemDatas;
  68924. end;
  68925. Function TSPApiData.CreateNewHashTagCollections : TSPHashTagCollectionsEntitySet;
  68926. begin
  68927. Result:=TSPHashTagCollectionsEntitySet(CreateEntitySet(TSPHashTagCollectionsEntitySet));
  68928. end;
  68929. Function TSPApiData.GetHashTagCollections : TSPHashTagCollectionsEntitySet;
  68930. begin
  68931. If Not Assigned(FHashTagCollections) then
  68932. FHashTagCollections:=TSPHashTagCollectionsEntitySet(CreateEntitySet(TSPHashTagCollectionsEntitySet));
  68933. Result:=FHashTagCollections;
  68934. end;
  68935. Function TSPApiData.CreateNewPeopleManagers : TSPPeopleManagersEntitySet;
  68936. begin
  68937. Result:=TSPPeopleManagersEntitySet(CreateEntitySet(TSPPeopleManagersEntitySet));
  68938. end;
  68939. Function TSPApiData.GetPeopleManagers : TSPPeopleManagersEntitySet;
  68940. begin
  68941. If Not Assigned(FPeopleManagers) then
  68942. FPeopleManagers:=TSPPeopleManagersEntitySet(CreateEntitySet(TSPPeopleManagersEntitySet));
  68943. Result:=FPeopleManagers;
  68944. end;
  68945. Function TSPApiData.CreateNewPersonPropertiess : TSPPersonPropertiessEntitySet;
  68946. begin
  68947. Result:=TSPPersonPropertiessEntitySet(CreateEntitySet(TSPPersonPropertiessEntitySet));
  68948. end;
  68949. Function TSPApiData.GetPersonPropertiess : TSPPersonPropertiessEntitySet;
  68950. begin
  68951. If Not Assigned(FPersonPropertiess) then
  68952. FPersonPropertiess:=TSPPersonPropertiessEntitySet(CreateEntitySet(TSPPersonPropertiessEntitySet));
  68953. Result:=FPersonPropertiess;
  68954. end;
  68955. Function TSPApiData.CreateNewProfileImageStores : TSPProfileImageStoresEntitySet;
  68956. begin
  68957. Result:=TSPProfileImageStoresEntitySet(CreateEntitySet(TSPProfileImageStoresEntitySet));
  68958. end;
  68959. Function TSPApiData.GetProfileImageStores : TSPProfileImageStoresEntitySet;
  68960. begin
  68961. If Not Assigned(FProfileImageStores) then
  68962. FProfileImageStores:=TSPProfileImageStoresEntitySet(CreateEntitySet(TSPProfileImageStoresEntitySet));
  68963. Result:=FProfileImageStores;
  68964. end;
  68965. Function TSPApiData.CreateNewProfileLoaders : TSPProfileLoadersEntitySet;
  68966. begin
  68967. Result:=TSPProfileLoadersEntitySet(CreateEntitySet(TSPProfileLoadersEntitySet));
  68968. end;
  68969. Function TSPApiData.GetProfileLoaders : TSPProfileLoadersEntitySet;
  68970. begin
  68971. If Not Assigned(FProfileLoaders) then
  68972. FProfileLoaders:=TSPProfileLoadersEntitySet(CreateEntitySet(TSPProfileLoadersEntitySet));
  68973. Result:=FProfileLoaders;
  68974. end;
  68975. Function TSPApiData.CreateNewUserProfiles : TSPUserProfilesEntitySet;
  68976. begin
  68977. Result:=TSPUserProfilesEntitySet(CreateEntitySet(TSPUserProfilesEntitySet));
  68978. end;
  68979. Function TSPApiData.GetUserProfiles : TSPUserProfilesEntitySet;
  68980. begin
  68981. If Not Assigned(FUserProfiles) then
  68982. FUserProfiles:=TSPUserProfilesEntitySet(CreateEntitySet(TSPUserProfilesEntitySet));
  68983. Result:=FUserProfiles;
  68984. end;
  68985. Function TSPApiData.CreateNewUserProfilePropertiesForUsers : TSPUserProfilePropertiesForUsersEntitySet;
  68986. begin
  68987. Result:=TSPUserProfilePropertiesForUsersEntitySet(CreateEntitySet(TSPUserProfilePropertiesForUsersEntitySet));
  68988. end;
  68989. Function TSPApiData.GetUserProfilePropertiesForUsers : TSPUserProfilePropertiesForUsersEntitySet;
  68990. begin
  68991. If Not Assigned(FUserProfilePropertiesForUsers) then
  68992. FUserProfilePropertiesForUsers:=TSPUserProfilePropertiesForUsersEntitySet(CreateEntitySet(TSPUserProfilePropertiesForUsersEntitySet));
  68993. Result:=FUserProfilePropertiesForUsers;
  68994. end;
  68995. Function TSPApiData.CreateNewUserResources : TSPUserResourcesEntitySet;
  68996. begin
  68997. Result:=TSPUserResourcesEntitySet(CreateEntitySet(TSPUserResourcesEntitySet));
  68998. end;
  68999. Function TSPApiData.GetUserResources : TSPUserResourcesEntitySet;
  69000. begin
  69001. If Not Assigned(FUserResources) then
  69002. FUserResources:=TSPUserResourcesEntitySet(CreateEntitySet(TSPUserResourcesEntitySet));
  69003. Result:=FUserResources;
  69004. end;
  69005. Function TSPApiData.CreateNewUserSolutions : TSPUserSolutionsEntitySet;
  69006. begin
  69007. Result:=TSPUserSolutionsEntitySet(CreateEntitySet(TSPUserSolutionsEntitySet));
  69008. end;
  69009. Function TSPApiData.GetUserSolutions : TSPUserSolutionsEntitySet;
  69010. begin
  69011. If Not Assigned(FUserSolutions) then
  69012. FUserSolutions:=TSPUserSolutionsEntitySet(CreateEntitySet(TSPUserSolutionsEntitySet));
  69013. Result:=FUserSolutions;
  69014. end;
  69015. Function TSPApiData.CreateNewMarketplaceUtilitiess : TSPMarketplaceUtilitiessEntitySet;
  69016. begin
  69017. Result:=TSPMarketplaceUtilitiessEntitySet(CreateEntitySet(TSPMarketplaceUtilitiessEntitySet));
  69018. end;
  69019. Function TSPApiData.GetMarketplaceUtilitiess : TSPMarketplaceUtilitiessEntitySet;
  69020. begin
  69021. If Not Assigned(FMarketplaceUtilitiess) then
  69022. FMarketplaceUtilitiess:=TSPMarketplaceUtilitiessEntitySet(CreateEntitySet(TSPMarketplaceUtilitiessEntitySet));
  69023. Result:=FMarketplaceUtilitiess;
  69024. end;
  69025. Function TSPApiData.CreateNewUtilitys : TSPUtilitysEntitySet;
  69026. begin
  69027. Result:=TSPUtilitysEntitySet(CreateEntitySet(TSPUtilitysEntitySet));
  69028. end;
  69029. Function TSPApiData.GetUtilitys : TSPUtilitysEntitySet;
  69030. begin
  69031. If Not Assigned(FUtilitys) then
  69032. FUtilitys:=TSPUtilitysEntitySet(CreateEntitySet(TSPUtilitysEntitySet));
  69033. Result:=FUtilitys;
  69034. end;
  69035. Function TSPApiData.CreateNewViews : TSPViewsEntitySet;
  69036. begin
  69037. Result:=TSPViewsEntitySet(CreateEntitySet(TSPViewsEntitySet));
  69038. end;
  69039. Function TSPApiData.GetViews : TSPViewsEntitySet;
  69040. begin
  69041. If Not Assigned(FViews) then
  69042. FViews:=TSPViewsEntitySet(CreateEntitySet(TSPViewsEntitySet));
  69043. Result:=FViews;
  69044. end;
  69045. Function TSPApiData.CreateNewViewFieldCollections : TSPViewFieldCollectionsEntitySet;
  69046. begin
  69047. Result:=TSPViewFieldCollectionsEntitySet(CreateEntitySet(TSPViewFieldCollectionsEntitySet));
  69048. end;
  69049. Function TSPApiData.GetViewFieldCollections : TSPViewFieldCollectionsEntitySet;
  69050. begin
  69051. If Not Assigned(FViewFieldCollections) then
  69052. FViewFieldCollections:=TSPViewFieldCollectionsEntitySet(CreateEntitySet(TSPViewFieldCollectionsEntitySet));
  69053. Result:=FViewFieldCollections;
  69054. end;
  69055. Function TSPApiData.CreateNewWebInformations : TSPWebInformationsEntitySet;
  69056. begin
  69057. Result:=TSPWebInformationsEntitySet(CreateEntitySet(TSPWebInformationsEntitySet));
  69058. end;
  69059. Function TSPApiData.GetWebInformations : TSPWebInformationsEntitySet;
  69060. begin
  69061. If Not Assigned(FWebInformations) then
  69062. FWebInformations:=TSPWebInformationsEntitySet(CreateEntitySet(TSPWebInformationsEntitySet));
  69063. Result:=FWebInformations;
  69064. end;
  69065. Function TSPApiData.CreateNewLimitedWebPartManagers : TSPLimitedWebPartManagersEntitySet;
  69066. begin
  69067. Result:=TSPLimitedWebPartManagersEntitySet(CreateEntitySet(TSPLimitedWebPartManagersEntitySet));
  69068. end;
  69069. Function TSPApiData.GetLimitedWebPartManagers : TSPLimitedWebPartManagersEntitySet;
  69070. begin
  69071. If Not Assigned(FLimitedWebPartManagers) then
  69072. FLimitedWebPartManagers:=TSPLimitedWebPartManagersEntitySet(CreateEntitySet(TSPLimitedWebPartManagersEntitySet));
  69073. Result:=FLimitedWebPartManagers;
  69074. end;
  69075. Function TSPApiData.CreateNewWebParts : TSPWebPartsEntitySet;
  69076. begin
  69077. Result:=TSPWebPartsEntitySet(CreateEntitySet(TSPWebPartsEntitySet));
  69078. end;
  69079. Function TSPApiData.GetWebParts : TSPWebPartsEntitySet;
  69080. begin
  69081. If Not Assigned(FWebParts) then
  69082. FWebParts:=TSPWebPartsEntitySet(CreateEntitySet(TSPWebPartsEntitySet));
  69083. Result:=FWebParts;
  69084. end;
  69085. Function TSPApiData.CreateNewWebPartDefinitions : TSPWebPartDefinitionsEntitySet;
  69086. begin
  69087. Result:=TSPWebPartDefinitionsEntitySet(CreateEntitySet(TSPWebPartDefinitionsEntitySet));
  69088. end;
  69089. Function TSPApiData.GetWebPartDefinitions : TSPWebPartDefinitionsEntitySet;
  69090. begin
  69091. If Not Assigned(FWebPartDefinitions) then
  69092. FWebPartDefinitions:=TSPWebPartDefinitionsEntitySet(CreateEntitySet(TSPWebPartDefinitionsEntitySet));
  69093. Result:=FWebPartDefinitions;
  69094. end;
  69095. Function TSPApiData.CreateNewWebProxys : TSPWebProxysEntitySet;
  69096. begin
  69097. Result:=TSPWebProxysEntitySet(CreateEntitySet(TSPWebProxysEntitySet));
  69098. end;
  69099. Function TSPApiData.GetWebProxys : TSPWebProxysEntitySet;
  69100. begin
  69101. If Not Assigned(FWebProxys) then
  69102. FWebProxys:=TSPWebProxysEntitySet(CreateEntitySet(TSPWebProxysEntitySet));
  69103. Result:=FWebProxys;
  69104. end;
  69105. Function TSPApiData.CreateNewWebTemplates : TSPWebTemplatesEntitySet;
  69106. begin
  69107. Result:=TSPWebTemplatesEntitySet(CreateEntitySet(TSPWebTemplatesEntitySet));
  69108. end;
  69109. Function TSPApiData.GetWebTemplates : TSPWebTemplatesEntitySet;
  69110. begin
  69111. If Not Assigned(FWebTemplates) then
  69112. FWebTemplates:=TSPWebTemplatesEntitySet(CreateEntitySet(TSPWebTemplatesEntitySet));
  69113. Result:=FWebTemplates;
  69114. end;
  69115. Function TSPApiData.CreateNewSPWorkflows : TSPSPWorkflowsEntitySet;
  69116. begin
  69117. Result:=TSPSPWorkflowsEntitySet(CreateEntitySet(TSPSPWorkflowsEntitySet));
  69118. end;
  69119. Function TSPApiData.GetSPWorkflows : TSPSPWorkflowsEntitySet;
  69120. begin
  69121. If Not Assigned(FSPWorkflows) then
  69122. FSPWorkflows:=TSPSPWorkflowsEntitySet(CreateEntitySet(TSPSPWorkflowsEntitySet));
  69123. Result:=FSPWorkflows;
  69124. end;
  69125. Function TSPApiData.CreateNewSPWorkflowManagers : TSPSPWorkflowManagersEntitySet;
  69126. begin
  69127. Result:=TSPSPWorkflowManagersEntitySet(CreateEntitySet(TSPSPWorkflowManagersEntitySet));
  69128. end;
  69129. Function TSPApiData.GetSPWorkflowManagers : TSPSPWorkflowManagersEntitySet;
  69130. begin
  69131. If Not Assigned(FSPWorkflowManagers) then
  69132. FSPWorkflowManagers:=TSPSPWorkflowManagersEntitySet(CreateEntitySet(TSPSPWorkflowManagersEntitySet));
  69133. Result:=FSPWorkflowManagers;
  69134. end;
  69135. Function TSPApiData.CreateNewWorkflowAssociations : TSPWorkflowAssociationsEntitySet;
  69136. begin
  69137. Result:=TSPWorkflowAssociationsEntitySet(CreateEntitySet(TSPWorkflowAssociationsEntitySet));
  69138. end;
  69139. Function TSPApiData.GetWorkflowAssociations : TSPWorkflowAssociationsEntitySet;
  69140. begin
  69141. If Not Assigned(FWorkflowAssociations) then
  69142. FWorkflowAssociations:=TSPWorkflowAssociationsEntitySet(CreateEntitySet(TSPWorkflowAssociationsEntitySet));
  69143. Result:=FWorkflowAssociations;
  69144. end;
  69145. Function TSPApiData.CreateNewWorkflowTemplates : TSPWorkflowTemplatesEntitySet;
  69146. begin
  69147. Result:=TSPWorkflowTemplatesEntitySet(CreateEntitySet(TSPWorkflowTemplatesEntitySet));
  69148. end;
  69149. Function TSPApiData.GetWorkflowTemplates : TSPWorkflowTemplatesEntitySet;
  69150. begin
  69151. If Not Assigned(FWorkflowTemplates) then
  69152. FWorkflowTemplates:=TSPWorkflowTemplatesEntitySet(CreateEntitySet(TSPWorkflowTemplatesEntitySet));
  69153. Result:=FWorkflowTemplates;
  69154. end;
  69155. Function TSPApiData.CreateNewInteropServices : TSPInteropServicesEntitySet;
  69156. begin
  69157. Result:=TSPInteropServicesEntitySet(CreateEntitySet(TSPInteropServicesEntitySet));
  69158. end;
  69159. Function TSPApiData.GetInteropServices : TSPInteropServicesEntitySet;
  69160. begin
  69161. If Not Assigned(FInteropServices) then
  69162. FInteropServices:=TSPInteropServicesEntitySet(CreateEntitySet(TSPInteropServicesEntitySet));
  69163. Result:=FInteropServices;
  69164. end;
  69165. Function TSPApiData.CreateNewWorkflowDefinitions : TSPWorkflowDefinitionsEntitySet;
  69166. begin
  69167. Result:=TSPWorkflowDefinitionsEntitySet(CreateEntitySet(TSPWorkflowDefinitionsEntitySet));
  69168. end;
  69169. Function TSPApiData.GetWorkflowDefinitions : TSPWorkflowDefinitionsEntitySet;
  69170. begin
  69171. If Not Assigned(FWorkflowDefinitions) then
  69172. FWorkflowDefinitions:=TSPWorkflowDefinitionsEntitySet(CreateEntitySet(TSPWorkflowDefinitionsEntitySet));
  69173. Result:=FWorkflowDefinitions;
  69174. end;
  69175. Function TSPApiData.CreateNewWorkflowDeploymentServices : TSPWorkflowDeploymentServicesEntitySet;
  69176. begin
  69177. Result:=TSPWorkflowDeploymentServicesEntitySet(CreateEntitySet(TSPWorkflowDeploymentServicesEntitySet));
  69178. end;
  69179. Function TSPApiData.GetWorkflowDeploymentServices : TSPWorkflowDeploymentServicesEntitySet;
  69180. begin
  69181. If Not Assigned(FWorkflowDeploymentServices) then
  69182. FWorkflowDeploymentServices:=TSPWorkflowDeploymentServicesEntitySet(CreateEntitySet(TSPWorkflowDeploymentServicesEntitySet));
  69183. Result:=FWorkflowDeploymentServices;
  69184. end;
  69185. Function TSPApiData.CreateNewWorkflowInstances : TSPWorkflowInstancesEntitySet;
  69186. begin
  69187. Result:=TSPWorkflowInstancesEntitySet(CreateEntitySet(TSPWorkflowInstancesEntitySet));
  69188. end;
  69189. Function TSPApiData.GetWorkflowInstances : TSPWorkflowInstancesEntitySet;
  69190. begin
  69191. If Not Assigned(FWorkflowInstances) then
  69192. FWorkflowInstances:=TSPWorkflowInstancesEntitySet(CreateEntitySet(TSPWorkflowInstancesEntitySet));
  69193. Result:=FWorkflowInstances;
  69194. end;
  69195. Function TSPApiData.CreateNewWorkflowInstanceServices : TSPWorkflowInstanceServicesEntitySet;
  69196. begin
  69197. Result:=TSPWorkflowInstanceServicesEntitySet(CreateEntitySet(TSPWorkflowInstanceServicesEntitySet));
  69198. end;
  69199. Function TSPApiData.GetWorkflowInstanceServices : TSPWorkflowInstanceServicesEntitySet;
  69200. begin
  69201. If Not Assigned(FWorkflowInstanceServices) then
  69202. FWorkflowInstanceServices:=TSPWorkflowInstanceServicesEntitySet(CreateEntitySet(TSPWorkflowInstanceServicesEntitySet));
  69203. Result:=FWorkflowInstanceServices;
  69204. end;
  69205. Function TSPApiData.CreateNewWorkflowMessagingServices : TSPWorkflowMessagingServicesEntitySet;
  69206. begin
  69207. Result:=TSPWorkflowMessagingServicesEntitySet(CreateEntitySet(TSPWorkflowMessagingServicesEntitySet));
  69208. end;
  69209. Function TSPApiData.GetWorkflowMessagingServices : TSPWorkflowMessagingServicesEntitySet;
  69210. begin
  69211. If Not Assigned(FWorkflowMessagingServices) then
  69212. FWorkflowMessagingServices:=TSPWorkflowMessagingServicesEntitySet(CreateEntitySet(TSPWorkflowMessagingServicesEntitySet));
  69213. Result:=FWorkflowMessagingServices;
  69214. end;
  69215. Function TSPApiData.CreateNewWorkflowServicesManagers : TSPWorkflowServicesManagersEntitySet;
  69216. begin
  69217. Result:=TSPWorkflowServicesManagersEntitySet(CreateEntitySet(TSPWorkflowServicesManagersEntitySet));
  69218. end;
  69219. Function TSPApiData.GetWorkflowServicesManagers : TSPWorkflowServicesManagersEntitySet;
  69220. begin
  69221. If Not Assigned(FWorkflowServicesManagers) then
  69222. FWorkflowServicesManagers:=TSPWorkflowServicesManagersEntitySet(CreateEntitySet(TSPWorkflowServicesManagersEntitySet));
  69223. Result:=FWorkflowServicesManagers;
  69224. end;
  69225. Function TSPApiData.CreateNewWorkflowSubscriptions : TSPWorkflowSubscriptionsEntitySet;
  69226. begin
  69227. Result:=TSPWorkflowSubscriptionsEntitySet(CreateEntitySet(TSPWorkflowSubscriptionsEntitySet));
  69228. end;
  69229. Function TSPApiData.GetWorkflowSubscriptions : TSPWorkflowSubscriptionsEntitySet;
  69230. begin
  69231. If Not Assigned(FWorkflowSubscriptions) then
  69232. FWorkflowSubscriptions:=TSPWorkflowSubscriptionsEntitySet(CreateEntitySet(TSPWorkflowSubscriptionsEntitySet));
  69233. Result:=FWorkflowSubscriptions;
  69234. end;
  69235. Function TSPApiData.CreateNewWorkflowSubscriptionServices : TSPWorkflowSubscriptionServicesEntitySet;
  69236. begin
  69237. Result:=TSPWorkflowSubscriptionServicesEntitySet(CreateEntitySet(TSPWorkflowSubscriptionServicesEntitySet));
  69238. end;
  69239. Function TSPApiData.GetWorkflowSubscriptionServices : TSPWorkflowSubscriptionServicesEntitySet;
  69240. begin
  69241. If Not Assigned(FWorkflowSubscriptionServices) then
  69242. FWorkflowSubscriptionServices:=TSPWorkflowSubscriptionServicesEntitySet(CreateEntitySet(TSPWorkflowSubscriptionServicesEntitySet));
  69243. Result:=FWorkflowSubscriptionServices;
  69244. end;
  69245. Function TSPApiData.CreateNewBaseSessions : TSPBaseSessionsEntitySet;
  69246. begin
  69247. Result:=TSPBaseSessionsEntitySet(CreateEntitySet(TSPBaseSessionsEntitySet));
  69248. end;
  69249. Function TSPApiData.GetBaseSessions : TSPBaseSessionsEntitySet;
  69250. begin
  69251. If Not Assigned(FBaseSessions) then
  69252. FBaseSessions:=TSPBaseSessionsEntitySet(CreateEntitySet(TSPBaseSessionsEntitySet));
  69253. Result:=FBaseSessions;
  69254. end;
  69255. Function TSPApiData.CreateNewBooleanCriterions : TSPBooleanCriterionsEntitySet;
  69256. begin
  69257. Result:=TSPBooleanCriterionsEntitySet(CreateEntitySet(TSPBooleanCriterionsEntitySet));
  69258. end;
  69259. Function TSPApiData.GetBooleanCriterions : TSPBooleanCriterionsEntitySet;
  69260. begin
  69261. If Not Assigned(FBooleanCriterions) then
  69262. FBooleanCriterions:=TSPBooleanCriterionsEntitySet(CreateEntitySet(TSPBooleanCriterionsEntitySet));
  69263. Result:=FBooleanCriterions;
  69264. end;
  69265. Function TSPApiData.CreateNewCalloutInfos : TSPCalloutInfosEntitySet;
  69266. begin
  69267. Result:=TSPCalloutInfosEntitySet(CreateEntitySet(TSPCalloutInfosEntitySet));
  69268. end;
  69269. Function TSPApiData.GetCalloutInfos : TSPCalloutInfosEntitySet;
  69270. begin
  69271. If Not Assigned(FCalloutInfos) then
  69272. FCalloutInfos:=TSPCalloutInfosEntitySet(CreateEntitySet(TSPCalloutInfosEntitySet));
  69273. Result:=FCalloutInfos;
  69274. end;
  69275. Function TSPApiData.CreateNewCreateRefreshJobResults : TSPCreateRefreshJobResultsEntitySet;
  69276. begin
  69277. Result:=TSPCreateRefreshJobResultsEntitySet(CreateEntitySet(TSPCreateRefreshJobResultsEntitySet));
  69278. end;
  69279. Function TSPApiData.GetCreateRefreshJobResults : TSPCreateRefreshJobResultsEntitySet;
  69280. begin
  69281. If Not Assigned(FCreateRefreshJobResults) then
  69282. FCreateRefreshJobResults:=TSPCreateRefreshJobResultsEntitySet(CreateEntitySet(TSPCreateRefreshJobResultsEntitySet));
  69283. Result:=FCreateRefreshJobResults;
  69284. end;
  69285. Function TSPApiData.CreateNewCustomAttributeFilters : TSPCustomAttributeFiltersEntitySet;
  69286. begin
  69287. Result:=TSPCustomAttributeFiltersEntitySet(CreateEntitySet(TSPCustomAttributeFiltersEntitySet));
  69288. end;
  69289. Function TSPApiData.GetCustomAttributeFilters : TSPCustomAttributeFiltersEntitySet;
  69290. begin
  69291. If Not Assigned(FCustomAttributeFilters) then
  69292. FCustomAttributeFilters:=TSPCustomAttributeFiltersEntitySet(CreateEntitySet(TSPCustomAttributeFiltersEntitySet));
  69293. Result:=FCustomAttributeFilters;
  69294. end;
  69295. Function TSPApiData.CreateNewDashboardScriptExtensionInfos : TSPDashboardScriptExtensionInfosEntitySet;
  69296. begin
  69297. Result:=TSPDashboardScriptExtensionInfosEntitySet(CreateEntitySet(TSPDashboardScriptExtensionInfosEntitySet));
  69298. end;
  69299. Function TSPApiData.GetDashboardScriptExtensionInfos : TSPDashboardScriptExtensionInfosEntitySet;
  69300. begin
  69301. If Not Assigned(FDashboardScriptExtensionInfos) then
  69302. FDashboardScriptExtensionInfos:=TSPDashboardScriptExtensionInfosEntitySet(CreateEntitySet(TSPDashboardScriptExtensionInfosEntitySet));
  69303. Result:=FDashboardScriptExtensionInfos;
  69304. end;
  69305. Function TSPApiData.CreateNewDateRangeCriterions : TSPDateRangeCriterionsEntitySet;
  69306. begin
  69307. Result:=TSPDateRangeCriterionsEntitySet(CreateEntitySet(TSPDateRangeCriterionsEntitySet));
  69308. end;
  69309. Function TSPApiData.GetDateRangeCriterions : TSPDateRangeCriterionsEntitySet;
  69310. begin
  69311. If Not Assigned(FDateRangeCriterions) then
  69312. FDateRangeCriterions:=TSPDateRangeCriterionsEntitySet(CreateEntitySet(TSPDateRangeCriterionsEntitySet));
  69313. Result:=FDateRangeCriterions;
  69314. end;
  69315. Function TSPApiData.CreateNewExchangeUserSyncStates : TSPExchangeUserSyncStatesEntitySet;
  69316. begin
  69317. Result:=TSPExchangeUserSyncStatesEntitySet(CreateEntitySet(TSPExchangeUserSyncStatesEntitySet));
  69318. end;
  69319. Function TSPApiData.GetExchangeUserSyncStates : TSPExchangeUserSyncStatesEntitySet;
  69320. begin
  69321. If Not Assigned(FExchangeUserSyncStates) then
  69322. FExchangeUserSyncStates:=TSPExchangeUserSyncStatesEntitySet(CreateEntitySet(TSPExchangeUserSyncStatesEntitySet));
  69323. Result:=FExchangeUserSyncStates;
  69324. end;
  69325. Function TSPApiData.CreateNewLocations : TSPLocationsEntitySet;
  69326. begin
  69327. Result:=TSPLocationsEntitySet(CreateEntitySet(TSPLocationsEntitySet));
  69328. end;
  69329. Function TSPApiData.GetLocations : TSPLocationsEntitySet;
  69330. begin
  69331. If Not Assigned(FLocations) then
  69332. FLocations:=TSPLocationsEntitySet(CreateEntitySet(TSPLocationsEntitySet));
  69333. Result:=FLocations;
  69334. end;
  69335. Function TSPApiData.CreateNewLocationDisplaySettings : TSPLocationDisplaySettingsEntitySet;
  69336. begin
  69337. Result:=TSPLocationDisplaySettingsEntitySet(CreateEntitySet(TSPLocationDisplaySettingsEntitySet));
  69338. end;
  69339. Function TSPApiData.GetLocationDisplaySettings : TSPLocationDisplaySettingsEntitySet;
  69340. begin
  69341. If Not Assigned(FLocationDisplaySettings) then
  69342. FLocationDisplaySettings:=TSPLocationDisplaySettingsEntitySet(CreateEntitySet(TSPLocationDisplaySettingsEntitySet));
  69343. Result:=FLocationDisplaySettings;
  69344. end;
  69345. Function TSPApiData.CreateNewLocationFilters : TSPLocationFiltersEntitySet;
  69346. begin
  69347. Result:=TSPLocationFiltersEntitySet(CreateEntitySet(TSPLocationFiltersEntitySet));
  69348. end;
  69349. Function TSPApiData.GetLocationFilters : TSPLocationFiltersEntitySet;
  69350. begin
  69351. If Not Assigned(FLocationFilters) then
  69352. FLocationFilters:=TSPLocationFiltersEntitySet(CreateEntitySet(TSPLocationFiltersEntitySet));
  69353. Result:=FLocationFilters;
  69354. end;
  69355. Function TSPApiData.CreateNewLocationUpdateResults : TSPLocationUpdateResultsEntitySet;
  69356. begin
  69357. Result:=TSPLocationUpdateResultsEntitySet(CreateEntitySet(TSPLocationUpdateResultsEntitySet));
  69358. end;
  69359. Function TSPApiData.GetLocationUpdateResults : TSPLocationUpdateResultsEntitySet;
  69360. begin
  69361. If Not Assigned(FLocationUpdateResults) then
  69362. FLocationUpdateResults:=TSPLocationUpdateResultsEntitySet(CreateEntitySet(TSPLocationUpdateResultsEntitySet));
  69363. Result:=FLocationUpdateResults;
  69364. end;
  69365. Function TSPApiData.CreateNewNameCriterions : TSPNameCriterionsEntitySet;
  69366. begin
  69367. Result:=TSPNameCriterionsEntitySet(CreateEntitySet(TSPNameCriterionsEntitySet));
  69368. end;
  69369. Function TSPApiData.GetNameCriterions : TSPNameCriterionsEntitySet;
  69370. begin
  69371. If Not Assigned(FNameCriterions) then
  69372. FNameCriterions:=TSPNameCriterionsEntitySet(CreateEntitySet(TSPNameCriterionsEntitySet));
  69373. Result:=FNameCriterions;
  69374. end;
  69375. Function TSPApiData.CreateNewNonTaskDataReadResults : TSPNonTaskDataReadResultsEntitySet;
  69376. begin
  69377. Result:=TSPNonTaskDataReadResultsEntitySet(CreateEntitySet(TSPNonTaskDataReadResultsEntitySet));
  69378. end;
  69379. Function TSPApiData.GetNonTaskDataReadResults : TSPNonTaskDataReadResultsEntitySet;
  69380. begin
  69381. If Not Assigned(FNonTaskDataReadResults) then
  69382. FNonTaskDataReadResults:=TSPNonTaskDataReadResultsEntitySet(CreateEntitySet(TSPNonTaskDataReadResultsEntitySet));
  69383. Result:=FNonTaskDataReadResults;
  69384. end;
  69385. Function TSPApiData.CreateNewOrderInfos : TSPOrderInfosEntitySet;
  69386. begin
  69387. Result:=TSPOrderInfosEntitySet(CreateEntitySet(TSPOrderInfosEntitySet));
  69388. end;
  69389. Function TSPApiData.GetOrderInfos : TSPOrderInfosEntitySet;
  69390. begin
  69391. If Not Assigned(FOrderInfos) then
  69392. FOrderInfos:=TSPOrderInfosEntitySet(CreateEntitySet(TSPOrderInfosEntitySet));
  69393. Result:=FOrderInfos;
  69394. end;
  69395. Function TSPApiData.CreateNewPersistedPropertiess : TSPPersistedPropertiessEntitySet;
  69396. begin
  69397. Result:=TSPPersistedPropertiessEntitySet(CreateEntitySet(TSPPersistedPropertiessEntitySet));
  69398. end;
  69399. Function TSPApiData.GetPersistedPropertiess : TSPPersistedPropertiessEntitySet;
  69400. begin
  69401. If Not Assigned(FPersistedPropertiess) then
  69402. FPersistedPropertiess:=TSPPersistedPropertiessEntitySet(CreateEntitySet(TSPPersistedPropertiessEntitySet));
  69403. Result:=FPersistedPropertiess;
  69404. end;
  69405. Function TSPApiData.CreateNewProviderErrorInfos : TSPProviderErrorInfosEntitySet;
  69406. begin
  69407. Result:=TSPProviderErrorInfosEntitySet(CreateEntitySet(TSPProviderErrorInfosEntitySet));
  69408. end;
  69409. Function TSPApiData.GetProviderErrorInfos : TSPProviderErrorInfosEntitySet;
  69410. begin
  69411. If Not Assigned(FProviderErrorInfos) then
  69412. FProviderErrorInfos:=TSPProviderErrorInfosEntitySet(CreateEntitySet(TSPProviderErrorInfosEntitySet));
  69413. Result:=FProviderErrorInfos;
  69414. end;
  69415. Function TSPApiData.CreateNewProviderRefreshStatuss : TSPProviderRefreshStatussEntitySet;
  69416. begin
  69417. Result:=TSPProviderRefreshStatussEntitySet(CreateEntitySet(TSPProviderRefreshStatussEntitySet));
  69418. end;
  69419. Function TSPApiData.GetProviderRefreshStatuss : TSPProviderRefreshStatussEntitySet;
  69420. begin
  69421. If Not Assigned(FProviderRefreshStatuss) then
  69422. FProviderRefreshStatuss:=TSPProviderRefreshStatussEntitySet(CreateEntitySet(TSPProviderRefreshStatussEntitySet));
  69423. Result:=FProviderRefreshStatuss;
  69424. end;
  69425. Function TSPApiData.CreateNewRefreshHealthInfos : TSPRefreshHealthInfosEntitySet;
  69426. begin
  69427. Result:=TSPRefreshHealthInfosEntitySet(CreateEntitySet(TSPRefreshHealthInfosEntitySet));
  69428. end;
  69429. Function TSPApiData.GetRefreshHealthInfos : TSPRefreshHealthInfosEntitySet;
  69430. begin
  69431. If Not Assigned(FRefreshHealthInfos) then
  69432. FRefreshHealthInfos:=TSPRefreshHealthInfosEntitySet(CreateEntitySet(TSPRefreshHealthInfosEntitySet));
  69433. Result:=FRefreshHealthInfos;
  69434. end;
  69435. Function TSPApiData.CreateNewRefreshHistorys : TSPRefreshHistorysEntitySet;
  69436. begin
  69437. Result:=TSPRefreshHistorysEntitySet(CreateEntitySet(TSPRefreshHistorysEntitySet));
  69438. end;
  69439. Function TSPApiData.GetRefreshHistorys : TSPRefreshHistorysEntitySet;
  69440. begin
  69441. If Not Assigned(FRefreshHistorys) then
  69442. FRefreshHistorys:=TSPRefreshHistorysEntitySet(CreateEntitySet(TSPRefreshHistorysEntitySet));
  69443. Result:=FRefreshHistorys;
  69444. end;
  69445. Function TSPApiData.CreateNewRefreshResults : TSPRefreshResultsEntitySet;
  69446. begin
  69447. Result:=TSPRefreshResultsEntitySet(CreateEntitySet(TSPRefreshResultsEntitySet));
  69448. end;
  69449. Function TSPApiData.GetRefreshResults : TSPRefreshResultsEntitySet;
  69450. begin
  69451. If Not Assigned(FRefreshResults) then
  69452. FRefreshResults:=TSPRefreshResultsEntitySet(CreateEntitySet(TSPRefreshResultsEntitySet));
  69453. Result:=FRefreshResults;
  69454. end;
  69455. Function TSPApiData.CreateNewSortableSessionManagers : TSPSortableSessionManagersEntitySet;
  69456. begin
  69457. Result:=TSPSortableSessionManagersEntitySet(CreateEntitySet(TSPSortableSessionManagersEntitySet));
  69458. end;
  69459. Function TSPApiData.GetSortableSessionManagers : TSPSortableSessionManagersEntitySet;
  69460. begin
  69461. If Not Assigned(FSortableSessionManagers) then
  69462. FSortableSessionManagers:=TSPSortableSessionManagersEntitySet(CreateEntitySet(TSPSortableSessionManagersEntitySet));
  69463. Result:=FSortableSessionManagers;
  69464. end;
  69465. Function TSPApiData.CreateNewSortableTaskQuerys : TSPSortableTaskQuerysEntitySet;
  69466. begin
  69467. Result:=TSPSortableTaskQuerysEntitySet(CreateEntitySet(TSPSortableTaskQuerysEntitySet));
  69468. end;
  69469. Function TSPApiData.GetSortableTaskQuerys : TSPSortableTaskQuerysEntitySet;
  69470. begin
  69471. If Not Assigned(FSortableTaskQuerys) then
  69472. FSortableTaskQuerys:=TSPSortableTaskQuerysEntitySet(CreateEntitySet(TSPSortableTaskQuerysEntitySet));
  69473. Result:=FSortableTaskQuerys;
  69474. end;
  69475. Function TSPApiData.CreateNewTasks1 : TSPTasks1EntitySet;
  69476. begin
  69477. Result:=TSPTasks1EntitySet(CreateEntitySet(TSPTasks1EntitySet));
  69478. end;
  69479. Function TSPApiData.GetTasks1 : TSPTasks1EntitySet;
  69480. begin
  69481. If Not Assigned(FTasks1) then
  69482. FTasks1:=TSPTasks1EntitySet(CreateEntitySet(TSPTasks1EntitySet));
  69483. Result:=FTasks1;
  69484. end;
  69485. Function TSPApiData.CreateNewTaskFilters : TSPTaskFiltersEntitySet;
  69486. begin
  69487. Result:=TSPTaskFiltersEntitySet(CreateEntitySet(TSPTaskFiltersEntitySet));
  69488. end;
  69489. Function TSPApiData.GetTaskFilters : TSPTaskFiltersEntitySet;
  69490. begin
  69491. If Not Assigned(FTaskFilters) then
  69492. FTaskFilters:=TSPTaskFiltersEntitySet(CreateEntitySet(TSPTaskFiltersEntitySet));
  69493. Result:=FTaskFilters;
  69494. end;
  69495. Function TSPApiData.CreateNewTaskQuerys : TSPTaskQuerysEntitySet;
  69496. begin
  69497. Result:=TSPTaskQuerysEntitySet(CreateEntitySet(TSPTaskQuerysEntitySet));
  69498. end;
  69499. Function TSPApiData.GetTaskQuerys : TSPTaskQuerysEntitySet;
  69500. begin
  69501. If Not Assigned(FTaskQuerys) then
  69502. FTaskQuerys:=TSPTaskQuerysEntitySet(CreateEntitySet(TSPTaskQuerysEntitySet));
  69503. Result:=FTaskQuerys;
  69504. end;
  69505. Function TSPApiData.CreateNewTaskQueryByLocationResults : TSPTaskQueryByLocationResultsEntitySet;
  69506. begin
  69507. Result:=TSPTaskQueryByLocationResultsEntitySet(CreateEntitySet(TSPTaskQueryByLocationResultsEntitySet));
  69508. end;
  69509. Function TSPApiData.GetTaskQueryByLocationResults : TSPTaskQueryByLocationResultsEntitySet;
  69510. begin
  69511. If Not Assigned(FTaskQueryByLocationResults) then
  69512. FTaskQueryByLocationResults:=TSPTaskQueryByLocationResultsEntitySet(CreateEntitySet(TSPTaskQueryByLocationResultsEntitySet));
  69513. Result:=FTaskQueryByLocationResults;
  69514. end;
  69515. Function TSPApiData.CreateNewTaskQueryResults : TSPTaskQueryResultsEntitySet;
  69516. begin
  69517. Result:=TSPTaskQueryResultsEntitySet(CreateEntitySet(TSPTaskQueryResultsEntitySet));
  69518. end;
  69519. Function TSPApiData.GetTaskQueryResults : TSPTaskQueryResultsEntitySet;
  69520. begin
  69521. If Not Assigned(FTaskQueryResults) then
  69522. FTaskQueryResults:=TSPTaskQueryResultsEntitySet(CreateEntitySet(TSPTaskQueryResultsEntitySet));
  69523. Result:=FTaskQueryResults;
  69524. end;
  69525. Function TSPApiData.CreateNewTaskRefreshResults : TSPTaskRefreshResultsEntitySet;
  69526. begin
  69527. Result:=TSPTaskRefreshResultsEntitySet(CreateEntitySet(TSPTaskRefreshResultsEntitySet));
  69528. end;
  69529. Function TSPApiData.GetTaskRefreshResults : TSPTaskRefreshResultsEntitySet;
  69530. begin
  69531. If Not Assigned(FTaskRefreshResults) then
  69532. FTaskRefreshResults:=TSPTaskRefreshResultsEntitySet(CreateEntitySet(TSPTaskRefreshResultsEntitySet));
  69533. Result:=FTaskRefreshResults;
  69534. end;
  69535. Function TSPApiData.CreateNewTaskWriteResults : TSPTaskWriteResultsEntitySet;
  69536. begin
  69537. Result:=TSPTaskWriteResultsEntitySet(CreateEntitySet(TSPTaskWriteResultsEntitySet));
  69538. end;
  69539. Function TSPApiData.GetTaskWriteResults : TSPTaskWriteResultsEntitySet;
  69540. begin
  69541. If Not Assigned(FTaskWriteResults) then
  69542. FTaskWriteResults:=TSPTaskWriteResultsEntitySet(CreateEntitySet(TSPTaskWriteResultsEntitySet));
  69543. Result:=FTaskWriteResults;
  69544. end;
  69545. Function TSPApiData.CreateNewUserOrderedSessionManagers : TSPUserOrderedSessionManagersEntitySet;
  69546. begin
  69547. Result:=TSPUserOrderedSessionManagersEntitySet(CreateEntitySet(TSPUserOrderedSessionManagersEntitySet));
  69548. end;
  69549. Function TSPApiData.GetUserOrderedSessionManagers : TSPUserOrderedSessionManagersEntitySet;
  69550. begin
  69551. If Not Assigned(FUserOrderedSessionManagers) then
  69552. FUserOrderedSessionManagers:=TSPUserOrderedSessionManagersEntitySet(CreateEntitySet(TSPUserOrderedSessionManagersEntitySet));
  69553. Result:=FUserOrderedSessionManagers;
  69554. end;
  69555. Function TSPApiData.CreateNewUserSettingss : TSPUserSettingssEntitySet;
  69556. begin
  69557. Result:=TSPUserSettingssEntitySet(CreateEntitySet(TSPUserSettingssEntitySet));
  69558. end;
  69559. Function TSPApiData.GetUserSettingss : TSPUserSettingssEntitySet;
  69560. begin
  69561. If Not Assigned(FUserSettingss) then
  69562. FUserSettingss:=TSPUserSettingssEntitySet(CreateEntitySet(TSPUserSettingssEntitySet));
  69563. Result:=FUserSettingss;
  69564. end;
  69565. Function TSPApiData.CreateNewUserSettingsManagers : TSPUserSettingsManagersEntitySet;
  69566. begin
  69567. Result:=TSPUserSettingsManagersEntitySet(CreateEntitySet(TSPUserSettingsManagersEntitySet));
  69568. end;
  69569. Function TSPApiData.GetUserSettingsManagers : TSPUserSettingsManagersEntitySet;
  69570. begin
  69571. If Not Assigned(FUserSettingsManagers) then
  69572. FUserSettingsManagers:=TSPUserSettingsManagersEntitySet(CreateEntitySet(TSPUserSettingsManagersEntitySet));
  69573. Result:=FUserSettingsManagers;
  69574. end;
  69575. Function TSPApiData.CreateNewViewSelectionInfos : TSPViewSelectionInfosEntitySet;
  69576. begin
  69577. Result:=TSPViewSelectionInfosEntitySet(CreateEntitySet(TSPViewSelectionInfosEntitySet));
  69578. end;
  69579. Function TSPApiData.GetViewSelectionInfos : TSPViewSelectionInfosEntitySet;
  69580. begin
  69581. If Not Assigned(FViewSelectionInfos) then
  69582. FViewSelectionInfos:=TSPViewSelectionInfosEntitySet(CreateEntitySet(TSPViewSelectionInfosEntitySet));
  69583. Result:=FViewSelectionInfos;
  69584. end;
  69585. Function TSPApiData.CreateNewSPOIdentityHelpers : TSPSPOIdentityHelpersEntitySet;
  69586. begin
  69587. Result:=TSPSPOIdentityHelpersEntitySet(CreateEntitySet(TSPSPOIdentityHelpersEntitySet));
  69588. end;
  69589. Function TSPApiData.GetSPOIdentityHelpers : TSPSPOIdentityHelpersEntitySet;
  69590. begin
  69591. If Not Assigned(FSPOIdentityHelpers) then
  69592. FSPOIdentityHelpers:=TSPSPOIdentityHelpersEntitySet(CreateEntitySet(TSPSPOIdentityHelpersEntitySet));
  69593. Result:=FSPOIdentityHelpers;
  69594. end;
  69595. Function TSPApiData.CreateNewAppPrincipalIdentityProviders : TSPAppPrincipalIdentityProvidersEntitySet;
  69596. begin
  69597. Result:=TSPAppPrincipalIdentityProvidersEntitySet(CreateEntitySet(TSPAppPrincipalIdentityProvidersEntitySet));
  69598. end;
  69599. Function TSPApiData.GetAppPrincipalIdentityProviders : TSPAppPrincipalIdentityProvidersEntitySet;
  69600. begin
  69601. If Not Assigned(FAppPrincipalIdentityProviders) then
  69602. FAppPrincipalIdentityProviders:=TSPAppPrincipalIdentityProvidersEntitySet(CreateEntitySet(TSPAppPrincipalIdentityProvidersEntitySet));
  69603. Result:=FAppPrincipalIdentityProviders;
  69604. end;
  69605. Function TSPApiData.CreateNewAppPrincipalManagers : TSPAppPrincipalManagersEntitySet;
  69606. begin
  69607. Result:=TSPAppPrincipalManagersEntitySet(CreateEntitySet(TSPAppPrincipalManagersEntitySet));
  69608. end;
  69609. Function TSPApiData.GetAppPrincipalManagers : TSPAppPrincipalManagersEntitySet;
  69610. begin
  69611. If Not Assigned(FAppPrincipalManagers) then
  69612. FAppPrincipalManagers:=TSPAppPrincipalManagersEntitySet(CreateEntitySet(TSPAppPrincipalManagersEntitySet));
  69613. Result:=FAppPrincipalManagers;
  69614. end;
  69615. Function TSPApiData.CreateNewAppPrincipalCredentials : TSPAppPrincipalCredentialsEntitySet;
  69616. begin
  69617. Result:=TSPAppPrincipalCredentialsEntitySet(CreateEntitySet(TSPAppPrincipalCredentialsEntitySet));
  69618. end;
  69619. Function TSPApiData.GetAppPrincipalCredentials : TSPAppPrincipalCredentialsEntitySet;
  69620. begin
  69621. If Not Assigned(FAppPrincipalCredentials) then
  69622. FAppPrincipalCredentials:=TSPAppPrincipalCredentialsEntitySet(CreateEntitySet(TSPAppPrincipalCredentialsEntitySet));
  69623. Result:=FAppPrincipalCredentials;
  69624. end;
  69625. Function TSPApiData.CreateNewAppPrincipalNames : TSPAppPrincipalNamesEntitySet;
  69626. begin
  69627. Result:=TSPAppPrincipalNamesEntitySet(CreateEntitySet(TSPAppPrincipalNamesEntitySet));
  69628. end;
  69629. Function TSPApiData.GetAppPrincipalNames : TSPAppPrincipalNamesEntitySet;
  69630. begin
  69631. If Not Assigned(FAppPrincipalNames) then
  69632. FAppPrincipalNames:=TSPAppPrincipalNamesEntitySet(CreateEntitySet(TSPAppPrincipalNamesEntitySet));
  69633. Result:=FAppPrincipalNames;
  69634. end;
  69635. Function TSPApiData.CreateNewDraftProjectResources1 : TSPDraftProjectResources1EntitySet;
  69636. begin
  69637. Result:=TSPDraftProjectResources1EntitySet(CreateEntitySet(TSPDraftProjectResources1EntitySet));
  69638. end;
  69639. Function TSPApiData.GetDraftProjectResources1 : TSPDraftProjectResources1EntitySet;
  69640. begin
  69641. If Not Assigned(FDraftProjectResources1) then
  69642. FDraftProjectResources1:=TSPDraftProjectResources1EntitySet(CreateEntitySet(TSPDraftProjectResources1EntitySet));
  69643. Result:=FDraftProjectResources1;
  69644. end;
  69645. { --------------------------------------------------------------------
  69646. TSPAppsEntitySet
  69647. --------------------------------------------------------------------}
  69648. Class Function TSPAppsEntitySet.ObjectRestKind : String;
  69649. begin
  69650. Result:='Apps';
  69651. end;
  69652. Class Function TSPAppsEntitySet.EntityClass : TODataEntityClass;
  69653. begin
  69654. Result:=TMicrosoft_AppServicesApp;
  69655. end;
  69656. Function TSPAppsEntitySet.Get(const Id: string) : TMicrosoft_AppServicesApp;
  69657. begin
  69658. Result:=TMicrosoft_AppServicesApp(GetSingle(TODataObject.MakeKeyString(Id)));
  69659. end;
  69660. Function TSPAppsEntitySet.List(const AQuery: String; out NextLink: String) : TMicrosoft_AppServicesAppArray;
  69661. begin
  69662. Result:=TMicrosoft_AppServicesAppArray(GetMulti(AQuery,False,NextLink));
  69663. end;
  69664. Function TSPAppsEntitySet.List(const AQuery: TQueryParams; out NextLink: String) : TMicrosoft_AppServicesAppArray;
  69665. begin
  69666. Result:=TMicrosoft_AppServicesAppArray(GetMulti(AQuery,False,NextLink));
  69667. end;
  69668. Function TSPAppsEntitySet.ListAll(const AQuery: String) : TMicrosoft_AppServicesAppArray;
  69669. var N : String;
  69670. begin
  69671. Result:=TMicrosoft_AppServicesAppArray(GetMulti(AQuery,True,N));
  69672. end;
  69673. Function TSPAppsEntitySet.ListAll(const AQuery: TQueryParams) : TMicrosoft_AppServicesAppArray;
  69674. var N : String;
  69675. begin
  69676. Result:=TMicrosoft_AppServicesAppArray(GetMulti(AQuery,True,N));
  69677. end;
  69678. { --------------------------------------------------------------------
  69679. TSPFilesEntitySet
  69680. --------------------------------------------------------------------}
  69681. Class Function TSPFilesEntitySet.ObjectRestKind : String;
  69682. begin
  69683. Result:='Files';
  69684. end;
  69685. Class Function TSPFilesEntitySet.EntityClass : TODataEntityClass;
  69686. begin
  69687. Result:=TMS_FileServicesFileSystemItem;
  69688. end;
  69689. Function TSPFilesEntitySet.Get(const Id: string) : TMS_FileServicesFileSystemItem;
  69690. begin
  69691. Result:=TMS_FileServicesFileSystemItem(GetSingle(TODataObject.MakeKeyString(Id)));
  69692. end;
  69693. Function TSPFilesEntitySet.List(const AQuery: String; out NextLink: String) : TMS_FileServicesFileSystemItemArray;
  69694. begin
  69695. Result:=TMS_FileServicesFileSystemItemArray(GetMulti(AQuery,False,NextLink));
  69696. end;
  69697. Function TSPFilesEntitySet.List(const AQuery: TQueryParams; out NextLink: String) : TMS_FileServicesFileSystemItemArray;
  69698. begin
  69699. Result:=TMS_FileServicesFileSystemItemArray(GetMulti(AQuery,False,NextLink));
  69700. end;
  69701. Function TSPFilesEntitySet.ListAll(const AQuery: String) : TMS_FileServicesFileSystemItemArray;
  69702. var N : String;
  69703. begin
  69704. Result:=TMS_FileServicesFileSystemItemArray(GetMulti(AQuery,True,N));
  69705. end;
  69706. Function TSPFilesEntitySet.ListAll(const AQuery: TQueryParams) : TMS_FileServicesFileSystemItemArray;
  69707. var N : String;
  69708. begin
  69709. Result:=TMS_FileServicesFileSystemItemArray(GetMulti(AQuery,True,N));
  69710. end;
  69711. { --------------------------------------------------------------------
  69712. TSPListsEntitySet
  69713. --------------------------------------------------------------------}
  69714. Class Function TSPListsEntitySet.ObjectRestKind : String;
  69715. begin
  69716. Result:='Lists';
  69717. end;
  69718. Class Function TSPListsEntitySet.EntityClass : TODataEntityClass;
  69719. begin
  69720. Result:=TSPList;
  69721. end;
  69722. Function TSPListsEntitySet.Get(const HasUniqueRoleAssignments: boolean) : TSPList;
  69723. begin
  69724. Result:=TSPList(GetSingle(BoolToStr(HasUniqueRoleAssignments,'true','false')));
  69725. end;
  69726. Function TSPListsEntitySet.List(const AQuery: String; out NextLink: String) : TSPListArray;
  69727. begin
  69728. Result:=TSPListArray(GetMulti(AQuery,False,NextLink));
  69729. end;
  69730. Function TSPListsEntitySet.List(const AQuery: TQueryParams; out NextLink: String) : TSPListArray;
  69731. begin
  69732. Result:=TSPListArray(GetMulti(AQuery,False,NextLink));
  69733. end;
  69734. Function TSPListsEntitySet.ListAll(const AQuery: String) : TSPListArray;
  69735. var N : String;
  69736. begin
  69737. Result:=TSPListArray(GetMulti(AQuery,True,N));
  69738. end;
  69739. Function TSPListsEntitySet.ListAll(const AQuery: TQueryParams) : TSPListArray;
  69740. var N : String;
  69741. begin
  69742. Result:=TSPListArray(GetMulti(AQuery,True,N));
  69743. end;
  69744. { --------------------------------------------------------------------
  69745. TSPMesEntitySet
  69746. --------------------------------------------------------------------}
  69747. Class Function TSPMesEntitySet.ObjectRestKind : String;
  69748. begin
  69749. Result:='Mes';
  69750. end;
  69751. Class Function TSPMesEntitySet.EntityClass : TODataEntityClass;
  69752. begin
  69753. Result:=TSPRequestUserContext;
  69754. end;
  69755. Function TSPMesEntitySet.Get(const Id4a81de82eeb94d6080ea5bf63e27023a: string) : TSPRequestUserContext;
  69756. begin
  69757. Result:=TSPRequestUserContext(GetSingle(TODataObject.MakeKeyString(Id4a81de82eeb94d6080ea5bf63e27023a)));
  69758. end;
  69759. Function TSPMesEntitySet.List(const AQuery: String; out NextLink: String) : TSPRequestUserContextArray;
  69760. begin
  69761. Result:=TSPRequestUserContextArray(GetMulti(AQuery,False,NextLink));
  69762. end;
  69763. Function TSPMesEntitySet.List(const AQuery: TQueryParams; out NextLink: String) : TSPRequestUserContextArray;
  69764. begin
  69765. Result:=TSPRequestUserContextArray(GetMulti(AQuery,False,NextLink));
  69766. end;
  69767. Function TSPMesEntitySet.ListAll(const AQuery: String) : TSPRequestUserContextArray;
  69768. var N : String;
  69769. begin
  69770. Result:=TSPRequestUserContextArray(GetMulti(AQuery,True,N));
  69771. end;
  69772. Function TSPMesEntitySet.ListAll(const AQuery: TQueryParams) : TSPRequestUserContextArray;
  69773. var N : String;
  69774. begin
  69775. Result:=TSPRequestUserContextArray(GetMulti(AQuery,True,N));
  69776. end;
  69777. { --------------------------------------------------------------------
  69778. TSPSitesEntitySet
  69779. --------------------------------------------------------------------}
  69780. Class Function TSPSitesEntitySet.ObjectRestKind : String;
  69781. begin
  69782. Result:='Sites';
  69783. end;
  69784. Class Function TSPSitesEntitySet.EntityClass : TODataEntityClass;
  69785. begin
  69786. Result:=TSPSite;
  69787. end;
  69788. Function TSPSitesEntitySet.Get(const Id: TGUIDString) : TSPSite;
  69789. begin
  69790. Result:=TSPSite(GetSingle(TODataObject.MakeKeyString(Id)));
  69791. end;
  69792. Function TSPSitesEntitySet.List(const AQuery: String; out NextLink: String) : TSPSiteArray;
  69793. begin
  69794. Result:=TSPSiteArray(GetMulti(AQuery,False,NextLink));
  69795. end;
  69796. Function TSPSitesEntitySet.List(const AQuery: TQueryParams; out NextLink: String) : TSPSiteArray;
  69797. begin
  69798. Result:=TSPSiteArray(GetMulti(AQuery,False,NextLink));
  69799. end;
  69800. Function TSPSitesEntitySet.ListAll(const AQuery: String) : TSPSiteArray;
  69801. var N : String;
  69802. begin
  69803. Result:=TSPSiteArray(GetMulti(AQuery,True,N));
  69804. end;
  69805. Function TSPSitesEntitySet.ListAll(const AQuery: TQueryParams) : TSPSiteArray;
  69806. var N : String;
  69807. begin
  69808. Result:=TSPSiteArray(GetMulti(AQuery,True,N));
  69809. end;
  69810. { --------------------------------------------------------------------
  69811. TSPWebsEntitySet
  69812. --------------------------------------------------------------------}
  69813. Class Function TSPWebsEntitySet.ObjectRestKind : String;
  69814. begin
  69815. Result:='Webs';
  69816. end;
  69817. Class Function TSPWebsEntitySet.EntityClass : TODataEntityClass;
  69818. begin
  69819. Result:=TSPWeb;
  69820. end;
  69821. Function TSPWebsEntitySet.Get(const HasUniqueRoleAssignments: boolean) : TSPWeb;
  69822. begin
  69823. Result:=TSPWeb(GetSingle(BoolToStr(HasUniqueRoleAssignments,'true','false')));
  69824. end;
  69825. Function TSPWebsEntitySet.List(const AQuery: String; out NextLink: String) : TSPWebArray;
  69826. begin
  69827. Result:=TSPWebArray(GetMulti(AQuery,False,NextLink));
  69828. end;
  69829. Function TSPWebsEntitySet.List(const AQuery: TQueryParams; out NextLink: String) : TSPWebArray;
  69830. begin
  69831. Result:=TSPWebArray(GetMulti(AQuery,False,NextLink));
  69832. end;
  69833. Function TSPWebsEntitySet.ListAll(const AQuery: String) : TSPWebArray;
  69834. var N : String;
  69835. begin
  69836. Result:=TSPWebArray(GetMulti(AQuery,True,N));
  69837. end;
  69838. Function TSPWebsEntitySet.ListAll(const AQuery: TQueryParams) : TSPWebArray;
  69839. var N : String;
  69840. begin
  69841. Result:=TSPWebArray(GetMulti(AQuery,True,N));
  69842. end;
  69843. { --------------------------------------------------------------------
  69844. TSPAppStoresEntitySet
  69845. --------------------------------------------------------------------}
  69846. Class Function TSPAppStoresEntitySet.ObjectRestKind : String;
  69847. begin
  69848. Result:='AppStores';
  69849. end;
  69850. Class Function TSPAppStoresEntitySet.EntityClass : TODataEntityClass;
  69851. begin
  69852. Result:=TMicrosoft_AppServicesAppStore;
  69853. end;
  69854. Function TSPAppStoresEntitySet.Get(const Id4a81de82eeb94d6080ea5bf63e27023a: string) : TMicrosoft_AppServicesAppStore;
  69855. begin
  69856. Result:=TMicrosoft_AppServicesAppStore(GetSingle(TODataObject.MakeKeyString(Id4a81de82eeb94d6080ea5bf63e27023a)));
  69857. end;
  69858. Function TSPAppStoresEntitySet.List(const AQuery: String; out NextLink: String) : TMicrosoft_AppServicesAppStoreArray;
  69859. begin
  69860. Result:=TMicrosoft_AppServicesAppStoreArray(GetMulti(AQuery,False,NextLink));
  69861. end;
  69862. Function TSPAppStoresEntitySet.List(const AQuery: TQueryParams; out NextLink: String) : TMicrosoft_AppServicesAppStoreArray;
  69863. begin
  69864. Result:=TMicrosoft_AppServicesAppStoreArray(GetMulti(AQuery,False,NextLink));
  69865. end;
  69866. Function TSPAppStoresEntitySet.ListAll(const AQuery: String) : TMicrosoft_AppServicesAppStoreArray;
  69867. var N : String;
  69868. begin
  69869. Result:=TMicrosoft_AppServicesAppStoreArray(GetMulti(AQuery,True,N));
  69870. end;
  69871. Function TSPAppStoresEntitySet.ListAll(const AQuery: TQueryParams) : TMicrosoft_AppServicesAppStoreArray;
  69872. var N : String;
  69873. begin
  69874. Result:=TMicrosoft_AppServicesAppStoreArray(GetMulti(AQuery,True,N));
  69875. end;
  69876. { --------------------------------------------------------------------
  69877. TSPConnectionSettingssEntitySet
  69878. --------------------------------------------------------------------}
  69879. Class Function TSPConnectionSettingssEntitySet.ObjectRestKind : String;
  69880. begin
  69881. Result:='ConnectionSettingss';
  69882. end;
  69883. Class Function TSPConnectionSettingssEntitySet.EntityClass : TODataEntityClass;
  69884. begin
  69885. Result:=TMicrosoft_BusinessData_Infrastructure_SecureStoreConnectionSettings;
  69886. end;
  69887. Function TSPConnectionSettingssEntitySet.Get(const _Name: string) : TMicrosoft_BusinessData_Infrastructure_SecureStoreConnectionSettings;
  69888. begin
  69889. Result:=TMicrosoft_BusinessData_Infrastructure_SecureStoreConnectionSettings(GetSingle(TODataObject.MakeKeyString(_Name)));
  69890. end;
  69891. Function TSPConnectionSettingssEntitySet.List(const AQuery: String; out NextLink: String) : TMicrosoft_BusinessData_Infrastructure_SecureStoreConnectionSettingsArray;
  69892. begin
  69893. Result:=TMicrosoft_BusinessData_Infrastructure_SecureStoreConnectionSettingsArray(GetMulti(AQuery,False,NextLink));
  69894. end;
  69895. Function TSPConnectionSettingssEntitySet.List(const AQuery: TQueryParams; out NextLink: String) : TMicrosoft_BusinessData_Infrastructure_SecureStoreConnectionSettingsArray;
  69896. begin
  69897. Result:=TMicrosoft_BusinessData_Infrastructure_SecureStoreConnectionSettingsArray(GetMulti(AQuery,False,NextLink));
  69898. end;
  69899. Function TSPConnectionSettingssEntitySet.ListAll(const AQuery: String) : TMicrosoft_BusinessData_Infrastructure_SecureStoreConnectionSettingsArray;
  69900. var N : String;
  69901. begin
  69902. Result:=TMicrosoft_BusinessData_Infrastructure_SecureStoreConnectionSettingsArray(GetMulti(AQuery,True,N));
  69903. end;
  69904. Function TSPConnectionSettingssEntitySet.ListAll(const AQuery: TQueryParams) : TMicrosoft_BusinessData_Infrastructure_SecureStoreConnectionSettingsArray;
  69905. var N : String;
  69906. begin
  69907. Result:=TMicrosoft_BusinessData_Infrastructure_SecureStoreConnectionSettingsArray(GetMulti(AQuery,True,N));
  69908. end;
  69909. { --------------------------------------------------------------------
  69910. TSPTargetApplicationsEntitySet
  69911. --------------------------------------------------------------------}
  69912. Class Function TSPTargetApplicationsEntitySet.ObjectRestKind : String;
  69913. begin
  69914. Result:='TargetApplications';
  69915. end;
  69916. Class Function TSPTargetApplicationsEntitySet.EntityClass : TODataEntityClass;
  69917. begin
  69918. Result:=TMicrosoft_Office_SecureStoreService_ServerTargetApplication;
  69919. end;
  69920. Function TSPTargetApplicationsEntitySet.Get(const ApplicationId: string) : TMicrosoft_Office_SecureStoreService_ServerTargetApplication;
  69921. begin
  69922. Result:=TMicrosoft_Office_SecureStoreService_ServerTargetApplication(GetSingle(TODataObject.MakeKeyString(ApplicationId)));
  69923. end;
  69924. Function TSPTargetApplicationsEntitySet.List(const AQuery: String; out NextLink: String) : TMicrosoft_Office_SecureStoreService_ServerTargetApplicationArray;
  69925. begin
  69926. Result:=TMicrosoft_Office_SecureStoreService_ServerTargetApplicationArray(GetMulti(AQuery,False,NextLink));
  69927. end;
  69928. Function TSPTargetApplicationsEntitySet.List(const AQuery: TQueryParams; out NextLink: String) : TMicrosoft_Office_SecureStoreService_ServerTargetApplicationArray;
  69929. begin
  69930. Result:=TMicrosoft_Office_SecureStoreService_ServerTargetApplicationArray(GetMulti(AQuery,False,NextLink));
  69931. end;
  69932. Function TSPTargetApplicationsEntitySet.ListAll(const AQuery: String) : TMicrosoft_Office_SecureStoreService_ServerTargetApplicationArray;
  69933. var N : String;
  69934. begin
  69935. Result:=TMicrosoft_Office_SecureStoreService_ServerTargetApplicationArray(GetMulti(AQuery,True,N));
  69936. end;
  69937. Function TSPTargetApplicationsEntitySet.ListAll(const AQuery: TQueryParams) : TMicrosoft_Office_SecureStoreService_ServerTargetApplicationArray;
  69938. var N : String;
  69939. begin
  69940. Result:=TMicrosoft_Office_SecureStoreService_ServerTargetApplicationArray(GetMulti(AQuery,True,N));
  69941. end;
  69942. { --------------------------------------------------------------------
  69943. TSPTargetApplicationFieldsEntitySet
  69944. --------------------------------------------------------------------}
  69945. Class Function TSPTargetApplicationFieldsEntitySet.ObjectRestKind : String;
  69946. begin
  69947. Result:='TargetApplicationFields';
  69948. end;
  69949. Class Function TSPTargetApplicationFieldsEntitySet.EntityClass : TODataEntityClass;
  69950. begin
  69951. Result:=TMicrosoft_Office_SecureStoreService_ServerTargetApplicationField;
  69952. end;
  69953. Function TSPTargetApplicationFieldsEntitySet.Get(const _Name: string) : TMicrosoft_Office_SecureStoreService_ServerTargetApplicationField;
  69954. begin
  69955. Result:=TMicrosoft_Office_SecureStoreService_ServerTargetApplicationField(GetSingle(TODataObject.MakeKeyString(_Name)));
  69956. end;
  69957. Function TSPTargetApplicationFieldsEntitySet.List(const AQuery: String; out NextLink: String) : TMicrosoft_Office_SecureStoreService_ServerTargetApplicationFieldArray;
  69958. begin
  69959. Result:=TMicrosoft_Office_SecureStoreService_ServerTargetApplicationFieldArray(GetMulti(AQuery,False,NextLink));
  69960. end;
  69961. Function TSPTargetApplicationFieldsEntitySet.List(const AQuery: TQueryParams; out NextLink: String) : TMicrosoft_Office_SecureStoreService_ServerTargetApplicationFieldArray;
  69962. begin
  69963. Result:=TMicrosoft_Office_SecureStoreService_ServerTargetApplicationFieldArray(GetMulti(AQuery,False,NextLink));
  69964. end;
  69965. Function TSPTargetApplicationFieldsEntitySet.ListAll(const AQuery: String) : TMicrosoft_Office_SecureStoreService_ServerTargetApplicationFieldArray;
  69966. var N : String;
  69967. begin
  69968. Result:=TMicrosoft_Office_SecureStoreService_ServerTargetApplicationFieldArray(GetMulti(AQuery,True,N));
  69969. end;
  69970. Function TSPTargetApplicationFieldsEntitySet.ListAll(const AQuery: TQueryParams) : TMicrosoft_Office_SecureStoreService_ServerTargetApplicationFieldArray;
  69971. var N : String;
  69972. begin
  69973. Result:=TMicrosoft_Office_SecureStoreService_ServerTargetApplicationFieldArray(GetMulti(AQuery,True,N));
  69974. end;
  69975. { --------------------------------------------------------------------
  69976. TSPReputationsEntitySet
  69977. --------------------------------------------------------------------}
  69978. Class Function TSPReputationsEntitySet.ObjectRestKind : String;
  69979. begin
  69980. Result:='Reputations';
  69981. end;
  69982. Class Function TSPReputationsEntitySet.EntityClass : TODataEntityClass;
  69983. begin
  69984. Result:=TMicrosoft_Office_Server_ReputationModelReputation;
  69985. end;
  69986. Function TSPReputationsEntitySet.Get(const Id4a81de82eeb94d6080ea5bf63e27023a: string) : TMicrosoft_Office_Server_ReputationModelReputation;
  69987. begin
  69988. Result:=TMicrosoft_Office_Server_ReputationModelReputation(GetSingle(TODataObject.MakeKeyString(Id4a81de82eeb94d6080ea5bf63e27023a)));
  69989. end;
  69990. Function TSPReputationsEntitySet.List(const AQuery: String; out NextLink: String) : TMicrosoft_Office_Server_ReputationModelReputationArray;
  69991. begin
  69992. Result:=TMicrosoft_Office_Server_ReputationModelReputationArray(GetMulti(AQuery,False,NextLink));
  69993. end;
  69994. Function TSPReputationsEntitySet.List(const AQuery: TQueryParams; out NextLink: String) : TMicrosoft_Office_Server_ReputationModelReputationArray;
  69995. begin
  69996. Result:=TMicrosoft_Office_Server_ReputationModelReputationArray(GetMulti(AQuery,False,NextLink));
  69997. end;
  69998. Function TSPReputationsEntitySet.ListAll(const AQuery: String) : TMicrosoft_Office_Server_ReputationModelReputationArray;
  69999. var N : String;
  70000. begin
  70001. Result:=TMicrosoft_Office_Server_ReputationModelReputationArray(GetMulti(AQuery,True,N));
  70002. end;
  70003. Function TSPReputationsEntitySet.ListAll(const AQuery: TQueryParams) : TMicrosoft_Office_Server_ReputationModelReputationArray;
  70004. var N : String;
  70005. begin
  70006. Result:=TMicrosoft_Office_Server_ReputationModelReputationArray(GetMulti(AQuery,True,N));
  70007. end;
  70008. { --------------------------------------------------------------------
  70009. TSPSearchServicesEntitySet
  70010. --------------------------------------------------------------------}
  70011. Class Function TSPSearchServicesEntitySet.ObjectRestKind : String;
  70012. begin
  70013. Result:='SearchServices';
  70014. end;
  70015. Class Function TSPSearchServicesEntitySet.EntityClass : TODataEntityClass;
  70016. begin
  70017. Result:=TMicrosoft_Office_Server_Search_RESTSearchService;
  70018. end;
  70019. Function TSPSearchServicesEntitySet.Get(const Id4a81de82eeb94d6080ea5bf63e27023a: string) : TMicrosoft_Office_Server_Search_RESTSearchService;
  70020. begin
  70021. Result:=TMicrosoft_Office_Server_Search_RESTSearchService(GetSingle(TODataObject.MakeKeyString(Id4a81de82eeb94d6080ea5bf63e27023a)));
  70022. end;
  70023. Function TSPSearchServicesEntitySet.List(const AQuery: String; out NextLink: String) : TMicrosoft_Office_Server_Search_RESTSearchServiceArray;
  70024. begin
  70025. Result:=TMicrosoft_Office_Server_Search_RESTSearchServiceArray(GetMulti(AQuery,False,NextLink));
  70026. end;
  70027. Function TSPSearchServicesEntitySet.List(const AQuery: TQueryParams; out NextLink: String) : TMicrosoft_Office_Server_Search_RESTSearchServiceArray;
  70028. begin
  70029. Result:=TMicrosoft_Office_Server_Search_RESTSearchServiceArray(GetMulti(AQuery,False,NextLink));
  70030. end;
  70031. Function TSPSearchServicesEntitySet.ListAll(const AQuery: String) : TMicrosoft_Office_Server_Search_RESTSearchServiceArray;
  70032. var N : String;
  70033. begin
  70034. Result:=TMicrosoft_Office_Server_Search_RESTSearchServiceArray(GetMulti(AQuery,True,N));
  70035. end;
  70036. Function TSPSearchServicesEntitySet.ListAll(const AQuery: TQueryParams) : TMicrosoft_Office_Server_Search_RESTSearchServiceArray;
  70037. var N : String;
  70038. begin
  70039. Result:=TMicrosoft_Office_Server_Search_RESTSearchServiceArray(GetMulti(AQuery,True,N));
  70040. end;
  70041. { --------------------------------------------------------------------
  70042. TSPApps1EntitySet
  70043. --------------------------------------------------------------------}
  70044. Class Function TSPApps1EntitySet.ObjectRestKind : String;
  70045. begin
  70046. Result:='Apps1';
  70047. end;
  70048. Class Function TSPApps1EntitySet.EntityClass : TODataEntityClass;
  70049. begin
  70050. Result:=TMS_AppDataApp;
  70051. end;
  70052. Function TSPApps1EntitySet.Get(const Id: TGUIDString) : TMS_AppDataApp;
  70053. begin
  70054. Result:=TMS_AppDataApp(GetSingle(TODataObject.MakeKeyString(Id)));
  70055. end;
  70056. Function TSPApps1EntitySet.List(const AQuery: String; out NextLink: String) : TMS_AppDataAppArray;
  70057. begin
  70058. Result:=TMS_AppDataAppArray(GetMulti(AQuery,False,NextLink));
  70059. end;
  70060. Function TSPApps1EntitySet.List(const AQuery: TQueryParams; out NextLink: String) : TMS_AppDataAppArray;
  70061. begin
  70062. Result:=TMS_AppDataAppArray(GetMulti(AQuery,False,NextLink));
  70063. end;
  70064. Function TSPApps1EntitySet.ListAll(const AQuery: String) : TMS_AppDataAppArray;
  70065. var N : String;
  70066. begin
  70067. Result:=TMS_AppDataAppArray(GetMulti(AQuery,True,N));
  70068. end;
  70069. Function TSPApps1EntitySet.ListAll(const AQuery: TQueryParams) : TMS_AppDataAppArray;
  70070. var N : String;
  70071. begin
  70072. Result:=TMS_AppDataAppArray(GetMulti(AQuery,True,N));
  70073. end;
  70074. { --------------------------------------------------------------------
  70075. TSPPointPublishingAdminsEntitySet
  70076. --------------------------------------------------------------------}
  70077. Class Function TSPPointPublishingAdminsEntitySet.ObjectRestKind : String;
  70078. begin
  70079. Result:='PointPublishingAdmins';
  70080. end;
  70081. Class Function TSPPointPublishingAdminsEntitySet.EntityClass : TODataEntityClass;
  70082. begin
  70083. Result:=TMicrosoft_Online_SharePoint_PointPublishingPointPublishingAdmin;
  70084. end;
  70085. Function TSPPointPublishingAdminsEntitySet.Get(const Id4a81de82eeb94d6080ea5bf63e27023a: string) : TMicrosoft_Online_SharePoint_PointPublishingPointPublishingAdmin;
  70086. begin
  70087. Result:=TMicrosoft_Online_SharePoint_PointPublishingPointPublishingAdmin(GetSingle(TODataObject.MakeKeyString(Id4a81de82eeb94d6080ea5bf63e27023a)));
  70088. end;
  70089. Function TSPPointPublishingAdminsEntitySet.List(const AQuery: String; out NextLink: String) : TMicrosoft_Online_SharePoint_PointPublishingPointPublishingAdminArray;
  70090. begin
  70091. Result:=TMicrosoft_Online_SharePoint_PointPublishingPointPublishingAdminArray(GetMulti(AQuery,False,NextLink));
  70092. end;
  70093. Function TSPPointPublishingAdminsEntitySet.List(const AQuery: TQueryParams; out NextLink: String) : TMicrosoft_Online_SharePoint_PointPublishingPointPublishingAdminArray;
  70094. begin
  70095. Result:=TMicrosoft_Online_SharePoint_PointPublishingPointPublishingAdminArray(GetMulti(AQuery,False,NextLink));
  70096. end;
  70097. Function TSPPointPublishingAdminsEntitySet.ListAll(const AQuery: String) : TMicrosoft_Online_SharePoint_PointPublishingPointPublishingAdminArray;
  70098. var N : String;
  70099. begin
  70100. Result:=TMicrosoft_Online_SharePoint_PointPublishingPointPublishingAdminArray(GetMulti(AQuery,True,N));
  70101. end;
  70102. Function TSPPointPublishingAdminsEntitySet.ListAll(const AQuery: TQueryParams) : TMicrosoft_Online_SharePoint_PointPublishingPointPublishingAdminArray;
  70103. var N : String;
  70104. begin
  70105. Result:=TMicrosoft_Online_SharePoint_PointPublishingPointPublishingAdminArray(GetMulti(AQuery,True,N));
  70106. end;
  70107. { --------------------------------------------------------------------
  70108. TSPDDIAdaptersEntitySet
  70109. --------------------------------------------------------------------}
  70110. Class Function TSPDDIAdaptersEntitySet.ObjectRestKind : String;
  70111. begin
  70112. Result:='DDIAdapters';
  70113. end;
  70114. Class Function TSPDDIAdaptersEntitySet.EntityClass : TODataEntityClass;
  70115. begin
  70116. Result:=TMicrosoft_Online_SharePoint_TenantAdmin_MiddleTierDDIAdapter;
  70117. end;
  70118. Function TSPDDIAdaptersEntitySet.Get(const Id4a81de82eeb94d6080ea5bf63e27023a: string) : TMicrosoft_Online_SharePoint_TenantAdmin_MiddleTierDDIAdapter;
  70119. begin
  70120. Result:=TMicrosoft_Online_SharePoint_TenantAdmin_MiddleTierDDIAdapter(GetSingle(TODataObject.MakeKeyString(Id4a81de82eeb94d6080ea5bf63e27023a)));
  70121. end;
  70122. Function TSPDDIAdaptersEntitySet.List(const AQuery: String; out NextLink: String) : TMicrosoft_Online_SharePoint_TenantAdmin_MiddleTierDDIAdapterArray;
  70123. begin
  70124. Result:=TMicrosoft_Online_SharePoint_TenantAdmin_MiddleTierDDIAdapterArray(GetMulti(AQuery,False,NextLink));
  70125. end;
  70126. Function TSPDDIAdaptersEntitySet.List(const AQuery: TQueryParams; out NextLink: String) : TMicrosoft_Online_SharePoint_TenantAdmin_MiddleTierDDIAdapterArray;
  70127. begin
  70128. Result:=TMicrosoft_Online_SharePoint_TenantAdmin_MiddleTierDDIAdapterArray(GetMulti(AQuery,False,NextLink));
  70129. end;
  70130. Function TSPDDIAdaptersEntitySet.ListAll(const AQuery: String) : TMicrosoft_Online_SharePoint_TenantAdmin_MiddleTierDDIAdapterArray;
  70131. var N : String;
  70132. begin
  70133. Result:=TMicrosoft_Online_SharePoint_TenantAdmin_MiddleTierDDIAdapterArray(GetMulti(AQuery,True,N));
  70134. end;
  70135. Function TSPDDIAdaptersEntitySet.ListAll(const AQuery: TQueryParams) : TMicrosoft_Online_SharePoint_TenantAdmin_MiddleTierDDIAdapterArray;
  70136. var N : String;
  70137. begin
  70138. Result:=TMicrosoft_Online_SharePoint_TenantAdmin_MiddleTierDDIAdapterArray(GetMulti(AQuery,True,N));
  70139. end;
  70140. { --------------------------------------------------------------------
  70141. TSPSPOTenantWebTemplateCollectionsEntitySet
  70142. --------------------------------------------------------------------}
  70143. Class Function TSPSPOTenantWebTemplateCollectionsEntitySet.ObjectRestKind : String;
  70144. begin
  70145. Result:='SPOTenantWebTemplateCollections';
  70146. end;
  70147. Class Function TSPSPOTenantWebTemplateCollectionsEntitySet.EntityClass : TODataEntityClass;
  70148. begin
  70149. Result:=TMicrosoft_Online_SharePoint_TenantAdministrationSPOTenantWebTemplateCollection;
  70150. end;
  70151. Function TSPSPOTenantWebTemplateCollectionsEntitySet.Get(const Id4a81de82eeb94d6080ea5bf63e27023a: string) : TMicrosoft_Online_SharePoint_TenantAdministrationSPOTenantWebTemplateCollection;
  70152. begin
  70153. Result:=TMicrosoft_Online_SharePoint_TenantAdministrationSPOTenantWebTemplateCollection(GetSingle(TODataObject.MakeKeyString(Id4a81de82eeb94d6080ea5bf63e27023a)));
  70154. end;
  70155. Function TSPSPOTenantWebTemplateCollectionsEntitySet.List(const AQuery: String; out NextLink: String) : TMicrosoft_Online_SharePoint_TenantAdministrationSPOTenantWebTemplateCollectionArray;
  70156. begin
  70157. Result:=TMicrosoft_Online_SharePoint_TenantAdministrationSPOTenantWebTemplateCollectionArray(GetMulti(AQuery,False,NextLink));
  70158. end;
  70159. Function TSPSPOTenantWebTemplateCollectionsEntitySet.List(const AQuery: TQueryParams; out NextLink: String) : TMicrosoft_Online_SharePoint_TenantAdministrationSPOTenantWebTemplateCollectionArray;
  70160. begin
  70161. Result:=TMicrosoft_Online_SharePoint_TenantAdministrationSPOTenantWebTemplateCollectionArray(GetMulti(AQuery,False,NextLink));
  70162. end;
  70163. Function TSPSPOTenantWebTemplateCollectionsEntitySet.ListAll(const AQuery: String) : TMicrosoft_Online_SharePoint_TenantAdministrationSPOTenantWebTemplateCollectionArray;
  70164. var N : String;
  70165. begin
  70166. Result:=TMicrosoft_Online_SharePoint_TenantAdministrationSPOTenantWebTemplateCollectionArray(GetMulti(AQuery,True,N));
  70167. end;
  70168. Function TSPSPOTenantWebTemplateCollectionsEntitySet.ListAll(const AQuery: TQueryParams) : TMicrosoft_Online_SharePoint_TenantAdministrationSPOTenantWebTemplateCollectionArray;
  70169. var N : String;
  70170. begin
  70171. Result:=TMicrosoft_Online_SharePoint_TenantAdministrationSPOTenantWebTemplateCollectionArray(GetMulti(AQuery,True,N));
  70172. end;
  70173. { --------------------------------------------------------------------
  70174. TSPExternalUsersEntitySet
  70175. --------------------------------------------------------------------}
  70176. Class Function TSPExternalUsersEntitySet.ObjectRestKind : String;
  70177. begin
  70178. Result:='ExternalUsers';
  70179. end;
  70180. Class Function TSPExternalUsersEntitySet.EntityClass : TODataEntityClass;
  70181. begin
  70182. Result:=TMicrosoft_Online_SharePoint_TenantManagementExternalUser;
  70183. end;
  70184. Function TSPExternalUsersEntitySet.Get(const AcceptedAs: string) : TMicrosoft_Online_SharePoint_TenantManagementExternalUser;
  70185. begin
  70186. Result:=TMicrosoft_Online_SharePoint_TenantManagementExternalUser(GetSingle(TODataObject.MakeKeyString(AcceptedAs)));
  70187. end;
  70188. Function TSPExternalUsersEntitySet.List(const AQuery: String; out NextLink: String) : TMicrosoft_Online_SharePoint_TenantManagementExternalUserArray;
  70189. begin
  70190. Result:=TMicrosoft_Online_SharePoint_TenantManagementExternalUserArray(GetMulti(AQuery,False,NextLink));
  70191. end;
  70192. Function TSPExternalUsersEntitySet.List(const AQuery: TQueryParams; out NextLink: String) : TMicrosoft_Online_SharePoint_TenantManagementExternalUserArray;
  70193. begin
  70194. Result:=TMicrosoft_Online_SharePoint_TenantManagementExternalUserArray(GetMulti(AQuery,False,NextLink));
  70195. end;
  70196. Function TSPExternalUsersEntitySet.ListAll(const AQuery: String) : TMicrosoft_Online_SharePoint_TenantManagementExternalUserArray;
  70197. var N : String;
  70198. begin
  70199. Result:=TMicrosoft_Online_SharePoint_TenantManagementExternalUserArray(GetMulti(AQuery,True,N));
  70200. end;
  70201. Function TSPExternalUsersEntitySet.ListAll(const AQuery: TQueryParams) : TMicrosoft_Online_SharePoint_TenantManagementExternalUserArray;
  70202. var N : String;
  70203. begin
  70204. Result:=TMicrosoft_Online_SharePoint_TenantManagementExternalUserArray(GetMulti(AQuery,True,N));
  70205. end;
  70206. { --------------------------------------------------------------------
  70207. TSPGetExternalUsersResultssEntitySet
  70208. --------------------------------------------------------------------}
  70209. Class Function TSPGetExternalUsersResultssEntitySet.ObjectRestKind : String;
  70210. begin
  70211. Result:='GetExternalUsersResultss';
  70212. end;
  70213. Class Function TSPGetExternalUsersResultssEntitySet.EntityClass : TODataEntityClass;
  70214. begin
  70215. Result:=TMicrosoft_Online_SharePoint_TenantManagementGetExternalUsersResults;
  70216. end;
  70217. Function TSPGetExternalUsersResultssEntitySet.Get(const TotalUserCount: TInt32) : TMicrosoft_Online_SharePoint_TenantManagementGetExternalUsersResults;
  70218. begin
  70219. Result:=TMicrosoft_Online_SharePoint_TenantManagementGetExternalUsersResults(GetSingle(IntToStr(TotalUserCount)));
  70220. end;
  70221. Function TSPGetExternalUsersResultssEntitySet.List(const AQuery: String; out NextLink: String) : TMicrosoft_Online_SharePoint_TenantManagementGetExternalUsersResultsArray;
  70222. begin
  70223. Result:=TMicrosoft_Online_SharePoint_TenantManagementGetExternalUsersResultsArray(GetMulti(AQuery,False,NextLink));
  70224. end;
  70225. Function TSPGetExternalUsersResultssEntitySet.List(const AQuery: TQueryParams; out NextLink: String) : TMicrosoft_Online_SharePoint_TenantManagementGetExternalUsersResultsArray;
  70226. begin
  70227. Result:=TMicrosoft_Online_SharePoint_TenantManagementGetExternalUsersResultsArray(GetMulti(AQuery,False,NextLink));
  70228. end;
  70229. Function TSPGetExternalUsersResultssEntitySet.ListAll(const AQuery: String) : TMicrosoft_Online_SharePoint_TenantManagementGetExternalUsersResultsArray;
  70230. var N : String;
  70231. begin
  70232. Result:=TMicrosoft_Online_SharePoint_TenantManagementGetExternalUsersResultsArray(GetMulti(AQuery,True,N));
  70233. end;
  70234. Function TSPGetExternalUsersResultssEntitySet.ListAll(const AQuery: TQueryParams) : TMicrosoft_Online_SharePoint_TenantManagementGetExternalUsersResultsArray;
  70235. var N : String;
  70236. begin
  70237. Result:=TMicrosoft_Online_SharePoint_TenantManagementGetExternalUsersResultsArray(GetMulti(AQuery,True,N));
  70238. end;
  70239. { --------------------------------------------------------------------
  70240. TSPOffice365TenantsEntitySet
  70241. --------------------------------------------------------------------}
  70242. Class Function TSPOffice365TenantsEntitySet.ObjectRestKind : String;
  70243. begin
  70244. Result:='Office365Tenants';
  70245. end;
  70246. Class Function TSPOffice365TenantsEntitySet.EntityClass : TODataEntityClass;
  70247. begin
  70248. Result:=TMicrosoft_Online_SharePoint_TenantManagementOffice365Tenant;
  70249. end;
  70250. Function TSPOffice365TenantsEntitySet.Get(const DisplayStartASiteOption: boolean) : TMicrosoft_Online_SharePoint_TenantManagementOffice365Tenant;
  70251. begin
  70252. Result:=TMicrosoft_Online_SharePoint_TenantManagementOffice365Tenant(GetSingle(BoolToStr(DisplayStartASiteOption,'true','false')));
  70253. end;
  70254. Function TSPOffice365TenantsEntitySet.List(const AQuery: String; out NextLink: String) : TMicrosoft_Online_SharePoint_TenantManagementOffice365TenantArray;
  70255. begin
  70256. Result:=TMicrosoft_Online_SharePoint_TenantManagementOffice365TenantArray(GetMulti(AQuery,False,NextLink));
  70257. end;
  70258. Function TSPOffice365TenantsEntitySet.List(const AQuery: TQueryParams; out NextLink: String) : TMicrosoft_Online_SharePoint_TenantManagementOffice365TenantArray;
  70259. begin
  70260. Result:=TMicrosoft_Online_SharePoint_TenantManagementOffice365TenantArray(GetMulti(AQuery,False,NextLink));
  70261. end;
  70262. Function TSPOffice365TenantsEntitySet.ListAll(const AQuery: String) : TMicrosoft_Online_SharePoint_TenantManagementOffice365TenantArray;
  70263. var N : String;
  70264. begin
  70265. Result:=TMicrosoft_Online_SharePoint_TenantManagementOffice365TenantArray(GetMulti(AQuery,True,N));
  70266. end;
  70267. Function TSPOffice365TenantsEntitySet.ListAll(const AQuery: TQueryParams) : TMicrosoft_Online_SharePoint_TenantManagementOffice365TenantArray;
  70268. var N : String;
  70269. begin
  70270. Result:=TMicrosoft_Online_SharePoint_TenantManagementOffice365TenantArray(GetMulti(AQuery,True,N));
  70271. end;
  70272. { --------------------------------------------------------------------
  70273. TSPRemoveExternalUsersResultssEntitySet
  70274. --------------------------------------------------------------------}
  70275. Class Function TSPRemoveExternalUsersResultssEntitySet.ObjectRestKind : String;
  70276. begin
  70277. Result:='RemoveExternalUsersResultss';
  70278. end;
  70279. Class Function TSPRemoveExternalUsersResultssEntitySet.EntityClass : TODataEntityClass;
  70280. begin
  70281. Result:=TMicrosoft_Online_SharePoint_TenantManagementRemoveExternalUsersResults;
  70282. end;
  70283. Function TSPRemoveExternalUsersResultssEntitySet.Get(const Id4a81de82eeb94d6080ea5bf63e27023a: string) : TMicrosoft_Online_SharePoint_TenantManagementRemoveExternalUsersResults;
  70284. begin
  70285. Result:=TMicrosoft_Online_SharePoint_TenantManagementRemoveExternalUsersResults(GetSingle(TODataObject.MakeKeyString(Id4a81de82eeb94d6080ea5bf63e27023a)));
  70286. end;
  70287. Function TSPRemoveExternalUsersResultssEntitySet.List(const AQuery: String; out NextLink: String) : TMicrosoft_Online_SharePoint_TenantManagementRemoveExternalUsersResultsArray;
  70288. begin
  70289. Result:=TMicrosoft_Online_SharePoint_TenantManagementRemoveExternalUsersResultsArray(GetMulti(AQuery,False,NextLink));
  70290. end;
  70291. Function TSPRemoveExternalUsersResultssEntitySet.List(const AQuery: TQueryParams; out NextLink: String) : TMicrosoft_Online_SharePoint_TenantManagementRemoveExternalUsersResultsArray;
  70292. begin
  70293. Result:=TMicrosoft_Online_SharePoint_TenantManagementRemoveExternalUsersResultsArray(GetMulti(AQuery,False,NextLink));
  70294. end;
  70295. Function TSPRemoveExternalUsersResultssEntitySet.ListAll(const AQuery: String) : TMicrosoft_Online_SharePoint_TenantManagementRemoveExternalUsersResultsArray;
  70296. var N : String;
  70297. begin
  70298. Result:=TMicrosoft_Online_SharePoint_TenantManagementRemoveExternalUsersResultsArray(GetMulti(AQuery,True,N));
  70299. end;
  70300. Function TSPRemoveExternalUsersResultssEntitySet.ListAll(const AQuery: TQueryParams) : TMicrosoft_Online_SharePoint_TenantManagementRemoveExternalUsersResultsArray;
  70301. var N : String;
  70302. begin
  70303. Result:=TMicrosoft_Online_SharePoint_TenantManagementRemoveExternalUsersResultsArray(GetMulti(AQuery,True,N));
  70304. end;
  70305. { --------------------------------------------------------------------
  70306. TSPFeatureDefinitionsEntitySet
  70307. --------------------------------------------------------------------}
  70308. Class Function TSPFeatureDefinitionsEntitySet.ObjectRestKind : String;
  70309. begin
  70310. Result:='FeatureDefinitions';
  70311. end;
  70312. Class Function TSPFeatureDefinitionsEntitySet.EntityClass : TODataEntityClass;
  70313. begin
  70314. Result:=TMicrosoft_SharePoint_AdministrationFeatureDefinition;
  70315. end;
  70316. Function TSPFeatureDefinitionsEntitySet.Get(const Id: TGUIDString) : TMicrosoft_SharePoint_AdministrationFeatureDefinition;
  70317. begin
  70318. Result:=TMicrosoft_SharePoint_AdministrationFeatureDefinition(GetSingle(TODataObject.MakeKeyString(Id)));
  70319. end;
  70320. Function TSPFeatureDefinitionsEntitySet.List(const AQuery: String; out NextLink: String) : TMicrosoft_SharePoint_AdministrationFeatureDefinitionArray;
  70321. begin
  70322. Result:=TMicrosoft_SharePoint_AdministrationFeatureDefinitionArray(GetMulti(AQuery,False,NextLink));
  70323. end;
  70324. Function TSPFeatureDefinitionsEntitySet.List(const AQuery: TQueryParams; out NextLink: String) : TMicrosoft_SharePoint_AdministrationFeatureDefinitionArray;
  70325. begin
  70326. Result:=TMicrosoft_SharePoint_AdministrationFeatureDefinitionArray(GetMulti(AQuery,False,NextLink));
  70327. end;
  70328. Function TSPFeatureDefinitionsEntitySet.ListAll(const AQuery: String) : TMicrosoft_SharePoint_AdministrationFeatureDefinitionArray;
  70329. var N : String;
  70330. begin
  70331. Result:=TMicrosoft_SharePoint_AdministrationFeatureDefinitionArray(GetMulti(AQuery,True,N));
  70332. end;
  70333. Function TSPFeatureDefinitionsEntitySet.ListAll(const AQuery: TQueryParams) : TMicrosoft_SharePoint_AdministrationFeatureDefinitionArray;
  70334. var N : String;
  70335. begin
  70336. Result:=TMicrosoft_SharePoint_AdministrationFeatureDefinitionArray(GetMulti(AQuery,True,N));
  70337. end;
  70338. { --------------------------------------------------------------------
  70339. TSPSPAnalyticsUsageServicesEntitySet
  70340. --------------------------------------------------------------------}
  70341. Class Function TSPSPAnalyticsUsageServicesEntitySet.ObjectRestKind : String;
  70342. begin
  70343. Result:='SPAnalyticsUsageServices';
  70344. end;
  70345. Class Function TSPSPAnalyticsUsageServicesEntitySet.EntityClass : TODataEntityClass;
  70346. begin
  70347. Result:=TMicrosoft_SharePoint_AdministrationSPAnalyticsUsageService;
  70348. end;
  70349. Function TSPSPAnalyticsUsageServicesEntitySet.Get(const Id4a81de82eeb94d6080ea5bf63e27023a: string) : TMicrosoft_SharePoint_AdministrationSPAnalyticsUsageService;
  70350. begin
  70351. Result:=TMicrosoft_SharePoint_AdministrationSPAnalyticsUsageService(GetSingle(TODataObject.MakeKeyString(Id4a81de82eeb94d6080ea5bf63e27023a)));
  70352. end;
  70353. Function TSPSPAnalyticsUsageServicesEntitySet.List(const AQuery: String; out NextLink: String) : TMicrosoft_SharePoint_AdministrationSPAnalyticsUsageServiceArray;
  70354. begin
  70355. Result:=TMicrosoft_SharePoint_AdministrationSPAnalyticsUsageServiceArray(GetMulti(AQuery,False,NextLink));
  70356. end;
  70357. Function TSPSPAnalyticsUsageServicesEntitySet.List(const AQuery: TQueryParams; out NextLink: String) : TMicrosoft_SharePoint_AdministrationSPAnalyticsUsageServiceArray;
  70358. begin
  70359. Result:=TMicrosoft_SharePoint_AdministrationSPAnalyticsUsageServiceArray(GetMulti(AQuery,False,NextLink));
  70360. end;
  70361. Function TSPSPAnalyticsUsageServicesEntitySet.ListAll(const AQuery: String) : TMicrosoft_SharePoint_AdministrationSPAnalyticsUsageServiceArray;
  70362. var N : String;
  70363. begin
  70364. Result:=TMicrosoft_SharePoint_AdministrationSPAnalyticsUsageServiceArray(GetMulti(AQuery,True,N));
  70365. end;
  70366. Function TSPSPAnalyticsUsageServicesEntitySet.ListAll(const AQuery: TQueryParams) : TMicrosoft_SharePoint_AdministrationSPAnalyticsUsageServiceArray;
  70367. var N : String;
  70368. begin
  70369. Result:=TMicrosoft_SharePoint_AdministrationSPAnalyticsUsageServiceArray(GetMulti(AQuery,True,N));
  70370. end;
  70371. { --------------------------------------------------------------------
  70372. TSPSPAppStateQueryJobDefinitionsEntitySet
  70373. --------------------------------------------------------------------}
  70374. Class Function TSPSPAppStateQueryJobDefinitionsEntitySet.ObjectRestKind : String;
  70375. begin
  70376. Result:='SPAppStateQueryJobDefinitions';
  70377. end;
  70378. Class Function TSPSPAppStateQueryJobDefinitionsEntitySet.EntityClass : TODataEntityClass;
  70379. begin
  70380. Result:=TMicrosoft_SharePoint_AdministrationSPAppStateQueryJobDefinition;
  70381. end;
  70382. Function TSPSPAppStateQueryJobDefinitionsEntitySet.Get(const Id4a81de82eeb94d6080ea5bf63e27023a: string) : TMicrosoft_SharePoint_AdministrationSPAppStateQueryJobDefinition;
  70383. begin
  70384. Result:=TMicrosoft_SharePoint_AdministrationSPAppStateQueryJobDefinition(GetSingle(TODataObject.MakeKeyString(Id4a81de82eeb94d6080ea5bf63e27023a)));
  70385. end;
  70386. Function TSPSPAppStateQueryJobDefinitionsEntitySet.List(const AQuery: String; out NextLink: String) : TMicrosoft_SharePoint_AdministrationSPAppStateQueryJobDefinitionArray;
  70387. begin
  70388. Result:=TMicrosoft_SharePoint_AdministrationSPAppStateQueryJobDefinitionArray(GetMulti(AQuery,False,NextLink));
  70389. end;
  70390. Function TSPSPAppStateQueryJobDefinitionsEntitySet.List(const AQuery: TQueryParams; out NextLink: String) : TMicrosoft_SharePoint_AdministrationSPAppStateQueryJobDefinitionArray;
  70391. begin
  70392. Result:=TMicrosoft_SharePoint_AdministrationSPAppStateQueryJobDefinitionArray(GetMulti(AQuery,False,NextLink));
  70393. end;
  70394. Function TSPSPAppStateQueryJobDefinitionsEntitySet.ListAll(const AQuery: String) : TMicrosoft_SharePoint_AdministrationSPAppStateQueryJobDefinitionArray;
  70395. var N : String;
  70396. begin
  70397. Result:=TMicrosoft_SharePoint_AdministrationSPAppStateQueryJobDefinitionArray(GetMulti(AQuery,True,N));
  70398. end;
  70399. Function TSPSPAppStateQueryJobDefinitionsEntitySet.ListAll(const AQuery: TQueryParams) : TMicrosoft_SharePoint_AdministrationSPAppStateQueryJobDefinitionArray;
  70400. var N : String;
  70401. begin
  70402. Result:=TMicrosoft_SharePoint_AdministrationSPAppStateQueryJobDefinitionArray(GetMulti(AQuery,True,N));
  70403. end;
  70404. { --------------------------------------------------------------------
  70405. TSPSPFarmsEntitySet
  70406. --------------------------------------------------------------------}
  70407. Class Function TSPSPFarmsEntitySet.ObjectRestKind : String;
  70408. begin
  70409. Result:='SPFarms';
  70410. end;
  70411. Class Function TSPSPFarmsEntitySet.EntityClass : TODataEntityClass;
  70412. begin
  70413. Result:=TMicrosoft_SharePoint_AdministrationSPFarm;
  70414. end;
  70415. Function TSPSPFarmsEntitySet.Get(const Id: TGUIDString) : TMicrosoft_SharePoint_AdministrationSPFarm;
  70416. begin
  70417. Result:=TMicrosoft_SharePoint_AdministrationSPFarm(GetSingle(TODataObject.MakeKeyString(Id)));
  70418. end;
  70419. Function TSPSPFarmsEntitySet.List(const AQuery: String; out NextLink: String) : TMicrosoft_SharePoint_AdministrationSPFarmArray;
  70420. begin
  70421. Result:=TMicrosoft_SharePoint_AdministrationSPFarmArray(GetMulti(AQuery,False,NextLink));
  70422. end;
  70423. Function TSPSPFarmsEntitySet.List(const AQuery: TQueryParams; out NextLink: String) : TMicrosoft_SharePoint_AdministrationSPFarmArray;
  70424. begin
  70425. Result:=TMicrosoft_SharePoint_AdministrationSPFarmArray(GetMulti(AQuery,False,NextLink));
  70426. end;
  70427. Function TSPSPFarmsEntitySet.ListAll(const AQuery: String) : TMicrosoft_SharePoint_AdministrationSPFarmArray;
  70428. var N : String;
  70429. begin
  70430. Result:=TMicrosoft_SharePoint_AdministrationSPFarmArray(GetMulti(AQuery,True,N));
  70431. end;
  70432. Function TSPSPFarmsEntitySet.ListAll(const AQuery: TQueryParams) : TMicrosoft_SharePoint_AdministrationSPFarmArray;
  70433. var N : String;
  70434. begin
  70435. Result:=TMicrosoft_SharePoint_AdministrationSPFarmArray(GetMulti(AQuery,True,N));
  70436. end;
  70437. { --------------------------------------------------------------------
  70438. TSPSPTenantAppInstanceDatasEntitySet
  70439. --------------------------------------------------------------------}
  70440. Class Function TSPSPTenantAppInstanceDatasEntitySet.ObjectRestKind : String;
  70441. begin
  70442. Result:='SPTenantAppInstanceDatas';
  70443. end;
  70444. Class Function TSPSPTenantAppInstanceDatasEntitySet.EntityClass : TODataEntityClass;
  70445. begin
  70446. Result:=TMicrosoft_SharePoint_AdministrationSPTenantAppInstanceData;
  70447. end;
  70448. Function TSPSPTenantAppInstanceDatasEntitySet.Get(const Id4a81de82eeb94d6080ea5bf63e27023a: string) : TMicrosoft_SharePoint_AdministrationSPTenantAppInstanceData;
  70449. begin
  70450. Result:=TMicrosoft_SharePoint_AdministrationSPTenantAppInstanceData(GetSingle(TODataObject.MakeKeyString(Id4a81de82eeb94d6080ea5bf63e27023a)));
  70451. end;
  70452. Function TSPSPTenantAppInstanceDatasEntitySet.List(const AQuery: String; out NextLink: String) : TMicrosoft_SharePoint_AdministrationSPTenantAppInstanceDataArray;
  70453. begin
  70454. Result:=TMicrosoft_SharePoint_AdministrationSPTenantAppInstanceDataArray(GetMulti(AQuery,False,NextLink));
  70455. end;
  70456. Function TSPSPTenantAppInstanceDatasEntitySet.List(const AQuery: TQueryParams; out NextLink: String) : TMicrosoft_SharePoint_AdministrationSPTenantAppInstanceDataArray;
  70457. begin
  70458. Result:=TMicrosoft_SharePoint_AdministrationSPTenantAppInstanceDataArray(GetMulti(AQuery,False,NextLink));
  70459. end;
  70460. Function TSPSPTenantAppInstanceDatasEntitySet.ListAll(const AQuery: String) : TMicrosoft_SharePoint_AdministrationSPTenantAppInstanceDataArray;
  70461. var N : String;
  70462. begin
  70463. Result:=TMicrosoft_SharePoint_AdministrationSPTenantAppInstanceDataArray(GetMulti(AQuery,True,N));
  70464. end;
  70465. Function TSPSPTenantAppInstanceDatasEntitySet.ListAll(const AQuery: TQueryParams) : TMicrosoft_SharePoint_AdministrationSPTenantAppInstanceDataArray;
  70466. var N : String;
  70467. begin
  70468. Result:=TMicrosoft_SharePoint_AdministrationSPTenantAppInstanceDataArray(GetMulti(AQuery,True,N));
  70469. end;
  70470. { --------------------------------------------------------------------
  70471. TSPSPWebApplicationsEntitySet
  70472. --------------------------------------------------------------------}
  70473. Class Function TSPSPWebApplicationsEntitySet.ObjectRestKind : String;
  70474. begin
  70475. Result:='SPWebApplications';
  70476. end;
  70477. Class Function TSPSPWebApplicationsEntitySet.EntityClass : TODataEntityClass;
  70478. begin
  70479. Result:=TMicrosoft_SharePoint_AdministrationSPWebApplication;
  70480. end;
  70481. Function TSPSPWebApplicationsEntitySet.Get(const Id: TGUIDString) : TMicrosoft_SharePoint_AdministrationSPWebApplication;
  70482. begin
  70483. Result:=TMicrosoft_SharePoint_AdministrationSPWebApplication(GetSingle(TODataObject.MakeKeyString(Id)));
  70484. end;
  70485. Function TSPSPWebApplicationsEntitySet.List(const AQuery: String; out NextLink: String) : TMicrosoft_SharePoint_AdministrationSPWebApplicationArray;
  70486. begin
  70487. Result:=TMicrosoft_SharePoint_AdministrationSPWebApplicationArray(GetMulti(AQuery,False,NextLink));
  70488. end;
  70489. Function TSPSPWebApplicationsEntitySet.List(const AQuery: TQueryParams; out NextLink: String) : TMicrosoft_SharePoint_AdministrationSPWebApplicationArray;
  70490. begin
  70491. Result:=TMicrosoft_SharePoint_AdministrationSPWebApplicationArray(GetMulti(AQuery,False,NextLink));
  70492. end;
  70493. Function TSPSPWebApplicationsEntitySet.ListAll(const AQuery: String) : TMicrosoft_SharePoint_AdministrationSPWebApplicationArray;
  70494. var N : String;
  70495. begin
  70496. Result:=TMicrosoft_SharePoint_AdministrationSPWebApplicationArray(GetMulti(AQuery,True,N));
  70497. end;
  70498. Function TSPSPWebApplicationsEntitySet.ListAll(const AQuery: TQueryParams) : TMicrosoft_SharePoint_AdministrationSPWebApplicationArray;
  70499. var N : String;
  70500. begin
  70501. Result:=TMicrosoft_SharePoint_AdministrationSPWebApplicationArray(GetMulti(AQuery,True,N));
  70502. end;
  70503. { --------------------------------------------------------------------
  70504. TSPSPWebServicesEntitySet
  70505. --------------------------------------------------------------------}
  70506. Class Function TSPSPWebServicesEntitySet.ObjectRestKind : String;
  70507. begin
  70508. Result:='SPWebServices';
  70509. end;
  70510. Class Function TSPSPWebServicesEntitySet.EntityClass : TODataEntityClass;
  70511. begin
  70512. Result:=TMicrosoft_SharePoint_AdministrationSPWebService;
  70513. end;
  70514. Function TSPSPWebServicesEntitySet.Get(const Id4a81de82eeb94d6080ea5bf63e27023a: string) : TMicrosoft_SharePoint_AdministrationSPWebService;
  70515. begin
  70516. Result:=TMicrosoft_SharePoint_AdministrationSPWebService(GetSingle(TODataObject.MakeKeyString(Id4a81de82eeb94d6080ea5bf63e27023a)));
  70517. end;
  70518. Function TSPSPWebServicesEntitySet.List(const AQuery: String; out NextLink: String) : TMicrosoft_SharePoint_AdministrationSPWebServiceArray;
  70519. begin
  70520. Result:=TMicrosoft_SharePoint_AdministrationSPWebServiceArray(GetMulti(AQuery,False,NextLink));
  70521. end;
  70522. Function TSPSPWebServicesEntitySet.List(const AQuery: TQueryParams; out NextLink: String) : TMicrosoft_SharePoint_AdministrationSPWebServiceArray;
  70523. begin
  70524. Result:=TMicrosoft_SharePoint_AdministrationSPWebServiceArray(GetMulti(AQuery,False,NextLink));
  70525. end;
  70526. Function TSPSPWebServicesEntitySet.ListAll(const AQuery: String) : TMicrosoft_SharePoint_AdministrationSPWebServiceArray;
  70527. var N : String;
  70528. begin
  70529. Result:=TMicrosoft_SharePoint_AdministrationSPWebServiceArray(GetMulti(AQuery,True,N));
  70530. end;
  70531. Function TSPSPWebServicesEntitySet.ListAll(const AQuery: TQueryParams) : TMicrosoft_SharePoint_AdministrationSPWebServiceArray;
  70532. var N : String;
  70533. begin
  70534. Result:=TMicrosoft_SharePoint_AdministrationSPWebServiceArray(GetMulti(AQuery,True,N));
  70535. end;
  70536. { --------------------------------------------------------------------
  70537. TSPSPAppPrincipalInfosEntitySet
  70538. --------------------------------------------------------------------}
  70539. Class Function TSPSPAppPrincipalInfosEntitySet.ObjectRestKind : String;
  70540. begin
  70541. Result:='SPAppPrincipalInfos';
  70542. end;
  70543. Class Function TSPSPAppPrincipalInfosEntitySet.EntityClass : TODataEntityClass;
  70544. begin
  70545. Result:=TMicrosoft_SharePoint_AppManagementSPAppPrincipalInfo;
  70546. end;
  70547. Function TSPSPAppPrincipalInfosEntitySet.Get(const _Name: string) : TMicrosoft_SharePoint_AppManagementSPAppPrincipalInfo;
  70548. begin
  70549. Result:=TMicrosoft_SharePoint_AppManagementSPAppPrincipalInfo(GetSingle(TODataObject.MakeKeyString(_Name)));
  70550. end;
  70551. Function TSPSPAppPrincipalInfosEntitySet.List(const AQuery: String; out NextLink: String) : TMicrosoft_SharePoint_AppManagementSPAppPrincipalInfoArray;
  70552. begin
  70553. Result:=TMicrosoft_SharePoint_AppManagementSPAppPrincipalInfoArray(GetMulti(AQuery,False,NextLink));
  70554. end;
  70555. Function TSPSPAppPrincipalInfosEntitySet.List(const AQuery: TQueryParams; out NextLink: String) : TMicrosoft_SharePoint_AppManagementSPAppPrincipalInfoArray;
  70556. begin
  70557. Result:=TMicrosoft_SharePoint_AppManagementSPAppPrincipalInfoArray(GetMulti(AQuery,False,NextLink));
  70558. end;
  70559. Function TSPSPAppPrincipalInfosEntitySet.ListAll(const AQuery: String) : TMicrosoft_SharePoint_AppManagementSPAppPrincipalInfoArray;
  70560. var N : String;
  70561. begin
  70562. Result:=TMicrosoft_SharePoint_AppManagementSPAppPrincipalInfoArray(GetMulti(AQuery,True,N));
  70563. end;
  70564. Function TSPSPAppPrincipalInfosEntitySet.ListAll(const AQuery: TQueryParams) : TMicrosoft_SharePoint_AppManagementSPAppPrincipalInfoArray;
  70565. var N : String;
  70566. begin
  70567. Result:=TMicrosoft_SharePoint_AppManagementSPAppPrincipalInfoArray(GetMulti(AQuery,True,N));
  70568. end;
  70569. { --------------------------------------------------------------------
  70570. TSPDocumentCrawlLogsEntitySet
  70571. --------------------------------------------------------------------}
  70572. Class Function TSPDocumentCrawlLogsEntitySet.ObjectRestKind : String;
  70573. begin
  70574. Result:='DocumentCrawlLogs';
  70575. end;
  70576. Class Function TSPDocumentCrawlLogsEntitySet.EntityClass : TODataEntityClass;
  70577. begin
  70578. Result:=TMicrosoft_SharePoint_Client_Search_AdministrationDocumentCrawlLog;
  70579. end;
  70580. Function TSPDocumentCrawlLogsEntitySet.Get(const Id4a81de82eeb94d6080ea5bf63e27023a: string) : TMicrosoft_SharePoint_Client_Search_AdministrationDocumentCrawlLog;
  70581. begin
  70582. Result:=TMicrosoft_SharePoint_Client_Search_AdministrationDocumentCrawlLog(GetSingle(TODataObject.MakeKeyString(Id4a81de82eeb94d6080ea5bf63e27023a)));
  70583. end;
  70584. Function TSPDocumentCrawlLogsEntitySet.List(const AQuery: String; out NextLink: String) : TMicrosoft_SharePoint_Client_Search_AdministrationDocumentCrawlLogArray;
  70585. begin
  70586. Result:=TMicrosoft_SharePoint_Client_Search_AdministrationDocumentCrawlLogArray(GetMulti(AQuery,False,NextLink));
  70587. end;
  70588. Function TSPDocumentCrawlLogsEntitySet.List(const AQuery: TQueryParams; out NextLink: String) : TMicrosoft_SharePoint_Client_Search_AdministrationDocumentCrawlLogArray;
  70589. begin
  70590. Result:=TMicrosoft_SharePoint_Client_Search_AdministrationDocumentCrawlLogArray(GetMulti(AQuery,False,NextLink));
  70591. end;
  70592. Function TSPDocumentCrawlLogsEntitySet.ListAll(const AQuery: String) : TMicrosoft_SharePoint_Client_Search_AdministrationDocumentCrawlLogArray;
  70593. var N : String;
  70594. begin
  70595. Result:=TMicrosoft_SharePoint_Client_Search_AdministrationDocumentCrawlLogArray(GetMulti(AQuery,True,N));
  70596. end;
  70597. Function TSPDocumentCrawlLogsEntitySet.ListAll(const AQuery: TQueryParams) : TMicrosoft_SharePoint_Client_Search_AdministrationDocumentCrawlLogArray;
  70598. var N : String;
  70599. begin
  70600. Result:=TMicrosoft_SharePoint_Client_Search_AdministrationDocumentCrawlLogArray(GetMulti(AQuery,True,N));
  70601. end;
  70602. { --------------------------------------------------------------------
  70603. TSPSignalStoresEntitySet
  70604. --------------------------------------------------------------------}
  70605. Class Function TSPSignalStoresEntitySet.ObjectRestKind : String;
  70606. begin
  70607. Result:='SignalStores';
  70608. end;
  70609. Class Function TSPSignalStoresEntitySet.EntityClass : TODataEntityClass;
  70610. begin
  70611. Result:=TMicrosoft_SharePoint_Client_Search_AnalyticsSignalStore;
  70612. end;
  70613. Function TSPSignalStoresEntitySet.Get(const Id4a81de82eeb94d6080ea5bf63e27023a: string) : TMicrosoft_SharePoint_Client_Search_AnalyticsSignalStore;
  70614. begin
  70615. Result:=TMicrosoft_SharePoint_Client_Search_AnalyticsSignalStore(GetSingle(TODataObject.MakeKeyString(Id4a81de82eeb94d6080ea5bf63e27023a)));
  70616. end;
  70617. Function TSPSignalStoresEntitySet.List(const AQuery: String; out NextLink: String) : TMicrosoft_SharePoint_Client_Search_AnalyticsSignalStoreArray;
  70618. begin
  70619. Result:=TMicrosoft_SharePoint_Client_Search_AnalyticsSignalStoreArray(GetMulti(AQuery,False,NextLink));
  70620. end;
  70621. Function TSPSignalStoresEntitySet.List(const AQuery: TQueryParams; out NextLink: String) : TMicrosoft_SharePoint_Client_Search_AnalyticsSignalStoreArray;
  70622. begin
  70623. Result:=TMicrosoft_SharePoint_Client_Search_AnalyticsSignalStoreArray(GetMulti(AQuery,False,NextLink));
  70624. end;
  70625. Function TSPSignalStoresEntitySet.ListAll(const AQuery: String) : TMicrosoft_SharePoint_Client_Search_AnalyticsSignalStoreArray;
  70626. var N : String;
  70627. begin
  70628. Result:=TMicrosoft_SharePoint_Client_Search_AnalyticsSignalStoreArray(GetMulti(AQuery,True,N));
  70629. end;
  70630. Function TSPSignalStoresEntitySet.ListAll(const AQuery: TQueryParams) : TMicrosoft_SharePoint_Client_Search_AnalyticsSignalStoreArray;
  70631. var N : String;
  70632. begin
  70633. Result:=TMicrosoft_SharePoint_Client_Search_AnalyticsSignalStoreArray(GetMulti(AQuery,True,N));
  70634. end;
  70635. { --------------------------------------------------------------------
  70636. TSPQueryPersonalizationDatasEntitySet
  70637. --------------------------------------------------------------------}
  70638. Class Function TSPQueryPersonalizationDatasEntitySet.ObjectRestKind : String;
  70639. begin
  70640. Result:='QueryPersonalizationDatas';
  70641. end;
  70642. Class Function TSPQueryPersonalizationDatasEntitySet.EntityClass : TODataEntityClass;
  70643. begin
  70644. Result:=TMicrosoft_SharePoint_Client_Search_QueryQueryPersonalizationData;
  70645. end;
  70646. Function TSPQueryPersonalizationDatasEntitySet.Get(const Id4a81de82eeb94d6080ea5bf63e27023a: string) : TMicrosoft_SharePoint_Client_Search_QueryQueryPersonalizationData;
  70647. begin
  70648. Result:=TMicrosoft_SharePoint_Client_Search_QueryQueryPersonalizationData(GetSingle(TODataObject.MakeKeyString(Id4a81de82eeb94d6080ea5bf63e27023a)));
  70649. end;
  70650. Function TSPQueryPersonalizationDatasEntitySet.List(const AQuery: String; out NextLink: String) : TMicrosoft_SharePoint_Client_Search_QueryQueryPersonalizationDataArray;
  70651. begin
  70652. Result:=TMicrosoft_SharePoint_Client_Search_QueryQueryPersonalizationDataArray(GetMulti(AQuery,False,NextLink));
  70653. end;
  70654. Function TSPQueryPersonalizationDatasEntitySet.List(const AQuery: TQueryParams; out NextLink: String) : TMicrosoft_SharePoint_Client_Search_QueryQueryPersonalizationDataArray;
  70655. begin
  70656. Result:=TMicrosoft_SharePoint_Client_Search_QueryQueryPersonalizationDataArray(GetMulti(AQuery,False,NextLink));
  70657. end;
  70658. Function TSPQueryPersonalizationDatasEntitySet.ListAll(const AQuery: String) : TMicrosoft_SharePoint_Client_Search_QueryQueryPersonalizationDataArray;
  70659. var N : String;
  70660. begin
  70661. Result:=TMicrosoft_SharePoint_Client_Search_QueryQueryPersonalizationDataArray(GetMulti(AQuery,True,N));
  70662. end;
  70663. Function TSPQueryPersonalizationDatasEntitySet.ListAll(const AQuery: TQueryParams) : TMicrosoft_SharePoint_Client_Search_QueryQueryPersonalizationDataArray;
  70664. var N : String;
  70665. begin
  70666. Result:=TMicrosoft_SharePoint_Client_Search_QueryQueryPersonalizationDataArray(GetMulti(AQuery,True,N));
  70667. end;
  70668. { --------------------------------------------------------------------
  70669. TSPRankingLabelingsEntitySet
  70670. --------------------------------------------------------------------}
  70671. Class Function TSPRankingLabelingsEntitySet.ObjectRestKind : String;
  70672. begin
  70673. Result:='RankingLabelings';
  70674. end;
  70675. Class Function TSPRankingLabelingsEntitySet.EntityClass : TODataEntityClass;
  70676. begin
  70677. Result:=TMicrosoft_SharePoint_Client_Search_QueryRankingLabeling;
  70678. end;
  70679. Function TSPRankingLabelingsEntitySet.Get(const Id4a81de82eeb94d6080ea5bf63e27023a: string) : TMicrosoft_SharePoint_Client_Search_QueryRankingLabeling;
  70680. begin
  70681. Result:=TMicrosoft_SharePoint_Client_Search_QueryRankingLabeling(GetSingle(TODataObject.MakeKeyString(Id4a81de82eeb94d6080ea5bf63e27023a)));
  70682. end;
  70683. Function TSPRankingLabelingsEntitySet.List(const AQuery: String; out NextLink: String) : TMicrosoft_SharePoint_Client_Search_QueryRankingLabelingArray;
  70684. begin
  70685. Result:=TMicrosoft_SharePoint_Client_Search_QueryRankingLabelingArray(GetMulti(AQuery,False,NextLink));
  70686. end;
  70687. Function TSPRankingLabelingsEntitySet.List(const AQuery: TQueryParams; out NextLink: String) : TMicrosoft_SharePoint_Client_Search_QueryRankingLabelingArray;
  70688. begin
  70689. Result:=TMicrosoft_SharePoint_Client_Search_QueryRankingLabelingArray(GetMulti(AQuery,False,NextLink));
  70690. end;
  70691. Function TSPRankingLabelingsEntitySet.ListAll(const AQuery: String) : TMicrosoft_SharePoint_Client_Search_QueryRankingLabelingArray;
  70692. var N : String;
  70693. begin
  70694. Result:=TMicrosoft_SharePoint_Client_Search_QueryRankingLabelingArray(GetMulti(AQuery,True,N));
  70695. end;
  70696. Function TSPRankingLabelingsEntitySet.ListAll(const AQuery: TQueryParams) : TMicrosoft_SharePoint_Client_Search_QueryRankingLabelingArray;
  70697. var N : String;
  70698. begin
  70699. Result:=TMicrosoft_SharePoint_Client_Search_QueryRankingLabelingArray(GetMulti(AQuery,True,N));
  70700. end;
  70701. { --------------------------------------------------------------------
  70702. TSPReorderingRuleCollectionsEntitySet
  70703. --------------------------------------------------------------------}
  70704. Class Function TSPReorderingRuleCollectionsEntitySet.ObjectRestKind : String;
  70705. begin
  70706. Result:='ReorderingRuleCollections';
  70707. end;
  70708. Class Function TSPReorderingRuleCollectionsEntitySet.EntityClass : TODataEntityClass;
  70709. begin
  70710. Result:=TMicrosoft_SharePoint_Client_Search_QueryReorderingRuleCollection;
  70711. end;
  70712. Function TSPReorderingRuleCollectionsEntitySet.Get(const Id4a81de82eeb94d6080ea5bf63e27023a: string) : TMicrosoft_SharePoint_Client_Search_QueryReorderingRuleCollection;
  70713. begin
  70714. Result:=TMicrosoft_SharePoint_Client_Search_QueryReorderingRuleCollection(GetSingle(TODataObject.MakeKeyString(Id4a81de82eeb94d6080ea5bf63e27023a)));
  70715. end;
  70716. Function TSPReorderingRuleCollectionsEntitySet.List(const AQuery: String; out NextLink: String) : TMicrosoft_SharePoint_Client_Search_QueryReorderingRuleCollectionArray;
  70717. begin
  70718. Result:=TMicrosoft_SharePoint_Client_Search_QueryReorderingRuleCollectionArray(GetMulti(AQuery,False,NextLink));
  70719. end;
  70720. Function TSPReorderingRuleCollectionsEntitySet.List(const AQuery: TQueryParams; out NextLink: String) : TMicrosoft_SharePoint_Client_Search_QueryReorderingRuleCollectionArray;
  70721. begin
  70722. Result:=TMicrosoft_SharePoint_Client_Search_QueryReorderingRuleCollectionArray(GetMulti(AQuery,False,NextLink));
  70723. end;
  70724. Function TSPReorderingRuleCollectionsEntitySet.ListAll(const AQuery: String) : TMicrosoft_SharePoint_Client_Search_QueryReorderingRuleCollectionArray;
  70725. var N : String;
  70726. begin
  70727. Result:=TMicrosoft_SharePoint_Client_Search_QueryReorderingRuleCollectionArray(GetMulti(AQuery,True,N));
  70728. end;
  70729. Function TSPReorderingRuleCollectionsEntitySet.ListAll(const AQuery: TQueryParams) : TMicrosoft_SharePoint_Client_Search_QueryReorderingRuleCollectionArray;
  70730. var N : String;
  70731. begin
  70732. Result:=TMicrosoft_SharePoint_Client_Search_QueryReorderingRuleCollectionArray(GetMulti(AQuery,True,N));
  70733. end;
  70734. { --------------------------------------------------------------------
  70735. TSPSortCollectionsEntitySet
  70736. --------------------------------------------------------------------}
  70737. Class Function TSPSortCollectionsEntitySet.ObjectRestKind : String;
  70738. begin
  70739. Result:='SortCollections';
  70740. end;
  70741. Class Function TSPSortCollectionsEntitySet.EntityClass : TODataEntityClass;
  70742. begin
  70743. Result:=TMicrosoft_SharePoint_Client_Search_QuerySortCollection;
  70744. end;
  70745. Function TSPSortCollectionsEntitySet.Get(const Id4a81de82eeb94d6080ea5bf63e27023a: string) : TMicrosoft_SharePoint_Client_Search_QuerySortCollection;
  70746. begin
  70747. Result:=TMicrosoft_SharePoint_Client_Search_QuerySortCollection(GetSingle(TODataObject.MakeKeyString(Id4a81de82eeb94d6080ea5bf63e27023a)));
  70748. end;
  70749. Function TSPSortCollectionsEntitySet.List(const AQuery: String; out NextLink: String) : TMicrosoft_SharePoint_Client_Search_QuerySortCollectionArray;
  70750. begin
  70751. Result:=TMicrosoft_SharePoint_Client_Search_QuerySortCollectionArray(GetMulti(AQuery,False,NextLink));
  70752. end;
  70753. Function TSPSortCollectionsEntitySet.List(const AQuery: TQueryParams; out NextLink: String) : TMicrosoft_SharePoint_Client_Search_QuerySortCollectionArray;
  70754. begin
  70755. Result:=TMicrosoft_SharePoint_Client_Search_QuerySortCollectionArray(GetMulti(AQuery,False,NextLink));
  70756. end;
  70757. Function TSPSortCollectionsEntitySet.ListAll(const AQuery: String) : TMicrosoft_SharePoint_Client_Search_QuerySortCollectionArray;
  70758. var N : String;
  70759. begin
  70760. Result:=TMicrosoft_SharePoint_Client_Search_QuerySortCollectionArray(GetMulti(AQuery,True,N));
  70761. end;
  70762. Function TSPSortCollectionsEntitySet.ListAll(const AQuery: TQueryParams) : TMicrosoft_SharePoint_Client_Search_QuerySortCollectionArray;
  70763. var N : String;
  70764. begin
  70765. Result:=TMicrosoft_SharePoint_Client_Search_QuerySortCollectionArray(GetMulti(AQuery,True,N));
  70766. end;
  70767. { --------------------------------------------------------------------
  70768. TSPStringCollectionsEntitySet
  70769. --------------------------------------------------------------------}
  70770. Class Function TSPStringCollectionsEntitySet.ObjectRestKind : String;
  70771. begin
  70772. Result:='StringCollections';
  70773. end;
  70774. Class Function TSPStringCollectionsEntitySet.EntityClass : TODataEntityClass;
  70775. begin
  70776. Result:=TMicrosoft_SharePoint_Client_Search_QueryStringCollection;
  70777. end;
  70778. Function TSPStringCollectionsEntitySet.Get(const Id4a81de82eeb94d6080ea5bf63e27023a: string) : TMicrosoft_SharePoint_Client_Search_QueryStringCollection;
  70779. begin
  70780. Result:=TMicrosoft_SharePoint_Client_Search_QueryStringCollection(GetSingle(TODataObject.MakeKeyString(Id4a81de82eeb94d6080ea5bf63e27023a)));
  70781. end;
  70782. Function TSPStringCollectionsEntitySet.List(const AQuery: String; out NextLink: String) : TMicrosoft_SharePoint_Client_Search_QueryStringCollectionArray;
  70783. begin
  70784. Result:=TMicrosoft_SharePoint_Client_Search_QueryStringCollectionArray(GetMulti(AQuery,False,NextLink));
  70785. end;
  70786. Function TSPStringCollectionsEntitySet.List(const AQuery: TQueryParams; out NextLink: String) : TMicrosoft_SharePoint_Client_Search_QueryStringCollectionArray;
  70787. begin
  70788. Result:=TMicrosoft_SharePoint_Client_Search_QueryStringCollectionArray(GetMulti(AQuery,False,NextLink));
  70789. end;
  70790. Function TSPStringCollectionsEntitySet.ListAll(const AQuery: String) : TMicrosoft_SharePoint_Client_Search_QueryStringCollectionArray;
  70791. var N : String;
  70792. begin
  70793. Result:=TMicrosoft_SharePoint_Client_Search_QueryStringCollectionArray(GetMulti(AQuery,True,N));
  70794. end;
  70795. Function TSPStringCollectionsEntitySet.ListAll(const AQuery: TQueryParams) : TMicrosoft_SharePoint_Client_Search_QueryStringCollectionArray;
  70796. var N : String;
  70797. begin
  70798. Result:=TMicrosoft_SharePoint_Client_Search_QueryStringCollectionArray(GetMulti(AQuery,True,N));
  70799. end;
  70800. { --------------------------------------------------------------------
  70801. TSPSPFlightsEntitySet
  70802. --------------------------------------------------------------------}
  70803. Class Function TSPSPFlightsEntitySet.ObjectRestKind : String;
  70804. begin
  70805. Result:='SPFlights';
  70806. end;
  70807. Class Function TSPSPFlightsEntitySet.EntityClass : TODataEntityClass;
  70808. begin
  70809. Result:=TMicrosoft_SharePoint_Flighting_RuntimeSPFlight;
  70810. end;
  70811. Function TSPSPFlightsEntitySet.Get(const Configuration: string) : TMicrosoft_SharePoint_Flighting_RuntimeSPFlight;
  70812. begin
  70813. Result:=TMicrosoft_SharePoint_Flighting_RuntimeSPFlight(GetSingle(TODataObject.MakeKeyString(Configuration)));
  70814. end;
  70815. Function TSPSPFlightsEntitySet.List(const AQuery: String; out NextLink: String) : TMicrosoft_SharePoint_Flighting_RuntimeSPFlightArray;
  70816. begin
  70817. Result:=TMicrosoft_SharePoint_Flighting_RuntimeSPFlightArray(GetMulti(AQuery,False,NextLink));
  70818. end;
  70819. Function TSPSPFlightsEntitySet.List(const AQuery: TQueryParams; out NextLink: String) : TMicrosoft_SharePoint_Flighting_RuntimeSPFlightArray;
  70820. begin
  70821. Result:=TMicrosoft_SharePoint_Flighting_RuntimeSPFlightArray(GetMulti(AQuery,False,NextLink));
  70822. end;
  70823. Function TSPSPFlightsEntitySet.ListAll(const AQuery: String) : TMicrosoft_SharePoint_Flighting_RuntimeSPFlightArray;
  70824. var N : String;
  70825. begin
  70826. Result:=TMicrosoft_SharePoint_Flighting_RuntimeSPFlightArray(GetMulti(AQuery,True,N));
  70827. end;
  70828. Function TSPSPFlightsEntitySet.ListAll(const AQuery: TQueryParams) : TMicrosoft_SharePoint_Flighting_RuntimeSPFlightArray;
  70829. var N : String;
  70830. begin
  70831. Result:=TMicrosoft_SharePoint_Flighting_RuntimeSPFlightArray(GetMulti(AQuery,True,N));
  70832. end;
  70833. { --------------------------------------------------------------------
  70834. TSPSPCorporateCuratedGallerySettingsBasesEntitySet
  70835. --------------------------------------------------------------------}
  70836. Class Function TSPSPCorporateCuratedGallerySettingsBasesEntitySet.ObjectRestKind : String;
  70837. begin
  70838. Result:='SPCorporateCuratedGallerySettingsBases';
  70839. end;
  70840. Class Function TSPSPCorporateCuratedGallerySettingsBasesEntitySet.EntityClass : TODataEntityClass;
  70841. begin
  70842. Result:=TMicrosoft_SharePoint_Marketplace_CorporateCuratedGallerySPCorporateCuratedGallerySettingsBase;
  70843. end;
  70844. Function TSPSPCorporateCuratedGallerySettingsBasesEntitySet.Get(const HostSiteFullUrl: string) : TMicrosoft_SharePoint_Marketplace_CorporateCuratedGallerySPCorporateCuratedGallerySettingsBase;
  70845. begin
  70846. Result:=TMicrosoft_SharePoint_Marketplace_CorporateCuratedGallerySPCorporateCuratedGallerySettingsBase(GetSingle(TODataObject.MakeKeyString(HostSiteFullUrl)));
  70847. end;
  70848. Function TSPSPCorporateCuratedGallerySettingsBasesEntitySet.List(const AQuery: String; out NextLink: String) : TMicrosoft_SharePoint_Marketplace_CorporateCuratedGallerySPCorporateCuratedGallerySettingsBaseArray;
  70849. begin
  70850. Result:=TMicrosoft_SharePoint_Marketplace_CorporateCuratedGallerySPCorporateCuratedGallerySettingsBaseArray(GetMulti(AQuery,False,NextLink));
  70851. end;
  70852. Function TSPSPCorporateCuratedGallerySettingsBasesEntitySet.List(const AQuery: TQueryParams; out NextLink: String) : TMicrosoft_SharePoint_Marketplace_CorporateCuratedGallerySPCorporateCuratedGallerySettingsBaseArray;
  70853. begin
  70854. Result:=TMicrosoft_SharePoint_Marketplace_CorporateCuratedGallerySPCorporateCuratedGallerySettingsBaseArray(GetMulti(AQuery,False,NextLink));
  70855. end;
  70856. Function TSPSPCorporateCuratedGallerySettingsBasesEntitySet.ListAll(const AQuery: String) : TMicrosoft_SharePoint_Marketplace_CorporateCuratedGallerySPCorporateCuratedGallerySettingsBaseArray;
  70857. var N : String;
  70858. begin
  70859. Result:=TMicrosoft_SharePoint_Marketplace_CorporateCuratedGallerySPCorporateCuratedGallerySettingsBaseArray(GetMulti(AQuery,True,N));
  70860. end;
  70861. Function TSPSPCorporateCuratedGallerySettingsBasesEntitySet.ListAll(const AQuery: TQueryParams) : TMicrosoft_SharePoint_Marketplace_CorporateCuratedGallerySPCorporateCuratedGallerySettingsBaseArray;
  70862. var N : String;
  70863. begin
  70864. Result:=TMicrosoft_SharePoint_Marketplace_CorporateCuratedGallerySPCorporateCuratedGallerySettingsBaseArray(GetMulti(AQuery,True,N));
  70865. end;
  70866. { --------------------------------------------------------------------
  70867. TSPSPCorporateCuratedGallerySettingsFactorysEntitySet
  70868. --------------------------------------------------------------------}
  70869. Class Function TSPSPCorporateCuratedGallerySettingsFactorysEntitySet.ObjectRestKind : String;
  70870. begin
  70871. Result:='SPCorporateCuratedGallerySettingsFactorys';
  70872. end;
  70873. Class Function TSPSPCorporateCuratedGallerySettingsFactorysEntitySet.EntityClass : TODataEntityClass;
  70874. begin
  70875. Result:=TMicrosoft_SharePoint_Marketplace_CorporateCuratedGallerySPCorporateCuratedGallerySettingsFactory;
  70876. end;
  70877. Function TSPSPCorporateCuratedGallerySettingsFactorysEntitySet.Get(const Id4a81de82eeb94d6080ea5bf63e27023a: string) : TMicrosoft_SharePoint_Marketplace_CorporateCuratedGallerySPCorporateCuratedGallerySettingsFactory;
  70878. begin
  70879. Result:=TMicrosoft_SharePoint_Marketplace_CorporateCuratedGallerySPCorporateCuratedGallerySettingsFactory(GetSingle(TODataObject.MakeKeyString(Id4a81de82eeb94d6080ea5bf63e27023a)));
  70880. end;
  70881. Function TSPSPCorporateCuratedGallerySettingsFactorysEntitySet.List(const AQuery: String; out NextLink: String) : TMicrosoft_SharePoint_Marketplace_CorporateCuratedGallerySPCorporateCuratedGallerySettingsFactoryArray;
  70882. begin
  70883. Result:=TMicrosoft_SharePoint_Marketplace_CorporateCuratedGallerySPCorporateCuratedGallerySettingsFactoryArray(GetMulti(AQuery,False,NextLink));
  70884. end;
  70885. Function TSPSPCorporateCuratedGallerySettingsFactorysEntitySet.List(const AQuery: TQueryParams; out NextLink: String) : TMicrosoft_SharePoint_Marketplace_CorporateCuratedGallerySPCorporateCuratedGallerySettingsFactoryArray;
  70886. begin
  70887. Result:=TMicrosoft_SharePoint_Marketplace_CorporateCuratedGallerySPCorporateCuratedGallerySettingsFactoryArray(GetMulti(AQuery,False,NextLink));
  70888. end;
  70889. Function TSPSPCorporateCuratedGallerySettingsFactorysEntitySet.ListAll(const AQuery: String) : TMicrosoft_SharePoint_Marketplace_CorporateCuratedGallerySPCorporateCuratedGallerySettingsFactoryArray;
  70890. var N : String;
  70891. begin
  70892. Result:=TMicrosoft_SharePoint_Marketplace_CorporateCuratedGallerySPCorporateCuratedGallerySettingsFactoryArray(GetMulti(AQuery,True,N));
  70893. end;
  70894. Function TSPSPCorporateCuratedGallerySettingsFactorysEntitySet.ListAll(const AQuery: TQueryParams) : TMicrosoft_SharePoint_Marketplace_CorporateCuratedGallerySPCorporateCuratedGallerySettingsFactoryArray;
  70895. var N : String;
  70896. begin
  70897. Result:=TMicrosoft_SharePoint_Marketplace_CorporateCuratedGallerySPCorporateCuratedGallerySettingsFactoryArray(GetMulti(AQuery,True,N));
  70898. end;
  70899. { --------------------------------------------------------------------
  70900. TSPSPMarketplaceSettingssEntitySet
  70901. --------------------------------------------------------------------}
  70902. Class Function TSPSPMarketplaceSettingssEntitySet.ObjectRestKind : String;
  70903. begin
  70904. Result:='SPMarketplaceSettingss';
  70905. end;
  70906. Class Function TSPSPMarketplaceSettingssEntitySet.EntityClass : TODataEntityClass;
  70907. begin
  70908. Result:=TMicrosoft_SharePoint_MarketplaceSPMarketplaceSettings;
  70909. end;
  70910. Function TSPSPMarketplaceSettingssEntitySet.Get(const Id4a81de82eeb94d6080ea5bf63e27023a: string) : TMicrosoft_SharePoint_MarketplaceSPMarketplaceSettings;
  70911. begin
  70912. Result:=TMicrosoft_SharePoint_MarketplaceSPMarketplaceSettings(GetSingle(TODataObject.MakeKeyString(Id4a81de82eeb94d6080ea5bf63e27023a)));
  70913. end;
  70914. Function TSPSPMarketplaceSettingssEntitySet.List(const AQuery: String; out NextLink: String) : TMicrosoft_SharePoint_MarketplaceSPMarketplaceSettingsArray;
  70915. begin
  70916. Result:=TMicrosoft_SharePoint_MarketplaceSPMarketplaceSettingsArray(GetMulti(AQuery,False,NextLink));
  70917. end;
  70918. Function TSPSPMarketplaceSettingssEntitySet.List(const AQuery: TQueryParams; out NextLink: String) : TMicrosoft_SharePoint_MarketplaceSPMarketplaceSettingsArray;
  70919. begin
  70920. Result:=TMicrosoft_SharePoint_MarketplaceSPMarketplaceSettingsArray(GetMulti(AQuery,False,NextLink));
  70921. end;
  70922. Function TSPSPMarketplaceSettingssEntitySet.ListAll(const AQuery: String) : TMicrosoft_SharePoint_MarketplaceSPMarketplaceSettingsArray;
  70923. var N : String;
  70924. begin
  70925. Result:=TMicrosoft_SharePoint_MarketplaceSPMarketplaceSettingsArray(GetMulti(AQuery,True,N));
  70926. end;
  70927. Function TSPSPMarketplaceSettingssEntitySet.ListAll(const AQuery: TQueryParams) : TMicrosoft_SharePoint_MarketplaceSPMarketplaceSettingsArray;
  70928. var N : String;
  70929. begin
  70930. Result:=TMicrosoft_SharePoint_MarketplaceSPMarketplaceSettingsArray(GetMulti(AQuery,True,N));
  70931. end;
  70932. { --------------------------------------------------------------------
  70933. TSPNavigationServiceRestsEntitySet
  70934. --------------------------------------------------------------------}
  70935. Class Function TSPNavigationServiceRestsEntitySet.ObjectRestKind : String;
  70936. begin
  70937. Result:='NavigationServiceRests';
  70938. end;
  70939. Class Function TSPNavigationServiceRestsEntitySet.EntityClass : TODataEntityClass;
  70940. begin
  70941. Result:=TMicrosoft_SharePoint_Navigation_RESTNavigationServiceRest;
  70942. end;
  70943. Function TSPNavigationServiceRestsEntitySet.Get(const Id4a81de82eeb94d6080ea5bf63e27023a: string) : TMicrosoft_SharePoint_Navigation_RESTNavigationServiceRest;
  70944. begin
  70945. Result:=TMicrosoft_SharePoint_Navigation_RESTNavigationServiceRest(GetSingle(TODataObject.MakeKeyString(Id4a81de82eeb94d6080ea5bf63e27023a)));
  70946. end;
  70947. Function TSPNavigationServiceRestsEntitySet.List(const AQuery: String; out NextLink: String) : TMicrosoft_SharePoint_Navigation_RESTNavigationServiceRestArray;
  70948. begin
  70949. Result:=TMicrosoft_SharePoint_Navigation_RESTNavigationServiceRestArray(GetMulti(AQuery,False,NextLink));
  70950. end;
  70951. Function TSPNavigationServiceRestsEntitySet.List(const AQuery: TQueryParams; out NextLink: String) : TMicrosoft_SharePoint_Navigation_RESTNavigationServiceRestArray;
  70952. begin
  70953. Result:=TMicrosoft_SharePoint_Navigation_RESTNavigationServiceRestArray(GetMulti(AQuery,False,NextLink));
  70954. end;
  70955. Function TSPNavigationServiceRestsEntitySet.ListAll(const AQuery: String) : TMicrosoft_SharePoint_Navigation_RESTNavigationServiceRestArray;
  70956. var N : String;
  70957. begin
  70958. Result:=TMicrosoft_SharePoint_Navigation_RESTNavigationServiceRestArray(GetMulti(AQuery,True,N));
  70959. end;
  70960. Function TSPNavigationServiceRestsEntitySet.ListAll(const AQuery: TQueryParams) : TMicrosoft_SharePoint_Navigation_RESTNavigationServiceRestArray;
  70961. var N : String;
  70962. begin
  70963. Result:=TMicrosoft_SharePoint_Navigation_RESTNavigationServiceRestArray(GetMulti(AQuery,True,N));
  70964. end;
  70965. { --------------------------------------------------------------------
  70966. TSPAppDetailssEntitySet
  70967. --------------------------------------------------------------------}
  70968. Class Function TSPAppDetailssEntitySet.ObjectRestKind : String;
  70969. begin
  70970. Result:='AppDetailss';
  70971. end;
  70972. Class Function TSPAppDetailssEntitySet.EntityClass : TODataEntityClass;
  70973. begin
  70974. Result:=TMicrosoft_SharePoint_PackagingAppDetails;
  70975. end;
  70976. Function TSPAppDetailssEntitySet.Get(const EulaUrl: string) : TMicrosoft_SharePoint_PackagingAppDetails;
  70977. begin
  70978. Result:=TMicrosoft_SharePoint_PackagingAppDetails(GetSingle(TODataObject.MakeKeyString(EulaUrl)));
  70979. end;
  70980. Function TSPAppDetailssEntitySet.List(const AQuery: String; out NextLink: String) : TMicrosoft_SharePoint_PackagingAppDetailsArray;
  70981. begin
  70982. Result:=TMicrosoft_SharePoint_PackagingAppDetailsArray(GetMulti(AQuery,False,NextLink));
  70983. end;
  70984. Function TSPAppDetailssEntitySet.List(const AQuery: TQueryParams; out NextLink: String) : TMicrosoft_SharePoint_PackagingAppDetailsArray;
  70985. begin
  70986. Result:=TMicrosoft_SharePoint_PackagingAppDetailsArray(GetMulti(AQuery,False,NextLink));
  70987. end;
  70988. Function TSPAppDetailssEntitySet.ListAll(const AQuery: String) : TMicrosoft_SharePoint_PackagingAppDetailsArray;
  70989. var N : String;
  70990. begin
  70991. Result:=TMicrosoft_SharePoint_PackagingAppDetailsArray(GetMulti(AQuery,True,N));
  70992. end;
  70993. Function TSPAppDetailssEntitySet.ListAll(const AQuery: TQueryParams) : TMicrosoft_SharePoint_PackagingAppDetailsArray;
  70994. var N : String;
  70995. begin
  70996. Result:=TMicrosoft_SharePoint_PackagingAppDetailsArray(GetMulti(AQuery,True,N));
  70997. end;
  70998. { --------------------------------------------------------------------
  70999. TSPAppIconInfosEntitySet
  71000. --------------------------------------------------------------------}
  71001. Class Function TSPAppIconInfosEntitySet.ObjectRestKind : String;
  71002. begin
  71003. Result:='AppIconInfos';
  71004. end;
  71005. Class Function TSPAppIconInfosEntitySet.EntityClass : TODataEntityClass;
  71006. begin
  71007. Result:=TMicrosoft_SharePoint_PackagingAppIconInfo;
  71008. end;
  71009. Function TSPAppIconInfosEntitySet.Get(const Content: TBinary) : TMicrosoft_SharePoint_PackagingAppIconInfo;
  71010. begin
  71011. Result:=TMicrosoft_SharePoint_PackagingAppIconInfo(GetSingle(BinaryToString(Content)));
  71012. end;
  71013. Function TSPAppIconInfosEntitySet.List(const AQuery: String; out NextLink: String) : TMicrosoft_SharePoint_PackagingAppIconInfoArray;
  71014. begin
  71015. Result:=TMicrosoft_SharePoint_PackagingAppIconInfoArray(GetMulti(AQuery,False,NextLink));
  71016. end;
  71017. Function TSPAppIconInfosEntitySet.List(const AQuery: TQueryParams; out NextLink: String) : TMicrosoft_SharePoint_PackagingAppIconInfoArray;
  71018. begin
  71019. Result:=TMicrosoft_SharePoint_PackagingAppIconInfoArray(GetMulti(AQuery,False,NextLink));
  71020. end;
  71021. Function TSPAppIconInfosEntitySet.ListAll(const AQuery: String) : TMicrosoft_SharePoint_PackagingAppIconInfoArray;
  71022. var N : String;
  71023. begin
  71024. Result:=TMicrosoft_SharePoint_PackagingAppIconInfoArray(GetMulti(AQuery,True,N));
  71025. end;
  71026. Function TSPAppIconInfosEntitySet.ListAll(const AQuery: TQueryParams) : TMicrosoft_SharePoint_PackagingAppIconInfoArray;
  71027. var N : String;
  71028. begin
  71029. Result:=TMicrosoft_SharePoint_PackagingAppIconInfoArray(GetMulti(AQuery,True,N));
  71030. end;
  71031. { --------------------------------------------------------------------
  71032. TSPCollaborationMailboxsEntitySet
  71033. --------------------------------------------------------------------}
  71034. Class Function TSPCollaborationMailboxsEntitySet.ObjectRestKind : String;
  71035. begin
  71036. Result:='CollaborationMailboxs';
  71037. end;
  71038. Class Function TSPCollaborationMailboxsEntitySet.EntityClass : TODataEntityClass;
  71039. begin
  71040. Result:=TMicrosoft_SharePoint_PortalCollaborationMailbox;
  71041. end;
  71042. Function TSPCollaborationMailboxsEntitySet.Get(const Id4a81de82eeb94d6080ea5bf63e27023a: string) : TMicrosoft_SharePoint_PortalCollaborationMailbox;
  71043. begin
  71044. Result:=TMicrosoft_SharePoint_PortalCollaborationMailbox(GetSingle(TODataObject.MakeKeyString(Id4a81de82eeb94d6080ea5bf63e27023a)));
  71045. end;
  71046. Function TSPCollaborationMailboxsEntitySet.List(const AQuery: String; out NextLink: String) : TMicrosoft_SharePoint_PortalCollaborationMailboxArray;
  71047. begin
  71048. Result:=TMicrosoft_SharePoint_PortalCollaborationMailboxArray(GetMulti(AQuery,False,NextLink));
  71049. end;
  71050. Function TSPCollaborationMailboxsEntitySet.List(const AQuery: TQueryParams; out NextLink: String) : TMicrosoft_SharePoint_PortalCollaborationMailboxArray;
  71051. begin
  71052. Result:=TMicrosoft_SharePoint_PortalCollaborationMailboxArray(GetMulti(AQuery,False,NextLink));
  71053. end;
  71054. Function TSPCollaborationMailboxsEntitySet.ListAll(const AQuery: String) : TMicrosoft_SharePoint_PortalCollaborationMailboxArray;
  71055. var N : String;
  71056. begin
  71057. Result:=TMicrosoft_SharePoint_PortalCollaborationMailboxArray(GetMulti(AQuery,True,N));
  71058. end;
  71059. Function TSPCollaborationMailboxsEntitySet.ListAll(const AQuery: TQueryParams) : TMicrosoft_SharePoint_PortalCollaborationMailboxArray;
  71060. var N : String;
  71061. begin
  71062. Result:=TMicrosoft_SharePoint_PortalCollaborationMailboxArray(GetMulti(AQuery,True,N));
  71063. end;
  71064. { --------------------------------------------------------------------
  71065. TSPCommunityModerationsEntitySet
  71066. --------------------------------------------------------------------}
  71067. Class Function TSPCommunityModerationsEntitySet.ObjectRestKind : String;
  71068. begin
  71069. Result:='CommunityModerations';
  71070. end;
  71071. Class Function TSPCommunityModerationsEntitySet.EntityClass : TODataEntityClass;
  71072. begin
  71073. Result:=TMicrosoft_SharePoint_PortalCommunityModeration;
  71074. end;
  71075. Function TSPCommunityModerationsEntitySet.Get(const Id4a81de82eeb94d6080ea5bf63e27023a: string) : TMicrosoft_SharePoint_PortalCommunityModeration;
  71076. begin
  71077. Result:=TMicrosoft_SharePoint_PortalCommunityModeration(GetSingle(TODataObject.MakeKeyString(Id4a81de82eeb94d6080ea5bf63e27023a)));
  71078. end;
  71079. Function TSPCommunityModerationsEntitySet.List(const AQuery: String; out NextLink: String) : TMicrosoft_SharePoint_PortalCommunityModerationArray;
  71080. begin
  71081. Result:=TMicrosoft_SharePoint_PortalCommunityModerationArray(GetMulti(AQuery,False,NextLink));
  71082. end;
  71083. Function TSPCommunityModerationsEntitySet.List(const AQuery: TQueryParams; out NextLink: String) : TMicrosoft_SharePoint_PortalCommunityModerationArray;
  71084. begin
  71085. Result:=TMicrosoft_SharePoint_PortalCommunityModerationArray(GetMulti(AQuery,False,NextLink));
  71086. end;
  71087. Function TSPCommunityModerationsEntitySet.ListAll(const AQuery: String) : TMicrosoft_SharePoint_PortalCommunityModerationArray;
  71088. var N : String;
  71089. begin
  71090. Result:=TMicrosoft_SharePoint_PortalCommunityModerationArray(GetMulti(AQuery,True,N));
  71091. end;
  71092. Function TSPCommunityModerationsEntitySet.ListAll(const AQuery: TQueryParams) : TMicrosoft_SharePoint_PortalCommunityModerationArray;
  71093. var N : String;
  71094. begin
  71095. Result:=TMicrosoft_SharePoint_PortalCommunityModerationArray(GetMulti(AQuery,True,N));
  71096. end;
  71097. { --------------------------------------------------------------------
  71098. TSPMySiteRecommendationssEntitySet
  71099. --------------------------------------------------------------------}
  71100. Class Function TSPMySiteRecommendationssEntitySet.ObjectRestKind : String;
  71101. begin
  71102. Result:='MySiteRecommendationss';
  71103. end;
  71104. Class Function TSPMySiteRecommendationssEntitySet.EntityClass : TODataEntityClass;
  71105. begin
  71106. Result:=TMicrosoft_SharePoint_PortalMySiteRecommendations;
  71107. end;
  71108. Function TSPMySiteRecommendationssEntitySet.Get(const Id4a81de82eeb94d6080ea5bf63e27023a: string) : TMicrosoft_SharePoint_PortalMySiteRecommendations;
  71109. begin
  71110. Result:=TMicrosoft_SharePoint_PortalMySiteRecommendations(GetSingle(TODataObject.MakeKeyString(Id4a81de82eeb94d6080ea5bf63e27023a)));
  71111. end;
  71112. Function TSPMySiteRecommendationssEntitySet.List(const AQuery: String; out NextLink: String) : TMicrosoft_SharePoint_PortalMySiteRecommendationsArray;
  71113. begin
  71114. Result:=TMicrosoft_SharePoint_PortalMySiteRecommendationsArray(GetMulti(AQuery,False,NextLink));
  71115. end;
  71116. Function TSPMySiteRecommendationssEntitySet.List(const AQuery: TQueryParams; out NextLink: String) : TMicrosoft_SharePoint_PortalMySiteRecommendationsArray;
  71117. begin
  71118. Result:=TMicrosoft_SharePoint_PortalMySiteRecommendationsArray(GetMulti(AQuery,False,NextLink));
  71119. end;
  71120. Function TSPMySiteRecommendationssEntitySet.ListAll(const AQuery: String) : TMicrosoft_SharePoint_PortalMySiteRecommendationsArray;
  71121. var N : String;
  71122. begin
  71123. Result:=TMicrosoft_SharePoint_PortalMySiteRecommendationsArray(GetMulti(AQuery,True,N));
  71124. end;
  71125. Function TSPMySiteRecommendationssEntitySet.ListAll(const AQuery: TQueryParams) : TMicrosoft_SharePoint_PortalMySiteRecommendationsArray;
  71126. var N : String;
  71127. begin
  71128. Result:=TMicrosoft_SharePoint_PortalMySiteRecommendationsArray(GetMulti(AQuery,True,N));
  71129. end;
  71130. { --------------------------------------------------------------------
  71131. TSPDocumentsSharedWithGroupsEntitySet
  71132. --------------------------------------------------------------------}
  71133. Class Function TSPDocumentsSharedWithGroupsEntitySet.ObjectRestKind : String;
  71134. begin
  71135. Result:='DocumentsSharedWithGroups';
  71136. end;
  71137. Class Function TSPDocumentsSharedWithGroupsEntitySet.EntityClass : TODataEntityClass;
  71138. begin
  71139. Result:=TMicrosoft_SharePoint_Portal_UserProfilesDocumentsSharedWithGroup;
  71140. end;
  71141. Function TSPDocumentsSharedWithGroupsEntitySet.Get(const Id4a81de82eeb94d6080ea5bf63e27023a: string) : TMicrosoft_SharePoint_Portal_UserProfilesDocumentsSharedWithGroup;
  71142. begin
  71143. Result:=TMicrosoft_SharePoint_Portal_UserProfilesDocumentsSharedWithGroup(GetSingle(TODataObject.MakeKeyString(Id4a81de82eeb94d6080ea5bf63e27023a)));
  71144. end;
  71145. Function TSPDocumentsSharedWithGroupsEntitySet.List(const AQuery: String; out NextLink: String) : TMicrosoft_SharePoint_Portal_UserProfilesDocumentsSharedWithGroupArray;
  71146. begin
  71147. Result:=TMicrosoft_SharePoint_Portal_UserProfilesDocumentsSharedWithGroupArray(GetMulti(AQuery,False,NextLink));
  71148. end;
  71149. Function TSPDocumentsSharedWithGroupsEntitySet.List(const AQuery: TQueryParams; out NextLink: String) : TMicrosoft_SharePoint_Portal_UserProfilesDocumentsSharedWithGroupArray;
  71150. begin
  71151. Result:=TMicrosoft_SharePoint_Portal_UserProfilesDocumentsSharedWithGroupArray(GetMulti(AQuery,False,NextLink));
  71152. end;
  71153. Function TSPDocumentsSharedWithGroupsEntitySet.ListAll(const AQuery: String) : TMicrosoft_SharePoint_Portal_UserProfilesDocumentsSharedWithGroupArray;
  71154. var N : String;
  71155. begin
  71156. Result:=TMicrosoft_SharePoint_Portal_UserProfilesDocumentsSharedWithGroupArray(GetMulti(AQuery,True,N));
  71157. end;
  71158. Function TSPDocumentsSharedWithGroupsEntitySet.ListAll(const AQuery: TQueryParams) : TMicrosoft_SharePoint_Portal_UserProfilesDocumentsSharedWithGroupArray;
  71159. var N : String;
  71160. begin
  71161. Result:=TMicrosoft_SharePoint_Portal_UserProfilesDocumentsSharedWithGroupArray(GetMulti(AQuery,True,N));
  71162. end;
  71163. { --------------------------------------------------------------------
  71164. TSPDocumentsSharedWithMesEntitySet
  71165. --------------------------------------------------------------------}
  71166. Class Function TSPDocumentsSharedWithMesEntitySet.ObjectRestKind : String;
  71167. begin
  71168. Result:='DocumentsSharedWithMes';
  71169. end;
  71170. Class Function TSPDocumentsSharedWithMesEntitySet.EntityClass : TODataEntityClass;
  71171. begin
  71172. Result:=TMicrosoft_SharePoint_Portal_UserProfilesDocumentsSharedWithMe;
  71173. end;
  71174. Function TSPDocumentsSharedWithMesEntitySet.Get(const Id4a81de82eeb94d6080ea5bf63e27023a: string) : TMicrosoft_SharePoint_Portal_UserProfilesDocumentsSharedWithMe;
  71175. begin
  71176. Result:=TMicrosoft_SharePoint_Portal_UserProfilesDocumentsSharedWithMe(GetSingle(TODataObject.MakeKeyString(Id4a81de82eeb94d6080ea5bf63e27023a)));
  71177. end;
  71178. Function TSPDocumentsSharedWithMesEntitySet.List(const AQuery: String; out NextLink: String) : TMicrosoft_SharePoint_Portal_UserProfilesDocumentsSharedWithMeArray;
  71179. begin
  71180. Result:=TMicrosoft_SharePoint_Portal_UserProfilesDocumentsSharedWithMeArray(GetMulti(AQuery,False,NextLink));
  71181. end;
  71182. Function TSPDocumentsSharedWithMesEntitySet.List(const AQuery: TQueryParams; out NextLink: String) : TMicrosoft_SharePoint_Portal_UserProfilesDocumentsSharedWithMeArray;
  71183. begin
  71184. Result:=TMicrosoft_SharePoint_Portal_UserProfilesDocumentsSharedWithMeArray(GetMulti(AQuery,False,NextLink));
  71185. end;
  71186. Function TSPDocumentsSharedWithMesEntitySet.ListAll(const AQuery: String) : TMicrosoft_SharePoint_Portal_UserProfilesDocumentsSharedWithMeArray;
  71187. var N : String;
  71188. begin
  71189. Result:=TMicrosoft_SharePoint_Portal_UserProfilesDocumentsSharedWithMeArray(GetMulti(AQuery,True,N));
  71190. end;
  71191. Function TSPDocumentsSharedWithMesEntitySet.ListAll(const AQuery: TQueryParams) : TMicrosoft_SharePoint_Portal_UserProfilesDocumentsSharedWithMeArray;
  71192. var N : String;
  71193. begin
  71194. Result:=TMicrosoft_SharePoint_Portal_UserProfilesDocumentsSharedWithMeArray(GetMulti(AQuery,True,N));
  71195. end;
  71196. { --------------------------------------------------------------------
  71197. TSPDocumentsSharedWithPersonsEntitySet
  71198. --------------------------------------------------------------------}
  71199. Class Function TSPDocumentsSharedWithPersonsEntitySet.ObjectRestKind : String;
  71200. begin
  71201. Result:='DocumentsSharedWithPersons';
  71202. end;
  71203. Class Function TSPDocumentsSharedWithPersonsEntitySet.EntityClass : TODataEntityClass;
  71204. begin
  71205. Result:=TMicrosoft_SharePoint_Portal_UserProfilesDocumentsSharedWithPerson;
  71206. end;
  71207. Function TSPDocumentsSharedWithPersonsEntitySet.Get(const Id4a81de82eeb94d6080ea5bf63e27023a: string) : TMicrosoft_SharePoint_Portal_UserProfilesDocumentsSharedWithPerson;
  71208. begin
  71209. Result:=TMicrosoft_SharePoint_Portal_UserProfilesDocumentsSharedWithPerson(GetSingle(TODataObject.MakeKeyString(Id4a81de82eeb94d6080ea5bf63e27023a)));
  71210. end;
  71211. Function TSPDocumentsSharedWithPersonsEntitySet.List(const AQuery: String; out NextLink: String) : TMicrosoft_SharePoint_Portal_UserProfilesDocumentsSharedWithPersonArray;
  71212. begin
  71213. Result:=TMicrosoft_SharePoint_Portal_UserProfilesDocumentsSharedWithPersonArray(GetMulti(AQuery,False,NextLink));
  71214. end;
  71215. Function TSPDocumentsSharedWithPersonsEntitySet.List(const AQuery: TQueryParams; out NextLink: String) : TMicrosoft_SharePoint_Portal_UserProfilesDocumentsSharedWithPersonArray;
  71216. begin
  71217. Result:=TMicrosoft_SharePoint_Portal_UserProfilesDocumentsSharedWithPersonArray(GetMulti(AQuery,False,NextLink));
  71218. end;
  71219. Function TSPDocumentsSharedWithPersonsEntitySet.ListAll(const AQuery: String) : TMicrosoft_SharePoint_Portal_UserProfilesDocumentsSharedWithPersonArray;
  71220. var N : String;
  71221. begin
  71222. Result:=TMicrosoft_SharePoint_Portal_UserProfilesDocumentsSharedWithPersonArray(GetMulti(AQuery,True,N));
  71223. end;
  71224. Function TSPDocumentsSharedWithPersonsEntitySet.ListAll(const AQuery: TQueryParams) : TMicrosoft_SharePoint_Portal_UserProfilesDocumentsSharedWithPersonArray;
  71225. var N : String;
  71226. begin
  71227. Result:=TMicrosoft_SharePoint_Portal_UserProfilesDocumentsSharedWithPersonArray(GetMulti(AQuery,True,N));
  71228. end;
  71229. { --------------------------------------------------------------------
  71230. TSPMySiteDismissStatusTextsEntitySet
  71231. --------------------------------------------------------------------}
  71232. Class Function TSPMySiteDismissStatusTextsEntitySet.ObjectRestKind : String;
  71233. begin
  71234. Result:='MySiteDismissStatusTexts';
  71235. end;
  71236. Class Function TSPMySiteDismissStatusTextsEntitySet.EntityClass : TODataEntityClass;
  71237. begin
  71238. Result:=TMicrosoft_SharePoint_Portal_UserProfilesMySiteDismissStatusText;
  71239. end;
  71240. Function TSPMySiteDismissStatusTextsEntitySet.Get(const Id4a81de82eeb94d6080ea5bf63e27023a: string) : TMicrosoft_SharePoint_Portal_UserProfilesMySiteDismissStatusText;
  71241. begin
  71242. Result:=TMicrosoft_SharePoint_Portal_UserProfilesMySiteDismissStatusText(GetSingle(TODataObject.MakeKeyString(Id4a81de82eeb94d6080ea5bf63e27023a)));
  71243. end;
  71244. Function TSPMySiteDismissStatusTextsEntitySet.List(const AQuery: String; out NextLink: String) : TMicrosoft_SharePoint_Portal_UserProfilesMySiteDismissStatusTextArray;
  71245. begin
  71246. Result:=TMicrosoft_SharePoint_Portal_UserProfilesMySiteDismissStatusTextArray(GetMulti(AQuery,False,NextLink));
  71247. end;
  71248. Function TSPMySiteDismissStatusTextsEntitySet.List(const AQuery: TQueryParams; out NextLink: String) : TMicrosoft_SharePoint_Portal_UserProfilesMySiteDismissStatusTextArray;
  71249. begin
  71250. Result:=TMicrosoft_SharePoint_Portal_UserProfilesMySiteDismissStatusTextArray(GetMulti(AQuery,False,NextLink));
  71251. end;
  71252. Function TSPMySiteDismissStatusTextsEntitySet.ListAll(const AQuery: String) : TMicrosoft_SharePoint_Portal_UserProfilesMySiteDismissStatusTextArray;
  71253. var N : String;
  71254. begin
  71255. Result:=TMicrosoft_SharePoint_Portal_UserProfilesMySiteDismissStatusTextArray(GetMulti(AQuery,True,N));
  71256. end;
  71257. Function TSPMySiteDismissStatusTextsEntitySet.ListAll(const AQuery: TQueryParams) : TMicrosoft_SharePoint_Portal_UserProfilesMySiteDismissStatusTextArray;
  71258. var N : String;
  71259. begin
  71260. Result:=TMicrosoft_SharePoint_Portal_UserProfilesMySiteDismissStatusTextArray(GetMulti(AQuery,True,N));
  71261. end;
  71262. { --------------------------------------------------------------------
  71263. TSPMySiteDocumentMoveUtilitysEntitySet
  71264. --------------------------------------------------------------------}
  71265. Class Function TSPMySiteDocumentMoveUtilitysEntitySet.ObjectRestKind : String;
  71266. begin
  71267. Result:='MySiteDocumentMoveUtilitys';
  71268. end;
  71269. Class Function TSPMySiteDocumentMoveUtilitysEntitySet.EntityClass : TODataEntityClass;
  71270. begin
  71271. Result:=TMicrosoft_SharePoint_Portal_UserProfilesMySiteDocumentMoveUtility;
  71272. end;
  71273. Function TSPMySiteDocumentMoveUtilitysEntitySet.Get(const Id4a81de82eeb94d6080ea5bf63e27023a: string) : TMicrosoft_SharePoint_Portal_UserProfilesMySiteDocumentMoveUtility;
  71274. begin
  71275. Result:=TMicrosoft_SharePoint_Portal_UserProfilesMySiteDocumentMoveUtility(GetSingle(TODataObject.MakeKeyString(Id4a81de82eeb94d6080ea5bf63e27023a)));
  71276. end;
  71277. Function TSPMySiteDocumentMoveUtilitysEntitySet.List(const AQuery: String; out NextLink: String) : TMicrosoft_SharePoint_Portal_UserProfilesMySiteDocumentMoveUtilityArray;
  71278. begin
  71279. Result:=TMicrosoft_SharePoint_Portal_UserProfilesMySiteDocumentMoveUtilityArray(GetMulti(AQuery,False,NextLink));
  71280. end;
  71281. Function TSPMySiteDocumentMoveUtilitysEntitySet.List(const AQuery: TQueryParams; out NextLink: String) : TMicrosoft_SharePoint_Portal_UserProfilesMySiteDocumentMoveUtilityArray;
  71282. begin
  71283. Result:=TMicrosoft_SharePoint_Portal_UserProfilesMySiteDocumentMoveUtilityArray(GetMulti(AQuery,False,NextLink));
  71284. end;
  71285. Function TSPMySiteDocumentMoveUtilitysEntitySet.ListAll(const AQuery: String) : TMicrosoft_SharePoint_Portal_UserProfilesMySiteDocumentMoveUtilityArray;
  71286. var N : String;
  71287. begin
  71288. Result:=TMicrosoft_SharePoint_Portal_UserProfilesMySiteDocumentMoveUtilityArray(GetMulti(AQuery,True,N));
  71289. end;
  71290. Function TSPMySiteDocumentMoveUtilitysEntitySet.ListAll(const AQuery: TQueryParams) : TMicrosoft_SharePoint_Portal_UserProfilesMySiteDocumentMoveUtilityArray;
  71291. var N : String;
  71292. begin
  71293. Result:=TMicrosoft_SharePoint_Portal_UserProfilesMySiteDocumentMoveUtilityArray(GetMulti(AQuery,True,N));
  71294. end;
  71295. { --------------------------------------------------------------------
  71296. TSPMySiteLinkssEntitySet
  71297. --------------------------------------------------------------------}
  71298. Class Function TSPMySiteLinkssEntitySet.ObjectRestKind : String;
  71299. begin
  71300. Result:='MySiteLinkss';
  71301. end;
  71302. Class Function TSPMySiteLinkssEntitySet.EntityClass : TODataEntityClass;
  71303. begin
  71304. Result:=TMicrosoft_SharePoint_Portal_UserProfilesMySiteLinks;
  71305. end;
  71306. Function TSPMySiteLinkssEntitySet.Get(const AllDocumentsLink: string) : TMicrosoft_SharePoint_Portal_UserProfilesMySiteLinks;
  71307. begin
  71308. Result:=TMicrosoft_SharePoint_Portal_UserProfilesMySiteLinks(GetSingle(TODataObject.MakeKeyString(AllDocumentsLink)));
  71309. end;
  71310. Function TSPMySiteLinkssEntitySet.List(const AQuery: String; out NextLink: String) : TMicrosoft_SharePoint_Portal_UserProfilesMySiteLinksArray;
  71311. begin
  71312. Result:=TMicrosoft_SharePoint_Portal_UserProfilesMySiteLinksArray(GetMulti(AQuery,False,NextLink));
  71313. end;
  71314. Function TSPMySiteLinkssEntitySet.List(const AQuery: TQueryParams; out NextLink: String) : TMicrosoft_SharePoint_Portal_UserProfilesMySiteLinksArray;
  71315. begin
  71316. Result:=TMicrosoft_SharePoint_Portal_UserProfilesMySiteLinksArray(GetMulti(AQuery,False,NextLink));
  71317. end;
  71318. Function TSPMySiteLinkssEntitySet.ListAll(const AQuery: String) : TMicrosoft_SharePoint_Portal_UserProfilesMySiteLinksArray;
  71319. var N : String;
  71320. begin
  71321. Result:=TMicrosoft_SharePoint_Portal_UserProfilesMySiteLinksArray(GetMulti(AQuery,True,N));
  71322. end;
  71323. Function TSPMySiteLinkssEntitySet.ListAll(const AQuery: TQueryParams) : TMicrosoft_SharePoint_Portal_UserProfilesMySiteLinksArray;
  71324. var N : String;
  71325. begin
  71326. Result:=TMicrosoft_SharePoint_Portal_UserProfilesMySiteLinksArray(GetMulti(AQuery,True,N));
  71327. end;
  71328. { --------------------------------------------------------------------
  71329. TSPPromotedSitessEntitySet
  71330. --------------------------------------------------------------------}
  71331. Class Function TSPPromotedSitessEntitySet.ObjectRestKind : String;
  71332. begin
  71333. Result:='PromotedSitess';
  71334. end;
  71335. Class Function TSPPromotedSitessEntitySet.EntityClass : TODataEntityClass;
  71336. begin
  71337. Result:=TMicrosoft_SharePoint_Portal_UserProfilesPromotedSites;
  71338. end;
  71339. Function TSPPromotedSitessEntitySet.Get(const Id4a81de82eeb94d6080ea5bf63e27023a: string) : TMicrosoft_SharePoint_Portal_UserProfilesPromotedSites;
  71340. begin
  71341. Result:=TMicrosoft_SharePoint_Portal_UserProfilesPromotedSites(GetSingle(TODataObject.MakeKeyString(Id4a81de82eeb94d6080ea5bf63e27023a)));
  71342. end;
  71343. Function TSPPromotedSitessEntitySet.List(const AQuery: String; out NextLink: String) : TMicrosoft_SharePoint_Portal_UserProfilesPromotedSitesArray;
  71344. begin
  71345. Result:=TMicrosoft_SharePoint_Portal_UserProfilesPromotedSitesArray(GetMulti(AQuery,False,NextLink));
  71346. end;
  71347. Function TSPPromotedSitessEntitySet.List(const AQuery: TQueryParams; out NextLink: String) : TMicrosoft_SharePoint_Portal_UserProfilesPromotedSitesArray;
  71348. begin
  71349. Result:=TMicrosoft_SharePoint_Portal_UserProfilesPromotedSitesArray(GetMulti(AQuery,False,NextLink));
  71350. end;
  71351. Function TSPPromotedSitessEntitySet.ListAll(const AQuery: String) : TMicrosoft_SharePoint_Portal_UserProfilesPromotedSitesArray;
  71352. var N : String;
  71353. begin
  71354. Result:=TMicrosoft_SharePoint_Portal_UserProfilesPromotedSitesArray(GetMulti(AQuery,True,N));
  71355. end;
  71356. Function TSPPromotedSitessEntitySet.ListAll(const AQuery: TQueryParams) : TMicrosoft_SharePoint_Portal_UserProfilesPromotedSitesArray;
  71357. var N : String;
  71358. begin
  71359. Result:=TMicrosoft_SharePoint_Portal_UserProfilesPromotedSitesArray(GetMulti(AQuery,True,N));
  71360. end;
  71361. { --------------------------------------------------------------------
  71362. TSPSharedWithMeDocumentsEntitySet
  71363. --------------------------------------------------------------------}
  71364. Class Function TSPSharedWithMeDocumentsEntitySet.ObjectRestKind : String;
  71365. begin
  71366. Result:='SharedWithMeDocuments';
  71367. end;
  71368. Class Function TSPSharedWithMeDocumentsEntitySet.EntityClass : TODataEntityClass;
  71369. begin
  71370. Result:=TMicrosoft_SharePoint_Portal_UserProfilesSharedWithMeDocument;
  71371. end;
  71372. Function TSPSharedWithMeDocumentsEntitySet.Get(const Id: TInt32) : TMicrosoft_SharePoint_Portal_UserProfilesSharedWithMeDocument;
  71373. begin
  71374. Result:=TMicrosoft_SharePoint_Portal_UserProfilesSharedWithMeDocument(GetSingle(IntToStr(Id)));
  71375. end;
  71376. Function TSPSharedWithMeDocumentsEntitySet.List(const AQuery: String; out NextLink: String) : TMicrosoft_SharePoint_Portal_UserProfilesSharedWithMeDocumentArray;
  71377. begin
  71378. Result:=TMicrosoft_SharePoint_Portal_UserProfilesSharedWithMeDocumentArray(GetMulti(AQuery,False,NextLink));
  71379. end;
  71380. Function TSPSharedWithMeDocumentsEntitySet.List(const AQuery: TQueryParams; out NextLink: String) : TMicrosoft_SharePoint_Portal_UserProfilesSharedWithMeDocumentArray;
  71381. begin
  71382. Result:=TMicrosoft_SharePoint_Portal_UserProfilesSharedWithMeDocumentArray(GetMulti(AQuery,False,NextLink));
  71383. end;
  71384. Function TSPSharedWithMeDocumentsEntitySet.ListAll(const AQuery: String) : TMicrosoft_SharePoint_Portal_UserProfilesSharedWithMeDocumentArray;
  71385. var N : String;
  71386. begin
  71387. Result:=TMicrosoft_SharePoint_Portal_UserProfilesSharedWithMeDocumentArray(GetMulti(AQuery,True,N));
  71388. end;
  71389. Function TSPSharedWithMeDocumentsEntitySet.ListAll(const AQuery: TQueryParams) : TMicrosoft_SharePoint_Portal_UserProfilesSharedWithMeDocumentArray;
  71390. var N : String;
  71391. begin
  71392. Result:=TMicrosoft_SharePoint_Portal_UserProfilesSharedWithMeDocumentArray(GetMulti(AQuery,True,N));
  71393. end;
  71394. { --------------------------------------------------------------------
  71395. TSPRecentDocumentsEntitySet
  71396. --------------------------------------------------------------------}
  71397. Class Function TSPRecentDocumentsEntitySet.ObjectRestKind : String;
  71398. begin
  71399. Result:='RecentDocuments';
  71400. end;
  71401. Class Function TSPRecentDocumentsEntitySet.EntityClass : TODataEntityClass;
  71402. begin
  71403. Result:=TMicrosoft_SharePoint_Portal_WebControlsRecentDocument;
  71404. end;
  71405. Function TSPRecentDocumentsEntitySet.Get(const Id: TInt32) : TMicrosoft_SharePoint_Portal_WebControlsRecentDocument;
  71406. begin
  71407. Result:=TMicrosoft_SharePoint_Portal_WebControlsRecentDocument(GetSingle(IntToStr(Id)));
  71408. end;
  71409. Function TSPRecentDocumentsEntitySet.List(const AQuery: String; out NextLink: String) : TMicrosoft_SharePoint_Portal_WebControlsRecentDocumentArray;
  71410. begin
  71411. Result:=TMicrosoft_SharePoint_Portal_WebControlsRecentDocumentArray(GetMulti(AQuery,False,NextLink));
  71412. end;
  71413. Function TSPRecentDocumentsEntitySet.List(const AQuery: TQueryParams; out NextLink: String) : TMicrosoft_SharePoint_Portal_WebControlsRecentDocumentArray;
  71414. begin
  71415. Result:=TMicrosoft_SharePoint_Portal_WebControlsRecentDocumentArray(GetMulti(AQuery,False,NextLink));
  71416. end;
  71417. Function TSPRecentDocumentsEntitySet.ListAll(const AQuery: String) : TMicrosoft_SharePoint_Portal_WebControlsRecentDocumentArray;
  71418. var N : String;
  71419. begin
  71420. Result:=TMicrosoft_SharePoint_Portal_WebControlsRecentDocumentArray(GetMulti(AQuery,True,N));
  71421. end;
  71422. Function TSPRecentDocumentsEntitySet.ListAll(const AQuery: TQueryParams) : TMicrosoft_SharePoint_Portal_WebControlsRecentDocumentArray;
  71423. var N : String;
  71424. begin
  71425. Result:=TMicrosoft_SharePoint_Portal_WebControlsRecentDocumentArray(GetMulti(AQuery,True,N));
  71426. end;
  71427. { --------------------------------------------------------------------
  71428. TSPModuleLinksEntitySet
  71429. --------------------------------------------------------------------}
  71430. Class Function TSPModuleLinksEntitySet.ObjectRestKind : String;
  71431. begin
  71432. Result:='ModuleLinks';
  71433. end;
  71434. Class Function TSPModuleLinksEntitySet.EntityClass : TODataEntityClass;
  71435. begin
  71436. Result:=TMicrosoft_SharePoint_WebControlsModuleLink;
  71437. end;
  71438. Function TSPModuleLinksEntitySet.Get(const Id4a81de82eeb94d6080ea5bf63e27023a: string) : TMicrosoft_SharePoint_WebControlsModuleLink;
  71439. begin
  71440. Result:=TMicrosoft_SharePoint_WebControlsModuleLink(GetSingle(TODataObject.MakeKeyString(Id4a81de82eeb94d6080ea5bf63e27023a)));
  71441. end;
  71442. Function TSPModuleLinksEntitySet.List(const AQuery: String; out NextLink: String) : TMicrosoft_SharePoint_WebControlsModuleLinkArray;
  71443. begin
  71444. Result:=TMicrosoft_SharePoint_WebControlsModuleLinkArray(GetMulti(AQuery,False,NextLink));
  71445. end;
  71446. Function TSPModuleLinksEntitySet.List(const AQuery: TQueryParams; out NextLink: String) : TMicrosoft_SharePoint_WebControlsModuleLinkArray;
  71447. begin
  71448. Result:=TMicrosoft_SharePoint_WebControlsModuleLinkArray(GetMulti(AQuery,False,NextLink));
  71449. end;
  71450. Function TSPModuleLinksEntitySet.ListAll(const AQuery: String) : TMicrosoft_SharePoint_WebControlsModuleLinkArray;
  71451. var N : String;
  71452. begin
  71453. Result:=TMicrosoft_SharePoint_WebControlsModuleLinkArray(GetMulti(AQuery,True,N));
  71454. end;
  71455. Function TSPModuleLinksEntitySet.ListAll(const AQuery: TQueryParams) : TMicrosoft_SharePoint_WebControlsModuleLinkArray;
  71456. var N : String;
  71457. begin
  71458. Result:=TMicrosoft_SharePoint_WebControlsModuleLinkArray(GetMulti(AQuery,True,N));
  71459. end;
  71460. { --------------------------------------------------------------------
  71461. TSPResourceManifestInformationsEntitySet
  71462. --------------------------------------------------------------------}
  71463. Class Function TSPResourceManifestInformationsEntitySet.ObjectRestKind : String;
  71464. begin
  71465. Result:='ResourceManifestInformations';
  71466. end;
  71467. Class Function TSPResourceManifestInformationsEntitySet.EntityClass : TODataEntityClass;
  71468. begin
  71469. Result:=TMicrosoft_SharePoint_WebControlsResourceManifestInformation;
  71470. end;
  71471. Function TSPResourceManifestInformationsEntitySet.Get(const RequireJsScriptBlock: string) : TMicrosoft_SharePoint_WebControlsResourceManifestInformation;
  71472. begin
  71473. Result:=TMicrosoft_SharePoint_WebControlsResourceManifestInformation(GetSingle(TODataObject.MakeKeyString(RequireJsScriptBlock)));
  71474. end;
  71475. Function TSPResourceManifestInformationsEntitySet.List(const AQuery: String; out NextLink: String) : TMicrosoft_SharePoint_WebControlsResourceManifestInformationArray;
  71476. begin
  71477. Result:=TMicrosoft_SharePoint_WebControlsResourceManifestInformationArray(GetMulti(AQuery,False,NextLink));
  71478. end;
  71479. Function TSPResourceManifestInformationsEntitySet.List(const AQuery: TQueryParams; out NextLink: String) : TMicrosoft_SharePoint_WebControlsResourceManifestInformationArray;
  71480. begin
  71481. Result:=TMicrosoft_SharePoint_WebControlsResourceManifestInformationArray(GetMulti(AQuery,False,NextLink));
  71482. end;
  71483. Function TSPResourceManifestInformationsEntitySet.ListAll(const AQuery: String) : TMicrosoft_SharePoint_WebControlsResourceManifestInformationArray;
  71484. var N : String;
  71485. begin
  71486. Result:=TMicrosoft_SharePoint_WebControlsResourceManifestInformationArray(GetMulti(AQuery,True,N));
  71487. end;
  71488. Function TSPResourceManifestInformationsEntitySet.ListAll(const AQuery: TQueryParams) : TMicrosoft_SharePoint_WebControlsResourceManifestInformationArray;
  71489. var N : String;
  71490. begin
  71491. Result:=TMicrosoft_SharePoint_WebControlsResourceManifestInformationArray(GetMulti(AQuery,True,N));
  71492. end;
  71493. { --------------------------------------------------------------------
  71494. TSPWacApisEntitySet
  71495. --------------------------------------------------------------------}
  71496. Class Function TSPWacApisEntitySet.ObjectRestKind : String;
  71497. begin
  71498. Result:='WacApis';
  71499. end;
  71500. Class Function TSPWacApisEntitySet.EntityClass : TODataEntityClass;
  71501. begin
  71502. Result:=TMicrosoft_SharePoint_YammerWacApi;
  71503. end;
  71504. Function TSPWacApisEntitySet.Get(const Id4a81de82eeb94d6080ea5bf63e27023a: string) : TMicrosoft_SharePoint_YammerWacApi;
  71505. begin
  71506. Result:=TMicrosoft_SharePoint_YammerWacApi(GetSingle(TODataObject.MakeKeyString(Id4a81de82eeb94d6080ea5bf63e27023a)));
  71507. end;
  71508. Function TSPWacApisEntitySet.List(const AQuery: String; out NextLink: String) : TMicrosoft_SharePoint_YammerWacApiArray;
  71509. begin
  71510. Result:=TMicrosoft_SharePoint_YammerWacApiArray(GetMulti(AQuery,False,NextLink));
  71511. end;
  71512. Function TSPWacApisEntitySet.List(const AQuery: TQueryParams; out NextLink: String) : TMicrosoft_SharePoint_YammerWacApiArray;
  71513. begin
  71514. Result:=TMicrosoft_SharePoint_YammerWacApiArray(GetMulti(AQuery,False,NextLink));
  71515. end;
  71516. Function TSPWacApisEntitySet.ListAll(const AQuery: String) : TMicrosoft_SharePoint_YammerWacApiArray;
  71517. var N : String;
  71518. begin
  71519. Result:=TMicrosoft_SharePoint_YammerWacApiArray(GetMulti(AQuery,True,N));
  71520. end;
  71521. Function TSPWacApisEntitySet.ListAll(const AQuery: TQueryParams) : TMicrosoft_SharePoint_YammerWacApiArray;
  71522. var N : String;
  71523. begin
  71524. Result:=TMicrosoft_SharePoint_YammerWacApiArray(GetMulti(AQuery,True,N));
  71525. end;
  71526. { --------------------------------------------------------------------
  71527. TSPEntityItemsEntitySet
  71528. --------------------------------------------------------------------}
  71529. Class Function TSPEntityItemsEntitySet.ObjectRestKind : String;
  71530. begin
  71531. Result:='EntityItems';
  71532. end;
  71533. Class Function TSPEntityItemsEntitySet.EntityClass : TODataEntityClass;
  71534. begin
  71535. Result:=TMS_AppDataEntityItem;
  71536. end;
  71537. Function TSPEntityItemsEntitySet.Get(const Id: TInt32) : TMS_AppDataEntityItem;
  71538. begin
  71539. Result:=TMS_AppDataEntityItem(GetSingle(IntToStr(Id)));
  71540. end;
  71541. Function TSPEntityItemsEntitySet.List(const AQuery: String; out NextLink: String) : TMS_AppDataEntityItemArray;
  71542. begin
  71543. Result:=TMS_AppDataEntityItemArray(GetMulti(AQuery,False,NextLink));
  71544. end;
  71545. Function TSPEntityItemsEntitySet.List(const AQuery: TQueryParams; out NextLink: String) : TMS_AppDataEntityItemArray;
  71546. begin
  71547. Result:=TMS_AppDataEntityItemArray(GetMulti(AQuery,False,NextLink));
  71548. end;
  71549. Function TSPEntityItemsEntitySet.ListAll(const AQuery: String) : TMS_AppDataEntityItemArray;
  71550. var N : String;
  71551. begin
  71552. Result:=TMS_AppDataEntityItemArray(GetMulti(AQuery,True,N));
  71553. end;
  71554. Function TSPEntityItemsEntitySet.ListAll(const AQuery: TQueryParams) : TMS_AppDataEntityItemArray;
  71555. var N : String;
  71556. begin
  71557. Result:=TMS_AppDataEntityItemArray(GetMulti(AQuery,True,N));
  71558. end;
  71559. { --------------------------------------------------------------------
  71560. TSPEntityTypesEntitySet
  71561. --------------------------------------------------------------------}
  71562. Class Function TSPEntityTypesEntitySet.ObjectRestKind : String;
  71563. begin
  71564. Result:='EntityTypes';
  71565. end;
  71566. Class Function TSPEntityTypesEntitySet.EntityClass : TODataEntityClass;
  71567. begin
  71568. Result:=TMS_AppDataEntityType;
  71569. end;
  71570. Function TSPEntityTypesEntitySet.Get(const Id: TGUIDString) : TMS_AppDataEntityType;
  71571. begin
  71572. Result:=TMS_AppDataEntityType(GetSingle(TODataObject.MakeKeyString(Id)));
  71573. end;
  71574. Function TSPEntityTypesEntitySet.List(const AQuery: String; out NextLink: String) : TMS_AppDataEntityTypeArray;
  71575. begin
  71576. Result:=TMS_AppDataEntityTypeArray(GetMulti(AQuery,False,NextLink));
  71577. end;
  71578. Function TSPEntityTypesEntitySet.List(const AQuery: TQueryParams; out NextLink: String) : TMS_AppDataEntityTypeArray;
  71579. begin
  71580. Result:=TMS_AppDataEntityTypeArray(GetMulti(AQuery,False,NextLink));
  71581. end;
  71582. Function TSPEntityTypesEntitySet.ListAll(const AQuery: String) : TMS_AppDataEntityTypeArray;
  71583. var N : String;
  71584. begin
  71585. Result:=TMS_AppDataEntityTypeArray(GetMulti(AQuery,True,N));
  71586. end;
  71587. Function TSPEntityTypesEntitySet.ListAll(const AQuery: TQueryParams) : TMS_AppDataEntityTypeArray;
  71588. var N : String;
  71589. begin
  71590. Result:=TMS_AppDataEntityTypeArray(GetMulti(AQuery,True,N));
  71591. end;
  71592. { --------------------------------------------------------------------
  71593. TSPEntityTypeBasesEntitySet
  71594. --------------------------------------------------------------------}
  71595. Class Function TSPEntityTypeBasesEntitySet.ObjectRestKind : String;
  71596. begin
  71597. Result:='EntityTypeBases';
  71598. end;
  71599. Class Function TSPEntityTypeBasesEntitySet.EntityClass : TODataEntityClass;
  71600. begin
  71601. Result:=TMS_AppDataEntityTypeBase;
  71602. end;
  71603. Function TSPEntityTypeBasesEntitySet.Get(const Id: TGUIDString) : TMS_AppDataEntityTypeBase;
  71604. begin
  71605. Result:=TMS_AppDataEntityTypeBase(GetSingle(TODataObject.MakeKeyString(Id)));
  71606. end;
  71607. Function TSPEntityTypeBasesEntitySet.List(const AQuery: String; out NextLink: String) : TMS_AppDataEntityTypeBaseArray;
  71608. begin
  71609. Result:=TMS_AppDataEntityTypeBaseArray(GetMulti(AQuery,False,NextLink));
  71610. end;
  71611. Function TSPEntityTypeBasesEntitySet.List(const AQuery: TQueryParams; out NextLink: String) : TMS_AppDataEntityTypeBaseArray;
  71612. begin
  71613. Result:=TMS_AppDataEntityTypeBaseArray(GetMulti(AQuery,False,NextLink));
  71614. end;
  71615. Function TSPEntityTypeBasesEntitySet.ListAll(const AQuery: String) : TMS_AppDataEntityTypeBaseArray;
  71616. var N : String;
  71617. begin
  71618. Result:=TMS_AppDataEntityTypeBaseArray(GetMulti(AQuery,True,N));
  71619. end;
  71620. Function TSPEntityTypeBasesEntitySet.ListAll(const AQuery: TQueryParams) : TMS_AppDataEntityTypeBaseArray;
  71621. var N : String;
  71622. begin
  71623. Result:=TMS_AppDataEntityTypeBaseArray(GetMulti(AQuery,True,N));
  71624. end;
  71625. { --------------------------------------------------------------------
  71626. TSPExternalEntityTypesEntitySet
  71627. --------------------------------------------------------------------}
  71628. Class Function TSPExternalEntityTypesEntitySet.ObjectRestKind : String;
  71629. begin
  71630. Result:='ExternalEntityTypes';
  71631. end;
  71632. Class Function TSPExternalEntityTypesEntitySet.EntityClass : TODataEntityClass;
  71633. begin
  71634. Result:=TMS_AppDataExternalEntityType;
  71635. end;
  71636. Function TSPExternalEntityTypesEntitySet.Get(const Id: TGUIDString) : TMS_AppDataExternalEntityType;
  71637. begin
  71638. Result:=TMS_AppDataExternalEntityType(GetSingle(TODataObject.MakeKeyString(Id)));
  71639. end;
  71640. Function TSPExternalEntityTypesEntitySet.List(const AQuery: String; out NextLink: String) : TMS_AppDataExternalEntityTypeArray;
  71641. begin
  71642. Result:=TMS_AppDataExternalEntityTypeArray(GetMulti(AQuery,False,NextLink));
  71643. end;
  71644. Function TSPExternalEntityTypesEntitySet.List(const AQuery: TQueryParams; out NextLink: String) : TMS_AppDataExternalEntityTypeArray;
  71645. begin
  71646. Result:=TMS_AppDataExternalEntityTypeArray(GetMulti(AQuery,False,NextLink));
  71647. end;
  71648. Function TSPExternalEntityTypesEntitySet.ListAll(const AQuery: String) : TMS_AppDataExternalEntityTypeArray;
  71649. var N : String;
  71650. begin
  71651. Result:=TMS_AppDataExternalEntityTypeArray(GetMulti(AQuery,True,N));
  71652. end;
  71653. Function TSPExternalEntityTypesEntitySet.ListAll(const AQuery: TQueryParams) : TMS_AppDataExternalEntityTypeArray;
  71654. var N : String;
  71655. begin
  71656. Result:=TMS_AppDataExternalEntityTypeArray(GetMulti(AQuery,True,N));
  71657. end;
  71658. { --------------------------------------------------------------------
  71659. TSPFieldsEntitySet
  71660. --------------------------------------------------------------------}
  71661. Class Function TSPFieldsEntitySet.ObjectRestKind : String;
  71662. begin
  71663. Result:='Fields';
  71664. end;
  71665. Class Function TSPFieldsEntitySet.EntityClass : TODataEntityClass;
  71666. begin
  71667. Result:=TMS_AppDataField;
  71668. end;
  71669. Function TSPFieldsEntitySet.Get(const Id: TGUIDString) : TMS_AppDataField;
  71670. begin
  71671. Result:=TMS_AppDataField(GetSingle(TODataObject.MakeKeyString(Id)));
  71672. end;
  71673. Function TSPFieldsEntitySet.List(const AQuery: String; out NextLink: String) : TMS_AppDataFieldArray;
  71674. begin
  71675. Result:=TMS_AppDataFieldArray(GetMulti(AQuery,False,NextLink));
  71676. end;
  71677. Function TSPFieldsEntitySet.List(const AQuery: TQueryParams; out NextLink: String) : TMS_AppDataFieldArray;
  71678. begin
  71679. Result:=TMS_AppDataFieldArray(GetMulti(AQuery,False,NextLink));
  71680. end;
  71681. Function TSPFieldsEntitySet.ListAll(const AQuery: String) : TMS_AppDataFieldArray;
  71682. var N : String;
  71683. begin
  71684. Result:=TMS_AppDataFieldArray(GetMulti(AQuery,True,N));
  71685. end;
  71686. Function TSPFieldsEntitySet.ListAll(const AQuery: TQueryParams) : TMS_AppDataFieldArray;
  71687. var N : String;
  71688. begin
  71689. Result:=TMS_AppDataFieldArray(GetMulti(AQuery,True,N));
  71690. end;
  71691. { --------------------------------------------------------------------
  71692. TSPODataStoreContextsEntitySet
  71693. --------------------------------------------------------------------}
  71694. Class Function TSPODataStoreContextsEntitySet.ObjectRestKind : String;
  71695. begin
  71696. Result:='ODataStoreContexts';
  71697. end;
  71698. Class Function TSPODataStoreContextsEntitySet.EntityClass : TODataEntityClass;
  71699. begin
  71700. Result:=TMS_AppDataODataStoreContext;
  71701. end;
  71702. Function TSPODataStoreContextsEntitySet.Get(const Id4a81de82eeb94d6080ea5bf63e27023a: string) : TMS_AppDataODataStoreContext;
  71703. begin
  71704. Result:=TMS_AppDataODataStoreContext(GetSingle(TODataObject.MakeKeyString(Id4a81de82eeb94d6080ea5bf63e27023a)));
  71705. end;
  71706. Function TSPODataStoreContextsEntitySet.List(const AQuery: String; out NextLink: String) : TMS_AppDataODataStoreContextArray;
  71707. begin
  71708. Result:=TMS_AppDataODataStoreContextArray(GetMulti(AQuery,False,NextLink));
  71709. end;
  71710. Function TSPODataStoreContextsEntitySet.List(const AQuery: TQueryParams; out NextLink: String) : TMS_AppDataODataStoreContextArray;
  71711. begin
  71712. Result:=TMS_AppDataODataStoreContextArray(GetMulti(AQuery,False,NextLink));
  71713. end;
  71714. Function TSPODataStoreContextsEntitySet.ListAll(const AQuery: String) : TMS_AppDataODataStoreContextArray;
  71715. var N : String;
  71716. begin
  71717. Result:=TMS_AppDataODataStoreContextArray(GetMulti(AQuery,True,N));
  71718. end;
  71719. Function TSPODataStoreContextsEntitySet.ListAll(const AQuery: TQueryParams) : TMS_AppDataODataStoreContextArray;
  71720. var N : String;
  71721. begin
  71722. Result:=TMS_AppDataODataStoreContextArray(GetMulti(AQuery,True,N));
  71723. end;
  71724. { --------------------------------------------------------------------
  71725. TSPRequestContextsEntitySet
  71726. --------------------------------------------------------------------}
  71727. Class Function TSPRequestContextsEntitySet.ObjectRestKind : String;
  71728. begin
  71729. Result:='RequestContexts';
  71730. end;
  71731. Class Function TSPRequestContextsEntitySet.EntityClass : TODataEntityClass;
  71732. begin
  71733. Result:=TMS_AppDataRequestContext;
  71734. end;
  71735. Function TSPRequestContextsEntitySet.Get(const Id4a81de82eeb94d6080ea5bf63e27023a: string) : TMS_AppDataRequestContext;
  71736. begin
  71737. Result:=TMS_AppDataRequestContext(GetSingle(TODataObject.MakeKeyString(Id4a81de82eeb94d6080ea5bf63e27023a)));
  71738. end;
  71739. Function TSPRequestContextsEntitySet.List(const AQuery: String; out NextLink: String) : TMS_AppDataRequestContextArray;
  71740. begin
  71741. Result:=TMS_AppDataRequestContextArray(GetMulti(AQuery,False,NextLink));
  71742. end;
  71743. Function TSPRequestContextsEntitySet.List(const AQuery: TQueryParams; out NextLink: String) : TMS_AppDataRequestContextArray;
  71744. begin
  71745. Result:=TMS_AppDataRequestContextArray(GetMulti(AQuery,False,NextLink));
  71746. end;
  71747. Function TSPRequestContextsEntitySet.ListAll(const AQuery: String) : TMS_AppDataRequestContextArray;
  71748. var N : String;
  71749. begin
  71750. Result:=TMS_AppDataRequestContextArray(GetMulti(AQuery,True,N));
  71751. end;
  71752. Function TSPRequestContextsEntitySet.ListAll(const AQuery: TQueryParams) : TMS_AppDataRequestContextArray;
  71753. var N : String;
  71754. begin
  71755. Result:=TMS_AppDataRequestContextArray(GetMulti(AQuery,True,N));
  71756. end;
  71757. { --------------------------------------------------------------------
  71758. TSPSqlStoreContextsEntitySet
  71759. --------------------------------------------------------------------}
  71760. Class Function TSPSqlStoreContextsEntitySet.ObjectRestKind : String;
  71761. begin
  71762. Result:='SqlStoreContexts';
  71763. end;
  71764. Class Function TSPSqlStoreContextsEntitySet.EntityClass : TODataEntityClass;
  71765. begin
  71766. Result:=TMS_AppDataSqlStoreContext;
  71767. end;
  71768. Function TSPSqlStoreContextsEntitySet.Get(const Id4a81de82eeb94d6080ea5bf63e27023a: string) : TMS_AppDataSqlStoreContext;
  71769. begin
  71770. Result:=TMS_AppDataSqlStoreContext(GetSingle(TODataObject.MakeKeyString(Id4a81de82eeb94d6080ea5bf63e27023a)));
  71771. end;
  71772. Function TSPSqlStoreContextsEntitySet.List(const AQuery: String; out NextLink: String) : TMS_AppDataSqlStoreContextArray;
  71773. begin
  71774. Result:=TMS_AppDataSqlStoreContextArray(GetMulti(AQuery,False,NextLink));
  71775. end;
  71776. Function TSPSqlStoreContextsEntitySet.List(const AQuery: TQueryParams; out NextLink: String) : TMS_AppDataSqlStoreContextArray;
  71777. begin
  71778. Result:=TMS_AppDataSqlStoreContextArray(GetMulti(AQuery,False,NextLink));
  71779. end;
  71780. Function TSPSqlStoreContextsEntitySet.ListAll(const AQuery: String) : TMS_AppDataSqlStoreContextArray;
  71781. var N : String;
  71782. begin
  71783. Result:=TMS_AppDataSqlStoreContextArray(GetMulti(AQuery,True,N));
  71784. end;
  71785. Function TSPSqlStoreContextsEntitySet.ListAll(const AQuery: TQueryParams) : TMS_AppDataSqlStoreContextArray;
  71786. var N : String;
  71787. begin
  71788. Result:=TMS_AppDataSqlStoreContextArray(GetMulti(AQuery,True,N));
  71789. end;
  71790. { --------------------------------------------------------------------
  71791. TSPStoreContextBasesEntitySet
  71792. --------------------------------------------------------------------}
  71793. Class Function TSPStoreContextBasesEntitySet.ObjectRestKind : String;
  71794. begin
  71795. Result:='StoreContextBases';
  71796. end;
  71797. Class Function TSPStoreContextBasesEntitySet.EntityClass : TODataEntityClass;
  71798. begin
  71799. Result:=TMS_AppDataStoreContextBase;
  71800. end;
  71801. Function TSPStoreContextBasesEntitySet.Get(const Id4a81de82eeb94d6080ea5bf63e27023a: string) : TMS_AppDataStoreContextBase;
  71802. begin
  71803. Result:=TMS_AppDataStoreContextBase(GetSingle(TODataObject.MakeKeyString(Id4a81de82eeb94d6080ea5bf63e27023a)));
  71804. end;
  71805. Function TSPStoreContextBasesEntitySet.List(const AQuery: String; out NextLink: String) : TMS_AppDataStoreContextBaseArray;
  71806. begin
  71807. Result:=TMS_AppDataStoreContextBaseArray(GetMulti(AQuery,False,NextLink));
  71808. end;
  71809. Function TSPStoreContextBasesEntitySet.List(const AQuery: TQueryParams; out NextLink: String) : TMS_AppDataStoreContextBaseArray;
  71810. begin
  71811. Result:=TMS_AppDataStoreContextBaseArray(GetMulti(AQuery,False,NextLink));
  71812. end;
  71813. Function TSPStoreContextBasesEntitySet.ListAll(const AQuery: String) : TMS_AppDataStoreContextBaseArray;
  71814. var N : String;
  71815. begin
  71816. Result:=TMS_AppDataStoreContextBaseArray(GetMulti(AQuery,True,N));
  71817. end;
  71818. Function TSPStoreContextBasesEntitySet.ListAll(const AQuery: TQueryParams) : TMS_AppDataStoreContextBaseArray;
  71819. var N : String;
  71820. begin
  71821. Result:=TMS_AppDataStoreContextBaseArray(GetMulti(AQuery,True,N));
  71822. end;
  71823. { --------------------------------------------------------------------
  71824. TSPFiles1EntitySet
  71825. --------------------------------------------------------------------}
  71826. Class Function TSPFiles1EntitySet.ObjectRestKind : String;
  71827. begin
  71828. Result:='Files1';
  71829. end;
  71830. Class Function TSPFiles1EntitySet.EntityClass : TODataEntityClass;
  71831. begin
  71832. Result:=TMS_FileServices_File;
  71833. end;
  71834. Function TSPFiles1EntitySet.Get(const Id: string) : TMS_FileServices_File;
  71835. begin
  71836. Result:=TMS_FileServices_File(GetSingle(TODataObject.MakeKeyString(Id)));
  71837. end;
  71838. Function TSPFiles1EntitySet.List(const AQuery: String; out NextLink: String) : TMS_FileServices_FileArray;
  71839. begin
  71840. Result:=TMS_FileServices_FileArray(GetMulti(AQuery,False,NextLink));
  71841. end;
  71842. Function TSPFiles1EntitySet.List(const AQuery: TQueryParams; out NextLink: String) : TMS_FileServices_FileArray;
  71843. begin
  71844. Result:=TMS_FileServices_FileArray(GetMulti(AQuery,False,NextLink));
  71845. end;
  71846. Function TSPFiles1EntitySet.ListAll(const AQuery: String) : TMS_FileServices_FileArray;
  71847. var N : String;
  71848. begin
  71849. Result:=TMS_FileServices_FileArray(GetMulti(AQuery,True,N));
  71850. end;
  71851. Function TSPFiles1EntitySet.ListAll(const AQuery: TQueryParams) : TMS_FileServices_FileArray;
  71852. var N : String;
  71853. begin
  71854. Result:=TMS_FileServices_FileArray(GetMulti(AQuery,True,N));
  71855. end;
  71856. { --------------------------------------------------------------------
  71857. TSPFileServicesEntitySet
  71858. --------------------------------------------------------------------}
  71859. Class Function TSPFileServicesEntitySet.ObjectRestKind : String;
  71860. begin
  71861. Result:='FileServices';
  71862. end;
  71863. Class Function TSPFileServicesEntitySet.EntityClass : TODataEntityClass;
  71864. begin
  71865. Result:=TMS_FileServicesFileService;
  71866. end;
  71867. Function TSPFileServicesEntitySet.Get(const Id4a81de82eeb94d6080ea5bf63e27023a: string) : TMS_FileServicesFileService;
  71868. begin
  71869. Result:=TMS_FileServicesFileService(GetSingle(TODataObject.MakeKeyString(Id4a81de82eeb94d6080ea5bf63e27023a)));
  71870. end;
  71871. Function TSPFileServicesEntitySet.List(const AQuery: String; out NextLink: String) : TMS_FileServicesFileServiceArray;
  71872. begin
  71873. Result:=TMS_FileServicesFileServiceArray(GetMulti(AQuery,False,NextLink));
  71874. end;
  71875. Function TSPFileServicesEntitySet.List(const AQuery: TQueryParams; out NextLink: String) : TMS_FileServicesFileServiceArray;
  71876. begin
  71877. Result:=TMS_FileServicesFileServiceArray(GetMulti(AQuery,False,NextLink));
  71878. end;
  71879. Function TSPFileServicesEntitySet.ListAll(const AQuery: String) : TMS_FileServicesFileServiceArray;
  71880. var N : String;
  71881. begin
  71882. Result:=TMS_FileServicesFileServiceArray(GetMulti(AQuery,True,N));
  71883. end;
  71884. Function TSPFileServicesEntitySet.ListAll(const AQuery: TQueryParams) : TMS_FileServicesFileServiceArray;
  71885. var N : String;
  71886. begin
  71887. Result:=TMS_FileServicesFileServiceArray(GetMulti(AQuery,True,N));
  71888. end;
  71889. { --------------------------------------------------------------------
  71890. TSPFoldersEntitySet
  71891. --------------------------------------------------------------------}
  71892. Class Function TSPFoldersEntitySet.ObjectRestKind : String;
  71893. begin
  71894. Result:='Folders';
  71895. end;
  71896. Class Function TSPFoldersEntitySet.EntityClass : TODataEntityClass;
  71897. begin
  71898. Result:=TMS_FileServicesFolder;
  71899. end;
  71900. Function TSPFoldersEntitySet.Get(const Id: string) : TMS_FileServicesFolder;
  71901. begin
  71902. Result:=TMS_FileServicesFolder(GetSingle(TODataObject.MakeKeyString(Id)));
  71903. end;
  71904. Function TSPFoldersEntitySet.List(const AQuery: String; out NextLink: String) : TMS_FileServicesFolderArray;
  71905. begin
  71906. Result:=TMS_FileServicesFolderArray(GetMulti(AQuery,False,NextLink));
  71907. end;
  71908. Function TSPFoldersEntitySet.List(const AQuery: TQueryParams; out NextLink: String) : TMS_FileServicesFolderArray;
  71909. begin
  71910. Result:=TMS_FileServicesFolderArray(GetMulti(AQuery,False,NextLink));
  71911. end;
  71912. Function TSPFoldersEntitySet.ListAll(const AQuery: String) : TMS_FileServicesFolderArray;
  71913. var N : String;
  71914. begin
  71915. Result:=TMS_FileServicesFolderArray(GetMulti(AQuery,True,N));
  71916. end;
  71917. Function TSPFoldersEntitySet.ListAll(const AQuery: TQueryParams) : TMS_FileServicesFolderArray;
  71918. var N : String;
  71919. begin
  71920. Result:=TMS_FileServicesFolderArray(GetMulti(AQuery,True,N));
  71921. end;
  71922. { --------------------------------------------------------------------
  71923. TSPMeFileServicesEntitySet
  71924. --------------------------------------------------------------------}
  71925. Class Function TSPMeFileServicesEntitySet.ObjectRestKind : String;
  71926. begin
  71927. Result:='MeFileServices';
  71928. end;
  71929. Class Function TSPMeFileServicesEntitySet.EntityClass : TODataEntityClass;
  71930. begin
  71931. Result:=TMS_FileServicesMeFileService;
  71932. end;
  71933. Function TSPMeFileServicesEntitySet.Get(const Id4a81de82eeb94d6080ea5bf63e27023a: string) : TMS_FileServicesMeFileService;
  71934. begin
  71935. Result:=TMS_FileServicesMeFileService(GetSingle(TODataObject.MakeKeyString(Id4a81de82eeb94d6080ea5bf63e27023a)));
  71936. end;
  71937. Function TSPMeFileServicesEntitySet.List(const AQuery: String; out NextLink: String) : TMS_FileServicesMeFileServiceArray;
  71938. begin
  71939. Result:=TMS_FileServicesMeFileServiceArray(GetMulti(AQuery,False,NextLink));
  71940. end;
  71941. Function TSPMeFileServicesEntitySet.List(const AQuery: TQueryParams; out NextLink: String) : TMS_FileServicesMeFileServiceArray;
  71942. begin
  71943. Result:=TMS_FileServicesMeFileServiceArray(GetMulti(AQuery,False,NextLink));
  71944. end;
  71945. Function TSPMeFileServicesEntitySet.ListAll(const AQuery: String) : TMS_FileServicesMeFileServiceArray;
  71946. var N : String;
  71947. begin
  71948. Result:=TMS_FileServicesMeFileServiceArray(GetMulti(AQuery,True,N));
  71949. end;
  71950. Function TSPMeFileServicesEntitySet.ListAll(const AQuery: TQueryParams) : TMS_FileServicesMeFileServiceArray;
  71951. var N : String;
  71952. begin
  71953. Result:=TMS_FileServicesMeFileServiceArray(GetMulti(AQuery,True,N));
  71954. end;
  71955. { --------------------------------------------------------------------
  71956. TSPDiagnosticssEntitySet
  71957. --------------------------------------------------------------------}
  71958. Class Function TSPDiagnosticssEntitySet.ObjectRestKind : String;
  71959. begin
  71960. Result:='Diagnosticss';
  71961. end;
  71962. Class Function TSPDiagnosticssEntitySet.EntityClass : TODataEntityClass;
  71963. begin
  71964. Result:=TOBA_Server_ServerWrapperDiagnostics;
  71965. end;
  71966. Function TSPDiagnosticssEntitySet.Get(const Id4a81de82eeb94d6080ea5bf63e27023a: string) : TOBA_Server_ServerWrapperDiagnostics;
  71967. begin
  71968. Result:=TOBA_Server_ServerWrapperDiagnostics(GetSingle(TODataObject.MakeKeyString(Id4a81de82eeb94d6080ea5bf63e27023a)));
  71969. end;
  71970. Function TSPDiagnosticssEntitySet.List(const AQuery: String; out NextLink: String) : TOBA_Server_ServerWrapperDiagnosticsArray;
  71971. begin
  71972. Result:=TOBA_Server_ServerWrapperDiagnosticsArray(GetMulti(AQuery,False,NextLink));
  71973. end;
  71974. Function TSPDiagnosticssEntitySet.List(const AQuery: TQueryParams; out NextLink: String) : TOBA_Server_ServerWrapperDiagnosticsArray;
  71975. begin
  71976. Result:=TOBA_Server_ServerWrapperDiagnosticsArray(GetMulti(AQuery,False,NextLink));
  71977. end;
  71978. Function TSPDiagnosticssEntitySet.ListAll(const AQuery: String) : TOBA_Server_ServerWrapperDiagnosticsArray;
  71979. var N : String;
  71980. begin
  71981. Result:=TOBA_Server_ServerWrapperDiagnosticsArray(GetMulti(AQuery,True,N));
  71982. end;
  71983. Function TSPDiagnosticssEntitySet.ListAll(const AQuery: TQueryParams) : TOBA_Server_ServerWrapperDiagnosticsArray;
  71984. var N : String;
  71985. begin
  71986. Result:=TOBA_Server_ServerWrapperDiagnosticsArray(GetMulti(AQuery,True,N));
  71987. end;
  71988. { --------------------------------------------------------------------
  71989. TSPReportingsEntitySet
  71990. --------------------------------------------------------------------}
  71991. Class Function TSPReportingsEntitySet.ObjectRestKind : String;
  71992. begin
  71993. Result:='Reportings';
  71994. end;
  71995. Class Function TSPReportingsEntitySet.EntityClass : TODataEntityClass;
  71996. begin
  71997. Result:=TOBA_Server_ServerWrapperReporting;
  71998. end;
  71999. Function TSPReportingsEntitySet.Get(const Id4a81de82eeb94d6080ea5bf63e27023a: string) : TOBA_Server_ServerWrapperReporting;
  72000. begin
  72001. Result:=TOBA_Server_ServerWrapperReporting(GetSingle(TODataObject.MakeKeyString(Id4a81de82eeb94d6080ea5bf63e27023a)));
  72002. end;
  72003. Function TSPReportingsEntitySet.List(const AQuery: String; out NextLink: String) : TOBA_Server_ServerWrapperReportingArray;
  72004. begin
  72005. Result:=TOBA_Server_ServerWrapperReportingArray(GetMulti(AQuery,False,NextLink));
  72006. end;
  72007. Function TSPReportingsEntitySet.List(const AQuery: TQueryParams; out NextLink: String) : TOBA_Server_ServerWrapperReportingArray;
  72008. begin
  72009. Result:=TOBA_Server_ServerWrapperReportingArray(GetMulti(AQuery,False,NextLink));
  72010. end;
  72011. Function TSPReportingsEntitySet.ListAll(const AQuery: String) : TOBA_Server_ServerWrapperReportingArray;
  72012. var N : String;
  72013. begin
  72014. Result:=TOBA_Server_ServerWrapperReportingArray(GetMulti(AQuery,True,N));
  72015. end;
  72016. Function TSPReportingsEntitySet.ListAll(const AQuery: TQueryParams) : TOBA_Server_ServerWrapperReportingArray;
  72017. var N : String;
  72018. begin
  72019. Result:=TOBA_Server_ServerWrapperReportingArray(GetMulti(AQuery,True,N));
  72020. end;
  72021. { --------------------------------------------------------------------
  72022. TSPTaskflowsEntitySet
  72023. --------------------------------------------------------------------}
  72024. Class Function TSPTaskflowsEntitySet.ObjectRestKind : String;
  72025. begin
  72026. Result:='Taskflows';
  72027. end;
  72028. Class Function TSPTaskflowsEntitySet.EntityClass : TODataEntityClass;
  72029. begin
  72030. Result:=TOBA_Server_ServerWrapperTaskflow;
  72031. end;
  72032. Function TSPTaskflowsEntitySet.Get(const Id4a81de82eeb94d6080ea5bf63e27023a: string) : TOBA_Server_ServerWrapperTaskflow;
  72033. begin
  72034. Result:=TOBA_Server_ServerWrapperTaskflow(GetSingle(TODataObject.MakeKeyString(Id4a81de82eeb94d6080ea5bf63e27023a)));
  72035. end;
  72036. Function TSPTaskflowsEntitySet.List(const AQuery: String; out NextLink: String) : TOBA_Server_ServerWrapperTaskflowArray;
  72037. begin
  72038. Result:=TOBA_Server_ServerWrapperTaskflowArray(GetMulti(AQuery,False,NextLink));
  72039. end;
  72040. Function TSPTaskflowsEntitySet.List(const AQuery: TQueryParams; out NextLink: String) : TOBA_Server_ServerWrapperTaskflowArray;
  72041. begin
  72042. Result:=TOBA_Server_ServerWrapperTaskflowArray(GetMulti(AQuery,False,NextLink));
  72043. end;
  72044. Function TSPTaskflowsEntitySet.ListAll(const AQuery: String) : TOBA_Server_ServerWrapperTaskflowArray;
  72045. var N : String;
  72046. begin
  72047. Result:=TOBA_Server_ServerWrapperTaskflowArray(GetMulti(AQuery,True,N));
  72048. end;
  72049. Function TSPTaskflowsEntitySet.ListAll(const AQuery: TQueryParams) : TOBA_Server_ServerWrapperTaskflowArray;
  72050. var N : String;
  72051. begin
  72052. Result:=TOBA_Server_ServerWrapperTaskflowArray(GetMulti(AQuery,True,N));
  72053. end;
  72054. { --------------------------------------------------------------------
  72055. TSPAssignmentsEntitySet
  72056. --------------------------------------------------------------------}
  72057. Class Function TSPAssignmentsEntitySet.ObjectRestKind : String;
  72058. begin
  72059. Result:='Assignments';
  72060. end;
  72061. Class Function TSPAssignmentsEntitySet.EntityClass : TODataEntityClass;
  72062. begin
  72063. Result:=TPSAssignment;
  72064. end;
  72065. Function TSPAssignmentsEntitySet.Get(const Id: TGUIDString) : TPSAssignment;
  72066. begin
  72067. Result:=TPSAssignment(GetSingle(TODataObject.MakeKeyString(Id)));
  72068. end;
  72069. Function TSPAssignmentsEntitySet.List(const AQuery: String; out NextLink: String) : TPSAssignmentArray;
  72070. begin
  72071. Result:=TPSAssignmentArray(GetMulti(AQuery,False,NextLink));
  72072. end;
  72073. Function TSPAssignmentsEntitySet.List(const AQuery: TQueryParams; out NextLink: String) : TPSAssignmentArray;
  72074. begin
  72075. Result:=TPSAssignmentArray(GetMulti(AQuery,False,NextLink));
  72076. end;
  72077. Function TSPAssignmentsEntitySet.ListAll(const AQuery: String) : TPSAssignmentArray;
  72078. var N : String;
  72079. begin
  72080. Result:=TPSAssignmentArray(GetMulti(AQuery,True,N));
  72081. end;
  72082. Function TSPAssignmentsEntitySet.ListAll(const AQuery: TQueryParams) : TPSAssignmentArray;
  72083. var N : String;
  72084. begin
  72085. Result:=TPSAssignmentArray(GetMulti(AQuery,True,N));
  72086. end;
  72087. { --------------------------------------------------------------------
  72088. TSPBaseCalendarExceptionsEntitySet
  72089. --------------------------------------------------------------------}
  72090. Class Function TSPBaseCalendarExceptionsEntitySet.ObjectRestKind : String;
  72091. begin
  72092. Result:='BaseCalendarExceptions';
  72093. end;
  72094. Class Function TSPBaseCalendarExceptionsEntitySet.EntityClass : TODataEntityClass;
  72095. begin
  72096. Result:=TPSBaseCalendarException;
  72097. end;
  72098. Function TSPBaseCalendarExceptionsEntitySet.Get(const Id: TInt32) : TPSBaseCalendarException;
  72099. begin
  72100. Result:=TPSBaseCalendarException(GetSingle(IntToStr(Id)));
  72101. end;
  72102. Function TSPBaseCalendarExceptionsEntitySet.List(const AQuery: String; out NextLink: String) : TPSBaseCalendarExceptionArray;
  72103. begin
  72104. Result:=TPSBaseCalendarExceptionArray(GetMulti(AQuery,False,NextLink));
  72105. end;
  72106. Function TSPBaseCalendarExceptionsEntitySet.List(const AQuery: TQueryParams; out NextLink: String) : TPSBaseCalendarExceptionArray;
  72107. begin
  72108. Result:=TPSBaseCalendarExceptionArray(GetMulti(AQuery,False,NextLink));
  72109. end;
  72110. Function TSPBaseCalendarExceptionsEntitySet.ListAll(const AQuery: String) : TPSBaseCalendarExceptionArray;
  72111. var N : String;
  72112. begin
  72113. Result:=TPSBaseCalendarExceptionArray(GetMulti(AQuery,True,N));
  72114. end;
  72115. Function TSPBaseCalendarExceptionsEntitySet.ListAll(const AQuery: TQueryParams) : TPSBaseCalendarExceptionArray;
  72116. var N : String;
  72117. begin
  72118. Result:=TPSBaseCalendarExceptionArray(GetMulti(AQuery,True,N));
  72119. end;
  72120. { --------------------------------------------------------------------
  72121. TSPCalendarsEntitySet
  72122. --------------------------------------------------------------------}
  72123. Class Function TSPCalendarsEntitySet.ObjectRestKind : String;
  72124. begin
  72125. Result:='Calendars';
  72126. end;
  72127. Class Function TSPCalendarsEntitySet.EntityClass : TODataEntityClass;
  72128. begin
  72129. Result:=TPSCalendar;
  72130. end;
  72131. Function TSPCalendarsEntitySet.Get(const Id: TGUIDString) : TPSCalendar;
  72132. begin
  72133. Result:=TPSCalendar(GetSingle(TODataObject.MakeKeyString(Id)));
  72134. end;
  72135. Function TSPCalendarsEntitySet.List(const AQuery: String; out NextLink: String) : TPSCalendarArray;
  72136. begin
  72137. Result:=TPSCalendarArray(GetMulti(AQuery,False,NextLink));
  72138. end;
  72139. Function TSPCalendarsEntitySet.List(const AQuery: TQueryParams; out NextLink: String) : TPSCalendarArray;
  72140. begin
  72141. Result:=TPSCalendarArray(GetMulti(AQuery,False,NextLink));
  72142. end;
  72143. Function TSPCalendarsEntitySet.ListAll(const AQuery: String) : TPSCalendarArray;
  72144. var N : String;
  72145. begin
  72146. Result:=TPSCalendarArray(GetMulti(AQuery,True,N));
  72147. end;
  72148. Function TSPCalendarsEntitySet.ListAll(const AQuery: TQueryParams) : TPSCalendarArray;
  72149. var N : String;
  72150. begin
  72151. Result:=TPSCalendarArray(GetMulti(AQuery,True,N));
  72152. end;
  72153. { --------------------------------------------------------------------
  72154. TSPCalendarExceptionsEntitySet
  72155. --------------------------------------------------------------------}
  72156. Class Function TSPCalendarExceptionsEntitySet.ObjectRestKind : String;
  72157. begin
  72158. Result:='CalendarExceptions';
  72159. end;
  72160. Class Function TSPCalendarExceptionsEntitySet.EntityClass : TODataEntityClass;
  72161. begin
  72162. Result:=TPSCalendarException;
  72163. end;
  72164. Function TSPCalendarExceptionsEntitySet.Get(const Id: TInt32) : TPSCalendarException;
  72165. begin
  72166. Result:=TPSCalendarException(GetSingle(IntToStr(Id)));
  72167. end;
  72168. Function TSPCalendarExceptionsEntitySet.List(const AQuery: String; out NextLink: String) : TPSCalendarExceptionArray;
  72169. begin
  72170. Result:=TPSCalendarExceptionArray(GetMulti(AQuery,False,NextLink));
  72171. end;
  72172. Function TSPCalendarExceptionsEntitySet.List(const AQuery: TQueryParams; out NextLink: String) : TPSCalendarExceptionArray;
  72173. begin
  72174. Result:=TPSCalendarExceptionArray(GetMulti(AQuery,False,NextLink));
  72175. end;
  72176. Function TSPCalendarExceptionsEntitySet.ListAll(const AQuery: String) : TPSCalendarExceptionArray;
  72177. var N : String;
  72178. begin
  72179. Result:=TPSCalendarExceptionArray(GetMulti(AQuery,True,N));
  72180. end;
  72181. Function TSPCalendarExceptionsEntitySet.ListAll(const AQuery: TQueryParams) : TPSCalendarExceptionArray;
  72182. var N : String;
  72183. begin
  72184. Result:=TPSCalendarExceptionArray(GetMulti(AQuery,True,N));
  72185. end;
  72186. { --------------------------------------------------------------------
  72187. TSPCustomFieldsEntitySet
  72188. --------------------------------------------------------------------}
  72189. Class Function TSPCustomFieldsEntitySet.ObjectRestKind : String;
  72190. begin
  72191. Result:='CustomFields';
  72192. end;
  72193. Class Function TSPCustomFieldsEntitySet.EntityClass : TODataEntityClass;
  72194. begin
  72195. Result:=TPSCustomField;
  72196. end;
  72197. Function TSPCustomFieldsEntitySet.Get(const Id: TGUIDString) : TPSCustomField;
  72198. begin
  72199. Result:=TPSCustomField(GetSingle(TODataObject.MakeKeyString(Id)));
  72200. end;
  72201. Function TSPCustomFieldsEntitySet.List(const AQuery: String; out NextLink: String) : TPSCustomFieldArray;
  72202. begin
  72203. Result:=TPSCustomFieldArray(GetMulti(AQuery,False,NextLink));
  72204. end;
  72205. Function TSPCustomFieldsEntitySet.List(const AQuery: TQueryParams; out NextLink: String) : TPSCustomFieldArray;
  72206. begin
  72207. Result:=TPSCustomFieldArray(GetMulti(AQuery,False,NextLink));
  72208. end;
  72209. Function TSPCustomFieldsEntitySet.ListAll(const AQuery: String) : TPSCustomFieldArray;
  72210. var N : String;
  72211. begin
  72212. Result:=TPSCustomFieldArray(GetMulti(AQuery,True,N));
  72213. end;
  72214. Function TSPCustomFieldsEntitySet.ListAll(const AQuery: TQueryParams) : TPSCustomFieldArray;
  72215. var N : String;
  72216. begin
  72217. Result:=TPSCustomFieldArray(GetMulti(AQuery,True,N));
  72218. end;
  72219. { --------------------------------------------------------------------
  72220. TSPDraftAssignmentsEntitySet
  72221. --------------------------------------------------------------------}
  72222. Class Function TSPDraftAssignmentsEntitySet.ObjectRestKind : String;
  72223. begin
  72224. Result:='DraftAssignments';
  72225. end;
  72226. Class Function TSPDraftAssignmentsEntitySet.EntityClass : TODataEntityClass;
  72227. begin
  72228. Result:=TPSDraftAssignment;
  72229. end;
  72230. Function TSPDraftAssignmentsEntitySet.Get(const Id: TGUIDString) : TPSDraftAssignment;
  72231. begin
  72232. Result:=TPSDraftAssignment(GetSingle(TODataObject.MakeKeyString(Id)));
  72233. end;
  72234. Function TSPDraftAssignmentsEntitySet.List(const AQuery: String; out NextLink: String) : TPSDraftAssignmentArray;
  72235. begin
  72236. Result:=TPSDraftAssignmentArray(GetMulti(AQuery,False,NextLink));
  72237. end;
  72238. Function TSPDraftAssignmentsEntitySet.List(const AQuery: TQueryParams; out NextLink: String) : TPSDraftAssignmentArray;
  72239. begin
  72240. Result:=TPSDraftAssignmentArray(GetMulti(AQuery,False,NextLink));
  72241. end;
  72242. Function TSPDraftAssignmentsEntitySet.ListAll(const AQuery: String) : TPSDraftAssignmentArray;
  72243. var N : String;
  72244. begin
  72245. Result:=TPSDraftAssignmentArray(GetMulti(AQuery,True,N));
  72246. end;
  72247. Function TSPDraftAssignmentsEntitySet.ListAll(const AQuery: TQueryParams) : TPSDraftAssignmentArray;
  72248. var N : String;
  72249. begin
  72250. Result:=TPSDraftAssignmentArray(GetMulti(AQuery,True,N));
  72251. end;
  72252. { --------------------------------------------------------------------
  72253. TSPDraftProjectsEntitySet
  72254. --------------------------------------------------------------------}
  72255. Class Function TSPDraftProjectsEntitySet.ObjectRestKind : String;
  72256. begin
  72257. Result:='DraftProjects';
  72258. end;
  72259. Class Function TSPDraftProjectsEntitySet.EntityClass : TODataEntityClass;
  72260. begin
  72261. Result:=TPSDraftProject;
  72262. end;
  72263. Function TSPDraftProjectsEntitySet.Get(const Id: TGUIDString) : TPSDraftProject;
  72264. begin
  72265. Result:=TPSDraftProject(GetSingle(TODataObject.MakeKeyString(Id)));
  72266. end;
  72267. Function TSPDraftProjectsEntitySet.List(const AQuery: String; out NextLink: String) : TPSDraftProjectArray;
  72268. begin
  72269. Result:=TPSDraftProjectArray(GetMulti(AQuery,False,NextLink));
  72270. end;
  72271. Function TSPDraftProjectsEntitySet.List(const AQuery: TQueryParams; out NextLink: String) : TPSDraftProjectArray;
  72272. begin
  72273. Result:=TPSDraftProjectArray(GetMulti(AQuery,False,NextLink));
  72274. end;
  72275. Function TSPDraftProjectsEntitySet.ListAll(const AQuery: String) : TPSDraftProjectArray;
  72276. var N : String;
  72277. begin
  72278. Result:=TPSDraftProjectArray(GetMulti(AQuery,True,N));
  72279. end;
  72280. Function TSPDraftProjectsEntitySet.ListAll(const AQuery: TQueryParams) : TPSDraftProjectArray;
  72281. var N : String;
  72282. begin
  72283. Result:=TPSDraftProjectArray(GetMulti(AQuery,True,N));
  72284. end;
  72285. { --------------------------------------------------------------------
  72286. TSPDraftProjectResourcesEntitySet
  72287. --------------------------------------------------------------------}
  72288. Class Function TSPDraftProjectResourcesEntitySet.ObjectRestKind : String;
  72289. begin
  72290. Result:='DraftProjectResources';
  72291. end;
  72292. Class Function TSPDraftProjectResourcesEntitySet.EntityClass : TODataEntityClass;
  72293. begin
  72294. Result:=TPSDraftProjectResource;
  72295. end;
  72296. Function TSPDraftProjectResourcesEntitySet.Get(const Id: TGUIDString) : TPSDraftProjectResource;
  72297. begin
  72298. Result:=TPSDraftProjectResource(GetSingle(TODataObject.MakeKeyString(Id)));
  72299. end;
  72300. Function TSPDraftProjectResourcesEntitySet.List(const AQuery: String; out NextLink: String) : TPSDraftProjectResourceArray;
  72301. begin
  72302. Result:=TPSDraftProjectResourceArray(GetMulti(AQuery,False,NextLink));
  72303. end;
  72304. Function TSPDraftProjectResourcesEntitySet.List(const AQuery: TQueryParams; out NextLink: String) : TPSDraftProjectResourceArray;
  72305. begin
  72306. Result:=TPSDraftProjectResourceArray(GetMulti(AQuery,False,NextLink));
  72307. end;
  72308. Function TSPDraftProjectResourcesEntitySet.ListAll(const AQuery: String) : TPSDraftProjectResourceArray;
  72309. var N : String;
  72310. begin
  72311. Result:=TPSDraftProjectResourceArray(GetMulti(AQuery,True,N));
  72312. end;
  72313. Function TSPDraftProjectResourcesEntitySet.ListAll(const AQuery: TQueryParams) : TPSDraftProjectResourceArray;
  72314. var N : String;
  72315. begin
  72316. Result:=TPSDraftProjectResourceArray(GetMulti(AQuery,True,N));
  72317. end;
  72318. { --------------------------------------------------------------------
  72319. TSPDraftTasksEntitySet
  72320. --------------------------------------------------------------------}
  72321. Class Function TSPDraftTasksEntitySet.ObjectRestKind : String;
  72322. begin
  72323. Result:='DraftTasks';
  72324. end;
  72325. Class Function TSPDraftTasksEntitySet.EntityClass : TODataEntityClass;
  72326. begin
  72327. Result:=TPSDraftTask;
  72328. end;
  72329. Function TSPDraftTasksEntitySet.Get(const Id: TGUIDString) : TPSDraftTask;
  72330. begin
  72331. Result:=TPSDraftTask(GetSingle(TODataObject.MakeKeyString(Id)));
  72332. end;
  72333. Function TSPDraftTasksEntitySet.List(const AQuery: String; out NextLink: String) : TPSDraftTaskArray;
  72334. begin
  72335. Result:=TPSDraftTaskArray(GetMulti(AQuery,False,NextLink));
  72336. end;
  72337. Function TSPDraftTasksEntitySet.List(const AQuery: TQueryParams; out NextLink: String) : TPSDraftTaskArray;
  72338. begin
  72339. Result:=TPSDraftTaskArray(GetMulti(AQuery,False,NextLink));
  72340. end;
  72341. Function TSPDraftTasksEntitySet.ListAll(const AQuery: String) : TPSDraftTaskArray;
  72342. var N : String;
  72343. begin
  72344. Result:=TPSDraftTaskArray(GetMulti(AQuery,True,N));
  72345. end;
  72346. Function TSPDraftTasksEntitySet.ListAll(const AQuery: TQueryParams) : TPSDraftTaskArray;
  72347. var N : String;
  72348. begin
  72349. Result:=TPSDraftTaskArray(GetMulti(AQuery,True,N));
  72350. end;
  72351. { --------------------------------------------------------------------
  72352. TSPDraftTaskLinksEntitySet
  72353. --------------------------------------------------------------------}
  72354. Class Function TSPDraftTaskLinksEntitySet.ObjectRestKind : String;
  72355. begin
  72356. Result:='DraftTaskLinks';
  72357. end;
  72358. Class Function TSPDraftTaskLinksEntitySet.EntityClass : TODataEntityClass;
  72359. begin
  72360. Result:=TPSDraftTaskLink;
  72361. end;
  72362. Function TSPDraftTaskLinksEntitySet.Get(const Id: TGUIDString) : TPSDraftTaskLink;
  72363. begin
  72364. Result:=TPSDraftTaskLink(GetSingle(TODataObject.MakeKeyString(Id)));
  72365. end;
  72366. Function TSPDraftTaskLinksEntitySet.List(const AQuery: String; out NextLink: String) : TPSDraftTaskLinkArray;
  72367. begin
  72368. Result:=TPSDraftTaskLinkArray(GetMulti(AQuery,False,NextLink));
  72369. end;
  72370. Function TSPDraftTaskLinksEntitySet.List(const AQuery: TQueryParams; out NextLink: String) : TPSDraftTaskLinkArray;
  72371. begin
  72372. Result:=TPSDraftTaskLinkArray(GetMulti(AQuery,False,NextLink));
  72373. end;
  72374. Function TSPDraftTaskLinksEntitySet.ListAll(const AQuery: String) : TPSDraftTaskLinkArray;
  72375. var N : String;
  72376. begin
  72377. Result:=TPSDraftTaskLinkArray(GetMulti(AQuery,True,N));
  72378. end;
  72379. Function TSPDraftTaskLinksEntitySet.ListAll(const AQuery: TQueryParams) : TPSDraftTaskLinkArray;
  72380. var N : String;
  72381. begin
  72382. Result:=TPSDraftTaskLinkArray(GetMulti(AQuery,True,N));
  72383. end;
  72384. { --------------------------------------------------------------------
  72385. TSPEnterpriseProjectTypesEntitySet
  72386. --------------------------------------------------------------------}
  72387. Class Function TSPEnterpriseProjectTypesEntitySet.ObjectRestKind : String;
  72388. begin
  72389. Result:='EnterpriseProjectTypes';
  72390. end;
  72391. Class Function TSPEnterpriseProjectTypesEntitySet.EntityClass : TODataEntityClass;
  72392. begin
  72393. Result:=TPSEnterpriseProjectType;
  72394. end;
  72395. Function TSPEnterpriseProjectTypesEntitySet.Get(const Id: TGUIDString) : TPSEnterpriseProjectType;
  72396. begin
  72397. Result:=TPSEnterpriseProjectType(GetSingle(TODataObject.MakeKeyString(Id)));
  72398. end;
  72399. Function TSPEnterpriseProjectTypesEntitySet.List(const AQuery: String; out NextLink: String) : TPSEnterpriseProjectTypeArray;
  72400. begin
  72401. Result:=TPSEnterpriseProjectTypeArray(GetMulti(AQuery,False,NextLink));
  72402. end;
  72403. Function TSPEnterpriseProjectTypesEntitySet.List(const AQuery: TQueryParams; out NextLink: String) : TPSEnterpriseProjectTypeArray;
  72404. begin
  72405. Result:=TPSEnterpriseProjectTypeArray(GetMulti(AQuery,False,NextLink));
  72406. end;
  72407. Function TSPEnterpriseProjectTypesEntitySet.ListAll(const AQuery: String) : TPSEnterpriseProjectTypeArray;
  72408. var N : String;
  72409. begin
  72410. Result:=TPSEnterpriseProjectTypeArray(GetMulti(AQuery,True,N));
  72411. end;
  72412. Function TSPEnterpriseProjectTypesEntitySet.ListAll(const AQuery: TQueryParams) : TPSEnterpriseProjectTypeArray;
  72413. var N : String;
  72414. begin
  72415. Result:=TPSEnterpriseProjectTypeArray(GetMulti(AQuery,True,N));
  72416. end;
  72417. { --------------------------------------------------------------------
  72418. TSPEnterpriseResourcesEntitySet
  72419. --------------------------------------------------------------------}
  72420. Class Function TSPEnterpriseResourcesEntitySet.ObjectRestKind : String;
  72421. begin
  72422. Result:='EnterpriseResources';
  72423. end;
  72424. Class Function TSPEnterpriseResourcesEntitySet.EntityClass : TODataEntityClass;
  72425. begin
  72426. Result:=TPSEnterpriseResource;
  72427. end;
  72428. Function TSPEnterpriseResourcesEntitySet.Get(const Id: TGUIDString) : TPSEnterpriseResource;
  72429. begin
  72430. Result:=TPSEnterpriseResource(GetSingle(TODataObject.MakeKeyString(Id)));
  72431. end;
  72432. Function TSPEnterpriseResourcesEntitySet.List(const AQuery: String; out NextLink: String) : TPSEnterpriseResourceArray;
  72433. begin
  72434. Result:=TPSEnterpriseResourceArray(GetMulti(AQuery,False,NextLink));
  72435. end;
  72436. Function TSPEnterpriseResourcesEntitySet.List(const AQuery: TQueryParams; out NextLink: String) : TPSEnterpriseResourceArray;
  72437. begin
  72438. Result:=TPSEnterpriseResourceArray(GetMulti(AQuery,False,NextLink));
  72439. end;
  72440. Function TSPEnterpriseResourcesEntitySet.ListAll(const AQuery: String) : TPSEnterpriseResourceArray;
  72441. var N : String;
  72442. begin
  72443. Result:=TPSEnterpriseResourceArray(GetMulti(AQuery,True,N));
  72444. end;
  72445. Function TSPEnterpriseResourcesEntitySet.ListAll(const AQuery: TQueryParams) : TPSEnterpriseResourceArray;
  72446. var N : String;
  72447. begin
  72448. Result:=TPSEnterpriseResourceArray(GetMulti(AQuery,True,N));
  72449. end;
  72450. { --------------------------------------------------------------------
  72451. TSPEntityTypes1EntitySet
  72452. --------------------------------------------------------------------}
  72453. Class Function TSPEntityTypes1EntitySet.ObjectRestKind : String;
  72454. begin
  72455. Result:='EntityTypes1';
  72456. end;
  72457. Class Function TSPEntityTypes1EntitySet.EntityClass : TODataEntityClass;
  72458. begin
  72459. Result:=TPSEntityType;
  72460. end;
  72461. Function TSPEntityTypes1EntitySet.Get(const _Name: string) : TPSEntityType;
  72462. begin
  72463. Result:=TPSEntityType(GetSingle(TODataObject.MakeKeyString(_Name)));
  72464. end;
  72465. Function TSPEntityTypes1EntitySet.List(const AQuery: String; out NextLink: String) : TPSEntityTypeArray;
  72466. begin
  72467. Result:=TPSEntityTypeArray(GetMulti(AQuery,False,NextLink));
  72468. end;
  72469. Function TSPEntityTypes1EntitySet.List(const AQuery: TQueryParams; out NextLink: String) : TPSEntityTypeArray;
  72470. begin
  72471. Result:=TPSEntityTypeArray(GetMulti(AQuery,False,NextLink));
  72472. end;
  72473. Function TSPEntityTypes1EntitySet.ListAll(const AQuery: String) : TPSEntityTypeArray;
  72474. var N : String;
  72475. begin
  72476. Result:=TPSEntityTypeArray(GetMulti(AQuery,True,N));
  72477. end;
  72478. Function TSPEntityTypes1EntitySet.ListAll(const AQuery: TQueryParams) : TPSEntityTypeArray;
  72479. var N : String;
  72480. begin
  72481. Result:=TPSEntityTypeArray(GetMulti(AQuery,True,N));
  72482. end;
  72483. { --------------------------------------------------------------------
  72484. TSPEntityTypessEntitySet
  72485. --------------------------------------------------------------------}
  72486. Class Function TSPEntityTypessEntitySet.ObjectRestKind : String;
  72487. begin
  72488. Result:='EntityTypess';
  72489. end;
  72490. Class Function TSPEntityTypessEntitySet.EntityClass : TODataEntityClass;
  72491. begin
  72492. Result:=TPSEntityTypes;
  72493. end;
  72494. Function TSPEntityTypessEntitySet.Get(const Id4a81de82eeb94d6080ea5bf63e27023a: string) : TPSEntityTypes;
  72495. begin
  72496. Result:=TPSEntityTypes(GetSingle(TODataObject.MakeKeyString(Id4a81de82eeb94d6080ea5bf63e27023a)));
  72497. end;
  72498. Function TSPEntityTypessEntitySet.List(const AQuery: String; out NextLink: String) : TPSEntityTypesArray;
  72499. begin
  72500. Result:=TPSEntityTypesArray(GetMulti(AQuery,False,NextLink));
  72501. end;
  72502. Function TSPEntityTypessEntitySet.List(const AQuery: TQueryParams; out NextLink: String) : TPSEntityTypesArray;
  72503. begin
  72504. Result:=TPSEntityTypesArray(GetMulti(AQuery,False,NextLink));
  72505. end;
  72506. Function TSPEntityTypessEntitySet.ListAll(const AQuery: String) : TPSEntityTypesArray;
  72507. var N : String;
  72508. begin
  72509. Result:=TPSEntityTypesArray(GetMulti(AQuery,True,N));
  72510. end;
  72511. Function TSPEntityTypessEntitySet.ListAll(const AQuery: TQueryParams) : TPSEntityTypesArray;
  72512. var N : String;
  72513. begin
  72514. Result:=TPSEntityTypesArray(GetMulti(AQuery,True,N));
  72515. end;
  72516. { --------------------------------------------------------------------
  72517. TSPEventsEntitySet
  72518. --------------------------------------------------------------------}
  72519. Class Function TSPEventsEntitySet.ObjectRestKind : String;
  72520. begin
  72521. Result:='Events';
  72522. end;
  72523. Class Function TSPEventsEntitySet.EntityClass : TODataEntityClass;
  72524. begin
  72525. Result:=TPSEvent;
  72526. end;
  72527. Function TSPEventsEntitySet.Get(const Id: TInt32) : TPSEvent;
  72528. begin
  72529. Result:=TPSEvent(GetSingle(IntToStr(Id)));
  72530. end;
  72531. Function TSPEventsEntitySet.List(const AQuery: String; out NextLink: String) : TPSEventArray;
  72532. begin
  72533. Result:=TPSEventArray(GetMulti(AQuery,False,NextLink));
  72534. end;
  72535. Function TSPEventsEntitySet.List(const AQuery: TQueryParams; out NextLink: String) : TPSEventArray;
  72536. begin
  72537. Result:=TPSEventArray(GetMulti(AQuery,False,NextLink));
  72538. end;
  72539. Function TSPEventsEntitySet.ListAll(const AQuery: String) : TPSEventArray;
  72540. var N : String;
  72541. begin
  72542. Result:=TPSEventArray(GetMulti(AQuery,True,N));
  72543. end;
  72544. Function TSPEventsEntitySet.ListAll(const AQuery: TQueryParams) : TPSEventArray;
  72545. var N : String;
  72546. begin
  72547. Result:=TPSEventArray(GetMulti(AQuery,True,N));
  72548. end;
  72549. { --------------------------------------------------------------------
  72550. TSPEventHandlersEntitySet
  72551. --------------------------------------------------------------------}
  72552. Class Function TSPEventHandlersEntitySet.ObjectRestKind : String;
  72553. begin
  72554. Result:='EventHandlers';
  72555. end;
  72556. Class Function TSPEventHandlersEntitySet.EntityClass : TODataEntityClass;
  72557. begin
  72558. Result:=TPSEventHandler;
  72559. end;
  72560. Function TSPEventHandlersEntitySet.Get(const Id: TGUIDString) : TPSEventHandler;
  72561. begin
  72562. Result:=TPSEventHandler(GetSingle(TODataObject.MakeKeyString(Id)));
  72563. end;
  72564. Function TSPEventHandlersEntitySet.List(const AQuery: String; out NextLink: String) : TPSEventHandlerArray;
  72565. begin
  72566. Result:=TPSEventHandlerArray(GetMulti(AQuery,False,NextLink));
  72567. end;
  72568. Function TSPEventHandlersEntitySet.List(const AQuery: TQueryParams; out NextLink: String) : TPSEventHandlerArray;
  72569. begin
  72570. Result:=TPSEventHandlerArray(GetMulti(AQuery,False,NextLink));
  72571. end;
  72572. Function TSPEventHandlersEntitySet.ListAll(const AQuery: String) : TPSEventHandlerArray;
  72573. var N : String;
  72574. begin
  72575. Result:=TPSEventHandlerArray(GetMulti(AQuery,True,N));
  72576. end;
  72577. Function TSPEventHandlersEntitySet.ListAll(const AQuery: TQueryParams) : TPSEventHandlerArray;
  72578. var N : String;
  72579. begin
  72580. Result:=TPSEventHandlerArray(GetMulti(AQuery,True,N));
  72581. end;
  72582. { --------------------------------------------------------------------
  72583. TSPLookupCostsEntitySet
  72584. --------------------------------------------------------------------}
  72585. Class Function TSPLookupCostsEntitySet.ObjectRestKind : String;
  72586. begin
  72587. Result:='LookupCosts';
  72588. end;
  72589. Class Function TSPLookupCostsEntitySet.EntityClass : TODataEntityClass;
  72590. begin
  72591. Result:=TPSLookupCost;
  72592. end;
  72593. Function TSPLookupCostsEntitySet.Get(const Id: TGUIDString) : TPSLookupCost;
  72594. begin
  72595. Result:=TPSLookupCost(GetSingle(TODataObject.MakeKeyString(Id)));
  72596. end;
  72597. Function TSPLookupCostsEntitySet.List(const AQuery: String; out NextLink: String) : TPSLookupCostArray;
  72598. begin
  72599. Result:=TPSLookupCostArray(GetMulti(AQuery,False,NextLink));
  72600. end;
  72601. Function TSPLookupCostsEntitySet.List(const AQuery: TQueryParams; out NextLink: String) : TPSLookupCostArray;
  72602. begin
  72603. Result:=TPSLookupCostArray(GetMulti(AQuery,False,NextLink));
  72604. end;
  72605. Function TSPLookupCostsEntitySet.ListAll(const AQuery: String) : TPSLookupCostArray;
  72606. var N : String;
  72607. begin
  72608. Result:=TPSLookupCostArray(GetMulti(AQuery,True,N));
  72609. end;
  72610. Function TSPLookupCostsEntitySet.ListAll(const AQuery: TQueryParams) : TPSLookupCostArray;
  72611. var N : String;
  72612. begin
  72613. Result:=TPSLookupCostArray(GetMulti(AQuery,True,N));
  72614. end;
  72615. { --------------------------------------------------------------------
  72616. TSPLookupDatesEntitySet
  72617. --------------------------------------------------------------------}
  72618. Class Function TSPLookupDatesEntitySet.ObjectRestKind : String;
  72619. begin
  72620. Result:='LookupDates';
  72621. end;
  72622. Class Function TSPLookupDatesEntitySet.EntityClass : TODataEntityClass;
  72623. begin
  72624. Result:=TPSLookupDate;
  72625. end;
  72626. Function TSPLookupDatesEntitySet.Get(const Id: TGUIDString) : TPSLookupDate;
  72627. begin
  72628. Result:=TPSLookupDate(GetSingle(TODataObject.MakeKeyString(Id)));
  72629. end;
  72630. Function TSPLookupDatesEntitySet.List(const AQuery: String; out NextLink: String) : TPSLookupDateArray;
  72631. begin
  72632. Result:=TPSLookupDateArray(GetMulti(AQuery,False,NextLink));
  72633. end;
  72634. Function TSPLookupDatesEntitySet.List(const AQuery: TQueryParams; out NextLink: String) : TPSLookupDateArray;
  72635. begin
  72636. Result:=TPSLookupDateArray(GetMulti(AQuery,False,NextLink));
  72637. end;
  72638. Function TSPLookupDatesEntitySet.ListAll(const AQuery: String) : TPSLookupDateArray;
  72639. var N : String;
  72640. begin
  72641. Result:=TPSLookupDateArray(GetMulti(AQuery,True,N));
  72642. end;
  72643. Function TSPLookupDatesEntitySet.ListAll(const AQuery: TQueryParams) : TPSLookupDateArray;
  72644. var N : String;
  72645. begin
  72646. Result:=TPSLookupDateArray(GetMulti(AQuery,True,N));
  72647. end;
  72648. { --------------------------------------------------------------------
  72649. TSPLookupDurationsEntitySet
  72650. --------------------------------------------------------------------}
  72651. Class Function TSPLookupDurationsEntitySet.ObjectRestKind : String;
  72652. begin
  72653. Result:='LookupDurations';
  72654. end;
  72655. Class Function TSPLookupDurationsEntitySet.EntityClass : TODataEntityClass;
  72656. begin
  72657. Result:=TPSLookupDuration;
  72658. end;
  72659. Function TSPLookupDurationsEntitySet.Get(const Id: TGUIDString) : TPSLookupDuration;
  72660. begin
  72661. Result:=TPSLookupDuration(GetSingle(TODataObject.MakeKeyString(Id)));
  72662. end;
  72663. Function TSPLookupDurationsEntitySet.List(const AQuery: String; out NextLink: String) : TPSLookupDurationArray;
  72664. begin
  72665. Result:=TPSLookupDurationArray(GetMulti(AQuery,False,NextLink));
  72666. end;
  72667. Function TSPLookupDurationsEntitySet.List(const AQuery: TQueryParams; out NextLink: String) : TPSLookupDurationArray;
  72668. begin
  72669. Result:=TPSLookupDurationArray(GetMulti(AQuery,False,NextLink));
  72670. end;
  72671. Function TSPLookupDurationsEntitySet.ListAll(const AQuery: String) : TPSLookupDurationArray;
  72672. var N : String;
  72673. begin
  72674. Result:=TPSLookupDurationArray(GetMulti(AQuery,True,N));
  72675. end;
  72676. Function TSPLookupDurationsEntitySet.ListAll(const AQuery: TQueryParams) : TPSLookupDurationArray;
  72677. var N : String;
  72678. begin
  72679. Result:=TPSLookupDurationArray(GetMulti(AQuery,True,N));
  72680. end;
  72681. { --------------------------------------------------------------------
  72682. TSPLookupEntrysEntitySet
  72683. --------------------------------------------------------------------}
  72684. Class Function TSPLookupEntrysEntitySet.ObjectRestKind : String;
  72685. begin
  72686. Result:='LookupEntrys';
  72687. end;
  72688. Class Function TSPLookupEntrysEntitySet.EntityClass : TODataEntityClass;
  72689. begin
  72690. Result:=TPSLookupEntry;
  72691. end;
  72692. Function TSPLookupEntrysEntitySet.Get(const Id: TGUIDString) : TPSLookupEntry;
  72693. begin
  72694. Result:=TPSLookupEntry(GetSingle(TODataObject.MakeKeyString(Id)));
  72695. end;
  72696. Function TSPLookupEntrysEntitySet.List(const AQuery: String; out NextLink: String) : TPSLookupEntryArray;
  72697. begin
  72698. Result:=TPSLookupEntryArray(GetMulti(AQuery,False,NextLink));
  72699. end;
  72700. Function TSPLookupEntrysEntitySet.List(const AQuery: TQueryParams; out NextLink: String) : TPSLookupEntryArray;
  72701. begin
  72702. Result:=TPSLookupEntryArray(GetMulti(AQuery,False,NextLink));
  72703. end;
  72704. Function TSPLookupEntrysEntitySet.ListAll(const AQuery: String) : TPSLookupEntryArray;
  72705. var N : String;
  72706. begin
  72707. Result:=TPSLookupEntryArray(GetMulti(AQuery,True,N));
  72708. end;
  72709. Function TSPLookupEntrysEntitySet.ListAll(const AQuery: TQueryParams) : TPSLookupEntryArray;
  72710. var N : String;
  72711. begin
  72712. Result:=TPSLookupEntryArray(GetMulti(AQuery,True,N));
  72713. end;
  72714. { --------------------------------------------------------------------
  72715. TSPLookupNumbersEntitySet
  72716. --------------------------------------------------------------------}
  72717. Class Function TSPLookupNumbersEntitySet.ObjectRestKind : String;
  72718. begin
  72719. Result:='LookupNumbers';
  72720. end;
  72721. Class Function TSPLookupNumbersEntitySet.EntityClass : TODataEntityClass;
  72722. begin
  72723. Result:=TPSLookupNumber;
  72724. end;
  72725. Function TSPLookupNumbersEntitySet.Get(const Id: TGUIDString) : TPSLookupNumber;
  72726. begin
  72727. Result:=TPSLookupNumber(GetSingle(TODataObject.MakeKeyString(Id)));
  72728. end;
  72729. Function TSPLookupNumbersEntitySet.List(const AQuery: String; out NextLink: String) : TPSLookupNumberArray;
  72730. begin
  72731. Result:=TPSLookupNumberArray(GetMulti(AQuery,False,NextLink));
  72732. end;
  72733. Function TSPLookupNumbersEntitySet.List(const AQuery: TQueryParams; out NextLink: String) : TPSLookupNumberArray;
  72734. begin
  72735. Result:=TPSLookupNumberArray(GetMulti(AQuery,False,NextLink));
  72736. end;
  72737. Function TSPLookupNumbersEntitySet.ListAll(const AQuery: String) : TPSLookupNumberArray;
  72738. var N : String;
  72739. begin
  72740. Result:=TPSLookupNumberArray(GetMulti(AQuery,True,N));
  72741. end;
  72742. Function TSPLookupNumbersEntitySet.ListAll(const AQuery: TQueryParams) : TPSLookupNumberArray;
  72743. var N : String;
  72744. begin
  72745. Result:=TPSLookupNumberArray(GetMulti(AQuery,True,N));
  72746. end;
  72747. { --------------------------------------------------------------------
  72748. TSPLookupTablesEntitySet
  72749. --------------------------------------------------------------------}
  72750. Class Function TSPLookupTablesEntitySet.ObjectRestKind : String;
  72751. begin
  72752. Result:='LookupTables';
  72753. end;
  72754. Class Function TSPLookupTablesEntitySet.EntityClass : TODataEntityClass;
  72755. begin
  72756. Result:=TPSLookupTable;
  72757. end;
  72758. Function TSPLookupTablesEntitySet.Get(const Id: TGUIDString) : TPSLookupTable;
  72759. begin
  72760. Result:=TPSLookupTable(GetSingle(TODataObject.MakeKeyString(Id)));
  72761. end;
  72762. Function TSPLookupTablesEntitySet.List(const AQuery: String; out NextLink: String) : TPSLookupTableArray;
  72763. begin
  72764. Result:=TPSLookupTableArray(GetMulti(AQuery,False,NextLink));
  72765. end;
  72766. Function TSPLookupTablesEntitySet.List(const AQuery: TQueryParams; out NextLink: String) : TPSLookupTableArray;
  72767. begin
  72768. Result:=TPSLookupTableArray(GetMulti(AQuery,False,NextLink));
  72769. end;
  72770. Function TSPLookupTablesEntitySet.ListAll(const AQuery: String) : TPSLookupTableArray;
  72771. var N : String;
  72772. begin
  72773. Result:=TPSLookupTableArray(GetMulti(AQuery,True,N));
  72774. end;
  72775. Function TSPLookupTablesEntitySet.ListAll(const AQuery: TQueryParams) : TPSLookupTableArray;
  72776. var N : String;
  72777. begin
  72778. Result:=TPSLookupTableArray(GetMulti(AQuery,True,N));
  72779. end;
  72780. { --------------------------------------------------------------------
  72781. TSPLookupTablessEntitySet
  72782. --------------------------------------------------------------------}
  72783. Class Function TSPLookupTablessEntitySet.ObjectRestKind : String;
  72784. begin
  72785. Result:='LookupTabless';
  72786. end;
  72787. Class Function TSPLookupTablessEntitySet.EntityClass : TODataEntityClass;
  72788. begin
  72789. Result:=TPSLookupTables;
  72790. end;
  72791. Function TSPLookupTablessEntitySet.Get(const Id4a81de82eeb94d6080ea5bf63e27023a: string) : TPSLookupTables;
  72792. begin
  72793. Result:=TPSLookupTables(GetSingle(TODataObject.MakeKeyString(Id4a81de82eeb94d6080ea5bf63e27023a)));
  72794. end;
  72795. Function TSPLookupTablessEntitySet.List(const AQuery: String; out NextLink: String) : TPSLookupTablesArray;
  72796. begin
  72797. Result:=TPSLookupTablesArray(GetMulti(AQuery,False,NextLink));
  72798. end;
  72799. Function TSPLookupTablessEntitySet.List(const AQuery: TQueryParams; out NextLink: String) : TPSLookupTablesArray;
  72800. begin
  72801. Result:=TPSLookupTablesArray(GetMulti(AQuery,False,NextLink));
  72802. end;
  72803. Function TSPLookupTablessEntitySet.ListAll(const AQuery: String) : TPSLookupTablesArray;
  72804. var N : String;
  72805. begin
  72806. Result:=TPSLookupTablesArray(GetMulti(AQuery,True,N));
  72807. end;
  72808. Function TSPLookupTablessEntitySet.ListAll(const AQuery: TQueryParams) : TPSLookupTablesArray;
  72809. var N : String;
  72810. begin
  72811. Result:=TPSLookupTablesArray(GetMulti(AQuery,True,N));
  72812. end;
  72813. { --------------------------------------------------------------------
  72814. TSPLookupTextsEntitySet
  72815. --------------------------------------------------------------------}
  72816. Class Function TSPLookupTextsEntitySet.ObjectRestKind : String;
  72817. begin
  72818. Result:='LookupTexts';
  72819. end;
  72820. Class Function TSPLookupTextsEntitySet.EntityClass : TODataEntityClass;
  72821. begin
  72822. Result:=TPSLookupText;
  72823. end;
  72824. Function TSPLookupTextsEntitySet.Get(const Id: TGUIDString) : TPSLookupText;
  72825. begin
  72826. Result:=TPSLookupText(GetSingle(TODataObject.MakeKeyString(Id)));
  72827. end;
  72828. Function TSPLookupTextsEntitySet.List(const AQuery: String; out NextLink: String) : TPSLookupTextArray;
  72829. begin
  72830. Result:=TPSLookupTextArray(GetMulti(AQuery,False,NextLink));
  72831. end;
  72832. Function TSPLookupTextsEntitySet.List(const AQuery: TQueryParams; out NextLink: String) : TPSLookupTextArray;
  72833. begin
  72834. Result:=TPSLookupTextArray(GetMulti(AQuery,False,NextLink));
  72835. end;
  72836. Function TSPLookupTextsEntitySet.ListAll(const AQuery: String) : TPSLookupTextArray;
  72837. var N : String;
  72838. begin
  72839. Result:=TPSLookupTextArray(GetMulti(AQuery,True,N));
  72840. end;
  72841. Function TSPLookupTextsEntitySet.ListAll(const AQuery: TQueryParams) : TPSLookupTextArray;
  72842. var N : String;
  72843. begin
  72844. Result:=TPSLookupTextArray(GetMulti(AQuery,True,N));
  72845. end;
  72846. { --------------------------------------------------------------------
  72847. TSPPhasesEntitySet
  72848. --------------------------------------------------------------------}
  72849. Class Function TSPPhasesEntitySet.ObjectRestKind : String;
  72850. begin
  72851. Result:='Phases';
  72852. end;
  72853. Class Function TSPPhasesEntitySet.EntityClass : TODataEntityClass;
  72854. begin
  72855. Result:=TPSPhase;
  72856. end;
  72857. Function TSPPhasesEntitySet.Get(const Id: TGUIDString) : TPSPhase;
  72858. begin
  72859. Result:=TPSPhase(GetSingle(TODataObject.MakeKeyString(Id)));
  72860. end;
  72861. Function TSPPhasesEntitySet.List(const AQuery: String; out NextLink: String) : TPSPhaseArray;
  72862. begin
  72863. Result:=TPSPhaseArray(GetMulti(AQuery,False,NextLink));
  72864. end;
  72865. Function TSPPhasesEntitySet.List(const AQuery: TQueryParams; out NextLink: String) : TPSPhaseArray;
  72866. begin
  72867. Result:=TPSPhaseArray(GetMulti(AQuery,False,NextLink));
  72868. end;
  72869. Function TSPPhasesEntitySet.ListAll(const AQuery: String) : TPSPhaseArray;
  72870. var N : String;
  72871. begin
  72872. Result:=TPSPhaseArray(GetMulti(AQuery,True,N));
  72873. end;
  72874. Function TSPPhasesEntitySet.ListAll(const AQuery: TQueryParams) : TPSPhaseArray;
  72875. var N : String;
  72876. begin
  72877. Result:=TPSPhaseArray(GetMulti(AQuery,True,N));
  72878. end;
  72879. { --------------------------------------------------------------------
  72880. TSPPlanAssignmentsEntitySet
  72881. --------------------------------------------------------------------}
  72882. Class Function TSPPlanAssignmentsEntitySet.ObjectRestKind : String;
  72883. begin
  72884. Result:='PlanAssignments';
  72885. end;
  72886. Class Function TSPPlanAssignmentsEntitySet.EntityClass : TODataEntityClass;
  72887. begin
  72888. Result:=TPSPlanAssignment;
  72889. end;
  72890. Function TSPPlanAssignmentsEntitySet.Get(const Id: TGUIDString) : TPSPlanAssignment;
  72891. begin
  72892. Result:=TPSPlanAssignment(GetSingle(TODataObject.MakeKeyString(Id)));
  72893. end;
  72894. Function TSPPlanAssignmentsEntitySet.List(const AQuery: String; out NextLink: String) : TPSPlanAssignmentArray;
  72895. begin
  72896. Result:=TPSPlanAssignmentArray(GetMulti(AQuery,False,NextLink));
  72897. end;
  72898. Function TSPPlanAssignmentsEntitySet.List(const AQuery: TQueryParams; out NextLink: String) : TPSPlanAssignmentArray;
  72899. begin
  72900. Result:=TPSPlanAssignmentArray(GetMulti(AQuery,False,NextLink));
  72901. end;
  72902. Function TSPPlanAssignmentsEntitySet.ListAll(const AQuery: String) : TPSPlanAssignmentArray;
  72903. var N : String;
  72904. begin
  72905. Result:=TPSPlanAssignmentArray(GetMulti(AQuery,True,N));
  72906. end;
  72907. Function TSPPlanAssignmentsEntitySet.ListAll(const AQuery: TQueryParams) : TPSPlanAssignmentArray;
  72908. var N : String;
  72909. begin
  72910. Result:=TPSPlanAssignmentArray(GetMulti(AQuery,True,N));
  72911. end;
  72912. { --------------------------------------------------------------------
  72913. TSPPlanAssignmentIntervalsEntitySet
  72914. --------------------------------------------------------------------}
  72915. Class Function TSPPlanAssignmentIntervalsEntitySet.ObjectRestKind : String;
  72916. begin
  72917. Result:='PlanAssignmentIntervals';
  72918. end;
  72919. Class Function TSPPlanAssignmentIntervalsEntitySet.EntityClass : TODataEntityClass;
  72920. begin
  72921. Result:=TPSPlanAssignmentInterval;
  72922. end;
  72923. Function TSPPlanAssignmentIntervalsEntitySet.Get(const _Name: string) : TPSPlanAssignmentInterval;
  72924. begin
  72925. Result:=TPSPlanAssignmentInterval(GetSingle(TODataObject.MakeKeyString(_Name)));
  72926. end;
  72927. Function TSPPlanAssignmentIntervalsEntitySet.List(const AQuery: String; out NextLink: String) : TPSPlanAssignmentIntervalArray;
  72928. begin
  72929. Result:=TPSPlanAssignmentIntervalArray(GetMulti(AQuery,False,NextLink));
  72930. end;
  72931. Function TSPPlanAssignmentIntervalsEntitySet.List(const AQuery: TQueryParams; out NextLink: String) : TPSPlanAssignmentIntervalArray;
  72932. begin
  72933. Result:=TPSPlanAssignmentIntervalArray(GetMulti(AQuery,False,NextLink));
  72934. end;
  72935. Function TSPPlanAssignmentIntervalsEntitySet.ListAll(const AQuery: String) : TPSPlanAssignmentIntervalArray;
  72936. var N : String;
  72937. begin
  72938. Result:=TPSPlanAssignmentIntervalArray(GetMulti(AQuery,True,N));
  72939. end;
  72940. Function TSPPlanAssignmentIntervalsEntitySet.ListAll(const AQuery: TQueryParams) : TPSPlanAssignmentIntervalArray;
  72941. var N : String;
  72942. begin
  72943. Result:=TPSPlanAssignmentIntervalArray(GetMulti(AQuery,True,N));
  72944. end;
  72945. { --------------------------------------------------------------------
  72946. TSPProjectsEntitySet
  72947. --------------------------------------------------------------------}
  72948. Class Function TSPProjectsEntitySet.ObjectRestKind : String;
  72949. begin
  72950. Result:='Projects';
  72951. end;
  72952. Class Function TSPProjectsEntitySet.EntityClass : TODataEntityClass;
  72953. begin
  72954. Result:=TPSProject;
  72955. end;
  72956. Function TSPProjectsEntitySet.Get(const Id: TGUIDString) : TPSProject;
  72957. begin
  72958. Result:=TPSProject(GetSingle(TODataObject.MakeKeyString(Id)));
  72959. end;
  72960. Function TSPProjectsEntitySet.List(const AQuery: String; out NextLink: String) : TPSProjectArray;
  72961. begin
  72962. Result:=TPSProjectArray(GetMulti(AQuery,False,NextLink));
  72963. end;
  72964. Function TSPProjectsEntitySet.List(const AQuery: TQueryParams; out NextLink: String) : TPSProjectArray;
  72965. begin
  72966. Result:=TPSProjectArray(GetMulti(AQuery,False,NextLink));
  72967. end;
  72968. Function TSPProjectsEntitySet.ListAll(const AQuery: String) : TPSProjectArray;
  72969. var N : String;
  72970. begin
  72971. Result:=TPSProjectArray(GetMulti(AQuery,True,N));
  72972. end;
  72973. Function TSPProjectsEntitySet.ListAll(const AQuery: TQueryParams) : TPSProjectArray;
  72974. var N : String;
  72975. begin
  72976. Result:=TPSProjectArray(GetMulti(AQuery,True,N));
  72977. end;
  72978. { --------------------------------------------------------------------
  72979. TSPProjectDetailPagesEntitySet
  72980. --------------------------------------------------------------------}
  72981. Class Function TSPProjectDetailPagesEntitySet.ObjectRestKind : String;
  72982. begin
  72983. Result:='ProjectDetailPages';
  72984. end;
  72985. Class Function TSPProjectDetailPagesEntitySet.EntityClass : TODataEntityClass;
  72986. begin
  72987. Result:=TPSProjectDetailPage;
  72988. end;
  72989. Function TSPProjectDetailPagesEntitySet.Get(const Id: TGUIDString) : TPSProjectDetailPage;
  72990. begin
  72991. Result:=TPSProjectDetailPage(GetSingle(TODataObject.MakeKeyString(Id)));
  72992. end;
  72993. Function TSPProjectDetailPagesEntitySet.List(const AQuery: String; out NextLink: String) : TPSProjectDetailPageArray;
  72994. begin
  72995. Result:=TPSProjectDetailPageArray(GetMulti(AQuery,False,NextLink));
  72996. end;
  72997. Function TSPProjectDetailPagesEntitySet.List(const AQuery: TQueryParams; out NextLink: String) : TPSProjectDetailPageArray;
  72998. begin
  72999. Result:=TPSProjectDetailPageArray(GetMulti(AQuery,False,NextLink));
  73000. end;
  73001. Function TSPProjectDetailPagesEntitySet.ListAll(const AQuery: String) : TPSProjectDetailPageArray;
  73002. var N : String;
  73003. begin
  73004. Result:=TPSProjectDetailPageArray(GetMulti(AQuery,True,N));
  73005. end;
  73006. Function TSPProjectDetailPagesEntitySet.ListAll(const AQuery: TQueryParams) : TPSProjectDetailPageArray;
  73007. var N : String;
  73008. begin
  73009. Result:=TPSProjectDetailPageArray(GetMulti(AQuery,True,N));
  73010. end;
  73011. { --------------------------------------------------------------------
  73012. TSPProjectResourcesEntitySet
  73013. --------------------------------------------------------------------}
  73014. Class Function TSPProjectResourcesEntitySet.ObjectRestKind : String;
  73015. begin
  73016. Result:='ProjectResources';
  73017. end;
  73018. Class Function TSPProjectResourcesEntitySet.EntityClass : TODataEntityClass;
  73019. begin
  73020. Result:=TPSProjectResource;
  73021. end;
  73022. Function TSPProjectResourcesEntitySet.Get(const Id: TGUIDString) : TPSProjectResource;
  73023. begin
  73024. Result:=TPSProjectResource(GetSingle(TODataObject.MakeKeyString(Id)));
  73025. end;
  73026. Function TSPProjectResourcesEntitySet.List(const AQuery: String; out NextLink: String) : TPSProjectResourceArray;
  73027. begin
  73028. Result:=TPSProjectResourceArray(GetMulti(AQuery,False,NextLink));
  73029. end;
  73030. Function TSPProjectResourcesEntitySet.List(const AQuery: TQueryParams; out NextLink: String) : TPSProjectResourceArray;
  73031. begin
  73032. Result:=TPSProjectResourceArray(GetMulti(AQuery,False,NextLink));
  73033. end;
  73034. Function TSPProjectResourcesEntitySet.ListAll(const AQuery: String) : TPSProjectResourceArray;
  73035. var N : String;
  73036. begin
  73037. Result:=TPSProjectResourceArray(GetMulti(AQuery,True,N));
  73038. end;
  73039. Function TSPProjectResourcesEntitySet.ListAll(const AQuery: TQueryParams) : TPSProjectResourceArray;
  73040. var N : String;
  73041. begin
  73042. Result:=TPSProjectResourceArray(GetMulti(AQuery,True,N));
  73043. end;
  73044. { --------------------------------------------------------------------
  73045. TSPProjectServersEntitySet
  73046. --------------------------------------------------------------------}
  73047. Class Function TSPProjectServersEntitySet.ObjectRestKind : String;
  73048. begin
  73049. Result:='ProjectServers';
  73050. end;
  73051. Class Function TSPProjectServersEntitySet.EntityClass : TODataEntityClass;
  73052. begin
  73053. Result:=TPSProjectServer;
  73054. end;
  73055. Function TSPProjectServersEntitySet.Get(const IsDelegate: boolean) : TPSProjectServer;
  73056. begin
  73057. Result:=TPSProjectServer(GetSingle(BoolToStr(IsDelegate,'true','false')));
  73058. end;
  73059. Function TSPProjectServersEntitySet.List(const AQuery: String; out NextLink: String) : TPSProjectServerArray;
  73060. begin
  73061. Result:=TPSProjectServerArray(GetMulti(AQuery,False,NextLink));
  73062. end;
  73063. Function TSPProjectServersEntitySet.List(const AQuery: TQueryParams; out NextLink: String) : TPSProjectServerArray;
  73064. begin
  73065. Result:=TPSProjectServerArray(GetMulti(AQuery,False,NextLink));
  73066. end;
  73067. Function TSPProjectServersEntitySet.ListAll(const AQuery: String) : TPSProjectServerArray;
  73068. var N : String;
  73069. begin
  73070. Result:=TPSProjectServerArray(GetMulti(AQuery,True,N));
  73071. end;
  73072. Function TSPProjectServersEntitySet.ListAll(const AQuery: TQueryParams) : TPSProjectServerArray;
  73073. var N : String;
  73074. begin
  73075. Result:=TPSProjectServerArray(GetMulti(AQuery,True,N));
  73076. end;
  73077. { --------------------------------------------------------------------
  73078. TSPProjectServerDatasEntitySet
  73079. --------------------------------------------------------------------}
  73080. Class Function TSPProjectServerDatasEntitySet.ObjectRestKind : String;
  73081. begin
  73082. Result:='ProjectServerDatas';
  73083. end;
  73084. Class Function TSPProjectServerDatasEntitySet.EntityClass : TODataEntityClass;
  73085. begin
  73086. Result:=TPSProjectServerData;
  73087. end;
  73088. Function TSPProjectServerDatasEntitySet.Get(const Id4a81de82eeb94d6080ea5bf63e27023a: string) : TPSProjectServerData;
  73089. begin
  73090. Result:=TPSProjectServerData(GetSingle(TODataObject.MakeKeyString(Id4a81de82eeb94d6080ea5bf63e27023a)));
  73091. end;
  73092. Function TSPProjectServerDatasEntitySet.List(const AQuery: String; out NextLink: String) : TPSProjectServerDataArray;
  73093. begin
  73094. Result:=TPSProjectServerDataArray(GetMulti(AQuery,False,NextLink));
  73095. end;
  73096. Function TSPProjectServerDatasEntitySet.List(const AQuery: TQueryParams; out NextLink: String) : TPSProjectServerDataArray;
  73097. begin
  73098. Result:=TPSProjectServerDataArray(GetMulti(AQuery,False,NextLink));
  73099. end;
  73100. Function TSPProjectServerDatasEntitySet.ListAll(const AQuery: String) : TPSProjectServerDataArray;
  73101. var N : String;
  73102. begin
  73103. Result:=TPSProjectServerDataArray(GetMulti(AQuery,True,N));
  73104. end;
  73105. Function TSPProjectServerDatasEntitySet.ListAll(const AQuery: TQueryParams) : TPSProjectServerDataArray;
  73106. var N : String;
  73107. begin
  73108. Result:=TPSProjectServerDataArray(GetMulti(AQuery,True,N));
  73109. end;
  73110. { --------------------------------------------------------------------
  73111. TSPPublishedAssignmentsEntitySet
  73112. --------------------------------------------------------------------}
  73113. Class Function TSPPublishedAssignmentsEntitySet.ObjectRestKind : String;
  73114. begin
  73115. Result:='PublishedAssignments';
  73116. end;
  73117. Class Function TSPPublishedAssignmentsEntitySet.EntityClass : TODataEntityClass;
  73118. begin
  73119. Result:=TPSPublishedAssignment;
  73120. end;
  73121. Function TSPPublishedAssignmentsEntitySet.Get(const Id: TGUIDString) : TPSPublishedAssignment;
  73122. begin
  73123. Result:=TPSPublishedAssignment(GetSingle(TODataObject.MakeKeyString(Id)));
  73124. end;
  73125. Function TSPPublishedAssignmentsEntitySet.List(const AQuery: String; out NextLink: String) : TPSPublishedAssignmentArray;
  73126. begin
  73127. Result:=TPSPublishedAssignmentArray(GetMulti(AQuery,False,NextLink));
  73128. end;
  73129. Function TSPPublishedAssignmentsEntitySet.List(const AQuery: TQueryParams; out NextLink: String) : TPSPublishedAssignmentArray;
  73130. begin
  73131. Result:=TPSPublishedAssignmentArray(GetMulti(AQuery,False,NextLink));
  73132. end;
  73133. Function TSPPublishedAssignmentsEntitySet.ListAll(const AQuery: String) : TPSPublishedAssignmentArray;
  73134. var N : String;
  73135. begin
  73136. Result:=TPSPublishedAssignmentArray(GetMulti(AQuery,True,N));
  73137. end;
  73138. Function TSPPublishedAssignmentsEntitySet.ListAll(const AQuery: TQueryParams) : TPSPublishedAssignmentArray;
  73139. var N : String;
  73140. begin
  73141. Result:=TPSPublishedAssignmentArray(GetMulti(AQuery,True,N));
  73142. end;
  73143. { --------------------------------------------------------------------
  73144. TSPPublishedProjectsEntitySet
  73145. --------------------------------------------------------------------}
  73146. Class Function TSPPublishedProjectsEntitySet.ObjectRestKind : String;
  73147. begin
  73148. Result:='PublishedProjects';
  73149. end;
  73150. Class Function TSPPublishedProjectsEntitySet.EntityClass : TODataEntityClass;
  73151. begin
  73152. Result:=TPSPublishedProject;
  73153. end;
  73154. Function TSPPublishedProjectsEntitySet.Get(const Id: TGUIDString) : TPSPublishedProject;
  73155. begin
  73156. Result:=TPSPublishedProject(GetSingle(TODataObject.MakeKeyString(Id)));
  73157. end;
  73158. Function TSPPublishedProjectsEntitySet.List(const AQuery: String; out NextLink: String) : TPSPublishedProjectArray;
  73159. begin
  73160. Result:=TPSPublishedProjectArray(GetMulti(AQuery,False,NextLink));
  73161. end;
  73162. Function TSPPublishedProjectsEntitySet.List(const AQuery: TQueryParams; out NextLink: String) : TPSPublishedProjectArray;
  73163. begin
  73164. Result:=TPSPublishedProjectArray(GetMulti(AQuery,False,NextLink));
  73165. end;
  73166. Function TSPPublishedProjectsEntitySet.ListAll(const AQuery: String) : TPSPublishedProjectArray;
  73167. var N : String;
  73168. begin
  73169. Result:=TPSPublishedProjectArray(GetMulti(AQuery,True,N));
  73170. end;
  73171. Function TSPPublishedProjectsEntitySet.ListAll(const AQuery: TQueryParams) : TPSPublishedProjectArray;
  73172. var N : String;
  73173. begin
  73174. Result:=TPSPublishedProjectArray(GetMulti(AQuery,True,N));
  73175. end;
  73176. { --------------------------------------------------------------------
  73177. TSPPublishedProjectResourcesEntitySet
  73178. --------------------------------------------------------------------}
  73179. Class Function TSPPublishedProjectResourcesEntitySet.ObjectRestKind : String;
  73180. begin
  73181. Result:='PublishedProjectResources';
  73182. end;
  73183. Class Function TSPPublishedProjectResourcesEntitySet.EntityClass : TODataEntityClass;
  73184. begin
  73185. Result:=TPSPublishedProjectResource;
  73186. end;
  73187. Function TSPPublishedProjectResourcesEntitySet.Get(const Id: TGUIDString) : TPSPublishedProjectResource;
  73188. begin
  73189. Result:=TPSPublishedProjectResource(GetSingle(TODataObject.MakeKeyString(Id)));
  73190. end;
  73191. Function TSPPublishedProjectResourcesEntitySet.List(const AQuery: String; out NextLink: String) : TPSPublishedProjectResourceArray;
  73192. begin
  73193. Result:=TPSPublishedProjectResourceArray(GetMulti(AQuery,False,NextLink));
  73194. end;
  73195. Function TSPPublishedProjectResourcesEntitySet.List(const AQuery: TQueryParams; out NextLink: String) : TPSPublishedProjectResourceArray;
  73196. begin
  73197. Result:=TPSPublishedProjectResourceArray(GetMulti(AQuery,False,NextLink));
  73198. end;
  73199. Function TSPPublishedProjectResourcesEntitySet.ListAll(const AQuery: String) : TPSPublishedProjectResourceArray;
  73200. var N : String;
  73201. begin
  73202. Result:=TPSPublishedProjectResourceArray(GetMulti(AQuery,True,N));
  73203. end;
  73204. Function TSPPublishedProjectResourcesEntitySet.ListAll(const AQuery: TQueryParams) : TPSPublishedProjectResourceArray;
  73205. var N : String;
  73206. begin
  73207. Result:=TPSPublishedProjectResourceArray(GetMulti(AQuery,True,N));
  73208. end;
  73209. { --------------------------------------------------------------------
  73210. TSPPublishedTasksEntitySet
  73211. --------------------------------------------------------------------}
  73212. Class Function TSPPublishedTasksEntitySet.ObjectRestKind : String;
  73213. begin
  73214. Result:='PublishedTasks';
  73215. end;
  73216. Class Function TSPPublishedTasksEntitySet.EntityClass : TODataEntityClass;
  73217. begin
  73218. Result:=TPSPublishedTask;
  73219. end;
  73220. Function TSPPublishedTasksEntitySet.Get(const Id: TGUIDString) : TPSPublishedTask;
  73221. begin
  73222. Result:=TPSPublishedTask(GetSingle(TODataObject.MakeKeyString(Id)));
  73223. end;
  73224. Function TSPPublishedTasksEntitySet.List(const AQuery: String; out NextLink: String) : TPSPublishedTaskArray;
  73225. begin
  73226. Result:=TPSPublishedTaskArray(GetMulti(AQuery,False,NextLink));
  73227. end;
  73228. Function TSPPublishedTasksEntitySet.List(const AQuery: TQueryParams; out NextLink: String) : TPSPublishedTaskArray;
  73229. begin
  73230. Result:=TPSPublishedTaskArray(GetMulti(AQuery,False,NextLink));
  73231. end;
  73232. Function TSPPublishedTasksEntitySet.ListAll(const AQuery: String) : TPSPublishedTaskArray;
  73233. var N : String;
  73234. begin
  73235. Result:=TPSPublishedTaskArray(GetMulti(AQuery,True,N));
  73236. end;
  73237. Function TSPPublishedTasksEntitySet.ListAll(const AQuery: TQueryParams) : TPSPublishedTaskArray;
  73238. var N : String;
  73239. begin
  73240. Result:=TPSPublishedTaskArray(GetMulti(AQuery,True,N));
  73241. end;
  73242. { --------------------------------------------------------------------
  73243. TSPPublishedTaskLinksEntitySet
  73244. --------------------------------------------------------------------}
  73245. Class Function TSPPublishedTaskLinksEntitySet.ObjectRestKind : String;
  73246. begin
  73247. Result:='PublishedTaskLinks';
  73248. end;
  73249. Class Function TSPPublishedTaskLinksEntitySet.EntityClass : TODataEntityClass;
  73250. begin
  73251. Result:=TPSPublishedTaskLink;
  73252. end;
  73253. Function TSPPublishedTaskLinksEntitySet.Get(const Id: TGUIDString) : TPSPublishedTaskLink;
  73254. begin
  73255. Result:=TPSPublishedTaskLink(GetSingle(TODataObject.MakeKeyString(Id)));
  73256. end;
  73257. Function TSPPublishedTaskLinksEntitySet.List(const AQuery: String; out NextLink: String) : TPSPublishedTaskLinkArray;
  73258. begin
  73259. Result:=TPSPublishedTaskLinkArray(GetMulti(AQuery,False,NextLink));
  73260. end;
  73261. Function TSPPublishedTaskLinksEntitySet.List(const AQuery: TQueryParams; out NextLink: String) : TPSPublishedTaskLinkArray;
  73262. begin
  73263. Result:=TPSPublishedTaskLinkArray(GetMulti(AQuery,False,NextLink));
  73264. end;
  73265. Function TSPPublishedTaskLinksEntitySet.ListAll(const AQuery: String) : TPSPublishedTaskLinkArray;
  73266. var N : String;
  73267. begin
  73268. Result:=TPSPublishedTaskLinkArray(GetMulti(AQuery,True,N));
  73269. end;
  73270. Function TSPPublishedTaskLinksEntitySet.ListAll(const AQuery: TQueryParams) : TPSPublishedTaskLinkArray;
  73271. var N : String;
  73272. begin
  73273. Result:=TPSPublishedTaskLinkArray(GetMulti(AQuery,True,N));
  73274. end;
  73275. { --------------------------------------------------------------------
  73276. TSPQueueJobsEntitySet
  73277. --------------------------------------------------------------------}
  73278. Class Function TSPQueueJobsEntitySet.ObjectRestKind : String;
  73279. begin
  73280. Result:='QueueJobs';
  73281. end;
  73282. Class Function TSPQueueJobsEntitySet.EntityClass : TODataEntityClass;
  73283. begin
  73284. Result:=TPSQueueJob;
  73285. end;
  73286. Function TSPQueueJobsEntitySet.Get(const Id: TGUIDString) : TPSQueueJob;
  73287. begin
  73288. Result:=TPSQueueJob(GetSingle(TODataObject.MakeKeyString(Id)));
  73289. end;
  73290. Function TSPQueueJobsEntitySet.List(const AQuery: String; out NextLink: String) : TPSQueueJobArray;
  73291. begin
  73292. Result:=TPSQueueJobArray(GetMulti(AQuery,False,NextLink));
  73293. end;
  73294. Function TSPQueueJobsEntitySet.List(const AQuery: TQueryParams; out NextLink: String) : TPSQueueJobArray;
  73295. begin
  73296. Result:=TPSQueueJobArray(GetMulti(AQuery,False,NextLink));
  73297. end;
  73298. Function TSPQueueJobsEntitySet.ListAll(const AQuery: String) : TPSQueueJobArray;
  73299. var N : String;
  73300. begin
  73301. Result:=TPSQueueJobArray(GetMulti(AQuery,True,N));
  73302. end;
  73303. Function TSPQueueJobsEntitySet.ListAll(const AQuery: TQueryParams) : TPSQueueJobArray;
  73304. var N : String;
  73305. begin
  73306. Result:=TPSQueueJobArray(GetMulti(AQuery,True,N));
  73307. end;
  73308. { --------------------------------------------------------------------
  73309. TSPResourceCalendarExceptionsEntitySet
  73310. --------------------------------------------------------------------}
  73311. Class Function TSPResourceCalendarExceptionsEntitySet.ObjectRestKind : String;
  73312. begin
  73313. Result:='ResourceCalendarExceptions';
  73314. end;
  73315. Class Function TSPResourceCalendarExceptionsEntitySet.EntityClass : TODataEntityClass;
  73316. begin
  73317. Result:=TPSResourceCalendarException;
  73318. end;
  73319. Function TSPResourceCalendarExceptionsEntitySet.Get(const Id: TInt32) : TPSResourceCalendarException;
  73320. begin
  73321. Result:=TPSResourceCalendarException(GetSingle(IntToStr(Id)));
  73322. end;
  73323. Function TSPResourceCalendarExceptionsEntitySet.List(const AQuery: String; out NextLink: String) : TPSResourceCalendarExceptionArray;
  73324. begin
  73325. Result:=TPSResourceCalendarExceptionArray(GetMulti(AQuery,False,NextLink));
  73326. end;
  73327. Function TSPResourceCalendarExceptionsEntitySet.List(const AQuery: TQueryParams; out NextLink: String) : TPSResourceCalendarExceptionArray;
  73328. begin
  73329. Result:=TPSResourceCalendarExceptionArray(GetMulti(AQuery,False,NextLink));
  73330. end;
  73331. Function TSPResourceCalendarExceptionsEntitySet.ListAll(const AQuery: String) : TPSResourceCalendarExceptionArray;
  73332. var N : String;
  73333. begin
  73334. Result:=TPSResourceCalendarExceptionArray(GetMulti(AQuery,True,N));
  73335. end;
  73336. Function TSPResourceCalendarExceptionsEntitySet.ListAll(const AQuery: TQueryParams) : TPSResourceCalendarExceptionArray;
  73337. var N : String;
  73338. begin
  73339. Result:=TPSResourceCalendarExceptionArray(GetMulti(AQuery,True,N));
  73340. end;
  73341. { --------------------------------------------------------------------
  73342. TSPResourcePlansEntitySet
  73343. --------------------------------------------------------------------}
  73344. Class Function TSPResourcePlansEntitySet.ObjectRestKind : String;
  73345. begin
  73346. Result:='ResourcePlans';
  73347. end;
  73348. Class Function TSPResourcePlansEntitySet.EntityClass : TODataEntityClass;
  73349. begin
  73350. Result:=TPSResourcePlan;
  73351. end;
  73352. Function TSPResourcePlansEntitySet.Get(const Id: TGUIDString) : TPSResourcePlan;
  73353. begin
  73354. Result:=TPSResourcePlan(GetSingle(TODataObject.MakeKeyString(Id)));
  73355. end;
  73356. Function TSPResourcePlansEntitySet.List(const AQuery: String; out NextLink: String) : TPSResourcePlanArray;
  73357. begin
  73358. Result:=TPSResourcePlanArray(GetMulti(AQuery,False,NextLink));
  73359. end;
  73360. Function TSPResourcePlansEntitySet.List(const AQuery: TQueryParams; out NextLink: String) : TPSResourcePlanArray;
  73361. begin
  73362. Result:=TPSResourcePlanArray(GetMulti(AQuery,False,NextLink));
  73363. end;
  73364. Function TSPResourcePlansEntitySet.ListAll(const AQuery: String) : TPSResourcePlanArray;
  73365. var N : String;
  73366. begin
  73367. Result:=TPSResourcePlanArray(GetMulti(AQuery,True,N));
  73368. end;
  73369. Function TSPResourcePlansEntitySet.ListAll(const AQuery: TQueryParams) : TPSResourcePlanArray;
  73370. var N : String;
  73371. begin
  73372. Result:=TPSResourcePlanArray(GetMulti(AQuery,True,N));
  73373. end;
  73374. { --------------------------------------------------------------------
  73375. TSPServiceStatussEntitySet
  73376. --------------------------------------------------------------------}
  73377. Class Function TSPServiceStatussEntitySet.ObjectRestKind : String;
  73378. begin
  73379. Result:='ServiceStatuss';
  73380. end;
  73381. Class Function TSPServiceStatussEntitySet.EntityClass : TODataEntityClass;
  73382. begin
  73383. Result:=TPSServiceStatus;
  73384. end;
  73385. Function TSPServiceStatussEntitySet.Get(const IsDelegate: boolean) : TPSServiceStatus;
  73386. begin
  73387. Result:=TPSServiceStatus(GetSingle(BoolToStr(IsDelegate,'true','false')));
  73388. end;
  73389. Function TSPServiceStatussEntitySet.List(const AQuery: String; out NextLink: String) : TPSServiceStatusArray;
  73390. begin
  73391. Result:=TPSServiceStatusArray(GetMulti(AQuery,False,NextLink));
  73392. end;
  73393. Function TSPServiceStatussEntitySet.List(const AQuery: TQueryParams; out NextLink: String) : TPSServiceStatusArray;
  73394. begin
  73395. Result:=TPSServiceStatusArray(GetMulti(AQuery,False,NextLink));
  73396. end;
  73397. Function TSPServiceStatussEntitySet.ListAll(const AQuery: String) : TPSServiceStatusArray;
  73398. var N : String;
  73399. begin
  73400. Result:=TPSServiceStatusArray(GetMulti(AQuery,True,N));
  73401. end;
  73402. Function TSPServiceStatussEntitySet.ListAll(const AQuery: TQueryParams) : TPSServiceStatusArray;
  73403. var N : String;
  73404. begin
  73405. Result:=TPSServiceStatusArray(GetMulti(AQuery,True,N));
  73406. end;
  73407. { --------------------------------------------------------------------
  73408. TSPStagesEntitySet
  73409. --------------------------------------------------------------------}
  73410. Class Function TSPStagesEntitySet.ObjectRestKind : String;
  73411. begin
  73412. Result:='Stages';
  73413. end;
  73414. Class Function TSPStagesEntitySet.EntityClass : TODataEntityClass;
  73415. begin
  73416. Result:=TPSStage;
  73417. end;
  73418. Function TSPStagesEntitySet.Get(const Id: TGUIDString) : TPSStage;
  73419. begin
  73420. Result:=TPSStage(GetSingle(TODataObject.MakeKeyString(Id)));
  73421. end;
  73422. Function TSPStagesEntitySet.List(const AQuery: String; out NextLink: String) : TPSStageArray;
  73423. begin
  73424. Result:=TPSStageArray(GetMulti(AQuery,False,NextLink));
  73425. end;
  73426. Function TSPStagesEntitySet.List(const AQuery: TQueryParams; out NextLink: String) : TPSStageArray;
  73427. begin
  73428. Result:=TPSStageArray(GetMulti(AQuery,False,NextLink));
  73429. end;
  73430. Function TSPStagesEntitySet.ListAll(const AQuery: String) : TPSStageArray;
  73431. var N : String;
  73432. begin
  73433. Result:=TPSStageArray(GetMulti(AQuery,True,N));
  73434. end;
  73435. Function TSPStagesEntitySet.ListAll(const AQuery: TQueryParams) : TPSStageArray;
  73436. var N : String;
  73437. begin
  73438. Result:=TPSStageArray(GetMulti(AQuery,True,N));
  73439. end;
  73440. { --------------------------------------------------------------------
  73441. TSPStageCustomFieldsEntitySet
  73442. --------------------------------------------------------------------}
  73443. Class Function TSPStageCustomFieldsEntitySet.ObjectRestKind : String;
  73444. begin
  73445. Result:='StageCustomFields';
  73446. end;
  73447. Class Function TSPStageCustomFieldsEntitySet.EntityClass : TODataEntityClass;
  73448. begin
  73449. Result:=TPSStageCustomField;
  73450. end;
  73451. Function TSPStageCustomFieldsEntitySet.Get(const Id: TGUIDString) : TPSStageCustomField;
  73452. begin
  73453. Result:=TPSStageCustomField(GetSingle(TODataObject.MakeKeyString(Id)));
  73454. end;
  73455. Function TSPStageCustomFieldsEntitySet.List(const AQuery: String; out NextLink: String) : TPSStageCustomFieldArray;
  73456. begin
  73457. Result:=TPSStageCustomFieldArray(GetMulti(AQuery,False,NextLink));
  73458. end;
  73459. Function TSPStageCustomFieldsEntitySet.List(const AQuery: TQueryParams; out NextLink: String) : TPSStageCustomFieldArray;
  73460. begin
  73461. Result:=TPSStageCustomFieldArray(GetMulti(AQuery,False,NextLink));
  73462. end;
  73463. Function TSPStageCustomFieldsEntitySet.ListAll(const AQuery: String) : TPSStageCustomFieldArray;
  73464. var N : String;
  73465. begin
  73466. Result:=TPSStageCustomFieldArray(GetMulti(AQuery,True,N));
  73467. end;
  73468. Function TSPStageCustomFieldsEntitySet.ListAll(const AQuery: TQueryParams) : TPSStageCustomFieldArray;
  73469. var N : String;
  73470. begin
  73471. Result:=TPSStageCustomFieldArray(GetMulti(AQuery,True,N));
  73472. end;
  73473. { --------------------------------------------------------------------
  73474. TSPStageDetailPagesEntitySet
  73475. --------------------------------------------------------------------}
  73476. Class Function TSPStageDetailPagesEntitySet.ObjectRestKind : String;
  73477. begin
  73478. Result:='StageDetailPages';
  73479. end;
  73480. Class Function TSPStageDetailPagesEntitySet.EntityClass : TODataEntityClass;
  73481. begin
  73482. Result:=TPSStageDetailPage;
  73483. end;
  73484. Function TSPStageDetailPagesEntitySet.Get(const Id: TGUIDString) : TPSStageDetailPage;
  73485. begin
  73486. Result:=TPSStageDetailPage(GetSingle(TODataObject.MakeKeyString(Id)));
  73487. end;
  73488. Function TSPStageDetailPagesEntitySet.List(const AQuery: String; out NextLink: String) : TPSStageDetailPageArray;
  73489. begin
  73490. Result:=TPSStageDetailPageArray(GetMulti(AQuery,False,NextLink));
  73491. end;
  73492. Function TSPStageDetailPagesEntitySet.List(const AQuery: TQueryParams; out NextLink: String) : TPSStageDetailPageArray;
  73493. begin
  73494. Result:=TPSStageDetailPageArray(GetMulti(AQuery,False,NextLink));
  73495. end;
  73496. Function TSPStageDetailPagesEntitySet.ListAll(const AQuery: String) : TPSStageDetailPageArray;
  73497. var N : String;
  73498. begin
  73499. Result:=TPSStageDetailPageArray(GetMulti(AQuery,True,N));
  73500. end;
  73501. Function TSPStageDetailPagesEntitySet.ListAll(const AQuery: TQueryParams) : TPSStageDetailPageArray;
  73502. var N : String;
  73503. begin
  73504. Result:=TPSStageDetailPageArray(GetMulti(AQuery,True,N));
  73505. end;
  73506. { --------------------------------------------------------------------
  73507. TSPStatusAssignmentsEntitySet
  73508. --------------------------------------------------------------------}
  73509. Class Function TSPStatusAssignmentsEntitySet.ObjectRestKind : String;
  73510. begin
  73511. Result:='StatusAssignments';
  73512. end;
  73513. Class Function TSPStatusAssignmentsEntitySet.EntityClass : TODataEntityClass;
  73514. begin
  73515. Result:=TPSStatusAssignment;
  73516. end;
  73517. Function TSPStatusAssignmentsEntitySet.Get(const Id: TGUIDString) : TPSStatusAssignment;
  73518. begin
  73519. Result:=TPSStatusAssignment(GetSingle(TODataObject.MakeKeyString(Id)));
  73520. end;
  73521. Function TSPStatusAssignmentsEntitySet.List(const AQuery: String; out NextLink: String) : TPSStatusAssignmentArray;
  73522. begin
  73523. Result:=TPSStatusAssignmentArray(GetMulti(AQuery,False,NextLink));
  73524. end;
  73525. Function TSPStatusAssignmentsEntitySet.List(const AQuery: TQueryParams; out NextLink: String) : TPSStatusAssignmentArray;
  73526. begin
  73527. Result:=TPSStatusAssignmentArray(GetMulti(AQuery,False,NextLink));
  73528. end;
  73529. Function TSPStatusAssignmentsEntitySet.ListAll(const AQuery: String) : TPSStatusAssignmentArray;
  73530. var N : String;
  73531. begin
  73532. Result:=TPSStatusAssignmentArray(GetMulti(AQuery,True,N));
  73533. end;
  73534. Function TSPStatusAssignmentsEntitySet.ListAll(const AQuery: TQueryParams) : TPSStatusAssignmentArray;
  73535. var N : String;
  73536. begin
  73537. Result:=TPSStatusAssignmentArray(GetMulti(AQuery,True,N));
  73538. end;
  73539. { --------------------------------------------------------------------
  73540. TSPStatusTasksEntitySet
  73541. --------------------------------------------------------------------}
  73542. Class Function TSPStatusTasksEntitySet.ObjectRestKind : String;
  73543. begin
  73544. Result:='StatusTasks';
  73545. end;
  73546. Class Function TSPStatusTasksEntitySet.EntityClass : TODataEntityClass;
  73547. begin
  73548. Result:=TPSStatusTask;
  73549. end;
  73550. Function TSPStatusTasksEntitySet.Get(const Id: TGUIDString) : TPSStatusTask;
  73551. begin
  73552. Result:=TPSStatusTask(GetSingle(TODataObject.MakeKeyString(Id)));
  73553. end;
  73554. Function TSPStatusTasksEntitySet.List(const AQuery: String; out NextLink: String) : TPSStatusTaskArray;
  73555. begin
  73556. Result:=TPSStatusTaskArray(GetMulti(AQuery,False,NextLink));
  73557. end;
  73558. Function TSPStatusTasksEntitySet.List(const AQuery: TQueryParams; out NextLink: String) : TPSStatusTaskArray;
  73559. begin
  73560. Result:=TPSStatusTaskArray(GetMulti(AQuery,False,NextLink));
  73561. end;
  73562. Function TSPStatusTasksEntitySet.ListAll(const AQuery: String) : TPSStatusTaskArray;
  73563. var N : String;
  73564. begin
  73565. Result:=TPSStatusTaskArray(GetMulti(AQuery,True,N));
  73566. end;
  73567. Function TSPStatusTasksEntitySet.ListAll(const AQuery: TQueryParams) : TPSStatusTaskArray;
  73568. var N : String;
  73569. begin
  73570. Result:=TPSStatusTaskArray(GetMulti(AQuery,True,N));
  73571. end;
  73572. { --------------------------------------------------------------------
  73573. TSPTasksEntitySet
  73574. --------------------------------------------------------------------}
  73575. Class Function TSPTasksEntitySet.ObjectRestKind : String;
  73576. begin
  73577. Result:='Tasks';
  73578. end;
  73579. Class Function TSPTasksEntitySet.EntityClass : TODataEntityClass;
  73580. begin
  73581. Result:=TPSTask;
  73582. end;
  73583. Function TSPTasksEntitySet.Get(const Id: TGUIDString) : TPSTask;
  73584. begin
  73585. Result:=TPSTask(GetSingle(TODataObject.MakeKeyString(Id)));
  73586. end;
  73587. Function TSPTasksEntitySet.List(const AQuery: String; out NextLink: String) : TPSTaskArray;
  73588. begin
  73589. Result:=TPSTaskArray(GetMulti(AQuery,False,NextLink));
  73590. end;
  73591. Function TSPTasksEntitySet.List(const AQuery: TQueryParams; out NextLink: String) : TPSTaskArray;
  73592. begin
  73593. Result:=TPSTaskArray(GetMulti(AQuery,False,NextLink));
  73594. end;
  73595. Function TSPTasksEntitySet.ListAll(const AQuery: String) : TPSTaskArray;
  73596. var N : String;
  73597. begin
  73598. Result:=TPSTaskArray(GetMulti(AQuery,True,N));
  73599. end;
  73600. Function TSPTasksEntitySet.ListAll(const AQuery: TQueryParams) : TPSTaskArray;
  73601. var N : String;
  73602. begin
  73603. Result:=TPSTaskArray(GetMulti(AQuery,True,N));
  73604. end;
  73605. { --------------------------------------------------------------------
  73606. TSPTaskLinksEntitySet
  73607. --------------------------------------------------------------------}
  73608. Class Function TSPTaskLinksEntitySet.ObjectRestKind : String;
  73609. begin
  73610. Result:='TaskLinks';
  73611. end;
  73612. Class Function TSPTaskLinksEntitySet.EntityClass : TODataEntityClass;
  73613. begin
  73614. Result:=TPSTaskLink;
  73615. end;
  73616. Function TSPTaskLinksEntitySet.Get(const Id: TGUIDString) : TPSTaskLink;
  73617. begin
  73618. Result:=TPSTaskLink(GetSingle(TODataObject.MakeKeyString(Id)));
  73619. end;
  73620. Function TSPTaskLinksEntitySet.List(const AQuery: String; out NextLink: String) : TPSTaskLinkArray;
  73621. begin
  73622. Result:=TPSTaskLinkArray(GetMulti(AQuery,False,NextLink));
  73623. end;
  73624. Function TSPTaskLinksEntitySet.List(const AQuery: TQueryParams; out NextLink: String) : TPSTaskLinkArray;
  73625. begin
  73626. Result:=TPSTaskLinkArray(GetMulti(AQuery,False,NextLink));
  73627. end;
  73628. Function TSPTaskLinksEntitySet.ListAll(const AQuery: String) : TPSTaskLinkArray;
  73629. var N : String;
  73630. begin
  73631. Result:=TPSTaskLinkArray(GetMulti(AQuery,True,N));
  73632. end;
  73633. Function TSPTaskLinksEntitySet.ListAll(const AQuery: TQueryParams) : TPSTaskLinkArray;
  73634. var N : String;
  73635. begin
  73636. Result:=TPSTaskLinkArray(GetMulti(AQuery,True,N));
  73637. end;
  73638. { --------------------------------------------------------------------
  73639. TSPTaskServiceOdataEndpointsEntitySet
  73640. --------------------------------------------------------------------}
  73641. Class Function TSPTaskServiceOdataEndpointsEntitySet.ObjectRestKind : String;
  73642. begin
  73643. Result:='TaskServiceOdataEndpoints';
  73644. end;
  73645. Class Function TSPTaskServiceOdataEndpointsEntitySet.EntityClass : TODataEntityClass;
  73646. begin
  73647. Result:=TPSTaskServiceOdataEndpoint;
  73648. end;
  73649. Function TSPTaskServiceOdataEndpointsEntitySet.Get(const Id4a81de82eeb94d6080ea5bf63e27023a: string) : TPSTaskServiceOdataEndpoint;
  73650. begin
  73651. Result:=TPSTaskServiceOdataEndpoint(GetSingle(TODataObject.MakeKeyString(Id4a81de82eeb94d6080ea5bf63e27023a)));
  73652. end;
  73653. Function TSPTaskServiceOdataEndpointsEntitySet.List(const AQuery: String; out NextLink: String) : TPSTaskServiceOdataEndpointArray;
  73654. begin
  73655. Result:=TPSTaskServiceOdataEndpointArray(GetMulti(AQuery,False,NextLink));
  73656. end;
  73657. Function TSPTaskServiceOdataEndpointsEntitySet.List(const AQuery: TQueryParams; out NextLink: String) : TPSTaskServiceOdataEndpointArray;
  73658. begin
  73659. Result:=TPSTaskServiceOdataEndpointArray(GetMulti(AQuery,False,NextLink));
  73660. end;
  73661. Function TSPTaskServiceOdataEndpointsEntitySet.ListAll(const AQuery: String) : TPSTaskServiceOdataEndpointArray;
  73662. var N : String;
  73663. begin
  73664. Result:=TPSTaskServiceOdataEndpointArray(GetMulti(AQuery,True,N));
  73665. end;
  73666. Function TSPTaskServiceOdataEndpointsEntitySet.ListAll(const AQuery: TQueryParams) : TPSTaskServiceOdataEndpointArray;
  73667. var N : String;
  73668. begin
  73669. Result:=TPSTaskServiceOdataEndpointArray(GetMulti(AQuery,True,N));
  73670. end;
  73671. { --------------------------------------------------------------------
  73672. TSPTimePhasesEntitySet
  73673. --------------------------------------------------------------------}
  73674. Class Function TSPTimePhasesEntitySet.ObjectRestKind : String;
  73675. begin
  73676. Result:='TimePhases';
  73677. end;
  73678. Class Function TSPTimePhasesEntitySet.EntityClass : TODataEntityClass;
  73679. begin
  73680. Result:=TPSTimePhase;
  73681. end;
  73682. Function TSPTimePhasesEntitySet.Get(const _End: TDateTime) : TPSTimePhase;
  73683. begin
  73684. Result:=TPSTimePhase(GetSingle(FormatDateTime('yyyy-mm-dd"T"hhmmss',_End)));
  73685. end;
  73686. Function TSPTimePhasesEntitySet.List(const AQuery: String; out NextLink: String) : TPSTimePhaseArray;
  73687. begin
  73688. Result:=TPSTimePhaseArray(GetMulti(AQuery,False,NextLink));
  73689. end;
  73690. Function TSPTimePhasesEntitySet.List(const AQuery: TQueryParams; out NextLink: String) : TPSTimePhaseArray;
  73691. begin
  73692. Result:=TPSTimePhaseArray(GetMulti(AQuery,False,NextLink));
  73693. end;
  73694. Function TSPTimePhasesEntitySet.ListAll(const AQuery: String) : TPSTimePhaseArray;
  73695. var N : String;
  73696. begin
  73697. Result:=TPSTimePhaseArray(GetMulti(AQuery,True,N));
  73698. end;
  73699. Function TSPTimePhasesEntitySet.ListAll(const AQuery: TQueryParams) : TPSTimePhaseArray;
  73700. var N : String;
  73701. begin
  73702. Result:=TPSTimePhaseArray(GetMulti(AQuery,True,N));
  73703. end;
  73704. { --------------------------------------------------------------------
  73705. TSPTimeSheetsEntitySet
  73706. --------------------------------------------------------------------}
  73707. Class Function TSPTimeSheetsEntitySet.ObjectRestKind : String;
  73708. begin
  73709. Result:='TimeSheets';
  73710. end;
  73711. Class Function TSPTimeSheetsEntitySet.EntityClass : TODataEntityClass;
  73712. begin
  73713. Result:=TPSTimeSheet;
  73714. end;
  73715. Function TSPTimeSheetsEntitySet.Get(const Id: TGUIDString) : TPSTimeSheet;
  73716. begin
  73717. Result:=TPSTimeSheet(GetSingle(TODataObject.MakeKeyString(Id)));
  73718. end;
  73719. Function TSPTimeSheetsEntitySet.List(const AQuery: String; out NextLink: String) : TPSTimeSheetArray;
  73720. begin
  73721. Result:=TPSTimeSheetArray(GetMulti(AQuery,False,NextLink));
  73722. end;
  73723. Function TSPTimeSheetsEntitySet.List(const AQuery: TQueryParams; out NextLink: String) : TPSTimeSheetArray;
  73724. begin
  73725. Result:=TPSTimeSheetArray(GetMulti(AQuery,False,NextLink));
  73726. end;
  73727. Function TSPTimeSheetsEntitySet.ListAll(const AQuery: String) : TPSTimeSheetArray;
  73728. var N : String;
  73729. begin
  73730. Result:=TPSTimeSheetArray(GetMulti(AQuery,True,N));
  73731. end;
  73732. Function TSPTimeSheetsEntitySet.ListAll(const AQuery: TQueryParams) : TPSTimeSheetArray;
  73733. var N : String;
  73734. begin
  73735. Result:=TPSTimeSheetArray(GetMulti(AQuery,True,N));
  73736. end;
  73737. { --------------------------------------------------------------------
  73738. TSPTimeSheetLinesEntitySet
  73739. --------------------------------------------------------------------}
  73740. Class Function TSPTimeSheetLinesEntitySet.ObjectRestKind : String;
  73741. begin
  73742. Result:='TimeSheetLines';
  73743. end;
  73744. Class Function TSPTimeSheetLinesEntitySet.EntityClass : TODataEntityClass;
  73745. begin
  73746. Result:=TPSTimeSheetLine;
  73747. end;
  73748. Function TSPTimeSheetLinesEntitySet.Get(const Id: TGUIDString) : TPSTimeSheetLine;
  73749. begin
  73750. Result:=TPSTimeSheetLine(GetSingle(TODataObject.MakeKeyString(Id)));
  73751. end;
  73752. Function TSPTimeSheetLinesEntitySet.List(const AQuery: String; out NextLink: String) : TPSTimeSheetLineArray;
  73753. begin
  73754. Result:=TPSTimeSheetLineArray(GetMulti(AQuery,False,NextLink));
  73755. end;
  73756. Function TSPTimeSheetLinesEntitySet.List(const AQuery: TQueryParams; out NextLink: String) : TPSTimeSheetLineArray;
  73757. begin
  73758. Result:=TPSTimeSheetLineArray(GetMulti(AQuery,False,NextLink));
  73759. end;
  73760. Function TSPTimeSheetLinesEntitySet.ListAll(const AQuery: String) : TPSTimeSheetLineArray;
  73761. var N : String;
  73762. begin
  73763. Result:=TPSTimeSheetLineArray(GetMulti(AQuery,True,N));
  73764. end;
  73765. Function TSPTimeSheetLinesEntitySet.ListAll(const AQuery: TQueryParams) : TPSTimeSheetLineArray;
  73766. var N : String;
  73767. begin
  73768. Result:=TPSTimeSheetLineArray(GetMulti(AQuery,True,N));
  73769. end;
  73770. { --------------------------------------------------------------------
  73771. TSPTimeSheetPeriodsEntitySet
  73772. --------------------------------------------------------------------}
  73773. Class Function TSPTimeSheetPeriodsEntitySet.ObjectRestKind : String;
  73774. begin
  73775. Result:='TimeSheetPeriods';
  73776. end;
  73777. Class Function TSPTimeSheetPeriodsEntitySet.EntityClass : TODataEntityClass;
  73778. begin
  73779. Result:=TPSTimeSheetPeriod;
  73780. end;
  73781. Function TSPTimeSheetPeriodsEntitySet.Get(const Id: TGUIDString) : TPSTimeSheetPeriod;
  73782. begin
  73783. Result:=TPSTimeSheetPeriod(GetSingle(TODataObject.MakeKeyString(Id)));
  73784. end;
  73785. Function TSPTimeSheetPeriodsEntitySet.List(const AQuery: String; out NextLink: String) : TPSTimeSheetPeriodArray;
  73786. begin
  73787. Result:=TPSTimeSheetPeriodArray(GetMulti(AQuery,False,NextLink));
  73788. end;
  73789. Function TSPTimeSheetPeriodsEntitySet.List(const AQuery: TQueryParams; out NextLink: String) : TPSTimeSheetPeriodArray;
  73790. begin
  73791. Result:=TPSTimeSheetPeriodArray(GetMulti(AQuery,False,NextLink));
  73792. end;
  73793. Function TSPTimeSheetPeriodsEntitySet.ListAll(const AQuery: String) : TPSTimeSheetPeriodArray;
  73794. var N : String;
  73795. begin
  73796. Result:=TPSTimeSheetPeriodArray(GetMulti(AQuery,True,N));
  73797. end;
  73798. Function TSPTimeSheetPeriodsEntitySet.ListAll(const AQuery: TQueryParams) : TPSTimeSheetPeriodArray;
  73799. var N : String;
  73800. begin
  73801. Result:=TPSTimeSheetPeriodArray(GetMulti(AQuery,True,N));
  73802. end;
  73803. { --------------------------------------------------------------------
  73804. TSPTimeSheetWorksEntitySet
  73805. --------------------------------------------------------------------}
  73806. Class Function TSPTimeSheetWorksEntitySet.ObjectRestKind : String;
  73807. begin
  73808. Result:='TimeSheetWorks';
  73809. end;
  73810. Class Function TSPTimeSheetWorksEntitySet.EntityClass : TODataEntityClass;
  73811. begin
  73812. Result:=TPSTimeSheetWork;
  73813. end;
  73814. Function TSPTimeSheetWorksEntitySet.Get(const Id: TGUIDString) : TPSTimeSheetWork;
  73815. begin
  73816. Result:=TPSTimeSheetWork(GetSingle(TODataObject.MakeKeyString(Id)));
  73817. end;
  73818. Function TSPTimeSheetWorksEntitySet.List(const AQuery: String; out NextLink: String) : TPSTimeSheetWorkArray;
  73819. begin
  73820. Result:=TPSTimeSheetWorkArray(GetMulti(AQuery,False,NextLink));
  73821. end;
  73822. Function TSPTimeSheetWorksEntitySet.List(const AQuery: TQueryParams; out NextLink: String) : TPSTimeSheetWorkArray;
  73823. begin
  73824. Result:=TPSTimeSheetWorkArray(GetMulti(AQuery,False,NextLink));
  73825. end;
  73826. Function TSPTimeSheetWorksEntitySet.ListAll(const AQuery: String) : TPSTimeSheetWorkArray;
  73827. var N : String;
  73828. begin
  73829. Result:=TPSTimeSheetWorkArray(GetMulti(AQuery,True,N));
  73830. end;
  73831. Function TSPTimeSheetWorksEntitySet.ListAll(const AQuery: TQueryParams) : TPSTimeSheetWorkArray;
  73832. var N : String;
  73833. begin
  73834. Result:=TPSTimeSheetWorkArray(GetMulti(AQuery,True,N));
  73835. end;
  73836. { --------------------------------------------------------------------
  73837. TSPWorkflowActivitiessEntitySet
  73838. --------------------------------------------------------------------}
  73839. Class Function TSPWorkflowActivitiessEntitySet.ObjectRestKind : String;
  73840. begin
  73841. Result:='WorkflowActivitiess';
  73842. end;
  73843. Class Function TSPWorkflowActivitiessEntitySet.EntityClass : TODataEntityClass;
  73844. begin
  73845. Result:=TPSWorkflowActivities;
  73846. end;
  73847. Function TSPWorkflowActivitiessEntitySet.Get(const Id4a81de82eeb94d6080ea5bf63e27023a: string) : TPSWorkflowActivities;
  73848. begin
  73849. Result:=TPSWorkflowActivities(GetSingle(TODataObject.MakeKeyString(Id4a81de82eeb94d6080ea5bf63e27023a)));
  73850. end;
  73851. Function TSPWorkflowActivitiessEntitySet.List(const AQuery: String; out NextLink: String) : TPSWorkflowActivitiesArray;
  73852. begin
  73853. Result:=TPSWorkflowActivitiesArray(GetMulti(AQuery,False,NextLink));
  73854. end;
  73855. Function TSPWorkflowActivitiessEntitySet.List(const AQuery: TQueryParams; out NextLink: String) : TPSWorkflowActivitiesArray;
  73856. begin
  73857. Result:=TPSWorkflowActivitiesArray(GetMulti(AQuery,False,NextLink));
  73858. end;
  73859. Function TSPWorkflowActivitiessEntitySet.ListAll(const AQuery: String) : TPSWorkflowActivitiesArray;
  73860. var N : String;
  73861. begin
  73862. Result:=TPSWorkflowActivitiesArray(GetMulti(AQuery,True,N));
  73863. end;
  73864. Function TSPWorkflowActivitiessEntitySet.ListAll(const AQuery: TQueryParams) : TPSWorkflowActivitiesArray;
  73865. var N : String;
  73866. begin
  73867. Result:=TPSWorkflowActivitiesArray(GetMulti(AQuery,True,N));
  73868. end;
  73869. { --------------------------------------------------------------------
  73870. TSPWorkflowDesignersEntitySet
  73871. --------------------------------------------------------------------}
  73872. Class Function TSPWorkflowDesignersEntitySet.ObjectRestKind : String;
  73873. begin
  73874. Result:='WorkflowDesigners';
  73875. end;
  73876. Class Function TSPWorkflowDesignersEntitySet.EntityClass : TODataEntityClass;
  73877. begin
  73878. Result:=TPSWorkflowDesigner;
  73879. end;
  73880. Function TSPWorkflowDesignersEntitySet.Get(const Id4a81de82eeb94d6080ea5bf63e27023a: string) : TPSWorkflowDesigner;
  73881. begin
  73882. Result:=TPSWorkflowDesigner(GetSingle(TODataObject.MakeKeyString(Id4a81de82eeb94d6080ea5bf63e27023a)));
  73883. end;
  73884. Function TSPWorkflowDesignersEntitySet.List(const AQuery: String; out NextLink: String) : TPSWorkflowDesignerArray;
  73885. begin
  73886. Result:=TPSWorkflowDesignerArray(GetMulti(AQuery,False,NextLink));
  73887. end;
  73888. Function TSPWorkflowDesignersEntitySet.List(const AQuery: TQueryParams; out NextLink: String) : TPSWorkflowDesignerArray;
  73889. begin
  73890. Result:=TPSWorkflowDesignerArray(GetMulti(AQuery,False,NextLink));
  73891. end;
  73892. Function TSPWorkflowDesignersEntitySet.ListAll(const AQuery: String) : TPSWorkflowDesignerArray;
  73893. var N : String;
  73894. begin
  73895. Result:=TPSWorkflowDesignerArray(GetMulti(AQuery,True,N));
  73896. end;
  73897. Function TSPWorkflowDesignersEntitySet.ListAll(const AQuery: TQueryParams) : TPSWorkflowDesignerArray;
  73898. var N : String;
  73899. begin
  73900. Result:=TPSWorkflowDesignerArray(GetMulti(AQuery,True,N));
  73901. end;
  73902. { --------------------------------------------------------------------
  73903. TSPWorkflowDesignerFieldsEntitySet
  73904. --------------------------------------------------------------------}
  73905. Class Function TSPWorkflowDesignerFieldsEntitySet.ObjectRestKind : String;
  73906. begin
  73907. Result:='WorkflowDesignerFields';
  73908. end;
  73909. Class Function TSPWorkflowDesignerFieldsEntitySet.EntityClass : TODataEntityClass;
  73910. begin
  73911. Result:=TPSWorkflowDesignerField;
  73912. end;
  73913. Function TSPWorkflowDesignerFieldsEntitySet.Get(const Id: string) : TPSWorkflowDesignerField;
  73914. begin
  73915. Result:=TPSWorkflowDesignerField(GetSingle(TODataObject.MakeKeyString(Id)));
  73916. end;
  73917. Function TSPWorkflowDesignerFieldsEntitySet.List(const AQuery: String; out NextLink: String) : TPSWorkflowDesignerFieldArray;
  73918. begin
  73919. Result:=TPSWorkflowDesignerFieldArray(GetMulti(AQuery,False,NextLink));
  73920. end;
  73921. Function TSPWorkflowDesignerFieldsEntitySet.List(const AQuery: TQueryParams; out NextLink: String) : TPSWorkflowDesignerFieldArray;
  73922. begin
  73923. Result:=TPSWorkflowDesignerFieldArray(GetMulti(AQuery,False,NextLink));
  73924. end;
  73925. Function TSPWorkflowDesignerFieldsEntitySet.ListAll(const AQuery: String) : TPSWorkflowDesignerFieldArray;
  73926. var N : String;
  73927. begin
  73928. Result:=TPSWorkflowDesignerFieldArray(GetMulti(AQuery,True,N));
  73929. end;
  73930. Function TSPWorkflowDesignerFieldsEntitySet.ListAll(const AQuery: TQueryParams) : TPSWorkflowDesignerFieldArray;
  73931. var N : String;
  73932. begin
  73933. Result:=TPSWorkflowDesignerFieldArray(GetMulti(AQuery,True,N));
  73934. end;
  73935. { --------------------------------------------------------------------
  73936. TSPAccessRequestssEntitySet
  73937. --------------------------------------------------------------------}
  73938. Class Function TSPAccessRequestssEntitySet.ObjectRestKind : String;
  73939. begin
  73940. Result:='AccessRequestss';
  73941. end;
  73942. Class Function TSPAccessRequestssEntitySet.EntityClass : TODataEntityClass;
  73943. begin
  73944. Result:=TSPAccessRequests;
  73945. end;
  73946. Function TSPAccessRequestssEntitySet.Get(const Id4a81de82eeb94d6080ea5bf63e27023a: string) : TSPAccessRequests;
  73947. begin
  73948. Result:=TSPAccessRequests(GetSingle(TODataObject.MakeKeyString(Id4a81de82eeb94d6080ea5bf63e27023a)));
  73949. end;
  73950. Function TSPAccessRequestssEntitySet.List(const AQuery: String; out NextLink: String) : TSPAccessRequestsArray;
  73951. begin
  73952. Result:=TSPAccessRequestsArray(GetMulti(AQuery,False,NextLink));
  73953. end;
  73954. Function TSPAccessRequestssEntitySet.List(const AQuery: TQueryParams; out NextLink: String) : TSPAccessRequestsArray;
  73955. begin
  73956. Result:=TSPAccessRequestsArray(GetMulti(AQuery,False,NextLink));
  73957. end;
  73958. Function TSPAccessRequestssEntitySet.ListAll(const AQuery: String) : TSPAccessRequestsArray;
  73959. var N : String;
  73960. begin
  73961. Result:=TSPAccessRequestsArray(GetMulti(AQuery,True,N));
  73962. end;
  73963. Function TSPAccessRequestssEntitySet.ListAll(const AQuery: TQueryParams) : TSPAccessRequestsArray;
  73964. var N : String;
  73965. begin
  73966. Result:=TSPAccessRequestsArray(GetMulti(AQuery,True,N));
  73967. end;
  73968. { --------------------------------------------------------------------
  73969. TSPAlternateUrlsEntitySet
  73970. --------------------------------------------------------------------}
  73971. Class Function TSPAlternateUrlsEntitySet.ObjectRestKind : String;
  73972. begin
  73973. Result:='AlternateUrls';
  73974. end;
  73975. Class Function TSPAlternateUrlsEntitySet.EntityClass : TODataEntityClass;
  73976. begin
  73977. Result:=TSPAlternateUrl;
  73978. end;
  73979. Function TSPAlternateUrlsEntitySet.Get(const Uri: string) : TSPAlternateUrl;
  73980. begin
  73981. Result:=TSPAlternateUrl(GetSingle(TODataObject.MakeKeyString(Uri)));
  73982. end;
  73983. Function TSPAlternateUrlsEntitySet.List(const AQuery: String; out NextLink: String) : TSPAlternateUrlArray;
  73984. begin
  73985. Result:=TSPAlternateUrlArray(GetMulti(AQuery,False,NextLink));
  73986. end;
  73987. Function TSPAlternateUrlsEntitySet.List(const AQuery: TQueryParams; out NextLink: String) : TSPAlternateUrlArray;
  73988. begin
  73989. Result:=TSPAlternateUrlArray(GetMulti(AQuery,False,NextLink));
  73990. end;
  73991. Function TSPAlternateUrlsEntitySet.ListAll(const AQuery: String) : TSPAlternateUrlArray;
  73992. var N : String;
  73993. begin
  73994. Result:=TSPAlternateUrlArray(GetMulti(AQuery,True,N));
  73995. end;
  73996. Function TSPAlternateUrlsEntitySet.ListAll(const AQuery: TQueryParams) : TSPAlternateUrlArray;
  73997. var N : String;
  73998. begin
  73999. Result:=TSPAlternateUrlArray(GetMulti(AQuery,True,N));
  74000. end;
  74001. { --------------------------------------------------------------------
  74002. TSPAnalyticsUsageEntrysEntitySet
  74003. --------------------------------------------------------------------}
  74004. Class Function TSPAnalyticsUsageEntrysEntitySet.ObjectRestKind : String;
  74005. begin
  74006. Result:='AnalyticsUsageEntrys';
  74007. end;
  74008. Class Function TSPAnalyticsUsageEntrysEntitySet.EntityClass : TODataEntityClass;
  74009. begin
  74010. Result:=TSP_AnalyticsAnalyticsUsageEntry;
  74011. end;
  74012. Function TSPAnalyticsUsageEntrysEntitySet.Get(const Id4a81de82eeb94d6080ea5bf63e27023a: string) : TSP_AnalyticsAnalyticsUsageEntry;
  74013. begin
  74014. Result:=TSP_AnalyticsAnalyticsUsageEntry(GetSingle(TODataObject.MakeKeyString(Id4a81de82eeb94d6080ea5bf63e27023a)));
  74015. end;
  74016. Function TSPAnalyticsUsageEntrysEntitySet.List(const AQuery: String; out NextLink: String) : TSP_AnalyticsAnalyticsUsageEntryArray;
  74017. begin
  74018. Result:=TSP_AnalyticsAnalyticsUsageEntryArray(GetMulti(AQuery,False,NextLink));
  74019. end;
  74020. Function TSPAnalyticsUsageEntrysEntitySet.List(const AQuery: TQueryParams; out NextLink: String) : TSP_AnalyticsAnalyticsUsageEntryArray;
  74021. begin
  74022. Result:=TSP_AnalyticsAnalyticsUsageEntryArray(GetMulti(AQuery,False,NextLink));
  74023. end;
  74024. Function TSPAnalyticsUsageEntrysEntitySet.ListAll(const AQuery: String) : TSP_AnalyticsAnalyticsUsageEntryArray;
  74025. var N : String;
  74026. begin
  74027. Result:=TSP_AnalyticsAnalyticsUsageEntryArray(GetMulti(AQuery,True,N));
  74028. end;
  74029. Function TSPAnalyticsUsageEntrysEntitySet.ListAll(const AQuery: TQueryParams) : TSP_AnalyticsAnalyticsUsageEntryArray;
  74030. var N : String;
  74031. begin
  74032. Result:=TSP_AnalyticsAnalyticsUsageEntryArray(GetMulti(AQuery,True,N));
  74033. end;
  74034. { --------------------------------------------------------------------
  74035. TSPApiMetadatasEntitySet
  74036. --------------------------------------------------------------------}
  74037. Class Function TSPApiMetadatasEntitySet.ObjectRestKind : String;
  74038. begin
  74039. Result:='ApiMetadatas';
  74040. end;
  74041. Class Function TSPApiMetadatasEntitySet.EntityClass : TODataEntityClass;
  74042. begin
  74043. Result:=TSPApiMetadata;
  74044. end;
  74045. Function TSPApiMetadatasEntitySet.Get(const Id4a81de82eeb94d6080ea5bf63e27023a: string) : TSPApiMetadata;
  74046. begin
  74047. Result:=TSPApiMetadata(GetSingle(TODataObject.MakeKeyString(Id4a81de82eeb94d6080ea5bf63e27023a)));
  74048. end;
  74049. Function TSPApiMetadatasEntitySet.List(const AQuery: String; out NextLink: String) : TSPApiMetadataArray;
  74050. begin
  74051. Result:=TSPApiMetadataArray(GetMulti(AQuery,False,NextLink));
  74052. end;
  74053. Function TSPApiMetadatasEntitySet.List(const AQuery: TQueryParams; out NextLink: String) : TSPApiMetadataArray;
  74054. begin
  74055. Result:=TSPApiMetadataArray(GetMulti(AQuery,False,NextLink));
  74056. end;
  74057. Function TSPApiMetadatasEntitySet.ListAll(const AQuery: String) : TSPApiMetadataArray;
  74058. var N : String;
  74059. begin
  74060. Result:=TSPApiMetadataArray(GetMulti(AQuery,True,N));
  74061. end;
  74062. Function TSPApiMetadatasEntitySet.ListAll(const AQuery: TQueryParams) : TSPApiMetadataArray;
  74063. var N : String;
  74064. begin
  74065. Result:=TSPApiMetadataArray(GetMulti(AQuery,True,N));
  74066. end;
  74067. { --------------------------------------------------------------------
  74068. TSPApps12EntitySet
  74069. --------------------------------------------------------------------}
  74070. Class Function TSPApps12EntitySet.ObjectRestKind : String;
  74071. begin
  74072. Result:='Apps12';
  74073. end;
  74074. Class Function TSPApps12EntitySet.EntityClass : TODataEntityClass;
  74075. begin
  74076. Result:=TSPApp;
  74077. end;
  74078. Function TSPApps12EntitySet.Get(const AssetId: string) : TSPApp;
  74079. begin
  74080. Result:=TSPApp(GetSingle(TODataObject.MakeKeyString(AssetId)));
  74081. end;
  74082. Function TSPApps12EntitySet.List(const AQuery: String; out NextLink: String) : TSPAppArray;
  74083. begin
  74084. Result:=TSPAppArray(GetMulti(AQuery,False,NextLink));
  74085. end;
  74086. Function TSPApps12EntitySet.List(const AQuery: TQueryParams; out NextLink: String) : TSPAppArray;
  74087. begin
  74088. Result:=TSPAppArray(GetMulti(AQuery,False,NextLink));
  74089. end;
  74090. Function TSPApps12EntitySet.ListAll(const AQuery: String) : TSPAppArray;
  74091. var N : String;
  74092. begin
  74093. Result:=TSPAppArray(GetMulti(AQuery,True,N));
  74094. end;
  74095. Function TSPApps12EntitySet.ListAll(const AQuery: TQueryParams) : TSPAppArray;
  74096. var N : String;
  74097. begin
  74098. Result:=TSPAppArray(GetMulti(AQuery,True,N));
  74099. end;
  74100. { --------------------------------------------------------------------
  74101. TSPAppCatalogsEntitySet
  74102. --------------------------------------------------------------------}
  74103. Class Function TSPAppCatalogsEntitySet.ObjectRestKind : String;
  74104. begin
  74105. Result:='AppCatalogs';
  74106. end;
  74107. Class Function TSPAppCatalogsEntitySet.EntityClass : TODataEntityClass;
  74108. begin
  74109. Result:=TSPAppCatalog;
  74110. end;
  74111. Function TSPAppCatalogsEntitySet.Get(const Id4a81de82eeb94d6080ea5bf63e27023a: string) : TSPAppCatalog;
  74112. begin
  74113. Result:=TSPAppCatalog(GetSingle(TODataObject.MakeKeyString(Id4a81de82eeb94d6080ea5bf63e27023a)));
  74114. end;
  74115. Function TSPAppCatalogsEntitySet.List(const AQuery: String; out NextLink: String) : TSPAppCatalogArray;
  74116. begin
  74117. Result:=TSPAppCatalogArray(GetMulti(AQuery,False,NextLink));
  74118. end;
  74119. Function TSPAppCatalogsEntitySet.List(const AQuery: TQueryParams; out NextLink: String) : TSPAppCatalogArray;
  74120. begin
  74121. Result:=TSPAppCatalogArray(GetMulti(AQuery,False,NextLink));
  74122. end;
  74123. Function TSPAppCatalogsEntitySet.ListAll(const AQuery: String) : TSPAppCatalogArray;
  74124. var N : String;
  74125. begin
  74126. Result:=TSPAppCatalogArray(GetMulti(AQuery,True,N));
  74127. end;
  74128. Function TSPAppCatalogsEntitySet.ListAll(const AQuery: TQueryParams) : TSPAppCatalogArray;
  74129. var N : String;
  74130. begin
  74131. Result:=TSPAppCatalogArray(GetMulti(AQuery,True,N));
  74132. end;
  74133. { --------------------------------------------------------------------
  74134. TSPAppContextSitesEntitySet
  74135. --------------------------------------------------------------------}
  74136. Class Function TSPAppContextSitesEntitySet.ObjectRestKind : String;
  74137. begin
  74138. Result:='AppContextSites';
  74139. end;
  74140. Class Function TSPAppContextSitesEntitySet.EntityClass : TODataEntityClass;
  74141. begin
  74142. Result:=TSPAppContextSite;
  74143. end;
  74144. Function TSPAppContextSitesEntitySet.Get(const Id4a81de82eeb94d6080ea5bf63e27023a: string) : TSPAppContextSite;
  74145. begin
  74146. Result:=TSPAppContextSite(GetSingle(TODataObject.MakeKeyString(Id4a81de82eeb94d6080ea5bf63e27023a)));
  74147. end;
  74148. Function TSPAppContextSitesEntitySet.List(const AQuery: String; out NextLink: String) : TSPAppContextSiteArray;
  74149. begin
  74150. Result:=TSPAppContextSiteArray(GetMulti(AQuery,False,NextLink));
  74151. end;
  74152. Function TSPAppContextSitesEntitySet.List(const AQuery: TQueryParams; out NextLink: String) : TSPAppContextSiteArray;
  74153. begin
  74154. Result:=TSPAppContextSiteArray(GetMulti(AQuery,False,NextLink));
  74155. end;
  74156. Function TSPAppContextSitesEntitySet.ListAll(const AQuery: String) : TSPAppContextSiteArray;
  74157. var N : String;
  74158. begin
  74159. Result:=TSPAppContextSiteArray(GetMulti(AQuery,True,N));
  74160. end;
  74161. Function TSPAppContextSitesEntitySet.ListAll(const AQuery: TQueryParams) : TSPAppContextSiteArray;
  74162. var N : String;
  74163. begin
  74164. Result:=TSPAppContextSiteArray(GetMulti(AQuery,True,N));
  74165. end;
  74166. { --------------------------------------------------------------------
  74167. TSPAppInstancesEntitySet
  74168. --------------------------------------------------------------------}
  74169. Class Function TSPAppInstancesEntitySet.ObjectRestKind : String;
  74170. begin
  74171. Result:='AppInstances';
  74172. end;
  74173. Class Function TSPAppInstancesEntitySet.EntityClass : TODataEntityClass;
  74174. begin
  74175. Result:=TSPAppInstance;
  74176. end;
  74177. Function TSPAppInstancesEntitySet.Get(const Id: TGUIDString) : TSPAppInstance;
  74178. begin
  74179. Result:=TSPAppInstance(GetSingle(TODataObject.MakeKeyString(Id)));
  74180. end;
  74181. Function TSPAppInstancesEntitySet.List(const AQuery: String; out NextLink: String) : TSPAppInstanceArray;
  74182. begin
  74183. Result:=TSPAppInstanceArray(GetMulti(AQuery,False,NextLink));
  74184. end;
  74185. Function TSPAppInstancesEntitySet.List(const AQuery: TQueryParams; out NextLink: String) : TSPAppInstanceArray;
  74186. begin
  74187. Result:=TSPAppInstanceArray(GetMulti(AQuery,False,NextLink));
  74188. end;
  74189. Function TSPAppInstancesEntitySet.ListAll(const AQuery: String) : TSPAppInstanceArray;
  74190. var N : String;
  74191. begin
  74192. Result:=TSPAppInstanceArray(GetMulti(AQuery,True,N));
  74193. end;
  74194. Function TSPAppInstancesEntitySet.ListAll(const AQuery: TQueryParams) : TSPAppInstanceArray;
  74195. var N : String;
  74196. begin
  74197. Result:=TSPAppInstanceArray(GetMulti(AQuery,True,N));
  74198. end;
  74199. { --------------------------------------------------------------------
  74200. TSPAppInstanceErrorDetailssEntitySet
  74201. --------------------------------------------------------------------}
  74202. Class Function TSPAppInstanceErrorDetailssEntitySet.ObjectRestKind : String;
  74203. begin
  74204. Result:='AppInstanceErrorDetailss';
  74205. end;
  74206. Class Function TSPAppInstanceErrorDetailssEntitySet.EntityClass : TODataEntityClass;
  74207. begin
  74208. Result:=TSPAppInstanceErrorDetails;
  74209. end;
  74210. Function TSPAppInstanceErrorDetailssEntitySet.Get(const CorrelationId: TGUIDString) : TSPAppInstanceErrorDetails;
  74211. begin
  74212. Result:=TSPAppInstanceErrorDetails(GetSingle(TODataObject.MakeKeyString(CorrelationId)));
  74213. end;
  74214. Function TSPAppInstanceErrorDetailssEntitySet.List(const AQuery: String; out NextLink: String) : TSPAppInstanceErrorDetailsArray;
  74215. begin
  74216. Result:=TSPAppInstanceErrorDetailsArray(GetMulti(AQuery,False,NextLink));
  74217. end;
  74218. Function TSPAppInstanceErrorDetailssEntitySet.List(const AQuery: TQueryParams; out NextLink: String) : TSPAppInstanceErrorDetailsArray;
  74219. begin
  74220. Result:=TSPAppInstanceErrorDetailsArray(GetMulti(AQuery,False,NextLink));
  74221. end;
  74222. Function TSPAppInstanceErrorDetailssEntitySet.ListAll(const AQuery: String) : TSPAppInstanceErrorDetailsArray;
  74223. var N : String;
  74224. begin
  74225. Result:=TSPAppInstanceErrorDetailsArray(GetMulti(AQuery,True,N));
  74226. end;
  74227. Function TSPAppInstanceErrorDetailssEntitySet.ListAll(const AQuery: TQueryParams) : TSPAppInstanceErrorDetailsArray;
  74228. var N : String;
  74229. begin
  74230. Result:=TSPAppInstanceErrorDetailsArray(GetMulti(AQuery,True,N));
  74231. end;
  74232. { --------------------------------------------------------------------
  74233. TSPAppTilesEntitySet
  74234. --------------------------------------------------------------------}
  74235. Class Function TSPAppTilesEntitySet.ObjectRestKind : String;
  74236. begin
  74237. Result:='AppTiles';
  74238. end;
  74239. Class Function TSPAppTilesEntitySet.EntityClass : TODataEntityClass;
  74240. begin
  74241. Result:=TSPAppTile;
  74242. end;
  74243. Function TSPAppTilesEntitySet.Get(const AppType: TInt32) : TSPAppTile;
  74244. begin
  74245. Result:=TSPAppTile(GetSingle(IntToStr(AppType)));
  74246. end;
  74247. Function TSPAppTilesEntitySet.List(const AQuery: String; out NextLink: String) : TSPAppTileArray;
  74248. begin
  74249. Result:=TSPAppTileArray(GetMulti(AQuery,False,NextLink));
  74250. end;
  74251. Function TSPAppTilesEntitySet.List(const AQuery: TQueryParams; out NextLink: String) : TSPAppTileArray;
  74252. begin
  74253. Result:=TSPAppTileArray(GetMulti(AQuery,False,NextLink));
  74254. end;
  74255. Function TSPAppTilesEntitySet.ListAll(const AQuery: String) : TSPAppTileArray;
  74256. var N : String;
  74257. begin
  74258. Result:=TSPAppTileArray(GetMulti(AQuery,True,N));
  74259. end;
  74260. Function TSPAppTilesEntitySet.ListAll(const AQuery: TQueryParams) : TSPAppTileArray;
  74261. var N : String;
  74262. begin
  74263. Result:=TSPAppTileArray(GetMulti(AQuery,True,N));
  74264. end;
  74265. { --------------------------------------------------------------------
  74266. TSPAttachmentsEntitySet
  74267. --------------------------------------------------------------------}
  74268. Class Function TSPAttachmentsEntitySet.ObjectRestKind : String;
  74269. begin
  74270. Result:='Attachments';
  74271. end;
  74272. Class Function TSPAttachmentsEntitySet.EntityClass : TODataEntityClass;
  74273. begin
  74274. Result:=TSPAttachment;
  74275. end;
  74276. Function TSPAttachmentsEntitySet.Get(const FileName: string) : TSPAttachment;
  74277. begin
  74278. Result:=TSPAttachment(GetSingle(TODataObject.MakeKeyString(FileName)));
  74279. end;
  74280. Function TSPAttachmentsEntitySet.List(const AQuery: String; out NextLink: String) : TSPAttachmentArray;
  74281. begin
  74282. Result:=TSPAttachmentArray(GetMulti(AQuery,False,NextLink));
  74283. end;
  74284. Function TSPAttachmentsEntitySet.List(const AQuery: TQueryParams; out NextLink: String) : TSPAttachmentArray;
  74285. begin
  74286. Result:=TSPAttachmentArray(GetMulti(AQuery,False,NextLink));
  74287. end;
  74288. Function TSPAttachmentsEntitySet.ListAll(const AQuery: String) : TSPAttachmentArray;
  74289. var N : String;
  74290. begin
  74291. Result:=TSPAttachmentArray(GetMulti(AQuery,True,N));
  74292. end;
  74293. Function TSPAttachmentsEntitySet.ListAll(const AQuery: TQueryParams) : TSPAttachmentArray;
  74294. var N : String;
  74295. begin
  74296. Result:=TSPAttachmentArray(GetMulti(AQuery,True,N));
  74297. end;
  74298. { --------------------------------------------------------------------
  74299. TSPAuditsEntitySet
  74300. --------------------------------------------------------------------}
  74301. Class Function TSPAuditsEntitySet.ObjectRestKind : String;
  74302. begin
  74303. Result:='Audits';
  74304. end;
  74305. Class Function TSPAuditsEntitySet.EntityClass : TODataEntityClass;
  74306. begin
  74307. Result:=TSPAudit;
  74308. end;
  74309. Function TSPAuditsEntitySet.Get(const AuditFlags: TInt32) : TSPAudit;
  74310. begin
  74311. Result:=TSPAudit(GetSingle(IntToStr(AuditFlags)));
  74312. end;
  74313. Function TSPAuditsEntitySet.List(const AQuery: String; out NextLink: String) : TSPAuditArray;
  74314. begin
  74315. Result:=TSPAuditArray(GetMulti(AQuery,False,NextLink));
  74316. end;
  74317. Function TSPAuditsEntitySet.List(const AQuery: TQueryParams; out NextLink: String) : TSPAuditArray;
  74318. begin
  74319. Result:=TSPAuditArray(GetMulti(AQuery,False,NextLink));
  74320. end;
  74321. Function TSPAuditsEntitySet.ListAll(const AQuery: String) : TSPAuditArray;
  74322. var N : String;
  74323. begin
  74324. Result:=TSPAuditArray(GetMulti(AQuery,True,N));
  74325. end;
  74326. Function TSPAuditsEntitySet.ListAll(const AQuery: TQueryParams) : TSPAuditArray;
  74327. var N : String;
  74328. begin
  74329. Result:=TSPAuditArray(GetMulti(AQuery,True,N));
  74330. end;
  74331. { --------------------------------------------------------------------
  74332. TSPAppBdcCatalogsEntitySet
  74333. --------------------------------------------------------------------}
  74334. Class Function TSPAppBdcCatalogsEntitySet.ObjectRestKind : String;
  74335. begin
  74336. Result:='AppBdcCatalogs';
  74337. end;
  74338. Class Function TSPAppBdcCatalogsEntitySet.EntityClass : TODataEntityClass;
  74339. begin
  74340. Result:=TSP_BusinessDataAppBdcCatalog;
  74341. end;
  74342. Function TSPAppBdcCatalogsEntitySet.Get(const Id4a81de82eeb94d6080ea5bf63e27023a: string) : TSP_BusinessDataAppBdcCatalog;
  74343. begin
  74344. Result:=TSP_BusinessDataAppBdcCatalog(GetSingle(TODataObject.MakeKeyString(Id4a81de82eeb94d6080ea5bf63e27023a)));
  74345. end;
  74346. Function TSPAppBdcCatalogsEntitySet.List(const AQuery: String; out NextLink: String) : TSP_BusinessDataAppBdcCatalogArray;
  74347. begin
  74348. Result:=TSP_BusinessDataAppBdcCatalogArray(GetMulti(AQuery,False,NextLink));
  74349. end;
  74350. Function TSPAppBdcCatalogsEntitySet.List(const AQuery: TQueryParams; out NextLink: String) : TSP_BusinessDataAppBdcCatalogArray;
  74351. begin
  74352. Result:=TSP_BusinessDataAppBdcCatalogArray(GetMulti(AQuery,False,NextLink));
  74353. end;
  74354. Function TSPAppBdcCatalogsEntitySet.ListAll(const AQuery: String) : TSP_BusinessDataAppBdcCatalogArray;
  74355. var N : String;
  74356. begin
  74357. Result:=TSP_BusinessDataAppBdcCatalogArray(GetMulti(AQuery,True,N));
  74358. end;
  74359. Function TSPAppBdcCatalogsEntitySet.ListAll(const AQuery: TQueryParams) : TSP_BusinessDataAppBdcCatalogArray;
  74360. var N : String;
  74361. begin
  74362. Result:=TSP_BusinessDataAppBdcCatalogArray(GetMulti(AQuery,True,N));
  74363. end;
  74364. { --------------------------------------------------------------------
  74365. TSPEntitysEntitySet
  74366. --------------------------------------------------------------------}
  74367. Class Function TSPEntitysEntitySet.ObjectRestKind : String;
  74368. begin
  74369. Result:='Entitys';
  74370. end;
  74371. Class Function TSPEntitysEntitySet.EntityClass : TODataEntityClass;
  74372. begin
  74373. Result:=TSP_BusinessDataEntity;
  74374. end;
  74375. Function TSPEntitysEntitySet.Get(const _Name: string) : TSP_BusinessDataEntity;
  74376. begin
  74377. Result:=TSP_BusinessDataEntity(GetSingle(TODataObject.MakeKeyString(_Name)));
  74378. end;
  74379. Function TSPEntitysEntitySet.List(const AQuery: String; out NextLink: String) : TSP_BusinessDataEntityArray;
  74380. begin
  74381. Result:=TSP_BusinessDataEntityArray(GetMulti(AQuery,False,NextLink));
  74382. end;
  74383. Function TSPEntitysEntitySet.List(const AQuery: TQueryParams; out NextLink: String) : TSP_BusinessDataEntityArray;
  74384. begin
  74385. Result:=TSP_BusinessDataEntityArray(GetMulti(AQuery,False,NextLink));
  74386. end;
  74387. Function TSPEntitysEntitySet.ListAll(const AQuery: String) : TSP_BusinessDataEntityArray;
  74388. var N : String;
  74389. begin
  74390. Result:=TSP_BusinessDataEntityArray(GetMulti(AQuery,True,N));
  74391. end;
  74392. Function TSPEntitysEntitySet.ListAll(const AQuery: TQueryParams) : TSP_BusinessDataEntityArray;
  74393. var N : String;
  74394. begin
  74395. Result:=TSP_BusinessDataEntityArray(GetMulti(AQuery,True,N));
  74396. end;
  74397. { --------------------------------------------------------------------
  74398. TSPEntityFieldsEntitySet
  74399. --------------------------------------------------------------------}
  74400. Class Function TSPEntityFieldsEntitySet.ObjectRestKind : String;
  74401. begin
  74402. Result:='EntityFields';
  74403. end;
  74404. Class Function TSPEntityFieldsEntitySet.EntityClass : TODataEntityClass;
  74405. begin
  74406. Result:=TSP_BusinessDataEntityField;
  74407. end;
  74408. Function TSPEntityFieldsEntitySet.Get(const _Name: string) : TSP_BusinessDataEntityField;
  74409. begin
  74410. Result:=TSP_BusinessDataEntityField(GetSingle(TODataObject.MakeKeyString(_Name)));
  74411. end;
  74412. Function TSPEntityFieldsEntitySet.List(const AQuery: String; out NextLink: String) : TSP_BusinessDataEntityFieldArray;
  74413. begin
  74414. Result:=TSP_BusinessDataEntityFieldArray(GetMulti(AQuery,False,NextLink));
  74415. end;
  74416. Function TSPEntityFieldsEntitySet.List(const AQuery: TQueryParams; out NextLink: String) : TSP_BusinessDataEntityFieldArray;
  74417. begin
  74418. Result:=TSP_BusinessDataEntityFieldArray(GetMulti(AQuery,False,NextLink));
  74419. end;
  74420. Function TSPEntityFieldsEntitySet.ListAll(const AQuery: String) : TSP_BusinessDataEntityFieldArray;
  74421. var N : String;
  74422. begin
  74423. Result:=TSP_BusinessDataEntityFieldArray(GetMulti(AQuery,True,N));
  74424. end;
  74425. Function TSPEntityFieldsEntitySet.ListAll(const AQuery: TQueryParams) : TSP_BusinessDataEntityFieldArray;
  74426. var N : String;
  74427. begin
  74428. Result:=TSP_BusinessDataEntityFieldArray(GetMulti(AQuery,True,N));
  74429. end;
  74430. { --------------------------------------------------------------------
  74431. TSPEntityIdentifiersEntitySet
  74432. --------------------------------------------------------------------}
  74433. Class Function TSPEntityIdentifiersEntitySet.ObjectRestKind : String;
  74434. begin
  74435. Result:='EntityIdentifiers';
  74436. end;
  74437. Class Function TSPEntityIdentifiersEntitySet.EntityClass : TODataEntityClass;
  74438. begin
  74439. Result:=TSP_BusinessDataEntityIdentifier;
  74440. end;
  74441. Function TSPEntityIdentifiersEntitySet.Get(const _Name: string) : TSP_BusinessDataEntityIdentifier;
  74442. begin
  74443. Result:=TSP_BusinessDataEntityIdentifier(GetSingle(TODataObject.MakeKeyString(_Name)));
  74444. end;
  74445. Function TSPEntityIdentifiersEntitySet.List(const AQuery: String; out NextLink: String) : TSP_BusinessDataEntityIdentifierArray;
  74446. begin
  74447. Result:=TSP_BusinessDataEntityIdentifierArray(GetMulti(AQuery,False,NextLink));
  74448. end;
  74449. Function TSPEntityIdentifiersEntitySet.List(const AQuery: TQueryParams; out NextLink: String) : TSP_BusinessDataEntityIdentifierArray;
  74450. begin
  74451. Result:=TSP_BusinessDataEntityIdentifierArray(GetMulti(AQuery,False,NextLink));
  74452. end;
  74453. Function TSPEntityIdentifiersEntitySet.ListAll(const AQuery: String) : TSP_BusinessDataEntityIdentifierArray;
  74454. var N : String;
  74455. begin
  74456. Result:=TSP_BusinessDataEntityIdentifierArray(GetMulti(AQuery,True,N));
  74457. end;
  74458. Function TSPEntityIdentifiersEntitySet.ListAll(const AQuery: TQueryParams) : TSP_BusinessDataEntityIdentifierArray;
  74459. var N : String;
  74460. begin
  74461. Result:=TSP_BusinessDataEntityIdentifierArray(GetMulti(AQuery,True,N));
  74462. end;
  74463. { --------------------------------------------------------------------
  74464. TSPEntityViewsEntitySet
  74465. --------------------------------------------------------------------}
  74466. Class Function TSPEntityViewsEntitySet.ObjectRestKind : String;
  74467. begin
  74468. Result:='EntityViews';
  74469. end;
  74470. Class Function TSPEntityViewsEntitySet.EntityClass : TODataEntityClass;
  74471. begin
  74472. Result:=TSP_BusinessDataEntityView;
  74473. end;
  74474. Function TSPEntityViewsEntitySet.Get(const _Name: string) : TSP_BusinessDataEntityView;
  74475. begin
  74476. Result:=TSP_BusinessDataEntityView(GetSingle(TODataObject.MakeKeyString(_Name)));
  74477. end;
  74478. Function TSPEntityViewsEntitySet.List(const AQuery: String; out NextLink: String) : TSP_BusinessDataEntityViewArray;
  74479. begin
  74480. Result:=TSP_BusinessDataEntityViewArray(GetMulti(AQuery,False,NextLink));
  74481. end;
  74482. Function TSPEntityViewsEntitySet.List(const AQuery: TQueryParams; out NextLink: String) : TSP_BusinessDataEntityViewArray;
  74483. begin
  74484. Result:=TSP_BusinessDataEntityViewArray(GetMulti(AQuery,False,NextLink));
  74485. end;
  74486. Function TSPEntityViewsEntitySet.ListAll(const AQuery: String) : TSP_BusinessDataEntityViewArray;
  74487. var N : String;
  74488. begin
  74489. Result:=TSP_BusinessDataEntityViewArray(GetMulti(AQuery,True,N));
  74490. end;
  74491. Function TSPEntityViewsEntitySet.ListAll(const AQuery: TQueryParams) : TSP_BusinessDataEntityViewArray;
  74492. var N : String;
  74493. begin
  74494. Result:=TSP_BusinessDataEntityViewArray(GetMulti(AQuery,True,N));
  74495. end;
  74496. { --------------------------------------------------------------------
  74497. TSPFiltersEntitySet
  74498. --------------------------------------------------------------------}
  74499. Class Function TSPFiltersEntitySet.ObjectRestKind : String;
  74500. begin
  74501. Result:='Filters';
  74502. end;
  74503. Class Function TSPFiltersEntitySet.EntityClass : TODataEntityClass;
  74504. begin
  74505. Result:=TSP_BusinessDataFilter;
  74506. end;
  74507. Function TSPFiltersEntitySet.Get(const _Name: string) : TSP_BusinessDataFilter;
  74508. begin
  74509. Result:=TSP_BusinessDataFilter(GetSingle(TODataObject.MakeKeyString(_Name)));
  74510. end;
  74511. Function TSPFiltersEntitySet.List(const AQuery: String; out NextLink: String) : TSP_BusinessDataFilterArray;
  74512. begin
  74513. Result:=TSP_BusinessDataFilterArray(GetMulti(AQuery,False,NextLink));
  74514. end;
  74515. Function TSPFiltersEntitySet.List(const AQuery: TQueryParams; out NextLink: String) : TSP_BusinessDataFilterArray;
  74516. begin
  74517. Result:=TSP_BusinessDataFilterArray(GetMulti(AQuery,False,NextLink));
  74518. end;
  74519. Function TSPFiltersEntitySet.ListAll(const AQuery: String) : TSP_BusinessDataFilterArray;
  74520. var N : String;
  74521. begin
  74522. Result:=TSP_BusinessDataFilterArray(GetMulti(AQuery,True,N));
  74523. end;
  74524. Function TSPFiltersEntitySet.ListAll(const AQuery: TQueryParams) : TSP_BusinessDataFilterArray;
  74525. var N : String;
  74526. begin
  74527. Result:=TSP_BusinessDataFilterArray(GetMulti(AQuery,True,N));
  74528. end;
  74529. { --------------------------------------------------------------------
  74530. TSPExternalSubscriptionStoresEntitySet
  74531. --------------------------------------------------------------------}
  74532. Class Function TSPExternalSubscriptionStoresEntitySet.ObjectRestKind : String;
  74533. begin
  74534. Result:='ExternalSubscriptionStores';
  74535. end;
  74536. Class Function TSPExternalSubscriptionStoresEntitySet.EntityClass : TODataEntityClass;
  74537. begin
  74538. Result:=TSP_BusinessData_InfrastructureExternalSubscriptionStore;
  74539. end;
  74540. Function TSPExternalSubscriptionStoresEntitySet.Get(const Id4a81de82eeb94d6080ea5bf63e27023a: string) : TSP_BusinessData_InfrastructureExternalSubscriptionStore;
  74541. begin
  74542. Result:=TSP_BusinessData_InfrastructureExternalSubscriptionStore(GetSingle(TODataObject.MakeKeyString(Id4a81de82eeb94d6080ea5bf63e27023a)));
  74543. end;
  74544. Function TSPExternalSubscriptionStoresEntitySet.List(const AQuery: String; out NextLink: String) : TSP_BusinessData_InfrastructureExternalSubscriptionStoreArray;
  74545. begin
  74546. Result:=TSP_BusinessData_InfrastructureExternalSubscriptionStoreArray(GetMulti(AQuery,False,NextLink));
  74547. end;
  74548. Function TSPExternalSubscriptionStoresEntitySet.List(const AQuery: TQueryParams; out NextLink: String) : TSP_BusinessData_InfrastructureExternalSubscriptionStoreArray;
  74549. begin
  74550. Result:=TSP_BusinessData_InfrastructureExternalSubscriptionStoreArray(GetMulti(AQuery,False,NextLink));
  74551. end;
  74552. Function TSPExternalSubscriptionStoresEntitySet.ListAll(const AQuery: String) : TSP_BusinessData_InfrastructureExternalSubscriptionStoreArray;
  74553. var N : String;
  74554. begin
  74555. Result:=TSP_BusinessData_InfrastructureExternalSubscriptionStoreArray(GetMulti(AQuery,True,N));
  74556. end;
  74557. Function TSPExternalSubscriptionStoresEntitySet.ListAll(const AQuery: TQueryParams) : TSP_BusinessData_InfrastructureExternalSubscriptionStoreArray;
  74558. var N : String;
  74559. begin
  74560. Result:=TSP_BusinessData_InfrastructureExternalSubscriptionStoreArray(GetMulti(AQuery,True,N));
  74561. end;
  74562. { --------------------------------------------------------------------
  74563. TSPLobSystemsEntitySet
  74564. --------------------------------------------------------------------}
  74565. Class Function TSPLobSystemsEntitySet.ObjectRestKind : String;
  74566. begin
  74567. Result:='LobSystems';
  74568. end;
  74569. Class Function TSPLobSystemsEntitySet.EntityClass : TODataEntityClass;
  74570. begin
  74571. Result:=TSP_BusinessDataLobSystem;
  74572. end;
  74573. Function TSPLobSystemsEntitySet.Get(const _Name: string) : TSP_BusinessDataLobSystem;
  74574. begin
  74575. Result:=TSP_BusinessDataLobSystem(GetSingle(TODataObject.MakeKeyString(_Name)));
  74576. end;
  74577. Function TSPLobSystemsEntitySet.List(const AQuery: String; out NextLink: String) : TSP_BusinessDataLobSystemArray;
  74578. begin
  74579. Result:=TSP_BusinessDataLobSystemArray(GetMulti(AQuery,False,NextLink));
  74580. end;
  74581. Function TSPLobSystemsEntitySet.List(const AQuery: TQueryParams; out NextLink: String) : TSP_BusinessDataLobSystemArray;
  74582. begin
  74583. Result:=TSP_BusinessDataLobSystemArray(GetMulti(AQuery,False,NextLink));
  74584. end;
  74585. Function TSPLobSystemsEntitySet.ListAll(const AQuery: String) : TSP_BusinessDataLobSystemArray;
  74586. var N : String;
  74587. begin
  74588. Result:=TSP_BusinessDataLobSystemArray(GetMulti(AQuery,True,N));
  74589. end;
  74590. Function TSPLobSystemsEntitySet.ListAll(const AQuery: TQueryParams) : TSP_BusinessDataLobSystemArray;
  74591. var N : String;
  74592. begin
  74593. Result:=TSP_BusinessDataLobSystemArray(GetMulti(AQuery,True,N));
  74594. end;
  74595. { --------------------------------------------------------------------
  74596. TSPLobSystemInstancesEntitySet
  74597. --------------------------------------------------------------------}
  74598. Class Function TSPLobSystemInstancesEntitySet.ObjectRestKind : String;
  74599. begin
  74600. Result:='LobSystemInstances';
  74601. end;
  74602. Class Function TSPLobSystemInstancesEntitySet.EntityClass : TODataEntityClass;
  74603. begin
  74604. Result:=TSP_BusinessDataLobSystemInstance;
  74605. end;
  74606. Function TSPLobSystemInstancesEntitySet.Get(const _Name: string) : TSP_BusinessDataLobSystemInstance;
  74607. begin
  74608. Result:=TSP_BusinessDataLobSystemInstance(GetSingle(TODataObject.MakeKeyString(_Name)));
  74609. end;
  74610. Function TSPLobSystemInstancesEntitySet.List(const AQuery: String; out NextLink: String) : TSP_BusinessDataLobSystemInstanceArray;
  74611. begin
  74612. Result:=TSP_BusinessDataLobSystemInstanceArray(GetMulti(AQuery,False,NextLink));
  74613. end;
  74614. Function TSPLobSystemInstancesEntitySet.List(const AQuery: TQueryParams; out NextLink: String) : TSP_BusinessDataLobSystemInstanceArray;
  74615. begin
  74616. Result:=TSP_BusinessDataLobSystemInstanceArray(GetMulti(AQuery,False,NextLink));
  74617. end;
  74618. Function TSPLobSystemInstancesEntitySet.ListAll(const AQuery: String) : TSP_BusinessDataLobSystemInstanceArray;
  74619. var N : String;
  74620. begin
  74621. Result:=TSP_BusinessDataLobSystemInstanceArray(GetMulti(AQuery,True,N));
  74622. end;
  74623. Function TSPLobSystemInstancesEntitySet.ListAll(const AQuery: TQueryParams) : TSP_BusinessDataLobSystemInstanceArray;
  74624. var N : String;
  74625. begin
  74626. Result:=TSP_BusinessDataLobSystemInstanceArray(GetMulti(AQuery,True,N));
  74627. end;
  74628. { --------------------------------------------------------------------
  74629. TSPMethodExecutionResultsEntitySet
  74630. --------------------------------------------------------------------}
  74631. Class Function TSPMethodExecutionResultsEntitySet.ObjectRestKind : String;
  74632. begin
  74633. Result:='MethodExecutionResults';
  74634. end;
  74635. Class Function TSPMethodExecutionResultsEntitySet.EntityClass : TODataEntityClass;
  74636. begin
  74637. Result:=TSP_BusinessDataMethodExecutionResult;
  74638. end;
  74639. Function TSPMethodExecutionResultsEntitySet.Get(const Id4a81de82eeb94d6080ea5bf63e27023a: string) : TSP_BusinessDataMethodExecutionResult;
  74640. begin
  74641. Result:=TSP_BusinessDataMethodExecutionResult(GetSingle(TODataObject.MakeKeyString(Id4a81de82eeb94d6080ea5bf63e27023a)));
  74642. end;
  74643. Function TSPMethodExecutionResultsEntitySet.List(const AQuery: String; out NextLink: String) : TSP_BusinessDataMethodExecutionResultArray;
  74644. begin
  74645. Result:=TSP_BusinessDataMethodExecutionResultArray(GetMulti(AQuery,False,NextLink));
  74646. end;
  74647. Function TSPMethodExecutionResultsEntitySet.List(const AQuery: TQueryParams; out NextLink: String) : TSP_BusinessDataMethodExecutionResultArray;
  74648. begin
  74649. Result:=TSP_BusinessDataMethodExecutionResultArray(GetMulti(AQuery,False,NextLink));
  74650. end;
  74651. Function TSPMethodExecutionResultsEntitySet.ListAll(const AQuery: String) : TSP_BusinessDataMethodExecutionResultArray;
  74652. var N : String;
  74653. begin
  74654. Result:=TSP_BusinessDataMethodExecutionResultArray(GetMulti(AQuery,True,N));
  74655. end;
  74656. Function TSPMethodExecutionResultsEntitySet.ListAll(const AQuery: TQueryParams) : TSP_BusinessDataMethodExecutionResultArray;
  74657. var N : String;
  74658. begin
  74659. Result:=TSP_BusinessDataMethodExecutionResultArray(GetMulti(AQuery,True,N));
  74660. end;
  74661. { --------------------------------------------------------------------
  74662. TSPEntityFieldValueDictionarysEntitySet
  74663. --------------------------------------------------------------------}
  74664. Class Function TSPEntityFieldValueDictionarysEntitySet.ObjectRestKind : String;
  74665. begin
  74666. Result:='EntityFieldValueDictionarys';
  74667. end;
  74668. Class Function TSPEntityFieldValueDictionarysEntitySet.EntityClass : TODataEntityClass;
  74669. begin
  74670. Result:=TSP_BusinessData_RuntimeEntityFieldValueDictionary;
  74671. end;
  74672. Function TSPEntityFieldValueDictionarysEntitySet.Get(const Id4a81de82eeb94d6080ea5bf63e27023a: string) : TSP_BusinessData_RuntimeEntityFieldValueDictionary;
  74673. begin
  74674. Result:=TSP_BusinessData_RuntimeEntityFieldValueDictionary(GetSingle(TODataObject.MakeKeyString(Id4a81de82eeb94d6080ea5bf63e27023a)));
  74675. end;
  74676. Function TSPEntityFieldValueDictionarysEntitySet.List(const AQuery: String; out NextLink: String) : TSP_BusinessData_RuntimeEntityFieldValueDictionaryArray;
  74677. begin
  74678. Result:=TSP_BusinessData_RuntimeEntityFieldValueDictionaryArray(GetMulti(AQuery,False,NextLink));
  74679. end;
  74680. Function TSPEntityFieldValueDictionarysEntitySet.List(const AQuery: TQueryParams; out NextLink: String) : TSP_BusinessData_RuntimeEntityFieldValueDictionaryArray;
  74681. begin
  74682. Result:=TSP_BusinessData_RuntimeEntityFieldValueDictionaryArray(GetMulti(AQuery,False,NextLink));
  74683. end;
  74684. Function TSPEntityFieldValueDictionarysEntitySet.ListAll(const AQuery: String) : TSP_BusinessData_RuntimeEntityFieldValueDictionaryArray;
  74685. var N : String;
  74686. begin
  74687. Result:=TSP_BusinessData_RuntimeEntityFieldValueDictionaryArray(GetMulti(AQuery,True,N));
  74688. end;
  74689. Function TSPEntityFieldValueDictionarysEntitySet.ListAll(const AQuery: TQueryParams) : TSP_BusinessData_RuntimeEntityFieldValueDictionaryArray;
  74690. var N : String;
  74691. begin
  74692. Result:=TSP_BusinessData_RuntimeEntityFieldValueDictionaryArray(GetMulti(AQuery,True,N));
  74693. end;
  74694. { --------------------------------------------------------------------
  74695. TSPEntityIdentitysEntitySet
  74696. --------------------------------------------------------------------}
  74697. Class Function TSPEntityIdentitysEntitySet.ObjectRestKind : String;
  74698. begin
  74699. Result:='EntityIdentitys';
  74700. end;
  74701. Class Function TSPEntityIdentitysEntitySet.EntityClass : TODataEntityClass;
  74702. begin
  74703. Result:=TSP_BusinessData_RuntimeEntityIdentity;
  74704. end;
  74705. Function TSPEntityIdentitysEntitySet.Get(const IdentifierCount: TInt32) : TSP_BusinessData_RuntimeEntityIdentity;
  74706. begin
  74707. Result:=TSP_BusinessData_RuntimeEntityIdentity(GetSingle(IntToStr(IdentifierCount)));
  74708. end;
  74709. Function TSPEntityIdentitysEntitySet.List(const AQuery: String; out NextLink: String) : TSP_BusinessData_RuntimeEntityIdentityArray;
  74710. begin
  74711. Result:=TSP_BusinessData_RuntimeEntityIdentityArray(GetMulti(AQuery,False,NextLink));
  74712. end;
  74713. Function TSPEntityIdentitysEntitySet.List(const AQuery: TQueryParams; out NextLink: String) : TSP_BusinessData_RuntimeEntityIdentityArray;
  74714. begin
  74715. Result:=TSP_BusinessData_RuntimeEntityIdentityArray(GetMulti(AQuery,False,NextLink));
  74716. end;
  74717. Function TSPEntityIdentitysEntitySet.ListAll(const AQuery: String) : TSP_BusinessData_RuntimeEntityIdentityArray;
  74718. var N : String;
  74719. begin
  74720. Result:=TSP_BusinessData_RuntimeEntityIdentityArray(GetMulti(AQuery,True,N));
  74721. end;
  74722. Function TSPEntityIdentitysEntitySet.ListAll(const AQuery: TQueryParams) : TSP_BusinessData_RuntimeEntityIdentityArray;
  74723. var N : String;
  74724. begin
  74725. Result:=TSP_BusinessData_RuntimeEntityIdentityArray(GetMulti(AQuery,True,N));
  74726. end;
  74727. { --------------------------------------------------------------------
  74728. TSPEntityInstancesEntitySet
  74729. --------------------------------------------------------------------}
  74730. Class Function TSPEntityInstancesEntitySet.ObjectRestKind : String;
  74731. begin
  74732. Result:='EntityInstances';
  74733. end;
  74734. Class Function TSPEntityInstancesEntitySet.EntityClass : TODataEntityClass;
  74735. begin
  74736. Result:=TSP_BusinessData_RuntimeEntityInstance;
  74737. end;
  74738. Function TSPEntityInstancesEntitySet.Get(const Id4a81de82eeb94d6080ea5bf63e27023a: string) : TSP_BusinessData_RuntimeEntityInstance;
  74739. begin
  74740. Result:=TSP_BusinessData_RuntimeEntityInstance(GetSingle(TODataObject.MakeKeyString(Id4a81de82eeb94d6080ea5bf63e27023a)));
  74741. end;
  74742. Function TSPEntityInstancesEntitySet.List(const AQuery: String; out NextLink: String) : TSP_BusinessData_RuntimeEntityInstanceArray;
  74743. begin
  74744. Result:=TSP_BusinessData_RuntimeEntityInstanceArray(GetMulti(AQuery,False,NextLink));
  74745. end;
  74746. Function TSPEntityInstancesEntitySet.List(const AQuery: TQueryParams; out NextLink: String) : TSP_BusinessData_RuntimeEntityInstanceArray;
  74747. begin
  74748. Result:=TSP_BusinessData_RuntimeEntityInstanceArray(GetMulti(AQuery,False,NextLink));
  74749. end;
  74750. Function TSPEntityInstancesEntitySet.ListAll(const AQuery: String) : TSP_BusinessData_RuntimeEntityInstanceArray;
  74751. var N : String;
  74752. begin
  74753. Result:=TSP_BusinessData_RuntimeEntityInstanceArray(GetMulti(AQuery,True,N));
  74754. end;
  74755. Function TSPEntityInstancesEntitySet.ListAll(const AQuery: TQueryParams) : TSP_BusinessData_RuntimeEntityInstanceArray;
  74756. var N : String;
  74757. begin
  74758. Result:=TSP_BusinessData_RuntimeEntityInstanceArray(GetMulti(AQuery,True,N));
  74759. end;
  74760. { --------------------------------------------------------------------
  74761. TSPNotificationCallbacksEntitySet
  74762. --------------------------------------------------------------------}
  74763. Class Function TSPNotificationCallbacksEntitySet.ObjectRestKind : String;
  74764. begin
  74765. Result:='NotificationCallbacks';
  74766. end;
  74767. Class Function TSPNotificationCallbacksEntitySet.EntityClass : TODataEntityClass;
  74768. begin
  74769. Result:=TSP_BusinessData_RuntimeNotificationCallback;
  74770. end;
  74771. Function TSPNotificationCallbacksEntitySet.Get(const NotificationContext: string) : TSP_BusinessData_RuntimeNotificationCallback;
  74772. begin
  74773. Result:=TSP_BusinessData_RuntimeNotificationCallback(GetSingle(TODataObject.MakeKeyString(NotificationContext)));
  74774. end;
  74775. Function TSPNotificationCallbacksEntitySet.List(const AQuery: String; out NextLink: String) : TSP_BusinessData_RuntimeNotificationCallbackArray;
  74776. begin
  74777. Result:=TSP_BusinessData_RuntimeNotificationCallbackArray(GetMulti(AQuery,False,NextLink));
  74778. end;
  74779. Function TSPNotificationCallbacksEntitySet.List(const AQuery: TQueryParams; out NextLink: String) : TSP_BusinessData_RuntimeNotificationCallbackArray;
  74780. begin
  74781. Result:=TSP_BusinessData_RuntimeNotificationCallbackArray(GetMulti(AQuery,False,NextLink));
  74782. end;
  74783. Function TSPNotificationCallbacksEntitySet.ListAll(const AQuery: String) : TSP_BusinessData_RuntimeNotificationCallbackArray;
  74784. var N : String;
  74785. begin
  74786. Result:=TSP_BusinessData_RuntimeNotificationCallbackArray(GetMulti(AQuery,True,N));
  74787. end;
  74788. Function TSPNotificationCallbacksEntitySet.ListAll(const AQuery: TQueryParams) : TSP_BusinessData_RuntimeNotificationCallbackArray;
  74789. var N : String;
  74790. begin
  74791. Result:=TSP_BusinessData_RuntimeNotificationCallbackArray(GetMulti(AQuery,True,N));
  74792. end;
  74793. { --------------------------------------------------------------------
  74794. TSPSubscriptionsEntitySet
  74795. --------------------------------------------------------------------}
  74796. Class Function TSPSubscriptionsEntitySet.ObjectRestKind : String;
  74797. begin
  74798. Result:='Subscriptions';
  74799. end;
  74800. Class Function TSPSubscriptionsEntitySet.EntityClass : TODataEntityClass;
  74801. begin
  74802. Result:=TSP_BusinessData_RuntimeSubscription;
  74803. end;
  74804. Function TSPSubscriptionsEntitySet.Get(const Hash: string) : TSP_BusinessData_RuntimeSubscription;
  74805. begin
  74806. Result:=TSP_BusinessData_RuntimeSubscription(GetSingle(TODataObject.MakeKeyString(Hash)));
  74807. end;
  74808. Function TSPSubscriptionsEntitySet.List(const AQuery: String; out NextLink: String) : TSP_BusinessData_RuntimeSubscriptionArray;
  74809. begin
  74810. Result:=TSP_BusinessData_RuntimeSubscriptionArray(GetMulti(AQuery,False,NextLink));
  74811. end;
  74812. Function TSPSubscriptionsEntitySet.List(const AQuery: TQueryParams; out NextLink: String) : TSP_BusinessData_RuntimeSubscriptionArray;
  74813. begin
  74814. Result:=TSP_BusinessData_RuntimeSubscriptionArray(GetMulti(AQuery,False,NextLink));
  74815. end;
  74816. Function TSPSubscriptionsEntitySet.ListAll(const AQuery: String) : TSP_BusinessData_RuntimeSubscriptionArray;
  74817. var N : String;
  74818. begin
  74819. Result:=TSP_BusinessData_RuntimeSubscriptionArray(GetMulti(AQuery,True,N));
  74820. end;
  74821. Function TSPSubscriptionsEntitySet.ListAll(const AQuery: TQueryParams) : TSP_BusinessData_RuntimeSubscriptionArray;
  74822. var N : String;
  74823. begin
  74824. Result:=TSP_BusinessData_RuntimeSubscriptionArray(GetMulti(AQuery,True,N));
  74825. end;
  74826. { --------------------------------------------------------------------
  74827. TSPTypeDescriptorsEntitySet
  74828. --------------------------------------------------------------------}
  74829. Class Function TSPTypeDescriptorsEntitySet.ObjectRestKind : String;
  74830. begin
  74831. Result:='TypeDescriptors';
  74832. end;
  74833. Class Function TSPTypeDescriptorsEntitySet.EntityClass : TODataEntityClass;
  74834. begin
  74835. Result:=TSP_BusinessDataTypeDescriptor;
  74836. end;
  74837. Function TSPTypeDescriptorsEntitySet.Get(const _Name: string) : TSP_BusinessDataTypeDescriptor;
  74838. begin
  74839. Result:=TSP_BusinessDataTypeDescriptor(GetSingle(TODataObject.MakeKeyString(_Name)));
  74840. end;
  74841. Function TSPTypeDescriptorsEntitySet.List(const AQuery: String; out NextLink: String) : TSP_BusinessDataTypeDescriptorArray;
  74842. begin
  74843. Result:=TSP_BusinessDataTypeDescriptorArray(GetMulti(AQuery,False,NextLink));
  74844. end;
  74845. Function TSPTypeDescriptorsEntitySet.List(const AQuery: TQueryParams; out NextLink: String) : TSP_BusinessDataTypeDescriptorArray;
  74846. begin
  74847. Result:=TSP_BusinessDataTypeDescriptorArray(GetMulti(AQuery,False,NextLink));
  74848. end;
  74849. Function TSPTypeDescriptorsEntitySet.ListAll(const AQuery: String) : TSP_BusinessDataTypeDescriptorArray;
  74850. var N : String;
  74851. begin
  74852. Result:=TSP_BusinessDataTypeDescriptorArray(GetMulti(AQuery,True,N));
  74853. end;
  74854. Function TSPTypeDescriptorsEntitySet.ListAll(const AQuery: TQueryParams) : TSP_BusinessDataTypeDescriptorArray;
  74855. var N : String;
  74856. begin
  74857. Result:=TSP_BusinessDataTypeDescriptorArray(GetMulti(AQuery,True,N));
  74858. end;
  74859. { --------------------------------------------------------------------
  74860. TSPChangesEntitySet
  74861. --------------------------------------------------------------------}
  74862. Class Function TSPChangesEntitySet.ObjectRestKind : String;
  74863. begin
  74864. Result:='Changes';
  74865. end;
  74866. Class Function TSPChangesEntitySet.EntityClass : TODataEntityClass;
  74867. begin
  74868. Result:=TSPChange;
  74869. end;
  74870. Function TSPChangesEntitySet.Get(const ChangeType: TInt32) : TSPChange;
  74871. begin
  74872. Result:=TSPChange(GetSingle(IntToStr(ChangeType)));
  74873. end;
  74874. Function TSPChangesEntitySet.List(const AQuery: String; out NextLink: String) : TSPChangeArray;
  74875. begin
  74876. Result:=TSPChangeArray(GetMulti(AQuery,False,NextLink));
  74877. end;
  74878. Function TSPChangesEntitySet.List(const AQuery: TQueryParams; out NextLink: String) : TSPChangeArray;
  74879. begin
  74880. Result:=TSPChangeArray(GetMulti(AQuery,False,NextLink));
  74881. end;
  74882. Function TSPChangesEntitySet.ListAll(const AQuery: String) : TSPChangeArray;
  74883. var N : String;
  74884. begin
  74885. Result:=TSPChangeArray(GetMulti(AQuery,True,N));
  74886. end;
  74887. Function TSPChangesEntitySet.ListAll(const AQuery: TQueryParams) : TSPChangeArray;
  74888. var N : String;
  74889. begin
  74890. Result:=TSPChangeArray(GetMulti(AQuery,True,N));
  74891. end;
  74892. { --------------------------------------------------------------------
  74893. TSPCompatibilityRangesEntitySet
  74894. --------------------------------------------------------------------}
  74895. Class Function TSPCompatibilityRangesEntitySet.ObjectRestKind : String;
  74896. begin
  74897. Result:='CompatibilityRanges';
  74898. end;
  74899. Class Function TSPCompatibilityRangesEntitySet.EntityClass : TODataEntityClass;
  74900. begin
  74901. Result:=TSPCompatibilityRange;
  74902. end;
  74903. Function TSPCompatibilityRangesEntitySet.Get(const Id4a81de82eeb94d6080ea5bf63e27023a: string) : TSPCompatibilityRange;
  74904. begin
  74905. Result:=TSPCompatibilityRange(GetSingle(TODataObject.MakeKeyString(Id4a81de82eeb94d6080ea5bf63e27023a)));
  74906. end;
  74907. Function TSPCompatibilityRangesEntitySet.List(const AQuery: String; out NextLink: String) : TSPCompatibilityRangeArray;
  74908. begin
  74909. Result:=TSPCompatibilityRangeArray(GetMulti(AQuery,False,NextLink));
  74910. end;
  74911. Function TSPCompatibilityRangesEntitySet.List(const AQuery: TQueryParams; out NextLink: String) : TSPCompatibilityRangeArray;
  74912. begin
  74913. Result:=TSPCompatibilityRangeArray(GetMulti(AQuery,False,NextLink));
  74914. end;
  74915. Function TSPCompatibilityRangesEntitySet.ListAll(const AQuery: String) : TSPCompatibilityRangeArray;
  74916. var N : String;
  74917. begin
  74918. Result:=TSPCompatibilityRangeArray(GetMulti(AQuery,True,N));
  74919. end;
  74920. Function TSPCompatibilityRangesEntitySet.ListAll(const AQuery: TQueryParams) : TSPCompatibilityRangeArray;
  74921. var N : String;
  74922. begin
  74923. Result:=TSPCompatibilityRangeArray(GetMulti(AQuery,True,N));
  74924. end;
  74925. { --------------------------------------------------------------------
  74926. TSPPolicyEvaluationInfosEntitySet
  74927. --------------------------------------------------------------------}
  74928. Class Function TSPPolicyEvaluationInfosEntitySet.ObjectRestKind : String;
  74929. begin
  74930. Result:='PolicyEvaluationInfos';
  74931. end;
  74932. Class Function TSPPolicyEvaluationInfosEntitySet.EntityClass : TODataEntityClass;
  74933. begin
  74934. Result:=TSP_CompliancePolicyPolicyEvaluationInfo;
  74935. end;
  74936. Function TSPPolicyEvaluationInfosEntitySet.Get(const DlpAccessScope: TInt32) : TSP_CompliancePolicyPolicyEvaluationInfo;
  74937. begin
  74938. Result:=TSP_CompliancePolicyPolicyEvaluationInfo(GetSingle(IntToStr(DlpAccessScope)));
  74939. end;
  74940. Function TSPPolicyEvaluationInfosEntitySet.List(const AQuery: String; out NextLink: String) : TSP_CompliancePolicyPolicyEvaluationInfoArray;
  74941. begin
  74942. Result:=TSP_CompliancePolicyPolicyEvaluationInfoArray(GetMulti(AQuery,False,NextLink));
  74943. end;
  74944. Function TSPPolicyEvaluationInfosEntitySet.List(const AQuery: TQueryParams; out NextLink: String) : TSP_CompliancePolicyPolicyEvaluationInfoArray;
  74945. begin
  74946. Result:=TSP_CompliancePolicyPolicyEvaluationInfoArray(GetMulti(AQuery,False,NextLink));
  74947. end;
  74948. Function TSPPolicyEvaluationInfosEntitySet.ListAll(const AQuery: String) : TSP_CompliancePolicyPolicyEvaluationInfoArray;
  74949. var N : String;
  74950. begin
  74951. Result:=TSP_CompliancePolicyPolicyEvaluationInfoArray(GetMulti(AQuery,True,N));
  74952. end;
  74953. Function TSPPolicyEvaluationInfosEntitySet.ListAll(const AQuery: TQueryParams) : TSP_CompliancePolicyPolicyEvaluationInfoArray;
  74954. var N : String;
  74955. begin
  74956. Result:=TSP_CompliancePolicyPolicyEvaluationInfoArray(GetMulti(AQuery,True,N));
  74957. end;
  74958. { --------------------------------------------------------------------
  74959. TSPSPPolicyStoreProxysEntitySet
  74960. --------------------------------------------------------------------}
  74961. Class Function TSPSPPolicyStoreProxysEntitySet.ObjectRestKind : String;
  74962. begin
  74963. Result:='SPPolicyStoreProxys';
  74964. end;
  74965. Class Function TSPSPPolicyStoreProxysEntitySet.EntityClass : TODataEntityClass;
  74966. begin
  74967. Result:=TSP_CompliancePolicySPPolicyStoreProxy;
  74968. end;
  74969. Function TSPSPPolicyStoreProxysEntitySet.Get(const PolicyStoreUrl: string) : TSP_CompliancePolicySPPolicyStoreProxy;
  74970. begin
  74971. Result:=TSP_CompliancePolicySPPolicyStoreProxy(GetSingle(TODataObject.MakeKeyString(PolicyStoreUrl)));
  74972. end;
  74973. Function TSPSPPolicyStoreProxysEntitySet.List(const AQuery: String; out NextLink: String) : TSP_CompliancePolicySPPolicyStoreProxyArray;
  74974. begin
  74975. Result:=TSP_CompliancePolicySPPolicyStoreProxyArray(GetMulti(AQuery,False,NextLink));
  74976. end;
  74977. Function TSPSPPolicyStoreProxysEntitySet.List(const AQuery: TQueryParams; out NextLink: String) : TSP_CompliancePolicySPPolicyStoreProxyArray;
  74978. begin
  74979. Result:=TSP_CompliancePolicySPPolicyStoreProxyArray(GetMulti(AQuery,False,NextLink));
  74980. end;
  74981. Function TSPSPPolicyStoreProxysEntitySet.ListAll(const AQuery: String) : TSP_CompliancePolicySPPolicyStoreProxyArray;
  74982. var N : String;
  74983. begin
  74984. Result:=TSP_CompliancePolicySPPolicyStoreProxyArray(GetMulti(AQuery,True,N));
  74985. end;
  74986. Function TSPSPPolicyStoreProxysEntitySet.ListAll(const AQuery: TQueryParams) : TSP_CompliancePolicySPPolicyStoreProxyArray;
  74987. var N : String;
  74988. begin
  74989. Result:=TSP_CompliancePolicySPPolicyStoreProxyArray(GetMulti(AQuery,True,N));
  74990. end;
  74991. { --------------------------------------------------------------------
  74992. TSPContentTypesEntitySet
  74993. --------------------------------------------------------------------}
  74994. Class Function TSPContentTypesEntitySet.ObjectRestKind : String;
  74995. begin
  74996. Result:='ContentTypes';
  74997. end;
  74998. Class Function TSPContentTypesEntitySet.EntityClass : TODataEntityClass;
  74999. begin
  75000. Result:=TSPContentType;
  75001. end;
  75002. Function TSPContentTypesEntitySet.Get(const StringId: string) : TSPContentType;
  75003. begin
  75004. Result:=TSPContentType(GetSingle(TODataObject.MakeKeyString(StringId)));
  75005. end;
  75006. Function TSPContentTypesEntitySet.List(const AQuery: String; out NextLink: String) : TSPContentTypeArray;
  75007. begin
  75008. Result:=TSPContentTypeArray(GetMulti(AQuery,False,NextLink));
  75009. end;
  75010. Function TSPContentTypesEntitySet.List(const AQuery: TQueryParams; out NextLink: String) : TSPContentTypeArray;
  75011. begin
  75012. Result:=TSPContentTypeArray(GetMulti(AQuery,False,NextLink));
  75013. end;
  75014. Function TSPContentTypesEntitySet.ListAll(const AQuery: String) : TSPContentTypeArray;
  75015. var N : String;
  75016. begin
  75017. Result:=TSPContentTypeArray(GetMulti(AQuery,True,N));
  75018. end;
  75019. Function TSPContentTypesEntitySet.ListAll(const AQuery: TQueryParams) : TSPContentTypeArray;
  75020. var N : String;
  75021. begin
  75022. Result:=TSPContentTypeArray(GetMulti(AQuery,True,N));
  75023. end;
  75024. { --------------------------------------------------------------------
  75025. TSPCreatablesInfosEntitySet
  75026. --------------------------------------------------------------------}
  75027. Class Function TSPCreatablesInfosEntitySet.ObjectRestKind : String;
  75028. begin
  75029. Result:='CreatablesInfos';
  75030. end;
  75031. Class Function TSPCreatablesInfosEntitySet.EntityClass : TODataEntityClass;
  75032. begin
  75033. Result:=TSPCreatablesInfo;
  75034. end;
  75035. Function TSPCreatablesInfosEntitySet.Get(const CanCreateFolders: boolean) : TSPCreatablesInfo;
  75036. begin
  75037. Result:=TSPCreatablesInfo(GetSingle(BoolToStr(CanCreateFolders,'true','false')));
  75038. end;
  75039. Function TSPCreatablesInfosEntitySet.List(const AQuery: String; out NextLink: String) : TSPCreatablesInfoArray;
  75040. begin
  75041. Result:=TSPCreatablesInfoArray(GetMulti(AQuery,False,NextLink));
  75042. end;
  75043. Function TSPCreatablesInfosEntitySet.List(const AQuery: TQueryParams; out NextLink: String) : TSPCreatablesInfoArray;
  75044. begin
  75045. Result:=TSPCreatablesInfoArray(GetMulti(AQuery,False,NextLink));
  75046. end;
  75047. Function TSPCreatablesInfosEntitySet.ListAll(const AQuery: String) : TSPCreatablesInfoArray;
  75048. var N : String;
  75049. begin
  75050. Result:=TSPCreatablesInfoArray(GetMulti(AQuery,True,N));
  75051. end;
  75052. Function TSPCreatablesInfosEntitySet.ListAll(const AQuery: TQueryParams) : TSPCreatablesInfoArray;
  75053. var N : String;
  75054. begin
  75055. Result:=TSPCreatablesInfoArray(GetMulti(AQuery,True,N));
  75056. end;
  75057. { --------------------------------------------------------------------
  75058. TSPDirectorySessionsEntitySet
  75059. --------------------------------------------------------------------}
  75060. Class Function TSPDirectorySessionsEntitySet.ObjectRestKind : String;
  75061. begin
  75062. Result:='DirectorySessions';
  75063. end;
  75064. Class Function TSPDirectorySessionsEntitySet.EntityClass : TODataEntityClass;
  75065. begin
  75066. Result:=TSP_DirectoryDirectorySession;
  75067. end;
  75068. Function TSPDirectorySessionsEntitySet.Get(const SessionOptions: TInt32) : TSP_DirectoryDirectorySession;
  75069. begin
  75070. Result:=TSP_DirectoryDirectorySession(GetSingle(IntToStr(SessionOptions)));
  75071. end;
  75072. Function TSPDirectorySessionsEntitySet.List(const AQuery: String; out NextLink: String) : TSP_DirectoryDirectorySessionArray;
  75073. begin
  75074. Result:=TSP_DirectoryDirectorySessionArray(GetMulti(AQuery,False,NextLink));
  75075. end;
  75076. Function TSPDirectorySessionsEntitySet.List(const AQuery: TQueryParams; out NextLink: String) : TSP_DirectoryDirectorySessionArray;
  75077. begin
  75078. Result:=TSP_DirectoryDirectorySessionArray(GetMulti(AQuery,False,NextLink));
  75079. end;
  75080. Function TSPDirectorySessionsEntitySet.ListAll(const AQuery: String) : TSP_DirectoryDirectorySessionArray;
  75081. var N : String;
  75082. begin
  75083. Result:=TSP_DirectoryDirectorySessionArray(GetMulti(AQuery,True,N));
  75084. end;
  75085. Function TSPDirectorySessionsEntitySet.ListAll(const AQuery: TQueryParams) : TSP_DirectoryDirectorySessionArray;
  75086. var N : String;
  75087. begin
  75088. Result:=TSP_DirectoryDirectorySessionArray(GetMulti(AQuery,True,N));
  75089. end;
  75090. { --------------------------------------------------------------------
  75091. TSPGroupsEntitySet
  75092. --------------------------------------------------------------------}
  75093. Class Function TSPGroupsEntitySet.ObjectRestKind : String;
  75094. begin
  75095. Result:='Groups';
  75096. end;
  75097. Class Function TSPGroupsEntitySet.EntityClass : TODataEntityClass;
  75098. begin
  75099. Result:=TSP_DirectoryGroup;
  75100. end;
  75101. Function TSPGroupsEntitySet.Get(const Id: TGUIDString) : TSP_DirectoryGroup;
  75102. begin
  75103. Result:=TSP_DirectoryGroup(GetSingle(TODataObject.MakeKeyString(Id)));
  75104. end;
  75105. Function TSPGroupsEntitySet.List(const AQuery: String; out NextLink: String) : TSP_DirectoryGroupArray;
  75106. begin
  75107. Result:=TSP_DirectoryGroupArray(GetMulti(AQuery,False,NextLink));
  75108. end;
  75109. Function TSPGroupsEntitySet.List(const AQuery: TQueryParams; out NextLink: String) : TSP_DirectoryGroupArray;
  75110. begin
  75111. Result:=TSP_DirectoryGroupArray(GetMulti(AQuery,False,NextLink));
  75112. end;
  75113. Function TSPGroupsEntitySet.ListAll(const AQuery: String) : TSP_DirectoryGroupArray;
  75114. var N : String;
  75115. begin
  75116. Result:=TSP_DirectoryGroupArray(GetMulti(AQuery,True,N));
  75117. end;
  75118. Function TSPGroupsEntitySet.ListAll(const AQuery: TQueryParams) : TSP_DirectoryGroupArray;
  75119. var N : String;
  75120. begin
  75121. Result:=TSP_DirectoryGroupArray(GetMulti(AQuery,True,N));
  75122. end;
  75123. { --------------------------------------------------------------------
  75124. TSPGroupAndUserStatussEntitySet
  75125. --------------------------------------------------------------------}
  75126. Class Function TSPGroupAndUserStatussEntitySet.ObjectRestKind : String;
  75127. begin
  75128. Result:='GroupAndUserStatuss';
  75129. end;
  75130. Class Function TSPGroupAndUserStatussEntitySet.EntityClass : TODataEntityClass;
  75131. begin
  75132. Result:=TSP_DirectoryGroupAndUserStatus;
  75133. end;
  75134. Function TSPGroupAndUserStatussEntitySet.Get(const Status: TInt32) : TSP_DirectoryGroupAndUserStatus;
  75135. begin
  75136. Result:=TSP_DirectoryGroupAndUserStatus(GetSingle(IntToStr(Status)));
  75137. end;
  75138. Function TSPGroupAndUserStatussEntitySet.List(const AQuery: String; out NextLink: String) : TSP_DirectoryGroupAndUserStatusArray;
  75139. begin
  75140. Result:=TSP_DirectoryGroupAndUserStatusArray(GetMulti(AQuery,False,NextLink));
  75141. end;
  75142. Function TSPGroupAndUserStatussEntitySet.List(const AQuery: TQueryParams; out NextLink: String) : TSP_DirectoryGroupAndUserStatusArray;
  75143. begin
  75144. Result:=TSP_DirectoryGroupAndUserStatusArray(GetMulti(AQuery,False,NextLink));
  75145. end;
  75146. Function TSPGroupAndUserStatussEntitySet.ListAll(const AQuery: String) : TSP_DirectoryGroupAndUserStatusArray;
  75147. var N : String;
  75148. begin
  75149. Result:=TSP_DirectoryGroupAndUserStatusArray(GetMulti(AQuery,True,N));
  75150. end;
  75151. Function TSPGroupAndUserStatussEntitySet.ListAll(const AQuery: TQueryParams) : TSP_DirectoryGroupAndUserStatusArray;
  75152. var N : String;
  75153. begin
  75154. Result:=TSP_DirectoryGroupAndUserStatusArray(GetMulti(AQuery,True,N));
  75155. end;
  75156. { --------------------------------------------------------------------
  75157. TSPLinkCollectionsEntitySet
  75158. --------------------------------------------------------------------}
  75159. Class Function TSPLinkCollectionsEntitySet.ObjectRestKind : String;
  75160. begin
  75161. Result:='LinkCollections';
  75162. end;
  75163. Class Function TSPLinkCollectionsEntitySet.EntityClass : TODataEntityClass;
  75164. begin
  75165. Result:=TSP_DirectoryLinkCollection;
  75166. end;
  75167. Function TSPLinkCollectionsEntitySet.Get(const Count: TInt32) : TSP_DirectoryLinkCollection;
  75168. begin
  75169. Result:=TSP_DirectoryLinkCollection(GetSingle(IntToStr(Count)));
  75170. end;
  75171. Function TSPLinkCollectionsEntitySet.List(const AQuery: String; out NextLink: String) : TSP_DirectoryLinkCollectionArray;
  75172. begin
  75173. Result:=TSP_DirectoryLinkCollectionArray(GetMulti(AQuery,False,NextLink));
  75174. end;
  75175. Function TSPLinkCollectionsEntitySet.List(const AQuery: TQueryParams; out NextLink: String) : TSP_DirectoryLinkCollectionArray;
  75176. begin
  75177. Result:=TSP_DirectoryLinkCollectionArray(GetMulti(AQuery,False,NextLink));
  75178. end;
  75179. Function TSPLinkCollectionsEntitySet.ListAll(const AQuery: String) : TSP_DirectoryLinkCollectionArray;
  75180. var N : String;
  75181. begin
  75182. Result:=TSP_DirectoryLinkCollectionArray(GetMulti(AQuery,True,N));
  75183. end;
  75184. Function TSPLinkCollectionsEntitySet.ListAll(const AQuery: TQueryParams) : TSP_DirectoryLinkCollectionArray;
  75185. var N : String;
  75186. begin
  75187. Result:=TSP_DirectoryLinkCollectionArray(GetMulti(AQuery,True,N));
  75188. end;
  75189. { --------------------------------------------------------------------
  75190. TSPMembershipResultsEntitySet
  75191. --------------------------------------------------------------------}
  75192. Class Function TSPMembershipResultsEntitySet.ObjectRestKind : String;
  75193. begin
  75194. Result:='MembershipResults';
  75195. end;
  75196. Class Function TSPMembershipResultsEntitySet.EntityClass : TODataEntityClass;
  75197. begin
  75198. Result:=TSP_DirectoryMembershipResult;
  75199. end;
  75200. Function TSPMembershipResultsEntitySet.Get(const Id4a81de82eeb94d6080ea5bf63e27023a: string) : TSP_DirectoryMembershipResult;
  75201. begin
  75202. Result:=TSP_DirectoryMembershipResult(GetSingle(TODataObject.MakeKeyString(Id4a81de82eeb94d6080ea5bf63e27023a)));
  75203. end;
  75204. Function TSPMembershipResultsEntitySet.List(const AQuery: String; out NextLink: String) : TSP_DirectoryMembershipResultArray;
  75205. begin
  75206. Result:=TSP_DirectoryMembershipResultArray(GetMulti(AQuery,False,NextLink));
  75207. end;
  75208. Function TSPMembershipResultsEntitySet.List(const AQuery: TQueryParams; out NextLink: String) : TSP_DirectoryMembershipResultArray;
  75209. begin
  75210. Result:=TSP_DirectoryMembershipResultArray(GetMulti(AQuery,False,NextLink));
  75211. end;
  75212. Function TSPMembershipResultsEntitySet.ListAll(const AQuery: String) : TSP_DirectoryMembershipResultArray;
  75213. var N : String;
  75214. begin
  75215. Result:=TSP_DirectoryMembershipResultArray(GetMulti(AQuery,True,N));
  75216. end;
  75217. Function TSPMembershipResultsEntitySet.ListAll(const AQuery: TQueryParams) : TSP_DirectoryMembershipResultArray;
  75218. var N : String;
  75219. begin
  75220. Result:=TSP_DirectoryMembershipResultArray(GetMulti(AQuery,True,N));
  75221. end;
  75222. { --------------------------------------------------------------------
  75223. TSPMembersInfosEntitySet
  75224. --------------------------------------------------------------------}
  75225. Class Function TSPMembersInfosEntitySet.ObjectRestKind : String;
  75226. begin
  75227. Result:='MembersInfos';
  75228. end;
  75229. Class Function TSPMembersInfosEntitySet.EntityClass : TODataEntityClass;
  75230. begin
  75231. Result:=TSP_DirectoryMembersInfo;
  75232. end;
  75233. Function TSPMembersInfosEntitySet.Get(const TotalCount: TInt32) : TSP_DirectoryMembersInfo;
  75234. begin
  75235. Result:=TSP_DirectoryMembersInfo(GetSingle(IntToStr(TotalCount)));
  75236. end;
  75237. Function TSPMembersInfosEntitySet.List(const AQuery: String; out NextLink: String) : TSP_DirectoryMembersInfoArray;
  75238. begin
  75239. Result:=TSP_DirectoryMembersInfoArray(GetMulti(AQuery,False,NextLink));
  75240. end;
  75241. Function TSPMembersInfosEntitySet.List(const AQuery: TQueryParams; out NextLink: String) : TSP_DirectoryMembersInfoArray;
  75242. begin
  75243. Result:=TSP_DirectoryMembersInfoArray(GetMulti(AQuery,False,NextLink));
  75244. end;
  75245. Function TSPMembersInfosEntitySet.ListAll(const AQuery: String) : TSP_DirectoryMembersInfoArray;
  75246. var N : String;
  75247. begin
  75248. Result:=TSP_DirectoryMembersInfoArray(GetMulti(AQuery,True,N));
  75249. end;
  75250. Function TSPMembersInfosEntitySet.ListAll(const AQuery: TQueryParams) : TSP_DirectoryMembersInfoArray;
  75251. var N : String;
  75252. begin
  75253. Result:=TSP_DirectoryMembersInfoArray(GetMulti(AQuery,True,N));
  75254. end;
  75255. { --------------------------------------------------------------------
  75256. TSPMyGroupsResultsEntitySet
  75257. --------------------------------------------------------------------}
  75258. Class Function TSPMyGroupsResultsEntitySet.ObjectRestKind : String;
  75259. begin
  75260. Result:='MyGroupsResults';
  75261. end;
  75262. Class Function TSPMyGroupsResultsEntitySet.EntityClass : TODataEntityClass;
  75263. begin
  75264. Result:=TSP_DirectoryMyGroupsResult;
  75265. end;
  75266. Function TSPMyGroupsResultsEntitySet.Get(const HasNext: boolean) : TSP_DirectoryMyGroupsResult;
  75267. begin
  75268. Result:=TSP_DirectoryMyGroupsResult(GetSingle(BoolToStr(HasNext,'true','false')));
  75269. end;
  75270. Function TSPMyGroupsResultsEntitySet.List(const AQuery: String; out NextLink: String) : TSP_DirectoryMyGroupsResultArray;
  75271. begin
  75272. Result:=TSP_DirectoryMyGroupsResultArray(GetMulti(AQuery,False,NextLink));
  75273. end;
  75274. Function TSPMyGroupsResultsEntitySet.List(const AQuery: TQueryParams; out NextLink: String) : TSP_DirectoryMyGroupsResultArray;
  75275. begin
  75276. Result:=TSP_DirectoryMyGroupsResultArray(GetMulti(AQuery,False,NextLink));
  75277. end;
  75278. Function TSPMyGroupsResultsEntitySet.ListAll(const AQuery: String) : TSP_DirectoryMyGroupsResultArray;
  75279. var N : String;
  75280. begin
  75281. Result:=TSP_DirectoryMyGroupsResultArray(GetMulti(AQuery,True,N));
  75282. end;
  75283. Function TSPMyGroupsResultsEntitySet.ListAll(const AQuery: TQueryParams) : TSP_DirectoryMyGroupsResultArray;
  75284. var N : String;
  75285. begin
  75286. Result:=TSP_DirectoryMyGroupsResultArray(GetMulti(AQuery,True,N));
  75287. end;
  75288. { --------------------------------------------------------------------
  75289. TSPPropertysEntitySet
  75290. --------------------------------------------------------------------}
  75291. Class Function TSPPropertysEntitySet.ObjectRestKind : String;
  75292. begin
  75293. Result:='Propertys';
  75294. end;
  75295. Class Function TSPPropertysEntitySet.EntityClass : TODataEntityClass;
  75296. begin
  75297. Result:=TSP_Directory_Property;
  75298. end;
  75299. Function TSPPropertysEntitySet.Get(const _Name: string) : TSP_Directory_Property;
  75300. begin
  75301. Result:=TSP_Directory_Property(GetSingle(TODataObject.MakeKeyString(_Name)));
  75302. end;
  75303. Function TSPPropertysEntitySet.List(const AQuery: String; out NextLink: String) : TSP_Directory_PropertyArray;
  75304. begin
  75305. Result:=TSP_Directory_PropertyArray(GetMulti(AQuery,False,NextLink));
  75306. end;
  75307. Function TSPPropertysEntitySet.List(const AQuery: TQueryParams; out NextLink: String) : TSP_Directory_PropertyArray;
  75308. begin
  75309. Result:=TSP_Directory_PropertyArray(GetMulti(AQuery,False,NextLink));
  75310. end;
  75311. Function TSPPropertysEntitySet.ListAll(const AQuery: String) : TSP_Directory_PropertyArray;
  75312. var N : String;
  75313. begin
  75314. Result:=TSP_Directory_PropertyArray(GetMulti(AQuery,True,N));
  75315. end;
  75316. Function TSPPropertysEntitySet.ListAll(const AQuery: TQueryParams) : TSP_Directory_PropertyArray;
  75317. var N : String;
  75318. begin
  75319. Result:=TSP_Directory_PropertyArray(GetMulti(AQuery,True,N));
  75320. end;
  75321. { --------------------------------------------------------------------
  75322. TSPPropertyDictionarysEntitySet
  75323. --------------------------------------------------------------------}
  75324. Class Function TSPPropertyDictionarysEntitySet.ObjectRestKind : String;
  75325. begin
  75326. Result:='PropertyDictionarys';
  75327. end;
  75328. Class Function TSPPropertyDictionarysEntitySet.EntityClass : TODataEntityClass;
  75329. begin
  75330. Result:=TSP_DirectoryPropertyDictionary;
  75331. end;
  75332. Function TSPPropertyDictionarysEntitySet.Get(const Id4a81de82eeb94d6080ea5bf63e27023a: string) : TSP_DirectoryPropertyDictionary;
  75333. begin
  75334. Result:=TSP_DirectoryPropertyDictionary(GetSingle(TODataObject.MakeKeyString(Id4a81de82eeb94d6080ea5bf63e27023a)));
  75335. end;
  75336. Function TSPPropertyDictionarysEntitySet.List(const AQuery: String; out NextLink: String) : TSP_DirectoryPropertyDictionaryArray;
  75337. begin
  75338. Result:=TSP_DirectoryPropertyDictionaryArray(GetMulti(AQuery,False,NextLink));
  75339. end;
  75340. Function TSPPropertyDictionarysEntitySet.List(const AQuery: TQueryParams; out NextLink: String) : TSP_DirectoryPropertyDictionaryArray;
  75341. begin
  75342. Result:=TSP_DirectoryPropertyDictionaryArray(GetMulti(AQuery,False,NextLink));
  75343. end;
  75344. Function TSPPropertyDictionarysEntitySet.ListAll(const AQuery: String) : TSP_DirectoryPropertyDictionaryArray;
  75345. var N : String;
  75346. begin
  75347. Result:=TSP_DirectoryPropertyDictionaryArray(GetMulti(AQuery,True,N));
  75348. end;
  75349. Function TSPPropertyDictionarysEntitySet.ListAll(const AQuery: TQueryParams) : TSP_DirectoryPropertyDictionaryArray;
  75350. var N : String;
  75351. begin
  75352. Result:=TSP_DirectoryPropertyDictionaryArray(GetMulti(AQuery,True,N));
  75353. end;
  75354. { --------------------------------------------------------------------
  75355. TSPSharePointDirectoryProvidersEntitySet
  75356. --------------------------------------------------------------------}
  75357. Class Function TSPSharePointDirectoryProvidersEntitySet.ObjectRestKind : String;
  75358. begin
  75359. Result:='SharePointDirectoryProviders';
  75360. end;
  75361. Class Function TSPSharePointDirectoryProvidersEntitySet.EntityClass : TODataEntityClass;
  75362. begin
  75363. Result:=TSP_Directory_ProviderSharePointDirectoryProvider;
  75364. end;
  75365. Function TSPSharePointDirectoryProvidersEntitySet.Get(const Id4a81de82eeb94d6080ea5bf63e27023a: string) : TSP_Directory_ProviderSharePointDirectoryProvider;
  75366. begin
  75367. Result:=TSP_Directory_ProviderSharePointDirectoryProvider(GetSingle(TODataObject.MakeKeyString(Id4a81de82eeb94d6080ea5bf63e27023a)));
  75368. end;
  75369. Function TSPSharePointDirectoryProvidersEntitySet.List(const AQuery: String; out NextLink: String) : TSP_Directory_ProviderSharePointDirectoryProviderArray;
  75370. begin
  75371. Result:=TSP_Directory_ProviderSharePointDirectoryProviderArray(GetMulti(AQuery,False,NextLink));
  75372. end;
  75373. Function TSPSharePointDirectoryProvidersEntitySet.List(const AQuery: TQueryParams; out NextLink: String) : TSP_Directory_ProviderSharePointDirectoryProviderArray;
  75374. begin
  75375. Result:=TSP_Directory_ProviderSharePointDirectoryProviderArray(GetMulti(AQuery,False,NextLink));
  75376. end;
  75377. Function TSPSharePointDirectoryProvidersEntitySet.ListAll(const AQuery: String) : TSP_Directory_ProviderSharePointDirectoryProviderArray;
  75378. var N : String;
  75379. begin
  75380. Result:=TSP_Directory_ProviderSharePointDirectoryProviderArray(GetMulti(AQuery,True,N));
  75381. end;
  75382. Function TSPSharePointDirectoryProvidersEntitySet.ListAll(const AQuery: TQueryParams) : TSP_Directory_ProviderSharePointDirectoryProviderArray;
  75383. var N : String;
  75384. begin
  75385. Result:=TSP_Directory_ProviderSharePointDirectoryProviderArray(GetMulti(AQuery,True,N));
  75386. end;
  75387. { --------------------------------------------------------------------
  75388. TSPSPHelpersEntitySet
  75389. --------------------------------------------------------------------}
  75390. Class Function TSPSPHelpersEntitySet.ObjectRestKind : String;
  75391. begin
  75392. Result:='SPHelpers';
  75393. end;
  75394. Class Function TSPSPHelpersEntitySet.EntityClass : TODataEntityClass;
  75395. begin
  75396. Result:=TSP_DirectorySPHelper;
  75397. end;
  75398. Function TSPSPHelpersEntitySet.Get(const Id4a81de82eeb94d6080ea5bf63e27023a: string) : TSP_DirectorySPHelper;
  75399. begin
  75400. Result:=TSP_DirectorySPHelper(GetSingle(TODataObject.MakeKeyString(Id4a81de82eeb94d6080ea5bf63e27023a)));
  75401. end;
  75402. Function TSPSPHelpersEntitySet.List(const AQuery: String; out NextLink: String) : TSP_DirectorySPHelperArray;
  75403. begin
  75404. Result:=TSP_DirectorySPHelperArray(GetMulti(AQuery,False,NextLink));
  75405. end;
  75406. Function TSPSPHelpersEntitySet.List(const AQuery: TQueryParams; out NextLink: String) : TSP_DirectorySPHelperArray;
  75407. begin
  75408. Result:=TSP_DirectorySPHelperArray(GetMulti(AQuery,False,NextLink));
  75409. end;
  75410. Function TSPSPHelpersEntitySet.ListAll(const AQuery: String) : TSP_DirectorySPHelperArray;
  75411. var N : String;
  75412. begin
  75413. Result:=TSP_DirectorySPHelperArray(GetMulti(AQuery,True,N));
  75414. end;
  75415. Function TSPSPHelpersEntitySet.ListAll(const AQuery: TQueryParams) : TSP_DirectorySPHelperArray;
  75416. var N : String;
  75417. begin
  75418. Result:=TSP_DirectorySPHelperArray(GetMulti(AQuery,True,N));
  75419. end;
  75420. { --------------------------------------------------------------------
  75421. TSPUsersEntitySet
  75422. --------------------------------------------------------------------}
  75423. Class Function TSPUsersEntitySet.ObjectRestKind : String;
  75424. begin
  75425. Result:='Users';
  75426. end;
  75427. Class Function TSPUsersEntitySet.EntityClass : TODataEntityClass;
  75428. begin
  75429. Result:=TSP_DirectoryUser;
  75430. end;
  75431. Function TSPUsersEntitySet.Get(const Id: TGUIDString) : TSP_DirectoryUser;
  75432. begin
  75433. Result:=TSP_DirectoryUser(GetSingle(TODataObject.MakeKeyString(Id)));
  75434. end;
  75435. Function TSPUsersEntitySet.List(const AQuery: String; out NextLink: String) : TSP_DirectoryUserArray;
  75436. begin
  75437. Result:=TSP_DirectoryUserArray(GetMulti(AQuery,False,NextLink));
  75438. end;
  75439. Function TSPUsersEntitySet.List(const AQuery: TQueryParams; out NextLink: String) : TSP_DirectoryUserArray;
  75440. begin
  75441. Result:=TSP_DirectoryUserArray(GetMulti(AQuery,False,NextLink));
  75442. end;
  75443. Function TSPUsersEntitySet.ListAll(const AQuery: String) : TSP_DirectoryUserArray;
  75444. var N : String;
  75445. begin
  75446. Result:=TSP_DirectoryUserArray(GetMulti(AQuery,True,N));
  75447. end;
  75448. Function TSPUsersEntitySet.ListAll(const AQuery: TQueryParams) : TSP_DirectoryUserArray;
  75449. var N : String;
  75450. begin
  75451. Result:=TSP_DirectoryUserArray(GetMulti(AQuery,True,N));
  75452. end;
  75453. { --------------------------------------------------------------------
  75454. TSPUserRequestSchemasEntitySet
  75455. --------------------------------------------------------------------}
  75456. Class Function TSPUserRequestSchemasEntitySet.ObjectRestKind : String;
  75457. begin
  75458. Result:='UserRequestSchemas';
  75459. end;
  75460. Class Function TSPUserRequestSchemasEntitySet.EntityClass : TODataEntityClass;
  75461. begin
  75462. Result:=TSP_DirectoryUserRequestSchema;
  75463. end;
  75464. Function TSPUserRequestSchemasEntitySet.Get(const Id4a81de82eeb94d6080ea5bf63e27023a: string) : TSP_DirectoryUserRequestSchema;
  75465. begin
  75466. Result:=TSP_DirectoryUserRequestSchema(GetSingle(TODataObject.MakeKeyString(Id4a81de82eeb94d6080ea5bf63e27023a)));
  75467. end;
  75468. Function TSPUserRequestSchemasEntitySet.List(const AQuery: String; out NextLink: String) : TSP_DirectoryUserRequestSchemaArray;
  75469. begin
  75470. Result:=TSP_DirectoryUserRequestSchemaArray(GetMulti(AQuery,False,NextLink));
  75471. end;
  75472. Function TSPUserRequestSchemasEntitySet.List(const AQuery: TQueryParams; out NextLink: String) : TSP_DirectoryUserRequestSchemaArray;
  75473. begin
  75474. Result:=TSP_DirectoryUserRequestSchemaArray(GetMulti(AQuery,False,NextLink));
  75475. end;
  75476. Function TSPUserRequestSchemasEntitySet.ListAll(const AQuery: String) : TSP_DirectoryUserRequestSchemaArray;
  75477. var N : String;
  75478. begin
  75479. Result:=TSP_DirectoryUserRequestSchemaArray(GetMulti(AQuery,True,N));
  75480. end;
  75481. Function TSPUserRequestSchemasEntitySet.ListAll(const AQuery: TQueryParams) : TSP_DirectoryUserRequestSchemaArray;
  75482. var N : String;
  75483. begin
  75484. Result:=TSP_DirectoryUserRequestSchemaArray(GetMulti(AQuery,True,N));
  75485. end;
  75486. { --------------------------------------------------------------------
  75487. TSPDlpPolicyTipsEntitySet
  75488. --------------------------------------------------------------------}
  75489. Class Function TSPDlpPolicyTipsEntitySet.ObjectRestKind : String;
  75490. begin
  75491. Result:='DlpPolicyTips';
  75492. end;
  75493. Class Function TSPDlpPolicyTipsEntitySet.EntityClass : TODataEntityClass;
  75494. begin
  75495. Result:=TSPDlpPolicyTip;
  75496. end;
  75497. Function TSPDlpPolicyTipsEntitySet.Get(const AppliedActionsText: string) : TSPDlpPolicyTip;
  75498. begin
  75499. Result:=TSPDlpPolicyTip(GetSingle(TODataObject.MakeKeyString(AppliedActionsText)));
  75500. end;
  75501. Function TSPDlpPolicyTipsEntitySet.List(const AQuery: String; out NextLink: String) : TSPDlpPolicyTipArray;
  75502. begin
  75503. Result:=TSPDlpPolicyTipArray(GetMulti(AQuery,False,NextLink));
  75504. end;
  75505. Function TSPDlpPolicyTipsEntitySet.List(const AQuery: TQueryParams; out NextLink: String) : TSPDlpPolicyTipArray;
  75506. begin
  75507. Result:=TSPDlpPolicyTipArray(GetMulti(AQuery,False,NextLink));
  75508. end;
  75509. Function TSPDlpPolicyTipsEntitySet.ListAll(const AQuery: String) : TSPDlpPolicyTipArray;
  75510. var N : String;
  75511. begin
  75512. Result:=TSPDlpPolicyTipArray(GetMulti(AQuery,True,N));
  75513. end;
  75514. Function TSPDlpPolicyTipsEntitySet.ListAll(const AQuery: TQueryParams) : TSPDlpPolicyTipArray;
  75515. var N : String;
  75516. begin
  75517. Result:=TSPDlpPolicyTipArray(GetMulti(AQuery,True,N));
  75518. end;
  75519. { --------------------------------------------------------------------
  75520. TSPEventReceiverDefinitionsEntitySet
  75521. --------------------------------------------------------------------}
  75522. Class Function TSPEventReceiverDefinitionsEntitySet.ObjectRestKind : String;
  75523. begin
  75524. Result:='EventReceiverDefinitions';
  75525. end;
  75526. Class Function TSPEventReceiverDefinitionsEntitySet.EntityClass : TODataEntityClass;
  75527. begin
  75528. Result:=TSPEventReceiverDefinition;
  75529. end;
  75530. Function TSPEventReceiverDefinitionsEntitySet.Get(const ReceiverId: TGUIDString) : TSPEventReceiverDefinition;
  75531. begin
  75532. Result:=TSPEventReceiverDefinition(GetSingle(TODataObject.MakeKeyString(ReceiverId)));
  75533. end;
  75534. Function TSPEventReceiverDefinitionsEntitySet.List(const AQuery: String; out NextLink: String) : TSPEventReceiverDefinitionArray;
  75535. begin
  75536. Result:=TSPEventReceiverDefinitionArray(GetMulti(AQuery,False,NextLink));
  75537. end;
  75538. Function TSPEventReceiverDefinitionsEntitySet.List(const AQuery: TQueryParams; out NextLink: String) : TSPEventReceiverDefinitionArray;
  75539. begin
  75540. Result:=TSPEventReceiverDefinitionArray(GetMulti(AQuery,False,NextLink));
  75541. end;
  75542. Function TSPEventReceiverDefinitionsEntitySet.ListAll(const AQuery: String) : TSPEventReceiverDefinitionArray;
  75543. var N : String;
  75544. begin
  75545. Result:=TSPEventReceiverDefinitionArray(GetMulti(AQuery,True,N));
  75546. end;
  75547. Function TSPEventReceiverDefinitionsEntitySet.ListAll(const AQuery: TQueryParams) : TSPEventReceiverDefinitionArray;
  75548. var N : String;
  75549. begin
  75550. Result:=TSPEventReceiverDefinitionArray(GetMulti(AQuery,True,N));
  75551. end;
  75552. { --------------------------------------------------------------------
  75553. TSPFeaturesEntitySet
  75554. --------------------------------------------------------------------}
  75555. Class Function TSPFeaturesEntitySet.ObjectRestKind : String;
  75556. begin
  75557. Result:='Features';
  75558. end;
  75559. Class Function TSPFeaturesEntitySet.EntityClass : TODataEntityClass;
  75560. begin
  75561. Result:=TSPFeature;
  75562. end;
  75563. Function TSPFeaturesEntitySet.Get(const DefinitionId: TGUIDString) : TSPFeature;
  75564. begin
  75565. Result:=TSPFeature(GetSingle(TODataObject.MakeKeyString(DefinitionId)));
  75566. end;
  75567. Function TSPFeaturesEntitySet.List(const AQuery: String; out NextLink: String) : TSPFeatureArray;
  75568. begin
  75569. Result:=TSPFeatureArray(GetMulti(AQuery,False,NextLink));
  75570. end;
  75571. Function TSPFeaturesEntitySet.List(const AQuery: TQueryParams; out NextLink: String) : TSPFeatureArray;
  75572. begin
  75573. Result:=TSPFeatureArray(GetMulti(AQuery,False,NextLink));
  75574. end;
  75575. Function TSPFeaturesEntitySet.ListAll(const AQuery: String) : TSPFeatureArray;
  75576. var N : String;
  75577. begin
  75578. Result:=TSPFeatureArray(GetMulti(AQuery,True,N));
  75579. end;
  75580. Function TSPFeaturesEntitySet.ListAll(const AQuery: TQueryParams) : TSPFeatureArray;
  75581. var N : String;
  75582. begin
  75583. Result:=TSPFeatureArray(GetMulti(AQuery,True,N));
  75584. end;
  75585. { --------------------------------------------------------------------
  75586. TSPFields1EntitySet
  75587. --------------------------------------------------------------------}
  75588. Class Function TSPFields1EntitySet.ObjectRestKind : String;
  75589. begin
  75590. Result:='Fields1';
  75591. end;
  75592. Class Function TSPFields1EntitySet.EntityClass : TODataEntityClass;
  75593. begin
  75594. Result:=TSPField;
  75595. end;
  75596. Function TSPFields1EntitySet.Get(const Id: TGUIDString) : TSPField;
  75597. begin
  75598. Result:=TSPField(GetSingle(TODataObject.MakeKeyString(Id)));
  75599. end;
  75600. Function TSPFields1EntitySet.List(const AQuery: String; out NextLink: String) : TSPFieldArray;
  75601. begin
  75602. Result:=TSPFieldArray(GetMulti(AQuery,False,NextLink));
  75603. end;
  75604. Function TSPFields1EntitySet.List(const AQuery: TQueryParams; out NextLink: String) : TSPFieldArray;
  75605. begin
  75606. Result:=TSPFieldArray(GetMulti(AQuery,False,NextLink));
  75607. end;
  75608. Function TSPFields1EntitySet.ListAll(const AQuery: String) : TSPFieldArray;
  75609. var N : String;
  75610. begin
  75611. Result:=TSPFieldArray(GetMulti(AQuery,True,N));
  75612. end;
  75613. Function TSPFields1EntitySet.ListAll(const AQuery: TQueryParams) : TSPFieldArray;
  75614. var N : String;
  75615. begin
  75616. Result:=TSPFieldArray(GetMulti(AQuery,True,N));
  75617. end;
  75618. { --------------------------------------------------------------------
  75619. TSPFieldLinksEntitySet
  75620. --------------------------------------------------------------------}
  75621. Class Function TSPFieldLinksEntitySet.ObjectRestKind : String;
  75622. begin
  75623. Result:='FieldLinks';
  75624. end;
  75625. Class Function TSPFieldLinksEntitySet.EntityClass : TODataEntityClass;
  75626. begin
  75627. Result:=TSPFieldLink;
  75628. end;
  75629. Function TSPFieldLinksEntitySet.Get(const Id: TGUIDString) : TSPFieldLink;
  75630. begin
  75631. Result:=TSPFieldLink(GetSingle(TODataObject.MakeKeyString(Id)));
  75632. end;
  75633. Function TSPFieldLinksEntitySet.List(const AQuery: String; out NextLink: String) : TSPFieldLinkArray;
  75634. begin
  75635. Result:=TSPFieldLinkArray(GetMulti(AQuery,False,NextLink));
  75636. end;
  75637. Function TSPFieldLinksEntitySet.List(const AQuery: TQueryParams; out NextLink: String) : TSPFieldLinkArray;
  75638. begin
  75639. Result:=TSPFieldLinkArray(GetMulti(AQuery,False,NextLink));
  75640. end;
  75641. Function TSPFieldLinksEntitySet.ListAll(const AQuery: String) : TSPFieldLinkArray;
  75642. var N : String;
  75643. begin
  75644. Result:=TSPFieldLinkArray(GetMulti(AQuery,True,N));
  75645. end;
  75646. Function TSPFieldLinksEntitySet.ListAll(const AQuery: TQueryParams) : TSPFieldLinkArray;
  75647. var N : String;
  75648. begin
  75649. Result:=TSPFieldLinkArray(GetMulti(AQuery,True,N));
  75650. end;
  75651. { --------------------------------------------------------------------
  75652. TSPFieldStringValuessEntitySet
  75653. --------------------------------------------------------------------}
  75654. Class Function TSPFieldStringValuessEntitySet.ObjectRestKind : String;
  75655. begin
  75656. Result:='FieldStringValuess';
  75657. end;
  75658. Class Function TSPFieldStringValuessEntitySet.EntityClass : TODataEntityClass;
  75659. begin
  75660. Result:=TSPFieldStringValues;
  75661. end;
  75662. Function TSPFieldStringValuessEntitySet.Get(const Id4a81de82eeb94d6080ea5bf63e27023a: string) : TSPFieldStringValues;
  75663. begin
  75664. Result:=TSPFieldStringValues(GetSingle(TODataObject.MakeKeyString(Id4a81de82eeb94d6080ea5bf63e27023a)));
  75665. end;
  75666. Function TSPFieldStringValuessEntitySet.List(const AQuery: String; out NextLink: String) : TSPFieldStringValuesArray;
  75667. begin
  75668. Result:=TSPFieldStringValuesArray(GetMulti(AQuery,False,NextLink));
  75669. end;
  75670. Function TSPFieldStringValuessEntitySet.List(const AQuery: TQueryParams; out NextLink: String) : TSPFieldStringValuesArray;
  75671. begin
  75672. Result:=TSPFieldStringValuesArray(GetMulti(AQuery,False,NextLink));
  75673. end;
  75674. Function TSPFieldStringValuessEntitySet.ListAll(const AQuery: String) : TSPFieldStringValuesArray;
  75675. var N : String;
  75676. begin
  75677. Result:=TSPFieldStringValuesArray(GetMulti(AQuery,True,N));
  75678. end;
  75679. Function TSPFieldStringValuessEntitySet.ListAll(const AQuery: TQueryParams) : TSPFieldStringValuesArray;
  75680. var N : String;
  75681. begin
  75682. Result:=TSPFieldStringValuesArray(GetMulti(AQuery,True,N));
  75683. end;
  75684. { --------------------------------------------------------------------
  75685. TSPFiles12EntitySet
  75686. --------------------------------------------------------------------}
  75687. Class Function TSPFiles12EntitySet.ObjectRestKind : String;
  75688. begin
  75689. Result:='Files12';
  75690. end;
  75691. Class Function TSPFiles12EntitySet.EntityClass : TODataEntityClass;
  75692. begin
  75693. Result:=TSP_File;
  75694. end;
  75695. Function TSPFiles12EntitySet.Get(const _Name: string) : TSP_File;
  75696. begin
  75697. Result:=TSP_File(GetSingle(TODataObject.MakeKeyString(_Name)));
  75698. end;
  75699. Function TSPFiles12EntitySet.List(const AQuery: String; out NextLink: String) : TSP_FileArray;
  75700. begin
  75701. Result:=TSP_FileArray(GetMulti(AQuery,False,NextLink));
  75702. end;
  75703. Function TSPFiles12EntitySet.List(const AQuery: TQueryParams; out NextLink: String) : TSP_FileArray;
  75704. begin
  75705. Result:=TSP_FileArray(GetMulti(AQuery,False,NextLink));
  75706. end;
  75707. Function TSPFiles12EntitySet.ListAll(const AQuery: String) : TSP_FileArray;
  75708. var N : String;
  75709. begin
  75710. Result:=TSP_FileArray(GetMulti(AQuery,True,N));
  75711. end;
  75712. Function TSPFiles12EntitySet.ListAll(const AQuery: TQueryParams) : TSP_FileArray;
  75713. var N : String;
  75714. begin
  75715. Result:=TSP_FileArray(GetMulti(AQuery,True,N));
  75716. end;
  75717. { --------------------------------------------------------------------
  75718. TSPFileVersionsEntitySet
  75719. --------------------------------------------------------------------}
  75720. Class Function TSPFileVersionsEntitySet.ObjectRestKind : String;
  75721. begin
  75722. Result:='FileVersions';
  75723. end;
  75724. Class Function TSPFileVersionsEntitySet.EntityClass : TODataEntityClass;
  75725. begin
  75726. Result:=TSPFileVersion;
  75727. end;
  75728. Function TSPFileVersionsEntitySet.Get(const ID: TInt32) : TSPFileVersion;
  75729. begin
  75730. Result:=TSPFileVersion(GetSingle(IntToStr(ID)));
  75731. end;
  75732. Function TSPFileVersionsEntitySet.List(const AQuery: String; out NextLink: String) : TSPFileVersionArray;
  75733. begin
  75734. Result:=TSPFileVersionArray(GetMulti(AQuery,False,NextLink));
  75735. end;
  75736. Function TSPFileVersionsEntitySet.List(const AQuery: TQueryParams; out NextLink: String) : TSPFileVersionArray;
  75737. begin
  75738. Result:=TSPFileVersionArray(GetMulti(AQuery,False,NextLink));
  75739. end;
  75740. Function TSPFileVersionsEntitySet.ListAll(const AQuery: String) : TSPFileVersionArray;
  75741. var N : String;
  75742. begin
  75743. Result:=TSPFileVersionArray(GetMulti(AQuery,True,N));
  75744. end;
  75745. Function TSPFileVersionsEntitySet.ListAll(const AQuery: TQueryParams) : TSPFileVersionArray;
  75746. var N : String;
  75747. begin
  75748. Result:=TSPFileVersionArray(GetMulti(AQuery,True,N));
  75749. end;
  75750. { --------------------------------------------------------------------
  75751. TSPFolders1EntitySet
  75752. --------------------------------------------------------------------}
  75753. Class Function TSPFolders1EntitySet.ObjectRestKind : String;
  75754. begin
  75755. Result:='Folders1';
  75756. end;
  75757. Class Function TSPFolders1EntitySet.EntityClass : TODataEntityClass;
  75758. begin
  75759. Result:=TSPFolder;
  75760. end;
  75761. Function TSPFolders1EntitySet.Get(const ServerRelativeUrl: string) : TSPFolder;
  75762. begin
  75763. Result:=TSPFolder(GetSingle(TODataObject.MakeKeyString(ServerRelativeUrl)));
  75764. end;
  75765. Function TSPFolders1EntitySet.List(const AQuery: String; out NextLink: String) : TSPFolderArray;
  75766. begin
  75767. Result:=TSPFolderArray(GetMulti(AQuery,False,NextLink));
  75768. end;
  75769. Function TSPFolders1EntitySet.List(const AQuery: TQueryParams; out NextLink: String) : TSPFolderArray;
  75770. begin
  75771. Result:=TSPFolderArray(GetMulti(AQuery,False,NextLink));
  75772. end;
  75773. Function TSPFolders1EntitySet.ListAll(const AQuery: String) : TSPFolderArray;
  75774. var N : String;
  75775. begin
  75776. Result:=TSPFolderArray(GetMulti(AQuery,True,N));
  75777. end;
  75778. Function TSPFolders1EntitySet.ListAll(const AQuery: TQueryParams) : TSPFolderArray;
  75779. var N : String;
  75780. begin
  75781. Result:=TSPFolderArray(GetMulti(AQuery,True,N));
  75782. end;
  75783. { --------------------------------------------------------------------
  75784. TSPFormsEntitySet
  75785. --------------------------------------------------------------------}
  75786. Class Function TSPFormsEntitySet.ObjectRestKind : String;
  75787. begin
  75788. Result:='Forms';
  75789. end;
  75790. Class Function TSPFormsEntitySet.EntityClass : TODataEntityClass;
  75791. begin
  75792. Result:=TSPForm;
  75793. end;
  75794. Function TSPFormsEntitySet.Get(const Id: TGUIDString) : TSPForm;
  75795. begin
  75796. Result:=TSPForm(GetSingle(TODataObject.MakeKeyString(Id)));
  75797. end;
  75798. Function TSPFormsEntitySet.List(const AQuery: String; out NextLink: String) : TSPFormArray;
  75799. begin
  75800. Result:=TSPFormArray(GetMulti(AQuery,False,NextLink));
  75801. end;
  75802. Function TSPFormsEntitySet.List(const AQuery: TQueryParams; out NextLink: String) : TSPFormArray;
  75803. begin
  75804. Result:=TSPFormArray(GetMulti(AQuery,False,NextLink));
  75805. end;
  75806. Function TSPFormsEntitySet.ListAll(const AQuery: String) : TSPFormArray;
  75807. var N : String;
  75808. begin
  75809. Result:=TSPFormArray(GetMulti(AQuery,True,N));
  75810. end;
  75811. Function TSPFormsEntitySet.ListAll(const AQuery: TQueryParams) : TSPFormArray;
  75812. var N : String;
  75813. begin
  75814. Result:=TSPFormArray(GetMulti(AQuery,True,N));
  75815. end;
  75816. { --------------------------------------------------------------------
  75817. TSPGroups1EntitySet
  75818. --------------------------------------------------------------------}
  75819. Class Function TSPGroups1EntitySet.ObjectRestKind : String;
  75820. begin
  75821. Result:='Groups1';
  75822. end;
  75823. Class Function TSPGroups1EntitySet.EntityClass : TODataEntityClass;
  75824. begin
  75825. Result:=TSPGroup;
  75826. end;
  75827. Function TSPGroups1EntitySet.Get(const Id: TInt32) : TSPGroup;
  75828. begin
  75829. Result:=TSPGroup(GetSingle(IntToStr(Id)));
  75830. end;
  75831. Function TSPGroups1EntitySet.List(const AQuery: String; out NextLink: String) : TSPGroupArray;
  75832. begin
  75833. Result:=TSPGroupArray(GetMulti(AQuery,False,NextLink));
  75834. end;
  75835. Function TSPGroups1EntitySet.List(const AQuery: TQueryParams; out NextLink: String) : TSPGroupArray;
  75836. begin
  75837. Result:=TSPGroupArray(GetMulti(AQuery,False,NextLink));
  75838. end;
  75839. Function TSPGroups1EntitySet.ListAll(const AQuery: String) : TSPGroupArray;
  75840. var N : String;
  75841. begin
  75842. Result:=TSPGroupArray(GetMulti(AQuery,True,N));
  75843. end;
  75844. Function TSPGroups1EntitySet.ListAll(const AQuery: TQueryParams) : TSPGroupArray;
  75845. var N : String;
  75846. begin
  75847. Result:=TSPGroupArray(GetMulti(AQuery,True,N));
  75848. end;
  75849. { --------------------------------------------------------------------
  75850. TSPInformationRightsManagementSettingssEntitySet
  75851. --------------------------------------------------------------------}
  75852. Class Function TSPInformationRightsManagementSettingssEntitySet.ObjectRestKind : String;
  75853. begin
  75854. Result:='InformationRightsManagementSettingss';
  75855. end;
  75856. Class Function TSPInformationRightsManagementSettingssEntitySet.EntityClass : TODataEntityClass;
  75857. begin
  75858. Result:=TSPInformationRightsManagementSettings;
  75859. end;
  75860. Function TSPInformationRightsManagementSettingssEntitySet.Get(const AllowPrint: boolean) : TSPInformationRightsManagementSettings;
  75861. begin
  75862. Result:=TSPInformationRightsManagementSettings(GetSingle(BoolToStr(AllowPrint,'true','false')));
  75863. end;
  75864. Function TSPInformationRightsManagementSettingssEntitySet.List(const AQuery: String; out NextLink: String) : TSPInformationRightsManagementSettingsArray;
  75865. begin
  75866. Result:=TSPInformationRightsManagementSettingsArray(GetMulti(AQuery,False,NextLink));
  75867. end;
  75868. Function TSPInformationRightsManagementSettingssEntitySet.List(const AQuery: TQueryParams; out NextLink: String) : TSPInformationRightsManagementSettingsArray;
  75869. begin
  75870. Result:=TSPInformationRightsManagementSettingsArray(GetMulti(AQuery,False,NextLink));
  75871. end;
  75872. Function TSPInformationRightsManagementSettingssEntitySet.ListAll(const AQuery: String) : TSPInformationRightsManagementSettingsArray;
  75873. var N : String;
  75874. begin
  75875. Result:=TSPInformationRightsManagementSettingsArray(GetMulti(AQuery,True,N));
  75876. end;
  75877. Function TSPInformationRightsManagementSettingssEntitySet.ListAll(const AQuery: TQueryParams) : TSPInformationRightsManagementSettingsArray;
  75878. var N : String;
  75879. begin
  75880. Result:=TSPInformationRightsManagementSettingsArray(GetMulti(AQuery,True,N));
  75881. end;
  75882. { --------------------------------------------------------------------
  75883. TSPListItemsEntitySet
  75884. --------------------------------------------------------------------}
  75885. Class Function TSPListItemsEntitySet.ObjectRestKind : String;
  75886. begin
  75887. Result:='ListItems';
  75888. end;
  75889. Class Function TSPListItemsEntitySet.EntityClass : TODataEntityClass;
  75890. begin
  75891. Result:=TSPListItem;
  75892. end;
  75893. Function TSPListItemsEntitySet.Get(const HasUniqueRoleAssignments: boolean) : TSPListItem;
  75894. begin
  75895. Result:=TSPListItem(GetSingle(BoolToStr(HasUniqueRoleAssignments,'true','false')));
  75896. end;
  75897. Function TSPListItemsEntitySet.List(const AQuery: String; out NextLink: String) : TSPListItemArray;
  75898. begin
  75899. Result:=TSPListItemArray(GetMulti(AQuery,False,NextLink));
  75900. end;
  75901. Function TSPListItemsEntitySet.List(const AQuery: TQueryParams; out NextLink: String) : TSPListItemArray;
  75902. begin
  75903. Result:=TSPListItemArray(GetMulti(AQuery,False,NextLink));
  75904. end;
  75905. Function TSPListItemsEntitySet.ListAll(const AQuery: String) : TSPListItemArray;
  75906. var N : String;
  75907. begin
  75908. Result:=TSPListItemArray(GetMulti(AQuery,True,N));
  75909. end;
  75910. Function TSPListItemsEntitySet.ListAll(const AQuery: TQueryParams) : TSPListItemArray;
  75911. var N : String;
  75912. begin
  75913. Result:=TSPListItemArray(GetMulti(AQuery,True,N));
  75914. end;
  75915. { --------------------------------------------------------------------
  75916. TSPListTemplatesEntitySet
  75917. --------------------------------------------------------------------}
  75918. Class Function TSPListTemplatesEntitySet.ObjectRestKind : String;
  75919. begin
  75920. Result:='ListTemplates';
  75921. end;
  75922. Class Function TSPListTemplatesEntitySet.EntityClass : TODataEntityClass;
  75923. begin
  75924. Result:=TSPListTemplate;
  75925. end;
  75926. Function TSPListTemplatesEntitySet.Get(const _Name: string) : TSPListTemplate;
  75927. begin
  75928. Result:=TSPListTemplate(GetSingle(TODataObject.MakeKeyString(_Name)));
  75929. end;
  75930. Function TSPListTemplatesEntitySet.List(const AQuery: String; out NextLink: String) : TSPListTemplateArray;
  75931. begin
  75932. Result:=TSPListTemplateArray(GetMulti(AQuery,False,NextLink));
  75933. end;
  75934. Function TSPListTemplatesEntitySet.List(const AQuery: TQueryParams; out NextLink: String) : TSPListTemplateArray;
  75935. begin
  75936. Result:=TSPListTemplateArray(GetMulti(AQuery,False,NextLink));
  75937. end;
  75938. Function TSPListTemplatesEntitySet.ListAll(const AQuery: String) : TSPListTemplateArray;
  75939. var N : String;
  75940. begin
  75941. Result:=TSPListTemplateArray(GetMulti(AQuery,True,N));
  75942. end;
  75943. Function TSPListTemplatesEntitySet.ListAll(const AQuery: TQueryParams) : TSPListTemplateArray;
  75944. var N : String;
  75945. begin
  75946. Result:=TSPListTemplateArray(GetMulti(AQuery,True,N));
  75947. end;
  75948. { --------------------------------------------------------------------
  75949. TSPMicrofeedAttachmentStoresEntitySet
  75950. --------------------------------------------------------------------}
  75951. Class Function TSPMicrofeedAttachmentStoresEntitySet.ObjectRestKind : String;
  75952. begin
  75953. Result:='MicrofeedAttachmentStores';
  75954. end;
  75955. Class Function TSPMicrofeedAttachmentStoresEntitySet.EntityClass : TODataEntityClass;
  75956. begin
  75957. Result:=TSP_MicrofeedMicrofeedAttachmentStore;
  75958. end;
  75959. Function TSPMicrofeedAttachmentStoresEntitySet.Get(const Id4a81de82eeb94d6080ea5bf63e27023a: string) : TSP_MicrofeedMicrofeedAttachmentStore;
  75960. begin
  75961. Result:=TSP_MicrofeedMicrofeedAttachmentStore(GetSingle(TODataObject.MakeKeyString(Id4a81de82eeb94d6080ea5bf63e27023a)));
  75962. end;
  75963. Function TSPMicrofeedAttachmentStoresEntitySet.List(const AQuery: String; out NextLink: String) : TSP_MicrofeedMicrofeedAttachmentStoreArray;
  75964. begin
  75965. Result:=TSP_MicrofeedMicrofeedAttachmentStoreArray(GetMulti(AQuery,False,NextLink));
  75966. end;
  75967. Function TSPMicrofeedAttachmentStoresEntitySet.List(const AQuery: TQueryParams; out NextLink: String) : TSP_MicrofeedMicrofeedAttachmentStoreArray;
  75968. begin
  75969. Result:=TSP_MicrofeedMicrofeedAttachmentStoreArray(GetMulti(AQuery,False,NextLink));
  75970. end;
  75971. Function TSPMicrofeedAttachmentStoresEntitySet.ListAll(const AQuery: String) : TSP_MicrofeedMicrofeedAttachmentStoreArray;
  75972. var N : String;
  75973. begin
  75974. Result:=TSP_MicrofeedMicrofeedAttachmentStoreArray(GetMulti(AQuery,True,N));
  75975. end;
  75976. Function TSPMicrofeedAttachmentStoresEntitySet.ListAll(const AQuery: TQueryParams) : TSP_MicrofeedMicrofeedAttachmentStoreArray;
  75977. var N : String;
  75978. begin
  75979. Result:=TSP_MicrofeedMicrofeedAttachmentStoreArray(GetMulti(AQuery,True,N));
  75980. end;
  75981. { --------------------------------------------------------------------
  75982. TSPMicrofeedDatasEntitySet
  75983. --------------------------------------------------------------------}
  75984. Class Function TSPMicrofeedDatasEntitySet.ObjectRestKind : String;
  75985. begin
  75986. Result:='MicrofeedDatas';
  75987. end;
  75988. Class Function TSPMicrofeedDatasEntitySet.EntityClass : TODataEntityClass;
  75989. begin
  75990. Result:=TSP_MicrofeedMicrofeedData;
  75991. end;
  75992. Function TSPMicrofeedDatasEntitySet.Get(const Created: TDateTime) : TSP_MicrofeedMicrofeedData;
  75993. begin
  75994. Result:=TSP_MicrofeedMicrofeedData(GetSingle(FormatDateTime('yyyy-mm-dd"T"hhmmss',Created)));
  75995. end;
  75996. Function TSPMicrofeedDatasEntitySet.List(const AQuery: String; out NextLink: String) : TSP_MicrofeedMicrofeedDataArray;
  75997. begin
  75998. Result:=TSP_MicrofeedMicrofeedDataArray(GetMulti(AQuery,False,NextLink));
  75999. end;
  76000. Function TSPMicrofeedDatasEntitySet.List(const AQuery: TQueryParams; out NextLink: String) : TSP_MicrofeedMicrofeedDataArray;
  76001. begin
  76002. Result:=TSP_MicrofeedMicrofeedDataArray(GetMulti(AQuery,False,NextLink));
  76003. end;
  76004. Function TSPMicrofeedDatasEntitySet.ListAll(const AQuery: String) : TSP_MicrofeedMicrofeedDataArray;
  76005. var N : String;
  76006. begin
  76007. Result:=TSP_MicrofeedMicrofeedDataArray(GetMulti(AQuery,True,N));
  76008. end;
  76009. Function TSPMicrofeedDatasEntitySet.ListAll(const AQuery: TQueryParams) : TSP_MicrofeedMicrofeedDataArray;
  76010. var N : String;
  76011. begin
  76012. Result:=TSP_MicrofeedMicrofeedDataArray(GetMulti(AQuery,True,N));
  76013. end;
  76014. { --------------------------------------------------------------------
  76015. TSPMicrofeedManagersEntitySet
  76016. --------------------------------------------------------------------}
  76017. Class Function TSPMicrofeedManagersEntitySet.ObjectRestKind : String;
  76018. begin
  76019. Result:='MicrofeedManagers';
  76020. end;
  76021. Class Function TSPMicrofeedManagersEntitySet.EntityClass : TODataEntityClass;
  76022. begin
  76023. Result:=TSP_MicrofeedMicrofeedManager;
  76024. end;
  76025. Function TSPMicrofeedManagersEntitySet.Get(const IsFeedActivityPublic: boolean) : TSP_MicrofeedMicrofeedManager;
  76026. begin
  76027. Result:=TSP_MicrofeedMicrofeedManager(GetSingle(BoolToStr(IsFeedActivityPublic,'true','false')));
  76028. end;
  76029. Function TSPMicrofeedManagersEntitySet.List(const AQuery: String; out NextLink: String) : TSP_MicrofeedMicrofeedManagerArray;
  76030. begin
  76031. Result:=TSP_MicrofeedMicrofeedManagerArray(GetMulti(AQuery,False,NextLink));
  76032. end;
  76033. Function TSPMicrofeedManagersEntitySet.List(const AQuery: TQueryParams; out NextLink: String) : TSP_MicrofeedMicrofeedManagerArray;
  76034. begin
  76035. Result:=TSP_MicrofeedMicrofeedManagerArray(GetMulti(AQuery,False,NextLink));
  76036. end;
  76037. Function TSPMicrofeedManagersEntitySet.ListAll(const AQuery: String) : TSP_MicrofeedMicrofeedManagerArray;
  76038. var N : String;
  76039. begin
  76040. Result:=TSP_MicrofeedMicrofeedManagerArray(GetMulti(AQuery,True,N));
  76041. end;
  76042. Function TSPMicrofeedManagersEntitySet.ListAll(const AQuery: TQueryParams) : TSP_MicrofeedMicrofeedManagerArray;
  76043. var N : String;
  76044. begin
  76045. Result:=TSP_MicrofeedMicrofeedManagerArray(GetMulti(AQuery,True,N));
  76046. end;
  76047. { --------------------------------------------------------------------
  76048. TSPMicrofeedPostDefinitionManagersEntitySet
  76049. --------------------------------------------------------------------}
  76050. Class Function TSPMicrofeedPostDefinitionManagersEntitySet.ObjectRestKind : String;
  76051. begin
  76052. Result:='MicrofeedPostDefinitionManagers';
  76053. end;
  76054. Class Function TSPMicrofeedPostDefinitionManagersEntitySet.EntityClass : TODataEntityClass;
  76055. begin
  76056. Result:=TSP_MicrofeedMicrofeedPostDefinitionManager;
  76057. end;
  76058. Function TSPMicrofeedPostDefinitionManagersEntitySet.Get(const Id4a81de82eeb94d6080ea5bf63e27023a: string) : TSP_MicrofeedMicrofeedPostDefinitionManager;
  76059. begin
  76060. Result:=TSP_MicrofeedMicrofeedPostDefinitionManager(GetSingle(TODataObject.MakeKeyString(Id4a81de82eeb94d6080ea5bf63e27023a)));
  76061. end;
  76062. Function TSPMicrofeedPostDefinitionManagersEntitySet.List(const AQuery: String; out NextLink: String) : TSP_MicrofeedMicrofeedPostDefinitionManagerArray;
  76063. begin
  76064. Result:=TSP_MicrofeedMicrofeedPostDefinitionManagerArray(GetMulti(AQuery,False,NextLink));
  76065. end;
  76066. Function TSPMicrofeedPostDefinitionManagersEntitySet.List(const AQuery: TQueryParams; out NextLink: String) : TSP_MicrofeedMicrofeedPostDefinitionManagerArray;
  76067. begin
  76068. Result:=TSP_MicrofeedMicrofeedPostDefinitionManagerArray(GetMulti(AQuery,False,NextLink));
  76069. end;
  76070. Function TSPMicrofeedPostDefinitionManagersEntitySet.ListAll(const AQuery: String) : TSP_MicrofeedMicrofeedPostDefinitionManagerArray;
  76071. var N : String;
  76072. begin
  76073. Result:=TSP_MicrofeedMicrofeedPostDefinitionManagerArray(GetMulti(AQuery,True,N));
  76074. end;
  76075. Function TSPMicrofeedPostDefinitionManagersEntitySet.ListAll(const AQuery: TQueryParams) : TSP_MicrofeedMicrofeedPostDefinitionManagerArray;
  76076. var N : String;
  76077. begin
  76078. Result:=TSP_MicrofeedMicrofeedPostDefinitionManagerArray(GetMulti(AQuery,True,N));
  76079. end;
  76080. { --------------------------------------------------------------------
  76081. TSPMicrofeedPostOptionCollectionsEntitySet
  76082. --------------------------------------------------------------------}
  76083. Class Function TSPMicrofeedPostOptionCollectionsEntitySet.ObjectRestKind : String;
  76084. begin
  76085. Result:='MicrofeedPostOptionCollections';
  76086. end;
  76087. Class Function TSPMicrofeedPostOptionCollectionsEntitySet.EntityClass : TODataEntityClass;
  76088. begin
  76089. Result:=TSP_MicrofeedMicrofeedPostOptionCollection;
  76090. end;
  76091. Function TSPMicrofeedPostOptionCollectionsEntitySet.Get(const Id4a81de82eeb94d6080ea5bf63e27023a: string) : TSP_MicrofeedMicrofeedPostOptionCollection;
  76092. begin
  76093. Result:=TSP_MicrofeedMicrofeedPostOptionCollection(GetSingle(TODataObject.MakeKeyString(Id4a81de82eeb94d6080ea5bf63e27023a)));
  76094. end;
  76095. Function TSPMicrofeedPostOptionCollectionsEntitySet.List(const AQuery: String; out NextLink: String) : TSP_MicrofeedMicrofeedPostOptionCollectionArray;
  76096. begin
  76097. Result:=TSP_MicrofeedMicrofeedPostOptionCollectionArray(GetMulti(AQuery,False,NextLink));
  76098. end;
  76099. Function TSPMicrofeedPostOptionCollectionsEntitySet.List(const AQuery: TQueryParams; out NextLink: String) : TSP_MicrofeedMicrofeedPostOptionCollectionArray;
  76100. begin
  76101. Result:=TSP_MicrofeedMicrofeedPostOptionCollectionArray(GetMulti(AQuery,False,NextLink));
  76102. end;
  76103. Function TSPMicrofeedPostOptionCollectionsEntitySet.ListAll(const AQuery: String) : TSP_MicrofeedMicrofeedPostOptionCollectionArray;
  76104. var N : String;
  76105. begin
  76106. Result:=TSP_MicrofeedMicrofeedPostOptionCollectionArray(GetMulti(AQuery,True,N));
  76107. end;
  76108. Function TSPMicrofeedPostOptionCollectionsEntitySet.ListAll(const AQuery: TQueryParams) : TSP_MicrofeedMicrofeedPostOptionCollectionArray;
  76109. var N : String;
  76110. begin
  76111. Result:=TSP_MicrofeedMicrofeedPostOptionCollectionArray(GetMulti(AQuery,True,N));
  76112. end;
  76113. { --------------------------------------------------------------------
  76114. TSPMicrofeedStoresEntitySet
  76115. --------------------------------------------------------------------}
  76116. Class Function TSPMicrofeedStoresEntitySet.ObjectRestKind : String;
  76117. begin
  76118. Result:='MicrofeedStores';
  76119. end;
  76120. Class Function TSPMicrofeedStoresEntitySet.EntityClass : TODataEntityClass;
  76121. begin
  76122. Result:=TSP_MicrofeedMicrofeedStore;
  76123. end;
  76124. Function TSPMicrofeedStoresEntitySet.Get(const Id4a81de82eeb94d6080ea5bf63e27023a: string) : TSP_MicrofeedMicrofeedStore;
  76125. begin
  76126. Result:=TSP_MicrofeedMicrofeedStore(GetSingle(TODataObject.MakeKeyString(Id4a81de82eeb94d6080ea5bf63e27023a)));
  76127. end;
  76128. Function TSPMicrofeedStoresEntitySet.List(const AQuery: String; out NextLink: String) : TSP_MicrofeedMicrofeedStoreArray;
  76129. begin
  76130. Result:=TSP_MicrofeedMicrofeedStoreArray(GetMulti(AQuery,False,NextLink));
  76131. end;
  76132. Function TSPMicrofeedStoresEntitySet.List(const AQuery: TQueryParams; out NextLink: String) : TSP_MicrofeedMicrofeedStoreArray;
  76133. begin
  76134. Result:=TSP_MicrofeedMicrofeedStoreArray(GetMulti(AQuery,False,NextLink));
  76135. end;
  76136. Function TSPMicrofeedStoresEntitySet.ListAll(const AQuery: String) : TSP_MicrofeedMicrofeedStoreArray;
  76137. var N : String;
  76138. begin
  76139. Result:=TSP_MicrofeedMicrofeedStoreArray(GetMulti(AQuery,True,N));
  76140. end;
  76141. Function TSPMicrofeedStoresEntitySet.ListAll(const AQuery: TQueryParams) : TSP_MicrofeedMicrofeedStoreArray;
  76142. var N : String;
  76143. begin
  76144. Result:=TSP_MicrofeedMicrofeedStoreArray(GetMulti(AQuery,True,N));
  76145. end;
  76146. { --------------------------------------------------------------------
  76147. TSPMountedFolderInfosEntitySet
  76148. --------------------------------------------------------------------}
  76149. Class Function TSPMountedFolderInfosEntitySet.ObjectRestKind : String;
  76150. begin
  76151. Result:='MountedFolderInfos';
  76152. end;
  76153. Class Function TSPMountedFolderInfosEntitySet.EntityClass : TODataEntityClass;
  76154. begin
  76155. Result:=TSPMountedFolderInfo;
  76156. end;
  76157. Function TSPMountedFolderInfosEntitySet.Get(const FolderUrl: string) : TSPMountedFolderInfo;
  76158. begin
  76159. Result:=TSPMountedFolderInfo(GetSingle(TODataObject.MakeKeyString(FolderUrl)));
  76160. end;
  76161. Function TSPMountedFolderInfosEntitySet.List(const AQuery: String; out NextLink: String) : TSPMountedFolderInfoArray;
  76162. begin
  76163. Result:=TSPMountedFolderInfoArray(GetMulti(AQuery,False,NextLink));
  76164. end;
  76165. Function TSPMountedFolderInfosEntitySet.List(const AQuery: TQueryParams; out NextLink: String) : TSPMountedFolderInfoArray;
  76166. begin
  76167. Result:=TSPMountedFolderInfoArray(GetMulti(AQuery,False,NextLink));
  76168. end;
  76169. Function TSPMountedFolderInfosEntitySet.ListAll(const AQuery: String) : TSPMountedFolderInfoArray;
  76170. var N : String;
  76171. begin
  76172. Result:=TSPMountedFolderInfoArray(GetMulti(AQuery,True,N));
  76173. end;
  76174. Function TSPMountedFolderInfosEntitySet.ListAll(const AQuery: TQueryParams) : TSPMountedFolderInfoArray;
  76175. var N : String;
  76176. begin
  76177. Result:=TSPMountedFolderInfoArray(GetMulti(AQuery,True,N));
  76178. end;
  76179. { --------------------------------------------------------------------
  76180. TSPMountPointsEntitySet
  76181. --------------------------------------------------------------------}
  76182. Class Function TSPMountPointsEntitySet.ObjectRestKind : String;
  76183. begin
  76184. Result:='MountPoints';
  76185. end;
  76186. Class Function TSPMountPointsEntitySet.EntityClass : TODataEntityClass;
  76187. begin
  76188. Result:=TSPMountPoint;
  76189. end;
  76190. Function TSPMountPointsEntitySet.Get(const Id4a81de82eeb94d6080ea5bf63e27023a: string) : TSPMountPoint;
  76191. begin
  76192. Result:=TSPMountPoint(GetSingle(TODataObject.MakeKeyString(Id4a81de82eeb94d6080ea5bf63e27023a)));
  76193. end;
  76194. Function TSPMountPointsEntitySet.List(const AQuery: String; out NextLink: String) : TSPMountPointArray;
  76195. begin
  76196. Result:=TSPMountPointArray(GetMulti(AQuery,False,NextLink));
  76197. end;
  76198. Function TSPMountPointsEntitySet.List(const AQuery: TQueryParams; out NextLink: String) : TSPMountPointArray;
  76199. begin
  76200. Result:=TSPMountPointArray(GetMulti(AQuery,False,NextLink));
  76201. end;
  76202. Function TSPMountPointsEntitySet.ListAll(const AQuery: String) : TSPMountPointArray;
  76203. var N : String;
  76204. begin
  76205. Result:=TSPMountPointArray(GetMulti(AQuery,True,N));
  76206. end;
  76207. Function TSPMountPointsEntitySet.ListAll(const AQuery: TQueryParams) : TSPMountPointArray;
  76208. var N : String;
  76209. begin
  76210. Result:=TSPMountPointArray(GetMulti(AQuery,True,N));
  76211. end;
  76212. { --------------------------------------------------------------------
  76213. TSPMountPointInfosEntitySet
  76214. --------------------------------------------------------------------}
  76215. Class Function TSPMountPointInfosEntitySet.ObjectRestKind : String;
  76216. begin
  76217. Result:='MountPointInfos';
  76218. end;
  76219. Class Function TSPMountPointInfosEntitySet.EntityClass : TODataEntityClass;
  76220. begin
  76221. Result:=TSPMountPointInfo;
  76222. end;
  76223. Function TSPMountPointInfosEntitySet.Get(const _Name: string) : TSPMountPointInfo;
  76224. begin
  76225. Result:=TSPMountPointInfo(GetSingle(TODataObject.MakeKeyString(_Name)));
  76226. end;
  76227. Function TSPMountPointInfosEntitySet.List(const AQuery: String; out NextLink: String) : TSPMountPointInfoArray;
  76228. begin
  76229. Result:=TSPMountPointInfoArray(GetMulti(AQuery,False,NextLink));
  76230. end;
  76231. Function TSPMountPointInfosEntitySet.List(const AQuery: TQueryParams; out NextLink: String) : TSPMountPointInfoArray;
  76232. begin
  76233. Result:=TSPMountPointInfoArray(GetMulti(AQuery,False,NextLink));
  76234. end;
  76235. Function TSPMountPointInfosEntitySet.ListAll(const AQuery: String) : TSPMountPointInfoArray;
  76236. var N : String;
  76237. begin
  76238. Result:=TSPMountPointInfoArray(GetMulti(AQuery,True,N));
  76239. end;
  76240. Function TSPMountPointInfosEntitySet.ListAll(const AQuery: TQueryParams) : TSPMountPointInfoArray;
  76241. var N : String;
  76242. begin
  76243. Result:=TSPMountPointInfoArray(GetMulti(AQuery,True,N));
  76244. end;
  76245. { --------------------------------------------------------------------
  76246. TSPMoveCopyUtilsEntitySet
  76247. --------------------------------------------------------------------}
  76248. Class Function TSPMoveCopyUtilsEntitySet.ObjectRestKind : String;
  76249. begin
  76250. Result:='MoveCopyUtils';
  76251. end;
  76252. Class Function TSPMoveCopyUtilsEntitySet.EntityClass : TODataEntityClass;
  76253. begin
  76254. Result:=TSPMoveCopyUtil;
  76255. end;
  76256. Function TSPMoveCopyUtilsEntitySet.Get(const Id4a81de82eeb94d6080ea5bf63e27023a: string) : TSPMoveCopyUtil;
  76257. begin
  76258. Result:=TSPMoveCopyUtil(GetSingle(TODataObject.MakeKeyString(Id4a81de82eeb94d6080ea5bf63e27023a)));
  76259. end;
  76260. Function TSPMoveCopyUtilsEntitySet.List(const AQuery: String; out NextLink: String) : TSPMoveCopyUtilArray;
  76261. begin
  76262. Result:=TSPMoveCopyUtilArray(GetMulti(AQuery,False,NextLink));
  76263. end;
  76264. Function TSPMoveCopyUtilsEntitySet.List(const AQuery: TQueryParams; out NextLink: String) : TSPMoveCopyUtilArray;
  76265. begin
  76266. Result:=TSPMoveCopyUtilArray(GetMulti(AQuery,False,NextLink));
  76267. end;
  76268. Function TSPMoveCopyUtilsEntitySet.ListAll(const AQuery: String) : TSPMoveCopyUtilArray;
  76269. var N : String;
  76270. begin
  76271. Result:=TSPMoveCopyUtilArray(GetMulti(AQuery,True,N));
  76272. end;
  76273. Function TSPMoveCopyUtilsEntitySet.ListAll(const AQuery: TQueryParams) : TSPMoveCopyUtilArray;
  76274. var N : String;
  76275. begin
  76276. Result:=TSPMoveCopyUtilArray(GetMulti(AQuery,True,N));
  76277. end;
  76278. { --------------------------------------------------------------------
  76279. TSPNavigationsEntitySet
  76280. --------------------------------------------------------------------}
  76281. Class Function TSPNavigationsEntitySet.ObjectRestKind : String;
  76282. begin
  76283. Result:='Navigations';
  76284. end;
  76285. Class Function TSPNavigationsEntitySet.EntityClass : TODataEntityClass;
  76286. begin
  76287. Result:=TSPNavigation;
  76288. end;
  76289. Function TSPNavigationsEntitySet.Get(const UseShared: boolean) : TSPNavigation;
  76290. begin
  76291. Result:=TSPNavigation(GetSingle(BoolToStr(UseShared,'true','false')));
  76292. end;
  76293. Function TSPNavigationsEntitySet.List(const AQuery: String; out NextLink: String) : TSPNavigationArray;
  76294. begin
  76295. Result:=TSPNavigationArray(GetMulti(AQuery,False,NextLink));
  76296. end;
  76297. Function TSPNavigationsEntitySet.List(const AQuery: TQueryParams; out NextLink: String) : TSPNavigationArray;
  76298. begin
  76299. Result:=TSPNavigationArray(GetMulti(AQuery,False,NextLink));
  76300. end;
  76301. Function TSPNavigationsEntitySet.ListAll(const AQuery: String) : TSPNavigationArray;
  76302. var N : String;
  76303. begin
  76304. Result:=TSPNavigationArray(GetMulti(AQuery,True,N));
  76305. end;
  76306. Function TSPNavigationsEntitySet.ListAll(const AQuery: TQueryParams) : TSPNavigationArray;
  76307. var N : String;
  76308. begin
  76309. Result:=TSPNavigationArray(GetMulti(AQuery,True,N));
  76310. end;
  76311. { --------------------------------------------------------------------
  76312. TSPNavigationNodesEntitySet
  76313. --------------------------------------------------------------------}
  76314. Class Function TSPNavigationNodesEntitySet.ObjectRestKind : String;
  76315. begin
  76316. Result:='NavigationNodes';
  76317. end;
  76318. Class Function TSPNavigationNodesEntitySet.EntityClass : TODataEntityClass;
  76319. begin
  76320. Result:=TSPNavigationNode;
  76321. end;
  76322. Function TSPNavigationNodesEntitySet.Get(const Id: TInt32) : TSPNavigationNode;
  76323. begin
  76324. Result:=TSPNavigationNode(GetSingle(IntToStr(Id)));
  76325. end;
  76326. Function TSPNavigationNodesEntitySet.List(const AQuery: String; out NextLink: String) : TSPNavigationNodeArray;
  76327. begin
  76328. Result:=TSPNavigationNodeArray(GetMulti(AQuery,False,NextLink));
  76329. end;
  76330. Function TSPNavigationNodesEntitySet.List(const AQuery: TQueryParams; out NextLink: String) : TSPNavigationNodeArray;
  76331. begin
  76332. Result:=TSPNavigationNodeArray(GetMulti(AQuery,False,NextLink));
  76333. end;
  76334. Function TSPNavigationNodesEntitySet.ListAll(const AQuery: String) : TSPNavigationNodeArray;
  76335. var N : String;
  76336. begin
  76337. Result:=TSPNavigationNodeArray(GetMulti(AQuery,True,N));
  76338. end;
  76339. Function TSPNavigationNodesEntitySet.ListAll(const AQuery: TQueryParams) : TSPNavigationNodeArray;
  76340. var N : String;
  76341. begin
  76342. Result:=TSPNavigationNodeArray(GetMulti(AQuery,True,N));
  76343. end;
  76344. { --------------------------------------------------------------------
  76345. TSPNativeClientsEntitySet
  76346. --------------------------------------------------------------------}
  76347. Class Function TSPNativeClientsEntitySet.ObjectRestKind : String;
  76348. begin
  76349. Result:='NativeClients';
  76350. end;
  76351. Class Function TSPNativeClientsEntitySet.EntityClass : TODataEntityClass;
  76352. begin
  76353. Result:=TSP_OAuthNativeClient;
  76354. end;
  76355. Function TSPNativeClientsEntitySet.Get(const Id4a81de82eeb94d6080ea5bf63e27023a: string) : TSP_OAuthNativeClient;
  76356. begin
  76357. Result:=TSP_OAuthNativeClient(GetSingle(TODataObject.MakeKeyString(Id4a81de82eeb94d6080ea5bf63e27023a)));
  76358. end;
  76359. Function TSPNativeClientsEntitySet.List(const AQuery: String; out NextLink: String) : TSP_OAuthNativeClientArray;
  76360. begin
  76361. Result:=TSP_OAuthNativeClientArray(GetMulti(AQuery,False,NextLink));
  76362. end;
  76363. Function TSPNativeClientsEntitySet.List(const AQuery: TQueryParams; out NextLink: String) : TSP_OAuthNativeClientArray;
  76364. begin
  76365. Result:=TSP_OAuthNativeClientArray(GetMulti(AQuery,False,NextLink));
  76366. end;
  76367. Function TSPNativeClientsEntitySet.ListAll(const AQuery: String) : TSP_OAuthNativeClientArray;
  76368. var N : String;
  76369. begin
  76370. Result:=TSP_OAuthNativeClientArray(GetMulti(AQuery,True,N));
  76371. end;
  76372. Function TSPNativeClientsEntitySet.ListAll(const AQuery: TQueryParams) : TSP_OAuthNativeClientArray;
  76373. var N : String;
  76374. begin
  76375. Result:=TSP_OAuthNativeClientArray(GetMulti(AQuery,True,N));
  76376. end;
  76377. { --------------------------------------------------------------------
  76378. TSPObjectSharingInformationsEntitySet
  76379. --------------------------------------------------------------------}
  76380. Class Function TSPObjectSharingInformationsEntitySet.ObjectRestKind : String;
  76381. begin
  76382. Result:='ObjectSharingInformations';
  76383. end;
  76384. Class Function TSPObjectSharingInformationsEntitySet.EntityClass : TODataEntityClass;
  76385. begin
  76386. Result:=TSPObjectSharingInformation;
  76387. end;
  76388. Function TSPObjectSharingInformationsEntitySet.Get(const AnonymousEditLink: string) : TSPObjectSharingInformation;
  76389. begin
  76390. Result:=TSPObjectSharingInformation(GetSingle(TODataObject.MakeKeyString(AnonymousEditLink)));
  76391. end;
  76392. Function TSPObjectSharingInformationsEntitySet.List(const AQuery: String; out NextLink: String) : TSPObjectSharingInformationArray;
  76393. begin
  76394. Result:=TSPObjectSharingInformationArray(GetMulti(AQuery,False,NextLink));
  76395. end;
  76396. Function TSPObjectSharingInformationsEntitySet.List(const AQuery: TQueryParams; out NextLink: String) : TSPObjectSharingInformationArray;
  76397. begin
  76398. Result:=TSPObjectSharingInformationArray(GetMulti(AQuery,False,NextLink));
  76399. end;
  76400. Function TSPObjectSharingInformationsEntitySet.ListAll(const AQuery: String) : TSPObjectSharingInformationArray;
  76401. var N : String;
  76402. begin
  76403. Result:=TSPObjectSharingInformationArray(GetMulti(AQuery,True,N));
  76404. end;
  76405. Function TSPObjectSharingInformationsEntitySet.ListAll(const AQuery: TQueryParams) : TSPObjectSharingInformationArray;
  76406. var N : String;
  76407. begin
  76408. Result:=TSPObjectSharingInformationArray(GetMulti(AQuery,True,N));
  76409. end;
  76410. { --------------------------------------------------------------------
  76411. TSPObjectSharingInformationUsersEntitySet
  76412. --------------------------------------------------------------------}
  76413. Class Function TSPObjectSharingInformationUsersEntitySet.ObjectRestKind : String;
  76414. begin
  76415. Result:='ObjectSharingInformationUsers';
  76416. end;
  76417. Class Function TSPObjectSharingInformationUsersEntitySet.EntityClass : TODataEntityClass;
  76418. begin
  76419. Result:=TSPObjectSharingInformationUser;
  76420. end;
  76421. Function TSPObjectSharingInformationUsersEntitySet.Get(const Id: TInt32) : TSPObjectSharingInformationUser;
  76422. begin
  76423. Result:=TSPObjectSharingInformationUser(GetSingle(IntToStr(Id)));
  76424. end;
  76425. Function TSPObjectSharingInformationUsersEntitySet.List(const AQuery: String; out NextLink: String) : TSPObjectSharingInformationUserArray;
  76426. begin
  76427. Result:=TSPObjectSharingInformationUserArray(GetMulti(AQuery,False,NextLink));
  76428. end;
  76429. Function TSPObjectSharingInformationUsersEntitySet.List(const AQuery: TQueryParams; out NextLink: String) : TSPObjectSharingInformationUserArray;
  76430. begin
  76431. Result:=TSPObjectSharingInformationUserArray(GetMulti(AQuery,False,NextLink));
  76432. end;
  76433. Function TSPObjectSharingInformationUsersEntitySet.ListAll(const AQuery: String) : TSPObjectSharingInformationUserArray;
  76434. var N : String;
  76435. begin
  76436. Result:=TSPObjectSharingInformationUserArray(GetMulti(AQuery,True,N));
  76437. end;
  76438. Function TSPObjectSharingInformationUsersEntitySet.ListAll(const AQuery: TQueryParams) : TSPObjectSharingInformationUserArray;
  76439. var N : String;
  76440. begin
  76441. Result:=TSPObjectSharingInformationUserArray(GetMulti(AQuery,True,N));
  76442. end;
  76443. { --------------------------------------------------------------------
  76444. TSPObjectSharingSettingssEntitySet
  76445. --------------------------------------------------------------------}
  76446. Class Function TSPObjectSharingSettingssEntitySet.ObjectRestKind : String;
  76447. begin
  76448. Result:='ObjectSharingSettingss';
  76449. end;
  76450. Class Function TSPObjectSharingSettingssEntitySet.EntityClass : TODataEntityClass;
  76451. begin
  76452. Result:=TSPObjectSharingSettings;
  76453. end;
  76454. Function TSPObjectSharingSettingssEntitySet.Get(const AccessRequestMode: boolean) : TSPObjectSharingSettings;
  76455. begin
  76456. Result:=TSPObjectSharingSettings(GetSingle(BoolToStr(AccessRequestMode,'true','false')));
  76457. end;
  76458. Function TSPObjectSharingSettingssEntitySet.List(const AQuery: String; out NextLink: String) : TSPObjectSharingSettingsArray;
  76459. begin
  76460. Result:=TSPObjectSharingSettingsArray(GetMulti(AQuery,False,NextLink));
  76461. end;
  76462. Function TSPObjectSharingSettingssEntitySet.List(const AQuery: TQueryParams; out NextLink: String) : TSPObjectSharingSettingsArray;
  76463. begin
  76464. Result:=TSPObjectSharingSettingsArray(GetMulti(AQuery,False,NextLink));
  76465. end;
  76466. Function TSPObjectSharingSettingssEntitySet.ListAll(const AQuery: String) : TSPObjectSharingSettingsArray;
  76467. var N : String;
  76468. begin
  76469. Result:=TSPObjectSharingSettingsArray(GetMulti(AQuery,True,N));
  76470. end;
  76471. Function TSPObjectSharingSettingssEntitySet.ListAll(const AQuery: TQueryParams) : TSPObjectSharingSettingsArray;
  76472. var N : String;
  76473. begin
  76474. Result:=TSPObjectSharingSettingsArray(GetMulti(AQuery,True,N));
  76475. end;
  76476. { --------------------------------------------------------------------
  76477. TSPClickManagersEntitySet
  76478. --------------------------------------------------------------------}
  76479. Class Function TSPClickManagersEntitySet.ObjectRestKind : String;
  76480. begin
  76481. Result:='ClickManagers';
  76482. end;
  76483. Class Function TSPClickManagersEntitySet.EntityClass : TODataEntityClass;
  76484. begin
  76485. Result:=TSP_PageInstrumentationClickManager;
  76486. end;
  76487. Function TSPClickManagersEntitySet.Get(const Id4a81de82eeb94d6080ea5bf63e27023a: string) : TSP_PageInstrumentationClickManager;
  76488. begin
  76489. Result:=TSP_PageInstrumentationClickManager(GetSingle(TODataObject.MakeKeyString(Id4a81de82eeb94d6080ea5bf63e27023a)));
  76490. end;
  76491. Function TSPClickManagersEntitySet.List(const AQuery: String; out NextLink: String) : TSP_PageInstrumentationClickManagerArray;
  76492. begin
  76493. Result:=TSP_PageInstrumentationClickManagerArray(GetMulti(AQuery,False,NextLink));
  76494. end;
  76495. Function TSPClickManagersEntitySet.List(const AQuery: TQueryParams; out NextLink: String) : TSP_PageInstrumentationClickManagerArray;
  76496. begin
  76497. Result:=TSP_PageInstrumentationClickManagerArray(GetMulti(AQuery,False,NextLink));
  76498. end;
  76499. Function TSPClickManagersEntitySet.ListAll(const AQuery: String) : TSP_PageInstrumentationClickManagerArray;
  76500. var N : String;
  76501. begin
  76502. Result:=TSP_PageInstrumentationClickManagerArray(GetMulti(AQuery,True,N));
  76503. end;
  76504. Function TSPClickManagersEntitySet.ListAll(const AQuery: TQueryParams) : TSP_PageInstrumentationClickManagerArray;
  76505. var N : String;
  76506. begin
  76507. Result:=TSP_PageInstrumentationClickManagerArray(GetMulti(AQuery,True,N));
  76508. end;
  76509. { --------------------------------------------------------------------
  76510. TSPPickerSettingssEntitySet
  76511. --------------------------------------------------------------------}
  76512. Class Function TSPPickerSettingssEntitySet.ObjectRestKind : String;
  76513. begin
  76514. Result:='PickerSettingss';
  76515. end;
  76516. Class Function TSPPickerSettingssEntitySet.EntityClass : TODataEntityClass;
  76517. begin
  76518. Result:=TSPPickerSettings;
  76519. end;
  76520. Function TSPPickerSettingssEntitySet.Get(const AllowEmailAddresses: boolean) : TSPPickerSettings;
  76521. begin
  76522. Result:=TSPPickerSettings(GetSingle(BoolToStr(AllowEmailAddresses,'true','false')));
  76523. end;
  76524. Function TSPPickerSettingssEntitySet.List(const AQuery: String; out NextLink: String) : TSPPickerSettingsArray;
  76525. begin
  76526. Result:=TSPPickerSettingsArray(GetMulti(AQuery,False,NextLink));
  76527. end;
  76528. Function TSPPickerSettingssEntitySet.List(const AQuery: TQueryParams; out NextLink: String) : TSPPickerSettingsArray;
  76529. begin
  76530. Result:=TSPPickerSettingsArray(GetMulti(AQuery,False,NextLink));
  76531. end;
  76532. Function TSPPickerSettingssEntitySet.ListAll(const AQuery: String) : TSPPickerSettingsArray;
  76533. var N : String;
  76534. begin
  76535. Result:=TSPPickerSettingsArray(GetMulti(AQuery,True,N));
  76536. end;
  76537. Function TSPPickerSettingssEntitySet.ListAll(const AQuery: TQueryParams) : TSPPickerSettingsArray;
  76538. var N : String;
  76539. begin
  76540. Result:=TSPPickerSettingsArray(GetMulti(AQuery,True,N));
  76541. end;
  76542. { --------------------------------------------------------------------
  76543. TSPPrincipalsEntitySet
  76544. --------------------------------------------------------------------}
  76545. Class Function TSPPrincipalsEntitySet.ObjectRestKind : String;
  76546. begin
  76547. Result:='Principals';
  76548. end;
  76549. Class Function TSPPrincipalsEntitySet.EntityClass : TODataEntityClass;
  76550. begin
  76551. Result:=TSPPrincipal;
  76552. end;
  76553. Function TSPPrincipalsEntitySet.Get(const Id: TInt32) : TSPPrincipal;
  76554. begin
  76555. Result:=TSPPrincipal(GetSingle(IntToStr(Id)));
  76556. end;
  76557. Function TSPPrincipalsEntitySet.List(const AQuery: String; out NextLink: String) : TSPPrincipalArray;
  76558. begin
  76559. Result:=TSPPrincipalArray(GetMulti(AQuery,False,NextLink));
  76560. end;
  76561. Function TSPPrincipalsEntitySet.List(const AQuery: TQueryParams; out NextLink: String) : TSPPrincipalArray;
  76562. begin
  76563. Result:=TSPPrincipalArray(GetMulti(AQuery,False,NextLink));
  76564. end;
  76565. Function TSPPrincipalsEntitySet.ListAll(const AQuery: String) : TSPPrincipalArray;
  76566. var N : String;
  76567. begin
  76568. Result:=TSPPrincipalArray(GetMulti(AQuery,True,N));
  76569. end;
  76570. Function TSPPrincipalsEntitySet.ListAll(const AQuery: TQueryParams) : TSPPrincipalArray;
  76571. var N : String;
  76572. begin
  76573. Result:=TSPPrincipalArray(GetMulti(AQuery,True,N));
  76574. end;
  76575. { --------------------------------------------------------------------
  76576. TSPPropertyValuessEntitySet
  76577. --------------------------------------------------------------------}
  76578. Class Function TSPPropertyValuessEntitySet.ObjectRestKind : String;
  76579. begin
  76580. Result:='PropertyValuess';
  76581. end;
  76582. Class Function TSPPropertyValuessEntitySet.EntityClass : TODataEntityClass;
  76583. begin
  76584. Result:=TSPPropertyValues;
  76585. end;
  76586. Function TSPPropertyValuessEntitySet.Get(const Id4a81de82eeb94d6080ea5bf63e27023a: string) : TSPPropertyValues;
  76587. begin
  76588. Result:=TSPPropertyValues(GetSingle(TODataObject.MakeKeyString(Id4a81de82eeb94d6080ea5bf63e27023a)));
  76589. end;
  76590. Function TSPPropertyValuessEntitySet.List(const AQuery: String; out NextLink: String) : TSPPropertyValuesArray;
  76591. begin
  76592. Result:=TSPPropertyValuesArray(GetMulti(AQuery,False,NextLink));
  76593. end;
  76594. Function TSPPropertyValuessEntitySet.List(const AQuery: TQueryParams; out NextLink: String) : TSPPropertyValuesArray;
  76595. begin
  76596. Result:=TSPPropertyValuesArray(GetMulti(AQuery,False,NextLink));
  76597. end;
  76598. Function TSPPropertyValuessEntitySet.ListAll(const AQuery: String) : TSPPropertyValuesArray;
  76599. var N : String;
  76600. begin
  76601. Result:=TSPPropertyValuesArray(GetMulti(AQuery,True,N));
  76602. end;
  76603. Function TSPPropertyValuessEntitySet.ListAll(const AQuery: TQueryParams) : TSPPropertyValuesArray;
  76604. var N : String;
  76605. begin
  76606. Result:=TSPPropertyValuesArray(GetMulti(AQuery,True,N));
  76607. end;
  76608. { --------------------------------------------------------------------
  76609. TSPPersonMagazinesEntitySet
  76610. --------------------------------------------------------------------}
  76611. Class Function TSPPersonMagazinesEntitySet.ObjectRestKind : String;
  76612. begin
  76613. Result:='PersonMagazines';
  76614. end;
  76615. Class Function TSPPersonMagazinesEntitySet.EntityClass : TODataEntityClass;
  76616. begin
  76617. Result:=TSP_PublishingPersonMagazine;
  76618. end;
  76619. Function TSPPersonMagazinesEntitySet.Get(const Id4a81de82eeb94d6080ea5bf63e27023a: string) : TSP_PublishingPersonMagazine;
  76620. begin
  76621. Result:=TSP_PublishingPersonMagazine(GetSingle(TODataObject.MakeKeyString(Id4a81de82eeb94d6080ea5bf63e27023a)));
  76622. end;
  76623. Function TSPPersonMagazinesEntitySet.List(const AQuery: String; out NextLink: String) : TSP_PublishingPersonMagazineArray;
  76624. begin
  76625. Result:=TSP_PublishingPersonMagazineArray(GetMulti(AQuery,False,NextLink));
  76626. end;
  76627. Function TSPPersonMagazinesEntitySet.List(const AQuery: TQueryParams; out NextLink: String) : TSP_PublishingPersonMagazineArray;
  76628. begin
  76629. Result:=TSP_PublishingPersonMagazineArray(GetMulti(AQuery,False,NextLink));
  76630. end;
  76631. Function TSPPersonMagazinesEntitySet.ListAll(const AQuery: String) : TSP_PublishingPersonMagazineArray;
  76632. var N : String;
  76633. begin
  76634. Result:=TSP_PublishingPersonMagazineArray(GetMulti(AQuery,True,N));
  76635. end;
  76636. Function TSPPersonMagazinesEntitySet.ListAll(const AQuery: TQueryParams) : TSP_PublishingPersonMagazineArray;
  76637. var N : String;
  76638. begin
  76639. Result:=TSP_PublishingPersonMagazineArray(GetMulti(AQuery,True,N));
  76640. end;
  76641. { --------------------------------------------------------------------
  76642. TSPPointPublishingDocPropssEntitySet
  76643. --------------------------------------------------------------------}
  76644. Class Function TSPPointPublishingDocPropssEntitySet.ObjectRestKind : String;
  76645. begin
  76646. Result:='PointPublishingDocPropss';
  76647. end;
  76648. Class Function TSPPointPublishingDocPropssEntitySet.EntityClass : TODataEntityClass;
  76649. begin
  76650. Result:=TSP_PublishingPointPublishingDocProps;
  76651. end;
  76652. Function TSPPointPublishingDocPropssEntitySet.Get(const Author: string) : TSP_PublishingPointPublishingDocProps;
  76653. begin
  76654. Result:=TSP_PublishingPointPublishingDocProps(GetSingle(TODataObject.MakeKeyString(Author)));
  76655. end;
  76656. Function TSPPointPublishingDocPropssEntitySet.List(const AQuery: String; out NextLink: String) : TSP_PublishingPointPublishingDocPropsArray;
  76657. begin
  76658. Result:=TSP_PublishingPointPublishingDocPropsArray(GetMulti(AQuery,False,NextLink));
  76659. end;
  76660. Function TSPPointPublishingDocPropssEntitySet.List(const AQuery: TQueryParams; out NextLink: String) : TSP_PublishingPointPublishingDocPropsArray;
  76661. begin
  76662. Result:=TSP_PublishingPointPublishingDocPropsArray(GetMulti(AQuery,False,NextLink));
  76663. end;
  76664. Function TSPPointPublishingDocPropssEntitySet.ListAll(const AQuery: String) : TSP_PublishingPointPublishingDocPropsArray;
  76665. var N : String;
  76666. begin
  76667. Result:=TSP_PublishingPointPublishingDocPropsArray(GetMulti(AQuery,True,N));
  76668. end;
  76669. Function TSPPointPublishingDocPropssEntitySet.ListAll(const AQuery: TQueryParams) : TSP_PublishingPointPublishingDocPropsArray;
  76670. var N : String;
  76671. begin
  76672. Result:=TSP_PublishingPointPublishingDocPropsArray(GetMulti(AQuery,True,N));
  76673. end;
  76674. { --------------------------------------------------------------------
  76675. TSPPointPublishingMagazinePropssEntitySet
  76676. --------------------------------------------------------------------}
  76677. Class Function TSPPointPublishingMagazinePropssEntitySet.ObjectRestKind : String;
  76678. begin
  76679. Result:='PointPublishingMagazinePropss';
  76680. end;
  76681. Class Function TSPPointPublishingMagazinePropssEntitySet.EntityClass : TODataEntityClass;
  76682. begin
  76683. Result:=TSP_PublishingPointPublishingMagazineProps;
  76684. end;
  76685. Function TSPPointPublishingMagazinePropssEntitySet.Get(const BannerColor: string) : TSP_PublishingPointPublishingMagazineProps;
  76686. begin
  76687. Result:=TSP_PublishingPointPublishingMagazineProps(GetSingle(TODataObject.MakeKeyString(BannerColor)));
  76688. end;
  76689. Function TSPPointPublishingMagazinePropssEntitySet.List(const AQuery: String; out NextLink: String) : TSP_PublishingPointPublishingMagazinePropsArray;
  76690. begin
  76691. Result:=TSP_PublishingPointPublishingMagazinePropsArray(GetMulti(AQuery,False,NextLink));
  76692. end;
  76693. Function TSPPointPublishingMagazinePropssEntitySet.List(const AQuery: TQueryParams; out NextLink: String) : TSP_PublishingPointPublishingMagazinePropsArray;
  76694. begin
  76695. Result:=TSP_PublishingPointPublishingMagazinePropsArray(GetMulti(AQuery,False,NextLink));
  76696. end;
  76697. Function TSPPointPublishingMagazinePropssEntitySet.ListAll(const AQuery: String) : TSP_PublishingPointPublishingMagazinePropsArray;
  76698. var N : String;
  76699. begin
  76700. Result:=TSP_PublishingPointPublishingMagazinePropsArray(GetMulti(AQuery,True,N));
  76701. end;
  76702. Function TSPPointPublishingMagazinePropssEntitySet.ListAll(const AQuery: TQueryParams) : TSP_PublishingPointPublishingMagazinePropsArray;
  76703. var N : String;
  76704. begin
  76705. Result:=TSP_PublishingPointPublishingMagazinePropsArray(GetMulti(AQuery,True,N));
  76706. end;
  76707. { --------------------------------------------------------------------
  76708. TSPPointPublishingPostsEntitySet
  76709. --------------------------------------------------------------------}
  76710. Class Function TSPPointPublishingPostsEntitySet.ObjectRestKind : String;
  76711. begin
  76712. Result:='PointPublishingPosts';
  76713. end;
  76714. Class Function TSPPointPublishingPostsEntitySet.EntityClass : TODataEntityClass;
  76715. begin
  76716. Result:=TSP_PublishingPointPublishingPost;
  76717. end;
  76718. Function TSPPointPublishingPostsEntitySet.Get(const Id: TInt32) : TSP_PublishingPointPublishingPost;
  76719. begin
  76720. Result:=TSP_PublishingPointPublishingPost(GetSingle(IntToStr(Id)));
  76721. end;
  76722. Function TSPPointPublishingPostsEntitySet.List(const AQuery: String; out NextLink: String) : TSP_PublishingPointPublishingPostArray;
  76723. begin
  76724. Result:=TSP_PublishingPointPublishingPostArray(GetMulti(AQuery,False,NextLink));
  76725. end;
  76726. Function TSPPointPublishingPostsEntitySet.List(const AQuery: TQueryParams; out NextLink: String) : TSP_PublishingPointPublishingPostArray;
  76727. begin
  76728. Result:=TSP_PublishingPointPublishingPostArray(GetMulti(AQuery,False,NextLink));
  76729. end;
  76730. Function TSPPointPublishingPostsEntitySet.ListAll(const AQuery: String) : TSP_PublishingPointPublishingPostArray;
  76731. var N : String;
  76732. begin
  76733. Result:=TSP_PublishingPointPublishingPostArray(GetMulti(AQuery,True,N));
  76734. end;
  76735. Function TSPPointPublishingPostsEntitySet.ListAll(const AQuery: TQueryParams) : TSP_PublishingPointPublishingPostArray;
  76736. var N : String;
  76737. begin
  76738. Result:=TSP_PublishingPointPublishingPostArray(GetMulti(AQuery,True,N));
  76739. end;
  76740. { --------------------------------------------------------------------
  76741. TSPPointPublishingPostServiceManagersEntitySet
  76742. --------------------------------------------------------------------}
  76743. Class Function TSPPointPublishingPostServiceManagersEntitySet.ObjectRestKind : String;
  76744. begin
  76745. Result:='PointPublishingPostServiceManagers';
  76746. end;
  76747. Class Function TSPPointPublishingPostServiceManagersEntitySet.EntityClass : TODataEntityClass;
  76748. begin
  76749. Result:=TSP_PublishingPointPublishingPostServiceManager;
  76750. end;
  76751. Function TSPPointPublishingPostServiceManagersEntitySet.Get(const Id4a81de82eeb94d6080ea5bf63e27023a: string) : TSP_PublishingPointPublishingPostServiceManager;
  76752. begin
  76753. Result:=TSP_PublishingPointPublishingPostServiceManager(GetSingle(TODataObject.MakeKeyString(Id4a81de82eeb94d6080ea5bf63e27023a)));
  76754. end;
  76755. Function TSPPointPublishingPostServiceManagersEntitySet.List(const AQuery: String; out NextLink: String) : TSP_PublishingPointPublishingPostServiceManagerArray;
  76756. begin
  76757. Result:=TSP_PublishingPointPublishingPostServiceManagerArray(GetMulti(AQuery,False,NextLink));
  76758. end;
  76759. Function TSPPointPublishingPostServiceManagersEntitySet.List(const AQuery: TQueryParams; out NextLink: String) : TSP_PublishingPointPublishingPostServiceManagerArray;
  76760. begin
  76761. Result:=TSP_PublishingPointPublishingPostServiceManagerArray(GetMulti(AQuery,False,NextLink));
  76762. end;
  76763. Function TSPPointPublishingPostServiceManagersEntitySet.ListAll(const AQuery: String) : TSP_PublishingPointPublishingPostServiceManagerArray;
  76764. var N : String;
  76765. begin
  76766. Result:=TSP_PublishingPointPublishingPostServiceManagerArray(GetMulti(AQuery,True,N));
  76767. end;
  76768. Function TSPPointPublishingPostServiceManagersEntitySet.ListAll(const AQuery: TQueryParams) : TSP_PublishingPointPublishingPostServiceManagerArray;
  76769. var N : String;
  76770. begin
  76771. Result:=TSP_PublishingPointPublishingPostServiceManagerArray(GetMulti(AQuery,True,N));
  76772. end;
  76773. { --------------------------------------------------------------------
  76774. TSPPointPublishingSiteManagersEntitySet
  76775. --------------------------------------------------------------------}
  76776. Class Function TSPPointPublishingSiteManagersEntitySet.ObjectRestKind : String;
  76777. begin
  76778. Result:='PointPublishingSiteManagers';
  76779. end;
  76780. Class Function TSPPointPublishingSiteManagersEntitySet.EntityClass : TODataEntityClass;
  76781. begin
  76782. Result:=TSP_PublishingPointPublishingSiteManager;
  76783. end;
  76784. Function TSPPointPublishingSiteManagersEntitySet.Get(const Id4a81de82eeb94d6080ea5bf63e27023a: string) : TSP_PublishingPointPublishingSiteManager;
  76785. begin
  76786. Result:=TSP_PublishingPointPublishingSiteManager(GetSingle(TODataObject.MakeKeyString(Id4a81de82eeb94d6080ea5bf63e27023a)));
  76787. end;
  76788. Function TSPPointPublishingSiteManagersEntitySet.List(const AQuery: String; out NextLink: String) : TSP_PublishingPointPublishingSiteManagerArray;
  76789. begin
  76790. Result:=TSP_PublishingPointPublishingSiteManagerArray(GetMulti(AQuery,False,NextLink));
  76791. end;
  76792. Function TSPPointPublishingSiteManagersEntitySet.List(const AQuery: TQueryParams; out NextLink: String) : TSP_PublishingPointPublishingSiteManagerArray;
  76793. begin
  76794. Result:=TSP_PublishingPointPublishingSiteManagerArray(GetMulti(AQuery,False,NextLink));
  76795. end;
  76796. Function TSPPointPublishingSiteManagersEntitySet.ListAll(const AQuery: String) : TSP_PublishingPointPublishingSiteManagerArray;
  76797. var N : String;
  76798. begin
  76799. Result:=TSP_PublishingPointPublishingSiteManagerArray(GetMulti(AQuery,True,N));
  76800. end;
  76801. Function TSPPointPublishingSiteManagersEntitySet.ListAll(const AQuery: TQueryParams) : TSP_PublishingPointPublishingSiteManagerArray;
  76802. var N : String;
  76803. begin
  76804. Result:=TSP_PublishingPointPublishingSiteManagerArray(GetMulti(AQuery,True,N));
  76805. end;
  76806. { --------------------------------------------------------------------
  76807. TSPPointPublishingSiteStatussEntitySet
  76808. --------------------------------------------------------------------}
  76809. Class Function TSPPointPublishingSiteStatussEntitySet.ObjectRestKind : String;
  76810. begin
  76811. Result:='PointPublishingSiteStatuss';
  76812. end;
  76813. Class Function TSPPointPublishingSiteStatussEntitySet.EntityClass : TODataEntityClass;
  76814. begin
  76815. Result:=TSP_PublishingPointPublishingSiteStatus;
  76816. end;
  76817. Function TSPPointPublishingSiteStatussEntitySet.Get(const FriendlyUrl: string) : TSP_PublishingPointPublishingSiteStatus;
  76818. begin
  76819. Result:=TSP_PublishingPointPublishingSiteStatus(GetSingle(TODataObject.MakeKeyString(FriendlyUrl)));
  76820. end;
  76821. Function TSPPointPublishingSiteStatussEntitySet.List(const AQuery: String; out NextLink: String) : TSP_PublishingPointPublishingSiteStatusArray;
  76822. begin
  76823. Result:=TSP_PublishingPointPublishingSiteStatusArray(GetMulti(AQuery,False,NextLink));
  76824. end;
  76825. Function TSPPointPublishingSiteStatussEntitySet.List(const AQuery: TQueryParams; out NextLink: String) : TSP_PublishingPointPublishingSiteStatusArray;
  76826. begin
  76827. Result:=TSP_PublishingPointPublishingSiteStatusArray(GetMulti(AQuery,False,NextLink));
  76828. end;
  76829. Function TSPPointPublishingSiteStatussEntitySet.ListAll(const AQuery: String) : TSP_PublishingPointPublishingSiteStatusArray;
  76830. var N : String;
  76831. begin
  76832. Result:=TSP_PublishingPointPublishingSiteStatusArray(GetMulti(AQuery,True,N));
  76833. end;
  76834. Function TSPPointPublishingSiteStatussEntitySet.ListAll(const AQuery: TQueryParams) : TSP_PublishingPointPublishingSiteStatusArray;
  76835. var N : String;
  76836. begin
  76837. Result:=TSP_PublishingPointPublishingSiteStatusArray(GetMulti(AQuery,True,N));
  76838. end;
  76839. { --------------------------------------------------------------------
  76840. TSPPointPublishingUsersEntitySet
  76841. --------------------------------------------------------------------}
  76842. Class Function TSPPointPublishingUsersEntitySet.ObjectRestKind : String;
  76843. begin
  76844. Result:='PointPublishingUsers';
  76845. end;
  76846. Class Function TSPPointPublishingUsersEntitySet.EntityClass : TODataEntityClass;
  76847. begin
  76848. Result:=TSP_PublishingPointPublishingUser;
  76849. end;
  76850. Function TSPPointPublishingUsersEntitySet.Get(const _Name: string) : TSP_PublishingPointPublishingUser;
  76851. begin
  76852. Result:=TSP_PublishingPointPublishingUser(GetSingle(TODataObject.MakeKeyString(_Name)));
  76853. end;
  76854. Function TSPPointPublishingUsersEntitySet.List(const AQuery: String; out NextLink: String) : TSP_PublishingPointPublishingUserArray;
  76855. begin
  76856. Result:=TSP_PublishingPointPublishingUserArray(GetMulti(AQuery,False,NextLink));
  76857. end;
  76858. Function TSPPointPublishingUsersEntitySet.List(const AQuery: TQueryParams; out NextLink: String) : TSP_PublishingPointPublishingUserArray;
  76859. begin
  76860. Result:=TSP_PublishingPointPublishingUserArray(GetMulti(AQuery,False,NextLink));
  76861. end;
  76862. Function TSPPointPublishingUsersEntitySet.ListAll(const AQuery: String) : TSP_PublishingPointPublishingUserArray;
  76863. var N : String;
  76864. begin
  76865. Result:=TSP_PublishingPointPublishingUserArray(GetMulti(AQuery,True,N));
  76866. end;
  76867. Function TSPPointPublishingUsersEntitySet.ListAll(const AQuery: TQueryParams) : TSP_PublishingPointPublishingUserArray;
  76868. var N : String;
  76869. begin
  76870. Result:=TSP_PublishingPointPublishingUserArray(GetMulti(AQuery,True,N));
  76871. end;
  76872. { --------------------------------------------------------------------
  76873. TSPSearchsEntitySet
  76874. --------------------------------------------------------------------}
  76875. Class Function TSPSearchsEntitySet.ObjectRestKind : String;
  76876. begin
  76877. Result:='Searchs';
  76878. end;
  76879. Class Function TSPSearchsEntitySet.EntityClass : TODataEntityClass;
  76880. begin
  76881. Result:=TSP_PublishingSearch;
  76882. end;
  76883. Function TSPSearchsEntitySet.Get(const Id4a81de82eeb94d6080ea5bf63e27023a: string) : TSP_PublishingSearch;
  76884. begin
  76885. Result:=TSP_PublishingSearch(GetSingle(TODataObject.MakeKeyString(Id4a81de82eeb94d6080ea5bf63e27023a)));
  76886. end;
  76887. Function TSPSearchsEntitySet.List(const AQuery: String; out NextLink: String) : TSP_PublishingSearchArray;
  76888. begin
  76889. Result:=TSP_PublishingSearchArray(GetMulti(AQuery,False,NextLink));
  76890. end;
  76891. Function TSPSearchsEntitySet.List(const AQuery: TQueryParams; out NextLink: String) : TSP_PublishingSearchArray;
  76892. begin
  76893. Result:=TSP_PublishingSearchArray(GetMulti(AQuery,False,NextLink));
  76894. end;
  76895. Function TSPSearchsEntitySet.ListAll(const AQuery: String) : TSP_PublishingSearchArray;
  76896. var N : String;
  76897. begin
  76898. Result:=TSP_PublishingSearchArray(GetMulti(AQuery,True,N));
  76899. end;
  76900. Function TSPSearchsEntitySet.ListAll(const AQuery: TQueryParams) : TSP_PublishingSearchArray;
  76901. var N : String;
  76902. begin
  76903. Result:=TSP_PublishingSearchArray(GetMulti(AQuery,True,N));
  76904. end;
  76905. { --------------------------------------------------------------------
  76906. TSPSpotlightChannelsEntitySet
  76907. --------------------------------------------------------------------}
  76908. Class Function TSPSpotlightChannelsEntitySet.ObjectRestKind : String;
  76909. begin
  76910. Result:='SpotlightChannels';
  76911. end;
  76912. Class Function TSPSpotlightChannelsEntitySet.EntityClass : TODataEntityClass;
  76913. begin
  76914. Result:=TSP_PublishingSpotlightChannel;
  76915. end;
  76916. Function TSPSpotlightChannelsEntitySet.Get(const Id: TInt32) : TSP_PublishingSpotlightChannel;
  76917. begin
  76918. Result:=TSP_PublishingSpotlightChannel(GetSingle(IntToStr(Id)));
  76919. end;
  76920. Function TSPSpotlightChannelsEntitySet.List(const AQuery: String; out NextLink: String) : TSP_PublishingSpotlightChannelArray;
  76921. begin
  76922. Result:=TSP_PublishingSpotlightChannelArray(GetMulti(AQuery,False,NextLink));
  76923. end;
  76924. Function TSPSpotlightChannelsEntitySet.List(const AQuery: TQueryParams; out NextLink: String) : TSP_PublishingSpotlightChannelArray;
  76925. begin
  76926. Result:=TSP_PublishingSpotlightChannelArray(GetMulti(AQuery,False,NextLink));
  76927. end;
  76928. Function TSPSpotlightChannelsEntitySet.ListAll(const AQuery: String) : TSP_PublishingSpotlightChannelArray;
  76929. var N : String;
  76930. begin
  76931. Result:=TSP_PublishingSpotlightChannelArray(GetMulti(AQuery,True,N));
  76932. end;
  76933. Function TSPSpotlightChannelsEntitySet.ListAll(const AQuery: TQueryParams) : TSP_PublishingSpotlightChannelArray;
  76934. var N : String;
  76935. begin
  76936. Result:=TSP_PublishingSpotlightChannelArray(GetMulti(AQuery,True,N));
  76937. end;
  76938. { --------------------------------------------------------------------
  76939. TSPSpotlightVideosEntitySet
  76940. --------------------------------------------------------------------}
  76941. Class Function TSPSpotlightVideosEntitySet.ObjectRestKind : String;
  76942. begin
  76943. Result:='SpotlightVideos';
  76944. end;
  76945. Class Function TSPSpotlightVideosEntitySet.EntityClass : TODataEntityClass;
  76946. begin
  76947. Result:=TSP_PublishingSpotlightVideo;
  76948. end;
  76949. Function TSPSpotlightVideosEntitySet.Get(const Id: TInt32) : TSP_PublishingSpotlightVideo;
  76950. begin
  76951. Result:=TSP_PublishingSpotlightVideo(GetSingle(IntToStr(Id)));
  76952. end;
  76953. Function TSPSpotlightVideosEntitySet.List(const AQuery: String; out NextLink: String) : TSP_PublishingSpotlightVideoArray;
  76954. begin
  76955. Result:=TSP_PublishingSpotlightVideoArray(GetMulti(AQuery,False,NextLink));
  76956. end;
  76957. Function TSPSpotlightVideosEntitySet.List(const AQuery: TQueryParams; out NextLink: String) : TSP_PublishingSpotlightVideoArray;
  76958. begin
  76959. Result:=TSP_PublishingSpotlightVideoArray(GetMulti(AQuery,False,NextLink));
  76960. end;
  76961. Function TSPSpotlightVideosEntitySet.ListAll(const AQuery: String) : TSP_PublishingSpotlightVideoArray;
  76962. var N : String;
  76963. begin
  76964. Result:=TSP_PublishingSpotlightVideoArray(GetMulti(AQuery,True,N));
  76965. end;
  76966. Function TSPSpotlightVideosEntitySet.ListAll(const AQuery: TQueryParams) : TSP_PublishingSpotlightVideoArray;
  76967. var N : String;
  76968. begin
  76969. Result:=TSP_PublishingSpotlightVideoArray(GetMulti(AQuery,True,N));
  76970. end;
  76971. { --------------------------------------------------------------------
  76972. TSPVideoChannelsEntitySet
  76973. --------------------------------------------------------------------}
  76974. Class Function TSPVideoChannelsEntitySet.ObjectRestKind : String;
  76975. begin
  76976. Result:='VideoChannels';
  76977. end;
  76978. Class Function TSPVideoChannelsEntitySet.EntityClass : TODataEntityClass;
  76979. begin
  76980. Result:=TSP_PublishingVideoChannel;
  76981. end;
  76982. Function TSPVideoChannelsEntitySet.Get(const Id: TGUIDString) : TSP_PublishingVideoChannel;
  76983. begin
  76984. Result:=TSP_PublishingVideoChannel(GetSingle(TODataObject.MakeKeyString(Id)));
  76985. end;
  76986. Function TSPVideoChannelsEntitySet.List(const AQuery: String; out NextLink: String) : TSP_PublishingVideoChannelArray;
  76987. begin
  76988. Result:=TSP_PublishingVideoChannelArray(GetMulti(AQuery,False,NextLink));
  76989. end;
  76990. Function TSPVideoChannelsEntitySet.List(const AQuery: TQueryParams; out NextLink: String) : TSP_PublishingVideoChannelArray;
  76991. begin
  76992. Result:=TSP_PublishingVideoChannelArray(GetMulti(AQuery,False,NextLink));
  76993. end;
  76994. Function TSPVideoChannelsEntitySet.ListAll(const AQuery: String) : TSP_PublishingVideoChannelArray;
  76995. var N : String;
  76996. begin
  76997. Result:=TSP_PublishingVideoChannelArray(GetMulti(AQuery,True,N));
  76998. end;
  76999. Function TSPVideoChannelsEntitySet.ListAll(const AQuery: TQueryParams) : TSP_PublishingVideoChannelArray;
  77000. var N : String;
  77001. begin
  77002. Result:=TSP_PublishingVideoChannelArray(GetMulti(AQuery,True,N));
  77003. end;
  77004. { --------------------------------------------------------------------
  77005. TSPVideoItemsEntitySet
  77006. --------------------------------------------------------------------}
  77007. Class Function TSPVideoItemsEntitySet.ObjectRestKind : String;
  77008. begin
  77009. Result:='VideoItems';
  77010. end;
  77011. Class Function TSPVideoItemsEntitySet.EntityClass : TODataEntityClass;
  77012. begin
  77013. Result:=TSP_PublishingVideoItem;
  77014. end;
  77015. Function TSPVideoItemsEntitySet.Get(const ID: TGUIDString) : TSP_PublishingVideoItem;
  77016. begin
  77017. Result:=TSP_PublishingVideoItem(GetSingle(TODataObject.MakeKeyString(ID)));
  77018. end;
  77019. Function TSPVideoItemsEntitySet.List(const AQuery: String; out NextLink: String) : TSP_PublishingVideoItemArray;
  77020. begin
  77021. Result:=TSP_PublishingVideoItemArray(GetMulti(AQuery,False,NextLink));
  77022. end;
  77023. Function TSPVideoItemsEntitySet.List(const AQuery: TQueryParams; out NextLink: String) : TSP_PublishingVideoItemArray;
  77024. begin
  77025. Result:=TSP_PublishingVideoItemArray(GetMulti(AQuery,False,NextLink));
  77026. end;
  77027. Function TSPVideoItemsEntitySet.ListAll(const AQuery: String) : TSP_PublishingVideoItemArray;
  77028. var N : String;
  77029. begin
  77030. Result:=TSP_PublishingVideoItemArray(GetMulti(AQuery,True,N));
  77031. end;
  77032. Function TSPVideoItemsEntitySet.ListAll(const AQuery: TQueryParams) : TSP_PublishingVideoItemArray;
  77033. var N : String;
  77034. begin
  77035. Result:=TSP_PublishingVideoItemArray(GetMulti(AQuery,True,N));
  77036. end;
  77037. { --------------------------------------------------------------------
  77038. TSPVideoPermissionGroupsEntitySet
  77039. --------------------------------------------------------------------}
  77040. Class Function TSPVideoPermissionGroupsEntitySet.ObjectRestKind : String;
  77041. begin
  77042. Result:='VideoPermissionGroups';
  77043. end;
  77044. Class Function TSPVideoPermissionGroupsEntitySet.EntityClass : TODataEntityClass;
  77045. begin
  77046. Result:=TSP_PublishingVideoPermissionGroup;
  77047. end;
  77048. Function TSPVideoPermissionGroupsEntitySet.Get(const Id: TInt32) : TSP_PublishingVideoPermissionGroup;
  77049. begin
  77050. Result:=TSP_PublishingVideoPermissionGroup(GetSingle(IntToStr(Id)));
  77051. end;
  77052. Function TSPVideoPermissionGroupsEntitySet.List(const AQuery: String; out NextLink: String) : TSP_PublishingVideoPermissionGroupArray;
  77053. begin
  77054. Result:=TSP_PublishingVideoPermissionGroupArray(GetMulti(AQuery,False,NextLink));
  77055. end;
  77056. Function TSPVideoPermissionGroupsEntitySet.List(const AQuery: TQueryParams; out NextLink: String) : TSP_PublishingVideoPermissionGroupArray;
  77057. begin
  77058. Result:=TSP_PublishingVideoPermissionGroupArray(GetMulti(AQuery,False,NextLink));
  77059. end;
  77060. Function TSPVideoPermissionGroupsEntitySet.ListAll(const AQuery: String) : TSP_PublishingVideoPermissionGroupArray;
  77061. var N : String;
  77062. begin
  77063. Result:=TSP_PublishingVideoPermissionGroupArray(GetMulti(AQuery,True,N));
  77064. end;
  77065. Function TSPVideoPermissionGroupsEntitySet.ListAll(const AQuery: TQueryParams) : TSP_PublishingVideoPermissionGroupArray;
  77066. var N : String;
  77067. begin
  77068. Result:=TSP_PublishingVideoPermissionGroupArray(GetMulti(AQuery,True,N));
  77069. end;
  77070. { --------------------------------------------------------------------
  77071. TSPVideoServiceDiscoverersEntitySet
  77072. --------------------------------------------------------------------}
  77073. Class Function TSPVideoServiceDiscoverersEntitySet.ObjectRestKind : String;
  77074. begin
  77075. Result:='VideoServiceDiscoverers';
  77076. end;
  77077. Class Function TSPVideoServiceDiscoverersEntitySet.EntityClass : TODataEntityClass;
  77078. begin
  77079. Result:=TSP_PublishingVideoServiceDiscoverer;
  77080. end;
  77081. Function TSPVideoServiceDiscoverersEntitySet.Get(const ChannelUrlTemplate: string) : TSP_PublishingVideoServiceDiscoverer;
  77082. begin
  77083. Result:=TSP_PublishingVideoServiceDiscoverer(GetSingle(TODataObject.MakeKeyString(ChannelUrlTemplate)));
  77084. end;
  77085. Function TSPVideoServiceDiscoverersEntitySet.List(const AQuery: String; out NextLink: String) : TSP_PublishingVideoServiceDiscovererArray;
  77086. begin
  77087. Result:=TSP_PublishingVideoServiceDiscovererArray(GetMulti(AQuery,False,NextLink));
  77088. end;
  77089. Function TSPVideoServiceDiscoverersEntitySet.List(const AQuery: TQueryParams; out NextLink: String) : TSP_PublishingVideoServiceDiscovererArray;
  77090. begin
  77091. Result:=TSP_PublishingVideoServiceDiscovererArray(GetMulti(AQuery,False,NextLink));
  77092. end;
  77093. Function TSPVideoServiceDiscoverersEntitySet.ListAll(const AQuery: String) : TSP_PublishingVideoServiceDiscovererArray;
  77094. var N : String;
  77095. begin
  77096. Result:=TSP_PublishingVideoServiceDiscovererArray(GetMulti(AQuery,True,N));
  77097. end;
  77098. Function TSPVideoServiceDiscoverersEntitySet.ListAll(const AQuery: TQueryParams) : TSP_PublishingVideoServiceDiscovererArray;
  77099. var N : String;
  77100. begin
  77101. Result:=TSP_PublishingVideoServiceDiscovererArray(GetMulti(AQuery,True,N));
  77102. end;
  77103. { --------------------------------------------------------------------
  77104. TSPVideoServiceManagersEntitySet
  77105. --------------------------------------------------------------------}
  77106. Class Function TSPVideoServiceManagersEntitySet.ObjectRestKind : String;
  77107. begin
  77108. Result:='VideoServiceManagers';
  77109. end;
  77110. Class Function TSPVideoServiceManagersEntitySet.EntityClass : TODataEntityClass;
  77111. begin
  77112. Result:=TSP_PublishingVideoServiceManager;
  77113. end;
  77114. Function TSPVideoServiceManagersEntitySet.Get(const Id4a81de82eeb94d6080ea5bf63e27023a: string) : TSP_PublishingVideoServiceManager;
  77115. begin
  77116. Result:=TSP_PublishingVideoServiceManager(GetSingle(TODataObject.MakeKeyString(Id4a81de82eeb94d6080ea5bf63e27023a)));
  77117. end;
  77118. Function TSPVideoServiceManagersEntitySet.List(const AQuery: String; out NextLink: String) : TSP_PublishingVideoServiceManagerArray;
  77119. begin
  77120. Result:=TSP_PublishingVideoServiceManagerArray(GetMulti(AQuery,False,NextLink));
  77121. end;
  77122. Function TSPVideoServiceManagersEntitySet.List(const AQuery: TQueryParams; out NextLink: String) : TSP_PublishingVideoServiceManagerArray;
  77123. begin
  77124. Result:=TSP_PublishingVideoServiceManagerArray(GetMulti(AQuery,False,NextLink));
  77125. end;
  77126. Function TSPVideoServiceManagersEntitySet.ListAll(const AQuery: String) : TSP_PublishingVideoServiceManagerArray;
  77127. var N : String;
  77128. begin
  77129. Result:=TSP_PublishingVideoServiceManagerArray(GetMulti(AQuery,True,N));
  77130. end;
  77131. Function TSPVideoServiceManagersEntitySet.ListAll(const AQuery: TQueryParams) : TSP_PublishingVideoServiceManagerArray;
  77132. var N : String;
  77133. begin
  77134. Result:=TSP_PublishingVideoServiceManagerArray(GetMulti(AQuery,True,N));
  77135. end;
  77136. { --------------------------------------------------------------------
  77137. TSPPushNotificationSubscribersEntitySet
  77138. --------------------------------------------------------------------}
  77139. Class Function TSPPushNotificationSubscribersEntitySet.ObjectRestKind : String;
  77140. begin
  77141. Result:='PushNotificationSubscribers';
  77142. end;
  77143. Class Function TSPPushNotificationSubscribersEntitySet.EntityClass : TODataEntityClass;
  77144. begin
  77145. Result:=TSPPushNotificationSubscriber;
  77146. end;
  77147. Function TSPPushNotificationSubscribersEntitySet.Get(const CustomArgs: string) : TSPPushNotificationSubscriber;
  77148. begin
  77149. Result:=TSPPushNotificationSubscriber(GetSingle(TODataObject.MakeKeyString(CustomArgs)));
  77150. end;
  77151. Function TSPPushNotificationSubscribersEntitySet.List(const AQuery: String; out NextLink: String) : TSPPushNotificationSubscriberArray;
  77152. begin
  77153. Result:=TSPPushNotificationSubscriberArray(GetMulti(AQuery,False,NextLink));
  77154. end;
  77155. Function TSPPushNotificationSubscribersEntitySet.List(const AQuery: TQueryParams; out NextLink: String) : TSPPushNotificationSubscriberArray;
  77156. begin
  77157. Result:=TSPPushNotificationSubscriberArray(GetMulti(AQuery,False,NextLink));
  77158. end;
  77159. Function TSPPushNotificationSubscribersEntitySet.ListAll(const AQuery: String) : TSPPushNotificationSubscriberArray;
  77160. var N : String;
  77161. begin
  77162. Result:=TSPPushNotificationSubscriberArray(GetMulti(AQuery,True,N));
  77163. end;
  77164. Function TSPPushNotificationSubscribersEntitySet.ListAll(const AQuery: TQueryParams) : TSPPushNotificationSubscriberArray;
  77165. var N : String;
  77166. begin
  77167. Result:=TSPPushNotificationSubscriberArray(GetMulti(AQuery,True,N));
  77168. end;
  77169. { --------------------------------------------------------------------
  77170. TSPRecycleBinItemsEntitySet
  77171. --------------------------------------------------------------------}
  77172. Class Function TSPRecycleBinItemsEntitySet.ObjectRestKind : String;
  77173. begin
  77174. Result:='RecycleBinItems';
  77175. end;
  77176. Class Function TSPRecycleBinItemsEntitySet.EntityClass : TODataEntityClass;
  77177. begin
  77178. Result:=TSPRecycleBinItem;
  77179. end;
  77180. Function TSPRecycleBinItemsEntitySet.Get(const Id: TGUIDString) : TSPRecycleBinItem;
  77181. begin
  77182. Result:=TSPRecycleBinItem(GetSingle(TODataObject.MakeKeyString(Id)));
  77183. end;
  77184. Function TSPRecycleBinItemsEntitySet.List(const AQuery: String; out NextLink: String) : TSPRecycleBinItemArray;
  77185. begin
  77186. Result:=TSPRecycleBinItemArray(GetMulti(AQuery,False,NextLink));
  77187. end;
  77188. Function TSPRecycleBinItemsEntitySet.List(const AQuery: TQueryParams; out NextLink: String) : TSPRecycleBinItemArray;
  77189. begin
  77190. Result:=TSPRecycleBinItemArray(GetMulti(AQuery,False,NextLink));
  77191. end;
  77192. Function TSPRecycleBinItemsEntitySet.ListAll(const AQuery: String) : TSPRecycleBinItemArray;
  77193. var N : String;
  77194. begin
  77195. Result:=TSPRecycleBinItemArray(GetMulti(AQuery,True,N));
  77196. end;
  77197. Function TSPRecycleBinItemsEntitySet.ListAll(const AQuery: TQueryParams) : TSPRecycleBinItemArray;
  77198. var N : String;
  77199. begin
  77200. Result:=TSPRecycleBinItemArray(GetMulti(AQuery,True,N));
  77201. end;
  77202. { --------------------------------------------------------------------
  77203. TSPRegionalSettingssEntitySet
  77204. --------------------------------------------------------------------}
  77205. Class Function TSPRegionalSettingssEntitySet.ObjectRestKind : String;
  77206. begin
  77207. Result:='RegionalSettingss';
  77208. end;
  77209. Class Function TSPRegionalSettingssEntitySet.EntityClass : TODataEntityClass;
  77210. begin
  77211. Result:=TSPRegionalSettings;
  77212. end;
  77213. Function TSPRegionalSettingssEntitySet.Get(const AdjustHijriDays: TInt16) : TSPRegionalSettings;
  77214. begin
  77215. Result:=TSPRegionalSettings(GetSingle(IntToStr(AdjustHijriDays)));
  77216. end;
  77217. Function TSPRegionalSettingssEntitySet.List(const AQuery: String; out NextLink: String) : TSPRegionalSettingsArray;
  77218. begin
  77219. Result:=TSPRegionalSettingsArray(GetMulti(AQuery,False,NextLink));
  77220. end;
  77221. Function TSPRegionalSettingssEntitySet.List(const AQuery: TQueryParams; out NextLink: String) : TSPRegionalSettingsArray;
  77222. begin
  77223. Result:=TSPRegionalSettingsArray(GetMulti(AQuery,False,NextLink));
  77224. end;
  77225. Function TSPRegionalSettingssEntitySet.ListAll(const AQuery: String) : TSPRegionalSettingsArray;
  77226. var N : String;
  77227. begin
  77228. Result:=TSPRegionalSettingsArray(GetMulti(AQuery,True,N));
  77229. end;
  77230. Function TSPRegionalSettingssEntitySet.ListAll(const AQuery: TQueryParams) : TSPRegionalSettingsArray;
  77231. var N : String;
  77232. begin
  77233. Result:=TSPRegionalSettingsArray(GetMulti(AQuery,True,N));
  77234. end;
  77235. { --------------------------------------------------------------------
  77236. TSPRelatedFieldsEntitySet
  77237. --------------------------------------------------------------------}
  77238. Class Function TSPRelatedFieldsEntitySet.ObjectRestKind : String;
  77239. begin
  77240. Result:='RelatedFields';
  77241. end;
  77242. Class Function TSPRelatedFieldsEntitySet.EntityClass : TODataEntityClass;
  77243. begin
  77244. Result:=TSPRelatedField;
  77245. end;
  77246. Function TSPRelatedFieldsEntitySet.Get(const FieldId: TGUIDString) : TSPRelatedField;
  77247. begin
  77248. Result:=TSPRelatedField(GetSingle(TODataObject.MakeKeyString(FieldId)));
  77249. end;
  77250. Function TSPRelatedFieldsEntitySet.List(const AQuery: String; out NextLink: String) : TSPRelatedFieldArray;
  77251. begin
  77252. Result:=TSPRelatedFieldArray(GetMulti(AQuery,False,NextLink));
  77253. end;
  77254. Function TSPRelatedFieldsEntitySet.List(const AQuery: TQueryParams; out NextLink: String) : TSPRelatedFieldArray;
  77255. begin
  77256. Result:=TSPRelatedFieldArray(GetMulti(AQuery,False,NextLink));
  77257. end;
  77258. Function TSPRelatedFieldsEntitySet.ListAll(const AQuery: String) : TSPRelatedFieldArray;
  77259. var N : String;
  77260. begin
  77261. Result:=TSPRelatedFieldArray(GetMulti(AQuery,True,N));
  77262. end;
  77263. Function TSPRelatedFieldsEntitySet.ListAll(const AQuery: TQueryParams) : TSPRelatedFieldArray;
  77264. var N : String;
  77265. begin
  77266. Result:=TSPRelatedFieldArray(GetMulti(AQuery,True,N));
  77267. end;
  77268. { --------------------------------------------------------------------
  77269. TSPRelatedItemManagersEntitySet
  77270. --------------------------------------------------------------------}
  77271. Class Function TSPRelatedItemManagersEntitySet.ObjectRestKind : String;
  77272. begin
  77273. Result:='RelatedItemManagers';
  77274. end;
  77275. Class Function TSPRelatedItemManagersEntitySet.EntityClass : TODataEntityClass;
  77276. begin
  77277. Result:=TSPRelatedItemManager;
  77278. end;
  77279. Function TSPRelatedItemManagersEntitySet.Get(const Id4a81de82eeb94d6080ea5bf63e27023a: string) : TSPRelatedItemManager;
  77280. begin
  77281. Result:=TSPRelatedItemManager(GetSingle(TODataObject.MakeKeyString(Id4a81de82eeb94d6080ea5bf63e27023a)));
  77282. end;
  77283. Function TSPRelatedItemManagersEntitySet.List(const AQuery: String; out NextLink: String) : TSPRelatedItemManagerArray;
  77284. begin
  77285. Result:=TSPRelatedItemManagerArray(GetMulti(AQuery,False,NextLink));
  77286. end;
  77287. Function TSPRelatedItemManagersEntitySet.List(const AQuery: TQueryParams; out NextLink: String) : TSPRelatedItemManagerArray;
  77288. begin
  77289. Result:=TSPRelatedItemManagerArray(GetMulti(AQuery,False,NextLink));
  77290. end;
  77291. Function TSPRelatedItemManagersEntitySet.ListAll(const AQuery: String) : TSPRelatedItemManagerArray;
  77292. var N : String;
  77293. begin
  77294. Result:=TSPRelatedItemManagerArray(GetMulti(AQuery,True,N));
  77295. end;
  77296. Function TSPRelatedItemManagersEntitySet.ListAll(const AQuery: TQueryParams) : TSPRelatedItemManagerArray;
  77297. var N : String;
  77298. begin
  77299. Result:=TSPRelatedItemManagerArray(GetMulti(AQuery,True,N));
  77300. end;
  77301. { --------------------------------------------------------------------
  77302. TSPRemoteWebsEntitySet
  77303. --------------------------------------------------------------------}
  77304. Class Function TSPRemoteWebsEntitySet.ObjectRestKind : String;
  77305. begin
  77306. Result:='RemoteWebs';
  77307. end;
  77308. Class Function TSPRemoteWebsEntitySet.EntityClass : TODataEntityClass;
  77309. begin
  77310. Result:=TSPRemoteWeb;
  77311. end;
  77312. Function TSPRemoteWebsEntitySet.Get(const CanSendEmail: boolean) : TSPRemoteWeb;
  77313. begin
  77314. Result:=TSPRemoteWeb(GetSingle(BoolToStr(CanSendEmail,'true','false')));
  77315. end;
  77316. Function TSPRemoteWebsEntitySet.List(const AQuery: String; out NextLink: String) : TSPRemoteWebArray;
  77317. begin
  77318. Result:=TSPRemoteWebArray(GetMulti(AQuery,False,NextLink));
  77319. end;
  77320. Function TSPRemoteWebsEntitySet.List(const AQuery: TQueryParams; out NextLink: String) : TSPRemoteWebArray;
  77321. begin
  77322. Result:=TSPRemoteWebArray(GetMulti(AQuery,False,NextLink));
  77323. end;
  77324. Function TSPRemoteWebsEntitySet.ListAll(const AQuery: String) : TSPRemoteWebArray;
  77325. var N : String;
  77326. begin
  77327. Result:=TSPRemoteWebArray(GetMulti(AQuery,True,N));
  77328. end;
  77329. Function TSPRemoteWebsEntitySet.ListAll(const AQuery: TQueryParams) : TSPRemoteWebArray;
  77330. var N : String;
  77331. begin
  77332. Result:=TSPRemoteWebArray(GetMulti(AQuery,True,N));
  77333. end;
  77334. { --------------------------------------------------------------------
  77335. TSPRequestContexts1EntitySet
  77336. --------------------------------------------------------------------}
  77337. Class Function TSPRequestContexts1EntitySet.ObjectRestKind : String;
  77338. begin
  77339. Result:='RequestContexts1';
  77340. end;
  77341. Class Function TSPRequestContexts1EntitySet.EntityClass : TODataEntityClass;
  77342. begin
  77343. Result:=TSPRequestContext;
  77344. end;
  77345. Function TSPRequestContexts1EntitySet.Get(const Id4a81de82eeb94d6080ea5bf63e27023a: string) : TSPRequestContext;
  77346. begin
  77347. Result:=TSPRequestContext(GetSingle(TODataObject.MakeKeyString(Id4a81de82eeb94d6080ea5bf63e27023a)));
  77348. end;
  77349. Function TSPRequestContexts1EntitySet.List(const AQuery: String; out NextLink: String) : TSPRequestContextArray;
  77350. begin
  77351. Result:=TSPRequestContextArray(GetMulti(AQuery,False,NextLink));
  77352. end;
  77353. Function TSPRequestContexts1EntitySet.List(const AQuery: TQueryParams; out NextLink: String) : TSPRequestContextArray;
  77354. begin
  77355. Result:=TSPRequestContextArray(GetMulti(AQuery,False,NextLink));
  77356. end;
  77357. Function TSPRequestContexts1EntitySet.ListAll(const AQuery: String) : TSPRequestContextArray;
  77358. var N : String;
  77359. begin
  77360. Result:=TSPRequestContextArray(GetMulti(AQuery,True,N));
  77361. end;
  77362. Function TSPRequestContexts1EntitySet.ListAll(const AQuery: TQueryParams) : TSPRequestContextArray;
  77363. var N : String;
  77364. begin
  77365. Result:=TSPRequestContextArray(GetMulti(AQuery,True,N));
  77366. end;
  77367. { --------------------------------------------------------------------
  77368. TSPRoleAssignmentsEntitySet
  77369. --------------------------------------------------------------------}
  77370. Class Function TSPRoleAssignmentsEntitySet.ObjectRestKind : String;
  77371. begin
  77372. Result:='RoleAssignments';
  77373. end;
  77374. Class Function TSPRoleAssignmentsEntitySet.EntityClass : TODataEntityClass;
  77375. begin
  77376. Result:=TSPRoleAssignment;
  77377. end;
  77378. Function TSPRoleAssignmentsEntitySet.Get(const PrincipalId: TInt32) : TSPRoleAssignment;
  77379. begin
  77380. Result:=TSPRoleAssignment(GetSingle(IntToStr(PrincipalId)));
  77381. end;
  77382. Function TSPRoleAssignmentsEntitySet.List(const AQuery: String; out NextLink: String) : TSPRoleAssignmentArray;
  77383. begin
  77384. Result:=TSPRoleAssignmentArray(GetMulti(AQuery,False,NextLink));
  77385. end;
  77386. Function TSPRoleAssignmentsEntitySet.List(const AQuery: TQueryParams; out NextLink: String) : TSPRoleAssignmentArray;
  77387. begin
  77388. Result:=TSPRoleAssignmentArray(GetMulti(AQuery,False,NextLink));
  77389. end;
  77390. Function TSPRoleAssignmentsEntitySet.ListAll(const AQuery: String) : TSPRoleAssignmentArray;
  77391. var N : String;
  77392. begin
  77393. Result:=TSPRoleAssignmentArray(GetMulti(AQuery,True,N));
  77394. end;
  77395. Function TSPRoleAssignmentsEntitySet.ListAll(const AQuery: TQueryParams) : TSPRoleAssignmentArray;
  77396. var N : String;
  77397. begin
  77398. Result:=TSPRoleAssignmentArray(GetMulti(AQuery,True,N));
  77399. end;
  77400. { --------------------------------------------------------------------
  77401. TSPRoleDefinitionsEntitySet
  77402. --------------------------------------------------------------------}
  77403. Class Function TSPRoleDefinitionsEntitySet.ObjectRestKind : String;
  77404. begin
  77405. Result:='RoleDefinitions';
  77406. end;
  77407. Class Function TSPRoleDefinitionsEntitySet.EntityClass : TODataEntityClass;
  77408. begin
  77409. Result:=TSPRoleDefinition;
  77410. end;
  77411. Function TSPRoleDefinitionsEntitySet.Get(const Id: TInt32) : TSPRoleDefinition;
  77412. begin
  77413. Result:=TSPRoleDefinition(GetSingle(IntToStr(Id)));
  77414. end;
  77415. Function TSPRoleDefinitionsEntitySet.List(const AQuery: String; out NextLink: String) : TSPRoleDefinitionArray;
  77416. begin
  77417. Result:=TSPRoleDefinitionArray(GetMulti(AQuery,False,NextLink));
  77418. end;
  77419. Function TSPRoleDefinitionsEntitySet.List(const AQuery: TQueryParams; out NextLink: String) : TSPRoleDefinitionArray;
  77420. begin
  77421. Result:=TSPRoleDefinitionArray(GetMulti(AQuery,False,NextLink));
  77422. end;
  77423. Function TSPRoleDefinitionsEntitySet.ListAll(const AQuery: String) : TSPRoleDefinitionArray;
  77424. var N : String;
  77425. begin
  77426. Result:=TSPRoleDefinitionArray(GetMulti(AQuery,True,N));
  77427. end;
  77428. Function TSPRoleDefinitionsEntitySet.ListAll(const AQuery: TQueryParams) : TSPRoleDefinitionArray;
  77429. var N : String;
  77430. begin
  77431. Result:=TSPRoleDefinitionArray(GetMulti(AQuery,True,N));
  77432. end;
  77433. { --------------------------------------------------------------------
  77434. TSPSecurableObjectsEntitySet
  77435. --------------------------------------------------------------------}
  77436. Class Function TSPSecurableObjectsEntitySet.ObjectRestKind : String;
  77437. begin
  77438. Result:='SecurableObjects';
  77439. end;
  77440. Class Function TSPSecurableObjectsEntitySet.EntityClass : TODataEntityClass;
  77441. begin
  77442. Result:=TSPSecurableObject;
  77443. end;
  77444. Function TSPSecurableObjectsEntitySet.Get(const HasUniqueRoleAssignments: boolean) : TSPSecurableObject;
  77445. begin
  77446. Result:=TSPSecurableObject(GetSingle(BoolToStr(HasUniqueRoleAssignments,'true','false')));
  77447. end;
  77448. Function TSPSecurableObjectsEntitySet.List(const AQuery: String; out NextLink: String) : TSPSecurableObjectArray;
  77449. begin
  77450. Result:=TSPSecurableObjectArray(GetMulti(AQuery,False,NextLink));
  77451. end;
  77452. Function TSPSecurableObjectsEntitySet.List(const AQuery: TQueryParams; out NextLink: String) : TSPSecurableObjectArray;
  77453. begin
  77454. Result:=TSPSecurableObjectArray(GetMulti(AQuery,False,NextLink));
  77455. end;
  77456. Function TSPSecurableObjectsEntitySet.ListAll(const AQuery: String) : TSPSecurableObjectArray;
  77457. var N : String;
  77458. begin
  77459. Result:=TSPSecurableObjectArray(GetMulti(AQuery,True,N));
  77460. end;
  77461. Function TSPSecurableObjectsEntitySet.ListAll(const AQuery: TQueryParams) : TSPSecurableObjectArray;
  77462. var N : String;
  77463. begin
  77464. Result:=TSPSecurableObjectArray(GetMulti(AQuery,True,N));
  77465. end;
  77466. { --------------------------------------------------------------------
  77467. TSPServerSettingssEntitySet
  77468. --------------------------------------------------------------------}
  77469. Class Function TSPServerSettingssEntitySet.ObjectRestKind : String;
  77470. begin
  77471. Result:='ServerSettingss';
  77472. end;
  77473. Class Function TSPServerSettingssEntitySet.EntityClass : TODataEntityClass;
  77474. begin
  77475. Result:=TSPServerSettings;
  77476. end;
  77477. Function TSPServerSettingssEntitySet.Get(const Id4a81de82eeb94d6080ea5bf63e27023a: string) : TSPServerSettings;
  77478. begin
  77479. Result:=TSPServerSettings(GetSingle(TODataObject.MakeKeyString(Id4a81de82eeb94d6080ea5bf63e27023a)));
  77480. end;
  77481. Function TSPServerSettingssEntitySet.List(const AQuery: String; out NextLink: String) : TSPServerSettingsArray;
  77482. begin
  77483. Result:=TSPServerSettingsArray(GetMulti(AQuery,False,NextLink));
  77484. end;
  77485. Function TSPServerSettingssEntitySet.List(const AQuery: TQueryParams; out NextLink: String) : TSPServerSettingsArray;
  77486. begin
  77487. Result:=TSPServerSettingsArray(GetMulti(AQuery,False,NextLink));
  77488. end;
  77489. Function TSPServerSettingssEntitySet.ListAll(const AQuery: String) : TSPServerSettingsArray;
  77490. var N : String;
  77491. begin
  77492. Result:=TSPServerSettingsArray(GetMulti(AQuery,True,N));
  77493. end;
  77494. Function TSPServerSettingssEntitySet.ListAll(const AQuery: TQueryParams) : TSPServerSettingsArray;
  77495. var N : String;
  77496. begin
  77497. Result:=TSPServerSettingsArray(GetMulti(AQuery,True,N));
  77498. end;
  77499. { --------------------------------------------------------------------
  77500. TSPSharePointSharingSettingssEntitySet
  77501. --------------------------------------------------------------------}
  77502. Class Function TSPSharePointSharingSettingssEntitySet.ObjectRestKind : String;
  77503. begin
  77504. Result:='SharePointSharingSettingss';
  77505. end;
  77506. Class Function TSPSharePointSharingSettingssEntitySet.EntityClass : TODataEntityClass;
  77507. begin
  77508. Result:=TSPSharePointSharingSettings;
  77509. end;
  77510. Function TSPSharePointSharingSettingssEntitySet.Get(const AddToGroupModeName: string) : TSPSharePointSharingSettings;
  77511. begin
  77512. Result:=TSPSharePointSharingSettings(GetSingle(TODataObject.MakeKeyString(AddToGroupModeName)));
  77513. end;
  77514. Function TSPSharePointSharingSettingssEntitySet.List(const AQuery: String; out NextLink: String) : TSPSharePointSharingSettingsArray;
  77515. begin
  77516. Result:=TSPSharePointSharingSettingsArray(GetMulti(AQuery,False,NextLink));
  77517. end;
  77518. Function TSPSharePointSharingSettingssEntitySet.List(const AQuery: TQueryParams; out NextLink: String) : TSPSharePointSharingSettingsArray;
  77519. begin
  77520. Result:=TSPSharePointSharingSettingsArray(GetMulti(AQuery,False,NextLink));
  77521. end;
  77522. Function TSPSharePointSharingSettingssEntitySet.ListAll(const AQuery: String) : TSPSharePointSharingSettingsArray;
  77523. var N : String;
  77524. begin
  77525. Result:=TSPSharePointSharingSettingsArray(GetMulti(AQuery,True,N));
  77526. end;
  77527. Function TSPSharePointSharingSettingssEntitySet.ListAll(const AQuery: TQueryParams) : TSPSharePointSharingSettingsArray;
  77528. var N : String;
  77529. begin
  77530. Result:=TSPSharePointSharingSettingsArray(GetMulti(AQuery,True,N));
  77531. end;
  77532. { --------------------------------------------------------------------
  77533. TSPDocumentSharingManagersEntitySet
  77534. --------------------------------------------------------------------}
  77535. Class Function TSPDocumentSharingManagersEntitySet.ObjectRestKind : String;
  77536. begin
  77537. Result:='DocumentSharingManagers';
  77538. end;
  77539. Class Function TSPDocumentSharingManagersEntitySet.EntityClass : TODataEntityClass;
  77540. begin
  77541. Result:=TSP_SharingDocumentSharingManager;
  77542. end;
  77543. Function TSPDocumentSharingManagersEntitySet.Get(const Id4a81de82eeb94d6080ea5bf63e27023a: string) : TSP_SharingDocumentSharingManager;
  77544. begin
  77545. Result:=TSP_SharingDocumentSharingManager(GetSingle(TODataObject.MakeKeyString(Id4a81de82eeb94d6080ea5bf63e27023a)));
  77546. end;
  77547. Function TSPDocumentSharingManagersEntitySet.List(const AQuery: String; out NextLink: String) : TSP_SharingDocumentSharingManagerArray;
  77548. begin
  77549. Result:=TSP_SharingDocumentSharingManagerArray(GetMulti(AQuery,False,NextLink));
  77550. end;
  77551. Function TSPDocumentSharingManagersEntitySet.List(const AQuery: TQueryParams; out NextLink: String) : TSP_SharingDocumentSharingManagerArray;
  77552. begin
  77553. Result:=TSP_SharingDocumentSharingManagerArray(GetMulti(AQuery,False,NextLink));
  77554. end;
  77555. Function TSPDocumentSharingManagersEntitySet.ListAll(const AQuery: String) : TSP_SharingDocumentSharingManagerArray;
  77556. var N : String;
  77557. begin
  77558. Result:=TSP_SharingDocumentSharingManagerArray(GetMulti(AQuery,True,N));
  77559. end;
  77560. Function TSPDocumentSharingManagersEntitySet.ListAll(const AQuery: TQueryParams) : TSP_SharingDocumentSharingManagerArray;
  77561. var N : String;
  77562. begin
  77563. Result:=TSP_SharingDocumentSharingManagerArray(GetMulti(AQuery,True,N));
  77564. end;
  77565. { --------------------------------------------------------------------
  77566. TSPWebSharingManagersEntitySet
  77567. --------------------------------------------------------------------}
  77568. Class Function TSPWebSharingManagersEntitySet.ObjectRestKind : String;
  77569. begin
  77570. Result:='WebSharingManagers';
  77571. end;
  77572. Class Function TSPWebSharingManagersEntitySet.EntityClass : TODataEntityClass;
  77573. begin
  77574. Result:=TSP_SharingWebSharingManager;
  77575. end;
  77576. Function TSPWebSharingManagersEntitySet.Get(const Id4a81de82eeb94d6080ea5bf63e27023a: string) : TSP_SharingWebSharingManager;
  77577. begin
  77578. Result:=TSP_SharingWebSharingManager(GetSingle(TODataObject.MakeKeyString(Id4a81de82eeb94d6080ea5bf63e27023a)));
  77579. end;
  77580. Function TSPWebSharingManagersEntitySet.List(const AQuery: String; out NextLink: String) : TSP_SharingWebSharingManagerArray;
  77581. begin
  77582. Result:=TSP_SharingWebSharingManagerArray(GetMulti(AQuery,False,NextLink));
  77583. end;
  77584. Function TSPWebSharingManagersEntitySet.List(const AQuery: TQueryParams; out NextLink: String) : TSP_SharingWebSharingManagerArray;
  77585. begin
  77586. Result:=TSP_SharingWebSharingManagerArray(GetMulti(AQuery,False,NextLink));
  77587. end;
  77588. Function TSPWebSharingManagersEntitySet.ListAll(const AQuery: String) : TSP_SharingWebSharingManagerArray;
  77589. var N : String;
  77590. begin
  77591. Result:=TSP_SharingWebSharingManagerArray(GetMulti(AQuery,True,N));
  77592. end;
  77593. Function TSPWebSharingManagersEntitySet.ListAll(const AQuery: TQueryParams) : TSP_SharingWebSharingManagerArray;
  77594. var N : String;
  77595. begin
  77596. Result:=TSP_SharingWebSharingManagerArray(GetMulti(AQuery,True,N));
  77597. end;
  77598. { --------------------------------------------------------------------
  77599. TSPSharingResultsEntitySet
  77600. --------------------------------------------------------------------}
  77601. Class Function TSPSharingResultsEntitySet.ObjectRestKind : String;
  77602. begin
  77603. Result:='SharingResults';
  77604. end;
  77605. Class Function TSPSharingResultsEntitySet.EntityClass : TODataEntityClass;
  77606. begin
  77607. Result:=TSPSharingResult;
  77608. end;
  77609. Function TSPSharingResultsEntitySet.Get(const _Name: string) : TSPSharingResult;
  77610. begin
  77611. Result:=TSPSharingResult(GetSingle(TODataObject.MakeKeyString(_Name)));
  77612. end;
  77613. Function TSPSharingResultsEntitySet.List(const AQuery: String; out NextLink: String) : TSPSharingResultArray;
  77614. begin
  77615. Result:=TSPSharingResultArray(GetMulti(AQuery,False,NextLink));
  77616. end;
  77617. Function TSPSharingResultsEntitySet.List(const AQuery: TQueryParams; out NextLink: String) : TSPSharingResultArray;
  77618. begin
  77619. Result:=TSPSharingResultArray(GetMulti(AQuery,False,NextLink));
  77620. end;
  77621. Function TSPSharingResultsEntitySet.ListAll(const AQuery: String) : TSPSharingResultArray;
  77622. var N : String;
  77623. begin
  77624. Result:=TSPSharingResultArray(GetMulti(AQuery,True,N));
  77625. end;
  77626. Function TSPSharingResultsEntitySet.ListAll(const AQuery: TQueryParams) : TSPSharingResultArray;
  77627. var N : String;
  77628. begin
  77629. Result:=TSPSharingResultArray(GetMulti(AQuery,True,N));
  77630. end;
  77631. { --------------------------------------------------------------------
  77632. TSPSiteHealthSummarysEntitySet
  77633. --------------------------------------------------------------------}
  77634. Class Function TSPSiteHealthSummarysEntitySet.ObjectRestKind : String;
  77635. begin
  77636. Result:='SiteHealthSummarys';
  77637. end;
  77638. Class Function TSPSiteHealthSummarysEntitySet.EntityClass : TODataEntityClass;
  77639. begin
  77640. Result:=TSP_SiteHealthSiteHealthSummary;
  77641. end;
  77642. Function TSPSiteHealthSummarysEntitySet.Get(const FailedErrorCount: TInt32) : TSP_SiteHealthSiteHealthSummary;
  77643. begin
  77644. Result:=TSP_SiteHealthSiteHealthSummary(GetSingle(IntToStr(FailedErrorCount)));
  77645. end;
  77646. Function TSPSiteHealthSummarysEntitySet.List(const AQuery: String; out NextLink: String) : TSP_SiteHealthSiteHealthSummaryArray;
  77647. begin
  77648. Result:=TSP_SiteHealthSiteHealthSummaryArray(GetMulti(AQuery,False,NextLink));
  77649. end;
  77650. Function TSPSiteHealthSummarysEntitySet.List(const AQuery: TQueryParams; out NextLink: String) : TSP_SiteHealthSiteHealthSummaryArray;
  77651. begin
  77652. Result:=TSP_SiteHealthSiteHealthSummaryArray(GetMulti(AQuery,False,NextLink));
  77653. end;
  77654. Function TSPSiteHealthSummarysEntitySet.ListAll(const AQuery: String) : TSP_SiteHealthSiteHealthSummaryArray;
  77655. var N : String;
  77656. begin
  77657. Result:=TSP_SiteHealthSiteHealthSummaryArray(GetMulti(AQuery,True,N));
  77658. end;
  77659. Function TSPSiteHealthSummarysEntitySet.ListAll(const AQuery: TQueryParams) : TSP_SiteHealthSiteHealthSummaryArray;
  77660. var N : String;
  77661. begin
  77662. Result:=TSP_SiteHealthSiteHealthSummaryArray(GetMulti(AQuery,True,N));
  77663. end;
  77664. { --------------------------------------------------------------------
  77665. TSPSiteUrlsEntitySet
  77666. --------------------------------------------------------------------}
  77667. Class Function TSPSiteUrlsEntitySet.ObjectRestKind : String;
  77668. begin
  77669. Result:='SiteUrls';
  77670. end;
  77671. Class Function TSPSiteUrlsEntitySet.EntityClass : TODataEntityClass;
  77672. begin
  77673. Result:=TSPSiteUrl;
  77674. end;
  77675. Function TSPSiteUrlsEntitySet.Get(const Id4a81de82eeb94d6080ea5bf63e27023a: string) : TSPSiteUrl;
  77676. begin
  77677. Result:=TSPSiteUrl(GetSingle(TODataObject.MakeKeyString(Id4a81de82eeb94d6080ea5bf63e27023a)));
  77678. end;
  77679. Function TSPSiteUrlsEntitySet.List(const AQuery: String; out NextLink: String) : TSPSiteUrlArray;
  77680. begin
  77681. Result:=TSPSiteUrlArray(GetMulti(AQuery,False,NextLink));
  77682. end;
  77683. Function TSPSiteUrlsEntitySet.List(const AQuery: TQueryParams; out NextLink: String) : TSPSiteUrlArray;
  77684. begin
  77685. Result:=TSPSiteUrlArray(GetMulti(AQuery,False,NextLink));
  77686. end;
  77687. Function TSPSiteUrlsEntitySet.ListAll(const AQuery: String) : TSPSiteUrlArray;
  77688. var N : String;
  77689. begin
  77690. Result:=TSPSiteUrlArray(GetMulti(AQuery,True,N));
  77691. end;
  77692. Function TSPSiteUrlsEntitySet.ListAll(const AQuery: TQueryParams) : TSPSiteUrlArray;
  77693. var N : String;
  77694. begin
  77695. Result:=TSPSiteUrlArray(GetMulti(AQuery,True,N));
  77696. end;
  77697. { --------------------------------------------------------------------
  77698. TSPSocialAnnouncementManagersEntitySet
  77699. --------------------------------------------------------------------}
  77700. Class Function TSPSocialAnnouncementManagersEntitySet.ObjectRestKind : String;
  77701. begin
  77702. Result:='SocialAnnouncementManagers';
  77703. end;
  77704. Class Function TSPSocialAnnouncementManagersEntitySet.EntityClass : TODataEntityClass;
  77705. begin
  77706. Result:=TSP_SocialSocialAnnouncementManager;
  77707. end;
  77708. Function TSPSocialAnnouncementManagersEntitySet.Get(const Id4a81de82eeb94d6080ea5bf63e27023a: string) : TSP_SocialSocialAnnouncementManager;
  77709. begin
  77710. Result:=TSP_SocialSocialAnnouncementManager(GetSingle(TODataObject.MakeKeyString(Id4a81de82eeb94d6080ea5bf63e27023a)));
  77711. end;
  77712. Function TSPSocialAnnouncementManagersEntitySet.List(const AQuery: String; out NextLink: String) : TSP_SocialSocialAnnouncementManagerArray;
  77713. begin
  77714. Result:=TSP_SocialSocialAnnouncementManagerArray(GetMulti(AQuery,False,NextLink));
  77715. end;
  77716. Function TSPSocialAnnouncementManagersEntitySet.List(const AQuery: TQueryParams; out NextLink: String) : TSP_SocialSocialAnnouncementManagerArray;
  77717. begin
  77718. Result:=TSP_SocialSocialAnnouncementManagerArray(GetMulti(AQuery,False,NextLink));
  77719. end;
  77720. Function TSPSocialAnnouncementManagersEntitySet.ListAll(const AQuery: String) : TSP_SocialSocialAnnouncementManagerArray;
  77721. var N : String;
  77722. begin
  77723. Result:=TSP_SocialSocialAnnouncementManagerArray(GetMulti(AQuery,True,N));
  77724. end;
  77725. Function TSPSocialAnnouncementManagersEntitySet.ListAll(const AQuery: TQueryParams) : TSP_SocialSocialAnnouncementManagerArray;
  77726. var N : String;
  77727. begin
  77728. Result:=TSP_SocialSocialAnnouncementManagerArray(GetMulti(AQuery,True,N));
  77729. end;
  77730. { --------------------------------------------------------------------
  77731. TSPSocialFeedManagersEntitySet
  77732. --------------------------------------------------------------------}
  77733. Class Function TSPSocialFeedManagersEntitySet.ObjectRestKind : String;
  77734. begin
  77735. Result:='SocialFeedManagers';
  77736. end;
  77737. Class Function TSPSocialFeedManagersEntitySet.EntityClass : TODataEntityClass;
  77738. begin
  77739. Result:=TSP_SocialSocialFeedManager;
  77740. end;
  77741. Function TSPSocialFeedManagersEntitySet.Get(const PersonalSitePortalUri: string) : TSP_SocialSocialFeedManager;
  77742. begin
  77743. Result:=TSP_SocialSocialFeedManager(GetSingle(TODataObject.MakeKeyString(PersonalSitePortalUri)));
  77744. end;
  77745. Function TSPSocialFeedManagersEntitySet.List(const AQuery: String; out NextLink: String) : TSP_SocialSocialFeedManagerArray;
  77746. begin
  77747. Result:=TSP_SocialSocialFeedManagerArray(GetMulti(AQuery,False,NextLink));
  77748. end;
  77749. Function TSPSocialFeedManagersEntitySet.List(const AQuery: TQueryParams; out NextLink: String) : TSP_SocialSocialFeedManagerArray;
  77750. begin
  77751. Result:=TSP_SocialSocialFeedManagerArray(GetMulti(AQuery,False,NextLink));
  77752. end;
  77753. Function TSPSocialFeedManagersEntitySet.ListAll(const AQuery: String) : TSP_SocialSocialFeedManagerArray;
  77754. var N : String;
  77755. begin
  77756. Result:=TSP_SocialSocialFeedManagerArray(GetMulti(AQuery,True,N));
  77757. end;
  77758. Function TSPSocialFeedManagersEntitySet.ListAll(const AQuery: TQueryParams) : TSP_SocialSocialFeedManagerArray;
  77759. var N : String;
  77760. begin
  77761. Result:=TSP_SocialSocialFeedManagerArray(GetMulti(AQuery,True,N));
  77762. end;
  77763. { --------------------------------------------------------------------
  77764. TSPSocialFollowingManagersEntitySet
  77765. --------------------------------------------------------------------}
  77766. Class Function TSPSocialFollowingManagersEntitySet.ObjectRestKind : String;
  77767. begin
  77768. Result:='SocialFollowingManagers';
  77769. end;
  77770. Class Function TSPSocialFollowingManagersEntitySet.EntityClass : TODataEntityClass;
  77771. begin
  77772. Result:=TSP_SocialSocialFollowingManager;
  77773. end;
  77774. Function TSPSocialFollowingManagersEntitySet.Get(const FollowedDocumentsUri: string) : TSP_SocialSocialFollowingManager;
  77775. begin
  77776. Result:=TSP_SocialSocialFollowingManager(GetSingle(TODataObject.MakeKeyString(FollowedDocumentsUri)));
  77777. end;
  77778. Function TSPSocialFollowingManagersEntitySet.List(const AQuery: String; out NextLink: String) : TSP_SocialSocialFollowingManagerArray;
  77779. begin
  77780. Result:=TSP_SocialSocialFollowingManagerArray(GetMulti(AQuery,False,NextLink));
  77781. end;
  77782. Function TSPSocialFollowingManagersEntitySet.List(const AQuery: TQueryParams; out NextLink: String) : TSP_SocialSocialFollowingManagerArray;
  77783. begin
  77784. Result:=TSP_SocialSocialFollowingManagerArray(GetMulti(AQuery,False,NextLink));
  77785. end;
  77786. Function TSPSocialFollowingManagersEntitySet.ListAll(const AQuery: String) : TSP_SocialSocialFollowingManagerArray;
  77787. var N : String;
  77788. begin
  77789. Result:=TSP_SocialSocialFollowingManagerArray(GetMulti(AQuery,True,N));
  77790. end;
  77791. Function TSPSocialFollowingManagersEntitySet.ListAll(const AQuery: TQueryParams) : TSP_SocialSocialFollowingManagerArray;
  77792. var N : String;
  77793. begin
  77794. Result:=TSP_SocialSocialFollowingManagerArray(GetMulti(AQuery,True,N));
  77795. end;
  77796. { --------------------------------------------------------------------
  77797. TSPSocialRestActorsEntitySet
  77798. --------------------------------------------------------------------}
  77799. Class Function TSPSocialRestActorsEntitySet.ObjectRestKind : String;
  77800. begin
  77801. Result:='SocialRestActors';
  77802. end;
  77803. Class Function TSPSocialRestActorsEntitySet.EntityClass : TODataEntityClass;
  77804. begin
  77805. Result:=TSP_SocialSocialRestActor;
  77806. end;
  77807. Function TSPSocialRestActorsEntitySet.Get(const FollowableItem: string) : TSP_SocialSocialRestActor;
  77808. begin
  77809. Result:=TSP_SocialSocialRestActor(GetSingle(TODataObject.MakeKeyString(FollowableItem)));
  77810. end;
  77811. Function TSPSocialRestActorsEntitySet.List(const AQuery: String; out NextLink: String) : TSP_SocialSocialRestActorArray;
  77812. begin
  77813. Result:=TSP_SocialSocialRestActorArray(GetMulti(AQuery,False,NextLink));
  77814. end;
  77815. Function TSPSocialRestActorsEntitySet.List(const AQuery: TQueryParams; out NextLink: String) : TSP_SocialSocialRestActorArray;
  77816. begin
  77817. Result:=TSP_SocialSocialRestActorArray(GetMulti(AQuery,False,NextLink));
  77818. end;
  77819. Function TSPSocialRestActorsEntitySet.ListAll(const AQuery: String) : TSP_SocialSocialRestActorArray;
  77820. var N : String;
  77821. begin
  77822. Result:=TSP_SocialSocialRestActorArray(GetMulti(AQuery,True,N));
  77823. end;
  77824. Function TSPSocialRestActorsEntitySet.ListAll(const AQuery: TQueryParams) : TSP_SocialSocialRestActorArray;
  77825. var N : String;
  77826. begin
  77827. Result:=TSP_SocialSocialRestActorArray(GetMulti(AQuery,True,N));
  77828. end;
  77829. { --------------------------------------------------------------------
  77830. TSPSocialRestFeedsEntitySet
  77831. --------------------------------------------------------------------}
  77832. Class Function TSPSocialRestFeedsEntitySet.ObjectRestKind : String;
  77833. begin
  77834. Result:='SocialRestFeeds';
  77835. end;
  77836. Class Function TSPSocialRestFeedsEntitySet.EntityClass : TODataEntityClass;
  77837. begin
  77838. Result:=TSP_SocialSocialRestFeed;
  77839. end;
  77840. Function TSPSocialRestFeedsEntitySet.Get(const Id4a81de82eeb94d6080ea5bf63e27023a: string) : TSP_SocialSocialRestFeed;
  77841. begin
  77842. Result:=TSP_SocialSocialRestFeed(GetSingle(TODataObject.MakeKeyString(Id4a81de82eeb94d6080ea5bf63e27023a)));
  77843. end;
  77844. Function TSPSocialRestFeedsEntitySet.List(const AQuery: String; out NextLink: String) : TSP_SocialSocialRestFeedArray;
  77845. begin
  77846. Result:=TSP_SocialSocialRestFeedArray(GetMulti(AQuery,False,NextLink));
  77847. end;
  77848. Function TSPSocialRestFeedsEntitySet.List(const AQuery: TQueryParams; out NextLink: String) : TSP_SocialSocialRestFeedArray;
  77849. begin
  77850. Result:=TSP_SocialSocialRestFeedArray(GetMulti(AQuery,False,NextLink));
  77851. end;
  77852. Function TSPSocialRestFeedsEntitySet.ListAll(const AQuery: String) : TSP_SocialSocialRestFeedArray;
  77853. var N : String;
  77854. begin
  77855. Result:=TSP_SocialSocialRestFeedArray(GetMulti(AQuery,True,N));
  77856. end;
  77857. Function TSPSocialRestFeedsEntitySet.ListAll(const AQuery: TQueryParams) : TSP_SocialSocialRestFeedArray;
  77858. var N : String;
  77859. begin
  77860. Result:=TSP_SocialSocialRestFeedArray(GetMulti(AQuery,True,N));
  77861. end;
  77862. { --------------------------------------------------------------------
  77863. TSPSocialRestFeedManagersEntitySet
  77864. --------------------------------------------------------------------}
  77865. Class Function TSPSocialRestFeedManagersEntitySet.ObjectRestKind : String;
  77866. begin
  77867. Result:='SocialRestFeedManagers';
  77868. end;
  77869. Class Function TSPSocialRestFeedManagersEntitySet.EntityClass : TODataEntityClass;
  77870. begin
  77871. Result:=TSP_SocialSocialRestFeedManager;
  77872. end;
  77873. Function TSPSocialRestFeedManagersEntitySet.Get(const Id4a81de82eeb94d6080ea5bf63e27023a: string) : TSP_SocialSocialRestFeedManager;
  77874. begin
  77875. Result:=TSP_SocialSocialRestFeedManager(GetSingle(TODataObject.MakeKeyString(Id4a81de82eeb94d6080ea5bf63e27023a)));
  77876. end;
  77877. Function TSPSocialRestFeedManagersEntitySet.List(const AQuery: String; out NextLink: String) : TSP_SocialSocialRestFeedManagerArray;
  77878. begin
  77879. Result:=TSP_SocialSocialRestFeedManagerArray(GetMulti(AQuery,False,NextLink));
  77880. end;
  77881. Function TSPSocialRestFeedManagersEntitySet.List(const AQuery: TQueryParams; out NextLink: String) : TSP_SocialSocialRestFeedManagerArray;
  77882. begin
  77883. Result:=TSP_SocialSocialRestFeedManagerArray(GetMulti(AQuery,False,NextLink));
  77884. end;
  77885. Function TSPSocialRestFeedManagersEntitySet.ListAll(const AQuery: String) : TSP_SocialSocialRestFeedManagerArray;
  77886. var N : String;
  77887. begin
  77888. Result:=TSP_SocialSocialRestFeedManagerArray(GetMulti(AQuery,True,N));
  77889. end;
  77890. Function TSPSocialRestFeedManagersEntitySet.ListAll(const AQuery: TQueryParams) : TSP_SocialSocialRestFeedManagerArray;
  77891. var N : String;
  77892. begin
  77893. Result:=TSP_SocialSocialRestFeedManagerArray(GetMulti(AQuery,True,N));
  77894. end;
  77895. { --------------------------------------------------------------------
  77896. TSPSocialRestFollowingManagersEntitySet
  77897. --------------------------------------------------------------------}
  77898. Class Function TSPSocialRestFollowingManagersEntitySet.ObjectRestKind : String;
  77899. begin
  77900. Result:='SocialRestFollowingManagers';
  77901. end;
  77902. Class Function TSPSocialRestFollowingManagersEntitySet.EntityClass : TODataEntityClass;
  77903. begin
  77904. Result:=TSP_SocialSocialRestFollowingManager;
  77905. end;
  77906. Function TSPSocialRestFollowingManagersEntitySet.Get(const FollowedDocumentsUri: string) : TSP_SocialSocialRestFollowingManager;
  77907. begin
  77908. Result:=TSP_SocialSocialRestFollowingManager(GetSingle(TODataObject.MakeKeyString(FollowedDocumentsUri)));
  77909. end;
  77910. Function TSPSocialRestFollowingManagersEntitySet.List(const AQuery: String; out NextLink: String) : TSP_SocialSocialRestFollowingManagerArray;
  77911. begin
  77912. Result:=TSP_SocialSocialRestFollowingManagerArray(GetMulti(AQuery,False,NextLink));
  77913. end;
  77914. Function TSPSocialRestFollowingManagersEntitySet.List(const AQuery: TQueryParams; out NextLink: String) : TSP_SocialSocialRestFollowingManagerArray;
  77915. begin
  77916. Result:=TSP_SocialSocialRestFollowingManagerArray(GetMulti(AQuery,False,NextLink));
  77917. end;
  77918. Function TSPSocialRestFollowingManagersEntitySet.ListAll(const AQuery: String) : TSP_SocialSocialRestFollowingManagerArray;
  77919. var N : String;
  77920. begin
  77921. Result:=TSP_SocialSocialRestFollowingManagerArray(GetMulti(AQuery,True,N));
  77922. end;
  77923. Function TSPSocialRestFollowingManagersEntitySet.ListAll(const AQuery: TQueryParams) : TSP_SocialSocialRestFollowingManagerArray;
  77924. var N : String;
  77925. begin
  77926. Result:=TSP_SocialSocialRestFollowingManagerArray(GetMulti(AQuery,True,N));
  77927. end;
  77928. { --------------------------------------------------------------------
  77929. TSPSocialRestThreadsEntitySet
  77930. --------------------------------------------------------------------}
  77931. Class Function TSPSocialRestThreadsEntitySet.ObjectRestKind : String;
  77932. begin
  77933. Result:='SocialRestThreads';
  77934. end;
  77935. Class Function TSPSocialRestThreadsEntitySet.EntityClass : TODataEntityClass;
  77936. begin
  77937. Result:=TSP_SocialSocialRestThread;
  77938. end;
  77939. Function TSPSocialRestThreadsEntitySet.Get(const ID: string) : TSP_SocialSocialRestThread;
  77940. begin
  77941. Result:=TSP_SocialSocialRestThread(GetSingle(TODataObject.MakeKeyString(ID)));
  77942. end;
  77943. Function TSPSocialRestThreadsEntitySet.List(const AQuery: String; out NextLink: String) : TSP_SocialSocialRestThreadArray;
  77944. begin
  77945. Result:=TSP_SocialSocialRestThreadArray(GetMulti(AQuery,False,NextLink));
  77946. end;
  77947. Function TSPSocialRestThreadsEntitySet.List(const AQuery: TQueryParams; out NextLink: String) : TSP_SocialSocialRestThreadArray;
  77948. begin
  77949. Result:=TSP_SocialSocialRestThreadArray(GetMulti(AQuery,False,NextLink));
  77950. end;
  77951. Function TSPSocialRestThreadsEntitySet.ListAll(const AQuery: String) : TSP_SocialSocialRestThreadArray;
  77952. var N : String;
  77953. begin
  77954. Result:=TSP_SocialSocialRestThreadArray(GetMulti(AQuery,True,N));
  77955. end;
  77956. Function TSPSocialRestThreadsEntitySet.ListAll(const AQuery: TQueryParams) : TSP_SocialSocialRestThreadArray;
  77957. var N : String;
  77958. begin
  77959. Result:=TSP_SocialSocialRestThreadArray(GetMulti(AQuery,True,N));
  77960. end;
  77961. { --------------------------------------------------------------------
  77962. TSPSolutionExportersEntitySet
  77963. --------------------------------------------------------------------}
  77964. Class Function TSPSolutionExportersEntitySet.ObjectRestKind : String;
  77965. begin
  77966. Result:='SolutionExporters';
  77967. end;
  77968. Class Function TSPSolutionExportersEntitySet.EntityClass : TODataEntityClass;
  77969. begin
  77970. Result:=TSPSolutionExporter;
  77971. end;
  77972. Function TSPSolutionExportersEntitySet.Get(const Id4a81de82eeb94d6080ea5bf63e27023a: string) : TSPSolutionExporter;
  77973. begin
  77974. Result:=TSPSolutionExporter(GetSingle(TODataObject.MakeKeyString(Id4a81de82eeb94d6080ea5bf63e27023a)));
  77975. end;
  77976. Function TSPSolutionExportersEntitySet.List(const AQuery: String; out NextLink: String) : TSPSolutionExporterArray;
  77977. begin
  77978. Result:=TSPSolutionExporterArray(GetMulti(AQuery,False,NextLink));
  77979. end;
  77980. Function TSPSolutionExportersEntitySet.List(const AQuery: TQueryParams; out NextLink: String) : TSPSolutionExporterArray;
  77981. begin
  77982. Result:=TSPSolutionExporterArray(GetMulti(AQuery,False,NextLink));
  77983. end;
  77984. Function TSPSolutionExportersEntitySet.ListAll(const AQuery: String) : TSPSolutionExporterArray;
  77985. var N : String;
  77986. begin
  77987. Result:=TSPSolutionExporterArray(GetMulti(AQuery,True,N));
  77988. end;
  77989. Function TSPSolutionExportersEntitySet.ListAll(const AQuery: TQueryParams) : TSPSolutionExporterArray;
  77990. var N : String;
  77991. begin
  77992. Result:=TSPSolutionExporterArray(GetMulti(AQuery,True,N));
  77993. end;
  77994. { --------------------------------------------------------------------
  77995. TSPSPAppLicenseManagersEntitySet
  77996. --------------------------------------------------------------------}
  77997. Class Function TSPSPAppLicenseManagersEntitySet.ObjectRestKind : String;
  77998. begin
  77999. Result:='SPAppLicenseManagers';
  78000. end;
  78001. Class Function TSPSPAppLicenseManagersEntitySet.EntityClass : TODataEntityClass;
  78002. begin
  78003. Result:=TSPSPAppLicenseManager;
  78004. end;
  78005. Function TSPSPAppLicenseManagersEntitySet.Get(const Id4a81de82eeb94d6080ea5bf63e27023a: string) : TSPSPAppLicenseManager;
  78006. begin
  78007. Result:=TSPSPAppLicenseManager(GetSingle(TODataObject.MakeKeyString(Id4a81de82eeb94d6080ea5bf63e27023a)));
  78008. end;
  78009. Function TSPSPAppLicenseManagersEntitySet.List(const AQuery: String; out NextLink: String) : TSPSPAppLicenseManagerArray;
  78010. begin
  78011. Result:=TSPSPAppLicenseManagerArray(GetMulti(AQuery,False,NextLink));
  78012. end;
  78013. Function TSPSPAppLicenseManagersEntitySet.List(const AQuery: TQueryParams; out NextLink: String) : TSPSPAppLicenseManagerArray;
  78014. begin
  78015. Result:=TSPSPAppLicenseManagerArray(GetMulti(AQuery,False,NextLink));
  78016. end;
  78017. Function TSPSPAppLicenseManagersEntitySet.ListAll(const AQuery: String) : TSPSPAppLicenseManagerArray;
  78018. var N : String;
  78019. begin
  78020. Result:=TSPSPAppLicenseManagerArray(GetMulti(AQuery,True,N));
  78021. end;
  78022. Function TSPSPAppLicenseManagersEntitySet.ListAll(const AQuery: TQueryParams) : TSPSPAppLicenseManagerArray;
  78023. var N : String;
  78024. begin
  78025. Result:=TSPSPAppLicenseManagerArray(GetMulti(AQuery,True,N));
  78026. end;
  78027. { --------------------------------------------------------------------
  78028. TSPSPDataLeakagePreventionStatusInfosEntitySet
  78029. --------------------------------------------------------------------}
  78030. Class Function TSPSPDataLeakagePreventionStatusInfosEntitySet.ObjectRestKind : String;
  78031. begin
  78032. Result:='SPDataLeakagePreventionStatusInfos';
  78033. end;
  78034. Class Function TSPSPDataLeakagePreventionStatusInfosEntitySet.EntityClass : TODataEntityClass;
  78035. begin
  78036. Result:=TSPSPDataLeakagePreventionStatusInfo;
  78037. end;
  78038. Function TSPSPDataLeakagePreventionStatusInfosEntitySet.Get(const ContainsConfidentialInfo: boolean) : TSPSPDataLeakagePreventionStatusInfo;
  78039. begin
  78040. Result:=TSPSPDataLeakagePreventionStatusInfo(GetSingle(BoolToStr(ContainsConfidentialInfo,'true','false')));
  78041. end;
  78042. Function TSPSPDataLeakagePreventionStatusInfosEntitySet.List(const AQuery: String; out NextLink: String) : TSPSPDataLeakagePreventionStatusInfoArray;
  78043. begin
  78044. Result:=TSPSPDataLeakagePreventionStatusInfoArray(GetMulti(AQuery,False,NextLink));
  78045. end;
  78046. Function TSPSPDataLeakagePreventionStatusInfosEntitySet.List(const AQuery: TQueryParams; out NextLink: String) : TSPSPDataLeakagePreventionStatusInfoArray;
  78047. begin
  78048. Result:=TSPSPDataLeakagePreventionStatusInfoArray(GetMulti(AQuery,False,NextLink));
  78049. end;
  78050. Function TSPSPDataLeakagePreventionStatusInfosEntitySet.ListAll(const AQuery: String) : TSPSPDataLeakagePreventionStatusInfoArray;
  78051. var N : String;
  78052. begin
  78053. Result:=TSPSPDataLeakagePreventionStatusInfoArray(GetMulti(AQuery,True,N));
  78054. end;
  78055. Function TSPSPDataLeakagePreventionStatusInfosEntitySet.ListAll(const AQuery: TQueryParams) : TSPSPDataLeakagePreventionStatusInfoArray;
  78056. var N : String;
  78057. begin
  78058. Result:=TSPSPDataLeakagePreventionStatusInfoArray(GetMulti(AQuery,True,N));
  78059. end;
  78060. { --------------------------------------------------------------------
  78061. TSPTenantAppInstancesEntitySet
  78062. --------------------------------------------------------------------}
  78063. Class Function TSPTenantAppInstancesEntitySet.ObjectRestKind : String;
  78064. begin
  78065. Result:='TenantAppInstances';
  78066. end;
  78067. Class Function TSPTenantAppInstancesEntitySet.EntityClass : TODataEntityClass;
  78068. begin
  78069. Result:=TSPTenantAppInstance;
  78070. end;
  78071. Function TSPTenantAppInstancesEntitySet.Get(const Id: TGUIDString) : TSPTenantAppInstance;
  78072. begin
  78073. Result:=TSPTenantAppInstance(GetSingle(TODataObject.MakeKeyString(Id)));
  78074. end;
  78075. Function TSPTenantAppInstancesEntitySet.List(const AQuery: String; out NextLink: String) : TSPTenantAppInstanceArray;
  78076. begin
  78077. Result:=TSPTenantAppInstanceArray(GetMulti(AQuery,False,NextLink));
  78078. end;
  78079. Function TSPTenantAppInstancesEntitySet.List(const AQuery: TQueryParams; out NextLink: String) : TSPTenantAppInstanceArray;
  78080. begin
  78081. Result:=TSPTenantAppInstanceArray(GetMulti(AQuery,False,NextLink));
  78082. end;
  78083. Function TSPTenantAppInstancesEntitySet.ListAll(const AQuery: String) : TSPTenantAppInstanceArray;
  78084. var N : String;
  78085. begin
  78086. Result:=TSPTenantAppInstanceArray(GetMulti(AQuery,True,N));
  78087. end;
  78088. Function TSPTenantAppInstancesEntitySet.ListAll(const AQuery: TQueryParams) : TSPTenantAppInstanceArray;
  78089. var N : String;
  78090. begin
  78091. Result:=TSPTenantAppInstanceArray(GetMulti(AQuery,True,N));
  78092. end;
  78093. { --------------------------------------------------------------------
  78094. TSPTenantAppUtilitysEntitySet
  78095. --------------------------------------------------------------------}
  78096. Class Function TSPTenantAppUtilitysEntitySet.ObjectRestKind : String;
  78097. begin
  78098. Result:='TenantAppUtilitys';
  78099. end;
  78100. Class Function TSPTenantAppUtilitysEntitySet.EntityClass : TODataEntityClass;
  78101. begin
  78102. Result:=TSPTenantAppUtility;
  78103. end;
  78104. Function TSPTenantAppUtilitysEntitySet.Get(const Id4a81de82eeb94d6080ea5bf63e27023a: string) : TSPTenantAppUtility;
  78105. begin
  78106. Result:=TSPTenantAppUtility(GetSingle(TODataObject.MakeKeyString(Id4a81de82eeb94d6080ea5bf63e27023a)));
  78107. end;
  78108. Function TSPTenantAppUtilitysEntitySet.List(const AQuery: String; out NextLink: String) : TSPTenantAppUtilityArray;
  78109. begin
  78110. Result:=TSPTenantAppUtilityArray(GetMulti(AQuery,False,NextLink));
  78111. end;
  78112. Function TSPTenantAppUtilitysEntitySet.List(const AQuery: TQueryParams; out NextLink: String) : TSPTenantAppUtilityArray;
  78113. begin
  78114. Result:=TSPTenantAppUtilityArray(GetMulti(AQuery,False,NextLink));
  78115. end;
  78116. Function TSPTenantAppUtilitysEntitySet.ListAll(const AQuery: String) : TSPTenantAppUtilityArray;
  78117. var N : String;
  78118. begin
  78119. Result:=TSPTenantAppUtilityArray(GetMulti(AQuery,True,N));
  78120. end;
  78121. Function TSPTenantAppUtilitysEntitySet.ListAll(const AQuery: TQueryParams) : TSPTenantAppUtilityArray;
  78122. var N : String;
  78123. begin
  78124. Result:=TSPTenantAppUtilityArray(GetMulti(AQuery,True,N));
  78125. end;
  78126. { --------------------------------------------------------------------
  78127. TSPTenantSettingssEntitySet
  78128. --------------------------------------------------------------------}
  78129. Class Function TSPTenantSettingssEntitySet.ObjectRestKind : String;
  78130. begin
  78131. Result:='TenantSettingss';
  78132. end;
  78133. Class Function TSPTenantSettingssEntitySet.EntityClass : TODataEntityClass;
  78134. begin
  78135. Result:=TSPTenantSettings;
  78136. end;
  78137. Function TSPTenantSettingssEntitySet.Get(const CorporateCatalogUrl: string) : TSPTenantSettings;
  78138. begin
  78139. Result:=TSPTenantSettings(GetSingle(TODataObject.MakeKeyString(CorporateCatalogUrl)));
  78140. end;
  78141. Function TSPTenantSettingssEntitySet.List(const AQuery: String; out NextLink: String) : TSPTenantSettingsArray;
  78142. begin
  78143. Result:=TSPTenantSettingsArray(GetMulti(AQuery,False,NextLink));
  78144. end;
  78145. Function TSPTenantSettingssEntitySet.List(const AQuery: TQueryParams; out NextLink: String) : TSPTenantSettingsArray;
  78146. begin
  78147. Result:=TSPTenantSettingsArray(GetMulti(AQuery,False,NextLink));
  78148. end;
  78149. Function TSPTenantSettingssEntitySet.ListAll(const AQuery: String) : TSPTenantSettingsArray;
  78150. var N : String;
  78151. begin
  78152. Result:=TSPTenantSettingsArray(GetMulti(AQuery,True,N));
  78153. end;
  78154. Function TSPTenantSettingssEntitySet.ListAll(const AQuery: TQueryParams) : TSPTenantSettingsArray;
  78155. var N : String;
  78156. begin
  78157. Result:=TSPTenantSettingsArray(GetMulti(AQuery,True,N));
  78158. end;
  78159. { --------------------------------------------------------------------
  78160. TSPThemeInfosEntitySet
  78161. --------------------------------------------------------------------}
  78162. Class Function TSPThemeInfosEntitySet.ObjectRestKind : String;
  78163. begin
  78164. Result:='ThemeInfos';
  78165. end;
  78166. Class Function TSPThemeInfosEntitySet.EntityClass : TODataEntityClass;
  78167. begin
  78168. Result:=TSPThemeInfo;
  78169. end;
  78170. Function TSPThemeInfosEntitySet.Get(const AccessibleDescription: string) : TSPThemeInfo;
  78171. begin
  78172. Result:=TSPThemeInfo(GetSingle(TODataObject.MakeKeyString(AccessibleDescription)));
  78173. end;
  78174. Function TSPThemeInfosEntitySet.List(const AQuery: String; out NextLink: String) : TSPThemeInfoArray;
  78175. begin
  78176. Result:=TSPThemeInfoArray(GetMulti(AQuery,False,NextLink));
  78177. end;
  78178. Function TSPThemeInfosEntitySet.List(const AQuery: TQueryParams; out NextLink: String) : TSPThemeInfoArray;
  78179. begin
  78180. Result:=TSPThemeInfoArray(GetMulti(AQuery,False,NextLink));
  78181. end;
  78182. Function TSPThemeInfosEntitySet.ListAll(const AQuery: String) : TSPThemeInfoArray;
  78183. var N : String;
  78184. begin
  78185. Result:=TSPThemeInfoArray(GetMulti(AQuery,True,N));
  78186. end;
  78187. Function TSPThemeInfosEntitySet.ListAll(const AQuery: TQueryParams) : TSPThemeInfoArray;
  78188. var N : String;
  78189. begin
  78190. Result:=TSPThemeInfoArray(GetMulti(AQuery,True,N));
  78191. end;
  78192. { --------------------------------------------------------------------
  78193. TSPTimeZonesEntitySet
  78194. --------------------------------------------------------------------}
  78195. Class Function TSPTimeZonesEntitySet.ObjectRestKind : String;
  78196. begin
  78197. Result:='TimeZones';
  78198. end;
  78199. Class Function TSPTimeZonesEntitySet.EntityClass : TODataEntityClass;
  78200. begin
  78201. Result:=TSPTimeZone;
  78202. end;
  78203. Function TSPTimeZonesEntitySet.Get(const Id: TInt32) : TSPTimeZone;
  78204. begin
  78205. Result:=TSPTimeZone(GetSingle(IntToStr(Id)));
  78206. end;
  78207. Function TSPTimeZonesEntitySet.List(const AQuery: String; out NextLink: String) : TSPTimeZoneArray;
  78208. begin
  78209. Result:=TSPTimeZoneArray(GetMulti(AQuery,False,NextLink));
  78210. end;
  78211. Function TSPTimeZonesEntitySet.List(const AQuery: TQueryParams; out NextLink: String) : TSPTimeZoneArray;
  78212. begin
  78213. Result:=TSPTimeZoneArray(GetMulti(AQuery,False,NextLink));
  78214. end;
  78215. Function TSPTimeZonesEntitySet.ListAll(const AQuery: String) : TSPTimeZoneArray;
  78216. var N : String;
  78217. begin
  78218. Result:=TSPTimeZoneArray(GetMulti(AQuery,True,N));
  78219. end;
  78220. Function TSPTimeZonesEntitySet.ListAll(const AQuery: TQueryParams) : TSPTimeZoneArray;
  78221. var N : String;
  78222. begin
  78223. Result:=TSPTimeZoneArray(GetMulti(AQuery,True,N));
  78224. end;
  78225. { --------------------------------------------------------------------
  78226. TSPSyncTranslatorsEntitySet
  78227. --------------------------------------------------------------------}
  78228. Class Function TSPSyncTranslatorsEntitySet.ObjectRestKind : String;
  78229. begin
  78230. Result:='SyncTranslators';
  78231. end;
  78232. Class Function TSPSyncTranslatorsEntitySet.EntityClass : TODataEntityClass;
  78233. begin
  78234. Result:=TSP_TranslationSyncTranslator;
  78235. end;
  78236. Function TSPSyncTranslatorsEntitySet.Get(const OutputSaveBehavior: TInt32) : TSP_TranslationSyncTranslator;
  78237. begin
  78238. Result:=TSP_TranslationSyncTranslator(GetSingle(IntToStr(OutputSaveBehavior)));
  78239. end;
  78240. Function TSPSyncTranslatorsEntitySet.List(const AQuery: String; out NextLink: String) : TSP_TranslationSyncTranslatorArray;
  78241. begin
  78242. Result:=TSP_TranslationSyncTranslatorArray(GetMulti(AQuery,False,NextLink));
  78243. end;
  78244. Function TSPSyncTranslatorsEntitySet.List(const AQuery: TQueryParams; out NextLink: String) : TSP_TranslationSyncTranslatorArray;
  78245. begin
  78246. Result:=TSP_TranslationSyncTranslatorArray(GetMulti(AQuery,False,NextLink));
  78247. end;
  78248. Function TSPSyncTranslatorsEntitySet.ListAll(const AQuery: String) : TSP_TranslationSyncTranslatorArray;
  78249. var N : String;
  78250. begin
  78251. Result:=TSP_TranslationSyncTranslatorArray(GetMulti(AQuery,True,N));
  78252. end;
  78253. Function TSPSyncTranslatorsEntitySet.ListAll(const AQuery: TQueryParams) : TSP_TranslationSyncTranslatorArray;
  78254. var N : String;
  78255. begin
  78256. Result:=TSP_TranslationSyncTranslatorArray(GetMulti(AQuery,True,N));
  78257. end;
  78258. { --------------------------------------------------------------------
  78259. TSPTranslationJobsEntitySet
  78260. --------------------------------------------------------------------}
  78261. Class Function TSPTranslationJobsEntitySet.ObjectRestKind : String;
  78262. begin
  78263. Result:='TranslationJobs';
  78264. end;
  78265. Class Function TSPTranslationJobsEntitySet.EntityClass : TODataEntityClass;
  78266. begin
  78267. Result:=TSP_TranslationTranslationJob;
  78268. end;
  78269. Function TSPTranslationJobsEntitySet.Get(const _Name: string) : TSP_TranslationTranslationJob;
  78270. begin
  78271. Result:=TSP_TranslationTranslationJob(GetSingle(TODataObject.MakeKeyString(_Name)));
  78272. end;
  78273. Function TSPTranslationJobsEntitySet.List(const AQuery: String; out NextLink: String) : TSP_TranslationTranslationJobArray;
  78274. begin
  78275. Result:=TSP_TranslationTranslationJobArray(GetMulti(AQuery,False,NextLink));
  78276. end;
  78277. Function TSPTranslationJobsEntitySet.List(const AQuery: TQueryParams; out NextLink: String) : TSP_TranslationTranslationJobArray;
  78278. begin
  78279. Result:=TSP_TranslationTranslationJobArray(GetMulti(AQuery,False,NextLink));
  78280. end;
  78281. Function TSPTranslationJobsEntitySet.ListAll(const AQuery: String) : TSP_TranslationTranslationJobArray;
  78282. var N : String;
  78283. begin
  78284. Result:=TSP_TranslationTranslationJobArray(GetMulti(AQuery,True,N));
  78285. end;
  78286. Function TSPTranslationJobsEntitySet.ListAll(const AQuery: TQueryParams) : TSP_TranslationTranslationJobArray;
  78287. var N : String;
  78288. begin
  78289. Result:=TSP_TranslationTranslationJobArray(GetMulti(AQuery,True,N));
  78290. end;
  78291. { --------------------------------------------------------------------
  78292. TSPTranslationJobStatussEntitySet
  78293. --------------------------------------------------------------------}
  78294. Class Function TSPTranslationJobStatussEntitySet.ObjectRestKind : String;
  78295. begin
  78296. Result:='TranslationJobStatuss';
  78297. end;
  78298. Class Function TSPTranslationJobStatussEntitySet.EntityClass : TODataEntityClass;
  78299. begin
  78300. Result:=TSP_TranslationTranslationJobStatus;
  78301. end;
  78302. Function TSPTranslationJobStatussEntitySet.Get(const _Name: string) : TSP_TranslationTranslationJobStatus;
  78303. begin
  78304. Result:=TSP_TranslationTranslationJobStatus(GetSingle(TODataObject.MakeKeyString(_Name)));
  78305. end;
  78306. Function TSPTranslationJobStatussEntitySet.List(const AQuery: String; out NextLink: String) : TSP_TranslationTranslationJobStatusArray;
  78307. begin
  78308. Result:=TSP_TranslationTranslationJobStatusArray(GetMulti(AQuery,False,NextLink));
  78309. end;
  78310. Function TSPTranslationJobStatussEntitySet.List(const AQuery: TQueryParams; out NextLink: String) : TSP_TranslationTranslationJobStatusArray;
  78311. begin
  78312. Result:=TSP_TranslationTranslationJobStatusArray(GetMulti(AQuery,False,NextLink));
  78313. end;
  78314. Function TSPTranslationJobStatussEntitySet.ListAll(const AQuery: String) : TSP_TranslationTranslationJobStatusArray;
  78315. var N : String;
  78316. begin
  78317. Result:=TSP_TranslationTranslationJobStatusArray(GetMulti(AQuery,True,N));
  78318. end;
  78319. Function TSPTranslationJobStatussEntitySet.ListAll(const AQuery: TQueryParams) : TSP_TranslationTranslationJobStatusArray;
  78320. var N : String;
  78321. begin
  78322. Result:=TSP_TranslationTranslationJobStatusArray(GetMulti(AQuery,True,N));
  78323. end;
  78324. { --------------------------------------------------------------------
  78325. TSPVariationsTranslationTimerJobsEntitySet
  78326. --------------------------------------------------------------------}
  78327. Class Function TSPVariationsTranslationTimerJobsEntitySet.ObjectRestKind : String;
  78328. begin
  78329. Result:='VariationsTranslationTimerJobs';
  78330. end;
  78331. Class Function TSPVariationsTranslationTimerJobsEntitySet.EntityClass : TODataEntityClass;
  78332. begin
  78333. Result:=TSP_TranslationVariationsTranslationTimerJob;
  78334. end;
  78335. Function TSPVariationsTranslationTimerJobsEntitySet.Get(const Id4a81de82eeb94d6080ea5bf63e27023a: string) : TSP_TranslationVariationsTranslationTimerJob;
  78336. begin
  78337. Result:=TSP_TranslationVariationsTranslationTimerJob(GetSingle(TODataObject.MakeKeyString(Id4a81de82eeb94d6080ea5bf63e27023a)));
  78338. end;
  78339. Function TSPVariationsTranslationTimerJobsEntitySet.List(const AQuery: String; out NextLink: String) : TSP_TranslationVariationsTranslationTimerJobArray;
  78340. begin
  78341. Result:=TSP_TranslationVariationsTranslationTimerJobArray(GetMulti(AQuery,False,NextLink));
  78342. end;
  78343. Function TSPVariationsTranslationTimerJobsEntitySet.List(const AQuery: TQueryParams; out NextLink: String) : TSP_TranslationVariationsTranslationTimerJobArray;
  78344. begin
  78345. Result:=TSP_TranslationVariationsTranslationTimerJobArray(GetMulti(AQuery,False,NextLink));
  78346. end;
  78347. Function TSPVariationsTranslationTimerJobsEntitySet.ListAll(const AQuery: String) : TSP_TranslationVariationsTranslationTimerJobArray;
  78348. var N : String;
  78349. begin
  78350. Result:=TSP_TranslationVariationsTranslationTimerJobArray(GetMulti(AQuery,True,N));
  78351. end;
  78352. Function TSPVariationsTranslationTimerJobsEntitySet.ListAll(const AQuery: TQueryParams) : TSP_TranslationVariationsTranslationTimerJobArray;
  78353. var N : String;
  78354. begin
  78355. Result:=TSP_TranslationVariationsTranslationTimerJobArray(GetMulti(AQuery,True,N));
  78356. end;
  78357. { --------------------------------------------------------------------
  78358. TSPTypeInformationsEntitySet
  78359. --------------------------------------------------------------------}
  78360. Class Function TSPTypeInformationsEntitySet.ObjectRestKind : String;
  78361. begin
  78362. Result:='TypeInformations';
  78363. end;
  78364. Class Function TSPTypeInformationsEntitySet.EntityClass : TODataEntityClass;
  78365. begin
  78366. Result:=TSPTypeInformation;
  78367. end;
  78368. Function TSPTypeInformationsEntitySet.Get(const BaseTypeFullName: string) : TSPTypeInformation;
  78369. begin
  78370. Result:=TSPTypeInformation(GetSingle(TODataObject.MakeKeyString(BaseTypeFullName)));
  78371. end;
  78372. Function TSPTypeInformationsEntitySet.List(const AQuery: String; out NextLink: String) : TSPTypeInformationArray;
  78373. begin
  78374. Result:=TSPTypeInformationArray(GetMulti(AQuery,False,NextLink));
  78375. end;
  78376. Function TSPTypeInformationsEntitySet.List(const AQuery: TQueryParams; out NextLink: String) : TSPTypeInformationArray;
  78377. begin
  78378. Result:=TSPTypeInformationArray(GetMulti(AQuery,False,NextLink));
  78379. end;
  78380. Function TSPTypeInformationsEntitySet.ListAll(const AQuery: String) : TSPTypeInformationArray;
  78381. var N : String;
  78382. begin
  78383. Result:=TSPTypeInformationArray(GetMulti(AQuery,True,N));
  78384. end;
  78385. Function TSPTypeInformationsEntitySet.ListAll(const AQuery: TQueryParams) : TSPTypeInformationArray;
  78386. var N : String;
  78387. begin
  78388. Result:=TSPTypeInformationArray(GetMulti(AQuery,True,N));
  78389. end;
  78390. { --------------------------------------------------------------------
  78391. TSPClientPeoplePickerWebServiceInterfacesEntitySet
  78392. --------------------------------------------------------------------}
  78393. Class Function TSPClientPeoplePickerWebServiceInterfacesEntitySet.ObjectRestKind : String;
  78394. begin
  78395. Result:='ClientPeoplePickerWebServiceInterfaces';
  78396. end;
  78397. Class Function TSPClientPeoplePickerWebServiceInterfacesEntitySet.EntityClass : TODataEntityClass;
  78398. begin
  78399. Result:=TSP_UI_ApplicationPagesClientPeoplePickerWebServiceInterface;
  78400. end;
  78401. Function TSPClientPeoplePickerWebServiceInterfacesEntitySet.Get(const Id4a81de82eeb94d6080ea5bf63e27023a: string) : TSP_UI_ApplicationPagesClientPeoplePickerWebServiceInterface;
  78402. begin
  78403. Result:=TSP_UI_ApplicationPagesClientPeoplePickerWebServiceInterface(GetSingle(TODataObject.MakeKeyString(Id4a81de82eeb94d6080ea5bf63e27023a)));
  78404. end;
  78405. Function TSPClientPeoplePickerWebServiceInterfacesEntitySet.List(const AQuery: String; out NextLink: String) : TSP_UI_ApplicationPagesClientPeoplePickerWebServiceInterfaceArray;
  78406. begin
  78407. Result:=TSP_UI_ApplicationPagesClientPeoplePickerWebServiceInterfaceArray(GetMulti(AQuery,False,NextLink));
  78408. end;
  78409. Function TSPClientPeoplePickerWebServiceInterfacesEntitySet.List(const AQuery: TQueryParams; out NextLink: String) : TSP_UI_ApplicationPagesClientPeoplePickerWebServiceInterfaceArray;
  78410. begin
  78411. Result:=TSP_UI_ApplicationPagesClientPeoplePickerWebServiceInterfaceArray(GetMulti(AQuery,False,NextLink));
  78412. end;
  78413. Function TSPClientPeoplePickerWebServiceInterfacesEntitySet.ListAll(const AQuery: String) : TSP_UI_ApplicationPagesClientPeoplePickerWebServiceInterfaceArray;
  78414. var N : String;
  78415. begin
  78416. Result:=TSP_UI_ApplicationPagesClientPeoplePickerWebServiceInterfaceArray(GetMulti(AQuery,True,N));
  78417. end;
  78418. Function TSPClientPeoplePickerWebServiceInterfacesEntitySet.ListAll(const AQuery: TQueryParams) : TSP_UI_ApplicationPagesClientPeoplePickerWebServiceInterfaceArray;
  78419. var N : String;
  78420. begin
  78421. Result:=TSP_UI_ApplicationPagesClientPeoplePickerWebServiceInterfaceArray(GetMulti(AQuery,True,N));
  78422. end;
  78423. { --------------------------------------------------------------------
  78424. TSPUsers1EntitySet
  78425. --------------------------------------------------------------------}
  78426. Class Function TSPUsers1EntitySet.ObjectRestKind : String;
  78427. begin
  78428. Result:='Users1';
  78429. end;
  78430. Class Function TSPUsers1EntitySet.EntityClass : TODataEntityClass;
  78431. begin
  78432. Result:=TSPUser;
  78433. end;
  78434. Function TSPUsers1EntitySet.Get(const Id: TInt32) : TSPUser;
  78435. begin
  78436. Result:=TSPUser(GetSingle(IntToStr(Id)));
  78437. end;
  78438. Function TSPUsers1EntitySet.List(const AQuery: String; out NextLink: String) : TSPUserArray;
  78439. begin
  78440. Result:=TSPUserArray(GetMulti(AQuery,False,NextLink));
  78441. end;
  78442. Function TSPUsers1EntitySet.List(const AQuery: TQueryParams; out NextLink: String) : TSPUserArray;
  78443. begin
  78444. Result:=TSPUserArray(GetMulti(AQuery,False,NextLink));
  78445. end;
  78446. Function TSPUsers1EntitySet.ListAll(const AQuery: String) : TSPUserArray;
  78447. var N : String;
  78448. begin
  78449. Result:=TSPUserArray(GetMulti(AQuery,True,N));
  78450. end;
  78451. Function TSPUsers1EntitySet.ListAll(const AQuery: TQueryParams) : TSPUserArray;
  78452. var N : String;
  78453. begin
  78454. Result:=TSPUserArray(GetMulti(AQuery,True,N));
  78455. end;
  78456. { --------------------------------------------------------------------
  78457. TSPUserCustomActionsEntitySet
  78458. --------------------------------------------------------------------}
  78459. Class Function TSPUserCustomActionsEntitySet.ObjectRestKind : String;
  78460. begin
  78461. Result:='UserCustomActions';
  78462. end;
  78463. Class Function TSPUserCustomActionsEntitySet.EntityClass : TODataEntityClass;
  78464. begin
  78465. Result:=TSPUserCustomAction;
  78466. end;
  78467. Function TSPUserCustomActionsEntitySet.Get(const Id: TGUIDString) : TSPUserCustomAction;
  78468. begin
  78469. Result:=TSPUserCustomAction(GetSingle(TODataObject.MakeKeyString(Id)));
  78470. end;
  78471. Function TSPUserCustomActionsEntitySet.List(const AQuery: String; out NextLink: String) : TSPUserCustomActionArray;
  78472. begin
  78473. Result:=TSPUserCustomActionArray(GetMulti(AQuery,False,NextLink));
  78474. end;
  78475. Function TSPUserCustomActionsEntitySet.List(const AQuery: TQueryParams; out NextLink: String) : TSPUserCustomActionArray;
  78476. begin
  78477. Result:=TSPUserCustomActionArray(GetMulti(AQuery,False,NextLink));
  78478. end;
  78479. Function TSPUserCustomActionsEntitySet.ListAll(const AQuery: String) : TSPUserCustomActionArray;
  78480. var N : String;
  78481. begin
  78482. Result:=TSPUserCustomActionArray(GetMulti(AQuery,True,N));
  78483. end;
  78484. Function TSPUserCustomActionsEntitySet.ListAll(const AQuery: TQueryParams) : TSPUserCustomActionArray;
  78485. var N : String;
  78486. begin
  78487. Result:=TSPUserCustomActionArray(GetMulti(AQuery,True,N));
  78488. end;
  78489. { --------------------------------------------------------------------
  78490. TSPFollowedContentsEntitySet
  78491. --------------------------------------------------------------------}
  78492. Class Function TSPFollowedContentsEntitySet.ObjectRestKind : String;
  78493. begin
  78494. Result:='FollowedContents';
  78495. end;
  78496. Class Function TSPFollowedContentsEntitySet.EntityClass : TODataEntityClass;
  78497. begin
  78498. Result:=TSP_UserProfilesFollowedContent;
  78499. end;
  78500. Function TSPFollowedContentsEntitySet.Get(const FollowedDocumentsUrl: string) : TSP_UserProfilesFollowedContent;
  78501. begin
  78502. Result:=TSP_UserProfilesFollowedContent(GetSingle(TODataObject.MakeKeyString(FollowedDocumentsUrl)));
  78503. end;
  78504. Function TSPFollowedContentsEntitySet.List(const AQuery: String; out NextLink: String) : TSP_UserProfilesFollowedContentArray;
  78505. begin
  78506. Result:=TSP_UserProfilesFollowedContentArray(GetMulti(AQuery,False,NextLink));
  78507. end;
  78508. Function TSPFollowedContentsEntitySet.List(const AQuery: TQueryParams; out NextLink: String) : TSP_UserProfilesFollowedContentArray;
  78509. begin
  78510. Result:=TSP_UserProfilesFollowedContentArray(GetMulti(AQuery,False,NextLink));
  78511. end;
  78512. Function TSPFollowedContentsEntitySet.ListAll(const AQuery: String) : TSP_UserProfilesFollowedContentArray;
  78513. var N : String;
  78514. begin
  78515. Result:=TSP_UserProfilesFollowedContentArray(GetMulti(AQuery,True,N));
  78516. end;
  78517. Function TSPFollowedContentsEntitySet.ListAll(const AQuery: TQueryParams) : TSP_UserProfilesFollowedContentArray;
  78518. var N : String;
  78519. begin
  78520. Result:=TSP_UserProfilesFollowedContentArray(GetMulti(AQuery,True,N));
  78521. end;
  78522. { --------------------------------------------------------------------
  78523. TSPFollowedItemDatasEntitySet
  78524. --------------------------------------------------------------------}
  78525. Class Function TSPFollowedItemDatasEntitySet.ObjectRestKind : String;
  78526. begin
  78527. Result:='FollowedItemDatas';
  78528. end;
  78529. Class Function TSPFollowedItemDatasEntitySet.EntityClass : TODataEntityClass;
  78530. begin
  78531. Result:=TSP_UserProfilesFollowedItemData;
  78532. end;
  78533. Function TSPFollowedItemDatasEntitySet.Get(const Id4a81de82eeb94d6080ea5bf63e27023a: string) : TSP_UserProfilesFollowedItemData;
  78534. begin
  78535. Result:=TSP_UserProfilesFollowedItemData(GetSingle(TODataObject.MakeKeyString(Id4a81de82eeb94d6080ea5bf63e27023a)));
  78536. end;
  78537. Function TSPFollowedItemDatasEntitySet.List(const AQuery: String; out NextLink: String) : TSP_UserProfilesFollowedItemDataArray;
  78538. begin
  78539. Result:=TSP_UserProfilesFollowedItemDataArray(GetMulti(AQuery,False,NextLink));
  78540. end;
  78541. Function TSPFollowedItemDatasEntitySet.List(const AQuery: TQueryParams; out NextLink: String) : TSP_UserProfilesFollowedItemDataArray;
  78542. begin
  78543. Result:=TSP_UserProfilesFollowedItemDataArray(GetMulti(AQuery,False,NextLink));
  78544. end;
  78545. Function TSPFollowedItemDatasEntitySet.ListAll(const AQuery: String) : TSP_UserProfilesFollowedItemDataArray;
  78546. var N : String;
  78547. begin
  78548. Result:=TSP_UserProfilesFollowedItemDataArray(GetMulti(AQuery,True,N));
  78549. end;
  78550. Function TSPFollowedItemDatasEntitySet.ListAll(const AQuery: TQueryParams) : TSP_UserProfilesFollowedItemDataArray;
  78551. var N : String;
  78552. begin
  78553. Result:=TSP_UserProfilesFollowedItemDataArray(GetMulti(AQuery,True,N));
  78554. end;
  78555. { --------------------------------------------------------------------
  78556. TSPHashTagCollectionsEntitySet
  78557. --------------------------------------------------------------------}
  78558. Class Function TSPHashTagCollectionsEntitySet.ObjectRestKind : String;
  78559. begin
  78560. Result:='HashTagCollections';
  78561. end;
  78562. Class Function TSPHashTagCollectionsEntitySet.EntityClass : TODataEntityClass;
  78563. begin
  78564. Result:=TSP_UserProfilesHashTagCollection;
  78565. end;
  78566. Function TSPHashTagCollectionsEntitySet.Get(const Id4a81de82eeb94d6080ea5bf63e27023a: string) : TSP_UserProfilesHashTagCollection;
  78567. begin
  78568. Result:=TSP_UserProfilesHashTagCollection(GetSingle(TODataObject.MakeKeyString(Id4a81de82eeb94d6080ea5bf63e27023a)));
  78569. end;
  78570. Function TSPHashTagCollectionsEntitySet.List(const AQuery: String; out NextLink: String) : TSP_UserProfilesHashTagCollectionArray;
  78571. begin
  78572. Result:=TSP_UserProfilesHashTagCollectionArray(GetMulti(AQuery,False,NextLink));
  78573. end;
  78574. Function TSPHashTagCollectionsEntitySet.List(const AQuery: TQueryParams; out NextLink: String) : TSP_UserProfilesHashTagCollectionArray;
  78575. begin
  78576. Result:=TSP_UserProfilesHashTagCollectionArray(GetMulti(AQuery,False,NextLink));
  78577. end;
  78578. Function TSPHashTagCollectionsEntitySet.ListAll(const AQuery: String) : TSP_UserProfilesHashTagCollectionArray;
  78579. var N : String;
  78580. begin
  78581. Result:=TSP_UserProfilesHashTagCollectionArray(GetMulti(AQuery,True,N));
  78582. end;
  78583. Function TSPHashTagCollectionsEntitySet.ListAll(const AQuery: TQueryParams) : TSP_UserProfilesHashTagCollectionArray;
  78584. var N : String;
  78585. begin
  78586. Result:=TSP_UserProfilesHashTagCollectionArray(GetMulti(AQuery,True,N));
  78587. end;
  78588. { --------------------------------------------------------------------
  78589. TSPPeopleManagersEntitySet
  78590. --------------------------------------------------------------------}
  78591. Class Function TSPPeopleManagersEntitySet.ObjectRestKind : String;
  78592. begin
  78593. Result:='PeopleManagers';
  78594. end;
  78595. Class Function TSPPeopleManagersEntitySet.EntityClass : TODataEntityClass;
  78596. begin
  78597. Result:=TSP_UserProfilesPeopleManager;
  78598. end;
  78599. Function TSPPeopleManagersEntitySet.Get(const EditProfileLink: string) : TSP_UserProfilesPeopleManager;
  78600. begin
  78601. Result:=TSP_UserProfilesPeopleManager(GetSingle(TODataObject.MakeKeyString(EditProfileLink)));
  78602. end;
  78603. Function TSPPeopleManagersEntitySet.List(const AQuery: String; out NextLink: String) : TSP_UserProfilesPeopleManagerArray;
  78604. begin
  78605. Result:=TSP_UserProfilesPeopleManagerArray(GetMulti(AQuery,False,NextLink));
  78606. end;
  78607. Function TSPPeopleManagersEntitySet.List(const AQuery: TQueryParams; out NextLink: String) : TSP_UserProfilesPeopleManagerArray;
  78608. begin
  78609. Result:=TSP_UserProfilesPeopleManagerArray(GetMulti(AQuery,False,NextLink));
  78610. end;
  78611. Function TSPPeopleManagersEntitySet.ListAll(const AQuery: String) : TSP_UserProfilesPeopleManagerArray;
  78612. var N : String;
  78613. begin
  78614. Result:=TSP_UserProfilesPeopleManagerArray(GetMulti(AQuery,True,N));
  78615. end;
  78616. Function TSPPeopleManagersEntitySet.ListAll(const AQuery: TQueryParams) : TSP_UserProfilesPeopleManagerArray;
  78617. var N : String;
  78618. begin
  78619. Result:=TSP_UserProfilesPeopleManagerArray(GetMulti(AQuery,True,N));
  78620. end;
  78621. { --------------------------------------------------------------------
  78622. TSPPersonPropertiessEntitySet
  78623. --------------------------------------------------------------------}
  78624. Class Function TSPPersonPropertiessEntitySet.ObjectRestKind : String;
  78625. begin
  78626. Result:='PersonPropertiess';
  78627. end;
  78628. Class Function TSPPersonPropertiessEntitySet.EntityClass : TODataEntityClass;
  78629. begin
  78630. Result:=TSP_UserProfilesPersonProperties;
  78631. end;
  78632. Function TSPPersonPropertiessEntitySet.Get(const AccountName: string) : TSP_UserProfilesPersonProperties;
  78633. begin
  78634. Result:=TSP_UserProfilesPersonProperties(GetSingle(TODataObject.MakeKeyString(AccountName)));
  78635. end;
  78636. Function TSPPersonPropertiessEntitySet.List(const AQuery: String; out NextLink: String) : TSP_UserProfilesPersonPropertiesArray;
  78637. begin
  78638. Result:=TSP_UserProfilesPersonPropertiesArray(GetMulti(AQuery,False,NextLink));
  78639. end;
  78640. Function TSPPersonPropertiessEntitySet.List(const AQuery: TQueryParams; out NextLink: String) : TSP_UserProfilesPersonPropertiesArray;
  78641. begin
  78642. Result:=TSP_UserProfilesPersonPropertiesArray(GetMulti(AQuery,False,NextLink));
  78643. end;
  78644. Function TSPPersonPropertiessEntitySet.ListAll(const AQuery: String) : TSP_UserProfilesPersonPropertiesArray;
  78645. var N : String;
  78646. begin
  78647. Result:=TSP_UserProfilesPersonPropertiesArray(GetMulti(AQuery,True,N));
  78648. end;
  78649. Function TSPPersonPropertiessEntitySet.ListAll(const AQuery: TQueryParams) : TSP_UserProfilesPersonPropertiesArray;
  78650. var N : String;
  78651. begin
  78652. Result:=TSP_UserProfilesPersonPropertiesArray(GetMulti(AQuery,True,N));
  78653. end;
  78654. { --------------------------------------------------------------------
  78655. TSPProfileImageStoresEntitySet
  78656. --------------------------------------------------------------------}
  78657. Class Function TSPProfileImageStoresEntitySet.ObjectRestKind : String;
  78658. begin
  78659. Result:='ProfileImageStores';
  78660. end;
  78661. Class Function TSPProfileImageStoresEntitySet.EntityClass : TODataEntityClass;
  78662. begin
  78663. Result:=TSP_UserProfilesProfileImageStore;
  78664. end;
  78665. Function TSPProfileImageStoresEntitySet.Get(const Id4a81de82eeb94d6080ea5bf63e27023a: string) : TSP_UserProfilesProfileImageStore;
  78666. begin
  78667. Result:=TSP_UserProfilesProfileImageStore(GetSingle(TODataObject.MakeKeyString(Id4a81de82eeb94d6080ea5bf63e27023a)));
  78668. end;
  78669. Function TSPProfileImageStoresEntitySet.List(const AQuery: String; out NextLink: String) : TSP_UserProfilesProfileImageStoreArray;
  78670. begin
  78671. Result:=TSP_UserProfilesProfileImageStoreArray(GetMulti(AQuery,False,NextLink));
  78672. end;
  78673. Function TSPProfileImageStoresEntitySet.List(const AQuery: TQueryParams; out NextLink: String) : TSP_UserProfilesProfileImageStoreArray;
  78674. begin
  78675. Result:=TSP_UserProfilesProfileImageStoreArray(GetMulti(AQuery,False,NextLink));
  78676. end;
  78677. Function TSPProfileImageStoresEntitySet.ListAll(const AQuery: String) : TSP_UserProfilesProfileImageStoreArray;
  78678. var N : String;
  78679. begin
  78680. Result:=TSP_UserProfilesProfileImageStoreArray(GetMulti(AQuery,True,N));
  78681. end;
  78682. Function TSPProfileImageStoresEntitySet.ListAll(const AQuery: TQueryParams) : TSP_UserProfilesProfileImageStoreArray;
  78683. var N : String;
  78684. begin
  78685. Result:=TSP_UserProfilesProfileImageStoreArray(GetMulti(AQuery,True,N));
  78686. end;
  78687. { --------------------------------------------------------------------
  78688. TSPProfileLoadersEntitySet
  78689. --------------------------------------------------------------------}
  78690. Class Function TSPProfileLoadersEntitySet.ObjectRestKind : String;
  78691. begin
  78692. Result:='ProfileLoaders';
  78693. end;
  78694. Class Function TSPProfileLoadersEntitySet.EntityClass : TODataEntityClass;
  78695. begin
  78696. Result:=TSP_UserProfilesProfileLoader;
  78697. end;
  78698. Function TSPProfileLoadersEntitySet.Get(const Id4a81de82eeb94d6080ea5bf63e27023a: string) : TSP_UserProfilesProfileLoader;
  78699. begin
  78700. Result:=TSP_UserProfilesProfileLoader(GetSingle(TODataObject.MakeKeyString(Id4a81de82eeb94d6080ea5bf63e27023a)));
  78701. end;
  78702. Function TSPProfileLoadersEntitySet.List(const AQuery: String; out NextLink: String) : TSP_UserProfilesProfileLoaderArray;
  78703. begin
  78704. Result:=TSP_UserProfilesProfileLoaderArray(GetMulti(AQuery,False,NextLink));
  78705. end;
  78706. Function TSPProfileLoadersEntitySet.List(const AQuery: TQueryParams; out NextLink: String) : TSP_UserProfilesProfileLoaderArray;
  78707. begin
  78708. Result:=TSP_UserProfilesProfileLoaderArray(GetMulti(AQuery,False,NextLink));
  78709. end;
  78710. Function TSPProfileLoadersEntitySet.ListAll(const AQuery: String) : TSP_UserProfilesProfileLoaderArray;
  78711. var N : String;
  78712. begin
  78713. Result:=TSP_UserProfilesProfileLoaderArray(GetMulti(AQuery,True,N));
  78714. end;
  78715. Function TSPProfileLoadersEntitySet.ListAll(const AQuery: TQueryParams) : TSP_UserProfilesProfileLoaderArray;
  78716. var N : String;
  78717. begin
  78718. Result:=TSP_UserProfilesProfileLoaderArray(GetMulti(AQuery,True,N));
  78719. end;
  78720. { --------------------------------------------------------------------
  78721. TSPUserProfilesEntitySet
  78722. --------------------------------------------------------------------}
  78723. Class Function TSPUserProfilesEntitySet.ObjectRestKind : String;
  78724. begin
  78725. Result:='UserProfiles';
  78726. end;
  78727. Class Function TSPUserProfilesEntitySet.EntityClass : TODataEntityClass;
  78728. begin
  78729. Result:=TSP_UserProfilesUserProfile;
  78730. end;
  78731. Function TSPUserProfilesEntitySet.Get(const AccountName: string) : TSP_UserProfilesUserProfile;
  78732. begin
  78733. Result:=TSP_UserProfilesUserProfile(GetSingle(TODataObject.MakeKeyString(AccountName)));
  78734. end;
  78735. Function TSPUserProfilesEntitySet.List(const AQuery: String; out NextLink: String) : TSP_UserProfilesUserProfileArray;
  78736. begin
  78737. Result:=TSP_UserProfilesUserProfileArray(GetMulti(AQuery,False,NextLink));
  78738. end;
  78739. Function TSPUserProfilesEntitySet.List(const AQuery: TQueryParams; out NextLink: String) : TSP_UserProfilesUserProfileArray;
  78740. begin
  78741. Result:=TSP_UserProfilesUserProfileArray(GetMulti(AQuery,False,NextLink));
  78742. end;
  78743. Function TSPUserProfilesEntitySet.ListAll(const AQuery: String) : TSP_UserProfilesUserProfileArray;
  78744. var N : String;
  78745. begin
  78746. Result:=TSP_UserProfilesUserProfileArray(GetMulti(AQuery,True,N));
  78747. end;
  78748. Function TSPUserProfilesEntitySet.ListAll(const AQuery: TQueryParams) : TSP_UserProfilesUserProfileArray;
  78749. var N : String;
  78750. begin
  78751. Result:=TSP_UserProfilesUserProfileArray(GetMulti(AQuery,True,N));
  78752. end;
  78753. { --------------------------------------------------------------------
  78754. TSPUserProfilePropertiesForUsersEntitySet
  78755. --------------------------------------------------------------------}
  78756. Class Function TSPUserProfilePropertiesForUsersEntitySet.ObjectRestKind : String;
  78757. begin
  78758. Result:='UserProfilePropertiesForUsers';
  78759. end;
  78760. Class Function TSPUserProfilePropertiesForUsersEntitySet.EntityClass : TODataEntityClass;
  78761. begin
  78762. Result:=TSP_UserProfilesUserProfilePropertiesForUser;
  78763. end;
  78764. Function TSPUserProfilePropertiesForUsersEntitySet.Get(const AccountName: string) : TSP_UserProfilesUserProfilePropertiesForUser;
  78765. begin
  78766. Result:=TSP_UserProfilesUserProfilePropertiesForUser(GetSingle(TODataObject.MakeKeyString(AccountName)));
  78767. end;
  78768. Function TSPUserProfilePropertiesForUsersEntitySet.List(const AQuery: String; out NextLink: String) : TSP_UserProfilesUserProfilePropertiesForUserArray;
  78769. begin
  78770. Result:=TSP_UserProfilesUserProfilePropertiesForUserArray(GetMulti(AQuery,False,NextLink));
  78771. end;
  78772. Function TSPUserProfilePropertiesForUsersEntitySet.List(const AQuery: TQueryParams; out NextLink: String) : TSP_UserProfilesUserProfilePropertiesForUserArray;
  78773. begin
  78774. Result:=TSP_UserProfilesUserProfilePropertiesForUserArray(GetMulti(AQuery,False,NextLink));
  78775. end;
  78776. Function TSPUserProfilePropertiesForUsersEntitySet.ListAll(const AQuery: String) : TSP_UserProfilesUserProfilePropertiesForUserArray;
  78777. var N : String;
  78778. begin
  78779. Result:=TSP_UserProfilesUserProfilePropertiesForUserArray(GetMulti(AQuery,True,N));
  78780. end;
  78781. Function TSPUserProfilePropertiesForUsersEntitySet.ListAll(const AQuery: TQueryParams) : TSP_UserProfilesUserProfilePropertiesForUserArray;
  78782. var N : String;
  78783. begin
  78784. Result:=TSP_UserProfilesUserProfilePropertiesForUserArray(GetMulti(AQuery,True,N));
  78785. end;
  78786. { --------------------------------------------------------------------
  78787. TSPUserResourcesEntitySet
  78788. --------------------------------------------------------------------}
  78789. Class Function TSPUserResourcesEntitySet.ObjectRestKind : String;
  78790. begin
  78791. Result:='UserResources';
  78792. end;
  78793. Class Function TSPUserResourcesEntitySet.EntityClass : TODataEntityClass;
  78794. begin
  78795. Result:=TSPUserResource;
  78796. end;
  78797. Function TSPUserResourcesEntitySet.Get(const Id4a81de82eeb94d6080ea5bf63e27023a: string) : TSPUserResource;
  78798. begin
  78799. Result:=TSPUserResource(GetSingle(TODataObject.MakeKeyString(Id4a81de82eeb94d6080ea5bf63e27023a)));
  78800. end;
  78801. Function TSPUserResourcesEntitySet.List(const AQuery: String; out NextLink: String) : TSPUserResourceArray;
  78802. begin
  78803. Result:=TSPUserResourceArray(GetMulti(AQuery,False,NextLink));
  78804. end;
  78805. Function TSPUserResourcesEntitySet.List(const AQuery: TQueryParams; out NextLink: String) : TSPUserResourceArray;
  78806. begin
  78807. Result:=TSPUserResourceArray(GetMulti(AQuery,False,NextLink));
  78808. end;
  78809. Function TSPUserResourcesEntitySet.ListAll(const AQuery: String) : TSPUserResourceArray;
  78810. var N : String;
  78811. begin
  78812. Result:=TSPUserResourceArray(GetMulti(AQuery,True,N));
  78813. end;
  78814. Function TSPUserResourcesEntitySet.ListAll(const AQuery: TQueryParams) : TSPUserResourceArray;
  78815. var N : String;
  78816. begin
  78817. Result:=TSPUserResourceArray(GetMulti(AQuery,True,N));
  78818. end;
  78819. { --------------------------------------------------------------------
  78820. TSPUserSolutionsEntitySet
  78821. --------------------------------------------------------------------}
  78822. Class Function TSPUserSolutionsEntitySet.ObjectRestKind : String;
  78823. begin
  78824. Result:='UserSolutions';
  78825. end;
  78826. Class Function TSPUserSolutionsEntitySet.EntityClass : TODataEntityClass;
  78827. begin
  78828. Result:=TSPUserSolution;
  78829. end;
  78830. Function TSPUserSolutionsEntitySet.Get(const Id4a81de82eeb94d6080ea5bf63e27023a: string) : TSPUserSolution;
  78831. begin
  78832. Result:=TSPUserSolution(GetSingle(TODataObject.MakeKeyString(Id4a81de82eeb94d6080ea5bf63e27023a)));
  78833. end;
  78834. Function TSPUserSolutionsEntitySet.List(const AQuery: String; out NextLink: String) : TSPUserSolutionArray;
  78835. begin
  78836. Result:=TSPUserSolutionArray(GetMulti(AQuery,False,NextLink));
  78837. end;
  78838. Function TSPUserSolutionsEntitySet.List(const AQuery: TQueryParams; out NextLink: String) : TSPUserSolutionArray;
  78839. begin
  78840. Result:=TSPUserSolutionArray(GetMulti(AQuery,False,NextLink));
  78841. end;
  78842. Function TSPUserSolutionsEntitySet.ListAll(const AQuery: String) : TSPUserSolutionArray;
  78843. var N : String;
  78844. begin
  78845. Result:=TSPUserSolutionArray(GetMulti(AQuery,True,N));
  78846. end;
  78847. Function TSPUserSolutionsEntitySet.ListAll(const AQuery: TQueryParams) : TSPUserSolutionArray;
  78848. var N : String;
  78849. begin
  78850. Result:=TSPUserSolutionArray(GetMulti(AQuery,True,N));
  78851. end;
  78852. { --------------------------------------------------------------------
  78853. TSPMarketplaceUtilitiessEntitySet
  78854. --------------------------------------------------------------------}
  78855. Class Function TSPMarketplaceUtilitiessEntitySet.ObjectRestKind : String;
  78856. begin
  78857. Result:='MarketplaceUtilitiess';
  78858. end;
  78859. Class Function TSPMarketplaceUtilitiessEntitySet.EntityClass : TODataEntityClass;
  78860. begin
  78861. Result:=TSP_UtilitiesMarketplaceUtilities;
  78862. end;
  78863. Function TSPMarketplaceUtilitiessEntitySet.Get(const Id4a81de82eeb94d6080ea5bf63e27023a: string) : TSP_UtilitiesMarketplaceUtilities;
  78864. begin
  78865. Result:=TSP_UtilitiesMarketplaceUtilities(GetSingle(TODataObject.MakeKeyString(Id4a81de82eeb94d6080ea5bf63e27023a)));
  78866. end;
  78867. Function TSPMarketplaceUtilitiessEntitySet.List(const AQuery: String; out NextLink: String) : TSP_UtilitiesMarketplaceUtilitiesArray;
  78868. begin
  78869. Result:=TSP_UtilitiesMarketplaceUtilitiesArray(GetMulti(AQuery,False,NextLink));
  78870. end;
  78871. Function TSPMarketplaceUtilitiessEntitySet.List(const AQuery: TQueryParams; out NextLink: String) : TSP_UtilitiesMarketplaceUtilitiesArray;
  78872. begin
  78873. Result:=TSP_UtilitiesMarketplaceUtilitiesArray(GetMulti(AQuery,False,NextLink));
  78874. end;
  78875. Function TSPMarketplaceUtilitiessEntitySet.ListAll(const AQuery: String) : TSP_UtilitiesMarketplaceUtilitiesArray;
  78876. var N : String;
  78877. begin
  78878. Result:=TSP_UtilitiesMarketplaceUtilitiesArray(GetMulti(AQuery,True,N));
  78879. end;
  78880. Function TSPMarketplaceUtilitiessEntitySet.ListAll(const AQuery: TQueryParams) : TSP_UtilitiesMarketplaceUtilitiesArray;
  78881. var N : String;
  78882. begin
  78883. Result:=TSP_UtilitiesMarketplaceUtilitiesArray(GetMulti(AQuery,True,N));
  78884. end;
  78885. { --------------------------------------------------------------------
  78886. TSPUtilitysEntitySet
  78887. --------------------------------------------------------------------}
  78888. Class Function TSPUtilitysEntitySet.ObjectRestKind : String;
  78889. begin
  78890. Result:='Utilitys';
  78891. end;
  78892. Class Function TSPUtilitysEntitySet.EntityClass : TODataEntityClass;
  78893. begin
  78894. Result:=TSP_UtilitiesUtility;
  78895. end;
  78896. Function TSPUtilitysEntitySet.Get(const Id4a81de82eeb94d6080ea5bf63e27023a: string) : TSP_UtilitiesUtility;
  78897. begin
  78898. Result:=TSP_UtilitiesUtility(GetSingle(TODataObject.MakeKeyString(Id4a81de82eeb94d6080ea5bf63e27023a)));
  78899. end;
  78900. Function TSPUtilitysEntitySet.List(const AQuery: String; out NextLink: String) : TSP_UtilitiesUtilityArray;
  78901. begin
  78902. Result:=TSP_UtilitiesUtilityArray(GetMulti(AQuery,False,NextLink));
  78903. end;
  78904. Function TSPUtilitysEntitySet.List(const AQuery: TQueryParams; out NextLink: String) : TSP_UtilitiesUtilityArray;
  78905. begin
  78906. Result:=TSP_UtilitiesUtilityArray(GetMulti(AQuery,False,NextLink));
  78907. end;
  78908. Function TSPUtilitysEntitySet.ListAll(const AQuery: String) : TSP_UtilitiesUtilityArray;
  78909. var N : String;
  78910. begin
  78911. Result:=TSP_UtilitiesUtilityArray(GetMulti(AQuery,True,N));
  78912. end;
  78913. Function TSPUtilitysEntitySet.ListAll(const AQuery: TQueryParams) : TSP_UtilitiesUtilityArray;
  78914. var N : String;
  78915. begin
  78916. Result:=TSP_UtilitiesUtilityArray(GetMulti(AQuery,True,N));
  78917. end;
  78918. { --------------------------------------------------------------------
  78919. TSPViewsEntitySet
  78920. --------------------------------------------------------------------}
  78921. Class Function TSPViewsEntitySet.ObjectRestKind : String;
  78922. begin
  78923. Result:='Views';
  78924. end;
  78925. Class Function TSPViewsEntitySet.EntityClass : TODataEntityClass;
  78926. begin
  78927. Result:=TSPView;
  78928. end;
  78929. Function TSPViewsEntitySet.Get(const Id: TGUIDString) : TSPView;
  78930. begin
  78931. Result:=TSPView(GetSingle(TODataObject.MakeKeyString(Id)));
  78932. end;
  78933. Function TSPViewsEntitySet.List(const AQuery: String; out NextLink: String) : TSPViewArray;
  78934. begin
  78935. Result:=TSPViewArray(GetMulti(AQuery,False,NextLink));
  78936. end;
  78937. Function TSPViewsEntitySet.List(const AQuery: TQueryParams; out NextLink: String) : TSPViewArray;
  78938. begin
  78939. Result:=TSPViewArray(GetMulti(AQuery,False,NextLink));
  78940. end;
  78941. Function TSPViewsEntitySet.ListAll(const AQuery: String) : TSPViewArray;
  78942. var N : String;
  78943. begin
  78944. Result:=TSPViewArray(GetMulti(AQuery,True,N));
  78945. end;
  78946. Function TSPViewsEntitySet.ListAll(const AQuery: TQueryParams) : TSPViewArray;
  78947. var N : String;
  78948. begin
  78949. Result:=TSPViewArray(GetMulti(AQuery,True,N));
  78950. end;
  78951. { --------------------------------------------------------------------
  78952. TSPViewFieldCollectionsEntitySet
  78953. --------------------------------------------------------------------}
  78954. Class Function TSPViewFieldCollectionsEntitySet.ObjectRestKind : String;
  78955. begin
  78956. Result:='ViewFieldCollections';
  78957. end;
  78958. Class Function TSPViewFieldCollectionsEntitySet.EntityClass : TODataEntityClass;
  78959. begin
  78960. Result:=TSPViewFieldCollection;
  78961. end;
  78962. Function TSPViewFieldCollectionsEntitySet.Get(const SchemaXml: string) : TSPViewFieldCollection;
  78963. begin
  78964. Result:=TSPViewFieldCollection(GetSingle(TODataObject.MakeKeyString(SchemaXml)));
  78965. end;
  78966. Function TSPViewFieldCollectionsEntitySet.List(const AQuery: String; out NextLink: String) : TSPViewFieldCollectionArray;
  78967. begin
  78968. Result:=TSPViewFieldCollectionArray(GetMulti(AQuery,False,NextLink));
  78969. end;
  78970. Function TSPViewFieldCollectionsEntitySet.List(const AQuery: TQueryParams; out NextLink: String) : TSPViewFieldCollectionArray;
  78971. begin
  78972. Result:=TSPViewFieldCollectionArray(GetMulti(AQuery,False,NextLink));
  78973. end;
  78974. Function TSPViewFieldCollectionsEntitySet.ListAll(const AQuery: String) : TSPViewFieldCollectionArray;
  78975. var N : String;
  78976. begin
  78977. Result:=TSPViewFieldCollectionArray(GetMulti(AQuery,True,N));
  78978. end;
  78979. Function TSPViewFieldCollectionsEntitySet.ListAll(const AQuery: TQueryParams) : TSPViewFieldCollectionArray;
  78980. var N : String;
  78981. begin
  78982. Result:=TSPViewFieldCollectionArray(GetMulti(AQuery,True,N));
  78983. end;
  78984. { --------------------------------------------------------------------
  78985. TSPWebInformationsEntitySet
  78986. --------------------------------------------------------------------}
  78987. Class Function TSPWebInformationsEntitySet.ObjectRestKind : String;
  78988. begin
  78989. Result:='WebInformations';
  78990. end;
  78991. Class Function TSPWebInformationsEntitySet.EntityClass : TODataEntityClass;
  78992. begin
  78993. Result:=TSPWebInformation;
  78994. end;
  78995. Function TSPWebInformationsEntitySet.Get(const Id: TGUIDString) : TSPWebInformation;
  78996. begin
  78997. Result:=TSPWebInformation(GetSingle(TODataObject.MakeKeyString(Id)));
  78998. end;
  78999. Function TSPWebInformationsEntitySet.List(const AQuery: String; out NextLink: String) : TSPWebInformationArray;
  79000. begin
  79001. Result:=TSPWebInformationArray(GetMulti(AQuery,False,NextLink));
  79002. end;
  79003. Function TSPWebInformationsEntitySet.List(const AQuery: TQueryParams; out NextLink: String) : TSPWebInformationArray;
  79004. begin
  79005. Result:=TSPWebInformationArray(GetMulti(AQuery,False,NextLink));
  79006. end;
  79007. Function TSPWebInformationsEntitySet.ListAll(const AQuery: String) : TSPWebInformationArray;
  79008. var N : String;
  79009. begin
  79010. Result:=TSPWebInformationArray(GetMulti(AQuery,True,N));
  79011. end;
  79012. Function TSPWebInformationsEntitySet.ListAll(const AQuery: TQueryParams) : TSPWebInformationArray;
  79013. var N : String;
  79014. begin
  79015. Result:=TSPWebInformationArray(GetMulti(AQuery,True,N));
  79016. end;
  79017. { --------------------------------------------------------------------
  79018. TSPLimitedWebPartManagersEntitySet
  79019. --------------------------------------------------------------------}
  79020. Class Function TSPLimitedWebPartManagersEntitySet.ObjectRestKind : String;
  79021. begin
  79022. Result:='LimitedWebPartManagers';
  79023. end;
  79024. Class Function TSPLimitedWebPartManagersEntitySet.EntityClass : TODataEntityClass;
  79025. begin
  79026. Result:=TSP_WebPartsLimitedWebPartManager;
  79027. end;
  79028. Function TSPLimitedWebPartManagersEntitySet.Get(const HasPersonalizedParts: boolean) : TSP_WebPartsLimitedWebPartManager;
  79029. begin
  79030. Result:=TSP_WebPartsLimitedWebPartManager(GetSingle(BoolToStr(HasPersonalizedParts,'true','false')));
  79031. end;
  79032. Function TSPLimitedWebPartManagersEntitySet.List(const AQuery: String; out NextLink: String) : TSP_WebPartsLimitedWebPartManagerArray;
  79033. begin
  79034. Result:=TSP_WebPartsLimitedWebPartManagerArray(GetMulti(AQuery,False,NextLink));
  79035. end;
  79036. Function TSPLimitedWebPartManagersEntitySet.List(const AQuery: TQueryParams; out NextLink: String) : TSP_WebPartsLimitedWebPartManagerArray;
  79037. begin
  79038. Result:=TSP_WebPartsLimitedWebPartManagerArray(GetMulti(AQuery,False,NextLink));
  79039. end;
  79040. Function TSPLimitedWebPartManagersEntitySet.ListAll(const AQuery: String) : TSP_WebPartsLimitedWebPartManagerArray;
  79041. var N : String;
  79042. begin
  79043. Result:=TSP_WebPartsLimitedWebPartManagerArray(GetMulti(AQuery,True,N));
  79044. end;
  79045. Function TSPLimitedWebPartManagersEntitySet.ListAll(const AQuery: TQueryParams) : TSP_WebPartsLimitedWebPartManagerArray;
  79046. var N : String;
  79047. begin
  79048. Result:=TSP_WebPartsLimitedWebPartManagerArray(GetMulti(AQuery,True,N));
  79049. end;
  79050. { --------------------------------------------------------------------
  79051. TSPWebPartsEntitySet
  79052. --------------------------------------------------------------------}
  79053. Class Function TSPWebPartsEntitySet.ObjectRestKind : String;
  79054. begin
  79055. Result:='WebParts';
  79056. end;
  79057. Class Function TSPWebPartsEntitySet.EntityClass : TODataEntityClass;
  79058. begin
  79059. Result:=TSP_WebPartsWebPart;
  79060. end;
  79061. Function TSPWebPartsEntitySet.Get(const Hidden: boolean) : TSP_WebPartsWebPart;
  79062. begin
  79063. Result:=TSP_WebPartsWebPart(GetSingle(BoolToStr(Hidden,'true','false')));
  79064. end;
  79065. Function TSPWebPartsEntitySet.List(const AQuery: String; out NextLink: String) : TSP_WebPartsWebPartArray;
  79066. begin
  79067. Result:=TSP_WebPartsWebPartArray(GetMulti(AQuery,False,NextLink));
  79068. end;
  79069. Function TSPWebPartsEntitySet.List(const AQuery: TQueryParams; out NextLink: String) : TSP_WebPartsWebPartArray;
  79070. begin
  79071. Result:=TSP_WebPartsWebPartArray(GetMulti(AQuery,False,NextLink));
  79072. end;
  79073. Function TSPWebPartsEntitySet.ListAll(const AQuery: String) : TSP_WebPartsWebPartArray;
  79074. var N : String;
  79075. begin
  79076. Result:=TSP_WebPartsWebPartArray(GetMulti(AQuery,True,N));
  79077. end;
  79078. Function TSPWebPartsEntitySet.ListAll(const AQuery: TQueryParams) : TSP_WebPartsWebPartArray;
  79079. var N : String;
  79080. begin
  79081. Result:=TSP_WebPartsWebPartArray(GetMulti(AQuery,True,N));
  79082. end;
  79083. { --------------------------------------------------------------------
  79084. TSPWebPartDefinitionsEntitySet
  79085. --------------------------------------------------------------------}
  79086. Class Function TSPWebPartDefinitionsEntitySet.ObjectRestKind : String;
  79087. begin
  79088. Result:='WebPartDefinitions';
  79089. end;
  79090. Class Function TSPWebPartDefinitionsEntitySet.EntityClass : TODataEntityClass;
  79091. begin
  79092. Result:=TSP_WebPartsWebPartDefinition;
  79093. end;
  79094. Function TSPWebPartDefinitionsEntitySet.Get(const Id: TGUIDString) : TSP_WebPartsWebPartDefinition;
  79095. begin
  79096. Result:=TSP_WebPartsWebPartDefinition(GetSingle(TODataObject.MakeKeyString(Id)));
  79097. end;
  79098. Function TSPWebPartDefinitionsEntitySet.List(const AQuery: String; out NextLink: String) : TSP_WebPartsWebPartDefinitionArray;
  79099. begin
  79100. Result:=TSP_WebPartsWebPartDefinitionArray(GetMulti(AQuery,False,NextLink));
  79101. end;
  79102. Function TSPWebPartDefinitionsEntitySet.List(const AQuery: TQueryParams; out NextLink: String) : TSP_WebPartsWebPartDefinitionArray;
  79103. begin
  79104. Result:=TSP_WebPartsWebPartDefinitionArray(GetMulti(AQuery,False,NextLink));
  79105. end;
  79106. Function TSPWebPartDefinitionsEntitySet.ListAll(const AQuery: String) : TSP_WebPartsWebPartDefinitionArray;
  79107. var N : String;
  79108. begin
  79109. Result:=TSP_WebPartsWebPartDefinitionArray(GetMulti(AQuery,True,N));
  79110. end;
  79111. Function TSPWebPartDefinitionsEntitySet.ListAll(const AQuery: TQueryParams) : TSP_WebPartsWebPartDefinitionArray;
  79112. var N : String;
  79113. begin
  79114. Result:=TSP_WebPartsWebPartDefinitionArray(GetMulti(AQuery,True,N));
  79115. end;
  79116. { --------------------------------------------------------------------
  79117. TSPWebProxysEntitySet
  79118. --------------------------------------------------------------------}
  79119. Class Function TSPWebProxysEntitySet.ObjectRestKind : String;
  79120. begin
  79121. Result:='WebProxys';
  79122. end;
  79123. Class Function TSPWebProxysEntitySet.EntityClass : TODataEntityClass;
  79124. begin
  79125. Result:=TSPWebProxy;
  79126. end;
  79127. Function TSPWebProxysEntitySet.Get(const Id4a81de82eeb94d6080ea5bf63e27023a: string) : TSPWebProxy;
  79128. begin
  79129. Result:=TSPWebProxy(GetSingle(TODataObject.MakeKeyString(Id4a81de82eeb94d6080ea5bf63e27023a)));
  79130. end;
  79131. Function TSPWebProxysEntitySet.List(const AQuery: String; out NextLink: String) : TSPWebProxyArray;
  79132. begin
  79133. Result:=TSPWebProxyArray(GetMulti(AQuery,False,NextLink));
  79134. end;
  79135. Function TSPWebProxysEntitySet.List(const AQuery: TQueryParams; out NextLink: String) : TSPWebProxyArray;
  79136. begin
  79137. Result:=TSPWebProxyArray(GetMulti(AQuery,False,NextLink));
  79138. end;
  79139. Function TSPWebProxysEntitySet.ListAll(const AQuery: String) : TSPWebProxyArray;
  79140. var N : String;
  79141. begin
  79142. Result:=TSPWebProxyArray(GetMulti(AQuery,True,N));
  79143. end;
  79144. Function TSPWebProxysEntitySet.ListAll(const AQuery: TQueryParams) : TSPWebProxyArray;
  79145. var N : String;
  79146. begin
  79147. Result:=TSPWebProxyArray(GetMulti(AQuery,True,N));
  79148. end;
  79149. { --------------------------------------------------------------------
  79150. TSPWebTemplatesEntitySet
  79151. --------------------------------------------------------------------}
  79152. Class Function TSPWebTemplatesEntitySet.ObjectRestKind : String;
  79153. begin
  79154. Result:='WebTemplates';
  79155. end;
  79156. Class Function TSPWebTemplatesEntitySet.EntityClass : TODataEntityClass;
  79157. begin
  79158. Result:=TSPWebTemplate;
  79159. end;
  79160. Function TSPWebTemplatesEntitySet.Get(const Id: TInt32) : TSPWebTemplate;
  79161. begin
  79162. Result:=TSPWebTemplate(GetSingle(IntToStr(Id)));
  79163. end;
  79164. Function TSPWebTemplatesEntitySet.List(const AQuery: String; out NextLink: String) : TSPWebTemplateArray;
  79165. begin
  79166. Result:=TSPWebTemplateArray(GetMulti(AQuery,False,NextLink));
  79167. end;
  79168. Function TSPWebTemplatesEntitySet.List(const AQuery: TQueryParams; out NextLink: String) : TSPWebTemplateArray;
  79169. begin
  79170. Result:=TSPWebTemplateArray(GetMulti(AQuery,False,NextLink));
  79171. end;
  79172. Function TSPWebTemplatesEntitySet.ListAll(const AQuery: String) : TSPWebTemplateArray;
  79173. var N : String;
  79174. begin
  79175. Result:=TSPWebTemplateArray(GetMulti(AQuery,True,N));
  79176. end;
  79177. Function TSPWebTemplatesEntitySet.ListAll(const AQuery: TQueryParams) : TSPWebTemplateArray;
  79178. var N : String;
  79179. begin
  79180. Result:=TSPWebTemplateArray(GetMulti(AQuery,True,N));
  79181. end;
  79182. { --------------------------------------------------------------------
  79183. TSPSPWorkflowsEntitySet
  79184. --------------------------------------------------------------------}
  79185. Class Function TSPSPWorkflowsEntitySet.ObjectRestKind : String;
  79186. begin
  79187. Result:='SPWorkflows';
  79188. end;
  79189. Class Function TSPSPWorkflowsEntitySet.EntityClass : TODataEntityClass;
  79190. begin
  79191. Result:=TSP_WorkflowSPWorkflow;
  79192. end;
  79193. Function TSPSPWorkflowsEntitySet.Get(const AssociationId: TGUIDString) : TSP_WorkflowSPWorkflow;
  79194. begin
  79195. Result:=TSP_WorkflowSPWorkflow(GetSingle(TODataObject.MakeKeyString(AssociationId)));
  79196. end;
  79197. Function TSPSPWorkflowsEntitySet.List(const AQuery: String; out NextLink: String) : TSP_WorkflowSPWorkflowArray;
  79198. begin
  79199. Result:=TSP_WorkflowSPWorkflowArray(GetMulti(AQuery,False,NextLink));
  79200. end;
  79201. Function TSPSPWorkflowsEntitySet.List(const AQuery: TQueryParams; out NextLink: String) : TSP_WorkflowSPWorkflowArray;
  79202. begin
  79203. Result:=TSP_WorkflowSPWorkflowArray(GetMulti(AQuery,False,NextLink));
  79204. end;
  79205. Function TSPSPWorkflowsEntitySet.ListAll(const AQuery: String) : TSP_WorkflowSPWorkflowArray;
  79206. var N : String;
  79207. begin
  79208. Result:=TSP_WorkflowSPWorkflowArray(GetMulti(AQuery,True,N));
  79209. end;
  79210. Function TSPSPWorkflowsEntitySet.ListAll(const AQuery: TQueryParams) : TSP_WorkflowSPWorkflowArray;
  79211. var N : String;
  79212. begin
  79213. Result:=TSP_WorkflowSPWorkflowArray(GetMulti(AQuery,True,N));
  79214. end;
  79215. { --------------------------------------------------------------------
  79216. TSPSPWorkflowManagersEntitySet
  79217. --------------------------------------------------------------------}
  79218. Class Function TSPSPWorkflowManagersEntitySet.ObjectRestKind : String;
  79219. begin
  79220. Result:='SPWorkflowManagers';
  79221. end;
  79222. Class Function TSPSPWorkflowManagersEntitySet.EntityClass : TODataEntityClass;
  79223. begin
  79224. Result:=TSP_WorkflowSPWorkflowManager;
  79225. end;
  79226. Function TSPSPWorkflowManagersEntitySet.Get(const Id4a81de82eeb94d6080ea5bf63e27023a: string) : TSP_WorkflowSPWorkflowManager;
  79227. begin
  79228. Result:=TSP_WorkflowSPWorkflowManager(GetSingle(TODataObject.MakeKeyString(Id4a81de82eeb94d6080ea5bf63e27023a)));
  79229. end;
  79230. Function TSPSPWorkflowManagersEntitySet.List(const AQuery: String; out NextLink: String) : TSP_WorkflowSPWorkflowManagerArray;
  79231. begin
  79232. Result:=TSP_WorkflowSPWorkflowManagerArray(GetMulti(AQuery,False,NextLink));
  79233. end;
  79234. Function TSPSPWorkflowManagersEntitySet.List(const AQuery: TQueryParams; out NextLink: String) : TSP_WorkflowSPWorkflowManagerArray;
  79235. begin
  79236. Result:=TSP_WorkflowSPWorkflowManagerArray(GetMulti(AQuery,False,NextLink));
  79237. end;
  79238. Function TSPSPWorkflowManagersEntitySet.ListAll(const AQuery: String) : TSP_WorkflowSPWorkflowManagerArray;
  79239. var N : String;
  79240. begin
  79241. Result:=TSP_WorkflowSPWorkflowManagerArray(GetMulti(AQuery,True,N));
  79242. end;
  79243. Function TSPSPWorkflowManagersEntitySet.ListAll(const AQuery: TQueryParams) : TSP_WorkflowSPWorkflowManagerArray;
  79244. var N : String;
  79245. begin
  79246. Result:=TSP_WorkflowSPWorkflowManagerArray(GetMulti(AQuery,True,N));
  79247. end;
  79248. { --------------------------------------------------------------------
  79249. TSPWorkflowAssociationsEntitySet
  79250. --------------------------------------------------------------------}
  79251. Class Function TSPWorkflowAssociationsEntitySet.ObjectRestKind : String;
  79252. begin
  79253. Result:='WorkflowAssociations';
  79254. end;
  79255. Class Function TSPWorkflowAssociationsEntitySet.EntityClass : TODataEntityClass;
  79256. begin
  79257. Result:=TSP_WorkflowWorkflowAssociation;
  79258. end;
  79259. Function TSPWorkflowAssociationsEntitySet.Get(const Id: TGUIDString) : TSP_WorkflowWorkflowAssociation;
  79260. begin
  79261. Result:=TSP_WorkflowWorkflowAssociation(GetSingle(TODataObject.MakeKeyString(Id)));
  79262. end;
  79263. Function TSPWorkflowAssociationsEntitySet.List(const AQuery: String; out NextLink: String) : TSP_WorkflowWorkflowAssociationArray;
  79264. begin
  79265. Result:=TSP_WorkflowWorkflowAssociationArray(GetMulti(AQuery,False,NextLink));
  79266. end;
  79267. Function TSPWorkflowAssociationsEntitySet.List(const AQuery: TQueryParams; out NextLink: String) : TSP_WorkflowWorkflowAssociationArray;
  79268. begin
  79269. Result:=TSP_WorkflowWorkflowAssociationArray(GetMulti(AQuery,False,NextLink));
  79270. end;
  79271. Function TSPWorkflowAssociationsEntitySet.ListAll(const AQuery: String) : TSP_WorkflowWorkflowAssociationArray;
  79272. var N : String;
  79273. begin
  79274. Result:=TSP_WorkflowWorkflowAssociationArray(GetMulti(AQuery,True,N));
  79275. end;
  79276. Function TSPWorkflowAssociationsEntitySet.ListAll(const AQuery: TQueryParams) : TSP_WorkflowWorkflowAssociationArray;
  79277. var N : String;
  79278. begin
  79279. Result:=TSP_WorkflowWorkflowAssociationArray(GetMulti(AQuery,True,N));
  79280. end;
  79281. { --------------------------------------------------------------------
  79282. TSPWorkflowTemplatesEntitySet
  79283. --------------------------------------------------------------------}
  79284. Class Function TSPWorkflowTemplatesEntitySet.ObjectRestKind : String;
  79285. begin
  79286. Result:='WorkflowTemplates';
  79287. end;
  79288. Class Function TSPWorkflowTemplatesEntitySet.EntityClass : TODataEntityClass;
  79289. begin
  79290. Result:=TSP_WorkflowWorkflowTemplate;
  79291. end;
  79292. Function TSPWorkflowTemplatesEntitySet.Get(const Id: TGUIDString) : TSP_WorkflowWorkflowTemplate;
  79293. begin
  79294. Result:=TSP_WorkflowWorkflowTemplate(GetSingle(TODataObject.MakeKeyString(Id)));
  79295. end;
  79296. Function TSPWorkflowTemplatesEntitySet.List(const AQuery: String; out NextLink: String) : TSP_WorkflowWorkflowTemplateArray;
  79297. begin
  79298. Result:=TSP_WorkflowWorkflowTemplateArray(GetMulti(AQuery,False,NextLink));
  79299. end;
  79300. Function TSPWorkflowTemplatesEntitySet.List(const AQuery: TQueryParams; out NextLink: String) : TSP_WorkflowWorkflowTemplateArray;
  79301. begin
  79302. Result:=TSP_WorkflowWorkflowTemplateArray(GetMulti(AQuery,False,NextLink));
  79303. end;
  79304. Function TSPWorkflowTemplatesEntitySet.ListAll(const AQuery: String) : TSP_WorkflowWorkflowTemplateArray;
  79305. var N : String;
  79306. begin
  79307. Result:=TSP_WorkflowWorkflowTemplateArray(GetMulti(AQuery,True,N));
  79308. end;
  79309. Function TSPWorkflowTemplatesEntitySet.ListAll(const AQuery: TQueryParams) : TSP_WorkflowWorkflowTemplateArray;
  79310. var N : String;
  79311. begin
  79312. Result:=TSP_WorkflowWorkflowTemplateArray(GetMulti(AQuery,True,N));
  79313. end;
  79314. { --------------------------------------------------------------------
  79315. TSPInteropServicesEntitySet
  79316. --------------------------------------------------------------------}
  79317. Class Function TSPInteropServicesEntitySet.ObjectRestKind : String;
  79318. begin
  79319. Result:='InteropServices';
  79320. end;
  79321. Class Function TSPInteropServicesEntitySet.EntityClass : TODataEntityClass;
  79322. begin
  79323. Result:=TSP_WorkflowServicesInteropService;
  79324. end;
  79325. Function TSPInteropServicesEntitySet.Get(const Id4a81de82eeb94d6080ea5bf63e27023a: string) : TSP_WorkflowServicesInteropService;
  79326. begin
  79327. Result:=TSP_WorkflowServicesInteropService(GetSingle(TODataObject.MakeKeyString(Id4a81de82eeb94d6080ea5bf63e27023a)));
  79328. end;
  79329. Function TSPInteropServicesEntitySet.List(const AQuery: String; out NextLink: String) : TSP_WorkflowServicesInteropServiceArray;
  79330. begin
  79331. Result:=TSP_WorkflowServicesInteropServiceArray(GetMulti(AQuery,False,NextLink));
  79332. end;
  79333. Function TSPInteropServicesEntitySet.List(const AQuery: TQueryParams; out NextLink: String) : TSP_WorkflowServicesInteropServiceArray;
  79334. begin
  79335. Result:=TSP_WorkflowServicesInteropServiceArray(GetMulti(AQuery,False,NextLink));
  79336. end;
  79337. Function TSPInteropServicesEntitySet.ListAll(const AQuery: String) : TSP_WorkflowServicesInteropServiceArray;
  79338. var N : String;
  79339. begin
  79340. Result:=TSP_WorkflowServicesInteropServiceArray(GetMulti(AQuery,True,N));
  79341. end;
  79342. Function TSPInteropServicesEntitySet.ListAll(const AQuery: TQueryParams) : TSP_WorkflowServicesInteropServiceArray;
  79343. var N : String;
  79344. begin
  79345. Result:=TSP_WorkflowServicesInteropServiceArray(GetMulti(AQuery,True,N));
  79346. end;
  79347. { --------------------------------------------------------------------
  79348. TSPWorkflowDefinitionsEntitySet
  79349. --------------------------------------------------------------------}
  79350. Class Function TSPWorkflowDefinitionsEntitySet.ObjectRestKind : String;
  79351. begin
  79352. Result:='WorkflowDefinitions';
  79353. end;
  79354. Class Function TSPWorkflowDefinitionsEntitySet.EntityClass : TODataEntityClass;
  79355. begin
  79356. Result:=TSP_WorkflowServicesWorkflowDefinition;
  79357. end;
  79358. Function TSPWorkflowDefinitionsEntitySet.Get(const Id: TGUIDString) : TSP_WorkflowServicesWorkflowDefinition;
  79359. begin
  79360. Result:=TSP_WorkflowServicesWorkflowDefinition(GetSingle(TODataObject.MakeKeyString(Id)));
  79361. end;
  79362. Function TSPWorkflowDefinitionsEntitySet.List(const AQuery: String; out NextLink: String) : TSP_WorkflowServicesWorkflowDefinitionArray;
  79363. begin
  79364. Result:=TSP_WorkflowServicesWorkflowDefinitionArray(GetMulti(AQuery,False,NextLink));
  79365. end;
  79366. Function TSPWorkflowDefinitionsEntitySet.List(const AQuery: TQueryParams; out NextLink: String) : TSP_WorkflowServicesWorkflowDefinitionArray;
  79367. begin
  79368. Result:=TSP_WorkflowServicesWorkflowDefinitionArray(GetMulti(AQuery,False,NextLink));
  79369. end;
  79370. Function TSPWorkflowDefinitionsEntitySet.ListAll(const AQuery: String) : TSP_WorkflowServicesWorkflowDefinitionArray;
  79371. var N : String;
  79372. begin
  79373. Result:=TSP_WorkflowServicesWorkflowDefinitionArray(GetMulti(AQuery,True,N));
  79374. end;
  79375. Function TSPWorkflowDefinitionsEntitySet.ListAll(const AQuery: TQueryParams) : TSP_WorkflowServicesWorkflowDefinitionArray;
  79376. var N : String;
  79377. begin
  79378. Result:=TSP_WorkflowServicesWorkflowDefinitionArray(GetMulti(AQuery,True,N));
  79379. end;
  79380. { --------------------------------------------------------------------
  79381. TSPWorkflowDeploymentServicesEntitySet
  79382. --------------------------------------------------------------------}
  79383. Class Function TSPWorkflowDeploymentServicesEntitySet.ObjectRestKind : String;
  79384. begin
  79385. Result:='WorkflowDeploymentServices';
  79386. end;
  79387. Class Function TSPWorkflowDeploymentServicesEntitySet.EntityClass : TODataEntityClass;
  79388. begin
  79389. Result:=TSP_WorkflowServicesWorkflowDeploymentService;
  79390. end;
  79391. Function TSPWorkflowDeploymentServicesEntitySet.Get(const Id4a81de82eeb94d6080ea5bf63e27023a: string) : TSP_WorkflowServicesWorkflowDeploymentService;
  79392. begin
  79393. Result:=TSP_WorkflowServicesWorkflowDeploymentService(GetSingle(TODataObject.MakeKeyString(Id4a81de82eeb94d6080ea5bf63e27023a)));
  79394. end;
  79395. Function TSPWorkflowDeploymentServicesEntitySet.List(const AQuery: String; out NextLink: String) : TSP_WorkflowServicesWorkflowDeploymentServiceArray;
  79396. begin
  79397. Result:=TSP_WorkflowServicesWorkflowDeploymentServiceArray(GetMulti(AQuery,False,NextLink));
  79398. end;
  79399. Function TSPWorkflowDeploymentServicesEntitySet.List(const AQuery: TQueryParams; out NextLink: String) : TSP_WorkflowServicesWorkflowDeploymentServiceArray;
  79400. begin
  79401. Result:=TSP_WorkflowServicesWorkflowDeploymentServiceArray(GetMulti(AQuery,False,NextLink));
  79402. end;
  79403. Function TSPWorkflowDeploymentServicesEntitySet.ListAll(const AQuery: String) : TSP_WorkflowServicesWorkflowDeploymentServiceArray;
  79404. var N : String;
  79405. begin
  79406. Result:=TSP_WorkflowServicesWorkflowDeploymentServiceArray(GetMulti(AQuery,True,N));
  79407. end;
  79408. Function TSPWorkflowDeploymentServicesEntitySet.ListAll(const AQuery: TQueryParams) : TSP_WorkflowServicesWorkflowDeploymentServiceArray;
  79409. var N : String;
  79410. begin
  79411. Result:=TSP_WorkflowServicesWorkflowDeploymentServiceArray(GetMulti(AQuery,True,N));
  79412. end;
  79413. { --------------------------------------------------------------------
  79414. TSPWorkflowInstancesEntitySet
  79415. --------------------------------------------------------------------}
  79416. Class Function TSPWorkflowInstancesEntitySet.ObjectRestKind : String;
  79417. begin
  79418. Result:='WorkflowInstances';
  79419. end;
  79420. Class Function TSPWorkflowInstancesEntitySet.EntityClass : TODataEntityClass;
  79421. begin
  79422. Result:=TSP_WorkflowServicesWorkflowInstance;
  79423. end;
  79424. Function TSPWorkflowInstancesEntitySet.Get(const Id: TGUIDString) : TSP_WorkflowServicesWorkflowInstance;
  79425. begin
  79426. Result:=TSP_WorkflowServicesWorkflowInstance(GetSingle(TODataObject.MakeKeyString(Id)));
  79427. end;
  79428. Function TSPWorkflowInstancesEntitySet.List(const AQuery: String; out NextLink: String) : TSP_WorkflowServicesWorkflowInstanceArray;
  79429. begin
  79430. Result:=TSP_WorkflowServicesWorkflowInstanceArray(GetMulti(AQuery,False,NextLink));
  79431. end;
  79432. Function TSPWorkflowInstancesEntitySet.List(const AQuery: TQueryParams; out NextLink: String) : TSP_WorkflowServicesWorkflowInstanceArray;
  79433. begin
  79434. Result:=TSP_WorkflowServicesWorkflowInstanceArray(GetMulti(AQuery,False,NextLink));
  79435. end;
  79436. Function TSPWorkflowInstancesEntitySet.ListAll(const AQuery: String) : TSP_WorkflowServicesWorkflowInstanceArray;
  79437. var N : String;
  79438. begin
  79439. Result:=TSP_WorkflowServicesWorkflowInstanceArray(GetMulti(AQuery,True,N));
  79440. end;
  79441. Function TSPWorkflowInstancesEntitySet.ListAll(const AQuery: TQueryParams) : TSP_WorkflowServicesWorkflowInstanceArray;
  79442. var N : String;
  79443. begin
  79444. Result:=TSP_WorkflowServicesWorkflowInstanceArray(GetMulti(AQuery,True,N));
  79445. end;
  79446. { --------------------------------------------------------------------
  79447. TSPWorkflowInstanceServicesEntitySet
  79448. --------------------------------------------------------------------}
  79449. Class Function TSPWorkflowInstanceServicesEntitySet.ObjectRestKind : String;
  79450. begin
  79451. Result:='WorkflowInstanceServices';
  79452. end;
  79453. Class Function TSPWorkflowInstanceServicesEntitySet.EntityClass : TODataEntityClass;
  79454. begin
  79455. Result:=TSP_WorkflowServicesWorkflowInstanceService;
  79456. end;
  79457. Function TSPWorkflowInstanceServicesEntitySet.Get(const Id4a81de82eeb94d6080ea5bf63e27023a: string) : TSP_WorkflowServicesWorkflowInstanceService;
  79458. begin
  79459. Result:=TSP_WorkflowServicesWorkflowInstanceService(GetSingle(TODataObject.MakeKeyString(Id4a81de82eeb94d6080ea5bf63e27023a)));
  79460. end;
  79461. Function TSPWorkflowInstanceServicesEntitySet.List(const AQuery: String; out NextLink: String) : TSP_WorkflowServicesWorkflowInstanceServiceArray;
  79462. begin
  79463. Result:=TSP_WorkflowServicesWorkflowInstanceServiceArray(GetMulti(AQuery,False,NextLink));
  79464. end;
  79465. Function TSPWorkflowInstanceServicesEntitySet.List(const AQuery: TQueryParams; out NextLink: String) : TSP_WorkflowServicesWorkflowInstanceServiceArray;
  79466. begin
  79467. Result:=TSP_WorkflowServicesWorkflowInstanceServiceArray(GetMulti(AQuery,False,NextLink));
  79468. end;
  79469. Function TSPWorkflowInstanceServicesEntitySet.ListAll(const AQuery: String) : TSP_WorkflowServicesWorkflowInstanceServiceArray;
  79470. var N : String;
  79471. begin
  79472. Result:=TSP_WorkflowServicesWorkflowInstanceServiceArray(GetMulti(AQuery,True,N));
  79473. end;
  79474. Function TSPWorkflowInstanceServicesEntitySet.ListAll(const AQuery: TQueryParams) : TSP_WorkflowServicesWorkflowInstanceServiceArray;
  79475. var N : String;
  79476. begin
  79477. Result:=TSP_WorkflowServicesWorkflowInstanceServiceArray(GetMulti(AQuery,True,N));
  79478. end;
  79479. { --------------------------------------------------------------------
  79480. TSPWorkflowMessagingServicesEntitySet
  79481. --------------------------------------------------------------------}
  79482. Class Function TSPWorkflowMessagingServicesEntitySet.ObjectRestKind : String;
  79483. begin
  79484. Result:='WorkflowMessagingServices';
  79485. end;
  79486. Class Function TSPWorkflowMessagingServicesEntitySet.EntityClass : TODataEntityClass;
  79487. begin
  79488. Result:=TSP_WorkflowServicesWorkflowMessagingService;
  79489. end;
  79490. Function TSPWorkflowMessagingServicesEntitySet.Get(const Id4a81de82eeb94d6080ea5bf63e27023a: string) : TSP_WorkflowServicesWorkflowMessagingService;
  79491. begin
  79492. Result:=TSP_WorkflowServicesWorkflowMessagingService(GetSingle(TODataObject.MakeKeyString(Id4a81de82eeb94d6080ea5bf63e27023a)));
  79493. end;
  79494. Function TSPWorkflowMessagingServicesEntitySet.List(const AQuery: String; out NextLink: String) : TSP_WorkflowServicesWorkflowMessagingServiceArray;
  79495. begin
  79496. Result:=TSP_WorkflowServicesWorkflowMessagingServiceArray(GetMulti(AQuery,False,NextLink));
  79497. end;
  79498. Function TSPWorkflowMessagingServicesEntitySet.List(const AQuery: TQueryParams; out NextLink: String) : TSP_WorkflowServicesWorkflowMessagingServiceArray;
  79499. begin
  79500. Result:=TSP_WorkflowServicesWorkflowMessagingServiceArray(GetMulti(AQuery,False,NextLink));
  79501. end;
  79502. Function TSPWorkflowMessagingServicesEntitySet.ListAll(const AQuery: String) : TSP_WorkflowServicesWorkflowMessagingServiceArray;
  79503. var N : String;
  79504. begin
  79505. Result:=TSP_WorkflowServicesWorkflowMessagingServiceArray(GetMulti(AQuery,True,N));
  79506. end;
  79507. Function TSPWorkflowMessagingServicesEntitySet.ListAll(const AQuery: TQueryParams) : TSP_WorkflowServicesWorkflowMessagingServiceArray;
  79508. var N : String;
  79509. begin
  79510. Result:=TSP_WorkflowServicesWorkflowMessagingServiceArray(GetMulti(AQuery,True,N));
  79511. end;
  79512. { --------------------------------------------------------------------
  79513. TSPWorkflowServicesManagersEntitySet
  79514. --------------------------------------------------------------------}
  79515. Class Function TSPWorkflowServicesManagersEntitySet.ObjectRestKind : String;
  79516. begin
  79517. Result:='WorkflowServicesManagers';
  79518. end;
  79519. Class Function TSPWorkflowServicesManagersEntitySet.EntityClass : TODataEntityClass;
  79520. begin
  79521. Result:=TSP_WorkflowServicesWorkflowServicesManager;
  79522. end;
  79523. Function TSPWorkflowServicesManagersEntitySet.Get(const AppId: string) : TSP_WorkflowServicesWorkflowServicesManager;
  79524. begin
  79525. Result:=TSP_WorkflowServicesWorkflowServicesManager(GetSingle(TODataObject.MakeKeyString(AppId)));
  79526. end;
  79527. Function TSPWorkflowServicesManagersEntitySet.List(const AQuery: String; out NextLink: String) : TSP_WorkflowServicesWorkflowServicesManagerArray;
  79528. begin
  79529. Result:=TSP_WorkflowServicesWorkflowServicesManagerArray(GetMulti(AQuery,False,NextLink));
  79530. end;
  79531. Function TSPWorkflowServicesManagersEntitySet.List(const AQuery: TQueryParams; out NextLink: String) : TSP_WorkflowServicesWorkflowServicesManagerArray;
  79532. begin
  79533. Result:=TSP_WorkflowServicesWorkflowServicesManagerArray(GetMulti(AQuery,False,NextLink));
  79534. end;
  79535. Function TSPWorkflowServicesManagersEntitySet.ListAll(const AQuery: String) : TSP_WorkflowServicesWorkflowServicesManagerArray;
  79536. var N : String;
  79537. begin
  79538. Result:=TSP_WorkflowServicesWorkflowServicesManagerArray(GetMulti(AQuery,True,N));
  79539. end;
  79540. Function TSPWorkflowServicesManagersEntitySet.ListAll(const AQuery: TQueryParams) : TSP_WorkflowServicesWorkflowServicesManagerArray;
  79541. var N : String;
  79542. begin
  79543. Result:=TSP_WorkflowServicesWorkflowServicesManagerArray(GetMulti(AQuery,True,N));
  79544. end;
  79545. { --------------------------------------------------------------------
  79546. TSPWorkflowSubscriptionsEntitySet
  79547. --------------------------------------------------------------------}
  79548. Class Function TSPWorkflowSubscriptionsEntitySet.ObjectRestKind : String;
  79549. begin
  79550. Result:='WorkflowSubscriptions';
  79551. end;
  79552. Class Function TSPWorkflowSubscriptionsEntitySet.EntityClass : TODataEntityClass;
  79553. begin
  79554. Result:=TSP_WorkflowServicesWorkflowSubscription;
  79555. end;
  79556. Function TSPWorkflowSubscriptionsEntitySet.Get(const Id: TGUIDString) : TSP_WorkflowServicesWorkflowSubscription;
  79557. begin
  79558. Result:=TSP_WorkflowServicesWorkflowSubscription(GetSingle(TODataObject.MakeKeyString(Id)));
  79559. end;
  79560. Function TSPWorkflowSubscriptionsEntitySet.List(const AQuery: String; out NextLink: String) : TSP_WorkflowServicesWorkflowSubscriptionArray;
  79561. begin
  79562. Result:=TSP_WorkflowServicesWorkflowSubscriptionArray(GetMulti(AQuery,False,NextLink));
  79563. end;
  79564. Function TSPWorkflowSubscriptionsEntitySet.List(const AQuery: TQueryParams; out NextLink: String) : TSP_WorkflowServicesWorkflowSubscriptionArray;
  79565. begin
  79566. Result:=TSP_WorkflowServicesWorkflowSubscriptionArray(GetMulti(AQuery,False,NextLink));
  79567. end;
  79568. Function TSPWorkflowSubscriptionsEntitySet.ListAll(const AQuery: String) : TSP_WorkflowServicesWorkflowSubscriptionArray;
  79569. var N : String;
  79570. begin
  79571. Result:=TSP_WorkflowServicesWorkflowSubscriptionArray(GetMulti(AQuery,True,N));
  79572. end;
  79573. Function TSPWorkflowSubscriptionsEntitySet.ListAll(const AQuery: TQueryParams) : TSP_WorkflowServicesWorkflowSubscriptionArray;
  79574. var N : String;
  79575. begin
  79576. Result:=TSP_WorkflowServicesWorkflowSubscriptionArray(GetMulti(AQuery,True,N));
  79577. end;
  79578. { --------------------------------------------------------------------
  79579. TSPWorkflowSubscriptionServicesEntitySet
  79580. --------------------------------------------------------------------}
  79581. Class Function TSPWorkflowSubscriptionServicesEntitySet.ObjectRestKind : String;
  79582. begin
  79583. Result:='WorkflowSubscriptionServices';
  79584. end;
  79585. Class Function TSPWorkflowSubscriptionServicesEntitySet.EntityClass : TODataEntityClass;
  79586. begin
  79587. Result:=TSP_WorkflowServicesWorkflowSubscriptionService;
  79588. end;
  79589. Function TSPWorkflowSubscriptionServicesEntitySet.Get(const Id4a81de82eeb94d6080ea5bf63e27023a: string) : TSP_WorkflowServicesWorkflowSubscriptionService;
  79590. begin
  79591. Result:=TSP_WorkflowServicesWorkflowSubscriptionService(GetSingle(TODataObject.MakeKeyString(Id4a81de82eeb94d6080ea5bf63e27023a)));
  79592. end;
  79593. Function TSPWorkflowSubscriptionServicesEntitySet.List(const AQuery: String; out NextLink: String) : TSP_WorkflowServicesWorkflowSubscriptionServiceArray;
  79594. begin
  79595. Result:=TSP_WorkflowServicesWorkflowSubscriptionServiceArray(GetMulti(AQuery,False,NextLink));
  79596. end;
  79597. Function TSPWorkflowSubscriptionServicesEntitySet.List(const AQuery: TQueryParams; out NextLink: String) : TSP_WorkflowServicesWorkflowSubscriptionServiceArray;
  79598. begin
  79599. Result:=TSP_WorkflowServicesWorkflowSubscriptionServiceArray(GetMulti(AQuery,False,NextLink));
  79600. end;
  79601. Function TSPWorkflowSubscriptionServicesEntitySet.ListAll(const AQuery: String) : TSP_WorkflowServicesWorkflowSubscriptionServiceArray;
  79602. var N : String;
  79603. begin
  79604. Result:=TSP_WorkflowServicesWorkflowSubscriptionServiceArray(GetMulti(AQuery,True,N));
  79605. end;
  79606. Function TSPWorkflowSubscriptionServicesEntitySet.ListAll(const AQuery: TQueryParams) : TSP_WorkflowServicesWorkflowSubscriptionServiceArray;
  79607. var N : String;
  79608. begin
  79609. Result:=TSP_WorkflowServicesWorkflowSubscriptionServiceArray(GetMulti(AQuery,True,N));
  79610. end;
  79611. { --------------------------------------------------------------------
  79612. TSPBaseSessionsEntitySet
  79613. --------------------------------------------------------------------}
  79614. Class Function TSPBaseSessionsEntitySet.ObjectRestKind : String;
  79615. begin
  79616. Result:='BaseSessions';
  79617. end;
  79618. Class Function TSPBaseSessionsEntitySet.EntityClass : TODataEntityClass;
  79619. begin
  79620. Result:=TSP_WorkManagement_OMBaseSession;
  79621. end;
  79622. Function TSPBaseSessionsEntitySet.Get(const Id4a81de82eeb94d6080ea5bf63e27023a: string) : TSP_WorkManagement_OMBaseSession;
  79623. begin
  79624. Result:=TSP_WorkManagement_OMBaseSession(GetSingle(TODataObject.MakeKeyString(Id4a81de82eeb94d6080ea5bf63e27023a)));
  79625. end;
  79626. Function TSPBaseSessionsEntitySet.List(const AQuery: String; out NextLink: String) : TSP_WorkManagement_OMBaseSessionArray;
  79627. begin
  79628. Result:=TSP_WorkManagement_OMBaseSessionArray(GetMulti(AQuery,False,NextLink));
  79629. end;
  79630. Function TSPBaseSessionsEntitySet.List(const AQuery: TQueryParams; out NextLink: String) : TSP_WorkManagement_OMBaseSessionArray;
  79631. begin
  79632. Result:=TSP_WorkManagement_OMBaseSessionArray(GetMulti(AQuery,False,NextLink));
  79633. end;
  79634. Function TSPBaseSessionsEntitySet.ListAll(const AQuery: String) : TSP_WorkManagement_OMBaseSessionArray;
  79635. var N : String;
  79636. begin
  79637. Result:=TSP_WorkManagement_OMBaseSessionArray(GetMulti(AQuery,True,N));
  79638. end;
  79639. Function TSPBaseSessionsEntitySet.ListAll(const AQuery: TQueryParams) : TSP_WorkManagement_OMBaseSessionArray;
  79640. var N : String;
  79641. begin
  79642. Result:=TSP_WorkManagement_OMBaseSessionArray(GetMulti(AQuery,True,N));
  79643. end;
  79644. { --------------------------------------------------------------------
  79645. TSPBooleanCriterionsEntitySet
  79646. --------------------------------------------------------------------}
  79647. Class Function TSPBooleanCriterionsEntitySet.ObjectRestKind : String;
  79648. begin
  79649. Result:='BooleanCriterions';
  79650. end;
  79651. Class Function TSPBooleanCriterionsEntitySet.EntityClass : TODataEntityClass;
  79652. begin
  79653. Result:=TSP_WorkManagement_OMBooleanCriterion;
  79654. end;
  79655. Function TSPBooleanCriterionsEntitySet.Get(const CompareType: TInt32) : TSP_WorkManagement_OMBooleanCriterion;
  79656. begin
  79657. Result:=TSP_WorkManagement_OMBooleanCriterion(GetSingle(IntToStr(CompareType)));
  79658. end;
  79659. Function TSPBooleanCriterionsEntitySet.List(const AQuery: String; out NextLink: String) : TSP_WorkManagement_OMBooleanCriterionArray;
  79660. begin
  79661. Result:=TSP_WorkManagement_OMBooleanCriterionArray(GetMulti(AQuery,False,NextLink));
  79662. end;
  79663. Function TSPBooleanCriterionsEntitySet.List(const AQuery: TQueryParams; out NextLink: String) : TSP_WorkManagement_OMBooleanCriterionArray;
  79664. begin
  79665. Result:=TSP_WorkManagement_OMBooleanCriterionArray(GetMulti(AQuery,False,NextLink));
  79666. end;
  79667. Function TSPBooleanCriterionsEntitySet.ListAll(const AQuery: String) : TSP_WorkManagement_OMBooleanCriterionArray;
  79668. var N : String;
  79669. begin
  79670. Result:=TSP_WorkManagement_OMBooleanCriterionArray(GetMulti(AQuery,True,N));
  79671. end;
  79672. Function TSPBooleanCriterionsEntitySet.ListAll(const AQuery: TQueryParams) : TSP_WorkManagement_OMBooleanCriterionArray;
  79673. var N : String;
  79674. begin
  79675. Result:=TSP_WorkManagement_OMBooleanCriterionArray(GetMulti(AQuery,True,N));
  79676. end;
  79677. { --------------------------------------------------------------------
  79678. TSPCalloutInfosEntitySet
  79679. --------------------------------------------------------------------}
  79680. Class Function TSPCalloutInfosEntitySet.ObjectRestKind : String;
  79681. begin
  79682. Result:='CalloutInfos';
  79683. end;
  79684. Class Function TSPCalloutInfosEntitySet.EntityClass : TODataEntityClass;
  79685. begin
  79686. Result:=TSP_WorkManagement_OMCalloutInfo;
  79687. end;
  79688. Function TSPCalloutInfosEntitySet.Get(const DirectLinkTitle: string) : TSP_WorkManagement_OMCalloutInfo;
  79689. begin
  79690. Result:=TSP_WorkManagement_OMCalloutInfo(GetSingle(TODataObject.MakeKeyString(DirectLinkTitle)));
  79691. end;
  79692. Function TSPCalloutInfosEntitySet.List(const AQuery: String; out NextLink: String) : TSP_WorkManagement_OMCalloutInfoArray;
  79693. begin
  79694. Result:=TSP_WorkManagement_OMCalloutInfoArray(GetMulti(AQuery,False,NextLink));
  79695. end;
  79696. Function TSPCalloutInfosEntitySet.List(const AQuery: TQueryParams; out NextLink: String) : TSP_WorkManagement_OMCalloutInfoArray;
  79697. begin
  79698. Result:=TSP_WorkManagement_OMCalloutInfoArray(GetMulti(AQuery,False,NextLink));
  79699. end;
  79700. Function TSPCalloutInfosEntitySet.ListAll(const AQuery: String) : TSP_WorkManagement_OMCalloutInfoArray;
  79701. var N : String;
  79702. begin
  79703. Result:=TSP_WorkManagement_OMCalloutInfoArray(GetMulti(AQuery,True,N));
  79704. end;
  79705. Function TSPCalloutInfosEntitySet.ListAll(const AQuery: TQueryParams) : TSP_WorkManagement_OMCalloutInfoArray;
  79706. var N : String;
  79707. begin
  79708. Result:=TSP_WorkManagement_OMCalloutInfoArray(GetMulti(AQuery,True,N));
  79709. end;
  79710. { --------------------------------------------------------------------
  79711. TSPCreateRefreshJobResultsEntitySet
  79712. --------------------------------------------------------------------}
  79713. Class Function TSPCreateRefreshJobResultsEntitySet.ObjectRestKind : String;
  79714. begin
  79715. Result:='CreateRefreshJobResults';
  79716. end;
  79717. Class Function TSPCreateRefreshJobResultsEntitySet.EntityClass : TODataEntityClass;
  79718. begin
  79719. Result:=TSP_WorkManagement_OMCreateRefreshJobResult;
  79720. end;
  79721. Function TSPCreateRefreshJobResultsEntitySet.Get(const CreatedJob: boolean) : TSP_WorkManagement_OMCreateRefreshJobResult;
  79722. begin
  79723. Result:=TSP_WorkManagement_OMCreateRefreshJobResult(GetSingle(BoolToStr(CreatedJob,'true','false')));
  79724. end;
  79725. Function TSPCreateRefreshJobResultsEntitySet.List(const AQuery: String; out NextLink: String) : TSP_WorkManagement_OMCreateRefreshJobResultArray;
  79726. begin
  79727. Result:=TSP_WorkManagement_OMCreateRefreshJobResultArray(GetMulti(AQuery,False,NextLink));
  79728. end;
  79729. Function TSPCreateRefreshJobResultsEntitySet.List(const AQuery: TQueryParams; out NextLink: String) : TSP_WorkManagement_OMCreateRefreshJobResultArray;
  79730. begin
  79731. Result:=TSP_WorkManagement_OMCreateRefreshJobResultArray(GetMulti(AQuery,False,NextLink));
  79732. end;
  79733. Function TSPCreateRefreshJobResultsEntitySet.ListAll(const AQuery: String) : TSP_WorkManagement_OMCreateRefreshJobResultArray;
  79734. var N : String;
  79735. begin
  79736. Result:=TSP_WorkManagement_OMCreateRefreshJobResultArray(GetMulti(AQuery,True,N));
  79737. end;
  79738. Function TSPCreateRefreshJobResultsEntitySet.ListAll(const AQuery: TQueryParams) : TSP_WorkManagement_OMCreateRefreshJobResultArray;
  79739. var N : String;
  79740. begin
  79741. Result:=TSP_WorkManagement_OMCreateRefreshJobResultArray(GetMulti(AQuery,True,N));
  79742. end;
  79743. { --------------------------------------------------------------------
  79744. TSPCustomAttributeFiltersEntitySet
  79745. --------------------------------------------------------------------}
  79746. Class Function TSPCustomAttributeFiltersEntitySet.ObjectRestKind : String;
  79747. begin
  79748. Result:='CustomAttributeFilters';
  79749. end;
  79750. Class Function TSPCustomAttributeFiltersEntitySet.EntityClass : TODataEntityClass;
  79751. begin
  79752. Result:=TSP_WorkManagement_OMCustomAttributeFilter;
  79753. end;
  79754. Function TSPCustomAttributeFiltersEntitySet.Get(const ConcatType: TInt32) : TSP_WorkManagement_OMCustomAttributeFilter;
  79755. begin
  79756. Result:=TSP_WorkManagement_OMCustomAttributeFilter(GetSingle(IntToStr(ConcatType)));
  79757. end;
  79758. Function TSPCustomAttributeFiltersEntitySet.List(const AQuery: String; out NextLink: String) : TSP_WorkManagement_OMCustomAttributeFilterArray;
  79759. begin
  79760. Result:=TSP_WorkManagement_OMCustomAttributeFilterArray(GetMulti(AQuery,False,NextLink));
  79761. end;
  79762. Function TSPCustomAttributeFiltersEntitySet.List(const AQuery: TQueryParams; out NextLink: String) : TSP_WorkManagement_OMCustomAttributeFilterArray;
  79763. begin
  79764. Result:=TSP_WorkManagement_OMCustomAttributeFilterArray(GetMulti(AQuery,False,NextLink));
  79765. end;
  79766. Function TSPCustomAttributeFiltersEntitySet.ListAll(const AQuery: String) : TSP_WorkManagement_OMCustomAttributeFilterArray;
  79767. var N : String;
  79768. begin
  79769. Result:=TSP_WorkManagement_OMCustomAttributeFilterArray(GetMulti(AQuery,True,N));
  79770. end;
  79771. Function TSPCustomAttributeFiltersEntitySet.ListAll(const AQuery: TQueryParams) : TSP_WorkManagement_OMCustomAttributeFilterArray;
  79772. var N : String;
  79773. begin
  79774. Result:=TSP_WorkManagement_OMCustomAttributeFilterArray(GetMulti(AQuery,True,N));
  79775. end;
  79776. { --------------------------------------------------------------------
  79777. TSPDashboardScriptExtensionInfosEntitySet
  79778. --------------------------------------------------------------------}
  79779. Class Function TSPDashboardScriptExtensionInfosEntitySet.ObjectRestKind : String;
  79780. begin
  79781. Result:='DashboardScriptExtensionInfos';
  79782. end;
  79783. Class Function TSPDashboardScriptExtensionInfosEntitySet.EntityClass : TODataEntityClass;
  79784. begin
  79785. Result:=TSP_WorkManagement_OMDashboardScriptExtensionInfo;
  79786. end;
  79787. Function TSPDashboardScriptExtensionInfosEntitySet.Get(const ProviderKey: string) : TSP_WorkManagement_OMDashboardScriptExtensionInfo;
  79788. begin
  79789. Result:=TSP_WorkManagement_OMDashboardScriptExtensionInfo(GetSingle(TODataObject.MakeKeyString(ProviderKey)));
  79790. end;
  79791. Function TSPDashboardScriptExtensionInfosEntitySet.List(const AQuery: String; out NextLink: String) : TSP_WorkManagement_OMDashboardScriptExtensionInfoArray;
  79792. begin
  79793. Result:=TSP_WorkManagement_OMDashboardScriptExtensionInfoArray(GetMulti(AQuery,False,NextLink));
  79794. end;
  79795. Function TSPDashboardScriptExtensionInfosEntitySet.List(const AQuery: TQueryParams; out NextLink: String) : TSP_WorkManagement_OMDashboardScriptExtensionInfoArray;
  79796. begin
  79797. Result:=TSP_WorkManagement_OMDashboardScriptExtensionInfoArray(GetMulti(AQuery,False,NextLink));
  79798. end;
  79799. Function TSPDashboardScriptExtensionInfosEntitySet.ListAll(const AQuery: String) : TSP_WorkManagement_OMDashboardScriptExtensionInfoArray;
  79800. var N : String;
  79801. begin
  79802. Result:=TSP_WorkManagement_OMDashboardScriptExtensionInfoArray(GetMulti(AQuery,True,N));
  79803. end;
  79804. Function TSPDashboardScriptExtensionInfosEntitySet.ListAll(const AQuery: TQueryParams) : TSP_WorkManagement_OMDashboardScriptExtensionInfoArray;
  79805. var N : String;
  79806. begin
  79807. Result:=TSP_WorkManagement_OMDashboardScriptExtensionInfoArray(GetMulti(AQuery,True,N));
  79808. end;
  79809. { --------------------------------------------------------------------
  79810. TSPDateRangeCriterionsEntitySet
  79811. --------------------------------------------------------------------}
  79812. Class Function TSPDateRangeCriterionsEntitySet.ObjectRestKind : String;
  79813. begin
  79814. Result:='DateRangeCriterions';
  79815. end;
  79816. Class Function TSPDateRangeCriterionsEntitySet.EntityClass : TODataEntityClass;
  79817. begin
  79818. Result:=TSP_WorkManagement_OMDateRangeCriterion;
  79819. end;
  79820. Function TSPDateRangeCriterionsEntitySet.Get(const RangeEndValue: TDateTime) : TSP_WorkManagement_OMDateRangeCriterion;
  79821. begin
  79822. Result:=TSP_WorkManagement_OMDateRangeCriterion(GetSingle(FormatDateTime('yyyy-mm-dd"T"hhmmss',RangeEndValue)));
  79823. end;
  79824. Function TSPDateRangeCriterionsEntitySet.List(const AQuery: String; out NextLink: String) : TSP_WorkManagement_OMDateRangeCriterionArray;
  79825. begin
  79826. Result:=TSP_WorkManagement_OMDateRangeCriterionArray(GetMulti(AQuery,False,NextLink));
  79827. end;
  79828. Function TSPDateRangeCriterionsEntitySet.List(const AQuery: TQueryParams; out NextLink: String) : TSP_WorkManagement_OMDateRangeCriterionArray;
  79829. begin
  79830. Result:=TSP_WorkManagement_OMDateRangeCriterionArray(GetMulti(AQuery,False,NextLink));
  79831. end;
  79832. Function TSPDateRangeCriterionsEntitySet.ListAll(const AQuery: String) : TSP_WorkManagement_OMDateRangeCriterionArray;
  79833. var N : String;
  79834. begin
  79835. Result:=TSP_WorkManagement_OMDateRangeCriterionArray(GetMulti(AQuery,True,N));
  79836. end;
  79837. Function TSPDateRangeCriterionsEntitySet.ListAll(const AQuery: TQueryParams) : TSP_WorkManagement_OMDateRangeCriterionArray;
  79838. var N : String;
  79839. begin
  79840. Result:=TSP_WorkManagement_OMDateRangeCriterionArray(GetMulti(AQuery,True,N));
  79841. end;
  79842. { --------------------------------------------------------------------
  79843. TSPExchangeUserSyncStatesEntitySet
  79844. --------------------------------------------------------------------}
  79845. Class Function TSPExchangeUserSyncStatesEntitySet.ObjectRestKind : String;
  79846. begin
  79847. Result:='ExchangeUserSyncStates';
  79848. end;
  79849. Class Function TSPExchangeUserSyncStatesEntitySet.EntityClass : TODataEntityClass;
  79850. begin
  79851. Result:=TSP_WorkManagement_OMExchangeUserSyncState;
  79852. end;
  79853. Function TSPExchangeUserSyncStatesEntitySet.Get(const IsOptedIn: boolean) : TSP_WorkManagement_OMExchangeUserSyncState;
  79854. begin
  79855. Result:=TSP_WorkManagement_OMExchangeUserSyncState(GetSingle(BoolToStr(IsOptedIn,'true','false')));
  79856. end;
  79857. Function TSPExchangeUserSyncStatesEntitySet.List(const AQuery: String; out NextLink: String) : TSP_WorkManagement_OMExchangeUserSyncStateArray;
  79858. begin
  79859. Result:=TSP_WorkManagement_OMExchangeUserSyncStateArray(GetMulti(AQuery,False,NextLink));
  79860. end;
  79861. Function TSPExchangeUserSyncStatesEntitySet.List(const AQuery: TQueryParams; out NextLink: String) : TSP_WorkManagement_OMExchangeUserSyncStateArray;
  79862. begin
  79863. Result:=TSP_WorkManagement_OMExchangeUserSyncStateArray(GetMulti(AQuery,False,NextLink));
  79864. end;
  79865. Function TSPExchangeUserSyncStatesEntitySet.ListAll(const AQuery: String) : TSP_WorkManagement_OMExchangeUserSyncStateArray;
  79866. var N : String;
  79867. begin
  79868. Result:=TSP_WorkManagement_OMExchangeUserSyncStateArray(GetMulti(AQuery,True,N));
  79869. end;
  79870. Function TSPExchangeUserSyncStatesEntitySet.ListAll(const AQuery: TQueryParams) : TSP_WorkManagement_OMExchangeUserSyncStateArray;
  79871. var N : String;
  79872. begin
  79873. Result:=TSP_WorkManagement_OMExchangeUserSyncStateArray(GetMulti(AQuery,True,N));
  79874. end;
  79875. { --------------------------------------------------------------------
  79876. TSPLocationsEntitySet
  79877. --------------------------------------------------------------------}
  79878. Class Function TSPLocationsEntitySet.ObjectRestKind : String;
  79879. begin
  79880. Result:='Locations';
  79881. end;
  79882. Class Function TSPLocationsEntitySet.EntityClass : TODataEntityClass;
  79883. begin
  79884. Result:=TSP_WorkManagement_OMLocation;
  79885. end;
  79886. Function TSPLocationsEntitySet.Get(const Id: TInt32) : TSP_WorkManagement_OMLocation;
  79887. begin
  79888. Result:=TSP_WorkManagement_OMLocation(GetSingle(IntToStr(Id)));
  79889. end;
  79890. Function TSPLocationsEntitySet.List(const AQuery: String; out NextLink: String) : TSP_WorkManagement_OMLocationArray;
  79891. begin
  79892. Result:=TSP_WorkManagement_OMLocationArray(GetMulti(AQuery,False,NextLink));
  79893. end;
  79894. Function TSPLocationsEntitySet.List(const AQuery: TQueryParams; out NextLink: String) : TSP_WorkManagement_OMLocationArray;
  79895. begin
  79896. Result:=TSP_WorkManagement_OMLocationArray(GetMulti(AQuery,False,NextLink));
  79897. end;
  79898. Function TSPLocationsEntitySet.ListAll(const AQuery: String) : TSP_WorkManagement_OMLocationArray;
  79899. var N : String;
  79900. begin
  79901. Result:=TSP_WorkManagement_OMLocationArray(GetMulti(AQuery,True,N));
  79902. end;
  79903. Function TSPLocationsEntitySet.ListAll(const AQuery: TQueryParams) : TSP_WorkManagement_OMLocationArray;
  79904. var N : String;
  79905. begin
  79906. Result:=TSP_WorkManagement_OMLocationArray(GetMulti(AQuery,True,N));
  79907. end;
  79908. { --------------------------------------------------------------------
  79909. TSPLocationDisplaySettingsEntitySet
  79910. --------------------------------------------------------------------}
  79911. Class Function TSPLocationDisplaySettingsEntitySet.ObjectRestKind : String;
  79912. begin
  79913. Result:='LocationDisplaySettings';
  79914. end;
  79915. Class Function TSPLocationDisplaySettingsEntitySet.EntityClass : TODataEntityClass;
  79916. begin
  79917. Result:=TSP_WorkManagement_OMLocationDisplaySetting;
  79918. end;
  79919. Function TSPLocationDisplaySettingsEntitySet.Get(const Id: TInt32) : TSP_WorkManagement_OMLocationDisplaySetting;
  79920. begin
  79921. Result:=TSP_WorkManagement_OMLocationDisplaySetting(GetSingle(IntToStr(Id)));
  79922. end;
  79923. Function TSPLocationDisplaySettingsEntitySet.List(const AQuery: String; out NextLink: String) : TSP_WorkManagement_OMLocationDisplaySettingArray;
  79924. begin
  79925. Result:=TSP_WorkManagement_OMLocationDisplaySettingArray(GetMulti(AQuery,False,NextLink));
  79926. end;
  79927. Function TSPLocationDisplaySettingsEntitySet.List(const AQuery: TQueryParams; out NextLink: String) : TSP_WorkManagement_OMLocationDisplaySettingArray;
  79928. begin
  79929. Result:=TSP_WorkManagement_OMLocationDisplaySettingArray(GetMulti(AQuery,False,NextLink));
  79930. end;
  79931. Function TSPLocationDisplaySettingsEntitySet.ListAll(const AQuery: String) : TSP_WorkManagement_OMLocationDisplaySettingArray;
  79932. var N : String;
  79933. begin
  79934. Result:=TSP_WorkManagement_OMLocationDisplaySettingArray(GetMulti(AQuery,True,N));
  79935. end;
  79936. Function TSPLocationDisplaySettingsEntitySet.ListAll(const AQuery: TQueryParams) : TSP_WorkManagement_OMLocationDisplaySettingArray;
  79937. var N : String;
  79938. begin
  79939. Result:=TSP_WorkManagement_OMLocationDisplaySettingArray(GetMulti(AQuery,True,N));
  79940. end;
  79941. { --------------------------------------------------------------------
  79942. TSPLocationFiltersEntitySet
  79943. --------------------------------------------------------------------}
  79944. Class Function TSPLocationFiltersEntitySet.ObjectRestKind : String;
  79945. begin
  79946. Result:='LocationFilters';
  79947. end;
  79948. Class Function TSPLocationFiltersEntitySet.EntityClass : TODataEntityClass;
  79949. begin
  79950. Result:=TSP_WorkManagement_OMLocationFilter;
  79951. end;
  79952. Function TSPLocationFiltersEntitySet.Get(const IncludeUncategorizedTasks: boolean) : TSP_WorkManagement_OMLocationFilter;
  79953. begin
  79954. Result:=TSP_WorkManagement_OMLocationFilter(GetSingle(BoolToStr(IncludeUncategorizedTasks,'true','false')));
  79955. end;
  79956. Function TSPLocationFiltersEntitySet.List(const AQuery: String; out NextLink: String) : TSP_WorkManagement_OMLocationFilterArray;
  79957. begin
  79958. Result:=TSP_WorkManagement_OMLocationFilterArray(GetMulti(AQuery,False,NextLink));
  79959. end;
  79960. Function TSPLocationFiltersEntitySet.List(const AQuery: TQueryParams; out NextLink: String) : TSP_WorkManagement_OMLocationFilterArray;
  79961. begin
  79962. Result:=TSP_WorkManagement_OMLocationFilterArray(GetMulti(AQuery,False,NextLink));
  79963. end;
  79964. Function TSPLocationFiltersEntitySet.ListAll(const AQuery: String) : TSP_WorkManagement_OMLocationFilterArray;
  79965. var N : String;
  79966. begin
  79967. Result:=TSP_WorkManagement_OMLocationFilterArray(GetMulti(AQuery,True,N));
  79968. end;
  79969. Function TSPLocationFiltersEntitySet.ListAll(const AQuery: TQueryParams) : TSP_WorkManagement_OMLocationFilterArray;
  79970. var N : String;
  79971. begin
  79972. Result:=TSP_WorkManagement_OMLocationFilterArray(GetMulti(AQuery,True,N));
  79973. end;
  79974. { --------------------------------------------------------------------
  79975. TSPLocationUpdateResultsEntitySet
  79976. --------------------------------------------------------------------}
  79977. Class Function TSPLocationUpdateResultsEntitySet.ObjectRestKind : String;
  79978. begin
  79979. Result:='LocationUpdateResults';
  79980. end;
  79981. Class Function TSPLocationUpdateResultsEntitySet.EntityClass : TODataEntityClass;
  79982. begin
  79983. Result:=TSP_WorkManagement_OMLocationUpdateResult;
  79984. end;
  79985. Function TSPLocationUpdateResultsEntitySet.Get(const ActiveAddedCount: int64) : TSP_WorkManagement_OMLocationUpdateResult;
  79986. begin
  79987. Result:=TSP_WorkManagement_OMLocationUpdateResult(GetSingle(IntToStr(ActiveAddedCount)));
  79988. end;
  79989. Function TSPLocationUpdateResultsEntitySet.List(const AQuery: String; out NextLink: String) : TSP_WorkManagement_OMLocationUpdateResultArray;
  79990. begin
  79991. Result:=TSP_WorkManagement_OMLocationUpdateResultArray(GetMulti(AQuery,False,NextLink));
  79992. end;
  79993. Function TSPLocationUpdateResultsEntitySet.List(const AQuery: TQueryParams; out NextLink: String) : TSP_WorkManagement_OMLocationUpdateResultArray;
  79994. begin
  79995. Result:=TSP_WorkManagement_OMLocationUpdateResultArray(GetMulti(AQuery,False,NextLink));
  79996. end;
  79997. Function TSPLocationUpdateResultsEntitySet.ListAll(const AQuery: String) : TSP_WorkManagement_OMLocationUpdateResultArray;
  79998. var N : String;
  79999. begin
  80000. Result:=TSP_WorkManagement_OMLocationUpdateResultArray(GetMulti(AQuery,True,N));
  80001. end;
  80002. Function TSPLocationUpdateResultsEntitySet.ListAll(const AQuery: TQueryParams) : TSP_WorkManagement_OMLocationUpdateResultArray;
  80003. var N : String;
  80004. begin
  80005. Result:=TSP_WorkManagement_OMLocationUpdateResultArray(GetMulti(AQuery,True,N));
  80006. end;
  80007. { --------------------------------------------------------------------
  80008. TSPNameCriterionsEntitySet
  80009. --------------------------------------------------------------------}
  80010. Class Function TSPNameCriterionsEntitySet.ObjectRestKind : String;
  80011. begin
  80012. Result:='NameCriterions';
  80013. end;
  80014. Class Function TSPNameCriterionsEntitySet.EntityClass : TODataEntityClass;
  80015. begin
  80016. Result:=TSP_WorkManagement_OMNameCriterion;
  80017. end;
  80018. Function TSPNameCriterionsEntitySet.Get(const CompareType: TInt32) : TSP_WorkManagement_OMNameCriterion;
  80019. begin
  80020. Result:=TSP_WorkManagement_OMNameCriterion(GetSingle(IntToStr(CompareType)));
  80021. end;
  80022. Function TSPNameCriterionsEntitySet.List(const AQuery: String; out NextLink: String) : TSP_WorkManagement_OMNameCriterionArray;
  80023. begin
  80024. Result:=TSP_WorkManagement_OMNameCriterionArray(GetMulti(AQuery,False,NextLink));
  80025. end;
  80026. Function TSPNameCriterionsEntitySet.List(const AQuery: TQueryParams; out NextLink: String) : TSP_WorkManagement_OMNameCriterionArray;
  80027. begin
  80028. Result:=TSP_WorkManagement_OMNameCriterionArray(GetMulti(AQuery,False,NextLink));
  80029. end;
  80030. Function TSPNameCriterionsEntitySet.ListAll(const AQuery: String) : TSP_WorkManagement_OMNameCriterionArray;
  80031. var N : String;
  80032. begin
  80033. Result:=TSP_WorkManagement_OMNameCriterionArray(GetMulti(AQuery,True,N));
  80034. end;
  80035. Function TSPNameCriterionsEntitySet.ListAll(const AQuery: TQueryParams) : TSP_WorkManagement_OMNameCriterionArray;
  80036. var N : String;
  80037. begin
  80038. Result:=TSP_WorkManagement_OMNameCriterionArray(GetMulti(AQuery,True,N));
  80039. end;
  80040. { --------------------------------------------------------------------
  80041. TSPNonTaskDataReadResultsEntitySet
  80042. --------------------------------------------------------------------}
  80043. Class Function TSPNonTaskDataReadResultsEntitySet.ObjectRestKind : String;
  80044. begin
  80045. Result:='NonTaskDataReadResults';
  80046. end;
  80047. Class Function TSPNonTaskDataReadResultsEntitySet.EntityClass : TODataEntityClass;
  80048. begin
  80049. Result:=TSP_WorkManagement_OMNonTaskDataReadResult;
  80050. end;
  80051. Function TSPNonTaskDataReadResultsEntitySet.Get(const Id4a81de82eeb94d6080ea5bf63e27023a: string) : TSP_WorkManagement_OMNonTaskDataReadResult;
  80052. begin
  80053. Result:=TSP_WorkManagement_OMNonTaskDataReadResult(GetSingle(TODataObject.MakeKeyString(Id4a81de82eeb94d6080ea5bf63e27023a)));
  80054. end;
  80055. Function TSPNonTaskDataReadResultsEntitySet.List(const AQuery: String; out NextLink: String) : TSP_WorkManagement_OMNonTaskDataReadResultArray;
  80056. begin
  80057. Result:=TSP_WorkManagement_OMNonTaskDataReadResultArray(GetMulti(AQuery,False,NextLink));
  80058. end;
  80059. Function TSPNonTaskDataReadResultsEntitySet.List(const AQuery: TQueryParams; out NextLink: String) : TSP_WorkManagement_OMNonTaskDataReadResultArray;
  80060. begin
  80061. Result:=TSP_WorkManagement_OMNonTaskDataReadResultArray(GetMulti(AQuery,False,NextLink));
  80062. end;
  80063. Function TSPNonTaskDataReadResultsEntitySet.ListAll(const AQuery: String) : TSP_WorkManagement_OMNonTaskDataReadResultArray;
  80064. var N : String;
  80065. begin
  80066. Result:=TSP_WorkManagement_OMNonTaskDataReadResultArray(GetMulti(AQuery,True,N));
  80067. end;
  80068. Function TSPNonTaskDataReadResultsEntitySet.ListAll(const AQuery: TQueryParams) : TSP_WorkManagement_OMNonTaskDataReadResultArray;
  80069. var N : String;
  80070. begin
  80071. Result:=TSP_WorkManagement_OMNonTaskDataReadResultArray(GetMulti(AQuery,True,N));
  80072. end;
  80073. { --------------------------------------------------------------------
  80074. TSPOrderInfosEntitySet
  80075. --------------------------------------------------------------------}
  80076. Class Function TSPOrderInfosEntitySet.ObjectRestKind : String;
  80077. begin
  80078. Result:='OrderInfos';
  80079. end;
  80080. Class Function TSPOrderInfosEntitySet.EntityClass : TODataEntityClass;
  80081. begin
  80082. Result:=TSP_WorkManagement_OMOrderInfo;
  80083. end;
  80084. Function TSPOrderInfosEntitySet.Get(const Field: TInt32) : TSP_WorkManagement_OMOrderInfo;
  80085. begin
  80086. Result:=TSP_WorkManagement_OMOrderInfo(GetSingle(IntToStr(Field)));
  80087. end;
  80088. Function TSPOrderInfosEntitySet.List(const AQuery: String; out NextLink: String) : TSP_WorkManagement_OMOrderInfoArray;
  80089. begin
  80090. Result:=TSP_WorkManagement_OMOrderInfoArray(GetMulti(AQuery,False,NextLink));
  80091. end;
  80092. Function TSPOrderInfosEntitySet.List(const AQuery: TQueryParams; out NextLink: String) : TSP_WorkManagement_OMOrderInfoArray;
  80093. begin
  80094. Result:=TSP_WorkManagement_OMOrderInfoArray(GetMulti(AQuery,False,NextLink));
  80095. end;
  80096. Function TSPOrderInfosEntitySet.ListAll(const AQuery: String) : TSP_WorkManagement_OMOrderInfoArray;
  80097. var N : String;
  80098. begin
  80099. Result:=TSP_WorkManagement_OMOrderInfoArray(GetMulti(AQuery,True,N));
  80100. end;
  80101. Function TSPOrderInfosEntitySet.ListAll(const AQuery: TQueryParams) : TSP_WorkManagement_OMOrderInfoArray;
  80102. var N : String;
  80103. begin
  80104. Result:=TSP_WorkManagement_OMOrderInfoArray(GetMulti(AQuery,True,N));
  80105. end;
  80106. { --------------------------------------------------------------------
  80107. TSPPersistedPropertiessEntitySet
  80108. --------------------------------------------------------------------}
  80109. Class Function TSPPersistedPropertiessEntitySet.ObjectRestKind : String;
  80110. begin
  80111. Result:='PersistedPropertiess';
  80112. end;
  80113. Class Function TSPPersistedPropertiessEntitySet.EntityClass : TODataEntityClass;
  80114. begin
  80115. Result:=TSP_WorkManagement_OMPersistedProperties;
  80116. end;
  80117. Function TSPPersistedPropertiessEntitySet.Get(const GroupByProjects: boolean) : TSP_WorkManagement_OMPersistedProperties;
  80118. begin
  80119. Result:=TSP_WorkManagement_OMPersistedProperties(GetSingle(BoolToStr(GroupByProjects,'true','false')));
  80120. end;
  80121. Function TSPPersistedPropertiessEntitySet.List(const AQuery: String; out NextLink: String) : TSP_WorkManagement_OMPersistedPropertiesArray;
  80122. begin
  80123. Result:=TSP_WorkManagement_OMPersistedPropertiesArray(GetMulti(AQuery,False,NextLink));
  80124. end;
  80125. Function TSPPersistedPropertiessEntitySet.List(const AQuery: TQueryParams; out NextLink: String) : TSP_WorkManagement_OMPersistedPropertiesArray;
  80126. begin
  80127. Result:=TSP_WorkManagement_OMPersistedPropertiesArray(GetMulti(AQuery,False,NextLink));
  80128. end;
  80129. Function TSPPersistedPropertiessEntitySet.ListAll(const AQuery: String) : TSP_WorkManagement_OMPersistedPropertiesArray;
  80130. var N : String;
  80131. begin
  80132. Result:=TSP_WorkManagement_OMPersistedPropertiesArray(GetMulti(AQuery,True,N));
  80133. end;
  80134. Function TSPPersistedPropertiessEntitySet.ListAll(const AQuery: TQueryParams) : TSP_WorkManagement_OMPersistedPropertiesArray;
  80135. var N : String;
  80136. begin
  80137. Result:=TSP_WorkManagement_OMPersistedPropertiesArray(GetMulti(AQuery,True,N));
  80138. end;
  80139. { --------------------------------------------------------------------
  80140. TSPProviderErrorInfosEntitySet
  80141. --------------------------------------------------------------------}
  80142. Class Function TSPProviderErrorInfosEntitySet.ObjectRestKind : String;
  80143. begin
  80144. Result:='ProviderErrorInfos';
  80145. end;
  80146. Class Function TSPProviderErrorInfosEntitySet.EntityClass : TODataEntityClass;
  80147. begin
  80148. Result:=TSP_WorkManagement_OMProviderErrorInfo;
  80149. end;
  80150. Function TSPProviderErrorInfosEntitySet.Get(const CorrelationId: string) : TSP_WorkManagement_OMProviderErrorInfo;
  80151. begin
  80152. Result:=TSP_WorkManagement_OMProviderErrorInfo(GetSingle(TODataObject.MakeKeyString(CorrelationId)));
  80153. end;
  80154. Function TSPProviderErrorInfosEntitySet.List(const AQuery: String; out NextLink: String) : TSP_WorkManagement_OMProviderErrorInfoArray;
  80155. begin
  80156. Result:=TSP_WorkManagement_OMProviderErrorInfoArray(GetMulti(AQuery,False,NextLink));
  80157. end;
  80158. Function TSPProviderErrorInfosEntitySet.List(const AQuery: TQueryParams; out NextLink: String) : TSP_WorkManagement_OMProviderErrorInfoArray;
  80159. begin
  80160. Result:=TSP_WorkManagement_OMProviderErrorInfoArray(GetMulti(AQuery,False,NextLink));
  80161. end;
  80162. Function TSPProviderErrorInfosEntitySet.ListAll(const AQuery: String) : TSP_WorkManagement_OMProviderErrorInfoArray;
  80163. var N : String;
  80164. begin
  80165. Result:=TSP_WorkManagement_OMProviderErrorInfoArray(GetMulti(AQuery,True,N));
  80166. end;
  80167. Function TSPProviderErrorInfosEntitySet.ListAll(const AQuery: TQueryParams) : TSP_WorkManagement_OMProviderErrorInfoArray;
  80168. var N : String;
  80169. begin
  80170. Result:=TSP_WorkManagement_OMProviderErrorInfoArray(GetMulti(AQuery,True,N));
  80171. end;
  80172. { --------------------------------------------------------------------
  80173. TSPProviderRefreshStatussEntitySet
  80174. --------------------------------------------------------------------}
  80175. Class Function TSPProviderRefreshStatussEntitySet.ObjectRestKind : String;
  80176. begin
  80177. Result:='ProviderRefreshStatuss';
  80178. end;
  80179. Class Function TSPProviderRefreshStatussEntitySet.EntityClass : TODataEntityClass;
  80180. begin
  80181. Result:=TSP_WorkManagement_OMProviderRefreshStatus;
  80182. end;
  80183. Function TSPProviderRefreshStatussEntitySet.Get(const ProviderKey: string) : TSP_WorkManagement_OMProviderRefreshStatus;
  80184. begin
  80185. Result:=TSP_WorkManagement_OMProviderRefreshStatus(GetSingle(TODataObject.MakeKeyString(ProviderKey)));
  80186. end;
  80187. Function TSPProviderRefreshStatussEntitySet.List(const AQuery: String; out NextLink: String) : TSP_WorkManagement_OMProviderRefreshStatusArray;
  80188. begin
  80189. Result:=TSP_WorkManagement_OMProviderRefreshStatusArray(GetMulti(AQuery,False,NextLink));
  80190. end;
  80191. Function TSPProviderRefreshStatussEntitySet.List(const AQuery: TQueryParams; out NextLink: String) : TSP_WorkManagement_OMProviderRefreshStatusArray;
  80192. begin
  80193. Result:=TSP_WorkManagement_OMProviderRefreshStatusArray(GetMulti(AQuery,False,NextLink));
  80194. end;
  80195. Function TSPProviderRefreshStatussEntitySet.ListAll(const AQuery: String) : TSP_WorkManagement_OMProviderRefreshStatusArray;
  80196. var N : String;
  80197. begin
  80198. Result:=TSP_WorkManagement_OMProviderRefreshStatusArray(GetMulti(AQuery,True,N));
  80199. end;
  80200. Function TSPProviderRefreshStatussEntitySet.ListAll(const AQuery: TQueryParams) : TSP_WorkManagement_OMProviderRefreshStatusArray;
  80201. var N : String;
  80202. begin
  80203. Result:=TSP_WorkManagement_OMProviderRefreshStatusArray(GetMulti(AQuery,True,N));
  80204. end;
  80205. { --------------------------------------------------------------------
  80206. TSPRefreshHealthInfosEntitySet
  80207. --------------------------------------------------------------------}
  80208. Class Function TSPRefreshHealthInfosEntitySet.ObjectRestKind : String;
  80209. begin
  80210. Result:='RefreshHealthInfos';
  80211. end;
  80212. Class Function TSPRefreshHealthInfosEntitySet.EntityClass : TODataEntityClass;
  80213. begin
  80214. Result:=TSP_WorkManagement_OMRefreshHealthInfo;
  80215. end;
  80216. Function TSPRefreshHealthInfosEntitySet.Get(const LatestRefreshTime: TDateTime) : TSP_WorkManagement_OMRefreshHealthInfo;
  80217. begin
  80218. Result:=TSP_WorkManagement_OMRefreshHealthInfo(GetSingle(FormatDateTime('yyyy-mm-dd"T"hhmmss',LatestRefreshTime)));
  80219. end;
  80220. Function TSPRefreshHealthInfosEntitySet.List(const AQuery: String; out NextLink: String) : TSP_WorkManagement_OMRefreshHealthInfoArray;
  80221. begin
  80222. Result:=TSP_WorkManagement_OMRefreshHealthInfoArray(GetMulti(AQuery,False,NextLink));
  80223. end;
  80224. Function TSPRefreshHealthInfosEntitySet.List(const AQuery: TQueryParams; out NextLink: String) : TSP_WorkManagement_OMRefreshHealthInfoArray;
  80225. begin
  80226. Result:=TSP_WorkManagement_OMRefreshHealthInfoArray(GetMulti(AQuery,False,NextLink));
  80227. end;
  80228. Function TSPRefreshHealthInfosEntitySet.ListAll(const AQuery: String) : TSP_WorkManagement_OMRefreshHealthInfoArray;
  80229. var N : String;
  80230. begin
  80231. Result:=TSP_WorkManagement_OMRefreshHealthInfoArray(GetMulti(AQuery,True,N));
  80232. end;
  80233. Function TSPRefreshHealthInfosEntitySet.ListAll(const AQuery: TQueryParams) : TSP_WorkManagement_OMRefreshHealthInfoArray;
  80234. var N : String;
  80235. begin
  80236. Result:=TSP_WorkManagement_OMRefreshHealthInfoArray(GetMulti(AQuery,True,N));
  80237. end;
  80238. { --------------------------------------------------------------------
  80239. TSPRefreshHistorysEntitySet
  80240. --------------------------------------------------------------------}
  80241. Class Function TSPRefreshHistorysEntitySet.ObjectRestKind : String;
  80242. begin
  80243. Result:='RefreshHistorys';
  80244. end;
  80245. Class Function TSPRefreshHistorysEntitySet.EntityClass : TODataEntityClass;
  80246. begin
  80247. Result:=TSP_WorkManagement_OMRefreshHistory;
  80248. end;
  80249. Function TSPRefreshHistorysEntitySet.Get(const Id4a81de82eeb94d6080ea5bf63e27023a: string) : TSP_WorkManagement_OMRefreshHistory;
  80250. begin
  80251. Result:=TSP_WorkManagement_OMRefreshHistory(GetSingle(TODataObject.MakeKeyString(Id4a81de82eeb94d6080ea5bf63e27023a)));
  80252. end;
  80253. Function TSPRefreshHistorysEntitySet.List(const AQuery: String; out NextLink: String) : TSP_WorkManagement_OMRefreshHistoryArray;
  80254. begin
  80255. Result:=TSP_WorkManagement_OMRefreshHistoryArray(GetMulti(AQuery,False,NextLink));
  80256. end;
  80257. Function TSPRefreshHistorysEntitySet.List(const AQuery: TQueryParams; out NextLink: String) : TSP_WorkManagement_OMRefreshHistoryArray;
  80258. begin
  80259. Result:=TSP_WorkManagement_OMRefreshHistoryArray(GetMulti(AQuery,False,NextLink));
  80260. end;
  80261. Function TSPRefreshHistorysEntitySet.ListAll(const AQuery: String) : TSP_WorkManagement_OMRefreshHistoryArray;
  80262. var N : String;
  80263. begin
  80264. Result:=TSP_WorkManagement_OMRefreshHistoryArray(GetMulti(AQuery,True,N));
  80265. end;
  80266. Function TSPRefreshHistorysEntitySet.ListAll(const AQuery: TQueryParams) : TSP_WorkManagement_OMRefreshHistoryArray;
  80267. var N : String;
  80268. begin
  80269. Result:=TSP_WorkManagement_OMRefreshHistoryArray(GetMulti(AQuery,True,N));
  80270. end;
  80271. { --------------------------------------------------------------------
  80272. TSPRefreshResultsEntitySet
  80273. --------------------------------------------------------------------}
  80274. Class Function TSPRefreshResultsEntitySet.ObjectRestKind : String;
  80275. begin
  80276. Result:='RefreshResults';
  80277. end;
  80278. Class Function TSPRefreshResultsEntitySet.EntityClass : TODataEntityClass;
  80279. begin
  80280. Result:=TSP_WorkManagement_OMRefreshResult;
  80281. end;
  80282. Function TSPRefreshResultsEntitySet.Get(const AggregatorRefreshState: TInt32) : TSP_WorkManagement_OMRefreshResult;
  80283. begin
  80284. Result:=TSP_WorkManagement_OMRefreshResult(GetSingle(IntToStr(AggregatorRefreshState)));
  80285. end;
  80286. Function TSPRefreshResultsEntitySet.List(const AQuery: String; out NextLink: String) : TSP_WorkManagement_OMRefreshResultArray;
  80287. begin
  80288. Result:=TSP_WorkManagement_OMRefreshResultArray(GetMulti(AQuery,False,NextLink));
  80289. end;
  80290. Function TSPRefreshResultsEntitySet.List(const AQuery: TQueryParams; out NextLink: String) : TSP_WorkManagement_OMRefreshResultArray;
  80291. begin
  80292. Result:=TSP_WorkManagement_OMRefreshResultArray(GetMulti(AQuery,False,NextLink));
  80293. end;
  80294. Function TSPRefreshResultsEntitySet.ListAll(const AQuery: String) : TSP_WorkManagement_OMRefreshResultArray;
  80295. var N : String;
  80296. begin
  80297. Result:=TSP_WorkManagement_OMRefreshResultArray(GetMulti(AQuery,True,N));
  80298. end;
  80299. Function TSPRefreshResultsEntitySet.ListAll(const AQuery: TQueryParams) : TSP_WorkManagement_OMRefreshResultArray;
  80300. var N : String;
  80301. begin
  80302. Result:=TSP_WorkManagement_OMRefreshResultArray(GetMulti(AQuery,True,N));
  80303. end;
  80304. { --------------------------------------------------------------------
  80305. TSPSortableSessionManagersEntitySet
  80306. --------------------------------------------------------------------}
  80307. Class Function TSPSortableSessionManagersEntitySet.ObjectRestKind : String;
  80308. begin
  80309. Result:='SortableSessionManagers';
  80310. end;
  80311. Class Function TSPSortableSessionManagersEntitySet.EntityClass : TODataEntityClass;
  80312. begin
  80313. Result:=TSP_WorkManagement_OMSortableSessionManager;
  80314. end;
  80315. Function TSPSortableSessionManagersEntitySet.Get(const Id4a81de82eeb94d6080ea5bf63e27023a: string) : TSP_WorkManagement_OMSortableSessionManager;
  80316. begin
  80317. Result:=TSP_WorkManagement_OMSortableSessionManager(GetSingle(TODataObject.MakeKeyString(Id4a81de82eeb94d6080ea5bf63e27023a)));
  80318. end;
  80319. Function TSPSortableSessionManagersEntitySet.List(const AQuery: String; out NextLink: String) : TSP_WorkManagement_OMSortableSessionManagerArray;
  80320. begin
  80321. Result:=TSP_WorkManagement_OMSortableSessionManagerArray(GetMulti(AQuery,False,NextLink));
  80322. end;
  80323. Function TSPSortableSessionManagersEntitySet.List(const AQuery: TQueryParams; out NextLink: String) : TSP_WorkManagement_OMSortableSessionManagerArray;
  80324. begin
  80325. Result:=TSP_WorkManagement_OMSortableSessionManagerArray(GetMulti(AQuery,False,NextLink));
  80326. end;
  80327. Function TSPSortableSessionManagersEntitySet.ListAll(const AQuery: String) : TSP_WorkManagement_OMSortableSessionManagerArray;
  80328. var N : String;
  80329. begin
  80330. Result:=TSP_WorkManagement_OMSortableSessionManagerArray(GetMulti(AQuery,True,N));
  80331. end;
  80332. Function TSPSortableSessionManagersEntitySet.ListAll(const AQuery: TQueryParams) : TSP_WorkManagement_OMSortableSessionManagerArray;
  80333. var N : String;
  80334. begin
  80335. Result:=TSP_WorkManagement_OMSortableSessionManagerArray(GetMulti(AQuery,True,N));
  80336. end;
  80337. { --------------------------------------------------------------------
  80338. TSPSortableTaskQuerysEntitySet
  80339. --------------------------------------------------------------------}
  80340. Class Function TSPSortableTaskQuerysEntitySet.ObjectRestKind : String;
  80341. begin
  80342. Result:='SortableTaskQuerys';
  80343. end;
  80344. Class Function TSPSortableTaskQuerysEntitySet.EntityClass : TODataEntityClass;
  80345. begin
  80346. Result:=TSP_WorkManagement_OMSortableTaskQuery;
  80347. end;
  80348. Function TSPSortableTaskQuerysEntitySet.Get(const Id4a81de82eeb94d6080ea5bf63e27023a: string) : TSP_WorkManagement_OMSortableTaskQuery;
  80349. begin
  80350. Result:=TSP_WorkManagement_OMSortableTaskQuery(GetSingle(TODataObject.MakeKeyString(Id4a81de82eeb94d6080ea5bf63e27023a)));
  80351. end;
  80352. Function TSPSortableTaskQuerysEntitySet.List(const AQuery: String; out NextLink: String) : TSP_WorkManagement_OMSortableTaskQueryArray;
  80353. begin
  80354. Result:=TSP_WorkManagement_OMSortableTaskQueryArray(GetMulti(AQuery,False,NextLink));
  80355. end;
  80356. Function TSPSortableTaskQuerysEntitySet.List(const AQuery: TQueryParams; out NextLink: String) : TSP_WorkManagement_OMSortableTaskQueryArray;
  80357. begin
  80358. Result:=TSP_WorkManagement_OMSortableTaskQueryArray(GetMulti(AQuery,False,NextLink));
  80359. end;
  80360. Function TSPSortableTaskQuerysEntitySet.ListAll(const AQuery: String) : TSP_WorkManagement_OMSortableTaskQueryArray;
  80361. var N : String;
  80362. begin
  80363. Result:=TSP_WorkManagement_OMSortableTaskQueryArray(GetMulti(AQuery,True,N));
  80364. end;
  80365. Function TSPSortableTaskQuerysEntitySet.ListAll(const AQuery: TQueryParams) : TSP_WorkManagement_OMSortableTaskQueryArray;
  80366. var N : String;
  80367. begin
  80368. Result:=TSP_WorkManagement_OMSortableTaskQueryArray(GetMulti(AQuery,True,N));
  80369. end;
  80370. { --------------------------------------------------------------------
  80371. TSPTasks1EntitySet
  80372. --------------------------------------------------------------------}
  80373. Class Function TSPTasks1EntitySet.ObjectRestKind : String;
  80374. begin
  80375. Result:='Tasks1';
  80376. end;
  80377. Class Function TSPTasks1EntitySet.EntityClass : TODataEntityClass;
  80378. begin
  80379. Result:=TSP_WorkManagement_OMTask;
  80380. end;
  80381. Function TSPTasks1EntitySet.Get(const Id: TInt32) : TSP_WorkManagement_OMTask;
  80382. begin
  80383. Result:=TSP_WorkManagement_OMTask(GetSingle(IntToStr(Id)));
  80384. end;
  80385. Function TSPTasks1EntitySet.List(const AQuery: String; out NextLink: String) : TSP_WorkManagement_OMTaskArray;
  80386. begin
  80387. Result:=TSP_WorkManagement_OMTaskArray(GetMulti(AQuery,False,NextLink));
  80388. end;
  80389. Function TSPTasks1EntitySet.List(const AQuery: TQueryParams; out NextLink: String) : TSP_WorkManagement_OMTaskArray;
  80390. begin
  80391. Result:=TSP_WorkManagement_OMTaskArray(GetMulti(AQuery,False,NextLink));
  80392. end;
  80393. Function TSPTasks1EntitySet.ListAll(const AQuery: String) : TSP_WorkManagement_OMTaskArray;
  80394. var N : String;
  80395. begin
  80396. Result:=TSP_WorkManagement_OMTaskArray(GetMulti(AQuery,True,N));
  80397. end;
  80398. Function TSPTasks1EntitySet.ListAll(const AQuery: TQueryParams) : TSP_WorkManagement_OMTaskArray;
  80399. var N : String;
  80400. begin
  80401. Result:=TSP_WorkManagement_OMTaskArray(GetMulti(AQuery,True,N));
  80402. end;
  80403. { --------------------------------------------------------------------
  80404. TSPTaskFiltersEntitySet
  80405. --------------------------------------------------------------------}
  80406. Class Function TSPTaskFiltersEntitySet.ObjectRestKind : String;
  80407. begin
  80408. Result:='TaskFilters';
  80409. end;
  80410. Class Function TSPTaskFiltersEntitySet.EntityClass : TODataEntityClass;
  80411. begin
  80412. Result:=TSP_WorkManagement_OMTaskFilter;
  80413. end;
  80414. Function TSPTaskFiltersEntitySet.Get(const CriterionConcatType: TInt32) : TSP_WorkManagement_OMTaskFilter;
  80415. begin
  80416. Result:=TSP_WorkManagement_OMTaskFilter(GetSingle(IntToStr(CriterionConcatType)));
  80417. end;
  80418. Function TSPTaskFiltersEntitySet.List(const AQuery: String; out NextLink: String) : TSP_WorkManagement_OMTaskFilterArray;
  80419. begin
  80420. Result:=TSP_WorkManagement_OMTaskFilterArray(GetMulti(AQuery,False,NextLink));
  80421. end;
  80422. Function TSPTaskFiltersEntitySet.List(const AQuery: TQueryParams; out NextLink: String) : TSP_WorkManagement_OMTaskFilterArray;
  80423. begin
  80424. Result:=TSP_WorkManagement_OMTaskFilterArray(GetMulti(AQuery,False,NextLink));
  80425. end;
  80426. Function TSPTaskFiltersEntitySet.ListAll(const AQuery: String) : TSP_WorkManagement_OMTaskFilterArray;
  80427. var N : String;
  80428. begin
  80429. Result:=TSP_WorkManagement_OMTaskFilterArray(GetMulti(AQuery,True,N));
  80430. end;
  80431. Function TSPTaskFiltersEntitySet.ListAll(const AQuery: TQueryParams) : TSP_WorkManagement_OMTaskFilterArray;
  80432. var N : String;
  80433. begin
  80434. Result:=TSP_WorkManagement_OMTaskFilterArray(GetMulti(AQuery,True,N));
  80435. end;
  80436. { --------------------------------------------------------------------
  80437. TSPTaskQuerysEntitySet
  80438. --------------------------------------------------------------------}
  80439. Class Function TSPTaskQuerysEntitySet.ObjectRestKind : String;
  80440. begin
  80441. Result:='TaskQuerys';
  80442. end;
  80443. Class Function TSPTaskQuerysEntitySet.EntityClass : TODataEntityClass;
  80444. begin
  80445. Result:=TSP_WorkManagement_OMTaskQuery;
  80446. end;
  80447. Function TSPTaskQuerysEntitySet.Get(const KeywordFilter: string) : TSP_WorkManagement_OMTaskQuery;
  80448. begin
  80449. Result:=TSP_WorkManagement_OMTaskQuery(GetSingle(TODataObject.MakeKeyString(KeywordFilter)));
  80450. end;
  80451. Function TSPTaskQuerysEntitySet.List(const AQuery: String; out NextLink: String) : TSP_WorkManagement_OMTaskQueryArray;
  80452. begin
  80453. Result:=TSP_WorkManagement_OMTaskQueryArray(GetMulti(AQuery,False,NextLink));
  80454. end;
  80455. Function TSPTaskQuerysEntitySet.List(const AQuery: TQueryParams; out NextLink: String) : TSP_WorkManagement_OMTaskQueryArray;
  80456. begin
  80457. Result:=TSP_WorkManagement_OMTaskQueryArray(GetMulti(AQuery,False,NextLink));
  80458. end;
  80459. Function TSPTaskQuerysEntitySet.ListAll(const AQuery: String) : TSP_WorkManagement_OMTaskQueryArray;
  80460. var N : String;
  80461. begin
  80462. Result:=TSP_WorkManagement_OMTaskQueryArray(GetMulti(AQuery,True,N));
  80463. end;
  80464. Function TSPTaskQuerysEntitySet.ListAll(const AQuery: TQueryParams) : TSP_WorkManagement_OMTaskQueryArray;
  80465. var N : String;
  80466. begin
  80467. Result:=TSP_WorkManagement_OMTaskQueryArray(GetMulti(AQuery,True,N));
  80468. end;
  80469. { --------------------------------------------------------------------
  80470. TSPTaskQueryByLocationResultsEntitySet
  80471. --------------------------------------------------------------------}
  80472. Class Function TSPTaskQueryByLocationResultsEntitySet.ObjectRestKind : String;
  80473. begin
  80474. Result:='TaskQueryByLocationResults';
  80475. end;
  80476. Class Function TSPTaskQueryByLocationResultsEntitySet.EntityClass : TODataEntityClass;
  80477. begin
  80478. Result:=TSP_WorkManagement_OMTaskQueryByLocationResult;
  80479. end;
  80480. Function TSPTaskQueryByLocationResultsEntitySet.Get(const Error: TInt32) : TSP_WorkManagement_OMTaskQueryByLocationResult;
  80481. begin
  80482. Result:=TSP_WorkManagement_OMTaskQueryByLocationResult(GetSingle(IntToStr(Error)));
  80483. end;
  80484. Function TSPTaskQueryByLocationResultsEntitySet.List(const AQuery: String; out NextLink: String) : TSP_WorkManagement_OMTaskQueryByLocationResultArray;
  80485. begin
  80486. Result:=TSP_WorkManagement_OMTaskQueryByLocationResultArray(GetMulti(AQuery,False,NextLink));
  80487. end;
  80488. Function TSPTaskQueryByLocationResultsEntitySet.List(const AQuery: TQueryParams; out NextLink: String) : TSP_WorkManagement_OMTaskQueryByLocationResultArray;
  80489. begin
  80490. Result:=TSP_WorkManagement_OMTaskQueryByLocationResultArray(GetMulti(AQuery,False,NextLink));
  80491. end;
  80492. Function TSPTaskQueryByLocationResultsEntitySet.ListAll(const AQuery: String) : TSP_WorkManagement_OMTaskQueryByLocationResultArray;
  80493. var N : String;
  80494. begin
  80495. Result:=TSP_WorkManagement_OMTaskQueryByLocationResultArray(GetMulti(AQuery,True,N));
  80496. end;
  80497. Function TSPTaskQueryByLocationResultsEntitySet.ListAll(const AQuery: TQueryParams) : TSP_WorkManagement_OMTaskQueryByLocationResultArray;
  80498. var N : String;
  80499. begin
  80500. Result:=TSP_WorkManagement_OMTaskQueryByLocationResultArray(GetMulti(AQuery,True,N));
  80501. end;
  80502. { --------------------------------------------------------------------
  80503. TSPTaskQueryResultsEntitySet
  80504. --------------------------------------------------------------------}
  80505. Class Function TSPTaskQueryResultsEntitySet.ObjectRestKind : String;
  80506. begin
  80507. Result:='TaskQueryResults';
  80508. end;
  80509. Class Function TSPTaskQueryResultsEntitySet.EntityClass : TODataEntityClass;
  80510. begin
  80511. Result:=TSP_WorkManagement_OMTaskQueryResult;
  80512. end;
  80513. Function TSPTaskQueryResultsEntitySet.Get(const Error: TInt32) : TSP_WorkManagement_OMTaskQueryResult;
  80514. begin
  80515. Result:=TSP_WorkManagement_OMTaskQueryResult(GetSingle(IntToStr(Error)));
  80516. end;
  80517. Function TSPTaskQueryResultsEntitySet.List(const AQuery: String; out NextLink: String) : TSP_WorkManagement_OMTaskQueryResultArray;
  80518. begin
  80519. Result:=TSP_WorkManagement_OMTaskQueryResultArray(GetMulti(AQuery,False,NextLink));
  80520. end;
  80521. Function TSPTaskQueryResultsEntitySet.List(const AQuery: TQueryParams; out NextLink: String) : TSP_WorkManagement_OMTaskQueryResultArray;
  80522. begin
  80523. Result:=TSP_WorkManagement_OMTaskQueryResultArray(GetMulti(AQuery,False,NextLink));
  80524. end;
  80525. Function TSPTaskQueryResultsEntitySet.ListAll(const AQuery: String) : TSP_WorkManagement_OMTaskQueryResultArray;
  80526. var N : String;
  80527. begin
  80528. Result:=TSP_WorkManagement_OMTaskQueryResultArray(GetMulti(AQuery,True,N));
  80529. end;
  80530. Function TSPTaskQueryResultsEntitySet.ListAll(const AQuery: TQueryParams) : TSP_WorkManagement_OMTaskQueryResultArray;
  80531. var N : String;
  80532. begin
  80533. Result:=TSP_WorkManagement_OMTaskQueryResultArray(GetMulti(AQuery,True,N));
  80534. end;
  80535. { --------------------------------------------------------------------
  80536. TSPTaskRefreshResultsEntitySet
  80537. --------------------------------------------------------------------}
  80538. Class Function TSPTaskRefreshResultsEntitySet.ObjectRestKind : String;
  80539. begin
  80540. Result:='TaskRefreshResults';
  80541. end;
  80542. Class Function TSPTaskRefreshResultsEntitySet.EntityClass : TODataEntityClass;
  80543. begin
  80544. Result:=TSP_WorkManagement_OMTaskRefreshResult;
  80545. end;
  80546. Function TSPTaskRefreshResultsEntitySet.Get(const ErrorCorrelationId: string) : TSP_WorkManagement_OMTaskRefreshResult;
  80547. begin
  80548. Result:=TSP_WorkManagement_OMTaskRefreshResult(GetSingle(TODataObject.MakeKeyString(ErrorCorrelationId)));
  80549. end;
  80550. Function TSPTaskRefreshResultsEntitySet.List(const AQuery: String; out NextLink: String) : TSP_WorkManagement_OMTaskRefreshResultArray;
  80551. begin
  80552. Result:=TSP_WorkManagement_OMTaskRefreshResultArray(GetMulti(AQuery,False,NextLink));
  80553. end;
  80554. Function TSPTaskRefreshResultsEntitySet.List(const AQuery: TQueryParams; out NextLink: String) : TSP_WorkManagement_OMTaskRefreshResultArray;
  80555. begin
  80556. Result:=TSP_WorkManagement_OMTaskRefreshResultArray(GetMulti(AQuery,False,NextLink));
  80557. end;
  80558. Function TSPTaskRefreshResultsEntitySet.ListAll(const AQuery: String) : TSP_WorkManagement_OMTaskRefreshResultArray;
  80559. var N : String;
  80560. begin
  80561. Result:=TSP_WorkManagement_OMTaskRefreshResultArray(GetMulti(AQuery,True,N));
  80562. end;
  80563. Function TSPTaskRefreshResultsEntitySet.ListAll(const AQuery: TQueryParams) : TSP_WorkManagement_OMTaskRefreshResultArray;
  80564. var N : String;
  80565. begin
  80566. Result:=TSP_WorkManagement_OMTaskRefreshResultArray(GetMulti(AQuery,True,N));
  80567. end;
  80568. { --------------------------------------------------------------------
  80569. TSPTaskWriteResultsEntitySet
  80570. --------------------------------------------------------------------}
  80571. Class Function TSPTaskWriteResultsEntitySet.ObjectRestKind : String;
  80572. begin
  80573. Result:='TaskWriteResults';
  80574. end;
  80575. Class Function TSPTaskWriteResultsEntitySet.EntityClass : TODataEntityClass;
  80576. begin
  80577. Result:=TSP_WorkManagement_OMTaskWriteResult;
  80578. end;
  80579. Function TSPTaskWriteResultsEntitySet.Get(const Error: TInt32) : TSP_WorkManagement_OMTaskWriteResult;
  80580. begin
  80581. Result:=TSP_WorkManagement_OMTaskWriteResult(GetSingle(IntToStr(Error)));
  80582. end;
  80583. Function TSPTaskWriteResultsEntitySet.List(const AQuery: String; out NextLink: String) : TSP_WorkManagement_OMTaskWriteResultArray;
  80584. begin
  80585. Result:=TSP_WorkManagement_OMTaskWriteResultArray(GetMulti(AQuery,False,NextLink));
  80586. end;
  80587. Function TSPTaskWriteResultsEntitySet.List(const AQuery: TQueryParams; out NextLink: String) : TSP_WorkManagement_OMTaskWriteResultArray;
  80588. begin
  80589. Result:=TSP_WorkManagement_OMTaskWriteResultArray(GetMulti(AQuery,False,NextLink));
  80590. end;
  80591. Function TSPTaskWriteResultsEntitySet.ListAll(const AQuery: String) : TSP_WorkManagement_OMTaskWriteResultArray;
  80592. var N : String;
  80593. begin
  80594. Result:=TSP_WorkManagement_OMTaskWriteResultArray(GetMulti(AQuery,True,N));
  80595. end;
  80596. Function TSPTaskWriteResultsEntitySet.ListAll(const AQuery: TQueryParams) : TSP_WorkManagement_OMTaskWriteResultArray;
  80597. var N : String;
  80598. begin
  80599. Result:=TSP_WorkManagement_OMTaskWriteResultArray(GetMulti(AQuery,True,N));
  80600. end;
  80601. { --------------------------------------------------------------------
  80602. TSPUserOrderedSessionManagersEntitySet
  80603. --------------------------------------------------------------------}
  80604. Class Function TSPUserOrderedSessionManagersEntitySet.ObjectRestKind : String;
  80605. begin
  80606. Result:='UserOrderedSessionManagers';
  80607. end;
  80608. Class Function TSPUserOrderedSessionManagersEntitySet.EntityClass : TODataEntityClass;
  80609. begin
  80610. Result:=TSP_WorkManagement_OMUserOrderedSessionManager;
  80611. end;
  80612. Function TSPUserOrderedSessionManagersEntitySet.Get(const Id4a81de82eeb94d6080ea5bf63e27023a: string) : TSP_WorkManagement_OMUserOrderedSessionManager;
  80613. begin
  80614. Result:=TSP_WorkManagement_OMUserOrderedSessionManager(GetSingle(TODataObject.MakeKeyString(Id4a81de82eeb94d6080ea5bf63e27023a)));
  80615. end;
  80616. Function TSPUserOrderedSessionManagersEntitySet.List(const AQuery: String; out NextLink: String) : TSP_WorkManagement_OMUserOrderedSessionManagerArray;
  80617. begin
  80618. Result:=TSP_WorkManagement_OMUserOrderedSessionManagerArray(GetMulti(AQuery,False,NextLink));
  80619. end;
  80620. Function TSPUserOrderedSessionManagersEntitySet.List(const AQuery: TQueryParams; out NextLink: String) : TSP_WorkManagement_OMUserOrderedSessionManagerArray;
  80621. begin
  80622. Result:=TSP_WorkManagement_OMUserOrderedSessionManagerArray(GetMulti(AQuery,False,NextLink));
  80623. end;
  80624. Function TSPUserOrderedSessionManagersEntitySet.ListAll(const AQuery: String) : TSP_WorkManagement_OMUserOrderedSessionManagerArray;
  80625. var N : String;
  80626. begin
  80627. Result:=TSP_WorkManagement_OMUserOrderedSessionManagerArray(GetMulti(AQuery,True,N));
  80628. end;
  80629. Function TSPUserOrderedSessionManagersEntitySet.ListAll(const AQuery: TQueryParams) : TSP_WorkManagement_OMUserOrderedSessionManagerArray;
  80630. var N : String;
  80631. begin
  80632. Result:=TSP_WorkManagement_OMUserOrderedSessionManagerArray(GetMulti(AQuery,True,N));
  80633. end;
  80634. { --------------------------------------------------------------------
  80635. TSPUserSettingssEntitySet
  80636. --------------------------------------------------------------------}
  80637. Class Function TSPUserSettingssEntitySet.ObjectRestKind : String;
  80638. begin
  80639. Result:='UserSettingss';
  80640. end;
  80641. Class Function TSPUserSettingssEntitySet.EntityClass : TODataEntityClass;
  80642. begin
  80643. Result:=TSP_WorkManagement_OMUserSettings;
  80644. end;
  80645. Function TSPUserSettingssEntitySet.Get(const DaysAfterCurrentDateTimelineEnds: TInt32) : TSP_WorkManagement_OMUserSettings;
  80646. begin
  80647. Result:=TSP_WorkManagement_OMUserSettings(GetSingle(IntToStr(DaysAfterCurrentDateTimelineEnds)));
  80648. end;
  80649. Function TSPUserSettingssEntitySet.List(const AQuery: String; out NextLink: String) : TSP_WorkManagement_OMUserSettingsArray;
  80650. begin
  80651. Result:=TSP_WorkManagement_OMUserSettingsArray(GetMulti(AQuery,False,NextLink));
  80652. end;
  80653. Function TSPUserSettingssEntitySet.List(const AQuery: TQueryParams; out NextLink: String) : TSP_WorkManagement_OMUserSettingsArray;
  80654. begin
  80655. Result:=TSP_WorkManagement_OMUserSettingsArray(GetMulti(AQuery,False,NextLink));
  80656. end;
  80657. Function TSPUserSettingssEntitySet.ListAll(const AQuery: String) : TSP_WorkManagement_OMUserSettingsArray;
  80658. var N : String;
  80659. begin
  80660. Result:=TSP_WorkManagement_OMUserSettingsArray(GetMulti(AQuery,True,N));
  80661. end;
  80662. Function TSPUserSettingssEntitySet.ListAll(const AQuery: TQueryParams) : TSP_WorkManagement_OMUserSettingsArray;
  80663. var N : String;
  80664. begin
  80665. Result:=TSP_WorkManagement_OMUserSettingsArray(GetMulti(AQuery,True,N));
  80666. end;
  80667. { --------------------------------------------------------------------
  80668. TSPUserSettingsManagersEntitySet
  80669. --------------------------------------------------------------------}
  80670. Class Function TSPUserSettingsManagersEntitySet.ObjectRestKind : String;
  80671. begin
  80672. Result:='UserSettingsManagers';
  80673. end;
  80674. Class Function TSPUserSettingsManagersEntitySet.EntityClass : TODataEntityClass;
  80675. begin
  80676. Result:=TSP_WorkManagement_OMUserSettingsManager;
  80677. end;
  80678. Function TSPUserSettingsManagersEntitySet.Get(const Id4a81de82eeb94d6080ea5bf63e27023a: string) : TSP_WorkManagement_OMUserSettingsManager;
  80679. begin
  80680. Result:=TSP_WorkManagement_OMUserSettingsManager(GetSingle(TODataObject.MakeKeyString(Id4a81de82eeb94d6080ea5bf63e27023a)));
  80681. end;
  80682. Function TSPUserSettingsManagersEntitySet.List(const AQuery: String; out NextLink: String) : TSP_WorkManagement_OMUserSettingsManagerArray;
  80683. begin
  80684. Result:=TSP_WorkManagement_OMUserSettingsManagerArray(GetMulti(AQuery,False,NextLink));
  80685. end;
  80686. Function TSPUserSettingsManagersEntitySet.List(const AQuery: TQueryParams; out NextLink: String) : TSP_WorkManagement_OMUserSettingsManagerArray;
  80687. begin
  80688. Result:=TSP_WorkManagement_OMUserSettingsManagerArray(GetMulti(AQuery,False,NextLink));
  80689. end;
  80690. Function TSPUserSettingsManagersEntitySet.ListAll(const AQuery: String) : TSP_WorkManagement_OMUserSettingsManagerArray;
  80691. var N : String;
  80692. begin
  80693. Result:=TSP_WorkManagement_OMUserSettingsManagerArray(GetMulti(AQuery,True,N));
  80694. end;
  80695. Function TSPUserSettingsManagersEntitySet.ListAll(const AQuery: TQueryParams) : TSP_WorkManagement_OMUserSettingsManagerArray;
  80696. var N : String;
  80697. begin
  80698. Result:=TSP_WorkManagement_OMUserSettingsManagerArray(GetMulti(AQuery,True,N));
  80699. end;
  80700. { --------------------------------------------------------------------
  80701. TSPViewSelectionInfosEntitySet
  80702. --------------------------------------------------------------------}
  80703. Class Function TSPViewSelectionInfosEntitySet.ObjectRestKind : String;
  80704. begin
  80705. Result:='ViewSelectionInfos';
  80706. end;
  80707. Class Function TSPViewSelectionInfosEntitySet.EntityClass : TODataEntityClass;
  80708. begin
  80709. Result:=TSP_WorkManagement_OMViewSelectionInfo;
  80710. end;
  80711. Function TSPViewSelectionInfosEntitySet.Get(const Id: TInt32) : TSP_WorkManagement_OMViewSelectionInfo;
  80712. begin
  80713. Result:=TSP_WorkManagement_OMViewSelectionInfo(GetSingle(IntToStr(Id)));
  80714. end;
  80715. Function TSPViewSelectionInfosEntitySet.List(const AQuery: String; out NextLink: String) : TSP_WorkManagement_OMViewSelectionInfoArray;
  80716. begin
  80717. Result:=TSP_WorkManagement_OMViewSelectionInfoArray(GetMulti(AQuery,False,NextLink));
  80718. end;
  80719. Function TSPViewSelectionInfosEntitySet.List(const AQuery: TQueryParams; out NextLink: String) : TSP_WorkManagement_OMViewSelectionInfoArray;
  80720. begin
  80721. Result:=TSP_WorkManagement_OMViewSelectionInfoArray(GetMulti(AQuery,False,NextLink));
  80722. end;
  80723. Function TSPViewSelectionInfosEntitySet.ListAll(const AQuery: String) : TSP_WorkManagement_OMViewSelectionInfoArray;
  80724. var N : String;
  80725. begin
  80726. Result:=TSP_WorkManagement_OMViewSelectionInfoArray(GetMulti(AQuery,True,N));
  80727. end;
  80728. Function TSPViewSelectionInfosEntitySet.ListAll(const AQuery: TQueryParams) : TSP_WorkManagement_OMViewSelectionInfoArray;
  80729. var N : String;
  80730. begin
  80731. Result:=TSP_WorkManagement_OMViewSelectionInfoArray(GetMulti(AQuery,True,N));
  80732. end;
  80733. { --------------------------------------------------------------------
  80734. TSPSPOIdentityHelpersEntitySet
  80735. --------------------------------------------------------------------}
  80736. Class Function TSPSPOIdentityHelpersEntitySet.ObjectRestKind : String;
  80737. begin
  80738. Result:='SPOIdentityHelpers';
  80739. end;
  80740. Class Function TSPSPOIdentityHelpersEntitySet.EntityClass : TODataEntityClass;
  80741. begin
  80742. Result:=TSPO_IdentitySPOIdentityHelper;
  80743. end;
  80744. Function TSPSPOIdentityHelpersEntitySet.Get(const Id4a81de82eeb94d6080ea5bf63e27023a: string) : TSPO_IdentitySPOIdentityHelper;
  80745. begin
  80746. Result:=TSPO_IdentitySPOIdentityHelper(GetSingle(TODataObject.MakeKeyString(Id4a81de82eeb94d6080ea5bf63e27023a)));
  80747. end;
  80748. Function TSPSPOIdentityHelpersEntitySet.List(const AQuery: String; out NextLink: String) : TSPO_IdentitySPOIdentityHelperArray;
  80749. begin
  80750. Result:=TSPO_IdentitySPOIdentityHelperArray(GetMulti(AQuery,False,NextLink));
  80751. end;
  80752. Function TSPSPOIdentityHelpersEntitySet.List(const AQuery: TQueryParams; out NextLink: String) : TSPO_IdentitySPOIdentityHelperArray;
  80753. begin
  80754. Result:=TSPO_IdentitySPOIdentityHelperArray(GetMulti(AQuery,False,NextLink));
  80755. end;
  80756. Function TSPSPOIdentityHelpersEntitySet.ListAll(const AQuery: String) : TSPO_IdentitySPOIdentityHelperArray;
  80757. var N : String;
  80758. begin
  80759. Result:=TSPO_IdentitySPOIdentityHelperArray(GetMulti(AQuery,True,N));
  80760. end;
  80761. Function TSPSPOIdentityHelpersEntitySet.ListAll(const AQuery: TQueryParams) : TSPO_IdentitySPOIdentityHelperArray;
  80762. var N : String;
  80763. begin
  80764. Result:=TSPO_IdentitySPOIdentityHelperArray(GetMulti(AQuery,True,N));
  80765. end;
  80766. { --------------------------------------------------------------------
  80767. TSPAppPrincipalIdentityProvidersEntitySet
  80768. --------------------------------------------------------------------}
  80769. Class Function TSPAppPrincipalIdentityProvidersEntitySet.ObjectRestKind : String;
  80770. begin
  80771. Result:='AppPrincipalIdentityProviders';
  80772. end;
  80773. Class Function TSPAppPrincipalIdentityProvidersEntitySet.EntityClass : TODataEntityClass;
  80774. begin
  80775. Result:=TSPAppPrincipalIdentityProvider;
  80776. end;
  80777. Function TSPAppPrincipalIdentityProvidersEntitySet.Get(const Id4a81de82eeb94d6080ea5bf63e27023a: string) : TSPAppPrincipalIdentityProvider;
  80778. begin
  80779. Result:=TSPAppPrincipalIdentityProvider(GetSingle(TODataObject.MakeKeyString(Id4a81de82eeb94d6080ea5bf63e27023a)));
  80780. end;
  80781. Function TSPAppPrincipalIdentityProvidersEntitySet.List(const AQuery: String; out NextLink: String) : TSPAppPrincipalIdentityProviderArray;
  80782. begin
  80783. Result:=TSPAppPrincipalIdentityProviderArray(GetMulti(AQuery,False,NextLink));
  80784. end;
  80785. Function TSPAppPrincipalIdentityProvidersEntitySet.List(const AQuery: TQueryParams; out NextLink: String) : TSPAppPrincipalIdentityProviderArray;
  80786. begin
  80787. Result:=TSPAppPrincipalIdentityProviderArray(GetMulti(AQuery,False,NextLink));
  80788. end;
  80789. Function TSPAppPrincipalIdentityProvidersEntitySet.ListAll(const AQuery: String) : TSPAppPrincipalIdentityProviderArray;
  80790. var N : String;
  80791. begin
  80792. Result:=TSPAppPrincipalIdentityProviderArray(GetMulti(AQuery,True,N));
  80793. end;
  80794. Function TSPAppPrincipalIdentityProvidersEntitySet.ListAll(const AQuery: TQueryParams) : TSPAppPrincipalIdentityProviderArray;
  80795. var N : String;
  80796. begin
  80797. Result:=TSPAppPrincipalIdentityProviderArray(GetMulti(AQuery,True,N));
  80798. end;
  80799. { --------------------------------------------------------------------
  80800. TSPAppPrincipalManagersEntitySet
  80801. --------------------------------------------------------------------}
  80802. Class Function TSPAppPrincipalManagersEntitySet.ObjectRestKind : String;
  80803. begin
  80804. Result:='AppPrincipalManagers';
  80805. end;
  80806. Class Function TSPAppPrincipalManagersEntitySet.EntityClass : TODataEntityClass;
  80807. begin
  80808. Result:=TSPAppPrincipalManager;
  80809. end;
  80810. Function TSPAppPrincipalManagersEntitySet.Get(const Id4a81de82eeb94d6080ea5bf63e27023a: string) : TSPAppPrincipalManager;
  80811. begin
  80812. Result:=TSPAppPrincipalManager(GetSingle(TODataObject.MakeKeyString(Id4a81de82eeb94d6080ea5bf63e27023a)));
  80813. end;
  80814. Function TSPAppPrincipalManagersEntitySet.List(const AQuery: String; out NextLink: String) : TSPAppPrincipalManagerArray;
  80815. begin
  80816. Result:=TSPAppPrincipalManagerArray(GetMulti(AQuery,False,NextLink));
  80817. end;
  80818. Function TSPAppPrincipalManagersEntitySet.List(const AQuery: TQueryParams; out NextLink: String) : TSPAppPrincipalManagerArray;
  80819. begin
  80820. Result:=TSPAppPrincipalManagerArray(GetMulti(AQuery,False,NextLink));
  80821. end;
  80822. Function TSPAppPrincipalManagersEntitySet.ListAll(const AQuery: String) : TSPAppPrincipalManagerArray;
  80823. var N : String;
  80824. begin
  80825. Result:=TSPAppPrincipalManagerArray(GetMulti(AQuery,True,N));
  80826. end;
  80827. Function TSPAppPrincipalManagersEntitySet.ListAll(const AQuery: TQueryParams) : TSPAppPrincipalManagerArray;
  80828. var N : String;
  80829. begin
  80830. Result:=TSPAppPrincipalManagerArray(GetMulti(AQuery,True,N));
  80831. end;
  80832. { --------------------------------------------------------------------
  80833. TSPAppPrincipalCredentialsEntitySet
  80834. --------------------------------------------------------------------}
  80835. Class Function TSPAppPrincipalCredentialsEntitySet.ObjectRestKind : String;
  80836. begin
  80837. Result:='AppPrincipalCredentials';
  80838. end;
  80839. Class Function TSPAppPrincipalCredentialsEntitySet.EntityClass : TODataEntityClass;
  80840. begin
  80841. Result:=TSPAppPrincipalCredential;
  80842. end;
  80843. Function TSPAppPrincipalCredentialsEntitySet.Get(const Id4a81de82eeb94d6080ea5bf63e27023a: string) : TSPAppPrincipalCredential;
  80844. begin
  80845. Result:=TSPAppPrincipalCredential(GetSingle(TODataObject.MakeKeyString(Id4a81de82eeb94d6080ea5bf63e27023a)));
  80846. end;
  80847. Function TSPAppPrincipalCredentialsEntitySet.List(const AQuery: String; out NextLink: String) : TSPAppPrincipalCredentialArray;
  80848. begin
  80849. Result:=TSPAppPrincipalCredentialArray(GetMulti(AQuery,False,NextLink));
  80850. end;
  80851. Function TSPAppPrincipalCredentialsEntitySet.List(const AQuery: TQueryParams; out NextLink: String) : TSPAppPrincipalCredentialArray;
  80852. begin
  80853. Result:=TSPAppPrincipalCredentialArray(GetMulti(AQuery,False,NextLink));
  80854. end;
  80855. Function TSPAppPrincipalCredentialsEntitySet.ListAll(const AQuery: String) : TSPAppPrincipalCredentialArray;
  80856. var N : String;
  80857. begin
  80858. Result:=TSPAppPrincipalCredentialArray(GetMulti(AQuery,True,N));
  80859. end;
  80860. Function TSPAppPrincipalCredentialsEntitySet.ListAll(const AQuery: TQueryParams) : TSPAppPrincipalCredentialArray;
  80861. var N : String;
  80862. begin
  80863. Result:=TSPAppPrincipalCredentialArray(GetMulti(AQuery,True,N));
  80864. end;
  80865. { --------------------------------------------------------------------
  80866. TSPAppPrincipalNamesEntitySet
  80867. --------------------------------------------------------------------}
  80868. Class Function TSPAppPrincipalNamesEntitySet.ObjectRestKind : String;
  80869. begin
  80870. Result:='AppPrincipalNames';
  80871. end;
  80872. Class Function TSPAppPrincipalNamesEntitySet.EntityClass : TODataEntityClass;
  80873. begin
  80874. Result:=TSPAppPrincipalName;
  80875. end;
  80876. Function TSPAppPrincipalNamesEntitySet.Get(const Id4a81de82eeb94d6080ea5bf63e27023a: string) : TSPAppPrincipalName;
  80877. begin
  80878. Result:=TSPAppPrincipalName(GetSingle(TODataObject.MakeKeyString(Id4a81de82eeb94d6080ea5bf63e27023a)));
  80879. end;
  80880. Function TSPAppPrincipalNamesEntitySet.List(const AQuery: String; out NextLink: String) : TSPAppPrincipalNameArray;
  80881. begin
  80882. Result:=TSPAppPrincipalNameArray(GetMulti(AQuery,False,NextLink));
  80883. end;
  80884. Function TSPAppPrincipalNamesEntitySet.List(const AQuery: TQueryParams; out NextLink: String) : TSPAppPrincipalNameArray;
  80885. begin
  80886. Result:=TSPAppPrincipalNameArray(GetMulti(AQuery,False,NextLink));
  80887. end;
  80888. Function TSPAppPrincipalNamesEntitySet.ListAll(const AQuery: String) : TSPAppPrincipalNameArray;
  80889. var N : String;
  80890. begin
  80891. Result:=TSPAppPrincipalNameArray(GetMulti(AQuery,True,N));
  80892. end;
  80893. Function TSPAppPrincipalNamesEntitySet.ListAll(const AQuery: TQueryParams) : TSPAppPrincipalNameArray;
  80894. var N : String;
  80895. begin
  80896. Result:=TSPAppPrincipalNameArray(GetMulti(AQuery,True,N));
  80897. end;
  80898. { --------------------------------------------------------------------
  80899. TSPDraftProjectResources1EntitySet
  80900. --------------------------------------------------------------------}
  80901. Class Function TSPDraftProjectResources1EntitySet.ObjectRestKind : String;
  80902. begin
  80903. Result:='DraftProjectResources1';
  80904. end;
  80905. Class Function TSPDraftProjectResources1EntitySet.EntityClass : TODataEntityClass;
  80906. begin
  80907. Result:=TPSDraftProjectResource;
  80908. end;
  80909. Function TSPDraftProjectResources1EntitySet.Get(const Id: TGUIDString) : TPSDraftProjectResource;
  80910. begin
  80911. Result:=TPSDraftProjectResource(GetSingle(TODataObject.MakeKeyString(Id)));
  80912. end;
  80913. Function TSPDraftProjectResources1EntitySet.List(const AQuery: String; out NextLink: String) : TPSDraftProjectResourceArray;
  80914. begin
  80915. Result:=TPSDraftProjectResourceArray(GetMulti(AQuery,False,NextLink));
  80916. end;
  80917. Function TSPDraftProjectResources1EntitySet.List(const AQuery: TQueryParams; out NextLink: String) : TPSDraftProjectResourceArray;
  80918. begin
  80919. Result:=TPSDraftProjectResourceArray(GetMulti(AQuery,False,NextLink));
  80920. end;
  80921. Function TSPDraftProjectResources1EntitySet.ListAll(const AQuery: String) : TPSDraftProjectResourceArray;
  80922. var N : String;
  80923. begin
  80924. Result:=TPSDraftProjectResourceArray(GetMulti(AQuery,True,N));
  80925. end;
  80926. Function TSPDraftProjectResources1EntitySet.ListAll(const AQuery: TQueryParams) : TPSDraftProjectResourceArray;
  80927. var N : String;
  80928. begin
  80929. Result:=TPSDraftProjectResourceArray(GetMulti(AQuery,True,N));
  80930. end;
  80931. { --------------------------------------------------------------------
  80932. TSP_DataUserInfoItemImplicitEntitySet
  80933. --------------------------------------------------------------------}
  80934. Class Function TSP_DataUserInfoItemImplicitEntitySet.ObjectRestKind : String;
  80935. begin
  80936. Result:='UserInfoItemImplicitEntitySet';
  80937. end;
  80938. Class Function TSP_DataUserInfoItemImplicitEntitySet.EntityClass : TODataEntityClass;
  80939. begin
  80940. Result:=TSP_DataUserInfoItem;
  80941. end;
  80942. Function TSP_DataUserInfoItemImplicitEntitySet.Get(const HasUniqueRoleAssignments: boolean) : TSP_DataUserInfoItem;
  80943. begin
  80944. Result:=TSP_DataUserInfoItem(GetSingle(BoolToStr(HasUniqueRoleAssignments,'true','false')));
  80945. end;
  80946. { --------------------------------------------------------------------
  80947. TSP_DataTaxonomyHiddenListListItemImplicitEntitySet
  80948. --------------------------------------------------------------------}
  80949. Class Function TSP_DataTaxonomyHiddenListListItemImplicitEntitySet.ObjectRestKind : String;
  80950. begin
  80951. Result:='TaxonomyHiddenListListItemImplicitEntitySet';
  80952. end;
  80953. Class Function TSP_DataTaxonomyHiddenListListItemImplicitEntitySet.EntityClass : TODataEntityClass;
  80954. begin
  80955. Result:=TSP_DataTaxonomyHiddenListListItem;
  80956. end;
  80957. Function TSP_DataTaxonomyHiddenListListItemImplicitEntitySet.Get(const HasUniqueRoleAssignments: boolean) : TSP_DataTaxonomyHiddenListListItem;
  80958. begin
  80959. Result:=TSP_DataTaxonomyHiddenListListItem(GetSingle(BoolToStr(HasUniqueRoleAssignments,'true','false')));
  80960. end;
  80961. { --------------------------------------------------------------------
  80962. TSPService
  80963. --------------------------------------------------------------------}
  80964. Class Function TSPService.ObjectRestKind : String;
  80965. begin
  80966. Result:='SP';
  80967. end;
  80968. Function TSPService.CreateNewApiData : TSPApiData;
  80969. begin
  80970. Result:=TSPApiData(CreateEntityContainer(TSPApiData));
  80971. end;
  80972. Function TSPService.GetApiData : TSPApiData;
  80973. begin
  80974. If Not Assigned(FApiData) then
  80975. FApiData:=TSPApiData(CreateEntityContainer(TSPApiData));
  80976. Result:=FApiData;
  80977. end;
  80978. end.