//----4----//
//=========================не трогать====================================================================
Если ДокРН.Итог("СуммаСНДС")<ДокРН.СуммаДокНал Тогда// **начало
сообщить ("Не хватает товара!!");
иначе
//правим суммы
Ном = ДокРН.КоличествоСтрок();
Если Ном > 0 Тогда //**1
Пока Ном > 0 Цикл
ДокРН.ПолучитьСтрокуПоНомеру(Ном);
Если ДокРН.Итог("СуммаСНДС")>ДокРН.СуммаДокНал Тогда //**2
Дельта2= ДокРН.Итог("СуммаСНДС")-ДокРН.СуммаДокНал;
ДокРН.СуммаСНДС=ДокРН.Суммасндс-Дельта2;
Если ДокРН.СуммаСНДС=0 Тогда
ДокРН.Удалитьстроку();
КонецЕсли;
//**выбрает вессой или штучный товар и правим кво с условием
Если ДокРН.ТМЦ.Весовой = 0 тогда
ДокРН.Кво=Окр(ДокРН.СуммаСНДС/ДокРН.ЦенаСНДС);
иначе
ДокРН.Кво=ДокРН.СуммаСНДС/ДокРН.ЦенаСНДС;
КонецЕсли;//**выбрала
ДокРН.ЦенаСНДС= ДокРН.СуммаСНДС/ДокРН.Кво;
ДокРН.СуммаБезНДС=Формат(ДокРН.СуммаСНДС/1.2,"Ч12.2");
ДокРН.НДС= Формат(ДокРН.СуммаСНДС-ДокРН.СуммаБезНДС,"Ч12.2");
ДокРН.СуммаБезСкидки=ДокРН.СуммаБезНДС;
КонецЕсли; //**2
Ном = Ном-1;
КонецЦикла;
КонецЕсли; //**1
КонецЕсли; //*** начало
алгоритм подбора кол-ва и подгонка суммы в документе на согласно указанной ДокРН.СуммаДокНал (СуммаДокНал-это сумма переплаты по покупателю)
