Report runs slow on server

efficeon007

We have a VAT account = 47210016 but user forgot to set VAT setting for this account. So
our "Libro facturas recibidas" (Paper invoices received) shows the amount of this VAT account always incorrect. So we have to use code in this report and fix the amount problem:

IF MovIVA."Fecha registro" >= 010107D THEN
MemIntIVA.Type := '';

MovContabilidad.SETRANGE("Nº asiento","Nº asiento");
MovContabilidad.SETRANGE("Importe IVA",Importe);
MovContabilidad.SETRANGE("Nº cuenta",'47210016');
IF MovContabilidad.FIND('-') THEN BEGIN
MemIntIVA."% IVA" := 16;
MemIntIVA."% RE" := 0;
MemIntIVA.Type := 'I';
Importe := Base;
Base := Importe/16*100;
"Importe divisa-adicional" := "Base divisa-adicional";
"Base divisa-adicional" := "Importe divisa-adicional"/16*100;
END;

The problem is after add the above code in report, the report runs very slow on server; Nevertheless it runs very fast on my own desktop. Both server and my desktop use Navision local database (*.fdb), and the server hardware is much stronger than my desktop. Could you please let me know why? I attached fob files for your reference.

Another question is I am not sure if the attached file is the correct place to set the VAT account, could you please advise?

Thanks and regards,
Eugene

efficeon007

Sorry, it looks the fob (object) files can not be uploaded. I am sorry. If you need them, I can send them to your email box. Thanks again.

efficeon007

Look at the below code, do you think "MovContabilidad.FIND('-')" make the report performance low? Is there a way to replace it? Thanks a lot!

IF MovIVA."Fecha registro" >= 010107D THEN
MemIntIVA.Type := '';

MovContabilidad.SETRANGE("Nº asiento","Nº asiento"); //transaction No. needs equal
MovContabilidad.SETRANGE("Importe IVA",Importe); //VAT amount needs equal
MovContabilidad.SETRANGE("Nº cuenta",'47210016'); //VAT account equals to 47210016
IF MovContabilidad.FIND('-') THEN BEGIN
...
...
END;

IF MovContabilidad."Nº cuenta" = 47210016 THEN BEGIN //I have tried this, no luck
...
...
END;

efficeon007

Below is the solution, after added the two lines and modified MovContabilidad table, it runs much faster.
...

MovContabilidad.SETCURRENTKEY("Nº cuenta","Nº asiento","Importe IVA"); //add SQL index query in MovContabilidad table as KEYs
MovContabilidad.SETRANGE("Nº cuenta",'47210016'); //use this filter FIRST to filter some redundant data

...