Ok, I know there is a FINDFIRST and FINDLAST. SO I can see the firstrecord and lastrecord. And I see there is a FIRST but IF I do that. THen the begindate and endDate is every time "". BetginDatumMessage := 'begindatum is yessss:'; IF Rec.FIND("Parent Item No.") THEN; Rec.SETRANGE("Parent Item No.","Parent Item No."); Rec.SETRANGE("Item No.","Item No."); MESSAGE('Date is ok'); //BeginDate := TODAY + 1 ; //EndDate := TODAY + 2; MESSAGE(BetginDatumMessage + '' + FORMAT(Rec.BeginDate)); MESSAGE(FORMAT(TODAY)); IF (TODAY >= Rec.BeginDate) AND (TODAY <= Rec.EndDate) THEN BEGIN MESSAGE('Dat is fine'); RecSalesHeaderQuote.FncCheckBOM(SalesLines.Description); MESSAGE(FORMAT(BeginDate)); MESSAGE(SalesLines.Description); END ELSE BEGIN MESSAGE('other'); END; IF (Rec.BeginDate = 0D) AND (Rec.EndDate = 0D ) THEN BEGIN MESSAGE('Empty'); END;
↧