1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45
| SI TableSelect(TABLE_ListeEntête) = -1 ALORS RETOUR
SELON OuiNon("Modifier la liquidation?")
CAS Oui
TableModifieLigne(TABLE_ListeEntête,-1,COL_NomUtilisateur,COL_DateCreation,COL_Exercice,COL_GestCommande,COL_IniExpediteur,COL_URG,COL_NonRegroup,COL_Rattachement,COL_NumFournisseur,COL_Fournisseur,COL_RefFacture,COL_ObjetDepense,COL_DateReception,COL_DateFacture,COL_DateArrive,COL_NumLiquidation)
TableEnregistre(TABLE_ListeEntête)
// ne pas réafficher la table maintenant
// TableAffiche(TABLE_ListeEntête)
// Es-tu sûr de ton entete.identete ?
// si non, prend cette ligne
HLitRecherchePremier(Ligne,IDEntête,TABLE_ListeEntête.identete[tableselect(TABLE_ListeEntête)])
TANTQUE HTrouve(Ligne)
HSupprime(Ligne)
HSuivant(Ligne)
FIN
POUR i = 1 A TABLE_ListeLigne..Occurrence
// on modifie aussi ici l'id de l'entête
Ligne.IDEntête = TABLE_ListeEntête.identete[tableselect(TABLE_ListeEntête)]
Ligne.UF = TABLE_ListeLigne.COL_UF[i]
Ligne.Produit = TABLE_ListeLigne.COL_Produit[i]
Ligne.Designation = TABLE_ListeLigne.COL_Designation[i]
Ligne.NumBesoin = TABLE_ListeLigne.COL_NumBesoin[i]
Ligne.NumCompte = TABLE_ListeLigne.COL_NumCompte[i]
Ligne.MarcheLot = TABLE_ListeLigne.COL_MarcheLot[i]
Ligne.Qte = TABLE_ListeLigne.COL_Qte[i]
Ligne.MonTTC = TABLE_ListeLigne.COL_MonTTC[i]
Ligne.TauxTVA = TABLE_ListeLigne.COL_TauxTVA[i]
HAjoute(Ligne)
FIN
//là on peut rafraichier les tables
tableaffiche(TABLE_ListeEntête)
// voir pour le code de mise à jour de la table des lignes si besoin
Info("Modification effectuée")
CAS Non : RepriseSaisie()
FIN |
Partager