Wiki1000 - Nouvelles pages [fr]

Déclaration des URLs de services externes

2026-03-19T09:28:59Z

Flfay :

==Contexte ==

L’application communique avec plusieurs services tiers via HTTP/HTTPS.

Dans des environnements sécurisés (entreprise, production), les flux sortants sont souvent restreints.

Cette documentation décrit les URLs des services externes utilisés.

Ces endpoints doivent être explicitement autorisés par les administrateurs (réseau, sécurité, proxy, pare-feu) afin de garantir le bon fonctionnement de l’application.

==Liste des URLs à autoriser ==

{| class="wikitable"
|+ Liste des services externes
|-
! Service !! URL / Domaine !! Port !! Protocole !! Commentaire
|-
| Sage Update|| frp1000.blob.core.windows.net|| 443 || https ||
|-
| Sage Service Fabric || api-money.sage.com || 443 || https || api inscription Service Sage (peut ouvrir une url qui fait des appels *.gstatic.com)
|-
| Sage Service Fabric || www.sagetokenservice.com|| 443 || https || api obtention des jetons services Sage
|-
| Sage Service Fabric || regulatory-reports.sagecompliance.com|| 443 || https || api siren, signature pdf, taxid validation
|-
| Sage Network || api.sbc.sage.com|| 443 || https || api Inscription Sage Network
|-
| Sage Network || app.sbc.sage.com|| 443 || https || Url gestion Sage Network
|-
| Sage Network || api.network.sage.com|| 443 || https || api Sage network
|-
| Sage Network || network.sage.com|| 443 || https || url Sage connect
|-

|}

Version 2026 r1 (release note)

2026-03-16T14:27:54Z

Syfre : /* Portail */

{{version2026r1}}
__TOC__

''' PREVIEW '''

==Redirection Portail==

Le portail supporte la redirection à partir de l'écran de connexion vers un écran ou un tableau de bord de l'application.

Exemples :

Redirection vers un écran:
<pre>
https://..../service_name/htmls/htmlhomepage/index.html?redirectUrl=frm%3A%2F%2Fegescom_tiersform.dfm%2FDAC19ACF0B210002079000000E690002
</pre>

Redirection vers un dashboard:
<pre>
https://..../service_name/htmls/htmlhomepage/index.html?redirectUrl=tab%3A%2F%2Fdashboard%2FTDashboardAdminDatabase
</pre>

Redirection vers un écran à partir de l'url de callback d'un workflow :
<pre>
https://.../service_name/server/rpc.l1000/rest/forms.url?value=frm%3A%2F%2Fegescom_tiersform.dfm%2FDAC19ACF0B210002079000000E690002%2F%3Fparams%3D%22ArgOidSiteCommercial%3DmptString%28%27%27%29%26SiteOid%3DmptString%28%27%27%29%22%26options%3D%22%7B%22showCaption%22%3Atrue%2C%22screenCenter%22%3Atrue%2C%22close%22%3Atrue%2C%22formType%22%3A0%2C%22formTitle%22%3A%22ACARIS%20-%20Fiche%20Tiers%22%2C%22helpUrl%22%3A%22https%3A%5C%2F%5C%2Fsagefrp1000.online-help.sage.fr%5C%2F%22%2C%22width%22%3A1827%2C%22height%22%3A912%7D%22%0A
</pre>

[[Category:Version2026r1]]
[[Category:Release note]]

API Json (SData)

2026-02-26T15:27:21Z

Syfre : /* Méthode JSON */

==Prérequis==

L'API Json est une variante de [[Ressource (sdata)|l'API SData en mode ressource]]

Les informations de connexion et les schémas d'URL sont identiques.

A la différence de l'API en mode ressource, elle nécessite le déploiement de paquet DSM pour gérer les appels de service.

==Méthode JSON==

Dans ce mode, au lieu de manipuler des ressources retournées en xml ou json, le client appele des méthodes en passant en paramètre un payload json et en recevant en retour une responde json.

La signature de ces méthodes doit être :

<source lang="delphi">
procedure foo(req:TJson; out resp:TJson);
var json:TJson;
begin
json := TJson.Create('{}');
....
resp := json;
end;
</source>

Ces méthodes peuvent être membre de n'importe quelle classe non persistante, ou d'une classe support d'un paquet de service local.

==Paquet de service local==

L'utilisation d'un paquet de service local permet d'appeler directement les méthodes de la classe support du paquet.

Par exemple :

[[image:api-json-1.png|800px]]

Vous pouvez appeler directement la méthode myMethodJson() sans explicitement indiquer la classe support :

<pre>
http://localhost:8080/sdata/dsmPaquetDeService/myMethodJson
</pre>

[[image:api-json-2.png|800px]]

==Paquet de classes non persistantes ==

Les méthodes Json membres de classes non persistantes peuvent aussi être appelées.

Par exemple :

[[image:api-json-3.png|800px]]

Dans ce cas vous devez spécifier le nom de la classe dans l'URL d'appel de la méthode.

<pre>
http://localhost:8080/sdata/dsmPaquetAPI/myMethodJson
</pre>

[[image:api-json-4.png|800px]]

Voir aussi:

* [[Ressource (sdata)|API SData en mode ressource]]

[[Category:SData]]

SQL Server 2025 (rdbms)

2026-02-07T08:29:24Z

Syfre : /* Mode Optimized locking */

===Mode Optimized locking===

SQL Serveur 2025 supporte une nouvelle option de gestion des verrous qui peut permettre dans certain cas de réduire le nombre de verrous posés durant une transaction et de limiter l'escalation de verrous vers le niveau Table .

Ce mode est disponible sur toutes les éditions sauf Express.

Ce mode n'est pas actif par défaut sur la version On Premise.

'''Pour activer l'optimisation de verrous'''

Activer le mode snapshot avec READ_COMMITTED_SNAPSHOT :
* Déconnecter tous les utilisateurs
* Exécuter l’ordre suivant :

* ALTER DATABASE ... SET READ_COMMITTED_SNAPSHOT ON

Activer le mode Accelerated Database Recovery :

* ALTER DATABASE ... SET ACCELERATED_DATABASE_RECOVERY = ON;

Activer le mode optimisation des verrous :

* ALTER DATABASE ... SET OPTIMIZED_LOCKING = ON

Pour vérifier que le mode est actif :

<pre>
SELECT database_id,
name,
is_accelerated_database_recovery_on,
is_read_committed_snapshot_on,
is_optimized_locking_on
FROM sys.databases
WHERE name = ....;
</pre>

Voir aussi :

* [[SQL_Server_2005_(rdbms)|SQL Server 2005, mode snapshot]]

[[Category:Base de données]]

TsqlOperation (class)

2025-12-23T11:00:52Z

Syfre : Page créée avec « {{version2025r2}} ==Introduction== La classe TsqlOperation est une classe SQL utilisée dans les opérations SQL exécutées par des sélecteurs. {|class="wikitable" |-... »

{{version2025r2}}

==Introduction==

La classe TsqlOperation est une classe SQL utilisée dans les opérations SQL exécutées par des sélecteurs.

{|class="wikitable"
|-
!Colonne
!Type
!Usage
|-
|id
|Identity
|Identifiant unique
|-
|opeId
|string
|Identifiant d'opération
|-
|action
|string
|Action SQL
|-
|operation
|string
|Operation SQL
|-
|oidTargeObject
|TOID
|Identifiant de l'objet créé / modifié
|-
|oidSourceObject
|TOID
|Identifiant de l'objet source
|}

Voir aussi :

* [[Selecteur (tech)|Sélecteur]]
* [[CopyTo (selector)|Sélecteur CopyTo]]

{{Footer|Code métier}}
[[category:Classes frameworks]]
[[category:version2025r2]]

ToJsonEx (selector)

2025-12-23T10:42:42Z

Syfre :

{{version2025r2}}

<source lang='delphi'>function ToJsonEx(SA:TJson; iOptions:Integer):Integer;</source>

Cette méthode sérialise les objets de la sélection en json.

{|class="wikitable"
|-
!Paramètre
!Usage
|-
|Result
|Nombre d'objets
|-
|SA
|Tableau json
|-
|iOptions
|Options de sérialisation
|}

Cette fonction retourne le nombre d'objets affectés par l'opération en utilisant un jeu d'options.

Exemple :

<source lang="delphi">

//procedure TableRows(ST:TJsonStruct)
Type
vue = viewOf(...)
jsonName:Type(fmtOptions) = propPath;
....
end;

begin
sel := vue.CreateSelector('','',True,[]);
sel.ToJsonEx(ST.rows, sjoIdAsGuid);
end;

</source>

Voir aussi :

* [[ToJson (selector)|ToJson]]

{{Footer|Selecteur (tech)}}
[[category:Sélecteur]]
[[Category:version11]]

ToJson (selector)

2025-12-23T10:40:16Z

Syfre :

{{version2025r2}}

<source lang='delphi'>function ToJson(SA:TJson):Integer;</source>

Cette méthode sérialise les objets de la sélection en json.

{|class="wikitable"
|-
!Paramètre
!Usage
|-
|Result
|Nombre d'objets
|-
|SA
|Tableau json
|}

Cette fonction retourne le nombre d'objets affectés par l'opération.

Exemple :

<source lang="delphi">

//procedure TableRows(ST:TJsonStruct)
Type
vue = viewOf(...)
jsonName:Type(fmtOptions) = propPath;
....
end;

begin
sel := vue.CreateSelector('','',True,[]);
sel.ToJson(ST.rows);
end;

</source>

Voir aussi :

* [[ToJsonEx (selector)|ToJsonEx]]

{{Footer|Selecteur (tech)}}
[[category:Sélecteur]]
[[Category:version11]]

MergeTableName (selector)

2025-12-23T10:34:00Z

Syfre : Page créée avec « {{version2025r2}} <source lang='delphi'>property MergeTableName:string;</source> '''Lecture/Ecriture''' Cette propriété définit le nom de la table destination lorsqu... »

{{version2025r2}}

<source lang='delphi'>property MergeTableName:string;</source>

'''Lecture/Ecriture'''

Cette propriété définit le nom de la table destination lorsque le sélecteur est utilisé sur une table temporaire en mise à jour.

Exemple
<source lang='delphi'>
</source>

Voir aussi :

{{Footer|Selecteur (tech)}}
[[category:Sélecteur]]
[[Category:version11]]

SourceTableName (selector)

2025-12-23T10:33:23Z

Syfre : Page créée avec « {{version2025r2}} <source lang='delphi'>property SourceTableName:string;</source> '''Lecture/Ecriture''' Cette propriété définit le nom de la table source lorsque le... »

{{version2025r2}}

<source lang='delphi'>property SourceTableName:string;</source>

'''Lecture/Ecriture'''

Cette propriété définit le nom de la table source lorsque le sélecteur est utilisé sur une table temporaire.

Exemple
<source lang='delphi'>
</source>

Voir aussi :

{{Footer|Selecteur (tech)}}
[[category:Sélecteur]]
[[Category:version11]]

OperationId (selector)

2025-12-23T10:28:13Z

Syfre : Page créée avec « {{version2025r2}} <source lang='delphi'>property operationID:string;</source> <source lang='delphi'>property opeID:string;</source> '''Lecture/Ecriture''' Cette propri... »

{{version2025r2}}

<source lang='delphi'>property operationID:string;</source>
<source lang='delphi'>property opeID:string;</source>

'''Lecture/Ecriture'''

Cette propriété définit l'identifiant d'opération SQL utilisé dans une suite d'opérations SQL.

Exemple
<source lang='delphi'>
var opeId:string;
begin
opeId := CreateGuid;
...
end;
</source>

Voir aussi :

* [[Operation (selector)|Operation SQL]]

{{Footer|Selecteur (tech)}}
[[category:Sélecteur]]
[[Category:version11]]

OpeSource (selector)

2025-12-23T10:26:20Z

Syfre : Page créée avec « {{version2025r2}} <source lang='delphi'>property opeSource:string;</source> '''Lecture/Ecriture''' Cette propriété définit le nom de colonne source utilisée comme o... »

{{version2025r2}}

<source lang='delphi'>property opeSource:string;</source>

'''Lecture/Ecriture'''

Cette propriété définit le nom de colonne source utilisée comme oidSource de la table TsqlOperation dans les opérations SQL.

Par défaut cette classe est "oid"

Exemple
<source lang='delphi'>
</source>

Voir aussi :

* [[Operation (selector)|Operation SQL]]

{{Footer|Selecteur (tech)}}
[[category:Sélecteur]]
[[Category:version11]]

OpeClass (selector)

2025-12-23T10:19:28Z

Syfre : Page créée avec « {{version2025r2}} <source lang='delphi'>property opeClass:string;</source> '''Lecture/Ecriture''' Cette propriété définit le nom de la classe SQL utilisée dans les ... »

{{version2025r2}}

<source lang='delphi'>property opeClass:string;</source>

'''Lecture/Ecriture'''

Cette propriété définit le nom de la classe SQL utilisée dans les opérations SQL.

Par défaut cette classe est TsqlOperation

Exemple
<source lang='delphi'>
</source>

Voir aussi :

* [[Operation (selector)|Operation SQL]]

{{Footer|Selecteur (tech)}}
[[category:Sélecteur]]
[[Category:version11]]

Operation (selector)

2025-12-23T09:27:24Z

Syfre :

{{version2025r2}}

<source lang='delphi'>property Operation:string;</source>

'''Lecture/Ecriture'''

Cette propriété définit le nom d'une opération SQL de mise à jour.

{{tip|Nécessite conjointement OpeId}}

Lorsque les propriétés Operation et OperationId sont définies, l'opération CopyTo alimente une classe SQL des objets insérés.

Cette table peut ensuite être jointe dans des opérations SQL successives.

Exemple

'''Use of TsqlOperation to chain SQL operations'''

<source lang='delphi'>
Type
// We want to create a TPiece from a TBordereauReglement
vueBordereau = viewOf(TBordereauReglement)
.... define TPiece columns ....
end;

// Then we want to add one ecriture by reglement of the borderau to this piece
//
vueReglement = viewOf(TReglement)
vl:TsqlOperation = join('(opeId=%ArgOpeId) and (operation=%ArgOperation)');
oidBordereau:TOID = oidBordereauReglement;
oidpiece:TOID = vl.oidTargetObject; // OID of the piece which has been created
.... define TEcriture columns ....
end;

// And finally we want to update the TReglement with the oid of the TEcriture created for this reglement.
//
vueUpdateReglement = viewOf(TReglement)
vl:TsqlOperation = join('(opeId=%ArgOpeId) and (operation=%ArgOperation) and (oidSourceObject=self.oid)');
oidEcriture:TOID = oidEcriture;
oidTargetEcriture:TOID = vl.oidTargetObject; // OID of the TEcriture for this TReglement
oidBordereau:TOID = oidBordereauReglement;
end;

// foo(oidBordereauReglement)
var opeId:string;
begin
opeId := CreateGuid;
try
withP long transaction do
begin

// Create a TPiece from this TBordereauReglement
//
sel := vueBordereau.CreateSelector('(oid=%1)','',True,[oidBordereauReglement]);
sel.OpeId := opeId;
sel.Operation := 'Piece';
sel.CopyTo('TPiece',[],[]);

// We could also retrieve the OID of the TPiece from the selector result
// because the operation has created only one object
// aOidPiece := sel.lastOpeFirstOID;

// Create TEcriture (s) from TReglement (s) of the TBordereauReglement
//
sel := vueReglement.CreateSelector('(oidBordereau=%1)','',True,[oidBordereauReglement]);

// To retreive the TPiece OID
sel.AddParameter('ArgOpeId',opeId);
sel.AddParameter('ArgOperation','Piece');

// To insert in the TsqlOperation the TEcriture we create
sel.OpeId := opeId;
sel.Operation := 'EcrReg';
sel.CopyTo('TEcriture',[],[]);

// Update the TReglement from the TEcriture which has been created for this Reglement
//
sel := vueUpdateReglement.CreateSelector('(oidBordereau=%1)','',True,[oidBordereauReglement]);
// To match TReglement with TEcriture
sel.AddParameter('ArgOpeId',iOpeId);
sel.AddParameter('ArgOperation','EcrReg');
sel.Update(['oidEcriture'],['oidTargetEcriture']);

end;

finally
// Clean up the TsqlOperation
TsqlOperation.CleanOpe(aOpeId);
end;
end;

</source>

Voir aussi :

* [[OpeID (selector)|Identifiant d'opération SQL (OpeId)]]
* [[CopyTo (selector)|Création par sélecteur]]

{{Footer|Selecteur (tech)}}
[[category:Sélecteur]]
[[Category:version11]]

LastOpeAffected (selector)

2025-12-23T08:29:38Z

Syfre : Page créée avec « {{version2025r2}} <source lang='delphi'>property lastOpeAffected:Integer;</source> '''Lecture''' Cette propriété retourne le nombre d'objets affectés par la dernièr... »

{{version2025r2}}

<source lang='delphi'>property lastOpeAffected:Integer;</source>

'''Lecture'''

Cette propriété retourne le nombre d'objets affectés par la dernière opération de mise à jour.

Exemple
<source lang='delphi'>
</source>

Voir aussi :

* [[Update_(selector)|Mise à jour par sélecteur]]

{{Footer|Selecteur (tech)}}
[[category:Sélecteur]]
[[Category:version11]]

LastOpeFirstOID (selector)

2025-12-23T08:28:43Z

Syfre : Page créée avec « {{version2025r2}} <source lang='delphi'>property lastOpeFirstOid:string;</source> '''Lecture''' Cette propriété retourne le premier Oid mis à jour par une opération... »

{{version2025r2}}

<source lang='delphi'>property lastOpeFirstOid:string;</source>

'''Lecture'''

Cette propriété retourne le premier Oid mis à jour par une opération de mise à jour.

Exemple
<source lang='delphi'>
</source>

Voir aussi :

* [[Update_(selector)|Mise à jour par sélecteur]]

{{Footer|Selecteur (tech)}}
[[category:Sélecteur]]
[[Category:version11]]

LastOpeStampe (selector)

2025-12-23T08:27:14Z

Syfre : a déplacé LastOpeStampe (selector) vers LastOpeStamp (selector)

{{version2025r2}}

<source lang='delphi'>property lastOpeStamp:string;</source>

'''Lecture'''

Cette propriété retourne le dernier UpdStamp mis à jour par une opération de mise à jour.

Exemple
<source lang='delphi'>
</source>

Voir aussi :

* [[Update_(selector)|Mise à jour par sélecteur]]

{{Footer|Selecteur (tech)}}
[[category:Sélecteur]]
[[Category:version11]]

UpdateCumuls (selector)

2025-12-23T08:25:39Z

Syfre : Page créée avec « {{version11}} <source lang='delphi'>property UpdateCumuls:boolean;</source> '''Lecture/Ecriture''' Cette propriété permet la mise à jour des cumuls lors des mise à ... »

{{version11}}

<source lang='delphi'>property UpdateCumuls:boolean;</source>

'''Lecture/Ecriture'''

Cette propriété permet la mise à jour des cumuls lors des mise à jour par un sélecteur (défaut True).

Exemple
<source lang='delphi'>
</source>

Voir aussi :

* [[Update_(selector)|Mise à jour par sélecteur]]

{{Footer|Selecteur (tech)}}
[[category:Sélecteur]]
[[Category:version11]]

InsertInto (selector)

2025-12-23T08:22:06Z

Syfre : Page créée avec « <source lang='delphi'>function InsertInto(const iTableName:string; const iInsertColumns:Array of string; const iInsertValues:Array of variant):Integer;</source> Cette mé... »

<source lang='delphi'>function InsertInto(const iTableName:string; const iInsertColumns:Array of string; const iInsertValues:Array of variant):Integer;</source>

Cette méthode insère les objets de la sélection dans une table temporaire

{|class="wikitable"
|-
!Paramètre
!Usage
|-
|Result
|Nombre d'objets affectés par l'opération
|-
|iTableName
|Nom de table temporaire
|-
|iInsertColumns
|Tableau de noms de colonne supplémentaires à insérer
|-
|iUpdatePropValues
|Tableau de valeurs des colonnes supplémentaires
|}

Cette fonction retourne le nombre d'objets insérés par l'opération.

* iInsertPropnames,iInsertPropValues
:Ces deux tableaux doivent avoir le même nombre d'élément

{{tip|L'opération est effectué par un ordre SQL en mode auto commit, si une transaction longue est ouverte la session de la transaction longue est utilisée.}}

Exemple :

<source lang='delphi'>
Type
IvueSource = interface
....
end;

vueSource = viewOf(AClassSource,iVueSource)
....
end;

sqlClass = sqlClass(iVue)
end;

var sel:TSelector; aJob,aTempTable1:string; keepTables:boolean;
begin
Result := FALSE;
aJob := CreateGuid;
keepTables := False;

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

try
// Create a Temp table from a source selector
//
aTempTable1 := ClassManager.DefDatabase.AllocTempTable(aJob);
sel.InsertInto(aTempTable1,[],[]);

// Use the temp table as source of operation
//
sel := sqlClass.CreateSelector('','',True,[]);
sel.SourceTableName := aTempTable1;
....

....
finally
if not KeepTables then ClassManager.DefDatabase.DropTempTables(aJob);
end;
end;

</source>

Voir aussi :

{{Footer|Selecteur (tech)}}
[[category:Sélecteur]]

UpdateFrom (selector)

2025-12-23T08:04:57Z

Syfre :

<source lang='delphi'>function UpdateFrom(iSelector:TSelector; const iMatchedProps:Array of String; const iUpdatePropNames:Array of string; const iUpdatePropValues:Array of variant):Integer;</source>

Cette méthode met à jour les objets sélectionnés par le sélecteur en utilisant un sélecteur source

{|class="wikitable"
|-
!Paramètre
!Usage
|-
|Result
|Nombre d'objets affectés par l'opération
|-
|iSelector
|Sélecteur source
|-
|iMatchedProps
|Tableau de noms d'attribut qui doivent être égaux entre les deux sélecteurs
|-
|iUpdatePropNames
|Tableau de noms d'attribut devant être mis à jour dans la même opération
|-
|iUpdatePropValues
|Tableau de valeurs pour les attributs mis à jour
|}

Cette fonction retourne le nombre d'objets affectés par l'opération.

* iSelector
:Sélecteur source de l'opération, doit être en mode CTE

* iMatchedProps
:Tableau de propriétés qui doivent matcher dans l'opération de mise à jour CTE

* iUpdatePropnames,iUpdatePropValues
:Ces deux tableaux doivent avoir le même nombre d'élément et doivent référencer des attributs de la classe du sélecteur

{{tip|L'opération est effectué par un ordre SQL en mode auto commit, si une transaction longue est ouverte la session de la transaction longue est utilisée.}}

<pre>
MERGE target AS tm1
USING (source) AS tm0 ON ( tm0 matched properties tm1)
WHEN MATCHED THEN UPDATE
tm1.iUpdatePropNames = tm0.iUpdateSourceValues
;
</pre>

Exemple :

<source lang='delphi'>
//function _MAJPieceEtatPieceTypeAucun(aDateLimiteTraitement:datetime):integer;
Type
vuePieceTypeAucun = viewOf(TEcheance)
idPiece : TOID = Ecriture.oidPiece;
idLettrage : TOID = oidLettrage notInSelect;
typeEcheance : integer = Ecriture.Piece.TypePiece.typeEcheance notInSelect;
[typeEcheance=TypeEcheance_Aucun]
end;

vueEcheanceAvecPieceTypeAucun = viewOf(TEcheance)
oidpieceEtat : TOID = oidPieceEtat;
typeEcheance : integer = Ecriture.Piece.TypePiece.typeEcheance notInSelect;
estLettrageTotal : boolean = Lettrage.LettrageEcriture.total notInSelect;
dateLettrage : datetime = Lettrage.LettrageEcriture.lDate notInSelect;
cNature:integer = Ecriture.CompteGeneral.natureCompte notInSelect;
//
idPieceDestination : TOID = vuePieceTypeAucun.select('idPiece','(idLettrage=self.oidLettrage)','-Ecriture.eDate,-dateEcheance,-oid',true,[]);
aExistePieceDestination : TOID = vuePieceTypeAucun.select('idPiece','(idLettrage=self.oidLettrage)','',true,[]) notInSelect;

[(typeEcheance in (TypeEcheance_Facture, TypeEcheance_FactureTVA, TypeEcheance_Reprise)) and
(cNature=NatureCompte_TTC) and (((estLettrageTotal=true) and (dateLettrage>=%ArgDateLettrage)) or (estLettrageTotal=false)) and
(oidPieceEtat='') and (Lettrage.oidEcritureDestination='') and (aExistePieceDestination<>'')]
end;

vueEcheance = viewOf(TEcheance)
oidpieceEtat : TOID = oidPieceEtat;
end;
var
vSel, vSelUpdate : TSelector;
vBatchCount : integer;
begin
Result := 0;
// Mise à jour de la pièce état des échéances Facture/Facture TVA/Reprise des deux derniers exercices
// La pièce état est la pièce la plus récente de type "Aucun" du groupe de lettrage

vBatchCount := 0;
Repeat
// Source selector of the CTE operation
// (MUST BE CTE)
//
vSel := vueEcheanceAvecPieceTypeAucun.CreateSelector('', '', true, []);
vSel.AddParameter('ArgDateLettrage', aDateLimiteTraitement);
vSel.MaxInstances := nbElementParLot;
vSel.useCTE := true;

// ON match TEcheance on "oid" THEN update "oidpieceEtat" of dest FROM "idPieceDestination" of source
//
vSelUpdate := vueEcheance.CreateSelector('', '', true, []);
vBatchCount := vSelUpdate.UpdateFrom(vSel, ['oid'], ['oidpieceEtat'], ['idPieceDestination']);
Result := Result + vBatchCount;
Until (vBatchCount<nbElementParLot);
end;
</source>

Voir aussi :

* [[Update (selector)|Update]]

{{Footer|Selecteur (tech)}}
[[category:Sélecteur]]

RmvParameter (selector)

2025-12-23T07:34:00Z

Syfre : Page créée avec « {{Version2025r2}} <source lang='delphi'>procedure RmvParameter(const iName:string);</source> Cette méthode permet de retirer un paramètre nommée de la requête. {|cl... »

{{Version2025r2}}

<source lang='delphi'>procedure RmvParameter(const iName:string);</source>

Cette méthode permet de retirer un paramètre nommée de la requête.

{|class="wikitable"
|-
!Paramètre
!Usage
|-
|iParameterName
|Le nom du paramètre
|}

Les paramètres nommés peuvent être utilisé dans les expression de requêtes.

Exemple :

<source lang="delphi">

procedure SetSelectorFilter(sel:TSelector);
begin
...
sel.AddParameter('ArgProperty1',pValue1);
sel.AddParameter('ArgProperty2',pValue2);
end;

function GetSelectorGroupBy(iGroupBy:string);
Type
vueDetails = viewOf(..)
aProperty1:string = aProperty1;
aProperty2:string = aProperty2;
[(aProperty1=%ArgProperty1) and (aProperty2=%ArgProperty2)]
end;

vueGroupBy = viewOf(vueDetails)
ACount:Integer = count(oid);
AProperty:string;
[inherited]
end;

begin
Result := vueGroupBy.CreateSelector('','',True,[]);
SetSelectorFilter(Result);
//
case iGroupBy of
'property1' :
begin
// Want to group by property1 and to remove filter on property1
sel.AddColumn('property1','AProperty');
sel.RmvParameter('property1');
end;

'property2' :
begin
sel.AddColumn('property2','AProperty');
sel.RmvParameter('property2');
end;
end;
end;

</source>

Voir aussi :

* [[Vue_locale_(langage)|Vue locale]]
* [[AddParameter (selector)|Ajouter un paramètre]]

{{Footer|Selecteur (tech)}}
[[category:Sélecteur]]
[[Category:version11]]

Améliorations des contrôles d'interface (Version 11.00 2025 r2)

2025-07-07T15:10:09Z

Syfre : Page créée avec « __TOC__ ===DataSourceRefresh=== * FormArguments : Lorsqu'un DatasourceRefresh est déclenché il met à jour les paramètres de la forme dont le nom match les FormArgume... »

__TOC__

===DataSourceRefresh===

* FormArguments
: Lorsqu'un DatasourceRefresh est déclenché il met à jour les paramètres de la forme dont le nom match les FormArguments associés au DataSourceRefresh

Exemple:

Dans cet exemple le déclenchement du DataSourcePreviewRefresh recopie les paramètres du ArgNoCmdInf et ArgNoCmdSup de la source de donnée dsVueSelection vers DataSourcePreview

<pre>
object egescom_validationPA: TL5FormContainer

Arguments = <
item
Name = 'ArgNoCmdInf'
ArgSens = ptIn
FieldName = 'noPieceInf'
Control = DataSourcePreview
end
item
Name = 'ArgNoCmdSup'
ArgSens = ptIn
FieldName = 'noPieceSup'
Control = DataSourcePreview
end>

object DataSourcePreview: TDataSource
DataSet = dsParamQBuild1
Left = 447
Top = 132
end

object DataSourcePreviewRefresh: TDataSourceRefresh
FormArguments = <>
Triggers = <
item
Control = dsVueSelection
EventStyle = evsOnDataSetAfterScroll
end>
FormArguments = <
item
Name = 'ArgNoCmdInf'
FieldName = 'noPiece'
Control = dsVueSelection
end
item
Name = 'ArgNoCmdSup'
FieldName = 'noPiece'
Control = dsVueSelection
end>
DataSource = DataSourcePreview
DataSourceAction = dsaNone
Left = 804
Top = 181
end

</pre>

* Ajout de l'action dsaNone
: Ne fait rien (Utile pour un DataSetRefresh associé à un ParaQBuild dont on met à jour les paramètres)

===Grille===

* PreviewDataSource
: DataSource associée à ParamQBuild pour réaliser un aperçu d'édition contextuel à la ligne de la grille

* PreviewTitle
: Libellé de l'aperçu affiché dans le combobox contextuel de la grille.

[[Category:Version1100-2025-r2]]

Tableaux de bord (dev)

2025-05-06T08:13:45Z

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]]

Version 2025 r2 (release note)

2025-04-08T08:24:18Z

Syfre :

{{version2025r2}}
__TOC__

==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.TestDefParamJson(p1:string; p2:TJson=nil);
var json:TJson;
begin
json := TJsonStruct.Create('{}');
//
// use Assigned insted of p2<>nil
//
if assigned(p2) then json.addStruct('p2',p2);
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>

{{tip|La chaine doit être une constante, l'instanciation à partir d'une chaîne construite dynamiquement ne marche pas :

<source lang="delphi">
Procedure TestJson;

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

var v:string;
begin
v := 'une chaine';
if _foo('{a:"'+uneChaine+'"}')<>'' then showMessage('ok') else showMessage('nok'); // don't work !
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, ces attributs peuvent ensuite être mappés dynamiquement par le selecteur en utilisant addColumn()

'''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)
p2: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)
p2:string = ...;
end;
begin
...
end;
</source>

* Expression Exists()

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

{{tip|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>

==ToJson==

Permet de sérialiser l'objet ou l'ensemble d'objets au format json compatible avec les tables du client React

<pre> procedure TObject.ToJson(SA:TJsonArray);</pre>
<pre> procedure TObject.ToJsonEx(SA:TJsonArray; iOptions:TSerializeJsonOptions);</pre>
<pre> procedure TSelector.ToJson(SA:TJsonArray);</pre>
<pre> procedure TSelector.ToJsonEx(SA:TJsonArray; iOptions:TSerializeJsonOptions);</pre>
<pre> procedure TRole.ToJson(SA:TJsonArray);</pre>

TSerializeJsonOptions :

* sjoIdAsGuid
: Le membre id de la sérialisation sera un GUID

* sjoIdAsOid
: Le membre id de la sérialisation sera l'OID de l'objet

<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>

===Formats===

Le formattage de la sérialisation des propriétés peut être controllé par les propriétés du type

<pre>
Type
vue = viewOf(...)
p:string(typeParam1,typeParam2,typeParam3) = x;
end;
</pre>

{|class="wikitable"
|-
!Type de l'attribut
!TypeParam1
!TypeParam2
!TypeParam3
!Usage
|-
|Currency
|fmtTC
| -
| -
|Le montant est considéré en valeur de tenue de compte
|-
|Currency
|fmtRP
| -
| -
|Le montant est considéré en valeur de reporting
|-
|String contenant un TfwParameters
|fmtParameters
| -
| -
|Valeur des paramètres
|-
|String contenant un TfwParameters
|fmtParameter
|Nom du paramètre
|Valeur par défaut si le paramètre n'existe pas
|Valeur du paramètre
|-
|String
|fmtTaskCategory
| -
| -
|Catégorie de tâche
|-
|oid de TdbfDocument
|fmtDocumentUrl
|Paramètre optionnel contenant le nom du document
|Paramètre optionnel contenant une url externe
|Lien sur le document
|-
|Datetime
|fmtUTC
| -
| -
|La date en considérée UTC et convertie en date locale
|-
|Integer (idOTP)
|fmtClassLabel
| -
| -
|Le libellé de la classe
|-
|Integer (idOTP)
|fmtClassName
| -
| -
|Le nom de la classe
|}

==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 TsqlOperation
: 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 ...

* SourceTableName
: Permet de sélectionner une table SQL comme source de l'opération
: Utiliser dans les opérations ensemblistes sur des tables temporaires

===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>

===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>

==Opérations ensemblistes SQL==

Des opérations ensemblistes utilisant des tables SQL temporaires peuvent être réalisées en utilisant l'opération InserInto du selecteur.

===Table temporaire===

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

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

===Vue SQL locale===

Une vue SQL locale permet d'utiliser une table SQL comme source d'opération d'un sélecteur

<source lang="delphi">
Type
// define an interface
intf = interface
...
end;

// create a view which support the interface
// will be used to create the temp table
//
vue = viewOf(MyClass,intf)
end;

// define a sql class based on the interface
//
sql = sqlClass(intf)
end;

// view on the sql class
//
vue2 = viewOf(sql)
...
end;

var sel:Tselector; aJob,aTempTable:string; keepTables:boolean;
begin
// Alloc a temp table name
//
aJob := CreateGuid;
aTempTable := ClassManager.DefDatabase.AllocTempTable(aJob);
KeepTables := false; // for debuging
try
// Create a temp table from MyClass view
//
sel := vue.CreateSelector(...);
sel.insertInto(aTempTable,[...],[...]); // we create a tempTable

// Query the temp table throught the vue2
//
sel := vue2.CreateSelector(...);
sel.SourceTableName := aTempTable; // because we select the tempTable

...
finally
if not KeepTables then ClassManager.DefDatabase.DropTempTables(aJob);
end;
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>

==Interface==

* [[Améliorations des contrôles d'interface (Version 11.00 2025 r2)]]

[[Category:Version2025r2]]
[[Category:Release note]]

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]]

JsonToDatetime (rtl)

2024-11-26T15:57:03Z

Syfre : Page créée avec « <source lang='delphi'>Function JsonToDatetime(const fmt:string):TDatetime;</source> Cette fonction converti un format json en date et heure {|class="wikitable" |- |Resul... »

<source lang='delphi'>Function JsonToDatetime(const fmt:string):TDatetime;</source>

Cette fonction converti un format json en date et heure

{|class="wikitable"
|-
|Result
|La date et heure correspondant au format json.
|}

Exemple

<source lang='delphi'>
begin
end;
</source>

Voir aussi:

{{Footer|Développement DSM}}
[[category:RTL Json]]
[[category:version 2024 R2]]

JsonToDate (rtl)

2024-11-26T15:56:31Z

Syfre : Page créée avec « <source lang='delphi'>Function JsonToDate(const fmt:string):TDatetime;</source> Cette fonction converti un format json en date {|class="wikitable" |- |Result |La date co... »

<source lang='delphi'>Function JsonToDate(const fmt:string):TDatetime;</source>

Cette fonction converti un format json en date

{|class="wikitable"
|-
|Result
|La date correspondant au format json.
|}

Exemple

<source lang='delphi'>
begin
end;
</source>

Voir aussi:

{{Footer|Développement DSM}}
[[category:RTL Json]]
[[category:version 2024 R2]]

DatetimeToJson (rtl)

2024-11-26T15:55:18Z

Syfre : Page créée avec « <source lang='delphi'>Function DatetimeToJson(dt:TDateTime):string;</source> Cette fonction converti une date et heure en format json {|class="wikitable" |- |Result |La ... »

<source lang='delphi'>Function DatetimeToJson(dt:TDateTime):string;</source>

Cette fonction converti une date et heure en format json

{|class="wikitable"
|-
|Result
|La date et heure au format json.
|}

Exemple

<source lang='delphi'>
begin
end;
</source>

Voir aussi:

{{Footer|Développement DSM}}
[[category:RTL Json]]
[[category:version 2024 R2]]

DateToJson (rtl)

2024-11-26T15:54:42Z

Syfre : Page créée avec « <source lang='delphi'>Function DateToJson(dt:TDateTime):string;</source> Cette fonction converti une date en format json {|class="wikitable" |- |Result |La date au forma... »

<source lang='delphi'>Function DateToJson(dt:TDateTime):string;</source>

Cette fonction converti une date en format json

{|class="wikitable"
|-
|Result
|La date au format json.
|}

Exemple

<source lang='delphi'>
begin
end;
</source>

Voir aussi:

{{Footer|Développement DSM}}
[[category:RTL Json]]
[[category:version 2024 R2]]

TimeToJson (rtl)

2024-11-26T15:53:56Z

Syfre : Page créée avec « <source lang='delphi'>Function TimeToJson(dt:TDateTime):string;</source> Cette fonction converti une heure en format json {|class="wikitable" |- |Result |L'heure au form... »

<source lang='delphi'>Function TimeToJson(dt:TDateTime):string;</source>

Cette fonction converti une heure en format json

{|class="wikitable"
|-
|Result
|L'heure au format json.
|}

Exemple

<source lang='delphi'>
begin
end;
</source>

Voir aussi:

{{Footer|Développement DSM}}
[[category:RTL Json]]
[[category:version 2024 R2]]

PageSize (selector)

2024-11-26T15:48:31Z

Syfre : Page créée avec « <source lang='delphi'>property PageSize:Integer;</source> '''Lecture/Ecriture''' Cette propriété défini la taille de la page dans la pagination. Exemple <source lang... »

<source lang='delphi'>property PageSize:Integer;</source>

'''Lecture/Ecriture'''

Cette propriété défini la taille de la page dans la pagination.

Exemple
<source lang='delphi'>
</source>

Voir aussi :

* [[PageMode (selector)|PageMode]]
* [[PageOffset (selector)|PageOffset]]

{{Footer|Selecteur (tech)}}
[[category:Sélecteur]]
[[Category:Version 2024 R2]]

PageOffset (selector)

2024-11-26T15:47:49Z

Syfre : Page créée avec « <source lang='delphi'>property PageOffset:Integer;</source> '''Lecture/Ecriture''' Cette propriété défini l'offset dans la pagination. Exemple <source lang='delphi'>... »

<source lang='delphi'>property PageOffset:Integer;</source>

'''Lecture/Ecriture'''

Cette propriété défini l'offset dans la pagination.

Exemple
<source lang='delphi'>
</source>

Voir aussi :

* [[PageMode (selector)|PageMode]]
* [[PageSize (selector)|PageSize]]

{{Footer|Selecteur (tech)}}
[[category:Sélecteur]]
[[Category:Version 2024 R2]]

PageMode (selector)

2024-11-26T15:46:31Z

Syfre : Page créée avec « <source lang='delphi'>property PageMode:boolean;</source> '''Lecture/Ecriture''' Cette propriété force l'utilisation d'une requête en mode paginé. Une requête pagi... »

<source lang='delphi'>property PageMode:boolean;</source>

'''Lecture/Ecriture'''

Cette propriété force l'utilisation d'une requête en mode paginé.

Une requête paginée retourne un nombre de ligne (PageSize) en partant d'un offset (PageOffset)

Exemple
<source lang='delphi'>
//procedure GetEcritures(iPages:TJsonStruct);
var sel:TSelector; ....
begin
....
sel := vueEcriture.CreateSelector(AWhere,'-dateEcriture',True,[
....
]);
//
if iPages.itemCount=0 then
begin
// evaluate the itemCount
iPages.itemCount := sel.Count;
end;
//
sel.maxInstances := iPages.itemPerPage;
sel.PageMode := True;
sel.PageSize := iPages.itemPerPage;
sel.PageOffset := (iPages.currentPage-1) * iPages.itemPerPage;
//
forEach view in sel.AsCursor do
begin
....
end;
end;

</source>

Voir aussi :

* [[PageOffset (selector)|PageOffset]]
* [[PageSize (selector)|PageSize]]

{{Footer|Selecteur (tech)}}
[[category:Sélecteur]]
[[Category:Version 2024 R2]]

IsClassOID (class)

2024-11-26T15:35:08Z

Syfre : Page créée avec « <source lang='delphi'>class function isClassOID(const iOID:TOID):boolean;</source> Retourne True si l'identifiant correspond à la classe. {|class="wikitable" |- |Return... »

<source lang='delphi'>class function isClassOID(const iOID:TOID):boolean;</source>

Retourne True si l'identifiant correspond à la classe.

{|class="wikitable"
|-
|Return
|True si l'identifiant appartient à la classe
|-
|iOID
|Un identifiant
|}

iOpe doit être unique pour une classe.

Exemple

<source lang='delphi'>
//procedure doSomething(const iOID:string);
begin
if TTiers.isClassOID(iOID) then
begin
...
end;
end;
</source>

Voir aussi

{{Footer|Classes métiers (tech)}}
[[category:Classes métiers]]
[[Category:Version 2024 R2]]

IsOID (rtl)

2024-11-26T15:26:11Z

Syfre : Page créée avec « <source lang='delphi'>Function IsOIDL(const value:string):boolean;</source> Cette fonction retourne True si la chaine est un OID. {|class="wikitable" |- |Result |True si... »

<source lang='delphi'>Function IsOIDL(const value:string):boolean;</source>

Cette fonction retourne True si la chaine est un OID.

{|class="wikitable"
|-
|Result
|True si value est un OID.
|-
|value
|Une chaine.
|}

Exemple

<source lang='delphi'>
//procedure doSomething(param:string)
begin
if isOID(param) then
begin
...
end
else
begin
...
end
end;
</source>

Voir aussi:

{{Footer|Développement DSM}}
[[category:RTL Framework]]
[[Category:Version 2024 R2]]

ShowMessageFmt (rtl)

2024-11-26T15:21:12Z

Syfre :

<source lang='delphi'>Procedure showMessageFmt(const iMessage:String; const Args:Array of variant);</source>

ShowMessageFmt affiche un message dans une boite de dialogue.

{|class="wikitable"
|-
|iMessage
|Message à afficher.
|-
|Args
|Arguments pour formattage
|}

Cette fonction est utilisable à des fins de mise au point.

{{tip|N'utiliser les dialogues qu'à des fins de mise au points, les processus doivent utiliser les services dédiés pour communiquer avec l'interface.}}

Exemple

<source lang='delphi'>
// procedure onRequest(req:TJon; out resp:TJson);
begin
//...
showMessageFmt('Request:%s',[req]);
//...
end;
</source>

Voir aussi:

* [[ShowMessage (rtl)|ShowMessage]]

{{Footer|Développement DSM}}
[[category:RTL Dialogues]]
[[Category:Version 2024 R2]]

UNLockSocietyPerimeter (CM)

2024-11-26T15:02:22Z

Syfre : Page créée avec « <source lang='delphi'>procedure UnLockSocietyPerimeter(iOpe:Integer);</source> Cette procédure déverrouille le perimètre société. {|class="wikitable" |- |iOpe |Op... »

<source lang='delphi'>procedure UnLockSocietyPerimeter(iOpe:Integer);</source>

Cette procédure déverrouille le perimètre société.

{|class="wikitable"
|-
|iOpe
|Opération
|}

'''Exemple :'''

<source lang='delphi'>
//class procedure TestLockPerimeter;
var ope:Integer;
begin
ope := 1;
ClassManager.LockSocietyPerimeter(ope,false);
try
showMessage('locked');
finally
ClassManager.UnLockSocietyPerimeter(ope);
end;
end;
</source>

Voir aussi :
*[[LockSocietyPerimeter (CM)|LockSocietyPerimeter]]

{{Footer|Gestion du contexte de partage (CM)}}
[[category:ClassManager]]
[[category:CMSC]]
[[category:Partage]]
[[Category:Version 2024 R2]]

LockSocietyPerimeter (CM)

2024-11-26T15:01:27Z

Syfre : Page créée avec « <source lang='delphi'>function LockSocietyPerimeter(iOpe:Integer; iNoWait:boolean):boolean;</source> Cette procédure verrouille le perimètre société. {|class="wikit... »

<source lang='delphi'>function LockSocietyPerimeter(iOpe:Integer; iNoWait:boolean):boolean;</source>

Cette procédure verrouille le perimètre société.

{|class="wikitable"
|-
|iOpe
|Opération
|-
|iNoWait
|N'attend pas si le périmètre est déjà verrouillé
|-
|Result
|True si le périmètre a été verrouillé
|}

'''Exemple :'''

<source lang='delphi'>
//class procedure TestLockPerimeter;
var ope:Integer;
begin
ope := 1;
ClassManager.LockSocietyPerimeter(ope,false);
try
showMessage('locked');
finally
ClassManager.UnLockSocietyPerimeter(ope);
end;
end;
</source>

Voir aussi :
*[[UnlockSocietyPerimeter (CM)|UnlockSocietyPerimeter]]

{{Footer|Gestion du contexte de partage (CM)}}
[[category:ClassManager]]
[[category:CMSC]]
[[category:Partage]]
[[Category:Version 2024 R2]]

Migration des personnalisations (administration)

2024-11-26T10:54:00Z

Syfre :

Lors du'une mise à jour, les interfaces personnalisées qui ont été mise à jour doivent être revue pour prendre en comptes les modifications.

La console d'administration et l'application d'Administration offre une interface permettant de simplifier cette opération.

===A partir de la console d'administration===

[[image:report-personnalisation-1.png|800px]]

{{tip|Dans la console d'administration les personnalisations moins récentes que leur version courante apparaissent en blanc sur fond bleu.}}

A partir d'un objet personnalisé :

[[image:report-personnalisation-2.png|800px]]

Les différentes fonction disponibles :

* Comparer version courante et version personnalisée
: Cette fonction permet de comparer les versions sans modification
* Reporter version courante vers version personnalisée
: Cette fonction permet de reporter les modification de la nouvelle version vers la version personnalisée
* Reporter version personnalisée vers version courante
: Cette fonction permet de reporter les personnalisations vers la version courante
* Conserver cette personnalisation
: Cette fonction modifie la date de la version personnalisée de sorte qu'elle apparaisse comme plus récente.

L'outils de comparaison / modification présente les deux versions de l'interface :

[[image:report-personnalisation-3.png|800px]]

* Les reports se font toujours de la gauche vers la droite
* Les lignes en bleues sont les lignes présentes dans la version modifiée et absente dans la version d'origine
* Les lignes en verts sont les lignes présentes dans les deux versions
* Les lignes en rouges sont les lignes présentes dans la version d'origine et absente dans la version modifiée

Pour effectuer un report placer le curseur sur le bloc correspondant dans la version d'origine (à gauche) et cliquer sur le bouton "Copier le bloc" de la barre d'outils.
Pour sauvegarder les modifications confirmez le message "Sauvegardez les modifications" en sortie de l'éditeur.

{{tip|Une copie de l'objet personnalisé avant modificaton est sauvegardée dans le répertoire backup du programme}}

===A partir du menu d'Administration===

[[image:report-personnalisation-4.png|800px]]

Les fonctionnalités sont identiques à celles de la console d'administration.

{{tip|Le report des modifications doit être réalisée dans l'application Desktop}}

[[Category:Version 2024 R2]]
[[Category:Administration]]

Version 2024 r2 (release note)

2024-11-26T10:21:32Z

Syfre :

__TOC__

==Administration==
* [[Migration des personnalisations (administration)|Migration des personnalisations.]]

==Portail Web==
* Ajout de la gestion des préférences dans l'écran "mon compte"

==Script==
* [[Gestion_du_contexte_de_partage_(CM)|Verrouillage du périmètre société]]
* [[IsOID (rtl)|Ajout de IsOID]]
* [[IsClassOID (class)|Ajout de IsClassOID]]
* [[:Category:RTL_Json|Ajout de TimeToJson,DateToJson,DatetimeToJson,JsonToDate,JsonToDatetime]]
* [[ShowMessageFmt (rtl)|Ajout de ShowMessageFmt]]
* [[Selecteur_(tech)|Ajout du mode paginé sur les selecteurs]]

==Tableaux de bord==
* Améloration des APIs Tableaux de bords

==Automate==
* Ajout de l'option "Security Mode Force Intranet" pour forcer le mode intranet sur un serveur d'automate
* Ajout du support de l'export xml dans l'automate
* Ajout du support d'impression vers imprimante dans l'automate

==Service==
* Ajout du paramétrage des gestionnaires d'enregistrement d'évènements pour la surveillance du service

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

LoremIpsum (rtl)

2024-10-12T06:32:16Z

Syfre : Page créée avec « <source lang="delphi">Function LoremIpsum(len:Integer):string;</source> Cette fonction crée un texte aléatoire. {|class="wikitable" |- |Result |Le texte aléatoire |- ... »

<source lang="delphi">Function LoremIpsum(len:Integer):string;</source>

Cette fonction crée un texte aléatoire.

{|class="wikitable"
|-
|Result
|Le texte aléatoire
|-
|len
|Nombre de ligne.
|}

Exemple

<source lang="delphi">
begin
end;
</source>

Voir aussi:
* [[Random (rtl)|Random]]

{{Footer|Développement DSM}}
[[category:RTL Système]]

RandomFloat (rtl)

2024-10-12T06:29:48Z

Syfre :

<source lang="delphi">Function RandomFloat(min,max:Double; dec:Integer):Double;</source>

Cette fonction crée une valeur flottante aléatoire d'une certaine longueur.

{|class="wikitable"
|-
|Result
|La valeur aléatoire
|-
|min
|Valeur minimale.
|-
|max
|Valeur maximale.
|-
|dec
|Nombre de décimale.
|}

Exemple

<source lang="delphi">
begin
end;
</source>

Voir aussi:
* [[Random (rtl)|Random]]

{{Footer|Développement DSM}}
[[category:RTL Système]]

SetStringSize (MM)

2024-07-30T08:27:21Z

Syfre :

{{Version2024r1}}
<source lang='delphi'>procedure SetStringSize(const iType:string; const iSize:Integer);</source>

Cette méthode définit la taille des colonnes chaîne.

{|class="wikitable"
|-
|iType
|Nom du type de chaîne.
|-
|iSize
|Taille des colonnes.
|}

Les types chaînes sont définis ainsi :

{|class="wikitable"
|-
|strCurrencyCode
|Code devise
|-
|strCurrencyConv
|Chaîne de conversion de devise
|-
|strUnitCode
|Code unité
|-
|strCounterValue
|Valeur de compteur
|-
|strCounterName
|Nom de compteur
|-
|strDateList
|Liste de date
|-
|strIntegerList
|Liste d'entier
|-
|strBarCodeValue
|Valeur de barre code
|}

Exemple :

Modifier la taille des colonnes de conversion des devises :

<source lang='delphi'>
begin
ModelManager.SetStringSize(strCurrencyConv,255);
end;
</source>

Voir aussi :
* [[Configuration_des_applications_(administration)|Configuration des applications]]

{{Footer|ModelManager_(code)}}
[[category:ModelManager]]
[[Category:Configuration]]
[[Category:Version 2024 R1]]

Execute (TSearchAction)

2024-06-20T12:32:18Z

Syfre : Page créée avec « {{Version11}} <source lang='delphi'>Function Execute(action:TjsonStruct; resp:TJson):boolean;</source> Cette fonction exécute l'action et peut retourner une facet qui s... »

{{Version11}}

<source lang='delphi'>Function Execute(action:TjsonStruct; resp:TJson):boolean;</source>

Cette fonction exécute l'action et peut retourner une facet qui sera affichée dans le panneau ouvert par l'action.

{|class="wikitable"
|-
!Paramètre
!Usage
|-
|action
|Une structure json qui comprend les paramètres du résultat de la recherche
|-
|resp
|Une structure json en réponse
|-
|Result
|True si l'action a été exécutée
|}

Exemple :

<source lang="delphi">
//function Action_piece_ecritures.Execute(action:TjsonStruct; resp:TJson):boolean;
Type
vueEcriture = viewOf(TEcriture)
oidPiece:TOID = oidPiece;
numero:Integer = numero;
//
codeCompte:string = compteGeneral.codeCompte;
libelleCompte:string = compteGeneral.Caption;
idCompteGeneral:TOID = oidCompteGeneral;
//
codeTiers:string = roleTiers.+Tiers.+Code;
libelleTiers:string = roleTiers.+Tiers.+Caption;
idRoleTiers:TOID = oidRoleTiers;
idTiers:TOID = roleTiers.+oidTiers;
//
libelleEcriture:String = Caption;
debit:TMoneyDT = debit;
credit:TMoneyDT = credit;
//
dateLettrage:TDatetime = dateLettrage;
lettre:String = lettrageEcriture.+lettre;
//
profilTVA:String = ProfilTVA.+Caption;
dateDeclarationTVA:TDatetime = DeclarationTVALigne.+DeclarationTVA.+dDate;
end;

function _GetTitle():string;
begin
Result := Format(_TP('Ecritures pour la pièce %s'),[
action.param.KeyValue['numero'],
]);
end;

var itemId:string; vSel:TSelector; inst:vueEcriture;
idx,idv,idr,limits:Integer; SF,ST,SR:TjsonStruct; SA:TjsonArray;
begin
Result := FALSE;

// This is TPiece oid
if action.Exists('param.itemId')
then itemId := action.param.itemId
else itemId := '';

if itemId='' then Exit;
SR := resp.AddStruct('panel','{panelId:"ecritures-'+itemId+'", title:"'+_GetTitle+'"}');
/////////////////////////////////////
SR.addStruct('layout','{ name:"body" }');

SF := FacetBuilder.AddFacet(SR,'body','list','');
ST := FacetBuilder.AddValueTable(SF,_GetTitle,'');
SA := ST.table.columnDefs;

SA.AddStruct('{field:"n", headerName:"'+_TP('Numéro')+'", width:100}');
SA.AddStruct('{field:"a", headerName:"'+_TP('Compte')+'", cellRenderer: "linkRenderer" }');
SA.AddStruct('{field:"b", headerName:"'+_TP('Tiers')+'", cellRenderer: "linkRenderer" }');
SA.AddStruct('{field:"c", headerName:"'+_TP('Débit')+'", width:160}');
SA.AddStruct('{field:"d", headerName:"'+_TP('Crédit')+'", width:160}');
SA.AddStruct('{field:"e", headerName:"'+_TP('Libellé')+'"}');
SA.AddStruct('{field:"f", headerName:"'+_TP('Date lettrage')+'", width:132}');
SA.AddStruct('{field:"g", headerName:"'+_TP('Lettrage')+'", width:100}');
SA.AddStruct('{field:"h", headerName:"'+_TP('Profil de TVA')+'"}');
SA.AddStruct('{field:"i", headerName:"'+_TP('Déclaration TVA')+'"}');

SA := ST.table.rows;

idr := 0; limits := -1;
vSel := vueEcriture.CreateSelector('(oidPiece=%1)', '', false, [itemId]);
foreach inst in vSel.AsCursor do
begin
SA.addDatum('id','',opeDatumSet,['id','n','a','b','c','d','e','f','g','h','i'],[
inst.oid,
inst.numero,
_FormatLinkObject(_FormatTitle(inst.codeCompte,inst.libelleCompte),Format(_TP('Compte géénrale %s'),[inst.codeCompte]),inst.idCompteGeneral),
_FormatLinkObject(_FormatTitle(inst.codeTiers,inst.libelleTiers),Format(_TP('Tiers %s'),[inst.codeTiers]),inst.idTiers),
_FormatMontant(inst.debit),
_FormatMontant(inst.credit),
inst.libelleEcriture,
_FormatDateObject(inst.dateLettrage),
inst.lettre,
inst.profilTVA,
_FormatDate(inst.dateDeclarationTVA)
]);
idr := idr+1;
if idr=limits then break;
end;

Result := True;
end;
</source>

Voir aussi :

{{Footer|TSearchAction (class)}}
[[Category:version2024r1]]

GetLibelle (TSearchAction)

2024-06-20T12:26:27Z

Syfre : Page créée avec « {{Version11}} <source lang='delphi'>Function GetLibelle(const iClassName:string):string;</source> Cette fonction retourne le libellé à afficher dans la vignette résul... »

{{Version11}}

<source lang='delphi'>Function GetLibelle(const iClassName:string):string;</source>

Cette fonction retourne le libellé à afficher dans la vignette résultat de recherche.

{|class="wikitable"
|-
!Paramètre
!Usage
|-
|iClassName
|Le nom de la classe de l'objet du résultat de la recherche
|-
|Result
|Le libellé à afficher dans la vignette pour cette action.
|}

Retourner une chaîne vide si la classe ne correspond pas à l'action, dans ce cas l'action sera ignorée.

Exemple :

<source lang="delphi">
//function ACtion_piece_ecritures.GetLibelle(const iClassName:string):string;
begin
if TFacadeModel.hasAccounting and (iClassName='TPiece') then Result := _TP('Voir les écritures de la pièce') else
Result := '';
end;
</source>

Voir aussi :

{{Footer|TSearchAction (class)}}
[[Category:version2024r1]]

TSearchAction (class)

2024-06-20T12:21:12Z

Syfre :

==Introduction==

La classe TSearchAction est une classe de base pour les actions sur les résultats de recherche du portail Web.

Pour ajouter une nouvelle action sur un résultat de recherche ajoutez une classe dérivée de la classe TSearchAction et implémentez les méthodes GetLibelle et Execute.

===Méthodes===
{|class="wikitable"
|-
|[[GetLibelle (TSearchAction)|GetLibelle]]
|Retourne le libellé à afficher dans le panneau de recherche.
|-
|[[Execute (TSearchAction)|Execute]]
|Execute l'action.
|}

Pour un exemple d'utilisation voir Action_piece_ecriture

Voir aussi :

* [[TSearchKey_(MM)|Clé de recherche]]

{{Footer|Code métier}}
[[category:Classes frameworks]]

UpdateStamp (selector)

2024-06-20T12:03:08Z

Syfre : Page créée avec « {{version11}} <source lang='delphi'>property UpdateStamp:boolean;</source> '''Lecture/Ecriture''' Cette propriété force la mise à jour des attributs UpdDate et UpdSt... »

{{version11}}

<source lang='delphi'>property UpdateStamp:boolean;</source>

'''Lecture/Ecriture'''

Cette propriété force la mise à jour des attributs UpdDate et UpdStamp lors des mise à jour par un sélecteur.

{{tip|La mise à jour en SQL de UpdDate peur provoquer des erreurs d'intégrité pour les tables protégées si la date de dernière modification de l'objet était antérieure à la date d'application de la protection.}}

Exemple
<source lang='delphi'>
</source>

Voir aussi :

* [[Update_(selector)|Mise à jour par sélecteur]]

{{Footer|Selecteur (tech)}}
[[category:Sélecteur]]
[[Category:version11]]

HasParameter (selector)

2024-06-20T11:57:23Z

Syfre : Page créée avec « {{Version11}} <source lang='delphi'>functione HasParameter(const iName:string):boolean;</source> Cette fonction teste si un paramètre nommée de la requête existe. {|... »

{{Version11}}

<source lang='delphi'>functione HasParameter(const iName:string):boolean;</source>

Cette fonction teste si un paramètre nommée de la requête existe.

{|class="wikitable"
|-
!Paramètre
!Usage
|-
|iParameterName
|Le nom du paramètre
|-
|Result
|True si le paramètre existe.
|}

Les paramètres nommés peuvent être utilisé dans les expression de requêtes.

Exemple :

<source lang="delphi">

</source>

Voir aussi :

* [[Vue_locale_(langage)|Vue locale]]
* [[AddParameter_(selector)|Ajout de paramètre]]
* [[GetParameter_(selector)|Retourne la valeur d'un paramètre]]

{{Footer|Selecteur (tech)}}
[[category:Sélecteur]]
[[Category:version2024r1]]

GetParameter (selector)

2024-06-18T06:06:19Z

Syfre : Page créée avec « {{Version11}} <source lang='delphi'>functione GetParameter(const iName:string):variant;</source> Cette fonction retourne la valeur d'un paramètre nommée de la requête... »

{{Version11}}

<source lang='delphi'>functione GetParameter(const iName:string):variant;</source>

Cette fonction retourne la valeur d'un paramètre nommée de la requête.

{|class="wikitable"
|-
!Paramètre
!Usage
|-
|iParameterName
|Le nom du paramètre
|-
|Result
|La valeur du paramètre.
|}

Les paramètres nommés peuvent être utilisé dans les expression de requêtes.

Exemple :

<source lang="delphi">

</source>

Voir aussi :

* [[Vue_locale_(langage)|Vue locale]]
* [[AddParameter_(selector)|Ajout de paramètre]]

{{Footer|Selecteur (tech)}}
[[category:Sélecteur]]
[[Category:version2024r1]]

Test

2024-06-14T07:10:01Z

Syfre : Page créée avec « {{Version650}} __TOC__ Les vues locales sont des type de données vues déclarées localement à l'intérieur d'une opération. Par exemple le code suivant déclare une ... »

{{Version650}}
__TOC__

Les vues locales sont des type de données vues déclarées localement à l'intérieur d'une opération.

Par exemple le code suivant déclare une vue MyView et effectue une recherche sur cette vue :

<source lang="delphi">
function foo(const S:string):Integer;
Type
MyView = viewof(ClassA)
unCode:string = unCodeA;
unEntier:Integer = refB.unEntierB;
end;

var inst:MyView;
begin
inst := MyView.Find('unCode=%1','',true,['B1']);
if Assigned(inst) then
begin
...
end;
end
</source>

Le périmètre du type est limité à la procédure, il n'est donc pas possible de passer les objets de la vue en paramètre à d'autres fonctions (pour cela utilisez une vue globale).

La syntaxe pour définir une vue locale :

<pre>
BNF style grammar :

<nom_vue> ::= ViewOf(<class_dec>) [<attributes>] end
<class_dec> ::= <class_names> | <class_name> <class_dec>
<class_names> ::= <class_name>| [<class_name> ,]
<class_name> ::= identifier
<class_dec> ::= distinct
<attributes> ::= <attribute_def> | <attribute_def> <where_def>
<attribute_def> ::= <simple_attribute_def> | <simple_attribute_def> <attribute_directive>
<simple_attribute_def> ::= <attribute_dec> | <attribute_dec> = <attribute_ref>
<attribute_dec> ::= <attribute_name> : <type_name>
<attribute_ref> ::= <main_class_attribute_name> | <operator>(<main_class_attribute_name>)
<operator> ::= <aggregate_operator> | <date_operator> | <join_operator>
<aggregate_operator> ::= count|sum|max|min
<date_operator> ::= year|month|quarter|week|day|dayofyear|dayofweek|hour|minute|second
<join_operator> ::= join
<attribute_directive> ::= primary | orderby | orderby desc | over | notInSelect
<where_def> ::= [ <expression> ]

Type
NomDeVue = ViewOf(NomDeClassePrincipale)
Attribut : Type;
Attribut : Type = AliasDe;
Attribut : Type = operator(AliasDe);
Attribut : Type = AliasDe primary;
Attribut : Type = AliasDe orderby;
Attribut : Type = AliasDe orderby desc;
[ expression ]
end;
</pre>

Les vues peuvent utiles pour effectuer des traitement sur des classes complexes, par exemples :

===Exemples===
====Curseur sur une classe vue====

<source lang="delphi">
function foo(const S:string):Integer;
Type
MyView = viewof(ClassA)
newCode:string;
unCode:string = unCodeA;
unEntier:Integer = refB.unEntierB;
end;

var inst:MyView; cursor:MyViewCursor
begin
Result := 0;
cursor := MyView.CreateCursorWhere(''unCode=%1'','''',true,[S]);
foreach inst in cursor do
begin
Result := Result + inst.unEntier;
end;
end;
</source>

====Vue avec jointure externe====

<source lang="delphi">
function ViewExternalJoin(const S:string):Boolean;
Type
MyView = viewof(ClassA)
newCode:string;
unCodeAA:string = unCodeA;
unCodeBB:string = refB+unCodeB;
end;
var inst:MyView;
begin
inst := MyView.Find('unCodeAA=%1','',true,[S]);
if Assigned(inst) and (inst.unCodeAA=S)
then Result := True
else Result := False;
end;

</source>

====Vue sur une interface====

<source lang="delphi">
function foo(const S:string):Integer;
Type
MyView = viewof(InterfaceA, ClassA1, ClassA2)
unCode:string = unCodeA primary;
....
end;

begin
...
end;
</source>

====Vue sur des combinaisons uniques d'attributs====

<source lang="delphi">
function foo(const S:string):Integer;
Type
MyView = viewof(ClassA distinct)
unCode:string = unCodeA primary;
unEntier:Integer = refB.unEntierB;
end;

begin
...
end;
</source>

====Vue avec agrégats====

<source lang="delphi">
function foo(const S:string):Integer;
Type
MyView = viewof(ClassA)
unCode:string = unCodeA primary;
unEntier:Integer = sum(unEntier);
end;

begin
...
end;
</source>

====Vue avec agrégats sur un montant====

<source lang="delphi">
Type
myView = viewof(WFClasseX)
mysum:TMoney = sum(credit) orderby;
end;

var sel:TSelector; inst:MyView; S,stag:string;
begin
sel := MyView.CreateSelector('','',true,[]);

S := ''; stag := '';
foreach inst in Sel.AsCursor do
begin
S := S+stag+Formatfloat('0.00',inst.mysum.Value);
stag := ',';
end;
showmessage(S);

Result := FALSE;
end;
</source>

<pre>
select sum(t0.credit) "mysum",t0.credit_CodeDevise "mysum_CodeDevise" from dbo.WFCLASSEX t0
group by t0.credit_CodeDevise
order by sum(t0.credit)
</pre>

====Vue avec agrégats sur un attribut enfant====

<source lang="delphi">
Type
myView = viewof(WFClasseX)
mysum:TMoney = sum(credit:TCValue) orderby;
end;
begin
...
end;
</source>

<pre>
select sum(t0.credit_TCValue) "mysum" from dbo.WFCLASSEX t0
order by sum(t0.credit_TCValue)
</pre>

====Vue avec un opérateur de date====

<source lang="delphi">
function foo(const S:string):Integer;
Type
MyView = viewof(ClassC distinct)
unCode:string = unCodeC primary;
unMois:Integer = month(uneDate);
end;

begin
...
end;
</source>

====Vue avec un opérateur de date (diff)====

<source lang="delphi">
function foo(iDayDiff):string;
Type
MyView = viewof(ClassC distinct)
unCode:string = unCodeC primary;
DayDiff:Integer = DayDiff(uneDateStart,uneDateEnd);
end;

begin
inst := MyView.Find('DayDiff >= %1','',true,[iDayDiff]);
if Assigned(inst)
then Result := inst.unCode
else Result := 'Not found';
end;
</source>

====Vue avec référence====

<source lang="delphi">
function foo(const S:string):Integer;
Type
MyView = viewof(ClassA)
unCodeAA:string = unCodeA;
refB:reference = refB;
end;

begin
...
end;
</source>

<source lang="delphi">
function foo(const S:string):Integer;
Type
MyView = viewof(ClassA)
unCodeAA:string = unCodeA;
refB:ClassB = refB;
end;

begin
...
end;
</source>

====Vue avec variable référence====

<source lang="delphi">
function foo(const S:string):Integer;
Type
MyView = viewof(ClassA)
unCodeAA:string = unCodeA;
refB:ClassB;
end;

begin
...
end;
</source>

====Vue avec filtre====

<source lang="delphi">
function foo(const S:string):Integer;
Type
MyView = viewof(ClassA)
unCodeAA:string = unCodeA;
unCodeBB:string = refB.unCodeB;
[ unCodeA='A1' ]
end;

begin
...
end;
</source>

====Vue avec traversée de liste====

[[image:view-list-1.jpg]]

<source lang="delphi">
function _Concat(const S:string):string;
Type
MyView = viewof(ClassF)
unCodeF:string = unCodeF;
unCodeG:string = refFG.unCodeG;
unCodeH:string = refFG.listH.unCodeH;
end;

var ls:MyViewList; stag:string; idx:integer;
begin
ls := MyView.CreateListWhere('unCodeG=%1','','unCodeH',true,-1,[S]);
Result := ''; stag := '';
for idx:=0 to ls.Count-1 do
begin
Result := Result+stag+ls.Refs[idx].unCodeH;
stag := ',';
end;
end;
</source>

====Vue avec jointure sur une classe====

<pre>
Type
myView = class(myClass)
vp1:joinClass1 = join(A,B);
vp2:JoinClass2 = join(A,B,W);
vp3:JoinClass3 = join(W);
....
end;
</pre>

{|class="wikitable"
|-
!Paramètre
!Usage
|-
|A
|Attribut de la classe join (joinClass)
|-
|B
|Chemin à partir de la classe base (myView)
|-
|W
|Clause Where sur la classe join
|}

La clause Where peut être exprimée avec les préfixes :

{|class="wikitable"
|-
|self
|Préfixe de la classe de base
|-
|?
|Préfixe de la classe Join
|-
|xx
|alias d'une jointure de classe
|}

{{tip|Il est possible de créer un produit cartésien entre deux classes en utilisant une jointure avec une clause where toujours vraie. }}

{{tip|Les jointures seront générées dans l'ordre de leur déclaration dans la vue. }}

<source lang="delphi">
//Procedure expensePendings(req:Tjson; var res:TObject);
Type
ExpenseView = viewOf(TNoteFrais)
vp: TValideurPossible = join(ValidationEtat.EtatPossible.EtatMetier, EtatNF);
aManager:string = vp.ContactEtablissement.oidutilisateur;
//
aDate:TDatetime = nDate;
aRef:string = referencePiece;
aReason:string = Caption;
aAmountOrg:TMoney = MontantTTC;
aAmountAct:TMoney = MontantRetenu;
aQuantity:TQuantity = Quantite;
aUser:string = Salarie.Operateur.oidutilisateur;
aType:string = FraisSalarie.Caption;
aMode:Integer = FraisSalarie.modeRemboursement;
aAmountMax:TMoney = FraisSalarie.montantPlafond;
aStatus:Integer = Statut;
end;

var json:TJson; ls:TSelector; indx,ctn:Integer; inst:ExpenseView;
AWhere,AOrder:string; Args:Array[0..5] of variant;
begin
json := TJson.Create('');
res := json;
//
AWhere := '(aManager=%1) and (aStatus=%2)';
Args[0] := GlbUserName;
Args[1] := StatutNF_AValider;
AOrder := 'aUser,-aDate';

indx := 0; ctn := 0;
ls := ExpenseView.CreateSelector(AWhere,AOrder,true,Args);
foreachP inst in ls.AsCursor do
begin
. . .
end;
end;
</source>

Dans cet exemple le modèle est celui-ci :

[[image:view-join-2.jpg]]

La classe TEtatMetier est atteinte par deux chemins différents, un issu de la classe TValideurPossible et un issu de la classe TNoteFrais. La jointure est réalisée sur l'objet TEtatMetier.

<pre>
vp: TValideurPossible = join(ValidationEtat.EtatPossible.EtatMetier, EtatNF);
</pre>

* TValideurPossible est la classe qui va être jointe
* vp défini un alias sur cette classe qui peut être ensuite utilisé dans la définition de la vue.
* ValidationEtat.EtatPossible.EtatMetier est le chemin issu de la classe jointe
* EtatNF est le chemin issu de la classe de la vue.

'''Exemple, vue locale avec produit cartésien, jointure par clause where et sous requêtes'''

<source lang="delphi">
//procedure RubriqueParExerciceDetail;
Type
vueSolde = viewof(TCumulPeriodeCompte)
codeCompte:string = CompteGeneral.codeCompte;
datePeriode:TDatetime = Periode.dateDebut;
value:Currency = sumDiff(debitTenue,creditTenue);
oidExercice:TOID = Periode.oidexercice;
[(typeLot=1)]
end;

vueSelection = viewOf(TSelectionCompte)
vc:TCompteGeneral = join('(codeCompte>=self.compteInferieur) and (codeCompte<=self.compteSuperieur)');
vp:TPeriode = join('(1=1)');
ve:TExercice = join(oid,vp.oidexercice);
ve1:TExercice = join('(?.dateDebut = DateAdd(dpyear,ve.dateDebut,-1))');
//
idCompteGeneral:TOID = vc.oid primary;
idRubrique:TOID = oidRubriqueCompte primary;
idPeriode:TOID = vp.oid primary;
idExercice:TOID = vp.oidexercice;
idExerciceN1:TOID = ve1.oid;
//
codeRubrique:string = RubriqueCompte.code orderby;
libelleRubrique:string = RubriqueCompte.Caption;
codeCompte:string = vc.codeCompte orderby;
libelleCompte:string = vc.Caption;
libellePeriode:string = vp.Caption;
//
datePeriode:TDatetime = vp.dateDebut orderby desc;
year:Integer = year(vp.dateDebut);
month:Integer = month(vp.dateDebut);
valueN0:currency = VueSolde.select('value','(oidExercice=self.idExercice) and (codeCompte=self.codeCompte) and (datePeriode<=self.datePeriode)','',true,[]);
valueN1:currency = VueSolde.select('value','(oidExercice=self.idExerciceN1) and (codeCompte=self.codeCompte) and (datePeriode<=DateAdd(dpYear,self.datePeriode,-1))','',true,[]);
end;

var Sel:TSelector; inst:vueSelection; S,stag:string;
begin
Sel := vueSelection.CreateSelector('(codeRubrique=%1) and (year=2022) and (month=3)','',True,['SIG.L02']);

S := ''; stag := '';
forEach inst in Sel.AsCursor do
begin
S := S+stag+inst.codeCompte;
stag := ',';
end;
showMessage(S);
end;
</source>

{{tip|Notez l'opérateur SQL DateAdd() qui peut être utilisé dans la partie littérale d'une expression}}

====Vue avec jointures liées====
{{version11}}

<source lang="delphi">
Type
VueValideur = viewOf(TPieceTaxable)
vp1: TValideurPossible = join(ValidationEtat.EtatPossible.EtatMetier,EtatMetier);
vp2: TValideurPossible = join(ValidationEtat.RegleValidation,RegleValidation);
gcv: TGroupeContactValidation = leftjoin(TGroupeValidation,vp2.ContactEtablissement);
aId1:TOID = vp1.oid;
aId2:TOID = vp2.oid;
//
...
[ (aId1=aId2) and ... ]
end;
</source>

Dans cet exemple :

* vp1 et vp2 sont deux jointures qui coincident sur le même tuple.
* La coincidence des deux jointures est réalisée par le clause where (aId1=aId2)
* gcv est une jointure sur le tuple défini par vp1 et vp2

Voir aussi :

* [[Vue anonyme (langage)|Vue anonyme]]

[[Category:langage]]
[[Category:Vue de classe]]
[[Category:Version650]]
[[Category:Version11]]

Améliorations des contrôles d'interface (Version 11 2024 r1)

2024-06-14T06:40:17Z

Syfre : a déplacé Améliorations des contrôles d'interface (Version 11 2024 r1) vers Améliorations des contrôles d'interface (Version 2024 r1)

__TOC__

==Composant Dataset==

===Dataset défini sur une interface===

ClassNameFilter est utilisé pour récupérer le nom de la classe utilisée qui peut être définie par un argument

Exemple:

*Interrogation utilisant des vues différentes (et donc des requêtes différentes) en fonction des paramètres
*Le dataset est définie sur l'interface commune à toutes les vues
*Le processus contrôleur définie le nom de la vue en fonction des paramètres

===Evènement OnPropertyChange===

Permet de déclencher un refresh lorsqu'un attribut change sans passer par un contrôle d'écran

==Composant TPropertyController==

Ajout de Triggers

Ajout de DefValue

Exemple :

Permet de positionner le bookSheetName du Treebook sur un refresh de la vue résultat

==Paramètres d'écran==

===Passage d'objet===
Permet de passer un objet à un contrôleur

Exemple :

* Sur le contrôleur définir un rôle référence correspondant à la classe de l'objet
* Définir un paramètre d'écran de type ptIn, mptClass, le ratttacher au rôle du contrôleur
* Sur le contrôleur ajouter une règle valeur par défaut sur le rôle pour récuperer les valeurs passées par l'objet
* Dans la règle VPD après avoir récupéré les valeurs vous pouvez faire "role := nil;" pour libérer l'objet passé

===Evènement SET paramètre IN sur la forme===

Déclenchée lorsqu'un paramètre IN est positionné lorsque la forme est ouverte

Exemple :

Déclenchement du recalcul du filtre lorsque des paramètres sont passés

[[Category:Version11 2024 R1]]

Version 11 2024 r1 (release note)

2024-06-12T06:33:58Z

Syfre : /* Script */

{{version2024r1}}
__TOC__

==Modèle==
* [[Vue_locale_(langage)|Amélioration des vues locales.]]

==Script==
* [[Selecteur_(tech)|Amélioration du Sélecteur]]
* [[TSearchAction (class)|Action sur résultat de recherche]]

==Interface utilisateur==
* [[Améliorations des contrôles d'interface (Version 2024 r1)]]
* [[Amélioration du requêteur|Amélioration du requêteur (Version 2024 r1)]]

[[Category:Version 2024 R1]]
[[Category:Release note]]