помогите сравнить 2-е ТЗ - ТЗ_УТ и ТЗ_БП
02.04.2010
16:39
#1
"Задача: надо сравнить по док.(поступление) 2-е ИС УТ и БП
Вот мой код:
Процедура КнопкаСформироватьНажатие(Кнопка)
Запрос = Новый Запрос;
Запрос.Текст = "
|ВЫБРАТЬ
| ПоступлениеТоваровУслуг.Ссылка,
| ПоступлениеТоваровУслуг.Дата,
| ПоступлениеТоваровУслуг.Номер,
| ПоступлениеТоваровУслуг.СуммаДокумента
|ИЗ
| Документ.ПоступлениеТоваровУслуг КАК ПоступлениеТоваровУслуг
|ГДЕ
| ПоступлениеТоваровУслуг.Дата МЕЖДУ &НачПериода И &КонПериода
//| И ПоступлениеТоваровУслуг.СкладОрдер = &Склад
| И ПоступлениеТоваровУслуг.Проведен = ИСТИНА
|
|УПОРЯДОЧИТЬ ПО
| Дата
|";
Запрос.УстановитьПараметр("НачПериода", НачПериода);
Запрос.УстановитьПараметр("КонПериода", КонПериода);
Запрос.УстановитьПараметр("Склад", Склад);
РезультатЗапроса = Запрос.Выполнить().Выгрузить();
ТЗ_УТ = Новый ТаблицаЗначений;
ТЗ_УТ.Колонки.Добавить("Ссылка");
ТЗ_УТ.Колонки.Добавить("Дата");
ТЗ_УТ.Колонки.Добавить("Номер");
ТЗ_УТ.Колонки.Добавить("СуммаДокумента");
//Запрос В БП
V8 = Новый ComОбъект("V81.ComConnector");
Попытка
Открытие = V8.Connect("File=""""F:\InfoBase"""";Usr=""""Администратор"""";");//("File=""""c:\InfoBases\Trade"""";Usr=""""Director"""";")
Исключение
Предупреждение("База данных не открыта!!!!");
Возврат;
КонецПопытки;
Открытие.NewObject("Запрос");
Запрос.Текст ="
//БП запрос по док.ПТиУ и РТиУ
|ВЫБРАТЬ
| ПоступлениеТоваровУслуг.Ссылка,
| ПоступлениеТоваровУслуг.Дата,
| ПоступлениеТоваровУслуг.Номер,
| ПоступлениеТоваровУслуг.СуммаДокумента
| ИЗ
| Документ.ПоступлениеТоваровУслуг КАК ПоступлениеТоваровУслуг
|ГДЕ
| ПоступлениеТоваровУслуг.Дата МЕЖДУ &НачПериода И &КонПериода
| И ПоступлениеТоваровУслуг.Проведен = ИСТИНА
//| И ПоступлениеТоваровУслуг.Склад = &Склад
|
|УПОРЯДОЧИТЬ ПО
| Дата
|";
Запрос.УстановитьПараметр("НачПериода", НачПериода);
Запрос.УстановитьПараметр("КонПериода", КонПериода);
Запрос.УстановитьПараметр("Склад", Склад);
РезультатCOM = Запрос.Выполнить().Выгрузить();
ТЗ_БП = Новый ТаблицаЗначений;
ТЗ_БП.Колонки.Добавить("Ссылка");
ТЗ_БП.Колонки.Добавить("Дата");
ТЗ_БП.Колонки.Добавить("Номер");
ТЗ_БП.Колонки.Добавить("СуммаДокумента");
//Для каждого Строка Из ТЗ_УТ Цикл
//Документ_УТ = Строка.Ссылка;
//Дата_УТ = Строка.Дата;
//Номер_УТ = Строка.Номер;
//СуммаДокумента_УТ = Строка.СуммаДокумента;
//КонецЦикла;
КонецПроцедуры
"
Вот мой код:
Процедура КнопкаСформироватьНажатие(Кнопка)
Запрос = Новый Запрос;
Запрос.Текст = "
|ВЫБРАТЬ
| ПоступлениеТоваровУслуг.Ссылка,
| ПоступлениеТоваровУслуг.Дата,
| ПоступлениеТоваровУслуг.Номер,
| ПоступлениеТоваровУслуг.СуммаДокумента
|ИЗ
| Документ.ПоступлениеТоваровУслуг КАК ПоступлениеТоваровУслуг
|ГДЕ
| ПоступлениеТоваровУслуг.Дата МЕЖДУ &НачПериода И &КонПериода
//| И ПоступлениеТоваровУслуг.СкладОрдер = &Склад
| И ПоступлениеТоваровУслуг.Проведен = ИСТИНА
|
|УПОРЯДОЧИТЬ ПО
| Дата
|";
Запрос.УстановитьПараметр("НачПериода", НачПериода);
Запрос.УстановитьПараметр("КонПериода", КонПериода);
Запрос.УстановитьПараметр("Склад", Склад);
РезультатЗапроса = Запрос.Выполнить().Выгрузить();
ТЗ_УТ = Новый ТаблицаЗначений;
ТЗ_УТ.Колонки.Добавить("Ссылка");
ТЗ_УТ.Колонки.Добавить("Дата");
ТЗ_УТ.Колонки.Добавить("Номер");
ТЗ_УТ.Колонки.Добавить("СуммаДокумента");
//Запрос В БП
V8 = Новый ComОбъект("V81.ComConnector");
Попытка
Открытие = V8.Connect("File=""""F:\InfoBase"""";Usr=""""Администратор"""";");//("File=""""c:\InfoBases\Trade"""";Usr=""""Director"""";")
Исключение
Предупреждение("База данных не открыта!!!!");
Возврат;
КонецПопытки;
Открытие.NewObject("Запрос");
Запрос.Текст ="
//БП запрос по док.ПТиУ и РТиУ
|ВЫБРАТЬ
| ПоступлениеТоваровУслуг.Ссылка,
| ПоступлениеТоваровУслуг.Дата,
| ПоступлениеТоваровУслуг.Номер,
| ПоступлениеТоваровУслуг.СуммаДокумента
| ИЗ
| Документ.ПоступлениеТоваровУслуг КАК ПоступлениеТоваровУслуг
|ГДЕ
| ПоступлениеТоваровУслуг.Дата МЕЖДУ &НачПериода И &КонПериода
| И ПоступлениеТоваровУслуг.Проведен = ИСТИНА
//| И ПоступлениеТоваровУслуг.Склад = &Склад
|
|УПОРЯДОЧИТЬ ПО
| Дата
|";
Запрос.УстановитьПараметр("НачПериода", НачПериода);
Запрос.УстановитьПараметр("КонПериода", КонПериода);
Запрос.УстановитьПараметр("Склад", Склад);
РезультатCOM = Запрос.Выполнить().Выгрузить();
ТЗ_БП = Новый ТаблицаЗначений;
ТЗ_БП.Колонки.Добавить("Ссылка");
ТЗ_БП.Колонки.Добавить("Дата");
ТЗ_БП.Колонки.Добавить("Номер");
ТЗ_БП.Колонки.Добавить("СуммаДокумента");
//Для каждого Строка Из ТЗ_УТ Цикл
//Документ_УТ = Строка.Ссылка;
//Дата_УТ = Строка.Дата;
//Номер_УТ = Строка.Номер;
//СуммаДокумента_УТ = Строка.СуммаДокумента;
//КонецЦикла;
КонецПроцедуры
"
02.04.2010
16:44
#2
"Я бы сделал так:
ТЗ_УТ.Колонки.Добавить("Дата");
ТЗ_УТ.Колонки.Добавить("Номер");
ТЗ_УТ.Колонки.Добавить("СуммаУТ");
ТЗ_УТ.Колонки.Добавить("СуммаБух");
заполнил бы из Ут и БУх.
Потом
ТЗ_УТ.Свернуть("Дата,Номер","СуммаУТ,СуммаБух");
"
ТЗ_УТ.Колонки.Добавить("Дата");
ТЗ_УТ.Колонки.Добавить("Номер");
ТЗ_УТ.Колонки.Добавить("СуммаУТ");
ТЗ_УТ.Колонки.Добавить("СуммаБух");
заполнил бы из Ут и БУх.
Потом
ТЗ_УТ.Свернуть("Дата,Номер","СуммаУТ,СуммаБух");
"
Проблема в больничном при переходном периоде с 9 на 10 годВозможно ли в бухгалтерии 1С 8 поменять валюту регламентированного учета?
Читают тему
(гостей: 1)