Вы искали 1с - Страница 36 из 40

Проверка наличия индекса массива в массиве

19.04.2017 Павел Грибов 1C

Почему то в 1С нет встроенной функции проверка наличия индекса в массиве. Хотя в принципе понятно, индекс идет по порядку, и если проверяемое значение меньше количества элементов в массиве, то индекса нет. Но мне приспичило… Вот результат:

Функция ПроверкаНаличичияИндексаВМассиве(масс,индекс)
	рез=истина;	
		попытка
			масс.Получить(индекс);
		исключение
			рез=ложь;
		конецпопытки;		
	возврат рез;
конецфункции

Функция ПроверкаНаличичияИндексаВМассиве(масс,индекс)

рез=истина;

попытка

масс.Получить(индекс);

исключение

рез=ложь;

конецпопытки;

возврат рез;

конецфункции

Оставить комментарий массив, проверка индекса

Подключения сканера штрихкодов к ТИС

28.09.2016 Павел Грибов 1C

Задача: старая-старая ТИС, не обновляемая лет 10 уже. Прикрутить сканер штрихкодов. ОС Windows 10

Решение: используем последнюю «бесплатную» версию драйверов АТОЛ для подключения.

Скачаем эти драйвера. Установим по учетной записью администратора. Если ругнется на то что «не подходят драйвера» — не обращаем внимание
Заходим в папку куда установилась утилита, копируем всё содержимое папки bin в windows/system32
Можно запустить утилиту scaner_t.exe и потестировать, что-то посканировав. Если сканирует — ок, идем в 1С
В 1С запускаем меню «подключение внешнего оборудования», создаем новый тип устройства, dll обработки указываем scaner1C.dll из папки АТОЛ.
В меню Сервис-Настройки должна появится настройка сканера.

Оставить комментарий атол, бесплатный драйвер, подключение сканера

Учет оргтехники в организации v 3.х 2013-2017 (работа в браузере) (Завершено)

Внимание! Проект более не развивается. Скачать последнюю версию: здесь GIT репозитарий: здесь DEMO сайт :<проект заброшен и завершен>Вход: test/test База обнуляется раз в час. Wiki проекта: <проект заброшен и завершен> Попросить помочь: <проект заброшен и завершен> Содержание Общие сведения Лицензионное соглашение Материальное стимулирование Установка Обновление Настройка Первоначальное заполнение справочников Журнал «Имущество» Размещение ТМЦ на карте Новости Бизнес процессы Удаление объектов Разработчикам Общие […]

» Читать далее

Не вошедшее в последнее обновление…

04.06.2013 Павел Грибов WEB

Собственно вот. Как уже говорил, проект «Учет оргтехники в WEB интерфейсе», сейчас заморожен. Однако это не совсем так. Заморожен фактически только выпуск «публичных» версий, в виду того что в версию 1.6 было внесено «ну очень много» так называемого «гуанокода». Почему? Потому что а) Скучно стало поддерживать проект в «подобающем» виде без поддержки сообщества. б) Некоторый функционал нужно было «прям сейчас», а чуть позже, уже лениво было переписывать эти куски. » Читать далее

Оставить комментарий в браузере, учет, учет ТМЦ

Выгрузка списка контрагентов в XML (1C 8.2)

13.03.2013 Павел Грибов 1C

Достаточно простой код, используя обьект 1С ЗаписьXML:

 Запрос = Новый Запрос;
 Запрос.Текст = 
 "ВЫБРАТЬ
	|	Контрагенты.Наименование как имя,
	|	Контрагенты.НаименованиеПолное как полноеимя,
	|	Контрагенты.Код как код,
	|	Контрагенты.ИНН как инн,
	|	Контрагенты.КПП как кпп,
	|	Контрагенты.Ссылка,
	|	Контрагенты.Покупатель как покупатель,
	|	Контрагенты.Поставщик как поставщик
	|ИЗ
	|	Справочник.Контрагенты КАК Контрагенты";
	
  Результат = Запрос.Выполнить().Выбрать();  
  ЗаписьXML = Новый ЗаписьXML;
  ЗаписьXML.ОткрытьФайл("\\10.80.16.34\Documents\counterpart.xml","UTF-8");
  ЗаписьXML.ЗаписатьОбъявлениеXML();

  ЗаписьXML.ЗаписатьНачалоЭлемента("export");
  пока  Результат.Следующий() цикл
   	 ЗаписьXML.ЗаписатьНачалоЭлемента("counterpart");
	 ЗаписьXML.ЗаписатьБезОбработки("<name>"+Результат.имя+"</name>");
	 ЗаписьXML.ЗаписатьБезОбработки("<fullname>"+Результат.полноеимя+"</fullname>");
	 ЗаписьXML.ЗаписатьБезОбработки("<code>"+Результат.код+"</code>");
	 ЗаписьXML.ЗаписатьБезОбработки("<inn>"+Результат.инн+"</inn>");
	 ЗаписьXML.ЗаписатьБезОбработки("<kpp>"+Результат.кпп+"</kpp>");
	 ЗаписьXML.ЗаписатьБезОбработки("<buyer>"+Результат.покупатель+"</buyer>");
	 ЗаписьXML.ЗаписатьБезОбработки("<supplier>"+Результат.поставщик+"</supplier>");
	 ЗаписьXML.ЗаписатьКонецЭлемента();

  конеццикла;
  ЗаписьXML.ЗаписатьКонецЭлемента();

Запрос = Новый Запрос;

Запрос.Текст =

"ВЫБРАТЬ

| Контрагенты.Наименование как имя,

| Контрагенты.НаименованиеПолное как полноеимя,

| Контрагенты.Код как код,

| Контрагенты.ИНН как инн,

| Контрагенты.КПП как кпп,

| Контрагенты.Ссылка,

| Контрагенты.Покупатель как покупатель,

| Контрагенты.Поставщик как поставщик

|ИЗ

| Справочник.Контрагенты КАК Контрагенты";

Результат = Запрос.Выполнить().Выбрать();

ЗаписьXML = Новый ЗаписьXML;

ЗаписьXML.ОткрытьФайл("\\10.80.16.34\Documents\counterpart.xml","UTF-8");

ЗаписьXML.ЗаписатьОбъявлениеXML();

ЗаписьXML.ЗаписатьНачалоЭлемента("export");

пока Результат.Следующий() цикл

ЗаписьXML.ЗаписатьНачалоЭлемента("counterpart");

ЗаписьXML.ЗаписатьБезОбработки("<name>"+Результат.имя+"</name>");

ЗаписьXML.ЗаписатьБезОбработки("<fullname>"+Результат.полноеимя+"</fullname>");

ЗаписьXML.ЗаписатьБезОбработки("<code>"+Результат.код+"</code>");

ЗаписьXML.ЗаписатьБезОбработки("<inn>"+Результат.инн+"</inn>");

ЗаписьXML.ЗаписатьБезОбработки("<kpp>"+Результат.кпп+"</kpp>");

ЗаписьXML.ЗаписатьБезОбработки("<buyer>"+Результат.покупатель+"</buyer>");

ЗаписьXML.ЗаписатьБезОбработки("<supplier>"+Результат.поставщик+"</supplier>");

ЗаписьXML.ЗаписатьКонецЭлемента();

конеццикла;

ЗаписьXML.ЗаписатьКонецЭлемента();

Оставить комментарий 1c, 1c 8.2, xml, выгрузка xml

« 1 … 34 35 36 37 38 … 40 »

Пн	Вт	Ср	Чт	Пт	Сб	Вс
				1	2	3
4	5	6	7	8	9	10
11	12	13	14	15	16	17
18	19	20	21	22	23	24
25	26	27	28	29	30