Процедура ВыгрузкаПроводок(Кнопка)

	Если Не ЗначениеЗаполнено(Документ) Тогда

		Сообщить("Заполните поле Документ!");

	Иначе

		Движ = РегистрыБухгалтерии.Хозрасчетный.СоздатьНаборЗаписей();

		Движ.Отбор.Регистратор.Установить(Документ);

		Движ.Прочитать();

		ТЗ = Движ.Выгрузить();

		ПараметрОтбора = Новый Структура("СчетДт",Счет);

		ТЗИтог = ТЗ.Скопировать(ПараметрОтбора);

		Если ЗначениеВФайл("D:\OUT.TXT",ТЗ) Тогда

			Сообщить("Создан файл ""D:\OUT.TXT""");

		КонецЕсли;

	КонецЕсли;	

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



Процедура ЗагрузитьПроводки(Кнопка)

	ТЗЗагрузка = ЗначениеИзФайла("D:\OUT.TXT");

	Движ = РегистрыБухгалтерии.Хозрасчетный.СоздатьНаборЗаписей();

	Движ.Отбор.Регистратор.Установить(Документ);

	Движ.Прочитать();

	ТЗ = Движ.Выгрузить();

	Для Каждого Эл Из ТЗЗагрузка Цикл

		ПараметрОтбора = Новый Структура("СчетДт,СубконтоДт1",Эл.СчетДт,Эл.СубконтоДт1);

		Массив = ТЗ.НайтиСтроки(ПараметрОтбора);

		Если Массив.Количество()>0 Тогда

			Сообщить("Запись есть - Пропускаем!");

			Продолжить;				

		Иначе

			Сообщить("Записи нет - Добавляем!");

			НоваяСтрока = ТЗ.Добавить();

			ЗаполнитьЗначенияСвойств(НоваяСтрока,Эл);	

		КонецЕсли;			 

	КонецЦикла;

	Движ.Загрузить(ТЗ);

	Движ.Записать();

	Сообщить("Проводки для данного документа созданы успешно!");

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

 //Выбор файла

Режим = РежимДиалогаВыбораФайла.Открытие; 

ДиалогОткрытияФайла = Новый ДиалогВыбораФайла(Режим); 

ДиалогОткрытияФайла.ПолноеИмяФайла = ""; 

Фильтр = "Текст(*.txt)|*.txt"; 

ДиалогОткрытияФайла.Фильтр = Фильтр; 

ДиалогОткрытияФайла.МножественныйВыбор = Ложь; 

ДиалогОткрытияФайла.Заголовок = "Выберите файл для загрузки"; 

Если ДиалогОткрытияФайла.Выбрать() Тогда 

	ПутьКФайлу = ДиалогОткрытияФайла.ПолноеИмяФайла; 

КонецЕсли;	

//Выбор вида удержания пользователем

ВидУдерж=Неопределено;

МассивТипов = Новый Массив; 

МассивТипов.Добавить(Тип("ПланВидовРасчетаСсылка.УдержанияОрганизаций")); 

ОписаниеВозможныхТипов = Новый ОписаниеТипов(МассивТипов); 

Если ВвестиЗначение(ВидУдерж,"Выберите вид удержания", ОписаниеВозможныхТипов) Тогда

	Если Удержания.Количество()>0 тогда

		Предупреждение("Внимание! В таблице уже есть данные, новые данные Добавлены к существующим данным!");

	КонецЕсли;

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

	текдок.Прочитать(ПутьКФайлу);

	Для Ном=1 по текдок.КоличествоСтрок() цикл

		Стр = текдок.ПолучитьСтроку(Ном);

		//Разложим строку в массив данных

		СтрМ=РазложитьСтрокуВМассивПодстрок(стр,"~");

		//Добавляем новую строку

		НовСтр=Удержания.Добавить();

		//Ищем Физика

		Физик = Справочники.ФизическиеЛица.НайтиПоКоду(СтрМ[0]);

		Если СокрЛП(Физик.Наименование) = СокрЛП(СтрМ[1]) тогда                                       

			НовСтр.Физлицо = Физик;

		Иначе 

			Сообщить("В справочнике Физ. Лиц не найден "+СтрМ[1],СтатусСообщения.ОченьВажное);

		КонецЕсли;

		НовСтр.ВидРасчета=ВидУдерж;

		НовСтр.ДатаНачала=РабочаяДата;

		НовСтр.ДатаОкончания=РабочаяДата;

		НовСтр.Показатель1=СтрМ[2];

		НовСтр.Результат=СтрМ[2];

	КонецЦикла;	

КонецЕсли;   

 Режим = РежимДиалогаВыбораФайла.Сохранение; 

ДиалогСохраненияФайла = Новый ДиалогВыбораФайла(Режим); 

ДиалогСохраненияФайла.ПолноеИмяФайла = "Выгрузка_"+Формат(ПериодРегистрации,"ДФ=M_yy"); 

Фильтр = "Текст(*.txt)|*.txt";                 

ДиалогСохраненияФайла.Фильтр = Фильтр; 

ДиалогСохраненияФайла.МножественныйВыбор = Ложь; 

ДиалогСохраненияФайла.Заголовок = "Выберите файл"; 

Если ДиалогСохраненияФайла.Выбрать() Тогда 

	ПутьКФайлу = ДиалогСохраненияФайла.ПолноеИмяФайла; 

// выбрали файл, сохраняем в него данные

// код... 

КонецЕсли;   

 Режим = РежимДиалогаВыбораФайла.Открытие; 

ДиалогОткрытияФайла = Новый ДиалогВыбораФайла(Режим); 

ДиалогОткрытияФайла.ПолноеИмяФайла = ""; 

Фильтр = "Текст(*.txt)|*.txt"; 

ДиалогОткрытияФайла.Фильтр = Фильтр; 

ДиалогОткрытияФайла.МножественныйВыбор = Ложь; 

ДиалогОткрытияФайла.Заголовок = "Выберите файл"; 

Если ДиалогОткрытияФайла.Выбрать() Тогда 

	ВыгружатьВ = ДиалогОткрытияФайла.ПолноеИмяФайла; 

КонецЕсли;   

 Режим = РежимДиалогаВыбораФайла.Сохранение; 

ДиалогСохраненияФайла = Новый ДиалогВыбораФайла(Режим); 

ДиалогСохраненияФайла.ПолноеИмяФайла = "Выгрузка_"+Формат(ПериодРегистрации,"ДФ=M_yy"); 

Фильтр = "Текст(*.txt)|*.txt";                 

ДиалогСохраненияФайла.Фильтр = Фильтр; 

ДиалогСохраненияФайла.МножественныйВыбор = Ложь; 

ДиалогСохраненияФайла.Заголовок = "Выберите файл"; 

Если ДиалогСохраненияФайла.Выбрать() Тогда 

	ПутьКФайлу = ДиалогСохраненияФайла.ПолноеИмяФайла; 

	// выбрали файл, сохраняем в него Проводки

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

	Для Каждого Стр Из Проводки Цикл

		Состояние("Выгружаю строку: "+Строка(Стр.НомерСтроки));

		ТекДок.ДобавитьСтроку(Строка(стр.СчетДт)+"~"+Строка(стр.СчетКт)+"~"+Строка(стр.Физлицо.Код)+"~"+Формат(стр.СуммаВыгр,"ЧГ=0"));

	КонецЦикла;	

КонецЕсли;	

ТекДок.Записать(ПутьКФайлу);   

 Процедура ЗаполнитьНажатие(Элемент)

запрос = СоставитьЗапрос(); //Функция СоставитьЗапрос() возвращает строку запроса

ТаблицаВывода = Новый ТаблицаЗначений;

ТаблицаВывода.Очистить();

ТаблицаВывода = ЗапросКСкуль(CRM_MSSQL_Сервер,CRM_MSSQL_БазаДанных,CRM_MSSQL_Логин,CRM_MSSQL_Пароль,Запрос);



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

ЭлементыФормы.ТабличноеПоле.Значение=ТаблицаВывода;

ЭлементыФормы.ТабличноеПоле.СоздатьКолонки();



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



Функция ЗапросКСкуль(SQLServer,DSN,Login,Password,txtSQL)

Соединение = Новый COMОбъект("ADODB.Connection");

НаборЗаписей = Новый ComObject("ADODB.RecordSet");

Команда = Новый COMОбъект("ADODB.Command");



Соединение.ConnectionString = ("Provider=SQLOLEDB; Data Source = ") + SQLServer +

    (";Initial Catalog=") + DSN + (";UID=") + Login + ("; PWD=") + Password + (";");

Соединение.ConnectionTimeOut = 15;

//Попытка

 Соединение.Open();

// Сообщить("Connect");

//Исключение

// Сообщить("No connect");

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



Команда.ActiveConnection = Соединение;

Команда.CommandText = txtSQL;

//Попытка

 НаборЗаписей = Команда.Execute ();

// Сообщить("Add record");

//Исключение

// Сообщить("No I_nsert");

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



Таблица = Новый ТаблицаЗначений;

//Состояние ("Заполнение временной таблицы...");



Для НомерСтолбца = 0 По НаборЗаписей.Fields.Count-1 Цикл   //Создание и добавление колонок во временную таблицу

 ИмяСтолбца =НаборЗаписей.Fields.Item(НомерСтолбца).Name;

 Таблица.Колонки.Добавить(ИмяСтолбца);

 //Сообщить(ИмяСтолбца);            // Тестовая строка

КонецЦикла;

 

Пока НЕ НаборЗаписей.EOF Цикл        // Заполнение созданной таблицы

 НоваяСтрока =  Таблица.Добавить();

 Для НомерСтолбца = 0 По НаборЗаписей.Fields.Count-1 Цикл

  НоваяСтрока.Установить(НомерСтолбца,НаборЗаписей.Fields(НомерСтолбца).Value);

  //Сообщить ("Test " + ЗаписиSQL.Fields(НомерСтолбца).Value +  ЗаписиSQL.Fields(НомерСтолбца).Name);

 КонецЦикла;

 НаборЗаписей.MoveNext();

КонецЦикла;



//Состояние ("Закрываем соединение с SQL...");

Соединение.Close();

Возврат Таблица;

КонецФункции   

 Функция ЗапросSQL (SQLServer,Login,Password,ТекстSQL)   //Функция выборки данных из SQL сервера и передача во временную таблицу 1С



СтрокаСоединения = ("Provider=SQLOLEDB;Driver={SQL Server}; Deleted=No; Data Source = ") + SQLServer +

    (";UID=") + Login + ("; PWD=") + Password + (";");

              

   Подключение = Новый ComObject("ADODB.Connection");

Подключение.ConnectionString=СтрокаСоединения;

 Попытка

  Подключение.Open(СтрокаСоединения);

  Состояние ("Подключение к серверу SQL...");

 Исключение

  Сообщить(ОписаниеОшибки());

  Возврат Ложь;

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

 

СоединениеSQL = Новый COMObject("ADODB.Command");

СоединениеSQL.ActiveConnection = Подключение;

СоединениеSQL.NamedParameters = True;

СоединениеSQL.CommandText = ТекстSQL;

СоединениеSQL.CommandType = 1;

//СоединениеSQL.Prepared = Истина;



Param1 = СоединениеSQL.CreateParameter("n",3,1,1,1);

СоединениеSQL.Parameters.Append(Param1);



Param2 = СоединениеSQL.CreateParameter("ДатаПриходаС",200,1,8,Формат(НачалоПериода,"ДФ=ггггММдд"));//Формат(НачалоПериода,"ДФ=ггггММдд"));

СоединениеSQL.Parameters.Append(Param2);



Param3 = СоединениеSQL.CreateParameter("ДатаПриходаПо",200,1,8,Формат(КонецПериода,"ДФ=ггггММдд"));

СоединениеSQL.Parameters.Append(Param3);

   

СоединениеSQL.Parameters.Refresh();



Состояние ("Выполнение запроса SQL...");

ЗаписиSQL = Новый ComObject("ADODB.RecordSet");



ЗаписиSQL = СоединениеSQL.Execute();



 

Таблица = Новый ТаблицаЗначений;

Состояние ("Заполнение временной таблицы...");

Для НомерСтолбца = 0 По ЗаписиSQL.Fields.Count-1 Цикл //Создание и добавление колонок во временную таблицу

 ИмяСтолбца =ЗаписиSQL.Fields.Item(НомерСтолбца).Name;

 Таблица.Колонки.Добавить(ИмяСтолбца);

 Сообщить(ИмяСтолбца);

КонецЦикла;





Пока ЗаписиSQL.EOF = 0 Цикл // Заполнение созданной таблицы

 

 НоваяСтрока =  Таблица.Добавить();

 Для НомерСтолбца = 0 По ЗаписиSQL.Fields.Count-1 Цикл

  НоваяСтрока.Установить(НомерСтолбца,ЗаписиSQL.Fields(НомерСтолбца).Value);

  Сообщить ("Test " + ЗаписиSQL.Fields(ИмяСтолбца).Value + ИмяСтолбца);

 КонецЦикла;

       

 ЗаписиSQL.MoveNext();

 

КонецЦикла;



Состояние ("Закрываем соединение с SQL...");

   ЗаписиSQL.Close();

Подключение.Close();



Возврат Таблица;   // Возврат таблицы значений запроса SQL



КонецФункции   

 ЮзерИД=ПользователиИнформационнойБазы.ТекущийПользователь().УникальныйИдентификатор;

	КаталогЗаметок = "С:\note\";

	КаталогНаДиске = Новый Файл(КаталогЗаметок);

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

		 СоздатьКаталог(КаталогЗаметок);

	КонецЕсли;

	ТекстЗаметки.Записать(КаталогЗаметок+строка(ЮзерИД)+".txt");    

 

REM Начало

"С:\1С\Bin\1cv7.exe" CONFIG /D "С:\1С\Data\Base_01\" /N"Arc" /P"Arhivator" /M /@ "C:\BackUp\JobList\Job_01.txt"

REM Это запуск пакетного задания в конфигураторе

"C:\Program Files\WinRAR\Rar.exe" u -r -y -ep1 -ag["YYYY.MM.DD"] -m5 E:\Archive_1C\Rar\Backup_1C.rar "E:\BackUp_1C\" >>E:\BackUp\Log\LogArhive.log

REM УпаковкаWinRARом, добавление даты архивирования, если база одна, то можно и не упаковывать

"C:\Program Files\Ahead\Nero\NeroCmd.exe" --no_user_interaction --write --real --iso Archive_1C --drivename M --force_erase_cdrw --dvd --dvd_high_compatibility --close_session --verify E:\Full_Archive_1C\*.* >H:\BackUp\Log\write.log

REM Запись архива в NERO.cmd на DVD

REM Все...

   

 функция сзПолучитьСписокБаз()

    попытка

        олеСкрипт = новый COMОбъект("MSScriptControl.ScriptControl");

        олеСкрипт.Language = "VBScript";

        стрКод =

        "function strGetListBase()

        |  const RootKey = &H80000001

        |  set Reg = GetObject(""winmgmts:{impersonationLevel=impersonate}!\\."" &_

        |                      ""\root\default:StdRegProv"")

        |  PathKey = ""Software\1C\1Cv7\7.7\Titles""

        |  Reg.EnumValues RootKey, PathKey, Arr

        |  Answer = ""{""""#"""",4772b3b4-f4a3-49c0-a1a5-8cb5961511a3,"" & chr(10)

        |  Answer = Answer & ""{3,1e512aab-1b41-4ef6-9375-f0137be9dd91,0,0,"" & chr(10)

        |  Answer = Answer & ""{"" & (UBound(Arr) + 1) & "","" & chr(10)

        |  for x = LBound(Arr) to UBound(Arr)

        |    call Reg.GetStringValue(RootKey, PathKey, Arr(x), Value)

        |    Answer = Answer & ""{1e512aab-1b41-4ef6-9375-f0137be9dd91,"" & chr(10) &_

        |             ""{"""""" & replace(Value, """""""", """""""""""") & """""",0,"" &_

        |             chr(10) & ""{""""S"""","""""" & Arr(x)& """"""},"" &_

        |             chr(10) & ""{3,0,"" & chr(10) & ""{0},"""""""",-1,-1,0,0}"" &_

        |             chr(10) & ""}"" & chr(10) & ""}""

        |    if x <> UBound(Arr) then Answer = Answer & "",""

        |    Answer = Answer & chr(10)

        |  next

        |  Answer = Answer & ""},"" & chr(10) & ""{""""Pattern""""}"" & chr(10) &_

        |           ""}"" & chr(10) & ""}""

        |  strGetListBase = Answer

        |end function";

        олеСкрипт.AddCode(стрКод);

        стрОтвет = олеСкрипт.Run("strGetListBase");

        Ответ = ЗначениеИзСтрокиВнутр(стрОтвет);

        Ответ.СортироватьПоПредставлению();

    исключение

        Ответ = новый СписокЗначений;

        Ответ.Добавить("Базы 1С:Передприятия 7.7 не обнаруженны!");

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

    возврат Ответ;

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

 

Функция ПолучитьСписокБаз1()

    Перем Value,arrValues;

    Scr = CreateObject("MSScriptControl.ScriptControl");

    Scr.Language = "vbscript";

    Scr.Timeout=-1;

    HKEY_CURRENT_USER = 2147483649;

    strKeyPath = "Software\1C\1Cv7\7.7\Titles";

    Locator=СоздатьОбъект("WbemScripting.SWbemLocator");

    ServiceDef=Locator.ConnectServer(".","root\default");

    oReg = ServiceDef.Get("StdRegProv");

    Dict=СоздатьОбъект("Scripting.Dictionary");

    Scr.AddObject("Dict",Dict);

    Scr.AddObject("oReg",oReg);

    Scr.ExecuteStatement("dim arrValues,Value:");

    Scr.ExecuteStatement("oReg.EnumValues "+HKEY_CURRENT_USER+","""+strKeyPath+""",arrValues:");

    Scr.ExecuteStatement("for i=lbound(arrValues) to ubound(arrValues):Dict.add ""pj"" & i, arrValues(i):next");

    ТЗБаз=СоздатьОбъект("ТаблицаЗначений");

    ТЗБаз.НоваяКолонка("Путь");

    ТЗБаз.НоваяКолонка("Описание");

    Для к=0 По Dict.count Цикл

        Д=Dict.Item("pj"+к);

        Scr.ExecuteStatement("oReg.GetStringValue "+HKEY_CURRENT_USER+","""+strKeyPath+""","""+Д+""",Value");

        ТЗБаз.НоваяСтрока();

        ТЗБаз.Путь = Д;

        ТЗБаз.Описание = Scr.eval("Value");

    КонецЦикла;

	//Посмотрим что в ТЗ

	//ТЗБаз.ВыбратьСтроку();

    Возврат ТЗБаз;

КонецФункции



Процедура ПолучитьСписокБаз2()

     Попытка

          scrptCtrl=createobject("MSScriptControl.ScriptControl");

          scrptCtrl.language="vbscript";

          scrptCtrl.addcode("Function Get1CV77Titles()

          |const HKEY_CURRENT_USER = &H80000001

          |Set oReg=GetObject(""winmgmts:{impersonationLevel=impersonate}!\\."" &_

          |""\root\default:StdRegProv"")

          |strKeyPath = ""Software\1C\1Cv7\7.7\Titles""

          |oReg.EnumValues HKEY_CURRENT_USER, strKeyPath, arrValues

          |strInfo=vbNullString

          |For i = LBound(arrValues) To UBound(arrValues)

          | call oReg.GetStringValue(HKEY_CURRENT_USER,strKeyPath,arrValues(i),Value)

          | strInfo=strInfo & arrValues(i) & ""="" & Value & vbCrLF

          |Next

          |Get1CV77Titles = strInfo 

          |End Function");

          Сообщить(scrptCtrl.run("Get1CV77Titles"));

     Исключение

          Сообщить(ОписаниеОшибки()); 

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

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

<Сообщил Gloom>

                  

Процедура ПолучитьСписокБаз3()

     Ключ="HKEY_CURRENT_USER\Software\1C\1Cv7\7.7\Titles";

     ИмяКаталога=СокрЛП(КаталогПользователя());

     ИмяБазы=СокрЛП(каталогИБ());

     Если прав(ИмяКаталога,1)<>"\" Тогда ИмяКаталога=ИмяКаталога+"\" КонецЕсли;

     Если прав(ИмяБазы,1)<>"\" Тогда ИмяБазы=ИмяБазы+"\" КонецЕсли;

     ИмяБазыСтр=Симв(34)+СтрЗаменить(ИмяБазы,"\","\\")+Симв(34);

     ИмяФайла="USER.TXT";

     Команда="Regedit /ea "+Симв(34)+ИмяКаталога+ИмяФайла+Симв(34)+" "+Симв(34)+Ключ+Симв(34);

     КомандаСистемы(Команда);

     Текст=СоздатьОбъект("Текст");

     Текст.КодоваяСтраница(0);

     Текст.Открыть(ИмяКаталога+ИмяФайла);

     Текст.Показать();

     Стр=""; Нашли=0;

     Для сч=1 по Текст.КоличествоСтрок() Цикл

          Стр=СокрЛП(Текст.ПолучитьСтроку(сч));

          Сообщить(Стр);

          Если Найти(стр,ИмяБазыСтр)<>0 Тогда

               Нашли=1;

               прервать;

          КонецЕсли;

     КонецЦикла;

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

 Set Sh = CreateObject("WScript.Shell")

'Переиндексирую базу

Set oExec1 = Sh.Exec("""C:\Program Files\1Cv77\BIN\1cv7.exe"" CONFIG /d""C:\bases2005"" /nПрограммист /pXXXXX /@c:\bases2005\ExtForms\sys\Chk.txt")



'Дожидаюсь, пока она не отработает

Do While oExec1.Status = 0

    WScript.Sleep 100

Loop



Set oExec1 = Nothing

WScript.Sleep 10000