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

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

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

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

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

ТаблицаДанных.МаскаСчета = „58.5“;
Если БухИтНУ.ПолучитьСчет(,СчетПоКоду(„58.5“)) = 1 Тогда
ТаблицаДанных.ОценкаБУ = БухИтНУ.СКД(„С“) — БухИтНУ.СКК(„С“);
КонецЕсли;

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

ИначеЕсли ВидАктивов = Перечисление.ВидыАктивовИобязательств.РезервыСомнительныхДолгов Тогда
БухИтБУ.ИспользоватьСубконто(ВидыСубконто.Договоры);
БухИтБУ.Опции(1,);
БухИтБУ.ВыполнитьЗапрос(,ВыбДата — 1,»63, НПР.63, КВР.63");

БухИтНУ.Опции(1,);
БухИтНУ.ВыполнитьЗапрос(,ВыбДата — 1,"Н03.08");

ТаблицаДанных.НоваяСтрока();
ТаблицаДанных.Субк1 = ВидАктивов;
ТаблицаДанных.Субк2 = "";
ТаблицаДанных.Субк3 = "";
ТаблицаДанных.Группировка = 1;
ТаблицаДанных.ОценкаНУ = БухИтНУ.СКК(«С») — БухИтНУ.СКД(«С»);

НомерСтрокиГруппировки = 1;
ОценкаБУ = 0;
НПР = 0;
КВР = 0;

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

ТаблицаДанных.МаскаСчета = «63»;

ТаблицаДанных.ОценкаБУ = 0;
ТаблицаДанных.НПР = 0;
ТаблицаДанных.КВР = 0;

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

ТаблицаДанных.НПРсальдо = ТаблицаДанных.НПР;
ТаблицаДанных.КВРсальдо = ТаблицаДанных.КВР;

ОценкаБУ = ОценкаБУ + ТаблицаДанных.ОценкаБУ;
НПР = НПР + ТаблицаДанных.НПР;
КВР = КВР + ТаблицаДанных.КВР;
КонецЦикла;

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

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