Перейти из форума на сайт.

НовостиФайловые архивы
ПоискАктивные темыТоп лист
ПравилаКто в on-line?
Вход Забыли пароль? Первый раз на этом сайте? Регистрация
Компьютерный форум Ru.Board » Компьютеры » Прикладное программирование » 1C Программирование и поддержка

Модерирует : ShIvADeSt

ShIvADeSt (06-02-2008 02:31): продолжаем тут http://forum.ru-board.com/topic.cgi?forum=33&topic=9226  Версия для печати • ПодписатьсяДобавить в закладки
Страницы: 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 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73 74 75 76 77 78 79 80 81 82 83 84 85 86 87 88 89 90 91 92 93 94 95 96 97 98 99 100 101 102 103 104

   

vjick

Advanced Member
Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
BuxIvanov
Возможно Субконто1...3 - имеют "неопределенный" тип, его надо назначить  перед присвоением
см. как сделано Процедура ПриВыбореСчета()

Всего записей: 1809 | Зарегистр. 29-01-2002 | Отправлено: 08:58 15-01-2007 | Исправлено: vjick, 08:59 15-01-2007
FOLD

Advanced Member
Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
leputain
Единицы = Справочники.ЕдиницыИзмерения;
  Выборка = Справочники.Номенклатура.Выбрать();
   Пока  Выборка.Следующий()Цикл
   Если Выборка.ЭтоГруппа = Ложь Тогда
   Если НЕ ЗначениеНеЗаполнено(Выборка.Артикул) Тогда
    Объект  = Выборка.ПолучитьОбъект();
    Объект.Артикул = СтрЗаменить(Выборка.Артикул," ","");  
    Объект.Записать();
   КонецЕсли;
Если  ЗначениеНеЗаполнено(Выборка.ЕдиницаХраненияОстатков) Тогда
  ЕдинХО = Единицы.СоздатьЭлемент();
  ЕдинХО.Владелец = Выборка.Ссылка;
  ЕдинХО.ЕдиницаПоКлассификатору =Выборка.БазоваяЕдиницаИзмерения ;
  ЕдинХО.Коэффициент =1;
  ЕдинХО.Наименование = ЕдинХО.ЕдиницаПоКлассификатору.Наименование;
  ЕдинХО.Записать();
 Объект  = Выборка.ПолучитьОбъект();
 Объект.ЕдиницаХраненияОстатков = ЕдинХО.Ссылка;
 Объект.ЕдиницаДляОтчетов =  ЕдинХО.Ссылка;  
 Объект.Записать();
КонецЕсли;
КонецЕсли;
КонецЦикла;
 
 
Добавлено:
tar3
Самому не приходилось встречаться, но на форумах видел сообщения с подобной проблемой - ошибка при создании объекта бухитоги.Говорят вирус под 1с есть, и лечение соответсятвующее -антивирус
 
Добавлено:
BuxIvanov  
vjick совершенно прав
 

Всего записей: 1238 | Зарегистр. 26-01-2004 | Отправлено: 09:18 15-01-2007 | Исправлено: FOLD, 09:19 15-01-2007
tswanea



Full Member
Редактировать | Профиль | Сообщение | ICQ | Цитировать | Сообщить модератору
а можно как нибудь в списке справочника  одну группу поставить на видимость = 0 ?
есть одна группа котоую не должны некоторые юзвери ее видеть

----------
... И развернутся врата ада, и силы тьмы обрушатся на землю ...

Всего записей: 436 | Зарегистр. 03-08-2004 | Отправлено: 13:28 15-01-2007
bxz



Junior Member
Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
tswanea
в 7.7 стандартными средствами именно скрыть папку нельзя, но можно запретить смотреть что в ней
Код:
Процедура ПриОткрытии()
    ИерархическийСписок(1,0);//нужно что бы нельзя было отключить иерархию
    ВыборГруппы(1);//Это чтоб в константах можно было выбрать что запрещать :)
КонецПроцедуры
Процедура ПриВыбореРодителя(Элемент)
    Если ПринадлежитГруппе(Константа.ЗапретнаяГруппа) = 1 Тогда
        СтатусВозврата(0);
    КонецЕсли;
КонецПроцедуры
приведенный кусок кода запрещает доступ всем пользователям да еще и использует константу, в которой необходимо выбрать запрещающую группу, что конечно тоже не фонтан, но зато наглядно демонстрирует как это будет работать
по идее
Код:
ПринадлежитГруппе(Константа.ЗапретнаяГруппа)
надо заменить на нечто вроде
Код:
глДостаточноПрав(Элемент)
и там уже расписать кого куда посылать не используя констант ...
в 8ке все немного иначе: можно сделать и так чтоб не видно было, допустим нужно, что бы все пользователи с правами Бухгалтер не видели некоторых складов у которых реквизит булевого типа БухНеУвидит равен истине, находим в ролях Бухгалтера, далее лезем в права на объект Справочник.Склады и в Чтении добавляем оганичение доступа к данным для <Прочие поля>
Код:
Склады ГДЕ (НЕ Склады.БухНеУвидит)
там же можно использовать Параметры Сеанса как параметры запроса, в общем то же есть где разгуляться фантазии ))

Всего записей: 151 | Зарегистр. 21-11-2003 | Отправлено: 20:54 15-01-2007 | Исправлено: bxz, 23:28 15-01-2007
tar3

Junior Member
Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
FOLD спасибо за наводку, вижу только тишину по данной ошибке, попробую залечить, ну а если не получится, потрачу время и переставлю винду, столкнулся с таким впервые, хотя проблематично под 1С вирусы писать, они были созданы только недавно и только в *.ert, скорее винда протерта.

Всего записей: 34 | Зарегистр. 14-06-2006 | Отправлено: 21:58 15-01-2007
FOLD

Advanced Member
Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
tar3

Цитата:
столкнулся с таким впервые, хотя проблематично под 1С вирусы писать, они были созданы только недавно и только в *.ert, скорее винда протерта.

Мне самому не верится.Ветка была на мисте, поищи..,
Обсуждение небольшое было, с удачным исходом..
Может и не в среде 1с вирус..не помню.Ошибка была примерно "Неудачная попытка создания объекта "БухгалтерскиеИтоги" Вылечили nod32.как говорится за что купил.

Всего записей: 1238 | Зарегистр. 26-01-2004 | Отправлено: 23:00 15-01-2007
boromirok



Junior Member
Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
Народ, Есть сервер:
Dual-Core Intel Xeon 5030, 2.67ГГц, LGA771, 2x2048k, FSB667МГц    2 шт
400 Gb 7200rpm 16Mb cache Seagate 7200.10 ST3400620AS NCQ      1  шт
73 Gb 80pin 10000rpm Ultra320 Fujitsu MAW3073NC                          2 шт в raid-массиве
0512Mb PC2-5300 667MHz DDR2 ECC DIMM Kingston Fully Buffered    2 шт
 
На нем стоит windows 2003 R2 64, & sql 2005 64, с поднятым терминальным сервером,  
Есть сеть 10 компов (2 магазина, офис и склады), выделенка с оплатой за траффик 1,5 руб/Мб, есть база 1с 7.7 ТИС на DBF в среднем 200 документов в день, весит 200 мег, пока лежит на рабочей станции, есть 3 удаленных магазина, в каждом 1 компу - не автоматизированных пока, но между собой соединены сеткой, т.к. находятся близко друг от друга. Выделенка в этой сетке такая-же. От этой сетки до сервака и десяти компов локалки нет.  Магазины торгуют со склада одним и тем-же товаром, т.е. выгружать базу по УРБД даже раз в полчаса не подойдет - надо видеть реальные остатки на текущий момент. Т.е. надо удаленно из магазинов работать в 1С.
Вопрос: есть ли теоретическая возможность, а лучше опыт по скручиванию  windows 2003 R2 64, & sql 2005 64 & 1c v7.7 в терминальном режиме.  
Если есть умные рекомендации что и как лучше сделать на имеющемся железе и софте силами 2-х человек (более-менее разбирающихся в 1с, администрировании W2003 и сетях) за 1-2 недели - буду признателен.
 

Всего записей: 38 | Зарегистр. 20-10-2006 | Отправлено: 23:10 15-01-2007
pavlika2



Advanced Member
Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
boromirok
Связка: Windows 2003 Server + Сервер терминалов + 1C Предприятие 7.7:
http://www.mista.ru/articles1c/terminal.htm

Всего записей: 626 | Зарегистр. 08-10-2004 | Отправлено: 23:20 15-01-2007
bxz



Junior Member
Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
boromirok
насколько я помню 7.7 не работет пока с sql 2005 хотя я могу и ошибаться и они исправили это в 770027

Всего записей: 151 | Зарегистр. 21-11-2003 | Отправлено: 23:31 15-01-2007
boromirok



Junior Member
Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
pavlika2
Ссылку уже видел, интересует работа именно с 64-х разрядной виндой - пойдет не пойдет, какого цвета грабли, где на них наступить.
bxz
проблема решается патчем dll-ки, потом вроде все работает, на 32-х разрядных sql работало - для пробы перепровел все доки за год - получилось за 2 дня на моей рабочей станции локально, правда юзер был один.  
Может есть кто поднимал все это одновременно на рабочих конфигурациях?
И еще вопрос в чем минус одновременного использования терминального и sql серверов на одном серваке - все что можно пролез - все говорят лучше не делать а конкретно какие отрицательные моменты - никто не говорит.

Всего записей: 38 | Зарегистр. 20-10-2006 | Отправлено: 23:49 15-01-2007
levnev



Junior Member
Редактировать | Профиль | Сообщение | ICQ | Цитировать | Сообщить модератору
boromirok
Под x64 если и пойдет, то только как 32-разрадное, не морочь себе голову! Если только поставишь MSSQL2005 x64 - тогда по крайней мере хоть от него повышение производительности можно попытаться получить...
На одном серваке поднимать все это не советую - были преценденты, что потом начинаются дикие тормоза, когда от "бедности" все суют на один сервак. Советаю хотя бы сервер терминалов и SQL разнести по разным - оба прилично кушать память изволят при пике нагрузки.
 
tar3, FOLD
Если Вы про вирусы, шо "едят" compoud-документы, та они уже все давно известны! Весь майкрософтский офис на них построен и 1С 7.7 тоже... Многие Антивирусы уже про них знают и даже научились сразу клонов определять! То обсуждение, что упомянуто на Мисте, шло о конкретном клоне, который кроме внедрения во внешние отчеты/обработки (ert), еще и макрос, запускающийся при открытии этого файла. Хотя, по заявлению автора, он и был "безобидный" относительно - разрушительных действий, кроме как "засрать" файловую систему этот макро-вирус не предпринимал. Кстати, Касперский его первым определять научился, поскольку автор клона им в лабораторию на тест и выслал пример кода...

Всего записей: 199 | Зарегистр. 23-04-2005 | Отправлено: 00:12 16-01-2007
boromirok



Junior Member
Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
levnev
я бы и на 3 разнес, только денег однозначно не дадут, а если взять хорошую раб станцию в качестве sql сервера будет лучше? Или умнее докупить еще оперативки? А выбор софта такой потому как он есть и работает, а загружен крайне мало.  

Всего записей: 38 | Зарегистр. 20-10-2006 | Отправлено: 00:52 16-01-2007
levnev



Junior Member
Редактировать | Профиль | Сообщение | ICQ | Цитировать | Сообщить модератору
boromirok
На приличной раб.станции может быть как раз Скуль и будет предпочтительнее. По крайней мере, если бы у меня такой выбор был, то я бы так и поступил, добив оперативки в такую раб.станцию - как мне показалось Скуль не очень есть проц. время или его просто ограничить можно в его настройках на "отъедание". А вот память на терминал-сервере надо расчитывать на каждый сеанс + еще что-то, уже и формулу не помню, но в умных буках и доках постоянно про это пишуть!

Всего записей: 199 | Зарегистр. 23-04-2005 | Отправлено: 01:12 16-01-2007
boromirok



Junior Member
Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
levnev
У нас сейчас получается гигабайт оперативки на все про все, всетаки в свете прочтения http://faq1c.gorbunov.ru/faq1c/term.htm и http://faq1c.gorbunov.ru/faq1c/sql.htm склоняюсь для начала докупить еще два модуля по 512 и попробовать, ежли будет тормозить то прикручу раб станцию на которой сейчас дбф база лежит как sql сервер. В терминале думаю запускать только 1с, постараюсь даже без explorer-a. Все службы на сервере повырубаю, может прокатит..

Всего записей: 38 | Зарегистр. 20-10-2006 | Отправлено: 01:21 16-01-2007
levnev



Junior Member
Редактировать | Профиль | Сообщение | ICQ | Цитировать | Сообщить модератору
boromirok
Такой подход к проблеме, думаю, будет самым правильным! На практике всегда все чуть по другому получается в конкретной ситуации и решать проблемы нужно по мере их поступления!
Все службы, без исключения, вырубать тоже не советую - могут другие "грабли" начаться. Тут надо аккуратненько подходить к вопросу, что из них нужно, а что нет. Кстати, и файловой системе (куда базы Скуля положить, куда журнал транзакций) тоже внимание сразу стоит уделить!

Всего записей: 199 | Зарегистр. 23-04-2005 | Отправлено: 01:31 16-01-2007
boromirok



Junior Member
Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
levnev
А как лучше? сейчас на серваке 2 диска
1-й: с: 400 Gb 7200rpm 16Mb cache Seagate 7200.10 ST3400620AS NCQ
2-й: d: 73 Gb 80pin 10000rpm Ultra320 Fujitsu MAW3073NC                 2 шт в raid-массиве
 

Всего записей: 38 | Зарегистр. 20-10-2006 | Отправлено: 01:52 16-01-2007
levnev



Junior Member
Редактировать | Профиль | Сообщение | ICQ | Цитировать | Сообщить модератору
boromirok
Дык, практически везде пишут, что надо по разным дискам "разнести" (некоторые настаивают даже на физических, но лично у меня на рейде несколько разделов и по разделам разнесено - работает хорошо)! опять же, сразу максимальную длину файлов в свойствах базы ограничи, а то если забудешь, и потом место неожиданно кончиться - тоже малоприятного будет.

Всего записей: 199 | Зарегистр. 23-04-2005 | Отправлено: 02:01 16-01-2007
leputain



Advanced Member
Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
FOLD
спасибо!

Всего записей: 1434 | Зарегистр. 24-11-2002 | Отправлено: 04:18 16-01-2007
leputain



Advanced Member
Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
FOLD
 
 
  Выборка = Справочники.Номенклатура.Выбрать();  
   Пока  Выборка.Следующий()Цикл  
   Если Выборка.ЭтоГруппа = Ложь Тогда  
   Если НЕ ЗначениеНеЗаполнено(Выборка.Артикул) Тогда  
    Объект  = Выборка.ПолучитьОбъект();  
    Объект.Артикул = СтрЗаменить(Выборка.Артикул," ","");  
    Объект.Записать();  
   КонецЕсли;  
 
КонецЕсли;  
КонецЦикла;
 
вот это сработало, убрало пробелы, спасибо.
 
Добавлено:
а вот тут
 
Единицы = Справочники.ЕдиницыИзмерения;  
  Выборка = Справочники.Номенклатура.Выбрать();  
   Пока  Выборка.Следующий()Цикл  
   Если Выборка.ЭтоГруппа = Ложь Тогда  
Если  ЗначениеНеЗаполнено(Выборка.ЕдиницаХраненияОстатков) Тогда  
  ЕдинХО = Единицы.СоздатьЭлемент();  
  ЕдинХО.Владелец = Выборка.Ссылка;  
  ЕдинХО.ЕдиницаПоКлассификатору =Выборка.БазоваяЕдиницаИзмерения ;  
  ЕдинХО.Коэффициент =1;  
  ЕдинХО.Наименование = ЕдинХО.ЕдиницаПоКлассификатору.Наименование;  
  ЕдинХО.Записать();  
 Объект  = Выборка.ПолучитьОбъект();  
 Объект.ЕдиницаХраненияОстатков = ЕдинХО.Ссылка;  
 Объект.ЕдиницаДляОтчетов =  ЕдинХО.Ссылка;  
 Объект.Записать();  
КонецЕсли;  
КонецЕсли;  
КонецЦикла;
 
тоже сработало, спасибо.
 
а если вместе делаю, то ругается, пришлось по очереди.

Всего записей: 1434 | Зарегистр. 24-11-2002 | Отправлено: 07:42 16-01-2007
Stellios

Newbie
Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
Доброе утро Всем!
К сожалению я не являюсь программистом 1С - Работаю системным администратором, но по ходу своей работы приходиться сталкиваться и с этим:
 
В Счет-Фактуре организован подбор Накладных за определенный период. Для этого в журнал Товары была дабавленна форма "ДляПодбора". Отбор реализован по полю Грузополучатель. Теперь ГБ требует, чтоб по Контрагенту "ШЕД" отбор производился не по магазину-грузополучателю, а по всем Накладным контрагента "Шед"
 
Подскажите - что я неправильно делаю?
 
    Пока Док.ПолучитьДокумент() = 1 Цикл
        Если Док.Вид()="РасходнаяНакладная" Тогда
            Если Нрег(СокрЛП(Док.Контрагент.Наименование))="шед"  
            Тогда
                Продолжить;
            КонецЕсли;
            Иначе Если (Док.Грузополучатель <> КонтекстДокумента.Грузополучатель)  
            Тогда
                Продолжить;
            КонецЕсли;

Всего записей: 4 | Зарегистр. 18-12-2006 | Отправлено: 09:03 16-01-2007
   

Страницы: 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 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73 74 75 76 77 78 79 80 81 82 83 84 85 86 87 88 89 90 91 92 93 94 95 96 97 98 99 100 101 102 103 104

Компьютерный форум Ru.Board » Компьютеры » Прикладное программирование » 1C Программирование и поддержка
ShIvADeSt (06-02-2008 02:31): продолжаем тут http://forum.ru-board.com/topic.cgi?forum=33&topic=9226


Реклама на форуме Ru.Board.

Powered by Ikonboard "v2.1.7b" © 2000 Ikonboard.com
Modified by Ru.B0ard
© Ru.B0ard 2000-2024

BitCoin: 1NGG1chHtUvrtEqjeerQCKDMUi6S6CG4iC

Рейтинг.ru