Заказ-наряд по комплектации автомобиля

Интересующийся

05.05.2011 в 09:37

#51

Туда же. Делаем заказ на склад. Устанавливаем тип цен закупа (почему-то по умолчанию ставится продажи). Заполняем опции. Потом через какое-то время на основании этого заказа на склад делают заказ покупателя и тип цен берется из него. Разве это правильно? Ведь заказ на склад - это по сути закупка, а заказ покупателя - это продажа.

Эдуард Иванов

Сотрудник 1С-Рарус

05.05.2011 в 10:24

#52

Цитата
Александр Яблочкин пишет: Пожелание зафиксировано под номером С000225701 Уже ОЧЕНЬ нужно!

Для внесения изменения по данной задаче необходимо.
Добавить в модуль документа процедуру из приложенного текстового файла.

В модуле формы заменить текст процедур VINПриИзменении() и КоманднаяПанельТоварыЗаполнение() на

Код
Процедура КоманднаяПанельТоварыЗаполнение(Кнопка) Если Кнопка.Имя = "ЗапонитьИзКомплектации" Тогда ЗаполнитьКомплектациюАвтомобиля(); дкВывестиЗаголовокСуммаДокумента(ЭтаФорма); Иначе Результат = дкКоманднаяПанельТоварыЗаполнение(ЭтаФорма, Товары, Кнопка); КонецЕсли; КонецПроцедуры //Изменение VIN автомобиля Процедура VINПриИзменении(Элемент) ОбработкаРеквизита("VIN",,ЭтаФорма); ЗаполнитьКомплектациюАвтомобиля(); дкВывестиЗаголовокСуммаДокумента(ЭтаФорма); ПроцентПредоплатыПриИзменении(ЭлементыФормы.ПроцентПредоплаты); КонецПроцедуры

Код

Процедура КоманднаяПанельТоварыЗаполнение(Кнопка)
   Если Кнопка.Имя = "ЗапонитьИзКомплектации" Тогда
      ЗаполнитьКомплектациюАвтомобиля();
      дкВывестиЗаголовокСуммаДокумента(ЭтаФорма);
   Иначе
      Результат = дкКоманднаяПанельТоварыЗаполнение(ЭтаФорма, Товары, Кнопка);
   КонецЕсли;
КонецПроцедуры

//Изменение VIN автомобиля
Процедура VINПриИзменении(Элемент)
   ОбработкаРеквизита("VIN",,ЭтаФорма);
   ЗаполнитьКомплектациюАвтомобиля();
   дкВывестиЗаголовокСуммаДокумента(ЭтаФорма);
   ПроцентПредоплатыПриИзменении(ЭлементыФормы.ПроцентПредоплаты);
КонецПроцедуры

Так же желательно в под меню Заполнение на закладках Опции и Оборудование добавить кнопки с именем "ЗапонитьИзКомплектации" и и назначить им обработчик "КоманднаяПанельТоварыЗаполнение()".

Прикрепленные файлы

ЗаполнитьКомплектациюАвтомобиля.txt 2.38 КБ

Михаил Устюгов

Интересующийся

05.05.2011 в 11:11

#53

Рез = НайденыйАвтомобильОбъект.ПолучитьОпицииИОборудованиеАвтомобиля(табКоиплектация);
Ругается.
{Документ.ЗаказНаАвтомобиль(1854)}: Метод объекта не обнаружен (ПолучитьОпицииИОборудованиеАвтомобиля)
Рез = НайденыйАвтомобильОбъект.ПолучитьОпицииИОборудованиеАвтомобиля(табКоиплектация);

Михаил Устюгов

Интересующийся

05.05.2011 в 11:20

#54

Наверно не хватает функции ПолучитьОпицииИОборудованиеАвтомобиля еще.

Эдуард Иванов

Сотрудник 1С-Рарус

05.05.2011 в 11:23

#55

Извиняюсь, еще необходимо добавить функцию в модуле объекта справочника Автомобили.

Код
Функция ПолучитьОпицииИОборудованиеАвтомобиля(тзТаблица) Экспорт Если ЭтоНовый() Тогда Возврат Ложь; КонецЕсли; ТекстЗапроса= "ВЫБРАТЬ \| КомплектацияАвтомобилейОстатки.Номенклатура, \| КомплектацияАвтомобилейОстатки.ХарактеристикаНоменклатуры, \| КомплектацияАвтомобилейОстатки.КоличествоОстаток, \| КомплектацияАвтомобилейОстатки.СуммаПродажиУпрОстаток, \| КомплектацияАвтомобилейОстатки.СуммаУпрОстаток \|ИЗ \| РегистрНакопления.КомплектацияАвтомобилей.Остатки КАК КомплектацияАвтомобилейОстатки \|ГДЕ \| КомплектацияАвтомобилейОстатки.Автомобиль = &Автомобиль"; Запрос=Новый Запрос(ТекстЗапроса); Запрос.УстановитьПараметр("Автомобиль",Ссылка); тзТаблица=Запрос.Выполнить().Выгрузить(); Возврат НЕ (тзТаблица.Количество() = 0); КонецФункции

Код

Функция ПолучитьОпицииИОборудованиеАвтомобиля(тзТаблица) Экспорт
   Если ЭтоНовый() Тогда
      Возврат Ложь;
   КонецЕсли;
   
   ТекстЗапроса=
   "ВЫБРАТЬ
   |   КомплектацияАвтомобилейОстатки.Номенклатура,
   |   КомплектацияАвтомобилейОстатки.ХарактеристикаНоменклатуры,
   |   КомплектацияАвтомобилейОстатки.КоличествоОстаток,
   |   КомплектацияАвтомобилейОстатки.СуммаПродажиУпрОстаток,
   |   КомплектацияАвтомобилейОстатки.СуммаУпрОстаток
   |ИЗ
   |   РегистрНакопления.КомплектацияАвтомобилей.Остатки КАК КомплектацияАвтомобилейОстатки
   |ГДЕ
   |   КомплектацияАвтомобилейОстатки.Автомобиль = &Автомобиль";
   Запрос=Новый Запрос(ТекстЗапроса);
   Запрос.УстановитьПараметр("Автомобиль",Ссылка);
   тзТаблица=Запрос.Выполнить().Выгрузить();
   
   Возврат НЕ (тзТаблица.Количество() = 0);
КонецФункции

Михаил Устюгов

Интересующийся

05.05.2011 в 11:34

#56

Спасибо! Теперь заполняет!

Только цены не ставит!!!

Эдуард Иванов

Сотрудник 1С-Рарус

05.05.2011 в 11:53

#57

В процедуре ЗаполнитьКомплектациюАвтомобиля() надо заменить код:

Код
// добавление в опции НоваяСтрока = Опции.Добавить(); НоваяСтрока.Опция = стрКомплектации.Номенклатура; ОбработкаРеквизита("Опции.Опция",НоваяСтрока); НоваяСтрока.Количество = стрКомплектации.КоличествоОстаток; НоваяСтрока.СуммаВсего = обПересчет(стрКомплектации.СуммаПродажиУпрОстаток,Константы.ВалютаУправленческогоУчетаКомпании.Получить(),?(обЗначениеНеЗаполнено(ЭтотОбъект.КурсВалютыУпр), Дата, ЭтотОбъект.КурсВалютыУпр),ВалютаДокумента,Дата,РежимОкругления.Окр15как20);; ОбработкаРеквизита("Опции.СуммаВсего",НоваяСтрока);

Код

// добавление в опции
         НоваяСтрока = Опции.Добавить();
         НоваяСтрока.Опция = стрКомплектации.Номенклатура;
         ОбработкаРеквизита("Опции.Опция",НоваяСтрока);
         НоваяСтрока.Количество = стрКомплектации.КоличествоОстаток;
         НоваяСтрока.СуммаВсего = обПересчет(стрКомплектации.СуммаПродажиУпрОстаток,Константы.ВалютаУправленческогоУчетаКомпании.Получить(),?(обЗначениеНеЗаполнено(ЭтотОбъект.КурсВалютыУпр), Дата, ЭтотОбъект.КурсВалютыУпр),ВалютаДокумента,Дата,РежимОкругления.Окр15как20);;
         ОбработкаРеквизита("Опции.СуммаВсего",НоваяСтрока);

на код из вложения

Прикрепленные файлы

Добавление опций.txt 543 Б

Skrepka Skrepka

Интересующийся

08.06.2011 в 11:41

#58

А почему еще, кроме того, что доп.оборудование не отображается в заказа (вышеперечисленные манипуляции ещё не делала), на закладке Заказ-наряды тоже пусто (хотя помню, может в 11 релизе делала, что отображались)?

Skrepka Skrepka

Интересующийся

09.06.2011 в 11:25

#59

Проделала все операции - в Опциях теперь не проставлянтся цена, оборудование появляется, но цены тоже нет, стоит скидка 100%, при этом есть Всего.

Эдуард Иванов

Сотрудник 1С-Рарус

09.06.2011 в 11:45

#60

Нужны скриншоты заказа, поступления автомобиля из заказа и ЗН которым производилась комплектация.

Skrepka Skrepka

Интересующийся

09.06.2011 в 11:52

#61

Что такое Поступление автомобиля из заказа - всмысле поступление автомобиля, который доукомплектовываю?

Эдуард Иванов

Сотрудник 1С-Рарус

09.06.2011 в 11:55

#62

Документ поступления автомобиля, по которому поступил автомобиль, для которого формируется заказ на автомобиль.

Skrepka Skrepka

Интересующийся

09.06.2011 в 01:09

#63

Скриншоты

Прикрепленные файлы

Эдуард Иванов

Сотрудник 1С-Рарус

09.06.2011 в 02:04

#64

Попробуйте в общем модуле дкДокументы в функции дкОбработкаРеквизита() заменить секцию "Товары.СуммаВсего" на код из вложения.

Прикрепленные файлы

исправление для товаров со 100% скидками.txt 5.74 КБ

Skrepka Skrepka

Интересующийся

09.06.2011 в 02:41

#65

Скидка 100% ушла, а цены на опции не встают (до этих всех доработок вставали).

Эдуард Иванов

Сотрудник 1С-Рарус

09.06.2011 в 02:54

#66

От исходного варианта изменились 2 строчки. До этого если процент скидки был 100% то сумма сбрасывалась в 0. А надо, чтоб сумма прописывалась из расчета суммы всего. т. е. если цена включает НДС то сумма скидки = сумме всего, иначе сумма = сумма всего - сумма НДС.
Так же в сумму скидки устанавливается тоже значение, что и в сумму.

Эдуард Иванов

Сотрудник 1С-Рарус

09.06.2011 в 02:57

#67

Цитата
Скидка 100% ушла, а цены на опции не встают (до этих всех доработок вставали).

В поступлении автомобилей цены опций указаны?

Skrepka Skrepka

Интересующийся

09.06.2011 в 03:19

#68

Нет, и никогда не были указаны, и до того как я вставила этот код, на этот же автомобиль делала заказ - цены на опции вставали. Если перевыбираю каждую опцию руками, то цены встают.

Эдуард Иванов

Сотрудник 1С-Рарус

09.06.2011 в 03:37

#69

При заполнении цен опций через "Заполнить из комплектации"(при изменении автомобиля) они(цены) рассчитываются исходя из той суммы по которой данные опции поступили(указывается в поступлении автомобилей и хранится в регистре комплектации автомобилей). А при ручном пере выборе цены подставляются из назначенных документами(изменение цен опций) цен опций.

Для того, чтобы при заполнении через "Заполнить из комплектации" подставлялись цены из назначенных документам удалите в процедуре ЗаполнитьКомплектациюАвтомобиля() строки заполнения суммы всего опций:

Код
НоваяСтрока.СуммаВсего = обПересчет(стрКомплектации.СуммаУпрОстаток,Константы.ВалютаУправленческогоУчетаКомпании.Получить(),?(обЗначениеНеЗаполнено(ЭтотОбъект.КурсВалютыУпр), Дата, ЭтотОбъект.КурсВалютыУпр),ВалютаДокумента,Дата,РежимОкругления.Окр15как20);; ОбработкаРеквизита("Опции.СуммаВсего",НоваяСтрока);

Код

 НоваяСтрока.СуммаВсего = обПересчет(стрКомплектации.СуммаУпрОстаток,Константы.ВалютаУправленческогоУчетаКомпании.Получить(),?(обЗначениеНеЗаполнено(ЭтотОбъект.КурсВалютыУпр), Дата, ЭтотОбъект.КурсВалютыУпр),ВалютаДокумента,Дата,РежимОкругления.Окр15как20);;
ОбработкаРеквизита("Опции.СуммаВсего",НоваяСтрока);

Skrepka Skrepka

Интересующийся

09.06.2011 в 03:43

#70

Получилось, спасибо. Скажите, а на закладке Заказ-наряды не должен отражаться ЗН по комплектации.

Эдуард Иванов

Сотрудник 1С-Рарус

09.06.2011 в 03:48

#71

На закладке Заказ-Наряды отражаются только ЗН и ЗР введенные на основании данного заказа.

Skrepka Skrepka

Интересующийся

09.06.2011 в 04:40

#72

ЗН делается на подразделение сервиса (тип цен один), Заказ на автомобиль на подразделение продаж авто (тип цен другой), на оборудование встаёт скидка 100%. Если в заказе на автомобиль указывать подразделение самого верхнего уровня, то скидки нет. Как быть?
Можно сделать так, чтоб на себестоимость автомобиля не закупочная цена доп.оборудования падплп, а розничная (которая указана в ЗН)?

Skrepka Skrepka

Интересующийся

10.06.2011 в 11:59

#73

Уважаемые сотрудники Раруса, помогите! нужно избавиться от 100% сктдки на закладке оборудование

Skrepka Skrepka

Интересующийся

10.06.2011 в 12:08

#74

Со скидкой разобралась, теперь надо решить вопрос по себестоимости

Цитата
Skrepka Skrepka пишет: Можно сделать так, чтоб на себестоимость автомобиля не закупочная цена доп.оборудования падплп, а розничная (которая указана в ЗН)?

Александр Яблочкин

Сотрудник 1С-Рарус

10.06.2011 в 12:48

#75

Цитата
Skrepka Skrepka пишет: Можно сделать так, чтоб на себестоимость автомобиля не закупочная цена доп.оборудования падплп, а розничная (которая указана в ЗН)?

Сделать то это не сложно (внеся соответствующие изменения в код проведения ЗН). Достаточно при проведении по регистру КомплектацияАвтомобилей в ресурс Сумма записывать не себестоимость списанных партий, а сумму всего из строки ЗН.
Но наряду с этим надо сделать соответствующие движения по регистру доходов и расходов на разницу списанной себестоимости и суммы продажи. А вот тут то и возникает вопрос: на каком основании предприятие получило доход (или расход) ? Мы же ничего еще не продали, а доходы/расходы уже есть.