Discussion :

[buzz68180]

Bonjour,

Je souhaite importer les données de 3 fichiers source pour en créer un seul, voici le code que j'utilise actuellement pour l'import d'un fichier source vers le fichier final.

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

HCréation(TEST)


//pour tous les enregistrements du fichier "TEST"

POUR TOUT LeadBase SUR LeadId 

	JAUGE_Progression++
	
	//On renseigne la base de destination "Test"
	
	TEST.Societe=LeadBase.CompanyName
	TEST.Ville = LeadAddressBase.City
	TEST.Autocourrier=LeadBase.DoNotSendMM
	TEST.Autofax=LeadBase.DoNotFax
	TEST.Adresse=LeadAddressBase.Line1
	TEST.AdresseSuite=LeadAddressBase.Line2
	TEST.CodePostal=LeadAddressBase.PostalCode
	TEST.RegardingObjectId=LeadBase.LeadId
	
	HAjoute(TEST)

FIN

Info("Traitement terminé")
//RAZ de la jauge
JAUGE_Progression=0

les champs en rouge proviennent d'un autre fichier "LeadAdressBase".

Merci pour votre aide
Buzz

[klbsjpolp]

Quel est le problème?

[buzz68180]

Le problème est que l'ajout des rubriques du fichier "LeadAddressbase" ne s'effectue pas dans le fichier final "TEST"

[mail.spam]

Il y a au moins un champ clé unique qui relie tes 3 fichiers ???

Car si oui tu parcours le premier fichier, pour chaque enregistrement tu filtre les 2 autres fichiers et tu récupère les infos à ajouter.

[buzz68180]

Non , il n' a pas un champ qui relie les 3 fichiers

[klbsjpolp]

Comment fais-tu pour savoir quel enregistrement de LeadAddressbase correspond à l'enregistrement de LeadBase?

[buzz68180]

Désolé, j'ai répondu un peu trop vite , il y a bien un ID commun entre Leadbase et LeadAdressBase, et entre Contact et Leadbase

[klbsjpolp]

Il ne te reste donc qu'à sélectionner le bon enregistrement dans LeadAdressBase pour qu'il correspond.

[buzz68180]

Comme disais "mail.spam", je ne vois pas comment filtrer sur les 2 autres fichiers, et quel cle de parcours utiliser dans ce cas ?

[mogwai162]

Lol

Donne nous la description de tes 3 fichiers en précisant les clefs stp.

[mail.spam]

Regarde la syntaxe de Hfiltre
et l'aide de POUR TOUT <NomFichier> AVEC


Donc code devra ressembler à un truc du genre

Code :

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

1
2
3
4
5
6
POUR TOUT LeadBase sur LeadId 
	// on recherche toutes les enregistrements dans LeadAddressBase
	POUR TOUT LeadAddressBase AVEC "IdCommun = " + LeadBase.IdCommun
		//maintenant tu ajoute avec Hajoute
	FIN
FIN

[buzz68180]

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
 
   Rubriques du fichier LeadAddressBase
                                                                                                                  Libellé                                                                 Type                              Taille          Clé           Clé         Sens            Val. défaut
                       ParentId                                                 ParentId                                                                            Chaîne                                                  38
 
                       LeadAddressId                                            LeadAddressId                                                                       Chaîne                                                  38
                       AddressNumber                                            AddressNumber                                                                       Entier sur 4 octets                                                                                             0
                       AddressTypeCode                                          AddressTypeCode                                                                     Entier sur 4 octets                                                                                             0
                       Name                                                     Name                                                                                Unicode                                                 200
 
                       Line1                                                    Line1                                                                               Unicode                                                 50
                       Line2                                                    Line2                                                                               Unicode                                                 50
                       Line3                                                    Line3                                                                               Unicode                                                 50
                       City                                                     City                                                                                Unicode                                                 50
                       StateOrProvince                                          StateOrProvince                                                                     Unicode                                                 50
 
                       County                                                   County                                                                              Unicode                                                 50
                       Country                                                  Country                                                                             Unicode                                                 50
                       PostOfficeBox                                            PostOfficeBox                                                                       Unicode                                                 20
                       PostalCode                                               PostalCode                                                                          Unicode                                                 20
                       UTCOffset                                                UTCOffset

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
 
 
                                 Rubriques du fichier LeadBase
                                                                                                                  Libellé                                                                 Type                              Taille          Clé           Clé         Sens            Val. défaut
                       LeadId                                                   LeadId                                                                              Chaîne                                                  38
 
                       ContactId                                                ContactId                                                                           Chaîne                                                  38
                       AccountId                                                AccountId                                                                           Chaîne                                                  38
                       PriorityCode                                             PriorityCode                                                                        Entier sur 4 octets                                                                                             0
                       PreferredContactMethodC                                  PreferredContactMethodCode                                                          Entier sur 4 octets                                                                                             0
 
                       SalesStageCode                                           SalesStageCode                                                                      Entier sur 4 octets                                                                                             0
                       Subject                                                  Subject                                                                             Unicode                                                 300
                       Description                                              Description                                                                         Mémo texte unicode
                       EstimatedValue                                           EstimatedValue                                                                      Réel sur 8 octets                                                                                               0
                       EstimatedCloseDate                                       EstimatedCloseDate                                                                  Date et Heure                                                                                                   000000000
                                                                                                                                                                    (aaaammjjhhmmsslll)
 
                       CompanyName                                              CompanyName                                                                         Unicode                                                 100
                       FirstName                                                FirstName                                                                           Unicode                                                 50
                       LastName                                                 LastName

Code :

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

1
2
3
4
5
6
7
8
9
10
11
 
 Rubriques du fichier LeadExtensionBase
                                                                                                                  Libellé                                                                 Type                              Taille          Clé           Clé         Sens            Val. défaut
                       LeadId                                                   LeadId                                                                              Chaîne                                                  38
 
                       New_Titre                                                New_Titre                                                                           Entier sur 4 octets                                                                                             0
                       New_Titre2                                               New_Titre2                                                                          Entier sur 4 octets                                                                                             0
                       New_DtailsActivits                                       New_DtailsActivits                                                                  Unicode                                                 100
                       New_Fonction2                                            New_Fonction2                                                                       Unicode                                                 50
 
                       New_Nom3                                                 New_Nom3

la liaison entre LeadAddressBase avec LeadBase est "ParentID" avec 'LeadID".

Cdlt

[buzz68180]

J'ai testé la solution de mail.spam cad :

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
 
HCréation(TEST)
 
POUR TOUT LeadBase SUR LeadId 
	// on recherche toutes les enregistrements dans LeadAddressBase
	// Clé commune LeadAddressBase = "ParentId"
POUR TOUT LeadAddressBase AVEC "ParentId= LeadId" + LeadBase.LeadId
 
	HAjoute(TEST)
FIN
FIN
 
Info("Traitement terminé")
//RAZ de la jauge
JAUGE_Progression=0

Mais il bloque sur une erreur d'intégrité :

Le mécanisme de sécurité HyperFileSQL s'est déclenché lors d'un parcours intégré du fichier 'LeadAddressBase' sur la rubrique ''.
Erreur lors de l'initialisation du filtre.
Caractère {0041B918- inattendu

[mail.spam]

Le mécanisme de sécurité HyperFileSQL s'est déclenché lors d'un parcours intégré du fichier 'LeadAddressBase' sur la rubrique ''.
Erreur lors de l'initialisation du filtre.
Caractère {0041B918- inattendu

Regarde l'aide de POUR TOUT, tu verra que la syntaxe est fausse.

Ensuite il faut aussi que tu définisse où va quoi avant ton Hajoute

TEST.truc = LeadBase.machin

[hpascal]

Bonjour

Erreur lors de l'initialisation du filtre.

Compare ton filtre avec l'exemple de mail.spam, c'est juste une erreur de syntaxe