Putting code into function

(0) Share

Report

Posted on by Community Member

Hi,

How do I put this block of code into a function?

Thanks!

IF PurchaseLine.FINDSET THEN
    REPEAT
      ReceivedNotInvoiced := ReceivedNotInvoiced + PurchaseLine."A. Rcd. Not Inv. Ex. VAT (LCY)";
    UNTIL PurchaseLine.NEXT = 0;
  AmtRcdNotInv := ReceivedNotInvoiced;

*This post is locked for comments

I have the same question (0)

All responses (5)

Answers (0)

Suggested answer

Mohana Yadav 60,997 Super User 2025 Season 2 on at

Like (0)

Report

please provide what you tried and what is not working.

Was this reply helpful? Yes No
Suggested answer

Sunil1991 170 on at

Like (0)

Report

Hi Patrick,

Can you explain little more here, what exactly you are trying to do?

Where you want to put that code?

Regards,

Sunil

Was this reply helpful? Yes No
Suggested answer

Suresh Kulla 50,243 Super User 2025 Season 2 on at

Like (0)

Report

Patrick,

What are you trying to achieve, are you expecting your function to return the Amount Received not Invoiced, if so you can add a function with PurchLine as Parameter and add the above code or you could add Document Type and Document No as Parameters for the function and then apply the filters in the function and use the above code.

You need to set the Return Parameter as decimal so that you can retrieve the value.

Was this reply helpful? Yes No
Suggested answer

ShanAbeywicrema 948 on at

Like (1)

Report

Hi you can create function. You can create function with return value, or just a function .

But you need to provide where are you going to create this function. This is they way How to create function with return value,

Go to View -> C/AL Globals

Then go to Functions tab

Type the name of the function, Example CalcRcdNotInvoiced , Then click on Locals, then go to Returns Value tab, In the Name field type AmtRcdNotInv , Return type should be Decimal.

Now you have created new function, I guess you do not have any parameters to send, so click F9 and go down then you can see your new function.

Paste your code inside the function now

IF PurchaseLine.FINDSET THEN

REPEAT

ReceivedNotInvoiced := ReceivedNotInvoiced + PurchaseLine."A. Rcd. Not Inv. Ex. VAT (LCY)";

UNTIL PurchaseLine.NEXT = 0;

AmtRcdNotInv := ReceivedNotInvoiced;

If the answer is solved your problem. Please make it as Verified.

Was this reply helpful? Yes No
Suggested answer

Dilanka H. 116 on at

Like (0)

Report
Hi Patrick,

You may directly go for the method suggested by Shan here and if you need further deep to pass parameters to the function you could create by following his methods here's the way. I'm adding the syntaxed code according to your example here.

When you are defining Locals according to Shan's method you can define Parameters also there. I assume you can pass the main Record or a Purchase Line variable record as a parameter to the function with all the filters and datasets.

You can find it ease as here.

After creating it in that way, your function will be like this.

LOCAL MyFunction(PurchaseLine : Record "Purchase Line") AmtRcdNotInv : Decimal IF PurchaseLine.FINDSET THEN REPEAT ReceivedNotInvoiced := ReceivedNotInvoiced + PurchaseLine."A. Rcd. Not Inv. Ex. VAT (LCY)"; UNTIL PurchaseLine.NEXT = 0; AmtRcdNotInv := ReceivedNotInvoiced;

You can easily see the PurchaseLine record can be accessible inside the function with all the input parameters and filters where you defined in your main code when you called the function.

Was this reply helpful? Yes No