База знаний АО АСП

Примеры заполнения сертификата: различия между версиями

← Предыдущая правка
ВизуальныйВики-текст
Нет описания правки
Нет описания правки
 
(не показано 8 промежуточных версий этого же участника)
Строка 3: Строка 3:
===== Заполнение даты/номера заявки по комментарию =====
===== Заполнение даты/номера заявки по комментарию =====


<1c>
<syntaxhighlight lang='1c'>
Процедура ДействияПослеПроведенияВетСертификата(Объект, Движения) Экспорт
Процедура ДействияПослеПроведенияВетСертификата(Объект, Движения) Экспорт
    ...
...
Если Найти(Ссылка.Комментарий, "Накладная создана на основании Заказа")>0 Тогда
Если Найти(Ссылка.Комментарий, "Накладная создана на основании Заказа")>0 Тогда
ОбъектСертификата.Документы.Очистить();
ОбъектСертификата.Документы.Очистить();
Строка 18: Строка 18:
КонецЕсли;
КонецЕсли;
КонецПроцедуры
КонецПроцедуры
</1c>
</syntaxhighlight>


===== Вариант розничной продажи =====
===== Вариант розничной продажи =====
Порядок изменений:<br/>- Добавить элементы в справочник <syntaxhighlight lang='bash'>
Порядок изменений:<br/>- Добавить элементы в справочник '''АСП_ВидыДокументов1С''':
'АСП_ВидыДокументов1С
</syntaxhighlight>':<WRAP>
{| class="wikitable"
{| class="wikitable"
|+
|+
Строка 34: Строка 32:
| Синхронизация остатков
| Синхронизация остатков
|
|
|}</WRAP>
|}


<1c>
<syntaxhighlight lang='1c'>
Процедура ДействияПослеПроведенияВетСертификата(Объект, Движения) Экспорт
Процедура ДействияПослеПроведенияВетСертификата(Объект, Движения) Экспорт
      ...
...
      Если Объект.ВидДокумента.ТипСертификата = Перечисления.АСП_ТипВетСертификата.СинхронизацияОстатков Тогда                  
Если Объект.ВидДокумента.ТипСертификата = Перечисления.АСП_ТипВетСертификата.СинхронизацияОстатков Тогда
Для каждого ТекТовар из Объект.Товары цикл
Для каждого ТекТовар из Объект.Товары цикл
Запрос = АСП_Функции.ПолучитьЗапросПоОстаткамДинамики(Объект.Организация, ТекТовар.Номенклатура, ТекТовар.Категория, Объект.ВидДокумента);
Запрос = АСП_Функции.ПолучитьЗапросПоОстаткамДинамики(Объект.Организация, ТекТовар.Номенклатура, ТекТовар.Категория, Объект.ВидДокумента);
Запрос.УстановитьПараметр("Остатки", ПараметрыСеанса.АСП_СкладскиеЗаписи.Получить());
Запрос.УстановитьПараметр("Остатки", ПараметрыСеанса.АСП_СкладскиеЗаписи.Получить());
    Запрос.УстановитьПараметр("ГУИДПроизводителя", "");
Запрос.УстановитьПараметр("ГУИДПроизводителя", "");
    Запись = АСП_Функции.ПолучитьЗапись(ТекТовар.Производитель, 1);
Запись = АСП_Функции.ПолучитьЗапись(ТекТовар.Производитель, 1);
    Запрос.УстановитьПараметр("ГУИДПроизводителя", Запись.ГУИД);
Запрос.УстановитьПараметр("ГУИДПроизводителя", Запись.ГУИД);
Запрос.УстановитьПараметр("ДатаВыработки", ТекТовар.ДатаВыработки);
Запрос.УстановитьПараметр("ДатаВыработки", ТекТовар.ДатаВыработки);
Запрос.УстановитьПараметр("КодПартии", ТекТовар.КодПартии);
Запрос.УстановитьПараметр("КодПартии", ТекТовар.КодПартии);
Строка 59: Строка 57:
КонецЕсли;
КонецЕсли;
КонецПроцедуры
КонецПроцедуры
</1c>
</syntaxhighlight>


===== Поднадзорный контрагента является партнер =====
===== Поднадзорный контрагента является партнер =====


<1c>
<syntaxhighlight lang='1c'>
Процедура АСП_ЗаписьСправочниковПриЗаписи(Источник, Отказ) Экспорт
Процедура АСП_ЗаписьСправочниковПриЗаписи(Источник, Отказ) Экспорт
    ...
...
Если ТипЗнч(Источник) = Тип("СправочникОбъект.Организации") ИЛИ ТипЗнч(Источник) = Тип("СправочникОбъект.Контрагенты") Тогда
Если ТипЗнч(Источник) = Тип("СправочникОбъект.Организации") ИЛИ ТипЗнч(Источник) = Тип("СправочникОбъект.Контрагенты") Тогда
    ...
...
ИначеЕсли ТипЗнч(Источник) = Тип("СправочникОбъект.Партнеры") Тогда
ИначеЕсли ТипЗнч(Источник) = Тип("СправочникОбъект.Партнеры") Тогда
Запрос = Новый Запрос;
Запрос = Новый Запрос;
Запрос.Текст = "ВЫБРАТЬ
Запрос.Текст = "ВЫБРАТЬ
              | Контрагенты.Ссылка КАК Ссылка
| Контрагенты.Ссылка КАК Ссылка
              |ИЗ
|ИЗ
              | Справочник.Контрагенты КАК Контрагенты
| Справочник.Контрагенты КАК Контрагенты
              |ГДЕ
|ГДЕ
              | Контрагенты.Партнер = (&Партнер)";
| Контрагенты.Партнер = (&Партнер)";
Ссылка = Источник.Ссылка;
Ссылка = Источник.Ссылка;
Строка 94: Строка 92:


КонецПроцедуры
КонецПроцедуры
</1c>
</syntaxhighlight>


===== Производителя отображать в маркировках =====
===== Производителя отображать в маркировках =====
Пример для статики.
Пример для статики.


<1c>
<syntaxhighlight lang='1c'>
Процедура ДействияПослеПроведенияВетСертификата(Объект, Движения) Экспорт
Процедура ДействияПослеПроведенияВетСертификата(Объект, Движения) Экспорт
...
...
Строка 134: Строка 132:


КонецПроцедуры
КонецПроцедуры
</1c>
</syntaxhighlight>


===== Номер заказа для сетей =====
===== Номер заказа для сетей =====
<1c>
<syntaxhighlight lang='1c'>
Процедура ДозаполнитьПоляВетСертификата1С(Ссылка, ОбъектСертификата) Экспорт
Процедура ДозаполнитьПоляВетСертификата1С(Ссылка, ОбъектСертификата) Экспорт
...
...
Строка 149: Строка 147:
...
...
КонецПроцедуры
КонецПроцедуры
</1c>
</syntaxhighlight>


===== Артикул для сетей =====
===== Артикул для сетей =====
<1c>
<syntaxhighlight lang='1c'>
Процедура ДозаполнитьПоляВетСертификата1С(Ссылка, ОбъектСертификата) Экспорт
Процедура ДозаполнитьПоляВетСертификата1С(Ссылка, ОбъектСертификата) Экспорт
...
...
Строка 173: Строка 171:
...
...
КонецПроцедуры
КонецПроцедуры
</1c>
</syntaxhighlight>


===== Спецификация для УПП =====
===== Спецификация для УПП =====
Для УПП Спецификация берется из РегистрСведений.ОсновныеСпецификацииНоменклатуры
Для УПП Спецификация берется из РегистрСведений.ОсновныеСпецификацииНоменклатуры
<1c>
<syntaxhighlight lang='1c'>
Функция ЗапросТаблицыСырья(ВидДокумента = Неопределено) Экспорт
Функция ЗапросТаблицыСырья(ВидДокумента = Неопределено) Экспорт
...
...
Если ВидДокумента.ВидДокумента = "ОтчетПроизводстваЗаСмену" Тогда
Если ВидДокумента.ВидДокумента = "ОтчетПроизводстваЗаСмену" Тогда
Возврат "ВЫБРАТЬ
Возврат "ВЫБРАТЬ
        | Ссылки.Ссылка КАК Ссылка,
| Ссылки.Ссылка КАК Ссылка,
        | Н.Номенклатура КАК Номенклатура,        
| Н.Номенклатура КАК Номенклатура,
| СУММА(Н.Количество/ВИ.Количество*Т.Количество) КАК Количество,        
| СУММА(Н.Количество/ВИ.Количество*Т.Количество) КАК Количество,
        | СУММА(0) КАК Сумма
| СУММА(0) КАК Сумма
        |ИЗ
|ИЗ
        | СсылкиВет КАК Ссылки
| СсылкиВет КАК Ссылки
        | ЛЕВОЕ СОЕДИНЕНИЕ Документ.ОтчетПроизводстваЗаСмену.Продукция КАК Т
| ЛЕВОЕ СОЕДИНЕНИЕ Документ.ОтчетПроизводстваЗаСмену.Продукция КАК Т
        | ПО (Т.Ссылка = Ссылки.Ссылка)
| ПО (Т.Ссылка = Ссылки.Ссылка)
        | ВНУТРЕННЕЕ СОЕДИНЕНИЕ РегистрСведений.АСП_Товары КАК Р
| ВНУТРЕННЕЕ СОЕДИНЕНИЕ РегистрСведений.АСП_Товары КАК Р
        | ПО (Т.Номенклатура = Р.Ссылка)
| ПО (Т.Номенклатура = Р.Ссылка)
        | И (НЕ Р.Категория = ЗНАЧЕНИЕ(Справочник.АСП_КатегорииНоменклатуры.ПустаяСсылка))
| И (НЕ Р.Категория = ЗНАЧЕНИЕ(Справочник.АСП_КатегорииНоменклатуры.ПустаяСсылка))
        | ВНУТРЕННЕЕ СОЕДИНЕНИЕ РегистрСведений.ОсновныеСпецификацииНоменклатуры.СрезПоследних(, ) КАК Осн
| ВНУТРЕННЕЕ СОЕДИНЕНИЕ РегистрСведений.ОсновныеСпецификацииНоменклатуры.СрезПоследних(, ) КАК Осн
        | ПО (Т.Номенклатура = Осн.Номенклатура)
| ПО (Т.Номенклатура = Осн.Номенклатура)
        | ВНУТРЕННЕЕ СОЕДИНЕНИЕ Справочник.СпецификацииНоменклатуры.ИсходныеКомплектующие КАК Н
| ВНУТРЕННЕЕ СОЕДИНЕНИЕ Справочник.СпецификацииНоменклатуры.ИсходныеКомплектующие КАК Н
        | ПО (Осн.СпецификацияНоменклатуры = Н.Ссылка)
| ПО (Осн.СпецификацияНоменклатуры = Н.Ссылка)
| ВНУТРЕННЕЕ СОЕДИНЕНИЕ Справочник.СпецификацииНоменклатуры.ВыходныеИзделия КАК ВИ
| ВНУТРЕННЕЕ СОЕДИНЕНИЕ Справочник.СпецификацииНоменклатуры.ВыходныеИзделия КАК ВИ
        | ПО (Осн.СпецификацияНоменклатуры = ВИ.Ссылка)
| ПО (Осн.СпецификацияНоменклатуры = ВИ.Ссылка)
        |
|
        |СГРУППИРОВАТЬ ПО
|СГРУППИРОВАТЬ ПО
        | Ссылки.Ссылка,
| Ссылки.Ссылка,
        | Т.Номенклатура,
| Т.Номенклатура,
        | Н.Номенклатура
| Н.Номенклатура
|УПОРЯДОЧИТЬ ПО
|УПОРЯДОЧИТЬ ПО
| Ссылки.Ссылка.МоментВремени";
| Ссылки.Ссылка.МоментВремени";
Строка 210: Строка 208:
...
...
КонецФункции
КонецФункции
</1c>
</syntaxhighlight>


===== Спецификация для БП 2.0 =====
===== Спецификация для БП 2.0 =====
Для БП 2.0 Спецификация берется из ОсновнойСпецификации.Реквизит Номенклатуры
Для БП 2.0 Спецификация берется из ОсновнойСпецификации.Реквизит Номенклатуры
<1c>
<syntaxhighlight lang='1c'>
Функция ЗапросТаблицыСырья(ВидДокумента = Неопределено) Экспорт
Функция ЗапросТаблицыСырья(ВидДокумента = Неопределено) Экспорт
...
...
Строка 222: Строка 220:
| Ссылки.Ссылка КАК Ссылка,
| Ссылки.Ссылка КАК Ссылка,
| ИК.Номенклатура КАК Номенклатура,
| ИК.Номенклатура КАК Номенклатура,
| СУММА(ИК.Количество/ИК.Ссылка.Количество*Т.Количество) КАК Количество,        
| СУММА(ИК.Количество/ИК.Ссылка.Количество*Т.Количество) КАК Количество,
        | СУММА(0) КАК Сумма
| СУММА(0) КАК Сумма
|ИЗ
|ИЗ
| СсылкиВет КАК Ссылки
| СсылкиВет КАК Ссылки
Строка 244: Строка 242:
...
...
КонецФункции
КонецФункции
</1c>
</syntaxhighlight>


===== Заполнить по документу Комплектация номенклатуры =====
===== Заполнить по документу Комплектация номенклатуры =====
<1c>
<syntaxhighlight lang='1c'>
Функция ЗапросТаблицыСырья(ВидДокумента = Неопределено) Экспорт
Функция ЗапросТаблицыСырья(ВидДокумента = Неопределено) Экспорт
Если ВидДокумента.ВидДокумента = "КомплектацияНоменклатуры" Тогда
Если ВидДокумента.ВидДокумента = "КомплектацияНоменклатуры" Тогда
Строка 259: Строка 257:
//|
//|
<syntaxhighlight lang='bash'>
<syntaxhighlight lang='bash'>
|
|'''//
</syntaxhighlight>''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''//
|ВЫБРАТЬ
|ВЫБРАТЬ
| Ссылки.Ссылка КАК Ссылка,
| Ссылки.Ссылка КАК Ссылка,
Строка 295: Строка 292:
КонецЕсли;
КонецЕсли;
КонецПроцедуры
КонецПроцедуры
</1c>
</syntaxhighlight>
[[Category:Отрывки]]
[[Category:Отрывки]]
<vote type=1 />
Источник — https://pub.aoasp.ru/Примеры_заполнения_сертификата