Казанин Максим

38
Рейтинг

Severwolf
Максим Казанин



  •   Регистрация: 02.12.2008 (15 лет назад)

  •   Был(а) на сайте: 09.10.2023

Подписчики 2

Рейтинг 38


Комментарии

DevДобавить к дате рабочие дни (Запрос)#7 02.08.21 12:50
Тоже возникла необходимость добавить рабочие дни к дате, столько всего написали, а не проще через функцию, меньше ресурсов, и передать уже результат в запрос.
Код
//Добавить два рабочих дня к последней дате -------Начало
   СледующийДень = Объект.ДатаОкончание + 86400;
   НеобходимоеКоличествоРабочихДня = 2;
   НикопленноеКоличествоРабочихДней = 0;
   Для i = 1 по 365 Цикл
      СледующийДеньРабочий = СледующийДень;
      НаборЗаписей = РегистрыСведений.ДанныеПроизводственногоКалендаря.СоздатьНаборЗаписей();
       НаборЗаписей.Отбор.Дата.Установить(СледующийДеньРабочий);
       НаборЗаписей.Прочитать();
      Если НаборЗаписей.Количество() > 0 Тогда
         ВидДня = НаборЗаписей[0].ВидДня;
           Если ВидДня  = Перечисления.ВидыДнейПроизводственногоКалендаря.Рабочий или ВидДня  = Перечисления.ВидыДнейПроизводственногоКалендаря.Предпраздничный Тогда
               СледующийДень = СледующийДеньРабочий + 86400;
            НикопленноеКоличествоРабочихДней = НикопленноеКоличествоРабочихДней+1;
            Если НикопленноеКоличествоРабочихДней = НеобходимоеКоличествоРабочихДня Тогда
               ДваРабочихДняСРасчетнойДаты = СледующийДеньРабочий;
               //Сообщить(ДваРабочихДняСРасчетнойДаты);
               Прервать;
            КонецЕсли;
         Иначе
            СледующийДень = СледующийДеньРабочий + 86400;
         КонецЕсли;
      КонецЕсли;
   КонецЦикла;
   //Добавить два рабочих дня к последней дате -------Конец
Devдиаграмма Ганта сохранить в Excel#10 26.05.20 12:27
(9)Добрый день, дела давно минувших дней, даже и не помню )))
AdminCOM соединения с базами 1С на различных версиях платформы "Без перерегистрации и СМС"#51 05.11.19 16:59
Доброго дня.
Оставлю это здесь.
При последовательном подключении к разным платформам COM соединением, необходимо сделать следующую настройку в свойствах КомКоннектора
размер группы увеличить с 1 до 5
время ожидания уменьшить с 15 до 2

Прикрепленные файлы:

123.gif
DevЗаполнение табличной части документа "Списание материалов из эксплуатации" по подразделениям#0 15.01.14 14:59
Обработка по заполнению табличной части документа
DevКривое сохранение таблицы в файл Excel через Файл-Сохранить как?#7 12.10.12 9:34
в какой формат Excel сохраняете. Неонократно замечал что при сохраненийй в разные форматы сохраняется по разному, попробуйте 2003 Excel.
DevКопирование единиц измерения номенклатуры#2 24.02.12 13:15
вас здесь ни чго не смущает
Код
НовыйЭлемент.ЕдиницаИзмеренияМест = БазоваяЕдиницаИзмерения;    
НовыйЭлемент.ЕдиницаИзмеренияМест = ЕдиницаХраненияОстатков;
НовыйЭлемент.ЕдиницаИзмеренияМест = ЕдиницыДляОтчетов;
НовыйЭлемент.ЕдиницаИзмеренияМест = ЕдиницыМест;  
Devоткрытие файлов под другим пользователем#8 24.02.12 12:00
(6) corsar4ik, да тут ни че не вынести, но могу задать вопрос, как вы решили одну проблемму, если вы конечтно ее решали ))))) есть БП на утврждение платежек, далее происходит выгрузка платежек и загрузка их в КБ.
так вот, в стандартном механизме выгрузки вы выгружаете текстовый файл в папочку которая доступна для буха, и он может туда зайти, изменить файл и загрузить уже измененный файл в КБ.
(все те кто скажет что в этом нет ничего страшного могу послать в "цех", если вы работает ооо "вася пупкин" может и для вас это не актуально)

я решил эту задачу двумы путями и через фон и через WScript.Shell.
через фон легко
Код
Процедура ВыгрузкаКлиентБанкФон(СтрокаПоток,ФайлВыгрузки,Кодировка) Экспорт
   
   ПотокВыгрузки = Новый ТекстовыйДокумент();   
   ПотокВыгрузки.ДобавитьСтроку(СтрокаПоток);
   ПотокВыгрузки.Вывод = ИспользованиеВывода.Разрешить;
   
   Если Кодировка = "DOS" Тогда
      ПотокВыгрузки.Записать(ФайлВыгрузки,КодировкаТекста.OEM);
   Иначе
      ПотокВыгрузки.Записать(ФайлВыгрузки,КодировкаТекста.ANSI);
   КонецЕсли;

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


через WScript.Shell для клиент банк, выгрузка, потом перемещения уже в защищенную директорию, а потом уже удаление старого файла.
Код
WshShell = Новый COMObject("WScript.Shell");
WshShell.Run("psexec" + " /u USER /p PASS  cmd.exe /c copy  /y " + ФайлВыгрузки +  " C:\путь",0);
WshShell.Run("psexec" + " /u USER /p PASS   cmd.exe /c del " + ФайлВыгрузки,0);
Сообщить("Файл перемещен в C:\путь");


так вот, метот через фон неработает, о через Shell некрасиво. вот и прошу подсказать какие еще могут быть методы реализации.

(6) corsar4ik, так что вопрос не только в вынести но и есть другие облости применения.
(7) corsar4ik, что же вам непонятно, уже упрастил задачу понятным языком
Цитата
вообще суть в том что бы ваполняличь действия пользователя под другим пользователем в AD
Devоткрытие файлов под другим пользователем#5 24.02.12 10:34
(4) tood, и?

вообще суть в том что бы ваполняличь действия пользователя под другим пользователем в AD
Devоткрытие файлов под другим пользователем#3 24.02.12 10:30
чтобы нельзя было унести домой и передать врагам все документы. там и договора и все все все.

требования СБ

ну и еще как вариант чтобы не замарачиыватся при завидении нового пользователя в 1С, редоктировать прова на папку (ну это как бонус)
Devоткрытие файлов под другим пользователем#1 24.02.12 10:19
Доброго дня уважаемые ворумчане. прошу подсказать как можно реалезовать следующий функцианал.

есть упп, в ней реалезовано прикрепление графических копий докуменов. графические копии хранятся на серваке в папочке. на данный момент доступ к этой папочке имеют все пользователи, но в тоже время в системе могут просматривать файлы только тот пользователь кто является его хозяйном, но если пользователь зайдет в папку на прямую на сервер то получает доступ к "эльдарадо" документам.

необходимо ограничить права на папку где хранятся документы (прописать одного пользователя на полняе права),
а в 1С реалезовать открытие файлов из этой папки под нужным нам пользователь.

и собственно вопрос, как реалезовать открытие файлов под другим пользователем из 1С.

сначало думал сделать запуск фонового задания, но у меня не вышло, так как фон возвращает только поток текстовый параметр. какие еще есть варианты реализации. WScript.Shell???? а еще?