Покупая Sun, платили для подмятие конкурента MySQL и получение прав на Java. Все остальное — мусор, который им нафиг не нужен и от которого в последнее время успешно избавляются.
Разработка и наполнение сайта от той же студии Лебедева будет стоить все те же 1-2 миллиона рублей. А ведь люди еще и видео-материалы снимали и подготавливали.
Как-то все слишком усложнили тут. Вот простая схема:
— список сотрудников;
— список перемещений (прием, перевод, увольнение) с датой документа.
Всё. На основе этих сведений можно делать любые запросы и отчеты. Этот вариант в начале статьи предлагается как слишком затратный и т.п. Как раз для этих случаев и используется «регистр сведений» (аналог из 1С), где хранится актуальная информация по сотрудниках на текущий момент времени.
Практически все из этого списка можно — решается подключением соответствующих модулей и дополнений от производителя. В т.ч. отлично работает интеграция с разным промышленным оборудованием — 3D-принтеры, станки с ЧПУ и т.п. И да, среди всего этого по возможности используются стандарты в соответствующих сферах.
Я уже сказал — мы не монополия, не военка, а обычное промышленное предприятие (и в своей среде знаю множество других предприятий где такое же или похожее ПО активно используется/внедряется). Тема корпоративного и промышленного ПО огромна — есть даже свои майкрософт, гугл и яху.
Видите ли в чем дело — просто об этом очень мало пишут в интернете, даже за рубежом Это не интересно обычным пользователям. А для специалистов есть множество форумов, конференций и семинаров.
Вы не поверите, но в некоторых странах даже запрещено продавать определенное ПО другим государствам ввиду ноу-хау и слишком крутых технологий.
Ах да, подобное программное обеспечение необходимо. Всем необходимо. Очень. Эра карандаша, бумаги и калькулятора закончилась еще в прошлом веке.
Нет, не только. Клиенты — по всему миру. И приходится бороться со множеством конкурентов. Никаких монополий.
У вас слишком предвзятое мнение о своей родине, и в частности, о ее состоянии. Постарайтесь меньше слушать «интернет-журналистов». Еще не все у нас потеряно ;-)
У «нас», на одном из крупных предприятий, активно используется Catia V5 и уже начинают изучать возможности V6. Всякие сложные и большие штуки проектируем, производим и собираем.
Из-за КАКОГО кода? Который соответствует стандартам оформления? Кто же виноват, что хабр вырезает свои же теги для пользователей с отрицательной кармой.
В чем именно заключается издевка? Была задача — было представлено ее работающее решение на языке Delphi. Такое же, как и на всяких haskel, php и c# выше.
Почти всегда в приложениях для входящих операций ставлю стрелку вниз. Исключения со стрелками вправо-влево бывают, но тогда помимо направления еще отображает и сам «объект», куда или откуда эта стрелка ведет.
— список сотрудников;
— список перемещений (прием, перевод, увольнение) с датой документа.
Всё. На основе этих сведений можно делать любые запросы и отчеты. Этот вариант в начале статьи предлагается как слишком затратный и т.п. Как раз для этих случаев и используется «регистр сведений» (аналог из 1С), где хранится актуальная информация по сотрудниках на текущий момент времени.
Видите ли в чем дело — просто об этом очень мало пишут в интернете, даже за рубежом Это не интересно обычным пользователям. А для специалистов есть множество форумов, конференций и семинаров.
Вы не поверите, но в некоторых странах даже запрещено продавать определенное ПО другим государствам ввиду ноу-хау и слишком крутых технологий.
Ах да, подобное программное обеспечение необходимо. Всем необходимо. Очень. Эра карандаша, бумаги и калькулятора закончилась еще в прошлом веке.
У вас слишком предвзятое мнение о своей родине, и в частности, о ее состоянии. Постарайтесь меньше слушать «интернет-журналистов». Еще не все у нас потеряно ;-)
office.microsoft.com/en-us/office-labs/
function IsHaveDigit(str: string): Boolean;
var
StrLength: Integer;
I: Integer;
begin
StrLength := Length(str);
if StrLength > 0 then
begin
for I := 1 to StrLength do
begin
if str[I] in ['0'..'9'] then
begin
Result := True;
Exit;
end;
end;
end;
Result := False;
end;