XML import Customer list problem

After multiple attempts it seems that it's impossible insert even one line with the only field filled ("No.") because of some link with the table Contacts.
The same XML port inserts lines seccessfully in another table, which were created for these testing purposes.

Is it impossible to import Customer list with the help of XML port altogether?

This is the structure of the XML port:

TagName TagType SourceType DataSource
Customers Element Text <Customers>
Customer Element Table <Customer>(Customer)
No. Element Field <Customer>::No.
Name Element Field <Customer>::Name
SearchName Element Field <Customer>::Search Name
Address Element Field <Customer>::Address
City Element Field <Customer>::City
PostCode Element Field <Customer>::Post Code


This is a sample of some lines from XML file:

<?xml version="1.0" encoding="UTF-8" standalone="yes"?>
<Customers>
<Customer>
<No.>K00050</No.>
<Name>SomeName</Name>
<SearchName>SOMENAME</SearchName>
<Address>SomeAddress</Address>
<City>SomeCity</City>
<PostCode>109000</PostCode>
</Customer>
<Customer>
<No.>K00060</No.>
<Name>SomeName2</Name>
<SearchName>SOMENAME2</SearchName>
<Address>SomeAddress2</Address>
<City>SomeCity</City>
<PostCode>109000</PostCode>
</Customer>
</Customers>

This is code from Dubugger. These lines are from OnInsert trigger of Table 5054 Contact Business Relation.

OnInsert()
IF "No." <> '' THEN BEGIN
ContBusRel.SETRANGE("Contact No.","Contact No.");
ContBusRel.SETRANGE("Link to Table","Link to Table");
IF ContBusRel.FIND('-') THEN
ERROR(
Text000,
Cont.TABLECAPTION,"Contact No.",TABLECAPTION,"Link to Table",ContBusRel."No.");

ContBusRel.RESET;
ContBusRel.SETCURRENTKEY("Link to Table","No.");
ContBusRel.SETRANGE("Link to Table","Link to Table");
ContBusRel.SETRANGE("No.","No.");
IF ContBusRel.FIND('-') THEN
ERROR(
Text000,
"Link to Table","No.",TABLECAPTION,Cont.TABLECAPTION,ContBusRel."Contact No.");

Here it stops with that error. ](*,)

The XML file is large, so I've made a simplified extract from it in order that this post could be readable.

Second attempt.

This is code from Debugger:

OnInsert()
IF "No." <> '' THEN BEGIN
  ContBusRel.SETRANGE("Contact No.","Contact No.");
  ContBusRel.SETRANGE("Link to Table","Link to Table");
  IF ContBusRel.FIND('-') THEN
    ERROR(
      Text000,
      Cont.TABLECAPTION,"Contact No.",TABLECAPTION,"Link to Table",ContBusRel."No.");

  ContBusRel.RESET;
  ContBusRel.SETCURRENTKEY("Link to Table","No.");
  ContBusRel.SETRANGE("Link to Table","Link to Table");
  ContBusRel.SETRANGE("No.","No.");
  IF ContBusRel.FIND('-') THEN
    ERROR(
      Text000,
      "Link to Table","No.",TABLECAPTION,Cont.TABLECAPTION,ContBusRel."Contact No.");

What about XML port I need some advise how I could post it.
In my upper post I simply copy_pasted it from Object Designer. But it doesn't look readable.

ara3n wrote:

export it to text and then paste it.
Also could you paste the CallStack.

Unfortunatley, I can't export xmlport in text format, only in .fob. I have such choice in export window, but after trying it I get system message that I can't do it. It connected maybe with licensing issues.

My code for running xmlport following (I use codeunit in report because I can't create standalone codeunit. I have no 7200 granule Application Builder):

Customer - OnAfterGetRecord()
IF NOT EXISTS('C:\XML_Customer.xml') THEN
   ERROR('XML Document File Does Not Exists');

TestFile.OPEN('C:\XML_Customer.xml');
TestFile.CREATEINSTREAM(TestStream);
XMLPORT.IMPORT(50001,TestStream);
TestFile.CLOSE;
MESSAGE('XML Customer Import Complete.');

And I inserted as you had suggested code in the codeunit of the xmlport:

Customer - Import::OnBeforeInsertRecord()
Customer.SetInsertFromContact(TRUE);

ara3n wrote:

Can you write the callstack when it errors out?

I'm sorry, I didn't quite understand, what you mean :oops:
Would you, please, explain it in some details.
Sorry!

Thank you!

Here it is:

Table 5054 Contact Business Relation\OnInsert()
Codeunit 5056 CustCont-Update\InsertNewContact(Cust,LocalCall)
Codeunit 5056 CustCont-Update\OnInsert(Cust)
Table 18 Customer\OnInsert()
Report 50001 XMLrun\Customer - OnAfterGetRecord()