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

ZanderZ Advanced Member Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору tvskit тебе в другую ветку надо http://forum.ru-board.com/topic.cgi?forum=5&topic=28194&start=0 Всего записей: 672 | Зарегистр. 19-05-2006 | Отправлено: 09:31 31-07-2009 | Исправлено: ZanderZ, 09:32 31-07-2009

Akam1 Комса Редактировать | Профиль | Сообщение | ICQ | Цитировать | Сообщить модератору tvskit http://forum.ru-board.com/topic.cgi?forum=35&topic=43830&start=2500#16 ---------- В правильно поставленном вопросе всегда содержится 50% ответа Все будет так, как должно быть. Даже если будет иначе. Всего записей: 26386 | Зарегистр. 20-04-2006 | Отправлено: 09:36 31-07-2009

ZanderZ Advanced Member Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору mur01 правила обмена данными надо смотреть Всего записей: 672 | Зарегистр. 19-05-2006 | Отправлено: 14:53 31-07-2009

sti2008 Advanced Member Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору Подскажите, пожалуйста, как можно изменить цену на товар в счете в 1С на 3 разряда после запятой. Всего записей: 964 | Зарегистр. 13-08-2008 | Отправлено: 21:51 31-07-2009

An4eus Silver Member Редактировать | Профиль | Сообщение | ICQ | Цитировать | Сообщить модератору KelChechek 1. если стандартная конфа, то в коде есть ошибочка... 2. зачем перебирать доки, а потом смотреть их движения? для это есть запрос, который работает куда быстрее...   vizlipuzli Цитата: Код: Если (ТипЗначенияСтр(Таб) <> "Таблица") или (Обновить = 0) Тогда           Таб = СоздатьОбъект("Таблица");       Иначе            Таб.Очистить();       КонецЕсли; что-то я не могу понять: тыкаю я в расшифровку, 1с вызывает "дубликат" в оперативку. Так как же заново запущенный модуль отчета опознает, что Таб - это объект Таблица (если она не инициализирована)? p.s. проблема с перемеными "глобальными" в локальном контексте только в модуле документа...   Добавлено: St01en Цитата: HKEY_CURRENT_USER\Software\1C\1Cv7\7.7\Titles - в этом разделе хранятся все пути к базам не только - в руте тоже может быть... ---------- Век живи - век учись! Всего записей: 3768 | Зарегистр. 23-07-2007 | Отправлено: 00:07 01-08-2009

Akam1 Комса Редактировать | Профиль | Сообщение | ICQ | Цитировать | Сообщить модератору sti2008 Смотреть код, где прописывается цена, и менять чтобы выводило 3 знака после запятой. ---------- В правильно поставленном вопросе всегда содержится 50% ответа Все будет так, как должно быть. Даже если будет иначе. Всего записей: 26386 | Зарегистр. 20-04-2006 | Отправлено: 05:40 01-08-2009

klimanoff Junior Member Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору Подскажите!!! ТИС. Документ поступление ТМЦ. Добавлена колонка с типом значения число. Хотелось бы, чтобы по кнопке в справочник цен  замещалась бы розничная цена. поставил кнопку, но не знаю каким образом перезаписать в справочнике цену на ту что в колонке.   что-то получилось, но есть одно но...цены переписывает, но если первая идет закупочная в справочнике, она меняется на розничную... и розничных получается две Процедура ПоКнопке1()       спрцены=СоздатьОбъект("Справочник.Цены");     спртипыцен = СоздатьОбъект("Справочник.ТипыЦен");     спртипыцен.НайтиПоНаименованию("Розничная");       у1=спртипыцен.текущийэлемент();     ТаблицаДокумента = СоздатьОбъект("ТаблицаЗначений");     ВыгрузитьТабличнуюЧасть(ТаблицаДокумента);       ТаблицаДокумента.ВыбратьСтроки();       СпрЦены.ИспользоватьДату(ДатаДок,1);          Пока ТаблицаДокумента.ПолучитьСтроку()=1 Цикл          Если ПустоеЗначение(ц1) <> 1 тогда           СпрЦены.ИспользоватьВладельца(Номенклатура);             СпрЦены.ВыбратьЭлементы();           СпрЦены.ТипЦен = у1;             СпрЦены.Валюта  = Валюта ;                                                 СпрЦены.Единица = Единица;           СпрЦены.Цена = ц1;             СпрЦены.Записать();                              сообщить("дошло до записи");                                  Конецесли;               Всего записей: 80 | Зарегистр. 07-04-2008 | Отправлено: 20:52 01-08-2009 | Исправлено: klimanoff, 01:19 02-08-2009

An4eus Silver Member Редактировать | Профиль | Сообщение | ICQ | Цитировать | Сообщить модератору klimanoff Код: Процедура ПоКнопке1()       спрцены=СоздатьОбъект("Справочник.Цены");       спртипыцен = СоздатьОбъект("Справочник.ТипыЦен");       спртипыцен.НайтиПоНаименованию("Розничная");       у1=спртипыцен.текущийэлемент();       ТаблицаДокумента = СоздатьОбъект("ТаблицаЗначений");       ВыгрузитьТабличнуюЧасть(ТаблицаДокумента);       ТаблицаДокумента.ВыбратьСтроки();       СпрЦены.ИспользоватьДату(ДатаДок,1);             Пока ТаблицаДокумента.ПолучитьСтроку()=1 Цикл            Если ПустоеЗначение(ц1) <> 1 тогда             СпрЦены.ИспользоватьВладельца(Номенклатура);             //СпрЦены.ВыбратьЭлементы();           Если СпрЦены.НайтиПоРеквизиту("ТипЦен", у1, 0)=1 Тогда           СпрЦены.ТипЦен = у1;             СпрЦены.Валюта  = Валюта ;                                                   СпрЦены.Единица = Единица;             СпрЦены.Цена = ц1;             СпрЦены.Записать();                                  сообщить("дошло до записи");                           КонецЕсли;             Конецесли;     КонецЦикла;   ---------- Век живи - век учись! Всего записей: 3768 | Зарегистр. 23-07-2007 | Отправлено: 10:23 02-08-2009

klimanoff Junior Member Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору An4eus, спасибо. Но все равно перезаписывается первая строка в справочнике, а это как правило закупочная цена и становятся две розницы.   Всего записей: 80 | Зарегистр. 07-04-2008 | Отправлено: 12:06 02-08-2009

An4eus Silver Member Редактировать | Профиль | Сообщение | ICQ | Цитировать | Сообщить модератору klimanoff klimanoff Код: Процедура ПоКнопке1()       спрцены=СоздатьОбъект("Справочник.Цены");       спртипыцен = СоздатьОбъект("Справочник.ТипыЦен");       спртипыцен.НайтиПоНаименованию("Розничная");       у1=спртипыцен.текущийэлемент();       ТаблицаДокумента = СоздатьОбъект("ТаблицаЗначений");       ВыгрузитьТабличнуюЧасть(ТаблицаДокумента);       ТаблицаДокумента.ВыбратьСтроки();       СпрЦены.ИспользоватьДату(ДатаДок,1);             Пока ТаблицаДокумента.ПолучитьСтроку()=1 Цикл            Если ПустоеЗначение(ц1) <> 1 тогда             СпрЦены.ИспользоватьВладельца(ТаблицаДокумента.Номенклатура);             //СпрЦены.ВыбратьЭлементы();           Если СпрЦены.НайтиПоРеквизиту("ТипЦен", у1, 0)=1 Тогда           СпрЦены.ТипЦен = у1;             СпрЦены.Валюта  = Валюта ;                                                   СпрЦены.Единица = Единица;             СпрЦены.Цена = ц1;             СпрЦены.Записать();                                  сообщить("дошло до записи");                           КонецЕсли;             Конецесли;     КонецЦикла;   ---------- Век живи - век учись! Всего записей: 3768 | Зарегистр. 23-07-2007 | Отправлено: 12:28 02-08-2009

klimanoff Junior Member Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору An4eus огромное спасибо!!! все получилось!!! Всего записей: 80 | Зарегистр. 07-04-2008 | Отправлено: 13:22 02-08-2009

An4eus Silver Member Редактировать | Профиль | Сообщение | ICQ | Цитировать | Сообщить модератору klimanoff 1. спс в пм 2. данная реализация не совсем верная, ибо может быть такая ситуация, когда у номенклатуры более одной розничной цены... + там может быть система скидок, тогда придётся анализировать подчиненный справочник цены, перебирая их через ВыбратьЭлементыПоРеквизиту... ---------- Век живи - век учись! Всего записей: 3768 | Зарегистр. 23-07-2007 | Отправлено: 13:32 02-08-2009

klimanoff Junior Member Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору чето с циклом не то сделал. ставит для всех позиций одну розничную цену. Всего записей: 80 | Зарегистр. 07-04-2008 | Отправлено: 14:16 02-08-2009

An4eus Silver Member Редактировать | Профиль | Сообщение | ICQ | Цитировать | Сообщить модератору klimanoff а где код? ---------- Век живи - век учись! Всего записей: 3768 | Зарегистр. 23-07-2007 | Отправлено: 14:17 02-08-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

Переход по форумам  Закладки   » Компьютеры Цифровое изображение Программы Microsoft Windows UNIX Другие OS Hardware В помощь сисадмину Прикладное программирование Игры Форумные игры   » Интернет Web-программирование В помощь вебмастеру Графика Хостинг Зацените-ка!   » Тематические Ikonboard v.2 Ikonboard v.3 Invision Board Другие форумы PHP-Nuke и другие порталы Мобила   » Общие Спорт Флейм Темы по региональным встречам Музыка и Кино Юмор Литература и Живопись   » Ru.Board Новости Помощь по форуму   » Андеграунд eBookz Варезник Раздачи и акции Мобильный варезник Андеграунд Игры и фильмы   » Специальные Тестирование