-- Шаблон создан мастером бланков
-- 23.01.2015 10:59:37
--
БланкСШаблоном "Функции для импорта из формата ФК";

func Чит(F: I): S;  --кусок текста из файла, который требуется загрузить;
var Char:S;
var Bur:S;
  if not TextFileEndOfFile(F):
    Bur = "";
    Char = TextFileRead(F, 1);
    While char <> "|" and Char <> "" do
      Bur =Bur + Char;
      Char = TextFileRead(F, 1);
    od;
 fi;
  ^Bur;
end;

Func ВДату(Bur:S):D;     --переводим встречаемые в тексте даты в нужный формат.
var tmpD:D;
  Try
   tmpD=StringToDate(Bur);
  Except
   Trace("Ошибка! Значение поля ("+Bur+") не является правильным представлением даты");
   tmpD=1.1.100;
  end;
  ^tmpD;
end;

Func ВЧисло(Bur:S):N;     --переводим встречаемые в тексте числа в нужный формат.
var tmpN:N;
  Try
   if Bur="": tmpN=0.00;
   else tmpN=StringToNumeric(Bur);
   fi;
  Except
   Trace("Ошибка! Значение поля ("+Bur+") не является правильным представлением числа.");
   tmpN=0.00;
  end;
  ^tmpN;
end;



Конец
