exercice

PROCEDURE FEN_fiche_commande()

FichierVersEcran()

HFiltre(ligne_cde,IDCommande,Commande.IDCommande)

MaFenêtre..ValeurRenvoyée=Faux


IF Commande..NouvelEnregistrement THEN
	SAI_Date_commande=DateSys()
	COMBO_Client=client.IDclient
	SAI_N_de_commande=HNbEnr(Commande)+1
END

HDésactiveFiltre(ligne_cde)


IF Ouvre(FEN_Liste_des_Produits) THEN
	ListeAffiche(COMBO_Produit,taCourantEnreg)
END


ajouter_ligne_cde()
calcul_totaux()



IF COMBO_type_reglement<=0 THEN
	Erreur("Vous devez saisir un réglement")
	RepriseSaisie(COMBO_type_reglement)
END

IF TABLE_Ligne_cde..Occurrence=0 THEN
	Erreur("Vous devez saisir un produit")
	RepriseSaisie(SAI_Qte_produit)
END


EcranVersFichier()

SI Commande..NouvelEnregistrement THEN
	 HAjoute(Commande)
ELSE
	HModifie(Commande)
END

nOrdre est un entier = 1

POUR TOUTE LIGNE DE TABLE_Ligne_cde
	TABLE_Ligne_cde.COL_IDCommande=Commande.IDCommande
	TABLE_Ligne_cde.COL_Ordre_affichage=nordre
	nordre++
	TableEnregistre(TABLE_Ligne_cde)
FIN

MaFenêtre..ValeurRenvoyée=Vrai


TableSupprime(TABLE_Ligne_cde,TableSelect(TABLE_Ligne_cde))

calcul_totaux()

TableDéplaceLigne(TABLE_Ligne_cde, ligneSélectionnée, tdPrécédent, tdEchange)
TableDéplaceLigne(TABLE_Ligne_cde, ligneSélectionnée, tdSuivant, tdEchange)
// Résumé : <indiquez ici ce que fait la procédure>
// Syntaxe :
//ajouter_ligne_cde ()
//
// Paramètres :
//	Aucun
// Valeur de retour :
// 	Aucune
//
// Exemple :
// Indiquez ici un exemple d'utilisation.
//
PROCEDURE ajouter_ligne_cde()
sRef_produit est une chaîne
nIndice_produit est un entier
rPrix_total est un réel

IF SAI_Qte_produit<1 THEN
	Erreur("il faut saisir une qte")
	RepriseSaisie(SAI_Qte_produit)
	RETOUR
END

sRef_produit=COMBO_Produit..Valeur

nIndice_produit=TableCherche(TABLE_Ligne_cde.COL_Reference_prod,sRef_produit)
IF nIndice_produit=-1 THEN
  rprix_total=SAI_Qte_produit*Produit.Prix_ht
  TableAjouteLigne(TABLE_Ligne_cde,0,sRef_produit,Produit.Libellé,SAI_Qte_produit,Produit.Prix_ht,rPrix_total,TABLE_Ligne_cde..Occurrence+1,SAI_N_de_commande,Produit.IDProduit)
ELSE

END
// Résumé : <indiquez ici ce que fait la procédure>
// Syntaxe :
//calcul_totaux ()
//
// Paramètres :
//	Aucun
// Valeur de retour :
// 	Aucune
//
// Exemple :
// Indiquez ici un exemple d'utilisation.
//
PROCEDURE calcul_totaux()
rTotal_cde est un réel =0
rTotal_cde_ttc est un réel=0

POUR TOUTE LIGNE DE TABLE_Ligne_cde

	rTotal_cde+=TABLE_Ligne_cde.COL_Total

	//récup tx tva
	HLitRecherchePremier(Produit,IDProduit,TABLE_Ligne_cde.COL_IDProduit)
	IF HTrouve(Produit) THEN
		rTotal_cde_ttc+=(TABLE_Ligne_cde.COL_Total*Produit.taux_tva/100)+TABLE_Ligne_cde.COL_Total
	END
FIN

SAI_Total_ht=rTotal_cde
SAI_Total_ttc=rTotal_cde_ttc