A value is not found using SETRANGE and then?

robinho81

Hello,

I've got a question. I'm trying to get the SalesHeader number on the productionorder papers. I'm using the code below to look for the correct Source ID from the Productionorder number in the Reservation Entry and than setrange the field Positive to FALSE to get the salesheader. But it goes wrong when the field Positive=FALSE is not there. So it means there is no direct connection to a salesorder and I want it to print 'Stockorder' instead of SalesHeader but that does not work. I get the message: Source ID .... and Positive=FALSE are not there. Can someone help me?


Reservation Entry - OnAfterGetRecord()
"Reservation Entry".SETRANGE("Reservation Entry"."Item No.","Production Order"."Source No.");
IF FIND THEN
"Reservation Entry".SETRANGE("Reservation Entry"."Source ID","Production Order"."No.");
IF FIND THEN
BEGIN
"Reservation Entry".SETRANGE(Positive,TRUE);
Reserveringsnummer := "Reservation Entry"."Entry No.";
IF Reserveringsnummer <> 0
THEN
BEGIN
Recreserveringspost.GET(Reserveringsnummer);
Recreserveringspost.SETRANGE(Positive,FALSE);
IF FIND
THEN Verkoopordernummer := Recreserveringspost."Source ID"
ELSE Verkoopordernummer := 'Stockorder';
END;
END;

kine

Problem is in this code

Recreserveringspost.GET(Reserveringsnummer);
Recreserveringspost.SETRANGE(Positive,FALSE);

What do you want to do with that?

I assume that it should be

...
BEGIN
  if Recreserveringspost.GET(Reserveringsnummer,FALSE) then
    Verkoopordernummer := Recreserveringspost."Source ID"
  else
...

OR

...
BEGIN
  Recreserveringspost.SETRANGE("Entry No.",Reserveringsnummer );
  Recreserveringspost.SETRANGE(Positive,FALSE);
  IF FINDFIRST THEN 
    Verkoopordernummer := Recreserveringspost."Source ID"
  else
...

But not GET and SETRANGE and FINDFIRST together...

robinho81

Thank you very much!! It works:D

kine

You are welcome... 8)