Загрузка остатков из процедуры
procedure AddLine(TradeName : string; //Наименование
FabrName : string; //Производитель
PriceDistrib : real; //Цена поставщика
PriceRozn : real; //Цена розничная
CurBalance : real; //Текущий баланс
Series : string; //Серия
Artikul : string; //Артикул
EAN13 : string; //Штрих-код заводской
DistribName : string; //Поставщик
SrokGodnosty : string; //Срок годности
DataPrihod : string; //Дата прихода
PriceIzg : real = 0) // Цена изготовителя