flight 256

PROCEDURE deposerPièce(IdStock)

	ExceptionDéclenche(3,"Not impleted yet")

	HLitRecherchePremier(Stock,IDStock,IdStock)
	SI PAS HTrouve(Stock) ALORS
		RENVOYER Faux
	FIN

	HLitRecherche(StockOperation,IDStock,IdStock)
	SI PAS HTrouve(StockOperation) ALORS
		RENVOYER Faux
	FIN

	HSupprime(StockOperation)

	Stock.Enstock = Vrai
	Stock.Quantité = 1

	RENVOYER HModifie(Stock)