public void ДвиженияВозвратаТоваровПоставщикуПоРегистрамПодсистемыНДС(/*СтруктураШапкиДокумента, СтруктураПараметров, ТаблицаПартий, ТаблицаВозвратов, Отказ, Заголовок*/)
{
if(true/*не СтруктураШапкиДокумента.УчитыватьНДС*/)
{
}
//СчетНДС = ПланыСчетов.Хозрасчетный.НДС;
//ТаблицаПоПартиямБУ = РаспределитьПартииПоТаблицеСписания(ТаблицаПартий, ТаблицаВозвратов, СтруктураШапкиДокумента, СтруктураПараметров);
//ТаблицаПоПартиямБУ.Колонки.Добавить("НомерСтрокиТаблицыПоПартиямБУ", Новый ОписаниеТипов("Число", Новый КвалификаторыЧисла(10,0)));
//НомерСтроки = 0;
/*//////////////////////////////////////////////////////////////////////////
*/
/*// Попытка списания товаров по партионному учету НДС
*/
/*/////////////////////////////////////////////////////////////////////////////////
*/
/*//При учете "По средней" или если партионный учет по БУ не ведется - партия может быть незаполнена.
*/
if(true/*ТаблицаПоПартиямБУ.Колонки.Найти("Партия") = Неопределено*/)
{
//ТаблицаПоПартиямБУ.Колонки.Добавить("Партия");
}
//ТаблицаНДСПартииСписания = ОпределитьПартииСписанияПоРегиструНДСПартии(СтруктураШапкиДокумента, ТаблицаПоПартиямБУ.Скопировать(), Отказ, Заголовок, Истина, Ложь, СтруктураПараметров);
/*// Подготовка таблицы списания по партиям товаров по данным партионного учета НДС
*/
/*/////////////////////////////////////////////////////////////////////////////////
*/
/*/////////////////////////////////////////////////////////////////////////////////
*/
/*// НДС по партиям - отразить непосредственое списание.
*/
if(true/*не ТаблицаНДСПартииСписания.Количество() = 0*/)
{
/*//Партии найдены (хотя бы частично). Отразим в партионном учете НДС.
*/
//ТаблицаДвиженийПартии = СтруктураПараметров.ТаблицаДвиженийНДСПартииТоваров;
//СтруктураПараметров.Вставить("ИзмененыДвиженияНДСПартииТоваров", Истина);
//ОбщегоНазначения.ЗагрузитьВТаблицуЗначений(ТаблицаНДСПартииСписания, ТаблицаДвиженийПартии);
//ТаблицаДвиженийПартии.ЗаполнитьЗначения(СтруктураПараметров.Период,"Период");
/*// Делаем не расход, а сторно прихода по регистру.
*/
/*/////////////////////////////////////////////////////////////////////////////////
*/
/*// НДС по ОС - ТМЦ могли принадлежать к будущим ОС,
*/
/*// в этом случае при возврате необходимо снять блокировку с вычета.
*/
//УчетНДСФормированиеДвижений.СформироватьДвиженияПоРегиструНДСпоОСиНМА_ПеремещениеОборудования(СтруктураШапкиДокумента, ТаблицаДвиженийПартии, СтруктураПараметров, Отказ);
/*// НДС по ОС
*/
/*/////////////////////////////////////////////////////////////////////////////////
*/
}
/*// НДС по партиям - отразить непосредственое списание.
*/
/*///////////////////////////
*/
//СуммаНДСПоСтрокам = ОбщегоНазначения.СформироватьТаблицуЗначений(ТаблицаПоПартиямБУ,Новый структура("НомерСтрокиТаблицыПоПартиямБУ, НДС,СуммаБезНДС"));
//ТаблицаПроводокПоНДС = Новый ТаблицаЗначений();
//ТаблицаПроводокПоНДС.Колонки.Добавить("НомерСтрокиДокумента", Новый ОписаниеТипов("Число", Новый КвалификаторыЧисла(10,0)));
//ТаблицаПроводокПоНДС.Колонки.Добавить("НомерСтрокиТаблицыПоПартиямБУ", Новый ОписаниеТипов("Число", Новый КвалификаторыЧисла(10,0)));
//ТаблицаПроводокПоНДС.Колонки.Добавить("СчетФактура");
//ТаблицаПроводокПоНДС.Колонки.Добавить("Поставщик", Новый ОписаниеТИпов("СправочникСсылка.Контрагенты"));
//ТаблицаПроводокПоНДС.Колонки.Добавить("СчетУчетаНДС");
//ТаблицаПроводокПоНДС.Колонки.Добавить("НДС", Новый ОписаниеТипов("Число", Новый КвалификаторыЧисла(15,2)));
//ТаблицаПроводокПоНДС.Колонки.Добавить("НДСВал", Новый ОписаниеТипов("Число", Новый КвалификаторыЧисла(15,2)));
/*// Попытка списания товаров по партионному учету НДС
*/
/*//////////////////////////////////////////////////////////////////////////
*/
//СокращеннаяТаблицаСФВозвратов = ТаблицаНДСПартииСписания.Скопировать();
//СокращеннаяТаблицаСФВозвратов.Свернуть("НомерСтрокиДокумента, НомерСтрокиТаблицыПоПартиямБУ, СчетФактура,Номенклатура,ВидЦенности, СтавкаНДС, НДСВключенВСтоимость,СчетУчетаНДС, ДокументПартии, ПартияСовпадаетСУказаннымДокументомДляВозврата","Количество,Стоимость, НДС,КорВалютнаяСуммаНДСЗадолженностиБУ");
//СокращеннаяТаблицаСФВозвратов.Колонки.Добавить("СуммаБезНДС", Новый ОписаниеТипов("Число", Новый КвалификаторыЧисла(15,2)));
/*// Определение поставщика по счету-фактуре
*/
if(true/*СокращеннаяТаблицаСФВозвратов.Количество()>0*/)
{
//Запрос = Новый Запрос;
//Запрос.УстановитьПараметр("Организация", СтруктураШапкиДокумента.Организация);
//Запрос.УстановитьПараметр("СчетаФактуры", ОбщегоНазначения.УдалитьПовторяющиесяЭлементыМассива(СокращеннаяТаблицаСФВозвратов.ВыгрузитьКолонку("СчетФактура"),Истина));
//Запрос.УстановитьПараметр("ПустойКонтрагент", Справочники.Контрагенты.ПустаяСсылка());
/*Запрос.Текст =
"ВЫБРАТЬ
| НДСПредъявленныйОбороты.Поставщик,
| НДСПредъявленныйОбороты.СчетФактура
|ИЗ
| РегистрНакопления.НДСПредъявленный.Обороты(
| ,
| ,
| ,
| Организация = &Организация
| И СчетФактура В (&СчетаФактуры)) КАК НДСПредъявленныйОбороты
|ГДЕ
| НДСПредъявленныйОбороты.Поставщик <> &ПустойКонтрагент";*/
//КонтрагентПоСчетуФактуре = Запрос.Выполнить().Выгрузить();
//СокращеннаяТаблицаСФВозвратов.Колонки.Добавить("Поставщик", Новый ОписаниеТипов("СправочникСсылка.Контрагенты"));
}
//ОтразитьВКнигеПродаж = (СтруктураШапкиДокумента.Дата>='20060530');
if(true/*ОтразитьВКнигеПродаж*/)
{
if(true/*Не СтруктураШапкиДокумента.ПоставщикуВыставляетсяСчетФактураНаВозврат*/)
{
//ВидНачисления = Перечисления.НДСВидНачисления.НДСВосстановлен;
}
}
if(true/*ОтразитьВКнигеПродаж и СтруктураПараметров.ТаблицаДвиженийНДСНачисленный.Количество()>1*/)
{
//ТаблицаДвижений_НДСНачисленный = СтруктураПараметров.ТаблицаДвиженийНДСНачисленный;
/*// Сворачивание записей регистра "НДС Начисленный"
*/
//СуммовыеКолонки = "СуммаБезНДС, НДС";
//ГруппировочныеКолонки = "";
//ГруппировочныеКолонки = Лев(ГруппировочныеКолонки, СтрДлина(ГруппировочныеКолонки)-1);
//ТаблицаДвижений_НДСНачисленный.Свернуть(ГруппировочныеКолонки,СуммовыеКолонки);
/*// Удаление записей с пустыми суммами
*/
//СтрокиКУдалению = ТаблицаДвижений_НДСНачисленный.НайтиСтроки(Новый Структура("СуммаБезНДС, НДС",0,0));
}
/*//Формирование проводок по отнесению НДС на счет расчетов по претензиям
*/
//НомерСтрокиТаблицыПоПартиямБУ = 0;
//Коэффициент = 0;
if(true/*Не СтруктураШапкиДокумента.ПоставщикуВыставляетсяСчетФактураНаВозврат*/)
{
//ТаблицаПроводокПоНДС.Свернуть("НомерСтрокиДокумента, НомерСтрокиТаблицыПоПартиямБУ, Поставщик, СчетФактура, СчетУчетаНДС","НДС, НДСВал");
}
//ВозвратНДС = ТаблицаПроводокПоНДС.Итог("НДС");
//ВозвратНДСВал = ТаблицаПроводокПоНДС.Итог("НДСВал");
//СтруктураПараметров.Вставить("ВозвратНДС", ВозвратНДС);
//СтруктураПараметров.Вставить("ВозвратНДСВал",ВозвратНДСВал);
if(true/*СтруктураШапкиДокумента.УчетАгентскогоНДС И Не СтруктураШапкиДокумента.ПоставщикуВыставляетсяСчетФактураНаВозврат*/)
{
//ПроводкаНДСПоСтроке = ТаблицаПроводокПоНДС.Добавить();
/*//ПроводкаНДСПоСтроке.НомерСтрокиТаблицыПоПартиямБУ = СтрокаВозврата.НомерСтрокиТаблицыПоПартиямБУ;
*/
/*//ПроводкаНДСПоСтроке.СчетФактура = СтрокаВозврата.ДокументПартии;
*/
/*//ПроводкаНДСПоСтроке.Поставщик = СтруктураШапкиДокумента.Контрагент;
*/
//ПроводкаНДСПоСтроке.НДС = (-1) * ТаблицаПоПартиямБУ.Итог("НДС");
if(true/*СтруктураШапкиДокумента.СчетУчетаРасчетовПоПретензиям.Валютный*/)
{
//ПроводкаНДСПоСтроке.НДСВал = (-1) * ТаблицаПоПартиямБУ.Итог("КорВалютнаяСуммаНДСЗадолженностиБУ");
}
}
}
