WDForge.org - Forums

Re: pb de remplissage des champs dans une fenetre RAD et une tABLE

Sujet: Re: pb de remplissage des champs dans une fenetre RAD et une tABLE
par mbsl sur 3/11/2005 8:51:55

//recherche si enregistrement dans stok
Si HLitRecherchePremier(Vin,IDvin,Table.idvin) ALORS
 HLitRecherche(Stock,idvin,Vin.IDvin)
 SI H.trouve ALORS
  Info("Vous ne pouvez pas supprimer ce vin. Il y a des    enregistrements le concernant.")
 SINON
  // Suppression de l'enregistrement à partir de la table
  SI PAS HSupprime(Vin) alors
   erreur(herreurinfo())
  sinon
   TableSupprime(Table)
  FIN
Fin