Курсы онлайн обучения 1С

Автор: admin, 03.08.2010 рубрики: Изучаем программирование

ИначеЕсли ВидАктивов = Перечисление.ВидыАктивовИобязательств.ФинансовыеВложения Тогда

БухИтБУ.ИспользоватьСубконто(ВидыСубконто.ЦенныеБумаги);
БухИтБУ.ИспользоватьСубконто(ВидыСубконто.Контрагенты);
БухИтБУ.Опции(1,);
БухИтБУ.ВыполнитьЗапрос(,ВыбДата — 1,"58.1.2, 58.2, НПР.58.2, КВР.58.2");

БухИтНУ.ИспользоватьСубконто(ВидыСубконто.ЦенныеБумаги);
БухИтНУ.Опции(1,);
БухИтНУ.ВыполнитьЗапрос(,ВыбДата — 1,"58.1.2, 58.2, НПР.58.2, КВР.58.2, Н02.05");

БухИтНУ.ВыбратьСубконто(1);
Пока БухИтНУ.ПолучитьСубконто(1) = 1 Цикл
ТаблицаДанных.НоваяСтрока();
ТаблицаДанных.Субк1 = БухИтНУ.Субконто(1);
ТаблицаДанных.Субк2 = "";
ТаблицаДанных.Субк3 = "";
ТаблицаДанных.Группировка = 1;

НомерСтрокиГруппировки = ТаблицаДанных.НомерСтроки;

ОценкаБУ = 0;
Если БухИтНУ.ПолучитьСчет(,СчетПоКоду(«58.1.2»)) = 1 Тогда
ОценкаБУ = ОценкаБУ + БухИтНУ.СКД(«С») — БухИтНУ.СКК(«С»);
КонецЕсли;
Если БухИтНУ.ПолучитьСчет(,СчетПоКоду(«58.2»)) = 1 Тогда
ОценкаБУ = ОценкаБУ + БухИтНУ.СКД(«С») — БухИтНУ.СКК(«С»);
КонецЕсли;
ТаблицаДанных.ОценкаБУ = ОценкаБУ;

Если БухИтНУ.ПолучитьСчет(,СчетПоКоду(«Н02.05»)) = 1 Тогда
ТаблицаДанных.ОценкаНУ = БухИтНУ.СКД(«С») — БухИтНУ.СКК(«С»);
КонецЕсли;
Если БухИтНУ.ПолучитьСчет(,СчетПоКоду(«НПР.58.2»)) = 1 Тогда
ТаблицаДанных.НПР = БухИтНУ.СКД(«С») — БухИтНУ.СКК(«С»);
КонецЕсли;
Если БухИтНУ.ПолучитьСчет(,СчетПоКоду(«КВР.58.2»)) = 1 Тогда
ТаблицаДанных.КВР = БухИтНУ.СКД(«С») — БухИтНУ.СКК(«С»);
КонецЕсли;
ТаблицаДанных.НПРсальдо = ТаблицаДанных.НПР;
ТаблицаДанных.КВРсальдо = ТаблицаДанных.КВР;
Если БухИтБУ.ПолучитьСубконто(1,,БухИтНУ.Субконто(1)) = 1 Тогда
БухИтБУ.ВыбратьСубконто(2);
Пока БухИтБУ.ПолучитьСубконто(2) = 1 Цикл
ТаблицаДанных.НоваяСтрока();
ТаблицаДанных.Субк1 = БухИтБУ.Субконто(1);
ТаблицаДанных.Субк2 = БухИтБУ.Субконто(2);
ТаблицаДанных.Субк3 = "";
ТаблицаДанных.Группировка = -1;
ТаблицаДанных.Владелец = НомерСтрокиГруппировки;
ТаблицаДанных.МаскаСчета = «58.2»;

ОценкаБУ = 0;
Если БухИтБУ.ПолучитьСчет(,СчетПоКоду(«58.1.2»)) = 1 Тогда
ОценкаБУ = ОценкаБУ + БухИтБУ.СКД(«С») — БухИтБУ.СКК(«С»);
КонецЕсли;
Если БухИтБУ.ПолучитьСчет(,СчетПоКоду(«58.2»)) = 1 Тогда
ОценкаБУ = ОценкаБУ + БухИтБУ.СКД(«С») — БухИтБУ.СКК(«С»);
КонецЕсли;
ТаблицаДанных.ОценкаБУ = ОценкаБУ;
Если БухИтБУ.ПолучитьСчет(,СчетПоКоду(«НПР.58.2»)) = 1 Тогда
ТаблицаДанных.НПР = БухИтБУ.СКД(«С») — БухИтБУ.СКК(«С»);
КонецЕсли;
Если БухИтБУ.ПолучитьСчет(,СчетПоКоду(«КВР.58.2»)) = 1 Тогда
ТаблицаДанных.КВР = БухИтБУ.СКД(«С») — БухИтБУ.СКК(«С»);
КонецЕсли;
ТаблицаДанных.НПРсальдо = ТаблицаДанных.НПР;
ТаблицаДанных.КВРсальдо = ТаблицаДанных.КВР;
КонецЦикла;
КонецЕсли;
КонецЦикла;

Связанные записи

• Нет связанных записей.