Форум

Причем тут классы ?
Функции какие созданы разработчиками есть в help.
Если потребуется какая-то дополнительная информация задавайте но не из теории а предметно.
Что ксается операции чтения я еще раз вам говорю прочитать запись и разделить ее у вас не получится на практике. Про семафоры речь идет не о перации считывания непосредственно а о необходимости в течении какого-то времени хранить данные неизменными, которые вы прочитали. А именно: если Вы даже прочитаете, а на другом компе эту запись поменяют то у Вас на экране будут не те данные, а чтобы в середине чтения записи кто-то успел поменять - это не серъезный разговор, тут ни блоикровка ни семафоры и прочее никакого практического смысла не несут. Вы на эту ситуацию никогда не выйдете.

Тогда бы весь БЭСТ был покрыт семафорами.
InitList четко отслеживает уникальность по индексному ключу и перед записью не дает вам делать 2 одинаковые записи даже при работе 100 пользователей а не то что двух :))

Цитата
nordk пишет: Тогда бы весь БЭСТ был покрыт семафорами. InitList четко отслеживает уникальность по индексному ключу и перед записью не дает вам делать 2 одинаковые записи даже при работе 100 пользователей а не то что двух :))

С огромным удовльствием готов от них отказаться. Тогда подскажите как быть?
Действия:
1. Создаем Н\Н в sclad\Mlabel
2. Создаем Н\Н в zapas\Mlabel
3. Создаем Спецификацию на 2.
( Таблицы BOM, BOM_INV, BOP_OP)
4. Создаем сзвязь между 2 и 1( или тоже самое, что и Изменяем2).
Условие1:
Либо все 4ре действия выполняются, либо не выполняется ни одно из них.
Условие2:
Исключение одновременного выполнения действий 1-4 на разных машинах.

Цитата

nordk пишет: Создали запись - в товарах, запомнили, создали запись в материалах запомнили. В записи материалов заполняем поле по заполненному коду в товарах. Причем тут одновременно на некольских машинах ?? Ну будут разные номера в материалах и товарах и что ? Нет смысла писать везде в один момент времени. Для этого в справочнике поле есть для связки.. Разрывайте как хотите по времени работу операции 1 от операции 2 и от операции 3. И причем тут в этот же момент пытаться делать спецификацию. И причем тут разные компьютеры ??? И главное зачем это делать программно - я вот например очень не уверен что такой объект как спецификацию Вы грамотно повторите по правилам БЭСТа и считаю такие объекты надо делать инструментом БЭСТа и если его нет объяснять и просить чтобы были... А Вы еще вероятно потом эту базу будете в сервис-центр подсовывать в случае непонятных ошибок - найдите их... Вы начните с описания задачи..а то судя по всему к ее реализации Вы подходите вообще не с той стороны... Давайте рассмотрим задачу и как Вы хотите построить принцип ее реализации....

Без проблем!!! Просто то, о чем я говорю уже реализовано. Возник только об одновременном использовании и я удивляюсь почему только сейчас(сам виноват).

Задача такая:
Есть типовое изделие. Это такое изделие, которое описанно формулами. Формулами описан расход материалов на это изделие. Подставив конкретные значения в формулы - получаем расход материалов в числах на конкретное изделие. Грубо говоря, расчетная спецификация (к стати этот тип зарезервирован разработчиками, это к делу не относиться).
Для того, чтобы описать такое изделие пользователь должен задать формулы. Действия пользователя в Б-5:
1. Создает Н\Н в производстве.
2. Создает обычную спецификацию на него с "нулевым" расходом материалов. Указывает маршрут изделия (операции).
3. Создает Н\Н в продажах, связывает ном номера.
4. После этого Пользователь задает математические формулы для расчеты материалов (в текстовом файле с именем, который является кодом спецификации) и из реестра спецификаций вызывает спецфункцию "Задать формулы расчета". После этого формулы берутся из .txt файла, проверяются на синтаксис Б-5.

5.Задает количество переменных в формулах, наименования параметров, допустимые пределы.
6. Формулы переписываются в отдельную таблицу, где и хранятся.


Затем, если ему необходимо изделие данного типа, опеределенных размеров, которого еще нет, он нажимает на кнопочку "создать". Вот она-то как раз и выполняет те 4ре дейтсвия, которые я описал.
Для этого Спецфункция открывает таблицу с формулами, считает расход материалов, копирует номенклатурные номера, спецификацию, задавая лишь новые значения, названия и параметры.
Перед созданием идет еще и проверка на то, а не создано ли изделие таких размеров до этого.

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

З.Ы. Разумеется есть и действия как удалить формулы, проверить формулы, сделав тестовый расчет изделия в .txt файл, все сразу с ходу не опишу.

Цитата
nordk пишет: ну и нет тут ничего сложного. Заблокировали номенклатуру - сделали. Разблокировали и так далее по каждой табличке раздельно. Ну что тут такого ?

А у меня перед созданием чего либо берется н\номер и код последней записи (по индесу), вот я и опасаюсь, как бы не вышло так, что этот номер последней записи не получили бы одновременно 2 пользователя один и тот же. И получиться 2 записи с одним номером.

Цитата
nordk пишет: Не видя исходного кода Ваши опасения понять не могу... Для меня очень простая и обычная задача (в плане записи в таблицы)

В идеале должно быть так:

Код
1. Select MLABEL 2. SET ORDER TO TAG TAG_NNum 3. DbGoBottom() 4. sLastNNum:=Alltrim(mlabel->nnum) 5.DBPUSH("mlabel","MLABEL","",{sRealProductGrup,sRealProductGrup}) 6.if(mlabel->nnum==AllTrim(mlabel->nnum)) 7.if(.NOT.(IfAllChar(AllTrim(mlabel->nnum)))) 8.sNewNNumReal:=IncreaseOne(sLastNNum) 9. Создание Новой номенклатуры Append BLANK'ом со значениями из переменных памяти. закрытие IF'ов, dbpop()

if(mlabel->nnum==AllTrim(mlabel->nnum)) стоит т.к. у нас договоренность, что поле Н\Н заполнено полностью, все 13ть символов. IfAllChar() - возвращает .T. если нет ни одной цифры в символьном Н\Н. (Раньше была DoesCharExist(), т.к была договоренность использовать в Н\Н только цифры, но пользователи нарушают)
IncreaseOne() - Увеличивает на 1 число, записанное в виде символьной строки, символы-неЦифры заменяются нулями, и игнорируются как разряд.
В принципе, можно было бы выложить код, правда если Вам не страшно читать кучу мусора. Это первое, что я написал. Да и на самом деле у меня сейчас идет создание новоё Н\Н путем COPY TO И APPEND From - надо переделать.

Точно таким же образом идет создание в MLABEL2 ZAPAS\MLABAL и со спецификациями. (Сам принцип присвоения следующего номера)

Цитата

nordk пишет: Во-первых применяйте ADDREC() Вы все-таки не в свои таблицы писать собрались... Во-вторых DBPUSH() делайте либо в начале, либо откройте свой алиас и он Вам вообще не нужен. И я бы применил для проверки где-нить перед непосредственной записью в поле DBSEEK() по номенклатурному номеру если так переживаю за уникальность и если бы нашел то сделал бы еще +1 и все и ADDREC() и все запись создана и никаких семафоров и даром не надо.

Этот DbPush вообще лишний, я его убрал, этот код просто не раз дописывал и часто не было времени убрать лишнее, оставлял, так сказать и соображений "совместимости". Об AddRec() вообще впервые слышу (в описании его нет :( ). То что не всвои - испоьзую StepPlus(), если Вы об этом. По поводу повторной проверки также думал. Проблема не в том, что там такой номер может быть. При сортировке Н\Н по порядку при условии, что истинно для всех записей Len(AllTrim(Malbel->NNUM)==13) и нет символов в номерах (я позже сделаю контроль за этим)
Последний номер+1 просто не может существовать - это лишняя проверка. Проблема только в том, что 2 пользователя могут одновременно получить этот самый последний номер. Но это опять как я вижу.

Насчет одновременности сделайте проверку по индексному ключу перед записью и запись и посадите 5 человек и жмите на счет 3 одновременно и попробуйте получить 2 одинаковых записи...

Саак простите - я в БЭСТ-5 у себя тоже что-то не нашел привычный раздел...
У Вас есть БЭСТ-4 или возможность скачать его ? - там есть help по программированию с описаниями внутренних функций БЭСТа....

Цитата
nordk пишет: Саак простите - я в БЭСТ-5 у себя тоже что-то не нашел привычный раздел... У Вас есть БЭСТ-4 или возможность скачать его ? - там есть help по программированию с описаниями внутренних функций БЭСТа....

У меня по Б-4 есть следующие файлы:
help4plus.chm
help4plus.chw
spb4+.chm
spb406.chm
spb407.chm
spb4010.chm
spb4048.chm
spb40366.chm
программирование_в_БЭСТ-4.chm
Какой именно файл описывает ф-ии БЭСТ'а?

Обычно, если чего-то "явно не хватало" (чисто интуитивно) читал help4plus.chm, но 99% по Б-5 хелп изучал. Что именно я должен знать?
Возможность скачать есть.

Цитата
nordk пишет: программирование_в_БЭСТ-4.chm

Честно говоря описания ф-ий не так подробны как хотелось бы. Попутно ы конкретно по AddRec().
1. Чем она существенно отличается от Append BLANK, кроме того, что делает блокировку, чем она лучше?
2. Что возвращает эта функция?
3. StepPlus() для уник поля надо делать или нет?

В плане самой записи вроде как верно, в плане логики - это Ваше решение...тут не сужу...
Что касается cNnum+=1 посмотрю - я это написал как вариант необычности харбора :)
В БЭСТ-4 ?1+"1" в отладчике показывает "2"
Дальше не экспериментировал, но обратил что работает...