Advertisement
f4bien

flight 256

Jun 29th, 2015
170
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
text 0.39 KB | None | 0 0
  1. PROCEDURE deposerPièce(IdStock)
  2.  
  3. ExceptionDéclenche(3,"Not impleted yet")
  4.  
  5. HLitRecherchePremier(Stock,IDStock,IdStock)
  6. SI PAS HTrouve(Stock) ALORS
  7. RENVOYER Faux
  8. FIN
  9.  
  10. HLitRecherche(StockOperation,IDStock,IdStock)
  11. SI PAS HTrouve(StockOperation) ALORS
  12. RENVOYER Faux
  13. FIN
  14.  
  15. HSupprime(StockOperation)
  16.  
  17. Stock.Enstock = Vrai
  18. Stock.Quantité = 1
  19.  
  20. RENVOYER HModifie(Stock)
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement