Depuis la version Harmony 410 il est possible de créer des tables temporaires SQL
Les caractéristiques des tables temporaire
Syntaxe
[public | protected | extern] TmpRecordSql[KeepDataNames] dico mnémo Instance [KeepOnExit][NoCreate]
La table est créée en dupliquant la table d'origine de la base (colonnes et index).
Il faut donc que cette table soit existante dans la base, on ne crée pas à partir du dico dhsd
La table est supprimée automatiquement
lorsque le xrtdiva qui a créé la table se termine
en fin de fonction
en fin de programme (sauf si l'option KeepOnExit est positionnée)
Option KeepOnExit
Permet de ne pas supprimer la table temporaire à la fin du programme Diva
Cela permet de faire des programGoto en passant le nom de la table temporaire
On utiliser alors GetTemporaryTableName/SetTemporaryTableName
Get permet de récupérer le nom de la table temporaire
Set permet de le positionner.
On ping le nom de la table, on le récupère par pingReceive et on le positionne par SetTemporaryTableName
Attention : il y'a un risque avec ProgramCall NO_WAIT : la table est supprimée si le père s'arrête. Il ne faut donc pas utiliser les tables temporaires dans ce cas
La bonne pratique est que celui qui créer la table temporaire fasse appel a un traitement en call wait, puis qu’au retour la fin du programme détruise la table temporaire
Option NoCreate
A utiliser lorsqu’un traitement ne fait que lire une table temporaire créée ailleurs
Exemple Diva
Voici deux exemples commentés
Table temporaire dans un traitement
;* Procedure Record_temporaire_View ;* Declaration_VueTiers TmpRecordSql gtrstiers.dhoq VueTiers V1 1 ReaderIdVue L 1 compteur_R L = 0 1 compteur_T L = 0 1 ReaderId L Beginp ReaderIdVue = ReaderOpen_VueTiers (VueTiers,ReaderIdVue) VueTiers.OrderBy.Par_Nom() ReaderSelect_VueTiers (VueTiers ,ReaderIdVue) ReaderBegin_VueTiers (VueTiers ,ReaderIdVue) do while ReaderNext_VueTiers(VueTiers,ReaderIdVue) = 0 V1.TIERS_VIEW = VueTiers.TIERS_VIEW V1.Insert() compteur_R++ wend ReaderClose_VueTiers(VueTiers,ReaderId) ReaderId = ReaderOpen_VueTiers(V1,ReaderId) V1.OrderBy.Par_Nom() ReaderSelect_VueTiers (V1 ,ReaderIdVue) ReaderBegin_VueTiers (V1 ,ReaderIdVue) do while ReaderNext_VueTiers(V1,ReaderIdVue) = 0 compteur_T++ wend ReaderClose_VueTiers(V1,ReaderId) V1.getinfo(RSQL_ALIAS_TABLE_ID,nom) V1.getinfo(RSQL_TABLE_NAME,nom) nom = V1.GettemporaryTableName() Endp
On déclare ici un TmpRecordSql sur un recordSql avec un instance V1
Instance locale à la procedure
Lecture en boucle de la vue tiers
Recopie des données à l’identique dans cet exemple
Insertion dans V1 qui devient une table temporaire
Relecture de la table temporaire pour comparer les compteurs en debug
Lecture d’informations complémentaire en debug pour constater que la table porte un nom temporaire
Table temporaire dans 2 traitements distincts
Le but est d’avoir un traitement qui créé les données temporaires, et un second qui les lit
TmpRecordSql gtrsart.dhoq Article A2 KeepOnExit
;*
Procedure Record_temporaire_Article
;*
1 nom S
Declaration_Article
1 ReaderId L
Beginp
ReaderId = ReaderOpen_Article(Article,ReaderId)
Article.OrderBy.Par_Reference()
ReaderSelect_Article(Article,ReaderId)
ReaderBegin_Article(Article,ReaderId)
Do
while ReaderNext_Article(Article,ReaderId) = 0
A2.ART = Article.ART
Insert_Article(A2)
wend
ReaderClose_Article(Article,ReaderId)
;récupération du nom de la table temporaire et envoi par ping
nom = A2.GettemporaryTableName()
Ping('nom_tmp',Nom)
Programcall('TraitementRSQLTmp.dhop')
Endp
On déclare ici un TmpRecordSql sur un recordSql en global avec un instance A2 avec KeepOnExit
(pas en local!)
Lectrure en boucle des article
Recopie des données à l’identique dans cet exemple
Insertion dans VA2 qui devient une table temporaire
Récupération du nom et appel au second traitement
TmpRecordSql gtrsart.dhoq Article A2 NoCreate KeepOnExit
1 compteur_T L = 0
1 ReaderId L
Main
mz.Dos = '998'
load_gtfdos(mz.Dos)
PingReceiveAnddelete('nom_tmp',Nom)
A2.SetTemporaryTableName(nom)
ReaderId = ReaderOpen_Article(A2,ReaderId)
A2.OrderBy.Par_Reference()
ReaderSelect_Article(A2,ReaderId)
ReaderBegin_Article(A2,ReaderId)
Do
while ReaderNext_Article(A2,ReaderId) = 0
compteur_T++
wend
ReaderClose_Article(A2,ReaderId)
On déclare ici un TmpRecordSql sur un recordSql en global avec un instance A2 avec NoCreate et KeepOnExit, car le traitement ne fait qu'exploiter (pas de création) et doit laisser l’appelant gérer la destruction
Récupération du nom de la table temporaire
Affectation au recordSql temporaire du nom
Lecture de la table temporaire