[Résolu] TableEnregistre() ??!!!
DSI WDF
Inscrit:
12/09/2004 11:07
De aude
Post(s): 279
Bonjour,
Je sait que le sujet a déjà été abordé, mais là je sèche.
Voici mon code:
Sablier(Vrai)
//Liste des facturés
i est un entier
POUR i=1 A TableOccurrence(Table)
	// si le client fait partie des destinataires
	SI Table.Inter[i]=1 ET Table.facturé[i]="" ALORS
		TableSelectPlus(Table,i)
		Table.facturé[i] ="OUI"
		Table.date_facturé[i]=DateDuJour()
		// enregistre les modif
		TableEnregistre(Table)
	FIN
FIN

	//impression mailing
iAperçu(iPage,"Aperçu écran",Vrai)
iImprimeEtat(Etat_etiquette)
iAperçu(iPage, "Aperçu écran", Vrai)
iImprimeEtat(EtatMailing)

Rafraichir() 

il s'agit d'une table fichier, je n'arrive décidement pas à enregistrer les modifications de chaque enregistrements sélectionnés (seulement de la dernière).
J'ai essayé avec Hmodifi() mais cela me prend les valeurs du dernier enrg sélectionné pour modifié les autres.
Que faire?
Merci de votre aide.

Contribution le : 19/09/2006 10:01

Edité par drcharly93 sur 25/9/2006 8:10:21
_________________
...
Créer un fichier PDF de la contribution Imprimer


Re: TableEnregistre() ??!!!
Utilisateur WDF
Inscrit:
30/07/2006 19:34
Post(s): 57
Logiquement, si ta table est liée au fichier (ce qu'il faut faire), tu n'as pas à effectuer d'opérations spécifiques pour modifier le fichier.
Les modifications de la tables sont automatiquement prises en compte.

Citation :
Saisie en cascade et mise à jour du fichier lié

Si la saisie en cascade est activée, le fichier lié à la table fichier est automatiquement modifié lorsque l'utilisateur passe à la ligne suivante (utilisation des fonctions TableAjoute , TableAjouteLigne , TableInsère , TableInsèreLigne , TableModife et TableModifieLigne ). La fonction TableEnregistre est inutile.

Contribution le : 19/09/2006 12:07
Créer un fichier PDF de la contribution Imprimer


Re: TableEnregistre() ??!!!
DSI WDF
Inscrit:
13/02/2006 16:52
Post(s): 266
Autre solution qui marche :

Pour i = 1 a TableOccurence(maTable,ToTotal)
HLitRecherchePremier(MonFichier,MaClé,MaTable.ColClé)
si pas htrouve(MonFichier) ALORS
Erreur("Impossible de trouver l'enregistrement :" + MaTable.MaClé)
TRACE("Enregistrement non trouvé : " + MaTable.MaClé)
SINON
MaTable.DateFacture = datesys()
SI PAS HModifie(MonFichier) ALORS
Erreur("Erreur de modification : " + MaTable.MaClé)
TRACE("Impossible de modifier l'enregistrement : " + MaTable.MaClé)
FIN
FIN
//** Actualisation de la table fichier **
TableAffiche(MaTable,TaDébut)

Contribution le : 19/09/2006 14:29
Créer un fichier PDF de la contribution Imprimer


Re: TableEnregistre() ??!!!
ChefDeProjet WDF
Inscrit:
02/06/2003 13:49
Post(s): 151
le mode de remplissage de ta table
Requete, ou fichier direct ??

Contribution le : 19/09/2006 15:14
Créer un fichier PDF de la contribution Imprimer


Re: TableEnregistre() ??!!!
DSI WDF
Inscrit:
12/09/2004 11:07
De aude
Post(s): 279
il s'agit d'un fichier direct

Contribution le : 19/09/2006 15:23
_________________
...
Créer un fichier PDF de la contribution Imprimer


Re: TableEnregistre() ??!!!
DSI WDF
Inscrit:
12/09/2004 11:07
De aude
Post(s): 279
Même soucis avec une table alimenté par une requête liée au fichier client.
la sélection de la req param des facures payées est datés dans le champ relance à la suite d'une sélection par case à cocher.
 
SI col_inter = 1 ALORS
	TableModifie(Table_Req_paiement.relance_fact,DateDuJour())
FIN

merci de votre aide

Contribution le : 19/09/2006 18:04
_________________
...
Créer un fichier PDF de la contribution Imprimer


Re: TableEnregistre() ??!!!
DSI WDF
Inscrit:
13/02/2006 16:52
Post(s): 266
Si ton prjet presse, je pense que le mieux est de détourner le problème...Comme expliqué précédemment !!!

Ceci dit ton code devrait marcher car même en le regardant plusieurs fois, je ne vois pas ce qui peut clocher !!!

Bon dev.

Contribution le : 20/09/2006 08:00
Créer un fichier PDF de la contribution Imprimer


Re: TableEnregistre() ??!!!
DSI WDF
Inscrit:
12/09/2004 11:07
De aude
Post(s): 279
Ok pb résolu:
Je suis passé par une table vision basée sur ma requete, (sachant que les tables visions ne peuvent être qu'en sélection simple ??), puis fais un état sur tale sur ttes les lignes de la table.
 
//enregistre les relances
//1 : Continuer
//2 : Ne pas continuer
SELON Dialogue("Vous allez enregistrer les relances à la date du jour, voulez vous continuer ?")
	// Continuer
	CAS 1
		i est un entier
		POUR i=1 A TableOccurrence(Table)
			TableSelectPlus(Table,i)
			TableModifie(Table.relance_fact,DateDuJour(),i)
			TableEnregistre(Table)
			TableSelectPlus(Table,i+1)
		FIN
	// Ne pas continuer
	CAS 2
		RETOUR
			
FIN


Merci encore de votre aide.

Contribution le : 22/09/2006 11:43
_________________
...
Créer un fichier PDF de la contribution Imprimer



 Haut   Précédent   Suivant




Enregistrer votre réponse
CompteNom   Mot de passe   Authentification
Message:


Vous ne pouvez pas débuter de nouveaux sujets.
Vous pouvez voir les sujets.
Vous ne pouvez pas répondre aux contributions.
Vous ne pouvez pas éditer vos contributions.
Vous ne pouvez pas effacez vos contributions.
Vous ne pouvez pas ajouter de nouveaux sondages.
Vous ne pouvez pas voter en sondage.
Vous ne pouvez pas attacher des fichiers à vos contributions.
Vous ne pouvez pas poster sans approbation.

[Recherche avancée]


Connexion
Menu
Chercher WDForge
Chercher Web
Partenaires
Visualiser tous les Partenaires...
WinDev, WebDev, WinDev Mobile et HyperFile sont des marques déposées par PCSoft. |  Voter |  Legal |  Contact |   XOOPS 2.0.13.2