Имя: Пароль:
1C
1C 7.7
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
(9) andrewks,Счастья Вам!! в точку. получилось.

http://s61.radikal.ru/i173/1107/23/198c74cc5d4b.png