PROCEDURE Ok_F_Devis()
//On vérifie que les champs sont bien remplis
SI (Frm_Devis.Zs_Date>DateDuJour()) OU (Frm_Devis.Zs_Date="") ALORS
Info("La date du devis est erronée.")
RepriseSaisie(Frm_Devis.Zs_Date)
RETOUR
FIN
SI Frm_Devis.Zs_MontantTot=0 ALORS
Info("La devis doit avoir obligatoirement un montant.")
RepriseSaisie(Frm_Devis.Tab_Détail)
RETOUR
FIN
//Au cas où, si il n'y a pas de numéro de RDV
SI Frm_Devis.Zs_IDRDV="" ALORS
Info("Une erreur dans la réalisation du Devis est survenu. Le formulaire va se fermer.")
Ferme(Frm_Devis)
FIN
//Dans ce cas, tout est bon donc on enregistre le devis
HAjoute(DEVIS)
//On récupère le numéro du devis est on le met dans chaque ligne
//du détail du devis
HLitDernier(DEVIS)
numdev est un entier = DEVIS.IDDEVIS
//Maintenant, on va prendre chaque ligne de la table
//Et on va les ajouter dans le fichier LIGNEDEVIS
nbocc est un entier=Frm_Devis.Tab_Détail..Occurrence
i est un entier
//On fait l'affectation pour chaque ligne dans la table
POUR i = 1 A nbocc
//On affecte les colonnes aux différentes infos de LIGNEDEVIS
LIGNEDEVIS.IDDEVIS=numdev
LIGNEDEVIS.PrixTotalLigne=Frm_Devis.Tab_Détail.Prix_Total[i]
LIGNEDEVIS.PuLigne=Frm_Devis.Tab_Détail.PU[i]
LIGNEDEVIS.QteLigne=Frm_Devis.Tab_Détail.Quantité[i]
LIGNEDEVIS.DesignationLigne=Frm_Devis.Tab_Détail.Designation[i]
LIGNEDEVIS.UniteLigne=Frm_Devis.Tab_Détail.Unité[i]
//On ajoute les infos dans LIGNDEVIS
HAjoute(LIGNEDEVIS)
FIN
Ferme(Frm_Devis)
Cette contribution était de : http://old.wdforge.org/newbb/viewtopic.php?forum=5&topic_id=570&post_id=2130