6. März 2009 15:27
CurrReport.LANGUAGE := LanguageLoc.GetLanguageID(LanguageIDPar);
WITH SalesHeaderPar DO BEGIN
MESSAGE(FORMAT("Requested Delivery Date"));
IF ("Requested Delivery Date" <> 0D) THEN
EXIT(STRSUBSTNO(TEXT001,
DATE2DWY("Requested Delivery Date",2),
FORMAT(CALCDATE(UPPERCASE('<cW-6d>'),"Requested Delivery Date"),0,
'<Day,2><Filler Character, > <Month Text,3> <Year>'),
FORMAT(CALCDATE(UPPERCASE('<cW>'),"Requested Delivery Date"),0,
'<Day,2><Filler Character, > <Month Text,3> <Year>')))
ELSE
EXIT('');
END;
6. März 2009 15:57
6. März 2009 17:21
6. März 2009 17:36