Создание структуры предприятия

Структуру предприятия можно создать из любого текстового файла со списочным составом сотрудников. Например - из телефонного справочника...

Подготовка
Итак, в Вашем распоряжении есть телефонный справочник - например в виде Excell-овского файла примерно такого вида :

Столбец А - "Логин" может и отсутствовать, а столбец С - "Тел." нам в Sklad'е вообще не нужен.. Ну, если только для справок..
Сразу же добавьте вверх справочника строку(отдел) "Неоприходованная техника", на примере -перед отделом "Дирекция".

BASE\struct
Первый шаг - на новом листе обьеденим нужные нам данные в одну строку с помощью ф-ии "СЦЕПИТЬ".
Замечание. Здесь и далее я использую условие : ЕслиПУСТО в ячейке "тел." - то это не сотрудник, а отдел(подразделение).
Функция для ячейки Лист2!А1 :

=ЕСЛИ(ЕПУСТО(Лист1!$C2);Лист1!$B2;"")

Функция для ячейки Лист2!B1 :

=ЕСЛИ(ЕПУСТО(Лист1!$C2);"";СЦЕПИТЬ(Лист1!$A2;" ";Лист1!$B2;" тел.";Лист1!$C2))

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

Файл - Сохранить как - Текстовые файлы (с разделителем табуляции) *.txt, имя файла - struct. Скопируйте полученный файл struct.txt в BASE\struct. (без расширения).

BASE\image
Второй шаг. Очищаем Лист2 он же struct ( Ctrl+A затем DEL).
Функция для ячейки struct!А1 :

=ЕСЛИ(ЕПУСТО(Лист1!$C2);"1";"2")

Функция для ячейки struct!B1 :

=СЦЕПИТЬ(Лист1!$A2;" ";Лист1!$B2;" тел.";Лист1!$C2)

Размножьте функции на необходимое кол-во строк.

В ячейку С1 напишите число 1000 и, удерживая Ctrl, размножьте с приращением на то же число строк.
В итоге получаем :

Переходим на Лист 3, Функция для ячейки Лист3!А1 :

=СЦЕПИТЬ(struct!$A1;" ; AAAABBBB";struct!$C1;" ; ";struct!$B1)

Размножаем, получаем :

Файл - Сохранить как - Текстовые файлы (с разделителем табуляции) *.txt, имя файла - image. Скопируйте полученный файл image.txt в BASE\image. (без расширения).
Все, Excell более не нужен, закрываем без сохранения.

Окончание
Откройте полученные файлы BASE\struct и BASE\image поочередно с помощью программы Notepad.exe ("Блокнот") и выполните
Правка - Заменить.. - Что : "(кавычки) - Чем : (ничем,пусто) - Заменить все.

Сохраните файлы и запустите Sklad_2.exe :

Текст правьте по нажатию клавиши F2,сохраняйте по Ctrl+S.
Перемещение элементов дерева структуры описано здесь, распределение компьютеров по пользователям описано здесь.



Home | CheckCfg | Doberman | Sklad 

 

Hosted by uCoz
Hosted by uCoz