1 2 3 4 5 6 7 8 9 10 11 12 13
|
TableSupprimeTout(TableEntete)
SI PAS HExécuteRequête(REQ_ListeBL,hDéfaut) ALORS
Erreur ( "Erreur d' initialisation de la requête REQ_ListeBL" + RC + HErreurInfo ())
RETOUR
FIN
HLitPremier(REQ_ListeBL)
TANTQUE PAS HEnDehors(REQ_ListeBL)
TableAjouteLigne(FenBonLivraison.TableEntete,REQ_ListeBL.nbl,REQ_ListeBL.date,REQ_ListeBL.coclient,REQ_ListeBL.rs,REQ_ListeBL.CodeUser,REQ_ListeBL.ttc,REQ_ListeBL.mtregle,REQ_ListeBL.valide,REQ_ListeBL.nfact,REQ_ListeBL.livreur)
HLitSuivant(REQ_ListeBL)
FIN
TableSelectPlus(TableEntete,TableOccurrence(TableEntete)) |
Partager