Галактика в вопросах и ответах

Код: Выделить всё

  var hFile : longint;
     sFileFull:= GetFirstFile('C:\SupCl','*.dbf')
     while sfilefull <> strDataIsEmpty do {
       hFile:= DBFOpen(sFileFull, stOpen);
       if DbfGetFirst(hfile) != 0 message('GetFirst is bad');
       else 
        do {
         if DBFPutFieldValue(hfile, 'ATL_BRAN', '281474976710657') = 0 message ('DBFPutFieldValue is good')
         DBFUpdateRecord(hfile)
         message('DBFGetFieldValue = '+DBFGetFieldValue(hfile, 'ATL_BRAN'))
       } while DBFGetNext(hFile) = 0
       DBFClose(hFile)
     sfilefull := GetNextFile;
} 

Код: Выделить всё

 DBFPutFieldValue is good
 DBFGetFieldValue = 2
...

Код: Выделить всё

<игнорировать-филиальность> — конструкция setBranch, позволяющая менять поле Atl_branch независимо от текущего значения филиальности. См. также Функции для работы с филиальностью. Конструкция используется только в операторах insert и update.Доступна начиная с Атлантиса 5.3.18.

<игнорировать-филиальность> = setBranch [ (<условие>) ]

<условие> — опциональный параметр setBranch, включающий этот режим при истинности выражения. Может использоваться для написания общего кода, когда заранее неизвестно, надо вручную выставлять Atl_branch или нет.

Если <условие> истинно или отсутствует, то система будет в модифицируемых записях устанавливать поле Atl_branch, заданное прикладником. В противном случае поле Atl_branch будет заполняться системой в соответствии с текущей настройкой филиальности.

Помимо указания ключевого слова setBranch необходимо также обычным способом задать значение Atl_branch:

T.Atl_branch := xxxh;

update setBranch current T;

или

insert setBranch(true) Appendix set Atl_branch := 3;

Если значение Atl_branch не задано (фактически, если поле не изменено), то несмотря на наличие конструкции setBranch значение Atl_branch будет стандартным.

 Исключение: конструкция insert setBranch <table> set <операторы-присваивания>, где в <операторах-присваивания> отсутствует Atl_branch. В этом случае значение Atl_branch будет равно 0. Эту особенность впоследствии планируется изменить на стандартное поведение.

Вложенная выборка данных (insert from select, update where) в любом случае будет происходить в соответствии с текущими филиальными ограничениями.

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

Для таблиц, открытых в памяти, заполнение Atl_branch работает в режиме WriteThru (сразу в БД пишется указанное значение) или при MTGetNextNRec(<table>, true). В последнем случае указанное значение пишется в ТП, а в БД попадает на этапе Flush, ручном или автоматическом.

Пример.

Во всех вставляемых и изменяемых записях полю Atl_branch будет присвоено значение 1 вне зависимости от наличия филиальности, текущего филиала(ов), динамически переключенных филиалов (с помощью SetBranches):
set atl_branch=1;
insert current setbranch mytable;
insert current setbranch mytable set atl_branch=1;
atl_branch:=1;
update current setbranch mytable;
modifyfilials:=true;
update setbranch(modifyfilials) mytable set atl_branch=1 where ((myvalue==mytable.myfield));