Описание типов: различия между версиями

Нет описания правки
Нет описания правки
 
Строка 541: Строка 541:
ВетеринарныйДокумент.СрокГодности = Источник.СрокГодностиОт;
ВетеринарныйДокумент.СрокГодности = Источник.СрокГодностиОт;
ВетеринарныйДокумент.СрокГодностиДо = Источник.СрокГодностиДо;
ВетеринарныйДокумент.СрокГодностиДо = Источник.СрокГодностиДо;
ВетеринарныйДокумент.ЛабИсследования.Добавить(СформироватьЛабИсследования(Источник.СтрокаТЧ)))
ВетеринарныйДокумент.ЛабИсследования.Добавить(СформироватьЛабИсследования(Источник.СтрокаТЧ
Возврат ВетеринарныйДокумент;
Возврат ВетеринарныйДокумент;
КонецФункции
КонецФункции
Строка 663: Строка 663:
<syntaxhighlight lang='1c'>
<syntaxhighlight lang='1c'>
Функция СформироватьЛабИсследования(Источник)
Функция СформироватьЛабИсследования(Источник)
    ЛабИсследование =  Фабрика.Создать(Фабрика.Тип(ПространствоИмен,"ЛабИсследование"));
ЛабИсследование =  Фабрика.Создать(Фабрика.Тип(ПространствоИмен,"ЛабИсследование"));


    //ЛабИсследование.ID                   =  Источник.Код;
//ЛабИсследование.ID=  Источник.Код;
    ЛабИсследование.Мероприятие         =  "Мероприятие";
ЛабИсследование.Мероприятие=  "Мероприятие";
    ЛабИсследование.ТипМероприятия     =  "LBR"/"UND"/"VSE"/"IMM"/"MED"/"QRT";
ЛабИсследование.ТипМероприятия=  "LBR"/"UND"/"VSE"/"IMM"/"MED"/"QRT";
    ЛабИсследование.ДатаСобытия         =  Источник.Дата;
ЛабИсследование.ДатаСобытия=  Источник.Дата;
    ЛабИсследование.МестоПроведения     =  Строка(Источник.МестоПроведения);
ЛабИсследование.МестоПроведения=  Строка(Источник.МестоПроведения);
    ЛабИсследование.АдресОператора     =  Строка(Источник.АдресОператора);
ЛабИсследование.АдресОператора=  Строка(Источник.АдресОператора);
    ЛабИсследование.НазваниеОператора   =  Строка(Источник.НазваниеОператора);
ЛабИсследование.НазваниеОператора=  Строка(Источник.НазваниеОператора);
    ЛабИсследование.ПоказательБезопасности  = Строка(Источник.ПоказательБезопасности);
ЛабИсследование.ПоказательБезопасности  = Строка(Источник.ПоказательБезопасности);
    ЛабИсследование.РезультатИсследования   = "NEGATIVE"/"UNDEFINED"/"POSITIVE"/"UNKNOWN"/"UNFULFILLED"/"VSERAW"/"VSEFULL";  
ЛабИсследование.РезультатИсследования= "NEGATIVE"/"UNDEFINED"/"POSITIVE"/"UNKNOWN"/"UNFULFILLED"/"VSERAW"/"VSEFULL";  
    ЛабИсследование.МетодИсследования       = Строка(Источник.МетодИсследования);//должен совпадать со шлюзом
ЛабИсследование.МетодИсследования= Строка(Источник.МетодИсследования);//должен совпадать со шлюзом
    ЛабИсследование.Заключение             = Строка(Источник.Заключение);
ЛабИсследование.Заключение= Строка(Источник.Заключение);
    ЛабИсследование.АдресМестаПроведения   = Строка(Источник.АдресМестаПроведения);
ЛабИсследование.АдресМестаПроведения= Строка(Источник.АдресМестаПроведения);
   
 
    Возврат  ЛабИсследование;
Возврат  ЛабИсследование;
КонецФункции
КонецФункции
</syntaxhighlight>
</syntaxhighlight>
Строка 2216: Строка 2216:
</syntaxhighlight> отбор складских записей по наименованию продукции (динамический режим)
</syntaxhighlight> отбор складских записей по наименованию продукции (динамический режим)
<syntaxhighlight lang='bash'>
<syntaxhighlight lang='bash'>
Фильтр.ВсдУуид                 = ???;
Фильтр.ВсдУуид= ???;
</syntaxhighlight> отбор складских записей по гуиду сертификата (версия 2.0)
</syntaxhighlight> отбор складских записей по гуиду сертификата (версия 2.0)
<syntaxhighlight lang='bash'>
<syntaxhighlight lang='bash'>
Фильтр.СтранаПроизводитель     = ???;
Фильтр.СтранаПроизводитель= ???;
</syntaxhighlight> отбор складских записей по стране производителя, наименование или ГУИД
</syntaxhighlight> отбор складских записей по стране производителя, наименование или ГУИД
Строка 2338: Строка 2338:
ХозСубъект.НаименованиеПолное = Контрагент.НаименованиеПолное;
ХозСубъект.НаименованиеПолное = Контрагент.НаименованиеПолное;
Если Контрагент.ЮридическоеФизическоеЛицо = Перечисления.ЮридическоеФизическоеЛицо.ЮридическоеЛицо Тогда  
Если Контрагент.ЮридическоеФизическоеЛицо = Перечисления.ЮридическоеФизическоеЛицо.ЮридическоеЛицо Тогда  
ЮрФизЛицо = "Юр";                                                
ЮрФизЛицо = "Юр";
ИначеЕсли Контрагент.ЮридическоеФизическоеЛицо = Перечисления.ЮридическоеФизическоеЛицо.ФизическоеЛицо Тогда  
ИначеЕсли Контрагент.ЮридическоеФизическоеЛицо = Перечисления.ЮридическоеФизическоеЛицо.ФизическоеЛицо Тогда  
ЮрФизЛицо = "ИП";
ЮрФизЛицо = "ИП";
Строка 2349: Строка 2349:
ХозСубъект.ИНН = Контрагент.ИНН;   
ХозСубъект.ИНН = Контрагент.ИНН;   
//ХозСубъект.ОГРН = "";
//ХозСубъект.ОГРН = "";
КонецЕсли;                                            
КонецЕсли;
ЕстьАдрес = Ложь;
ЕстьАдрес = Ложь;
Строка 2723: Строка 2723:
СвязанныйДокумент = Фабрика.Создать(Фабрика.Тип(ПространствоИмен(),"СвязанныйДокумент"));
СвязанныйДокумент = Фабрика.Создать(Фабрика.Тип(ПространствоИмен(),"СвязанныйДокумент"));


СвязанныйДокумент.Номер         = Источник.Номер;
СвязанныйДокумент.Номер= Источник.Номер;
СвязанныйДокумент.Дата         = Источник.Дата;
СвязанныйДокумент.Дата= Источник.Дата;
СвязанныйДокумент.Серия         = Источник.Серия;
СвязанныйДокумент.Серия= Источник.Серия;
СвязанныйДокумент.Тип           = ???;
СвязанныйДокумент.Тип= ???;
СвязанныйДокумент.Связь         = ???;
СвязанныйДокумент.Связь= ???;


Строка 3220: Строка 3220:
Функция СформироватьФасовку(Номенклатура, Фабрика)
Функция СформироватьФасовку(Номенклатура, Фабрика)
Фасовка = Фабрика.Создать(Фабрика.Тип(ПространствоИмен(),"Фасовка"));
Фасовка = Фабрика.Создать(Фабрика.Тип(ПространствоИмен(),"Фасовка"));
Фасовка.Уровень     = //?1,2,3,4,5,6;
Фасовка.Уровень= //?1,2,3,4,5,6;
Фасовка.Упаковка     = //Гуид или наименование упаковки;
Фасовка.Упаковка = //Гуид или наименование упаковки;
Фасовка.Количество     = //Номенклатура.Фасовка.Количество;
Фасовка.Количество= //Номенклатура.Фасовка.Количество;
Фасовка.Маркировки.Добавить(СформироватьМаркировку);
Фасовка.Маркировки.Добавить(СформироватьМаркировку);