...

• Kuva pitää olla tietenkin tuotteen kuvataulussa.
• Haluamalle rbuilderin bandillle (esim. detail) Image

• Detail band:n beforeprint event laita laita koodia esim. seuraavasti. Tässä se on tehtynä myyntitilaukselle. Image1 on kuvakomponentin nimi

  Code Block
  language delphi
  procedure DetailBeforePrint; var FileName,kuvateksti: String; begin FileName :=GetTuoteKuva(Tilaukset['Tuote'], 1, kuvateksti); if FileExists(filename) then begin Image1.visible := true; Image1.Picture.loadFromFile(filename); end else begin image1.visible := false; end; end;

• Tässä ohjelma hakee kuvan jonka järjestys on 1.
• Kuvalle kannattaa laittaa strecth ja MaintainAspectRatio päälle.
• Jos haluat, että kuvattomat rivit ovat matalampia, laita detail bandille DynamicHeight
• Tietyt kuvaformaatit vaativat 'DirectDraw' -asetuksen päälle.

...

Tilausvahvistukseen, hinnastoon tms. määriteltävään lomakkeeseen pystyy lisäämään tuotteen tekstin seuraavasti:
Lisätään haluttuun paikkaaa esim. Memo
ja memon OnPrint eventtiin koodi

procedure Memo1OnPrint;
begin
memo1.lines.text := GetTuoteTxt( Tilaukset['Tuote'], 'KUVAUS');
end;

...

Veloitusmuoto myyntitilauslomakkeelle

If Tilaukset['Veloitustapa']=0
   then Value := '-';
If Tilaukset['Veloitustapa']=1
   then Value := 'Laskutus / ' + MaksuEhto['Nimi'];
If Tilaukset['Veloitustapa']=2
   then Value := 'Tili';
If Tilaukset['Veloitustapa']=3
   then Value := 'Kassa';
If Tilaukset['Veloitustapa']=4
   then Value := 'Verkkopankki';
If Tilaukset['Veloitustapa']=5
   then Value := 'Luottokortti';
If Tilaukset['Veloitustapa']=6
   then Value := 'Postiennakko';
If Tilaukset['Veloitustapa']=7
   then Value := 'Tilisiirto';
If Tilaukset['Veloitustapa']=8
   then Value := 'Suomen Verkkomaksu';
If Tilaukset['Veloitustapa']=9
   then Value := 'Bussiennakko';
If Tilaukset['Veloitustapa']=10
   then Value := 'Lindorff lasku';
If Tilaukset['Veloitustapa']=11
   then Value := 'Klarna lasku';
If Tilaukset['Veloitustapa']=12
   then Value := 'Klarna tili';

Labelin arvon muuttaminen

Labelin arvoa voi muuttaa mm. OnGetText eventissä. Rutiini saa var parametrina Text muuttujan johon arvo pitää asetaa.

procedure Label1OnGetText(var text: String);
begin
  if Tilaukset[ 'Tuote' ] = '100' 
    text := 'tuote on 100'
  else
    text := 'Tuote ei ole 100';
 
end;

Huom OnGettext eventissä ei voi asetaa Label:n captionin arvoa suoraan, ajoitukset ei mene oikein ja arvot menevät todennäköisesti väärälle riville.

Katso myös

Reportbuilderin laajennus funktiot

...