Report Builder - Get Data Directly from DB: Difference between revisions

From eStream Software
Line 5: Line 5:
Below is example using Sales Invoice to get Shelf field from Maintain Item
Below is example using Sales Invoice to get Shelf field from Maintain Item
[[File:RB-GetDirectDB-01.jpg|800 px]]
[[File:RB-GetDirectDB-01.jpg|800 px]]
:01.
:01. Click on '''SubRptNorm: Document_Detail'''
:02.
:02. Select the '''Variable''' button (the Calculator icon)
:03.
:03. Click on the place to be print
:04.
:04. Click on '''Calc''' Tab
[[File:RB-GetDirectDB-02.jpg|800 px]]
[[File:RB-GetDirectDB-02.jpg|800 px]]
:05.
:05. Right click here & Select '''Event''' & find the component just now we had placed (eg Variable2)
:06.
:06. Click '''OnCalc'''
:07. Enter the below script
:07. Click here & enter the below script
<syntaxhighlight lang="delphi">
<syntaxhighlight lang="delphi">
procedure Variable2OnCalc(var value: Variant);
procedure Variable2OnCalc(var value: Variant);

Revision as of 09:06, 12 October 2015

Introduction

Sometime in the report you might wanted some extra information but you not able to select in the report design. So we had to self query to get the extra information.

Steps

Below is example using Sales Invoice to get Shelf field from Maintain Item RB-GetDirectDB-01.jpg

01. Click on SubRptNorm: Document_Detail
02. Select the Variable button (the Calculator icon)
03. Click on the place to be print
04. Click on Calc Tab

RB-GetDirectDB-02.jpg

05. Right click here & Select Event & find the component just now we had placed (eg Variable2)
06. Click OnCalc
07. Click here & enter the below script
procedure Variable2OnCalc(var value: Variant);
var s: string;
begin
  s := 'SELECT Shelf FROM ST_ITEM ' +
        'WHERE CODE=' + QuotedStr(Document_Detail.GetFieldValue('ItemCode'));
  if Trim(DBSQL_GetFieldValue(s)) <> '' then
    Value := Trim(DBSQL_GetFieldValue(s));
end;
  • More coming soon...