Versions Compared

Version Old Version 26 New Version Current
Changes made by

Mika Koistinen

Kaj Bjork

Saved on

Key

  • This line was added.
  • This line was removed.
  • Formatting was changed.


Info

https://stash.skj.fi/projects/SKRIP

...

Function StrToF(s: string): Double;

    • muuntaa merkkijono liukuluvuksi. poistaa välilyönnit ja huolehtii piste/pilkku muunnoksesta.
  • procedure CSVToStringList(Lahde: String; Kohde: TStringList; Erotin: Char; RiisuLainausMerkit: Boolean);

    • purkaa csv muodossa olevan merkkijono StringListaksi esim.
      lista := TStringList.create;

      Panel

      s := '1;"ohje esimerkki";12,2';

      CSVToStringList(s,lista,';',true);
      for i:= 0 to Lista.count -1 do
        ShowMessage(Lista.items[i]);


Katso myös CSV_Tuonti.htm esimerkki.

Numerot

  • Arc
  • Tan
  • Dec
  • Inc
    • Lisää yhden muuttujaan, esim Inc(count)
  • Pyorista(Luku; tarkkuus)
    • Pyöristää luvun annettuun tarkkuuteen, esim -2 -> 2 desimaaliin, 2 = lähimpään 100:n
  • SimpleRoundTo
    • Sama kuin pyöristä, mutta johtuen d7 system kirjaston bugista, toimii väärin jossain tilanteissa. Pyorista korjaa sen. D2007 versioon korjautunut.
  • RoundTo

Päiväys

  • function Date:TDateTime;
    • palauttaa nykyisen päiväyksen DateTime tyyppinä
  • function DateTimeToStr(DateTime: TDateTIme):String;
    • muuntaa annetun päiväyksen / kellonajan merkkijonoksi windowin asetusten mukaan.
  • function DateToStr (Date: TDateTime): String;
    • muuntaa annetun päiväyksen merkkijonoksi windowsin asetusten mukaan.
  • function DayOfWeek (date: TdateTime):Integer;
    • palauttaa viikonpäivän numerovälillä su (1) .. la (7)
  • function DayOfTheWeek (date: TdateTime):Integer;
    • palauttaa viikonpäivän numerovälillä ma (1) .. su (7). ANSI -standardin mukainen.
  • function SqlDateToDate(dateString: String): Tdatetime;
    • Muuttaa yyyy-mm-dd muotoisen päiväysmerkkijonon sisäiseksi Tdatetime -tyypiksi.
  • DecodeDate
  • DecodeTime
  • EncodeDate
  • EncodeTime
  • IsLeapYear
  • StrToDate
  • StrToDateTime
  • Functon Now: TdateTime
    • palauttaa nykyhetken
  • function FormatDateTime(format: string; DateTime: Tdatetime):String;
    • Muotoilee ajan ja päivän annetulla formaatilla kts.
  • StrToTime
  • Time
  • TimeToStr

Bonuslaskenta

  • function AlustaBonus(Tietokanta): Bonusluokka;
    • lataa bonusasetukset. Kutsu vain kerran ja jokaista AlustaBonus rutiinin kutsua kohden pitää kutsua vapautabonus.
  • procedure VapautaBonus(Bonusluokka);
    • vapauttaa aiemmin AlustaBonus funktiolla luodun bonusmuuttuja.
  • function BonusPros(kertyma:Double): Double;
    • palauttaa bonusprosentin johon ostokertymä oikeuttaa

Tietokanta

Titan -komponentin liityntä tauluun luodaan seuraavasti

Code Block
languagedelphi
Tuotetaulu := TTbTable.create(nil);
tuotetaulu.tablename := 'tuote';
tuotetaulu.databasename := 'testikanta';
tuotetaulu.open;
... ja lopuksi
tuotetaulu.free;
  • function TTbTable.TryEdit (ms_viive: integer);

    • tTbTable-luokan menetelmä. Yrittää saada muokkausoikeuden taulun nykyiseen tietueeseen ja yritetään korkeintaan ms_viiveen ajan. Aika on millisekunteina. Palauttaa false jos epäonnistui, esim.

      Code Block
      languagedelphi
      if not tuote.tryedit(2000) then
  showmessage('Tuotetta ei voi muokata');
  • function TTbTable.TryPost (ms_viive: integer);

    • tTbTable-luokan menetelmä. Yrittää saada muokkausoikeuden taulun nykyiseen tietueeseen ja yritetään korkeintaan ms_viiveen ajan. Aika on millisekunteina. Palauttaa false jos epäonnistui, esim.

      Code Block
      languagedelphi
      if varsaldo.tryEdit(2000) then
begin
  varsaldo.fieldbyname('saldo').asfloat := 0;
  varsaldo.fieldbyname('muutosklo').asdatetime := now;
  if not varsaldo.trypost(2000) then
  begin
    logentry('Varsaldoa ei voi tallentaa');
    varsaldo.cancel;
  end;
end
else
  showmessage('Saldoa ei voi muokata');

Pervasive sql

Koska pervasiven PDAC komponenttikirjastoista ei ole saatavilla lähdekoodeja, siitä emme ole voineet tuottaa titan rajanpinnan kaltaista liittymää. Sql rajapinta on tehty omilla rutiineilla jotka ovat

  • function LuoSql(TietokantaAlias, sql, tapa) - luo kyselyn ja palauttaa sen muuttujan (jatkossa alla kysely). Voidaan myös lisätä suoraan sql parametriksi esim. q := luosql(dbname,'select count ( * ) as c from from tuote'); joka tekee luonnin lisäksi sql lauseen asettamisen. Vapaaehtoinen 3. parametri tapa voidaan myös antaa. Se voi olla välillä 1-3, 1= avaa kyselyn, 2 = ajaa kysely (update, insert, delete tms), 3= ajaa kyselyn ja vapauttaa sql muutujan. Kun tapa=3, paluu arvona on vaikutettujen rivien määrä.
  • procedure VapautaSql(Kysely) - vapauttaa LuoSql:llä luodun kysely
  • procedure Asetasq(Kysely, SqlLause) - asettaa kyselylle sqllauseen
  • procedure Avaasql(kysely) - avaa sql lauseen esim. raportointia tai aineiston muuta läpikahlausta varten
  • procedure AjaSql(kysely) - ajaa sql lauseen esim. update, insert tai delete.
  • procedure SuljeSql(kysely) - sulkee sql kyselyn
  • function eofSql(kysely) - palautaa True jos kysely on loppu
  • function SqlFirst(kysely) - palaa ensimmäiseen tietueeseen
  • function Sqlnext(kysely) - siirtyy seuraavaan tietueeseen
  • function SqlPrev(kysely) - siirtyy edelliseen tietueeseen
  • function SqlLast(kysely) - siirtyy viimeiseen tietueeseen
  • function Sqlfbi(kysely,kentta) - palauttaa avatusta kyselystä kentän integerinä
  • function Sqlfbb(kysely,kentta) - palauttaa avatusta kyselystä kentän Booleanin
  • function Sqlfbs(kysely,kentta) - palauttaa avatusta kyselystä kentän stringinä
  • function Sqlfbd(kysely,kentta) - palauttaa avatusta kyselystä kentän DateTimeä

Huom! Kysellessä memokenttiä (tuotetxt.teksti, astxt.teksti tms) joiden sisältö on yli 1024 merkkiä, tulee virhe.
Sen voi kiertää ainakin jossain määrin muuttamalla kyselyn "select tuotenro, teksti from tuotetxt" muotoon "select tuotenro, convert(teksti,sql_varchar) as teksti from tuotetxt".
Toinen vaihtoehto on käyttää taulukomponenttia.

Code Block
languagedelphi
kysely := LuoSql('testikanta');
asetasql(kysely,'select tuote,sum(summa) as myynti from tuotemyy where tuotelaji in (0,2) and pvm>''2011'' ');
avaasql(kysely);
while not eofsql(kysely) do
begin
  showmessage(sqlfbs(kysely,'tuote')+' '+formatfloat('#0.00',sqlfbf(kysely,'myynti')));
  sqlnext(kysely);
end;
suljesql(kysely);
vapautasql(kysely);

kysely1 := CreateSql('testikanta','select count(*) as maara from tuote where ryhma = :r');
preparesql(kysely1);
for i := 1 to 10 do
begin
  sqlSetParam(kysely1,'r',i);
  opensql(kysely1);
  showmessage('Tuoteryhmässä '+inttostr(i)+' on tuotteita '+inttostr(sqlfbi(kysely1,'maara')));
  closesql(kysely1);
end;
unprepareSql(kysely1);
vapautasql(kysely1);

...

Eroja normaaliin pascal syntaksiin

Eroja on, tässä muutama maininta.
Muuttujat ovat pääsääntöisesti aina variantteja. 
Case lause on erilainen , lauseessa ei vaadi että casen arvot ovat vakiota. Ehto totetuu kun funktio paluu arvo täsmää verrattavaan

Code Block
languagedelphi
sanat := 'SIKA;PORSAS;LEHMA;KISSA'; 
s := 'elainLehma';           
case lowercase(copy(s,5)) of        
  lowercase(extractWord(1,sanat,';')) : showmessage('RÖH');
  lowercase(extractWord(2,sanat,';')) : showmessage('röh');
  lowercase(extractWord(3,sanat,';')) : showmessage('ammuu');
  lowercase(extractWord(4,sanat,';')) : showmessage('miau');
end;


Numerot

  • Arc
  • Tan
  • Dec
  • Inc
    • Lisää yhden muuttujaan, esim Inc(count)
  • Pyorista(Luku; tarkkuus)
    • Pyöristää luvun annettuun tarkkuuteen, esim -2 -> 2 desimaaliin, 2 = lähimpään 100:n
  • SimpleRoundTo
    • Sama kuin pyöristä, mutta johtuen d7 system kirjaston bugista, toimii väärin jossain tilanteissa. Pyorista korjaa sen. D2007 versioon korjautunut.
  • RoundTo
  •  Ceil
    • Pyöristä ylöspäin 17,01 → ceil(17,01*10)/10 → 17,10

Päiväys

  • function Date:TDateTime;
    • palauttaa nykyisen päiväyksen DateTime tyyppinä
  • function DateTimeToStr(DateTime: TDateTIme):String;
    • muuntaa annetun päiväyksen / kellonajan merkkijonoksi windowin asetusten mukaan.
  • function DateToStr (Date: TDateTime): String;
    • muuntaa annetun päiväyksen merkkijonoksi windowsin asetusten mukaan.
  • function DayOfWeek (date: TdateTime):Integer;
    • palauttaa viikonpäivän numerovälillä su (1) .. la (7)
  • function DayOfTheWeek (date: TdateTime):Integer;
    • palauttaa viikonpäivän numerovälillä ma (1) .. su (7). ANSI -standardin mukainen.
  • function SqlDateToDate(dateString: String): Tdatetime;
    • Muuttaa yyyy-mm-dd muotoisen päiväysmerkkijonon sisäiseksi Tdatetime -tyypiksi.
  • DecodeDate
  • DecodeTime
  • EncodeDate
  • EncodeTime
  • IsLeapYear
  • StrToDate
  • StrToDateTime
  • Functon Now: TdateTime
    • palauttaa nykyhetken
  • function FormatDateTime(format: string; DateTime: Tdatetime):String;
    • Muotoilee ajan ja päivän annetulla formaatilla kts.
  • StrToTime
  • Time
  • TimeToStr
  • formatdatetime('yyyy-mm-dd hh:nn:ss', d);
  • formatdatetime('yyyy-mm-dd', d);

Bonuslaskenta

  • function AlustaBonus(Tietokanta): Bonusluokka;
    • lataa bonusasetukset. Kutsu vain kerran ja jokaista AlustaBonus rutiinin kutsua kohden pitää kutsua vapautabonus.
  • procedure VapautaBonus(Bonusluokka);
    • vapauttaa aiemmin AlustaBonus funktiolla luodun bonusmuuttuja.
  • function BonusPros(kertyma:Double): Double;
    • palauttaa bonusprosentin johon ostokertymä oikeuttaa

Tietokanta

Titan -komponentin liityntä tauluun luodaan seuraavasti

Code Block
languagedelphi
Tuotetaulu := TTbTable.create(nil);
tuotetaulu.tablename := 'tuote';
tuotetaulu.databasename := 'testikanta';
tuotetaulu.open;
... ja lopuksi
tuotetaulu.free;
  • function TTbTable.TryEdit (ms_viive: integer);

    • tTbTable-luokan menetelmä. Yrittää saada muokkausoikeuden taulun nykyiseen tietueeseen ja yritetään korkeintaan ms_viiveen ajan. Aika on millisekunteina. Palauttaa false jos epäonnistui, esim.

      Code Block
      languagedelphi
      if not tuote.tryedit(2000) then
  showmessage('Tuotetta ei voi muokata');


  • function TTbTable.TryPost (ms_viive: integer);

    • tTbTable-luokan menetelmä. Yrittää saada muokkausoikeuden taulun nykyiseen tietueeseen ja yritetään korkeintaan ms_viiveen ajan. Aika on millisekunteina. Palauttaa false jos epäonnistui, esim.

      Code Block
      languagedelphi
      if varsaldo.tryEdit(2000) then
begin
  varsaldo.fieldbyname('saldo').asfloat := 0;
  varsaldo.fieldbyname('muutosklo').asdatetime := now;
  if not varsaldo.trypost(2000) then
  begin
    logentry('Varsaldoa ei voi tallentaa');
    varsaldo.cancel;
  end;
end
else
  showmessage('Saldoa ei voi muokata');


Pervasive sql

Hakuindeksin vaihtaminen; esim toimittajataulussa key0=tunnus, key1 nimi, jos halutaan hakea nimellä vaihdetaan haun kohdistuminen niin käytetään:  taul.indexname := '1';

Tällä voi tarkistaa onko joku taulu olemassa: Select count(*) from X$File where Xf$Name = 'taulunnimi' , palauttaa 1 jos taulu olemassa


Koska pervasiven PDAC komponenttikirjastoista ei ole saatavilla lähdekoodeja, siitä emme ole voineet tuottaa titan rajanpinnan kaltaista liittymää. Sql rajapinta on tehty omilla rutiineilla jotka ovat

  • function LuoSql(TietokantaAlias, sql, tapa) - luo kyselyn ja palauttaa sen muuttujan (jatkossa alla kysely). Voidaan myös lisätä suoraan sql parametriksi esim. q := luosql(dbname,'select count ( * ) as c from from tuote'); joka tekee luonnin lisäksi sql lauseen asettamisen. Vapaaehtoinen 3. parametri tapa voidaan myös antaa. Se voi olla välillä 1-3, 1= avaa kyselyn, 2 = ajaa kysely (update, insert, delete tms), 3= ajaa kyselyn ja vapauttaa sql muutujan. Kun tapa=3, paluu arvona on vaikutettujen rivien määrä.
  • procedure VapautaSql(Kysely) - vapauttaa LuoSql:llä luodun kysely
  • procedure Asetasq(Kysely, SqlLause) - asettaa kyselylle sqllauseen
  • procedure Avaasql(kysely) - avaa sql lauseen esim. raportointia tai aineiston muuta läpikahlausta varten
  • procedure AjaSql(kysely) - ajaa sql lauseen esim. update, insert tai delete.
  • procedure SuljeSql(kysely) - sulkee sql kyselyn
  • function eofSql(kysely) - palautaa True jos kysely on loppu
  • function SqlFirst(kysely) - palaa ensimmäiseen tietueeseen
  • function Sqlnext(kysely) - siirtyy seuraavaan tietueeseen
  • function SqlPrev(kysely) - siirtyy edelliseen tietueeseen
  • function SqlLast(kysely) - siirtyy viimeiseen tietueeseen
  • function Sqlfbi(kysely,kentta) - palauttaa avatusta kyselystä kentän integerinä
  • function Sqlfbb(kysely,kentta) - palauttaa avatusta kyselystä kentän Booleanin
  • function Sqlfbs(kysely,kentta) - palauttaa avatusta kyselystä kentän stringinä
  • function Sqlfbd(kysely,kentta) - palauttaa avatusta kyselystä kentän DateTimeä

Huom! Kysellessä memokenttiä (tuotetxt.teksti, astxt.teksti tms) joiden sisältö on yli 1024 merkkiä, tulee virhe.
Sen voi kiertää ainakin jossain määrin muuttamalla kyselyn "select tuotenro, teksti from tuotetxt" muotoon "select tuotenro, convert(teksti,sql_varchar) as teksti from tuotetxt".
Toinen vaihtoehto on käyttää taulukomponenttia.

Code Block
languagedelphi
kysely := LuoSql('testikanta');
asetasql(kysely,'select tuote,sum(summa) as myynti from tuotemyy where tuotelaji in (0,2) and pvm>''2011'' ');
avaasql(kysely);
while not eofsql(kysely) do
begin
  showmessage(sqlfbs(kysely,'tuote')+' '+formatfloat('#0.00',sqlfbf(kysely,'myynti')));
  sqlnext(kysely);
end;
suljesql(kysely);
vapautasql(kysely);

kysely1 := CreateSql('testikanta','select count(*) as maara from tuote where ryhma = :r');
preparesql(kysely1);
for i := 1 to 10 do
begin
  sqlSetParam(kysely1,'r',i);
  opensql(kysely1);
  showmessage('Tuoteryhmässä '+inttostr(i)+' on tuotteita '+inttostr(sqlfbi(kysely1,'maara')));
  closesql(kysely1);
end;
unprepareSql(kysely1);
vapautasql(kysely1);

Excel liityntä

Excel yhteys perustaa AdoDb:n. Esimerkki avauksesta, tässä excel avataan vain luku tilaan. Lisäksi kerromme että headereita ei ole (HDR=NO) jolloin kentät ovat f1, f2 jne sekä excel ei yritä päätellä datatyyppejä (IMEX=1). Jälkimmäinen on tarpeen jos siellä on tyhjiä tai sekalaisia arvoja samassa sarakkeessa. 

...

SKJ Tuote import

export-lause taustaa varten, jotta saadaan jo olemassa olevasta kannasta tiedot muokattavaksi:

...

Xml kompontin ohjeita voi lukea täältä, hieman joutuu soveltamaan mutta kohtuu hyvä viite.  https://docs.microsoft.com/en-us/previous-versions/windows/desktop/ms766487(v=vs.85)

SKJ Tuote import

export-lause taustaa varten, jotta saadaan jo olemassa olevasta kannasta tiedot muokattavaksi:

Code Block
select t.numero, t.toimtunnus, t.nimi,
       t.paaryhma, t.ryhma, t.aliryhma, t.lvv,t.toimittaja,
       t.hinta, t.keskihinta, t.tilauskoko, t.hrkerroin,
       t.hryksikko
   from tuote t 
      where t.passiivinen <> 1;

...

  • URL: osoite ja parametrit esim https://api.liittyma.com/setproductdata?identification=foobar
  • data: Post metodin lähetettävä data. jos method on get, tämän voi jättää tyhjäksi
  • Basic_Auth_username, Basic_Auth_password jos palvelin haluaa basica autentication niin niiden salasanat
  • status: muuttuja johon laitetaan pyynnön status. 200 = OK
  • statustxt: status selväkielisenä
  • method: kutsun metodi joko post (oletus, ei tarvitse laittaa) tai get. Kirjankoolla ei väliä.
  • Paluuarvona tulee palvelimen lähetämä vastaus
  • D10 versiossa (29.6.2020) on metodin jälkeen valinnainen headers parametri, joka on muotoa stringlist 

...

languagedelphi

...

  • valinnainen headers parametri, joka on muotoa stringlist 
Code Block
languagedelphi
var
  s,s1,status,statustxt;
  b,n;
  nro;
  sl;
begin
  sl := tstringlist.create;
  sl.values['Authorization']:='bearer   xxxxxxx'; // tämä siis toimii vain D10 versiosaa
  s := restCall('https://t.skj.fi/tapahtuma/products?apikey=wont_tell_you','{"name":"taas uusi tuote"}', '', '', status, statustxt, sl);
  showmessage(s+#13+inttostr(status)+#13+inttostr(statustxt));
  if status=200 then
  begin
    b:= JsonNewDocFromjson(s);        // b on koko dokkari 
    n := jsongetvalue(b,'products');  // n : products elementti, joka on array yhdestä tuotteesta
    n := jsongetvalue(n,0,true);      // n on tämän jälkeen eka alkio tuotearraysta
    nro := jsongetvalue(n,'id');      // otetaan vastauksesta id - tuotenumero
    s1 := restCall('https://t.skj.fi/tapahtuma/products/'+nro+'?apikey=wont_tell_you','{"name":"taas uusi tuote"}', '', '', status, statustxt, sl'get');
    showmessage(s+#13+inttostr(status)+#13+inttostr(statustxt));
  if status=200 then
  begins1);  // s ja s1 pitäisi olla samat
    b := jsonnewdoc;
    b := jsonaddvalue(b, 'id', nro);
    b := JsonNewDocFromjson(sjsonaddvalue(b, 'group', 12);
    b   // b on koko dokkari:= jsonaddvalue(b, 'name', 'lahden kotiin');
    s n := jsongetvalue(b,'products');  // n : products elementti, joka on array yhdestä tuotteesta:= restCall('https://t.skj.fi/tapahtuma/products?apikey=wont_tell_you', b, '', '', status, statustxt);
    showmessage(s);
  end;            n := jsongetvalue(n,0,true);      // n on tämän jälkeen eka alkio tuotearraysta     nro := jsongetvalue(n,'id');      // otetaan vastauksesta id - tuotenumero     s1 := restCall('https://t.skj.fi/tapahtuma/products/'+nro+'?apikey=wont_tell_you','', '', '', status, statustxt,'get');     showmessage(s1);  // s ja s1 pitäisi olla
samat  sl.free;
  b := jsonnewdocend;


Jatkuva toiminta

Skjscript voidaan laittaa pöyrimään taustalle silmukassa esim lähettämään muutoksia aikaajoin. Tähän pitää rakentaa myös poistumismekanismi. Jos ohjelma pyörii näkyvillä työasemassa, voidaan se hoitaa aiemmilla versiolla, mutta palveluna vaati 28.9.2018 tai uudemman version.

Code Block
languagedelphi
var
  postaaja;
  s;
 b := jsonaddvalue(b, 'id', nro);
laskuri;
  st;
begin
   bst := jsonaddvalueCreateStatus(b, 'groupPäivitys', 12);
  laskuri := 0;
  // b := jsonaddvalue(b, 'name', 'lahden kotiin');
    s := restCall('https://t.skj.fi/tapahtuma/products?apikey=wont_tell_you', b, '', '', status, statustxt);
    showmessage(s);
  end;    allaoleva showstatus palauttaa false jos käyttäjä on painanut peruuta tai skjscript
  // on saanut wm_close viestin. esim process -q skjscript.exe
  while showstatus(st,'Päivitän asiakasdataa ','Päivitetty '+inttostr(laskuri)) do
  begin

      postaaja := LuoPostaaja;
      postaaja_lisaakentta(postaaja,'id','1212');
      postaaja_lisaakentta(postaaja,'data','adadada');
      s   := postaaja_post(postaaja,'https://jotain.skj.fi/joku.php','');
      logentry('vastaus'+s);
      sleep(1000);
      inc(laskuri);
        
  sl.free;
end;

Jatkuva toiminta

Skjscript voidaan laittaa pöyrimään taustalle silmukassa esim lähettämään muutoksia aikaajoin. Tähän pitää rakentaa myös poistumismekanismi. Jos ohjelma pyörii näkyvillä työasemassa, voidaan se hoitaa aiemmilla versiolla, mutta palveluna vaati 28.9.2018 tai uudemman version.

Code Block
languagedelphi
var
  postaaja;
  s;
  laskuri;
  st;
begin
  st := CreateStatus('Päivitys');
  laskuri := 0;
  // allaoleva showstatus palauttaa false jos käyttäjä on painanut peruuta tai skjscript
  // on saanut wm_close viestin. esim process -q skjscript.exe
  while showstatus(st,'Päivitän asiakasdataa ','Päivitetty '+inttostr(laskuri)) do
  begin

      postaaja := LuoPostaaja;
      postaaja_lisaakentta(postaaja,'id','1212');
      postaaja_lisaakentta(postaaja,'data','adadada');
      s := postaaja_post(postaaja,'https://jotain.skj.fi/joku.php','');
      logentry('vastaus'+s);
      sleep(1000);
      inc(laskuri);
      logentry('virhe'+postaaja_virhe(postaaja));
      postaaja_sulje(postaaja);
   end;
  closestatus(st);
end;

Uudet funktiot (D10 versio)

Code Block
function LisaaAsiakas(kanta: string; Numero:integer=0; valialku, valiloppu: integer=0): integer

Lisää asiakkaan ja palauttaa lisätyn numeron. Parametrina voidaan antaa numeroväli ja numero. Palauttaa -1 jos epäonnistuu. Asikkaasta lisään vaan numerot. ei muita tietoja.

Code Block
function PaivitaAsiakas(kanta: string; Numero:integer; data: docvar): boolean

...

logentry('virhe'+postaaja_virhe(postaaja));
      postaaja_sulje(postaaja);
   end;
  closestatus(st);
end;



Uudet funktiot (D10 versio)

Code Block
function LisaaAsiakas(kanta: string; Numero:integer=0; valialku, valiloppu: integer=0): integer

Lisää asiakkaan ja palauttaa lisätyn numeron. Parametrina voidaan antaa numeroväli ja numero. Palauttaa -1 jos epäonnistuu. Asikkaasta lisään vaan numerot. ei muita tietoja.


Code Block
function PaivitaAsiakas(kanta: string; Numero:integer; data: docvar): boolean

Päivittää asiakkaan tiedot "json-dokkarista" eli muuttujasta joka on luotu esim JsonNewDocFromjson. json dokumenttien kenttänimet pitää vastata asiakastaulun kenttänimiä


Tekstitiedoston muutos UTF8→ansi. Voi olla tarpeen jos käsitellään tiedostoa jollain esim d2007 versiolla tehdyällä ohjelmalla.

Code Block
languagedelphi
sl := tstringlist.create;
sl.loadfromfile('unicodefile.txt');
sl.converttoansi;
sl.savetofile('ansifile.txt');sl.free;


Myynti2skj tiedoston tuottaminen

Tällä voidan tehdää myynti2skj hyväksymää tiedostomuotoa.  Logiikka mene karkeasti

  1. luo luokka
  2. kutsu aloita
  3. kutsu tuoterivejä ja tekstirivejä haluttu määrä. Ulosmaksut/kassaanmaksut tulossa
  4. lisää maksutapa (summien pitäisi täsmätä rivien summaan)
  5. kutsu lopeta
  6. tallenna tiedostoa 
Code Block
languagedelphi
var
  m:tmyynti2skjtiedostoluoja;
  sl;
begin 
  m := tmyynti2skjtiedostoluoja.create;
  sl := tstringlist.create;
  // aika, tosite, myymälä, kassa, myyjä, asiakas, tyyppi (0=normaali,1=tositetallennus)
  m.aloita(now, 100,1,'00099',10,0,0); 
  // tuote,määrä, ahinta, alepros, alvpros, yht
  m.lisaatuote('100221', 2, 50, 5, 24, 95);
  m.lisaaTekstiRivi('Tuotteella ei ole takuuta');
  // maksutavan nro, summa, erikoistoiminto, annettusumma
  m.lisaaMaksutapa(2,95,0,0);
  m.lopeta( sl ); 
  sl.savetofile('c:\temp\tosite.txt');
end;