/ КОМПЬЮТЕРЫ И ПО / Языки программирования / 1С для программиста

Выпуск № 678
от 15.12.2007, 21:05

Вопрос № 113.175

Здравствуйте уважаемые эксперты. Мой вопрос в следующем. (версия 7.7 -бухгалтерия 7.70.026 - файл серверная) Я пытаюсь программно перепровести документ (из модуля формы этого документа). Все нормально перепроводится, если только я не меняю дату документа, а в случае ее смены выдается сообщение "Изменена дата проведенного документа" - в не зависимости от режима перепроведения 0-3). Скажите пожалуйста - нет ли возможности обойти это правило (может надо что то где то изменить в настойках) - чтоб документ перепроводился при изменении даты документа. Или это закрыто самой 1С - и корректироваться не может

Отправлен: 10.12.2007, 05:44 Вопрос задала: Кильевич Наталья Ульяновна (статус: Посетитель) Всего ответов: 4 Мини-форум вопроса >>> (сообщений: 0)

Отвечает: BigHard Здравствуйте, Кильевич Наталья Ульяновна! Это заложено в самой платформе 1с. Единственная возможность перепровести документ другой датой - вначале сделать документ непроведенным, а затем изменить дату документа и перепровести его --------- Чем отличается чайник от программиста: У чайника в одном килобайте 1000 байт, а у программиста в одном километре 1024 метра

Ответ отправил: BigHard (статус: Студент) Ответ отправлен: 10.12.2007, 06:29

Отвечает: Dervish Здравствуйте, Кильевич Наталья Ульяновна! В проведенном документе нельзя изменять дату. Если вам надо изменить дату документа, то перед этим снимите документ с проведения, после поменяйте дату и проведите заново.

Ответ отправил: Dervish (статус: 1-ый класс) Ответ отправлен: 10.12.2007, 11:58

Отвечает: 4ToN Здравствуйте, Кильевич Наталья Ульяновна! Сообщение "Изменена дата проведенного документа" выдается при попытке изменить дату ПРОВЕДЕННОГО документа. Для того чтобы это сообщение не выдавалось, нужно сначала отменить проведение документа (Програмно - процедурой СделатьНеПроведенным(), либо в интерактивном режиме щелкнуть правой кнопкой по документу и выбрать пункт "Сделать не проведенным" ), а только затем менять дату и заново перепроводить документ.

Ответ отправил: 4ToN (статус: 2-ой класс) Ответ отправлен: 10.12.2007, 13:05

Отвечает: Dmitry Stashenko Здравствуйте, Кильевич Наталья Ульяновна! Я позволю себе процитировать статью Алексея Николаева (AlexNik) из Клуба Профессионалов 1С. Иногда возникает необходимость изменения даты проведенного документа в момент, когда открыта форма этого документа. Пользователь хочет изменить дату документа, не открывая журнал и не закрывая форму документа. Проблема очевидна - пока открыта форма документа, он заблокирован, и программные действия (СделатьНеПроведенным, Записать и пр.) просто недопустимы. Необходимо придумать что-то такое, чтобы пользователь смог изменить дату проведенного документа, просто нажав на кнопку в открытой форме этого же документа. Та же самая ситуация возникает, когда мы хотим изменить родителя или владельца в открытой форме элемента справочника. Вопрос: а можно ли как-нибудь обойти блокировку некоторых методов объекта "Документ"или "Справочник", возникающуюю автоматически при открытии формы объекта?Ответ: "да, можно". Хотя ответ и не очивиден, но он именно таков. Механизм одинаков для всех случаев, для удобства рассмотрим пример решения задачи по изменению даты проведенного документа. Задача Пользователь открыл документ. Документ проведен. Пользователь меняет дату, жмет на кнопку (например, "Провести"): V7 не выдает сообщение "Изменена дата проведенного документа!", а молча отрабатывает действие пользователя. Решение Пытаемся переложить все программные манипуцляции с документом в обработку. Последовательность программных действий следующая. 1.По кнопке в документе, например, по той же "ОК", открываем форму некоей обработки, в которую передаем необходимые параметры. 2.В обработке, в процедуре ПриОткрытии, инициализируем переданные параметры, закрываем форму документа. 3.В форме документа, в процедуре ПриЗакрытии, проверяем, что это "инициатива" служебной обработки, закрываем форму обработки. 4.В форме обработки, в процедуре ПриЗакрытии, делаем необходимые манипуляции с документом, затем открываем его форму обратно. В результате наблюдаем эффект мелькания формы документа на экране. Если документ долго перепроводится, то открытое в этот момент окно формы обработки можно использовать для вывода сообщений, типа "wait please:". Что при этом происходит 1. Oткрывается обработка, документ пока заблокирован 2. закрывается документ (из обработки при ее открытии), документ еще заблокирован 3. при закрытии документа вызываем закрытие обработки, документ пока заблокирован 4. при закрытии обработки документ уже разблокирован (форма наконец-то закрыта), меняем его как угодно, открываем форму документа Приложение: //В модуле формы документа Перем ПараПараметров; ... Процедура ПриЗакрытии() Если ТипЗначенияСтр(ПараПараметров) = "ГрупповойКонтекст" Тогда // форма обработки открыта ПараПараметров.Форма.Закрыть(); // закрываем форму обработки КонецЕсли; КонецПроцедуры // ПриЗакрытии Процедура Тест() // по кнопке ПараПараметров = СоздатьОбъект("СписокЗначений"); ПараПараметров.Установить("КонтекстДокумента", Контекст); // передаем контекст документа ПараПараметров.Установить("НоваяДата",ДатаДок-1); // передаем дополнительные параметры, например, новую дату документа ОткрытьФорму("Обработка.ТестИзмененияДаты", ПараПараметров); // открываем форму обработки КонецПроцедуры // Тест ... // Модуль формы обработки. Перем ТекДок, НоваяДата; // вспомогательные переменные, можно хранить в списке значений // здесь форма документа уже закрыта, блокировки нет // делаем необходимые манипуляции, // после которых открываем форму документа Процедура ПриЗакрытии() Док = СоздатьОбъект("Документ"); Если Док.НайтиДокумент(ТекДок) = 1 Тогда Если Док.Проведен() = 1 Тогда Док.СделатьНепроведенным(); КонецЕсли; Док.ДатаДок = НоваяДата; Док.Записать(); Док.Провести(); ОткрытьФорму(ТекДок); КонецЕсли; КонецПроцедуры // ПриЗакрытии // при открытии формы обработки запоминаем переданные параметры, // после чего закрываем форму документа (ставится "в очередь") Процедура ПриОткрытии() Если ТипЗначенияСтр(Форма.Параметр) = "СписокЗначений" Тогда КонтекстДокумента = Форма.Параметр.Получить("КонтекстДокумента"); НоваяДата = Форма.Параметр.Получить("НоваяДата"); ТекДок = КонтекстДокумента.ТекущийДокумент(); КонтекстДокумента.Форма.Закрыть(0); Иначе СтатусВозврата(0); КонецЕсли; КонецПроцедуры // ПриОткрытии

Ответ отправил: Dmitry Stashenko (статус: Студент) Ответ отправлен: 10.12.2007, 19:37

Вопрос № 113.213

SALUTE!!! Подскажите, пожалуйста где можно найти обучалку языку 1с MERCY!

Отправлен: 10.12.2007, 13:00 Вопрос задал: Kendzo (статус: Посетитель) Всего ответов: 5 Мини-форум вопроса >>> (сообщений: 0)

Отвечает: 4ToN Здравствуйте, Kendzo! Что значит обучалку? Документацию или полухудожественные книги? ;-) Лично я учусь любому языку программирования следующим образом (причем, как мне кажется, наиболее продуктивным): 1) Добываю ДОКУМЕНТАЦИЮ по данному языку (желательно печатный вариант) 2) Ищу в инете BIG_FAQ по нужному языку 3) Ставлю перед собой реальную жизненню проблему 4) Решаю ее на изучаемом языке с использованием документации и FAQ

Ответ отправил: 4ToN (статус: 2-ой класс) Ответ отправлен: 10.12.2007, 13:10

Отвечает: nimoid Здравствуйте, Kendzo! www.mista.ru www.firststeps.ru ЕСИС - http://samouchka.net/2007/05/14/1c_predprijatie_80_edinaja_spravochno__i.html (описание встроенного языка, платформенная система помощи, данные с диска ИТС, книги, архивы форума) --------- Пишем баги на любые патчи :-]

Ответ отправил: nimoid (статус: 10-ый класс) Ответ отправлен: 10.12.2007, 13:33

Отвечает: Sim_tm Здравствуйте, Kendzo! В дополнение к ответу 4ToN-а: изучение стоит начать, на мой, взгял с книжки Радченко: Практическое пособие разработчик. Она представлена в ЕСИС. Так же у самого 1с есть методички: "Введение в конфигурирование в системе "1с:Предприятие" Основные объекты, Решение оперативных зачач, Решение бухгалтерских задач, Решение расчетных задач. Ссылок на эти книжки не дам к сожалению:(, но в нете мне они попадались не раз.

Ответ отправил: Sim_tm (статус: 4-ый класс) Ответ отправлен: 10.12.2007, 14:14

Отвечает: Сергей Максименко [Elric] Здравствуйте, Kendzo! Если речь о версии 1С 7.7, то тех. документация в прилагаемом файле. Прикреплённый файл: Загрузить >> Срок хранения файла на сервере RusFAQ.ru составляет 30 суток с момента отправки ответа. --------- В творчестве рождается истина

Ответ отправил: Сергей Максименко [Elric] (статус: Профессионал) Украина, Киев Тел.: (044) 22-88-369 Организация: "МАКСЕР" - продажа и внедрение "1С:Предприятие" Адрес: г. Киев WWW: "1С:Предприятие" - продажа, внедрение, сопровождение ---- Ответ отправлен: 10.12.2007, 14:40

Отвечает: Макаров Сергей Львович Здравствуйте, Kendzo! Для начинающих лучше всего прорешать следующие книги: По 7.7 - Усиков Т.Н. 1С: Предприятие Эффективное программирование, по 8 - М.Г. Радченко - Практическое пособие разработчика.

Ответ отправил: Макаров Сергей Львович (статус: 1-ый класс) Ответ отправлен: 11.12.2007, 08:40

Вопрос № 113.217

Ребята, подскажите! Есть документ, у него есть подчиненный документ. Нужно сделать так, чтоб выбирая данный документ, у него в строке состояния сообщалось название подчиненного документа. Приложение: Функция НайтиКорень(Док) КореньДок = 0; ВД = Док.Вид(); Для Н = 1 По Метаданные.Документ(ВД).РеквизитШапки() Цикл РеквДок = Док.ПолучитьАтрибут(Метаданные.Документ(ВД).РеквизитШапки(Н)); Если ТипЗначенияСтр(РеквДок) = "Документ" Тогда Если РеквДок.Выбран() = 1 Тогда КореньДок = РеквДок; Прервать; КонецЕсли; КонецЕсли; КонецЦикла; Если ПустоеЗначение(КореньДок) = 1 Тогда Возврат Док; Иначе Возврат НайтиКорень(КореньДок); КонецЕсли; КонецФункции Процедура Сформировать() Если Докум.Выбран()=1 Тогда КореньДок=НайтиКорень(Докум); ДокПодч=СоздатьОбъект("Документ"); ДокПодч.ВыбратьПодчиненныеДокументы(,,КореньДок); Пока ДокПодч.ПолучитьДокумент()=1 Цикл Сообщить(ДокПодч); КонецЦикла; КонецЕсли; КонецПРоцедуры;

Отправлен: 10.12.2007, 13:35 Вопрос задала: sunny0209 (статус: Посетитель) Всего ответов: 1 Мини-форум вопроса >>> (сообщений: 5)

Отвечает: Сергей Максименко [Elric] Здравствуйте, sunny0209! Чтобы решить Вашу задачу, достаточно того модуля, что у меня в Приложении. А Ваш код решает совсем другую задачу, и есть подозрение что неправильно :) Если Вам все же интересно добраться до самого "корневого" документа и вывести именно его подчиненные документы, то я в мини-форуме потом скажу, как это сделать правильно. Это если надо... P.S. У меня в коде сообщается не в строке состояния, а функцией Сообщить() (так же, как у Вас). Если нужно в строке состояния, то это функция Состояние(""+ДокПодч). Если просто Состояние(ДокПодч), то получите абракадабру. Приложение: Процедура Сформировать() Если Докум.Выбран()=1 Тогда ДокПодч=СоздатьОбъект("Документ"); ДокПодч.ВыбратьПодчиненныеДокументы(,,Докум); Пока ДокПодч.ПолучитьДокумент()=1 Цикл Сообщить(ДокПодч); КонецЦикла; КонецЕсли; КонецПРоцедуры; --------- В творчестве рождается истина

Ответ отправил: Сергей Максименко [Elric] (статус: Профессионал) Украина, Киев Тел.: (044) 22-88-369 Организация: "МАКСЕР" - продажа и внедрение "1С:Предприятие" Адрес: г. Киев WWW: "1С:Предприятие" - продажа, внедрение, сопровождение ---- Ответ отправлен: 10.12.2007, 14:50 Оценка за ответ: 4 Комментарий оценки: Спасибо, но дело в том, что программа ругается на строчку ДокПодч.ВыбратьПодчиненныеДокументы(,,КореньДок), говорит, сто документ не выбран. И, кстати,если без функции, то КореньДок будет не определена

Вопрос № 113.230

Здравствуйте! 1С 7.7 Код в приложении. Почему БухИтоги.КО(3) возвращает 0? В оборотно-сальдовой ведомости есть количественный оборот. Сумму возвращает правильно. В чем ошибка? Приложение: БухИтоги=СоздатьОбъект("БухгалтерскиеИтоги"); БухИтоги.ИспользоватьРазделительУчета(ЮрЛицо); БухИтоги.ИспользоватьСубконто(ВидыСубконто.МестаХранения,Склад); БухИтоги.ИспользоватьСубконто(ВидыСубконто.Материалы,СпрМатериал.ТекущийЭлемент()); БухИтоги.ВыполнитьЗапрос(НачМесяца(ДатаДок),КонМесяца(ДатаДок),"10.3",,,,"Месяц"); БухИтоги.ПолучитьПериод(); Сумма=БухИтоги.КО(1); Количество=БухИтоги.КО(3);

Отправлен: 10.12.2007, 14:29 Вопрос задал: Munster (статус: 8-ой класс) Всего ответов: 2 Мини-форум вопроса >>> (сообщений: 2)

Отвечает: Сергей Максименко [Elric] Здравствуйте, Munster! Во-первых, проверьте аналитику отбора (и ЮрЛицо), чтобы точно отбирали по тому по ком надо. Во-вторых, перед тем как получать периоды, их надо сначала выбрать (т.е. методом ВыбратьПериоды() формируем выборку, а затем методом ПолучитьПериод получаем последовательный доступ к выбранным периодам, т.е. один за одним). Учитывая, что Вы делаете запрос всего за один месяц, Вам вообще нет смысла делать дополнительную детализацию по периодам. Сделайте программный код таким, как у меня в Приложении, и все бедет работать. Приложение: БухИтоги=СоздатьОбъект("БухгалтерскиеИтоги"); БухИтоги.ИспользоватьРазделительУчета(ЮрЛицо); БухИтоги.ИспользоватьСубконто(ВидыСубконто.МестаХранения,Склад); БухИтоги.ИспользоватьСубконто(ВидыСубконто.Материалы,СпрМатериал.ТекущийЭлемент()); БухИтоги.ВыполнитьЗапрос(НачМесяца(ДатаДок),КонМесяца(ДатаДок),"10.3"); Сумма=БухИтоги.КО(1); Количество=БухИтоги.КО(3); --------- В творчестве рождается истина

Ответ отправил: Сергей Максименко [Elric] (статус: Профессионал) Украина, Киев Тел.: (044) 22-88-369 Организация: "МАКСЕР" - продажа и внедрение "1С:Предприятие" Адрес: г. Киев WWW: "1С:Предприятие" - продажа, внедрение, сопровождение ---- Ответ отправлен: 10.12.2007, 15:14 Оценка за ответ: 5 Комментарий оценки: Спасибо за ответ, но заработало так: БухИтоги.ИспользоватьСубконто(ВидыСубконто.МестаХранения,Склад,2,0); БухИтоги.ИспользоватьСубконто(ВидыСубконто.Материалы,СпрМатериал.ТекущийЭлемент(),2,0);

Отвечает: Шахрайчук Владимир Анатольевич Здравствуйте, Munster! Чтобы не смешались в кучу тонны и литры БИ(1) всегда отдает сумму, а БИ(3) отдает количество только когда сделана комманда Если БухИТоги.ПолучитьСубконто(1,,Склад)=1

Ответ отправил: Шахрайчук Владимир Анатольевич (статус: Практикант) Ответ отправлен: 11.12.2007, 19:29 Оценка за ответ: 5 Комментарий оценки: Спасибо

Вопрос № 113.260

Ребята, выручайте! Была база, и я по ошибке загрузила в нее данные из другой базы, получается данные заместились. Можно восстановить предыдущие данные?

Отправлен: 10.12.2007, 17:46 Вопрос задала: sunny0209 (статус: Посетитель) Всего ответов: 5 Мини-форум вопроса >>> (сообщений: 1)

Отвечает: Крюков Р.А. Здравствуйте, sunny0209! К сожалению вы совершили большую ошибку. Возможно востановление из резервной копии (если таковая есть). Можно попробовать откатить WinXP. Посмотреть вкладку "востановление системы" в "свойствах" "мой компьютер". для возможности отката диск на котором лежит база должен находится под наблюдением, если таковое имеется тогда совершить возврат к ближайшей контрольной точке через "Пуск->Программы->Стандартные->Служебные->Востановление системы" --------- Отвечаю только на вопросы в тему.

Ответ отправил: Крюков Р.А. (статус: 2-ой класс) Ответ отправлен: 10.12.2007, 18:02

Отвечает: Сергей Максименко [Elric] Здравствуйте, sunny0209! Средствами 1С вернуть информацию нельзя. Информация уже удалена. Именно поэтому там было столько предупреждений, которые вы пропустили "на автомате". --------- В творчестве рождается истина

Ответ отправил: Сергей Максименко [Elric] (статус: Профессионал) Украина, Киев Тел.: (044) 22-88-369 Организация: "МАКСЕР" - продажа и внедрение "1С:Предприятие" Адрес: г. Киев WWW: "1С:Предприятие" - продажа, внедрение, сопровождение ---- Ответ отправлен: 10.12.2007, 18:08

Отвечает: 4ToN Здравствуйте, sunny0209! Есть только 2 способа: Способ 1 - восстановить базу из архивной копии Способ 2 - использовать утилиту восстановления удаленных файлов

Ответ отправил: 4ToN (статус: 2-ой класс) Ответ отправлен: 10.12.2007, 18:23

Отвечает: Dervish Здравствуйте, sunny0209! Все данные можно востановить только из копии.

Ответ отправил: Dervish (статус: 1-ый класс) Ответ отправлен: 11.12.2007, 10:10 Оценка за ответ: 5 Комментарий оценки: спасибо:( но ее нет...

Отвечает: Астафьев Александр Николаевич Здравствуйте, sunny0209! Если вам нужны только отчеты, как вы пишете, то распакуйте 1cv7.MD файл из даже не очень новой архивной копии и загрузите в вашу базу. Структура программы восстановится и отчеты появятся. На будующее перед ЛЮБЫМИ изменениями базы через конфигуратор делайте архивную копию даже если вы на 500% уверены что все делаете правильно.

Ответ отправил: Астафьев Александр Николаевич (статус: 8-ой класс) Ответ отправлен: 11.12.2007, 16:52

© 2001-2007, Портал RusFAQ.ru, Россия, Москва. Авторское право: ООО "Мастер-Эксперт Про" Техподдержка портала, тел.: +7 (926) 535-23-31 Хостинг: "Московский хостер" Поддержка: "Московский дизайнер" Авторские права | Реклама на портале Версия системы: 4.65 от 04.12.2007
RusFAQ.ru | MosHoster.ru | MosDesigner.ru | RusIRC.ru Kalashnikoff.ru | RadioLeader.ru | RusFUCK.ru