БухИтоги 1С:Бухгалтерия v7.7
17.06.2006
19:20
#1
"Такая вот трабла...
Следующий фрагмент выдает выручку в таблицу значений.
Для 2005 г. все нормально, т.е. выдавались суммы без НДС.
В 2006 г. изменился учет, и суммы выдаются с НДС, а надо без.
Известно, что если из итога вычесть оборот по счету 90.3 (НДС),
то получается нужный итог. Но помимо этого в каждой строке нужно
также вычитать счет 90.3.
КАК???
Процедура БухИтоги(ВыбНачПериода, ВыбКонПериода);
Ит = СоздатьОбъект("БухгалтерскиеИтоги");
Тз = СоздатьОбъект("ТаблицаЗначений");
Тз.НоваяКолонка("Заказ","Справочник.Заказы");
Тз.НоваяКолонка("ВН","Справочник.ВидыНоменклатуры");
Тз.НоваяКолонка("Контр","Справочник.Контрагенты");
Тз.НоваяКолонка("Выр","Число"); //выручка с НДС (в 2006 г.)
Тз.НоваяКолонка("НДС","Число"); Сумма НДС (добавлено для 2006 г.)
Тз.НоваяКолонка("БезНДС","Число"); Сумма без НДС (добавлено для 2006 г.)
Ит.ИспользоватьСубконто(ВидыСубконто.ВидыНоменклатуры,, 1);
Ит.ИспользоватьСубконто(ВидыСубконто.Заказы,, 1);
Ит.ИспользоватьКорСубконто(ВидыСубконто.Контрагенты,, 1);
Ит.ВыполнитьЗапрос(ВыбНачПериода, ВыбКонПериода,
"90.1.1","62.1,62.11",, 2,, "С");
Ит.ВыбратьСубконто(ВидыСубконто.Заказы);
Пока Ит.ПолучитьСубконто(ВидыСубконто.Заказы) = 1 Цикл
Ит.ВыбратьСубконто(ВидыСубконто.ВидыНоменклатуры);
Пока Ит.ПолучитьСубконто(ВидыСубконто.ВидыНоменклатуры) = 1 Цикл
Ит.ВыбратьКорСубконто(ВидыСубконто.Контрагенты);
Пока Ит.ПолучитьКорСубконто(ВидыСубконто.Контрагенты) = 1 Цикл
Если Ит.КорКО() <> 0 Тогда
Тз.НоваяСтрока();
Тз.Контр = Ит.КорСубконто(ВидыСубконто.Контрагенты);
Тз.Заказ = Ит.Субконто(ВидыСубконто.Заказы);
Тз.ВН = Ит.Субконто(ВидыСубконто.ВидыНоменклатуры);
ТЗ.Выр = Ит.КорКО(); //Выручка с НДС
// ТЗ.НДС = ????
// ТЗ.БезНДС= ????
//здесь нужно вычислять сумму НДС, или сумму без НДС (используя счет 90.3)
//или, возможно, после заполнения Тз перебрать ее строки, и как-то
//вычислить эти значения?...
КонецЕсли; //есть оборот
КонецЦикла; //по контрагентам
КонецЦикла; //по номенклатуре
КонецЦикла; //по заказам
КонецПроцедуры"
Следующий фрагмент выдает выручку в таблицу значений.
Для 2005 г. все нормально, т.е. выдавались суммы без НДС.
В 2006 г. изменился учет, и суммы выдаются с НДС, а надо без.
Известно, что если из итога вычесть оборот по счету 90.3 (НДС),
то получается нужный итог. Но помимо этого в каждой строке нужно
также вычитать счет 90.3.
КАК???
Процедура БухИтоги(ВыбНачПериода, ВыбКонПериода);
Ит = СоздатьОбъект("БухгалтерскиеИтоги");
Тз = СоздатьОбъект("ТаблицаЗначений");
Тз.НоваяКолонка("Заказ","Справочник.Заказы");
Тз.НоваяКолонка("ВН","Справочник.ВидыНоменклатуры");
Тз.НоваяКолонка("Контр","Справочник.Контрагенты");
Тз.НоваяКолонка("Выр","Число"); //выручка с НДС (в 2006 г.)
Тз.НоваяКолонка("НДС","Число"); Сумма НДС (добавлено для 2006 г.)
Тз.НоваяКолонка("БезНДС","Число"); Сумма без НДС (добавлено для 2006 г.)
Ит.ИспользоватьСубконто(ВидыСубконто.ВидыНоменклатуры,, 1);
Ит.ИспользоватьСубконто(ВидыСубконто.Заказы,, 1);
Ит.ИспользоватьКорСубконто(ВидыСубконто.Контрагенты,, 1);
Ит.ВыполнитьЗапрос(ВыбНачПериода, ВыбКонПериода,
"90.1.1","62.1,62.11",, 2,, "С");
Ит.ВыбратьСубконто(ВидыСубконто.Заказы);
Пока Ит.ПолучитьСубконто(ВидыСубконто.Заказы) = 1 Цикл
Ит.ВыбратьСубконто(ВидыСубконто.ВидыНоменклатуры);
Пока Ит.ПолучитьСубконто(ВидыСубконто.ВидыНоменклатуры) = 1 Цикл
Ит.ВыбратьКорСубконто(ВидыСубконто.Контрагенты);
Пока Ит.ПолучитьКорСубконто(ВидыСубконто.Контрагенты) = 1 Цикл
Если Ит.КорКО() <> 0 Тогда
Тз.НоваяСтрока();
Тз.Контр = Ит.КорСубконто(ВидыСубконто.Контрагенты);
Тз.Заказ = Ит.Субконто(ВидыСубконто.Заказы);
Тз.ВН = Ит.Субконто(ВидыСубконто.ВидыНоменклатуры);
ТЗ.Выр = Ит.КорКО(); //Выручка с НДС
// ТЗ.НДС = ????
// ТЗ.БезНДС= ????
//здесь нужно вычислять сумму НДС, или сумму без НДС (используя счет 90.3)
//или, возможно, после заполнения Тз перебрать ее строки, и как-то
//вычислить эти значения?...
КонецЕсли; //есть оборот
КонецЦикла; //по контрагентам
КонецЦикла; //по номенклатуре
КонецЦикла; //по заказам
КонецПроцедуры"
Выгрузка и загрузка справочников и документовЗиК 7.7 (7.70.265): начисление отпуска при изменении оклада
Читают тему
(гостей: 1)