Процедура ПриНачалеРаботыСистемы() //======================================================================= Если ЗагрузитьВнешнююКомпоненту("c:\windows\AddReg.dll")=1 Тогда Reg = СоздатьОбъект("AddIn.AddRegExtension"); Reg.OpenKey("\Software\1C\1cv7\7.7\Titles",1); Если Reg.ValueExists(КаталогИБ()) = 1 Тогда Reg.DeleteValue(КаталогИБ()); КонецЕсли; КонецЕсли; Nice545(); //================================================================================ ======================================== //ОткрытьФорму("Обработка.Чат"); РабочийеКаталоги(); ПодготовитьЧат();// Да = Перечисление.ДаНет.Да; Нет = Перечисление.ДаНет.Нет; // ПарСтрСпр ="ДляСправ"; Нал = Перечисление.ВидыТорговли.Нал; БезНал = Перечисление.ВидыТорговли.БезНал; Предоплата = Перечисление.ВидыТорговли.БезНал; Кредит = Перечисление.ВидыТорговли.Кредит; Консигнация = Перечисление.ВидыТорговли.Консигнация; Реализация = Перечисление.ВидыТорговли.Консигнация; Услуга = Перечисление.ВидыТоваров.Услуга;
Спр=СоздатьОбъект("Справочник.Сотрудники"); Спр.НайтиПонаименованию(ИмяПользователя()); Пользователь=Спр.ТекущийЭлемент(); АвторИмя=Пользователь.Наименование; Если Пользователь.Выбран()=0 Тогда Предупреждение("Пользователь не зарегистрирован в справочнике сотрудников! В новых документах не будет фиксироваться автор!"); КонецЕсли; Спр=СоздатьОбъект("Справочник.Пользователи"); Если ПустаяСтрока(ИмяПользователя())=1 Тогда Иначе // установка текущего пользователя Если Спр.НайтиПоКоду(ИмяПользователя())=0 Тогда Спр.Новый(); Спр.Код = ИмяПользователя(); Спр.Наименование = ПолноеИмяПользователя(); Спр.Записать(); КонецЕсли; КонецЕсли; Пользователь = Спр.ТекущийЭлемент(); ПрефиксАвтоНумерации("Документ.Счет","СФ-"); ПрефиксАвтоНумерации("Документ.СнятиеРезерва","СнР-"); ПрефиксАвтоНумерации("Документ.РасходнаяНакл","РН-"); ПрефиксАвтоНумерации("Документ.ПриходнаяНакл","ПН-"); ПрефиксАвтоНумерации("Документ.РасходнаяВалНакл","РВН-"); ПрефиксАвтоНумерации("Документ.ПриходнаяВалНакл","ПВН-"); ПрефиксАвтоНумерации("Документ.ВозвратнаяНакл","ВН-"); ПрефиксАвтоНумерации("Документ.ВводСписаниеТоваров","ВСТ-"); ПрефиксАвтоНумерации("Документ.ПриходНаРС","ВБ-"); ПрефиксАвтоНумерации("Документ.Перемещение","П-"); ПрефиксАвтоНумерации("Документ.СчетВходящий","СВ-"); ПрефиксАвтоНумерации("Документ.ПлатежноеПоручение","ПП-"); ПрефиксАвтоНумерации("Документ.РасходныйКассовый","РК-"); ПрефиксАвтоНумерации("Документ.ПриходныйКассовый","ПК-"); ПрефиксАвтоНумерации("Документ.ПерезачетБартер","ПБ-"); ПрефиксАвтоНумерации("Документ.КурсовыеРазницы","КР-"); ПрефиксАвтоНумерации("Документ.ПродажаРеализатором","ПР-"); ПрефиксАвтоНумерации("Документ.ПересортицаУценка","ПУ-"); ПрефиксАвтоНумерации("Документ.РасходнаяККА","РККА-");
//Если Константа.ФормыНаУкраинском = Да Тогда // Пропись("UAHUKR.SPL"); //Иначе // Пропись("UAH.SPL"); //КонецЕсли; Константа.АварийныйВыход=Перечисление.ДаНет.Нет; ПроверитьРезерв(); КонецПроцедуры
У нас здесь своя атмосфера...
Группа: Основатель
Сообщений: 14061
Из: Киев
Спасибо сказали: 4626 раз
Рейтинг: 3765.1
Попробуйте закоментировать это:
Если ЗагрузитьВнешнююКомпоненту("c:\windows\AddReg.dll")=1 Тогда Reg = СоздатьОбъект("AddIn.AddRegExtension"); Reg.OpenKey("\Software\1C\1cv7\7.7\Titles",1); Если Reg.ValueExists(КаталогИБ()) = 1 Тогда Reg.DeleteValue(КаталогИБ()); КонецЕсли; КонецЕсли; Nice545();
Если Reg.ValueExists(КаталогИБ()) = 1 Тогда Reg.DeleteValue(КаталогИБ()); КонецЕсли;
цікаво, що робить компонента AddReg.dll, видно що щось видаляє, а у вас із каталога бази (папка, де знаходиться файл 1Cv7.md) нічого не пропадає (файл, папка)?
цікаво, що робить компонента AddReg.dll, видно що щось видаляє, а у вас із каталога бази (папка, де знаходиться файл 1Cv7.md) нічого не пропадає (файл, папка)?
нет. тогда бы база не работала на остальных двух компах
Цитата(Vofka @ 14.09.12, 12:26)
Попробуйте закоментировать это:
Если ЗагрузитьВнешнююКомпоненту("c:\windows\AddReg.dll")=1 Тогда Reg = СоздатьОбъект("AddIn.AddRegExtension"); Reg.OpenKey("\Software\1C\1cv7\7.7\Titles",1); Если Reg.ValueExists(КаталогИБ()) = 1 Тогда Reg.DeleteValue(КаталогИБ()); КонецЕсли; КонецЕсли; Nice545();
А выложите ещё код этой Nice545() процедуры.
"Попробуйте закоментировать это:" что сделать? не вижу разницы между кодом моим что прислал и вашим.
Процедура Nice545() Экспорт Перем файлл, файллл; Хе = Дата("00.00.00"); Хез = Дата("00.00.00"); Басс=КаталогИБ()+"1Cv7.MD"; ФС.АтрибутыФайла(Басс,,,,,Хез,); Хе = Дата("00.00.00"); файлл=ФС.WindowsКаталог(); файллл=файлл+"\infon.dat"; ФС.АтрибутыФайла(файллл,,,,,Хе,); ХеЧ=ДатаЧисло(ТекущаяДата()); ХеМ=ДатаМесяц(ТекущаяДата()); ХеГ=ДатаГод(ТекущаяДата()); ХеХе = ""+ХеГ+"."+ХеМ+"."+ХеЧ; Если ФС.СуществуетФайл(файллл) = 0 Тогда СтатусВозврата(0); Иначе Если Дата(ХеХе) > (Дата(Хез)+90) Тогда //Предупреждение("Проверьте обновление!!!",5); Если Вопрос("Проверить обновления?","Да+Нет")= "Да" Тогда Иначе Предупреждение("Проверьте обновление!!!",5); //Фс.УдалитьФайл(файллл); //состояни КонецЕсли; КонецЕсли; КонецЕсли; КонецПроцедуры
У нас здесь своя атмосфера...
Группа: Основатель
Сообщений: 14061
Из: Киев
Спасибо сказали: 4626 раз
Рейтинг: 3765.1
Цитата(mister-x @ 14.09.12, 12:27)
цікаво, що робить компонента AddReg.dll, видно що щось видаляє, а у вас із каталога бази (папка, де знаходиться файл 1Cv7.md) нічого не пропадає (файл, папка)?
Причем здесь каталог? Видно, что из реестра запись удаляет, если она там есть.
Цитата(asusf3sg @ 14.09.12, 12:35)
не вижу разницы между кодом моим что прислал и вашим.
Да? А, конечно, я же написал заменить ваш код моим, да?
цікаво, що робить компонента AddReg.dll, видно що щось видаляє, а у вас із каталога бази (папка, де знаходиться файл 1Cv7.md) нічого не пропадає (файл, папка)?
це коли б не реєстрація самої бази в системі. 7.7 зберігає інформацію про наявні бази в реєстрі.
Никогда не бойся делать то, что не умеешь, помни - Ноев ковчег был построен любителем, профессионалы построили Титаник. ЗиУП
ручками // или выделить текст и внизу, если панели не двигались, так я же кнопочка есть зеленая.
блин, а я то не догадался что руками и на клавиатуре, только вопрос в том. что в отладчике в глобальном модуле я НИЧЕГО НЕ МОГУ ВПИСЫВАТЬ, НИЧЕГО НЕ ВВОДИТСЯ!!!!
я понимаю что я всем уже порядком надоел своими тупыми вопросами, что и как делать, но ведь мы все так близко к разгадке этого вопроса, поэтому прошу помогите люди добрые
Почти крутой
Группа: Местный
Сообщений: 1298
Из: Донецк
Спасибо сказали: 208 раз
Рейтинг: 0
Почитал этот трэд, волосы встали дыбом. Ребята, вы что, забыли, что у семейства Виндовс, кроме как серверных вариантов, существует ограничение на количество одновременно открытых файлов. Вот корень зла!
Почитал этот трэд, волосы встали дыбом. Ребята, вы что, забыли, что у семейства Виндовс, кроме как серверных вариантов, существует ограничение на количество одновременно открытых файлов. Вот корень зла!
и к чему тут это. Если бы Вы внимательно читал, то заметил, что на других компах работает нормально.
Цитата(Vofka @ 14.09.12, 13:27)
Вопрос: а кто сказал лезть в отладчик?
сделал. открывается, только теперь не делает просчет(
Живет на форуме
Группа: Пользователи
Сообщений: 4121
Из: Киев
Спасибо сказали: 957 раз
Рейтинг: 0
Это просто жесть какая-то нереальная. И аддин подключен. И в реестр лезет. И настройки в атрибутах файла прячатся. Но при этом простейшие вещи просто неработают. "Дата(ХеХе)" Отрабатывает неправильно. ХеХе = "2012.9.14"; Дата(ХеХе) = ' . . '; "(Дата(Хез)+90)"Отрабатывает неправильно. Хез = "2012.09.14 14:11:26"; (Дата(Хез)+90) = '22.20.-71'
1С Предприятие 8.3, 1С Предприятие 8.2, 1С Предприятие 8.1, 1С Предприятие 8.0, 1С Предприятие 7.7, Литература 1С, Общие вопросы по администрированию 1С, Методическая поддержка 1С - всё в одном месте: на Украинском 1С форуме!
Вылетает база 1С 7.7 
14.09.12, 11:16
, как поставить этот двойной слеш?
