Себестоимость товаров в ЗН
Читают тему
Вход в личный кабинет
Для получения доступа к форуму необходимо
авторизоваться
или
зарегистрироваться
на сайте.
{{ formTitle ? formTitle : 'Заказ обратного звонка' }}
{{ formDescription }}
Сообщить об ошибке
не могу отловить где вычисляется себестоимость товаров в ЗН
мне нужно что бы контроль цен был не по себестоимости, а себестоимость + 10 %
заранее спасибо
процедура "проведение по партиям"
Если ЗапретПродажиНижеСебестоимости Тогда
Если НоваяЗаписьПродажи.СебестоимостьУпр>НоваяЗаписьПродажи.СуммаУпр Тогда
Если НЕ ПустаяСтрока(Сообщение) Тогда Сообщение=Сообщение+Символы.ПС; КонецЕсли;
Если обЗначениеНеЗаполнено(СтрокаВПроизводстве.ХарактеристикаНоменклатуры) Тогда
Сообщение=Сообщение+"["+СокрЛП(СтрокаВПроизводстве.Номенклатура.Код)+"] Товар """+СокрЛП(СтрокаВПроизводстве.Номенклатура)+""". Продажа ниже себестоимости запрещена.";
Иначе
Сообщение=Сообщение+"["+СокрЛП(СтрокаВПроизводстве.Номенклатура.Код)+"] Товар """+СокрЛП(СтрокаВПроизводстве.Номенклатура)+""" с характеристикой """+СокрЛП(СтрокаВПроизводстве.ХарактеристикаНоменклатуры)+""". Продажа ниже себестоимости запрещена.";
КонецЕсли;
Отказ=Истина;
КонецЕсли;
КонецЕсли;
СуммаПродажиОсталось=СуммаПродажиОсталось-НоваяЗаписьПродажи.Сумма;
СуммаПродажиУпрОсталось=СуммаПродажиУпрОсталось-НоваяЗаписьПродажи.СуммаУпр;
СуммаНДСПродажиОсталось=СуммаНДСПродажиОсталось-НоваяЗаписьПродажи.СуммаНДС;
СуммаСкидкиПродажиОсталось=СуммаСкидкиПродажиОсталось-НоваяЗаписьПродажи.СуммаСкидки;
Да, это именно тот фрагмент кода где осуществляется проверка на продажу ниже себестоимости.
Вот же проверка
Если НоваяЗаписьПродажи.СебестоимостьУпр>НоваяЗаписьПродажи.СуммаУпр Тогда
СебестоимостьУпр величиваем на 10% и проверяем.
СебестоимостьУпр = СебестоимостьУпр+10%;
Если НоваяЗаписьПродажи.СебестоимостьУпр>НоваяЗаписьПродажи.СуммаУпр Тогда
что то так не получилось, ошибка в выражении
НоваяЗаписьПродажи.СебестоимостьУпр=НоваяЗаписьТоварыВПроизводстве.СуммаУпр;
НоваяЗаписьПродажи.Себестоимость=НоваяЗаписьТоварыВПроизводстве.Сумма+10%;
НоваяЗаписьПродажи.СуммаНДСВходящий=НоваяЗаписьТоварыВПроизводстве.СуммаНДС;
//***измСМВ+Себестоимость+1
Если ЗапретПродажиНижеСебестоимости Тогда
//СебестоимостьУпр = СебестоимостьУпр+10%;
Если НоваяЗаписьПродажи.СебестоимостьУпр>НоваяЗаписьПродажи.СуммаУпр Тогда
Если НЕ ПустаяСтрока(Сообщение) Тогда Сообщение=Сообщение+Символы.ПС; КонецЕсли;
Если обЗначениеНеЗаполнено(СтрокаВПроизводстве.ХарактеристикаНоменклатуры) Тогда
//СебестоимостьУпр = СебестоимостьУпр+10%;
Если НоваяЗаписьПродажи.СебестоимостьУпр>НоваяЗаписьПродажи.СуммаУпр Тогда
кажется я понял % же не ставим ))))
тогда
СебестоимостьУпр = СебестоимостьУпр+100*0.10;
вместо
СебестоимостьУпр = СебестоимостьУпр+10%;
правильно отработает так код, просто щас не могу посмотреть в раб базе
тогда
СебестоимостьУпр = СебестоимостьУпр+100*0.10;
вместо
СебестоимостьУпр = СебестоимостьУпр+10%;
правильно отработает так код, просто щас не могу посмотреть в раб базе
СебестоимостьУпр * (100 + ПроцентНаценки) / 100;
пусть будет так математически правильно
при проведении и проверки на списывании по себестоимости сообщает " неправильное преобразование в Число "