...
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 | ||
|---|---|---|
| ||
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
- luo luokka
- kutsu aloita
- kutsu tuoterivejä ja tekstirivejä haluttu määrä. Ulosmaksut/kassaanmaksut tulossa
- lisää maksutapa (summien pitäisi täsmätä rivien summaan)
- kutsu lopeta
- tallenna tiedostoa
| Code Block | ||
|---|---|---|
| ||
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; |