Форум ДИЦ
http://dforum.dic.ru/

Еще Турбо9
http://dforum.dic.ru/viewtopic.php?f=63&t=10592
Страница 2 из 2

Автор:  Андрей [ Ср фев 03, 2016 2:48 pm ]
Заголовок сообщения:  Re: Еще Турбо9

storm писал(а):
...Вы бы мне сразу в почту написали...

Сереж, лучше сюда. Так хоть какое-то предупреждение о "нежданчиках". А то ДиЦ молчит, как "рыба об лёд".

Автор:  Davydov [ Ср фев 03, 2016 3:35 pm ]
Заголовок сообщения:  Re: Еще Турбо9

Андрей писал(а):
А то ДиЦ молчит, как "рыба об лёд".

А что, коммент к последнему диску информацией не считается?
Цитата:
УчетТМЦ
-- Иравлены ошибки при добавлении своей первички из нескольких проектов. На диске перевыложен архив с примером как добавить свою первичку (см. Docs/Рекомендации ДобавитьПервичку).

Автор:  storm [ Ср фев 03, 2016 3:45 pm ]
Заголовок сообщения:  Re: Еще Турбо9

Класс profile должно быть:

Код:
    ----стандартная первичка-----
    Библио.Добавить_СвоюПервичку_ЗначенияПоУмолчанию;
    Библио.ЗаполнитьМассивыСвоейПервички;
    Первичка.Переменные.МетодЗаполнитьМассивыСвоейПервички = ПолучитьИнфоМетода(Библио, 'ЗаполнитьМассивыСвоейПервички');
    ----стандартная первичка-----


Класс biblio должно быть:

Код:
InClass Public
  -- значения настроек первички для опер.доков
  var Доп_Значения[] :Integer = [ 0,0,0,0,0,0,0,0,1,0,0,1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,1,0,0];

  -- значения настроек первички для видов ТМЦ
  var Доп_ЗначенияТМЦ[] :Logical =
--  120    130    131   150   200   190   180
  [True , True , True, True, True, True, True];

  proc Добавить_СвоюПервичку_ЗначенияПоУмолчанию;
    var i:integer;
    -- массив по_умолчанию для дополнительных печатных форм
    -- в стандартном наборе их 34
    -- типов документов - 34
    -- Первичка.Константы.ПервичкаКоличествоДокументов
    for i = 1..LengthOfArray(Значения_НастройкаПервичкиПоУмолч) do
      AddInArray(Значения_НастройкаПервичкиПоУмолч[i], Доп_Значения[i]);
    end;

    for i = 1..LengthOfArray(Значения_НастройкаПервичкиВидТМЦПоУмолч) do
      AddInArray(Значения_НастройкаПервичкиВидТМЦПоУмолч[i], Доп_ЗначенияТМЦ[i]);
    end;
  end;

  proc ЗаполнитьМассивыСвоейПервички;
    var локСколько :Integer;
    локСколько = LengthOfArray(Названия_Классы_ФормПервички);
    InsertInArray(Названия_Классы_ФормПервички, локСколько+1,['Накладная на Возврат', ПервичкаДок.НакладнаянаВозврат]);
  end;



Была ошибка, если подключалось несколько проектов с дополнительной первичкой. Они перекрывали настройки друг друга, поэтому ДИЦ доработал формат подключения первички.

Автор:  Zolotko [ Ср фев 03, 2016 8:16 pm ]
Заголовок сообщения:  Re: Еще Турбо9

Спасибо, все получилось

Автор:  Андрей [ Чт фев 04, 2016 11:11 am ]
Заголовок сообщения:  Re: Еще Турбо9

Davydov писал(а):
А что, коммент к последнему диску информацией не считается?
Цитата:
УчетТМЦ
-- Иравлены ошибки при добавлении своей первички из нескольких проектов. На диске перевыложен архив с примером как добавить свою первичку (см. Docs/Рекомендации ДобавитьПервичку).


Считается, конечно. Просто, как-то неочевидно, что "Исправлены ошибки" могут означать и такие действия как "перестало отображаться". Добавили бы в анонс еще одно предложение. Что-то типа: "необходимо перепроверить..." или "возможны проблемы с существующими подключениями.." - цены бы им не было. :о)

Страница 2 из 2 Часовой пояс: UTC + 3 часа [ Летнее время ]
Powered by phpBB © 2000, 2002, 2005, 2007 phpBB Group
http://www.phpbb.com/