Вставить колонку с остатками в прайс лист
01.03.2010
01:34
#21
Это все я понял.
1. Именно в эту сторону и двигаюсь.
2. Этот вариант мне не-очень нравиться.
3. К автоматизации не имеет никакого отношения...
1. Именно в эту сторону и двигаюсь.
2. Этот вариант мне не-очень нравиться.
3. К автоматизации не имеет никакого отношения...
01.03.2010
02:54
#22
"вобщем не знаю как вы там хотите, я делала так:
меняла обработку "печатьпрайса":
модуль - Процедура Сформировать
лучше с конца искать место, вырежу вам кусок кода (только старый релиз, в новом сами ищите это место, куда дописку вставить):
// нужно пересчитать цену
Цена = глПересчет(Цена, ТаблицаЦен.Валюта, ДатаОтчета, ТекТип.Валюта, ДатаОтчета);
Цена = глОкруглить(Цена * (100 + ТекТип.Процент) / 100, ТекТип.ПорядокОкругления);
ПечЦена = глФРМ(Цена, ТекТип.Валюта);
иначе
ПечЦена = глФРМ(Цена, ТаблицаЦен.Валюта);
//ВНИМАНИЕ ДОПИСКА!!!!!!!!! но прежде в таблицу печ.формы в область "Цены" добавлены колонки Кол-во (ПечКол) и Ед.(ПечЕд)
Если ПустоеЗначение(Склад) = 0 Тогда
Кол=Регистр.ОстаткиТМЦ.СводныйОстаток(,ТекЭлем,Склад,,"Количество");
Иначе Кол=Регистр.ОстаткиТМЦ.СводныйОстаток(,ТекЭлем,,,"Количество");
КонецЕсли;
Коэффициент = ТекЭлем.ОсновнаяЕдиница.Коэффициент;
ПКол=Кол/Коэффициент;
ПечКол=Формат(ПКол,"Ч10.3");
ПечЕд=ТекЭлем.ОсновнаяЕдиница;
//===============================конец дописки
КонецЕсли;
ПечЕдиница = Единица;
Иначе
ПечЦена = """";
КонецЕсли;
ИсхТабл.ПрисоединитьСекцию("Номенклатура|Цена");......
"
меняла обработку "печатьпрайса":
модуль - Процедура Сформировать
лучше с конца искать место, вырежу вам кусок кода (только старый релиз, в новом сами ищите это место, куда дописку вставить):
// нужно пересчитать цену
Цена = глПересчет(Цена, ТаблицаЦен.Валюта, ДатаОтчета, ТекТип.Валюта, ДатаОтчета);
Цена = глОкруглить(Цена * (100 + ТекТип.Процент) / 100, ТекТип.ПорядокОкругления);
ПечЦена = глФРМ(Цена, ТекТип.Валюта);
иначе
ПечЦена = глФРМ(Цена, ТаблицаЦен.Валюта);
//ВНИМАНИЕ ДОПИСКА!!!!!!!!! но прежде в таблицу печ.формы в область "Цены" добавлены колонки Кол-во (ПечКол) и Ед.(ПечЕд)
Если ПустоеЗначение(Склад) = 0 Тогда
Кол=Регистр.ОстаткиТМЦ.СводныйОстаток(,ТекЭлем,Склад,,"Количество");
Иначе Кол=Регистр.ОстаткиТМЦ.СводныйОстаток(,ТекЭлем,,,"Количество");
КонецЕсли;
Коэффициент = ТекЭлем.ОсновнаяЕдиница.Коэффициент;
ПКол=Кол/Коэффициент;
ПечКол=Формат(ПКол,"Ч10.3");
ПечЕд=ТекЭлем.ОсновнаяЕдиница;
//===============================конец дописки
КонецЕсли;
ПечЕдиница = Единица;
Иначе
ПечЦена = """";
КонецЕсли;
ИсхТабл.ПрисоединитьСекцию("Номенклатура|Цена");......
"
ЗУП 2.5.20 перерасчет прошлогодних больничныхБухгалтерия предприятия, редакция 1.6 проводки настроить при переносе с Торговли
Читают тему
(гостей: 1)