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

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

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

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

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

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

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

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

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

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