Константин 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.

Ответить