|   |   | 
| 
 | Печать колонтитула и подсчет страниц в 1С (решение) ↓ (romix 16.12.2005 20:19) | ☑ | ||
|---|---|---|---|---|
| 0
    
        romix модератор 15.12.05✎ 16:45 | 
        Это не вопрос, а уже готовое решение (может, кому-то пригодится).
  При открытой таблице, пункт меню: Таблица-Колонтитул-Верхний Таблица-Колонтитул-Нижний Там поддерживаются шаблоны (выражения в скобках []) Вставляю туда вызов функции [ПодсчетСтраниц()] А в модуле формы: перем г_ЧислоСтраниц; ... Функция ПодсчетСтраниц() г_ЧислоСтраниц=г_ЧислоСтраниц+1; Возврат г_ЧислоСтраниц; КонецФункции ... Процедура Сформировать() г_ЧислоСтраниц=0; ... Если в печатной форме есть фразы наподобие "Документ составлен на 5 (пяти) листах", то общее число листов сформируется только после окончательного формирования (и показа) всей таблицы. Поэтому я делаю таб.Очистить(); и формирую печатную форму еще раз. Чтобы не было "лишнего" пустого листочка, переменную таб следует сделать глобальной (т.е. поместить ее объявление вверху модуля). Чтобы показать число листо прописью, я использую простой кейс наподобие следующего: Функция ЧислоЛистовПрописью(прм_ЧислоСтраниц) Если прм_ЧислоСтраниц=1 Тогда Возврат "1 (одном) листе"; ИначеЕсли прм_ЧислоСтраниц=2 Тогда Возврат "2 (двух) листах"; ИначеЕсли прм_ЧислоСтраниц=3 Тогда Возврат "3 (трех) листах"; ИначеЕсли прм_ЧислоСтраниц=4 Тогда Возврат "4 (четырех) листах"; ИначеЕсли прм_ЧислоСтраниц=5 Тогда Возврат "5 (пяти) листах"; ИначеЕсли прм_ЧислоСтраниц=6 Тогда Возврат "6 (шести) листах"; ИначеЕсли прм_ЧислоСтраниц=7 Тогда Возврат "7 (семи) листах"; Иначе Возврат ""+прм_ЧислоСтраниц+" листах"; Сообщить("Проставьте кол-во листов вручную! "+прм_ЧислоСтраниц,"!"); КонецЕсли; КонецФункции | |||
| 1
    
        Рупор абсурда 15.12.05✎ 16:52 | 
        Проснулся?
  Открытие, по своемуобыкновению, себе присвоишь? | |||
| 2
    
        skunk 15.12.05✎ 16:55 | 
        (1)кому надо присвоить     | |||
| 3
    
        Пкфте 15.12.05✎ 17:02 | 
        (0) О, спасибо! но ветка без вопросов - это не ветка...
  Первый, первый... ответьте... Запустил первым после запуска 1С внешний отчет... фсё красивооо, пашет не мешает... Но как его не обламывать по эскейпу? | |||
| 4
    
        Парижская фанера 15.12.05✎ 17:03 | 
        (0) Мда... Как обычно в 1С самые простые вещи делаются через жопу...     | |||
| 5
    
        AlBorodulin 15.12.05✎ 17:03 | 
        Вещица превесьма полезненькая!     | |||
| 6
    
        romix модератор 15.12.05✎ 17:04 | 
        (1) Не знаю, тока что сам это придумал (честно). 
  Яндекс и Гугл ничего не нашли. Может ты свой ресурс плохо там размещаешь? Напиши здесь плиз свою ссылку, у нее поднимется рейтинг. | |||
| 7
    
        skunk 15.12.05✎ 17:06 | 
        http://www.absur.da.ru/por
  http://avb1c.narod.ru/ исправлю косяки... как прошлые так и будующие... типа индульгенции | |||
| 8
    
        romix модератор 15.12.05✎ 17:13 | 
        (7) В упор там не вижу про подсчет страниц и вывод колонтитула.
  Страничка явно полезная, но она не ищется Яндексом! Пример: "Прайс-лист книжкой" там не находит поисковик. HTML-код какой-то странный. Машинка хорошо ездит, :-) но попробуйте все-таки сделать и простой текст, чтобы он искался. Иначе он типа окажется в забвении. | |||
| 9
    
        Lex1C 15.12.05✎ 17:15 | 
        (0) - полезная штука, возьму на заметку     | |||
| 10
    
        Парижская фанера 15.12.05✎ 17:23 | 
        Тогда уж может в БЗню кто занесёт?     | |||
| 11
    
        skunk 15.12.05✎ 17:28 | 
        (8)я просто ссылку дал... а что там есть не смотрел     | |||
| 12
    
        Diter 15.12.05✎ 17:31 | 
        (10) А давайте я (я так мало в БЗ добавлял веток)     | |||
| 13
    
        Парижская фанера 15.12.05✎ 17:34 | 
        (12) Да ради бога.     | |||
| 14
    
        Рупор абсурда 15.12.05✎ 17:36 | 
        (6) Впервые это было предложено пару лет назад кем-то на т1с ...
  К сожалению, не помню кем ... Здесь это уже обсуждали ..., и даже не раз ... | |||
| 15
    
        Diter 15.12.05✎ 17:38 | 
        (14) Да ладно тебе брюзжать ;)
  Ну обсуждали, ну предлагали, ну и что? многие этого не знали... | |||
| 16
    
        Пкфте 15.12.05✎ 17:43 | 
        (14) Предлож что-нибудь на 3, а? Или пошли на пару лет назад...     | |||
| 17
    
        Рупор абсурда 15.12.05✎ 17:46 | ||||
| 18
    
        skunk 15.12.05✎ 17:52 | 
        (16)сейчас пошлет...     | |||
| 19
    
        Пкфте 15.12.05✎ 17:55 | 
        (18) Я только туда ломанусь, где он сам бывал...     | |||
| 20
    
        skunk 15.12.05✎ 17:56 | 
        (19)он седня злой...     | |||
| 21
    
        skunk 15.12.05✎ 17:56 | 
        обманет и пошлет туда где сам не был...     | |||
| 22
    
        Пкфте 15.12.05✎ 18:02 | 
        (20)Да что-то типа если у меня руки в боки, то пох мне на какую сторону его шляпа смотрит...     | |||
| 23
    
        LOD 15.12.05✎ 18:03 | 
        (22) Какой ты энергичный ...     | |||
| 24
    
        skunk 15.12.05✎ 18:03 | 
        (22)не знаю... от комментариев отказываюсь... вчера черт за язык дернул....     | |||
| 25
    
        LOD 15.12.05✎ 18:04 | 
        (24) покажи где     | |||
| 26
    
        Пкфте 15.12.05✎ 18:07 | 
        (23) Даже не знаю, что ответить, подсмысл не ясен, но первое желание было почему-то послать...     | |||
| 27
    
        skunk 15.12.05✎ 18:08 | ||||
| 28
    
        Пкфте 15.12.05✎ 18:09 | 
        (24) Я всякую хню со вчера на сегодня за собой не таскаю...     | |||
| 29
    
        skunk 15.12.05✎ 18:11 | 
        (28)я еще не спал... у меня еще вчера... проснуся сразу послезавтра...     | |||
| 30
    
        Пкфте 15.12.05✎ 18:14 | 
        (29) Это орден... а я спать люблю, желательно не с открытой форточкой...     | |||
| 31
    
        skunk 15.12.05✎ 18:19 | 
        (30)пухал всю ночь... в каком-то клубе... шары покатал... в пилиярд     | |||
| 32
    
        LOD 15.12.05✎ 18:22 | 
        (27) Офигеть ...
  прими мои соболезнования (если нужны) | |||
| 33
    
        skunk 15.12.05✎ 18:23 | 
        (32)если помогут... принимаю... один фих на мне уже поставлен крест     | |||
| 34
    
        Рупор абсурда 15.12.05✎ 18:24 | 
        Скунки, кто такой Пкфте?     | |||
| 35
    
        Лошадка в пальто 15.12.05✎ 18:24 | 
        запускаю отладчик... и думаю: "А чо это меня на сайт к Рупору занесло"? (цы)ИАм     | |||
| 36
    
        skunk 15.12.05✎ 18:26 | 
        (34)хм... шутка не шутка... но на всякий пожарный... включи английский и набери ПкфнЕ     | |||
| 37
    
        Рупор абсурда 15.12.05✎ 18:28 | 
        (36) Спроси его, чё он идиотничает?     | |||
| 38
    
        Пкфте 15.12.05✎ 18:31 | 
        это юмор     | |||
| 39
    
        skunk 15.12.05✎ 18:35 | 
        (38)Рупор хочет знать... ты идиотничаешь или нет... и если да... то зачем?     | |||
| 40
    
        LOD 15.12.05✎ 18:36 | 
        (38) Разве это юмор ?
  Вот это юмор: ЗиК 7.7; Возврат НДФЛ; И как только автор умудряется такие вопросы задавать ... Он их специально придумывает ? Аж страшно подумать, что у автора в голове твориться ! | |||
| 41
    
        romix модератор 15.12.05✎ 18:39 | 
        (47) Рупор, я там ответил 
  Как принудительно программно открыть максимально форму? Короче если хочешь я это уберу или поставлю вместо "(с) не мой " правильный (с), с указанием ссылки "куда надо". Насчет идеи в (0), я делал это сам, хотя приоритет может быть запатентован за кем-то еще (если будут ссылки туда, то они повысят рейтинг того ресурса). | |||
| 42
    
        smaharbA 15.12.05✎ 18:41 | 
        Тока я не понял как страницы подсчитываются...?     | |||
| 43
    
        skunk 15.12.05✎ 18:44 | 
        (0)а если будет 1112 листов... что тогда?     | |||
| 44
    
        Пкфте 15.12.05✎ 18:46 | 
        (42) г_ЧислоСтраниц=г_ЧислоСтраниц+1;
  (39) Я уже оценил... | |||
| 45
    
        romix модератор 15.12.05✎ 18:49 | 
        (42) Когда выводится колонтитул, 1С вызывает функцию, которую я вписал в обработчик колонтитула [ПодсчетСтраниц()] 
  Добавь отладочную печать в эту функцию, и ты поймешь как она работает. (43) Тогда можно вручную вписать итоговую цифру (функция выдает предупреждение если страниц больше 7). Такие толстые пачки нечасто, я думаю, кто-то печатает. Можно пропись еще наверное поюзать, но я этим не заморачивался. | |||
| 46
    
        skunk 15.12.05✎ 18:51 | 
        (44)не уклоняйся... когда боги спрашивают...     | |||
| 47
    
        skunk 15.12.05✎ 18:52 | 
        (45)тогда это не универсальное решение... конечно с 1112 листами я загнул... но реально видал накладные на 20 а то и по более листах...     | |||
| 48
    
        smaharbA 15.12.05✎ 18:53 | 
        Аааа, ято думал что количество напечатанных, простите (правдо) я опять слегка трезв...     | |||
| 49
    
        Пкфте 15.12.05✎ 18:53 | 
        (46) Они не налоговая...     | |||
| 50
    
        romix модератор 15.12.05✎ 18:57 | 
        (47) Ну тогда кейс на 25-30 листов, либо пропись.
  зн=Формат(1112, "ЧП"); Сообщить(зн); выдает: Одна тысяча сто двенадцать | |||
| 51
    
        skunk 15.12.05✎ 18:58 | 
        (49)боги страшны в своем гневе... (шепотом ....страшнее налоговой)     | |||
| 52
    
        skunk 15.12.05✎ 18:58 | 
        (50)офигительный код получиться ))))     | |||
| 53
    
        Пкфте 15.12.05✎ 19:01 | 
        (52) Для написания кода для 1112 листов можно написать другой код, покороче, который сгенерит нужный в текстовичек...     | |||
| 54
    
        romix модератор 15.12.05✎ 19:03 | 
        (52) А что делать - русский язык богат и могуч своими склонениями и спряжениями. :-)
  Тут кстати есть самописная пропись (для Excel): http://script-coding.info/ | |||
| 55
    
        smaharbA 15.12.05✎ 19:05 | 
        (54) Ексель кстати запросто 1С может запояс задвинуть... Программирование на ем не хуже, а даже лучче чем в 1С, да и возможности гораздо ширее..     | |||
| 56
    
        skunk 15.12.05✎ 19:08 | 
        (53)точно... 
  (на вопрос значит отвечать не будешь... да?) (54)смотри (53) (55)точно... | |||
| 57
    
        LOD 15.12.05✎ 19:11 | 
        (55) Представляю себе бухгалтерию в Екселе ....
  Ужос ... Или я ошибаюсь ? А с возможностями Екселя согласен | |||
| 58
    
        Пкфте 15.12.05✎ 19:12 | 
        (56) Я сюда за знаниями вхож... не дорос ещё на вопросы отвечать, а вот он молчит...     | |||
| 59
    
        Пкфте 15.12.05✎ 19:12 | 
        (56) Я сюда за знаниями вхож... не дорос ещё на вопросы отвечать, а вот он молчит...     | |||
| 60
    
        skunk 15.12.05✎ 19:13 | 
        (57)ошибаешься...     | |||
| 61
    
        skunk 15.12.05✎ 19:14 | 
        Уважаемый Рупор Абсурда... он говорит что ходит сюда набираться уму разуму...     | |||
| 62
    
        Пкфте 15.12.05✎ 19:15 | 
        (57) Начал было сопровождать в одной конторе, да город сменил... Работали, нормально, только зарплату в какой-то другой считали...     | |||
| 63
    
        LOD 15.12.05✎ 19:17 | 
        (62) Вели финасовый учет в екселе ....
  Лучше уж сразу в аксесе ! (57) Поясни В екселе удобней ? (сомневаюсь) | |||
| 64
    
        Пкфте 15.12.05✎ 19:19 | 
        В аксесе материалы, строили они много...     | |||
| 65
    
        skunk 15.12.05✎ 19:21 | 
        (63)ты просто не умеешь готовить ексель...     | |||
| 66
    
        LOD 15.12.05✎ 19:21 | 
        (64) У меня в армии до сих пор зарплату в аксесе считают (её 3,5 года написал)
  И больше не обновлял | |||
| 67
    
        skunk 15.12.05✎ 19:22 | 
        (66)а как же законы...     | |||
| 68
    
        smaharbA 15.12.05✎ 19:24 | 
        (63) Чем отличается программирование в екселе от программирования в 1С (пока отбросим возможности которэх нет в 1С и возможностей 1С которых нет в екселе(они мизерны, надо тока блоки БИ и регистров(можна и без них) создать))     | |||
| 69
    
        smaharbA 15.12.05✎ 19:24 | 
        (63) Чем отличается программирование в екселе от программирования в 1С (пока отбросим возможности которэх нет в 1С и возможностей 1С которых нет в екселе(они мизерны, надо тока блоки БИ и регистров(можна и без них) создать))     | |||
| 70
    
        skunk 15.12.05✎ 19:25 | 
        (68)ты тоже не знаешь ексель     | |||
| 71
    
        smaharbA 15.12.05✎ 19:32 | 
        (70) Тоже... вопрос это был, к (63)
  ;) | |||
| 72
    
        LOD 15.12.05✎ 19:32 | 
        (67) Мне это тоже стало интересно 
  (69) Возможностей больше в екселе, вот тока реализовывать будет сложнее чем в 1С (ИМХО) | |||
| 73
    
        smaharbA 15.12.05✎ 19:34 | 
        (72) на ИМХО я злюсь... непонимаю правдо что это есть, хоть уж в течение года вталивали неоднократно...     | |||
| 74
    
        LOD 15.12.05✎ 19:37 | 
        (73) Хорошо что на буквы хоть не злишься )))     | |||
| 75
    
        skunk 15.12.05✎ 19:41 | 
        (71)нет тебе... раз утвержадешь что в екселе нет регистров... и бух итогов... они есть ;)))     | |||
| 76
    
        smaharbA 15.12.05✎ 20:05 | 
        (75) оне конечно тама есть, но еще к ним надо прикручивать всяческие БИ запросы и хранилище для них... а в 1С уже впиндюрили, но это не минус екселя...     | |||
| 77
    
        skunk 15.12.05✎ 20:07 | 
        (76)хм... и БИ.Запросы есть...     | |||
| 78
    
        smaharbA 15.12.05✎ 20:10 | 
        (77) Тока запрашивать непочему пока ручками не создаш (спрограммиш) ;)     | |||
| 79
    
        skunk 15.12.05✎ 20:11 | 
        (78)ты уверне что 1С сама умеет спрашивать... без ручек программиста     | |||
| 80
    
        smaharbA 15.12.05✎ 20:12 | 
        (79) неподеывай... тыж все понимаешь, у меня счас не тот настрой...     | |||
| 81
    
        skunk 15.12.05✎ 20:15 | 
        (80)ладно не буду... зато согласись там можно так изгольнуться... ни как 1С даже не снилось... а?     | |||
| 82
    
        smaharbA 15.12.05✎ 20:16 | 
        Да...этт точно...     | |||
| 83
    
        skunk 15.12.05✎ 20:18 | 
        и почему все так не любят MS     | |||
| 84
    
        Guk 15.12.05✎ 20:25 | 
        Бойян...     | |||
| 85
    
        427 15.12.05✎ 21:22 | 
        нравится мне как ромикс тупит...
  "Поэтому я делаю таб.Очистить(); и формирую печатную форму еще раз." Клево... Одна из самых медленных операций повторяется 2 (ДВА!!!) раза... | |||
| 86
    
        romix модератор 16.12.05✎ 12:32 | 
        Я должен ИЗВИНИТЬСЯ перед всеми, метод (0) НЕ РАБОТАЕТ как ожидалось.
  (вчера толком не проверил на большом числе строк). А кто-то уже начал предъявлять копирайт. :-) Колонтитул или даже ПовторятьПриПечатиСтроки() фактически вызывается только один раз. Чтобы напечатать номер страницы, в колонтитул надо вписать #P. Реально подсчитать страницы не знаю как. FormEx наверное поможет, т.к. там есть метод, который возвращает реальную высоту строк. | |||
| 87
    
        romix модератор 16.12.05✎ 12:33 | 
        Скрыл сообщение (0) т.к. оно неверное. Блин вот облом. :-(     | |||
| 88
    
        Пкфте 16.12.05✎ 12:34 | 
        (87) А моё открой, оно верное... :)
  ЗЫ фсё фигня! | |||
| 89
    
        skunk 16.12.05✎ 18:09 | 
        нет в жизни счастия...     | |||
| 90
    
        AeDen 16.12.05✎ 19:31 | 
        (55) В ёкселе нечеткие множества строил... Функции принадлежности вычислял... Стохастику гонял... Тока файло 100 мб и более. При изменении одной лишь цифры все результаты минут по 10-15 пересчитывались.     | |||
| 91
    
        smaharbA 16.12.05✎ 19:36 | 
        (90) Это ты не правильно делал, ненада листы формулами забивать... да и пересчет может быть быстр, рефреш и отображение отключи...
  Но вообщето про эхель мы не об этом, об программировании в нем, а листы книг так для малых баз, базыто можно и текстовые и скуль... | |||
| 92
    
        skunk 16.12.05✎ 19:39 | 
        и даже акцесные и дбф...     | |||
| 93
    
        427 16.12.05✎ 21:32 | 
        кстати, решение ромикса вполне можно сделать работающим... Заменив одну строку на 2... Но это детали...
  (90,91) Видел решение на Экселе+Визуал Басик для приложений у нехилой конторы... Номенклатура 200 тыс. Реально на остатках 50-60 тыс... | 
 
 | Форум | Правила | Описание | Объявления | Секции | Поиск | Книга знаний | Вики-миста |