8.х Обаработка "Перенос остатков со счет 76"

Тема в разделе "Конфигурирование на платформе "1С:Предприятие 8"", создана пользователем baxdan, 26 авг 2009.

  1. TopicStarter Overlay
    baxdan
    Offline

    baxdan

    Регистрация:
    6 июл 2009
    Сообщения:
    18
    Симпатии:
    0
    Баллы:
    1
    вот код:

    Процедура СоздатьДокументОперацияПоЗакрытиюСчета76() Экспорт

    Запрос = Новый Запрос;
    Запрос.Текст = "ВЫБРАТЬ
    | ХозрасчетныйОстатки.СуммаОстатокДт,
    | ХозрасчетныйОстатки.Субконто1,
    | ХозрасчетныйОстатки.Субконто2,
    | ХозрасчетныйОстатки.Организация,
    | ХозрасчетныйОстатки.Счет,
    | ХозрасчетныйОстатки.СуммаОстатокКт
    |ИЗ
    | РегистрБухгалтерии.Хозрасчетный.Остатки(
    | &Период,
    | Счет = &Счет,
    | ,
    | Субконто1 = &Контрагент
    | И Организация = &Организация
    | И Субконто2 = &Договор) КАК ХозрасчетныйОстатки";

    Запрос.УстановитьПараметр("Период", Период);
    Запрос.УстановитьПараметр("Контрагент", Контрагент);
    Запрос.УстановитьПараметр("Договор", Договор);
    Запрос.УстановитьПараметр("Организация", Организация);
    Запрос.УстановитьПараметр("Счет", ПланыСчетов.Хозрасчетный.РасчетыСПрочимиПоставщикамиИПодрядчиками);

    Выборка = Запрос.Выполнить().Выбрать();

    Если Выборка.Следующий() Тогда
    Документ = Документы.ОперацияБух.СоздатьДокумент();

    Документ.Дата = РабочаяДата;
    Документ.Организация = Организация;
    Документ.Содержание = "Закрытие счета 76";

    Проводка = Документ.Движения.Хозрасчетный.Добавить();
    Проводка.СчетДт = ПланыСчетов.Хозрасчетный.РасчетыСПрочимиПоставщикамиИПодрядчиками;
    Проводка.СчетКт = ПланыСчетов.Хозрасчетный.РасчетыПоДоговоруДоверительногоУправленияИмуществом;
    Проводка.СубконтоДт.Контрагенты = Контрагент;
    Проводка.СубконтоДт.Договоры = Договор;
    Проводка.Сумма = Выборка.СуммаОстатокДт;

    Проводка2 = Документ.Движения.Хозрасчетный.Добавить();
    Проводка2.СчетДт = ПланыСчетов.Хозрасчетный.ЗакрытиеСчета76;
    Проводка2.СчетКт = ПланыСчетов.Хозрасчетный.РасчетыСПрочимиПоставщикамиИПодрядчиками;
    Проводка2.СубконтоКт.Контрагенты = Контрагент;
    Проводка2.СубконтоКт.Договоры = Договор;
    Проводка2.Сумма = Выборка.СуммаОстатокКт;

    Документ.СуммаОперации = Выборка.СуммаОстатокДт+Выборка.СуммаОстатокКт;

    Документ.Записать();
    КонецЕсли;
    Форма = Документ.ПолучитьФорму();
    Форма.Открыть();
    КонецПроцедуры
Похожие темы
  1. limbo
    Ответов:
    2
    Просмотров:
    1.043
  2. fate_kate
    Ответов:
    5
    Просмотров:
    1.222
Загрузка...

Поделиться этой страницей