...
| Bloc de code |
|---|
;* Function int DefProcSaisie_G1T1xxx_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_G1T1xxx_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_G1T1xxx_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_G1T1xxx_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_G1T1xxx_AvantConsult ;* beginf freturn (0) endf ;* Function int DefProcInterro_G1T1xxx_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_G1T1xxx_ArretSpecifique(&Sortie) ;* 1 Sortie B = False 1 Retour L = 0 beginf freturn (Retour) endf ;* Function int DefProcInterro_G1T1xxx_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_G1T1xxx_Abandon ;* beginf freturn (0) endf ;* Function int DefProcInterro_G1T1xxx_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_G1T1xxx_Validation ;* beginf freturn (0) endf ;* Function int DefProcInterro_G1T1xxx_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_G1T1xxx_ModeFiche ;* beginf freturn (0) endf ;* Function int DefProcInterro_G1T1xxx_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_G1T1xxx_Precedent ;* beginf freturn (0) endf ;* Function int DefProcInterro_G1T1xxx_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_G1T1xxx_Suivant ;* beginf freturn (0) endf ;* Function int DefProcInterro_G1T1xxx_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_G1T1xxx_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_G1T1xxx_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_G1T1xxx_Defaut ;* beginp endp ;* (XMT) Procedure DefProcInterro_G1T1xxx_Defaut ;* beginp endp ;* (XMT) Procedure DefProcSaisie_Defaut ;* beginp endp ;* (XMT) Procedure DefProcInterro_Defaut ;* beginp endp ;* Function Int DefProcSaisie_G1T1xxx_Apres ;* beginf freturn (0) endf ;* Function Int DefProcInterro_G1T1xxx_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_G1T1xxx_Apres ;* beginp endp ;* (XMT) Procedure DefProcInterro_G1T1xxx_Apres ;* beginp endp ;* (XMT) Procedure DefProcSaisie_Apres ;* beginp endp ;* (XMT) Procedure DefProcInterro_Apres ;* beginp endp ;* Function Int DefProcSaisie_G1T1xxx_Fin ;* beginf freturn (0) endf ;* Function Int DefProcInterro_G1T1xxx_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_G1T1xxx_F11 ;* beginf freturn (0) endf ;* Function Int DefProcInterro_G1T1xxx_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_G1T1xxx_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_G1T1xxx_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_G1T1xxx_Recherche(&Ligne,&Ascenseur) ;* 1 Ligne A record ddsys.dhsd scrollbar32 scrollbar32 beginf Freturn(' ') endf ;* Function Char DefProcInterro_G1T1xxx_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_G1T1xxx_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_G1T1xxx_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_G1T1xxx_Init_Protection_Export ;* beginf freturn (0) endf ;* Function Int DefProcInterro_G1T1xxx_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_G1T1xxx_InitFiltre ;* beginf freturn (0) endf ;* Function Int DefProcInterro_G1T1xxx_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_G1T1xxx_InitOption ;* beginf freturn (0) endf ;* Function Int DefProcInterro_G1T1xxx_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_G1T1xxx_Charger_Dynamique_debut ;* beginf freturn (0) endf ;* Function Int DefProcInterro_G1T1xxx_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_G1T1xxx_Charger_Dynamique_fin ;* beginf freturn (0) endf ;* Function Int DefProcInterro_G1T1xxx_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_G1T1xxx_Charger_Dynamique(&cle,Avant) ;* 1 cle 256 1 avant 1,0 1 retour 1,0 = 0 beginf Freturn(retour) endf ;* Function Int DefProcInterro_G1T1xxx_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_G1T1xxx_Charger_Dynamique_SousNiveau(&nombre,&Avant) ;* 1 nombre L 1 avant 1,0 1 retour 1,0 = 0 beginf Freturn(retour) endf ;* Function Int DefProcInterro_G1T1xxx_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_G1T1xxx_Charger ;* beginf freturn (0) endf ;* Function Int DefProcInterro_G1T1xxx_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_G1T1xxx_Charger_Dynamique_Debut_Init ;* beginf freturn (0) endf ;* Function Int DefProcInterro_G1T1xxx_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_G1T1xxx_Charger_Dynamique_Fin_Init ;* beginf freturn (0) endf ;* Function Int DefProcInterro_G1T1xxx_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_G1T1xxx_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_G1T1xxx_Image_Colonne_Etat ;* beginf freturn (' ') endf ;* Function Char DefProc_Image_Colonne_Etat(Id) ;* 1 Id L beginf freturn (' ') endf ;* Function Int DefProc_G1T1xxx_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_G1T1xxx_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_G1T1xxx_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_G1T1xxx_Copier ;* beginp endp ;* Procedure DefProcCopier(Id) ;* 1 Id L beginp endp ;* Procedure DefProcSaisie_G1T1xxx_Coller ;* beginp endp ;* Procedure DefProcColler(Id) ;* 1 Id L beginp endp ;* Function Int DefProcSaisie_G1T1xxx_AIV_Renvoyer_Id ;* beginf freturn (0) endf ;* Function Int DefProcSaisie_AIV_Renvoyer_Id(Id) ;* 1 Id L beginf freturn (0) endf ;* Procedure DefProcSaisie_G1T1xxx_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_G1T1xxx_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_G1T1xxx_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_G1T1xxx_DeploiementNiveaux_Maj ;* beginp endp ;* Procedure DefProc_DeploiementNiveaux_Maj(Id) ;* 1 Id L beginp endp ;* Procedure DefProc_G1T1xxx_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_G1T1xxx_TriAvant ;* beginp endp ;* Procedure DefProcTriAvant(Id) ;* 1 Id L beginp endp ;* Procedure DefProc_G1T1xxx_TriApres ;* beginp endp ;* Procedure DefProcTriApres(Id) ;* 1 Id L beginp endp ;* Procedure DefProc_G1T1xxx_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_G1T1xxx_TriTraiterNiveau(&Ligne) ;* 1 Ligne A beginp endp ;* Procedure DefProcTriTraiterNiveau(Id,&Ligne) ;* 1 Id L 1 Ligne A beginp endp ;* Procedure DefProc_G1T1xxx_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_G1T1xxx_TriAvantErase ;* beginp endp ;* Procedure DefProcTriAvantErase(Id) ;* 1 Id L beginp endp ;* Procedure DefProc_G1T1xxx_TriLecturElemTrie(Ligne) ;* 1 Ligne A beginp endp ;* Procedure DefProcTriLecturElemTrie(Id,Ligne) ;* 1 Id L 1 Ligne A beginp endp ;* Procedure DefProcSaisie_G1T1xxx_Expanser ;* beginp endp ;* Procedure DefProcExpanser(Id) ;* 1 Id L beginp endp ;* Function Int DefProc_G1T1xxx_List_Height_Changing ;* beginf freturn (0) endf ;* Function Int DefProc_List_Height_Changing(Id) ;* 1 Id L beginf freturn (0) endf ;* Procedure DefProcSaisie_G1T1xxx_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_G1T1xxx_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_G1T1xxx_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_G1T1xxx_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_G1T1xxx_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_G1T1xxx_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_G1T1xxx_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_G1T1xxx_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_G1T1xxx_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_G1T1xxx_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_G1T1xxx_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_G1T1xxx_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_G1T1xxx_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_G1T1xxx_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 |