раскрыть ветку (14)
Функция ВыдатьПивоОдинэсникуРекурсивно(Одинэсник,ЯщикПива)
Бутылка=ЯщикПива.Выгрузить();
Одинэсник.Пиво.Поглотить=Бутылка;
Если НЕ Одинесник.Удовлетворен Тогда
ВыдатьПивоОдинэсникуРекурсивно(Одинэсник,ЯщикПива);
КонецЕсли;
КонецФункции;
Бутылка=ЯщикПива.Выгрузить();
Одинэсник.Пиво.Поглотить=Бутылка;
Если НЕ Одинесник.Удовлетворен Тогда
ВыдатьПивоОдинэсникуРекурсивно(Одинэсник,ЯщикПива);
КонецЕсли;
КонецФункции;
раскрыть ветку (12)
раскрыть ветку (11)
раскрыть ветку (9)
Есть еще простой вариант:
Попытка
Одинэсник.ЗаполнитьПузоОдинэсника(ЯщикПива);
Исключение
Сообщить("Не рассчитал сил!");
КонецПопытки;
Попытка
Одинэсник.ЗаполнитьПузоОдинэсника(ЯщикПива);
Исключение
Сообщить("Не рассчитал сил!");
КонецПопытки;
раскрыть ветку (2)
присвоение не проканает т.к. оно не сможет изменить значение флага "Удовлетворен". Да и вообще это не красивый стиль с точки зрения ООП... которого здесь нет :(
Кроме того при компиляции будет ошибка т.к. не определено значение возврата - можно заменить на процедуру.
И в конце концов, точка с запятой после КонецФункции это стиль злобного дятла.
Кроме того при компиляции будет ошибка т.к. не определено значение возврата - можно заменить на процедуру.
И в конце концов, точка с запятой после КонецФункции это стиль злобного дятла.
раскрыть ветку (5)
И в конце концов, стиль злобного дятла- так реагировать на шуточные "функции" :)
Было бы желание покодить на результат- я бы не стал этого делать на пикабу и уж точно не на 1С)
И еще, для справки: функции не обязательно возвращать значение и ошибки при "компиляции" (в 1С интерпретатор) не будет :)
Поэтому, давайте не воспринимать этого всего всерьез.
Было бы желание покодить на результат- я бы не стал этого делать на пикабу и уж точно не на 1С)
И еще, для справки: функции не обязательно возвращать значение и ошибки при "компиляции" (в 1С интерпретатор) не будет :)
Поэтому, давайте не воспринимать этого всего всерьез.
раскрыть ветку (4)
извиняюсь если задел. Это все дурное влияние 1с.
Ваша правда - ошибка возникнет при попытке обращения как к функции, а не при сборке.
Ваша правда - ошибка возникнет при попытке обращения как к функции, а не при сборке.
раскрыть ветку (3)
Да всё в порядке :) Самого судьба раскорячила заниматься 1С.
Но дурное влияние больше не от 1С, а от нетиповых конфигураций.
Я тоже извиняюсь. Резковато ответил.
Но дурное влияние больше не от 1С, а от нетиповых конфигураций.
Я тоже извиняюсь. Резковато ответил.
раскрыть ветку (2)
уже пару лет не работаю с типовыми. Сначала пришлось консультировать и допиливать под клиентов радости от Бит и рарус. А как ушел от этого дела так сижу и занимаюсь разработкой своего страшилища. Так что да: нетиповые - зло во плати, но зло необходимое.
Поработай с типовой 1С:Консолидацией - вот это типовое зло! Ранние релизы вообще глюко-баг один большой! :-)
Если идти то до конца
Пока (ЯщикПива.КоличествоБутылок != 0)
Одинэсник.Пиво.Поглотить(Бутылка);
ЯщикПива.КоличествоБутылок=ЯщикПива.КоличествоБутылок-1;
Если Одинэсник.Состояние = "Нестояние" Тогда
Одинесник.Состояние = "Спать"
КонецПока
Пока (ЯщикПива.КоличествоБутылок != 0)
Одинэсник.Пиво.Поглотить(Бутылка);
ЯщикПива.КоличествоБутылок=ЯщикПива.КоличествоБутылок-1;
Если Одинэсник.Состояние = "Нестояние" Тогда
Одинесник.Состояние = "Спать"
КонецПока
Ну ок.
Твои десятки внешних обработок в КаталогИБ()+"ExtForms\" не делают нихера.
Теперь тебе тоже везёт :-) Не за что.
Твои десятки внешних обработок в КаталогИБ()+"ExtForms\" не делают нихера.
Теперь тебе тоже везёт :-) Не за что.