Bonjour,
Informaticien en retraite, Je suis en auto formation sur WebDev, par passion des langages informatique
Mais je suis seul dans mon logement, et mes anciens collègues ne le connaissent pas
Aussi, merci de me dire si mes écritures sont correctes, car la manipulation des fichiers est très importante
Lieu : Initialisation du projet après connexion au site déclaration connexion et contexte
Lieu : Clic sur bouton - serveur - AJAX Activé Pour une création ou une modification
Code : Sélectionner tout - Visualiser dans une fenêtre à part
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 NomConnexion est une Connexion gbOK=EnModeTest(mtProjet) SI gbOK=Vrai ALORS // Paramètres de la connexion NomConnexion..Provider = hAccèsHFClientServeur NomConnexion..Utilisateur = "NomUtilisateur" NomConnexion..MotDePasse = MotPasse" NomConnexion..Serveur = "Serveur" NomConnexion..BaseDeDonnées = "NomBD" NomConnexion..Cryptage = hCryptageRC5_16 // Ouverture de la connexion gbAdministrateur=HOuvreConnexion(NomConnexion) SI gbAdministrateur=Faux ALORS Erreur("La connexion au serveur a échouée",ErreurInfo(errComplet)) SINON //info("Connexion locale - Tests") HChangeConnexion("*", NomConnexion) FIN SINON NomConnexion..Provider = hAccèsHFClientServeur NomConnexion..Utilisateur = "NomUtilisateur" NomConnexion..MotDePasse = MotPasse" NomConnexion..Serveur = "Serveur" NomConnexion..BaseDeDonnées = "NomBD" NomConnexion..Cryptage=hCryptageRC5_16 // Ouverture de la connexion gbAdministrateur=HOuvreConnexion(NomConnexion) SI gbAdministrateur=Faux ALORS Erreur("La connexion au serveur a échouée",ErreurInfo(errComplet)) SINON //info("Connexion locale - Tests") HChangeConnexion("*", NomConnexion) FIN FIN ConfigureContexteAWP(ctxDisque,ctxCookie) DéclareContexteAWP(gsNomProjetBrut,gbOK,gbAdministrateur,gnIDMembre,gsLogicielID,gsRepertoireLogImage,gsRepertoireProvisoire,gsRepertoireTelechergement,gsFichierUploadé, ... gsTableNomUploadComplet,gsDebut,NomConnexion)
Merci d'avance
Code : Sélectionner tout - Visualiser dans une fenêtre à part
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 NomConnexion est une Connexion HTransaction(NomConnexion) Logiciel.logImage=fExtraitChemin(gsNomFichierCopiéCompletRepimage,fFichier+fExtension) LIB_Image=gsNomFichierCopiéCompletRepimage Logiciel.logID=SAI_ID Logiciel.logSujet=SAI_Sujet Logiciel.logVersion=SAI_Version Logiciel.logDescription=SAI_Description Logiciel.logFichier=SAI_Fichier //SAI_Fichier=gsNomFichierCopiéCompletFichier SI gbCreation=Vrai ALORS gbOK=HAjoute(Logiciel) SINON gbOK=HModifie(Logiciel) FIN SI gbOK=Faux ALORS SI gbCreation=Vrai ALORS Erreur("BTN_Creer_Modifier Erreur lors la création de "+SAI_Sujet,ErreurInfo(errComplet)) GOTO Deblocage SINON Erreur("BTN_Creer_Modifie Erreur lors la modification de "+SAI_Sujet,ErreurInfo(errComplet)) GOTO Deblocage FIN FIN SI gbOK=Vrai ALORS SI gbCreation=Vrai ALORS Info("Création faite pour "+SAI_ID) //gbUploadImageFait=Faux //// initialisationTableVerification() PageAffiche(PAGE_PC_Gestion_Logiciels,gnIDMembre,gbAdministrateur) GOTO Deblocage SINON Info("Modification faite pour "+SAI_ID) SelectionTableLogiciel() GOTO Deblocage FIN FIN Deblocage: HTransactionAnnule() // Redonner l'accès au fichier HDébloqueFichier(Logiciel)
Cordialement
SC
Partager