НГС.Форум /Компьютеры Интернет Связь / Программирование /

А не освоить ли 1С ?

Печать RSS Деревом

ХочуСпросить
ЗооПрограммист
Сообщений: 25105
04.11.12 13:34Ответ на сообщение Re: А не освоить ли 1С ? пользователя ink
В ответ на: Не за копейки 1С их скупает.
А ты цифры-то знаешь? Я знаю. Поверь - за копейки и на кабальных условиях.

В ответ на: Никогда не поддерживал людей, кто говорит о том какие плохие типовые продукты Фирмы 1С.
Да не поддерживай, я ж не заставляю.
Свое мнение я озвучил - говнокода в типовых - вагон и маленькая тележка. "Студенты" их пишут.
КопироватьСсылка
Рассказать друзьям
ХочуСпросить
ЗооПрограммист
Сообщений: 25105
04.11.12 13:37Ответ на сообщение А не освоить ли 1С ? пользователя Izraya
В ответ на: не так уж много недоработок в 1С, и детских ошибок из релиза в релиз точно нет
Ты с точки зрения программиста рассуждаешь?
Хотя да... В типовой семерочной бухии в модуле проведения Предупреждение() - совсем не детская ошибка... А так, мина, которая базу раком поставит...
Повторяющиеся один в один во многих местах куски кода - тоже совсем не детская ошибка. А просто показатель раздолбайского отношения к написанию кода.
Можно долго перечислять.
Разумеется, сами тоже далеко не без греха. Но, извините, согласиться с тем, что код от 1С - образец для подражания... Уж увольте...
КопироватьСсылка
Рассказать друзьям
ХочуСпросить
ЗооПрограммист
Сообщений: 25105
04.11.12 13:46Ответ на сообщение Re: А не освоить ли 1С ? пользователя ХочуСпросить
Что-то прям подзавелся я...
Что бы не быть голословным. Вот кусочек кода из типового отчета ОборотноСальдоваяВедомостьПоСчету:

Показать скрытый текст
//-----------------------------------------------
Процедура ПриВыбореСубконто1()
Если ПустоеЗначение(Субконто1) = 0 Тогда
Если ТипЗначения(Субконто1) = 11 Тогда //Справочник
Если Субконто1.ЭтоГруппа() = 1 Тогда
ОтборСубконто1.ТекущаяСтрока(1);
Иначе
ОтборСубконто1.ТекущаяСтрока(2);
КонецЕсли;
Иначе
ОтборСубконто1.ТекущаяСтрока(2);
КонецЕсли;
Иначе
ОтборСубконто1.ТекущаяСтрока(1);
КонецЕсли;
КонецПроцедуры

//-----------------------------------------------
Процедура ПриВыбореСубконто2()
Если ПустоеЗначение(Субконто2) = 0 Тогда
Если ТипЗначения(Субконто2) = 11 Тогда //Справочник
Если Субконто2.ЭтоГруппа() = 1 Тогда
ОтборСубконто2.ТекущаяСтрока(1);
Иначе
ОтборСубконто2.ТекущаяСтрока(2);
КонецЕсли;
Иначе
ОтборСубконто2.ТекущаяСтрока(2);
КонецЕсли;
Иначе
ОтборСубконто2.ТекущаяСтрока(1);
КонецЕсли;
КонецПроцедуры

//-----------------------------------------------
Процедура ПриВыбореСубконто3()
Если ПустоеЗначение(Субконто3) = 0 Тогда
Если ТипЗначения(Субконто3) = 11 Тогда //Справочник
Если Субконто3.ЭтоГруппа() = 1 Тогда
ОтборСубконто3.ТекущаяСтрока(1);
Иначе
ОтборСубконто3.ТекущаяСтрока(2);
КонецЕсли;
Иначе
ОтборСубконто3.ТекущаяСтрока(2);
КонецЕсли;
Иначе
ОтборСубконто3.ТекущаяСтрока(1);
КонецЕсли;
КонецПроцедуры
Скрыть текст

Что это за бред? Они параметры в процедуры передавать не умеют? Им что мешало хотя бы вот так сделать (не вдаваясь в логику, просто само написание кода и дальнейшее его понимание, тем, кто это сопровождать будет)?

Показать скрытый текст
Процедура ПриВыбореСубконто(_Субконто, _ОтборСубконто)
Если ПустоеЗначение(_Субконто) = 0 Тогда
Если ТипЗначения(_Субконто) = 11 Тогда //Справочник
Если _Субконто.ЭтоГруппа() = 1 Тогда
_ОтборСубконто.ТекущаяСтрока(1);
Иначе
_ОтборСубконто.ТекущаяСтрока(2);
КонецЕсли;
Иначе
_ОтборСубконто.ТекущаяСтрока(2);
КонецЕсли;
Иначе
_ОтборСубконто.ТекущаяСтрока(1);
КонецЕсли;
КонецПроцедуры
Скрыть текст

Поиск по ПриВыбореСубконто1() дает 7 вхождений.
5 (!!!) из них (тексты процедур) совпадают до буквы.

Будем дальше хвалить типовые или посмотрим правде в глаза?
КопироватьСсылка
Рассказать друзьям
АФМ
guru
Сообщений: 2736
04.11.12 14:43Ответ на сообщение Re: А не освоить ли 1С ? пользователя craxx
п.9
Да есть!!!! Согласен.
Но в карточке товара нет намека даже на коэффициенты.
Или у меня просто одни праздники опять на уме!!!!
Исправлено пользователем Pan Inspector (04.11.12 15:00)
КопироватьСсылка
Рассказать друзьям
Pan Inspector
улыбака
Сообщений: 53714
04.11.12 15:02Ответ на сообщение Re: А не освоить ли 1С ? пользователя ХочуСпросить
мдя, уж на что я не программер (последний раз на дипломе писал программу на С++) и то выглядит дикостью.
"Жизнь не война и не борьба. Жизнь - это дарованная тебе возможность любить людей" (С)
КопироватьСсылка
Рассказать друзьям

НГС.Форум /Компьютеры Интернет Связь / Программирование /

Перейти в форум

открыть в новом окне

Модератор:

flopic