Exemple fonction et procédures
- Bertrand Littel
Owned by Bertrand Littel
Rappel : pour obtenir ce listing, appelez le a5pmtab.dhop en ligne de commande. Voir ici pour plus de détails A quoi sert A5PMTAB | Liste des fonctions et procédures appelées
;*
Function int DefProcSaisie_xxx_AvantBoucle(&ToucheInitiale,&ArretInitial,&ToucheFinale,&ArretFinal)
;*
; parametres de la fonction
1 ToucheInitiale X = 0
1 ArretInitial L = 0
1 ToucheFinale L = 0
1 ArretFinal L = 0
beginf
freturn (0)
endf
;*
Function int DefProcInterro_xxx_AvantBoucle(&ToucheInitiale,&ArretInitial,&ToucheFinale,&ArretFinal)
;*
; parametres de la fonction
1 ToucheInitiale X = 0
1 ArretInitial L = 0
1 ToucheFinale L = 0
1 ArretFinal L = 0
beginf
freturn (0)
endf
;*
Function int DefProcSaisie_AvantBoucle(Id,&ToucheInitiale,&ArretInitial,&ToucheFinale,&ArretFinal)
;*
; parametres de la fonction
1 Id L
1 ToucheInitiale X = 0
1 ArretInitial L = 0
1 ToucheFinale L = 0
1 ArretFinal L = 0
beginf
freturn (0)
endf
;*
Function int DefProcInterro_AvantBoucle(Id,&ToucheInitiale,&ArretInitial,&ToucheFinale,&ArretFinal)
;*
; parametres de la fonction
1 Id L
1 ToucheInitiale X = 0
1 ArretInitial L = 0
1 ToucheFinale L = 0
1 ArretFinal L = 0
beginf
freturn (0)
endf
;*
Function int DefProcSaisie_xxx_Pilotage(&ToucheInitiale,&ArretInitial,&ToucheFinale,&ArretFinal)
;*
; parametres de la fonction
1 ToucheInitiale X = 0
1 ArretInitial L = 0
1 ToucheFinale L = 0
1 ArretFinal L = 0
beginf
freturn (0)
endf
;*
Function int DefProcInterro_xxx_Pilotage(&ToucheInitiale,&ArretInitial,&ToucheFinale,&ArretFinal)
;*
; parametres de la fonction
1 ToucheInitiale X = 0
1 ArretInitial L = 0
1 ToucheFinale L = 0
1 ArretFinal L = 0
beginf
freturn (0)
endf
;*
Function int DefProcSaisie_Pilotage(Id,&ToucheInitiale,&ArretInitial,&ToucheFinale,&ArretFinal)
;*
; parametres de la fonction
1 Id L
1 ToucheInitiale X = 0
1 ArretInitial L = 0
1 ToucheFinale L = 0
1 ArretFinal L = 0
beginf
freturn (0)
endf
;*
Function int DefProcInterro_Pilotage(Id,&ToucheInitiale,&ArretInitial,&ToucheFinale,&ArretFinal)
;*
; parametres de la fonction
1 Id L
1 ToucheInitiale X = 0
1 ArretInitial L = 0
1 ToucheFinale L = 0
1 ArretFinal L = 0
beginf
freturn (0)
endf
;*
Function int DefProcSaisie_xxx_AvantConsult
;*
beginf
freturn (0)
endf
;*
Function int DefProcInterro_xxx_AvantConsult
;*
beginf
freturn (0)
endf
;*
Function int DefProcSaisie_AvantConsult(Id)
;*
1 Id L
beginf
freturn (0)
endf
;*
Function int DefProcInterro_AvantConsult(Id)
;*
1 Id L
beginf
freturn (0)
endf
;*
Function int DefProcSaisie_xxx_ArretSpecifique(&Sortie)
;*
1 Sortie B = False
1 Retour L = 0
beginf
freturn (Retour)
endf
;*
Function int DefProcInterro_xxx_ArretSpecifique(&Sortie)
;*
1 Sortie B = False
1 Retour L = 0
beginf
freturn (Retour)
endf
;*
Function int DefProcSaisie_ArretSpecifique(Id,&Sortie)
;*
1 Id L
1 Sortie B = False
1 Retour L = 0
beginf
freturn (Retour)
endf
;*
Function int DefProcInterro_ArretSpecifique(Id,&Sortie)
;*
1 Id L
1 Sortie B = False
1 Retour L = 0
beginf
freturn (Retour)
endf
;*
Function int DefProcSaisie_xxx_Abandon
;*
beginf
freturn (0)
endf
;*
Function int DefProcInterro_xxx_Abandon
;*
beginf
freturn (0)
endf
;*
Function int DefProcSaisie_Abandon(Id)
;*
1 Id L
beginf
freturn (0)
endf
;*
Function int DefProcInterro_Abandon(Id)
;*
1 Id L
beginf
freturn (0)
endf
;*
Function int DefProcSaisie_xxx_Validation
;*
beginf
freturn (0)
endf
;*
Function int DefProcInterro_xxx_Validation
;*
beginf
freturn (0)
endf
;*
Function int DefProcSaisie_Validation(Id)
;*
1 Id L
beginf
freturn (0)
endf
;*
Function int DefProcInterro_Validation(Id)
;*
1 Id L
beginf
freturn (0)
endf
;*
Function int DefProcSaisie_xxx_ModeFiche
;*
beginf
freturn (0)
endf
;*
Function int DefProcInterro_xxx_ModeFiche
;*
beginf
freturn (0)
endf
;*
Function int DefProcSaisie_ModeFiche(Id)
;*
1 Id L
beginf
freturn (0)
endf
;*
Function int DefProcInterro_ModeFiche(Id)
;*
1 Id L
beginf
freturn (0)
endf
;*
Function int DefProcSaisie_xxx_Precedent
;*
beginf
freturn (0)
endf
;*
Function int DefProcInterro_xxx_Precedent
;*
beginf
freturn (0)
endf
;*
Function int DefProcSaisie_Precedent(Id)
;*
1 Id L
beginf
freturn (0)
endf
;*
Function int DefProcInterro_Precedent(Id)
;*
1 Id L
beginf
freturn (0)
endf
;*
Function int DefProcSaisie_xxx_Suivant
;*
beginf
freturn (0)
endf
;*
Function int DefProcInterro_xxx_Suivant
;*
beginf
freturn (0)
endf
;*
Function int DefProcSaisie_Suivant(Id)
;*
1 Id L
beginf
freturn (0)
endf
;*
Function int DefProcInterro_Suivant(Id)
;*
1 Id L
beginf
freturn (0)
endf
;*
Function int DefProcSaisie_xxx_Defaut(&Ligne,&Ascenseur,&Privilege,&selection,&perso)
;*
1 Ligne A ; enregistrement ligne du tableau
Record ddsys.dhsd ScrollBar32 Ascenseur ; ascenseur vertical associé au tableau
1 Privilege L ; privilege à passer à XmeListConsultDefProc
1 Selection B ; Gestion de la multiselection
1 Perso B ; personnalisation des fonctions defproc ...
1 Fini B = 0
beginf
XmeListConsultDefault (Id, Ligne, Ascenseur, Privilege, Selection, Perso, MessInhibes = DEFPROC_MESS_SUPPRESSION + DEFPROC_MESS_SUPPRESSION_SELECTION)
freturn (Fini)
endf
;*
Function int DefProcInterro_xxx_Defaut(&Ligne,&Ascenseur,&Privilege,&selection,&perso)
;*
1 Ligne A ; enregistrement ligne du tableau
Record ddsys.dhsd ScrollBar32 Ascenseur ; ascenseur vertical associé au tableau
1 Privilege L ; privilege à passer à XmeListConsultDefProc
1 Selection B ; Gestion de la multiselection
1 Perso B ; personnalisation des fonctions defproc ...
1 Fini B = 0
beginf
XmeListConsultDefault (Id, Ligne, Ascenseur, Privilege, Selection, Perso, MessInhibes = DEFPROC_MESS_SUPPRESSION + DEFPROC_MESS_SUPPRESSION_SELECTION)
freturn (Fini)
endf
;*
Function int DefProcSaisie_Defaut(Id,&Ligne,&Ascenseur,&Privilege,&selection,&perso)
;*
1 Id L
1 Ligne A ; enregistrement ligne du tableau
Record ddsys.dhsd ScrollBar32 Ascenseur ; ascenseur vertical associé au tableau
1 Privilege L ; privilege à passer à XmeListConsultDefProc
1 Selection B ; Gestion de la multiselection
1 Perso B ; personnalisation des fonctions defproc ...
1 Fini B = 0
beginf
XmeListConsultDefault (Id, Ligne, Ascenseur, Privilege, Selection, Perso, MessInhibes = DEFPROC_MESS_SUPPRESSION + DEFPROC_MESS_SUPPRESSION_SELECTION)
freturn (Fini)
endf
;*
Function int DefProcInterro_Defaut(Id,&Ligne,&Ascenseur,&Privilege,&selection,&perso)
;*
1 Id L
1 Ligne A ; enregistrement ligne du tableau
Record ddsys.dhsd ScrollBar32 Ascenseur ; ascenseur vertical associé au tableau
1 Privilege L ; privilege à passer à XmeListConsultDefProc
1 Selection B ; Gestion de la multiselection
1 Perso B ; personnalisation des fonctions defproc ...
1 Fini B = 0
beginf
XmeListConsultDefault (Id, Ligne, Ascenseur, Privilege, Selection, Perso, MessInhibes = DEFPROC_MESS_SUPPRESSION + DEFPROC_MESS_SUPPRESSION_SELECTION)
freturn (Fini)
endf
;*
(XMT) Procedure DefProcSaisie_xxx_Defaut
;*
beginp
endp
;*
(XMT) Procedure DefProcInterro_xxx_Defaut
;*
beginp
endp
;*
(XMT) Procedure DefProcSaisie_Defaut
;*
beginp
endp
;*
(XMT) Procedure DefProcInterro_Defaut
;*
beginp
endp
;*
Function Int DefProcSaisie_xxx_Apres
;*
beginf
freturn (0)
endf
;*
Function Int DefProcInterro_xxx_Apres
;*
beginf
freturn (0)
endf
;*
Function Int DefProcSaisie_Apres(Id)
;*
1 Id L
beginf
freturn (0)
endf
;*
Function Int DefProcInterro_Apres(Id)
;*
1 Id L
beginf
freturn (0)
endf
;*
(XMT) Procedure DefProcSaisie_xxx_Apres
;*
beginp
endp
;*
(XMT) Procedure DefProcInterro_xxx_Apres
;*
beginp
endp
;*
(XMT) Procedure DefProcSaisie_Apres
;*
beginp
endp
;*
(XMT) Procedure DefProcInterro_Apres
;*
beginp
endp
;*
Function Int DefProcSaisie_xxx_Fin
;*
beginf
freturn (0)
endf
;*
Function Int DefProcInterro_xxx_Fin
;*
beginf
freturn (0)
endf
;*
Function Int DefProcSaisie_Fin(Id)
;*
1 Id L
beginf
freturn (0)
endf
;*
Function Int DefProcInterro_Fin(Id)
;*
1 Id L
beginf
freturn (0)
endf
;*
Function Int DefProcSaisie_xxx_F11
;*
beginf
freturn (0)
endf
;*
Function Int DefProcInterro_xxx_F11
;*
beginf
freturn (0)
endf
;*
Function Int DefProcSaisie_F11(Id)
;*
1 Id L
beginf
freturn (0)
endf
;*
Function Int DefProcInterro_F11(Id)
;*
1 Id L
beginf
freturn (0)
endf
;*
Function Int DefProcSaisie_xxx_InitColRecherche(&Colonne)
;*
1 Colonne 100 ; numéros de colonnes, séparées par des ; exemple : '2;3;4' ou '2;3;5'
1 Retour 1,0 = 0
beginf
freturn (Retour)
endf
;*
Function Int DefProcInterro_xxx_InitColRecherche(&Colonne)
;*
1 Colonne 100 ; numéros de colonnes, séparées par des ; exemple : '2;3;4' ou '2;3;5'
1 Retour 1,0 = 0
beginf
freturn (Retour)
endf
;*
Function Int DefProcSaisie_InitColRecherche(Id,&Colonne)
;*
1 Id L
1 Colonne 100 ; numéros de colonnes, séparées par des ; exemple : '2;3;4' ou '2;3;5'
1 Retour 1,0 = 0
beginf
freturn (Retour)
endf
;*
Function Int DefProcInterro_InitColRecherche(Id,&Colonne)
;*
1 Id L
1 Colonne 100 ; numéros de colonnes, séparées par des ; exemple : '2;3;4' ou '2;3;5'
1 Retour 1,0 = 0
beginf
freturn (Retour)
endf
;*
Function Char DefProcSaisie_xxx_Recherche(&Ligne,&Ascenseur)
;*
1 Ligne A
record ddsys.dhsd scrollbar32 scrollbar32
beginf
Freturn(' ')
endf
;*
Function Char DefProcInterro_xxx_Recherche(&Ligne,&Ascenseur)
;*
1 Ligne A
record ddsys.dhsd scrollbar32 scrollbar32
beginf
Freturn(' ')
endf
;*
Function Char DefProcSaisie_Recherche(Id,&Ligne,&Ascenseur)
;*
1 Id L
1 Ligne A
record ddsys.dhsd scrollbar32 scrollbar32
beginf
Freturn(' ')
endf
;*
Function Char DefProcInterro_Recherche(Id,&Ligne,&Ascenseur)
;*
1 Id L
1 Ligne A
record ddsys.dhsd scrollbar32 scrollbar32
beginf
Freturn(' ')
endf
;*
Function Int DefProcSaisie_xxx_InitTri(&Colonne)
;*
1 Colonne 100 ; numéros de colonnes, séparées par des ; exemple : '2;3;4' ou '2;3;5'
1 Retour 1,0 = 0
beginf
freturn (Retour)
endf
;*
Function Int DefProcInterro_xxx_InitTri(&Colonne)
;*
1 Colonne 100 ; numéros de colonnes, séparées par des ; exemple : '2;3;4' ou '2;3;5'
1 Retour 1,0 = 0
beginf
freturn (Retour)
endf
;*
Function Int DefProcSaisie_InitTri(Id,&Colonne)
;*
1 Id L
1 Colonne 100 ; numéros de colonnes, séparées par des ; exemple : '2;3;4' ou '2;3;5'
1 Retour 1,0 = 0
beginf
freturn (Retour)
endf
;*
Function Int DefProcInterro_InitTri(Id,&Colonne)
;*
1 Id L
1 Colonne 100 ; numéros de colonnes, séparées par des ; exemple : '2;3;4' ou '2;3;5'
1 Retour 1,0 = 0
beginf
freturn (Retour)
endf
;*
Function Int DefProcSaisie_xxx_Init_Protection_Export
;*
beginf
freturn (0)
endf
;*
Function Int DefProcInterro_xxx_Init_Protection_Export
;*
beginf
freturn (0)
endf
;*
Function Int DefProcSaisie_Init_Protection_Export(Id)
;*
1 Id L
beginf
freturn (0)
endf
;*
Function Int DefProcInterro_Init_Protection_Export(Id)
;*
1 Id L
beginf
freturn (0)
endf
;*
Function Int DefProcSaisie_xxx_InitFiltre
;*
beginf
freturn (0)
endf
;*
Function Int DefProcInterro_xxx_InitFiltre
;*
beginf
freturn (0)
endf
;*
Function Int DefProcSaisie_InitFiltre(Id)
;*
1 Id L
beginf
freturn (0)
endf
;*
Function Int DefProcInterro_InitFiltre(Id)
;*
1 Id L
beginf
freturn (0)
endf
;*
Function Int DefProcSaisie_xxx_InitOption
;*
beginf
freturn (0)
endf
;*
Function Int DefProcInterro_xxx_InitOption
;*
beginf
freturn (0)
endf
;*
Function Int DefProcSaisie_InitOption(Id)
;*
1 Id L
beginf
freturn (0)
endf
;*
Function Int DefProcInterro_InitOption(Id)
;*
1 Id L
beginf
freturn (0)
endf
;*
Function Int DefProcSaisie_xxx_Charger_Dynamique_debut
;*
beginf
freturn (0)
endf
;*
Function Int DefProcInterro_xxx_Charger_Dynamique_debut
;*
beginf
freturn (0)
endf
;*
Function Int DefProcSaisie_Charger_Dynamique_debut(Id)
;*
1 Id L
beginf
freturn (0)
endf
;*
Function Int DefProcInterro_Charger_Dynamique_debut(Id)
;*
1 Id L
beginf
freturn (0)
endf
;*
Function Int DefProcSaisie_xxx_Charger_Dynamique_fin
;*
beginf
freturn (0)
endf
;*
Function Int DefProcInterro_xxx_Charger_Dynamique_fin
;*
beginf
freturn (0)
endf
;*
Function Int DefProcSaisie_Charger_Dynamique_fin(Id)
;*
1 Id L
beginf
freturn (0)
endf
;*
Function Int DefProcInterro_Charger_Dynamique_fin(Id)
;*
1 Id L
beginf
freturn (0)
endf
;*
Function Int DefProcSaisie_xxx_Charger_Dynamique(&cle,Avant)
;*
1 cle 256
1 avant 1,0
1 retour 1,0 = 0
beginf
Freturn(retour)
endf
;*
Function Int DefProcInterro_xxx_Charger_Dynamique(&cle,Avant)
;*
1 cle 256
1 avant 1,0
1 retour 1,0 = 0
beginf
Freturn(retour)
endf
;*
Function Int DefProcSaisie_Charger_Dynamique(Id,&cle,Avant)
;*
1 Id L
1 cle 256
1 avant 1,0
1 retour 1,0 = 0
beginf
Freturn(retour)
endf
;*
Function Int DefProcInterro_Charger_Dynamique(Id,&cle,Avant)
;*
1 Id L
1 cle 256
1 avant 1,0
1 retour 1,0 = 0
beginf
Freturn(retour)
endf
;*
Function Int DefProcSaisie_xxx_Charger_Dynamique_SousNiveau(&nombre,&Avant)
;*
1 nombre L
1 avant 1,0
1 retour 1,0 = 0
beginf
Freturn(retour)
endf
;*
Function Int DefProcInterro_xxx_Charger_Dynamique_SousNiveau(&nombre,&Avant)
;*
1 nombre L
1 avant 1,0
1 retour 1,0 = 0
beginf
Freturn(retour)
endf
;*
Function Int DefProcSaisie_Charger_Dynamique_SousNiveau(Id,&nombre,&Avant)
;*
1 Id L
1 nombre L
1 avant 1,0
1 retour 1,0 = 0
beginf
Freturn(retour)
endf
;*
Function Int DefProcInterro_Charger_Dynamique_SousNiveau(Id,&nombre,&Avant)
;*
1 Id L
1 nombre L
1 avant 1,0
1 retour 1,0 = 0
beginf
Freturn(retour)
endf
;*
Function Int DefProcSaisie_xxx_Charger
;*
beginf
freturn (0)
endf
;*
Function Int DefProcInterro_xxx_Charger
;*
beginf
freturn (0)
endf
;*
Function Int DefProcSaisie_Charger(Id)
;*
1 Id L
beginf
freturn (0)
endf
;*
Function Int DefProcInterro_Charger(Id)
;*
1 Id L
beginf
freturn (0)
endf
;*
Function Int DefProcSaisie_xxx_Charger_Dynamique_Debut_Init
;*
beginf
freturn (0)
endf
;*
Function Int DefProcInterro_xxx_Charger_Dynamique_Debut_Init
;*
beginf
freturn (0)
endf
;*
Function Int DefProcSaisie_Charger_Dynamique_Debut_Init(Id)
;*
1 Id L
beginf
freturn (0)
endf
;*
Function Int DefProcInterro_Charger_Dynamique_Debut_Init(Id)
;*
1 Id L
beginf
freturn (0)
endf
;*
Function Int DefProcSaisie_xxx_Charger_Dynamique_Fin_Init
;*
beginf
freturn (0)
endf
;*
Function Int DefProcInterro_xxx_Charger_Dynamique_Fin_Init
;*
beginf
freturn (0)
endf
;*
Function Int DefProcSaisie_Charger_Dynamique_Fin_Init(Id)
;*
1 Id L
beginf
freturn (0)
endf
;*
Function Int DefProcInterro_Charger_Dynamique_Fin_Init(Id)
;*
1 Id L
beginf
freturn (0)
endf
;*
Function Char DefProc_xxx_Couleur_Colonne_Tableau_Actif(Actif,i)
;*
1 Actif 1,0 ; Tableau actif ou non
1 I X ; Numéro de la colonne de tableau
1 couleur >DDSYS.dhsd CoulCol ; Couleur de retour
beginf
Freturn(couleur)
endf
;*
Function Char DefProc_Couleur_Colonne_Tableau_Actif(Id,Actif,i)
;*
1 Id L
1 Actif 1,0 ; Tableau actif ou non
1 I X ; Numéro de la colonne de tableau
1 couleur >DDSYS.dhsd CoulCol ; Couleur de retour
beginf
Freturn(couleur)
endf
;*
Function Char DefProc_xxx_Image_Colonne_Etat
;*
beginf
freturn (' ')
endf
;*
Function Char DefProc_Image_Colonne_Etat(Id)
;*
1 Id L
beginf
freturn (' ')
endf
;*
Function Int DefProc_xxx_Click_Autre_Tableau(arret)
;*
1 arret >DDSYS.dhsd DataArret
1 retour 1,0= True ; False -> Interdit le passage à un autre tableau
beginf
Freturn(retour)
endf
;*
Function Int DefProc_Click_Autre_Tableau(arret)
;*
1 Id L
1 arret >DDSYS.dhsd DataArret
1 retour 1,0= True ; False -> Interdit le passage à un autre tableau
beginf
Freturn(retour)
endf
;*
Function Int DefProcSaisie_xxx_Saisie(Operation)
;*
;surcharge de xmelistconsultdefault. Retour : true si saisie validée, false si abandonnée
1 Operation B ; Type d'opération
1 Fini B ; Indicateur fin saisie tableau
1A Retour X ; Indicateur validation/abandon
beginf
; y a t il des données en saisie ?
if not XmeListInputPossible(id)
freturn(FALSE)
endif
; Saisie de la ligne
XmeListInput(id,0)
do
Switch Harmony.Key
Case Harmony.Key = K_F9
Retour = FALSE
fini = TRUE
Case HARMONY.DATAARRET = 0 And Harmony.Key In (K_F10 , K_DOWN , K_TAB)
fini = TRUE
EndSwitch
while not fini
XmeListinputNext(id,Harmony.Retour,Harmony.CplRetour)
wend
XmeListInputRet(id)
freturn(Retour)
endf
;*
Function Int DefProcSaisie(Id,Operation)
;*
;surcharge de xmelistconsultdefault. Retour : true si saisie validée, false si abandonnée
1 Id L
1 Operation B ; Type d'opération
1 Fini B ; Indicateur fin saisie tableau
1A Retour X ; Indicateur validation/abandon
beginf
; y a t il des données en saisie ?
if not XmeListInputPossible(id)
freturn(FALSE)
endif
; Saisie de la ligne
XmeListInput(id,0)
do
Switch Harmony.Key
Case Harmony.Key = K_F9
Retour = FALSE
fini = TRUE
Case HARMONY.DATAARRET = 0 And Harmony.Key In (K_F10 , K_DOWN , K_TAB)
fini = TRUE
EndSwitch
while not fini
XmeListinputNext(id,Harmony.Retour,Harmony.CplRetour)
wend
XmeListInputRet(id)
freturn(Retour)
endf
;*
Function Int DefProcSaisie_xxx_Delete(Operation)
;*
;appellé en effacement de ligne
;le retour : true si saisie validée, false si abandonnée
1 Operation B ;LIST_SUPPRESSION ou LIST_COUPER
1 Status B ; Retour de la fonction
beginf
freturn(Status)
endf
;*
Function Int DefProcDelete(Id,Operation)
;*
;appellé en effacement de ligne
;le retour : true si saisie validée, false si abandonnée
1 Id L
1 Operation B ;LIST_SUPPRESSION ou LIST_COUPER
1 Status B ; Retour de la fonction
beginf
freturn(Status)
endf
;*
Procedure DefProcSaisie_xxx_Copier
;*
beginp
endp
;*
Procedure DefProcCopier(Id)
;*
1 Id L
beginp
endp
;*
Procedure DefProcSaisie_xxx_Coller
;*
beginp
endp
;*
Procedure DefProcColler(Id)
;*
1 Id L
beginp
endp
;*
Function Int DefProcSaisie_xxx_AIV_Renvoyer_Id
;*
beginf
freturn (0)
endf
;*
Function Int DefProcSaisie_AIV_Renvoyer_Id(Id)
;*
1 Id L
beginf
freturn (0)
endf
;*
Procedure DefProcSaisie_xxx_AIV_Maj_Ligne_fonctionel(&Naiv,&Eid,&Ligne)
;*
1 Naiv >a5dd.dhsd Naiv
1 Eid >a5dd.dhsd EId
1 Ligne A
beginp
If st = 0
Eid = Ligne.IDAs ; ID de la ligne
Else
Eid = 0
EndIf
endp
;*
Procedure DefProcSaisie_AIV_Maj_Ligne_fonctionel(Id,&Naiv,&Eid,&Ligne)
;*
1 Id L
1 Naiv >a5dd.dhsd Naiv
1 Eid >a5dd.dhsd EId
1 Ligne A
beginp
If st = 0
Eid = Ligne.IDAs ; ID de la ligne
Else
Eid = 0
EndIf
endp
;*
Procedure DefProcSaisie_xxx_AIV_Maj_Ligne_tableau(&Ligne,&Idc,&Eid)
;*
1 Ligne A
1 Idc >a5dd.dhsd Idc
1 Eid >a5dd.dhsd EId
beginp
Ligne.ID = Idc ;affectation de l'ID MAIV créé à l'enreg ligne tableau
endp
;*
Procedure DefProcSaisie_AIV_Maj_Ligne_tableau(Id,&Ligne,&Idc,&Eid)
;*
1 Id L
1 Ligne A
1 Idc >a5dd.dhsd Idc
1 Eid >a5dd.dhsd EId
beginp
Ligne.ID = Idc ;affectation de l'ID MAIV créé à l'enreg ligne tableau
endp
;*
Procedure DefProcSaisie_xxx_AIV_Sup_Branche_fonctionel(BorneGa,BorneDr)
;*
1 BorneGa >a5dd.dhsd BorneGa
1 BorneDr >a5dd.dhsd BorneDr
beginp
endp
;*
Procedure DefProcSaisie_AIV_Sup_Branche_fonctionel(Id,BorneGa,BorneDr)
;*
1 Id L
1 BorneGa >a5dd.dhsd BorneGa
1 BorneDr >a5dd.dhsd BorneDr
beginp
endp
;*
Procedure DefProc_xxx_DeploiementNiveaux_Maj
;*
beginp
endp
;*
Procedure DefProc_DeploiementNiveaux_Maj(Id)
;*
1 Id L
beginp
endp
;*
Procedure DefProc_xxx_Couleur_Tableau_Actif(Actif)
;*
1 Actif 1,0 ; Tableau actif ou non
beginp
if actif = True
XmeListSetSelectionOption (Id,3) ;image bitmap + couleur
else
XmeListSetSelectionOption (Id,2) ;image bitmap
endif
endp
;*
Procedure DefProc_Couleur_Tableau_Actif(Id,Actif)
;*
1 Id L
1 Actif 1,0 ; Tableau actif ou non
beginp
if actif = True
XmeListSetSelectionOption (Id,3) ;image bitmap + couleur
else
XmeListSetSelectionOption (Id,2) ;image bitmap
endif
endp
;*
Procedure DefProc_xxx_TriAvant
;*
beginp
endp
;*
Procedure DefProcTriAvant(Id)
;*
1 Id L
beginp
endp
;*
Procedure DefProc_xxx_TriApres
;*
beginp
endp
;*
Procedure DefProcTriApres(Id)
;*
1 Id L
beginp
endp
;*
Procedure DefProc_xxx_TriSelectionNiveau(&Ligne)
;*
1 Ligne A
1 BorneGa >a5dd.dhsd BorneGa
1 BorneDr >a5dd.dhsd BorneDr
beginp
endp
;*
Procedure DefProcTriSelectionNiveau(Id,&Ligne)
;*
1 Id L
1 Ligne A
1 BorneGa >a5dd.dhsd BorneGa
1 BorneDr >a5dd.dhsd BorneDr
beginp
endp
;*
Procedure DefProc_xxx_TriTraiterNiveau(&Ligne)
;*
1 Ligne A
beginp
endp
;*
Procedure DefProcTriTraiterNiveau(Id,&Ligne)
;*
1 Id L
1 Ligne A
beginp
endp
;*
Procedure DefProc_xxx_TriAvantNiveau(&Ligne,Niveau,NivMax)
;*
1 Ligne A
1 Niveau N
1 NivMax N
beginp
endp
;*
Procedure DefProcTriAvantNiveau(Id,&Ligne,Niveau,NivMax)
;*
1 Id L
1 Ligne A
1 Niveau N
1 NivMax N
beginp
endp
;*
Procedure DefProc_xxx_TriAvantErase
;*
beginp
endp
;*
Procedure DefProcTriAvantErase(Id)
;*
1 Id L
beginp
endp
;*
Procedure DefProc_xxx_TriLecturElemTrie(Ligne)
;*
1 Ligne A
beginp
endp
;*
Procedure DefProcTriLecturElemTrie(Id,Ligne)
;*
1 Id L
1 Ligne A
beginp
endp
;*
Procedure DefProcSaisie_xxx_Expanser
;*
beginp
endp
;*
Procedure DefProcExpanser(Id)
;*
1 Id L
beginp
endp
;*
Function Int DefProc_xxx_List_Height_Changing
;*
beginf
freturn (0)
endf
;*
Function Int DefProc_List_Height_Changing(Id)
;*
1 Id L
beginf
freturn (0)
endf
;*
Procedure DefProcSaisie_xxx_Lecture_Ligne_tableau_Av(&Ligne)
;*
; Procédure appelée après la lecture de l'enreg dans la liste et avant le test rupture
1 Ligne A
beginp
endp
;*
Procedure DefProcInterro_xxx_Lecture_Ligne_tableau_Av(&Ligne)
;*
; Procédure appelée après la lecture de l'enreg dans la liste et avant le test rupture
1 Ligne A
beginp
endp
;*
Procedure DefProcSaisie_Lecture_Ligne_tableau_Av(Id,&Ligne)
;*
; Procédure appelée après la lecture de l'enreg dans la liste et avant le test rupture
1 Id L
1 Ligne A
beginp
endp
;*
Procedure DefProcInterro_Lecture_Ligne_tableau_Av(Id,&Ligne)
;*
; Procédure appelée après la lecture de l'enreg dans la liste et avant le test rupture
1 Id L
1 Ligne A
beginp
endp
;*
Procedure DefProcSaisie_xxx_Lecture_Ligne_tableau_Ap(&Ligne)
;*
; Procédure appelée après la lecture de l'enreg dans la liste et apres le test rupture
1 Ligne A
beginp
endp
;*
Procedure DefProcInterro_xxx_Lecture_Ligne_tableau_Ap(&Ligne)
;*
; Procédure appelée après la lecture de l'enreg dans la liste et apres le test rupture
1 Ligne A
beginp
endp
;*
Procedure DefProcSaisie_Lecture_Ligne_tableau_Ap(Id,&Ligne)
;*
; Procédure appelée après la lecture de l'enreg dans la liste et apres le test rupture
1 Id L
1 Ligne A
beginp
endp
;*
Procedure DefProcInterro_Lecture_Ligne_tableau_Ap(Id,&Ligne)
;*
; Procédure appelée après la lecture de l'enreg dans la liste et apres le test rupture
1 Id L
1 Ligne A
beginp
endp
;*
Procedure DefProcSaisie_xxx_Rupture_Ligne_tableau(&Niv,&Ligne)
;*
; Procédure appelée pour ajouter un niveau avec le niveau détécté fourni en paramètre et l'enreg
; Elle permet d'alimenter les données du niveau qui va être inséré
; C'est à nous de savoir à quoi correspond chaque niveau 1, 2 ou 3 et d'alimenter les données en fonction
; Si le Niv retourné est a 0, il n'y aura pas d'ajout dans la Xmelist
; Mise en route préalable :
; Dans DefprocSaisie_xxx_Charger:
; AP_Init_Liste_rupture(id)
; AP_Ajouter_Liste_rupture(id,1,Ligne.colonne)
; AP_Ajouter_Liste_rupture(id,2,Ligne.colonne)
; AP_Ajouter_Liste_rupture(id,3,Ligne.colonne)
; AP_Ajouter_Niveau_rupture(id)
1 Niv L
1 Ligne A
beginp
endp
;*
Procedure DefProcInterro_xxx_Rupture_Ligne_tableau(&Niv,&Ligne)
;*
; Procédure appelée pour ajouter un niveau avec le niveau détécté fourni en paramètre et l'enreg
; Elle permet d'alimenter les données du niveau qui va être inséré
; C'est à nous de savoir à quoi correspond chaque niveau 1, 2 ou 3 et d'alimenter les données en fonction
; Si le Niv retourné est a 0, il n'y aura pas d'ajout dans la Xmelist
; Mise en route préalable :
; Dans DefprocSaisie_xxx_Charger:
; AP_Init_Liste_rupture(id)
; AP_Ajouter_Liste_rupture(id,1,Ligne.colonne)
; AP_Ajouter_Liste_rupture(id,2,Ligne.colonne)
; AP_Ajouter_Liste_rupture(id,3,Ligne.colonne)
; AP_Ajouter_Niveau_rupture(id)
1 Niv L
1 Ligne A
beginp
endp
;*
Procedure DefProcSaisie_Rupture_Ligne_tableau(Id,&Niv,&Ligne)
;*
; Procédure appelée pour ajouter un niveau avec le niveau détécté fourni en paramètre et l'enreg
; Elle permet d'alimenter les données du niveau qui va être inséré
; C'est à nous de savoir à quoi correspond chaque niveau 1, 2 ou 3 et d'alimenter les données en fonction
; Si le Niv retourné est a 0, il n'y aura pas d'ajout dans la Xmelist
; Mise en route préalable :
; Dans DefprocSaisie_xxx_Charger:
; AP_Init_Liste_rupture(id)
; AP_Ajouter_Liste_rupture(id,1,Ligne.colonne)
; AP_Ajouter_Liste_rupture(id,2,Ligne.colonne)
; AP_Ajouter_Liste_rupture(id,3,Ligne.colonne)
; AP_Ajouter_Niveau_rupture(id)
1 Id L
1 Niv L
1 Ligne A
beginp
endp
;*
Procedure DefProcInterro_Rupture_Ligne_tableau(Id,&Niv,&Ligne)
;*
; Procédure appelée pour ajouter un niveau avec le niveau détécté fourni en paramètre et l'enreg
; Elle permet d'alimenter les données du niveau qui va être inséré
; C'est à nous de savoir à quoi correspond chaque niveau 1, 2 ou 3 et d'alimenter les données en fonction
; Si le Niv retourné est a 0, il n'y aura pas d'ajout dans la Xmelist
; Mise en route préalable :
; Dans DefprocSaisie_xxx_Charger:
; AP_Init_Liste_rupture(id)
; AP_Ajouter_Liste_rupture(id,1,Ligne.colonne)
; AP_Ajouter_Liste_rupture(id,2,Ligne.colonne)
; AP_Ajouter_Liste_rupture(id,3,Ligne.colonne)
; AP_Ajouter_Niveau_rupture(id)
1 Id L
1 Niv L
1 Ligne A
beginp
endp
;*
Procedure DefProcSaisie_xxx_Rupture_Ligne_tableau_Av(&Ligne)
;*
; Procédure appelée si detection de rupture avant la gestion de la rupture
1 Ligne A
beginp
endp
;*
Procedure DefProcInterro_xxx_Rupture_Ligne_tableau_Av(&Ligne)
;*
; Procédure appelée si detection de rupture avant la gestion de la rupture
1 Ligne A
beginp
endp
;*
Procedure DefProcSaisie_Rupture_Ligne_tableau_Av(Id,&Ligne)
;*
; Procédure appelée si detection de rupture avant la gestion de la rupture
1 Id L
1 Ligne A
beginp
endp
;*
Procedure DefProcInterro_Rupture_Ligne_tableau_Av(Id,&Ligne)
;*
; Procédure appelée si detection de rupture avant la gestion de la rupture
1 Id L
1 Ligne A
beginp
endp
;*
Procedure DefProcSaisie_xxx_Rupture_Ligne_tableau_Ap(&Ligne)
;*
; Procédure appelée si detection de rupture apres la gestion de la rupture
1 Ligne A
beginp
endp
;*
Procedure DefProcInterro_xxx_Rupture_Ligne_tableau_Ap(&Ligne)
;*
; Procédure appelée si detection de rupture apres la gestion de la rupture
1 Ligne A
beginp
endp
;*
Procedure DefProcSaisie_Rupture_Ligne_tableau_Ap(Id,&Ligne)
;*
; Procédure appelée si detection de rupture apres la gestion de la rupture
1 Id L
1 Ligne A
beginp
endp
;*
Procedure DefProcInterro_Rupture_Ligne_tableau_Ap(Id,&Ligne)
;*
; Procédure appelée si detection de rupture apres la gestion de la rupture
1 Id L
1 Ligne A
beginp
endp