(→Steps) |
(→Steps) |
||
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. | :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
- 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
- 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...