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

softechhh Newbie Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору Блин не до тер .   Вот так должно быть   док.ВыбратьПодчиненныеДокументы(ВыбНачПериода,ВыбКонПериода,Запрос.ЗаказИнтернет);   Цитата: _док = _Запрос.ЗаказИнтернет   док.ВыбратьПодчиненныеДокументы(ВыбНачПериода,ВыбКонПериода,_док);   а вот так как раз не хочет Всего записей: 26 | Зарегистр. 19-11-2008 | Отправлено: 13:45 09-12-2008

An4eus Silver Member Редактировать | Профиль | Сообщение | ICQ | Цитировать | Сообщить модератору softechhh ну если так работает Код:   док.ВыбратьПодчиненныеДокументы(ВыбНачПериода,ВыбКонПериода,Запрос.ЗаказИнтернет);   то лучше сделать вот так (бысрее будет работать): Код:   _док_ = Запрос.ЗаказИнтернет; док.ВыбратьПодчиненныеДокументы(ВыбНачПериода,ВыбКонПериода,_док_ );     ну если опять не то - то выкладывай полный код! ---------- Век живи - век учись! Всего записей: 3768 | Зарегистр. 23-07-2007 | Отправлено: 14:27 09-12-2008

Akam1 Комса Редактировать | Профиль | Сообщение | ICQ | Цитировать | Сообщить модератору ffirefox Взять обновление с базовой версии до проф и обновить. Цитата: а с 8.1 не получилось Что конкретно Вы предпринимали и что не получилось? ---------- В правильно поставленном вопросе всегда содержится 50% ответа Все будет так, как должно быть. Даже если будет иначе. Всего записей: 26400 | Зарегистр. 20-04-2006 | Отправлено: 02:50 11-12-2008

An4eus Silver Member Редактировать | Профиль | Сообщение | ICQ | Цитировать | Сообщить модератору softechhh я так понимаю, что 7-ка! Цитата:  как сделать так чтобы при выборе документа "ХХХ" (он выбираеться в форме дока "YYY" как реквизит), менялась дата у док-та ХХХ на дату док-та YYY если хочешь верный кож: напиши, что есть XXX (реквизит или вид документа) и YYY (аналогично!) ---------- Век живи - век учись! Всего записей: 3768 | Зарегистр. 23-07-2007 | Отправлено: 21:03 11-12-2008

softechhh Newbie Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору Есть документ, называеться ЗаказРаспределение, у него есть реквизит "главный заказ" имеет тип "документ". Я открываю этот документ (ЗаказРаспределение), и выбираю реквизитом документ "ЗаказИнтернет". При выборе дока "ЗаказИнтернет" в реквизите (этот док типа главный, а док ЗаказРаспр подчинен ему), должно осуществляться следующее: реквизит дока ЗаказИнтернет "ДатаСдачи" должен принять дату реквизита дока "ЗаказРаспрелеление"   "ДатаСдачи" , если эта ДатаСдачи меньше, чем у дока ЗаказРаспределние. Вот я написал пару строк, но в этом случае дата устанавливаеться, НО У ВСЕХ ДОКАХ "ЗаказИнтернет" В БАЗЕ (я так понимаю это из за цикла) но по другому не получаеться . А мне нужно только у того который я выбираю в реквизит. Вот , надеюсь понятно       _док.ВыбратьДокументы(,);    Пока _док.ПолучитьДокумент()=1 Цикл               Если ГлавныйЗаказ.Выбран()=1 Тогда       Если ДатаСдачи >_док.ДатаСдачи Тогда            _док.ДатаСдачи = ДатаСдачи;            Сообщить(_док);           _док.Записать();       КонецЕсли;   КонецЕсли;   КонецЦикла;         Добавлено: Да версия 7,7, база самописная Всего записей: 26 | Зарегистр. 19-11-2008 | Отправлено: 22:41 11-12-2008

An4eus Silver Member Редактировать | Профиль | Сообщение | ICQ | Цитировать | Сообщить модератору softechhh да.... можно было и понятнее объяснить! Вообще так: вещаем на реквизит ЗаказИнтернет вызов процедуры ПриВыбореГлавнойПроцедуры() Код:   Процедура ПриВыбореГлавногоЗаказа()    //выйдем сразу, если ничего не выбрали!    Если ГлавныйЗаказ.Выбран()=0 Тогда       Возврат;    КонецЕсли;    //опять закончим процедуру, если дата не удоволетворяет условию    //чтоб не занимать память!    Если ДатаСдачи <= ГлавныйЗаказ.ДатаСдачи Тогда       Возврат;    КонецЕсли;    //поскольку прошли дальше, то будем менять реквизит!    Док = СоздатьОбъект("Документ."+ГлавныйЗаказ.Вид());    Если Док.НайтиДокумент(ГлавныйЗаказ)=1 Тогда       Док.ДатаСдачи = ДатаСдачи;       Попытка          Док.Записать();       Исключение          Сообщить(ОписаниеОшибки());       КонецПопытки;    КонецЕсли; КонецПроцедуры   если я правильно тебя понял, то это оно!   смысл [перевожу на русский язык]: есть текущий документ, у него есть рекизит ДатаСдачи. Есть ещё один рекизит ГлавныйЗаказ (тип значения его - документ + у него тоже сеть реквизит ДатаСдачи). Так вот надо изменить реквизит ДатаСдачи документа, реквизитом которым является реквизит ГлавныйЗаказ текущего документа, если у последнего документа реквизит ДатаСдачи меньше, чем у реквизита ДатаСдачи первого документа!   вот теперь смотри: как ты думаешь понятен смысл? ---------- Век живи - век учись! Всего записей: 3768 | Зарегистр. 23-07-2007 | Отправлено: 23:40 11-12-2008 | Исправлено: An4eus, 23:44 11-12-2008

An4eus Silver Member Редактировать | Профиль | Сообщение | ICQ | Цитировать | Сообщить модератору softechhh когда я читал твою "задачку" - у меня тоже почему-то заболела голова! а так: код написал я тебе верный, еже ли верно понял задачу! ---------- Век живи - век учись! Всего записей: 3768 | Зарегистр. 23-07-2007 | Отправлено: 00:45 12-12-2008

softechhh Newbie Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору Спасибо, проверил, все работает Всего записей: 26 | Зарегистр. 19-11-2008 | Отправлено: 11:17 12-12-2008

vaseker Newbie Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору Доброго времени суток! Возникла проблема в бухгалтерии 7.7. нужно для пользователя создать план счетов (51,60,61), а остальные скрыть. план счетов я собрал,обозвал "огр", для пользователя поставил чтение этого плана, а для основного убрал все галки. в итоге в осв по счету в списке счетов отображаются только те счета, которые у меня заданы в "порезаном" плане (как надо), а простая осв выводит все счета (как не надо). пробовал в отчете осв присвоить ПланСчетов = "огр"; в итоге вывода совсем нет. посоветуйте, пожалуйста, что нужно сделать, чтобы использовался только ограниченный план счетов? Всего записей: 23 | Зарегистр. 10-10-2005 | Отправлено: 20:20 15-12-2008

An4eus Silver Member Редактировать | Профиль | Сообщение | ICQ | Цитировать | Сообщить модератору vaseker Код:   БухИтоги = СоздатьОбъект("БухгалтерскийУчет"); БухИтоги.ИспользоватьПланСчетов("огр"); //... ---------- Век живи - век учись! Всего записей: 3768 | Зарегистр. 23-07-2007 | Отправлено: 21:08 15-12-2008

vaseker Newbie Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору An4eus, да, я так пробовал, только объект не Учет, а Итоги создавал, на Учет ругается "Неудачная попытка создания объекта (БухгалтерскийУчет)". У меня написано Код: Ит = СоздатьОбъект("БухгалтерскиеИтоги"); Ит.ИспользоватьПланСчетов("огр"); при выполнении выдает ошибку "Отсутствует план счетов с кодом "огр"!" А если в оригинальном отчете осв на таблицу добавить вывод используемого плана счетов Код:   Если ВыбПланСчетов = 1 Тогда ПланСчетов = ВыбранныйПланСчетов(); КонецЕсли; Ит.ИспользоватьПланСчетов(ПланСчетов); ...    и в сервис-параметры-бухгалтерия установить основно план "огр", то выводит значение "огр", т.е. ошибки в написании названия плана нет... в настройках плана идентификатор,синоним равны "огр".. Всего записей: 23 | Зарегистр. 10-10-2005 | Отправлено: 19:27 16-12-2008 | Исправлено: vaseker, 19:43 16-12-2008

An4eus Silver Member Редактировать | Профиль | Сообщение | ICQ | Цитировать | Сообщить модератору vaseker Цитата: "Неудачная попытка создания объекта (БухгалтерскийУчет)" тогда смотрие, а если компонента Бухгалтерский учет? В меню: Помощь -> О программе... Какие там перечисленны установленные компоненты? ---------- Век живи - век учись! Всего записей: 3768 | Зарегистр. 23-07-2007 | Отправлено: 20:26 16-12-2008

vaseker Newbie Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору An4eus есть. всего 4 компоненты: Бухгалтерский учет Оперативный учет Расчет Управление распределенными ИБ Всего записей: 23 | Зарегистр. 10-10-2005 | Отправлено: 20:58 16-12-2008

An4eus Silver Member Редактировать | Профиль | Сообщение | ICQ | Цитировать | Сообщить модератору vaseker а что ж  такую ошибку пишет? в дереве метанных на Плане счетов, как точно заданы идентификаторы планов счетов? ---------- Век живи - век учись! Всего записей: 3768 | Зарегистр. 23-07-2007 | Отправлено: 21:26 16-12-2008

vaseker Newbie Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору An4eus Цитата: как точно заданы идентификаторы планов счетов? не понял.. идентификатор и синоним огр. Всего записей: 23 | Зарегистр. 10-10-2005 | Отправлено: 22:30 16-12-2008

An4eus Silver Member Редактировать | Профиль | Сообщение | ICQ | Цитировать | Сообщить модератору vaseker да... что там перечисленно?   Добавлено: а так работает: Код: Ит.ИспользоватьПланСчетов(ПланСчетов.огр); ??? ---------- Век живи - век учись! Всего записей: 3768 | Зарегистр. 23-07-2007 | Отправлено: 22:36 16-12-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

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