1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60
| Declaration globale de PAGE_AppelsEntrants
NbrEnr est un entier
gnNbrLigneTable est un entier
gnNbrConceptSelect est un entier
gnNbrDASelect est un entier
gnNbrPanneSelect est un entier
gsConceptSelect est une chaîne
gsDASelect est une chaîne
gsPanneSelect est une chaîne
idr est un entier
nIndLAdd est un entier = 0
gnIDSite est un entier
gnIDReg est un entier
NB_sT est un entier
gnIDTech est un entier
NB_Tec est un entier
STTabStat est une structure
ptabNom_St est tableau dynamique
ptabId_Stat est un tableau dynamique
IDWGestProt est tableau dynamique
ID_Region est tableau dynamique
ID_Technicien est un tableau dynamique
FIN
gbTab_ListeStation est un STTabStat
Initialisation de PAGE_AppelsEntrants
HOuvre(Station,"XXX",hOLecture)
HLitPremier(Station,IDStation,hBlocageNon)
NB_sT = HNbEnr(Station)
nInd_S est un entier = 1
gbTab_ListeStation.ptabId_Stat = allouer un tableau de NB_sT entiers
gbTab_ListeStation.ptabNom_St = allouer un tableau de NB_sT chaînes
gbTab_ListeStation.IDWGestProt = allouer un tableau de NB_sT entiers
gbTab_ListeStation.ID_Region = allouer un tableau de NB_sT entiers
gbTab_ListeStation.ID_Technicien = allouer un tableau de NB_sT entiers
TANTQUE HTrouve(Station)
gbTab_ListeStation.ptabId_Stat[nInd_S] = Station.IDStation
gbTab_ListeStation.ptabNom_St[nInd_S] = Station.Nom_Station
gbTab_ListeStation.IDWGestProt[nInd_S] = Station.IDWGestProt
gbTab_ListeStation.ID_Region[nInd_S] = Station.Region
gbTab_ListeStation.ID_Technicien[nInd_S] = Station.IdTechnicien
nInd_S = nInd_S + 1
HLitSuivant(Station,IDStation,hBlocageNon)
//trace (Station.Nom_Station)
FIN
HFerme(Station)
Fin d’initialisation de Table_AppEnt //La table auto-alimentée
TableTrie(TABLE_AppEnt,"-Date","-Heure") |
Partager