Цитата: SnakePlisskin от Сегодня в 15:32А что есть ВидДеятельности - справочника такого я не нашел.ВидНоменклатуры - это ж пример.
Цитата: Харлампий Дымба от Вчера в 21:36Если самописка на базе типовой, то:ТЗ_НДС = СоздатьОбъект("ТаблицаЗначений"); ТЗ_НДС.НоваяКолонка("ВидДеятельности"); ТЗ_НДС.НоваяКолонка("СтавкаНДС"); ТЗ_НДС.НоваяКолонка("НДС","Число"); // по каждой строке документа заполняешь НДС по ставкам по видам деятельности //... ТЗ_НДС.Свернуть("ВидДеятельности,СтавкаНДС","НДС"); ТЗ_НДС.ВЫбратьСтроки(); Пока ТЗ_НДС.ПолучитьСтроку() = 1 Цикл Если ТЗ_НДС.НДС <> 0 Тогда Операция.НоваяПроводка(); Операция.ПервичныйДокумент = глПредставлениеПервичногоДокумента(Контекст); Операция.НомерЖурнала = "ТВ"; Операция.СодержаниеПроводки = "Начислен НДС"; Операция.Дебет.Счет = СчетПоКоду("90.3"); Операция.Дебет.Субконто(1, ТЗ_НДС.ВидДеятельности); Операция.Дебет.Субконто(2, ТЗ_НДС.СтавкаНДС); Операция.Кредит.Счет = СчетПоКоду("68.2"); Операция.Кредит.ВидыПлатежейВБюджет = Перечисление.ВидыПлатежейВБюджет.Налог; Операция.Сумма = ТЗ_НДС.НДС; КонецЕсли; КонецЦикла;Цитата: Злоп от Вчера в 17:40как у них 90.3 по кредиту закроется...Ну и опять же - если документ вкорячен в типовую Бухию, то "ЗакрытиеМесяца" всё сделает чётко.
Цитата: Харлампий Дымба от Вчера в 21:36Если самописка на базе типовой, то:ТЗ_НДС = СоздатьОбъект("ТаблицаЗначений"); ТЗ_НДС.НоваяКолонка("ВидДеятельности"); ТЗ_НДС.НоваяКолонка("СтавкаНДС"); ТЗ_НДС.НоваяКолонка("НДС","Число"); // по каждой строке документа заполняешь НДС по ставкам по видам деятельности //... ТЗ_НДС.Свернуть("ВидДеятельности,СтавкаНДС","НДС"); ТЗ_НДС.ВЫбратьСтроки(); Пока ТЗ_НДС.ПолучитьСтроку() = 1 Цикл Если ТЗ_НДС.НДС <> 0 Тогда Операция.НоваяПроводка(); Операция.ПервичныйДокумент = глПредставлениеПервичногоДокумента(Контекст); Операция.НомерЖурнала = "ТВ"; Операция.СодержаниеПроводки = "Начислен НДС"; Операция.Дебет.Счет = СчетПоКоду("90.3"); Операция.Дебет.Субконто(1, ТЗ_НДС.ВидДеятельности); Операция.Дебет.Субконто(2, ТЗ_НДС.СтавкаНДС); Операция.Кредит.Счет = СчетПоКоду("68.2"); Операция.Кредит.ВидыПлатежейВБюджет = Перечисление.ВидыПлатежейВБюджет.Налог; Операция.Сумма = ТЗ_НДС.НДС; КонецЕсли; КонецЦикла;Цитата: Злоп от Вчера в 17:40как у них 90.3 по кредиту закроется...Ну и опять же - если документ вкорячен в типовую Бухию, то "ЗакрытиеМесяца" всё сделает чётко.
Цитата: Ветер в поле от Вчера в 10:45Если есть работа со сканером, то постоянно на такие проблемы натыкаешься...Про мышей, кактус и работу со сканером ИСКЛЮЧИТЕЛЬНО в режиме эмуляции COM-порта я промолчу... Со ВнешнегоСобытия данные прилетают в то поле, которое вы хотите, и никуда фокус не убегает...
ТЗ_НДС = СоздатьОбъект("ТаблицаЗначений");
ТЗ_НДС.НоваяКолонка("ВидДеятельности");
ТЗ_НДС.НоваяКолонка("СтавкаНДС");
ТЗ_НДС.НоваяКолонка("НДС","Число");
// по каждой строке документа заполняешь НДС по ставкам по видам деятельности
//...
ТЗ_НДС.Свернуть("ВидДеятельности,СтавкаНДС","НДС");
ТЗ_НДС.ВЫбратьСтроки();
Пока ТЗ_НДС.ПолучитьСтроку() = 1 Цикл
Если ТЗ_НДС.НДС <> 0 Тогда
Операция.НоваяПроводка();
Операция.ПервичныйДокумент = глПредставлениеПервичногоДокумента(Контекст);
Операция.НомерЖурнала = "ТВ";
Операция.СодержаниеПроводки = "Начислен НДС";
Операция.Дебет.Счет = СчетПоКоду("90.3");
Операция.Дебет.Субконто(1, ТЗ_НДС.ВидДеятельности);
Операция.Дебет.Субконто(2, ТЗ_НДС.СтавкаНДС);
Операция.Кредит.Счет = СчетПоКоду("68.2");
Операция.Кредит.ВидыПлатежейВБюджет = Перечисление.ВидыПлатежейВБюджет.Налог;
Операция.Сумма = ТЗ_НДС.НДС;
КонецЕсли;
КонецЦикла;
Цитата: Злоп от Вчера в 17:40как у них 90.3 по кредиту закроется...Ну и опять же - если документ вкорячен в типовую Бухию, то "ЗакрытиеМесяца" всё сделает чётко.