Необходимость вывода на печать розничной и закупочной цен

Форум Учет и отчетность Складской учет и логистика (WMS)

1С:Производство+Услуги+Бухгалтерия Оперативный учет 7.7 1С:Торговля и склад 7.7

1. Infernal_Rain 30.07.09 21:01 Сейчас в теме

При работе в ТиС возникла необходимость выводить в документах на печать несколько цен.
То есть, например делается Реализация (розница). Формируется документ продажи и есть возможность распечатать накладную. Но в этой накладной будет лишь розничная цена товара, а необходимо что бы была и закупочная.
Или делаетс яприход товара, и в распечатываемой приходной накладной так же две цены: закупка и розница.

По теме из базы знаний

Ответы

Подписаться на ответы Инфостарт бот

Свернуть все

2. jmw 60 31.07.09 05:32 Сейчас в теме

Рыть нуно примерно в таком направлении:
- открывем Конфигуратор
- открываем в ExtForms\PrnForms каталога программы внешнюю обработку Sale.ert
- ищем в модуле строки:

	Пока Докум.ПолучитьСтроку() = 1 Цикл
		НомСтроки = НомСтроки + 1;
		ИсхТабл.ВывестиСекцию("Строка" + СекцСкидка);
	КонецЦикла;

- добавляем вот так:

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

Показать

- в таблице добавляем в секции "ШапкаТаблицы" и "ШапкаТаблицыСкидка" ячейку типа "Текст" : Зак.цена
- а в секции "Строка" и "СтрокаСкидка" ячейку типа "Выражение" : глФрм(зЦена)
- жмём Ctrl+S
- переходим в ТиС
- открываем расходную накладную
- жмём "Печать" или выбираем "Печатная форма" и любуемся результатом.

Оставьте свое сообщение

E-mail: