3ERP

3ERP - простая и бесплатная программа для бухгалтерского и оперативного учёта в учреждениях сферы торговли и услуг, общественного питания, складского хранения, автосервиса, медицины, логистики, производства, управления работами и заявками, поддерживающая до 100 пользователей, на русском языке и полностью бесплатная для 1 пользователя. На сайт (скачать)

Таксопарк (управление автомобилями и водителями)

# ============================================
# 3ERP: УПРАВЛЕНИЕ ТАКСОПАРКОМ
# ============================================
РОЛЬ Администратор
    ДОСТУП Организации ПОЛНЫЙ
    ДОСТУП Водители ПОЛНЫЙ
    ДОСТУП Автомобили ПОЛНЫЙ
    ДОСТУП ПутевыеЛисты ПОЛНЫЙ
    ДОСТУП ЗаказыТакси ПОЛНЫЙ
    ДОСТУП Ремонты ПОЛНЫЙ
    ДОСТУП Расходы ПОЛНЫЙ
    ДОСТУП ВыручкаВодителей ПОЛНЫЙ
    ДОСТУП Проводки ПОЛНЫЙ
КОНЕЦ_РОЛИ
РОЛЬ Диспетчер
    ДОСТУП Водители ЧТЕНИЕ
    ДОСТУП Автомобили ЧТЕНИЕ
    ДОСТУП ЗаказыТакси ЧТЕНИЕ, ДОБАВЛЕНИЕ, ИЗМЕНЕНИЕ, ПРОВЕДЕНИЕ
    ДОСТУП ПутевыеЛисты ЧТЕНИЕ
    ОГРАНИЧЕНИЕ_ДОСТУПА ЗаказыТакси ГДЕ Диспетчер = ТЕКУЩИЙПОЛЬЗОВАТЕЛЬ()
КОНЕЦ_РОЛИ
РОЛЬ ВодительРоль
    ДОСТУП ЗаказыТакси ЧТЕНИЕ, ИЗМЕНЕНИЕ
    ДОСТУП ПутевыеЛисты ЧТЕНИЕ
    ОГРАНИЧЕНИЕ_ДОСТУПА ЗаказыТакси ГДЕ Водитель = ТЕКУЩИЙПОЛЬЗОВАТЕЛЬ()
    ОГРАНИЧЕНИЕ_ДОСТУПА ПутевыеЛисты ГДЕ Водитель = ТЕКУЩИЙПОЛЬЗОВАТЕЛЬ()
КОНЕЦ_РОЛИ
ПОЛЬЗОВАТЕЛЬ admin
    ПАРОЛЬ "admin"
    ПОЛНОЕ_ИМЯ "Администратор"
    РОЛЬ Администратор
КОНЕЦ_ПОЛЬЗОВАТЕЛЯ
ПОЛЬЗОВАТЕЛЬ dispatcher
    ПАРОЛЬ "123"
    ПОЛНОЕ_ИМЯ "Смирнова О.А."
    РОЛЬ Диспетчер
КОНЕЦ_ПОЛЬЗОВАТЕЛЯ
ПОЛЬЗОВАТЕЛЬ driver1
    ПАРОЛЬ "123"
    ПОЛНОЕ_ИМЯ "Соколов А.А."
    РОЛЬ ВодительРоль
КОНЕЦ_ПОЛЬЗОВАТЕЛЯ
НАСТРОЙКИ
    ПОЛЕ НазваниеСистемы СТРОКА ЗНАЧЕНИЕ_ПО_УМОЛЧАНИЮ "3ERP: Таксопарк"
    ПОЛЕ ТемаОформления СТРОКА ЗНАЧЕНИЕ_ПО_УМОЛЧАНИЮ "TaxiDark"
КОНЕЦ
КОЛЛЕКЦИЯ СистемныеКонстанты
    ПОЛЕ ОсновнаяОрганизация ВЫБОР Организации
    ПОЛЕ КомиссияТаксопаркаПроцент ЧИСЛО ЗНАЧЕНИЕ_ПО_УМОЛЧАНИЮ 15
    ПОЛЕ Логотип ФАЙЛ
КОНЕЦ
КОЛЛЕКЦИЯ Организации
    ПОЛЕ Наименование СТРОКА ОБЯЗАТЕЛЬНОЕ
    ПОЛЕ ИНН СТРОКА
    ПОЛЕ Лицензия СТРОКА
    КНОПКА "Записать" ЗАПИСАТЬ
КОНЕЦ
КОЛЛЕКЦИЯ Водители
    ПОЛЕ Наименование СТРОКА ОБЯЗАТЕЛЬНОЕ
    ПОЛЕ Телефон СТРОКА
    ПОЛЕ Паспорт СТРОКА
    ПОЛЕ ВодительскоеУдостоверение СТРОКА
    ПОЛЕ ПроцентОтВыручки ЧИСЛО ЗНАЧЕНИЕ_ПО_УМОЛЧАНИЮ 50
    ПОЛЕ Баланс ЧИСЛО ЗНАЧЕНИЕ_ПО_УМОЛЧАНИЮ 0
    КНОПКА "Записать" ЗАПИСАТЬ
КОНЕЦ
КОЛЛЕКЦИЯ Автомобили
    ПОЛЕ Наименование СТРОКА ОБЯЗАТЕЛЬНОЕ
    ПОЛЕ ГосНомер СТРОКА
    ПОЛЕ Марка СТРОКА
    ПОЛЕ Модель СТРОКА
    ПОЛЕ ГодВыпуска ЧИСЛО
    ПОЛЕ Водитель ВЫБОР Водители
    ПОЛЕ Статус СТРОКА ЗНАЧЕНИЕ_ПО_УМОЛЧАНИЮ "На линии"
    КНОПКА "Записать" ЗАПИСАТЬ
КОНЕЦ
КОЛЛЕКЦИЯ КлиентыТакси
    ПОЛЕ Наименование СТРОКА ОБЯЗАТЕЛЬНОЕ
    ПОЛЕ Телефон СТРОКА
    ПОЛЕ Email СТРОКА
    КНОПКА "Записать" ЗАПИСАТЬ
КОНЕЦ
ДОКУМЕНТ ЗаказыТакси
    АВТОНУМЕРАЦИЯ "ТАКСИ-{YYYY}-{0000}" ПОЛЕ Номер
    ПОЛЕ Номер СТРОКА
    ПОЛЕ Дата ДАТАВРЕМЯ ЗНАЧЕНИЕ_ПО_УМОЛЧАНИЮ ТЕКУЩАЯ_ДАТА_ВРЕМЯ
    ПОЛЕ Организация ВЫБОР Организации ОБЯЗАТЕЛЬНОЕ
    ПОЛЕ Клиент ВЫБОР КлиентыТакси
    ПОЛЕ ТелефонКлиента СТРОКА
    ПОЛЕ АдресПодачи СТРОКА ОБЯЗАТЕЛЬНОЕ
    ПОЛЕ АдресНазначения СТРОКА ОБЯЗАТЕЛЬНОЕ
    ПОЛЕ Водитель ВЫБОР Водители
    ПОЛЕ Автомобиль ВЫБОР Автомобили
    ПОЛЕ Диспетчер ВЫБОР Сотрудники
    ПОЛЕ СтоимостьПоездки ЧИСЛО
    ПОЛЕ КомиссияТаксопарка ЧИСЛО
    ПОЛЕ ЗаработокВодителя ЧИСЛО
    ПОЛЕ Статус СТРОКА ЗНАЧЕНИЕ_ПО_УМОЛЧАНИЮ "Новый"
    КНОПКА "Записать" ЗАПИСАТЬ
    КНОПКА "Провести и закрыть" ПРОВЕСТИ
    ЛОГИКА
        ПРИ СОЗДАНИИ
            ЗАПОЛНИТЬ data.Организация = Константы.ОсновнаяОрганизация
            ЗАПОЛНИТЬ data.Диспетчер = ТЕКУЩИЙПОЛЬЗОВАТЕЛЬ()
            ВЫЧИСЛИТЬ data.КомиссияТаксопарка = data.СтоимостьПоездки * (Константы.КомиссияТаксопаркаПроцент / 100)
            ВЫЧИСЛИТЬ data.ЗаработокВодителя = data.СтоимостьПоездки - data.КомиссияТаксопарка
        КОНЕЦ
        ПРИ ИЗМЕНЕНИИ СтоимостьПоездки
            ВЫЧИСЛИТЬ data.КомиссияТаксопарка = data.СтоимостьПоездки * (Константы.КомиссияТаксопаркаПроцент / 100)
            ВЫЧИСЛИТЬ data.ЗаработокВодителя = data.СтоимостьПоездки - data.КомиссияТаксопарка
        КОНЕЦ
        ПРИ ИЗМЕНЕНИИ Водитель
            ВЫЧИСЛИТЬ Авто = НАЙТИ("Автомобили", "Водитель = '" + data.Водитель + "'")
            ЕСЛИ НЕ ПУСТО(Авто) ТО
                ЗАПОЛНИТЬ data.Автомобиль = Авто.id
            КОНЕЦ
        КОНЕЦ
    КОНЕЦ
    ДВИЖЕНИЕ ВыручкаВодителей ПРИХОД ПОЛЯ Организация=Организация, Водитель=Водитель, Сумма=ЗаработокВодителя
    ДВИЖЕНИЕ Проводки ДЕБЕТ 62 КРЕДИТ 90 ПОЛЯ Сумма=СтоимостьПоездки
    ДВИЖЕНИЕ Проводки ДЕБЕТ 90 КРЕДИТ 76 ПОЛЯ Сумма=КомиссияТаксопарка, СубконтоДт1="Комиссия"
    ДВИЖЕНИЕ Проводки ДЕБЕТ 90 КРЕДИТ 70 ПОЛЯ Сумма=ЗаработокВодителя, СубконтоКт1=Водитель
КОНЕЦ
ДОКУМЕНТ ПутевыеЛисты
    АВТОНУМЕРАЦИЯ "ПЛ-{YYYY}-{0000}" ПОЛЕ Номер
    ПОЛЕ Номер СТРОКА
    ПОЛЕ Дата ДАТАВРЕМЯ ЗНАЧЕНИЕ_ПО_УМОЛЧАНИЮ ТЕКУЩАЯ_ДАТА_ВРЕМЯ
    ПОЛЕ Организация ВЫБОР Организации ОБЯЗАТЕЛЬНОЕ
    ПОЛЕ Водитель ВЫБОР Водители ОБЯЗАТЕЛЬНОЕ
    ПОЛЕ Автомобиль ВЫБОР Автомобили ОБЯЗАТЕЛЬНОЕ
    ПОЛЕ ПоказательОдометраНачало ЧИСЛО
    ПОЛЕ ПоказательОдометраКонец ЧИСЛО
    ПОЛЕ Пробег ЧИСЛО
    ПОЛЕ РасходТоплива ЧИСЛО
    ПОЛЕ Статус СТРОКА ЗНАЧЕНИЕ_ПО_УМОЛЧАНИЮ "Открыт"
    КНОПКА "Записать" ЗАПИСАТЬ
    КНОПКА "Провести и закрыть" ПРОВЕСТИ
    ЛОГИКА
        ПРИ СОЗДАНИИ
            ЗАПОЛНИТЬ data.Организация = Константы.ОсновнаяОрганизация
        КОНЕЦ
        ПРИ ИЗМЕНЕНИИ ПоказательОдометраКонец
            ВЫЧИСЛИТЬ data.Пробег = data.ПоказательОдометраКонец - data.ПоказательОдометраНачало
        КОНЕЦ
    КОНЕЦ
КОНЕЦ
ДОКУМЕНТ Ремонты
    АВТОНУМЕРАЦИЯ "РЕМ-{YYYY}-{0000}" ПОЛЕ Номер
    ПОЛЕ Номер СТРОКА
    ПОЛЕ Дата ДАТАВРЕМЯ ЗНАЧЕНИЕ_ПО_УМОЛЧАНИЮ ТЕКУЩАЯ_ДАТА_ВРЕМЯ
    ПОЛЕ Организация ВЫБОР Организации ОБЯЗАТЕЛЬНОЕ
    ПОЛЕ Автомобиль ВЫБОР Автомобили ОБЯЗАТЕЛЬНОЕ
    ПОЛЕ ТипРемонта СТРОКА
    ПОЛЕ Сумма ЧИСЛО
    ПОЛЕ СервиснаяКомпания СТРОКА
    КНОПКА "Записать" ЗАПИСАТЬ
    КНОПКА "Провести и закрыть" ПРОВЕСТИ
    ЛОГИКА
        ПРИ СОЗДАНИИ
            ЗАПОЛНИТЬ data.Организация = Константы.ОсновнаяОрганизация
        КОНЕЦ
    КОНЕЦ
    ДВИЖЕНИЕ Проводки ДЕБЕТ 20 КРЕДИТ 60 ПОЛЯ Сумма=Сумма, СубконтоДт1=Автомобиль
КОНЕЦ
ДОКУМЕНТ Расходы
    АВТОНУМЕРАЦИЯ "РАСХ-{YYYY}-{0000}" ПОЛЕ Номер
    ПОЛЕ Номер СТРОКА
    ПОЛЕ Дата ДАТАВРЕМЯ ЗНАЧЕНИЕ_ПО_УМОЛЧАНИЮ ТЕКУЩАЯ_ДАТА_ВРЕМЯ
    ПОЛЕ Организация ВЫБОР Организации ОБЯЗАТЕЛЬНОЕ
    ПОЛЕ СтатьяРасхода СТРОКА
    ПОЛЕ Сумма ЧИСЛО
    ПОЛЕ Автомобиль ВЫБОР Автомобили
    ПОЛЕ Комментарий СТРОКА
    КНОПКА "Записать" ЗАПИСАТЬ
    КНОПКА "Провести и закрыть" ПРОВЕСТИ
    ЛОГИКА
        ПРИ СОЗДАНИИ
            ЗАПОЛНИТЬ data.Организация = Константы.ОсновнаяОрганизация
        КОНЕЦ
    КОНЕЦ
    ДВИЖЕНИЕ Проводки ДЕБЕТ 20 КРЕДИТ 50 ПОЛЯ Сумма=Сумма
КОНЕЦ
ЖУРНАЛ ВыручкаВодителей
    ИЗМЕРЕНИЕ Организация ВЫБОР Организации
    ИЗМЕРЕНИЕ Водитель ВЫБОР Водители
    ИЗМЕРЕНИЕ Дата ДАТАВРЕМЯ
    РЕСУРС Сумма ЧИСЛО
    КНОПКА "Записать" ЗАПИСАТЬ
КОНЕЦ
ПЛАН_СЧЕТОВ Хозрасчетный
    СЧЕТ 20 "Основное производство"
    СЧЕТ 50 "Касса"
    СЧЕТ 60 "Расчеты с поставщиками"
    СЧЕТ 62 "Расчеты с клиентами"
    СЧЕТ 70 "Расчеты с водителями" СУБКОНТО Водители
    СЧЕТ 76 "Расчеты с разными дебиторами"
    СЧЕТ 90 "Продажи"
КОНЕЦ
ЖУРНАЛ Проводки ПО_ПЛАНУ Хозрасчетный
    ИЗМЕРЕНИЕ Дата ДАТАВРЕМЯ
    ИЗМЕРЕНИЕ Документ СТРОКА
    РЕСУРС Сумма ЧИСЛО
    СУБКОНТО СубконтоДт1
    СУБКОНТО СубконтоКт1
    КНОПКА "Записать" ЗАПИСАТЬ
КОНЕЦ
ОТЧЁТ РасчетСВодителями
    ПАРАМЕТР ПоказыватьГрафик БУЛЕВО
    ПАРАМЕТР ДатаС ДАТАВРЕМЯ
    ПАРАМЕТР ДатаПо ДАТАВРЕМЯ
    ПАРАМЕТР Водитель ВЫБОР Водители
    ЗАПРОС "SELECT Водитель, SUM(CASE WHEN _type=1 THEN Сумма ELSE -Сумма END) as ИтогоКВыплате FROM Журнал_ВыручкаВодителей WHERE ('{{ДатаС}}' = '' OR Дата >= '{{ДатаС}}') AND ('{{ДатаПо}}' = '' OR Дата <= '{{ДатаПо}}') AND ('{{Водитель}}' = '' OR Водитель = '{{Водитель}}') GROUP BY Водитель"
    КОЛОНКА Водитель ВЫБОР Водители
    КОЛОНКА ИтогоКВыплате ЧИСЛО
    ВЫВОД_ДИАГРАММА СТОЛБИКОВАЯ
    ПОЛЕ_ДЛЯ_ДИАГРАММЫ Водитель
    РЕСУРС ИтогоКВыплате
КОНЕЦ
ОТЧЁТ РентабельностьАвтомобиля
    ПАРАМЕТР ПоказыватьГрафик БУЛЕВО
    ПАРАМЕТР Автомобиль ВЫБОР Автомобили
    ЗАПРОС "SELECT 'Выручка' as Тип, SUM(Сумма) as Сумма FROM Журнал_Проводки WHERE credit_acc='90' UNION ALL SELECT 'Расходы' as Тип, SUM(Сумма) as Сумма FROM Журнал_Проводки WHERE debit_acc='20'"
    КОЛОНКА Тип СТРОКА
    КОЛОНКА Сумма ЧИСЛО
    ВЫВОД_ДИАГРАММА КРУГОВАЯ
    ПОЛЕ_ДЛЯ_ДИАГРАММЫ Тип
    РЕСУРС Сумма
КОНЕЦ
МЕНЮ Главное
    ГРУППА "Таксопарк"
        КНОПКА "Заказы такси" ОТКРЫТЬ ЗаказыТакси
        КНОПКА "Путевые листы" ОТКРЫТЬ ПутевыеЛисты
        КНОПКА "Ремонты" ОТКРЫТЬ Ремонты
        КНОПКА "Расходы" ОТКРЫТЬ Расходы
    КОНЕЦ
    ГРУППА "Справочники"
        КНОПКА "Водители" ОТКРЫТЬ Водители
        КНОПКА "Автомобили" ОТКРЫТЬ Автомобили
        КНОПКА "Клиенты такси" ОТКРЫТЬ КлиентыТакси
    КОНЕЦ
    ГРУППА "Отчеты"
        КНОПКА "Расчет с водителями" ОТКРЫТЬ РасчетСВодителями
        КНОПКА "Рентабельность автомобиля" ОТКРЫТЬ РентабельностьАвтомобиля
    КОНЕЦ
КОНЕЦ

3553 | 0 | 3553 | 375 | 189 | 56