cro-logo      
Добро пожаловать, Гость. Пожалуйста, выберите Вход или Регистрация

 
 
  ГлавнаяСправкаПоискВходРегистрация  
 
Переключение на Главную Страницу Страниц: 1
Послать Тему Печать
Преобразование формулы в Lua (Прочитано 275 раз)
Пытливый
Профи
****
Вне Форума



Сообщений: 210
Преобразование формулы в Lua
17.05.2018 :: 13:12:06
 
Имеется формула которую хотелось бы реализовать в Lua, знаний пока маловато для грамотного переноса, а посему прошу помощи. Вот собственно формула:
Код:
if ValCount(AY10_AE) > 2
then (@LinkID := AY1;
      @MasterID := AY10_AE(1);
		@RootID := AY100_AA(1);
		while ValCount(AY10_AE) > 2
		do (@SlaveID := AY10_AE(ValCount(AY10_AE))
		    @RecID := AddRecord(AY{0}, AY1 := @LinkID)
			 UseRecord(AY{@RecID}, AY10_AE := @MasterID << @VALUESEPARATOR << @SlaveID; AY100_AA := @RootID)
			 AY10_AE(@SlaveID) := 0
		   )
		) 

Наверх
 
 
IP записан
 
Пытливый
Профи
****
Вне Форума



Сообщений: 210
Re: Преобразование формулы в Lua
Ответ #1 - 23.05.2018 :: 23:41:19
 
Что-то нет ответа. Ладно попробую написать как я это вижу и если есть ляпы прошу поправить:
Код:
local Base = CroApp.GetBank():GetBase("AY")
for Rec in Base:GetRecordSet().Records do      
     if Rec:GetValuesCount(10) > 2 then
        local LinkID = Rec:GetValue(1)
        local MasterID = Rec:GetValue(10, 1)
        local RootID = Rec:GetValue(100, 1)
        while Rec:GetValuesCount(10) > 2 do
          local SlaveID = Rec:GetValue(10, Rec:GetValuesCount(10))
          local NewRec = Base:AddRecord()   
          NewRec:SetValue(1, LinkID)
          NewRec:SetValue(100, RootID)
          NewRec:SetValue(10, {MasterID,SlaveID})
          Rec:SetValue(10, 0, SlaveID)
        end
     end
end
 

Наверх
 
 
IP записан
 
Переключение на Главную Страницу Страниц: 1
Послать Тему Печать