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