Гость
Войти | Профиль | Очистить
Целевая тема:
Создать новую тему:
Автор:
Действия ...
Форумы / 1С [игнор отключен] [закрыт для гостей] / Как сделать / 4 сообщений из 4, страница 1 из 1
26.03.2012, 08:38
    #37722493
Бахрам
Бахрам
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Как сделать
Всем привет!
1С 7.7 Тис, учусь, топчусь на одном месте не могу придумать как дальше решать
В общем документы Реализация и Поступление ден. средств.
сделал таблицу значений документов Реализации с данными о долге и документов Поступление с данными о его движениях - какие за какие реализации оплачивает и сколько.

Так вот хочу пройти по этим двум таблицам и узнать какие документы оплочены а какие нет
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
26.03.2012, 08:42
    #37722494
The Dim!
The Dim!
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Как сделать
В документе Поступление ден. средств должен быть реквизи-ссылка на документ реализации. Сопоставлять через этот реквизит. А лучше через регистр остатков.
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
26.03.2012, 09:08
    #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
| Ответить | Цитировать | Написать  
28.03.2012, 15:07
    #37727574
Злой Бобр
Злой Бобр
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Как сделать
Бахрам,

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


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