Asiantuntijat
Sisällysluettelo | |
---|---|
|
Reportbuilder ohjeita
ReportBuilder on SKJ:n käyttämä raporttityökalu, jolla tulostetaan useat raportit ja tuotetulosteet.
...
- 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
Code Block | |||
---|---|---|---|
|
| ||
procedure Memo1OnPrint;
begin
memo1.lines.text := GetTuoteTxt( Tilaukset['Tuote'], 'KUVAUS');
end;
|
...
Veloitusmuoto myyntitilauslomakkeelle
Code Block | ||
---|---|---|
| ||
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.
Code Block | ||
---|---|---|
| ||
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
...