I have a xml port and an xml file. But the email field is overwritten by a other email field.
So in this xml file there are three contacts with three different emails. But every contact has the email linked to the Bedrijfsinformatie: inkoop@climatic.nl.
This is the xml:
<?xml version="1.0" encoding="utf-8"?>Climatic22 B.V.
J. van Schilfgaarde
Kroonstraat 20
4879 AV
Etten-Leur
inkoop@climatic.nl
076-5020936
Besloten Vennootschap
20035190
NL003889920B01
verplicht
niet_verplicht
NL15RABO0147818958
RABONL2U
rekening
nee
ja
facturen@climatic.nl
Kees
Vissenberg
kees@climatic.nl
076-123
coördierhoud
Ja
Ja
Ja
Ja
Ja
Ja
Ja
Jeroen
van Vugt
Jeroen@climatic.nl
076-456
Werkvoorbereider
Nee
Nee
Nee
Nee
Nee
Nee
Nee
Jan Jan
van Schilfgaarde
Janjan@climatic.nl
076-789
Directeur
Ja
Ja
Ja
Ja
Ja
Ja
Ja
and this is the logic of the xml port:
OBJECT XMLport 50010 Customer
{
OBJECT-PROPERTIES
{
Date=17-02-16;
Time=10:43:42;
Modified=Yes;
Version List=WEB;
}
PROPERTIES
{
UseDefaultNamespace=Yes;
UseRequestForm=No;
}
ELEMENTS
{
{ [{688C1048-F66A-4A68-90BD-41FF4CCA7373}]; ;BedrijfsInformatie ;Element ;Table ;
VariableName=;
SourceTable=Table18;
LinkTableForceInsert=Yes;
Import::OnAfterInsertRecord=BEGIN
BEGIN
BussinesContactName.SETFILTER(BussinesContactName.“No.”,"".“No.” );
IF BussinesContactName.FINDFIRST THEN;
“”.“Country/Region Code” := ‘NL’;
“”.“Fax No.” := Rec.“Fax No.”;
//Set the rights for the contact
“”.VALIDATE("".Right1);
“”.VALIDATE("".Right2);
“”.VALIDATE("".Right3);
“”.VALIDATE("".Right4);
“”.VALIDATE("".Right5);
“”.VALIDATE("".Right6);
“”.VALIDATE("".Right7);
//loops through all the contacts connected with a company contact
WHILE (LoopCount <> 0) DO
BEGIN
KlantContact.GET(FirstContact);
KlantContact.VALIDATE(KlantContact.“Company No.”, BussinesContactName.“Contact No.”);
KlantContact.MODIFY;
LoopCount := LoopCount - 1;
FirstContact := INCSTR(FirstContact);
END;
“”.“Primary Contact No.” := BussinesContactName.“Contact No.”;
//insert the bank account properties
IF IBAN <> ‘’ THEN BEGIN
CustomerBankAccount.“Customer No.”:= “”.“No.”;
CustomerBankAccount.IBAN := (IBAN);
CustomerBankAccount.“SWIFT Code” := (Swift);
IF STRLEN(CustomerBankAccount.IBAN) >= 10 THEN
CustomerBankAccount.Code := COPYSTR(CustomerBankAccount.IBAN,STRLEN(CustomerBankAccount.IBAN)-9,10);
“”.“Bank Account Code” := CustomerBankAccount.Code;
CustomerBankAccount.INSERT(TRUE);
END;
RecRef.GETTABLE("");
//connect the payment method to the TemplateHeader and update the record:
//rekening
TemplateHeader.SETFILTER(TableID, FORMAT(18));
IF TemplateHeader.Code = ‘KNT-KLANT’ THEN
TemplateHeader.SETFILTER(TemplateHeader.Code,‘REK-KLANT’);
//kontant
IF TemplateHeader.Code = ‘REK-KLANT’ THEN
TemplateHeader.SETFILTER(TemplateHeader.Code,‘KNT-KLANT’ );
//automatische incasso
IF TemplateHeader.Code = ‘BIN-INC-KL’ THEN
TemplateHeader.SETFILTER(TemplateHeader.Code,‘BIN-INC-KL’ );
UpdateRecordTemplate.UpdateRecord(TemplateHeader, RecRef);
MESSAGE(ImportKlantText + ’ ’ + “”.“No.”);
END;
END;
}
{ [{46A9C5AB-8E53-417C-B3C4-1A0D3C238820}];1 ;Bedrijfsnaam ;Element ;Field ;
DataType=Text;
SourceField=::Name }
{ [{81593F9E-B99C-413E-B73B-C754E8B7D289}];1 ;Naam ;Element ;Field ;
DataType=Text;
SourceField=::Owner(s) }
{ [{DC0B0045-CF81-4059-985E-5D32F8CA13FB}];1 ;Adres ;Element ;Field ;
DataType=Text;
SourceField=::Address }
{ [{255B4C21-5F41-416B-BFC8-7C48EDF524F3}];1 ;Postcode ;Element ;Field ;
DataType=Code;
FieldValidate=No;
SourceField=::Post Code }
{ [{3E54B8BB-28D0-4C42-AD31-66EE28A4954A}];1 ;Plaats ;Element ;Field ;
DataType=Text;
FieldValidate=No;
SourceField=::City }
{ [{4891D3F2-6B63-4B35-8B03-744B8E3592EF}];1 ;Emailadres ;Element ;Field ;
DataType=Text;
SourceField=::E-Mail }
{ [{58657355-C4AD-4100-B42D-D4EBA3DC21E5}];1 ;Telefoon ;Element ;Field ;
DataType=Text;
SourceField=::Phone No. }
{ [{1497AEC5-358F-42C6-861B-88AB9D7ED40B}];1 ;Rechtsvorm ;Element ;Text ;
DataType=Option;
Import::OnAfterAssignVariable=BEGIN
CASE Rechtsvorm OF
‘Vennootschap Onder Firma’:
“”.“Type of Business Entity” := 0;
‘Besloten Vennootschap’:
“”.“Type of Business Entity” := 1;
‘Eenmanszaak’:
“”.“Type of Business Entity” := 2;
ELSE
&