Разработка автоматической информационной системы оперативного учёта сопровождения учебных курсов по правилам техники безопасности ООО НПП "НФЛ"
Дипломная работа - Компьютеры, программирование
Другие дипломы по предмету Компьютеры, программирование
;
Если Есть Реквизит Документа ("Отражать В Налоговом Учете", Метаданные Документа) Тогда
Документ Объект .Отражать В Налоговом Учете = НЕ Получить Значение По Умолчанию (Тек Пользователь, "Не Отражать Документы В Налоговом Учете");
Конец Если;
Если Есть Реквизит Документа ("Отражать В Бухгалтерском Учете", Метаданные Документа) Тогда
//По умолчанию все документы требуют отражения в бухгалтерском учете
Документ Объект. Отражать В Бухгалтерском Учете = Истина;
Конец Если;
Если Есть Реквизит Документа ("Организация", Метаданные Документа)
И (Значение Не Заполнено (Документ Объект. Организация)) Тогда
Документ Объект. Организация = Получить Значение По Умолчанию (ТекПользователь, "Основная Организация");
Конец Если;
Если Есть Реквизит Документа ("Подразделение Организации", Метаданные Документа)
И (Значение НеЗаполнено (Документ Объект. Подразделение Организации)) Тогда
Документ Объект. Подразделение Организации = Получить Значение По Умолчанию(ТекПользователь, "Основное Подразделение Организации");
Конец Если;
Если Есть Реквизит Документа ("Структурная Единица", Метаданные Документа)
И Значение Не Заполнено ( Документ Объект. Структурная Единица)
И Есть Реквизит Документа("Организация", Метаданные Документа) Тогда
Документ Объект. Структурная Единица = Документ Объект. Организация. Основной Банковский Счет;
Конец Если;
Если Есть Реквизит Документа ("Ответственный", Метаданные Документа) Тогда
Документ Объект. Ответственный = Получить Значение По Умолчанию (ТекПользователь, "Основной Ответственный");
Конец Если;
Если Есть Реквизит Документа ("Вид Операции", Метаданные Документа)
И (Значение Не Заполнено (Документ Объект. Вид Операции)) Тогда
Документ Объект. Вид Операции = Перечисления [Документ Объект. Вид Операции. Метаданные(). Имя][0];
Конец Если;
Если Есть Реквизит Документа ("Склад", Метаданные Документа)
И (Значение Не Заполнено (Документ Объект. Склад)) Тогда
Документ Объект. Склад = Получить Значение По Умолчанию (ТекПользователь, "Основной Склад");
Конец Если;
Если Есть Реквизит Документа ("Склад Ордер", Метаданные Документа)
И Значение Не Заполнено (Документ Объект. Склад Ордер) Тогда
Документ Объект. Склад Ордер = Получить Значение По Умолчанию (ТекПользователь, "Основной Склад");
Конец Если;
Если Есть Реквизит Документа("Ставка НДС", Метаданные Документа)
И (Значение НеЗаполнено (Документ Объект. Ставка НДС)) Тогда
Документ Объект. Ставка НДС = Получить Значение По Умолчанию (ТекПользователь, "Основная Ставка НДС");
Конец Если;
Если Есть Реквизит Документа ("Банковский Счет", Метаданные Документа)
И Значение Не Заполнено (Документ Объект. Банковский Счет) Тогда
Документ Объект. Банковский Счет = Документ Объект. Организация. Основной Банковский Счет;
Если Есть Реквизит Документа ("Валюта Документа", Метаданные Документа) Тогда
Документ Объект. Валюта Документа = Документ Объект. Организация. Основной Банковский Счет. Валюта Денежных Средств;
Конец Если;
Конец Если;
Если Есть Реквизит Документа ("Счет Организации", Метаданные Документа)
И Значение НеЗаполнено (Документ Объект. Счет Организации) Тогда
Документ Объект. Счет Организации = Документ Объект. Организация. Основной Банковский Счет;
Документ Объект. Валюта Документа = Документ Объект. Организация. Основной Банковский Счет. Валюта Денежных Средств;
Конец Если;
Если Есть Реквизит Документа ("Валюта Документа", Метаданные Документа)
И (Значение Не Заполнено (Документ Объект. Валюта Документа)) Тогда
Документ Объект. Валюта Документа = Валюта Регламентированного Учета;
Конец Если;
Если Есть Реквизит Документа("Курс Документа", Метаданные Документа)
И (Значение Не Заполнено (Документ Объект. Курс Документа)) Тогда
Структура Курса Документа = Получить Курс Валюты (Документ Объект. Валюта Документа, Документ Объект. Дата);
Документ Объект. Курс Документа = Структура Курса Документа. Курс;
Если Есть Реквизит Документа ("Кратность Документа", Метаданные Документа) Тогда
Документ Объект. Кратность Документа = Структура Курса Документа. Кратность;
Конец Если;
Конец Если;
// Если тип цен оказался не заполненным, то берем его из установок пользователя
Если Есть Реквизит Документа ("Тип Цен", Метаданные Документа)
И (Значение Не Заполнено (Документ Объект. Тип Цен)) Тогда
Если Тип Операции = "Продажа" Тогда
Документ Объект. Тип Цен = Получить Значение По Умолчанию (ТекПользователь, "Основной Тип Цен Продажи");
Конец Если;
Конец Если;
Если (Есть Реквизит Документа ("Тип Цен", Метаданные Документа))
И (Не Значение Не Заполнено (Документ Объект. Тип Цен)) Тогда
// Если Тип Цен - элемент справочника Типы Цен Номенклатуры и цены выбранного типа расчетные,
// то флаги включения налогов надо брать из базовой цены
Тип Цен = Документ Объект. Тип Цен;
// Флаги учета налогов заполняем, только если флаг Учитывать НДС не заполнен.
Если Есть Реквизит Документа ("Учитывать НДС", Метаданные Документа)
И (Не Документ Объект. Учитывать НДС) Тогда
Документ Объект. Учитывать НДС = Истина;
Документ Объект. Сумма Включает НДС = Тип Цен. Цена Включает НДС;
Конец Если;
Иначе
// Заполни