Константин wrote:
А тут ещё "это", на ровном месте ...:(
Не плачь, лумумба (С). У меня только что тоже чуть глаза на лоб не
вылезли. Следи за рукой:
Create Procedure FillGCCode
Returns (Code Int, City Int, OCond Int)
As
Begin
For Select Code, City_Post, OC_Post
From Global_Cond
Into :Code, :City, :OCond
Do
begin
Update Contr_OC Set Zaliv='Д', Global_Code=:Code
Where City_Post=:City And Condition=:OCond;
Suspend;
end
End
Commit;
Select * From FillGCCode
И ничего. Cлегка охреневаю, чтоб провериться, вытаскиваю форселектный
запрос через клипборд
Select Code, City_Post, OC_Post
From Global_Cond
CODE CITY_POST OC_POST
=========== =========== ===========
50 1 1
51 144 1
52 180 1
53 2130 1
54 2135 1
55 2136 1
56 2138 1
57 2145 1
Как вам это понравиццо? Призвал весь отдел, минут 15 дружно протирали
глаза об мой монитор всем чумом, пока я не вспомнил про секретный бажок.
Переконнект - и вуаля, всё работает. Вот так-то. А ведь некоторые особо
упёртые субъекты целиковые приложения строють на создании-дропании
объектов как образе жизни оного приложения. В четвёртый раз всего лишь в
жизни на него наступаю, повторить не удаётся, что за предыстория ему
наужна чтоб проявиться - неведомо. В этот раз я правда свалил после
этого в файл весь свой сеанс WISQL за день, мож какую пищу для ума ДЕ
там найдёт как приедет... Хотя это 1.5.3, ему уже пожалуй что и
неинтересно. Бум ждать когда на двойке выскочит.
--
Regards. Ded.