Page Comparison

...

procedure Label3OnGetText(var Text: String);

var 
s: string;
t: string;

begin

t := DbPipeline1['TUOTE'];
t := StringReplace(t,chr(39),chr(39)+chr(39),3);
s := avoinkysely('select sum(summa) as summa from tuotemyy where tuote = '+chr(39)+t+chr(39),'');
if copy(s,1,7)='*error*:' then
text := 'Virhe kyselyssä '+s
else
Text := s;
end;

GetAsTxt

function GetAsTxt(Const Asiakas: Integer; Const Otsikko:string):String;

Hakee asiakkaan teksteistä annetulla otsikolla tekstin.

GetTryhmaNimi

function

...

GetTryhmaNimi(Const

...

nro:

...

Integer):String;

Palauttaa tuoteryhmän nimen.

GetTuoteDoc

function

...

GetTuoteDoc(Const

...

Tuote,Otsikko:string):String;

Hakee tuotteen dokumentti -taulusta annetulla otsikolla dokumentin nimen.

GetTuoteKuva

function

...

GetTuoteKuva(Const

...

Tuote:

...

String;

...

Jarjestys:

...

Integer;

...

Var

...

kuvateksti:

...

string):String;

Hakee tuotteen kuvatekstin ja palauttaa kuvan tiedostonimen. Järjestys ilmoittaa järjestysavaimen.

Esimerkki artikkelissa Reportbuilder ohjeita

GetTuoteTxt

function

...

GetTuoteTxt(Const

...

Tuote,Otsikko:string):String;

Palauttaa tuotteen tekstin annetulla otsikolla.

KassaanMaksuStr

function

...

KassaanMaksuStr(const

...

i:

...

Integer):

...

string;

Palauttaa kassaanmaksun nimen (parametrin i pitää olla laillinen kassaanmaksun numero).

...

• Tilinumero
• Viitenumero
• Eräpäivä
• Summa
• Tyyppi (2/4)

MaksutapaNimiStr

function MaksuTapaNimiStr(const i: integer): string;

Palauttaa maksutavan nimen (parametrin i on oltava laillinen maksutavan numero).

MaksuehtoNimiStr

function MaksuehtoNimiStr(const i: integer): string;

Palauttaa maksuehdon nimen (parametrin i on oltava laillinen maksuehdon numero).

MemoKoko

function MemoKoko(Report:TppReport; s:string; fname:string; fsize:integer):Integer;

Antaa arvion raportin yksiköissä mikä on annetun tekstin (s) korkeus fontilla jonka nimi on fname ja koko fsize.

MkNakyy

function MkNakyy:Boolean;

Kertoo onko järjestelmään määritelty markat näkyviin.

MuotoileVarastoSaldo

function MuotoileVarastoSaldo(const Saldo:double; Const Pullokoko:Double):String;

Muotoilee alkoholivarastosaldot tulostettavaan muotoon (esim. saldo 1.5, Pullokoko 50 cl -> tulee 1P 25).

MyyjaNimiStr

function MyyjaNimiStr(const i: integer): string;

Palauttaa myyjän nimen (parametrin i on oltava laillinen myyjän numero)

Nimi2Norm

function Nimi2Norm(Const Str:string):String;

Muotoilee nimen "normaaliin muotoon" esim. Koistinen Mika -> Mika Koistinen.

OnRavintola

function OnRavintola:Boolean;

Palauttaa TRUE, jos asetuksissa on ravintolabitti on päällä ja palauttaa FALSE, mikäli ei ole päällä.

OstoLajiStr

function OstoLajiStr(const i: integer): string;

Palauttaa ostolajin kuvauksen annetulla numerolla.

SenttiPyoristys

function SenttiPyoristys(summa:Double):Double;

Laskee lähimpään viiteen senttiin pyöristetyn summan (esim. annetaan parametriksi 10.53, tulos = 10.55).

SetReportParameter

function SetReportParameter(Report:TppReport; Parameter:String; Value:Variant);

SkjAsetusB

function SkjAsetusB(Const asetusName:string):Boolean

SkjAsetusS

function SkjAsetusS(Const asetusName:string):String;

Palauttaa skj:n perusasetuksia. Parametri voi olla jokin seuraavista:

...

• Tilinumero1
• Tilinumero2
• Tilinumero3
• iban1
• iban2
• iban3
• bic1
• bic2
• bic3

Esimerkki:

Variable1.Value := SkjAsetusS('puh1');

StringReplace

function StringReplace(const Mjono: string; const Mista,Mihin: string; const flags:integer): string;

Korvaa merkkijonosta osia.

• MJono: tästä merkkijonosta etsitään ja korvataan
• Mista: Mikä merkkijono korvataan
• Mihin: Millä merkkijonolla korvataan
• Flags: 1 =Korvaa kaikki, 2 = ei vertaa kirjainkokoa, 3= molemmat
• Paluuarvo: korvattumerkkijono
  esim
  s := StringReplace('Joulupukki kävi kylässä korjaamassa SAHAPUKKIA','pukki','muori',3);
  s on nyt Joulumuori kävi kylässä korjaamassa SAHAmuoriA

StrPad

function StrPad(Const Str:string; Pituus:Integer; c:char):String;

StrPvmToDispPvm

function StrPvmToDispPvm(Const StringPvm:string):String;

Muuttaa yyyymmdd muotoisen päivämäärän visuaalisempaan muotoon, esim. 20111224 -> 24.12.2011

StrPvmToDate

function StrPvmToDate(Const StringPvm:string):DateTime;

Muuttaa yyyymmdd päivän DateTime tyyppiksi

ToimEhtoNimiStr

function ToimEhtoNimiStr(const i: integer): string;

ToimittajaNimi

function ToimittajaNimi(const Tunnus: String): string;

Palauttaa toimittajan nimen jos se löytyy, muuten tyhjän.

ToimittajaTieto

function ToimittajaTieto(const Tunnus, Kentta: String): Variant;

Palauttaa parametrina annetun kentän arvon halutulle toimittajalle (parametri Tunnus).

• Esimerkki: ToimittajaTieto('1001', 'Nimi');

translate

function translate(s:string; Kieli: Integer):string;

TuoteOminaisuusArvot

function TuoteOminaisuusArvot(const TuoteNro: String; const Tyyppi: Integer; const erotin: string; const myosarvonimet: Boolean): string;

Funktio, jolla saadaan luettua tuotteen ominaisuudet ja niiden arvot.

...

Tällä on tarkoitus hakea multituotteen ominaisuuksia tulosteille (Tyyppi 2 = valikko).

TuoteRyhmaTieto

function TuoteRyhmaTieto(const Nro: Integer; const Kentta: String): Variant;

Palauttaa parametrina annetun kentän arvon halutulle tuoteryhmälle (parametri Nro).

• Esimerkki: TuoteRyhmaTieto(200, 'Nimi');

TuoteTieto

function TuoteTieto(const numero, kentta: String): Variant

Palauttaa parametrina annetun kentän arvon halutulle tuotteelle (parametri numero). Käyttää sekä tuote että tuote2 -tauluja.

Esimerkki: TuoteTieto('1234567890123', 'Hinta');

Tuoteviivakoodi

function Tuoteviivakoodi(const Tuote: string; Nro:Integer): String;

Haetaan tuotteen viivakoodi tuotenumerolla. Parametri tuote on tuotenumero ja parametri nro ilmoittaa sen, että haetaanko viivakooditaulusta lopusta alkuun (<0) vai alusta loppuun (>=0) Esimerkkinä myyntitilauksella vaikka Labelin OnGetText tapahtumassa

...

Text := TuoteViivakoodi( Tilaukset['Tuote'],0);

Lajitelman viivakoodi tulee

function Lajitelmaviivakoodi(const Tuote: string; Nro,id1,id2:Integer): String;

Esimerkiksi ostotilauksella:

procedure BarCode1OnPrint;
begin
Barcode1.data := Lajitelmaviivakoodi(Tilaukset['Tuote'],0,Tilaukset['id1'], Tilaukset['Id2']);
end;

Varastosaldo

function varastosaldo(Const kentta, tuote: String; const varasto): varastosaldo; 

Hakee varastosaldotaulusta tietyn kentän, esim:

varastosaldo('invpvm',Tuotteet['numero'],5)

Lajitelman varastosaldo

function LajitelmanVarastosaldo(const kentta, tuote: string; const id1, id2, varasto: Integer): Variant; 


Hakee lajitelman varastosaldotaulusta tietyn kentän, esim haetaan minimi1 varastosta 5 

...

procedure Label402OnGetText(var Text: String);
begin
  Text := VariKokoNimiFunction(Tilaukset['Id1']);
  if Tilaukset['Id2'] <> 0 then
    text := text+'/'+VariKokoNimiFunction(Tilaukset['Id2']);
end;

UlosMaksuStr

function UlosMaksuStr(const i: Integer): string;

UnixToDateTime

function UnixToDateTime(Const unixDate:Integer):DateTime;

WeekOf

function WeekOf(const dt: TDateTime): Integer;

Palauttaa parametrina annetun päiväyksen (parametri dt) viikkonumeron (1-52).

Esimerkkejä:

• WeekOf(CurrentDateTime) -> palauttaa nykyisellä hetkellä olevan päiväyksen viikkonron
• WeekOf(EncodeDate(2011, 2, 1)) -> palauttaa vuoden 2011 helmikuun ensimmäisen päivän viikkonron

WordCount

function WordCount(Teksti: String; erotin: String): Integer

...