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

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

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

ShIvADeSt (30-10-2009 09:51): http://forum.ru-board.com/topic.cgi?forum=33&topic=10715  Версия для печати • Подписаться • Добавить в закладки
Страницы: 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

   

ShIvADeSt



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

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

Для заблудившихся в трех соснах >>> FAQ по форуму RU.Board
 
Предыдущие темы были здесь часть 4 | часть 3 | часть 1
 
Как убить рекламу при обновлении отчетности | конфигурации (ИБ)?
Всего записей: 3956 | Зарегистр. 29-07-2003 | Отправлено: 02:02 03-04-2009 | Исправлено: vkramnik, 12:06 23-10-2009
Stanleygoo

Junior Member		Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
DARKDEAD
 
infostart.ru в помощь
Всего записей: 58 | Зарегистр. 16-10-2007 | Отправлено: 09:01 09-09-2009
DARKDEAD

Member		Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
Stanleygoo
если бы там была....
Всего записей: 249 | Зарегистр. 04-02-2008 | Отправлено: 09:16 09-09-2009 | Исправлено: DARKDEAD, 09:16 09-09-2009
dimaxmaster

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

Цитата:
В УТ перекодировали ноенклатуру, не сделав этого в бухии => задвоилась номенклатура  (элементы и группы  - выгрузка по коду).  
Перевыгрузить документы нежелательно (большой размер данных и в них исправлялись ошибки). Предполагаемый выход - обработка "поиск и замена значений". но отрабатывает очень долго. Есть идея получить ссылочное значение задвоенной номенклатуры в скуле и средствами скуля заменить на нужное.
 

 
Самое лучшее действие восстановить бэкап, которого я так понимаю нет.
Замена значений в документах это-не выход, т.к. требует больших трудозатрат, при этом легко ошибиться. "Скульный" метод ничего не даст, так как в 1С довольно сложные связи в таблицах. Можете пробовать, но думаю ничего хорошего не выйдет.
Мой вариант такой(сам с таким сталкивался):
Удалить все документы за период когда делался последний экспорт. Пометить все элементы номенклатуры на удаление, на которые нет ссылок. Для этого написать небольшую обработку. Затем их удалить. Перенумеровать корректно оставшийся справочник.Провести экспорт заново.
Всего записей: 333 | Зарегистр. 05-06-2008 | Отправлено: 10:39 09-09-2009
CarrotM

Junior Member		Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
Всем привет! У нас в организации стоит клиент для удаленного доступа к терминальному серверу Citrix, в компании около 300 пользователей, есть некий список баз 1с, платформа 8.1. Как раздать этот список баз всем пользователям автоматически? Вариант с переносом ibases.v8i не подходит, т.к. на сервере нет диска С
Всего записей: 56 | Зарегистр. 27-05-2009 | Отправлено: 12:28 09-09-2009
An4eus



Silver Member		Редактировать | Профиль | Сообщение | ICQ | Цитировать | Сообщить модератору
CarrotM
причём здесь ветка по программированию?
спрашивай в общих вопросах по платформам здесь 1С:Предприятие 1C

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

Junior Member		Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
Подскажите плиз! Нужно в Управлении торговлей 1С 8.1, в макете СписокСерийныхНомеров вывести отдельно номер документа в виде штрих-кода, желательно через компоненту ШтрихКод. Есть нюанс в номере документов есть буквенный префикс (одна буква русского алфавита), так как штрих-код должен быть без букв, то нужно из номера прежде чем подставлять в штрих-код, обрезать префикс.
Заранее благодарю!
Всего записей: 55 | Зарегистр. 10-04-2006 | Отправлено: 04:27 10-09-2009
Akam1



Комса		Редактировать | Профиль | Сообщение | ICQ | Цитировать | Сообщить модератору
Sendman
Ну так и обрежьте перед самым выводом. Количество символов в префиксе известно? Одна. Вот настолько и укоротите спереди эту строку с номером.

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

Junior Member		Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
Akam1
с обрезкой префикса разобрался, спос. А как вывести номер именно при помощи компоненты ШтрихКод. Разместил на макете объект Штрих-код, а как заставить его сгенерить штрих исходя из номера документа?
Всего записей: 55 | Зарегистр. 10-04-2006 | Отправлено: 07:09 10-09-2009
Akam1



Комса		Редактировать | Профиль | Сообщение | ICQ | Цитировать | Сообщить модератору
Sendman
А Вы посмотрите как просто штрих-код выводится. Там же наверняка одним из параметров передается это число (лучше наверное в EAN13). Ну вот сделайте точно так же, только параметром передавайте свой номер. Ну вот как-то так.

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

Junior Member		Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
Вопрос снят, большое спасибо Akam1 ! Все сделал, все работает.
Всего записей: 55 | Зарегистр. 10-04-2006 | Отправлено: 07:53 10-09-2009
Akam1



Комса		Редактировать | Профиль | Сообщение | ICQ | Цитировать | Сообщить модератору
Sendman
Не за что
Я вообще наверное с 60-70% всех "задумок" копирую с уже имеющихся, остается только маленькая доделка. Как говорится - "по образу и подобию"
Мне тоже в планы поставили на след.месяц сделать чтобы на счете печатался его уникальный штрих-код. Вот буду так и делать

----------
В правильно поставленном вопросе всегда содержится 50% ответа
Все будет так, как должно быть. Даже если будет иначе.
Всего записей: 26407 | Зарегистр. 20-04-2006 | Отправлено: 07:58 10-09-2009 | Исправлено: Akam1, 08:00 10-09-2009
yurii123

Junior Member		Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
Вобщем тема такая, есть конфа на базе 1с 8.1, катрановским ключем закрыты 4 обработки. Открытый модуль, по определенным параметрам, вызывает эти обработки. В отладчике наблюдается исполнение строк этих модулей, но открыть их нет возможности. По хоже он обращается к нему на время исполнения модуля и тут же закрывает. В памяти он это делает либо создает tmp файл не известно, но скорее всего отрабатывает его в памяти, т.к. если бы он его клал на жесткий диск, а потом удалял, его можно было восстановить. Как перехватить этот файл?
Всего записей: 74 | Зарегистр. 29-05-2008 | Отправлено: 09:55 10-09-2009
WELL



Silver Member		Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
Загружаю данные из Экселя.
Код такой:

Код:
Попытка    
        Ексель = Новый COMОбъект("Excel.Application");
        книга = Ексель.Workbooks.Open(ИмяФайла);
        лист = книга.Sheets("Лист1");
    Исключение
        Сообщить("Ошибка при открытии файла"+ИмяФайла);
        Сообщить(ОписаниеОшибки());
        Возврат;
    КонецПопытки;

 
Вопрос по поводу строки лист = книга.Sheets("Лист1");
Как быть, если в эксель-файле как такового наименования листа нет. Просто данные. Файл получен через сохранение таблицы из 1С 8.0.
Как в таком случае добраться до данных?

----------
CRACKL@B: Форум по исследованию защиты программного обеспечения
— А можно так — утром стулья, а вечером деньги?
— Можно, но деньги — вперед!
Всего записей: 2609 | Зарегистр. 11-12-2003 | Отправлено: 11:37 10-09-2009
ech

Junior Member		Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
WELL
Вообще не указывай эту строку  
лист = книга.Sheets("Лист1");  
А сразу беги по Екселю
Всего записей: 78 | Зарегистр. 04-10-2006 | Отправлено: 12:14 10-09-2009
qwerty9911

Junior Member		Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
подскажите что делать!  
Раньше было в Номенклатуре выбиралось значение из  перечисления Материал1, теперь нужно сделать вместо перечисления выбор из справочника Материал.  
Данные из Номенклатура.Материриал1 в Номенклатура.Материал не записываются  
 
Спр=СоздатьОбъект("Справочник.Номенклатура");  
    СпрМат=СоздатьОбъект("Справочник.ТипМатериала");  
    ДатаТекущая = ТекущаяДата();  
    Спр.ИспользоватьДату(ДатаТекущая);                
    СпрМат.ИспользоватьДату(ДатаТекущая);  
    Спр.ВыбратьЭлементы();  
    Пока Спр.ПолучитьЭлемент()=1 Цикл  
        Если (Спр.ЭтоГруппа()=1)  Тогда  
            Продолжить;  
        КонецЕсли;  
        СпрМат.ВыбратьЭлементы();  
         
        Пока СпрМат.ПолучитьЭлемент()=1 Цикл  
            Если Найти(СпрМат.Наименование,Спр.Материал1)=1 Тогда  
                //Мат=строка(Спр.Материал1);  
                Мат=строка(СпрМат.Наименование);  
                Спр.Материал= СпрМат.Наименование;  
                Спр.Записать();          
                Сообщить(СпрМат.Наименование);  
                Сообщить("-------");  
                Сообщить(Спр.Материал);  
            КонецЕсли;  
         
        КонецЦикла;  
         
    //    Сообщить(Спр.Материал1);  
    //    Сообщить(Мат);  
    КонецЦикла;
Всего записей: 88 | Зарегистр. 09-11-2004 | Отправлено: 20:54 10-09-2009
An4eus



Silver Member		Редактировать | Профиль | Сообщение | ICQ | Цитировать | Сообщить модератору
qwerty9911
какова задача, ибо из кода и "задания" ничего не понял?

----------
Век живи - век учись!
Всего записей: 3768 | Зарегистр. 23-07-2007 | Отправлено: 20:58 10-09-2009
qwerty9911

Junior Member		Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
задача просто из одного поля Номенклатуры перекинуть данные в другое поле.
Пользователи хотят сами добавлять тип материала, а с перечислением это не возможно
 
Добавлено:
 Спр.Материал= СпрМат.Наименование;  
 Спр.Записать();    
 
После этого Спр.Материал= пустое значение, хотя СпрМат.Наименование='ДСП22'
Всего записей: 88 | Зарегистр. 09-11-2004 | Отправлено: 21:01 10-09-2009
neen

Junior Member		Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
Если я правильно понял задачу, то наверное как то так (ну возможно с нюансами):
Процедура Заполнить()
    Спр=СоздатьОбъект("Справочник.Номенклатура");    
    СпрМат=СоздатьОбъект("Справочник.ТипМатериала");  
    ДатаТекущая = ТекущаяДата();  
    Спр.ИспользоватьДату(ДатаТекущая);                
    СпрМат.ИспользоватьДату(ДатаТекущая);  
    Спр.ВыбратьЭлементы();  
    Пока Спр.ПолучитьЭлемент()=1 Цикл    
        Если Спр.ЭтоГруппа()=1 Тогда Продолжить КонецЕсли;
        
        Если СпрМат.НайтиПоНаименованию(Спр.Материал1)=0 Тогда
            СпрМат.Новый();
            //СпрМат.Код=;
            СпрМат.Наименование=Спр.Материал1;
            СпрМат.Записать();
        КонецЕсли;
        
        Спр.Материал=СпрМат.ТекущийЭлемент();
        Спр.Записать();
        Сообщить(""+Спр.Материал1+" -> "+Спр.Материал);
    КонецЦикла;
КонецПроцедуры
 
 
Добавлено:
____________________
 
При этом если материал со временем не меняется, то строчки
//>
Спр.ИспользоватьДату(ДатаТекущая);
СпрМат.ИспользоватьДату(ДатаТекущая);
//<
Вообще лишние
Всего записей: 97 | Зарегистр. 10-01-2007 | Отправлено: 03:18 11-09-2009 | Исправлено: neen, 03:19 11-09-2009
gorenski



Advanced Member		Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
qwerty9911
Немного напрягает вот это

Цитата:
Спр.Материал= СпрМат.Наименование;

Пожалуй, было бы правильнее реквизит Материал делать не текстовым, а Справочник.Материалы
Всего записей: 711 | Зарегистр. 29-01-2003 | Отправлено: 07:23 11-09-2009
WELL



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

Цитата:
Вообще не указывай эту строку  
лист = книга.Sheets("Лист1");  
А сразу беги по Екселю

Спасибо, попробую.

----------
CRACKL@B: Форум по исследованию защиты программного обеспечения
— А можно так — утром стулья, а вечером деньги?
— Можно, но деньги — вперед!
Всего записей: 2609 | Зарегистр. 11-12-2003 | Отправлено: 08:42 11-09-2009
   

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

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


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

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

BitCoin: 1NGG1chHtUvrtEqjeerQCKDMUi6S6CG4iC

Рейтинг.ru