Versions Compared

Key

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

<accesscontrol>Asiantuntijat</accesscontrol> 

ReportBuilderin SKJ funktiot

...

  1. Luo lomakkeelle vaikkapa Variable -tyyppinen komponentti (työkalurivillä laskimen näköinen kuva ja sen jälkeen klikkaa mihin komponentin haluat)
  2. Klikkaa luomaasi Variablea hiiren oikealla ja valitse Calculations..
  3. Lisää haluamasi funktio avautuvaan ruutuun, esimerkiksi siten että:

    Panel

    Value := Varastosaldo('invpvm',Tuotteet'numero',5);

    ,joka palauttaa Variableen pipelinen Tuotteet kentän Numero -vastaavan tuotteen inventointipäivämäärä -kentän varaston 5 osalta.

Funktiot

AnsiCapitalize

<tt>function function AnsiCapitalize(Const s: String): String;</tt>

Muuttaa tekstin sanojen alkukirjaimet isoiksi (huomioi skandit). Esim. kissan äidin häntä -> Kissan Äidin Häntä.

Esimerkki: Caption := AnsiCapitalize(Tuotteet'Nimi');

AsiakasTieto

<tt>function function AsiakasTieto(const Asiakas: Integer; const Kentta: String): Variant;</tt>

Palauttaa parametrina annetun kentän arvon halutulle asiakkaalle (parametri Asiakas). Koskee siis vain asiakas -taulua, ei lainkaan asiakas2 -taulua.

Esimerkki: AsiakasTieto(1000, 'Nimi');

EanCodeOk

<tt>function function EanKoodiOk(Const s: String): Boolean;</tt>

Palauttaa TRUE, jos annettu merkkijono on laillinen EAN/UPC -koodi ja FALSE, mikäli ei ole laillinen.

...

Panel
  • varastosaldo('invpvm',Tuotteet'numero',5)

Lajitelman varastosaldo

<tt>function function LajitelmanVarastosaldo(const kentta, tuote: string; const id1, id2, varasto: Integer): Variant;</tt>
Hakee lajitelman varastosaldotaulusta tietyn kentän, esim :

...

haetaan minimi1 varastosta 5 

Code Block
languagedelphi
text := Lajitelmanvarastosaldo('minimi1', Tuotteet['numero'],Tilaukset['Id1'], Tilaukset['Id2'], 5);

 

Lajitelman Nimi

function VariKokoNimiFunction(id: Integer): string;

Palauttaa annetun lajitelman nimen.  Palauttaa pitkan nimen jos se on annettu, muuten "normaalin" lyhyen. esim alla otetaan lajitelma1 teksti ja perään kauttaviivalla mahdollinen 2 lajitelmaid nimi.

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

 

UlosMaksuStr

<tt>function UlosMaksuStr(const i: Integer): string;</tt>

...