powered by simpleCommunicator - 2.0.60     © 2026 Programmizd 02
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Форумы / [игнор отключен] [закрыт для гостей] / Как сделать
4 сообщений из 4, страница 1 из 1
Как сделать
    #37722493
Фотография Бахрам
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Всем привет!
1С 7.7 Тис, учусь, топчусь на одном месте не могу придумать как дальше решать
В общем документы Реализация и Поступление ден. средств.
сделал таблицу значений документов Реализации с данными о долге и документов Поступление с данными о его движениях - какие за какие реализации оплачивает и сколько.

Так вот хочу пройти по этим двум таблицам и узнать какие документы оплочены а какие нет
...
Рейтинг: 0 / 0
Как сделать
    #37722494
The Dim!
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
В документе Поступление ден. средств должен быть реквизи-ссылка на документ реализации. Сопоставлять через этот реквизит. А лучше через регистр остатков.
...
Рейтинг: 0 / 0
Как сделать
    #37722508
Фотография Бахрам
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
The Dim!В документе Поступление ден. средств должен быть реквизи-ссылка на документ реализации. Сопоставлять через этот реквизит. А лучше через регистр остатков.

НУ информацию о движениях Поступления ден. средств я беру из регистра

Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
18.
19.
20.
21.
22.
23.
24.
25.
26.
27.
	
	ТЗДвижения = СоздатьОбъект("ТаблицаЗначений");
	ТЗДвижения.НоваяКолонка("Контрагент");
	ТЗДвижения.НоваяКолонка("ПриходныйДокумент");
	ТЗДвижения.НоваяКолонка("ПринимающийДокумент");
	ТЗДвижения.НоваяКолонка("ОплаченнаяСумма");
	ТЗДвижения.НоваяКолонка("ПогашенВТечение");

	Рег = СоздатьОбъект("Регистр.РасчетыСПокупателями");

	
	ТЗДокПриход.ВыбратьСтроки();
	Пока ТЗДокПриход.ПолучитьСтроку() = 1 Цикл
		
		Если Рег.ВыбратьДвиженияДокумента(ТЗДокПриход.Документ) = 1 Тогда
			Пока Рег.ПолучитьДвижение() > 0 Цикл
				ТЗДвижения.НоваяСтрока();
				ТЗДвижения.Контрагент = ТЗДокПриход.Контрагент;
				ТЗДвижения.ПриходныйДокумент = ТЗДокПриход.Документ;
				ТЗДвижения.ПринимающийДокумент = Рег.РасчДокумент;
				ТЗДвижения.ОплаченнаяСумма = Рег.Долг;
				ТЗДвижения.ПогашенВТечение = ТЗДокПриход.Документ.ДатаДок - Рег.РасчДокумент.ДатаДок;

			КонецЦикла;
		КонецЕсли;
		
	КонецЦикла;



Вопрос не в этом, я думаю может в таб. значений с документами добавить новую колонку с флагом оплатил не оплатил...
...
Рейтинг: 0 / 0
Как сделать
    #37727574
Злой Бобр
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Бахрам,

Регистр Взаиморасчеты содержит всю информацию по долгам.
...
Рейтинг: 0 / 0
4 сообщений из 4, страница 1 из 1
Форумы / [игнор отключен] [закрыт для гостей] / Как сделать
Найденые пользователи ...
Разблокировать пользователей ...
Читали форум (0):
Пользователи онлайн (0):
x
x
Закрыть


Просмотр
0 / 0
Close
Debug Console [Select Text]