| 
    
        
     
     | 
    
    
  | 
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 
 | 
 | Форум | Правила | Описание | Объявления | Секции | Поиск | Книга знаний | Вики-миста |