{*************************************************************************************
Finelituonti.pas (c)  2018 SKJ Systems LTD oy
SKJ scriptille tehty finelliravintoarvojen tuonti 
Vaihda asiakkaan tietokanta  riville noin 132
*************************************************************************************}
var
  sl;
  fn;
  t;
  h;
  dbname;
  i,j;
  data;
  id;
  s;
  st;

procedure SpecdietShortDesc(a);
var
  i: integer;
begin
  i := 0;
  t := ttbtable.Create(nil);
  t.databasename := dbname;
  t.tablename := 'fineli_specdietlang';
  t.open;
  while i<high( a ) do
  begin
    if t.findkey1(a[i]) then
    begin
      t.edit;
      t.fieldbyname('Shortdesc').asstring := a[i+1];
      t.post;
    end
    else
     logentry('Ei löydy '+a[i]);
    i :=  i+ 2;
  end;
  t.close;
  t.free;
end;

procedure kasittele(lahde, taulu);
begin
  showstatus(st,'Tuodaaa',lahde);
  logentry('tuodaan '+lahde);
  createsql(dbname, 'delete from '+taulu,3);

  // food.csv
  t := ttbtable.Create(nil);
  t.databasename := dbname;
  t.tablename := taulu;
  t.open;

  sl := tstringlist.create;
  sl.loadfromfile(lahde);
  h := TStringList.create;
  data := TStringList.create;
  CSVToStringList(sl.strings[0],h ,';',true);
  for i:= 1 to sl.count -1 do
  begin
    s := sl.strings[i];
    CSVToStringList(s,data ,';',true);
    id := data.strings[0];
    logentry(id);
    if t.findkey1(id) then
      t.edit
    else
    begin
      t.insert;
      t.fieldbyname( h.strings[0] ).asstring := id;
    end;
    for j := 1 to h.count-1 do
    begin
      t.fieldbyname(h.strings[j]).asstring := data.strings[j];
    end;
    t.post;
  end;
  t.free;
  sl.free;
  h.free;
  data.free;
end;

procedure kasittele2(lahde, taulu; i2);
var
  id2;
begin
  showstatus(st,'Tuodaaa',lahde);
  logentry('tuodaan '+lahde);
  createsql(dbname, 'delete from '+taulu,3);

  if i2=0 then i2 := 1;
  LogEntry('Tuodaan '+lahde);
  t := ttbtable.Create(nil);
  t.databasename := dbname;
  t.tablename := taulu;
  t.open;

  sl := tstringlist.create;
  sl.loadfromfile(lahde);
  h := TStringList.create;
  data := TStringList.create;
  CSVToStringList(sl.strings[0],h ,';',true);
  for i:= 1 to sl.count -1 do
  begin

    s := sl.strings[i];
    CSVToStringList(s,data ,';',true);
    id := data.strings[0];
    id2 := data.strings[i2];
    if t.findkey2(id, id2) then
      t.edit
    else
    begin
      t.insert;
      t.fieldbyname(h.strings[0]).asstring := id;
      t.fieldbyname(h.strings[i2]).asstring := id2;
    end;
    for j := 1 to h.count-1 do
      t.fieldbyname(h.strings[j]).asstring := data.strings[j];
    t.post;
  end;
  t.free;
  sl.free;
  h.free;
  data.free;
end;

begin

  dbname := 'EKBR'; // tietokannan nimi
  st := CreateStatus('finelituonti');
  ShowStatus(st,'Finelituonti','lataan zip:n');
  forcedirectories('c:\temp\fineli');
  DeleteFile('c:\temp\finel.zip');
  runexe('wget','https://fineli.fi/fineli/content/file/35 -Oc:\temp\finel.zip');
  unzip('c:\temp\finel.zip','c:\temp\fineli','*.*');

  kasittele('c:\temp\fineli\food.csv','fineli_food');
  kasittele('c:\temp\fineli\component.csv','fineli_components');
  kasittele('c:\temp\fineli\igclass_fi.csv','fineli_igclass');
  kasittele('c:\temp\fineli\methtype_fi.csv','fineli_methtype');
  kasittele2('c:\temp\fineli\specdiet.csv','fineli_specdiet',1);
  kasittele2('c:\temp\fineli\specdiet_fi.csv','fineli_specdietlang',2);
  kasittele2('c:\temp\fineli\component_value.csv','fineli_compvalue',1);
  kasittele2('c:\temp\fineli\foodaddunit.csv','fineli_food_au',1);
  kasittele2('c:\temp\fineli\process_fi.csv', 'fineli_process',2);
  kasittele2('c:\temp\fineli\fuclass_fi.csv', 'fineli_fuclass',2);
  kasittele2('c:\temp\fineli\eufdname_fi.csv', 'fineli_eufdname',2);
  kasittele2('c:\temp\fineli\foodunit_fi.csv', 'fineli_foodunit',2);
  kasittele2('c:\temp\fineli\cmpclass_fi.csv', 'fineli_cmpclass',2);
  kasittele2('c:\temp\fineli\contribfood.csv','fineli_recipe',1);
  kasittele2('c:\temp\fineli\foodtype_fi.csv','fineli_foodtype',2);
  kasittele2('c:\temp\fineli\methtype_fi.csv','fineli_methtype',2);
  SpecdietShortDesc(['CHOLFREE','kolesteroliton',
                     'LOWPROT','vähäproteiininen',
                     'LACSFREE','laktoositon',
                     'SALTFREE','suolaton',
                     'LACVEGE','laktovegetaarinen',
                     'GLUTFREE','gluteeniton',
                     'LACOVEGE','lakto-ovo-vegetaarinen',
                     'EGGFREE','munaton',
                     'SOYAFREE','soijaton',
                     'UNSWEET','makeuttamaton',
                     'NAGLUFRE','luontaisesti gluteeniton',
                     'MILKFREE','maidoton',
                     'VEGAN','vegaaninen',
                     'LOWFAT','vähärasvainen',
                     'VITAMADD','vitamoitu',
                     'SUCSFREE','sokeriton',
                     'NOPRESER','säilöntäaineeton',
                     'NOCOLOUR','väriaineeton',
                     'LOSALT', 'vähäsuolainen',
                     'LOWLACS', 'vähälaktoosinen',
                     'LOWFAT', 'vähärasvainen',
                     'LOWLACS', 'vähäenerginen',
                     'LOWCHOL', 'vähäkolesterolinen',
                     'HIGHSALT', 'voimakassuolainen',
                     'HIGHFIBR','runsaskuituinen',
                     'FUNCTION','terveysvaikutteinen',
                     'FRUSWEET','fruktoosilla makeutettu',
                     'FATFREE', 'rasvaton',
                     'ARTSWEET','keinotekoisesti makeutettu',
                     'ALCFREE','alkoholiton',
                     'ADDFREE','lisäaineeton',
                     'LOWENER','vähäenerginen',
                     'LOWSALT', 'vähäsuolainen']);

  closestatus(st);
 end;