|
v7: в печатной форме изменить колонку | ☑ | ||
---|---|---|---|---|
0
ivanant
23.07.11
✎
09:52
|
Подскажите можно или в ТиС в печатной форме сверки наличия вместо стандартной колонки штрихкода изменить на цену из документа инвентаризации? И как это сделать?
|
|||
1
andrewks
23.07.11
✎
09:59
|
можно. при помощи рук и конфигуратора
|
|||
2
1Сергей
23.07.11
✎
10:00
|
(1)+1 Да, голову подключать не рекомендую
|
|||
3
ivanant
23.07.11
✎
10:09
|
:))) поискал в конфигурации, а эту форму найти не могу. Наведите пож. на верный путь
|
|||
4
andrewks
23.07.11
✎
10:10
|
ты, конечно, не поверишь, но она лежит в документе ИнвентаризацияТМЦ и называется СверкаНаличия
|
|||
5
ivanant
23.07.11
✎
10:31
|
я что-то не так сделал? взял переменную из рядом стоящей формы?
http://i045.radikal.ru/1107/0a/7c38a7397bbd.png |
|||
6
ivanant
23.07.11
✎
10:39
|
вот модуль двух форм// ПечатьСверкиНаличия(СразуНаПринтер, КолЭкз)
// // Параметры: // СразуНаПринтер - (1) если печать на принтер, (0) - с предварительным просмотром // КолЭкз - количество экземпляров печати // // Возвращаемое значение: // Нет. // // Описание: // Процедура ПечатьСверкиНаличия(СразуНаПринтер = 0,КолЭкз = 1) Перем ИсхТабл; ИсхТабл = СоздатьОбъект("Таблица"); ИсхТабл.ИсходнаяТаблица("СверкаНаличия"); ИсхТабл.ВывестиСекцию("Шапка"); ИсхТабл.ПовторятьПриПечатиСтроки(1, ИсхТабл.ВысотаСекции("Шапка")); Ном = 0; ВыбратьСтроки(); Пока ПолучитьСтроку() = 1 Цикл Ном = Ном + 1; ИсхТабл.ВывестиСекцию("Строка"); КонецЦикла; Если СразуНаПринтер = 0 Тогда ИсхТабл.Опции(0,0,0,0,ПарСтрДок,ПарСтрДок); Если глПолучитьПолномочие("РазрешитьРедактированиеТаблиц") = 0 Тогда ИсхТабл.Защита(1); Иначе ИсхТабл.Защита(0); КонецЕсли; ИсхТабл.ТолькоПросмотр(1); ИсхТабл.Показать(глНазваниеДокументаВжурнале(Контекст),""); Иначе ИсхТабл.ПараметрыСтраницы(,,,,,,,,,1,,); ИсхТабл.КоличествоЭкземпляров(КолЭкз); ИсхТабл.Напечатать(0); КонецЕсли; КонецПроцедуры // ПечатьСверкиНаличия //****************************************************************************** // ПечатьИнвОписи(СразуНаПринтер, КолЭкз) // // Параметры: // СразуНаПринтер - (1) если печать на принтер, (0) - с предварительным просмотром // КолЭкз - количество экземпляров печати // // Возвращаемое значение: // Нет. // // Описание: // Процедура ПечатьИнвОписи(СразуНаПринтер = 0,КолЭкз = 1) Перем ИсхТабл; ИсхТабл = СоздатьОбъект("Таблица"); ИсхТабл.ИсходнаяТаблица("ИнвентаризационнаяОпись"); // титульный лист описи ИсхТабл.ВывестиСекцию("Титул"); ИсхТабл.НоваяСтраница(); КолСтрокНаЛисте = 17; ТекСтрока = КолСтрокНаЛисте; // фактические остатки ИтогСуммаОпись = 0; ИтогКоличОпись = 0; ИтогСуммаСтр = 0; ИтогКоличСтр = 0; // по бух. учету ИтогСуммаУчетОпись = 0; ИтогКоличУчетОпись = 0; ИтогСуммаУчетСтр = 0; ИтогКоличУчетСтр = 0; ПризнакНовСтраница = 0; НомерСтр = 2; // Количество строк на текущей странице КолНомСтр = 0; Ном = 0; ВыбратьСтроки(); Пока ПолучитьСтроку() = 1 Цикл Если ТекСтрока = КолСтрокНаЛисте Тогда Если ПризнакНовСтраница = 1 Тогда ИсхТабл.НоваяСтраница(); // обнуляем итоги по странице // по документам ИтогСуммаУчетСтр = 0; ИтогКоличУчетСтр = 0; // реальное ИтогСуммаСтр = 0; ИтогКоличСтр = 0; КолНомСтр = 0; НомерСтр = НомерСтр + 1; КонецЕсли; ПризнакНовСтраница = 1; ТекСтрока = 0; ИсхТабл.ВывестиСекцию("Шапка"); КонецЕсли; ПечСуммаУчет = глПересчет(СуммаУчет, Валюта, Курс, глРубли, ДатаДок, Кратность); ПечСуммаФакт = глПересчет(Сумма, Валюта, Курс, глРубли, ДатаДок, Кратность); ПечЦенаФакт = ?(Количество <> 0, ПечСуммаФакт/Количество, ПечСуммаФакт); // итоги по данным бухгалтерского учета ИтогСуммаУчетОпись = ИтогСуммаУчетОпись + ПечСуммаУчет; ИтогКоличУчетОпись = ИтогКоличУчетОпись + КоличествоУчет; ИтогСуммаУчетСтр = ИтогСуммаУчетСтр + ПечСуммаУчет; ИтогКоличУчетСтр = ИтогКоличУчетСтр + КоличествоУчет; // фактические итоги ИтогСуммаОпись = ИтогСуммаОпись + ПечСуммаФакт; ИтогКоличОпись = ИтогКоличОпись + Количество; ИтогСуммаСтр = ИтогСуммаСтр + ПечСуммаФакт; ИтогКоличСтр = ИтогКоличСтр + Количество; КолНомСтр = КолНомСтр + 1; Ном = Ном + 1; ТекСтрока = ТекСтрока + 1; ИсхТабл.ВывестиСекцию("Строка"); Если ТекСтрока = КолСтрокНаЛисте Тогда ИсхТабл.ВывестиСекцию("ИтСтрЧ"); ИсхТабл.ВывестиСекцию("ИтСтрП"); КонецЕсли; КонецЦикла; Если ТекСтрока < КолСтрокНаЛисте Тогда ИсхТабл.ВывестиСекцию("ИтСтрЧ"); КонецЕсли; Если ТекСтрока <КолСтрокНаЛисте Тогда ИсхТабл.ВывестиСекцию("ИтСтрП"); КонецЕсли; // постедняя страница ИсхТабл.НоваяСтраница(); НомерСтр = НомерСтр + 1; ИсхТабл.ВывестиСекцию("Итог"); Если СразуНаПринтер = 0 Тогда ИсхТабл.Опции(0,0,0,0,ПарСтрДок,ПарСтрДок); Если глПолучитьПолномочие("РазрешитьРедактированиеТаблиц") = 0 Тогда ИсхТабл.Защита(1); Иначе ИсхТабл.Защита(0); КонецЕсли; ИсхТабл.ТолькоПросмотр(1); ИсхТабл.Показать(глНазваниеДокументаВжурнале(Контекст),""); Иначе ИсхТабл.ПараметрыСтраницы(,,,,,,,,,1,,); ИсхТабл.КоличествоЭкземпляров(КолЭкз); ИсхТабл.Напечатать(0); КонецЕсли; КонецПроцедуры // ПечатьИнвОписи |
|||
7
ivanant
23.07.11
✎
10:45
|
ПечЦенаФакт = ?(Количество <> 0, ПечСуммаФакт/Количество, ПечСуммаФакт); - формируется вот так. Значит теперь мне нужно взять откуда-то ПечатьСуммаФакт и количество? так?
|
|||
8
1Сергей
23.07.11
✎
11:12
|
Отладчиком воспользуйся
|
|||
9
andrewks
23.07.11
✎
11:22
|
ты чё там мудришь?
глФРМ(Цена) |
|||
10
zak555
23.07.11
✎
11:23
|
(9) и по всех она конфах ?
|
|||
11
ivanant
24.07.11
✎
00:21
|
Форум | Правила | Описание | Объявления | Секции | Поиск | Книга знаний | Вики-миста |