ResSQL = SQLExec("SELECT statut FROM fiche_licence WHERE numero_licence = '" + sCleLicence + "'", "REQ1")
SI ResSQL = Vrai ALORS
SQLPremier("REQ1")
Info("La Valeur de SQL.NbLig : ",SQL.NbLig)
SI SQL.NbLig = 0 ALORS
Info("Clé invalide.")
SQLFerme("REQ1")
SQLDéconnecte()
RETOUR
FIN
// sStatut est une chaîne = SQLLitCol("REQ1", "statut")
sStatut = SQLLitCol("REQ1", "statut")
Info("La Valeur Du Statut :",sStatut)
SQLFerme("REQ1")

// Déjà vendue ?
SI sStatut = "vendue" ALORS
Info("Clé déjà utilisée.")
SQLDéconnecte()
RETOUR
FIN
SINON
Info("Erreur SELECT clé : " + ErreurInfo(errComplet))
SQLDéconnecte()
RETOUR
FIN

// =========================
// 4. Vérifier si PC déjà activé avec autre licence
// =========================
ResSQL = SQLExec("SELECT cle_licence FROM licences WHERE id_pc = '" + sID_PC + "' AND cle_licence <> '" + sCleLicence + "'", "REQ2")
SI ResSQL = Vrai ALORS
SQLPremier("REQ2")
SI SQL.NbLig > 0 ALORS
Info("Ce PC est déjà activé avec une autre licence.")
SQLFerme("REQ2")
SQLDéconnecte()
RETOUR
FIN
SQLFerme("REQ2")
SINON
Info("Erreur SELECT PC : " + ErreurInfo(errComplet))
SQLDéconnecte()
RETOUR
FIN

// =========================
// 5. Mise à jour clé (UPDATE)
// =========================
ResSQL = SQLExec("UPDATE fiche_licence SET statut = 'vendue' WHERE numero_licence = '" + sCleLicence + "'", "REQ3")
SI ResSQL = Faux ALORS
Info("Erreur mise à jour clé : " + ErreurInfo(errComplet))
SQLDéconnecte()
RETOUR
FIN

// =========================
// 6. Insertion dans licences (INSERT)
// =========================
sInsert est une chaîne ="INSERT INTO licences (cle_licence, nom, adresse_office, telephone, id_pc, active, date_activation, email_client) " +...
"VALUES ('" + sCleLicence + "', '" + sNom + "', '" + sAdresse + "', '" + sTelephone + "', '" + sID_PC + "', 1, NOW(), '" + sEmail + "')"
ResSQL = SQLExec(sInsert, "REQ4")
SI ResSQL = Faux ALORS
Info("Erreur insertion licences : " + ErreurInfo(errComplet))
SQLDéconnecte()
RETOUR
FIN