Wiki1000 - Contributions [fr]

Version 2025 r2 (release note)

2025-05-22T08:04:51Z

Syfre : /* Sélecteur */

{{version2025r1}}
__TOC__

''' PREVIEW '''

==Langage==

* Valeur par défaut de paramètre
: Il est possible de définir des valeurs par défaut aux paramètres des méthodes

<source lang="delphi">
MyClass = Class(TitObject)
Procedure TestDeffParams;
Procedure TestDefParamBool(p1:string; p2:boolean=true);
Procedure TestDefParamJson(p1:string; p2:TJson=nil);
Procedure TestDefParamJson2(p1:string; p2:TJson='{a:false}');
Procedure TestDefParamEnum(p1:string; p2:Integer=WFCAState_Etat2);
Procedure TestDefParamMulti(p1:string; p2:string='a'; p3:string='b');
Function TestDefParamOne(p1:string='a'):string;
Function TestDefParamFunc(p1:string='a'):string;
end;

Procedure MyClass.TestDeffParams;
var V:string;
begin
V := TestDefParamFunc('c');
ShowMessage(V);

TestDefParamOne;
TestDefParamOne();
TestDefParamOne('x');

TestDefParamMulti('a');
TestDefParamMulti('a','1');
TestDefParamMulti('a','1','2');

TestDefParamBool('a');
TestDefParamBool('a',false);
TestDefParamBool('a',true);

TestDefParamJson2('b');
TestDefParamJson2('b','{a:true}');

TestDefParamEnum('c');
TestDefParamEnum('c',WFCAState_Final);
end;
</source>

* Paramètre de type classe
: Les paramètres de type classe peuvent être passé directement

<source lang="delphi">
Type
MyClass1 = class
class procedure foo(rg:TRegClass);
end;

MyClass2 = class
....
end;

MyClass3 = class
procedure oldbar();
procedure newbar();
end;

class procedure MyClass1.foo(rg:TRegClass);
begin
// => MyClass2
showMessage(rg.aClassName);
end;

procedure MyClass3.oldbar();
var rg:TRegClass;
begin
ModelManager.FindClass('MyClass2');
myClass1.foo(rg);
end;

procedure MyClass3.newbar();
begin
myClass1.foo(MyClass2);
end;
</source>

==Json==
* Opérateur In
: Un json de type structure supporte l'opérateur In

<source lang="delphi">
Procedure TestJson;

function _foo(p:TJson):boolean;
begin
Result := false;
if 'a' in p then
begin
Result := True;
end;
end;

var js:TJson;
begin
js := TJson.Create('{a:true}');
if _foo(js) then showMessage('ok') else showMessage('nok');
end;
</source>

* Getter et Setter
: Un json de type structure supporte l'accès direct aux valeur des membres

<source lang="delphi">
Procedure TestJson;

function _foo(p:TJson):boolean;
begin
Result := false;
if 'a' in p then
begin
Result := p['a'];
end;
end;

var js:TJson;
begin
js := TJson.Create('{a:true}');
js['b'] := False;
js['a'] := not js['b'];
if _foo(js) then showMessage('ok') else showMessage('nok');
end;
</source>

* Constructeur implicite
: Un paramètre TJson peut être instancié à partir d'une chaine de caractère

<source lang="delphi">
Procedure TestJson;

function _foo(p:TJson):boolean;
begin
Result := false;
if 'a' in p then
begin
Result := p['a'];
end;
end;

begin
if _foo('{a:true}') then showMessage('ok') else showMessage('nok');
end;
</source>

* Enumérateurs
: Un json de type strutucture supporte l'énumérateur sur les clés
: Un json de type tableau supporte l'énumérateur sur les éléments

<source lang="delphi">
//Procedure TestJson;

procedure _enumValues(p:TJson);
var i:Integer; V:Variant;
begin
forEach V in p index i do
begin
showMessageFmt('%d:%s',[i,V]);
end;
end;

procedure _enumKeys(p:TJson);
var i:Integer; Key,Keys,stag:string;
begin
Keys := ''; stag := '';
forEach key in p index i do
begin
Keys := Keys+stag+inttostr(i)+':'+key;
stag := ',';
end;
showMessage(Keys);
end;

begin
_enumKeys('{a:true, b:false}');
_enumValues('[{a:true, b:false},{a:false, b:true}]');
end;
</source>

==Modèle==

===Classes===

* Méthode AllocOID

<source lang="delphi">class function AllocOID:TOID;</source>
* Alloue un oid de la classe
: Peut être utile dans les tests unitaires

* Méthode ToJson()

<source lang="delphi">procedure ToJson(SA:variant);</source>

* Sérialize l'objet en json
: SA peut être un TJsonArray ou un TJsonStruct

===Classes SQL===

* Options de rôle : NoRefIndex

* Options de rôle : NoForeignKey

==Script==

===Trace===

<source lang="delphi">procedure dbgClear();</source>
: Vide la trace

<source lang="delphi">procedure dbgEnable(value:boolean);</source>
: Active / désactive la trace

===Vue locale===

* Une vue locale peut contenir des attributs "oidXXX" sans définir le rôle

'''Exemple:'''

<source lang="delphi">
Type
vue1 = viewOf(ClassA)
p1:TEnum(enumName) = ...;
oidRef:TOID = oidrefB;
..
idRefB:TOID = oidrefB notInSelect;
[ (idRefB=%ArgRefB) and ....]
end;
</source>

* Une vue locale peut contenir des attributs non mappés dans la définition.

'''Exemple:'''

<source lang="delphi">
Type
vue1 = viewOf(ClassA)
ACount:Integer = count(oid)
oidRef:TOID;
codeRef:string;
libelleRef:string;
..
[ ...]
end;

var sel:TSelector;
begin
sel := vue1.createSelector();
case iGroupBy of
'refB':
begin
sel.AddColumn('oidrefB','oidRef');
sel.AddColumn('refB.code','codeRef');
sel.AddColumn('refB.Caption','libelleRef');
end;
'refC':
begin
sel.AddColumn('oidrefC','oidRef');
sel.AddColumn('refC.code','codeRef');
sel.AddColumn('refC.Caption','libelleRef');
end;
end;
end;
</source>

* Paramètre de type de donnée

<source lang="delphi">
Type
vue1 = viewOf(ClassA)
p1:TEnum(enumName) = ...;
end;
</source>

* Qualifier d'attribut NotInGroupBy

<source lang="delphi">
Type
vue1 = viewOf(ClassA)
p1:string = expression('...') notInGroupBy;
end;
</source>

* Héritage de vue locale

<source lang="delphi">
Type
vue1 = viewOf(ClassA)
p1:string = ...;
[...]
end;

vue2 = viewOf(vue1)
p1:string = ...;
[inherited and (...)]
end;
</source>

'''Exemple:'''

<source lang="delphi">
//function GetSelector(iGroupBy:string; iFilter:TJsonArray):TSelector;
Type
// défini une classe de base avec tous les filtres
//
vueEcritureLettrage = viewOf(TEcriture)
lettrable:boolean = compteGeneral.lettrable notInSelect;
idEtablissement:TOID = piece.oidEtablissement notInSelect;
idCompteGeneral:TOID = oidCompteGeneral notInSelect;
idRoleTiers:TOID = oidroleTiers notInSelect;
[(lettrable=true)
and ((oidLettrageEcriture='') or (dateLettrage=0))
and (typeEcriture<>0)
and (piece.lot.origineLot<>0)
and (eDate>=%ArgDateInf)
and (eDate<=%ArgDateSup)
and (idEtablissement=%ArgEtablissement)
and (idCompteGeneral=%ArgCompteGeneral)
and (idRoleTiers=%ArgRoleTiers)
]
end;

// Hérite de tous les filtres
//
vueEcritureLettrageGroupBy = viewOf(vueEcritureLettrage)
dateMin:TDatetime = min(eDate);
dateMax:TDatetime = max(eDate);
ACount:Integer = count(oid);
credit:Currency = sum('credit:TCValue');
debit:Currency = sum('debit:TCValue');
solde:Currency = sumDiff(debit,credit);
[inherited]
end;

begin
Result := vueLettrageGroupBy.CreateSelector('','',True,[]);
end;
</source>

* Scope de vue locale

Une vue locale peut être référencée en dehors de la méthode où elle est définie.

<source lang="delphi">
procedure Class1.foo;
Type
vue1 = viewOf(ClassA)
p1:string = ...;
end;
begin
...
end;

procedure Class2.bar;
Type
vue2 = viewOf(class1.foo.vue1)
p1:string = ...;
end;
begin
...
end;
</source>

* Expression Exists()

Une expression existe peut être utilisée dans les filtres comme une valeur logique

Note : Une expression Exists() est beaucoup plus rapide qu'un "Count<>0"

<source lang="delphi">
Type
vue1 = viewOf(ClassA)
id:string = ...;
end;

vue2 = viewOf(ClassB)
id:string = ...;
bb:boolean = vue1.Exists('(id=self.id)',True,[]) notInSelect;
[(bb=true) and (....)]
end;
</source>

* Expression de Sous requête

Une expression peut être définie par une sous requête

<source lang="delphi">
Type
VueTauxADate = ViewOf(TTauxADate)
idTVA : TOid = oidTVA;
tDate : Date = tDate;
taux : float = taux;
end;

vueMontantTVA = viewOf(TEcriture)
dateEcriture:TDatetime=eDate notInSelect;
oidTVA:TOID = ProfilTVA.oidTVA notInSelect;
oidPiece:TOID = oidPiece;
montantTVAReel:Currency = vueTauxADate.select('taux * self.montant_TCValue /100','(tDate<=self.dateEcriture)and(idTVA=self.oidTVA)','',True,[]);
montantTVAReel_CodeDevise:string = montantTVAReel:CodeDevise;
end;
</source>

==Sélecteur==

* lastOpeStamp, lastOpeAffected, lastOpeFirstOID
: Attributs mis à jour par la dernière opération assembliste.

* operationId, operation
: Permet d'enregistrer les opérations dans la table TdbfLogOpe
: S'applique à CopyTo()

* RmvParameter()
: Permet de retirer un paramètre qui a été ajouté par AddParameter()

* Amélioration de CopyTo
: Permet de créer des objets à partir d'un sélecteur

* CopyTo, Update, UpdateFrom
: Fonctionne sur les classes de stéréotype SQL

* InsertInto
: Permet de créer une table temporaire à partir d'un sélecteur
: Réalise un select ... into TEMPTABLE from ...

===TsqlOperation===

Classe SQL définie par le framework et permettant d'enregistrer les opérations du sélecteur

<source lang="delphi">
TsqlOperation = Class(TsqlObject)
public
class procedure CleanOpe(iOpeId:string);
//
property action: StringS[128];
property id: SQLIdentity;
property oidSourceObject: TOID;
property oidTargetObject: TOID;
property opeId: StringS[128];
property operation: StringS[128];
property SourceObject: Ref(roGeneric,roNotExternal,roNoForeignKey,roNoRoleIndex) of TitObject;
property TargetObject: Ref(roGeneric,roNotExternal,roNoForeignKey,roNoRoleIndex) of TitObject;
end;
</source>

* opeId, operationId
: Un identifiant unique (guid) identifiant l'ensemble des opérations

* opération
: Nom de l'opération dans l'ensemble des opérations

* action
: Action de l'opération
: Par exemple INSERT pour un CopyTo

* oidSourceObject
: identifiant de l'objet source dans l'opération
: Par exemple l'objet source de la copie pour un CopyTo

* oidTargetObject
: identifiant de l'objet cible dans l'opération
: Par exemple l'objet copié par un CopyTo

'''Exemple d'utilisation:'''

<source lang="delphi">

// Créer des écritures a partir des réglements
//
procedure _doCreateEcritureReglements(iOidPiece:string; iOpeId:string);
var sel:TSelector;
begin
sel := vueEcritureReglement.CreateSelector('(oidBordereau=%1)','',True,[oidBordereauReglement]);
sel.AddParameter('ArgBordereau',oidBordereauReglement);
sel.Operation := 'EcrReg';
sel.OpeId := iOpeId;
//
sel.CopyTo('TEcriture',['oidpiece','eDate','sens','sensProrata','regimeTVA','typeEcriture'],[
iOidPiece,
BordereauReglement.dateReglement,
sens_credit,
sens_credit,
regimeTVA_Encaissements,
typeEcriture_Brouillard
]);
end;

Type
vueUpdateReglement = viewOf(TReglement)
vl:TsqlOperation = join('(opeId=%ArgOpeId) and (operation=%ArgOperation) and (oidSourceObject=self.oid)');
oidEcriture:TOID = oidEcriture;
oidTargetEcriture:TOID = vl.oidTargetObject;
oidBordereau:TOID = oidBordereauReglement;
end;

// Met à jour l'oidEcriture créée sur les réglements correspondants
..
procedure _doUpdateReglementsEcriture(iOidPiece:string; iOpeId:string);
var sel:TSelector;
begin
sel := vueUpdateReglement.CreateSelector('(oidBordereau=%1)','',True,[oidBordereauReglement]);
sel.AddParameter('ArgOpeId',iOpeId);
sel.AddParameter('ArgOperation','EcrReg');
//
sel.Update(['oidEcriture'],['oidTargetEcriture']);
end;

begin
aOpeId := CreateGuid;
withP long transaction do
begin
aOidPiece := _doCreatePiece();
_doCreateEcritureReglements(aOidPiece,aOpeId);
_doUpdateReglementsEcriture(aOidPice,aOpeId);
...
TsqlOperation.CleanOpe(aOpeId);
end;
end;

</source>

===ToJson()===

<source lang="delphi">procedure ToJson(SA:TJsonArray);</source>

Sérialize tous les objets retournés par le sélecteur au format JSon comptabible avec les tables react

'''Exemple:'''

<source lang="delphi">

//procedure GetData(SRows:TJsonArray);
Type
myView = viewOf(...)
...
end;

var sel:TSelector;
begin
// Selector to retreive the data
//
sel := myView.CreateSelector('','',True,[]);
sel.ToJson(SRows);
end;
</source>

===UpdateFrom()===

<source lang="delphi">
function updateFrom(sel:TSelector; iMatchedProps:Array of string; iUpdatedProps:Array of string; iUpdatedValue:Array of variant):Integer;
</source>

Permet de mettre à jour une classe à partir d'un sélecteur et d'une colonne de correspondance.

'''Exemple :'''

<source lang="delphi">
Type
// Update the temp table
vueTemp = viewOf(TempLettrage)
reference1:string = reference1;
reference2:string = reference2;
modeLettrage:Integer = modeLettrage;
end;

vueRef1 = viewOf(TempLettrage)
//ACount:Integer = count(id);
ATotal:Currency = sumSign(montant:TCValue,sens,'1');
reference1:string = reference1;
[(modeLettrage=0) and (reference1<>'')]
end;

var selT,selG:TSelector;
begin
withP long transaction do
begin
// for updating the temp table on "match"
selT := vueTemp.CreateSelector('','',True,[]);

// Lettrage sur reference 1
selG := vueRef1.CreateSelector('(ATotal=0)','',True,[]);
selG.useCTE := True;
selT.UpdateFrom(selG,['reference1'],['modeLettrage'],[1]);
end;
end;
</source>

<pre>
with CTE as (
select sum(case when t0.sens=1 then ISNULL(t0.montant_TCValue, 0) else -ISNULL(t0.montant_TCValue, 0) end) as "ATotal",t0.reference1 as "reference1"
from dbo.TEMPLETTRAGE t0 WITH (NOLOCK)
where ((t0.modeLettrage = 0) and (t0.reference1 IS NOT NULL))
group by t0.reference1
)
merge into dbo.TEMPLETTRAGE tm0 using (
SELECT *
FROM CTE
Where (ATotal = 0.0000)
) tm1 on (tm1.reference1=tm0.reference1)
when matched then update set
tm0.modeLettrage = 1
;
</pre>

==Table temporaire==

* TDatabase.AllocTempTable(JobId:string)
: Génère un nom de table temporaire

* TDatabase.DropTempTables(JobId:string)
: Supprime (drop) les tables temporaires

<source lang="delphi">
Type
vue = viewOf(...)
end;

var sel:TSelector; aJob,aTempTable1,aTempTable2,aTempTable3,aTempTable4:string; keepTables:boolean;
begin
Result := FALSE;
aJob := 'ANA';
keepTables := False;

sel := vueUnion.CreateSelector('','',True,[]);
sel.useCTE := True;
sel.NoShare := True;
sel.NoFrameworks := True;
sel.NoOrderBy := True;
sel.AnyWhere := True;

try
// Add the maxLevel by oidGCA to the temp table
aTempTable1 := ClassManager.DefDatabase.AllocTempTable(aJob);
sel.InsertInto(aTempTable1,['maxLevel'],['Expression(max(level) over(partition by oidGroupeCumulAnalytique))']);
//showMessageFmt('%s : %d',[aTempTable1, sel.lastOpeAffected]);
//
sel := vueCumulExtCols.CreateSelector('','',True,[]);
sel.SourceTableName := aTempTable1;

aTempTable2 := ClassManager.DefDatabase.AllocTempTable(aJob);
sel.InsertInto(aTempTable2,[],[]);
//showMessageFmt('%s : %d',[aTempTable2, sel.lastOpeAffected]);

sel := vueCumulFlat.CreateSelector('','',True,[]);
sel.SourceTableName := aTempTable2;

aTempTable3 := ClassManager.DefDatabase.AllocTempTable(aJob);
sel.InsertInto(aTempTable3,[],[]);
//showMessageFmt('%s : %d',[aTempTable3, sel.lastOpeAffected]);

sel := vueCumulFlatMontant.CreateSelector('','',True,[]);
sel.SourceTableName := aTempTable3;
sel.AddParameter('ArgDeviseTC','EUR');

aTempTable4 := ClassManager.DefDatabase.AllocTempTable(aJob);
sel.InsertInto(aTempTable4,[],[]);
//showMessageFmt('%s : %d',[aTempTable4, sel.lastOpeAffected]);

finally
if not KeepTables then ClassManager.DefDatabase.DropTempTables(aJob);
end;
</source>

==Updater==

Classe technique permettant de mettre à jour un attribut sur un ensemble d'objet.

'''Exemple : Mise à jour des compteurs qui ne peuvent pas être déterminés en SQL'''

<source lang="delphi">
Type
// Should returns all attributes part of the counter
//
vueNumeroPiece = viewOf(TPiece)
pDate:TDatetime = pDate;
numero:TCounter = numero;
end;

procedure _doUpdateNumeroPiece(iOidPiece:string);
var sel:TSelector; vueNP:vueNumeroPiece; upd:TUpdater;
begin
upd := TPiece.CreateUpdater('numero');
//
sel := vueNumeroPiece.CreateSelector('(oid=%1)','',True,[iOidPiece]);
forEach vueNP in sel.AsCursor do
begin
vueNP.numero.AllocValue;
upd.AddValue(vueNP.OID,vueNP.numero.value);
end;
//
upd.Execute;
end;

begin

end;

</source>

[[Category:Version 2025 R2]]
[[Category:Release note]]

Version 2025 r2 (release note)

2025-05-22T07:55:39Z

Syfre : /* Sélecteur */

{{version2025r1}}
__TOC__

''' PREVIEW '''

==Langage==

* Valeur par défaut de paramètre
: Il est possible de définir des valeurs par défaut aux paramètres des méthodes

<source lang="delphi">
MyClass = Class(TitObject)
Procedure TestDeffParams;
Procedure TestDefParamBool(p1:string; p2:boolean=true);
Procedure TestDefParamJson(p1:string; p2:TJson=nil);
Procedure TestDefParamJson2(p1:string; p2:TJson='{a:false}');
Procedure TestDefParamEnum(p1:string; p2:Integer=WFCAState_Etat2);
Procedure TestDefParamMulti(p1:string; p2:string='a'; p3:string='b');
Function TestDefParamOne(p1:string='a'):string;
Function TestDefParamFunc(p1:string='a'):string;
end;

Procedure MyClass.TestDeffParams;
var V:string;
begin
V := TestDefParamFunc('c');
ShowMessage(V);

TestDefParamOne;
TestDefParamOne();
TestDefParamOne('x');

TestDefParamMulti('a');
TestDefParamMulti('a','1');
TestDefParamMulti('a','1','2');

TestDefParamBool('a');
TestDefParamBool('a',false);
TestDefParamBool('a',true);

TestDefParamJson2('b');
TestDefParamJson2('b','{a:true}');

TestDefParamEnum('c');
TestDefParamEnum('c',WFCAState_Final);
end;
</source>

* Paramètre de type classe
: Les paramètres de type classe peuvent être passé directement

<source lang="delphi">
Type
MyClass1 = class
class procedure foo(rg:TRegClass);
end;

MyClass2 = class
....
end;

MyClass3 = class
procedure oldbar();
procedure newbar();
end;

class procedure MyClass1.foo(rg:TRegClass);
begin
// => MyClass2
showMessage(rg.aClassName);
end;

procedure MyClass3.oldbar();
var rg:TRegClass;
begin
ModelManager.FindClass('MyClass2');
myClass1.foo(rg);
end;

procedure MyClass3.newbar();
begin
myClass1.foo(MyClass2);
end;
</source>

==Json==
* Opérateur In
: Un json de type structure supporte l'opérateur In

<source lang="delphi">
Procedure TestJson;

function _foo(p:TJson):boolean;
begin
Result := false;
if 'a' in p then
begin
Result := True;
end;
end;

var js:TJson;
begin
js := TJson.Create('{a:true}');
if _foo(js) then showMessage('ok') else showMessage('nok');
end;
</source>

* Getter et Setter
: Un json de type structure supporte l'accès direct aux valeur des membres

<source lang="delphi">
Procedure TestJson;

function _foo(p:TJson):boolean;
begin
Result := false;
if 'a' in p then
begin
Result := p['a'];
end;
end;

var js:TJson;
begin
js := TJson.Create('{a:true}');
js['b'] := False;
js['a'] := not js['b'];
if _foo(js) then showMessage('ok') else showMessage('nok');
end;
</source>

* Constructeur implicite
: Un paramètre TJson peut être instancié à partir d'une chaine de caractère

<source lang="delphi">
Procedure TestJson;

function _foo(p:TJson):boolean;
begin
Result := false;
if 'a' in p then
begin
Result := p['a'];
end;
end;

begin
if _foo('{a:true}') then showMessage('ok') else showMessage('nok');
end;
</source>

* Enumérateurs
: Un json de type strutucture supporte l'énumérateur sur les clés
: Un json de type tableau supporte l'énumérateur sur les éléments

<source lang="delphi">
//Procedure TestJson;

procedure _enumValues(p:TJson);
var i:Integer; V:Variant;
begin
forEach V in p index i do
begin
showMessageFmt('%d:%s',[i,V]);
end;
end;

procedure _enumKeys(p:TJson);
var i:Integer; Key,Keys,stag:string;
begin
Keys := ''; stag := '';
forEach key in p index i do
begin
Keys := Keys+stag+inttostr(i)+':'+key;
stag := ',';
end;
showMessage(Keys);
end;

begin
_enumKeys('{a:true, b:false}');
_enumValues('[{a:true, b:false},{a:false, b:true}]');
end;
</source>

==Modèle==

===Classes===

* Méthode AllocOID

<source lang="delphi">class function AllocOID:TOID;</source>
* Alloue un oid de la classe
: Peut être utile dans les tests unitaires

* Méthode ToJson()

<source lang="delphi">procedure ToJson(SA:variant);</source>

* Sérialize l'objet en json
: SA peut être un TJsonArray ou un TJsonStruct

===Classes SQL===

* Options de rôle : NoRefIndex

* Options de rôle : NoForeignKey

==Script==

===Trace===

<source lang="delphi">procedure dbgClear();</source>
: Vide la trace

<source lang="delphi">procedure dbgEnable(value:boolean);</source>
: Active / désactive la trace

===Vue locale===

* Une vue locale peut contenir des attributs "oidXXX" sans définir le rôle

'''Exemple:'''

<source lang="delphi">
Type
vue1 = viewOf(ClassA)
p1:TEnum(enumName) = ...;
oidRef:TOID = oidrefB;
..
idRefB:TOID = oidrefB notInSelect;
[ (idRefB=%ArgRefB) and ....]
end;
</source>

* Une vue locale peut contenir des attributs non mappés dans la définition.

'''Exemple:'''

<source lang="delphi">
Type
vue1 = viewOf(ClassA)
ACount:Integer = count(oid)
oidRef:TOID;
codeRef:string;
libelleRef:string;
..
[ ...]
end;

var sel:TSelector;
begin
sel := vue1.createSelector();
case iGroupBy of
'refB':
begin
sel.AddColumn('oidrefB','oidRef');
sel.AddColumn('refB.code','codeRef');
sel.AddColumn('refB.Caption','libelleRef');
end;
'refC':
begin
sel.AddColumn('oidrefC','oidRef');
sel.AddColumn('refC.code','codeRef');
sel.AddColumn('refC.Caption','libelleRef');
end;
end;
end;
</source>

* Paramètre de type de donnée

<source lang="delphi">
Type
vue1 = viewOf(ClassA)
p1:TEnum(enumName) = ...;
end;
</source>

* Qualifier d'attribut NotInGroupBy

<source lang="delphi">
Type
vue1 = viewOf(ClassA)
p1:string = expression('...') notInGroupBy;
end;
</source>

* Héritage de vue locale

<source lang="delphi">
Type
vue1 = viewOf(ClassA)
p1:string = ...;
[...]
end;

vue2 = viewOf(vue1)
p1:string = ...;
[inherited and (...)]
end;
</source>

'''Exemple:'''

<source lang="delphi">
//function GetSelector(iGroupBy:string; iFilter:TJsonArray):TSelector;
Type
// défini une classe de base avec tous les filtres
//
vueEcritureLettrage = viewOf(TEcriture)
lettrable:boolean = compteGeneral.lettrable notInSelect;
idEtablissement:TOID = piece.oidEtablissement notInSelect;
idCompteGeneral:TOID = oidCompteGeneral notInSelect;
idRoleTiers:TOID = oidroleTiers notInSelect;
[(lettrable=true)
and ((oidLettrageEcriture='') or (dateLettrage=0))
and (typeEcriture<>0)
and (piece.lot.origineLot<>0)
and (eDate>=%ArgDateInf)
and (eDate<=%ArgDateSup)
and (idEtablissement=%ArgEtablissement)
and (idCompteGeneral=%ArgCompteGeneral)
and (idRoleTiers=%ArgRoleTiers)
]
end;

// Hérite de tous les filtres
//
vueEcritureLettrageGroupBy = viewOf(vueEcritureLettrage)
dateMin:TDatetime = min(eDate);
dateMax:TDatetime = max(eDate);
ACount:Integer = count(oid);
credit:Currency = sum('credit:TCValue');
debit:Currency = sum('debit:TCValue');
solde:Currency = sumDiff(debit,credit);
[inherited]
end;

begin
Result := vueLettrageGroupBy.CreateSelector('','',True,[]);
end;
</source>

* Scope de vue locale

Une vue locale peut être référencée en dehors de la méthode où elle est définie.

<source lang="delphi">
procedure Class1.foo;
Type
vue1 = viewOf(ClassA)
p1:string = ...;
end;
begin
...
end;

procedure Class2.bar;
Type
vue2 = viewOf(class1.foo.vue1)
p1:string = ...;
end;
begin
...
end;
</source>

* Expression Exists()

Une expression existe peut être utilisée dans les filtres comme une valeur logique

Note : Une expression Exists() est beaucoup plus rapide qu'un "Count<>0"

<source lang="delphi">
Type
vue1 = viewOf(ClassA)
id:string = ...;
end;

vue2 = viewOf(ClassB)
id:string = ...;
bb:boolean = vue1.Exists('(id=self.id)',True,[]) notInSelect;
[(bb=true) and (....)]
end;
</source>

* Expression de Sous requête

Une expression peut être définie par une sous requête

<source lang="delphi">
Type
VueTauxADate = ViewOf(TTauxADate)
idTVA : TOid = oidTVA;
tDate : Date = tDate;
taux : float = taux;
end;

vueMontantTVA = viewOf(TEcriture)
dateEcriture:TDatetime=eDate notInSelect;
oidTVA:TOID = ProfilTVA.oidTVA notInSelect;
oidPiece:TOID = oidPiece;
montantTVAReel:Currency = vueTauxADate.select('taux * self.montant_TCValue /100','(tDate<=self.dateEcriture)and(idTVA=self.oidTVA)','',True,[]);
montantTVAReel_CodeDevise:string = montantTVAReel:CodeDevise;
end;
</source>

==Sélecteur==

* lastOpeStamp, lastOpeAffected, lastOpeFirstOID
: Attributs mis à jour par la dernière opération assembliste.

* operationId, operation
: Permet d'enregistrer les opérations dans la table TdbfLogOpe
: S'applique à CopyTo()

* RmvParameter()
: Permet de retirer un paramètre qui a été ajouté par AddParameter()

* Amélioration de CopyTo
: Permet de créer des objets à partir d'un sélecteur

* CopyTo, Update, UpdateFrom, InsertInto
: Fonctionne sur les classes de stéréotype SQL

===TsqlOperation===

Classe SQL définie par le framework et permettant d'enregistrer les opérations du sélecteur

<source lang="delphi">
TsqlOperation = Class(TsqlObject)
public
class procedure CleanOpe(iOpeId:string);
//
property action: StringS[128];
property id: SQLIdentity;
property oidSourceObject: TOID;
property oidTargetObject: TOID;
property opeId: StringS[128];
property operation: StringS[128];
property SourceObject: Ref(roGeneric,roNotExternal,roNoForeignKey,roNoRoleIndex) of TitObject;
property TargetObject: Ref(roGeneric,roNotExternal,roNoForeignKey,roNoRoleIndex) of TitObject;
end;
</source>

* opeId, operationId
: Un identifiant unique (guid) identifiant l'ensemble des opérations

* opération
: Nom de l'opération dans l'ensemble des opérations

* action
: Action de l'opération
: Par exemple INSERT pour un CopyTo

* oidSourceObject
: identifiant de l'objet source dans l'opération
: Par exemple l'objet source de la copie pour un CopyTo

* oidTargetObject
: identifiant de l'objet cible dans l'opération
: Par exemple l'objet copié par un CopyTo

'''Exemple d'utilisation:'''

<source lang="delphi">

// Créer des écritures a partir des réglements
//
procedure _doCreateEcritureReglements(iOidPiece:string; iOpeId:string);
var sel:TSelector;
begin
sel := vueEcritureReglement.CreateSelector('(oidBordereau=%1)','',True,[oidBordereauReglement]);
sel.AddParameter('ArgBordereau',oidBordereauReglement);
sel.Operation := 'EcrReg';
sel.OpeId := iOpeId;
//
sel.CopyTo('TEcriture',['oidpiece','eDate','sens','sensProrata','regimeTVA','typeEcriture'],[
iOidPiece,
BordereauReglement.dateReglement,
sens_credit,
sens_credit,
regimeTVA_Encaissements,
typeEcriture_Brouillard
]);
end;

Type
vueUpdateReglement = viewOf(TReglement)
vl:TsqlOperation = join('(opeId=%ArgOpeId) and (operation=%ArgOperation) and (oidSourceObject=self.oid)');
oidEcriture:TOID = oidEcriture;
oidTargetEcriture:TOID = vl.oidTargetObject;
oidBordereau:TOID = oidBordereauReglement;
end;

// Met à jour l'oidEcriture créée sur les réglements correspondants
..
procedure _doUpdateReglementsEcriture(iOidPiece:string; iOpeId:string);
var sel:TSelector;
begin
sel := vueUpdateReglement.CreateSelector('(oidBordereau=%1)','',True,[oidBordereauReglement]);
sel.AddParameter('ArgOpeId',iOpeId);
sel.AddParameter('ArgOperation','EcrReg');
//
sel.Update(['oidEcriture'],['oidTargetEcriture']);
end;

begin
aOpeId := CreateGuid;
withP long transaction do
begin
aOidPiece := _doCreatePiece();
_doCreateEcritureReglements(aOidPiece,aOpeId);
_doUpdateReglementsEcriture(aOidPice,aOpeId);
...
TsqlOperation.CleanOpe(aOpeId);
end;
end;

</source>

===ToJson()===

<source lang="delphi">procedure ToJson(SA:TJsonArray);</source>

Sérialize tous les objets retournés par le sélecteur au format JSon comptabible avec les tables react

'''Exemple:'''

<source lang="delphi">

//procedure GetData(SRows:TJsonArray);
Type
myView = viewOf(...)
...
end;

var sel:TSelector;
begin
// Selector to retreive the data
//
sel := myView.CreateSelector('','',True,[]);
sel.ToJson(SRows);
end;
</source>

===UpdateFrom()===

<source lang="delphi">
function updateFrom(sel:TSelector; iMatchedProps:Array of string; iUpdatedProps:Array of string; iUpdatedValue:Array of variant):Integer;
</source>

Permet de mettre à jour une classe à partir d'un sélecteur et d'une colonne de correspondance.

'''Exemple :'''

<source lang="delphi">
Type
// Update the temp table
vueTemp = viewOf(TempLettrage)
reference1:string = reference1;
reference2:string = reference2;
modeLettrage:Integer = modeLettrage;
end;

vueRef1 = viewOf(TempLettrage)
//ACount:Integer = count(id);
ATotal:Currency = sumSign(montant:TCValue,sens,'1');
reference1:string = reference1;
[(modeLettrage=0) and (reference1<>'')]
end;

var selT,selG:TSelector;
begin
withP long transaction do
begin
// for updating the temp table on "match"
selT := vueTemp.CreateSelector('','',True,[]);

// Lettrage sur reference 1
selG := vueRef1.CreateSelector('(ATotal=0)','',True,[]);
selG.useCTE := True;
selT.UpdateFrom(selG,['reference1'],['modeLettrage'],[1]);
end;
end;
</source>

<pre>
with CTE as (
select sum(case when t0.sens=1 then ISNULL(t0.montant_TCValue, 0) else -ISNULL(t0.montant_TCValue, 0) end) as "ATotal",t0.reference1 as "reference1"
from dbo.TEMPLETTRAGE t0 WITH (NOLOCK)
where ((t0.modeLettrage = 0) and (t0.reference1 IS NOT NULL))
group by t0.reference1
)
merge into dbo.TEMPLETTRAGE tm0 using (
SELECT *
FROM CTE
Where (ATotal = 0.0000)
) tm1 on (tm1.reference1=tm0.reference1)
when matched then update set
tm0.modeLettrage = 1
;
</pre>

==Updater==

Classe technique permettant de mettre à jour un attribut sur un ensemble d'objet.

'''Exemple : Mise à jour des compteurs qui ne peuvent pas être déterminés en SQL'''

<source lang="delphi">
Type
// Should returns all attributes part of the counter
//
vueNumeroPiece = viewOf(TPiece)
pDate:TDatetime = pDate;
numero:TCounter = numero;
end;

procedure _doUpdateNumeroPiece(iOidPiece:string);
var sel:TSelector; vueNP:vueNumeroPiece; upd:TUpdater;
begin
upd := TPiece.CreateUpdater('numero');
//
sel := vueNumeroPiece.CreateSelector('(oid=%1)','',True,[iOidPiece]);
forEach vueNP in sel.AsCursor do
begin
vueNP.numero.AllocValue;
upd.AddValue(vueNP.OID,vueNP.numero.value);
end;
//
upd.Execute;
end;

begin

end;

</source>

[[Category:Version 2025 R2]]
[[Category:Release note]]

Version 2025 r2 (release note)

2025-05-22T07:43:12Z

Syfre : /* Json */

{{version2025r1}}
__TOC__

''' PREVIEW '''

==Langage==

* Valeur par défaut de paramètre
: Il est possible de définir des valeurs par défaut aux paramètres des méthodes

<source lang="delphi">
MyClass = Class(TitObject)
Procedure TestDeffParams;
Procedure TestDefParamBool(p1:string; p2:boolean=true);
Procedure TestDefParamJson(p1:string; p2:TJson=nil);
Procedure TestDefParamJson2(p1:string; p2:TJson='{a:false}');
Procedure TestDefParamEnum(p1:string; p2:Integer=WFCAState_Etat2);
Procedure TestDefParamMulti(p1:string; p2:string='a'; p3:string='b');
Function TestDefParamOne(p1:string='a'):string;
Function TestDefParamFunc(p1:string='a'):string;
end;

Procedure MyClass.TestDeffParams;
var V:string;
begin
V := TestDefParamFunc('c');
ShowMessage(V);

TestDefParamOne;
TestDefParamOne();
TestDefParamOne('x');

TestDefParamMulti('a');
TestDefParamMulti('a','1');
TestDefParamMulti('a','1','2');

TestDefParamBool('a');
TestDefParamBool('a',false);
TestDefParamBool('a',true);

TestDefParamJson2('b');
TestDefParamJson2('b','{a:true}');

TestDefParamEnum('c');
TestDefParamEnum('c',WFCAState_Final);
end;
</source>

* Paramètre de type classe
: Les paramètres de type classe peuvent être passé directement

<source lang="delphi">
Type
MyClass1 = class
class procedure foo(rg:TRegClass);
end;

MyClass2 = class
....
end;

MyClass3 = class
procedure oldbar();
procedure newbar();
end;

class procedure MyClass1.foo(rg:TRegClass);
begin
// => MyClass2
showMessage(rg.aClassName);
end;

procedure MyClass3.oldbar();
var rg:TRegClass;
begin
ModelManager.FindClass('MyClass2');
myClass1.foo(rg);
end;

procedure MyClass3.newbar();
begin
myClass1.foo(MyClass2);
end;
</source>

==Json==
* Opérateur In
: Un json de type structure supporte l'opérateur In

<source lang="delphi">
Procedure TestJson;

function _foo(p:TJson):boolean;
begin
Result := false;
if 'a' in p then
begin
Result := True;
end;
end;

var js:TJson;
begin
js := TJson.Create('{a:true}');
if _foo(js) then showMessage('ok') else showMessage('nok');
end;
</source>

* Getter et Setter
: Un json de type structure supporte l'accès direct aux valeur des membres

<source lang="delphi">
Procedure TestJson;

function _foo(p:TJson):boolean;
begin
Result := false;
if 'a' in p then
begin
Result := p['a'];
end;
end;

var js:TJson;
begin
js := TJson.Create('{a:true}');
js['b'] := False;
js['a'] := not js['b'];
if _foo(js) then showMessage('ok') else showMessage('nok');
end;
</source>

* Constructeur implicite
: Un paramètre TJson peut être instancié à partir d'une chaine de caractère

<source lang="delphi">
Procedure TestJson;

function _foo(p:TJson):boolean;
begin
Result := false;
if 'a' in p then
begin
Result := p['a'];
end;
end;

begin
if _foo('{a:true}') then showMessage('ok') else showMessage('nok');
end;
</source>

* Enumérateurs
: Un json de type strutucture supporte l'énumérateur sur les clés
: Un json de type tableau supporte l'énumérateur sur les éléments

<source lang="delphi">
//Procedure TestJson;

procedure _enumValues(p:TJson);
var i:Integer; V:Variant;
begin
forEach V in p index i do
begin
showMessageFmt('%d:%s',[i,V]);
end;
end;

procedure _enumKeys(p:TJson);
var i:Integer; Key,Keys,stag:string;
begin
Keys := ''; stag := '';
forEach key in p index i do
begin
Keys := Keys+stag+inttostr(i)+':'+key;
stag := ',';
end;
showMessage(Keys);
end;

begin
_enumKeys('{a:true, b:false}');
_enumValues('[{a:true, b:false},{a:false, b:true}]');
end;
</source>

==Modèle==

===Classes===

* Méthode AllocOID

<source lang="delphi">class function AllocOID:TOID;</source>
* Alloue un oid de la classe
: Peut être utile dans les tests unitaires

* Méthode ToJson()

<source lang="delphi">procedure ToJson(SA:variant);</source>

* Sérialize l'objet en json
: SA peut être un TJsonArray ou un TJsonStruct

===Classes SQL===

* Options de rôle : NoRefIndex

* Options de rôle : NoForeignKey

==Script==

===Trace===

<source lang="delphi">procedure dbgClear();</source>
: Vide la trace

<source lang="delphi">procedure dbgEnable(value:boolean);</source>
: Active / désactive la trace

===Vue locale===

* Une vue locale peut contenir des attributs "oidXXX" sans définir le rôle

'''Exemple:'''

<source lang="delphi">
Type
vue1 = viewOf(ClassA)
p1:TEnum(enumName) = ...;
oidRef:TOID = oidrefB;
..
idRefB:TOID = oidrefB notInSelect;
[ (idRefB=%ArgRefB) and ....]
end;
</source>

* Une vue locale peut contenir des attributs non mappés dans la définition.

'''Exemple:'''

<source lang="delphi">
Type
vue1 = viewOf(ClassA)
ACount:Integer = count(oid)
oidRef:TOID;
codeRef:string;
libelleRef:string;
..
[ ...]
end;

var sel:TSelector;
begin
sel := vue1.createSelector();
case iGroupBy of
'refB':
begin
sel.AddColumn('oidrefB','oidRef');
sel.AddColumn('refB.code','codeRef');
sel.AddColumn('refB.Caption','libelleRef');
end;
'refC':
begin
sel.AddColumn('oidrefC','oidRef');
sel.AddColumn('refC.code','codeRef');
sel.AddColumn('refC.Caption','libelleRef');
end;
end;
end;
</source>

* Paramètre de type de donnée

<source lang="delphi">
Type
vue1 = viewOf(ClassA)
p1:TEnum(enumName) = ...;
end;
</source>

* Qualifier d'attribut NotInGroupBy

<source lang="delphi">
Type
vue1 = viewOf(ClassA)
p1:string = expression('...') notInGroupBy;
end;
</source>

* Héritage de vue locale

<source lang="delphi">
Type
vue1 = viewOf(ClassA)
p1:string = ...;
[...]
end;

vue2 = viewOf(vue1)
p1:string = ...;
[inherited and (...)]
end;
</source>

'''Exemple:'''

<source lang="delphi">
//function GetSelector(iGroupBy:string; iFilter:TJsonArray):TSelector;
Type
// défini une classe de base avec tous les filtres
//
vueEcritureLettrage = viewOf(TEcriture)
lettrable:boolean = compteGeneral.lettrable notInSelect;
idEtablissement:TOID = piece.oidEtablissement notInSelect;
idCompteGeneral:TOID = oidCompteGeneral notInSelect;
idRoleTiers:TOID = oidroleTiers notInSelect;
[(lettrable=true)
and ((oidLettrageEcriture='') or (dateLettrage=0))
and (typeEcriture<>0)
and (piece.lot.origineLot<>0)
and (eDate>=%ArgDateInf)
and (eDate<=%ArgDateSup)
and (idEtablissement=%ArgEtablissement)
and (idCompteGeneral=%ArgCompteGeneral)
and (idRoleTiers=%ArgRoleTiers)
]
end;

// Hérite de tous les filtres
//
vueEcritureLettrageGroupBy = viewOf(vueEcritureLettrage)
dateMin:TDatetime = min(eDate);
dateMax:TDatetime = max(eDate);
ACount:Integer = count(oid);
credit:Currency = sum('credit:TCValue');
debit:Currency = sum('debit:TCValue');
solde:Currency = sumDiff(debit,credit);
[inherited]
end;

begin
Result := vueLettrageGroupBy.CreateSelector('','',True,[]);
end;
</source>

* Scope de vue locale

Une vue locale peut être référencée en dehors de la méthode où elle est définie.

<source lang="delphi">
procedure Class1.foo;
Type
vue1 = viewOf(ClassA)
p1:string = ...;
end;
begin
...
end;

procedure Class2.bar;
Type
vue2 = viewOf(class1.foo.vue1)
p1:string = ...;
end;
begin
...
end;
</source>

* Expression Exists()

Une expression existe peut être utilisée dans les filtres comme une valeur logique

Note : Une expression Exists() est beaucoup plus rapide qu'un "Count<>0"

<source lang="delphi">
Type
vue1 = viewOf(ClassA)
id:string = ...;
end;

vue2 = viewOf(ClassB)
id:string = ...;
bb:boolean = vue1.Exists('(id=self.id)',True,[]) notInSelect;
[(bb=true) and (....)]
end;
</source>

* Expression de Sous requête

Une expression peut être définie par une sous requête

<source lang="delphi">
Type
VueTauxADate = ViewOf(TTauxADate)
idTVA : TOid = oidTVA;
tDate : Date = tDate;
taux : float = taux;
end;

vueMontantTVA = viewOf(TEcriture)
dateEcriture:TDatetime=eDate notInSelect;
oidTVA:TOID = ProfilTVA.oidTVA notInSelect;
oidPiece:TOID = oidPiece;
montantTVAReel:Currency = vueTauxADate.select('taux * self.montant_TCValue /100','(tDate<=self.dateEcriture)and(idTVA=self.oidTVA)','',True,[]);
montantTVAReel_CodeDevise:string = montantTVAReel:CodeDevise;
end;
</source>

==Sélecteur==

* lastOpeStamp, lastOpeAffected, lastOpeFirstOID
: Attributs mis à jour par la dernière opération assembliste.

* operationId, operation
: Permet d'enregistrer les opérations dans la table TdbfLogOpe
: S'applique à CopyTo()

* RmvParameter()
: Permet de retirer un paramètre qui a été ajouté par AddParameter()

* Amélioration de CopyTo
: Permet de créer des objets à partir d'un sélecteur

* CopyTo, Update, UpdateFrom
: Fonctionne sur les classes de stéréotype SQL

===TsqlOperation===

Classe SQL définie par le framework et permettant d'enregistrer les opérations du sélecteur

<source lang="delphi">
TsqlOperation = Class(TsqlObject)
public
class procedure CleanOpe(iOpeId:string);
//
property action: StringS[128];
property id: SQLIdentity;
property oidSourceObject: TOID;
property oidTargetObject: TOID;
property opeId: StringS[128];
property operation: StringS[128];
property SourceObject: Ref(roGeneric,roNotExternal,roNoForeignKey,roNoRoleIndex) of TitObject;
property TargetObject: Ref(roGeneric,roNotExternal,roNoForeignKey,roNoRoleIndex) of TitObject;
end;
</source>

* opeId, operationId
: Un identifiant unique (guid) identifiant l'ensemble des opérations

* opération
: Nom de l'opération dans l'ensemble des opérations

* action
: Action de l'opération
: Par exemple INSERT pour un CopyTo

* oidSourceObject
: identifiant de l'objet source dans l'opération
: Par exemple l'objet source de la copie pour un CopyTo

* oidTargetObject
: identifiant de l'objet cible dans l'opération
: Par exemple l'objet copié par un CopyTo

'''Exemple d'utilisation:'''

<source lang="delphi">

// Créer des écritures a partir des réglements
//
procedure _doCreateEcritureReglements(iOidPiece:string; iOpeId:string);
var sel:TSelector;
begin
sel := vueEcritureReglement.CreateSelector('(oidBordereau=%1)','',True,[oidBordereauReglement]);
sel.AddParameter('ArgBordereau',oidBordereauReglement);
sel.Operation := 'EcrReg';
sel.OpeId := iOpeId;
//
sel.CopyTo('TEcriture',['oidpiece','eDate','sens','sensProrata','regimeTVA','typeEcriture'],[
iOidPiece,
BordereauReglement.dateReglement,
sens_credit,
sens_credit,
regimeTVA_Encaissements,
typeEcriture_Brouillard
]);
end;

Type
vueUpdateReglement = viewOf(TReglement)
vl:TsqlOperation = join('(opeId=%ArgOpeId) and (operation=%ArgOperation) and (oidSourceObject=self.oid)');
oidEcriture:TOID = oidEcriture;
oidTargetEcriture:TOID = vl.oidTargetObject;
oidBordereau:TOID = oidBordereauReglement;
end;

// Met à jour l'oidEcriture créée sur les réglements correspondants
..
procedure _doUpdateReglementsEcriture(iOidPiece:string; iOpeId:string);
var sel:TSelector;
begin
sel := vueUpdateReglement.CreateSelector('(oidBordereau=%1)','',True,[oidBordereauReglement]);
sel.AddParameter('ArgOpeId',iOpeId);
sel.AddParameter('ArgOperation','EcrReg');
//
sel.Update(['oidEcriture'],['oidTargetEcriture']);
end;

begin
aOpeId := CreateGuid;
withP long transaction do
begin
aOidPiece := _doCreatePiece();
_doCreateEcritureReglements(aOidPiece,aOpeId);
_doUpdateReglementsEcriture(aOidPice,aOpeId);
...
TsqlOperation.CleanOpe(aOpeId);
end;
end;

</source>

===ToJson()===

<source lang="delphi">procedure ToJson(SA:TJsonArray);</source>

Sérialize tous les objets retournés par le sélecteur au format JSon comptabible avec les tables react

'''Exemple:'''

<source lang="delphi">

//procedure GetData(SRows:TJsonArray);
Type
myView = viewOf(...)
...
end;

var sel:TSelector;
begin
// Selector to retreive the data
//
sel := myView.CreateSelector('','',True,[]);
sel.ToJson(SRows);
end;
</source>

===UpdateFrom()===

<source lang="delphi">
function updateFrom(sel:TSelector; iMatchedProps:Array of string; iUpdatedProps:Array of string; iUpdatedValue:Array of variant):Integer;
</source>

Permet de mettre à jour une classe à partir d'un sélecteur et d'une colonne de correspondance.

'''Exemple :'''

<source lang="delphi">
Type
// Update the temp table
vueTemp = viewOf(TempLettrage)
reference1:string = reference1;
reference2:string = reference2;
modeLettrage:Integer = modeLettrage;
end;

vueRef1 = viewOf(TempLettrage)
//ACount:Integer = count(id);
ATotal:Currency = sumSign(montant:TCValue,sens,'1');
reference1:string = reference1;
[(modeLettrage=0) and (reference1<>'')]
end;

var selT,selG:TSelector;
begin
withP long transaction do
begin
// for updating the temp table on "match"
selT := vueTemp.CreateSelector('','',True,[]);

// Lettrage sur reference 1
selG := vueRef1.CreateSelector('(ATotal=0)','',True,[]);
selG.useCTE := True;
selT.UpdateFrom(selG,['reference1'],['modeLettrage'],[1]);
end;
end;
</source>

<pre>
with CTE as (
select sum(case when t0.sens=1 then ISNULL(t0.montant_TCValue, 0) else -ISNULL(t0.montant_TCValue, 0) end) as "ATotal",t0.reference1 as "reference1"
from dbo.TEMPLETTRAGE t0 WITH (NOLOCK)
where ((t0.modeLettrage = 0) and (t0.reference1 IS NOT NULL))
group by t0.reference1
)
merge into dbo.TEMPLETTRAGE tm0 using (
SELECT *
FROM CTE
Where (ATotal = 0.0000)
) tm1 on (tm1.reference1=tm0.reference1)
when matched then update set
tm0.modeLettrage = 1
;
</pre>

==Updater==

Classe technique permettant de mettre à jour un attribut sur un ensemble d'objet.

'''Exemple : Mise à jour des compteurs qui ne peuvent pas être déterminés en SQL'''

<source lang="delphi">
Type
// Should returns all attributes part of the counter
//
vueNumeroPiece = viewOf(TPiece)
pDate:TDatetime = pDate;
numero:TCounter = numero;
end;

procedure _doUpdateNumeroPiece(iOidPiece:string);
var sel:TSelector; vueNP:vueNumeroPiece; upd:TUpdater;
begin
upd := TPiece.CreateUpdater('numero');
//
sel := vueNumeroPiece.CreateSelector('(oid=%1)','',True,[iOidPiece]);
forEach vueNP in sel.AsCursor do
begin
vueNP.numero.AllocValue;
upd.AddValue(vueNP.OID,vueNP.numero.value);
end;
//
upd.Execute;
end;

begin

end;

</source>

[[Category:Version 2025 R2]]
[[Category:Release note]]

Version 2025 r2 (release note)

2025-05-22T07:34:53Z

Syfre : /* Modèle */

{{version2025r1}}
__TOC__

''' PREVIEW '''

==Langage==

* Valeur par défaut de paramètre
: Il est possible de définir des valeurs par défaut aux paramètres des méthodes

<source lang="delphi">
MyClass = Class(TitObject)
Procedure TestDeffParams;
Procedure TestDefParamBool(p1:string; p2:boolean=true);
Procedure TestDefParamJson(p1:string; p2:TJson=nil);
Procedure TestDefParamJson2(p1:string; p2:TJson='{a:false}');
Procedure TestDefParamEnum(p1:string; p2:Integer=WFCAState_Etat2);
Procedure TestDefParamMulti(p1:string; p2:string='a'; p3:string='b');
Function TestDefParamOne(p1:string='a'):string;
Function TestDefParamFunc(p1:string='a'):string;
end;

Procedure MyClass.TestDeffParams;
var V:string;
begin
V := TestDefParamFunc('c');
ShowMessage(V);

TestDefParamOne;
TestDefParamOne();
TestDefParamOne('x');

TestDefParamMulti('a');
TestDefParamMulti('a','1');
TestDefParamMulti('a','1','2');

TestDefParamBool('a');
TestDefParamBool('a',false);
TestDefParamBool('a',true);

TestDefParamJson2('b');
TestDefParamJson2('b','{a:true}');

TestDefParamEnum('c');
TestDefParamEnum('c',WFCAState_Final);
end;
</source>

* Paramètre de type classe
: Les paramètres de type classe peuvent être passé directement

<source lang="delphi">
Type
MyClass1 = class
class procedure foo(rg:TRegClass);
end;

MyClass2 = class
....
end;

MyClass3 = class
procedure oldbar();
procedure newbar();
end;

class procedure MyClass1.foo(rg:TRegClass);
begin
// => MyClass2
showMessage(rg.aClassName);
end;

procedure MyClass3.oldbar();
var rg:TRegClass;
begin
ModelManager.FindClass('MyClass2');
myClass1.foo(rg);
end;

procedure MyClass3.newbar();
begin
myClass1.foo(MyClass2);
end;
</source>

==Json==
* Opérateur In
: Un json de type structure supporte l'opérateur In

<source lang="delphi">
Procedure TestJson;

function _foo(p:TJson):boolean;
begin
Result := false;
if 'a' in p then
begin
Result := True;
end;
end;

var js:TJson;
begin
js := TJson.Create('{a:true}');
if _foo(js) then showMessage('ok') else showMessage('nok');
end;
</source>

* Getter et Setter
: Un json de type structure supporte l'accès direct aux valeur des membres

<source lang="delphi">
Procedure TestJson;

function _foo(p:TJson):boolean;
begin
Result := false;
if 'a' in p then
begin
Result := p['a'];
end;
end;

var js:TJson;
begin
js := TJson.Create('{a:true}');
js['b'] := False;
js['a'] := not js['b'];
if _foo(js) then showMessage('ok') else showMessage('nok');
end;
</source>

* Constructeur implicite
: Un paramètre TJson peut être instancier à partir d'une chaine de caractère

<source lang="delphi">
Procedure TestJson;

function _foo(p:TJson):boolean;
begin
Result := false;
if 'a' in p then
begin
Result := p['a'];
end;
end;

begin
if _foo('{a:true}') then showMessage('ok') else showMessage('nok');
end;
</source>

* Enumérateurs
: Un json de type strutucture supporte l'énumérateur sur les clés
: Un json de type tableau supporte l'énumérateur sur les éléments

<source lang="delphi">
//Procedure TestJson;

procedure _enumValues(p:TJson);
var i:Integer; V:Variant;
begin
forEach V in p index i do
begin
showMessageFmt('%d:%s',[i,V]);
end;
end;

procedure _enumKeys(p:TJson);
var i:Integer; Key,Keys,stag:string;
begin
Keys := ''; stag := '';
forEach key in p index i do
begin
Keys := Keys+stag+inttostr(i)+':'+key;
stag := ',';
end;
showMessage(Keys);
end;

begin
_enumKeys('{a:true, b:false}');
_enumValues('[{a:true, b:false},{a:false, b:true}]');
end;
</source>

==Modèle==

===Classes===

* Méthode AllocOID

<source lang="delphi">class function AllocOID:TOID;</source>
* Alloue un oid de la classe
: Peut être utile dans les tests unitaires

* Méthode ToJson()

<source lang="delphi">procedure ToJson(SA:variant);</source>

* Sérialize l'objet en json
: SA peut être un TJsonArray ou un TJsonStruct

===Classes SQL===

* Options de rôle : NoRefIndex

* Options de rôle : NoForeignKey

==Script==

===Trace===

<source lang="delphi">procedure dbgClear();</source>
: Vide la trace

<source lang="delphi">procedure dbgEnable(value:boolean);</source>
: Active / désactive la trace

===Vue locale===

* Une vue locale peut contenir des attributs "oidXXX" sans définir le rôle

'''Exemple:'''

<source lang="delphi">
Type
vue1 = viewOf(ClassA)
p1:TEnum(enumName) = ...;
oidRef:TOID = oidrefB;
..
idRefB:TOID = oidrefB notInSelect;
[ (idRefB=%ArgRefB) and ....]
end;
</source>

* Une vue locale peut contenir des attributs non mappés dans la définition.

'''Exemple:'''

<source lang="delphi">
Type
vue1 = viewOf(ClassA)
ACount:Integer = count(oid)
oidRef:TOID;
codeRef:string;
libelleRef:string;
..
[ ...]
end;

var sel:TSelector;
begin
sel := vue1.createSelector();
case iGroupBy of
'refB':
begin
sel.AddColumn('oidrefB','oidRef');
sel.AddColumn('refB.code','codeRef');
sel.AddColumn('refB.Caption','libelleRef');
end;
'refC':
begin
sel.AddColumn('oidrefC','oidRef');
sel.AddColumn('refC.code','codeRef');
sel.AddColumn('refC.Caption','libelleRef');
end;
end;
end;
</source>

* Paramètre de type de donnée

<source lang="delphi">
Type
vue1 = viewOf(ClassA)
p1:TEnum(enumName) = ...;
end;
</source>

* Qualifier d'attribut NotInGroupBy

<source lang="delphi">
Type
vue1 = viewOf(ClassA)
p1:string = expression('...') notInGroupBy;
end;
</source>

* Héritage de vue locale

<source lang="delphi">
Type
vue1 = viewOf(ClassA)
p1:string = ...;
[...]
end;

vue2 = viewOf(vue1)
p1:string = ...;
[inherited and (...)]
end;
</source>

'''Exemple:'''

<source lang="delphi">
//function GetSelector(iGroupBy:string; iFilter:TJsonArray):TSelector;
Type
// défini une classe de base avec tous les filtres
//
vueEcritureLettrage = viewOf(TEcriture)
lettrable:boolean = compteGeneral.lettrable notInSelect;
idEtablissement:TOID = piece.oidEtablissement notInSelect;
idCompteGeneral:TOID = oidCompteGeneral notInSelect;
idRoleTiers:TOID = oidroleTiers notInSelect;
[(lettrable=true)
and ((oidLettrageEcriture='') or (dateLettrage=0))
and (typeEcriture<>0)
and (piece.lot.origineLot<>0)
and (eDate>=%ArgDateInf)
and (eDate<=%ArgDateSup)
and (idEtablissement=%ArgEtablissement)
and (idCompteGeneral=%ArgCompteGeneral)
and (idRoleTiers=%ArgRoleTiers)
]
end;

// Hérite de tous les filtres
//
vueEcritureLettrageGroupBy = viewOf(vueEcritureLettrage)
dateMin:TDatetime = min(eDate);
dateMax:TDatetime = max(eDate);
ACount:Integer = count(oid);
credit:Currency = sum('credit:TCValue');
debit:Currency = sum('debit:TCValue');
solde:Currency = sumDiff(debit,credit);
[inherited]
end;

begin
Result := vueLettrageGroupBy.CreateSelector('','',True,[]);
end;
</source>

* Scope de vue locale

Une vue locale peut être référencée en dehors de la méthode où elle est définie.

<source lang="delphi">
procedure Class1.foo;
Type
vue1 = viewOf(ClassA)
p1:string = ...;
end;
begin
...
end;

procedure Class2.bar;
Type
vue2 = viewOf(class1.foo.vue1)
p1:string = ...;
end;
begin
...
end;
</source>

* Expression Exists()

Une expression existe peut être utilisée dans les filtres comme une valeur logique

Note : Une expression Exists() est beaucoup plus rapide qu'un "Count<>0"

<source lang="delphi">
Type
vue1 = viewOf(ClassA)
id:string = ...;
end;

vue2 = viewOf(ClassB)
id:string = ...;
bb:boolean = vue1.Exists('(id=self.id)',True,[]) notInSelect;
[(bb=true) and (....)]
end;
</source>

* Expression de Sous requête

Une expression peut être définie par une sous requête

<source lang="delphi">
Type
VueTauxADate = ViewOf(TTauxADate)
idTVA : TOid = oidTVA;
tDate : Date = tDate;
taux : float = taux;
end;

vueMontantTVA = viewOf(TEcriture)
dateEcriture:TDatetime=eDate notInSelect;
oidTVA:TOID = ProfilTVA.oidTVA notInSelect;
oidPiece:TOID = oidPiece;
montantTVAReel:Currency = vueTauxADate.select('taux * self.montant_TCValue /100','(tDate<=self.dateEcriture)and(idTVA=self.oidTVA)','',True,[]);
montantTVAReel_CodeDevise:string = montantTVAReel:CodeDevise;
end;
</source>

==Sélecteur==

* lastOpeStamp, lastOpeAffected, lastOpeFirstOID
: Attributs mis à jour par la dernière opération assembliste.

* operationId, operation
: Permet d'enregistrer les opérations dans la table TdbfLogOpe
: S'applique à CopyTo()

* RmvParameter()
: Permet de retirer un paramètre qui a été ajouté par AddParameter()

* Amélioration de CopyTo
: Permet de créer des objets à partir d'un sélecteur

* CopyTo, Update, UpdateFrom
: Fonctionne sur les classes de stéréotype SQL

===TsqlOperation===

Classe SQL définie par le framework et permettant d'enregistrer les opérations du sélecteur

<source lang="delphi">
TsqlOperation = Class(TsqlObject)
public
class procedure CleanOpe(iOpeId:string);
//
property action: StringS[128];
property id: SQLIdentity;
property oidSourceObject: TOID;
property oidTargetObject: TOID;
property opeId: StringS[128];
property operation: StringS[128];
property SourceObject: Ref(roGeneric,roNotExternal,roNoForeignKey,roNoRoleIndex) of TitObject;
property TargetObject: Ref(roGeneric,roNotExternal,roNoForeignKey,roNoRoleIndex) of TitObject;
end;
</source>

* opeId, operationId
: Un identifiant unique (guid) identifiant l'ensemble des opérations

* opération
: Nom de l'opération dans l'ensemble des opérations

* action
: Action de l'opération
: Par exemple INSERT pour un CopyTo

* oidSourceObject
: identifiant de l'objet source dans l'opération
: Par exemple l'objet source de la copie pour un CopyTo

* oidTargetObject
: identifiant de l'objet cible dans l'opération
: Par exemple l'objet copié par un CopyTo

'''Exemple d'utilisation:'''

<source lang="delphi">

// Créer des écritures a partir des réglements
//
procedure _doCreateEcritureReglements(iOidPiece:string; iOpeId:string);
var sel:TSelector;
begin
sel := vueEcritureReglement.CreateSelector('(oidBordereau=%1)','',True,[oidBordereauReglement]);
sel.AddParameter('ArgBordereau',oidBordereauReglement);
sel.Operation := 'EcrReg';
sel.OpeId := iOpeId;
//
sel.CopyTo('TEcriture',['oidpiece','eDate','sens','sensProrata','regimeTVA','typeEcriture'],[
iOidPiece,
BordereauReglement.dateReglement,
sens_credit,
sens_credit,
regimeTVA_Encaissements,
typeEcriture_Brouillard
]);
end;

Type
vueUpdateReglement = viewOf(TReglement)
vl:TsqlOperation = join('(opeId=%ArgOpeId) and (operation=%ArgOperation) and (oidSourceObject=self.oid)');
oidEcriture:TOID = oidEcriture;
oidTargetEcriture:TOID = vl.oidTargetObject;
oidBordereau:TOID = oidBordereauReglement;
end;

// Met à jour l'oidEcriture créée sur les réglements correspondants
..
procedure _doUpdateReglementsEcriture(iOidPiece:string; iOpeId:string);
var sel:TSelector;
begin
sel := vueUpdateReglement.CreateSelector('(oidBordereau=%1)','',True,[oidBordereauReglement]);
sel.AddParameter('ArgOpeId',iOpeId);
sel.AddParameter('ArgOperation','EcrReg');
//
sel.Update(['oidEcriture'],['oidTargetEcriture']);
end;

begin
aOpeId := CreateGuid;
withP long transaction do
begin
aOidPiece := _doCreatePiece();
_doCreateEcritureReglements(aOidPiece,aOpeId);
_doUpdateReglementsEcriture(aOidPice,aOpeId);
...
TsqlOperation.CleanOpe(aOpeId);
end;
end;

</source>

===ToJson()===

<source lang="delphi">procedure ToJson(SA:TJsonArray);</source>

Sérialize tous les objets retournés par le sélecteur au format JSon comptabible avec les tables react

'''Exemple:'''

<source lang="delphi">

//procedure GetData(SRows:TJsonArray);
Type
myView = viewOf(...)
...
end;

var sel:TSelector;
begin
// Selector to retreive the data
//
sel := myView.CreateSelector('','',True,[]);
sel.ToJson(SRows);
end;
</source>

===UpdateFrom()===

<source lang="delphi">
function updateFrom(sel:TSelector; iMatchedProps:Array of string; iUpdatedProps:Array of string; iUpdatedValue:Array of variant):Integer;
</source>

Permet de mettre à jour une classe à partir d'un sélecteur et d'une colonne de correspondance.

'''Exemple :'''

<source lang="delphi">
Type
// Update the temp table
vueTemp = viewOf(TempLettrage)
reference1:string = reference1;
reference2:string = reference2;
modeLettrage:Integer = modeLettrage;
end;

vueRef1 = viewOf(TempLettrage)
//ACount:Integer = count(id);
ATotal:Currency = sumSign(montant:TCValue,sens,'1');
reference1:string = reference1;
[(modeLettrage=0) and (reference1<>'')]
end;

var selT,selG:TSelector;
begin
withP long transaction do
begin
// for updating the temp table on "match"
selT := vueTemp.CreateSelector('','',True,[]);

// Lettrage sur reference 1
selG := vueRef1.CreateSelector('(ATotal=0)','',True,[]);
selG.useCTE := True;
selT.UpdateFrom(selG,['reference1'],['modeLettrage'],[1]);
end;
end;
</source>

<pre>
with CTE as (
select sum(case when t0.sens=1 then ISNULL(t0.montant_TCValue, 0) else -ISNULL(t0.montant_TCValue, 0) end) as "ATotal",t0.reference1 as "reference1"
from dbo.TEMPLETTRAGE t0 WITH (NOLOCK)
where ((t0.modeLettrage = 0) and (t0.reference1 IS NOT NULL))
group by t0.reference1
)
merge into dbo.TEMPLETTRAGE tm0 using (
SELECT *
FROM CTE
Where (ATotal = 0.0000)
) tm1 on (tm1.reference1=tm0.reference1)
when matched then update set
tm0.modeLettrage = 1
;
</pre>

==Updater==

Classe technique permettant de mettre à jour un attribut sur un ensemble d'objet.

'''Exemple : Mise à jour des compteurs qui ne peuvent pas être déterminés en SQL'''

<source lang="delphi">
Type
// Should returns all attributes part of the counter
//
vueNumeroPiece = viewOf(TPiece)
pDate:TDatetime = pDate;
numero:TCounter = numero;
end;

procedure _doUpdateNumeroPiece(iOidPiece:string);
var sel:TSelector; vueNP:vueNumeroPiece; upd:TUpdater;
begin
upd := TPiece.CreateUpdater('numero');
//
sel := vueNumeroPiece.CreateSelector('(oid=%1)','',True,[iOidPiece]);
forEach vueNP in sel.AsCursor do
begin
vueNP.numero.AllocValue;
upd.AddValue(vueNP.OID,vueNP.numero.value);
end;
//
upd.Execute;
end;

begin

end;

</source>

[[Category:Version 2025 R2]]
[[Category:Release note]]

Version 2025 r2 (release note)

2025-05-22T07:18:01Z

Syfre : /* Langage */

{{version2025r1}}
__TOC__

''' PREVIEW '''

==Langage==

* Valeur par défaut de paramètre
: Il est possible de définir des valeurs par défaut aux paramètres des méthodes

<source lang="delphi">
MyClass = Class(TitObject)
Procedure TestDeffParams;
Procedure TestDefParamBool(p1:string; p2:boolean=true);
Procedure TestDefParamJson(p1:string; p2:TJson=nil);
Procedure TestDefParamJson2(p1:string; p2:TJson='{a:false}');
Procedure TestDefParamEnum(p1:string; p2:Integer=WFCAState_Etat2);
Procedure TestDefParamMulti(p1:string; p2:string='a'; p3:string='b');
Function TestDefParamOne(p1:string='a'):string;
Function TestDefParamFunc(p1:string='a'):string;
end;

Procedure MyClass.TestDeffParams;
var V:string;
begin
V := TestDefParamFunc('c');
ShowMessage(V);

TestDefParamOne;
TestDefParamOne();
TestDefParamOne('x');

TestDefParamMulti('a');
TestDefParamMulti('a','1');
TestDefParamMulti('a','1','2');

TestDefParamBool('a');
TestDefParamBool('a',false);
TestDefParamBool('a',true);

TestDefParamJson2('b');
TestDefParamJson2('b','{a:true}');

TestDefParamEnum('c');
TestDefParamEnum('c',WFCAState_Final);
end;
</source>

* Paramètre de type classe
: Les paramètres de type classe peuvent être passé directement

<source lang="delphi">
Type
MyClass1 = class
class procedure foo(rg:TRegClass);
end;

MyClass2 = class
....
end;

MyClass3 = class
procedure oldbar();
procedure newbar();
end;

class procedure MyClass1.foo(rg:TRegClass);
begin
// => MyClass2
showMessage(rg.aClassName);
end;

procedure MyClass3.oldbar();
var rg:TRegClass;
begin
ModelManager.FindClass('MyClass2');
myClass1.foo(rg);
end;

procedure MyClass3.newbar();
begin
myClass1.foo(MyClass2);
end;
</source>

==Modèle==

===Classes===

* Méthode AllocOID

<source lang="delphi">class function AllocOID:TOID;</source>
* Alloue un oid de la classe
: Peut être utile dans les tests unitaires

* Méthode ToJson()

<source lang="delphi">procedure ToJson(SA:variant);</source>

* Sérialize l'objet en json
: SA peut être un TJsonArray ou un TJsonStruct

===Classes SQL===

* Options de rôle : NoRefIndex

* Options de rôle : NoForeignKey

==Script==

===Trace===

<source lang="delphi">procedure dbgClear();</source>
: Vide la trace

<source lang="delphi">procedure dbgEnable(value:boolean);</source>
: Active / désactive la trace

===Vue locale===

* Une vue locale peut contenir des attributs "oidXXX" sans définir le rôle

'''Exemple:'''

<source lang="delphi">
Type
vue1 = viewOf(ClassA)
p1:TEnum(enumName) = ...;
oidRef:TOID = oidrefB;
..
idRefB:TOID = oidrefB notInSelect;
[ (idRefB=%ArgRefB) and ....]
end;
</source>

* Une vue locale peut contenir des attributs non mappés dans la définition.

'''Exemple:'''

<source lang="delphi">
Type
vue1 = viewOf(ClassA)
ACount:Integer = count(oid)
oidRef:TOID;
codeRef:string;
libelleRef:string;
..
[ ...]
end;

var sel:TSelector;
begin
sel := vue1.createSelector();
case iGroupBy of
'refB':
begin
sel.AddColumn('oidrefB','oidRef');
sel.AddColumn('refB.code','codeRef');
sel.AddColumn('refB.Caption','libelleRef');
end;
'refC':
begin
sel.AddColumn('oidrefC','oidRef');
sel.AddColumn('refC.code','codeRef');
sel.AddColumn('refC.Caption','libelleRef');
end;
end;
end;
</source>

* Paramètre de type de donnée

<source lang="delphi">
Type
vue1 = viewOf(ClassA)
p1:TEnum(enumName) = ...;
end;
</source>

* Qualifier d'attribut NotInGroupBy

<source lang="delphi">
Type
vue1 = viewOf(ClassA)
p1:string = expression('...') notInGroupBy;
end;
</source>

* Héritage de vue locale

<source lang="delphi">
Type
vue1 = viewOf(ClassA)
p1:string = ...;
[...]
end;

vue2 = viewOf(vue1)
p1:string = ...;
[inherited and (...)]
end;
</source>

'''Exemple:'''

<source lang="delphi">
//function GetSelector(iGroupBy:string; iFilter:TJsonArray):TSelector;
Type
// défini une classe de base avec tous les filtres
//
vueEcritureLettrage = viewOf(TEcriture)
lettrable:boolean = compteGeneral.lettrable notInSelect;
idEtablissement:TOID = piece.oidEtablissement notInSelect;
idCompteGeneral:TOID = oidCompteGeneral notInSelect;
idRoleTiers:TOID = oidroleTiers notInSelect;
[(lettrable=true)
and ((oidLettrageEcriture='') or (dateLettrage=0))
and (typeEcriture<>0)
and (piece.lot.origineLot<>0)
and (eDate>=%ArgDateInf)
and (eDate<=%ArgDateSup)
and (idEtablissement=%ArgEtablissement)
and (idCompteGeneral=%ArgCompteGeneral)
and (idRoleTiers=%ArgRoleTiers)
]
end;

// Hérite de tous les filtres
//
vueEcritureLettrageGroupBy = viewOf(vueEcritureLettrage)
dateMin:TDatetime = min(eDate);
dateMax:TDatetime = max(eDate);
ACount:Integer = count(oid);
credit:Currency = sum('credit:TCValue');
debit:Currency = sum('debit:TCValue');
solde:Currency = sumDiff(debit,credit);
[inherited]
end;

begin
Result := vueLettrageGroupBy.CreateSelector('','',True,[]);
end;
</source>

* Scope de vue locale

Une vue locale peut être référencée en dehors de la méthode où elle est définie.

<source lang="delphi">
procedure Class1.foo;
Type
vue1 = viewOf(ClassA)
p1:string = ...;
end;
begin
...
end;

procedure Class2.bar;
Type
vue2 = viewOf(class1.foo.vue1)
p1:string = ...;
end;
begin
...
end;
</source>

* Expression Exists()

Une expression existe peut être utilisée dans les filtres comme une valeur logique

Note : Une expression Exists() est beaucoup plus rapide qu'un "Count<>0"

<source lang="delphi">
Type
vue1 = viewOf(ClassA)
id:string = ...;
end;

vue2 = viewOf(ClassB)
id:string = ...;
bb:boolean = vue1.Exists('(id=self.id)',True,[]) notInSelect;
[(bb=true) and (....)]
end;
</source>

* Expression de Sous requête

Une expression peut être définie par une sous requête

<source lang="delphi">
Type
VueTauxADate = ViewOf(TTauxADate)
idTVA : TOid = oidTVA;
tDate : Date = tDate;
taux : float = taux;
end;

vueMontantTVA = viewOf(TEcriture)
dateEcriture:TDatetime=eDate notInSelect;
oidTVA:TOID = ProfilTVA.oidTVA notInSelect;
oidPiece:TOID = oidPiece;
montantTVAReel:Currency = vueTauxADate.select('taux * self.montant_TCValue /100','(tDate<=self.dateEcriture)and(idTVA=self.oidTVA)','',True,[]);
montantTVAReel_CodeDevise:string = montantTVAReel:CodeDevise;
end;
</source>

==Sélecteur==

* lastOpeStamp, lastOpeAffected, lastOpeFirstOID
: Attributs mis à jour par la dernière opération assembliste.

* operationId, operation
: Permet d'enregistrer les opérations dans la table TdbfLogOpe
: S'applique à CopyTo()

* RmvParameter()
: Permet de retirer un paramètre qui a été ajouté par AddParameter()

* Amélioration de CopyTo
: Permet de créer des objets à partir d'un sélecteur

* CopyTo, Update, UpdateFrom
: Fonctionne sur les classes de stéréotype SQL

===TsqlOperation===

Classe SQL définie par le framework et permettant d'enregistrer les opérations du sélecteur

<source lang="delphi">
TsqlOperation = Class(TsqlObject)
public
class procedure CleanOpe(iOpeId:string);
//
property action: StringS[128];
property id: SQLIdentity;
property oidSourceObject: TOID;
property oidTargetObject: TOID;
property opeId: StringS[128];
property operation: StringS[128];
property SourceObject: Ref(roGeneric,roNotExternal,roNoForeignKey,roNoRoleIndex) of TitObject;
property TargetObject: Ref(roGeneric,roNotExternal,roNoForeignKey,roNoRoleIndex) of TitObject;
end;
</source>

* opeId, operationId
: Un identifiant unique (guid) identifiant l'ensemble des opérations

* opération
: Nom de l'opération dans l'ensemble des opérations

* action
: Action de l'opération
: Par exemple INSERT pour un CopyTo

* oidSourceObject
: identifiant de l'objet source dans l'opération
: Par exemple l'objet source de la copie pour un CopyTo

* oidTargetObject
: identifiant de l'objet cible dans l'opération
: Par exemple l'objet copié par un CopyTo

'''Exemple d'utilisation:'''

<source lang="delphi">

// Créer des écritures a partir des réglements
//
procedure _doCreateEcritureReglements(iOidPiece:string; iOpeId:string);
var sel:TSelector;
begin
sel := vueEcritureReglement.CreateSelector('(oidBordereau=%1)','',True,[oidBordereauReglement]);
sel.AddParameter('ArgBordereau',oidBordereauReglement);
sel.Operation := 'EcrReg';
sel.OpeId := iOpeId;
//
sel.CopyTo('TEcriture',['oidpiece','eDate','sens','sensProrata','regimeTVA','typeEcriture'],[
iOidPiece,
BordereauReglement.dateReglement,
sens_credit,
sens_credit,
regimeTVA_Encaissements,
typeEcriture_Brouillard
]);
end;

Type
vueUpdateReglement = viewOf(TReglement)
vl:TsqlOperation = join('(opeId=%ArgOpeId) and (operation=%ArgOperation) and (oidSourceObject=self.oid)');
oidEcriture:TOID = oidEcriture;
oidTargetEcriture:TOID = vl.oidTargetObject;
oidBordereau:TOID = oidBordereauReglement;
end;

// Met à jour l'oidEcriture créée sur les réglements correspondants
..
procedure _doUpdateReglementsEcriture(iOidPiece:string; iOpeId:string);
var sel:TSelector;
begin
sel := vueUpdateReglement.CreateSelector('(oidBordereau=%1)','',True,[oidBordereauReglement]);
sel.AddParameter('ArgOpeId',iOpeId);
sel.AddParameter('ArgOperation','EcrReg');
//
sel.Update(['oidEcriture'],['oidTargetEcriture']);
end;

begin
aOpeId := CreateGuid;
withP long transaction do
begin
aOidPiece := _doCreatePiece();
_doCreateEcritureReglements(aOidPiece,aOpeId);
_doUpdateReglementsEcriture(aOidPice,aOpeId);
...
TsqlOperation.CleanOpe(aOpeId);
end;
end;

</source>

===ToJson()===

<source lang="delphi">procedure ToJson(SA:TJsonArray);</source>

Sérialize tous les objets retournés par le sélecteur au format JSon comptabible avec les tables react

'''Exemple:'''

<source lang="delphi">

//procedure GetData(SRows:TJsonArray);
Type
myView = viewOf(...)
...
end;

var sel:TSelector;
begin
// Selector to retreive the data
//
sel := myView.CreateSelector('','',True,[]);
sel.ToJson(SRows);
end;
</source>

===UpdateFrom()===

<source lang="delphi">
function updateFrom(sel:TSelector; iMatchedProps:Array of string; iUpdatedProps:Array of string; iUpdatedValue:Array of variant):Integer;
</source>

Permet de mettre à jour une classe à partir d'un sélecteur et d'une colonne de correspondance.

'''Exemple :'''

<source lang="delphi">
Type
// Update the temp table
vueTemp = viewOf(TempLettrage)
reference1:string = reference1;
reference2:string = reference2;
modeLettrage:Integer = modeLettrage;
end;

vueRef1 = viewOf(TempLettrage)
//ACount:Integer = count(id);
ATotal:Currency = sumSign(montant:TCValue,sens,'1');
reference1:string = reference1;
[(modeLettrage=0) and (reference1<>'')]
end;

var selT,selG:TSelector;
begin
withP long transaction do
begin
// for updating the temp table on "match"
selT := vueTemp.CreateSelector('','',True,[]);

// Lettrage sur reference 1
selG := vueRef1.CreateSelector('(ATotal=0)','',True,[]);
selG.useCTE := True;
selT.UpdateFrom(selG,['reference1'],['modeLettrage'],[1]);
end;
end;
</source>

<pre>
with CTE as (
select sum(case when t0.sens=1 then ISNULL(t0.montant_TCValue, 0) else -ISNULL(t0.montant_TCValue, 0) end) as "ATotal",t0.reference1 as "reference1"
from dbo.TEMPLETTRAGE t0 WITH (NOLOCK)
where ((t0.modeLettrage = 0) and (t0.reference1 IS NOT NULL))
group by t0.reference1
)
merge into dbo.TEMPLETTRAGE tm0 using (
SELECT *
FROM CTE
Where (ATotal = 0.0000)
) tm1 on (tm1.reference1=tm0.reference1)
when matched then update set
tm0.modeLettrage = 1
;
</pre>

==Updater==

Classe technique permettant de mettre à jour un attribut sur un ensemble d'objet.

'''Exemple : Mise à jour des compteurs qui ne peuvent pas être déterminés en SQL'''

<source lang="delphi">
Type
// Should returns all attributes part of the counter
//
vueNumeroPiece = viewOf(TPiece)
pDate:TDatetime = pDate;
numero:TCounter = numero;
end;

procedure _doUpdateNumeroPiece(iOidPiece:string);
var sel:TSelector; vueNP:vueNumeroPiece; upd:TUpdater;
begin
upd := TPiece.CreateUpdater('numero');
//
sel := vueNumeroPiece.CreateSelector('(oid=%1)','',True,[iOidPiece]);
forEach vueNP in sel.AsCursor do
begin
vueNP.numero.AllocValue;
upd.AddValue(vueNP.OID,vueNP.numero.value);
end;
//
upd.Execute;
end;

begin

end;

</source>

[[Category:Version 2025 R2]]
[[Category:Release note]]

Tableaux de bord (dev)

2025-05-06T08:17:51Z

Syfre : /* Principe */

__NOTOC__

A partir de la version 11 2024 une nouvelle API permet de réaliser des tableaux de bord dans le portail basé sur le framework React.

{{tip|L'ancienne API de tableau de bord est dépréciée}}

==Principe==

Un tableau de bord peut être considéré comme une interface organisée en vignettes (widgets) disposés sur une grille.

==Développement==

Dans le modèle 1000 un tableau de bord est une classe non persistante

==Environnement de développement==

===A partir de l'application Desktop===

Vous pouvez développer un tableau de bord à partir de l'application Desktop.

Pour cela devez disposer d'un environnement de service 1000 contenant le site html.

Dans le concepteur de modèle

* Définissez le répertoire du site htmls du Service 1000.
* Démarrez le serveur htpp de développement.

L'url du portail géré par le serveur de développement sera indiqué dans la page.

A partir de cette adresse vous pouvez exécuter le portal 1000 et développer les tableaux de bord

===A partir des sources du portail React===

Si vous disposez d'un accès aux sources du portail React vous pouvez développer à partir du serveur de l'environnement de développement React (Visual Studio Code) et de l'application 1000 Desktop.

Ceci vous permettra de tracer le code javascript du portail.

Pour cela :

* Installer l'environnement de développement React (Visual Studio code)

* Cloner ou copier le projet React

Dans le fichier ".env.developpement" du projet vous devez avoir les variable :

<pre>
REACT_APP_API_URL=http://localhost:8080/sdata
REACT_APP_API_PACKAGE=htmlportalPackage
</pre>

* Ouvrir le répertoire du projet React
* Dans une fenêtre terminal bash exécuter
: "yarn install"
: "yarn start"

Le serveur de développement React démarre sur http://localhost:3000

Le serveur de développement de l'application Desktop doit être démarré.

[[Category:Tableaux de bord]]

Tableaux de bord (dev)

2025-05-06T08:15:05Z

Syfre : /* A partir des sources du Portail React */

__NOTOC__

A partir de la version 11 2024 une nouvelle API permet de réaliser des tableaux de bord dans le portail basé sur le framework React.

{{tip|L'ancienne API de tableau de bord est dépréciée}}

==Principe==

Un tableau de bord peut être considéré comme une interface organisée en vignettes (widgets) disposés sur une grille.

==Environnement de développement==

===A partir de l'application Desktop===

Vous pouvez développer un tableau de bord à partir de l'application Desktop.

Pour cela devez disposer d'un environnement de service 1000 contenant le site html.

Dans le concepteur de modèle

* Définissez le répertoire du site htmls du Service 1000.
* Démarrez le serveur htpp de développement.

L'url du portail géré par le serveur de développement sera indiqué dans la page.

A partir de cette adresse vous pouvez exécuter le portal 1000 et développer les tableaux de bord

===A partir des sources du portail React===

Si vous disposez d'un accès aux sources du portail React vous pouvez développer à partir du serveur de l'environnement de développement React (Visual Studio Code) et de l'application 1000 Desktop.

Ceci vous permettra de tracer le code javascript du portail.

Pour cela :

* Installer l'environnement de développement React (Visual Studio code)

* Cloner ou copier le projet React

Dans le fichier ".env.developpement" du projet vous devez avoir les variable :

<pre>
REACT_APP_API_URL=http://localhost:8080/sdata
REACT_APP_API_PACKAGE=htmlportalPackage
</pre>

* Ouvrir le répertoire du projet React
* Dans une fenêtre terminal bash exécuter
: "yarn install"
: "yarn start"

Le serveur de développement React démarre sur http://localhost:3000

Le serveur de développement de l'application Desktop doit être démarré.

[[Category:Tableaux de bord]]

Tableaux de bord (dev)

2025-05-06T08:13:45Z

Syfre : Page créée avec « __NOTOC__ A partir de la version 11 2024 une nouvelle API permet de réaliser des tableaux de bord dans le portail basé sur le framework React. {{tip|L'ancienne API de ... »

__NOTOC__

A partir de la version 11 2024 une nouvelle API permet de réaliser des tableaux de bord dans le portail basé sur le framework React.

{{tip|L'ancienne API de tableau de bord est dépréciée}}

==Principe==

Un tableau de bord peut être considéré comme une interface organisée en vignettes (widgets) disposés sur une grille.

==Environnement de développement==

===A partir de l'application Desktop===

Vous pouvez développer un tableau de bord à partir de l'application Desktop.

Pour cela devez disposer d'un environnement de service 1000 contenant le site html.

Dans le concepteur de modèle

* Définissez le répertoire du site htmls du Service 1000.
* Démarrez le serveur htpp de développement.

L'url du portail géré par le serveur de développement sera indiqué dans la page.

A partir de cette adresse vous pouvez exécuter le portal 1000 et développer les tableaux de bord

===A partir des sources du Portail React===

Si vous disposez d'un accès aux sources du portail React vous pouvez développer à partir du serveur de l'environnement de développement React (Visual Studio Code) et de l'application 1000 Desktop.

Pour cela :

* Installer l'environnement de développement React (Visual Studio code)

* Cloner ou copier le projet React

Dans le fichier ".env.developpement" du projet vous devez avoir les variable :

<pre>
REACT_APP_API_URL=http://localhost:8080/sdata
REACT_APP_API_PACKAGE=htmlportalPackage
</pre>

* Ouvrir le répertoire du projet React
* Dans une fenêtre terminal bash exécuter
: "yarn install"
: "yarn start"

Le serveur de développement React démarre sur http://localhost:3000

Le serveur de développement de l'application Desktop doit être démarré.

[[Category:Tableaux de bord]]

Main Page

2025-05-06T07:33:10Z

Syfre : /* Guides des développeurs */

__NOTOC__
=Sage FRP 1000 =

===Architectures===
* [[Vue d'ensemble 1000 (arch)|Vue d'ensemble]]
* [[Architecture 2 Tiers (arch)|Architecture 2 Tiers]]
* [[Architecture 3 Tiers (arch)|Architecture 3 Tiers]]
* [[Architecture cluster (arch)|Architecture cluster]]

===Guides des administrateurs===

* [[Administration (admin)|Administration]]
* [[Console d'administration (admin)|Référence de la console d'administration]]
* [[Flux d'administration|Flux d'administration]]

===Guides des intégrateurs===

* [[Automates|Automates]]
* [[Processus Métiers (bp)|Processus Métiers et Workflow]]
* [[Imports|Imports]]
* [[Exports|Exports]]
* [[Guide de la traduction|Traduction]]
* [[Pilotage|Pilotage]]
* [[Publication|Publication]]
* [[Portail|Portail]]
* [[Serveur|Serveur]]
* [[Complément Outlook (Outlook)|Complément Outlook]]
* [[Complément Excel (Excel)|Complément Excel]]

===Guides des développeurs===

* [[Développement ESM|Guide de développement ESM]]
* [[Développement DSM|Guide de développement DSM]]
{{IfLatest|
* [[Développement Mobile|Guide de développement d'applications Mobiles]]
}}
* [[Processus Métiers (bp)|Guide des processus métiers et Workflow]]
* [[Web Services (ws)|Guide de développement de Web Services]]
* [[SData|Guide de développement de l'API Rest SData]]
* [[Tableaux de bord (dev)|Guide de développement des Tableaux de bord]]

* [[Concepteur de modèle|Concepteur de modèle]]
* [[Concepteur d'écran|Concepteur d'écran]]
* [[Concepteur de requêtes (Concepteur de requêtes)|Concepteur de requête]]
* [[Guide des formats |Guide des formats de génération/intégration de fichier]]
* [[Référence_pour_les_formats_de_fichier|Référence pour les formats de fichier]]

===Références===

* [[:Category:RTL|Référence du langage et de l'API]]
* [[Référence des styles|Référence des styles desktop]]
* [[Référence des styles web|Référence des styles webtop]]

===Vidéos===
* [[:Category:Video|Didactitiels vidéo (nécessite flash version 9.02 ou plus)]]

===Versions===

* [[Version 6.00 (release note)|Version 6.00]]
* [[Version 6.50 (release note)|Version 6.50]]
* [[Version 7.00 (release note)|Version 7.00]]
* [[Version 7.10 (release_note)|Version 7.10]]
* [[Version 8.00 (release_note)|Version 8.00]]
* [[Version 9.00 (release_note)|Version 9.00]]
* [[Version 9.10 (release_note)|Version 9.10]]
* [[Version 9.20 (release_note)|Version 9.20]]
* [[Version 10.00 (release_note)|Version 10.00]]
* [[Version 11.00 (release_note)|Version 11.00]]
* [[Version 2024 r1 (release_note)|Version 2024 r1]]
* [[Version 2024 r2 (release_note)|Version 2024 r2]]
* [[Version 2025 r1 (release_note)|Version 2025 r1]]
* [[Version 2025 r2 (release_note)|Version 2025 r2]]

===Documents===
* [[Documents|Documents]]

Concepteur de Tableaux de bord

2025-05-06T07:00:57Z

Syfre :

{{Warning|A partir de la version 2024 le concepteur de Tableau de bord est déprécié.}}

Le concepteur de tableaux de bord est un outil permettant de concevoir et de visualiser des tableaux de bord.

Le concepteur de tableaux de bord est une application autonome utilisable indépendamment de l'Application Web.

L'url de l'application est accessible à partir de l'url du service :

http(s)://domain/service/widgets/index.html

Cet url est exposée dans le panneau de Portail de l'Application Web.

[[image:dashboard-1.png]]

Les tableaux de bord réalisé avec cet outil peuvent être visualisé :
* Soit dans le concepteur de Tableaux de bord
* Soit dans un onglet de portail de l'Application Web.

[[Category:Portail]]
[[Category:Tableaux de bord]]

Version 2025 r2 (release note)

2025-04-27T08:01:25Z

Syfre : /* UpdateFrom() */

{{version2025r1}}
__TOC__

''' PREVIEW '''

==Langage==

* Paramètre de type classe
: Les paramètres de type classe peuvent être passé directement

<source lang="delphi">
Type
MyClass1 = class
class procedure foo(rg:TRegClass);
end;

MyClass2 = class
....
end;

MyClass3 = class
procedure oldbar();
procedure newbar();
end;

class procedure MyClass1.foo(rg:TRegClass);
begin
// => MyClass2
showMessage(rg.aClassName);
end;

procedure MyClass3.oldbar();
var rg:TRegClass;
begin
ModelManager.FindClass('MyClass2');
myClass1.foo(rg);
end;

procedure MyClass3.newbar();
begin
myClass1.foo(MyClass2);
end;
</source>

==Modèle==

===Classes===

* Méthode AllocOID

<source lang="delphi">class function AllocOID:TOID;</source>
* Alloue un oid de la classe
: Peut être utile dans les tests unitaires

* Méthode ToJson()

<source lang="delphi">procedure ToJson(SA:variant);</source>

* Sérialize l'objet en json
: SA peut être un TJsonArray ou un TJsonStruct

===Classes SQL===

* Options de rôle : NoRefIndex

* Options de rôle : NoForeignKey

==Script==

===Trace===

<source lang="delphi">procedure dbgClear();</source>
: Vide la trace

<source lang="delphi">procedure dbgEnable(value:boolean);</source>
: Active / désactive la trace

===Vue locale===

* Une vue locale peut contenir des attributs "oidXXX" sans définir le rôle

'''Exemple:'''

<source lang="delphi">
Type
vue1 = viewOf(ClassA)
p1:TEnum(enumName) = ...;
oidRef:TOID = oidrefB;
..
idRefB:TOID = oidrefB notInSelect;
[ (idRefB=%ArgRefB) and ....]
end;
</source>

* Une vue locale peut contenir des attributs non mappés dans la définition.

'''Exemple:'''

<source lang="delphi">
Type
vue1 = viewOf(ClassA)
ACount:Integer = count(oid)
oidRef:TOID;
codeRef:string;
libelleRef:string;
..
[ ...]
end;

var sel:TSelector;
begin
sel := vue1.createSelector();
case iGroupBy of
'refB':
begin
sel.AddColumn('oidrefB','oidRef');
sel.AddColumn('refB.code','codeRef');
sel.AddColumn('refB.Caption','libelleRef');
end;
'refC':
begin
sel.AddColumn('oidrefC','oidRef');
sel.AddColumn('refC.code','codeRef');
sel.AddColumn('refC.Caption','libelleRef');
end;
end;
end;
</source>

* Paramètre de type de donnée

<source lang="delphi">
Type
vue1 = viewOf(ClassA)
p1:TEnum(enumName) = ...;
end;
</source>

* Qualifier d'attribut NotInGroupBy

<source lang="delphi">
Type
vue1 = viewOf(ClassA)
p1:string = expression('...') notInGroupBy;
end;
</source>

* Héritage de vue locale

<source lang="delphi">
Type
vue1 = viewOf(ClassA)
p1:string = ...;
[...]
end;

vue2 = viewOf(vue1)
p1:string = ...;
[inherited and (...)]
end;
</source>

'''Exemple:'''

<source lang="delphi">
//function GetSelector(iGroupBy:string; iFilter:TJsonArray):TSelector;
Type
// défini une classe de base avec tous les filtres
//
vueEcritureLettrage = viewOf(TEcriture)
lettrable:boolean = compteGeneral.lettrable notInSelect;
idEtablissement:TOID = piece.oidEtablissement notInSelect;
idCompteGeneral:TOID = oidCompteGeneral notInSelect;
idRoleTiers:TOID = oidroleTiers notInSelect;
[(lettrable=true)
and ((oidLettrageEcriture='') or (dateLettrage=0))
and (typeEcriture<>0)
and (piece.lot.origineLot<>0)
and (eDate>=%ArgDateInf)
and (eDate<=%ArgDateSup)
and (idEtablissement=%ArgEtablissement)
and (idCompteGeneral=%ArgCompteGeneral)
and (idRoleTiers=%ArgRoleTiers)
]
end;

// Hérite de tous les filtres
//
vueEcritureLettrageGroupBy = viewOf(vueEcritureLettrage)
dateMin:TDatetime = min(eDate);
dateMax:TDatetime = max(eDate);
ACount:Integer = count(oid);
credit:Currency = sum('credit:TCValue');
debit:Currency = sum('debit:TCValue');
solde:Currency = sumDiff(debit,credit);
[inherited]
end;

begin
Result := vueLettrageGroupBy.CreateSelector('','',True,[]);
end;
</source>

* Scope de vue locale

Une vue locale peut être référencée en dehors de la méthode où elle est définie.

<source lang="delphi">
procedure Class1.foo;
Type
vue1 = viewOf(ClassA)
p1:string = ...;
end;
begin
...
end;

procedure Class2.bar;
Type
vue2 = viewOf(class1.foo.vue1)
p1:string = ...;
end;
begin
...
end;
</source>

* Expression Exists()

Une expression existe peut être utilisée dans les filtres comme une valeur logique

Note : Une expression Exists() est beaucoup plus rapide qu'un "Count<>0"

<source lang="delphi">
Type
vue1 = viewOf(ClassA)
id:string = ...;
end;

vue2 = viewOf(ClassB)
id:string = ...;
bb:boolean = vue1.Exists('(id=self.id)',True,[]) notInSelect;
[(bb=true) and (....)]
end;
</source>

* Expression de Sous requête

Une expression peut être définie par une sous requête

<source lang="delphi">
Type
VueTauxADate = ViewOf(TTauxADate)
idTVA : TOid = oidTVA;
tDate : Date = tDate;
taux : float = taux;
end;

vueMontantTVA = viewOf(TEcriture)
dateEcriture:TDatetime=eDate notInSelect;
oidTVA:TOID = ProfilTVA.oidTVA notInSelect;
oidPiece:TOID = oidPiece;
montantTVAReel:Currency = vueTauxADate.select('taux * self.montant_TCValue /100','(tDate<=self.dateEcriture)and(idTVA=self.oidTVA)','',True,[]);
montantTVAReel_CodeDevise:string = montantTVAReel:CodeDevise;
end;
</source>

==Sélecteur==

* lastOpeStamp, lastOpeAffected, lastOpeFirstOID
: Attributs mis à jour par la dernière opération assembliste.

* operationId, operation
: Permet d'enregistrer les opérations dans la table TdbfLogOpe
: S'applique à CopyTo()

* RmvParameter()
: Permet de retirer un paramètre qui a été ajouté par AddParameter()

* Amélioration de CopyTo
: Permet de créer des objets à partir d'un sélecteur

* CopyTo, Update, UpdateFrom
: Fonctionne sur les classes de stéréotype SQL

===TsqlOperation===

Classe SQL définie par le framework et permettant d'enregistrer les opérations du sélecteur

<source lang="delphi">
TsqlOperation = Class(TsqlObject)
public
class procedure CleanOpe(iOpeId:string);
//
property action: StringS[128];
property id: SQLIdentity;
property oidSourceObject: TOID;
property oidTargetObject: TOID;
property opeId: StringS[128];
property operation: StringS[128];
property SourceObject: Ref(roGeneric,roNotExternal,roNoForeignKey,roNoRoleIndex) of TitObject;
property TargetObject: Ref(roGeneric,roNotExternal,roNoForeignKey,roNoRoleIndex) of TitObject;
end;
</source>

* opeId, operationId
: Un identifiant unique (guid) identifiant l'ensemble des opérations

* opération
: Nom de l'opération dans l'ensemble des opérations

* action
: Action de l'opération
: Par exemple INSERT pour un CopyTo

* oidSourceObject
: identifiant de l'objet source dans l'opération
: Par exemple l'objet source de la copie pour un CopyTo

* oidTargetObject
: identifiant de l'objet cible dans l'opération
: Par exemple l'objet copié par un CopyTo

'''Exemple d'utilisation:'''

<source lang="delphi">

// Créer des écritures a partir des réglements
//
procedure _doCreateEcritureReglements(iOidPiece:string; iOpeId:string);
var sel:TSelector;
begin
sel := vueEcritureReglement.CreateSelector('(oidBordereau=%1)','',True,[oidBordereauReglement]);
sel.AddParameter('ArgBordereau',oidBordereauReglement);
sel.Operation := 'EcrReg';
sel.OpeId := iOpeId;
//
sel.CopyTo('TEcriture',['oidpiece','eDate','sens','sensProrata','regimeTVA','typeEcriture'],[
iOidPiece,
BordereauReglement.dateReglement,
sens_credit,
sens_credit,
regimeTVA_Encaissements,
typeEcriture_Brouillard
]);
end;

Type
vueUpdateReglement = viewOf(TReglement)
vl:TsqlOperation = join('(opeId=%ArgOpeId) and (operation=%ArgOperation) and (oidSourceObject=self.oid)');
oidEcriture:TOID = oidEcriture;
oidTargetEcriture:TOID = vl.oidTargetObject;
oidBordereau:TOID = oidBordereauReglement;
end;

// Met à jour l'oidEcriture créée sur les réglements correspondants
..
procedure _doUpdateReglementsEcriture(iOidPiece:string; iOpeId:string);
var sel:TSelector;
begin
sel := vueUpdateReglement.CreateSelector('(oidBordereau=%1)','',True,[oidBordereauReglement]);
sel.AddParameter('ArgOpeId',iOpeId);
sel.AddParameter('ArgOperation','EcrReg');
//
sel.Update(['oidEcriture'],['oidTargetEcriture']);
end;

begin
aOpeId := CreateGuid;
withP long transaction do
begin
aOidPiece := _doCreatePiece();
_doCreateEcritureReglements(aOidPiece,aOpeId);
_doUpdateReglementsEcriture(aOidPice,aOpeId);
...
TsqlOperation.CleanOpe(aOpeId);
end;
end;

</source>

===ToJson()===

<source lang="delphi">procedure ToJson(SA:TJsonArray);</source>

Sérialize tous les objets retournés par le sélecteur au format JSon comptabible avec les tables react

'''Exemple:'''

<source lang="delphi">

//procedure GetData(SRows:TJsonArray);
Type
myView = viewOf(...)
...
end;

var sel:TSelector;
begin
// Selector to retreive the data
//
sel := myView.CreateSelector('','',True,[]);
sel.ToJson(SRows);
end;
</source>

===UpdateFrom()===

<source lang="delphi">
function updateFrom(sel:TSelector; iMatchedProps:Array of string; iUpdatedProps:Array of string; iUpdatedValue:Array of variant):Integer;
</source>

Permet de mettre à jour une classe à partir d'un sélecteur et d'une colonne de correspondance.

'''Exemple :'''

<source lang="delphi">
Type
// Update the temp table
vueTemp = viewOf(TempLettrage)
reference1:string = reference1;
reference2:string = reference2;
modeLettrage:Integer = modeLettrage;
end;

vueRef1 = viewOf(TempLettrage)
//ACount:Integer = count(id);
ATotal:Currency = sumSign(montant:TCValue,sens,'1');
reference1:string = reference1;
[(modeLettrage=0) and (reference1<>'')]
end;

var selT,selG:TSelector;
begin
withP long transaction do
begin
// for updating the temp table on "match"
selT := vueTemp.CreateSelector('','',True,[]);

// Lettrage sur reference 1
selG := vueRef1.CreateSelector('(ATotal=0)','',True,[]);
selG.useCTE := True;
selT.UpdateFrom(selG,['reference1'],['modeLettrage'],[1]);
end;
end;
</source>

<pre>
with CTE as (
select sum(case when t0.sens=1 then ISNULL(t0.montant_TCValue, 0) else -ISNULL(t0.montant_TCValue, 0) end) as "ATotal",t0.reference1 as "reference1"
from dbo.TEMPLETTRAGE t0 WITH (NOLOCK)
where ((t0.modeLettrage = 0) and (t0.reference1 IS NOT NULL))
group by t0.reference1
)
merge into dbo.TEMPLETTRAGE tm0 using (
SELECT *
FROM CTE
Where (ATotal = 0.0000)
) tm1 on (tm1.reference1=tm0.reference1)
when matched then update set
tm0.modeLettrage = 1
;
</pre>

==Updater==

Classe technique permettant de mettre à jour un attribut sur un ensemble d'objet.

'''Exemple : Mise à jour des compteurs qui ne peuvent pas être déterminés en SQL'''

<source lang="delphi">
Type
// Should returns all attributes part of the counter
//
vueNumeroPiece = viewOf(TPiece)
pDate:TDatetime = pDate;
numero:TCounter = numero;
end;

procedure _doUpdateNumeroPiece(iOidPiece:string);
var sel:TSelector; vueNP:vueNumeroPiece; upd:TUpdater;
begin
upd := TPiece.CreateUpdater('numero');
//
sel := vueNumeroPiece.CreateSelector('(oid=%1)','',True,[iOidPiece]);
forEach vueNP in sel.AsCursor do
begin
vueNP.numero.AllocValue;
upd.AddValue(vueNP.OID,vueNP.numero.value);
end;
//
upd.Execute;
end;

begin

end;

</source>

[[Category:Version 2025 R2]]
[[Category:Release note]]

Version 2025 r2 (release note)

2025-04-27T08:00:49Z

Syfre : /* TsqlOperation */

{{version2025r1}}
__TOC__

''' PREVIEW '''

==Langage==

* Paramètre de type classe
: Les paramètres de type classe peuvent être passé directement

<source lang="delphi">
Type
MyClass1 = class
class procedure foo(rg:TRegClass);
end;

MyClass2 = class
....
end;

MyClass3 = class
procedure oldbar();
procedure newbar();
end;

class procedure MyClass1.foo(rg:TRegClass);
begin
// => MyClass2
showMessage(rg.aClassName);
end;

procedure MyClass3.oldbar();
var rg:TRegClass;
begin
ModelManager.FindClass('MyClass2');
myClass1.foo(rg);
end;

procedure MyClass3.newbar();
begin
myClass1.foo(MyClass2);
end;
</source>

==Modèle==

===Classes===

* Méthode AllocOID

<source lang="delphi">class function AllocOID:TOID;</source>
* Alloue un oid de la classe
: Peut être utile dans les tests unitaires

* Méthode ToJson()

<source lang="delphi">procedure ToJson(SA:variant);</source>

* Sérialize l'objet en json
: SA peut être un TJsonArray ou un TJsonStruct

===Classes SQL===

* Options de rôle : NoRefIndex

* Options de rôle : NoForeignKey

==Script==

===Trace===

<source lang="delphi">procedure dbgClear();</source>
: Vide la trace

<source lang="delphi">procedure dbgEnable(value:boolean);</source>
: Active / désactive la trace

===Vue locale===

* Une vue locale peut contenir des attributs "oidXXX" sans définir le rôle

'''Exemple:'''

<source lang="delphi">
Type
vue1 = viewOf(ClassA)
p1:TEnum(enumName) = ...;
oidRef:TOID = oidrefB;
..
idRefB:TOID = oidrefB notInSelect;
[ (idRefB=%ArgRefB) and ....]
end;
</source>

* Une vue locale peut contenir des attributs non mappés dans la définition.

'''Exemple:'''

<source lang="delphi">
Type
vue1 = viewOf(ClassA)
ACount:Integer = count(oid)
oidRef:TOID;
codeRef:string;
libelleRef:string;
..
[ ...]
end;

var sel:TSelector;
begin
sel := vue1.createSelector();
case iGroupBy of
'refB':
begin
sel.AddColumn('oidrefB','oidRef');
sel.AddColumn('refB.code','codeRef');
sel.AddColumn('refB.Caption','libelleRef');
end;
'refC':
begin
sel.AddColumn('oidrefC','oidRef');
sel.AddColumn('refC.code','codeRef');
sel.AddColumn('refC.Caption','libelleRef');
end;
end;
end;
</source>

* Paramètre de type de donnée

<source lang="delphi">
Type
vue1 = viewOf(ClassA)
p1:TEnum(enumName) = ...;
end;
</source>

* Qualifier d'attribut NotInGroupBy

<source lang="delphi">
Type
vue1 = viewOf(ClassA)
p1:string = expression('...') notInGroupBy;
end;
</source>

* Héritage de vue locale

<source lang="delphi">
Type
vue1 = viewOf(ClassA)
p1:string = ...;
[...]
end;

vue2 = viewOf(vue1)
p1:string = ...;
[inherited and (...)]
end;
</source>

'''Exemple:'''

<source lang="delphi">
//function GetSelector(iGroupBy:string; iFilter:TJsonArray):TSelector;
Type
// défini une classe de base avec tous les filtres
//
vueEcritureLettrage = viewOf(TEcriture)
lettrable:boolean = compteGeneral.lettrable notInSelect;
idEtablissement:TOID = piece.oidEtablissement notInSelect;
idCompteGeneral:TOID = oidCompteGeneral notInSelect;
idRoleTiers:TOID = oidroleTiers notInSelect;
[(lettrable=true)
and ((oidLettrageEcriture='') or (dateLettrage=0))
and (typeEcriture<>0)
and (piece.lot.origineLot<>0)
and (eDate>=%ArgDateInf)
and (eDate<=%ArgDateSup)
and (idEtablissement=%ArgEtablissement)
and (idCompteGeneral=%ArgCompteGeneral)
and (idRoleTiers=%ArgRoleTiers)
]
end;

// Hérite de tous les filtres
//
vueEcritureLettrageGroupBy = viewOf(vueEcritureLettrage)
dateMin:TDatetime = min(eDate);
dateMax:TDatetime = max(eDate);
ACount:Integer = count(oid);
credit:Currency = sum('credit:TCValue');
debit:Currency = sum('debit:TCValue');
solde:Currency = sumDiff(debit,credit);
[inherited]
end;

begin
Result := vueLettrageGroupBy.CreateSelector('','',True,[]);
end;
</source>

* Scope de vue locale

Une vue locale peut être référencée en dehors de la méthode où elle est définie.

<source lang="delphi">
procedure Class1.foo;
Type
vue1 = viewOf(ClassA)
p1:string = ...;
end;
begin
...
end;

procedure Class2.bar;
Type
vue2 = viewOf(class1.foo.vue1)
p1:string = ...;
end;
begin
...
end;
</source>

* Expression Exists()

Une expression existe peut être utilisée dans les filtres comme une valeur logique

Note : Une expression Exists() est beaucoup plus rapide qu'un "Count<>0"

<source lang="delphi">
Type
vue1 = viewOf(ClassA)
id:string = ...;
end;

vue2 = viewOf(ClassB)
id:string = ...;
bb:boolean = vue1.Exists('(id=self.id)',True,[]) notInSelect;
[(bb=true) and (....)]
end;
</source>

* Expression de Sous requête

Une expression peut être définie par une sous requête

<source lang="delphi">
Type
VueTauxADate = ViewOf(TTauxADate)
idTVA : TOid = oidTVA;
tDate : Date = tDate;
taux : float = taux;
end;

vueMontantTVA = viewOf(TEcriture)
dateEcriture:TDatetime=eDate notInSelect;
oidTVA:TOID = ProfilTVA.oidTVA notInSelect;
oidPiece:TOID = oidPiece;
montantTVAReel:Currency = vueTauxADate.select('taux * self.montant_TCValue /100','(tDate<=self.dateEcriture)and(idTVA=self.oidTVA)','',True,[]);
montantTVAReel_CodeDevise:string = montantTVAReel:CodeDevise;
end;
</source>

==Sélecteur==

* lastOpeStamp, lastOpeAffected, lastOpeFirstOID
: Attributs mis à jour par la dernière opération assembliste.

* operationId, operation
: Permet d'enregistrer les opérations dans la table TdbfLogOpe
: S'applique à CopyTo()

* RmvParameter()
: Permet de retirer un paramètre qui a été ajouté par AddParameter()

* Amélioration de CopyTo
: Permet de créer des objets à partir d'un sélecteur

* CopyTo, Update, UpdateFrom
: Fonctionne sur les classes de stéréotype SQL

===TsqlOperation===

Classe SQL définie par le framework et permettant d'enregistrer les opérations du sélecteur

<source lang="delphi">
TsqlOperation = Class(TsqlObject)
public
class procedure CleanOpe(iOpeId:string);
//
property action: StringS[128];
property id: SQLIdentity;
property oidSourceObject: TOID;
property oidTargetObject: TOID;
property opeId: StringS[128];
property operation: StringS[128];
property SourceObject: Ref(roGeneric,roNotExternal,roNoForeignKey,roNoRoleIndex) of TitObject;
property TargetObject: Ref(roGeneric,roNotExternal,roNoForeignKey,roNoRoleIndex) of TitObject;
end;
</source>

* opeId, operationId
: Un identifiant unique (guid) identifiant l'ensemble des opérations

* opération
: Nom de l'opération dans l'ensemble des opérations

* action
: Action de l'opération
: Par exemple INSERT pour un CopyTo

* oidSourceObject
: identifiant de l'objet source dans l'opération
: Par exemple l'objet source de la copie pour un CopyTo

* oidTargetObject
: identifiant de l'objet cible dans l'opération
: Par exemple l'objet copié par un CopyTo

'''Exemple d'utilisation:'''

<source lang="delphi">

// Créer des écritures a partir des réglements
//
procedure _doCreateEcritureReglements(iOidPiece:string; iOpeId:string);
var sel:TSelector;
begin
sel := vueEcritureReglement.CreateSelector('(oidBordereau=%1)','',True,[oidBordereauReglement]);
sel.AddParameter('ArgBordereau',oidBordereauReglement);
sel.Operation := 'EcrReg';
sel.OpeId := iOpeId;
//
sel.CopyTo('TEcriture',['oidpiece','eDate','sens','sensProrata','regimeTVA','typeEcriture'],[
iOidPiece,
BordereauReglement.dateReglement,
sens_credit,
sens_credit,
regimeTVA_Encaissements,
typeEcriture_Brouillard
]);
end;

Type
vueUpdateReglement = viewOf(TReglement)
vl:TsqlOperation = join('(opeId=%ArgOpeId) and (operation=%ArgOperation) and (oidSourceObject=self.oid)');
oidEcriture:TOID = oidEcriture;
oidTargetEcriture:TOID = vl.oidTargetObject;
oidBordereau:TOID = oidBordereauReglement;
end;

// Met à jour l'oidEcriture créée sur les réglements correspondants
..
procedure _doUpdateReglementsEcriture(iOidPiece:string; iOpeId:string);
var sel:TSelector;
begin
sel := vueUpdateReglement.CreateSelector('(oidBordereau=%1)','',True,[oidBordereauReglement]);
sel.AddParameter('ArgOpeId',iOpeId);
sel.AddParameter('ArgOperation','EcrReg');
//
sel.Update(['oidEcriture'],['oidTargetEcriture']);
end;

begin
aOpeId := CreateGuid;
withP long transaction do
begin
aOidPiece := _doCreatePiece();
_doCreateEcritureReglements(aOidPiece,aOpeId);
_doUpdateReglementsEcriture(aOidPice,aOpeId);
...
TsqlOperation.CleanOpe(aOpeId);
end;
end;

</source>

===ToJson()===

<source lang="delphi">procedure ToJson(SA:TJsonArray);</source>

Sérialize tous les objets retournés par le sélecteur au format JSon comptabible avec les tables react

'''Exemple:'''

<source lang="delphi">

//procedure GetData(SRows:TJsonArray);
Type
myView = viewOf(...)
...
end;

var sel:TSelector;
begin
// Selector to retreive the data
//
sel := myView.CreateSelector('','',True,[]);
sel.ToJson(SRows);
end;
</source>

===UpdateFrom()===

<source lang="delphi">
function updateFrom(sel:TSelector; iMatchedProps:Array of string; iUpdatedProps:Array of string; iUpdatedValue:Array of variant):Integer;
</source>

Permet de mettre à jour une classe à partir d'un sélecteur et d'une colonne de correspondance.

'''Exemple :'''

<source lang="delphi">
Type
// Update the temp table
vueTemp = viewOf(TempLettrage)
reference1:string = reference1;
reference2:string = reference2;
modeLettrage:Integer = modeLettrage;
end;

vueRef1 = viewOf(TempLettrage)
//ACount:Integer = count(id);
ATotal:Currency = sumSign(montant:TCValue,sens,'1');
reference1:string = reference1;
[(modeLettrage=0) and (reference1<>'')]
end;

var selT,selG:TSelector;
begin
withP long transaction do
begin
// for updating the temp table on "match"
selT := vueTemp.CreateSelector('','',True,[]);

// Lettrage sur reference 1
selG := vueRef1.CreateSelector('(ATotal=0)','',True,[]);
selG.useCTE := True;
selT.UpdateFrom(selG,['reference1'],['modeLettrage'],[1]);
end;
end;
</source>

<pre>
with CTE as (
select sum(case when t0.sens=1 then ISNULL(t0.montant_TCValue, 0) else -ISNULL(t0.montant_TCValue, 0) end) as "ATotal",t0.reference1 as "reference1"
from dbo.TEMPLETTRAGE t0 WITH (NOLOCK)
where ((t0.modeLettrage = 0) and (t0.reference1 IS NOT NULL))
group by t0.reference1
)
merge into dbo.TEMPLETTRAGE tm0 using (
SELECT *
FROM CTE
Where (ATotal = 0.0000)
) tm1 on (tm1.reference1=tm0.reference1)
when matched then update set
tm0.modeLettrage = 1
;
</pre>

__Updater__

Classe technique permettant de mettre à jour un attribut sur un ensemble d'objet.

'''Exemple : Mise à jour des compteurs qui ne peuvent pas être déterminés en SQL'''

<source lang="delphi">
Type
// Should returns all attributes part of the counter
//
vueNumeroPiece = viewOf(TPiece)
pDate:TDatetime = pDate;
numero:TCounter = numero;
end;

procedure _doUpdateNumeroPiece(iOidPiece:string);
var sel:TSelector; vueNP:vueNumeroPiece; upd:TUpdater;
begin
upd := TPiece.CreateUpdater('numero');
//
sel := vueNumeroPiece.CreateSelector('(oid=%1)','',True,[iOidPiece]);
forEach vueNP in sel.AsCursor do
begin
vueNP.numero.AllocValue;
upd.AddValue(vueNP.OID,vueNP.numero.value);
end;
//
upd.Execute;
end;

begin

end;

</source>

[[Category:Version 2025 R2]]
[[Category:Release note]]

Version 2025 r2 (release note)

2025-04-27T08:00:28Z

Syfre : /* Sélecteur */

{{version2025r1}}
__TOC__

''' PREVIEW '''

==Langage==

* Paramètre de type classe
: Les paramètres de type classe peuvent être passé directement

<source lang="delphi">
Type
MyClass1 = class
class procedure foo(rg:TRegClass);
end;

MyClass2 = class
....
end;

MyClass3 = class
procedure oldbar();
procedure newbar();
end;

class procedure MyClass1.foo(rg:TRegClass);
begin
// => MyClass2
showMessage(rg.aClassName);
end;

procedure MyClass3.oldbar();
var rg:TRegClass;
begin
ModelManager.FindClass('MyClass2');
myClass1.foo(rg);
end;

procedure MyClass3.newbar();
begin
myClass1.foo(MyClass2);
end;
</source>

==Modèle==

===Classes===

* Méthode AllocOID

<source lang="delphi">class function AllocOID:TOID;</source>
* Alloue un oid de la classe
: Peut être utile dans les tests unitaires

* Méthode ToJson()

<source lang="delphi">procedure ToJson(SA:variant);</source>

* Sérialize l'objet en json
: SA peut être un TJsonArray ou un TJsonStruct

===Classes SQL===

* Options de rôle : NoRefIndex

* Options de rôle : NoForeignKey

==Script==

===Trace===

<source lang="delphi">procedure dbgClear();</source>
: Vide la trace

<source lang="delphi">procedure dbgEnable(value:boolean);</source>
: Active / désactive la trace

===Vue locale===

* Une vue locale peut contenir des attributs "oidXXX" sans définir le rôle

'''Exemple:'''

<source lang="delphi">
Type
vue1 = viewOf(ClassA)
p1:TEnum(enumName) = ...;
oidRef:TOID = oidrefB;
..
idRefB:TOID = oidrefB notInSelect;
[ (idRefB=%ArgRefB) and ....]
end;
</source>

* Une vue locale peut contenir des attributs non mappés dans la définition.

'''Exemple:'''

<source lang="delphi">
Type
vue1 = viewOf(ClassA)
ACount:Integer = count(oid)
oidRef:TOID;
codeRef:string;
libelleRef:string;
..
[ ...]
end;

var sel:TSelector;
begin
sel := vue1.createSelector();
case iGroupBy of
'refB':
begin
sel.AddColumn('oidrefB','oidRef');
sel.AddColumn('refB.code','codeRef');
sel.AddColumn('refB.Caption','libelleRef');
end;
'refC':
begin
sel.AddColumn('oidrefC','oidRef');
sel.AddColumn('refC.code','codeRef');
sel.AddColumn('refC.Caption','libelleRef');
end;
end;
end;
</source>

* Paramètre de type de donnée

<source lang="delphi">
Type
vue1 = viewOf(ClassA)
p1:TEnum(enumName) = ...;
end;
</source>

* Qualifier d'attribut NotInGroupBy

<source lang="delphi">
Type
vue1 = viewOf(ClassA)
p1:string = expression('...') notInGroupBy;
end;
</source>

* Héritage de vue locale

<source lang="delphi">
Type
vue1 = viewOf(ClassA)
p1:string = ...;
[...]
end;

vue2 = viewOf(vue1)
p1:string = ...;
[inherited and (...)]
end;
</source>

'''Exemple:'''

<source lang="delphi">
//function GetSelector(iGroupBy:string; iFilter:TJsonArray):TSelector;
Type
// défini une classe de base avec tous les filtres
//
vueEcritureLettrage = viewOf(TEcriture)
lettrable:boolean = compteGeneral.lettrable notInSelect;
idEtablissement:TOID = piece.oidEtablissement notInSelect;
idCompteGeneral:TOID = oidCompteGeneral notInSelect;
idRoleTiers:TOID = oidroleTiers notInSelect;
[(lettrable=true)
and ((oidLettrageEcriture='') or (dateLettrage=0))
and (typeEcriture<>0)
and (piece.lot.origineLot<>0)
and (eDate>=%ArgDateInf)
and (eDate<=%ArgDateSup)
and (idEtablissement=%ArgEtablissement)
and (idCompteGeneral=%ArgCompteGeneral)
and (idRoleTiers=%ArgRoleTiers)
]
end;

// Hérite de tous les filtres
//
vueEcritureLettrageGroupBy = viewOf(vueEcritureLettrage)
dateMin:TDatetime = min(eDate);
dateMax:TDatetime = max(eDate);
ACount:Integer = count(oid);
credit:Currency = sum('credit:TCValue');
debit:Currency = sum('debit:TCValue');
solde:Currency = sumDiff(debit,credit);
[inherited]
end;

begin
Result := vueLettrageGroupBy.CreateSelector('','',True,[]);
end;
</source>

* Scope de vue locale

Une vue locale peut être référencée en dehors de la méthode où elle est définie.

<source lang="delphi">
procedure Class1.foo;
Type
vue1 = viewOf(ClassA)
p1:string = ...;
end;
begin
...
end;

procedure Class2.bar;
Type
vue2 = viewOf(class1.foo.vue1)
p1:string = ...;
end;
begin
...
end;
</source>

* Expression Exists()

Une expression existe peut être utilisée dans les filtres comme une valeur logique

Note : Une expression Exists() est beaucoup plus rapide qu'un "Count<>0"

<source lang="delphi">
Type
vue1 = viewOf(ClassA)
id:string = ...;
end;

vue2 = viewOf(ClassB)
id:string = ...;
bb:boolean = vue1.Exists('(id=self.id)',True,[]) notInSelect;
[(bb=true) and (....)]
end;
</source>

* Expression de Sous requête

Une expression peut être définie par une sous requête

<source lang="delphi">
Type
VueTauxADate = ViewOf(TTauxADate)
idTVA : TOid = oidTVA;
tDate : Date = tDate;
taux : float = taux;
end;

vueMontantTVA = viewOf(TEcriture)
dateEcriture:TDatetime=eDate notInSelect;
oidTVA:TOID = ProfilTVA.oidTVA notInSelect;
oidPiece:TOID = oidPiece;
montantTVAReel:Currency = vueTauxADate.select('taux * self.montant_TCValue /100','(tDate<=self.dateEcriture)and(idTVA=self.oidTVA)','',True,[]);
montantTVAReel_CodeDevise:string = montantTVAReel:CodeDevise;
end;
</source>

==Sélecteur==

* lastOpeStamp, lastOpeAffected, lastOpeFirstOID
: Attributs mis à jour par la dernière opération assembliste.

* operationId, operation
: Permet d'enregistrer les opérations dans la table TdbfLogOpe
: S'applique à CopyTo()

* RmvParameter()
: Permet de retirer un paramètre qui a été ajouté par AddParameter()

* Amélioration de CopyTo
: Permet de créer des objets à partir d'un sélecteur

* CopyTo, Update, UpdateFrom
: Fonctionne sur les classes de stéréotype SQL

===TsqlOperation===

Classe SQL définie par le framework et permettant d'enregistrer les opérations du sélecteur

<source langage="delphi">
TsqlOperation = Class(TsqlObject)
public
class procedure CleanOpe(iOpeId:string);
//
property action: StringS[128];
property id: SQLIdentity;
property oidSourceObject: TOID;
property oidTargetObject: TOID;
property opeId: StringS[128];
property operation: StringS[128];
property SourceObject: Ref(roGeneric,roNotExternal,roNoForeignKey,roNoRoleIndex) of TitObject;
property TargetObject: Ref(roGeneric,roNotExternal,roNoForeignKey,roNoRoleIndex) of TitObject;
end;
</source>

* opeId, operationId
: Un identifiant unique (guid) identifiant l'ensemble des opérations

* opération
: Nom de l'opération dans l'ensemble des opérations

* action
: Action de l'opération
: Par exemple INSERT pour un CopyTo

* oidSourceObject
: identifiant de l'objet source dans l'opération
: Par exemple l'objet source de la copie pour un CopyTo

* oidTargetObject
: identifiant de l'objet cible dans l'opération
: Par exemple l'objet copié par un CopyTo

'''Exemple d'utilisation:'''

<source lang="delphi">

// Créer des écritures a partir des réglements
//
procedure _doCreateEcritureReglements(iOidPiece:string; iOpeId:string);
var sel:TSelector;
begin
sel := vueEcritureReglement.CreateSelector('(oidBordereau=%1)','',True,[oidBordereauReglement]);
sel.AddParameter('ArgBordereau',oidBordereauReglement);
sel.Operation := 'EcrReg';
sel.OpeId := iOpeId;
//
sel.CopyTo('TEcriture',['oidpiece','eDate','sens','sensProrata','regimeTVA','typeEcriture'],[
iOidPiece,
BordereauReglement.dateReglement,
sens_credit,
sens_credit,
regimeTVA_Encaissements,
typeEcriture_Brouillard
]);
end;

Type
vueUpdateReglement = viewOf(TReglement)
vl:TsqlOperation = join('(opeId=%ArgOpeId) and (operation=%ArgOperation) and (oidSourceObject=self.oid)');
oidEcriture:TOID = oidEcriture;
oidTargetEcriture:TOID = vl.oidTargetObject;
oidBordereau:TOID = oidBordereauReglement;
end;

// Met à jour l'oidEcriture créée sur les réglements correspondants
..
procedure _doUpdateReglementsEcriture(iOidPiece:string; iOpeId:string);
var sel:TSelector;
begin
sel := vueUpdateReglement.CreateSelector('(oidBordereau=%1)','',True,[oidBordereauReglement]);
sel.AddParameter('ArgOpeId',iOpeId);
sel.AddParameter('ArgOperation','EcrReg');
//
sel.Update(['oidEcriture'],['oidTargetEcriture']);
end;

begin
aOpeId := CreateGuid;
withP long transaction do
begin
aOidPiece := _doCreatePiece();
_doCreateEcritureReglements(aOidPiece,aOpeId);
_doUpdateReglementsEcriture(aOidPice,aOpeId);
...
TsqlOperation.CleanOpe(aOpeId);
end;
end;

</source>

===ToJson()===

<source lang="delphi">procedure ToJson(SA:TJsonArray);</source>

Sérialize tous les objets retournés par le sélecteur au format JSon comptabible avec les tables react

'''Exemple:'''

<source lang="delphi">

//procedure GetData(SRows:TJsonArray);
Type
myView = viewOf(...)
...
end;

var sel:TSelector;
begin
// Selector to retreive the data
//
sel := myView.CreateSelector('','',True,[]);
sel.ToJson(SRows);
end;
</source>

===UpdateFrom()===

<source lang="delphi">
function updateFrom(sel:TSelector; iMatchedProps:Array of string; iUpdatedProps:Array of string; iUpdatedValue:Array of variant):Integer;
</source>

Permet de mettre à jour une classe à partir d'un sélecteur et d'une colonne de correspondance.

'''Exemple :'''

<source lang="delphi">
Type
// Update the temp table
vueTemp = viewOf(TempLettrage)
reference1:string = reference1;
reference2:string = reference2;
modeLettrage:Integer = modeLettrage;
end;

vueRef1 = viewOf(TempLettrage)
//ACount:Integer = count(id);
ATotal:Currency = sumSign(montant:TCValue,sens,'1');
reference1:string = reference1;
[(modeLettrage=0) and (reference1<>'')]
end;

var selT,selG:TSelector;
begin
withP long transaction do
begin
// for updating the temp table on "match"
selT := vueTemp.CreateSelector('','',True,[]);

// Lettrage sur reference 1
selG := vueRef1.CreateSelector('(ATotal=0)','',True,[]);
selG.useCTE := True;
selT.UpdateFrom(selG,['reference1'],['modeLettrage'],[1]);
end;
end;
</source>

<pre>
with CTE as (
select sum(case when t0.sens=1 then ISNULL(t0.montant_TCValue, 0) else -ISNULL(t0.montant_TCValue, 0) end) as "ATotal",t0.reference1 as "reference1"
from dbo.TEMPLETTRAGE t0 WITH (NOLOCK)
where ((t0.modeLettrage = 0) and (t0.reference1 IS NOT NULL))
group by t0.reference1
)
merge into dbo.TEMPLETTRAGE tm0 using (
SELECT *
FROM CTE
Where (ATotal = 0.0000)
) tm1 on (tm1.reference1=tm0.reference1)
when matched then update set
tm0.modeLettrage = 1
;
</pre>

__Updater__

Classe technique permettant de mettre à jour un attribut sur un ensemble d'objet.

'''Exemple : Mise à jour des compteurs qui ne peuvent pas être déterminés en SQL'''

<source lang="delphi">
Type
// Should returns all attributes part of the counter
//
vueNumeroPiece = viewOf(TPiece)
pDate:TDatetime = pDate;
numero:TCounter = numero;
end;

procedure _doUpdateNumeroPiece(iOidPiece:string);
var sel:TSelector; vueNP:vueNumeroPiece; upd:TUpdater;
begin
upd := TPiece.CreateUpdater('numero');
//
sel := vueNumeroPiece.CreateSelector('(oid=%1)','',True,[iOidPiece]);
forEach vueNP in sel.AsCursor do
begin
vueNP.numero.AllocValue;
upd.AddValue(vueNP.OID,vueNP.numero.value);
end;
//
upd.Execute;
end;

begin

end;

</source>

[[Category:Version 2025 R2]]
[[Category:Release note]]

Version 2025 r2 (release note)

2025-04-27T07:47:09Z

Syfre : /* TdbfLogOpe */

{{version2025r1}}
__TOC__

''' PREVIEW '''

==Langage==

* Paramètre de type classe
: Les paramètres de type classe peuvent être passé directement

<source lang="delphi">
Type
MyClass1 = class
class procedure foo(rg:TRegClass);
end;

MyClass2 = class
....
end;

MyClass3 = class
procedure oldbar();
procedure newbar();
end;

class procedure MyClass1.foo(rg:TRegClass);
begin
// => MyClass2
showMessage(rg.aClassName);
end;

procedure MyClass3.oldbar();
var rg:TRegClass;
begin
ModelManager.FindClass('MyClass2');
myClass1.foo(rg);
end;

procedure MyClass3.newbar();
begin
myClass1.foo(MyClass2);
end;
</source>

==Modèle==

===Classes===

* Méthode AllocOID

<source lang="delphi">class function AllocOID:TOID;</source>
* Alloue un oid de la classe
: Peut être utile dans les tests unitaires

* Méthode ToJson()

<source lang="delphi">procedure ToJson(SA:variant);</source>

* Sérialize l'objet en json
: SA peut être un TJsonArray ou un TJsonStruct

===Classes SQL===

* Options de rôle : NoRefIndex

* Options de rôle : NoForeignKey

==Script==

===Trace===

<source lang="delphi">procedure dbgClear();</source>
: Vide la trace

<source lang="delphi">procedure dbgEnable(value:boolean);</source>
: Active / désactive la trace

===Vue locale===

* Une vue locale peut contenir des attributs "oidXXX" sans définir le rôle

'''Exemple:'''

<source lang="delphi">
Type
vue1 = viewOf(ClassA)
p1:TEnum(enumName) = ...;
oidRef:TOID = oidrefB;
..
idRefB:TOID = oidrefB notInSelect;
[ (idRefB=%ArgRefB) and ....]
end;
</source>

* Une vue locale peut contenir des attributs non mappés dans la définition.

'''Exemple:'''

<source lang="delphi">
Type
vue1 = viewOf(ClassA)
ACount:Integer = count(oid)
oidRef:TOID;
codeRef:string;
libelleRef:string;
..
[ ...]
end;

var sel:TSelector;
begin
sel := vue1.createSelector();
case iGroupBy of
'refB':
begin
sel.AddColumn('oidrefB','oidRef');
sel.AddColumn('refB.code','codeRef');
sel.AddColumn('refB.Caption','libelleRef');
end;
'refC':
begin
sel.AddColumn('oidrefC','oidRef');
sel.AddColumn('refC.code','codeRef');
sel.AddColumn('refC.Caption','libelleRef');
end;
end;
end;
</source>

* Paramètre de type de donnée

<source lang="delphi">
Type
vue1 = viewOf(ClassA)
p1:TEnum(enumName) = ...;
end;
</source>

* Qualifier d'attribut NotInGroupBy

<source lang="delphi">
Type
vue1 = viewOf(ClassA)
p1:string = expression('...') notInGroupBy;
end;
</source>

* Héritage de vue locale

<source lang="delphi">
Type
vue1 = viewOf(ClassA)
p1:string = ...;
[...]
end;

vue2 = viewOf(vue1)
p1:string = ...;
[inherited and (...)]
end;
</source>

'''Exemple:'''

<source lang="delphi">
//function GetSelector(iGroupBy:string; iFilter:TJsonArray):TSelector;
Type
// défini une classe de base avec tous les filtres
//
vueEcritureLettrage = viewOf(TEcriture)
lettrable:boolean = compteGeneral.lettrable notInSelect;
idEtablissement:TOID = piece.oidEtablissement notInSelect;
idCompteGeneral:TOID = oidCompteGeneral notInSelect;
idRoleTiers:TOID = oidroleTiers notInSelect;
[(lettrable=true)
and ((oidLettrageEcriture='') or (dateLettrage=0))
and (typeEcriture<>0)
and (piece.lot.origineLot<>0)
and (eDate>=%ArgDateInf)
and (eDate<=%ArgDateSup)
and (idEtablissement=%ArgEtablissement)
and (idCompteGeneral=%ArgCompteGeneral)
and (idRoleTiers=%ArgRoleTiers)
]
end;

// Hérite de tous les filtres
//
vueEcritureLettrageGroupBy = viewOf(vueEcritureLettrage)
dateMin:TDatetime = min(eDate);
dateMax:TDatetime = max(eDate);
ACount:Integer = count(oid);
credit:Currency = sum('credit:TCValue');
debit:Currency = sum('debit:TCValue');
solde:Currency = sumDiff(debit,credit);
[inherited]
end;

begin
Result := vueLettrageGroupBy.CreateSelector('','',True,[]);
end;
</source>

* Scope de vue locale

Une vue locale peut être référencée en dehors de la méthode où elle est définie.

<source lang="delphi">
procedure Class1.foo;
Type
vue1 = viewOf(ClassA)
p1:string = ...;
end;
begin
...
end;

procedure Class2.bar;
Type
vue2 = viewOf(class1.foo.vue1)
p1:string = ...;
end;
begin
...
end;
</source>

* Expression Exists()

Une expression existe peut être utilisée dans les filtres comme une valeur logique

Note : Une expression Exists() est beaucoup plus rapide qu'un "Count<>0"

<source lang="delphi">
Type
vue1 = viewOf(ClassA)
id:string = ...;
end;

vue2 = viewOf(ClassB)
id:string = ...;
bb:boolean = vue1.Exists('(id=self.id)',True,[]) notInSelect;
[(bb=true) and (....)]
end;
</source>

* Expression de Sous requête

Une expression peut être définie par une sous requête

<source lang="delphi">
Type
VueTauxADate = ViewOf(TTauxADate)
idTVA : TOid = oidTVA;
tDate : Date = tDate;
taux : float = taux;
end;

vueMontantTVA = viewOf(TEcriture)
dateEcriture:TDatetime=eDate notInSelect;
oidTVA:TOID = ProfilTVA.oidTVA notInSelect;
oidPiece:TOID = oidPiece;
montantTVAReel:Currency = vueTauxADate.select('taux * self.montant_TCValue /100','(tDate<=self.dateEcriture)and(idTVA=self.oidTVA)','',True,[]);
montantTVAReel_CodeDevise:string = montantTVAReel:CodeDevise;
end;
</source>

==Sélecteur==

* lastOpeStamp, lastOpeAffected, lastOpeFirstOID
: Attributs mis à jour par la dernière opération assembliste.

* operationId, operation
: Permet d'enregistrer les opérations dans la table TdbfLogOpe
: S'applique à CopyTo()

* RmvParameter()
: Permet de retirer un paramètre qui a été ajouté par AddParameter()

* Amélioration de CopyTo
: Permet de créer des objets à partir d'un sélecteur

* CopyTo, Update, UpdateFrom
: Fonctionne sur les classes de stéréotype SQL

===TsqlOperation===

Classe SQL définie par le framework et permettant d'enregistrer les opérations du sélecteur

<source lang="delphi">
TsqlOperation = Class(TsqlObject)
public
class procedure CleanOpe(iOpeId:string);
//
property action: StringS[128];
property id: SQLIdentity;
property oidSourceObject: TOID;
property oidTargetObject: TOID;
property opeId: StringS[128];
property operation: StringS[128];
property SourceObject: Ref(roGeneric,roNotExternal,roNoForeignKey,roNoRoleIndex) of TitObject;
property TargetObject: Ref(roGeneric,roNotExternal,roNoForeignKey,roNoRoleIndex) of TitObject;
end;
</source>

* opeId, operationId
: Un identifiant unique (guid) identifiant l'ensemble des opérations

* opération
: Nom de l'opération dans l'ensemble des opérations

* action
: Action de l'opération
: Par exemple INSERT pour un CopyTo

* oidSourceObject
: identifiant de l'objet source dans l'opération
: Par exemple l'objet source de la copie pour un CopyTo

* oidTargetObject
: identifiant de l'objet cible dans l'opération
: Par exemple l'objet copié par un CopyTo

'''Exemple d'utilisation:'''

<source lang="delphi">

// Créer des écritures a partir des réglements
//
procedure _doCreateEcritureReglements(iOidPiece:string; iOpeId:string);
var sel:TSelector;
begin
sel := vueEcritureReglement.CreateSelector('(oidBordereau=%1)','',True,[oidBordereauReglement]);
sel.AddParameter('ArgBordereau',oidBordereauReglement);
sel.Operation := 'EcrReg';
sel.OpeId := iOpeId;
//
sel.CopyTo('TEcriture',['oidpiece','eDate','sens','sensProrata','regimeTVA','typeEcriture'],[
iOidPiece,
BordereauReglement.dateReglement,
sens_credit,
sens_credit,
regimeTVA_Encaissements,
typeEcriture_Brouillard
]);
end;

Type
vueUpdateReglement = viewOf(TReglement)
vl:TsqlOperation = join('(opeId=%ArgOpeId) and (operation=%ArgOperation) and (oidSourceObject=self.oid)');
oidEcriture:TOID = oidEcriture;
oidTargetEcriture:TOID = vl.oidTargetObject;
oidBordereau:TOID = oidBordereauReglement;
end;

// Met à jour l'oidEcriture créée sur les réglements correspondants
..
procedure _doUpdateReglementsEcriture(iOidPiece:string; iOpeId:string);
var sel:TSelector;
begin
sel := vueUpdateReglement.CreateSelector('(oidBordereau=%1)','',True,[oidBordereauReglement]);
sel.AddParameter('ArgOpeId',iOpeId);
sel.AddParameter('ArgOperation','EcrReg');
//
sel.Update(['oidEcriture'],['oidTargetEcriture']);
end;

begin
aOpeId := CreateGuid;
withP long transaction do
begin
aOidPiece := _doCreatePiece();
_doCreateEcritureReglements(aOidPiece,aOpeId);
_doUpdateReglementsEcriture(aOidPice,aOpeId);
...
TsqlOperation.CleanOpe(aOpeId);
end;
end;

</source>

===ToJson()===

<source lang="delphi">procedure ToJson(SA:TJsonArray);</source>

Sérialize tous les objets retournés par le sélecteur au format JSon comptabible avec les tables react

'''Exemple:'''

<source lang="delphi">

//procedure GetData(SRows:TJsonArray);
Type
myView = viewOf(...)
...
end;

var sel:TSelector;
begin
// Selector to retreive the data
//
sel := myView.CreateSelector('','',True,[]);
sel.ToJson(SRows);
end;
</source>

===UpdateFrom()===

<source lang="delphi">
function updateFrom(sel:TSelector; iMatchedProps:Array of string; iUpdatedProps:Array of string; iUpdatedValue:Array of variant):Integer;
</source>

Permet de mettre à jour une classe à partir d'un sélecteur et d'une colonne de correspondance.

'''Exemple :'''

<source lang="delphi">
Type
// Update the temp table
vueTemp = viewOf(TempLettrage)
reference1:string = reference1;
reference2:string = reference2;
modeLettrage:Integer = modeLettrage;
end;

vueRef1 = viewOf(TempLettrage)
//ACount:Integer = count(id);
ATotal:Currency = sumSign(montant:TCValue,sens,'1');
reference1:string = reference1;
[(modeLettrage=0) and (reference1<>'')]
end;

var selT,selG:TSelector;
begin
withP long transaction do
begin
// for updating the temp table on "match"
selT := vueTemp.CreateSelector('','',True,[]);

// Lettrage sur reference 1
selG := vueRef1.CreateSelector('(ATotal=0)','',True,[]);
selG.useCTE := True;
selT.UpdateFrom(selG,['reference1'],['modeLettrage'],[1]);
end;
end;
</source>

<pre>
with CTE as (
select sum(case when t0.sens=1 then ISNULL(t0.montant_TCValue, 0) else -ISNULL(t0.montant_TCValue, 0) end) as "ATotal",t0.reference1 as "reference1"
from dbo.TEMPLETTRAGE t0 WITH (NOLOCK)
where ((t0.modeLettrage = 0) and (t0.reference1 IS NOT NULL))
group by t0.reference1
)
merge into dbo.TEMPLETTRAGE tm0 using (
SELECT *
FROM CTE
Where (ATotal = 0.0000)
) tm1 on (tm1.reference1=tm0.reference1)
when matched then update set
tm0.modeLettrage = 1
;
</pre>

[[Category:Version 2025 R2]]
[[Category:Release note]]

Version 2025 r2 (release note)

2025-04-26T09:13:13Z

Syfre : /* ToJson() */

{{version2025r1}}
__TOC__

''' PREVIEW '''

==Langage==

* Paramètre de type classe
: Les paramètres de type classe peuvent être passé directement

<source lang="delphi">
Type
MyClass1 = class
class procedure foo(rg:TRegClass);
end;

MyClass2 = class
....
end;

MyClass3 = class
procedure oldbar();
procedure newbar();
end;

class procedure MyClass1.foo(rg:TRegClass);
begin
// => MyClass2
showMessage(rg.aClassName);
end;

procedure MyClass3.oldbar();
var rg:TRegClass;
begin
ModelManager.FindClass('MyClass2');
myClass1.foo(rg);
end;

procedure MyClass3.newbar();
begin
myClass1.foo(MyClass2);
end;
</source>

==Modèle==

===Classes===

* Méthode AllocOID

<source lang="delphi">class function AllocOID:TOID;</source>
* Alloue un oid de la classe
: Peut être utile dans les tests unitaires

* Méthode ToJson()

<source lang="delphi">procedure ToJson(SA:variant);</source>

* Sérialize l'objet en json
: SA peut être un TJsonArray ou un TJsonStruct

===Classes SQL===

* Options de rôle : NoRefIndex

* Options de rôle : NoForeignKey

==Script==

===Trace===

<source lang="delphi">procedure dbgClear();</source>
: Vide la trace

<source lang="delphi">procedure dbgEnable(value:boolean);</source>
: Active / désactive la trace

===Vue locale===

* Une vue locale peut contenir des attributs "oidXXX" sans définir le rôle

'''Exemple:'''

<source lang="delphi">
Type
vue1 = viewOf(ClassA)
p1:TEnum(enumName) = ...;
oidRef:TOID = oidrefB;
..
idRefB:TOID = oidrefB notInSelect;
[ (idRefB=%ArgRefB) and ....]
end;
</source>

* Une vue locale peut contenir des attributs non mappés dans la définition.

'''Exemple:'''

<source lang="delphi">
Type
vue1 = viewOf(ClassA)
ACount:Integer = count(oid)
oidRef:TOID;
codeRef:string;
libelleRef:string;
..
[ ...]
end;

var sel:TSelector;
begin
sel := vue1.createSelector();
case iGroupBy of
'refB':
begin
sel.AddColumn('oidrefB','oidRef');
sel.AddColumn('refB.code','codeRef');
sel.AddColumn('refB.Caption','libelleRef');
end;
'refC':
begin
sel.AddColumn('oidrefC','oidRef');
sel.AddColumn('refC.code','codeRef');
sel.AddColumn('refC.Caption','libelleRef');
end;
end;
end;
</source>

* Paramètre de type de donnée

<source lang="delphi">
Type
vue1 = viewOf(ClassA)
p1:TEnum(enumName) = ...;
end;
</source>

* Qualifier d'attribut NotInGroupBy

<source lang="delphi">
Type
vue1 = viewOf(ClassA)
p1:string = expression('...') notInGroupBy;
end;
</source>

* Héritage de vue locale

<source lang="delphi">
Type
vue1 = viewOf(ClassA)
p1:string = ...;
[...]
end;

vue2 = viewOf(vue1)
p1:string = ...;
[inherited and (...)]
end;
</source>

'''Exemple:'''

<source lang="delphi">
//function GetSelector(iGroupBy:string; iFilter:TJsonArray):TSelector;
Type
// défini une classe de base avec tous les filtres
//
vueEcritureLettrage = viewOf(TEcriture)
lettrable:boolean = compteGeneral.lettrable notInSelect;
idEtablissement:TOID = piece.oidEtablissement notInSelect;
idCompteGeneral:TOID = oidCompteGeneral notInSelect;
idRoleTiers:TOID = oidroleTiers notInSelect;
[(lettrable=true)
and ((oidLettrageEcriture='') or (dateLettrage=0))
and (typeEcriture<>0)
and (piece.lot.origineLot<>0)
and (eDate>=%ArgDateInf)
and (eDate<=%ArgDateSup)
and (idEtablissement=%ArgEtablissement)
and (idCompteGeneral=%ArgCompteGeneral)
and (idRoleTiers=%ArgRoleTiers)
]
end;

// Hérite de tous les filtres
//
vueEcritureLettrageGroupBy = viewOf(vueEcritureLettrage)
dateMin:TDatetime = min(eDate);
dateMax:TDatetime = max(eDate);
ACount:Integer = count(oid);
credit:Currency = sum('credit:TCValue');
debit:Currency = sum('debit:TCValue');
solde:Currency = sumDiff(debit,credit);
[inherited]
end;

begin
Result := vueLettrageGroupBy.CreateSelector('','',True,[]);
end;
</source>

* Scope de vue locale

Une vue locale peut être référencée en dehors de la méthode où elle est définie.

<source lang="delphi">
procedure Class1.foo;
Type
vue1 = viewOf(ClassA)
p1:string = ...;
end;
begin
...
end;

procedure Class2.bar;
Type
vue2 = viewOf(class1.foo.vue1)
p1:string = ...;
end;
begin
...
end;
</source>

* Expression Exists()

Une expression existe peut être utilisée dans les filtres comme une valeur logique

Note : Une expression Exists() est beaucoup plus rapide qu'un "Count<>0"

<source lang="delphi">
Type
vue1 = viewOf(ClassA)
id:string = ...;
end;

vue2 = viewOf(ClassB)
id:string = ...;
bb:boolean = vue1.Exists('(id=self.id)',True,[]) notInSelect;
[(bb=true) and (....)]
end;
</source>

* Expression de Sous requête

Une expression peut être définie par une sous requête

<source lang="delphi">
Type
VueTauxADate = ViewOf(TTauxADate)
idTVA : TOid = oidTVA;
tDate : Date = tDate;
taux : float = taux;
end;

vueMontantTVA = viewOf(TEcriture)
dateEcriture:TDatetime=eDate notInSelect;
oidTVA:TOID = ProfilTVA.oidTVA notInSelect;
oidPiece:TOID = oidPiece;
montantTVAReel:Currency = vueTauxADate.select('taux * self.montant_TCValue /100','(tDate<=self.dateEcriture)and(idTVA=self.oidTVA)','',True,[]);
montantTVAReel_CodeDevise:string = montantTVAReel:CodeDevise;
end;
</source>

==Sélecteur==

* lastOpeStamp, lastOpeAffected, lastOpeFirstOID
: Attributs mis à jour par la dernière opération assembliste.

* operationId, operation
: Permet d'enregistrer les opérations dans la table TdbfLogOpe
: S'applique à CopyTo()

* RmvParameter()
: Permet de retirer un paramètre qui a été ajouté par AddParameter()

* Amélioration de CopyTo
: Permet de créer des objets à partir d'un sélecteur

* CopyTo, Update, UpdateFrom
: Fonctionne sur les classes de stéréotype SQL

===TdbfLogOpe===

Classe SQL définie par le framework et permettant d'enregistrer les opérations du sélecteur

<source lang="delphi">
TdbfLogOpe = Class(TsqlObject)
public
property action: StringS[128];
property id: SQLIdentity;
property oidSourceObject: TOID;
property oidTargetObject: TOID;
property opeId: StringS[128];
property operation: StringS[128];
property SourceObject: Ref(roGeneric,roNotExternal,roNoForeignKey,roNoRoleIndex) of TitObject;
property TargetObject: Ref(roGeneric,roNotExternal,roNoForeignKey,roNoRoleIndex) of TitObject;
end;
</source>

* opeId, operationId
: Un identifiant unique (guid) identifiant l'ensemble des opérations

* opération
: Nom de l'opération dans l'ensemble des opérations

* action
: Action de l'opération
: Par exemple INSERT pour un CopyTo

* oidSourceObject
: identifiant de l'objet source dans l'opération
: Par exemple l'objet source de la copie pour un CopyTo

* oidTargetObject
: identifiant de l'objet cible dans l'opération
: Par exemple l'objet copié par un CopyTo

'''Exemple d'utilisation:'''

<source lang="delphi">

// Créer des écritures a partir des réglements
//
procedure _doCreateEcritureReglements(iOidPiece:string; iOpeId:string);
var sel:TSelector;
begin
sel := vueEcritureReglement.CreateSelector('(oidBordereau=%1)','',True,[oidBordereauReglement]);
sel.AddParameter('ArgBordereau',oidBordereauReglement);
sel.Operation := 'EcrReg';
sel.OpeId := iOpeId;
//
sel.CopyTo('TEcriture',['oidpiece','eDate','sens','sensProrata','regimeTVA','typeEcriture'],[
iOidPiece,
BordereauReglement.dateReglement,
sens_credit,
sens_credit,
regimeTVA_Encaissements,
typeEcriture_Brouillard
]);
end;

Type
vueUpdateReglement = viewOf(TReglement)
vl:TdbfLogOpe = join('(opeId=%ArgOpeId) and (operation=%ArgOperation) and (oidSourceObject=self.oid)');
oidEcriture:TOID = oidEcriture;
oidTargetEcriture:TOID = vl.oidTargetObject;
oidBordereau:TOID = oidBordereauReglement;
end;

// Met à jour l'oidEcriture créée sur les réglements correspondants
..
procedure _doUpdateReglementEcriture(iOidPiece:string; iOpeId:string);
var sel:TSelector;
begin
sel := vueUpdateReglement.CreateSelector('(oidBordereau=%1)','',True,[oidBordereauReglement]);
sel.AddParameter('ArgOpeId',iOpeId);
sel.AddParameter('ArgOperation','EcrReg');
//
sel.Update(['oidEcriture'],['oidTargetEcriture']);
end;

</source>

===ToJson()===

<source lang="delphi">procedure ToJson(SA:TJsonArray);</source>

Sérialize tous les objets retournés par le sélecteur au format JSon comptabible avec les tables react

'''Exemple:'''

<source lang="delphi">

//procedure GetData(SRows:TJsonArray);
Type
myView = viewOf(...)
...
end;

var sel:TSelector;
begin
// Selector to retreive the data
//
sel := myView.CreateSelector('','',True,[]);
sel.ToJson(SRows);
end;
</source>

===UpdateFrom()===

<source lang="delphi">
function updateFrom(sel:TSelector; iMatchedProps:Array of string; iUpdatedProps:Array of string; iUpdatedValue:Array of variant):Integer;
</source>

Permet de mettre à jour une classe à partir d'un sélecteur et d'une colonne de correspondance.

'''Exemple :'''

<source lang="delphi">
Type
// Update the temp table
vueTemp = viewOf(TempLettrage)
reference1:string = reference1;
reference2:string = reference2;
modeLettrage:Integer = modeLettrage;
end;

vueRef1 = viewOf(TempLettrage)
//ACount:Integer = count(id);
ATotal:Currency = sumSign(montant:TCValue,sens,'1');
reference1:string = reference1;
[(modeLettrage=0) and (reference1<>'')]
end;

var selT,selG:TSelector;
begin
withP long transaction do
begin
// for updating the temp table on "match"
selT := vueTemp.CreateSelector('','',True,[]);

// Lettrage sur reference 1
selG := vueRef1.CreateSelector('(ATotal=0)','',True,[]);
selG.useCTE := True;
selT.UpdateFrom(selG,['reference1'],['modeLettrage'],[1]);
end;
end;
</source>

<pre>
with CTE as (
select sum(case when t0.sens=1 then ISNULL(t0.montant_TCValue, 0) else -ISNULL(t0.montant_TCValue, 0) end) as "ATotal",t0.reference1 as "reference1"
from dbo.TEMPLETTRAGE t0 WITH (NOLOCK)
where ((t0.modeLettrage = 0) and (t0.reference1 IS NOT NULL))
group by t0.reference1
)
merge into dbo.TEMPLETTRAGE tm0 using (
SELECT *
FROM CTE
Where (ATotal = 0.0000)
) tm1 on (tm1.reference1=tm0.reference1)
when matched then update set
tm0.modeLettrage = 1
;
</pre>

[[Category:Version 2025 R2]]
[[Category:Release note]]

Version 2025 r2 (release note)

2025-04-26T09:11:13Z

Syfre : /* ToJson() */

{{version2025r1}}
__TOC__

''' PREVIEW '''

==Langage==

* Paramètre de type classe
: Les paramètres de type classe peuvent être passé directement

<source lang="delphi">
Type
MyClass1 = class
class procedure foo(rg:TRegClass);
end;

MyClass2 = class
....
end;

MyClass3 = class
procedure oldbar();
procedure newbar();
end;

class procedure MyClass1.foo(rg:TRegClass);
begin
// => MyClass2
showMessage(rg.aClassName);
end;

procedure MyClass3.oldbar();
var rg:TRegClass;
begin
ModelManager.FindClass('MyClass2');
myClass1.foo(rg);
end;

procedure MyClass3.newbar();
begin
myClass1.foo(MyClass2);
end;
</source>

==Modèle==

===Classes===

* Méthode AllocOID

<source lang="delphi">class function AllocOID:TOID;</source>
* Alloue un oid de la classe
: Peut être utile dans les tests unitaires

* Méthode ToJson()

<source lang="delphi">procedure ToJson(SA:variant);</source>

* Sérialize l'objet en json
: SA peut être un TJsonArray ou un TJsonStruct

===Classes SQL===

* Options de rôle : NoRefIndex

* Options de rôle : NoForeignKey

==Script==

===Trace===

<source lang="delphi">procedure dbgClear();</source>
: Vide la trace

<source lang="delphi">procedure dbgEnable(value:boolean);</source>
: Active / désactive la trace

===Vue locale===

* Une vue locale peut contenir des attributs "oidXXX" sans définir le rôle

'''Exemple:'''

<source lang="delphi">
Type
vue1 = viewOf(ClassA)
p1:TEnum(enumName) = ...;
oidRef:TOID = oidrefB;
..
idRefB:TOID = oidrefB notInSelect;
[ (idRefB=%ArgRefB) and ....]
end;
</source>

* Une vue locale peut contenir des attributs non mappés dans la définition.

'''Exemple:'''

<source lang="delphi">
Type
vue1 = viewOf(ClassA)
ACount:Integer = count(oid)
oidRef:TOID;
codeRef:string;
libelleRef:string;
..
[ ...]
end;

var sel:TSelector;
begin
sel := vue1.createSelector();
case iGroupBy of
'refB':
begin
sel.AddColumn('oidrefB','oidRef');
sel.AddColumn('refB.code','codeRef');
sel.AddColumn('refB.Caption','libelleRef');
end;
'refC':
begin
sel.AddColumn('oidrefC','oidRef');
sel.AddColumn('refC.code','codeRef');
sel.AddColumn('refC.Caption','libelleRef');
end;
end;
end;
</source>

* Paramètre de type de donnée

<source lang="delphi">
Type
vue1 = viewOf(ClassA)
p1:TEnum(enumName) = ...;
end;
</source>

* Qualifier d'attribut NotInGroupBy

<source lang="delphi">
Type
vue1 = viewOf(ClassA)
p1:string = expression('...') notInGroupBy;
end;
</source>

* Héritage de vue locale

<source lang="delphi">
Type
vue1 = viewOf(ClassA)
p1:string = ...;
[...]
end;

vue2 = viewOf(vue1)
p1:string = ...;
[inherited and (...)]
end;
</source>

'''Exemple:'''

<source lang="delphi">
//function GetSelector(iGroupBy:string; iFilter:TJsonArray):TSelector;
Type
// défini une classe de base avec tous les filtres
//
vueEcritureLettrage = viewOf(TEcriture)
lettrable:boolean = compteGeneral.lettrable notInSelect;
idEtablissement:TOID = piece.oidEtablissement notInSelect;
idCompteGeneral:TOID = oidCompteGeneral notInSelect;
idRoleTiers:TOID = oidroleTiers notInSelect;
[(lettrable=true)
and ((oidLettrageEcriture='') or (dateLettrage=0))
and (typeEcriture<>0)
and (piece.lot.origineLot<>0)
and (eDate>=%ArgDateInf)
and (eDate<=%ArgDateSup)
and (idEtablissement=%ArgEtablissement)
and (idCompteGeneral=%ArgCompteGeneral)
and (idRoleTiers=%ArgRoleTiers)
]
end;

// Hérite de tous les filtres
//
vueEcritureLettrageGroupBy = viewOf(vueEcritureLettrage)
dateMin:TDatetime = min(eDate);
dateMax:TDatetime = max(eDate);
ACount:Integer = count(oid);
credit:Currency = sum('credit:TCValue');
debit:Currency = sum('debit:TCValue');
solde:Currency = sumDiff(debit,credit);
[inherited]
end;

begin
Result := vueLettrageGroupBy.CreateSelector('','',True,[]);
end;
</source>

* Scope de vue locale

Une vue locale peut être référencée en dehors de la méthode où elle est définie.

<source lang="delphi">
procedure Class1.foo;
Type
vue1 = viewOf(ClassA)
p1:string = ...;
end;
begin
...
end;

procedure Class2.bar;
Type
vue2 = viewOf(class1.foo.vue1)
p1:string = ...;
end;
begin
...
end;
</source>

* Expression Exists()

Une expression existe peut être utilisée dans les filtres comme une valeur logique

Note : Une expression Exists() est beaucoup plus rapide qu'un "Count<>0"

<source lang="delphi">
Type
vue1 = viewOf(ClassA)
id:string = ...;
end;

vue2 = viewOf(ClassB)
id:string = ...;
bb:boolean = vue1.Exists('(id=self.id)',True,[]) notInSelect;
[(bb=true) and (....)]
end;
</source>

* Expression de Sous requête

Une expression peut être définie par une sous requête

<source lang="delphi">
Type
VueTauxADate = ViewOf(TTauxADate)
idTVA : TOid = oidTVA;
tDate : Date = tDate;
taux : float = taux;
end;

vueMontantTVA = viewOf(TEcriture)
dateEcriture:TDatetime=eDate notInSelect;
oidTVA:TOID = ProfilTVA.oidTVA notInSelect;
oidPiece:TOID = oidPiece;
montantTVAReel:Currency = vueTauxADate.select('taux * self.montant_TCValue /100','(tDate<=self.dateEcriture)and(idTVA=self.oidTVA)','',True,[]);
montantTVAReel_CodeDevise:string = montantTVAReel:CodeDevise;
end;
</source>

==Sélecteur==

* lastOpeStamp, lastOpeAffected, lastOpeFirstOID
: Attributs mis à jour par la dernière opération assembliste.

* operationId, operation
: Permet d'enregistrer les opérations dans la table TdbfLogOpe
: S'applique à CopyTo()

* RmvParameter()
: Permet de retirer un paramètre qui a été ajouté par AddParameter()

* Amélioration de CopyTo
: Permet de créer des objets à partir d'un sélecteur

* CopyTo, Update, UpdateFrom
: Fonctionne sur les classes de stéréotype SQL

===TdbfLogOpe===

Classe SQL définie par le framework et permettant d'enregistrer les opérations du sélecteur

<source lang="delphi">
TdbfLogOpe = Class(TsqlObject)
public
property action: StringS[128];
property id: SQLIdentity;
property oidSourceObject: TOID;
property oidTargetObject: TOID;
property opeId: StringS[128];
property operation: StringS[128];
property SourceObject: Ref(roGeneric,roNotExternal,roNoForeignKey,roNoRoleIndex) of TitObject;
property TargetObject: Ref(roGeneric,roNotExternal,roNoForeignKey,roNoRoleIndex) of TitObject;
end;
</source>

* opeId, operationId
: Un identifiant unique (guid) identifiant l'ensemble des opérations

* opération
: Nom de l'opération dans l'ensemble des opérations

* action
: Action de l'opération
: Par exemple INSERT pour un CopyTo

* oidSourceObject
: identifiant de l'objet source dans l'opération
: Par exemple l'objet source de la copie pour un CopyTo

* oidTargetObject
: identifiant de l'objet cible dans l'opération
: Par exemple l'objet copié par un CopyTo

'''Exemple d'utilisation:'''

<source lang="delphi">

// Créer des écritures a partir des réglements
//
procedure _doCreateEcritureReglements(iOidPiece:string; iOpeId:string);
var sel:TSelector;
begin
sel := vueEcritureReglement.CreateSelector('(oidBordereau=%1)','',True,[oidBordereauReglement]);
sel.AddParameter('ArgBordereau',oidBordereauReglement);
sel.Operation := 'EcrReg';
sel.OpeId := iOpeId;
//
sel.CopyTo('TEcriture',['oidpiece','eDate','sens','sensProrata','regimeTVA','typeEcriture'],[
iOidPiece,
BordereauReglement.dateReglement,
sens_credit,
sens_credit,
regimeTVA_Encaissements,
typeEcriture_Brouillard
]);
end;

Type
vueUpdateReglement = viewOf(TReglement)
vl:TdbfLogOpe = join('(opeId=%ArgOpeId) and (operation=%ArgOperation) and (oidSourceObject=self.oid)');
oidEcriture:TOID = oidEcriture;
oidTargetEcriture:TOID = vl.oidTargetObject;
oidBordereau:TOID = oidBordereauReglement;
end;

// Met à jour l'oidEcriture créée sur les réglements correspondants
..
procedure _doUpdateReglementEcriture(iOidPiece:string; iOpeId:string);
var sel:TSelector;
begin
sel := vueUpdateReglement.CreateSelector('(oidBordereau=%1)','',True,[oidBordereauReglement]);
sel.AddParameter('ArgOpeId',iOpeId);
sel.AddParameter('ArgOperation','EcrReg');
//
sel.Update(['oidEcriture'],['oidTargetEcriture']);
end;

</source>

===ToJson()===

Sérialize tous les objets retournés par le sélecteur au format JSon comptabible avec les tables react

<source lang="delphi">procedure ToJson(SA:TJsonArray);</source>

'''Exemple:'''

<source lang="delphi">

//procedure GetData(SRows:TJsonArray);
Type
myView = viewOf(...)
...
end;

var sel:TSelector;
begin
// Selector to retreive the data
//
sel := myView.CreateSelector('','',True,[]);
sel.ToJson(SRows);
end;
</source>

* Sérialize tous les objets retournés par le sélecteur

===UpdateFrom()===

<source lang="delphi">
function updateFrom(sel:TSelector; iMatchedProps:Array of string; iUpdatedProps:Array of string; iUpdatedValue:Array of variant):Integer;
</source>

Permet de mettre à jour une classe à partir d'un sélecteur et d'une colonne de correspondance.

'''Exemple :'''

<source lang="delphi">
Type
// Update the temp table
vueTemp = viewOf(TempLettrage)
reference1:string = reference1;
reference2:string = reference2;
modeLettrage:Integer = modeLettrage;
end;

vueRef1 = viewOf(TempLettrage)
//ACount:Integer = count(id);
ATotal:Currency = sumSign(montant:TCValue,sens,'1');
reference1:string = reference1;
[(modeLettrage=0) and (reference1<>'')]
end;

var selT,selG:TSelector;
begin
withP long transaction do
begin
// for updating the temp table on "match"
selT := vueTemp.CreateSelector('','',True,[]);

// Lettrage sur reference 1
selG := vueRef1.CreateSelector('(ATotal=0)','',True,[]);
selG.useCTE := True;
selT.UpdateFrom(selG,['reference1'],['modeLettrage'],[1]);
end;
end;
</source>

<pre>
with CTE as (
select sum(case when t0.sens=1 then ISNULL(t0.montant_TCValue, 0) else -ISNULL(t0.montant_TCValue, 0) end) as "ATotal",t0.reference1 as "reference1"
from dbo.TEMPLETTRAGE t0 WITH (NOLOCK)
where ((t0.modeLettrage = 0) and (t0.reference1 IS NOT NULL))
group by t0.reference1
)
merge into dbo.TEMPLETTRAGE tm0 using (
SELECT *
FROM CTE
Where (ATotal = 0.0000)
) tm1 on (tm1.reference1=tm0.reference1)
when matched then update set
tm0.modeLettrage = 1
;
</pre>

[[Category:Version 2025 R2]]
[[Category:Release note]]

Version 2025 r2 (release note)

2025-04-26T09:10:05Z

Syfre : /* Sélecteur */

{{version2025r1}}
__TOC__

''' PREVIEW '''

==Langage==

* Paramètre de type classe
: Les paramètres de type classe peuvent être passé directement

<source lang="delphi">
Type
MyClass1 = class
class procedure foo(rg:TRegClass);
end;

MyClass2 = class
....
end;

MyClass3 = class
procedure oldbar();
procedure newbar();
end;

class procedure MyClass1.foo(rg:TRegClass);
begin
// => MyClass2
showMessage(rg.aClassName);
end;

procedure MyClass3.oldbar();
var rg:TRegClass;
begin
ModelManager.FindClass('MyClass2');
myClass1.foo(rg);
end;

procedure MyClass3.newbar();
begin
myClass1.foo(MyClass2);
end;
</source>

==Modèle==

===Classes===

* Méthode AllocOID

<source lang="delphi">class function AllocOID:TOID;</source>
* Alloue un oid de la classe
: Peut être utile dans les tests unitaires

* Méthode ToJson()

<source lang="delphi">procedure ToJson(SA:variant);</source>

* Sérialize l'objet en json
: SA peut être un TJsonArray ou un TJsonStruct

===Classes SQL===

* Options de rôle : NoRefIndex

* Options de rôle : NoForeignKey

==Script==

===Trace===

<source lang="delphi">procedure dbgClear();</source>
: Vide la trace

<source lang="delphi">procedure dbgEnable(value:boolean);</source>
: Active / désactive la trace

===Vue locale===

* Une vue locale peut contenir des attributs "oidXXX" sans définir le rôle

'''Exemple:'''

<source lang="delphi">
Type
vue1 = viewOf(ClassA)
p1:TEnum(enumName) = ...;
oidRef:TOID = oidrefB;
..
idRefB:TOID = oidrefB notInSelect;
[ (idRefB=%ArgRefB) and ....]
end;
</source>

* Une vue locale peut contenir des attributs non mappés dans la définition.

'''Exemple:'''

<source lang="delphi">
Type
vue1 = viewOf(ClassA)
ACount:Integer = count(oid)
oidRef:TOID;
codeRef:string;
libelleRef:string;
..
[ ...]
end;

var sel:TSelector;
begin
sel := vue1.createSelector();
case iGroupBy of
'refB':
begin
sel.AddColumn('oidrefB','oidRef');
sel.AddColumn('refB.code','codeRef');
sel.AddColumn('refB.Caption','libelleRef');
end;
'refC':
begin
sel.AddColumn('oidrefC','oidRef');
sel.AddColumn('refC.code','codeRef');
sel.AddColumn('refC.Caption','libelleRef');
end;
end;
end;
</source>

* Paramètre de type de donnée

<source lang="delphi">
Type
vue1 = viewOf(ClassA)
p1:TEnum(enumName) = ...;
end;
</source>

* Qualifier d'attribut NotInGroupBy

<source lang="delphi">
Type
vue1 = viewOf(ClassA)
p1:string = expression('...') notInGroupBy;
end;
</source>

* Héritage de vue locale

<source lang="delphi">
Type
vue1 = viewOf(ClassA)
p1:string = ...;
[...]
end;

vue2 = viewOf(vue1)
p1:string = ...;
[inherited and (...)]
end;
</source>

'''Exemple:'''

<source lang="delphi">
//function GetSelector(iGroupBy:string; iFilter:TJsonArray):TSelector;
Type
// défini une classe de base avec tous les filtres
//
vueEcritureLettrage = viewOf(TEcriture)
lettrable:boolean = compteGeneral.lettrable notInSelect;
idEtablissement:TOID = piece.oidEtablissement notInSelect;
idCompteGeneral:TOID = oidCompteGeneral notInSelect;
idRoleTiers:TOID = oidroleTiers notInSelect;
[(lettrable=true)
and ((oidLettrageEcriture='') or (dateLettrage=0))
and (typeEcriture<>0)
and (piece.lot.origineLot<>0)
and (eDate>=%ArgDateInf)
and (eDate<=%ArgDateSup)
and (idEtablissement=%ArgEtablissement)
and (idCompteGeneral=%ArgCompteGeneral)
and (idRoleTiers=%ArgRoleTiers)
]
end;

// Hérite de tous les filtres
//
vueEcritureLettrageGroupBy = viewOf(vueEcritureLettrage)
dateMin:TDatetime = min(eDate);
dateMax:TDatetime = max(eDate);
ACount:Integer = count(oid);
credit:Currency = sum('credit:TCValue');
debit:Currency = sum('debit:TCValue');
solde:Currency = sumDiff(debit,credit);
[inherited]
end;

begin
Result := vueLettrageGroupBy.CreateSelector('','',True,[]);
end;
</source>

* Scope de vue locale

Une vue locale peut être référencée en dehors de la méthode où elle est définie.

<source lang="delphi">
procedure Class1.foo;
Type
vue1 = viewOf(ClassA)
p1:string = ...;
end;
begin
...
end;

procedure Class2.bar;
Type
vue2 = viewOf(class1.foo.vue1)
p1:string = ...;
end;
begin
...
end;
</source>

* Expression Exists()

Une expression existe peut être utilisée dans les filtres comme une valeur logique

Note : Une expression Exists() est beaucoup plus rapide qu'un "Count<>0"

<source lang="delphi">
Type
vue1 = viewOf(ClassA)
id:string = ...;
end;

vue2 = viewOf(ClassB)
id:string = ...;
bb:boolean = vue1.Exists('(id=self.id)',True,[]) notInSelect;
[(bb=true) and (....)]
end;
</source>

* Expression de Sous requête

Une expression peut être définie par une sous requête

<source lang="delphi">
Type
VueTauxADate = ViewOf(TTauxADate)
idTVA : TOid = oidTVA;
tDate : Date = tDate;
taux : float = taux;
end;

vueMontantTVA = viewOf(TEcriture)
dateEcriture:TDatetime=eDate notInSelect;
oidTVA:TOID = ProfilTVA.oidTVA notInSelect;
oidPiece:TOID = oidPiece;
montantTVAReel:Currency = vueTauxADate.select('taux * self.montant_TCValue /100','(tDate<=self.dateEcriture)and(idTVA=self.oidTVA)','',True,[]);
montantTVAReel_CodeDevise:string = montantTVAReel:CodeDevise;
end;
</source>

==Sélecteur==

* lastOpeStamp, lastOpeAffected, lastOpeFirstOID
: Attributs mis à jour par la dernière opération assembliste.

* operationId, operation
: Permet d'enregistrer les opérations dans la table TdbfLogOpe
: S'applique à CopyTo()

* RmvParameter()
: Permet de retirer un paramètre qui a été ajouté par AddParameter()

* Amélioration de CopyTo
: Permet de créer des objets à partir d'un sélecteur

* CopyTo, Update, UpdateFrom
: Fonctionne sur les classes de stéréotype SQL

===TdbfLogOpe===

Classe SQL définie par le framework et permettant d'enregistrer les opérations du sélecteur

<source lang="delphi">
TdbfLogOpe = Class(TsqlObject)
public
property action: StringS[128];
property id: SQLIdentity;
property oidSourceObject: TOID;
property oidTargetObject: TOID;
property opeId: StringS[128];
property operation: StringS[128];
property SourceObject: Ref(roGeneric,roNotExternal,roNoForeignKey,roNoRoleIndex) of TitObject;
property TargetObject: Ref(roGeneric,roNotExternal,roNoForeignKey,roNoRoleIndex) of TitObject;
end;
</source>

* opeId, operationId
: Un identifiant unique (guid) identifiant l'ensemble des opérations

* opération
: Nom de l'opération dans l'ensemble des opérations

* action
: Action de l'opération
: Par exemple INSERT pour un CopyTo

* oidSourceObject
: identifiant de l'objet source dans l'opération
: Par exemple l'objet source de la copie pour un CopyTo

* oidTargetObject
: identifiant de l'objet cible dans l'opération
: Par exemple l'objet copié par un CopyTo

'''Exemple d'utilisation:'''

<source lang="delphi">

// Créer des écritures a partir des réglements
//
procedure _doCreateEcritureReglements(iOidPiece:string; iOpeId:string);
var sel:TSelector;
begin
sel := vueEcritureReglement.CreateSelector('(oidBordereau=%1)','',True,[oidBordereauReglement]);
sel.AddParameter('ArgBordereau',oidBordereauReglement);
sel.Operation := 'EcrReg';
sel.OpeId := iOpeId;
//
sel.CopyTo('TEcriture',['oidpiece','eDate','sens','sensProrata','regimeTVA','typeEcriture'],[
iOidPiece,
BordereauReglement.dateReglement,
sens_credit,
sens_credit,
regimeTVA_Encaissements,
typeEcriture_Brouillard
]);
end;

Type
vueUpdateReglement = viewOf(TReglement)
vl:TdbfLogOpe = join('(opeId=%ArgOpeId) and (operation=%ArgOperation) and (oidSourceObject=self.oid)');
oidEcriture:TOID = oidEcriture;
oidTargetEcriture:TOID = vl.oidTargetObject;
oidBordereau:TOID = oidBordereauReglement;
end;

// Met à jour l'oidEcriture créée sur les réglements correspondants
..
procedure _doUpdateReglementEcriture(iOidPiece:string; iOpeId:string);
var sel:TSelector;
begin
sel := vueUpdateReglement.CreateSelector('(oidBordereau=%1)','',True,[oidBordereauReglement]);
sel.AddParameter('ArgOpeId',iOpeId);
sel.AddParameter('ArgOperation','EcrReg');
//
sel.Update(['oidEcriture'],['oidTargetEcriture']);
end;

</source>

===ToJson()===

<source lang="delphi">procedure ToJson(SA:TJsonArray);</source>

'''Exemple:'''

<source lang="delphi">

//procedure GetData(SRows:TJsonArray);
Type
myView = viewOf(...)
...
end;

var sel:TSelector;
begin
// Selector to retreive the data
//
sel := myView.CreateSelector('','',True,[]);
sel.ToJson(SRows);
end;
</source>

* Sérialize tous les objets retournés par le sélecteur

===UpdateFrom()===

<source lang="delphi">
function updateFrom(sel:TSelector; iMatchedProps:Array of string; iUpdatedProps:Array of string; iUpdatedValue:Array of variant):Integer;
</source>

Permet de mettre à jour une classe à partir d'un sélecteur et d'une colonne de correspondance.

'''Exemple :'''

<source lang="delphi">
Type
// Update the temp table
vueTemp = viewOf(TempLettrage)
reference1:string = reference1;
reference2:string = reference2;
modeLettrage:Integer = modeLettrage;
end;

vueRef1 = viewOf(TempLettrage)
//ACount:Integer = count(id);
ATotal:Currency = sumSign(montant:TCValue,sens,'1');
reference1:string = reference1;
[(modeLettrage=0) and (reference1<>'')]
end;

var selT,selG:TSelector;
begin
withP long transaction do
begin
// for updating the temp table on "match"
selT := vueTemp.CreateSelector('','',True,[]);

// Lettrage sur reference 1
selG := vueRef1.CreateSelector('(ATotal=0)','',True,[]);
selG.useCTE := True;
selT.UpdateFrom(selG,['reference1'],['modeLettrage'],[1]);
end;
end;
</source>

<pre>
with CTE as (
select sum(case when t0.sens=1 then ISNULL(t0.montant_TCValue, 0) else -ISNULL(t0.montant_TCValue, 0) end) as "ATotal",t0.reference1 as "reference1"
from dbo.TEMPLETTRAGE t0 WITH (NOLOCK)
where ((t0.modeLettrage = 0) and (t0.reference1 IS NOT NULL))
group by t0.reference1
)
merge into dbo.TEMPLETTRAGE tm0 using (
SELECT *
FROM CTE
Where (ATotal = 0.0000)
) tm1 on (tm1.reference1=tm0.reference1)
when matched then update set
tm0.modeLettrage = 1
;
</pre>

[[Category:Version 2025 R2]]
[[Category:Release note]]

Version 2025 r2 (release note)

2025-04-26T08:54:51Z

Syfre : /* Vue locale */

Version 2025 r2 (release note)

2025-04-17T18:24:33Z

Syfre : /* Langage */

Version 2025 r2 (release note)

2025-04-17T18:24:18Z

Syfre : /* Modèle */

{{version2025r1}}
__TOC__

''' PREVIEW '''

==Langage==

* Paramètre classe
: Les paramètres de type classe peuvent être passé directement

<source lang="delphi">
Type
MyClass1 = class
class procedure foo(rg:TRegClass);
end;

MyClass2 = class
....
end;

MyClass3 = class
procedure oldbar();
procedure newbar();
end;

class procedure MyClass1.foo(rg:TRegClass);
begin
// => MyClass2
showMessage(rg.aClassName);
end;

procedure MyClass3.oldbar();
var rg:TRegClass;
begin
ModelManager.FindClass('MyClass2');
myClass1.foo(rg);
end;

procedure MyClass3.newbar();
begin
myClass1.foo(MyClass2);
end;
</source>

==Modèle==

===Classes===

* Méthode AllocOID

<source lang="delphi">class function AllocOID:TOID;</source>
* Alloue un oid de la classe
: Peut être utile dans les tests unitaires

* Méthode ToJson()

<source lang="delphi">procedure ToJson(SA:variant);</source>

* Sérialize l'objet en json
: SA peut être un TJsonArray ou un TJsonStruct

===Classes SQL===

* Options de rôle : NoRefIndex

* Options de rôle : NoForeignKey

==Script==

===Trace===

<source lang="delphi">procedure dbgClear();</source>
: Vide la trace

<source lang="delphi">procedure dbgEnable(value:boolean);</source>
: Active / désactive la trace

===Vue locale===

* Une vue locale peut contenir des attributs "oidXXX" sans définir le rôle

'''Exemple:'''

<source lang="delphi">
Type
vue1 = viewOf(ClassA)
p1:TEnum(enumName) = ...;
oidRef:TOID = oidrefB;
..
idRefB:TOID = oidrefB notInSelect;
[ (idRefB=%ArgRefB) and ....]
end;
</source>

* Une vue locale peut contenir des attributs non mappés dans la définition.

'''Exemple:'''

<source lang="delphi">
Type
vue1 = viewOf(ClassA)
ACount:Integer = count(oid)
oidRef:TOID;
codeRef:string;
libelleRef:string;
..
[ ...]
end;

var sel:TSelector;
begin
sel := vue1.createSelector();
case iGroupBy of
'refB':
begin
sel.AddColumn('oidrefB','oidRef');
sel.AddColumn('refB.code','codeRef');
sel.AddColumn('refB.Caption','libelleRef');
end;
'refC':
begin
sel.AddColumn('oidrefC','oidRef');
sel.AddColumn('refC.code','codeRef');
sel.AddColumn('refC.Caption','libelleRef');
end;
end;
end;
</source>

* Paramètre de type de donnée

<source lang="delphi">
Type
vue1 = viewOf(ClassA)
p1:TEnum(enumName) = ...;
end;
</source>

* Qualifier d'attribut NotInGroupBy

<source lang="delphi">
Type
vue1 = viewOf(ClassA)
p1:string = expression('...') notInGroupBy;
end;
</source>

* Héritage de vue locale

<source lang="delphi">
Type
vue1 = viewOf(ClassA)
p1:string = ...;
[...]
end;

vue2 = viewOf(vue1)
p1:string = ...;
[inherited and (...)]
end;
</source>

'''Exemple:'''

<source lang="delphi">
//function GetSelector(iGroupBy:string; iFilter:TJsonArray):TSelector;
Type
// défini une classe de base avec tous les filtres
//
vueEcritureLettrage = viewOf(TEcriture)
lettrable:boolean = compteGeneral.lettrable notInSelect;
idEtablissement:TOID = piece.oidEtablissement notInSelect;
idCompteGeneral:TOID = oidCompteGeneral notInSelect;
idRoleTiers:TOID = oidroleTiers notInSelect;
[(lettrable=true)
and ((oidLettrageEcriture='') or (dateLettrage=0))
and (typeEcriture<>0)
and (piece.lot.origineLot<>0)
and (eDate>=%ArgDateInf)
and (eDate<=%ArgDateSup)
and (idEtablissement=%ArgEtablissement)
and (idCompteGeneral=%ArgCompteGeneral)
and (idRoleTiers=%ArgRoleTiers)
]
end;

// Hérite de tous les filtres
//
vueEcritureLettrageGroupBy = viewOf(vueEcritureLettrage)
dateMin:TDatetime = min(eDate);
dateMax:TDatetime = max(eDate);
ACount:Integer = count(oid);
credit:Currency = sum('credit:TCValue');
debit:Currency = sum('debit:TCValue');
solde:Currency = sumDiff(debit,credit);
[inherited]
end;

begin
Result := vueLettrageGroupBy.CreateSelector('','',True,[]);
end;
</source>

* Scope de vue locale

Une vue locale peut être référencée en dehors de la méthode où elle est définie.

<source lang="delphi">
procedure Class1.foo;
Type
vue1 = viewOf(ClassA)
p1:string = ...;
end;
begin
...
end;

procedure Class2.bar;
Type
vue2 = viewOf(class1.foo.vue1)
p1:string = ...;
end;
begin
...
end;
</source>

* Expression Exists()

Une expression existe peut être utilisée dans les filtres comme une valeur logique

Note : Une expression Exists() est beaucoup plus rapide qu'un "Count<>0"

<source lang="delphi">
Type
vue1 = viewOf(ClassA)
id:string = ...;
end;

vue2 = viewOf(ClassB)
id:string = ...;
bb:boolean = vue1.Exists('(id=self.id)',True,[]) notInSelect;
[(bb=true) and (....)]
end;
</source>

==Sélecteur==

* lastOpeStamp, lastAffectedStamp
: Attributs mis à jour par la dernière opération assembliste.

* RmvParameter()
: Permet de retirer un paramètre qui a été ajouté par AddParameter()

* Amélioration de CopyTo
: Permet de créer des objets à partir d'un sélecteur

* CopyTo, Update, UpdateFrom
: Fonctionne sur les classes de stéréotype SQL

===ToJson()===

<source lang="delphi">procedure ToJson(SA:TJsonArray);</source>

'''Exemple:'''

<source lang="delphi">

//procedure GetData(SRows:TJsonArray);
Type
myView = viewOf(...)
...
end;

var sel:TSelector;
begin
// Selector to retreive the data
//
sel := myView.CreateSelector('','',True,[]);
sel.ToJson(SRows);
end;
</source>

* Sérialize tous les objets retournés par le sélecteur

===UpdateFrom()===

<source lang="delphi">
function updateFrom(sel:TSelector; iMatchedProps:Array of string; iUpdatedProps:Array of string; iUpdatedValue:Array of variant):Integer;
</source>

Permet de mettre à jour une classe à partir d'un sélecteur et d'une colonne de correspondance.

'''Exemple :'''

<source lang="delphi">
Type
// Update the temp table
vueTemp = viewOf(TempLettrage)
reference1:string = reference1;
reference2:string = reference2;
modeLettrage:Integer = modeLettrage;
end;

vueRef1 = viewOf(TempLettrage)
//ACount:Integer = count(id);
ATotal:Currency = sumSign(montant:TCValue,sens,'1');
reference1:string = reference1;
[(modeLettrage=0) and (reference1<>'')]
end;

var selT,selG:TSelector;
begin
withP long transaction do
begin
// for updating the temp table on "match"
selT := vueTemp.CreateSelector('','',True,[]);

// Lettrage sur reference 1
selG := vueRef1.CreateSelector('(ATotal=0)','',True,[]);
selG.useCTE := True;
selT.UpdateFrom(selG,['reference1'],['modeLettrage'],[1]);
end;
end;
</source>

<pre>
with CTE as (
select sum(case when t0.sens=1 then ISNULL(t0.montant_TCValue, 0) else -ISNULL(t0.montant_TCValue, 0) end) as "ATotal",t0.reference1 as "reference1"
from dbo.TEMPLETTRAGE t0 WITH (NOLOCK)
where ((t0.modeLettrage = 0) and (t0.reference1 IS NOT NULL))
group by t0.reference1
)
merge into dbo.TEMPLETTRAGE tm0 using (
SELECT *
FROM CTE
Where (ATotal = 0.0000)
) tm1 on (tm1.reference1=tm0.reference1)
when matched then update set
tm0.modeLettrage = 1
;
</pre>

[[Category:Version 2025 R2]]
[[Category:Release note]]

Version 2025 r2 (release note)

2025-04-16T15:44:10Z

Syfre : /* Sélecteur */

{{version2025r1}}
__TOC__

''' PREVIEW '''

==Modèle==

===Classes===

* Méthode AllocOID

<source lang="delphi">class function AllocOID:TOID;</source>
* Alloue un oid de la classe
: Peut être utile dans les tests unitaires

* Méthode ToJson()

<source lang="delphi">procedure ToJson(SA:variant);</source>

* Sérialize l'objet en json
: SA peut être un TJsonArray ou un TJsonStruct

===Classes SQL===

* Options de rôle : NoRefIndex

* Options de rôle : NoForeignKey

==Script==

===Trace===

<source lang="delphi">procedure dbgClear();</source>
: Vide la trace

<source lang="delphi">procedure dbgEnable(value:boolean);</source>
: Active / désactive la trace

===Vue locale===

* Une vue locale peut contenir des attributs "oidXXX" sans définir le rôle

'''Exemple:'''

<source lang="delphi">
Type
vue1 = viewOf(ClassA)
p1:TEnum(enumName) = ...;
oidRef:TOID = oidrefB;
..
idRefB:TOID = oidrefB notInSelect;
[ (idRefB=%ArgRefB) and ....]
end;
</source>

* Une vue locale peut contenir des attributs non mappés dans la définition.

'''Exemple:'''

<source lang="delphi">
Type
vue1 = viewOf(ClassA)
ACount:Integer = count(oid)
oidRef:TOID;
codeRef:string;
libelleRef:string;
..
[ ...]
end;

var sel:TSelector;
begin
sel := vue1.createSelector();
case iGroupBy of
'refB':
begin
sel.AddColumn('oidrefB','oidRef');
sel.AddColumn('refB.code','codeRef');
sel.AddColumn('refB.Caption','libelleRef');
end;
'refC':
begin
sel.AddColumn('oidrefC','oidRef');
sel.AddColumn('refC.code','codeRef');
sel.AddColumn('refC.Caption','libelleRef');
end;
end;
end;
</source>

* Paramètre de type de donnée

<source lang="delphi">
Type
vue1 = viewOf(ClassA)
p1:TEnum(enumName) = ...;
end;
</source>

* Qualifier d'attribut NotInGroupBy

<source lang="delphi">
Type
vue1 = viewOf(ClassA)
p1:string = expression('...') notInGroupBy;
end;
</source>

* Héritage de vue locale

<source lang="delphi">
Type
vue1 = viewOf(ClassA)
p1:string = ...;
[...]
end;

vue2 = viewOf(vue1)
p1:string = ...;
[inherited and (...)]
end;
</source>

'''Exemple:'''

<source lang="delphi">
//function GetSelector(iGroupBy:string; iFilter:TJsonArray):TSelector;
Type
// défini une classe de base avec tous les filtres
//
vueEcritureLettrage = viewOf(TEcriture)
lettrable:boolean = compteGeneral.lettrable notInSelect;
idEtablissement:TOID = piece.oidEtablissement notInSelect;
idCompteGeneral:TOID = oidCompteGeneral notInSelect;
idRoleTiers:TOID = oidroleTiers notInSelect;
[(lettrable=true)
and ((oidLettrageEcriture='') or (dateLettrage=0))
and (typeEcriture<>0)
and (piece.lot.origineLot<>0)
and (eDate>=%ArgDateInf)
and (eDate<=%ArgDateSup)
and (idEtablissement=%ArgEtablissement)
and (idCompteGeneral=%ArgCompteGeneral)
and (idRoleTiers=%ArgRoleTiers)
]
end;

// Hérite de tous les filtres
//
vueEcritureLettrageGroupBy = viewOf(vueEcritureLettrage)
dateMin:TDatetime = min(eDate);
dateMax:TDatetime = max(eDate);
ACount:Integer = count(oid);
credit:Currency = sum('credit:TCValue');
debit:Currency = sum('debit:TCValue');
solde:Currency = sumDiff(debit,credit);
[inherited]
end;

begin
Result := vueLettrageGroupBy.CreateSelector('','',True,[]);
end;
</source>

* Scope de vue locale

Une vue locale peut être référencée en dehors de la méthode où elle est définie.

<source lang="delphi">
procedure Class1.foo;
Type
vue1 = viewOf(ClassA)
p1:string = ...;
end;
begin
...
end;

procedure Class2.bar;
Type
vue2 = viewOf(class1.foo.vue1)
p1:string = ...;
end;
begin
...
end;
</source>

* Expression Exists()

Une expression existe peut être utilisée dans les filtres comme une valeur logique

Note : Une expression Exists() est beaucoup plus rapide qu'un "Count<>0"

<source lang="delphi">
Type
vue1 = viewOf(ClassA)
id:string = ...;
end;

vue2 = viewOf(ClassB)
id:string = ...;
bb:boolean = vue1.Exists('(id=self.id)',True,[]) notInSelect;
[(bb=true) and (....)]
end;
</source>

==Sélecteur==

* lastOpeStamp, lastAffectedStamp
: Attributs mis à jour par la dernière opération assembliste.

* RmvParameter()
: Permet de retirer un paramètre qui a été ajouté par AddParameter()

* Amélioration de CopyTo
: Permet de créer des objets à partir d'un sélecteur

* CopyTo, Update, UpdateFrom
: Fonctionne sur les classes de stéréotype SQL

===ToJson()===

<source lang="delphi">procedure ToJson(SA:TJsonArray);</source>

'''Exemple:'''

<source lang="delphi">

//procedure GetData(SRows:TJsonArray);
Type
myView = viewOf(...)
...
end;

var sel:TSelector;
begin
// Selector to retreive the data
//
sel := myView.CreateSelector('','',True,[]);
sel.ToJson(SRows);
end;
</source>

* Sérialize tous les objets retournés par le sélecteur

===UpdateFrom()===

<source lang="delphi">
function updateFrom(sel:TSelector; iMatchedProps:Array of string; iUpdatedProps:Array of string; iUpdatedValue:Array of variant):Integer;
</source>

Permet de mettre à jour une classe à partir d'un sélecteur et d'une colonne de correspondance.

'''Exemple :'''

<source lang="delphi">
Type
// Update the temp table
vueTemp = viewOf(TempLettrage)
reference1:string = reference1;
reference2:string = reference2;
modeLettrage:Integer = modeLettrage;
end;

vueRef1 = viewOf(TempLettrage)
//ACount:Integer = count(id);
ATotal:Currency = sumSign(montant:TCValue,sens,'1');
reference1:string = reference1;
[(modeLettrage=0) and (reference1<>'')]
end;

var selT,selG:TSelector;
begin
withP long transaction do
begin
// for updating the temp table on "match"
selT := vueTemp.CreateSelector('','',True,[]);

// Lettrage sur reference 1
selG := vueRef1.CreateSelector('(ATotal=0)','',True,[]);
selG.useCTE := True;
selT.UpdateFrom(selG,['reference1'],['modeLettrage'],[1]);
end;
end;
</source>

<pre>
with CTE as (
select sum(case when t0.sens=1 then ISNULL(t0.montant_TCValue, 0) else -ISNULL(t0.montant_TCValue, 0) end) as "ATotal",t0.reference1 as "reference1"
from dbo.TEMPLETTRAGE t0 WITH (NOLOCK)
where ((t0.modeLettrage = 0) and (t0.reference1 IS NOT NULL))
group by t0.reference1
)
merge into dbo.TEMPLETTRAGE tm0 using (
SELECT *
FROM CTE
Where (ATotal = 0.0000)
) tm1 on (tm1.reference1=tm0.reference1)
when matched then update set
tm0.modeLettrage = 1
;
</pre>

[[Category:Version 2025 R2]]
[[Category:Release note]]

Version 2025 r2 (release note)

2025-04-16T15:36:50Z

Syfre : /* Classes */

{{version2025r1}}
__TOC__

''' PREVIEW '''

==Modèle==

===Classes===

* Méthode AllocOID

<source lang="delphi">class function AllocOID:TOID;</source>
* Alloue un oid de la classe
: Peut être utile dans les tests unitaires

* Méthode ToJson()

<source lang="delphi">procedure ToJson(SA:variant);</source>

* Sérialize l'objet en json
: SA peut être un TJsonArray ou un TJsonStruct

===Classes SQL===

* Options de rôle : NoRefIndex

* Options de rôle : NoForeignKey

==Script==

===Trace===

<source lang="delphi">procedure dbgClear();</source>
: Vide la trace

<source lang="delphi">procedure dbgEnable(value:boolean);</source>
: Active / désactive la trace

===Vue locale===

* Une vue locale peut contenir des attributs "oidXXX" sans définir le rôle

'''Exemple:'''

<source lang="delphi">
Type
vue1 = viewOf(ClassA)
p1:TEnum(enumName) = ...;
oidRef:TOID = oidrefB;
..
idRefB:TOID = oidrefB notInSelect;
[ (idRefB=%ArgRefB) and ....]
end;
</source>

* Une vue locale peut contenir des attributs non mappés dans la définition.

'''Exemple:'''

<source lang="delphi">
Type
vue1 = viewOf(ClassA)
ACount:Integer = count(oid)
oidRef:TOID;
codeRef:string;
libelleRef:string;
..
[ ...]
end;

var sel:TSelector;
begin
sel := vue1.createSelector();
case iGroupBy of
'refB':
begin
sel.AddColumn('oidrefB','oidRef');
sel.AddColumn('refB.code','codeRef');
sel.AddColumn('refB.Caption','libelleRef');
end;
'refC':
begin
sel.AddColumn('oidrefC','oidRef');
sel.AddColumn('refC.code','codeRef');
sel.AddColumn('refC.Caption','libelleRef');
end;
end;
end;
</source>

* Paramètre de type de donnée

<source lang="delphi">
Type
vue1 = viewOf(ClassA)
p1:TEnum(enumName) = ...;
end;
</source>

* Qualifier d'attribut NotInGroupBy

<source lang="delphi">
Type
vue1 = viewOf(ClassA)
p1:string = expression('...') notInGroupBy;
end;
</source>

* Héritage de vue locale

<source lang="delphi">
Type
vue1 = viewOf(ClassA)
p1:string = ...;
[...]
end;

vue2 = viewOf(vue1)
p1:string = ...;
[inherited and (...)]
end;
</source>

'''Exemple:'''

<source lang="delphi">
//function GetSelector(iGroupBy:string; iFilter:TJsonArray):TSelector;
Type
// défini une classe de base avec tous les filtres
//
vueEcritureLettrage = viewOf(TEcriture)
lettrable:boolean = compteGeneral.lettrable notInSelect;
idEtablissement:TOID = piece.oidEtablissement notInSelect;
idCompteGeneral:TOID = oidCompteGeneral notInSelect;
idRoleTiers:TOID = oidroleTiers notInSelect;
[(lettrable=true)
and ((oidLettrageEcriture='') or (dateLettrage=0))
and (typeEcriture<>0)
and (piece.lot.origineLot<>0)
and (eDate>=%ArgDateInf)
and (eDate<=%ArgDateSup)
and (idEtablissement=%ArgEtablissement)
and (idCompteGeneral=%ArgCompteGeneral)
and (idRoleTiers=%ArgRoleTiers)
]
end;

// Hérite de tous les filtres
//
vueEcritureLettrageGroupBy = viewOf(vueEcritureLettrage)
dateMin:TDatetime = min(eDate);
dateMax:TDatetime = max(eDate);
ACount:Integer = count(oid);
credit:Currency = sum('credit:TCValue');
debit:Currency = sum('debit:TCValue');
solde:Currency = sumDiff(debit,credit);
[inherited]
end;

begin
Result := vueLettrageGroupBy.CreateSelector('','',True,[]);
end;
</source>

* Scope de vue locale

Une vue locale peut être référencée en dehors de la méthode où elle est définie.

<source lang="delphi">
procedure Class1.foo;
Type
vue1 = viewOf(ClassA)
p1:string = ...;
end;
begin
...
end;

procedure Class2.bar;
Type
vue2 = viewOf(class1.foo.vue1)
p1:string = ...;
end;
begin
...
end;
</source>

* Expression Exists()

Une expression existe peut être utilisée dans les filtres comme une valeur logique

Note : Une expression Exists() est beaucoup plus rapide qu'un "Count<>0"

<source lang="delphi">
Type
vue1 = viewOf(ClassA)
id:string = ...;
end;

vue2 = viewOf(ClassB)
id:string = ...;
bb:boolean = vue1.Exists('(id=self.id)',True,[]) notInSelect;
[(bb=true) and (....)]
end;
</source>

==Sélecteur==

* lastOpeStamp, lastAffectedStamp
: Attributs mis à jour par la dernière opération assembliste.

* RmvParameter()
: Permet de retirer un paramètre qui a été ajouté par AddParameter()

* Amélioration de CopyTo
: Permet de créer des objets à partir d'un sélecteur

* CopyTo, Update, UpdateFrom
: Fonctionne sur les classes de stéréotype SQL

===UpdateFrom===

<source lang="delphi">
function updateFrom(sel:TSelector; iMatchedProps:Array of string; iUpdatedProps:Array of string; iUpdatedValue:Array of variant):Integer;
</source>

Permet de mettre à jour une classe à partir d'un sélecteur et d'une colonne de correspondance.

'''Exemple :'''

<source lang="delphi">
Type
// Update the temp table
vueTemp = viewOf(TempLettrage)
reference1:string = reference1;
reference2:string = reference2;
modeLettrage:Integer = modeLettrage;
end;

vueRef1 = viewOf(TempLettrage)
//ACount:Integer = count(id);
ATotal:Currency = sumSign(montant:TCValue,sens,'1');
reference1:string = reference1;
[(modeLettrage=0) and (reference1<>'')]
end;

var selT,selG:TSelector;
begin
withP long transaction do
begin
// for updating the temp table on "match"
selT := vueTemp.CreateSelector('','',True,[]);

// Lettrage sur reference 1
selG := vueRef1.CreateSelector('(ATotal=0)','',True,[]);
selG.useCTE := True;
selT.UpdateFrom(selG,['reference1'],['modeLettrage'],[1]);
end;
end;
</source>

<pre>
with CTE as (
select sum(case when t0.sens=1 then ISNULL(t0.montant_TCValue, 0) else -ISNULL(t0.montant_TCValue, 0) end) as "ATotal",t0.reference1 as "reference1"
from dbo.TEMPLETTRAGE t0 WITH (NOLOCK)
where ((t0.modeLettrage = 0) and (t0.reference1 IS NOT NULL))
group by t0.reference1
)
merge into dbo.TEMPLETTRAGE tm0 using (
SELECT *
FROM CTE
Where (ATotal = 0.0000)
) tm1 on (tm1.reference1=tm0.reference1)
when matched then update set
tm0.modeLettrage = 1
;
</pre>

[[Category:Version 2025 R2]]
[[Category:Release note]]

Version 2025 r2 (release note)

2025-04-16T15:36:17Z

Syfre : /* Classes */

{{version2025r1}}
__TOC__

''' PREVIEW '''

==Modèle==

===Classes===

* Méthode AllocOID

<source lang="delphi">class function AllocOID:TOID;</source>

* Méthode ToJson()

<source lang="delphi">procedure ToJson(SA:variant);</source>

* Sérialize l'objet en json
:SA peut être un TJsonArray ou un TJsonStruct

===Classes SQL===

* Options de rôle : NoRefIndex

* Options de rôle : NoForeignKey

==Script==

===Trace===

<source lang="delphi">procedure dbgClear();</source>
: Vide la trace

<source lang="delphi">procedure dbgEnable(value:boolean);</source>
: Active / désactive la trace

===Vue locale===

* Une vue locale peut contenir des attributs "oidXXX" sans définir le rôle

'''Exemple:'''

<source lang="delphi">
Type
vue1 = viewOf(ClassA)
p1:TEnum(enumName) = ...;
oidRef:TOID = oidrefB;
..
idRefB:TOID = oidrefB notInSelect;
[ (idRefB=%ArgRefB) and ....]
end;
</source>

* Une vue locale peut contenir des attributs non mappés dans la définition.

'''Exemple:'''

<source lang="delphi">
Type
vue1 = viewOf(ClassA)
ACount:Integer = count(oid)
oidRef:TOID;
codeRef:string;
libelleRef:string;
..
[ ...]
end;

var sel:TSelector;
begin
sel := vue1.createSelector();
case iGroupBy of
'refB':
begin
sel.AddColumn('oidrefB','oidRef');
sel.AddColumn('refB.code','codeRef');
sel.AddColumn('refB.Caption','libelleRef');
end;
'refC':
begin
sel.AddColumn('oidrefC','oidRef');
sel.AddColumn('refC.code','codeRef');
sel.AddColumn('refC.Caption','libelleRef');
end;
end;
end;
</source>

* Paramètre de type de donnée

<source lang="delphi">
Type
vue1 = viewOf(ClassA)
p1:TEnum(enumName) = ...;
end;
</source>

* Qualifier d'attribut NotInGroupBy

<source lang="delphi">
Type
vue1 = viewOf(ClassA)
p1:string = expression('...') notInGroupBy;
end;
</source>

* Héritage de vue locale

<source lang="delphi">
Type
vue1 = viewOf(ClassA)
p1:string = ...;
[...]
end;

vue2 = viewOf(vue1)
p1:string = ...;
[inherited and (...)]
end;
</source>

'''Exemple:'''

<source lang="delphi">
//function GetSelector(iGroupBy:string; iFilter:TJsonArray):TSelector;
Type
// défini une classe de base avec tous les filtres
//
vueEcritureLettrage = viewOf(TEcriture)
lettrable:boolean = compteGeneral.lettrable notInSelect;
idEtablissement:TOID = piece.oidEtablissement notInSelect;
idCompteGeneral:TOID = oidCompteGeneral notInSelect;
idRoleTiers:TOID = oidroleTiers notInSelect;
[(lettrable=true)
and ((oidLettrageEcriture='') or (dateLettrage=0))
and (typeEcriture<>0)
and (piece.lot.origineLot<>0)
and (eDate>=%ArgDateInf)
and (eDate<=%ArgDateSup)
and (idEtablissement=%ArgEtablissement)
and (idCompteGeneral=%ArgCompteGeneral)
and (idRoleTiers=%ArgRoleTiers)
]
end;

// Hérite de tous les filtres
//
vueEcritureLettrageGroupBy = viewOf(vueEcritureLettrage)
dateMin:TDatetime = min(eDate);
dateMax:TDatetime = max(eDate);
ACount:Integer = count(oid);
credit:Currency = sum('credit:TCValue');
debit:Currency = sum('debit:TCValue');
solde:Currency = sumDiff(debit,credit);
[inherited]
end;

begin
Result := vueLettrageGroupBy.CreateSelector('','',True,[]);
end;
</source>

* Scope de vue locale

Une vue locale peut être référencée en dehors de la méthode où elle est définie.

<source lang="delphi">
procedure Class1.foo;
Type
vue1 = viewOf(ClassA)
p1:string = ...;
end;
begin
...
end;

procedure Class2.bar;
Type
vue2 = viewOf(class1.foo.vue1)
p1:string = ...;
end;
begin
...
end;
</source>

* Expression Exists()

Une expression existe peut être utilisée dans les filtres comme une valeur logique

Note : Une expression Exists() est beaucoup plus rapide qu'un "Count<>0"

<source lang="delphi">
Type
vue1 = viewOf(ClassA)
id:string = ...;
end;

vue2 = viewOf(ClassB)
id:string = ...;
bb:boolean = vue1.Exists('(id=self.id)',True,[]) notInSelect;
[(bb=true) and (....)]
end;
</source>

==Sélecteur==

* lastOpeStamp, lastAffectedStamp
: Attributs mis à jour par la dernière opération assembliste.

* RmvParameter()
: Permet de retirer un paramètre qui a été ajouté par AddParameter()

* Amélioration de CopyTo
: Permet de créer des objets à partir d'un sélecteur

* CopyTo, Update, UpdateFrom
: Fonctionne sur les classes de stéréotype SQL

===UpdateFrom===

<source lang="delphi">
function updateFrom(sel:TSelector; iMatchedProps:Array of string; iUpdatedProps:Array of string; iUpdatedValue:Array of variant):Integer;
</source>

Permet de mettre à jour une classe à partir d'un sélecteur et d'une colonne de correspondance.

'''Exemple :'''

<source lang="delphi">
Type
// Update the temp table
vueTemp = viewOf(TempLettrage)
reference1:string = reference1;
reference2:string = reference2;
modeLettrage:Integer = modeLettrage;
end;

vueRef1 = viewOf(TempLettrage)
//ACount:Integer = count(id);
ATotal:Currency = sumSign(montant:TCValue,sens,'1');
reference1:string = reference1;
[(modeLettrage=0) and (reference1<>'')]
end;

var selT,selG:TSelector;
begin
withP long transaction do
begin
// for updating the temp table on "match"
selT := vueTemp.CreateSelector('','',True,[]);

// Lettrage sur reference 1
selG := vueRef1.CreateSelector('(ATotal=0)','',True,[]);
selG.useCTE := True;
selT.UpdateFrom(selG,['reference1'],['modeLettrage'],[1]);
end;
end;
</source>

<pre>
with CTE as (
select sum(case when t0.sens=1 then ISNULL(t0.montant_TCValue, 0) else -ISNULL(t0.montant_TCValue, 0) end) as "ATotal",t0.reference1 as "reference1"
from dbo.TEMPLETTRAGE t0 WITH (NOLOCK)
where ((t0.modeLettrage = 0) and (t0.reference1 IS NOT NULL))
group by t0.reference1
)
merge into dbo.TEMPLETTRAGE tm0 using (
SELECT *
FROM CTE
Where (ATotal = 0.0000)
) tm1 on (tm1.reference1=tm0.reference1)
when matched then update set
tm0.modeLettrage = 1
;
</pre>

[[Category:Version 2025 R2]]
[[Category:Release note]]

Version 2025 r2 (release note)

2025-04-14T08:58:23Z

Syfre : /* Script */

{{version2025r1}}
__TOC__

''' PREVIEW '''

==Modèle==

===Classes===

* Méthode AllocOID

<source lang="delphi">class function AllocOID:TOID;</source>

===Classes SQL===

* Options de rôle : NoRefIndex

* Options de rôle : NoForeignKey

==Script==

===Trace===

<source lang="delphi">procedure dbgClear();</source>
: Vide la trace

<source lang="delphi">procedure dbgEnable(value:boolean);</source>
: Active / désactive la trace

===Vue locale===

* Une vue locale peut contenir des attributs "oidXXX" sans définir le rôle

'''Exemple:'''

<source lang="delphi">
Type
vue1 = viewOf(ClassA)
p1:TEnum(enumName) = ...;
oidRef:TOID = oidrefB;
..
idRefB:TOID = oidrefB notInSelect;
[ (idRefB=%ArgRefB) and ....]
end;
</source>

* Une vue locale peut contenir des attributs non mappés dans la définition.

'''Exemple:'''

<source lang="delphi">
Type
vue1 = viewOf(ClassA)
ACount:Integer = count(oid)
oidRef:TOID;
codeRef:string;
libelleRef:string;
..
[ ...]
end;

var sel:TSelector;
begin
sel := vue1.createSelector();
case iGroupBy of
'refB':
begin
sel.AddColumn('oidrefB','oidRef');
sel.AddColumn('refB.code','codeRef');
sel.AddColumn('refB.Caption','libelleRef');
end;
'refC':
begin
sel.AddColumn('oidrefC','oidRef');
sel.AddColumn('refC.code','codeRef');
sel.AddColumn('refC.Caption','libelleRef');
end;
end;
end;
</source>

* Paramètre de type de donnée

<source lang="delphi">
Type
vue1 = viewOf(ClassA)
p1:TEnum(enumName) = ...;
end;
</source>

* Qualifier d'attribut NotInGroupBy

<source lang="delphi">
Type
vue1 = viewOf(ClassA)
p1:string = expression('...') notInGroupBy;
end;
</source>

* Héritage de vue locale

<source lang="delphi">
Type
vue1 = viewOf(ClassA)
p1:string = ...;
[...]
end;

vue2 = viewOf(vue1)
p1:string = ...;
[inherited and (...)]
end;
</source>

'''Exemple:'''

<source lang="delphi">
//function GetSelector(iGroupBy:string; iFilter:TJsonArray):TSelector;
Type
// défini une classe de base avec tous les filtres
//
vueEcritureLettrage = viewOf(TEcriture)
lettrable:boolean = compteGeneral.lettrable notInSelect;
idEtablissement:TOID = piece.oidEtablissement notInSelect;
idCompteGeneral:TOID = oidCompteGeneral notInSelect;
idRoleTiers:TOID = oidroleTiers notInSelect;
[(lettrable=true)
and ((oidLettrageEcriture='') or (dateLettrage=0))
and (typeEcriture<>0)
and (piece.lot.origineLot<>0)
and (eDate>=%ArgDateInf)
and (eDate<=%ArgDateSup)
and (idEtablissement=%ArgEtablissement)
and (idCompteGeneral=%ArgCompteGeneral)
and (idRoleTiers=%ArgRoleTiers)
]
end;

// Hérite de tous les filtres
//
vueEcritureLettrageGroupBy = viewOf(vueEcritureLettrage)
dateMin:TDatetime = min(eDate);
dateMax:TDatetime = max(eDate);
ACount:Integer = count(oid);
credit:Currency = sum('credit:TCValue');
debit:Currency = sum('debit:TCValue');
solde:Currency = sumDiff(debit,credit);
[inherited]
end;

begin
Result := vueLettrageGroupBy.CreateSelector('','',True,[]);
end;
</source>

* Scope de vue locale

Une vue locale peut être référencée en dehors de la méthode où elle est définie.

<source lang="delphi">
procedure Class1.foo;
Type
vue1 = viewOf(ClassA)
p1:string = ...;
end;
begin
...
end;

procedure Class2.bar;
Type
vue2 = viewOf(class1.foo.vue1)
p1:string = ...;
end;
begin
...
end;
</source>

* Expression Exists()

Une expression existe peut être utilisée dans les filtres comme une valeur logique

Note : Une expression Exists() est beaucoup plus rapide qu'un "Count<>0"

<source lang="delphi">
Type
vue1 = viewOf(ClassA)
id:string = ...;
end;

vue2 = viewOf(ClassB)
id:string = ...;
bb:boolean = vue1.Exists('(id=self.id)',True,[]) notInSelect;
[(bb=true) and (....)]
end;
</source>

==Sélecteur==

* lastOpeStamp, lastAffectedStamp
: Attributs mis à jour par la dernière opération assembliste.

* RmvParameter()
: Permet de retirer un paramètre qui a été ajouté par AddParameter()

* Amélioration de CopyTo
: Permet de créer des objets à partir d'un sélecteur

* CopyTo, Update, UpdateFrom
: Fonctionne sur les classes de stéréotype SQL

===UpdateFrom===

<source lang="delphi">
function updateFrom(sel:TSelector; iMatchedProps:Array of string; iUpdatedProps:Array of string; iUpdatedValue:Array of variant):Integer;
</source>

Permet de mettre à jour une classe à partir d'un sélecteur et d'une colonne de correspondance.

'''Exemple :'''

<source lang="delphi">
Type
// Update the temp table
vueTemp = viewOf(TempLettrage)
reference1:string = reference1;
reference2:string = reference2;
modeLettrage:Integer = modeLettrage;
end;

vueRef1 = viewOf(TempLettrage)
//ACount:Integer = count(id);
ATotal:Currency = sumSign(montant:TCValue,sens,'1');
reference1:string = reference1;
[(modeLettrage=0) and (reference1<>'')]
end;

var selT,selG:TSelector;
begin
withP long transaction do
begin
// for updating the temp table on "match"
selT := vueTemp.CreateSelector('','',True,[]);

// Lettrage sur reference 1
selG := vueRef1.CreateSelector('(ATotal=0)','',True,[]);
selG.useCTE := True;
selT.UpdateFrom(selG,['reference1'],['modeLettrage'],[1]);
end;
end;
</source>

<pre>
with CTE as (
select sum(case when t0.sens=1 then ISNULL(t0.montant_TCValue, 0) else -ISNULL(t0.montant_TCValue, 0) end) as "ATotal",t0.reference1 as "reference1"
from dbo.TEMPLETTRAGE t0 WITH (NOLOCK)
where ((t0.modeLettrage = 0) and (t0.reference1 IS NOT NULL))
group by t0.reference1
)
merge into dbo.TEMPLETTRAGE tm0 using (
SELECT *
FROM CTE
Where (ATotal = 0.0000)
) tm1 on (tm1.reference1=tm0.reference1)
when matched then update set
tm0.modeLettrage = 1
;
</pre>

[[Category:Version 2025 R2]]
[[Category:Release note]]

Version 2025 r2 (release note)

2025-04-14T06:25:10Z

Syfre :

{{version2025r1}}
__TOC__

''' PREVIEW '''

==Modèle==

===Classes===

* Méthode AllocOID

<source lang="delphi">class function AllocOID:TOID;</source>

===Classes SQL===

* Options de rôle : NoRefIndex

* Options de rôle : NoForeignKey

==Script==

===Vue locale===

* Une vue locale peut contenir des attributs "oidXXX" sans définir le rôle

'''Exemple:'''

<source lang="delphi">
Type
vue1 = viewOf(ClassA)
p1:TEnum(enumName) = ...;
oidRef:TOID = oidrefB;
..
idRefB:TOID = oidrefB notInSelect;
[ (idRefB=%ArgRefB) and ....]
end;
</source>

* Une vue locale peut contenir des attributs non mappés dans la définition.

'''Exemple:'''

<source lang="delphi">
Type
vue1 = viewOf(ClassA)
ACount:Integer = count(oid)
oidRef:TOID;
codeRef:string;
libelleRef:string;
..
[ ...]
end;

var sel:TSelector;
begin
sel := vue1.createSelector();
case iGroupBy of
'refB':
begin
sel.AddColumn('oidrefB','oidRef');
sel.AddColumn('refB.code','codeRef');
sel.AddColumn('refB.Caption','libelleRef');
end;
'refC':
begin
sel.AddColumn('oidrefC','oidRef');
sel.AddColumn('refC.code','codeRef');
sel.AddColumn('refC.Caption','libelleRef');
end;
end;
end;
</source>

* Paramètre de type de donnée

<source lang="delphi">
Type
vue1 = viewOf(ClassA)
p1:TEnum(enumName) = ...;
end;
</source>

* Qualifier d'attribut NotInGroupBy

<source lang="delphi">
Type
vue1 = viewOf(ClassA)
p1:string = expression('...') notInGroupBy;
end;
</source>

* Héritage de vue locale

<source lang="delphi">
Type
vue1 = viewOf(ClassA)
p1:string = ...;
[...]
end;

vue2 = viewOf(vue1)
p1:string = ...;
[inherited and (...)]
end;
</source>

'''Exemple:'''

<source lang="delphi">
//function GetSelector(iGroupBy:string; iFilter:TJsonArray):TSelector;
Type
// défini une classe de base avec tous les filtres
//
vueEcritureLettrage = viewOf(TEcriture)
lettrable:boolean = compteGeneral.lettrable notInSelect;
idEtablissement:TOID = piece.oidEtablissement notInSelect;
idCompteGeneral:TOID = oidCompteGeneral notInSelect;
idRoleTiers:TOID = oidroleTiers notInSelect;
[(lettrable=true)
and ((oidLettrageEcriture='') or (dateLettrage=0))
and (typeEcriture<>0)
and (piece.lot.origineLot<>0)
and (eDate>=%ArgDateInf)
and (eDate<=%ArgDateSup)
and (idEtablissement=%ArgEtablissement)
and (idCompteGeneral=%ArgCompteGeneral)
and (idRoleTiers=%ArgRoleTiers)
]
end;

// Hérite de tous les filtres
//
vueEcritureLettrageGroupBy = viewOf(vueEcritureLettrage)
dateMin:TDatetime = min(eDate);
dateMax:TDatetime = max(eDate);
ACount:Integer = count(oid);
credit:Currency = sum('credit:TCValue');
debit:Currency = sum('debit:TCValue');
solde:Currency = sumDiff(debit,credit);
[inherited]
end;

begin
Result := vueLettrageGroupBy.CreateSelector('','',True,[]);
end;
</source>

* Scope de vue locale

Une vue locale peut être référencée en dehors de la méthode où elle est définie.

<source lang="delphi">
procedure Class1.foo;
Type
vue1 = viewOf(ClassA)
p1:string = ...;
end;
begin
...
end;

procedure Class2.bar;
Type
vue2 = viewOf(class1.foo.vue1)
p1:string = ...;
end;
begin
...
end;
</source>

* Expression Exists()

Une expression existe peut être utilisée dans les filtres comme une valeur logique

Note : Une expression Exists() est beaucoup plus rapide qu'un "Count<>0"

<source lang="delphi">
Type
vue1 = viewOf(ClassA)
id:string = ...;
end;

vue2 = viewOf(ClassB)
id:string = ...;
bb:boolean = vue1.Exists('(id=self.id)',True,[]) notInSelect;
[(bb=true) and (....)]
end;
</source>

==Sélecteur==

* lastOpeStamp, lastAffectedStamp
: Attributs mis à jour par la dernière opération assembliste.

* RmvParameter()
: Permet de retirer un paramètre qui a été ajouté par AddParameter()

* Amélioration de CopyTo
: Permet de créer des objets à partir d'un sélecteur

* CopyTo, Update, UpdateFrom
: Fonctionne sur les classes de stéréotype SQL

===UpdateFrom===

<source lang="delphi">
function updateFrom(sel:TSelector; iMatchedProps:Array of string; iUpdatedProps:Array of string; iUpdatedValue:Array of variant):Integer;
</source>

Permet de mettre à jour une classe à partir d'un sélecteur et d'une colonne de correspondance.

'''Exemple :'''

<source lang="delphi">
Type
// Update the temp table
vueTemp = viewOf(TempLettrage)
reference1:string = reference1;
reference2:string = reference2;
modeLettrage:Integer = modeLettrage;
end;

vueRef1 = viewOf(TempLettrage)
//ACount:Integer = count(id);
ATotal:Currency = sumSign(montant:TCValue,sens,'1');
reference1:string = reference1;
[(modeLettrage=0) and (reference1<>'')]
end;

var selT,selG:TSelector;
begin
withP long transaction do
begin
// for updating the temp table on "match"
selT := vueTemp.CreateSelector('','',True,[]);

// Lettrage sur reference 1
selG := vueRef1.CreateSelector('(ATotal=0)','',True,[]);
selG.useCTE := True;
selT.UpdateFrom(selG,['reference1'],['modeLettrage'],[1]);
end;
end;
</source>

<pre>
with CTE as (
select sum(case when t0.sens=1 then ISNULL(t0.montant_TCValue, 0) else -ISNULL(t0.montant_TCValue, 0) end) as "ATotal",t0.reference1 as "reference1"
from dbo.TEMPLETTRAGE t0 WITH (NOLOCK)
where ((t0.modeLettrage = 0) and (t0.reference1 IS NOT NULL))
group by t0.reference1
)
merge into dbo.TEMPLETTRAGE tm0 using (
SELECT *
FROM CTE
Where (ATotal = 0.0000)
) tm1 on (tm1.reference1=tm0.reference1)
when matched then update set
tm0.modeLettrage = 1
;
</pre>

[[Category:Version 2025 R2]]
[[Category:Release note]]

Version 2025 r2 (release note)

2025-04-10T17:34:53Z

Syfre : /* Vue locale */

{{version2025r1}}
__TOC__

''' PREVIEW '''

==Script==

===Vue locale===

* Une vue locale peut contenir des attributs "oidXXX" sans définir le rôle

'''Exemple:'''

<source lang="delphi">
Type
vue1 = viewOf(ClassA)
p1:TEnum(enumName) = ...;
oidRef:TOID = oidrefB;
..
idRefB:TOID = oidrefB notInSelect;
[ (idRefB=%ArgRefB) and ....]
end;
</source>

* Une vue locale peut contenir des attributs non mappés dans la définition.

'''Exemple:'''

<source lang="delphi">
Type
vue1 = viewOf(ClassA)
ACount:Integer = count(oid)
oidRef:TOID;
codeRef:string;
libelleRef:string;
..
[ ...]
end;

var sel:TSelector;
begin
sel := vue1.createSelector();
case iGroupBy of
'refB':
begin
sel.AddColumn('oidrefB','oidRef');
sel.AddColumn('refB.code','codeRef');
sel.AddColumn('refB.Caption','libelleRef');
end;
'refC':
begin
sel.AddColumn('oidrefC','oidRef');
sel.AddColumn('refC.code','codeRef');
sel.AddColumn('refC.Caption','libelleRef');
end;
end;
end;
</source>

* Paramètre de type de donnée

<source lang="delphi">
Type
vue1 = viewOf(ClassA)
p1:TEnum(enumName) = ...;
end;
</source>

* Héritage de vue locale

<source lang="delphi">
Type
vue1 = viewOf(ClassA)
p1:string = ...;
[...]
end;

vue2 = viewOf(vue1)
p1:string = ...;
[inherited and (...)]
end;
</source>

'''Exemple:'''

<source lang="delphi">
//function GetSelector(iGroupBy:string; iFilter:TJsonArray):TSelector;
Type
// défini une classe de base avec tous les filtres
//
vueEcritureLettrage = viewOf(TEcriture)
lettrable:boolean = compteGeneral.lettrable notInSelect;
idEtablissement:TOID = piece.oidEtablissement notInSelect;
idCompteGeneral:TOID = oidCompteGeneral notInSelect;
idRoleTiers:TOID = oidroleTiers notInSelect;
[(lettrable=true)
and ((oidLettrageEcriture='') or (dateLettrage=0))
and (typeEcriture<>0)
and (piece.lot.origineLot<>0)
and (eDate>=%ArgDateInf)
and (eDate<=%ArgDateSup)
and (idEtablissement=%ArgEtablissement)
and (idCompteGeneral=%ArgCompteGeneral)
and (idRoleTiers=%ArgRoleTiers)
]
end;

// Hérite de tous les filtres
//
vueEcritureLettrageGroupBy = viewOf(vueEcritureLettrage)
dateMin:TDatetime = min(eDate);
dateMax:TDatetime = max(eDate);
ACount:Integer = count(oid);
credit:Currency = sum('credit:TCValue');
debit:Currency = sum('debit:TCValue');
solde:Currency = sumDiff(debit,credit);
[inherited]
end;

begin
Result := vueLettrageGroupBy.CreateSelector('','',True,[]);
end;
</source>

* Scope de vue locale

Une vue locale peut être référencée en dehors de la méthode où elle est définie.

<source lang="delphi">
procedure Class1.foo;
Type
vue1 = viewOf(ClassA)
p1:string = ...;
end;
begin
...
end;

procedure Class2.bar;
Type
vue2 = viewOf(class1.foo.vue1)
p1:string = ...;
end;
begin
...
end;
</source>

* Expression Exists()

Une expression existe peut être utilisée dans les filtres comme une valeur logique

Note : Une expression Exists() est beaucoup plus rapide qu'un "Count<>0"

<source lang="delphi">
Type
vue1 = viewOf(ClassA)
id:string = ...;
end;

vue2 = viewOf(ClassB)
id:string = ...;
bb:boolean = vue1.Exists('(id=self.id)',True,[]) notInSelect;
[(bb=true) and (....)]
end;
</source>

==Sélecteur==

* lastOpeStamp, lastAffectedStamp
: Attributs mis à jour par la dernière opération assembliste.

* RmvParameter()
: Permet de retirer un paramètre qui a été ajouté par AddParameter()

* Amélioration de CopyTo
: Permet de créer des objets à partir d'un sélecteur

* CopyTo, Update, UpdateFrom
: Fonctionne sur les classes de stéréotype SQL

===UpdateFrom===

<source lang="delphi">
function updateFrom(sel:TSelector; iMatchedProps:Array of string; iUpdatedProps:Array of string; iUpdatedValue:Array of variant):Integer;
</source>

Permet de mettre à jour une classe à partir d'un sélecteur et d'une colonne de correspondance.

'''Exemple :'''

<source lang="delphi">
Type
// Update the temp table
vueTemp = viewOf(TempLettrage)
reference1:string = reference1;
reference2:string = reference2;
modeLettrage:Integer = modeLettrage;
end;

vueRef1 = viewOf(TempLettrage)
//ACount:Integer = count(id);
ATotal:Currency = sumSign(montant:TCValue,sens,'1');
reference1:string = reference1;
[(modeLettrage=0) and (reference1<>'')]
end;

var selT,selG:TSelector;
begin
withP long transaction do
begin
// for updating the temp table on "match"
selT := vueTemp.CreateSelector('','',True,[]);

// Lettrage sur reference 1
selG := vueRef1.CreateSelector('(ATotal=0)','',True,[]);
selG.useCTE := True;
selT.UpdateFrom(selG,['reference1'],['modeLettrage'],[1]);
end;
end;
</source>

<pre>
with CTE as (
select sum(case when t0.sens=1 then ISNULL(t0.montant_TCValue, 0) else -ISNULL(t0.montant_TCValue, 0) end) as "ATotal",t0.reference1 as "reference1"
from dbo.TEMPLETTRAGE t0 WITH (NOLOCK)
where ((t0.modeLettrage = 0) and (t0.reference1 IS NOT NULL))
group by t0.reference1
)
merge into dbo.TEMPLETTRAGE tm0 using (
SELECT *
FROM CTE
Where (ATotal = 0.0000)
) tm1 on (tm1.reference1=tm0.reference1)
when matched then update set
tm0.modeLettrage = 1
;
</pre>

[[Category:Version 2025 R2]]
[[Category:Release note]]

Version 2025 r2 (release note)

2025-04-10T17:27:10Z

Syfre : /* Vue locale */

{{version2025r1}}
__TOC__

''' PREVIEW '''

==Script==

===Vue locale===

* Une vue locale peut contenir des attributs "oidXXX" sans définir le rôle

'''Exemple:'''

<source lang="delphi">
Type
vue1 = viewOf(ClassA)
p1:TEnum(enumName) = ...;
oidRef:TOID = oidrefB;
..
idRefB:TOID = oidrefB notInSelect;
[ (idRefB=%ArgRefB) and ....]
end;
</source>

* Une vue locale peut contenir des attributs non mappés dans la définition.

'''Exemple:'''

<source lang="delphi">
Type
vue1 = viewOf(ClassA)
ACount:Integer = count(oid)
oidRef:TOID;
codeRef:string;
libelleRef:string;
..
[ ...]
end;

var sel:TSelector;
begin
sel := vue1.createSelector();
case iGroupBy of
'refB':
begin
sel.AddColumn('oidrefB','oidRef');
sel.AddColumn('refB.code','codeRef');
sel.AddColumn('refB.Caption','libelleRef');
end;
'refC':
begin
sel.AddColumn('oidrefC','oidRef');
sel.AddColumn('refC.code','codeRef');
sel.AddColumn('refC.Caption','libelleRef');
end;
end;
end;
</source>

* Paramètre de type de donnée

<source lang="delphi">
Type
vue1 = viewOf(ClassA)
p1:TEnum(enumName) = ...;
end;
</source>

* Héritage de vue locale

<source lang="delphi">
Type
vue1 = viewOf(ClassA)
p1:string = ...;
[...]
end;

vue2 = viewOf(vue1)
p1:string = ...;
[inherited and (...)]
end;
</source>

* Scope de vue locale

Une vue locale peut être référencée en dehors de la méthode où elle est définie.

<source lang="delphi">
procedure Class1.foo;
Type
vue1 = viewOf(ClassA)
p1:string = ...;
end;
begin
...
end;

procedure Class2.bar;
Type
vue2 = viewOf(class1.foo.vue1)
p1:string = ...;
end;
begin
...
end;
</source>

* Expression Exists()

Une expression existe peut être utilisée dans les filtres comme une valeur logique

Note : Une expression Exists() est beaucoup plus rapide qu'un "Count<>0"

<source lang="delphi">
Type
vue1 = viewOf(ClassA)
id:string = ...;
end;

vue2 = viewOf(ClassB)
id:string = ...;
bb:boolean = vue1.Exists('(id=self.id)',True,[]) notInSelect;
[(bb=true) and (....)]
end;
</source>

==Sélecteur==

* lastOpeStamp, lastAffectedStamp
: Attributs mis à jour par la dernière opération assembliste.

* RmvParameter()
: Permet de retirer un paramètre qui a été ajouté par AddParameter()

* Amélioration de CopyTo
: Permet de créer des objets à partir d'un sélecteur

* CopyTo, Update, UpdateFrom
: Fonctionne sur les classes de stéréotype SQL

===UpdateFrom===

<source lang="delphi">
function updateFrom(sel:TSelector; iMatchedProps:Array of string; iUpdatedProps:Array of string; iUpdatedValue:Array of variant):Integer;
</source>

Permet de mettre à jour une classe à partir d'un sélecteur et d'une colonne de correspondance.

'''Exemple :'''

<source lang="delphi">
Type
// Update the temp table
vueTemp = viewOf(TempLettrage)
reference1:string = reference1;
reference2:string = reference2;
modeLettrage:Integer = modeLettrage;
end;

vueRef1 = viewOf(TempLettrage)
//ACount:Integer = count(id);
ATotal:Currency = sumSign(montant:TCValue,sens,'1');
reference1:string = reference1;
[(modeLettrage=0) and (reference1<>'')]
end;

var selT,selG:TSelector;
begin
withP long transaction do
begin
// for updating the temp table on "match"
selT := vueTemp.CreateSelector('','',True,[]);

// Lettrage sur reference 1
selG := vueRef1.CreateSelector('(ATotal=0)','',True,[]);
selG.useCTE := True;
selT.UpdateFrom(selG,['reference1'],['modeLettrage'],[1]);
end;
end;
</source>

<pre>
with CTE as (
select sum(case when t0.sens=1 then ISNULL(t0.montant_TCValue, 0) else -ISNULL(t0.montant_TCValue, 0) end) as "ATotal",t0.reference1 as "reference1"
from dbo.TEMPLETTRAGE t0 WITH (NOLOCK)
where ((t0.modeLettrage = 0) and (t0.reference1 IS NOT NULL))
group by t0.reference1
)
merge into dbo.TEMPLETTRAGE tm0 using (
SELECT *
FROM CTE
Where (ATotal = 0.0000)
) tm1 on (tm1.reference1=tm0.reference1)
when matched then update set
tm0.modeLettrage = 1
;
</pre>

[[Category:Version 2025 R2]]
[[Category:Release note]]

Version 2025 r2 (release note)

2025-04-10T17:26:06Z

Syfre : /* Vue locale */

{{version2025r1}}
__TOC__

''' PREVIEW '''

==Script==

===Vue locale===

* Une vue locale peut contenir des attributs "oidXXX" sans définir le rôle

'''Exemple:'''

<source lang="delphi">
Type
vue1 = viewOf(ClassA)
p1:TEnum(enumName) = ...;
oidRef:TOID = oidrefB;
..
idRefB:TOID = oidrefB notInSelect;
[ (idRefB=%ArgRefB) and ....]
end;
</source>

* Une vue locale peut contenir des attributs non mappés dans la définition.

'''Exemple:'''

<source lang="delphi">
Type
vue1 = viewOf(ClassA)
ACount:Integer = count(oid)
oidRef:TOID;
codeRef:string;
libelleRef:string;
..
[ ...]
end;

var sel:TSelector;
begin
sel := vue1.createSelector();
case iGroupBy of
'refB':
begin
sel.AddColumn('oidrefB','oidRef');
sel.AddColumn('refB.code','codeRef');
sel.AddColumn('refB.Caption','libelleRef');
end;
'refC':
begin
sel.AddColumn('oidrefC','oidRef');
sel.AddColumn('refC.code','codeRef');
sel.AddColumn('refC.Caption','libelleRef');
end;
end;
end;
</source>

* Paramètre de type de donnée

<source lang="delphi">
Type
vue1 = viewOf(ClassA)
p1:TEnum(enumName) = ...;
end;
</source>

* Héritage de vue locale

<source lang="delphi">
Type
vue1 = viewOf(ClassA)
p1:string = ...;
[...]
end;

vue2 = viewOf(vue1)
p1:string = ...;
[inherited]
end;
</source>

* Scope de vue locale

Une vue locale peut être référencée en dehors de la méthode où elle est définie.

<source lang="delphi">
procedure Class1.foo;
Type
vue1 = viewOf(ClassA)
p1:string = ...;
end;
begin
...
end;

procedure Class2.bar;
Type
vue2 = viewOf(class1.foo.vue1)
p1:string = ...;
end;
begin
...
end;
</source>

* Expression Exists()

Une expression existe peut être utilisée dans les filtres comme une valeur logique

Note : Une expression Exists() est beaucoup plus rapide qu'un "Count<>0"

<source lang="delphi">
Type
vue1 = viewOf(ClassA)
id:string = ...;
end;

vue2 = viewOf(ClassB)
id:string = ...;
bb:boolean = vue1.Exists('(id=self.id)',True,[]) notInSelect;
[(bb=true) and (....)]
end;
</source>

==Sélecteur==

* lastOpeStamp, lastAffectedStamp
: Attributs mis à jour par la dernière opération assembliste.

* RmvParameter()
: Permet de retirer un paramètre qui a été ajouté par AddParameter()

* Amélioration de CopyTo
: Permet de créer des objets à partir d'un sélecteur

* CopyTo, Update, UpdateFrom
: Fonctionne sur les classes de stéréotype SQL

===UpdateFrom===

<source lang="delphi">
function updateFrom(sel:TSelector; iMatchedProps:Array of string; iUpdatedProps:Array of string; iUpdatedValue:Array of variant):Integer;
</source>

Permet de mettre à jour une classe à partir d'un sélecteur et d'une colonne de correspondance.

'''Exemple :'''

<source lang="delphi">
Type
// Update the temp table
vueTemp = viewOf(TempLettrage)
reference1:string = reference1;
reference2:string = reference2;
modeLettrage:Integer = modeLettrage;
end;

vueRef1 = viewOf(TempLettrage)
//ACount:Integer = count(id);
ATotal:Currency = sumSign(montant:TCValue,sens,'1');
reference1:string = reference1;
[(modeLettrage=0) and (reference1<>'')]
end;

var selT,selG:TSelector;
begin
withP long transaction do
begin
// for updating the temp table on "match"
selT := vueTemp.CreateSelector('','',True,[]);

// Lettrage sur reference 1
selG := vueRef1.CreateSelector('(ATotal=0)','',True,[]);
selG.useCTE := True;
selT.UpdateFrom(selG,['reference1'],['modeLettrage'],[1]);
end;
end;
</source>

<pre>
with CTE as (
select sum(case when t0.sens=1 then ISNULL(t0.montant_TCValue, 0) else -ISNULL(t0.montant_TCValue, 0) end) as "ATotal",t0.reference1 as "reference1"
from dbo.TEMPLETTRAGE t0 WITH (NOLOCK)
where ((t0.modeLettrage = 0) and (t0.reference1 IS NOT NULL))
group by t0.reference1
)
merge into dbo.TEMPLETTRAGE tm0 using (
SELECT *
FROM CTE
Where (ATotal = 0.0000)
) tm1 on (tm1.reference1=tm0.reference1)
when matched then update set
tm0.modeLettrage = 1
;
</pre>

[[Category:Version 2025 R2]]
[[Category:Release note]]

Version 2025 r2 (release note)

2025-04-10T17:14:59Z

Syfre : /* Sélecteur */

{{version2025r1}}
__TOC__

''' PREVIEW '''

==Script==

===Vue locale===

* Paramètre de type de donnée

<source lang="delphi">
Type
vue1 = viewOf(ClassA)
p1:TEnum(enumName) = ...;
end;
</source>

* Héritage de vue locale

<source lang="delphi">
Type
vue1 = viewOf(ClassA)
p1:string = ...;
[...]
end;

vue2 = viewOf(vue1)
p1:string = ...;
[inherited]
end;
</source>

* Scope de vue locale

Une vue locale peut être référencée en dehors de la méthode ou elle est définie.

<source lang="delphi">
procedure Class1.foo;
Type
vue1 = viewOf(ClassA)
p1:string = ...;
end;
begin
...
end;

procedure Class2.bar;
Type
vue2 = viewOf(class1.foo.vue1)
p1:string = ...;
end;
begin
...
end;
</source>

* Expression Exists()

Une expression existe peut être utilisée dans les filtres comme une valeur logique

<source lang="delphi">
Type
vue1 = viewOf(ClassA)
id:string = ...;
end;

vue2 = viewOf(ClassB)
id:string = ...;
bb:boolean = vue1.Exists('(id=self.id)',True,[]) notInSelect;
[(bb=true) and (....)]
end;
</source>

==Sélecteur==

* lastOpeStamp, lastAffectedStamp
: Attributs mis à jour par la dernière opération assembliste.

* RmvParameter()
: Permet de retirer un paramètre qui a été ajouté par AddParameter()

* Amélioration de CopyTo
: Permet de créer des objets à partir d'un sélecteur

* CopyTo, Update, UpdateFrom
: Fonctionne sur les classes de stéréotype SQL

===UpdateFrom===

<source lang="delphi">
function updateFrom(sel:TSelector; iMatchedProps:Array of string; iUpdatedProps:Array of string; iUpdatedValue:Array of variant):Integer;
</source>

Permet de mettre à jour une classe à partir d'un sélecteur et d'une colonne de correspondance.

'''Exemple :'''

<source lang="delphi">
Type
// Update the temp table
vueTemp = viewOf(TempLettrage)
reference1:string = reference1;
reference2:string = reference2;
modeLettrage:Integer = modeLettrage;
end;

vueRef1 = viewOf(TempLettrage)
//ACount:Integer = count(id);
ATotal:Currency = sumSign(montant:TCValue,sens,'1');
reference1:string = reference1;
[(modeLettrage=0) and (reference1<>'')]
end;

var selT,selG:TSelector;
begin
withP long transaction do
begin
// for updating the temp table on "match"
selT := vueTemp.CreateSelector('','',True,[]);

// Lettrage sur reference 1
selG := vueRef1.CreateSelector('(ATotal=0)','',True,[]);
selG.useCTE := True;
selT.UpdateFrom(selG,['reference1'],['modeLettrage'],[1]);
end;
end;
</source>

<pre>
with CTE as (
select sum(case when t0.sens=1 then ISNULL(t0.montant_TCValue, 0) else -ISNULL(t0.montant_TCValue, 0) end) as "ATotal",t0.reference1 as "reference1"
from dbo.TEMPLETTRAGE t0 WITH (NOLOCK)
where ((t0.modeLettrage = 0) and (t0.reference1 IS NOT NULL))
group by t0.reference1
)
merge into dbo.TEMPLETTRAGE tm0 using (
SELECT *
FROM CTE
Where (ATotal = 0.0000)
) tm1 on (tm1.reference1=tm0.reference1)
when matched then update set
tm0.modeLettrage = 1
;
</pre>

[[Category:Version 2025 R2]]
[[Category:Release note]]

Version 2025 r2 (release note)

2025-04-10T17:11:35Z

Syfre :

{{version2025r1}}
__TOC__

''' PREVIEW '''

==Script==

===Vue locale===

* Paramètre de type de donnée

<source lang="delphi">
Type
vue1 = viewOf(ClassA)
p1:TEnum(enumName) = ...;
end;
</source>

* Héritage de vue locale

<source lang="delphi">
Type
vue1 = viewOf(ClassA)
p1:string = ...;
[...]
end;

vue2 = viewOf(vue1)
p1:string = ...;
[inherited]
end;
</source>

* Scope de vue locale

Une vue locale peut être référencée en dehors de la méthode ou elle est définie.

<source lang="delphi">
procedure Class1.foo;
Type
vue1 = viewOf(ClassA)
p1:string = ...;
end;
begin
...
end;

procedure Class2.bar;
Type
vue2 = viewOf(class1.foo.vue1)
p1:string = ...;
end;
begin
...
end;
</source>

* Expression Exists()

Une expression existe peut être utilisée dans les filtres comme une valeur logique

<source lang="delphi">
Type
vue1 = viewOf(ClassA)
id:string = ...;
end;

vue2 = viewOf(ClassB)
id:string = ...;
bb:boolean = vue1.Exists('(id=self.id)',True,[]) notInSelect;
[(bb=true) and (....)]
end;
</source>

==Sélecteur==

* lastOpeStamp, lastAffectedStamp
: Attributs mis à jour par la dernière opération assembliste.

* Amélioration de CopyTo
: Permet de créer des objets à partir d'un sélecteur

* CopyTo, Update, UpdateFrom
: Fonctionne sur les classes SQL

===UpdateFrom===

<source lang="delphi">
function updateFrom(sel:TSelector; iMatchedProps:Array of string; iUpdatedProps:Array of string; iUpdatedValue:Array of variant):Integer;
</source>

Permet de mettre à jour une classe à partir d'un sélecteur et d'une colonne de correspondance.

'''Exemple :'''

<source lang="delphi">
Type
// Update the temp table
vueTemp = viewOf(TempLettrage)
reference1:string = reference1;
reference2:string = reference2;
modeLettrage:Integer = modeLettrage;
end;

vueRef1 = viewOf(TempLettrage)
//ACount:Integer = count(id);
ATotal:Currency = sumSign(montant:TCValue,sens,'1');
reference1:string = reference1;
[(modeLettrage=0) and (reference1<>'')]
end;

var selT,selG:TSelector;
begin
withP long transaction do
begin
// for updating the temp table on "match"
selT := vueTemp.CreateSelector('','',True,[]);

// Lettrage sur reference 1
selG := vueRef1.CreateSelector('(ATotal=0)','',True,[]);
selG.useCTE := True;
selT.UpdateFrom(selG,['reference1'],['modeLettrage'],[1]);
end;
end;
</source>

<pre>
with CTE as (
select sum(case when t0.sens=1 then ISNULL(t0.montant_TCValue, 0) else -ISNULL(t0.montant_TCValue, 0) end) as "ATotal",t0.reference1 as "reference1"
from dbo.TEMPLETTRAGE t0 WITH (NOLOCK)
where ((t0.modeLettrage = 0) and (t0.reference1 IS NOT NULL))
group by t0.reference1
)
merge into dbo.TEMPLETTRAGE tm0 using (
SELECT *
FROM CTE
Where (ATotal = 0.0000)
) tm1 on (tm1.reference1=tm0.reference1)
when matched then update set
tm0.modeLettrage = 1
;

</pre>

[[Category:Version 2025 R2]]
[[Category:Release note]]

Version 2025 r2 (release note)

2025-04-10T17:08:29Z

Syfre : /* Sélecteur */

{{version2025r1}}
__TOC__

''' PREVIEW '''

==Script==

===Vue locale===

* Paramètre de type de donnée

<source lang="delphi">
Type
vue1 = viewOf(ClassA)
p1:TEnum(enumName) = ...;
end;
</source>

* Héritage de vue locale

<source lang="delphi">
Type
vue1 = viewOf(ClassA)
p1:string = ...;
[...]
end;

vue2 = viewOf(vue1)
p1:string = ...;
[inherited]
end;
</source>

* Scope de vue locale

<source lang="delphi">
procedure Class1.foo;
Type
vue1 = viewOf(ClassA)
p1:string = ...;
end;
begin
...
end;

procedure Class2.bar;
Type
vue2 = viewOf(class1.foo.vue1)
p1:string = ...;
end;
begin
...
end;
</source>

* Expression Exists()

<source lang="delphi">
Type
vue1 = viewOf(ClassA)
id:string = ...;
end;

vue2 = viewOf(ClassB)
id:string = ...;
bb:boolean = vue1.Exists('(id=self.id)',True,[]) notInSelect;
[(bb=true) and (....)]
end;
</source>

==Sélecteur==

* lastOpeStamp, lastAffectedStamp
: Attributs mis à jour par la dernière opération assembliste.

* Amélioration de CopyTo
: Permet de créer des objets à partir d'un sélecteur

* CopyTo, Update, UpdateFrom
: Fonctionne sur les classes SQL

===UpdateFrom===

<source lang="delphi">
function updateFrom(sel:TSelector; iMatchedProps:Array of string; iUpdatedProps:Array of string; iUpdatedValue:Array of variant):Integer;
</source>

Permet de mettre à jour une classe à partir d'un sélecteur et d'une colonne de correspondance.

'''Exemple :'''

<source lang="delphi">
Type
// Update the temp table
vueTemp = viewOf(TempLettrage)
reference1:string = reference1;
reference2:string = reference2;
modeLettrage:Integer = modeLettrage;
end;

vueRef1 = viewOf(TempLettrage)
//ACount:Integer = count(id);
ATotal:Currency = sumSign(montant:TCValue,sens,'1');
reference1:string = reference1;
[(modeLettrage=0) and (reference1<>'')]
end;

var selT,selG:TSelector;
begin
withP long transaction do
begin
// for updating the temp table on "match"
selT := vueTemp.CreateSelector('','',True,[]);

// Lettrage sur reference 1
selG := vueRef1.CreateSelector('(ATotal=0)','',True,[]);
selG.useCTE := True;
selT.UpdateFrom(selG,['reference1'],['modeLettrage'],[1]);
end;
end;
</source>

<pre>
with CTE as (
select sum(case when t0.sens=1 then ISNULL(t0.montant_TCValue, 0) else -ISNULL(t0.montant_TCValue, 0) end) as "ATotal",t0.reference1 as "reference1"
from dbo.TEMPLETTRAGE t0 WITH (NOLOCK)
where ((t0.modeLettrage = 0) and (t0.reference1 IS NOT NULL))
group by t0.reference1
)
merge into dbo.TEMPLETTRAGE tm0 using (
SELECT *
FROM CTE
Where (ATotal = 0.0000)
) tm1 on (tm1.reference1=tm0.reference1)
when matched then update set
tm0.modeLettrage = 1
;

</pre>

[[Category:Version 2025 R2]]
[[Category:Release note]]

Version 2025 r2 (release note)

2025-04-08T08:24:18Z

Syfre : Page créée avec « {{version2025r1}} __TOC__ ''' PREVIEW ''' ==Script== ===Vue locale=== * Paramètre de type de donnée <source lang="delphi"> Type vue1 = viewOf(ClassA) p1:TEnum(... »

Version 2025 r1 (release note)

2025-04-08T08:02:26Z

Syfre : Page créée avec « {{version2025r1}} __TOC__ Category:Version 2025 R1 Category:Release note »

{{version2025r1}}
__TOC__

[[Category:Version 2025 R1]]
[[Category:Release note]]

Main Page

2025-04-08T08:01:20Z

Syfre :

__NOTOC__
=Sage FRP 1000 =

===Architectures===
* [[Vue d'ensemble 1000 (arch)|Vue d'ensemble]]
* [[Architecture 2 Tiers (arch)|Architecture 2 Tiers]]
* [[Architecture 3 Tiers (arch)|Architecture 3 Tiers]]
* [[Architecture cluster (arch)|Architecture cluster]]

===Guides des administrateurs===

* [[Administration (admin)|Administration]]
* [[Console d'administration (admin)|Référence de la console d'administration]]
* [[Flux d'administration|Flux d'administration]]

===Guides des intégrateurs===

* [[Automates|Automates]]
* [[Processus Métiers (bp)|Processus Métiers et Workflow]]
* [[Imports|Imports]]
* [[Exports|Exports]]
* [[Guide de la traduction|Traduction]]
* [[Pilotage|Pilotage]]
* [[Publication|Publication]]
* [[Portail|Portail]]
* [[Serveur|Serveur]]
* [[Complément Outlook (Outlook)|Complément Outlook]]
* [[Complément Excel (Excel)|Complément Excel]]

===Guides des développeurs===

* [[Développement ESM|Guide de développement ESM]]
* [[Développement DSM|Guide de développement DSM]]
{{IfLatest|
* [[Développement Mobile|Guide de développement d'applications Mobiles]]
}}
* [[Processus Métiers (bp)|Guide des processus métiers et Workflow]]
* [[Web Services (ws)|Guide de développement de Web Services]]
* [[SData|Guide de développement SData]]

* [[Concepteur de modèle|Concepteur de modèle]]
* [[Concepteur d'écran|Concepteur d'écran]]
* [[Concepteur de requêtes (Concepteur de requêtes)|Concepteur de requête]]
* [[Guide des formats |Guide des formats de génération/intégration de fichier]]
* [[Référence_pour_les_formats_de_fichier|Référence pour les formats de fichier]]

===Références===

* [[:Category:RTL|Référence du langage et de l'API]]
* [[Référence des styles|Référence des styles desktop]]
* [[Référence des styles web|Référence des styles webtop]]

===Vidéos===
* [[:Category:Video|Didactitiels vidéo (nécessite flash version 9.02 ou plus)]]

===Versions===

* [[Version 6.00 (release note)|Version 6.00]]
* [[Version 6.50 (release note)|Version 6.50]]
* [[Version 7.00 (release note)|Version 7.00]]
* [[Version 7.10 (release_note)|Version 7.10]]
* [[Version 8.00 (release_note)|Version 8.00]]
* [[Version 9.00 (release_note)|Version 9.00]]
* [[Version 9.10 (release_note)|Version 9.10]]
* [[Version 9.20 (release_note)|Version 9.20]]
* [[Version 10.00 (release_note)|Version 10.00]]
* [[Version 11.00 (release_note)|Version 11.00]]
* [[Version 2024 r1 (release_note)|Version 2024 r1]]
* [[Version 2024 r2 (release_note)|Version 2024 r2]]
* [[Version 2025 r1 (release_note)|Version 2025 r1]]
* [[Version 2025 r2 (release_note)|Version 2025 r2]]

===Documents===
* [[Documents|Documents]]

Fichier de configuration (server)

2024-12-09T15:54:04Z

Syfre : /* Système */

===Introduction===
Le Serveur d'application Sage 1000 utilise un fichier de configuration situé dans le répertoire du serveur.

{{info|Le nom du fichier est serverl1000.ini}}

Ce fichier peut être soit modifié à l'aide de la console d'administration des services, soit manuellement par un éditeur de texte.

{{tip|Le fichier est chargé au démarrage du service.}}

===Structure===
Le fichier peut configurer plusieurs services exécutés sur le même serveur, chaque service comporte au moins deux sections :

* [\SOFTWARE\Sage\Ligne 1000\Administration\IPC\SERVICE_NAME]
: Cette entrée détermine la configuration réseau du service.

* [\SOFTWARE\Sage\Ligne 1000\Administration\Servers\SERVICE]
: Cette entrée détermine la configuration logicielle du service.

* [\SOFTWARE\Sage\Ligne 1000\Administration\Servers\SERVICE\Export]
: Cette entrée configure la fonction d'exportation du service.

Exemple :

<pre>
[\SOFTWARE\Sage\Ligne 1000\Administration\IPC\MYSERVICE]
ipcMode=ipcSHM
tcpPort=8090
shmAddress=SYFRE

[\SOFTWARE\Sage\Ligne 1000\Administration\Servers\MYSERVICE]
Master base=orasql://myhost/DBMASTER_ORA?prefix="DBMASTERT_ORA."
Master driver=orasql
Master OS Authentication=0
Master user=DBMASTER_ORA
Master password=DBMASTER_ORA
Server Societies=Société de démonstration GCF 1000
Server Application=Sage 1000 Suite Financière
...
</pre>

Chaque section est composée d'une liste de variables (NomVariable=ValeurVariable), les types de données des variables sont :

{|class="wikitable"
|-
!Variable
!Type
|-
|String
|Chaîne de caractère
|-
|Boolean
|Valeur logique 0:Non 1:Oui
|-
|Integer
|Valeur entière
|-
|Liste de chaîne
|Liste de chaîne de caractère séparée par des virgules.
|}

===Section IPC===

{|class="wikitable"
|-
!Variable
!Type
!Contexte
!Usage
|-
|ipcMode
|enumération
|Client/Serveur
|
*ipcTCP
:Mode de communication par TCP/IP
*ipcSHM
:Mode de communication par mémoire partagée (dépréciée)
|-
|tcpPort
|Integer
|Client/Serveur
|Port de communication TCP
|-
|tcpAddress
|string
|Client/Serveur
|Adresse de communication TCP
|-
|shmAddress
|string
|Client/Serveur
|Nom du segment de mémoire partagé
|-
|serverList
|Serveur
|String list
|Configuration de Cluster 
Liste des services associés à cet identifiant de service.
|}

Exemple :

<pre>
[\SOFTWARE\Sage\Ligne 1000\Administration\IPC\TRESO]
ipcMode=ipcTCP
tcpPort=8090
tcpAddress=localhost
</pre>

Exemple de configuration Cluster :

'''fichier du configuration des services :'''

<pre>
[\SOFTWARE\Sage\Ligne 1000\Administration\IPC\SYFRE]
serverList=SYFRE1,SYFRE2

[\SOFTWARE\Sage\Ligne 1000\Administration\IPC\SYFRE1]
ipcMode=ipcTCP
tcpPort=8091
tcpAddress=syfre

[\SOFTWARE\Sage\Ligne 1000\Administration\IPC\SYFRE2]
ipcMode=ipcTCP
tcpPort=8092
tcpAddress=syfre
</pre>

'''fichier du configuration du client HTTP :'''

<pre>
[\SOFTWARE\Sage\Ligne 1000\Administration\IPC\SYFRE]
serverList=SYFRE1,SYFRE2

[\SOFTWARE\Sage\Ligne 1000\Administration\IPC\SYFRE1]
ipcMode=ipcTCP
tcpPort=8091
tcpAddress=syfre

[\SOFTWARE\Sage\Ligne 1000\Administration\IPC\SYFRE2]
ipcMode=ipcTCP
tcpPort=8092
tcpAddress=syfre
</pre>

===Section Servers===
====IPC====
Ces variables configurent la gestion des services IPC.

La configuration des services IPC peut être renseignée dans une section IPC

[\SOFTWARE\Sage\Ligne 1000\Administration\IPC\nom_de_profil]

puis référencée par la variable "IPC Profil"

{|class="wikitable"
|-
!Variable
!Type
!Usage
|-
|IPC Profil
|String
|Référence un nom de section IPC contenant la configuration
|-
|IPC Started
|boolean
|Démarre les services IPC (défaut true)
|}

Les services IPC sont les services permettant de communiquer via RPC.

Vous avez besoins des services IPC si :
* Vous utilisez un serveur HTTP externe (IIS ou Apache).
* Vous utilisez la Console des Processus Métiers pour dialoguer avec ce Service.
* Vous utilisez le Contrôleur des services.
* Ce Service exécute des tâches de traitement déléguées par un autre Service.

Si vous n'utilisez pas les services IPC il est conseillé de ne pas les démarrer.

{{tip|Ce paramètre n'est pas modifiable depuis la console des services car si vous désactivez les services IPC le contrôleur n'est plus opérationnel}}

====Sessions====
Ces variables configurent la gestion des sessions.

La configuration des sessions peut être renseignée dans une section SESSIONS

[\SOFTWARE\Sage\Ligne 1000\Administration\SESSIONS\nom_de_profil]

puis référencée par la variable "SESSIONS Profil"

{|class="wikitable"
|-
!Variable
!Type
!Défaut
!Min
!Usage
|-
|SESSIONS Profil
|String
|
|
|Référence un nom de section SESSIONS contenant la configuration
|-
|CheckInterval
|Entier
|1 minute
|1 minute
|Délai entre chaque test d'expiration en seconde.
|-
|ExpireInterval
|Entier
|15 minutes
|
|Délai d'expiration des sessions en seconde.
|}

====Base master====
Ces variables configurent la base Master utilisée par le service.

La configuration de la base master peut être renseignée dans une section MASTER

[\SOFTWARE\Sage\Ligne 1000\Administration\MASTER\nom_de_profil]

puis référencée par la variable "Master Profil"

{|class="wikitable"
|-
!Variable
!Type
!Usage
|-
|Master Profil
|String
|Référence un nom de section MASTER contenant la configuration
|-
|Master base
|String
|Nom de la base de données Master
|-
|Master driver
|String
|Nom du driver de la base de données Master
|-
|Master OS Authentication
|Boolean
|Utiliser l'authentification du système d'exploitation.
|-
|Master user
|String
|Nom d'utilisateur utilisé pour la connexion à la base Master
|-
|Master password
|String
|Mot de passe utilisé pour la connexion à la base Master
|}

====Application et Sociétés====
Ces variables configurent l'application et les sociétés servies par le service.

{|class="wikitable"
|-
!Variable
!Type
!Version
!Usage
|-
|Server Societies
|String
|
|Liste des sociétés/dossiers servies par le service.
|-
|Server Application
|String
|
|Nom de l'application servie par le service.
|-
|Server User
|String
|
|Nom de l'utilisateur du service.
|-
|Server Password
|String
|
|Mot de passe de l'utilisateur du service.
|-
|Server User Group
|String
|
|Nom du groupe de l'utilisateur du service.
|-
|Server Authentication
|String
|
|Annuaire utilisé pour l'authentification.
|-
|Authentication Directories
|liste de chaîne
|8.00
|Annuaires disponibles pour ce service.(code des annuaires séparés par ";")
|}

====Service====
Ces variables configurent le service.

{|class="wikitable"
|-
!Variable
!Type
!Version
!Usage
|-
|Server Name
|String
|
|Nom du service.
|-
|Cache Folder
|String
|
|Répertoire où stocker les fichiers temporaires et les fichiers en cache.
|-
|[[Zone publique (server)|Public Folder]]
|String
|
|[[Zone_publique_(server)|Racine des répertoires partagés du service]].
|-
|[[Public links (server)|Public Links]]
|Liste de chaîne
|
|Liste de répertoires réseaux (séparés par un ;) pour lesquels des [[Stockage_des_documents|documents peuvent être associés]].
|-
|Send Alert To
|String
|
|Liste d'adresses emails (séparées par un ;) auxquelles seront envoyés les messages d'alertes.
|-
|Scripts
|Liste de chaîne
|
|Liste de références CSS ajouté aux pages HTML
|-
|MaxDatagridRowCount
|Integer
|
|Limite le nombre de lignes affichées dans les grilles (par défaut à 5000).
|-
|[[Security mode (server)|Security Mode]]
|String
|7.00
|Valeurs possibles : Intranet (valeur par défaut) / Internet [[Service_exposé_sur_internet|Voir Service exposé sur internet]]
|-
|Enable Remember User
|boolean
|7.10
|Permet à l'utilisateur d'avoir son nom pré-renseigné dans la page d'authentification (par défaut à vrai)
|-
|MaxPreviewPageCount
|Integer
|
|Limite le nombre de pages affichées dans les aperçus des éditions (par défaut à 50).
|-
|Preview max page
|Integer
|10.00
|Limite le nombre de pages affichées dans les aperçus des éditions (par défaut à 50).
|-
|Preview blocking
|Boolean
|10.00
|1:Les aperçus sont affichés directement en onglet 0:les aperçus sont envoyés dans la bam.
|-
|Preview timeout
|Integer
|10.00
|Délai d'attente de fin d'aperçu si Preview blocking=1.
|-
|Printer Filter
|chaine
|
|Noms des imprimantes ne pas proposer, séparées par des points virgules (9.20)

|}

====Automates====
Ces variables configurent le serveur d'automate inclus dans le serveur.

Ces variables peuvent être renseignées dans une section AUTOMATE

[\SOFTWARE\Sage\Ligne 1000\Administration\AUTOMATE\nom_de_profil]

puis référencées par la variable "Automate Profil"

{|class="wikitable"
|-
!Variable
!Type
!Version
!Usage
|-
|Automate Profil
|String
|
|Référence une section AUTOMATE.
|-
|Automate Started 
Process Server Started
|Boolean
|
|Démarre le serveur d'automate. (défaut) (*) 
|-
|Automate Name 
Process Server Name
|String
|
|Nom du serveur d'automate à démarrer. (*)
|-
|Automate Message Box 
Process Server Message Box
|String
|
|Boite à messages utilisé par le serveur d'automate.
|-
|Automate Task Service 
Process Task Service
|String
|
|Nom du Service 1000 exécutant les tâches du serveur d'automate.(hostname.servicename)
|-
|Automate Task Count 
|Integer
|6.50
|Nombre maximal de tâches automates simultanées (défaut 1).
|-
|Automate Debug 
|Boolean
|7.00 Patch
|Active le mode debug verbose (**).
|}

{{Version700}} (*) Ces valeurs peuvent être modifiées sur la ligne de commande

{{Version700}} (**) A utiliser conjointement avec la console de trap snmp

====Processus métiers====
Ces variables configurent le service de Processus Métiers inclus dans le serveur.

{|class="wikitable"
|-
!Variable
!Type
!Usage
|-
|BP Started
|Boolean
|Démarre le service de Processus Métiers (défault).
|}

{{Version700}} Cette valeur peut être modifiée sur la ligne de commande

====Système====
Ces variables configurent le Processus du serveur.

Ces variables peuvent être renseignées dans une section PROCESS

[\SOFTWARE\Sage\Ligne 1000\Administration\PROCESS\nom_de_profil]

puis référencée par la variable "Process Profil"

{|class="wikitable"
|-
!Variable
!Type
!Usage
|-
|Process Profil
|string
|Référence une section PROCESS
|-
|ProcessAffinity
|String
|Détermine les coeurs utilisés par le processus sur une machine multi-coeurs 
ex : 1,3 pour utiliser les coeurs 1 et 3 d'une machine multi-coeurs.
|-
|ThreadPoolSize
|Integer
|Taille du pool de thread (20)
|-
|FormCacheSize
|Integer
|Taille du cache pour un écran (défaut:20, 0:désactive l'utilisation du cache)
|-
|FormCacheLimit
|Integer
|Taille du cache pour l'ensemble des écrans (256)
|-
|FormCacheReuse
|Integer
|Nombre de fois qu'un écran peut être réutilisé (-1 : pas de limite)
|}

*ProcessAffinity
:Le Processus du serveur est un processus multi-threadé, sur une machine multi-coeurs il utilise tous les coeurs disponibles sur le système d'exploitation. Dans certain cas il est souhaitable de restreindre l'exécution à certains coeurs.

*ThreadPoolsize
:Chaque requête sur le service est exécutée par une thread allouée d'un pool ; lorsque le pool est plein la requête est suspendue jusqu'à ce qu'une thread se libère dans le pool. Cette variable limite la taille du pool de thread et par conséquence limite les contentions et les "context switches" provoqués par le processus.

*FormCacheSize
:L'opération d'ouverture d'un écran est une opération coûteuse, pour cette raison les écrans fermés sont placés dans un cache pour être réutilisés. Cette variable limite le nombre d'instance d'un écran dans le cache.

*FormCacheLimit
:L'opération d'ouverture d'un écran est une opération coûteuse, pour cette raison les écrans fermés sont placés dans un cache pour être réutilisés. Cette variable limite le nombre maximal d'écran dans le cache et par conséquent la mémoire utilisée par le cache d'écran.

*FormCacheReuse
:Indique le nombre de fois qu'un écran en cache peut être réutilisé.

{{info|Pour pouvoir utiliser WMI la dll serviceL1000perf.dll doit être présente dans le répertoire du serveur.}}
{{info|Pour désactiver le cache, définir la valeur de FormCacheSize à 0}}

====Files d'attente====
Ces variables configurent le service de consommation de file d'attente.

Ces variables peuvent être renseignées dans une section PERF.

[\SOFTWARE\Sage\Ligne 1000\Administration\QUEUELISTENER\nom_de_profil]

puis référencée par la variable "Queue listener Profil"

{|class="wikitable"
|-
!Variable
!Type
!Usage
|-
|Queue listener Started
|Boolean
|Démarre le service de consommation de file d'attente.
|-
|Queue listener queues
|Liste de chaînes séparées par des ,
|Liste des files d'attente à consommer.
|-
|Queue listener Task count
|Entier
|Nombre maximal de tâches simultanées par service.
|}

Les paramètres de scrutation d'une file d'attente peuvent être configurés à la suite du nom de la file d'attente en séparant les paramètres par un caractère ":"

{|class="wikitable"
|-
!Paramètre
!Valeur par défaut (ms)
!Usage
|-
|Initial
|1000
|Délai initial de scrutation (ms)
|-
|Max
|10000
|Délai maximal de scrutation (ms)
|-
|Increment
|1000
|Incrément du délai jusqu'au délai maximal si aucun message n'est disponible (ms)
|}

Exemple :
<pre>
Queue listener queues=MyQueue1:2000:10:20000,MyQueue2,MyQueue3:100:10:1000
</pre>

Avec les valeurs par défaut, une file d'attente est lue initialement toutes les secondes, puis si aucun message n'est reçu, ce délai monte jusqu'à 10 secondes. Lorsque un message est reçu le délai est réinitialisé à 1 seconde et ainsi de suite.

====Compteurs de performance====

Ces variables configurent le Processus du serveur.

Ces variables peuvent être renseignées dans une section PERF

[\SOFTWARE\Sage\Ligne 1000\Administration\PERF\nom_de_profil]

puis référencée par la variable "Performance Counters Profil"

{|class="wikitable"
|-
!Variable
!Type
!Usage
|-
|Start Performance Counters
|Boolean
|Démarre les compteurs de performance
|-
|Start Performance Clock
|Boolean
|Démarre l'horloge de performance
|-
|Performance Clock Delay
|Cardinal
|Période de l'horloge de performance (ms)
|-
|HTTP PerfServer Start
|Boolean
|Démarre le serveur HTTP de performance
|-
|HTTP PerfServer Port
|Integer
|Port du serveur HTTP de performance
|-
|HTTP PerfServer Protocol
|String
|Protocole du serveur HTTP de performance
|}

*Start Performance Counters
:Le serveur inclus un certain nombre de [[Compteurs de performance (monitoring)|compteurs de performance]] interrogeables par le [[Serveur de performance (monitoring)|serveur de performance]].

*Start Performance Clock
: Démarre une horloge permettant de générer un évènement de monitoring.

*Performance Clock Delay
: Période de l'horloge de performance. (défaut 1000)

*HTTP PerfServer Start
: Démarre le server HTTP de performance.

*HTTP PerfServer Port
: Port du serveur HTTP de performance. (défaut 9999)

*HTTP PerfServer Protocol
:Protocole du serveur HTTP de performance (défaut http)

Voir la catégorie [[:Category:Monitoring]]

====HTTP====
Ces variables peuvent être renseignées dans une section HTTP

[\SOFTWARE\Sage\Ligne 1000\Administration\HTTP\nom_de_profil]

puis référencée par la variable "HTTP Profil"

Les variables suivantes configurent le protocole HTTP utilisé par le service, elles sont utilisées pour construire des URL pointant sur le service.

{|class="wikitable"
|-
!Nom de variable
!Type
!Version
!Par défaut
!Usage
|-
|HTTP Protocol
|String
|Toute
|http:
|Protocole HTTP publique du Service (http: ou https:)
|-
|HTTP Port
|Integer
|Toute
|80
|Port HTTP publique du Service
|-
|HTTP HostName
|String
|Toute
|Nom local de la machine
|Domaine publique du serveur HTTP frontal
|-
|HTTP ServiceName
|String
|6.51
|Nom du service
|
Nom du service load-balancé utilisé par le service 
Ce nom peut différer du nom du service dans une configuration load balancée. 
C'est ce nom qui est enregistrée dans les URLs de la registry SDATA 
Implémenté pour SOAP à partir de la version 7 
|}

Les variables suivantes configurent [[Serveur HTTP (server)|le service HTTP interne]] inclus dans le serveur.

{{Version700}}

{|class="wikitable"
|-
!Nom de variable
!Type
!Usage
|-
|HTTP Started
|boolean
|Démarre le serveur HTTP
|-
|HTTP Listen Protocol
|String
|Protocole HTTP écouté par le serveur HTTP embarqué 
Si cette variable n'est pas défini le protocole est défini par HTTP Protocol
|-
|HTTP Listen Port
|Integer
|Port HTTP écouté par le serveur HTTP embarqué 
Si cette variable n'est pas défini le port est défini par HTTP Port
|-
|HTTP Site
|String
|Répertoire du site utilisé par le serveur HTTP
|-
|HTTP Alias
|String
|Nom de section des alias de répertoire du serveur HTTP
|-
|HTTP CertFile
|String
|Si le protocole est https, représente le fichier certificat (.pem)
|-
|HTTP RootCertFile
|String
|Si le protocole est https, représente le fichier certificat de l'autorité intermédiaire qui a signé le certificat "CertFile" (.pem). 
Ce paramètre est optionnel, il est utile si l'autorité intermédiaire n'est pas directement reconnue par le navigateur.
|-
|HTTP KeyFile
|String
|Si le protocole est https, représente le fichier clef privée (.pem ou .key) qui est liée au certificat
|-
|HTTP KeyPassword
|String
|Si le protocole est https, représente le mot de passe qui permet de décoder la clef privée
|-
|HTTP CertIssuer
|String
|Si le protocole est https, représente l'émetteur du certificat du site permettant de l'identifier dans le magasin Windows
|-
|HTTP CertSerial
|String
|Si le protocole est https, représente le numéro de série du certificat du site permettant de l'identifier dans le magasin Windows
|-
|HTTP SSLVersion
|String
|Version du protocole SSL à utiliser: sslvTLSv1_1, sslvTLSv1_2, sslvTLSv1_3 (par défaut :sslvTLSv1_2)
|-
|HTTP SSLCipherList
|String
|Sceaux proposés par le serveur (par défaut "HIGH:!aNULL:!MD5:!RC4") [https://www.openssl.org/docs/manmaster/apps/ciphers.html en savoir plus] Version 7.10
|-
|HTTP KeepAlive
|Boolean
|Détermine la valeur du paramètre KeepAlive des réponses du serveur HTTP. 
La valeur est True (1) par défaut et le serveur renvoi KeepAlive dans ses réponses. 
Cette valeur doit être false (0) pour une configuration load balancée.
|-
|HTTP Private Started
|Boolean
|Permet de démarrer un service http "privé", utile dans le cadre d'une configuration load balancée. 
Ce service n'est adressé que par les autres services, et permet d'économiser la partie SSL des échanges. 
Le port de ce service ne doit pas être exposé au clients web.
|-
|HTTP Private Port
|Integer
|Détermine la valeur du port http privé.
|-
|HTTP Log
|Booléen
|Active la journalisation des flux http (Version 10)
|}

{{tip|TLS 1.3 supporté à partir de la version 10 en utilisant OpenSSL 3.0}}

{{tip|Le protocole/port publique peuvent être différent du protocole/port d'écoute si un load balancer est utilisé.}}

Voir aussi :
* [[Serveur HTTP (server)|Serveur HTTP interne]]
* [[Configuration_du_Serveur_HTTPS|Configuration du serveur en HTTPs]]
* [[Configuration_du_Serveur_HTTP_derrière_un_répartiteur_de_charge|Configuration derrière un répartiteur de charge]]

Certains de ces paramètres peuvent être remplacés par [[Service_1000_(server)|les paramètres de la ligne de commande]] :

{|class="wikitable"
|-
!Paramètre
!Paramètre de la ligne de commande
|-
|HTTP Listen Port
|HTTPPORT
|-
|HTTP KeepAlive
|HTTPKEEPALIVE
|}

====HTTP ACLs====
{{version710}}

{|class="wikitable"
|-
!Nom de variable
!Type
!Usage
|-
|HTTP ACL
|string
|Liste de règles séparées par une virgule, par ordre de priorité
|}

La syntaxe d'une règle ACL :
<pre>
action-IP/Nob
</pre>

*action
: Type de règle, doit être accept ou deny
*IP
: Addresse IP en notation pointé
*Nob (facultatif)
:Nombre de bits du masque de sous réseau, par exemple 29 correspond au masque 255.255.255.248 et défini un sous réseau de 8 adresses.

[http://jodies.de/ipcalc Calculateur de masque]

Exemple 1 :

Autorise les adresses 192.168.1.0 ... 192.168.1.7 à l’exception de 192.168.1.5

<pre>
deny-192.168.1.5
accept-192.168.1.0/29
</pre>

Exemple 2 :

Autorise seulement l'adresse 192.168.1.1

<pre>
accept-192.168.1.1
deny-0.0.0.0/0
</pre>

====HTTP Web Worker====
{{version800}}

Le Web Worker est un mécanisme de notification asynchrone permettant au client Web d'être notifié des événements survenant coté serveur.

Il permet de gérer les notifications de boîte à message ainsi que les notifications de traitement.

L'utilisation du web worker améliore l'expérience utilisateur.

{|class="wikitable"
|-
!Nom de variable
!Type
!Usage
|-
|Web worker started
|Integer
|Active (1) ou désactive (0) l'utilisation du web worker
|}

{{Tip|Lorsque le web worker est activé, le client génère des requêtes msg.pending périodiques.}}

====HTTP Web Socket====
{{version800}}

Les WebSockets utilisent un protocole permettant de créé des canaux de communication full-duplex à l'intérieur d'une connexion TCP.

L'utilisation des WebSockets améliore l'expérience utilisateur par une meilleur fluidité des échanges.

{|class="wikitable"
|-
!Nom de variable
!Type
!Usage
|-
|Web socket started
|Integer
|Active (1) ou désactive (0) l'utilisation de WebSocket
|}

{{Tip|

#Les WebSocket ne sont prises en charge que par le serveur HTTP embarqué et en mode '''HTTPs uniquement'''.
#Les WebSockets sont activées par défaut.
#Les WebSocket peuvent ne pas fonctionner ou provoquer des problèmes dans le cas d'utilisation du serveur Sage 1000 derrière un load balancer qui ne supporterait pas le protocole WebSocket.
#L'url utilisée doit correspondre au domaine du certificat SSL. Par exemple, en entreprise, si votre serveur est myhost sur le domaine interne xxx.yyy.zzz le nom de domaine du certificat auto-généré sera myhost.xxx.yyy.zzz. Vous devez utiliser https://myhost.xxx.yyy.zzz comme url d'accès même si https://myhost est valide sur votre réseau. A défaut l'établissement des connexions websockets échoueront.}}

{{Tip|Lorsque les websockets sont actives, le dialogue d'attente n'est pas affiché.}}

====HTTP CSP====
La [https://developer.mozilla.org/fr/docs/Web/HTTP/CSP stratégie de sécurité du contenu] permet d'améliorer la sécurité des sites web.

{{version1000}}
{|class="wikitable"
|-
!Nom de variable
!Type
!Usage
|-
|HTTP CSP
|Liste de chaines
|Liste des règles séparées par ";"
|}

Exemple

HTTP CSP = default-src 'self'; script-src https://example.com

La valeur par défaut est ''default-src 'self'''

====HTTP CORS====
Le [https://developer.mozilla.org/en-US/docs/Web/HTTP/CORS CORS] permet d'autoriser des requêtes provenant d'autre domaine.

{{version800}}
{|class="wikitable"
|-
!Nom de variable
!Type
!Usage
|-
|HTTP CORS Allow origin
|Liste de chaines
|Liste des domaines autorisés
|}

La liste des domaines doit être séparée par des virgules, utilisez * pour autoriser tous les domaines.

Les domaines doivent être qualifié par le protocole, par exemple http://origin.com

Les domaines indiqués ici seront comparés à la valeur du champ d'entête Origin

Lorsque le domain est autorisé, le service retourne dans la réponse :

{| class="wikitable"
|-
!Champ
!Valeur
|-
|Access-Control-Allow-Origin
|Valeur du chanmp Origin de la requête
|-
|Vary
|Origin
|-
|Access-Control-Allow-Credentials
|true
|-
|Access-Control-Allow-Methods
|POST,PUT,DELETE,GET,OPTION
|-
|Access-Control-Allow-Headers
|Valeur de Access-Control-Request-Headers de la requête
|-
|Access-Control-Max-Age
|86400
|}

====FTPs====
Ces variables configurent le serveur FTPs inclu dans le servcice.
Le serveur FTP peut être utilisé sur les containeurs.

[\SOFTWARE\Sage\Ligne 1000\Administration\FTP\nom_de_profil]

puis référencée par la variable "FTP Profil"

{|class="wikitable"
|-
!Nom de variable
!Type
!Usage
|-
|FTP Profil
|string
|Référence une section FTP
|-
|FTP Start
|1 ou 0
|Démarre le service FTP
|-
|FTP ACL
|Chaîne
|Définit une liste d'ACL optionnelle
|}

====WEB====
Ces variables configurent le service WEB inclu dans le service.

Ces variables peuvent être renseignées dans une section WEB

[\SOFTWARE\Sage\Ligne 1000\Administration\WEB\nom_de_profil]

puis référencée par la variable "WEB Profil"

{|class="wikitable"
|-
!Nom de variable
!Type
!Usage
|-
|WEB Profil
|string
|Référence une section WEB
|-
|MaxDatagridRowCount
|Entier
|Détermine le nombre maximal de lignes chargées dans une grille (défaut 5000)
|-
|GridWindowSize
|Entier
|Détermine le nombre maximal de lignes affichées dans une page de grille. (Défaut 25)
|-
|MDIForms
|1 ou 0
|Défaut 0
|-
|MDIAssistants
|1 ou 0
|Défaut 1
|-
|UseTreeBookClassic
|1 ou 0
|Défaut 0
|-
|SavePortalTabForms
|1 ou 0
|Défaut 1
|-
|DebugJS
|1 ou 0
|Utilise les javascript en mode debug (Défaut 0)
|-
|RecordMode
|1 ou 0
|Active le mode enregistrement pour JMeter (Défaut 0)
|-
|FormRedirect
|1 ou 0
|Active la redirection des urls d'écran, pour IIS cette redirection doit être désactivée. (défaut 1, ativé)
|}

====Mise au point, debugger {{Version700}}====
Ces variables configurent le remote debugger inclus dans le service.

Le remote debugger permet à un poste client desktop de visualiser, modifier et poser des points d'arrêt dans le code métier exécuté par le service.

Ces variables peuvent être renseignées dans une section DEBUGGER

[\SOFTWARE\Sage\Ligne 1000\Administration\DEBUGGER\nom_de_profil]

puis référencée par la variable "DEBUGGER Profil"

{|class="wikitable"
|-
!Nom de variable
!Type
!Usage
|-
|DEBUGGER Profil
|string
|Référence une section DEBUGGER
|-
|DEBUGGER Started
|Boolean
|Démarre le service de Remote debugging
|-
|DEBUGGER Users
|Strings
|Liste des utilisateurs autorisés à utiliser le service de remote debugging
|-
|DEBUGGER Handlers
|Strings
|Liste des handlers des évènements de trace qui seront interceptés et redirigés vers le journal d'évènement, ceci vous permet de visualiser en temps réel ces traces dans la console SNMP. Les handlers possibles sont:
* script
: Evènements générés par la fonction dbgMsg() du code métier
* queries
: Evènements de trace des requêtes SQL
|}

{{warning|L'utilisation de DEBUGGER Handlers peut provoquer une forte consommation de mémoire}}
{{warning|Ces fonctionnalités ne doivent pas être activés sur un serveur de production}}

====LDAP====
Ces variables configurent le serveur LDAP inclus dans le service.

Ces variables peuvent être renseignées dans une section LDAP

[\SOFTWARE\Sage\Ligne 1000\Administration\LDAP\nom_de_profil]

puis référencée par la variable "LDAP Profil"

{|class="wikitable"
|-
!Nom de variable
!Type
!Usage
|-
|LDAP Profil
|string
|Référence une section LDAP
|-
|LDAP Started
|Boolean
|Démarre le service LDAP (défaut false).
|-
|LDAP Port
|Integer
|Port d'écoute du service LDAP
|-
|LDAP Password
|String
|Mot de passe administrateur du compte system du serveur LDAP ('uid=admin,ou=system')
|}

====SOAP====
Ces variables configurent le service SOAP inclus dans le serveur.

Ces variables peuvent être renseignées dans une section SOAP

[\SOFTWARE\Sage\Ligne 1000\Administration\SOAP\nom_de_profil]

puis référencées par la variable "SOAP Profil"

{|class="wikitable"
|-
!Nom de variable
!Type
!Usage
|-
|SOAP Profil
|string
|Référence une section SOAP
|-
|SOAP Log Documents
|Boolean
|Active la journalisation des documents SOAP
|-
|SOAP Log Messages
|Boolean
|Active la journalisation des messages SOAP
|-
|SOAP 5.5x
|Boolean
|Utilise l'implémentation SOAP des versions 5.5x
|}

*SOAP 5.5x
:L'implémentation de SOAP a été récrite en version 5.6x, en cas de problème de compatibilité avec des développements existant il est possible d'utiliser l'ancienne implémentation.

====SMTP====
Ces variables configurent le client SMTP utilisé par le service pour envoyer des EMails.

Ces variables peuvent être renseignées dans une section SMTP

[\SOFTWARE\Sage\Ligne 1000\Administration\SMTP\nom_de_profil]

puis référencés par la variable "SMTP Profil"

{|class="wikitable"
|-
!Nom de variable
!Type
!Usage
|-
|SMTP Profil
|string
|Référence une section SMTP
|-
|SMTP Host
|String
|Adresse du serveur SMTP.
|-
|SMTP Port
|Integer
|Port du serveur SMTP.
|-
|SMTP Login
|String
|Utilisateur de connexion du serveur SMTP.
|-
|SMTP Password
|String
|Mot de passe de connexion du serveur SMTP.
|-
|SMTP From
|String
|Adresse EMail de l'expéditeur.
|-
|SMTP UseTLS
|Boolean
|Utilise une sécurisation TLS
|}

====SNMP====
Ces variables peuvent être renseignées dans une section SNMP

[\SOFTWARE\Sage\Ligne 1000\Administration\SNMP\nom_de_profil]

puis référencés par la variable "SNMP Profil"

Ces variables configurent l'agent SNMP inclus dans le serveur.

{|class="wikitable"
|-
!Nom de variable
!Type
!Usage
|-
|SNMP Profil
|string
|Référence une section SNMP
|-
|SNMP Started
|Boolean
|Démarre l'agent SNMP
|-
|SNMP Port
|Integer
|Port UDP de l'agent SNMP (161)
|-
|SNMP sysName
|String
|Valeur de la variable sysName pour la MIB2
|-
|SNMP sysContact
|String
|Valeur de la variable sysContact pour la MIB2
|-
|SNMP sysLocation
|String
|Valeur de la variable sysLocation pour la MIB2
|-
|SNMP Traps
|liste de chaîne
|Référence des sections SNMPTRAP
|}

Les sections SNMPTRAP permettent de définir des points d'écoute SNMP auquels seront envoyés les messages de traps.

[\SOFTWARE\Sage\Ligne 1000\Administration\SNMPTRAP\nom_de_profil]

{|class="wikitable"
|-
!Nom de variable
!Type
!Usage
|-
|SNMP Trap Host
|string
|Nom réseau du point d'écoute
|-
|SNMP Trap Port
|Integer
|Numéro du port du point d'écoute
|-
|SNMP Trap Categories
|Liste de chaîne
|Catégories des traps à envoyer à ce point d'écoute 
|}

La liste des catégories de trap est la suivante :

{|class="wikitable"
|-
!Nom de catégorie
!Type de message
|-
|Service
|Messages relatifs au processus du service.
|-
|Automate
|Messages relatifs aux exécutions de l'automate.
|-
|BP
|Messages relatifs aux exécutions des Processus métiers.
|-
|Authenticate
|Messages relatifs aux erreurs d'authentification.
|}

Exemple de configuration SNMP :

<pre>
[\SOFTWARE\Sage\Ligne 1000\Administration\SNMP\CONFIG_SNMP_1]
SNMP Started=1
SNMP Start=1
SNMP Port=161
SNMP sysContact = toto@sage.com
SNMP sysName = toto
SNMP sysLocation = Paris,France
SNMP Traps=Service,Automate

[\SOFTWARE\Sage\Ligne 1000\Administration\SNMPTRAP\Service]
SNMP Trap Host=localhost
SNMP Trap Port=162
SNMP Trap Categories=Service,Authenticate

[\SOFTWARE\Sage\Ligne 1000\Administration\SNMPTRAP\Automate]
SNMP Trap Host=localhost
SNMP Trap Port=162
SNMP Trap Categories=Automate,BP
</pre>

====PROXY====

{{tip|Déprécié, utiliser le paramétrage dans la console d'administration.}}

Ces variables configurent le PROXY utilisé par le client HTTP.

Ces variables peuvent être renseignées dans une section PROXY

[\SOFTWARE\Sage\Ligne 1000\Administration\PROXY\nom_de_profil]

puis référencée par la variable "PROXY Profil"

{|class="wikitable"
|-
!Nom de variable
!Type
!Usage
|-
|PROXY Profil
|string
|Référence une section PROXY
|-
|PROXY Host
|String
|Adresse du serveur PROXY.
|-
|PROXY Port
|Integer
|Port du serveur PROXY (défaut 8080).
|-
|PROXY Login
|String
|Utilisateur de connexion du serveur PROXY.
|-
|PROXY Password
|String
|Mot de passe de connexion du serveur PROXY.
|-
|PROXY Timeout
|Integer
|Délai d'expiration du PROXY. (défaut 60 secondes)
|}

====Exceptions====
Ces variables configurent l'enregistrement des exceptions du service.

Ces variables peuvent être renseignées dans une section EXCEPTIONS

[\SOFTWARE\Sage\Ligne 1000\Administration\EXCEPTIONS\nom_de_profil]

puis référencées par la variable "Exceptions logs Profil"

{|class="wikitable"
|-
!Nom de variable
!Type
!Usage
|-
|Exceptions logs Profil
|string
|Référence une section EXCEPTIONS
|-
|Exceptions logs Started
|boolean
|Enregistrer les exceptions. Vrai par défaut.
|-
|Exceptions logs path
|String
|Répertoire dans lequel seront créés les fichiers d'exception.
|-
|Exceptions logs ignore
|Liste de chaîne
|Liste d'exception à ignorer.
|-
|Exceptions logs write file
|booléen
|Un fichier d'exception est écrit. Vrai par défaut. Il peut être inutile d'écrire un fichier d'exception si les exceptions sont transmises à un gestionnaire de log (voir LOG MANAGER) et permet dans ce cas ne ne pas encombrer le disque.(V8)
|}

====Captcha====

Dans le cadre d'un service public, les utilisateurs souhaitant s'enregistrer peuvent être soumis à un captcha.

Si l'utilisateur commet trois erreurs lors de l'authentification, il devra saisir un captcha.

voir http://www.google.com/recaptcha

{|class="wikitable"
|-
!Nom de variable
!Type
!Usage
|-
|Recaptcha Public Key
|string
|Clef publique Recaptcha
|-
|Recaptcha Private Key
|String
|Clef privée Recaptcha
|}

====Quotas====

Dans le cadre d'un service public, les utilisateurs téléversent des fichiers dans un répertoire propres à la session.

Ces fichiers doivent avoir une extension prévue pour des questions de sécurité.

La taille totale du répertoire est définie pour éviter un manque de place sur le disque.

{|class="wikitable"
|-
!Nom de variable
!Type
!Usage
|-
|Upload Document Size
|integer
|Taille maximale en Mb d'un fichier uploadé; valeur par défaut : 0 (non limité)
|-
|Upload User Quota
|integer
|Taille maximale en Mb du répertoire upload de l'utilisateur par session; valeur par défaut : 50
|-
|Upload Ext Allowed
|String
|Extensions autorisées; valeur par défaut : vide (tout est autorisé)
|-
|Auto delete messages
|Entier
|Durée de conservation en jours des messages
|}

{{tip|La liste des extensions suivantes n'est jamais filtrée car le service est susceptible de créer des fichiers de ce type (xlsx,ods,xml,pdf,,csv,sxc,xls,,jpg,jpeg,png,asice)}}

====Clefs====

Le stockage de certaines clefs peut être externalié

{|class="wikitable"
|-
!Nom de variable
!Type
!Usage
|-
|Key Cookie
|chaine
|[[keyvault_url|url d'un stockage sécurisé externe]], si la clef est non trouvée, elle y sera créée
|}

===Sections SDATA===
Ces sections permettent de configurer les points d'accès SDATA qui seront exposés par le service.

Les noms de ces sections sont

[\SOFTWARE\Sage\Ligne 1000\Administration\Servers\<<nom du service>>\SData\<<incrément 1...>>]

{|class="wikitable"
|-
!Variable
!Type
!Usage
|-
|DataSetName
|string
|Nom du dataset dans l'URL SDATA
|-
|Title
|string
|Libellé informatif sur l'usage du point d'accès
|-
|Contract
|string
|Nom du paquet de service SDATA
|-
|Version
|string
|Numéro de version, peut être utilisé pour supporté plusieurs version du même contrat
|-
|Folder
|string
|Nom du dossier utilisé par ce point d'accès
|-
|Database
|string
|Nom de la base de donnée utilisé pour ce point d'accès (multi-bases)
|-
|Society
|string
|Nom de la société pour ce point d'accès (multi-société)
|-
|Restitution
|string
|Nom de la famille de restitution pour ce point d'accès (multi-société)
|}

Exemple :

<pre>
[\SOFTWARE\Sage\Ligne 1000\Administration\Servers\SYFRE\SData\1]
DataSetName=iphone
Title=syfre iphone
Contract=ndfContract
Version=1
Folder=Test Syfre iPhone
Database=dbTestIPhone
Society=
Restitution=
</pre>

===Section Export===
Cette section permet de configurer la fonction d'exportation des vignettes de portail des Services.

Deux mode d'exportation sont possibles :

*ftp
: Dans ce mode les vignettes sont générées et copiées dans un répertoire public accessible par ftp.

*file
: Dans ce mode les vignettes sont générées et copiées dans un répertoire local du serveur. Ce mode n'est utile que si le répertoire est un répertoire du Site et que celui-ci est public.

{|class="wikitable"
|-
!Nom de variable
!Type
!Usage
|-
|Protocol
|String
|ftp ou file
|-
|Export URL
|String
|Cette URL référence le répertoire où la vignette a été générée.
|}

Si le protocole est 'ftp' les variables suivantes sont utilisées :

{|class="wikitable"
|-
!Nom de variable
!Type
!Usage
|-
|FTP host
|String
|Addresse du serveur FTP
|-
|FTP Port
|Integer
|Numéro du port du serveur FTP
|-
|FTP Login
|String
|Utilisateur de connexion du serveur FTP
|-
|FTP Password
|String
|Mot de passe de connexion du serveur FTP
|-
|FTP Directory
|String
|Répertoire d'exportation sur le serveur FTP
|}

Si le protocole est 'file' les variables suivantes sont utilisées :

{|class="wikitable"
|-
!Nom de variable
!Type
!Usage
|-
|Directory
|String
|Répertoire d'exportation sur le serveur.
|}

Exemple de configuration ftp utilisant une zone publique Free :

<pre>
[\SOFTWARE\Sage\Ligne 1000\Administration\Servers\SYFRE\Export]
Protocol=ftp
Export URL=http://syfre.free.fr/sage/
FTP Host=ftpperso.free.fr
FTP Port=21
FTP Login=syfre
FTP Password=XXXXXXXXXX
FTP Directory=sage
</pre>

===Section ConfigServer===

Cette section permet d'utiliser un fichier de configuration disponible sur une url.

{|class="wikitable"
|-
!Nom de variable
!Type
!Usage
|-
|url
|String
|Cette URL permet de récupérer le fichier de configuration.
|}

Un POST HTTP est effectué sur cette url avec les données suivantes :

<source lang="javascript">
{"deploymentId":"nom_système_de_la_machine"}
</source>

Le résultat attendu est

<source lang="javascript">
{"config":"contenu_du_fichier_de_configuration"},
{"certificate":"certificat_au_format_pfx"}
</source>

*[[Exemple de configuration (server)|Exemple de configuration]]
*[[Service_1000_(server)|Ligne de commande]]

{{Footer|Serveur}}
[[category:Serveur]]

Développement DSM

2024-12-09T13:25:19Z

Syfre : /* Langage et modélisation */

__NOTOC__
===Architectures===
* [[Vue d'ensemble 1000 (arch)|Vue d'ensemble]]
* [[Architecture 2 Tiers (arch)|Architecture 2 Tiers]]
* [[Architecture 3 Tiers (arch)|Architecture 3 Tiers]]

===Langage et modélisation===

* [[Modèle|La modélisation]]
* [[Moteur de règle|Le moteur de règle]]
* [[:category:Règles|Les règles métiers]]
* [[Langage|Le langage]]
* [[Tableaux ouverts (lang)|Tableaux ouverts]]
* [[Code métier|Le code métier]]
* [[Files d'attente|La gestion des files d'attente]]
* [[:category:Types|Les types métiers]]
* [[Mode d'exécution (script)|Mode d'exécution]]

===Tests unitaires===

* [[Tests unitaires|Test unitaires]]

===Support de fonctions métiers===

* [[TdbfCurrency (class)|Devises]]
* [[TdbfCounter (class)|Compteurs]]
* [[TdbfUnit (class)|Unités]]
* [[Documents (dsm)|Documents]]
* [[Boites à messages (dsm)|Boîtes à Messages]]
* [[:category:Classes frameworks|Les classes du framework]]

===Librairie d'exécution===

* [[:category:RTL Chaîne|Fonctions de chaînes de caractère]]
* [[:category:RTL Date et heure|Fonctions de dates et heures]]
* [[:category:RTL Conversion|Fonctions de conversion]]
* [[:category:RTL Variant|Fonctions variants]]
* [[:category:RTL Système|Fonctions systèmes]]
* [[:category:RTL Application|Fonctions applicatives]]
* [[:category:RTL Fichiers|Fonctions sur les fichiers]]
* [[:category:RTL Framework|Fonctions du framework]]
* [[:category:RTL Mise au point|Fonctions de mise au point]]
* [[:category:RTL Dialogues|Fonctions de dialogues]]
* [[:category:RTL Métier|Fonctions métiers]]
* [[:category:RTL Traduction|Fonctions de traduction]]
* [[:category:RTL Automate|Fonctions de l'automate]]
* [[:category:RTL Contrôles|Fonctions des contrôles]]

===Administration===

* [[Gestion des certificats (dsm)|Gestion des certificats]]

===Architecture métier===

* [[Architecture multi-sociétés (partage)|Multi-sociétés et partage]]

[[category:DSM]]

Développement DSM

2024-12-09T13:24:08Z

Syfre : /* Didactitiels */

__NOTOC__
===Architectures===
* [[Vue d'ensemble 1000 (arch)|Vue d'ensemble]]
* [[Architecture 2 Tiers (arch)|Architecture 2 Tiers]]
* [[Architecture 3 Tiers (arch)|Architecture 3 Tiers]]

===Langage et modélisation===

* [[Modèle|La modélisation]]
* [[Moteur de règle|Le moteur de règle]]
* [[:category:Règles|Les règles métiers]]
* [[Langage|Le langage]]
* [[Tableaux ouverts (lang)|Tableaux ouverts]]
* [[Code métier|Le code métier]]
* [[Files d'attente|La gestion des files d'attente]]
* [[:category:Types|Les types métiers]]
{{IfLatest|
* {{PLatest|Mode d'exécution (script)|Mode d'exécution}}
}}

===Tests unitaires===

* [[Tests unitaires|Test unitaires]]

===Support de fonctions métiers===

* [[TdbfCurrency (class)|Devises]]
* [[TdbfCounter (class)|Compteurs]]
* [[TdbfUnit (class)|Unités]]
* [[Documents (dsm)|Documents]]
* [[Boites à messages (dsm)|Boîtes à Messages]]
* [[:category:Classes frameworks|Les classes du framework]]

===Librairie d'exécution===

* [[:category:RTL Chaîne|Fonctions de chaînes de caractère]]
* [[:category:RTL Date et heure|Fonctions de dates et heures]]
* [[:category:RTL Conversion|Fonctions de conversion]]
* [[:category:RTL Variant|Fonctions variants]]
* [[:category:RTL Système|Fonctions systèmes]]
* [[:category:RTL Application|Fonctions applicatives]]
* [[:category:RTL Fichiers|Fonctions sur les fichiers]]
* [[:category:RTL Framework|Fonctions du framework]]
* [[:category:RTL Mise au point|Fonctions de mise au point]]
* [[:category:RTL Dialogues|Fonctions de dialogues]]
* [[:category:RTL Métier|Fonctions métiers]]
* [[:category:RTL Traduction|Fonctions de traduction]]
* [[:category:RTL Automate|Fonctions de l'automate]]
* [[:category:RTL Contrôles|Fonctions des contrôles]]

===Administration===

* [[Gestion des certificats (dsm)|Gestion des certificats]]

===Architecture métier===

* [[Architecture multi-sociétés (partage)|Multi-sociétés et partage]]

[[category:DSM]]

OnChangeEventId (class)

2024-12-05T10:23:12Z

Syfre :

{{Version1100}}
<source lang='delphi'>class function OnChangeEventID(const iProperty:string; const iOldValue:variant; const iNewValue:variant):string;</source>

Retire l'identifiant de l'évènement de modification d'un attribut d'un objet de cette classe.

{|class="wikitable"
|-
|iProperty
|Nom de l'attribut
|-
|oldValue
|Ancienne valeur de l'attribut
|-
|newValue
|Nouvelle valeur de l'attribut
|-
|Return
|L'identifiant de l'évènement
|}

{{tip|La valeur NULL peut être utilisée pour indiquer "toute valeur"}}

Exemple :

<source lang='delphi'>

//function TTestTask.doExecute(obj:TitObject):boolean;
begin
if obj is WFClasseA then
begin
//.... do something
Result := True;
end
else Result := False;
end;

//function TTestTask.Execute:boolean;
var aMsg:TdbmQueueMessage;
begin
Result := False;
aMsg := ReceivedMsg as TdbmQueueMessage;
if Assigned(aMsg) then
begin
if Assigned(SourceObject) then
begin
Result := doExecute(SourceObject);
end;
end;
end;

//Procedure TestRegisterTasks;
begin
WFClasseA.RegisterOnChangeEvent('unEtat');
TTestTask.Subscribe(WFClasseA.OnChangeEventId('unEtat',NULL {NULL means any value} ,WFCAState_Etat2),['unCode','unEntier'],['X',2]);
end;
</source>

Voir aussi :

* [[RegisterOnChangeEvent (class)|RegisterOnChangeEvent]]

{{Footer|Classes métiers (tech)}}
[[category:Classes métiers]]
[[Category:Version1100]]

Classe tâche (stereotype)

2024-12-05T10:15:02Z

Syfre :

__NOTOC__
{{Version900}}

Les classes tâche sont des classes non persistantes dont la méthode Execute peut être exécutée comme une tâche.

Une classe tâche :
* Peut être utiliser comme une classe non persistante ordinaire.
* Peut être utiliser dans le gestionnaire de tâche.
* Peut être exécutée par la consommation d'un message de file d'attente.

Lorsque la gestion des tâches est configurée pour le dossier, une tâche peut :
* Etre exécutée en asynchrone.
* Etre déclenchée par un événement.
* Etre déclenchée par la fin d'une autre tâche.
* Etre planifiée.

Lorsqu'une tâche est exécutée dans le cadre d'une file d'attente :
* L'exécution de la tâche est enregistrée dans le journal des tâches.
* Un événement d'exécution de tâche est généré.

Sachant qu'une tâche peut être configurée pour être déclenchée par un événement, il est possible d'enchaîner le déclenchement de tâche :

Par exemple :

* Tâche 1 déclenchée par un événement métier.
* Tache 2 déclenchée par le succès de la tâche 1.

Le passage de paramètre entre tâches est possible en ajoutant ces paramètres au message déclencheur de la tâche (Voir l'exemple dans la méthode [[Executee (TitTask)|Execute]]).

Dans l'exemple précédent la suite d'événement est la suivante :

* Evénement métier.
* Exécution de tâche 1.
* Evénement métier, fin d'exécution de tâche 1.
* Exécution de tâche 2.
* Evénement métier, fin d'exécution de tâche 2.

===Attributs du stéréotype===
{|class="wikitable"
|-
|[[ResultAsync (TitTask)|ResultAsync]]
|Indique si l'exécution a été asynchrone.
|-
|[[ResultBool (TitTask)|ResultBool]]
|Code de retour
|-
|[[ResultCode (TitTask)|ResultCode]]
|Code de retour
|-
|[[ResultReason (TitTask)|ResultReason]]
|Raison d'échec
|}

===Méthode du stéréotype===
{|class="wikitable"
|-
|[[CreateTaskMessage (TitTask)|CreateTaskMessage]]
|Retourne un message correspondant à la sérialisation de cette tâche
|-
|[[ExecuteTask (TitTask)|ExecuteTask]]
|Exécute la tâche en asynchrone
|-
|[[ExecuteOnEvent (TitTask)|ExecuteOnEvent]]
|Exécute la tâche sur un évènement (une fois)
|-
|[[SubscribeToEvent (TitTask)|SubscribeToEvent]]
|Abonne la tâche à un évènement
|-
|[[UnSubscribeFromEvent (TitTask)|UnSubscribeFromEvent]]
|Dèsabonne la tâche d'un évènement
|-
|[[Schedule (TitTask)|Schedule]]
|Planifie la tâche
|-
|[[UnSchedule (TitTask)|UnSchedule]]
|Supprime la planification de la tâche
|-
|[[GetMessages (TitTask)|GetMessages]]
|Récupère la liste des messages de la tâche
|}

===Méthode de classe du stéréotype===
{|class="wikitable"
|-
|[[OnTerminateID (TitTask)|OnTerminateID]]
|Retourne l'identifiant de fin d'exécution de la tâche
|-
|[[OnTerminateSuccessID (TitTask)|OnTerminateSuccessID]]
|Retourne l'identifiant de fin d'exécution avec succès de la tâche
|-
|[[OnTerminateFailedID (TitTask)|OnTerminateFailedID]]
|Retourne l'identifiant de fin d'exécution avec échec de la tâche
|-
|[[OnStartID (TitTask)|OnStartID]]
|Retourne l'identifiant de début d'exécution de la tâche
|-
|[[TTask.Subscribe (TitTask)|Subscribe]]
|Souscrit à un évènement {{Version1100}}
|-
|[[TTask.Schedule (TitTask)|Schedule]]
|Planifie la tâche {{Version1100}}
|}

===Méthode d'interface===
Une classe de type Tâche peut/doit supporter les méthodes suivantes :
{|class="wikitable"
|-
!Nom
!Fac/Obl
!Usage
|-
|[[Executee (TitTask)|Execute]]
|Obligatoire
|Exécute la tâche
|-
|[[OnTerminate (TitTask)|OnTerminate]]
|Facultative
|Méthode executée sur la fin de la tâche
|-
|[[OnSuccess (TitTask)|OnSuccess]]
|Facultative
|Méthode executée sur succès
|-
|[[OnFailure (TitTask)|OnFailure]]
|Facultative
|Méthode executée sur échec
|-
|[[TaskID (TitTask)|TaskID]]
|Facultative
|Retourne un identifiant unique pour cette tâche.
|-
|[[TaskName (TitTask)|TaskName]]
|Facultative
|Retourne le nom de la tâche dans le journal.
|-
|[[TaskInfos (TitTask)|TaskInfos]]
|Facultative
|Retourne les informations de la tâche dans le journal.
|-
|[[TaskTitle (TitTask)|TaskTitle]]
|Facultative
|Retourne le titre de la tâche dans le journal.
|-
|[[TaskReference (TitTask)|TaskReference]]
|Facultative
|Retourne la référence de la tâche dans le journal.
|-
|[[EventNotification (TitTask)|EventNotification]]
|Facultative
|Créer un évènement de notification sur terminaison de la tâche
|}

Ces interfaces permettent de configurer la tâche :

{|class="wikitable"
|-
!Nom
!Usage
|-
|[[IsTaskConfigurable (TitTask)|IsTaskConfigurable]]
|Retourne True si la tâche est configurable
|-
|[[TaskFormConfiguration (TitTask)|TaskFormConfiguration]]
|Retourne le nom de l'écran de configuration de la tâche
|-
|[[isTaskConfigured (TitTask)|isTaskConfigured]]
|Indique si la configuration de la tâche est complète
|-
|[[TaskCategory (TitTask)|TaskCategory]]
|Retourne le nom de la catégorie de la tâche
|}

Exemple :

Voir aussi :

* [[TdbmQueueMessage|Message de file d'attente]]
* [[TdbmMessageTaskLog (class)|Journal d'exécution des tâches]]
* [[Création d'une tâche configurable (Task)|Création d'une tâche configurable]]
* [[Création d'un callback de tâche (task)|Création d'un callback de tâche]]

[[Category:Stereotype]]
[[Category:Stéréotype tâche]]
[[Category:File d'attente]]
[[Category:Version900]]

TTask.Schedule (TitTask)

2024-12-05T10:13:15Z

Syfre :

{{version1100}}
<source lang='delphi'>class function Scheduler(const iPlanification:string; iAttributes:Array of string; iValues:Array of variant):boolean;</source>

Cette fonction planifie une tâche.

{|class="wikitable"
|-
!Paramètre
!Usage
|-
|iPlanification
|Chaîne de définition de la planification
|-
|iAttributes
|Un tableau de propriété de la tâche qui seront initialisée lorsque la tâche sera déclenchée
|-
|iValues
|Un tableau de valeur correspondant aux attributs initialisés
|-
|Result
|True si la tâche a été posté
|}

{{Tip|Cette fonction nécessite que la gestion des tâches soit configurée}}

Exemple :

<source lang="delphi">
//Procedure TestRegisterTasks;
begin
MyTask.Schedule('<planification RepeatValue="Minutes" RepeatInterval="1" StartOfPeriodDate="20221203T00"/>',['unCode','unEntier'],['Z',0]);
end;</source>

Voir aussi:

{{Footer|Classe_tâche_(stereotype)}}
[[Category:Stéréotype tâche]]
[[Category:Version1100]]

CreateTaskEvent (TdbmEvent)

2024-12-05T10:12:05Z

Syfre :

<source lang='delphi'>class procedure CreateTaskEvent(const iEventId:string; iNames:Array of variant; iValues:Array of variant);</source>

Cette méthode de classe crée un événement de type tâche.

Le type de l'événement est TASK

{|class="wikitable"
|-
|iEventId
|identifiant de l'événement
|-
|iNames
|Tableau de noms de paramètre de l'évènement
|-
|iValues
|Tableau de valeurs de paramètre de l'évènement
|}

Exemple :

<source lang='delphi'>

// Task to be triggered by an event
Type
TMyOperationEvent = class(TitTask)
function Execute():Integer;
class function RegisterThisTask;
class procedure Start;
end;

function TMyOperationEvent.Execute():Integer;
var idx:Integer; S:string; aMsg:TdbmQueueMessage;
begin
Result := True;

// Add messages to the log
ProgressMessage('On Task event');

if Assigned(UserContext.TaskContext) and Assigned(userContext.TaskContext.EventContext) then
begin
userContext.TaskContext.AddMessage('Task context');
//
aMsg := userContext.TaskContext.EventContext.ReceivedMsg;
if Assigned(aMsg) then
begin
// get message parameters
//
userContext.TaskContext.AddMessage('Task context has message');
userContext.TaskContext.AddMessage(Format('Message parameter count:%d',[aMsg.Count]));
for idx:=0 to aMsg.Count-1 do
begin
S := aMsg.DisplayStrings(idx);
UserContext.TaskContext.AddMessage(S);
end;
end;
end
else ProgressMessage('no task context');

Result := True;
end;

class function TMyOperation.RegisterThisTask;
var aReason:string;
begin
if not SubscribeToEvent(TMyOperation.OnStartId(),aReason) then
showMessage('subscribe failed '+aReason);
end;

class procedure TMyOperation.Start;
begin
TdbmEvent.CreateTaskEvent(TMyOperation.OnStartId(), ['name1','name2'],['value1',2]);
end;
</source>

Voir aussi :

* [[CreateCustomEvent (TdbmEvent)|CreateCustomEvent]]
* [[TTask.Subscribe_(TitTask)|Subscribe]]

[[Category:TdbmEvent]]

TTask.Subscribe (TitTask)

2024-12-05T10:11:18Z

Syfre :

{{version1100}}
<source lang='delphi'>class function Subscribe(const iEventID:string; iAttributes:Array of string; iValues:Array of variant):boolean;</source>

Cette fonction abonne la classe de la tâche à un évènement.

La tâche sera exécutée à chaque fois que l'évènement est déclenché jusqu'au désabonnement de la tâche.

{|class="wikitable"
|-
!Paramètre
!Usage
|-
|iEventID
|Identifiant de l'évènement sur lequel abonner la tâche
|-
|iAttributes
|Un tableau de propriété de la tâche qui seront initialisée lorsque la tâche sera déclenchée
|-
|iValues
|Un tableau de valeur correspondant aux attributs initialisés
|-
|Result
|True si la tâche a été posté
|}

{{Tip|Un seul abonnement est possible par couple EventID, SourceID.}}
{{Tip|Cette fonction nécessite que la gestion des tâches soit configurée}}

Exemple :

<source lang="delphi">
Type
// manage my job
MyFacade = class(TitObject)
class function GetMyJobActionEventId:string;
class procedure CreateEvent(const iEvent:string; obj:TitObject);
class procedure CreateEventWithParams(const iEvent:string; obj:TitObject; aParamsName:Array of string; aParamsValue:Array of variant);
end;

class function MyFacade.GetMyJobActionEventId:string;
begin
Result := 'task.myjob.myaction.%';
end;

class procedure MyFacade.CreateEvent(const iEvent:string; obj:TitObject);
begin
MyFacade.CreateEventWithParams(iEvent, obj, [], []);
end;

class procedure MyFacade.CreateEventWithParams(const iEvent:string; obj:TitObject; aParamsName:Array of string; aParamsValue:Array of variant);
var
aEvent:string;
vParamsName : Array of string;
vParamsValue : Array of variant;
begin
if Copy(iEvent,length(iEvent)-2,2)='.%'
then aEvent := Copy(iEvent,1,length(iEvent)-2)
else aEvent := iEvent;

vParamsName := aParamsName;
vParamsValue := aParamsValue;
if Assigned(obj)
then TdbmEvent.CreateTaskEvent(Format('%s.%s',[aEvent,obj.InstanceOID]),vParamsName,vParamsValue)
else TdbmEvent.CreateTaskEvent(aEvent,vParamsName,vParamsValue);
end;

//Procedure TestRegisterTasks;
begin
// Register my task subscription
MyTask.Subscribe(MyFacade.GetMyJobActionEventId,['unCode','unEntier'],['X',2]);
end;

//Procedure MyClass.foo();
begin
// generate an event to trigger the task
myFacade.CreateEventWidthParams(MyFacade.GetMyJobActionEventId, thisObject, ['unCode','unEntier'],[unCode,unEntier]);
end;
</source>

Voir aussi:

* [[CreateTaskEvent_(TdbmEvent)|CreateTaskEvent]]

{{Footer|Classe_tâche_(stereotype)}}
[[Category:Stéréotype tâche]]
[[Category:Version1100]]

RegisterOnChangeEvent (class)

2024-12-05T09:55:43Z

Syfre :

{{Version1100}}
<source lang='delphi'>class function RegisterOnChangeEvent(const iProperty:string):string;</source>

Enregistre la classe d'évènement de modification d'un attribut de cette classe.

{|class="wikitable"
|-
|iProperty
|L'attribut modifié
|-
|Return
|L'identifiant de l'évènement
|}

Exemple

<source lang='delphi'>
// see onChangeEventId
</source>

Voir aussi :

* [[OnChangeEventId_(class)|OnChangeEventId]]

{{Footer|Classes métiers (tech)}}
[[category:Classes métiers]]
[[Category:Version1100]]

OnChangeEventId (class)

2024-12-05T09:55:23Z

Syfre :

{{Version1100}}
<source lang='delphi'>class function OnChangeEventID(const iProperty:string; const iOldValue:variant; const iNewValue:variant):string;</source>

Retire l'identifiant de l'évènement de modification d'un attribut d'un objet de cette classe.

{|class="wikitable"
|-
|iProperty
|Nom de l'attribut
|-
|oldValue
|Ancienne valeur de l'attribut
|-
|newValue
|Nouvelle valeur de l'attribut
|-
|Return
|L'identifiant de l'évènement
|}

{{tip|La valeur NULL peut être utilisée pour indiquer "toute valeur"}}

Exemple :

<source lang='delphi'>

//function TTestTask.doExecute(obj:TitObject):boolean;
begin
if obj is WFClasseA then
begin
//.... do something
Result := True;
end
else Result := False;
end;

//function TTestTask.Execute:boolean;
var aMsg:TdbmQueueMessage;
begin
Result := False;
aMsg := ReceivedMsg as TdbmQueueMessage;
if Assigned(aMsg) then
begin
if Assigned(SourceObject) then
begin
Result := doExecute(SourceObject);
end;
end;
end;

//Procedure TestRegisterTasks;
begin
WFClasseA.RegisterOnChangeEvent('unEtat');
TTestTask.Subscribe(WFClasseA.OnChangeEventId('unEtat',NULL,WFCAState_Etat2),['unCode','unEntier'],['X',2]);
end;
</source>

Voir aussi :

* [[RegisterOnChangeEvent (class)|RegisterOnChangeEvent]]

{{Footer|Classes métiers (tech)}}
[[category:Classes métiers]]
[[Category:Version1100]]

OnDeleteEventId (class)

2024-12-05T09:53:42Z

Syfre :

{{Version1100}}
<source lang='delphi'>class function OnDeleteEventID():string;</source>

Retire l'identifiant de l'évènement de suppression d'un objet de cette classe.

{|class="wikitable"
|-
|Return
|L'identifiant de l'évènement
|}

Exemple

<source lang='delphi'>
</source>

Voir aussi :

* [[RegisterOnDeleteEvent_(class)|RegisterOnDeleteEvent]]

{{Footer|Classes métiers (tech)}}
[[category:Classes métiers]]
[[Category:Version1100]]

RegisterOnDeleteEvent (class)

2024-12-05T09:52:46Z

Syfre :

{{Version1100}}
<source lang='delphi'>class function RegisterOnDeleteEvent():string;</source>

Enregistre la classe d'évènement de suppression de cette classe.

{|class="wikitable"
|-
|Return
|L'identifiant de l'évènement
|}

Exemple

<source lang='delphi'>
</source>

Voir aussi :

* [[OnDeleteEventId_(class)|OnDeleteEventId]]

{{Footer|Classes métiers (tech)}}
[[category:Classes métiers]]
[[Category:Version1100]]

RegisterOnCreateEvent (class)

2024-12-05T09:51:15Z

Syfre :

{{Version1100}}
<source lang='delphi'>class function RegisterOnCreateEvent():string;</source>

Enregistre la classe d'évènement de création de cette classe.

{|class="wikitable"
|-
|Return
|L'identifiant de l'évènement
|}

Exemple

<source lang='delphi'>
// see OnCreateEventId
</source>

Voir aussi :

* [[OnCreateEventId_(class)|OnCreateEventId]]

{{Footer|Classes métiers (tech)}}
[[category:Classes métiers]]
[[Category:Version1100]]

OnCreateEventId (class)

2024-12-05T09:50:45Z

Syfre :

{{Version1100}}
<source lang='delphi'>class function OnCreateEventID():string;</source>

Retire l'identifiant de l'évènement de création d'un objet de cette classe.

{|class="wikitable"
|-
|Return
|L'identifiant de l'évènement
|}

Exemple

<source lang='delphi'>
Type
MyClass = class(TdbObject)
//...
property CanStart:boolean;
end;

MyTask = class(TitTask)
Function Execute():boolean;
Function doExecute(obj:TitObject):boolean;
end;

Function MyTask.Execute():boolean;
var aMsg:TdbmQueueMessage;
begin
Result := False;
aMsg := ReceivedMsg as TdbmQueueMessage;
if Assigned(aMsg) then
begin
if Assigned(SourceObject) then
begin
Result := doExecute(SourceObject);
end;
end;
end;

Function MyTask.doExecute(obj:TitObject):boolean;
begin
if obj is MyClass then
begin
if (obj as MyClass).CanStart then
begin
AddMessage(Format('object %s ...',[(obj as MyClass).Caption]));
// do something ...
end
else
begin
AddMessage(Format('objet %s ne peut pas ...'),[(obj as MyClass).Caption]));
end;
Result := True;
end
else Result := False;
end;

//procedure RegisterTasks;
begin
MyClass.RegisterOnCreateEvent();

MyTask.Subscribe(
MyClass.OnCreateEventId(),
[],[]
);
end;
</source>

Voir aussi :

* [[RegisterOnCreateEvent_(class)|RegisterOnCreateEvent]]
* [[OnChangeEventId_(class)|OnChangeEventId]]

{{Footer|Classes métiers (tech)}}
[[category:Classes métiers]]
[[Category:Version1100]]

OnCreateEventId (class)

2024-12-05T09:49:27Z

Syfre :

{{Version1100}}
<source lang='delphi'>class function OnCreateEventID():string;</source>

Retire l'identifiant de l'évènement de création d'un objet de cette classe.

{|class="wikitable"
|-
|Return
|L'identifiant de l'évènement
|}

Exemple

<source lang='delphi'>
Type
MyClass = class(TdbObject)
//...
property CanStart:boolean;
end;

MyTask = class(TitTask)
Function Execute():boolean;
Function doExecute(obj:TitObject):boolean;
end;

Function MyTask.Execute():boolean;
var aMsg:TdbmQueueMessage;
begin
Result := False;
aMsg := ReceivedMsg as TdbmQueueMessage;
if Assigned(aMsg) then
begin
if Assigned(SourceObject) then
begin
Result := doExecute(SourceObject);
end;
end;
end;

Function MyTask.doExecute(obj:TitObject):boolean;
begin
if obj is MyClass then
begin
if (obj as MyClass).CanStart then
begin
AddMessage(Format('object %s ...',[(obj as MyClass).Caption]));
// do something ...
end
else
begin
AddMessage(Format('objet %s ne peut pas ...'),[(obj as MyClass).Caption]));
end;
Result := True;
end
else Result := False;
end;

//procedure RegisterTasks;
begin
MyClass.RegisterOnCreateEvent();

MyTask.Subscribe(
MyClass.OnCreateEventId(),
[],[]
);
end;
</source>

Voir aussi :

* [[OnChangeEventId_(class)|OnChangeEventId]]

{{Footer|Classes métiers (tech)}}
[[category:Classes métiers]]
[[Category:Version1100]]

RegisterOnChangeEvent (class)

2024-12-05T09:39:18Z

Syfre :

{{Version1100}}
<source lang='delphi'>class function RegisterOnChangeEvent(const iProperty:string):string;</source>

Enregistre la classe d'évènement de modification d'un attribut de cette classe.

{|class="wikitable"
|-
|iProperty
|L'attribut modifié
|-
|Return
|L'identifiant de l'évènement
|}

Exemple

<source lang='delphi'>
</source>

Voir aussi :

* [[OnChangeEventId_(class)|OnChangeEventId]]

{{Footer|Classes métiers (tech)}}
[[category:Classes métiers]]
[[Category:Version1100]]