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)