Форум 1С
Программистам, бухгалтерам, администраторам, пользователям
Задай вопрос - получи решение проблемы
22 ноя 2024, 22:59

Процент наценки на каждую номенклатуру в отдельности

Автор EritikWoW, 04 июн 2013, 03:57

0 Пользователей и 1 гость просматривают эту тему.

Dethmontt

На форме договор выбирается?
Добавлено: 04 июн 2013, 13:01


Что бы пользователь сам выбирал договор
Если долго всматриваться в учебник...то в голову может прийти мысль его открыть!

EritikWoW

Все вопрос решен.... вот конечный результат кода:

ТекСтрока = ЭлементыФормы.Товары.ТекущиеДанные;

Если ДоговорКонтрагента.ТипЦен.Наименование = "Основная цена закупки"
Тогда ТекСтрока.Наценка = ЭлементыФормы.Товары.Колонки.Номенклатура.ЭлементУправления.Значение.НаценкаОП;
ИначеЕсли ДоговорКонтрагента.ТипЦен.Наименование = "Основная цена продажи"
Тогда ТекСтрока.Наценка = ЭлементыФормы.Товары.Колонки.Номенклатура.ЭлементУправления.Значение.НаценкаРП;

КонецЕсли;


Если ТекСтрока.Наценка = ""
Тогда ТекСтрока.Наценка = "0"
КонецЕсли;

ТекСтрока.СуммаНаценки = (ТекСтрока.ЦенаБезНаценки * ТекСтрока.Наценка)/100; 
    ТекСтрока.Цена = ТекСтрока.ЦенаБезНаценки + ТекСтрока.СуммаНаценки;
ТекСтрока.СуммаБезСкидки = ТекСтрока.Цена * ТекСтрока.Количество;
ТекСтрока.Сумма = ТекСтрока.СуммаБезСкидки - ТекСтрока.СуммаСкидки;

Dethmontt

Неявная попытка приведения типов, не очень хорошо

Нельзя в табличной части установить наценке тип число?
(Тогда этот кусок можно вообще не писать)
Если ТекСтрока.Наценка = ""
    Тогда ТекСтрока.Наценка = "0"
    КонецЕсли;
Если долго всматриваться в учебник...то в голову может прийти мысль его открыть!

EritikWoW

Цитата: Dethmontt от 04 июн 2013, 13:12
Неявная попытка приведения типов, не очень хорошо

Нельзя в табличной части установить наценке тип число?
(Тогда этот кусок можно вообще не писать)
Если ТекСтрока.Наценка = ""
    Тогда ТекСтрока.Наценка = "0"
    КонецЕсли;


Если его не писать то выдается та ошибка про которую я писал....

Dethmontt

А вот так работает? (с пустой наценкой)
ТекСтрока.СуммаНаценки = (ТекСтрока.Наценка*ТекСтрока.ЦенаБезНаценки)/100;
Если долго всматриваться в учебник...то в голову может прийти мысль его открыть!

Теги:

Похожие темы (5)

Рейтинг@Mail.ru

Поиск