oem » Поиск » HelpF.pro

Результаты по ключевому слову: oem

Как настроить кодировку DBF? Категория: XML, DBF, TXT, CSV

Синхронизация системного Времени по запросу

Реализовано для защиты от "умных" пользователей, которые делают то что не нужно делать (ручное изменение даты и времени). В рабочей конфигурации используется при синхронизации времени в ЭККА (кассовый аппарат) при закрытии рабочей смены.

Код 1C v 8.х

 Процедура КнопкаВыполнитьНажатие(Кнопка)

ЭлементыФормы.ТекВремя.Заголовок = ТекущаяДата();

Батник = Новый ТекстовыйДокумент;

Батник.ДобавитьСтроку("echo off");

Батник.ДобавитьСтроку("w32tm /config /syncfromflags:manual /manualpeerlist:ntp.time.in.ua");

Батник.ДобавитьСтроку("w32tm /config /update");

Батник.ДобавитьСтроку("w32tm /resync > c:\res_set_time.txt");

Батник.Записать("c:\settime.bat",КодировкаТекста.OEM);



WshShell = Новый COMОбъект("WScript.Shell");

//WshExec = WshShell.Exec("c:\settime.bat");

СтрокаЗапуска = "c:\settime.bat";

WshShell.Run(СтрокаЗапуска,0,Истина);



Результат = Новый ТекстовыйДокумент;

Попытка

Результат.Прочитать("c:\res_set_time.txt",КодировкаТекста.OEM);

Исключение

Сообщить("Ошибка открытия файла!");

Возврат;

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

Рез = Результат.ПолучитьСтроку(2);

Сообщить(?(Найти(Рез,"успешно") > 0,"ОК!","Не удалось"));

Попытка

УдалитьФайлы("c:\settime.bat");

УдалитьФайлы("c:\res_set_time.txt");

Исключение

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

ЭлементыФормы.ТекВремя.Заголовок = ТекущаяДата();

КонецПроцедуры

Категория: Работа с Датами (Временем)

Загрузка Dbf-файлов с длиной имени больше 8 символов Категория: XML, DBF, TXT, CSV

Использование программы rundll32.exe в 1С Категория: COM-объекты, WMI, WSH

Пример загрузки остатков в документ 1С из DBF файла

Код 1C v 8.х

 ФайлОстатков = Новый XBase;

ФайлОстатков.Кодировка = КодировкаXBase.OEM;

ФайлОстатков.ОткрытьФайл(ПутьКТаблицеОстатков);

ФайлОстатков.Первая();        

Пока Не ФайлОстатков.ВКонце() Цикл

	КодКонтрагента = СокрЛП(ФайлОстатков.ПолучитьЗначениеПоля("ZKPO"));

	Если КодКонтрагента = "" Тогда

		КодКонтрагента = СокрЛП(ФайлОстатков.ПолучитьЗначениеПоля("IDENKOD"));

	КонецЕсли;

	НаименованиеКонтрагента = СокрЛП(СтрЗаменить(ФайлОстатков.ПолучитьЗначениеПоля("NAME"),"?","і"));

	Контрагент = ПолучитьКонтрагента(КодКонтрагента,НаименованиеКонтрагента);

	СимволСчета = СокрЛП(ФайлОстатков.ПолучитьЗначениеПоля("SYMBOL"));

	ОстатокДебет = ФайлОстатков.ПолучитьЗначениеПоля("DB_PP");

	ОстатокКредит = ФайлОстатков.ПолучитьЗначениеПоля("KR_PP");

	

	Документ = Документы.КорректировкаДолга.СоздатьДокумент(); 	

	Документ.Организация = Организация;

	Документ.Дата = "20090630235959";

	Документ.ВидОперации = Перечисления.ВидыОперацийКорректировкаДолга.ВводНачальныхОстатков;

	Если ОстатокДебет > 0 Тогда

		Документ.КонтрагентДебитор = Контрагент;

		Документ.СуммыДолга.Очистить();

		СтрокаСуммыДолга = Документ.СуммыДолга.Добавить();

		СтрокаСуммыДолга.ВидЗадолженности = Перечисления.ВидыЗадолженности.Дебиторская;

		СтрокаСуммыДолга.ДоговорКонтрагента = ПолучитьДоговор(Документ.КонтрагентДебитор);

		Если Лев(СимволСчета,3) = "361" Тогда

			СтрокаСуммыДолга.ТипКонтрагента = Перечисления.СтатусыКонтрагентов.Покупатель;

		Иначе

			СтрокаСуммыДолга.ТипКонтрагента = Перечисления.СтатусыКонтрагентов.Поставщик;

		КонецЕсли;

		СтрокаСуммыДолга.КратностьВзаиморасчетов = 1.00;

		СтрокаСуммыДолга.КурсВзаиморасчетов = 1.00;

		СтрокаСуммыДолга.Сумма = ОстатокДебет;

		СтрокаСуммыДолга.СуммаВзаиморасчетов = ОстатокДебет;

		СтрокаСуммыДолга.СтавкаНДС = Перечисления.СтавкиНДС.НДС20;

		СтрокаСуммыДолга.СчетУчетаРасчетов = ПланыСчетов.Хозрасчетный.НайтиПоКоду(СимволСчета);

	Иначе

		Документ.КонтрагентДебитор = Контрагент;

		Документ.СуммыДолга.Очистить();

		СтрокаСуммыДолга = Документ.СуммыДолга.Добавить();

		СтрокаСуммыДолга.ВидЗадолженности = Перечисления.ВидыЗадолженности.Кредиторская;

		СтрокаСуммыДолга.ДоговорКонтрагента = ПолучитьДоговор(Документ.КонтрагентДебитор);

		Если Лев(СимволСчета,3) = "361" Тогда

			СтрокаСуммыДолга.ТипКонтрагента = Перечисления.СтатусыКонтрагентов.Покупатель;

		Иначе

			СтрокаСуммыДолга.ТипКонтрагента = Перечисления.СтатусыКонтрагентов.Поставщик;

		КонецЕсли;

		СтрокаСуммыДолга.КратностьВзаиморасчетов = 1.00;

		СтрокаСуммыДолга.КурсВзаиморасчетов = 1.00;

		СтрокаСуммыДолга.Сумма = ОстатокКредит;

		СтрокаСуммыДолга.СуммаВзаиморасчетов = ОстатокКредит;

		СтрокаСуммыДолга.СтавкаНДС = Перечисления.СтавкиНДС.НДС20;

		СтрокаСуммыДолга.СчетУчетаРасчетов = ПланыСчетов.Хозрасчетный.НайтиПоКоду(СимволСчета);

	КонецЕсли;

	Документ.ВалютаДокумента = Валюта;

	Документ.СчетДт = ПланыСчетов.Хозрасчетный.Вспомогательный;

	Документ.СчетКт = ПланыСчетов.Хозрасчетный.Вспомогательный;

	Документ.Записать(РежимЗаписиДокумента.Проведение);

	ФайлОстатков.Следующая();

КонецЦикла;

ФайлОстатков.ЗакрытьФайл();

Категория: XML, DBF, TXT, CSV

Практическая работа с почтой (E-mail,The Bat, Outlook, Mozilla Thunderbird)

Код 1C v 8.х

 Попытка

    ОтправитьПоПочте2(ТекСтрока); // работает с Батом

Исключение

    Попытка

    ОтправитьПоПочте1(ТекСтрока); // работает с Аутлуком, но переспрашивает при отправке

    Исключение

        Сообщить_и_записать("Ошибка при отправке почты - "+ОписаниеОшибки(),СтатусСообщения.Важное);

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

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



Процедура ОтправитьПоПочте1(ТекСтрока)

    Почта = Новый Почта;

    Сообщение = Новый ПочтовоеСообщение;

    //Работает с Аутглуком, но переспрашивает при отправке

    //не работает с Батом 3.60

    Почта.Подключиться("name@mysite.dp.ua","password");

   

    Сообщение.Вложения.Добавить(ПолучитьИмяФайлаПодразделения(ТекСтрока.филиал.наименование));

    Сообщение.Получатели.Добавить(ТекСтрока.филиал.email);

    Сообщение.Тема ="Проигнорированные документы в офисе. Письмо сгенерированно роботом";

    Сообщение.Текст="Проверьте, будь ласка эти документы ПОСЛЕ получения обновления из офиса. Ваши изменения в этих документах не попали в базу. Откройте прикрепленный файл";

    Почта.Послать(Сообщение);

    Почта.Отключиться();

    УдалитьФайлы(ПолучитьИмяФайлаПодразделения(ТекСтрока.филиал.наименование));

КонецПроцедуры           



Процедура ОтправитьПоПочте2(ТекСтрока)

    ПочтовыйПрофиль = Новый ИнтернетПочтовыйПрофиль;

    ПочтовыйПрофиль.АдресСервераPOP3   = "pop3.mysite.dp.ua";

    ПочтовыйПрофиль.АдресСервераSMTP   = "smtp.mysite.dp.ua";

    ПочтовыйПрофиль.ПортSMTP           = 25;

    ПочтовыйПрофиль.ПортPOP3           = 110;

    ПочтовыйПрофиль.Пользователь       = "name";

    ПочтовыйПрофиль.Пароль             = "password";

    ПочтовыйПрофиль.ВремяОжидания      = 60;

       

    Сообщение = Новый ИнтернетПочтовоеСообщение ;

    Сообщение.Вложения.Добавить(ПолучитьИмяФайлаПодразделения(ТекСтрока.филиал.наименование));

    Сообщение.Получатели.Добавить(ТекСтрока.филиал.email);

    Сообщение.Тема ="Проигнорированные документы в офисе. Письмо сгенерированно роботом";

    Сообщение.ИмяОтправителя="Обмен";

    Сообщение.Отправитель="name@mysite.dp.ua";

       

    Текст = Сообщение.Тексты.Добавить("Проверьте, будь ласка эти документы ПОСЛЕ получения обновления из офиса. Ваши изменения в этих документах не попали в базу. Откройте прикрепленный файл");

    Текст.ТипТекста = ТипТекстаПочтовогоСообщения.ПростойТекст;

   

    Почта = Новый ИнтернетПочта();

    Почта.Подключиться(ПочтовыйПрофиль);

    Почта.Послать(Сообщение);

    Почта.Отключиться();

    УдалитьФайлы(ПолучитьИмяФайлаПодразделения(ТекСтрока.филиал.наименование));

КонецПроцедуры

А вот так 1с работает с Мозилой Сундербердом (который хорошо поддерживает IMAP):

Код 1C v 8.х

  ПутьМозиллы = """C:/Program Files/Mozilla Thunderbird/thunderbird.exe""";

    Текст = Новый ЗаписьТекста(КаталогОбмена + "sendfiletofilial"+Строка(ТекСтрока.филиал.наименование)+".bat", КодировкаТекста.OEM);

    Текст.ЗаписатьСтроку("@echo off");

    Текст.ЗаписатьСтроку("@echo Отправка проигнорированных писем на филиал"+Строка(ТекСтрока.филиал.наименование));

    СтрокаЗапуска = " -compose to='"+ТекСтрока.филиал.email+"',cc='name@mysite.dp.ua',subject=""Проигнорированные документы в офисе. Письмо сгенерированно роботом"",body=""Проигнорированные документы в офисе. Письмо сгенерированно роботом"",attachment=""file://";

    Файл = """"+ПолучитьИмяФайлаПодразделения(ТекСтрока.филиал.наименование)+"""";

    Текст.ЗаписатьСтроку(ПутьМозиллы+СтрокаЗапуска +Файл);

    Текст.ЗаписатьСтроку("del "+Файл);

    Текст.Закрыть();

    ЗапуститьПриложение(КаталогОбмена + "sendfiletofilial"+Строка(ТекСтрока.филиал.наименование)+".bat",КаталогОбмена)

Получение почты

Код 1C v 8.х

 

Процедура КнопкаВыполнитьНажатие(Кнопка)

  Почта = Новый ИнтернетПочта;



    Профиль = Новый ИнтернетПочтовыйПрофиль;

    Профиль.АдресСервераPOP3 = "192.168.0.2";



    Профиль.Пользователь = "romix";

    Профиль.Пароль = "ТутНапишитеПароль";



    Почта.Подключиться(Профиль);



    МассивПисем = Почта.Выбрать(Ложь);



    Для Каждого Письмо из МассивПисем Цикл

        Сообщить("Получено письмо с заголовоком: "+Письмо.Тема);

        Для Каждого Вложение из Письмо.Вложения Цикл

            Сообщить("Вложение: "+Вложение.ИмяФайла);

            Вложение.Данные.Записать("c:\tempdata\"+Вложение.ИмяФайла);

        КонецЦикла;    

        Для Каждого Текст из Письмо.Тексты Цикл

            Сообщить("Текст: "+Текст.Текст);

            Текст.Данные.Записать("c:\tempdata\ТекстСообщения.txt");

        КонецЦикла;    

    КонецЦикла;



КонецПроцедуры

Автор: 1CLama

Категория: Работа с Интернет, Почтой (Mail), FTP

ДБФ, работа с Индекс, Ключ

Код 1C v 8.х

 ФайлНаДиске = Новый Файл(ИмяФайла);

Если НЕ(ФайлНаДиске.Существует()) Тогда

      Предупреждение("Файл с таким именем не существует " + ИмяФайла);

      Возврат;

КонецЕсли;



ДБФ = Новый xBase;

ДБФ.Кодировка  = КодировкаXBase.OEM;

ДБФ.ОткрытьФайл(ИмяФайла);

Если ДБФ.Открыта() = 0 Тогда

      Предупреждение("Неудалось открыть файл. Возможно он занят другим приложением!");

      Возврат;

КонецЕсли;

     

ДБФ.Индексы.Добавить("IDX_vE","VAL(EXTENSION)",Ложь,Ложь,"PREFLEN1>0");

ДБФ.СоздатьИндексныйФайл(ИмяИндекса);

ДБФ.ТекущийИндекс = ДБФ.Индексы.IDX_vE;



ДБФ.Ключ.EXTENSION = "1002";

Если ДБФ.НайтиПоКлючу("=") = Истина Тогда

      ТекЗапись=ДБФ.НомерЗаписи();

      Пока СокрЛП(ДБФ.EXTENSION) = "1002" Цикл

            Сообщить("-" + ДБФ.EXTENSION + " - " + ДБФ.НомерЗаписи() + "-");

            ДБФ.Следующая();

      КонецЦикла;

Иначе

      Сообщить("Нет записи!");

КонецЕсли;



ДБФ.ЗакрытьФайл();

УдалитьФайлы(ИмяИндекса);

Код 1C v 8.х

 // Перекачка справочника "Подразделение" в DBF-файле

   

   ФайлБД=КаталогИмя+"Spr_podr.";   // Название файла без расширения

   xБД=Новый Файл(ФайлБД+"dbf");   // Создание объекта файла в среде 1С

   

   // Удалить, если файлы уже есть (в том числе и индексный файл)

   Если xБД.Существует() Тогда

      УдалитьФайлы(ФайлБД,"*");

   КонецЕсли;

   

   // Создание файлов

   xБД = Новый XBase; // создание объекта файла формата xBase

   // добавим поля

   xБД.Поля.Добавить("Id", "S", 5);

   xБД.Поля.Добавить("Name", "S", 25);

   xБД.СоздатьФайл(ФайлБД+"dbf"); // создадим реальный файл из объекта

   // Индексное выражение

   ИндВр="Id";

   xБД.индексы.Добавить("Id",ИндВр,Истина);

   ИБД = xБД.СоздатьИндексныйФайл(ФайлБД+"cdx"); // создание индексного файла

   xБД.АвтоСохранение=Истина;

   xБД.ЗакрытьФайл();

   

   // Выкачка данных

   xБД.ОткрытьФайл(ФайлБД+"dbf",ФайлБД+"cdx");

   xБД.ТекущийИндекс = xБД.индексы.Id;

   Выборка=Справочники.Подразделения.Выбрать();

   Пока Выборка.Следующий() Цикл

      xБД.Добавить();

      xБД.ID=Выборка.Код;

      xБД.Name=Выборка.Наименование;

      xБД.Записать();

   КонецЦикла;

   xБД.ЗакрытьФайл();

   

   // проверка работы индекса

   xБД.ОткрытьФайл(ФайлБД+"dbf",ФайлБД+"cdx");

   xБД.ТекущийИндекс = xБД.индексы.Id;

   Если xБД.Найти("00003",">=") Тогда

      Сообщить(xБД.ID+" - "+xБД.NAME);

      Пока xБД.Следующая() Цикл

         Сообщить(xБД.ID+" - "+xБД.NAME);

      КонецЦикла;

   КонецЕсли;      

   xБД.ЗакрытьФайл();

Категория: XML, DBF, TXT, CSV