mORMot Open Source

I see the documentation and i think that lazy loading its perfect, but there are some cases where i need that the object is all initialized.
Its possible to add a method in the orm to do this?
this can help just me?anybody have this necessity?

can you post a sample code?

thanks ab,
when i will integrate option with SQLite3UIOption in my application i'll post the code for example.
Emanuele.

Hi Junior,
im interested in unigui way but in unigui forum i find that unigui isn't free!
beta version is for evaluating only and Farshad decide license terms and price from 1.0 version of unigui!
do i mistake?
Have you other information?
thanks,
Emanuele

ps - something about raudus?onyone that use it?

hi ab,
now im just looking for in freetime, but only for future use...now i haven't time to try backbone.js and smart studio.
But im oriented to a free framework until the benefits of an expensive framework its very big than a free framework.
For you, what are the benefits to choice smartstudio?

hi Marmot76it,
i think either solution its ok. what is the best solution depend how you would like to embrace this framework.
if you are interested just at DB part you can use the secondo solution, but if you would really think "mormot"tian you should prefer first solution.
Emanuele.

oh sessionDelete exists!great!
so its implementable all in the serverside.
client just do the autenthication without know nothing.

hi corchi,
yes, you must to login to comunicate with server, but where is the problem?
you can login, check license with service and, if necessary, logout.

another way it's to create two server.
one for configuration and license, and one for your application.
so you can login to "configuration_server" and check license, and if ok, login to "application_server".
But for me this solution its just a complication!

Emanuele.

Hi BrentG,
when i find mormot i forget TDataset! I "think Object"! Right AB?:D

for SQL oint of view, when i have complex joined query i use ExecuteList command
i.e.

 Self.Elenco := ControllerMain.Client.ExecuteList([TSQLPersona, TSQLComune, TSQLProvincia, TSQLRegione],
                'SELECT PERSONA.ID, PERSONA.RAGIONESOCIALE, PERSONA.DESCRIZIONE, PERSONA.TITOLO, PERSONA.CODICEFISCALE,   PERSONA.PARTITAIVA, PERSONA.DATANASCITA, PERSONA.SESSO, PERSONA.INDIRIZZO, C.NOME AS COMUNE, C.PROVINCIA, C.CAP, C.REGIONE ' +
                                                    'FROM PERSONA LEFT OUTER JOIN (SELECT COMUNE.ID, COMUNE.NOME, P.SIGLA as Provincia, P.Regione as Regione, COMUNE.CAP ' +
                                                    'FROM COMUNE LEFT OUTER JOIN (SELECT PROVINCIA.ID, PROVINCIA.NOME, PROVINCIA.SIGLA, REGIONE.NOME as Regione FROM PROVINCIA LEFT OUTER JOIN REGIONE on PROVINCIA.REGIONE = REGIONE.ID) P ' +
                                                    'on COMUNE.PROVINCIA = P.ID) C ON PERSONA.COMUNE = C.ID;');

for fastReport see onGetValue event of Report and CompareTextCommand
i.e.

procedure TControllerAssemblea.RepAssembleaGetValue(const VarName: string;
  var Value: Variant);
...
   if CompareText(VarName, 'NomeCondominio') = 0 then //in the report i have a MemoText with value like this "Nome Condominio: [NomeCondominio]"
    Value := TSQLAssemblea(self.ObjectsList[i]).Condominio.Nome;
...

   
this code substitute value with [] in report with my object properties.

I hope this help you.
Emanuele.

hi ab,
excuse me but i try this code with USETMSPACK defined

tb: TSQLCustomToolBar;

tb.Init(self, TypeInfo(TmieAction),prova,nil,''); //self is TForm

and create the toolbar in my form, but if i would like to create the toolbar in an advofficepager that is in the form how can i do?
if try this

tb: TSQLCustomToolBar;

tb.Init(AdvOfficePager1, TypeInfo(TmieAction),prova,nil,''); //AdvOfficePager1 is TAdvOfficePager

i have assert false because TAdvOfficePager isnt a tsynpager.
thanks,
Emanuele.

ok, now i set aUsername e aPassword and all work ok.
thanks,
Emanuele.

hi ab,
i know...from yesterday you hate me i have another question about sqlrecordmany.
in a class i can declare a property like this
property XXX: Integer read getXXX;
where getXXX is a function that find XXX value.
so, can i have, for example, a property like this in my TSQLCondominio class:
property MillesimiTot: Integer read getMillesimiTot;
where getMillesimiTot loop in TSQLCondomini (TSQLRecordMany property) to find the sum of Millesimi of each Condomino in the Pivot Table.
it's possible?or the only way is declare a public function getMillesimiTot(aClient: tsqlRest): Integer and loop with fillmany/fillone?
thanks,
Emanuele.

And what's happen if i use manyadd method when source record is new record (id =0)?

ooops...

published
    property Source: TSQLCondominio read FCondominio;
    property Persona: TSQLPersona read FPersona;              -->      property Dest: TSQLPersona read FPersona;
    property Millesimi: Integer read FMillesimi write FMillesimi;
   end;

thanks ab,
now work as expected but, i always see date in english format. i would like in italian. Or i would like to change the format.
for expample:
now i see "Sep, 25 1983".
i would like to see "25/09/1983" in short format or "25 settembre 1983" in long format.
how can i do?
thanks,
Emanuele.

hi ab,
i know thats its just my problem but i need to understand why updatefromserver don't work for me...
have u any idea?
thanks,
Emanuele.

hi ab,
before parsing JSON is
'[]'#$A
that i think its right because the table is empty, but if i have error on parsing updatefromserver dont refresh self.elenco and i have an exception.
where i mistake?
thanks

hi,
i step into update from server...
updatefrom server return false for a parsing error (return code 2).
i step also into ParseAndConvert.
i arrive at line 9973 repeat inc(P); if P^=#0 then exit; until P^='{'; // go to object beginning
then i have count 3 loop before exit.
loop 1 P^ = '['
loop 2 P^ = ']'
loop 3 P^ = #10

this can help u?
thanks,
Emanuele

hi ab,
Self.Elenco is a TSQLTableJSON created onCreate of datamodule, and free onDestroy so self.Elenco wasn't deleted.
if u need i can post the code for delete record...