20.02.2011, 13:33 | #531 |
Модератор ФССП
Регистрация: 16.01.2009
Адрес: Россия / /
Сообщений: 3,373
Благодарности: 153
Поблагодарили 548
раз(а) в 528 сообщениях
Обратиться по нику Цитата выделенного |
вот так это выглядит в VB OO
Код:
Public Function make_code128(chaine) Dim i as integer dim checksum as integer dim mini as integer dim dummy as integer dim tableB As Boolean code128 = "" dim c as integer c = Len(chaine) If c > 0 Then 'Check for valid characters For i = 1 To c Select Case Asc(Mid(chaine, i, 1)) Case 32 To 126, 203 Case Else i = 0 Exit For End Select Next 'Calculation of the code string with optimized use of tables B and C code128 = "" tableB = True If i > 0 Then i = 1 'i become the string index Do While i <= c If tableB Then 'See if interesting to switch to table C 'yes for 4 digits at start or end, else if 6 digits if i = 1 or (i + 3 = c) then mini = 4 else mini = 6 end if mini = mini - 1 If i + mini <= c Then Do While mini >= 0 If Asc(Mid(chaine, i + mini, 1)) < 48 Or Asc(Mid(chaine, i + mini, 1)) > 57 Then Exit Do mini = mini - 1 Loop End If If mini < 0 Then 'Choice of table C If i = 1 Then 'Starting with table C code128 = Chr(210) Else 'Switch to table C code128 = code128 & Chr(204) End If tableB = False Else If i = 1 Then code128 = Chr(209) 'Starting with table B End If End If If Not tableB Then 'We are on table C, try to process 2 digits mini = 2 mini = mini - 1 If i + mini <= c Then Do While mini >= 0 If Asc(Mid(chaine, i + mini, 1)) < 48 Or Asc(Mid(chaine, i + mini, 1)) > 57 Then Exit Do mini = mini - 1 Loop End If If mini < 0 Then 'OK for 2 digits, process it dummy = Val(Mid(chaine, i, 2)) if dummy < 95 then dummy = dummy + 32 else dummy = dummy + 105 end if code128 = code128 & Chr(dummy) i = i + 2 Else 'We haven't 2 digits, switch to table B code128 = code128 & Chr(205) tableB = True End If End If If tableB Then 'Process 1 digit with table B code128 = code128 & Mid(chaine, i, 1) i = i + 1 End If Loop 'Calculation of the checksum For i = 1 To Len(code128) dummy = Asc(Mid(code128, i, 1)) if dummy < 127 then dummy = dummy - 32 else dummy = dummy - 105 end if If i = 1 Then checksum = dummy checksum = (checksum + (i - 1) * dummy) Mod 103 Next 'Calculation of the checksum ASCII code if checksum < 95 then checksum = checksum + 32 else checksum = checksum + 105 end if 'Add the checksum and the STOP code128 = code128 & Chr(checksum) & Chr(211) End If End If make_code128 = code128 End Function ЗЫ - надо бы спойлеры запилить как то.... (мысли вслух)
__________________
Yo Way Yo, Home Va-Ray, Yo Ay-Rah, Jerhume Brunnen-G |
В Минюст Цитата Спасибо |
21.02.2011, 09:12 | #532 |
Пользователь
Регистрация: 19.04.2010
Адрес: Россия / Архангельская обл. / Нарьян-Мар
Сообщений: 56
Благодарности: 0
Поблагодарили 0
раз(а) в 0 сообщениях
Обратиться по нику Цитата выделенного |
|
В Минюст Цитата Спасибо |
21.02.2011, 21:04 | #533 |
Пользователь
Регистрация: 05.10.2010
Сообщений: 119
Благодарности: 0
Поблагодарили 8
раз(а) в 8 сообщениях
Обратиться по нику Цитата выделенного |
[QUOTE=Sirius34;911744]
руками вбивает можно и сканер использовать, только управа их покупать не торопится, а самим - дороговато Спасибо, уже не нужно. |
В Минюст Цитата Спасибо |
21.02.2011, 21:48 | #534 |
Пользователь
Регистрация: 19.02.2011
Сообщений: 9
Благодарности: 0
Поблагодарили 0
раз(а) в 0 сообщениях
Обратиться по нику Цитата выделенного |
Добрый вечер! Подскажите, пожалуйста. В нашем отделе требуется наладить печать конвертов для исходящих документов самими СПИ (сейчас их вручную пишет канцелярия). В ПК СП, как всем известно, в таблице исходящих есть опция "печать конвертов и уведомлений" - и там 3 варианта: уведомления, маленький конверт и средний конверт. Так вот, уведомления формируются нормально, в двух файлах даже (присутствуют шаблоны Уведомление 1.dot и Уведомление 2.dot) Но вот на нажатия пунктов "маленький конверт" и "средний конверт" ПК не реагирует абсолютно никак ! В каталоге ex_prod_templates имеются шаблоны Letter.dot, MidiLetter.dot.
Помогите, как их правильно подключить через настройку шаблонов... а может просто сами имена файлов неверные? |
В Минюст Цитата Спасибо |
21.02.2011, 21:50 | #535 |
Модератор ФССП
Регистрация: 16.01.2009
Адрес: Россия / /
Сообщений: 3,373
Благодарности: 153
Поблагодарили 548
раз(а) в 528 сообщениях
Обратиться по нику Цитата выделенного |
забей.... подключи как обычные документы из формы "Исполнительное производство"
__________________
Yo Way Yo, Home Va-Ray, Yo Ay-Rah, Jerhume Brunnen-G |
В Минюст Цитата Спасибо |
21.02.2011, 21:55 | #536 |
Пользователь
Регистрация: 19.02.2011
Сообщений: 9
Благодарности: 0
Поблагодарили 0
раз(а) в 0 сообщениях
Обратиться по нику Цитата выделенного |
|
В Минюст Цитата Спасибо |
21.02.2011, 22:00 | #537 |
Модератор ФССП
Регистрация: 16.01.2009
Адрес: Россия / /
Сообщений: 3,373
Благодарности: 153
Поблагодарили 548
раз(а) в 528 сообщениях
Обратиться по нику Цитата выделенного |
нет, не удобнее... Так выделяешь необходимое кол-во ИП, "Сформировать документы" - конверт - и в путь!!! Нет лишним телодвижениям....
__________________
Yo Way Yo, Home Va-Ray, Yo Ay-Rah, Jerhume Brunnen-G |
В Минюст Цитата Спасибо |
21.02.2011, 22:12 | #538 |
Пользователь
Регистрация: 19.02.2011
Сообщений: 9
Благодарности: 0
Поблагодарили 0
раз(а) в 0 сообщениях
Обратиться по нику Цитата выделенного |
Хорошо! Завтра буду пробовать! Но вот подкрался еще вопрос: в исходящих для документа можно вбивать несколько адресатов (взыскатель и должник, как вариант). И если я клацну на "уведомлении", тогда ПК СП создаст их сразу несколько, для каждого адреса. А как с этим будет в случае, если я их буду формировать из формы ИП ?
|
В Минюст Цитата Спасибо |
21.02.2011, 22:25 | #539 |
Модератор ФССП
Регистрация: 16.01.2009
Адрес: Россия / /
Сообщений: 3,373
Благодарности: 153
Поблагодарили 548
раз(а) в 528 сообщениях
Обратиться по нику Цитата выделенного |
или не понимаю, или не вижу проблемы.... Вы умеете создавать метки? Шаблоны?
__________________
Yo Way Yo, Home Va-Ray, Yo Ay-Rah, Jerhume Brunnen-G |
В Минюст Цитата Спасибо |
21.02.2011, 22:33 | #540 |
Пользователь
Регистрация: 19.02.2011
Сообщений: 9
Благодарности: 0
Поблагодарили 0
раз(а) в 0 сообщениях
Обратиться по нику Цитата выделенного |
|
В Минюст Цитата Спасибо |
Опции темы | |
|
|
«Закония» в соц. сетях