1.
stalker-vn
13
22.02.08 09:46
Сейчас в теме
Помогите пожалуйста, при выгрузке из торговли выгруж. счет-фактуры, товар с 18% НДС и 10% НДС. Раньше все было по 18% НДС (проблем не было), сейчас появился товар с 10%. Если выгружать счет-фактуру в которой есть товар с 10%НДС и с 18%НДС, то она разбивается на две счет-фактуры с одинаковыми номерами, с 18% и с 10% (при выгрузке из торговли так и должно быть). Подскажите как мне объединить номенклатуру из двух счет-фактур с одинаковыми номерами в одну.
Подскажите пожалуйста, очень нужно срочно.
Это часть обработки загрузки из торговли где созд. счет-фактуры.
ДСФ = СоздатьОбъект("Документ.СчетФактура");
ДСФ.Новый();
ДСФ.НомерДок = Табл.НомерДок;
ДСФ.ДатаДок = Табл.ДатаДок;
ДСФ.СчетНДС = 1;
ДСФ.Контрагент = Контр.ТекущийЭлемент();
ДСФ.ВариантОтправки = 1;
ДСФ.ОтключитьАкциз = 1;
ДСФ.ОтключитьНП = 1;
ДСФ.ВключатьВКнигуПродаж= 1;
ДСФ.Грузополучатель = Контр.ТекущийЭлемент();
ДСФ.ДатаОплаты = Строка(Табл.ДатаДок);
ДСФ.НоваяСтрока();
ДСФ.НазначитьТип("Товар","Справочник.Номенклатура");
ДСФ.НазначитьТип("Субконто1","Справочник.ВидыНоменклатуры");
ДСФ.НазначитьТип("Субконто2","Справочник.СтавкиНДС");
Если Табл.СтавкаНДС = 18 тогда
Товар.найтиПоКоду("000000001");
ДСФ.Товар = Товар.ТекущийЭлемент();
ДСФ.Счет = СчетПоКоду("90.3");
ДСФ.Субконто1 = ВидН.ТекущийЭлемент();
СтавкаНДС.НайтиПоКоду(6);
ДСФ.Субконто2 = СтавкаНДС.ТекущийЭлемент();
ДСФ.СтавкаНДС = СтавкаНДС.ТекущийЭлемент();
ИначеЕсли Табл.СтавкаНДС = 10 тогда
Товар.найтиПоКоду("000000248");
ДСФ.Товар = Товар.ТекущийЭлемент();
ДСФ.Счет = СчетПоКоду("90.3");
ДСФ.Субконто1 = ВидН.ТекущийЭлемент();
СтавкаНДС.НайтиПоКоду(2);
ДСФ.Субконто2 = СтавкаНДС.ТекущийЭлемент();
ДСФ.СтавкаНДС = СтавкаНДС.ТекущийЭлемент();
Иначе
Товар.найтиПоКоду("000000249");
ДСФ.Товар = Товар.ТекущийЭлемент();
ДСФ.Счет = СчетПоКоду("90.3");
ДСФ.Субконто1 = ВидН.ТекущийЭлемент();
СтавкаНДС.НайтиПоКоду(3);
ДСФ.Субконто2 = СтавкаНДС.ТекущийЭлемент();
ДСФ.СтавкаНДС = СтавкаНДС.ТекущийЭлемент();
КонецЕсли;
ДСФ.Количество = 1;
ДСФ.Цена = Табл.СуммаБезНДС;
ДСФ.Сумма = Табл.СуммаБезНДС;
ДСФ.НДС = Табл.СуммаНДС;
ДСФ.НП = 0;
ДСФ.Всего = Табл.сумма;
ДСФ.Записать();
ДСФ.Провести(1,"Программно");
КонецЕсли; //если док= СФ