Warehouse Receipt Line

(0) Share

Report

Posted on by Community Member

I'm creating a function which when you reopen a Purchase Order it finds the Warehouse Receipt Line related to it and Once prompted can find the lines related to the purchase order and delete it.

The current code I have for it is

recWhseRecieptLine.RESET;
recWhseRecieptLine.SETRANGE("Source Type",recWhseRecieptLine."Source Type");
recWhseRecieptLine.SETRANGE("Source Subtype",recWhseRecieptLine."Source Subtype");
recWhseRecieptLine.SETRANGE("Source No.",recPurchHeader."No.");

IF recWhseRecieptLine.FINDSET THEN BEGIN
IF CONFIRM(Text014,FALSE) = FALSE THEN
EXIT;

I am however unsure on the SETRANGE I should be using. For example Im unsure where you will find the SourceType and Source Subtype for the warehouse receipt line.

As well as my setRang

*This post is locked for comments

I have the same question (0)

All responses (6)

Answers (1)

Community Member on at

Like (0)

Report

As well as my SETRANGE below in order to find the record to delete, is that required and if so how should it be written?

Was this reply helpful? Yes No
Suggested answer

Nareshwar Raju Vane... 5,596 on at

Like (1)

Report

Hi,

Where are you getting the SourceType and Source Subtype? From Purchase? If yes, then you apply it, else you can give the custom filter.

recWhseRecieptLine.RESET;

recWhseRecieptLine.SETRANGE("Source Type",recWhseRecieptLine."Source Type"); // Where are you getting this from?

recWhseRecieptLine.SETRANGE("Source Subtype",recWhseRecieptLine."Source Subtype"); // Where are you getting this from?

recWhseRecieptLine.SETRANGE("Source No.",recPurchHeader."No.");

IF recWhseRecieptLine.FINDSET THEN

BEGIN

IF CONFIRM(Text014,FALSE) = FALSE THEN

EXIT

ELSE

BEGIN

REPEAT

recWhseRecieptLine.DELETE(TRUE);

UNTIL recWhseRecieptLine.NEXT = 0

END;

END;

This code would work. But dont you want to delete the Warehouse Receipt Header rather than the Lines?

Hope it helps

Was this reply helpful? Yes No
Suggested answer

Nareshwar Raju Vane... 5,596 on at

Like (0)

Report

Hi,

Please read the official documentation of SETRANGE in C/AL to know more: msdn.microsoft.com/.../dd355053.aspx

Was this reply helpful? Yes No
Community Member on at

Like (0)

Report

Thank you! Yes sorry I may of wrote that wrong.

I am looking to find the Whse Receipt Lines related to the purchase order. Once I have found them I then need to find the Warehouse Receipt relating to those Receipt Lines and then delete the header.

Was this reply helpful? Yes No
Verified answer

Nareshwar Raju Vane... 5,596 on at

Like (1)

Report

Hi Lewis,

Can a Purchase Order contain multiple Whse Receipts or one Whse Receipt for one Purchase Order?

If the mapping is one-to-one then you can just delete the header rather considering the lines. By deleting the header, the system will automatically delete the lines.

For that, you can write it as,

recWhseRecieptHEADER.RESET;

recWhseRecieptHEADER.SETRANGE("Source No.",recPurchHeader."No.");

IF recWhseRecieptHEADER.FIND('-') THEN

BEGIN

IF CONFIRM(Text014,FALSE) = FALSE THEN

EXIT

ELSE

BEGIN

recWhseReciepHEADER.DELETE(TRUE);

END;

END;

Or if you wanted to delete only the line, you can use the previous code.

Was this reply helpful? Yes No
Community Member on at

Like (0)

Report

Do you know what the Source type and Source Sub type are from.

recWhseRecieptLine.RESET;

//recWhseRecieptLine.SETRANGE("Source Type", recWhseRecieptLine."Source Type");

//recWhseRecieptLine.SETRANGE("Source Subtype", recWhseRecieptLine."Source Subtype");

recWhseRecieptLine.SETRANGE("Source No.", recPurchHeader."No.");

Using the debugger these don't appear to be finding a record but if you change the source type from 39 to anything else the warehouse receipt won't show.

Was this reply helpful? Yes No