Новости для бухгалтера, бухучет, налогообложение, отчетность, ФСБУ, прослеживаемость и маркировка, 1С:Бухгалтерия

Вход или Регистрация

Показывать по 10 20 40 сообщений
Новая тема Ответить
Письмо в техподдержку 1С
[Прочее]

помогите сравнить 2-е ТЗ - ТЗ_УТ и ТЗ_БП

Julia13
читатель
офлайн
Дата регистрации: 22.03.2010
Сообщений: 29
Пост №1
 
02.04.2010 16:39

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

Alexor
читатель
офлайн
Дата регистрации: 08.07.2003
Сообщений: 201
Пост №2
 
02.04.2010 16:44

"Я бы сделал так:<br><br><br>ТЗ_УТ.Колонки.Добавить("Дата");<br>ТЗ_УТ.Колонки.Добавить("Номер");<br>ТЗ_УТ.Колонки.Добавить("СуммаУТ");<br>ТЗ_УТ.Колонки.Добавить("СуммаБух");<br><br>заполнил бы из Ут и БУх.<br>Потом <br><br>ТЗ_УТ.Свернуть("Дата,Номер","СуммаУТ,СуммаБух");<br><br><br>"

Julia13
читатель
офлайн
Дата регистрации: 22.03.2010
Сообщений: 29
Пост №3
 
02.04.2010 17:29

Скажите пожалуйста, а как я могу проверить что у меня выгрузилось в COMОбъект?<br>Допустим что выгрузилось в ТЗ_УТ я сделала так ТЗ_УТ.ВыбратьСтроку(), а как на счет ТЗ_БП я же вызываю его ч/з COMОбъект..<br>

Денис (САМАРА)
читатель
офлайн
Дата регистрации: 09.04.2008
Сообщений: 8351
Пост №4
 
04.04.2010 09:35

"> Скажите пожалуйста, а как я могу проверить что у меня выгрузилось в COMОбъект?<br><br>Для Каждого СтрТЗ ИЗ ТЗ_БП Цикл<br><br>Сообщить("№" + СтрТЗ.Номер + " от " + СтрТЗ.Дата + " - " + СтрТЗ.СуммаДокумента);<br><br>КонецЦикла;<br><br>З.Ы. Сравнение лучше делать как советовал Alexor."

Показывать по 10 20 40 сообщений

Читают тему:

1 гостей
Быстрый переход
Для технических специалистов
  • Книга жалоб и предложений по работе сайта
  • Для технических специалистов
  • Представление регламентированной отчетности
  • Говорильня
  • Бухгалтерский учет: обсуждаем проекты нормативных актов и рекомендаций по ведению учета от БМЦ
  • Новый порядок применения ККТ (онлайн кассы с передачей сведений в ФНС)
  • Интернет-конференция: Оформление командировок по новым правилам
  • МАРКИРОВКА
  • ЕГАИС
  • Учет, налогообложение, автоматизация