Bon usage des transactions
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
Code:
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) |
Lieu : Clic sur bouton - serveur - AJAX Activé Pour une création ou une modification
Code:
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) |
Merci d'avance
Cordialement
SC
