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

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

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

ShIvADeSt (03-04-2009 02:03): Продолжение тут
http://forum.ru-board.com/topic.cgi?forum=33&topic=10256#1 		 Версия для печати • Подписаться • Добавить в закладки
Страницы: 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

   

ShIvADeSt



Moderator		Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
Тема для программирования !!!
Это продолжение темы, предыдущие части доступны тут

ПРОГРАММЫ  1С:Предприятие 1C - 1C: Вопросы по конфигурациям
ВАРЕЗНИК   1C:Предприятие 7.7 - 1С:Предприятие v.8.x - 1C Диск ИТС - 1С: Совместимо 8.х
Топик 1C Ebooks
ЗДЕСЬ (обновлено 27.03.2009) - небольшая библиотечка (книги, документация, видео, утилиты) по 1С, финансам, бухучету и т.п.
Все рассортировано по версиям...

Для заблудившихся в трех соснах >>> FAQ по форуму RU.Board
Всего записей: 3956 | Зарегистр. 29-07-2003 | Отправлено: 02:30 06-02-2008 | Исправлено: vkramnik, 21:26 27-03-2009
An4eus



Silver Member		Редактировать | Профиль | Сообщение | ICQ | Цитировать | Сообщить модератору
sp2004
а пользователь вышел и ТЗ стерлась...
или ты предлагаешь метод СохранитьЗначение(...) ?
Всего записей: 3768 | Зарегистр. 23-07-2007 | Отправлено: 16:20 28-08-2008
Haosame



Junior Member		Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
Доброго всем времени суток!
Проблема такая. При подключении к одной из 5 ИБ 1с УПП виснет намертво. Загрузка процессора идет 70-80% и так несколько часов. Приходиться снимать задачу из панели процессов. В логе нашла такую запись предшествующую зависанию: Начато регламентное слияние индексов.  
Что это такое??? Первый раз с таким встречаюсь. Помогите пож-ста!!!
Всего записей: 59 | Зарегистр. 29-02-2008 | Отправлено: 17:35 28-08-2008
LexusG

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

Цитата:
Проблема только еще появилась. Дабы организовать Лог изменений, я пошел простым путем, т.е. мы при открытии документа считываем все его реквизиты и составляем список значений этих реквизитов. Потом при закрытии этих документов мы снова считываем реквизиты и составляем другой список значений. Потом сравнив два списка получаем измененные реквизиты.  
Проблема:    
Когда все это организовано в модулях документов у меня на каждый документ свои две переменные для списков. В глобальном же двух переменных мало будет (так как при открытии двух документов одновременно мы перепишем список значений ранее открытого (если честно не проверял это факт)). и как тут быть не знаю хоть динамический массив создавай, но вроде не такого в 1с или есть? Буду рад и другим решениям.  

 
Переменных организовывать придется 4-ре: 2 - для шапки (до и после изменений), 2 -для таб.части (аналогично). Дополнительно придется завести справочник где хранить историю изменений с возможностью поиска и отбора, ну наверно и печать. Таб.часть в справочнике хранить в виде строки и разворачивать ее в таблицу при просмотре, соответственно нужно у справочника иметь форму элемента, где в удобном виде изменения просматривать. Дополнительный поля для номера даты и типа документа а также имя пользователя, дата и время изменений. По этим полям организовать возможность фильтрации и поиска. Чтобы справочник не рос быстро, отслеживать изменения у только у документов определенных видов...Собственно у меня так и организовано в ТиС 7.7.
Всего записей: 448 | Зарегистр. 14-09-2005 | Отправлено: 18:29 28-08-2008
pa_dima



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

Цитата:
Проблема только еще появилась. Дабы организовать Лог изменений, я пошел простым путем

 
Можеш сделать еще проще, я такое делал, только немогу найти, давно было, значит так, процедура ПриЗаписи() вызывается во время транзакции записи документа до ее завершения, т.е. данные для записи сформированы, а в БД еще не записаны. Создаеш объект документ, находишь данный данный документ в БД (НайтиДокумент(ТекДокумент)) и сравниваешь реквизиты (с помощью объекта метаданные получаешь все реквизиты документа и сравниваешь). Получается универсальная фича которое производит логирование любого документа.
Всего записей: 180 | Зарегистр. 22-09-2003 | Отправлено: 18:40 28-08-2008
sp2004



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

Цитата:
а пользователь вышел и ТЗ стерлась...  
или ты предлагаешь метод СохранитьЗначение(...) ?

Это то тут причём? ТЗ - это всего лишь динамический массив, который служит как перевалочная база, чтобы не заводить лишних переменных в документах. Все изменения записывай в лог(файл). Я привёл пример того, как можно следить за изменениями без косяков(открытие одновременно 2-х и более документов)
 
Добавлено:
pa_dima
Хорошее решение
Всего записей: 175 | Зарегистр. 14-11-2005 | Отправлено: 08:38 29-08-2008
Wanson



Newbie		Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
Товарищи, коллеги !  
 Помогите пожалуйста,  дайте тесты по 8-ой платформе 1С, для аттестации 1С: Профессионал.  Типа тех что лежали на 1cfiles.net.
Нужны по Платформе, Бухе и Упр. Торг, если будет ЗУП и УПП тоже буду рад. Лучше актуальные, но буду рад и старым.
  wanson1976@rambler.ru
Всего записей: 1 | Зарегистр. 29-08-2008 | Отправлено: 21:37 29-08-2008
Diabolik



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

Цитата:
чем переносил данные?

Обычный экспорт --> импорт
Всего записей: 4850 | Зарегистр. 02-10-2004 | Отправлено: 22:25 30-08-2008
Akam1



Комса		Редактировать | Профиль | Сообщение | ICQ | Цитировать | Сообщить модератору
Wanson
http://forum.ru-board.com/topic.cgi?forum=35&topic=29248

----------
В правильно поставленном вопросе всегда содержится 50% ответа
Все будет так, как должно быть. Даже если будет иначе.
Всего записей: 26407 | Зарегистр. 20-04-2006 | Отправлено: 05:53 01-09-2008
Jktu67

Newbie		Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
1. Как в ТиС получить доступ к "Количеству" товара на складе для выгрузки Номенклатуры в текстовый файл. Где хранится этот реквизит?
2. Загружаю из текстового файла единицу измерения, валюту и штрих код, они не прописываются в Номенклатуре. Может не в тот реквизит записываю? Остальные поля заполняются правильно.  
С уважением...
 
 
Добавлено:
для 7.7
 
Добавлено:
1. Как в ТиС 7,7 получить доступ к "Количеству" товара на складе для выгрузки Номенклатуры в текстовый файл. Где хранится этот реквизит?
2. Загружаю из текстового файла единицу измерения, валюту и штрих код, они не прописываются в Номенклатуре. Может не в тот реквизит записываю? Остальные поля заполняются правильно.  
С уважением...
Всего записей: 15 | Зарегистр. 29-01-2005 | Отправлено: 09:41 01-09-2008
LexusG

Full Member		Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
Jktu67
1. В Глобальнике есть процедура глПолучитьОстатокНоменклатуры(). Возьми ее за основу для получения текущего остатка по складу.
2. С помощью какой обработки загружаешь эти реквизиты? Как выполняется синхронизация по номенклатуре: по коду или по наименованию?
Всего записей: 448 | Зарегистр. 14-09-2005 | Отправлено: 09:56 01-09-2008
Jktu67

Newbie		Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
Попробую глПолучитьОстатокНоменклатуры().  
 
Реквизиты выбираюются по коду.
Так:
Текст = СоздатьОбъект("Текст");
    Текст.Открыть("C:\Temp\3.txt");   // формат:     код цены, код типа цены, цена, код владельца т.е. товара, единица, код еддиници, валюта, код валюты
                                      //                 1          2           3         4                        5        6           7        8
    
    Ном = СоздатьОбъект("Справочник.Цены");    // создаем объект спр.Цены
 
    Для i = 1 по Текст.КоличествоСтрок() Цикл
        Состояние((Текст.КоличествоСтрок()-i)); // обратный отсчет - индикатор
        Спис = СоздатьОбъект("СписокЗначений");
        Спис.ИзСтрокиСРазделителями(Текст.ПолучитьСтроку(i));   // выбираем строки из  3.txt
        Ном.Новый();                                            // создаем новый элемент в Справочник.Цены
    
        Спр=СоздатьОбъект("Справочник.Номенклатура");           // создаем объект  справочника Номенклатура
        Если Спр.НайтиПоКоду(Спис.ПолучитьЗначение(4))=1 Тогда   // если находим по коду владельца в спр. Номенклатура
            Ном.Владелец=Спр.ТекущийЭлемент();                   // то присваеваем это значение элементу в спр.Цены
        КонецЕсли;
        
        Спр=СоздатьОбъект("Справочник.ТипыЦен");                // создаем объект справочника Типы цен
        Если Спр.НайтиПоКоду(Спис.ПолучитьЗначение(2))=1 Тогда  // если находим в ТипахЦен код типа цены
            Ном.ТипЦен=Спр.ТекущийЭлемент();                    // то в спр.Цены заносим тип цены для текущего элемента
        КонецЕсли;
        
        Попытка
            Ном.Записать();
            Ном.Цена.Установить(РабочаяДата(),Число(Спис.ПолучитьЗначение(3))); // в спр.Цены заносим цену элемента  
            //Ном.Единица.Установить(РабочаяДата(),Число(Спис.ПолучитьЗначение(5))); // в спр.Цены заносим  
               //Ном.Валюта = Спис.ПолучитьЗначение(6);
            Ном.Записать();  
            
//        Спр=СоздатьОбъект("Справочник.Единици");                // создаем объект справочника  
//        Если Спр.НайтиПоКоду(Спис.ПолучитьЗначение(6))=1 Тогда  // если находим в ТипахЦен код типа цены
//            //Спр.ОКЕИ = Спр.ТекущийЭлемент();  
//            //Ном.Единица = Спр.ТекущийЭлемент();  
//            Ном.Единица.Установить(РабочаяДата(),Число(Спр.ТекущийЭлемент())); // в спр.Цены заносим единицу
//        КонецЕсли;
//
//            
//           Спр=СоздатьОбъект("Справочник.Валюты");
//        Если Спр.НайтиПоКоду(Спис.ПолучитьЗначение(8))=1 Тогда  //               
//            Ном.Валюта =Спр.ТекущийЭлемент();
//        КонецЕсли;  
//        
//            Ном.Записать();  
 
            
        Исключение
                        
        КонецПопытки;  
          
              Сообщить("валюта:"+Ном.Валюта);
 
    
    КонецЦикла;
    
КонецПроцедуры
Всего записей: 15 | Зарегистр. 29-01-2005 | Отправлено: 11:04 01-09-2008
Akam1



Комса		Редактировать | Профиль | Сообщение | ICQ | Цитировать | Сообщить модератору
Jktu67
http://i.ru-board.com/codes.html
обратите, пожалуйста, внимание на тег "more"

----------
В правильно поставленном вопросе всегда содержится 50% ответа
Все будет так, как должно быть. Даже если будет иначе.
Всего записей: 26407 | Зарегистр. 20-04-2006 | Отправлено: 11:09 01-09-2008
plushnik

Newbie		Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
Jktu67
 Количество товара на складе хранится в регистре "ОстаткиТМЦ". Чтобы получить остатки в новой базе нужно выгрузить не только справочник "Номенклатура", но и остатки по указанному регистру, а это, как правило, совсем другая, отдельная обработка. Во всяком случае обработка должна создать и заполнить из файла загрузки документ (для типовой это "Ввод остатков ТМЦ"), в котором номенклатура является только одним из реквизитов табличной части.
Всего записей: 21 | Зарегистр. 05-05-2008 | Отправлено: 11:15 01-09-2008 | Исправлено: plushnik, 14:32 01-09-2008
LexusG

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

Цитата:
Ном.Владелец=Спр.ТекущийЭлемент();  

Это неправильно, нужно так

Код:
 
Ном = СоздатьОбъект("Справочник.Цены")
Для i = 1 по Текст.КоличествоСтрок() Цикл
.....
Если Спр.НайтиПоКоду(Спис.ПолучитьЗначение(4))=1 Тогда
Ном.ИспользоватьВладельца(Спр.ТекущийЭлемент());
//далее создаем новый элемент цены или ищем существующий
......
КонецЕсли
.....
КонецЦикла
 
Всего записей: 448 | Зарегистр. 14-09-2005 | Отправлено: 13:05 01-09-2008 | Исправлено: LexusG, 13:07 01-09-2008
tyghr



Junior Member		Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
создаю оригинальную конфу
 
есть допустим:

Код:
 
...
Try
    Locator = createobject("wbemscripting.swbemlocator");
    SSet = locator.connectserver(computer,"\root\cimv2");
Except
    Return;
EndTry;
...
 

 
все это в цикле, опрашиваются компы локалки... все читаются нормально, кроме одного - на нем этот код виснет на третьей строке
 
надо добавить проверку на завис, HELP!!!
 
Добавлено:
 
решил проверить соединение на неисп порт, если быстро ответит, то сканирует, если нет - игнор
 

Код:
 
Winsock = CreateObject("MSWinsock.Winsock");
Winsock.Connect(ipaddress, 1177);
a=0;
strStart=ТекущееВремя();
secStart=Число(сред(strStart,1,2))*60*60+Число(сред(strStart,4,2))*60+Число(сред(strStart,7,2));
while a < 1 do
 strStart=ТекущееВремя();
 secStart1=Число(сред(strStart,1,2))*60*60+Число(сред(strStart,4,2))*60+Число(сред(strStart,7,2));
 if Winsock.State <> 6 then
  testcomp(ipaddress);
  a=1;
 endif;
 if secstart1-secstart>10 then
   a=1;
 endif;
enddo;
Winsock = "";
 
Всего записей: 89 | Зарегистр. 14-03-2007 | Отправлено: 17:11 01-09-2008 | Исправлено: tyghr, 12:08 02-09-2008
An4eus



Silver Member		Редактировать | Профиль | Сообщение | ICQ | Цитировать | Сообщить модератору
Diabolik
Какие номера релизов конфигураций?


----------
Век живи - век учись!
Всего записей: 3768 | Зарегистр. 23-07-2007 | Отправлено: 11:51 02-09-2008 | Исправлено: An4eus, 16:36 02-09-2008
nOleg

Newbie		Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
Попросили помочь (сам я в 1с никак, практики никакой).  
Ситуация: 2007 и половину 2008 люди работали на пиратке 7.7 (редакция 8.7 "Торговля и склад", оптово-розничный учет). Купили лицензию (редакция 9.2). Сразу переехать не смогли, продолжили работать в 8.7. В 9.2 сейчас есть данные до апреля 2008. При попытке загрузки данных в 9.2 выяснилось, что в Номенклатуре потеряли код товара (сейчас просто пронумерован), соответсвенно товары, по сути одни и теже, при загрузке из 8.7 в 9.2 дублируются (отличаются только кодом).  
 
Пока решение выглядит следующим образом: в 8.7 выгрузить список "код" (по терминологии 8-ки - "каталожный номер") - "наименование товара". В 9-ке - втупую, искать товар с совпадающим наименованием и назначать код из 8-ки (программируем в Конфигураторе?). Затем импортируем данные из 8.7 стандартным "Сервис-Доп.возможности-Универсальная загрузка".  
 
Может у кого-то есть готовые решения или я не туда думаю?.
 
Всего записей: 27 | Зарегистр. 09-04-2006 | Отправлено: 14:20 04-09-2008 | Исправлено: nOleg, 14:31 04-09-2008
An4eus



Silver Member		Редактировать | Профиль | Сообщение | ICQ | Цитировать | Сообщить модератору
nOleg
Как делали переход с редакции 8.7 на 9.2?
Всего записей: 3768 | Зарегистр. 23-07-2007 | Отправлено: 14:27 04-09-2008
nOleg

Newbie		Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
An4eus
Часть - какая-то контора за деньги, сказали что много ошибок, начали делать, но сумму выкатили слишком большую, поэтому доделывали сами. Делалось не мной и не со мной, больше сказать нечего. Вроде, все остальное нормально. Попробовали руками, после импорта из 8-ки, в 9-ке удалять дубли, правя исходные документы. Получилось, но слишком много гемороя.
Всего записей: 27 | Зарегистр. 09-04-2006 | Отправлено: 14:39 04-09-2008 | Исправлено: nOleg, 14:57 04-09-2008
An4eus



Silver Member		Редактировать | Профиль | Сообщение | ICQ | Цитировать | Сообщить модератору
nOleg
1. а есть архив старой редакции?
Если да, то мой совет просто:
обновится до последнего релиза 8.7 редакции, затем перейти на первый релиз редакции 9.2 (см. файл update.txt) и уж потом обновить до последненго релиза!
2. Конфигурация типовая или измененная?
3. Если не секрет сколько денег-то содрали?
4. Кстати, если контора не доделала по своей вине, то на них можно жалубу строчить!
5. Как контора, которая "дела наделала" называется?

----------
Век живи - век учись!
Всего записей: 3768 | Зарегистр. 23-07-2007 | Отправлено: 16:24 04-09-2008
   

Страницы: 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

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


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

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

BitCoin: 1NGG1chHtUvrtEqjeerQCKDMUi6S6CG4iC

Рейтинг.ru