Учет весового товара

FootballArt · 06 июн 2011, 00:03

Платформа 7.7 (7.70.021)
Конфигурация ТиС (Торговля и склад) (редакция 9.2)

Здравсвуйте.

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

Как сделать так, чтобы в столбце "Цена" была цена за 1 кг., а учет шел коробками?

У меня есть 2 варианта решения:
1. Добавить еще один столбец "Цена за кг" (но мне кажется что программная реализация будет сложновата).
2. Заставить программу НЕ умножать цену на коэффициент, а умножать Сумму на коэффициент.

В конфигураторе я нашел, где можно отучить 1С от умножения цены на коэффициент (Обработки-ВводКоличества и ВводКоличестваИЦены)

А вот где научить программу умножать Сумму на коэффициент?

Подскажите пожалуйста что-нибудь по данному вопросу.
На примере 1 или 2 предложенного способа . Или предложите альтернативный выход из данной ситуации.

Заранее спасибо

prog1c7.7 · 06 июн 2011, 11:23

!!! цены формируютя не в справочнике номенклатура, а в справочнике цены - который подчинен справочнику номенклатура, как доставать оттуда цены и работать с ними на форуме уже писал, посмотрите

FootballArt · 06 июн 2011, 14:36

Цитата: prog1c7.7 от 06 июн 2011, 11:23
!!! цены формируютя не в справочнике номенклатура, а в справочнике цены - который подчинен справочнику номенклатура, как доставать оттуда цены и работать с ними на форуме уже писал, посмотрите

Скажите пожалуйста, в Ваших сообщения я нашел следующее

Цитата: prog1c7.7
Процедура ПриИзмененииКоличествоЦены()
Если СтавкаНДС=Перечисление.СтавкиНДС.НДС10 тогда
ПрНДС=10;
ИначеЕсли СтавкаНДС=Перечисление. СтавкиНДС.НДС18 тогда
ПрНДС=18;
ИначеЕсли СтавкаНДС=Перечисление. СтавкиНДС.БезНДС тогда
ПрНДС=0;
КонецЕсли;
СуммаБезНДС = Количество*Цена;
СуммаНДС = Количество*Цена*ПрНДС/100;
Итого = Количество*Цена*(1+ПрНДС/100);
КонецПроцедуры

Скажите пожалуйста, а где эту процедуру можно найти в конфигураторе?
Ведь она должна быть прописана для проведения расчетов.

prog1c7.7 · 06 июн 2011, 23:37

вам скорее вот это надо, но прочитайте мой предыдущий пост для понимания куда лезете

Код Выделить

	Цены = СоздатьОбъект("Справочник.Цены");	
	Цены.ИспользоватьВладельца(СпрНом1.ТекущийЭлемент());
	Цены.ВыбратьЭлементы();
	
	Пока Цены.ПолучитьЭлемент()  = 1 Цикл   
		Если ТипЦеныТек.Рассчитывается = 1  тогда

		
		СпрТипыЦен = СоздатьОбъект("Справочник.ТипыЦен");
	    СпрТипыЦен.ВыбратьЭлементы();
		Пока СпрТипыЦен.ПолучитьЭлемент() = 1 Цикл			
		Если (СпрТипыЦен.ТекущийЭлемент() = ТипЦеныТек) Тогда
			// Если цена рассчитывается
			Если глВернутьЦену(СпрНом1.ТекущийЭлемент(), ТипЦеныТек, ДатаОтчета, ЦенаЦены, ЕдЦены, ) = 1 Тогда 
				
			
				РеалЦенаОб      	= ТипЦеныТек;
				РеалЦена     		= ЦенаЦены;
				Прервать;
			КонецЕсли;
		КонецЕсли;
	    КонецЦикла;
		

		
	    ИначеЕсли ТипЦеныТек.Рассчитывается <> 1 Тогда
			Если Цены.ТипЦен <> ТипЦеныТек Тогда
			    Продолжить;
		    КонецЕсли;
			  РеалЦенаОб = Цены.ТекущийЭлемент();
		      РеалЦена = РеалЦенаОб.Цена.Получить(ДатаОтчета); 
//				Сообщить("РеалЦена  !!! " + РеалЦена);
	
	    КонецЕсли;	
	КонецЦикла;