Имя: Пароль:
1C
 
1С мини-библиотека
0 Buka2505
 
25.12.21
07:20
Помогите, есть пример системы учета для библиотеки на платформе 1С v 7.7, необходимо создать такую же только на v 8.3
Не получается провести документы: выдача, продление и возврат книги.

ПРИМЕР Документ: Выдача книги

Процедура ОбработкаПроведения()
СпрКниги = СоздатьОбъект("Справочник.Книги");
ВыбратьСтроки();
Пока ПолучитьСтроку()=1 Цикл
СпрКниги.НайтиЭлемент(Книга);
СпрКниги.Статус = Перечисления.СтатусКниги.Выдана;
СпрКниги.Читатель = Читатель;
СпрКниги.Дата = Дата;
СпрКниги.ДатаВозврата = ДатаВозврата;
СпрКниги.Записать();
КонецЦикла;
КонецПроцедуры

{Документ.ВыдачаКниг.МодульОбъекта(2,12)}: Процедура или функция с указанным именем не определена (СоздатьОбъект)
СпрКниги = <<?>>СоздатьОбъект("Справочник.Книги"); (Проверка: Сервер)
{Документ.ВыдачаКниг.МодульОбъекта(3,1)}: Процедура или функция с указанным именем не определена (ВыбратьСтроки)
<<?>>ВыбратьСтроки(); (Проверка: Сервер)
{Документ.ВыдачаКниг.МодульОбъекта(4,6)}: Процедура или функция с указанным именем не определена (ПолучитьСтроку)
Пока <<?>>ПолучитьСтроку()=1 Цикл (Проверка: Сервер)
1 aka MIK
 
25.12.21
07:22
Вроде ж по русски написано сообщение об ошибке
2 Buka2505
 
25.12.21
07:25
Я знаю что вместо Создать объект нужно  писать Новый
а чем заменить другие функции?
3 acanta
 
25.12.21
07:26
Этотобьект.выбратьстроки()
4 acanta
 
25.12.21
07:28
Не, этатабчасть.выбратьстроки()
5 hhhh
 
25.12.21
08:04
(2) так не получится, у восьмерки немного другая концепция, поэтому идти вот так построчно, меняя строку в семерке, на такую же в восьмерке не получится.

и в восьмерке всё будет покороче, чем в семерке, там более простой язык. Например

ВыбратьСтроки();
Пока ПолучитьСтроку()=1 Цикл

это будет одна строка

Для Каждого СтрТЧ Из ТЧ Цикл


СоздатьОбъект там нет, эту строчку надо просто выкинуть, а не заменять на Новый.
6 pechkin
 
25.12.21
09:10
(7) решил что код 1в1 на 8 заработает?
7 pechkin
 
25.12.21
09:11
Был же какой то учебник по переходу на 8