Discussion :

[scn68100]

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 :

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)

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
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

[Jefty]

Alors sans vraiment regarder dans le détail, je vois dans le premier bloc de code une erreur, sur MotPasse qui par deux reprises manque d'une double quote ".

Pour le reste, au final, il suffit de tester votre code directement en mode debugg avec des points d’arrêts et des vrais informations de connexion sur votre serveur local.

Cordialement,

Jefty

[scn68100]

Merci
Les " ne manquent pas dans le "vrais" code, j'ai fait l'erreur en cachant les informations
Cordialement
SC

[frenchsting]

Plutôt que de faire des GOTO, je te conseille de créer une procédure ProcAnnuleTransaction()...

Et également pour les débuts et fins de transaction. Il se peut que tu sois amené à faire d'autres traitements avant de valider la transaction. Je pense notamment au blocage de fichier(s)...

[scn68100]

Bonjour,
Le problème pour moi c'est que je ne connais pas le mécanisme de WebDev ...
Une fois la procédure exécutée, revient on après la ligne qui fait l'appel à cette procédure ?
Cordialement
SC

[frenchsting]

Oui, bien sûr. C'est le principe même du truc.

C'est commun à pas mal de langages de programmation. J'ai fait ça en Basic et en macro assembleur x86-88 au siècle dernier.

[scn68100]

OK, alors même si le GOTO fait plus vieux jeux, cela revient sensiblement au même ...
Cordialement
SC