Chaque fois que j'ajoute un errégistrement dans un fichier de la façon suivante:

PROCEDURE AJOUTE_FACTURES()

X est un entier

POUR X= 1 TO TableOccurrence(TABLE)

TableSelectPlus(TABLE,X)

FACTURES.NUM_CLIENT =Clients.NUM_CLIENT
FACTURES.NUM_FACT =NUMEROTEUR
FACTURES.DATE =S_DATE
FACTURES.REFERENCE =FACTURES.REFERENCE+TABLE.LIBELLES[X]
FACTURES.ACCOMPTE =FACTURES.ACCOMPTE+TABLE.TOTAL[X]

FIN


HAjoute(FACTURES);SI HErreurIntégrité() ALORS Info(HErreurInfo())


J'ai l'erreur suivante:

Erreur d'intégrité:
les cardinalité coté clé étrangère (1,1) entre les rubriques clients.IDclient et factures.IDClients ne sont pas respectées.



Une idée


Merci d'avance et bonne soirée

Dans votre code d'alimentation de votre occurrence, vous n'avez pas alimenter IdClients qui est une clé étrangère obligatoirement présente dans le fichier CLIENT (1,1).



Tout est dans le message où sinon vous ne nous avez pas tout dit. Vérifiez bien votre parcours, si vous devez ajouter plusieurs factures le Hajoute doit être réalisé à chaque fois ...

Bonjour closen,

Primo
Il me semble que la fonction HAjoute devrait se trouver dans la boucle.
si tu as X ligne de facture dans ta table il est nécessaire de faire X Ajout dans le fichier.

Secondo
Citation :
la cardinalité devrait plutôt être du genre (1,N)
pour 1 client qui peut avoir plusieurs factures.

[edit]
Tiens, mbsl à été encore été le plus rapide
[/edit]

J'ai modifier mon code comme me le conseil mbsl.
CA MARCHE


Mais je constate lors que je regarde le fichier FACTURES avec WDMAP que seul les enrégistrement que je fait maintenant on quelque chose (Numéro Client dans la zone id clients).


POURQUOI ou comment mettre a jour ce fichier




PROCEDURE AJOUTE_FACTURES()

X est un entier

POUR X= 1 TO TableOccurrence(TABLE)

TableSelectPlus(TABLE,X)

FACTURES.IDClients =Clients.IDClients
FACTURES.NUM_CLIENT =Clients.NUM_CLIENT
FACTURES.NUM_FACT =NUMEROTEUR
FACTURES.DATE =S_DATE
FACTURES.REFERENCE =FACTURES.REFERENCE+TABLE.LIBELLES[X]
FACTURES.ACCOMPTE =FACTURES.ACCOMPTE+TABLE.TOTAL[X]



SI PAS HAjoute(FACTURES) ALORS
Info(HErreurInfo())
FIN


FIN



CA MARCHE mais je constate une chose

Je ne saisi pas exactement le sens de votre question. Si un controle d'intégrité a été mis en place dés le départ entre clients (0,N) et Factures (1,1) sur la clé IdClients, et qu'auparavant cette même clé n'était pas alimenté, un HAJOUTE(Factures) n'avait aucun effet (Erreur).

Il semblerait que dans votre fichier Factures des enregistrements avec un IdClient à blanc soient présents. Le controle d'intégrité n'aurait donc pas été mis en place au départ.

Pour remédier à tout cà, si vous avez la possibilité de détruire votre fichier et recommencer, c'est le plus simple. Sinon, si dans votre facture, vous avez une rubrique qui peut identifier le client autre que IdClients (NumClient ??), vous parcourez votre fichier factures, retrouvez l'idclients manquant et réalisez la mise à jour.

NB : Vous n'avez pas besoin de faire un TableSelectPlus(TABLE,X) pour accéder à TABLE.LIBELLES[X]

Ce fichier a été importer de Excell.

Serait 'il pas possible de remplir par une requète SQl

la zone ID.client par le numéro Client qui se trouve dans le fichier.

Si oui est ce que quelqu'un sait écrire cette requète SQL


Salutations

javais penser faire comme ca mais ca plante.

HLitPremier (FACTURES.FACLEUNIK)

TANTQUE PAS HEnDehors
FACTURES.IDClients=FACTURES.NUM_CLIENT
HEcrit(FACTURES)

HLitSuivant (FACTURES.FACLEUNIK)

FIN

La requête :

UPDATE Factures
SET IdFacture = Factures.NumFacture
WHERE Factures.IdFacture = 0


Le Code :

HLitPremier (FACTURES,FACLEUNIK)
TANTQUE PAS HEnDehors
FACTURES.IDClients=FACTURES.NUM_CLIENT
HModifie(FACTURES)
HLitSuivant (FACTURES,FACLEUNIK)
FIN


Je pense qu'il serait très intéressant pour vous de parcourir l'autoformation sur Windev. Les principes tel celui-ci y sont expliqués.

Merci