Discussion :

[el homardo]

Bonjour à tous,

Voilà, je débute en programmation windev (14). J'ai une fenêtre avec un tableau multionglet. Dans un des onglets (table_signalement_mensuel), je souhaite intégrer les données provenant d'une base de données (signalement_prestataires) avec une condition sur la date (en gros, le signalement doit avoir moins de 31 jours). Cette condition validée, les données sont affichées dans la table.
Ma question : Comment faire pour que toute modification apportée dans ma table "signalements mensuels" soit enregistrée systématiquement dans la base de données "signalements prestataires" ? J'ai cru comprendre qu'il fallait utiliser la fonction glien mais je ne trouve pas comment. Je vous poste ci-dessous une partie du code.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
TableSupprimeTout(TABLE_signalement_mensuel)
HLitPremier(Signalements_prestataires)
TANTQUE PAS HEnDehors(Signalements_prestataires)
	nNbJour est un entier = DateDifférence(Signalements_prestataires.date_signalement,DateSys())
	SI nNbJour<=31 ALORS
TableAjoute(TABLE_signalement_mensuel,Signalements_prestataires.date_signalement+TAB+Signalements_prestataires.type_signalement+TAB+Signalements_prestataires.Commune+TAB+Signalements_prestataires.num_voie+TAB+Signalements_prestataires.voie+TAB+Signalements_prestataires.Source_signalement+TAB+Signalements_prestataires.type_signalement+TAB+Signalements_prestataires.observation+TAB+Signalements_prestataires.date_début+TAB+Signalements_prestataires.date_fin+TAB+Signalements_prestataires.rep_sietrem+TAB+Signalements_prestataires.date_intervention)
 	FIN
	HLitSuivant(Signalements_prestataires)
FIN

Par avance, merci à tous.

El homardo

[klbsjpolp]

Le plus simple serait d'utiliser une table fichier plutôt que de la remplir par programmation. Les modifications serait enregistrées automatiquement. Si tu utilises le RAD, c'est ce qu'il fait par défaut. Tu peux toujours filtrer avec la propriété filtre ou le traitement de filtrage de la table (WD14). Si tu utilises une table mémoire, tu devras mettre à jour ton fichier manuellement.

[el homardo]

Bonjour,

Merci pour votre réponse mais il ne m'est pas possible alors de programmer l'affichage en automatique de manière à n'afficher que les données de moins de 31 jours.

je poste ci dessous le nouveau code qui n'a aucun impact sur ma table (je l'ai renommée juste "signalements")

HLitPremier(Signalements_prestataires)
TANTQUE PAS HEnDehors(Signalements_prestataires)
nNbJour est un entier = dateDifférence(Signalements_prestataires.date_signalement,DateSys())
SI nNbJour<=31 ALORS
TableAjoute(TABLE_Signalements)
HLitSuivant(Signalements_prestataires)
FIN


Par avance merci pour votre aide

[el homardo]

Dans le message précédent, je me suis trompé lors du copier coller du code

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
HLitPremier(Signalements_prestataires)
TANTQUE PAS HEnDehors(Signalements_prestataires)
	nNbJour est un entier = DateDifférence(Signalements_prestataires.date_signalement,DateSys())
	SI nNbJour<=31 ALORS
	TableAjoute(TABLE_Signalements)
        FIN
	HLitSuivant(Signalements_prestataires)
FIN

[mogwai162]

...mais il ne m'est pas possible alors de programmer l'affichage en automatique de manière à n'afficher que les données de moins de 31 jours.

De toute manièere tu pourras toujours filtrer ta table fichier ancienne méthode cad en programmant la lecture

Sinon tu peux en faisant un table liée a une requete.

[el homardo]

Bonjour à tous...

J'ai fini par créer une colonne dans la bse de données d'origine dans laquelle je fais directement mon calcul. Après avec un simple code comme ci-dessous, je réalise mon filtre à l'affichage.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
POUR TOUT Signalements_prestataires AVEC "differencedate<=100"
	TableAffiche(TABLE_Signalements)
FIN

Encore merci pour tous pour votre aide.