Конфигурирование программы "1С:Предприятие" на основе предприятия сельскохозяйственной отрасли
Дипломная работа - Компьютеры, программирование
Другие дипломы по предмету Компьютеры, программирование
сание компоненты Зарплата и кадры
Общие сведения
Компонента Зарплата и кадры - это конфигурация для платформы 1С: Предприятие и написана на встроенном языке платформы в среде 1С: Конфигуратор. В этой конфигурации модифицированы и добавлены алгоритмы расчета заработной платы.
Функциональное назначение
Компонента Зарплата и кадры предназначена:
ведение кадрового учета предприятия;
ввод данных в необходимые документы (табеля, больничные листы, отпуска);
расчет заработанной платы и налогов;
подготовка налоговой отчетности;
подготовка необходимых документов к печати.
Описание логической структуры
В данной конфигурации создан новый план счетов для сельскохозяйственных организаций. В этой конфигурации модифицированы и добавлены алгоритмы расчета заработной платы.
Вызов и загрузка
Запуск компоненты осуществляется пользователем при загрузке приложения 1CV77.exe, в диалоге происходит выбор пункта списка Зарплата, после происходит аутентификация пользователя и загрузка выбранной конфигурации.
4. Текст программы
.1 Компонента 1С: Бухгалтерский учет
Модуль документа Ввод ВЭксплуатациюОС
…
Если Группа = Перечисление. ГруппыОС. ОрудияЛова тогда
Сч01_1 = СчетПоКоду (01.6);
ИначеЕсли Группа = Перечисление. ГруппыОС. ИнвИОборудование тогда
Сч01_1 = СчетПоКоду (01.8);
ИначеЕсли Группа = Перечисление. ГруппыОС. Инвентарь тогда
Сч01_1 = СчетПоКоду (01.4);
ИначеЕсли Группа = Перечисление. ГруппыОС. ПрТрФлот тогда
Сч01_1 = СчетПоКоду (01.0);
ИначеЕсли Группа = Перечисление. ГруппыОС. ЗданияПромышленные тогда
Сч01_1 = СчетПоКоду (01.1);
ИначеЕсли Группа = Перечисление. ГруппыОС. ЗданияОборудованиеКБН тогда
Сч01_1 = СчетПоКоду (01.2);
ИначеЕсли Группа = Перечисление. ГруппыОС.ЖКХ тогда
Сч01_1 = СчетПоКоду (01.3);
ИначеЕсли Группа = Перечисление. ГруппыОС. СельхозОборудование тогдаСч01_1 = СчетПоКоду (01.7);
ИначеЕсли Группа = Перечисление. ГруппыОС. ТранспортныеСредства тогда
Сч01_1 = СчетПоКоду (01.9);
Иначе
Сч01_1 = СчетПоКоду (01.1);
КонецЕсли;
…
Операция. Дебет. ОсновныеСредства = ОсновноеСредство;
Если (Группа = Перечисление. ГруппыОС. ОрудияЛова) или (Группа = Перечисление. ГруппыОС. Инвентарь) или (Группа = Перечисление. ГруппыОС. ИнвИОборудование) или (Группа = Перечисление. ГруппыОС. ТранспортныеСредства) тогда
Операция. Дебет. МестаХранения = ПодОтч;
КонецЕсли;
…
Модуль документа Выписка
…
Перем Сч52_1, Сч52_2, Сч52_3;
…
Если СС522 <> 0 тогда
Операция. Дебет. Счет = Сч52_2;
КонецЕсли;
Если СС523 <> 0 тогда
Операция. Дебет. Счет = Сч52_3;
КонецЕсли;
…
Если ПустоеЗначение(СуммаПроданнойВалюты) = 0 тогда
Операция. ВалСумма = СуммаПроданнойВалюты;
Операция. Валюта = ПроданнаяВалюта;
КонецЕсли;
…
Если СС522 <> 0 тогда
Операция. Кредит. Счет = Сч52_2;
КонецЕсли;
Если СС523 <> 0 тогда
Операция. Кредит. Счет = Сч52_3;
КонецЕсли;
…
Сч52_1 = СчетПоКоду (52.1);
Сч52_2 = СчетПоКоду (52.2);
Сч52_3 = СчетПоКоду (52.3);
…
Модуль документа НачислениеАмортизации
…
Если ОС. ПодлежитАмортизации = 0 тогда
НачислятьАмортизациюБух = 0;
КонецЕсли;
…
Если Ос. Состояние. Получить(ДатаДок) = Перечисление. СостоянияОС. В_Эксплуатации тогда
ГодТек = ДатаГод(ДатаДок);
ГодВЭ = ДатаГод (Ос. ДатаВводаВЭксплуатацию);
МесяцТек = ДатаМесяц(ДатаДок);
МесяцВЭ = ДатаМесяц (Ос. ДатаВводаВЭксплуатацию);
МесВЭкспл = (ГодТек - ГодВЭ)*12 + МесяцТек - МесяцВЭ; // находим кол-во месяцев в эксплуатации
МесЭкспл = ОС. СрокПолезногоИспользования. Получить(ДатаДок);
Если (МесЭкспл < МесВЭкспл) или (МесВЭкспл <= 0) тогда // проверяем не вышел ли срок эксплуатации
РассчитаннаяАмортизацияБух = 0
ИначеЕсли МесВЭкспл = МесЭкспл тогда // если последний месяц в экспл. доначисляем остатки
РассчитаннаяАмортизацияБух = ОС. ПервоначальнаяСтоимость. Получить(датадок) - ОС.СМАм. Получить(ДатаДок)*(МесЭкспл-1)
ИначеЕсли ОС. СпособНачисленияАмортизации = Перечисление. СпособыНачисленияАмортизацииОС. Суммой тогда
РассчитаннаяАмортизацияБух = ОС.СМАм. Получить(ДатаДок)
КонецЕсли;
КонецЕсли;
…
Модуль документа ОказаниеУслуг
…
// Сч76_5 = СчетПоКоду (76.5);
Сч76_5 = СчетПоКоду (76.8.2);
Если СС7681 = 1 Тогда
Сч76_5 = СчетПоКоду (76.8.1);
ИначеЕсли СС762 = 1 тогда
Сч76_5 = СчетПоКоду (76.2);
ИначеЕсли СС765 = 1 тогда
Сч76_5 = СчетПоКоду (76.5);
КонецЕсли;
…
Если СС914 = 1 Тогда
Сч91_1 = СчетПоКоду (91.4);
КонецЕсли;
Сч90_15 = СчетПоКоду (90.15);
Сч90_10 = СчетПоКоду (90.10);
Сч90_12 = СчетПоКоду (90.12);
Сч90_9 = СчетПоКоду (90.9);
Сч90_6 = СчетПоКоду (90.6);
Сч62_9 = СчетПоКоду (62.9);
Сч62_10 = СчетПоКоду (62.10);
Сч62_12 = СчетПоКоду (62.12);
Сч62_14 = СчетПоКоду (62.14);
Сч62_5 = СчетПоКоду (62.5);
Сч73_3 = СчетПоКоду (73.3);
Сч84_4 = СчетПоКоду (84.4);
…
Если СС6210 = 1 тогда
СчетРасчетовСПокупателем = Сч62_10
ИначеЕсли СС6212 = 1 тогда
СчетРасчетовСПокупателем = Сч62_12
ИначеЕсли СС6214 = 1 тогда
СчетРасчетовСПокупателем = Сч62_14
ИначеЕсли СС625 = 1 тогда
СчетРасчетовСПокупателем = Сч62_5
ИначеЕсли СС6