Добрый день!

1с 8.2 УТ 10.3
Как добавить в форме списка колонку сколько раз печаталась накладная в документе "Реализация товаров и услуг"

Пригласите программиста

(1) ))

А как проверяете,что количество отправленных на печать равно вышедшим из принтера

Сколько раз нажималась кнопка печать или сколько раз сформированную форму выводили на принтер, или сколько раз её же, сохранённую в ексель, выводили на принтер и отправляли по почте?

(0) Никак. Можно узнать только сколько раз нажимали на кнопку "Печать" в 1С.

(5) И как узнать, сколько раз я нажал на Cntr-P ?

А если ее напечатали один раз, а потом на ксероксе прогнали 100 раз?

(4) сколько раз сформированную форму выводили на принтер

времена меняются, платформы меняются, конфигурации меняются - а глупые вопросы остаются...

(5) да ладно
сетевой принтер через WMI опрашивается на раз

(6) Под кнопкой "Печать" я подразумевал ту по которой формируется Табличный документ

Сабж действительно пятничный.

Предлагаю:
1. выдавать бумагу поштучно под роспись.
2. на входе и выходе - рамка и обыск.

(0) зачем?

(11) Предлагаешь каким то образом сохранять "отпечаток печдока" и затем сравнивать с выведенными на всех доступных принтерах?

(15) ТКО - Надо!

(14) 0. Пометить бумагу специальными метками.

(14) сфотографируют на телефон, дома напечатают...

(19) Телефоны запретить - на входе уже есть рамки, удобно

(15) Надо)

(19) А вот уже ответили (20).

(20) запомнят. нарисуют карандашом на манжете.

(16) всё проще - у принтера есть очередь, имена в ней делаются уникальными

такие системы стоят в любом крупном холдинге, включая карту доступа к принтеру

(21) Ну добавь эту колонку и наймите специального человека который будет ее заполнять.

Можно сэкономить и повесить функцию заполнения на сотрудников, которые печатают...

ну как туда счетчик всетаки вставить?)

(23) Не, ты посмотри, какой настырный...
Переодевать...

(27) татуировка....

(27) Достаточно просто раздевать и запретить бумагу не только печатать но и в виде коробок чтобы не надевали на себя.

И осматривать на новые татуировки и надписи на теле...

(27) "уж если я чего решил - так выпью обязательно!"©

(28) (29) Слушайте, я больше не могу :)))))))))))))))))))))))))))

откуда брать информацию о количестве распечаток?

(32) от дневального по принтеру...

(33) ))))))))))))))))

(32) в третий и последний раз - из очереди печати

нужно больше скобок!

(29) И в обязательном порядке таблетки давать от памяти...

(36) а если я на виртуальный принтер печатаю (например, принтер pdf)? А если принтер не поддерживает этого функционала?

Я может покажусь банальным, но все-таки спрошу еще раз: зачем?

(33) все намного проще: под лотком с бумагой поставить весы и данные оперативно отправлять в 1С. По весу определять сколько было взято бумаги.

(38) а виртуальный принтер - это отдельный счетчик...

(35) как обратиться к очереди печати?

(41) WMI

(41) не очень тебе поможет очередь печати. Ты же не один только этот документ распечатываешь.

(40) ага, с коэффициентом еще... 1 печать на виртуальный принтер - это 0.7 печати на обычный

(41) см. (11)

(43) смотреть по имени задания.

(43) см (24)

(0) Не надо придумывать велосипед. Посадите "бабулю" возле принтера, и пусть она под роспись выдает распечатки.

А в чем тайный смысл этого колдунства?

(48) см (33)

(49) См. (17)

(47) хотя бы пример запроса

(48) Ага, а бабулю кто контроллировать будет? а если они в сговор войдут с распечатывальщиком? это же катастрофа будет...

(52) Dim locator As WbemScripting.SWbemLocator
Dim Service As WbemScripting.SWbemServices
Dim myob As WbemScripting.SWbemObjectSet
Dim myxz As WbemScripting.SWbemObject
Dim CtDist As Long
Dim PrStr As String
PrStr = "Acrobat*"
Set locator = New WbemScripting.SWbemLocator
Set Service = locator.ConnectServer
' язык WQL - почти SQL
Set myob = Service.ExecQuery("SELECT *   FROM Win32_PrintJob ")
'Like в WQL работает странно
CtDist = 0
For Each myxz In myob
If myxz.Name Like PrStr Then
   CtDist = 1
   'набор полей MSDN - Win32_PrintJob
   Debug.Print myxz.Name; "  "; myxz.Caption; "  "; myxz.jobstatus
End If
Next myxz
Debug.Print "----- число заданий в самогонном аппарате--->"; CtDist
Set myob = Nothing
Set Service = Nothing
Set locator = Nothing

(51) так может быть просто нужно поменять условие задачи? Ну например чтобы не задваивали накладные - поставить принтер на складе и пусть сами печатают

(53) Дневального по принтеру должен контролировать дежурный по принтеру.

(55) Встречное предложение: в печ. форме добавить исполнителя, у принтера поставить копирайтера (по-моему так называется) и пусть разносит.

(57) копирайтер - это паша-еврейчик...

(56) И новая должность (со всеми вытекающими: штатка, контракт, договор и пр.) - Директор по принтеру.
Но название нужно придумать... Солидное...

(58) Не трогай Пашу... Его дочь может нанести тебе тяжкие телесные.

(60) Значит дочь назначим начальником СБ. И будет она избивать тех кто в сговоре

(59) менеджер печати же...

У нас в армии была подобная система - отдельная станция печати, в оборудованном помещении. Вся печать только там. В журнале регистрации пишется кто печатал, что, количество годных копий, количество бракованных. Выдача под роспись. Бракованные по акту комиссии уничтожаются. Да, и все листы пронумерованы и учтены :)

Правда все эти понты для грифа СС применялись :)

(60) само присутсвие у него детей - это уже тяжкие телесные повреждния генофонда

(62) Точно!
С приставкой "Топ".

(64) Соглашусь (из-за последней ветки).

(0) юзай прогу O&K Print Watch, выгружай отчет о распечатанном в xml, загружай в 1С и делай колонку;)

(54) А в терминале работает?

(67) Спасибо!

Тему можно закрывать)