Личный кабинет Консультация он-лайн
С заботой
о клиенте!
+7 (495) 223-32-11
Работаем по всей России
8 (800) 775-90-01
Бесплатно, круглосуточно
Заказать звонок

Как перенести остаток со счета на счет?

Проконсультироваться
со специалистом 1С

Консультироваться

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

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

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

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

Документ.Дата = РабочаяДата;
Документ.Организация = Организация;
Документ.Содержание = "Погашение дебиторской задолженности";

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

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

Форма = Документ.ПолучитьФорму();
Форма.Открыть();
КонецЕсли;
Поделиться в соц. сетях


Заказать обратный звонок

Позвонить
Отправлено! В самое ближайшее время наш менеджер свяжется с Вами.
Простите за всплывающее окно, но мы обязаны предупредить, что наш сайт использует куки-файлы. Это помогает нам быть лучше и полезнее для вас.