Как облегчить жисть программиста?

[Sancho]

имхо, С\AL недоделанный макроязык с ужасными (с точки зрения программинга) ляпами, например, определение переменных.
из сегодняшнего.
чего может быть проще? оттестфилдить дату на вхождение в диапазон
например:
testfield("Posting Date", DateFrom, DateTo) - не работает.
ну да и фиг с ним, testfield навовская примочка.

но почему не работает конструкция
if not "Pisting Date" in [DateFrom..DateTo] then...
это ж ДОЛЖНО работать по определению!!!

где семейство Controls у форм? доколе перечислять все контролы при любой попытке управлять видимостью\едитабельностью контролов?
где управление закладками, например, скрыть?
где управление кнопками меню?

аскетичный? да. более чем.
красивый код? отточен, лаконичен, немногословен?
вот тут изо всех сил отнюдь!
посмотрите на юниты обработки измерений, хотя бы...
в бюджетах измерений 6 штук6 и много раз встречаются вшестеро откопированные куски кода, поскольку обращаться с полями как с объектами, сложновато.
да, мы научились обходить тонкие места, но положите руку на причиндалы те, кто до этого хоть в чем-то программировал: МЫ ДЕЛАЕМ КОСТЫЛИ, поскольку нормальные методы программирования не канают.

конечно, все имха.

[prefreitor]

Цитата:

Сообщение от Sancho

где семейство Controls у форм? доколе перечислять все контролы при любой попытке управлять видимостью\едитабельностью контролов?
где управление закладками, например, скрыть?
где управление кнопками меню?

аскетичный? да. более чем.
красивый код? отточен, лаконичен, немногословен?

А давайте тогда уж лучше поговорим о программировании страниц и отчетов для RTC... Старые версии все равно уже не переделать, но на то что будет в новых можно повлиять? Может, конечно уже это и не по теме конкретного топика...

[GalaM]

Цитата:

Сообщение от prefreitor

А давайте тогда уж лучше поговорим о программировании страниц и отчетов для RTC... Старые версии все равно уже не переделать, но на то что будет в новых можно повлиять? Может, конечно уже это и не по теме конкретного топика...

Теоритически можно, если говорить про это на http://connect.microsoft.com/
Там хотя бы ответят будет ли это исправлено в какой-то дальней версии или лучше не надеятся
А тут говорить даже теоритически бесполезно .

[alexb_imported]

Цитата:

Сообщение от Sancho

но почему не работает конструкция
if not "Pisting Date" in [DateFrom..DateTo] then...
это ж ДОЛЖНО работать по определению!!!

У меня эта конструкция работает:

Вариант 1

MyDate := 151210D;
IF NOT (MyDate IN [011210D..311210D]) THEN ERROR(FORMAT(MyDate));

==> ERROR не вылетает
Вариант 2

MyDate := 150610D;
IF NOT (MyDate IN [011210D..311210D]) THEN ERROR(FORMAT(MyDate));

==> ERROR вылетает

В Вашем варианте конструкция не рабoтает, потому что очевидно DateТо меньше чем DateFrom

Вариант 3

MyDate := 151210D;
IF NOT (MyDate IN [151210D..141210D]) THEN ERROR(FORMAT(MyDate));

==> ERROR вылетает

Очевидно в конструкции [variable1..variable2] variable2 должна быть всегда больше/равна variable1, поэтому просто надо дополнить код:

IF DateТо < DateFrom THEN BEGIN
  IF NOT ("Posting Date" IN [DateТо ..DateFrom]) THEN ...
END ELSE BEGIN
  IF NOT ("Posting Date" IN [DateFrom..DateTo]) THEN ...
END;

То же самое касается например и INTEGER'a

[Sancho]

Цитата:

Сообщение от AlexB

Цитата:

Сообщение от Sancho

но почему не работает конструкция
if not "Pisting Date" in [DateFrom..DateTo] then...
это ж ДОЛЖНО работать по определению!!!

У меня эта конструкция работает:

Вариант 1

MyDate := 151210D;
IF NOT (MyDate IN [011210D..311210D]) THEN ...

==> ERROR не вылетает
...

ступил я. скобочки после not не поставил, она и не компилилась...
просто параллельно кодил и отвечал на форуме