Rerturn a negative date.

anton1987

Hi everyone

Hope everyone is all good.

I have the following code


IF WORKDATE < "Purchase Line"."Expected Receipt Date" THEN
NoOfDays := FORMAT("Purchase Line"."Expected Receipt Date"-WORKDATE);
When this code is run It does not return a negative date. It just makes the date value equal to 'BLANK'. Am I doing something wrong.

David_Singleton

anton1987 wrote:

Hi everyone

Hope everyone is all good.

I have the following code


IF WORKDATE < "Purchase Line"."Expected Receipt Date" THEN
NoOfDays := FORMAT("Purchase Line"."Expected Receipt Date"-WORKDATE);
When this code is run It does not return a negative date. It just makes the date value equal to 'BLANK'. Am I doing something wrong.

[code]
you have your logic backwards. The second line wont execute if its negative.

anton1987

Ok but when I say

If WD <> ERD then
No.Of.Days := ( ERD - WD);

I get an error message saying that date is not valid

mohana_cse06

anton1987 wrote:

Ok but when I say

If WD <> ERD then
No.Of.Days := ( ERD - WD);

I get an error message saying that date is not valid

what is DataType of No.Of.Days

anton1987

No.Of days is a text var

and the function is
IF WD <> ERD THEN
No.Of Days := FORMAT(ERD-WD);

mohana_cse06

ERD := "Purchase Header"."Expected Receipt Date";
WD := WORKDATE;
if ERD <> WD then
  "No.Of.Days"  := format(ERD-WD);
message('%1',"No.Of.Days");

Name	DataType	Subtype	Length
ERD	Date		
WD	Date		
No.Of.Days	Text		30

I am not getting any error.

anton1987

Thanks Man you are a legend.
Thanks for all the help works like a charm

mohana_cse06

anton1987 wrote:

Thanks Man you are a legend.
Thanks for all the help works like a charm

welcome and thanks for ur comment

Slawek_Guzek

anton1987 wrote:

If WD <> ERD then
No.Of.Days := ( ERD - WD);

I get an error message saying that date is not valid

1. You can't have 'negative' date - minimal value in Date type variable is 0D (blank date)
2. You can't do any math with blank dates
3. Subststracting two dates gives you integer - number of dates between two dates

So if you're getting error messages it means that either ERD, or WD, or both are blank dates. In your case "Purchase Header"."Expected Receipt Date" must be blank

Regards,
Slawek