M
Mister-X
Ит = СоздатьОбъект("БухгалтерскиеИтоги");
Ит.ИспользоватьПланСчетов(ВыбранныйПланСчетов());
Ит.ИспользоватьСубконто(ВидыСубконто.Контрагенты, ВыбКонтрагент, 1);
Если ВидВзаим = 1 Тогда
Если Константа.ВыделятьАвансы = Перечисление.ДаНет.Да Тогда
СтрРах= "681,371,36,377,63";
Иначе
СтрРах = "36,377,63";
КонецЕсли;
ИначеЕсли ВидВзаим = 2 Тогда
Если Константа.ВыделятьАвансы = Перечисление.ДаНет.Да Тогда
СтрРах= "681,63";
Иначе
СтрРах = "63";
КонецЕсли;
ИначеЕсли ВидВзаим = 3 Тогда
СтрРах= "371,36,377";
КонецЕсли;
Если Ит.ВыполнитьЗапрос(Дата1,Дата2,СтрРах, , ,3,"Проводка","СВ")=1 Тогда
Ит.ВыбратьСчета();
Пока Ит.ПолучитьСчет() = 1 Цикл
Рах = Ит.Счет;
Пока Ит.ПолучитьСубконто() = 1 Цикл
Ит.ВыбратьПериоды();
Пока Ит.ПолучитьПериод() = 1 Цикл
Ит.ВыбратьВалюты();
Пока Ит.ПолучитьВалюту() = 1 Цикл
Табл.НоваяСтрока();
Табл.Документ = Ит.Операция.Документ;
Если Рах.Валютный = 0 Тогда
Табл.СальдоПоч = Ит.СНД() - Ит.СНК();
Табл.ЗбільшГрн = Ит.ДО();
Табл.ЗменшГрн = Ит.КО();
Иначе
Табл.ЗбільшВал = Ит.ДО(2);
Табл.ЗменшВал = Ит.КО(2);
Табл.КінВал = Ит.ДО(2) - Ит.КО(2);
КонецЕсли;
Табл.Валюта = Ит.Валюта;
КонецЦикла;
КонецЦикла;
КонецЦикла;
КонецЦикла;
КонецЕсли;
Не делает выборку по валютам ВыбратьВалюты()=0, хотя в выборке счетов есть счте "681"-валютный. Почему?
1С 7.7 релиз 7.70.025, БухУчет для Украины 7.70.265
Ит.ИспользоватьПланСчетов(ВыбранныйПланСчетов());
Ит.ИспользоватьСубконто(ВидыСубконто.Контрагенты, ВыбКонтрагент, 1);
Если ВидВзаим = 1 Тогда
Если Константа.ВыделятьАвансы = Перечисление.ДаНет.Да Тогда
СтрРах= "681,371,36,377,63";
Иначе
СтрРах = "36,377,63";
КонецЕсли;
ИначеЕсли ВидВзаим = 2 Тогда
Если Константа.ВыделятьАвансы = Перечисление.ДаНет.Да Тогда
СтрРах= "681,63";
Иначе
СтрРах = "63";
КонецЕсли;
ИначеЕсли ВидВзаим = 3 Тогда
СтрРах= "371,36,377";
КонецЕсли;
Если Ит.ВыполнитьЗапрос(Дата1,Дата2,СтрРах, , ,3,"Проводка","СВ")=1 Тогда
Ит.ВыбратьСчета();
Пока Ит.ПолучитьСчет() = 1 Цикл
Рах = Ит.Счет;
Пока Ит.ПолучитьСубконто() = 1 Цикл
Ит.ВыбратьПериоды();
Пока Ит.ПолучитьПериод() = 1 Цикл
Ит.ВыбратьВалюты();
Пока Ит.ПолучитьВалюту() = 1 Цикл
Табл.НоваяСтрока();
Табл.Документ = Ит.Операция.Документ;
Если Рах.Валютный = 0 Тогда
Табл.СальдоПоч = Ит.СНД() - Ит.СНК();
Табл.ЗбільшГрн = Ит.ДО();
Табл.ЗменшГрн = Ит.КО();
Иначе
Табл.ЗбільшВал = Ит.ДО(2);
Табл.ЗменшВал = Ит.КО(2);
Табл.КінВал = Ит.ДО(2) - Ит.КО(2);
КонецЕсли;
Табл.Валюта = Ит.Валюта;
КонецЦикла;
КонецЦикла;
КонецЦикла;
КонецЦикла;
КонецЕсли;
Не делает выборку по валютам ВыбратьВалюты()=0, хотя в выборке счетов есть счте "681"-валютный. Почему?
1С 7.7 релиз 7.70.025, БухУчет для Украины 7.70.265