Bonjour à tous,
Dans un projet j'ai un HModifie qui ne fonctionne pas et je ne comprends pas pourquoi !? Plusieurs HModifie sont dans le projet et celui-là ne veut rien savoir...
Quelqu'un saurait pourquoi ? Voici mon code.
Facture.IDF_Adresses reste toujours à 0.
Code : Sélectionner tout - Visualiser dans une fenêtre à part
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 HCréationSiInexistant(F_Adresses) HLitPremier(Facture) SI HTrouve() ALORS TANTQUE PAS HEnDehors(Facture) // Test de l'adresse de facturation déjà enregistrée // On lit le dossier correspondant dans le fichier dossier HLitRecherche(Dossier,IDDossier,Facture.IDDossier) SI HTrouve ALORS SI SansEspace(Dossier.FactureAdresseDestinataire) = "" ET SansEspace(Dossier.FactureAdresseRue) = "" ALORS // L'adresse est écrite dans la fiche client uniquement HLitRecherche(Clients, IDClient, Dossier.IDClient) SI HTrouve(Clients) ALORS F_Adresses.FactureAdresseDestinataire = Clients.LibClient F_Adresses.FactureAdresseRue = Clients.Adresse F_Adresses.FactureAdresseCP = Clients.CodePostal F_Adresses.FactureAdresseVille = Clients.Ville HAjoute(F_Adresses) FIN SINON // L'adresse est écrite dans le fichier dossier F_Adresses.FactureAdresseDestinataire = Dossier.FactureAdresseDestinataire F_Adresses.FactureAdresseRue = Dossier.FactureAdresseRue F_Adresses.FactureAdresseCP = Dossier.FactureAdresseCP F_Adresses.FactureAdresseVille = Dossier.FactureAdresseVille HAjoute(F_Adresses) FIN Facture.IDF_Adresses = F_Adresses.IDF_Adresses HModifie(Facture) FIN HLitSuivant(Facture) FIN FIN
Merci de votre aide.
Christian.
Partager