Галактика в вопросах и ответах

Zver писал(а): Прощу прощения за столь неинформативное сообщение.
Версия Viper - 5.5.16
Версия Атлантиса - 5.4.41

Bender писал(а):

Zver писал(а):И ещё один вопрос, не связанный с предыдущим.

Давно хотел уточнить следующее:

В настройках Viper напротив той или иной настройки часто есть флаг, для которого есть 3 варианта:
1) поставить галочку ( то есть выбрать пункт )
2) оставить его пустым ( то есть не выбирать )
3) можно сделать его синим квадратиком. Вот с этим пунктом не ясно, что в этом случае происходит?

С уважением, Василий

Три состояния для флага переключателя параметров появляются, когда вы заходите в настройки не самого проекта, а в настройки конкретного элемента сборки. Состояния означают:
- галочка, явно включенный параметр (не учитывая соответствующий параметр проекта, даже если он будет изменен);
- без галочки, явно выключенный параметр (не учитывая соответствующий параметр проекта, даже если он будет изменен);
- квадратик, параметр наследуется от соответствующего параметра проекта (в случае изменения в проекта - параметр в элементе также измениться).

Bender писал(а):

Zver писал(а): Прощу прощения за столь неинформативное сообщение.
Версия Viper - 5.5.16
Версия Атлантиса - 5.4.41

Официальная сборка випер 5.5.14. Есть тестовая 5.5.15 (доступна по запросу).
Установите випер из дистрибутива /pub/support/galaktika/bug_fix/GAL910/VIPER/Viper5.5.14.0-vip5.5.16.0.exe.
Сам компилятор установите поверх из /pub/support/galaktika/bug_fix/GAL810/VIPER/Viper5.5.12.0-vip5.4.42.0.exe.
Наверно, что-то напутали где-то. Ну или еще как вариант, что для ваши ресурсы просто собраны без отладочной информации, в параметрах проекта, есть соответствующая галочка (плюс ее могли перекрыть).

Zver писал(а):Насчет версии Viper. Установлен именно он - "Viper5.5.14.0-vip5.5.16.0.exe". То есть Viper 5.5.14, а язык версии 5.5.16?

Адреса для загрузки:

5.5.17.0
- Viper5.5.15.0-vip5.5.17.0.exe - дистрибутив
- Viper5.5.15.0-vip5.5.17.0-portable.zip - архив для портативной установки

Bender писал(а): • Доработана всплывающая подсказка по параметрам функции (Ctrl+Shift+Space), текущий параметр под курсором подсвечивается.

Zver писал(а):Поставил, очень понравилось, всем большое спасибо...

Masygreen писал(а):1) при ошибке поиска индекса по таблицам переход на строчку с запросом, а не в конец файла ...
2) copymarker - почему нет в подсказчике??
3) реквест переноса насроек сборки и тестовых баз в настройки среды, а не проекта

Zver писал(а):За последний год среда разработки очень сильно изменилась в лучшую сторону. Надеюсь мои замечания также помогут сделать её ещё лучше.
Есть несколько пожеланий по дальнейшему совершенствованию среды разработки:
1) Возможность строить графическое представление логических таблиц. Сейчас это можно увидеть в саппорте/объекты/выбираем объект/вкладка логическая таблица.
2) При разборе конструкций запросов сделанных на основе интерфейса IQuary не происходит проверки синтаксиса. Моё личное мнение, что реализация запросом с использованием этого интерфейса обладает большим потенциалом для создания сложных запросов, результат которых зависит от настроек. При этом синтаксис этих запросов всё-таки отличается от принятого в VIp и сейчас только методом проб и ошибок можно понять правила написания. Для начала очень бы помогла проверка на правильность написания наименований таблиц и их полей.
3) Возможность просматривать индексы таблицы. Сейчас для этого запускаю Саппорт и смотрю там.

С уважением,

Zver писал(а):3) Возможность просматривать индексы таблицы. Сейчас для этого запускаю Саппорт и смотрю там.С уважением,

interface dialogt00 'Таблицы Галактики (микро-Support:)' cyan,escclose;
 var c,fl:word;
 parameters c;
 create view as select xf$code,xf$name,xf$title,xf$loc from x$files(readonly);
 Panel a2;
 Table x$files;
 Screen down3;
 Show at (,1,,2);
 Buttons
  cmEdit1;
  cmFields1;
  cmIdx1;
<<
  <. Редактор .>   <. Поля .>   <. Индексы .>
>>
 end;
end; // panel

 Panel a1;
 table x$files;
 Browse b1;
 show at (,3,,22);
  fields
   x$files.xf$code 'Код':[4],protect;
   x$files.xf$name 'Имя':[20],protect;
   x$files.xf$title 'Заголовок':[25],protect;
   x$files.xf$loc 'Файл':[12],protect;
  end;
end; // panel a1

handleevent
!  cmInit: par0:=101

  cmDefault: putCommand(cmFields1);

  cmSetDefault: Abort;

  cmSetCurField:if fl=1 then {fl:=0;Abort};

  cmEdit1: {if x$files.xf$code>0 then sf_viewtable(x$files.xf$name,0)};

  cmFields1: {c:=x$files.xf$code;fl:=1;
    RunInterface('DIALOGT01',c)};

  cmIdx1: {c:=x$files.xf$code;fl:=1;
    RunInterface('DIALOGT02',c)};

 end;
end.

interface dialogt01 'Список полей таблицы' gray,doaccept;
 create view
  var c:word;
 as select xe$code,xe$name,xe$title,xe$datatype,xe$size from x$fields(readonly) where((c/==x$fields.xe$filecode));
 parameters c;
 browse b2;
  fields
   x$fields.xe$code 'Код':[2],protect;
   x$fields.xe$name 'Имя':[15],protect;
   x$fields.xe$title 'Заголовок':[24],protect;
   if(x$fields.xe$datatype=ftComp,'comp',if(x$fields.xe$datatype=ftDate,'date',if(x$fields.xe$datatype=ftTime,'time',if(x$fields.xe$datatype=ftWord,'word',if(x$fields.xe$datatype=ftString,'string',if(x$fields.xe$datatype=ftLongint,'longint',if(x$fields.xe$datatype=14,'LVar',if(x$fields.xe$datatype=ftDouble,'double',if(x$fields.xe$datatype=ftInteger,'integer',if(x$fields.xe$datatype=ftByte,'byte',if(x$fields.xe$datatype=ftBoolean,'boolean',if(x$fields.xe$datatype=ftChar,'char',if(x$fields.xe$datatype=ftSingle,'single',if(x$fields.xe$datatype=ftDatetime,'datetime',string(x$fields.xe$datatype))))))))))))))) 'Тип':[4],protect;
   x$fields.xe$size 'Размер':[2],protect;
  end;
 handleevent
  cmDefault:{RunInterface('DIALOGT02',c)};
  cmSetDefault:{Abort}
 end;
end.

interface dialogt02 'Список индексов таблицы' cyan,doaccept;
 create view
  var c:word;
 as select xi$number,xi$name,xi$fieldcode,xe$filecode,xe$name from x$indexes(readonly),x$fields(readonly) where((c/==x$indexes.xi$filecode and c/==x$fields.xe$filecode and x$indexes.xi$fieldcode/==x$fields.xe$code));
 parameters c;
 browse b3;
  fields
   x$indexes.xi$number 'Код':[2],protect;
   x$indexes.xi$name 'Имя':[15],protect;
   x$fields.xe$name 'Индексные поля':[24],protect;
  end;
 handleevent
  cmDefault:{};
  cmSetDefault:{Abort}
 end;
end.

Masygreen писал(а):о да .. индексы это +1 ... в саппорт конечно не лезу, но по F1 в справку и в таблицу ...