Новые книги
Бизнес-процессы. Как их описать, отладить и внедрить. Практикум
Эта книга описывает простую и надежную технологию работы с бизнес-процессами: их описание, отладку, внедрение и дальнейшее совершенствование. Система создана в ходе работы с сотнями компаний России и русскоязычного пространства – самых разных отраслей: от крупных холдингов до среднего и малого бизнеса. В том числе в проектно-ориентированных сферах: девелопменте, строительстве, системной интеграции и пр. Результаты применения – далее.

Конкретные инструменты: без воды и заумностей. Живо и увлекательно. Честно и искренне.

Перед вами – пошаговое руководство, которое позволит навести порядок в процессах вашего бизнеса. Так, чтобы он:

• приносил хорошую прибыль

• стабильно работал

• стал более конкурентоспособным и устойчивым к кризисам

• развивался на энергии всей команды, а не только шефа

• не зависел от самомнения «звезд» и разгильдяйства сотрудников

• требовал от владельца минимального контроля.

Наш подход позволяет сделать бизнес технологичным «механизмом», и при этом – живым саморазвивающимся «организмом». Который приносит радость собственнику, сотрудникам, клиентам и партнерам.

Книга предназначена для владельцев бизнеса и топ-менеджеров. Также она будет полезна бизнес-консультантам, тренерам, коучам, психологам и т. д.

Автор продолжает и углубляет темы, которые поднял Майкл Хаммер в известных работах по реинжинирингу. Пересматривает подход к улучшению процессов и их внедрению.
Просто копирайтинг
Что объединяет многочисленные интернет-магазины, тематические группы в социальных сетях, веб-сайты коммерческих предприятий и информационные порталы? Наличие контента, который создают копирайтеры, – специалисты по разработке текстов.

Эта увлекательная профессия таит в себе множество секретов, которыми охотно делится с читателями автор сорока книг и более четырех сотен публикаций в печатных изданиях, профессиональный копирайтер и коммерческий писатель Валентин Холмогоров.

Все права защищены. Никакая часть настоящей книги не может быть воспроизведена или передана в какой бы то ни было форме и какими бы то ни было средствами, будь то электронные или механические, включая фотокопирование и запись на магнитный носитель, а также размещение в Интернете, если на то нет письменного разрешения владельцев.

Пример простейшей программы
Версия для печати

Пример простейшей программы

database zawod
MAIN
  MENU "Главное меню"
    command key("w") "Ввод" "Ввод учетных данных"
      call wwod()
    command key("p") "Просмотр" "Просмотр таблицы kadry"
      call prosmotr()
    command "одиночный просмотр" "Поиск по табельному номеру"
      call odin_prosmotr()
    command "Kонец"
      clear screen
      exit program
  end menu
END MAIN
FUNCTION wwod()
  define c char(1) , zapisx record like kadry.*
    #           -DЭто объявление эквивалентно такому:-E
    # DEFINE zapisx RECORD
    #   nomerceh  INT,          # номер цеха
    #   tabnom    INT,          # табельный номер
    #   fio       CHAR(20),     # фамилия
    #   dolvn     CHAR(20),     # должность
    #   zarplata  MONEY(16,2),  # зарплата
    #   datarovd  DATE          # дата рождения
    # END RECORD
  OPEN WINDOW  wwod  AT 4,20 WITH FORM  "kadry"  attribute(border)
  MESSAGE "Введите учетные данные, и нажмите ESC" attribute (reverse)
  let c="Y"
    WHILE c NOT MATCHES "[nNНн]" or c is NULL   # В цикле
    INPUT by name zapisx.*              # -DВвести данные через экранную форму-E
    DISPLAY "Принято"    AT 1 , 1
    let   zapisx.tabnom=0
    INSERT INTO kadry values (zapisx.*) # -DВставить строку в таблицу kadry-E
    display   SQLCA.SQLERRD[2] to tabnom# -DКакой номер получил serial столбец ?-E
    prompt "Принято.  Вводить следующего (Да/Нет)?" for char c
    END WHILE
  CLOSE WINDOW WWOD                     # -DЛиквидируем окошко-E
END FUNCTION
FUNCTION prosmotr()
  define zapisx record like kadry.* , c char
  open window prosmotr  at 4,34 with form  "kadry" attribute(border)
  declare prosmotr cursor for select * from kadry order by nomerceh, tabnom
    FOREACH prosmotr INTO zapisx.*              # -DВ цикле для каждой строки-E
    DISPLAY BY NAME zapisx.*                    # -DВывели ее на экран-E
    prompt "Показывать следующего (Да/Нет)? " for char c
    IF c matches "[НнNn]" then exit foreach END IF # -DЕсли Нет то конец -E
    END foreach
  close window prosmotr         #       -DЛиквидируем окошко-E
END FUNCTION
FUNCTION odin_prosmotr()
  define zapisx record like kadry.* , nomer int
  open window odin_prosmotr  at 4,4 with form  "kadry" attribute(border)
    WHILE 1=1                                   # -DВ цикле-E
    prompt "Какой табельный номер показать: " attribute (reverse)
         for nomer  attribute (underline)
    IF nomer IS NULL THEN exit while END IF     # -DЕсли не ввел то конец-E
    SELECT * INTO zapisx.*
             FROM kadry WHERE nomer=tabnom      # -DЧитаем строчку-E
      if status = NOTFOUND then
        error "Нет таких" attribute (reverse)   # -DЕсли не нашлось то-E
        continue while                          #  -Dперейти на начало цикла-E
        end if
    DISPLAY BY NAME zapisx.*                    # -DВывести ее на экран-E
    END WHILE
  close window odin_prosmotr         #       -DЛиквидируем окошко-E
END FUNCTION

Назад || Оглавление || Вперед