[raus]

Сообщение от Sirius34

через какой скрипт? я про такой не знаю...

вот так это выглядит в 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

наверно в делфях что то похожее


ЗЫ - надо бы спойлеры запилить как то.... (мысли вслух)

[bariknm]

Сообщение от Radnor

проверяйте таблицу s_templates могли уйти указатели на уровни документов в последнем поле

какие именно указатели, в какой графе???

[sarapul-mro]

[QUOTE=Sirius34;911744]
руками вбивает
можно и сканер использовать, только управа их покупать не торопится, а самим - дороговато

Спасибо, уже не нужно.

[Flextor]

Добрый вечер! Подскажите, пожалуйста. В нашем отделе требуется наладить печать конвертов для исходящих документов самими СПИ (сейчас их вручную пишет канцелярия). В ПК СП, как всем известно, в таблице исходящих есть опция "печать конвертов и уведомлений" - и там 3 варианта: уведомления, маленький конверт и средний конверт. Так вот, уведомления формируются нормально, в двух файлах даже (присутствуют шаблоны Уведомление 1.dot и Уведомление 2.dot) Но вот на нажатия пунктов "маленький конверт" и "средний конверт" ПК не реагирует абсолютно никак ! В каталоге ex_prod_templates имеются шаблоны Letter.dot, MidiLetter.dot.
Помогите, как их правильно подключить через настройку шаблонов... а может просто сами имена файлов неверные?

[raus]

Сообщение от Flextor

Помогите, как их правильно подключить через настройку шаблонов...

забей.... подключи как обычные документы из формы "Исполнительное производство"

[Flextor]

Сообщение от raus

забей.... подключи как обычные документы из формы "Исполнительное производство"

Хм, я подумывал об этом Просто раз уж разработчики предусмотрели возможность печати из "исходящих" - значит можно это заставить работать? Да и удобнее как-то...

[raus]

Сообщение от Flextor

Да и удобнее как-то...

нет, не удобнее... Так выделяешь необходимое кол-во ИП, "Сформировать документы" - конверт - и в путь!!! Нет лишним телодвижениям....

[Flextor]

Сообщение от raus

нет, не удобнее... Так выделяешь необходимое кол-во ИП, "Сформировать документы" - конверт - и в путь!!! Нет лишним телодвижениям....

Хорошо! Завтра буду пробовать! Но вот подкрался еще вопрос: в исходящих для документа можно вбивать несколько адресатов (взыскатель и должник, как вариант). И если я клацну на "уведомлении", тогда ПК СП создаст их сразу несколько, для каждого адреса. А как с этим будет в случае, если я их буду формировать из формы ИП ?

[raus]

Сообщение от Flextor

А как с этим будет в случае, если я их буду формировать из формы ИП ?

или не понимаю, или не вижу проблемы.... Вы умеете создавать метки? Шаблоны?

[Flextor]

Сообщение от raus

или не понимаю, или не вижу проблемы.... Вы умеете создавать метки? Шаблоны?

Да. Я разобрался, спасибо. Вопрос закрыт.