Обработка "Загрузка данных в электронные весы Digi SM-100"

|Инструкция по настройке Digi SM100 :
|
| ***************************************************************************  
| Вход в Z - режим -> нажать 4 раза кн. с двумя стрелками 
| Для SPEC : * - вперед,[Номер SPEC][X] - переход,
|            в конце [PLU]  для записи или [->T<-] - отмена   
| ***************************************************************************
| 
| 
| 1) Установить первые три байта IP в Z-режиме :
|      [>0<] + [0][4][1][6]  -> 
|      ввод 3 байт IP xxx.xxx.xxx -> [PLU]
|
| 2) Установить SPEC в Z-режиме:
|      [>0<] + [1][4][1]  
|      
|     SPEC1 = 0 (количество !!!) - печать к-ва для штучной
|     SPEC17 = 1 (ДД-ММ-ГГ)           
|	  SPEC18 - количество строк названия товара при печати чека 
|			 	(0 - 2 строки, 1 - 1 строка) 
|     SPEC37 -  2 (плотность печати)
|	  SPEC38 -  2 (яркость печати)
| 	  SPEC131  = 1 (разрешить печать кол-ва)
|     SPEC135  = IP (уст. последний байт IP)
|	  SPEC137  = выравнивание ингридиентов по центру = 1, не выравнивать = 0 
|     SPEC230  = 1 (автопечать этикетки после вызова PLU)
|	  NB: SPEC230  = 0 - если надо печатать и штучные !!!  	
|     -> * -> [PLU]
| 
| 3) Частичный сброс памяти весов в Z-режиме :
|     [>0<] + [2][3][0] -> 3 раза [X] -> [*] -> [C]
|      
|     м.б. после сброса - Уст режим печати этикеток:
|               [>0<] + кн. с двумя стрелками 
|
| 4) Выключить/включить весы, выгрузить название магазина,
|     выгрузить формат этикетки, выгрузить товар.

Процедура ВыгрузитьНастройкиDigiSM()
	//Текст=СоздатьОбъект("Текст");
	//Текст.Открыть(КаталогИБ()+"F34.DAT");
	ФС.УстТекКаталог(КаталогВременныхФайлов());
	
	scales=CreateObject("DigiSM.TDigiSM");
	
	ТзВесов.ВыбратьСтроки();
	Пока ТзВесов.ПолучитьСтроку() = 1 Цикл
		Если (ТзВесов.Блок <>  1)и((ТзВесов.ТипВесов = Перечисление.Весы.DigiSM100)или( ТзВесов.ТипВесов = Перечисление.Весы.DigiSM300)) тогда
			ErrCode = 0;
			scales.IPAddress =ТзВесов.IP;       
			Попытка 
				scales.Connect = 1; //Сообщить("Выгружаем в весы "+ScalesName+" c IP="+IP);
			Исключение
				Сообщить("Ошибка подключения к весам "+ТзВесов.Наименование+" c IP="+ТзВесов.IP+Симв(10)+
				"Возможно весы выключены или повреждено сетевое оборудование.");
				Продолжить;
				//Возврат;
			КонецПопытки;  
			scales.Font=4; 
			//ТзВесов.ТипВесов = Перечисление.Весы.DigiSM300
			НаимМаг = СокрЛП(СтрЗаменить(НаимМагазина,"і","i"));
			scales.ShopName = ?(ТзВесов.Кодировка = Перечисление.Кодировки.CP866,AnsiToOem(СокрЛП(НаимМаг)),СокрЛП(НаимМаг));	
			
			scales.ShopLabel = 1;   

			
			scales.NumLine = 1;
			scales.Font=2; 
			
			scales.Text = ?(ТзВесов.Кодировка = Перечисление.Кодировки.CP866,AnsiToOem("цiнa"),"цiнa");	
			scales.TextLabel = 1;
			ErrCode = scales.WriteText(1);
			
			
			scales.Text = ?(ТзВесов.Кодировка = Перечисление.Кодировки.CP866,AnsiToOem("вартiсть"),"вартiсть");	
			scales.TextLabel = 2;
			ErrCode = scales.WriteText(2);
			
			scales.Text = ?(ТзВесов.Кодировка = Перечисление.Кодировки.CP866,AnsiToOem("вага"),"вага");	//"вага"
			scales.TextLabel = 3;
			ErrCode = scales.WriteText(3);
			
			scales.Text = ?(ТзВесов.Кодировка = Перечисление.Кодировки.CP866,AnsiToOem("арт"),"арт");	
			scales.TextLabel = 4;
			ErrCode = scales.WriteText(4);
			
			scales.Text = ?(ТзВесов.Кодировка = Перечисление.Кодировки.CP866,AnsiToOem("дiйсн"),"дiйсн");	
			scales.TextLabel = 5;
			ErrCode = scales.WriteText(5);
			
			scales.Text = ?(ТзВесов.Кодировка = Перечисление.Кодировки.CP866,AnsiToOem("запак"),"запак");	
			scales.TextLabel = 6;
			ErrCode = scales.WriteText(6);

			scales.Text = ?(ТзВесов.Кодировка = Перечисление.Кодировки.CP866,AnsiToOem("кiльк"),"кiльк");	
			scales.TextLabel = 7;
			ErrCode = scales.WriteText(7);												
						
			NumRec = 1;
			ErrCode = scales.WriteShopName(NumRec); 
			Если ErrCode <> 0 тогда
				Если ErrCode = 5 Тогда
					сообщить("Ошибка 5: Ошибка записи."); 
				ИначеЕсли ErrCode = 6 тогда	
					сообщить("Ошибка 6: Нет свободной памяти"); 
				Иначе
					сообщить("Ошибка "+ErrCode); 
				КонецЕсли; 
			КонецЕсли;     
			scales.Connect = 0;
			
			// Выгрузка формата этикетки 1 - весовая 2 - штучная -- внутри F34.DAT !!!
			Текст=СоздатьОбъект("Текст");
			Преф = "";
			Если  ТзВесов.ТипВесов = Перечисление.Весы.DigiSM300 Тогда
				Преф = "_sm300";
				Текст.КодоваяСтраница(0);
			Иначе
				Преф = "_sm100";
				Текст.КодоваяСтраница(1);
			КонецЕсли;
			
			Если ФС.СуществуетФайл(КаталогИБ()+"F34"+Преф+".DAT") = 1 Тогда
				Текст.Открыть(КаталогИБ()+"F34"+Преф+".DAT");
			Иначе
				Сообщить("Нет файла "+КаталогИБ()+"F34"+Преф+".DAT - настройки формата этикетки не выгружены !!!");
				Продолжить;
			КонецЕсли;
			


			Текст.Записать(КаталогВременныхФайлов()+"SM"+Прав(ТзВесов.IP,3)+"F34.DAT");
			ФС.КопироватьФайл(КаталогИБ()+"twswtcp.exe",КаталогВременныхФайлов()+"twswtcp.exe",0);  
			КомандаСистемы(КаталогВременныхФайлов()+"twswtcp.exe F34.DAT "+Прав(ТзВесов.IP,3));
		
		КонецЕсли;     
	КонецЦикла;      
	scales=0;
КонецПроцедуры

// формат этикетки 1 = 17 - весовая 18 = 2 - штучная -- внутри F34.DAT !!!
		Если ТЗ.ШтучныйВВесы = 1 тогда
			scales.Weighed = 0;
			scales.BarcodeFormat = 5;
			scales.LabelFormat1 = 18; // 18 штучная
			scales.EANData = "23"+Прав(ТЗ.Артикул,5)+"000000";
		Иначе
			scales.Weighed = 1;
			scales.BarcodeFormat = 5;
			scales.LabelFormat1 = 17;// весовая
			scales.EANData = "23"+Прав(ТЗ.Артикул,5)+"000000";
		КонецЕсли;