Hi Helpful Harry

Just return from my summerholidays :-)

I tried to implement the If sentence to avoid the empty records, however I
cannot get it to work.

E.g. in case of a portal with 3 rows, it copies all 3 rows to
Fakturaer::Varenr1, Fakturaer::Antal1, Fakturaer::Varenr2,
Fakturaer::Antal2, Fakturaer::Varenr3, Fakturaer::Antal3.
However all of the rest from Fakturaer::Varenr4 to Fakturaer::Antal20 are
filling in with the contents of the last row in the portal, which in this
case corresponds to Fakturaer::Varenr3, Fakturaer::Antal3.

It seems that the If sentence only tests the first Portal row by testing
Linier:Varenr. Can Linier::Varenr be tested row by row in the portal - in
the form of Linier::Varenr[2] or ..?

That is the case. Maybe it would be an idea to test how many rows the portal
contains, if that is possible? And then only transfer the number of rows to
the table (Fakturaer), which are available.

Go To Record / Request / Page [First]
Loop
Go To Portal Row [No dialog; 1]
If [not(IsEmpty(Linier::Varenr))]
Set Field [Fakturaer::Varenr1; Linier::Varenr]
Set Field [Fakturaer::Antal1; Linier::Antal]
End if
Go To Portal Row [No dialog; 2]
If [not(IsEmpty(Linier::Varenr))]
Set Field [Fakturaer::Varenr1; Linier::Varenr]
Set Field [Fakturaer::Antal1; Linier::Antal]
End if
Go To Portal Row [No dialog; 3]
If [not(IsEmpty(Linier::Varenr))]
Set Field [Fakturaer::Varenr1; Linier::Varenr]
Set Field [Fakturaer::Antal1; Linier::Antal]
End if

...

Go To Portal Row [No dialog; 20]
If [not(IsEmpty(Linier::Varenr))]
Set Field [Fakturaer::Varenr1; Linier::Varenr]
Set Field [Fakturaer::Antal1; Linier::Antal]
End if
Go To Record / Request / Page [Next, Exit After Last]
End Loop

Thanks

Daniel

In article <42f0ca93$0$189$edfadb0f (AT) dread11 (DOT) news.tele.dk>, "D"
<d (AT) msn (DOT) com> wrote:

Try this one instead:

Go To Record / Request / Page [First]
Loop
Loop
Go To Portal Row [First]
Set Field [Fakturaer::Varenr1; Linier::Varenr]
Set Field [Fakturaer::Antal1; Linier::Antal]

Go To Portal Row [Next, Exit After Last]
Set Field [Fakturaer::Varenr2; Linier::Varenr]
Set Field [Fakturaer::Antal2; Linier::Antal]

Go To Portal Row [Next, Exit After Last]
Set Field [Fakturaer::Varenr3; Linier::Varenr]
Set Field [Fakturaer::Antal3; Linier::Antal]

...

Go To Portal Row [Next, Exit After Last]
Set Field [Fakturaer::VarenrX; Linier::Varenr]
Set Field [Fakturaer::AntalX; Linier::Antal]

End Loop
Go To Record / Request / Page [Next, Exit After Last]
End Loop


The "Exit After Last" option will automatically cause the script to
jump out of the inner loop once it hits an empty portal row (or ther
are no more portal rows).



Helpful Harry
Hopefully helping harassed humans happily handle handiwork hardships ;o)

Hi Helpful Harry

Thanks a lot for your help.

It worked and merged 5162 invoices from an ERP system to a Filemaker
database!

/Daniel