Заметки из серии Navision Programming

[apanko]

07.08.06Изучая существующий функционал Navision, несколько упустил программирование, коим неплохо овладел в период внедрения разрабатывая различные отчеты. Проявилось это в том, что не смог вспомнить как программно пройтись по записям таблицы, пришлось подсмотреть:

glRec.SETRANGE("название поля в glRec","от значения"[,"до значения"]);

IF glRec.FIND('-') THEN BEGIN
REPEAT
//Обработка
UNTIL glRec.NEXT = 0;

[apanko]

08.08.06 (Programming)
Пару заметочек про чекбокс. Далеко не откровения, а скорее для информации:
* По умолчанию чекбокс вставляется с выключенной опцией ShowCaption (показывать заголовок).
* Если включить опцию ShowCaption, то заголовок по умолчанию выводится справа, а сам чекбокс - слева. Если есть желание поменять их местами нужно использовать опцию BitmapPos.

[apanko]

Да, деталям нужно уделять много внимания.

Сделал открытие, что функция GET игнорирует установленные фильтры, о чем кстати в справке написано.

Добавлю, что Deleteall наоборот, работает только в пределах установленного фильтра.

[apanko]

Чтобы к Textbox добавить возможность осуществлять выбор из какой-либо таблицы, осуществив перед этим фильтрацию нужно в триггере элемента управлению добавить следующий код

C/AL Locals
lrecItemVariant    Record  Item Variant
lformItemVariants  Form    Item Variants
 
C/AL Code
OnLookup(VAR Text : Text[1024];) : Boolean 
  lrecItemVariant.SETRANGE("Item No.",ItemNo); // фильтруем.
  lformItemVariants.LOOKUPMODE:=TRUE; //на тот случай если у формы свойство LookupMode = FALSE.
  lformItemVariants.SETTABLEVIEW(lrecItemVariant); // можно использовать SETRECORD
  IF lformItemVariants.RUNMODAL = ACTION::LookupOK THEN BEGIN
    lformItemVariants.GETRECORD(lrecItemVariant);
    // Предустановленные фильтры пользователь может снять (Shift+Ctrl+F7), 
    //поэтому здесь не помешает добавить проверку выбранного значения.
    VariantCode:=lrecItemVariant.Code;
  END;

[apanko]

Опять про GET.
Чтобы получить доступ к таблицам, содержащим настройки нужно использовать конструкцию XxxxSetup.GET(‘’);

Про автоматическую нумерацию ключевых полей.
В связи с тем, что потратил немного времени на поиск кода в формах и таблицах, где происходило бы присваивание номера строки товарного журнала, сообщаю.

1. Для одного из полей таблицы типа Integer или BigInteger можно указать свойство AutoIncrement. В этом случае при вставке строк в таблицу, это поле будет заполняться автоматически с шагом 1.

2. Для форм можно включить свойство AutoSplitKey, тогда для последнего поля, входящего в первичный ключ будет осуществляться автоматическая нумерация, при условии, что эти поля типа Integer, BigInteger, Decimal или GUID.


Update: полезная инфа про AutoIncrement на SQL есть в теме http://apanko.ru/showthread.php?p=20391

[apanko]

Для облегчения своего труда делал одну примочку (выложу позже, после доведения до совершенства). В процессе столкнулся с проблемой, внешним проявлением которой был отказ системы фильтровать данные по вариантам.

Пока разбирался узнал следующее:

SETFILTER("Variant Code",'%1','='''''); - работает
SETFILTER("Variant Code",'%1',''); - работает, но красивее.
SETFILTER("Variant Code",'%1','''''') - не работает, потому что отбирает записи, где код варианта равен '', а не пустым значениям.

Ознакомившись с вышеприведенными данными начал волноваться, однако зря, конструкция приведенная ниже - работает:

 
strfilter:='';
SETRANGE("Variant Code",strfilter);

Причина правда оказалась в другом...

[apanko]

Иногда из предварительного просмотра печатать нельзя: "Этот отчет не может быть напечатан из Предварительного Просмотра. Завершите просмотр и запустите отчет". Такое явление часто наблюдается при печати/просмотре счетов-фактур.

Явно свойство, отвечающее за подобное поведение, не предусмотрено.

Добиться указанного эффекта можно если в коде использовать оператор CurrReport.PREVIEW.

 
IF CurrReport.PREVIEW THEN;

Знание почерпнуто отсюда, за что ответившему - мое уважение.

[apanko]

lrecZreportRegister.RESET;
//lrecZreportRegister.SETRANGE(...);
IF FORM.RUNMODAL(0,lrecZreportRegister) = Action::LookUpOk THEN BEGIN
   gZreportNo:=lrecZreportRegister.ZreportNo;
   gZreportDate:=lrecZreportRegister.ReportDate;
END;

Спасибо http://forum.mazzy.ru/index.php?show...ndpost&p=30191

[apanko]

Редактировал элемент управления типа Label.
Предупреждаю сразу - откровений не будет.

Изменял свойства:
LeaderDots. Отвечает за то будут ли появляться точечки в элементе управления, такие которые ведут к прямок данным.

MultiLine. Указывает системе - переносить значение или пихать все в одну строку.

После того как строки стали переноситься, захотелось этим процессом управлять. Для это в свойстве Caption применяется обратный слэш: "Строка 1 \Строка 2".

[apanko]

См. также статью Серия статей: Курс Молодого Самурая. Часть первая: управляем формой.