of63
Т.е. где-то в вызывающей процедуре есть PRIVATE nDiscount ? И так тоже бывает, когда параметры замучишься передавать, или интерфейс подпрограммы застарелый, а передать надо, и в классы переоформлять все это нет возможности...

insert into (Discount ) value (?nDiscount)
UPG
update set Discount = ?nDiscount

of63
zlocal - в хелпе нет, поиском на форуме тоже нет.

Цитата:

DEFINE можно бы сделать длинный, но... на весь проект нельзя распространить файл с любимыми DEFINE, надо в каждой PRG-шке INCLUDE. Тоже везде "не забыть", "учесть", в любом написании, после 10-20 лет программирования будет достигнут порог "наикратчайшего" кода, когда остальные варианты будут равноценны по геморности

of63
то в коде подпрограмма_фреймверка вполне будет видна эта "переменная внутри класса"

of63
DO подпрограмма_фреймверка

of63
А почему бы PRIVATE-переменной не быть видимой в нижележащих вызовах подпрограмм? (метод и подпрограмма - это одно и тоже)

of63
А почему бы PRIVATE-переменной не быть видимой в нижележащих вызовах подпрограмм? (метод и подпрограмма - это одно и тоже)
2ssa
Почитаю, но попозже. Про DEFINE:
#DEFINE zlocal LOCAL m.a, m.b, m.c, m.d, m.e...
...
zlocal
m.a = 1
m.b = 2
...

of63
А почему бы PRIVATE-переменной не быть видимой в нижележащих вызовах подпрограмм? (метод и подпрограмма - это одно и тоже)

of63
А почему бы PRIVATE-переменной не быть видимой в нижележащих вызовах подпрограмм?

Аспид
update set Discount = ?nDiscount

of63
Почитаю, но попозже.

of63
LOCAL m.a, m.b, m.c, m.d, m.e...
...
m.a = 1
m.b = 2
...

ssa

of63
А почему бы PRIVATE-переменной не быть видимой в нижележащих вызовах подпрограмм? (метод и подпрограмма - это одно и тоже)

Она там и видима. Но именно в ниже лежащих по стеку вызова.

of63
Ровно столько же проблем (сколько и с LOCAL) - одна строка кода в каждой подпрограмме

of63
Что-то я не нашел этого места...

of63
По ссылке... Я такой "ИИ" (Creates the 'LOCAL' declaration by scanning a codeblock (c)) пока подожду использовать. Одну строку в подпрограмме я и сам напишу.

of63
Но Аспид похоже так не считает

Аспид
Никаких PRIVATE nDiscount я не пишу.
При объявлении она и так приват

of63
Был с год назад точно такой же спич

of63
Добьем. Получается двоякое применение слова:
- переменная типа PRIVATE (создается при присваивании, если таковой не видно) - переменная с областью видимости в точке создания и в нижележащих подпрограммах;
- команда PRIVATE переменная - ничего не создает, но убирает из видимости переменную вышележащих подпрограмм.

of63
2. Если Click вызван как событие (нажатие мышкой), то код .Click будет выполнен как вызванный из строки READ EVENTS, т.е. где-то из стартового модуля с его видимыми переменными...

of63
2. Если Click вызван как событие (нажатие мышкой), то код .Click будет выполнен как вызванный из строки READ EVENTS, т.е. где-то из стартового модуля с его видимыми переменными...

Igor Korolyov
Впрочем, тут проблема совсем другого рода.
Аспид
update set Discount = ?nDiscount
Имеет место совершенно точная неоднозначность - что понимается под nDiscount - переменная памяти, или, вдруг, поле в текущем курсоре. После того как хоть раз попадётся поле с такими именем, охота пропускать m. будет отбита навсегда.

Igor Korolyov
Ну и да, поскольку речь идёт о классе, то смысла в private я не вижу - вместно него совершенно нормально сработает This.nDiscount - в предположении что сам SQLEXEC тоже прописан в методе этого же класса.

of63
Но Аспид похоже так не считает

akvvohinc
Но это верно лишь до тех пор, пока переменная с таким именем не существует.

SET CENTURY Off 
SET COMPATIBLE OFF
SET TALK OFF
SET NOTIFY OFF
SET DELETED ON
SET HOURS TO 24
SET DATE german
SET SECONDS OFF
SET SAFETY OFF
SET CONFIRM OFF
SET EXCLUSIVE OFF
SET EXACT OFF
SET CLOCK STATUS
SET MULTILOCKS ON  
SET MEMOWIDTH TO 1000
SET DECIMALS TO 2
SET NULLDISPLAY TO ''

Аспид
Ну положим у меня есть базовый класс форм. Он совершенно абстрактен.
Так уже в нем у меня есть метод sets

SET CENTURY Off 
SET COMPATIBLE OFF
SET TALK OFF
SET NOTIFY OFF
SET DELETED ON
SET HOURS TO 24
SET DATE german
SET SECONDS OFF
SET SAFETY OFF
SET CONFIRM OFF
SET EXCLUSIVE OFF
SET EXACT OFF
SET CLOCK STATUS
SET MULTILOCKS ON  
SET MEMOWIDTH TO 1000
SET DECIMALS TO 2
SET NULLDISPLAY TO ''

Который вызывется в ините.
Написано это лет 15 назад. Больше не писал.