Motława - Wkład użytkownika [pl]

Code: Definicja regul pol obowiazkowych

2009-03-25T12:20:53Z

Awo:

'''Algorytm walidacji pól'''

Mechanizm definiowanej walidacji pól aktywowany jest kluczem w [[Edytor_kluczy_rejestru|Rejestrze systemowym]] o nazwie '''walidacja_pol_aktywna'''.

Procedura walidacji pobiera definicje z tabel '''sys_fld_validator_ng''' i '''sys_fld_validator_po''' dla danego coreid i przetwarza wszystkie reguły.

Struktury tabel odpowiadających za definicje walidacji pól:

''Tabela sys_fld_validator_ng''

{| class="prettytable" cellspacing=1 cellpadding=3 style="border: 1px solid #888888; border-collapse: collapse; padding: 5px;"
! style="text-align:left; border: 1px solid #888888; background: #eeeeee;" | Field
! style="text-align:left; border: 1px solid #888888; background: #eeeeee;" | Type
! style="text-align:left; border: 1px solid #888888; background: #eeeeee;" | Null
! style="text-align:left; border: 1px solid #888888; background: #eeeeee;" | Key
! style="text-align:left; border: 1px solid #888888; background: #eeeeee;" | Default

|-
| style="text-align:left; border: 1px solid #888888; "| [[idn]]
| style="text-align:left; border: 1px solid #888888; "| int(11)
| style="text-align:left; border: 1px solid #888888; "| NO
| style="text-align:left; border: 1px solid #888888; "| PRI
| style="text-align:left; border: 1px solid #888888; "| NULL

|-
| style="text-align:left; border: 1px solid #888888; "| [[GUID]]
| style="text-align:left; border: 1px solid #888888; "| varchar(38)
| style="text-align:left; border: 1px solid #888888; "| NO
| style="text-align:left; border: 1px solid #888888; "| UNI
| style="text-align:left; border: 1px solid #888888; "|
|-
| style="text-align:left; border: 1px solid #888888; "| [[coreid]]
| style="text-align:left; border: 1px solid #888888; "| varchar(38)
| style="text-align:left; border: 1px solid #888888; "| NO
| style="text-align:left; border: 1px solid #888888; "| MUL
| style="text-align:left; border: 1px solid #888888; "|
|-
| style="text-align:left; border: 1px solid #888888; "| rule_operator
| style="text-align:left; border: 1px solid #888888; "| int(11)
| style="text-align:left; border: 1px solid #888888; "| NO
| style="text-align:left; border: 1px solid #888888; "|
| style="text-align:left; border: 1px solid #888888; "|
|-
| style="text-align:left; border: 1px solid #888888; "| rule_mode
| style="text-align:left; border: 1px solid #888888; "| int(11)
| style="text-align:left; border: 1px solid #888888; "| NO
| style="text-align:left; border: 1px solid #888888; "|
| style="text-align:left; border: 1px solid #888888; "|
|-
| style="text-align:left; border: 1px solid #888888;" | message_if_not_valid
| style="text-align:left; border: 1px solid #888888;" | text
| style="text-align:left; border: 1px solid #888888;" | YES
| style="text-align:left; border: 1px solid #888888;" |
| style="text-align:left; border: 1px solid #888888;" | NULL
|-
| style="text-align:left; border: 1px solid #888888;" | comment
| style="text-align:left; border: 1px solid #888888;" | varchar(250)
| style="text-align:left; border: 1px solid #888888;" | YES
| style="text-align:left; border: 1px solid #888888;" |
| style="text-align:left; border: 1px solid #888888;" | NULL
|}

''Tabela sys_fld_validator_po''
{| class="prettytable" cellspacing=1 cellpadding=3 style="border: 1px solid #888888; border-collapse: collapse; padding: 5px;"
! style="text-align:left; border: 1px solid #888888; background: #eeeeee;" | Field
! style="text-align:left; border: 1px solid #888888; background: #eeeeee;" | Type
! style="text-align:left; border: 1px solid #888888; background: #eeeeee;" | Null
! style="text-align:left; border: 1px solid #888888; background: #eeeeee;" | Key
! style="text-align:left; border: 1px solid #888888; background: #eeeeee;" | Default
|-
| style="text-align:left; border: 1px solid #888888;" | [[idn]]
| style="text-align:left; border: 1px solid #888888;" | int(11)
| style="text-align:left; border: 1px solid #888888;" | NO
| style="text-align:left; border: 1px solid #888888;" | PRI
| style="text-align:left; border: 1px solid #888888;" | NULL
|-
| style="text-align:left; border: 1px solid #888888;" | [[GUID]]
| style="text-align:left; border: 1px solid #888888;" | varchar(38)
| style="text-align:left; border: 1px solid #888888;" | NO
| style="text-align:left; border: 1px solid #888888;" | UNI
| style="text-align:left; border: 1px solid #888888;" |
|-
| style="text-align:left; border: 1px solid #888888;" | GUID_NG
| style="text-align:left; border: 1px solid #888888;" | varchar(38)
| style="text-align:left; border: 1px solid #888888;" | NO
| style="text-align:left; border: 1px solid #888888;" | MUL
| style="text-align:left; border: 1px solid #888888;" |
|-
| style="text-align:left; border: 1px solid #888888;" | fieldname
| style="text-align:left; border: 1px solid #888888;" | varchar(38)
| style="text-align:left; border: 1px solid #888888;" | NO
| style="text-align:left; border: 1px solid #888888;" |
| style="text-align:left; border: 1px solid #888888;" |
|-
| style="text-align:left; border: 1px solid #888888;" | rule_order
| style="text-align:left; border: 1px solid #888888;" | int(11)
| style="text-align:left; border: 1px solid #888888;" | NO
| style="text-align:left; border: 1px solid #888888;" |
| style="text-align:left; border: 1px solid #888888;" | 0
|-
| style="text-align:left; border: 1px solid #888888;" | admin
| style="text-align:left; border: 1px solid #888888;" | int(11)
| style="text-align:left; border: 1px solid #888888;" | NO
| style="text-align:left; border: 1px solid #888888;" |
| style="text-align:left; border: 1px solid #888888;" | 0
|-
| style="text-align:left; border: 1px solid #888888;" | validation_rule_type
| style="text-align:left; border: 1px solid #888888;" | varchar(20)
| style="text-align:left; border: 1px solid #888888;" | YES
| style="text-align:left; border: 1px solid #888888;" |
| style="text-align:left; border: 1px solid #888888;" | NULL
|-
| style="text-align:left; border: 1px solid #888888;" | validation_rule
| style="text-align:left; border: 1px solid #888888;" | varchar(200)
| style="text-align:left; border: 1px solid #888888;" | YES
| style="text-align:left; border: 1px solid #888888;" |
| style="text-align:left; border: 1px solid #888888;" | NULL
|-
| style="text-align:left; border: 1px solid #888888;" | condition_expr
| style="text-align:left; border: 1px solid #888888;" | varchar(250)
| style="text-align:left; border: 1px solid #888888;" | NO
| style="text-align:left; border: 1px solid #888888;" |
| style="text-align:left; border: 1px solid #888888;" |
|-
| style="text-align:left; border: 1px solid #888888;" | condition_ruleset_guid
| style="text-align:left; border: 1px solid #888888;" | varchar(38)
| style="text-align:left; border: 1px solid #888888;" | NO
| style="text-align:left; border: 1px solid #888888;" | MUL
| style="text-align:left; border: 1px solid #888888;" |
|-
| style="text-align:left; border: 1px solid #888888;" | message_if_not_valid
| style="text-align:left; border: 1px solid #888888;" | text
| style="text-align:left; border: 1px solid #888888;" | YES
| style="text-align:left; border: 1px solid #888888;" |
| style="text-align:left; border: 1px solid #888888;" | NULL
|}

----

Reguła może mieć wiele pozycji - np kontrolować wiele pól lub zakładać różne warunki na jedno pole.
Poszczególne reguły w danym zestawie mogą być łączone operatorem AND (rule_operator=0) - czyli wymagają spełnienia wszystkich warunków, lub operatorem OR (rule_operator=1) - czyli wystarczy spełnienie jednego z warunków.

Rule_mode określa metodę walidacji:
0 - na poziomie cds (czyli wykonywana w czasie edycji pola)
1 - Before Post
2 - Before Apply

Reguła definiowana jest przez typ reguły i wartość kontrolowaną:

Pole validation_rule_type przyjmuje wartości:
NOT_NULL, - dla wszystkich typów
NOT_EMPTY, - dla stringów: <>"", dla liczb <>0, dla dat <>'0000-00-00'
LENGTH_EQ, LENGTH_MAX, LENGTH_MIN - dotyczy pól stringowych - w validation_rule określona jest długość
EQ, NOT_EQ, LESS, LESS_EQ, GREATER, GREATER_EQ, - porównanie z polem validation_rule
DEFAULT - wartość domyślna pola określona w validation_rule

Przykłady:
fieldname='datawystaw'
validation_rule_type='GREATER_EQ'
validation_rule='2009-01-01'

fieldname='opis'
validation_rule_type='LENGTH_MIN'
validation_rule='10'

Reguły mogą być warunkowe - patrz ''Przykład 2''.
W przypadku nie spełnienia warunków zawartych w regule powinien zostać wyświetlony komunikat złożony z zawartości pól
message_if_not_valid dla nagłówka i tych pozycji reguły, które nie zostały spełnione.

----

'''Przykładowe definicje walidacji:'''

'''Przykład 1:'''

Karta kontrahenta (coreid='K_'), pole katcol0 ma być różne od 0, a długość pola NIP ma być równa 10 lub 12 lub 0
(rule_operator=1 (OR) oznacza, że wystarczy, by jeden z warunków był spełniony).

Definicja:
<source lang=sql>
insert into sys_fld_validator_ng values
(0,'K_rule1','K_',0,2,'Wartosc pierwszej kategorii kolumnowej musi byc okreslona! '),
(0,'K_rule2','K_',1,2,'Pole NIP może mieć długość 10,12 znaków bądź być puste');

insert into sys_fld_validator_po values
(0,'K_katcol0_rule1_1','K_rule1','katcol0',0,0,'NOT_EMPTY',"","",""),
(0,'K_nip_rule1_1','K_rule2','nip',0,0,'LENGTH_EQ','0',"","",""),
(0,'K_nip_rule1_2','K_rule2','nip',0,0,'LENGTH_EQ','10',"","",""),
(0,'K_nip_rule1_3','K_rule2','nip',0,0,'LENGTH_EQ','12',"","","");
</source>

Jeśli definiowane pole ma być sprawdzane tylko przy spełnieniu warunków dotyczących danego zapisu można takie warunki zdefiniować tworząc kolejny zestaw reguł i przypisując jego guid do pola condition_ruleset_guid.

'''Przykład 2:'''

Edycja operacji (coreid='O_') sprzedaży (grupaoper=0), pole katcol0 ma być różne od 0.
Definicja z wykorzystaniem dodatkowego warunku zdefiniowanego w regule 'O_katcol0_cond1'

Definicja:
<source lang=sql>
# reguła walidacji
insert into sys_fld_validator_ng values
(0,'O_katcol0_rule1','O_',0,2,'Wartosc pierwszej kategorii kolumnowej musi byc okreslona! '),

insert into sys_fld_validator_po values
(0,'O_katcol0_rule1_1','O_katcol0_rule1','katcol0',0,0,'NOT_EMPTY',"","",'O_katcol0_cond1',""),

# reguła warunku walidacji
insert into sys_fld_validator_ng values
(0,'O_katcol0_cond1',"",0,2,"");

insert into sys_fld_validator_po values
(0,'O_katcol0_cond1_1','O_katcol0_cond1','grupaoper',0,0,'EQ','0',"","","");
</source>

'''Przykład 3:'''

Edycja operacji (coreid='O_') sprzedaży (grupaoper=0), pole katcol0 ma być różne od 0.
Definicja z wykorzystaniem dodatkowego warunku zdefiniowanego w polu condition_expr

Definicja:
<source lang=sql>
# reguła walidacji
insert into sys_fld_validator_ng values
(0,'O_katcol0_rule1','O_',0,2,'Wartosc pierwszej kategorii kolumnowej musi byc okreslona! '),

insert into sys_fld_validator_po values
(0,'O_katcol0_rule1_1','O_katcol0_rule1','katcol0',0,0,'NOT_EMPTY',"",'grupa=0',"",""),

</source>

[[Kategoria: Administracja]]
[[Kategoria: MySQL]]
[[Kategoria: Programowanie]]

Code: Definicja regul pol obowiazkowych

2009-03-25T12:20:43Z

Awo:

Code:OLAP Radar

2009-03-23T14:30:58Z

Awo:

Procedury do [[HierCube]] i [[RadarCube]]

== HierCube ==
Dla komponentu '''HierCube'''.

1. Rozwiązanie statyczne.
W celu dodania własnej procedury wyliczeniowej należy wykonać następujące czynności: 
* kliknąć w komponent '''Grid''' (THierCubeGrid);
* we własności '''FunctionDefs''' wybrać zakładkę '''Sub-function settings''';
* kliknąć w ikonkę '''Create custom sub-function''' i w pole '''Display name''' wpisać nazwę wyświetlaną, która pojawi się w menu;
* przechodzimy do zakładki '''Summary settings''', w drzewie wybieramy '''Distinct Count''';
* wybieramy nowo założoną procedurę i w polu '''Format mask''' wybieramy właściwą maskę dla wyświetlanych wartości;
2. Rozwiązanie dynamiczne.
W głównej formatce dodajemy deklaracje, a w zdarzeniu '''OnCreate''' dodajemy własne funkcje jak poniżej:
<source lang=pascal>
TMainFRM = class(TForm)
private
{...}
MySubFunc1, MySubFunc2: TSubFunction;
function MyColPercentCalculator1(Args: TSubFunctionCalculatorArgs; out Res: Double): Boolean;
function MyColPercentCalculator2(Args: TSubFunctionCalculatorArgs; out Res: Double): Boolean;
function MyColTrendCalc(Args: TSubFunctionCalculatorArgs; out Res: Double; TrendNo: Integer): Boolean;
public
{...}
end;

implementation

{...}

procedure TMainFRM.FormCreate(Sender: TObject);
begin
{...}
{ dodanie funkcji w menu i pobranie identyfikatora }
MySubFunc1 := Grid.AddSubFunction('Przyrost w %').SubFunction;
MySubFunc2 := Grid.AddSubFunction('Stosunek wartości %').SubFunction;
{ dodanie formatowania }
Grid.SummarySettings.FindFieldName('Quantity').FunctionCustom1.SubFunctions[Ord(MySubFunc1)].FormatString := '0.00"%"';
Grid.SummarySettings.FindFieldName('Quantity').FunctionCustom1.SubFunctions[Ord(MySubFunc2)].FormatString := '0.00"%"';
end;
</source>
W komponencie '''Grid''' (THierCubeGrid) zdarzenie '''OnGetSubFunctionCalculator''' należy uzupełnić w następujący sposób:
<source lang=pascal>
procedure TMainFRM.GridGetSubFunctionCalculator(Sender: TObject; SubFun: TSubFunction; var Calculator: TSubFunctionCalculator);
begin
if SubFun = sstCustom1 then Calculator := MyColPercentCalculator else
if SubFun = MySubFunc1 then Calculator := MyColPercentCalculator1 else
if SubFun = MySubFunc2 then Calculator := MyColPercentCalculator2;
end;
</source>
Dodajemy kod własnych funkcji:
<source lang=pascal>
function TMainFRM.MyColPercentCalculator1(Args: TSubFunctionCalculatorArgs; out Res: Double): Boolean;
begin
Result := MyColTrendCalc(Args, Res, 1);
end;

function TMainFRM.MyColPercentCalculator2(Args: TSubFunctionCalculatorArgs; out Res: Double): Boolean;
begin
Result := MyColTrendCalc(Args, Res, 2);
end;

function TMainFRM.MyColTrendCalc(Args: TSubFunctionCalculatorArgs; out Res: Double; TrendNo: Integer): Boolean;
var
Node: TLabelNode;
Nodes: TLabelNodes;
i: Integer;
CurrCell, PrevCell: PDataCell;
x0, x1: Double;
begin
{ by default return empty cell }
Result := False;
with Args do
begin
CurrCell := FunctionData[ColTreeIndex, RowTreeIndex];
if CurrCell.NotEmpty then
begin
x1 := CurrCell.Data;
if x1 = 0.0 then Exit;
end
else
Exit;
if RowLabelNode = nil then Exit;
Node := RowLabelNode;
if Node.IsSubTotal then Exit;
if (Node.Parent <> nil) and Node.Parent.IsSubTotal then Exit;
Nodes := Node.LabelNodes;
{ find previous cells from the area of adequate comparisons }
i := Node.Index - 1;
if i >= 0 then
begin
Node := Nodes[i];
if not Node.IsSubTotal then
begin
PrevCell := FunctionData[ColTreeIndex, Node.TreeIndex];
if PrevCell.NotEmpty then
begin
Result := True;
x0 := PrevCell.Data;
case TrendNo of
1: Res := (1 - x0/x1) * 100;
2: Res := x0/x1 * 100;
end;
end;
end;
end;
end;
end;
</source>

== RadarCube ==
Dla komponentu '''RadarCube'''.

Deklaracja własnej procedury:

<source lang=pascal>
TfmMain = class(TForm)
private
{...}
procedure MyColTrendCalc(EventArgs: TShowMeasureArgs; TrendNo: Integer);
public
{...}
end;
</source>

W implementacji dodajemy:
<source lang=pascal>
implementation

{...}

const
_ColTrend = 'Przyrost w %';
_ColRate = 'Stosunek wartości %';
</source>

Modyfikujemy zdarzenia '''OnInitMeasures''' i '''OnShowMeasure''':
<source lang=pascal>
procedure TfmMain.OnInitMeasuresHandler(Sender: TObject);
var
M: TMeasure;
begin
//+ Add a new show mode named "Rank by Row" in the "Sales" measure
M := (Sender as TCustomOLAPGrid).Measures.FindByDisplayName('Sales');
if M <> nil then
begin
M.ShowModes.Add('Rank by Row');
M.ShowModes.Add(_ColTrend);
M.ShowModes.Add(_ColRate);
end;
end;

procedure TfmMain.OnShowMeasure(Sender: TObject; EventArgs: TShowMeasureArgs);
begin
{...}
if EventArgs.ShowMode.Caption = _ColTrend then
MyColTrendCalc(EventArgs, 1);
if EventArgs.ShowMode.Caption = _ColRate then
MyColTrendCalc(EventArgs, 2);
end;
</source>

Dodajemy własną procedurę:
<source lang=pascal>
procedure TfmMain.MyColTrendCalc(EventArgs: TShowMeasureArgs; TrendNo: Integer);
var
i, j: integer;
MC: IMemberCell;
V: Variant;
x0, x1, y: Double;
S: string;
begin
EventArgs.ReturnValue := '';
if VarIsNull(EventArgs.OriginalData) then Exit;
x1 := EventArgs.OriginalData;
if x1 = 0.0 then Exit;
S := '*';
Grid.GetCellByAddress(EventArgs.CurrentAddress, i, j);
MC := IMemberCell(Grid.CellSet.Cells[j, i]);
if MC <> nil then
begin
MC := MC.PrevMember;
if MC <> nil then
begin
V := EventArgs.Evaluator.SiblingValue(MC.Member);
if not VarIsNull(V) then
begin
x0 := V;
y := 0;
case TrendNo of
1: y := (1 - x0/x1) * 100;
2: y := x0/x1 * 100;
end;
S := FormatFloat('#0.00"%"', y);
end;
end
else
S := 'N/A';
end;
EventArgs.ReturnValue := S;
end;
</source>

[[Kategoria: System]]
[[Kategoria: Programowanie]]

Code:OLAP Radar

2009-03-23T11:10:19Z

Awo:

Procedury do [[HierCube]] i [[RadarCube]]

== HierCube ==
Dla komponentu '''HierCube'''. 
1. Rozwiązanie statyczne.
W celu dodania własnej procedury wyliczeniowej należy wykonać następujące czynności: 
* kliknąć w komponent '''Grid''' (THierCubeGrid);
* we własności '''FunctionDefs''' wybrać zakładkę '''Sub-function settings''';
* kliknąć w ikonkę '''Create custom sub-function''' i w pole '''Display name''' wpisać nazwę wyświetlaną, która pojawi się w menu;
* przechodzimy do zakładki '''Summary settings''', w drzewie wybieramy '''Distinct Count''';
* wybieramy nowo założoną procedurę i w polu '''Format mask''' wybieramy właściwą maskę dla wyświetlanych wartości;
2. Rozwiązanie dynamiczne.
W głównej formatce dodajemy deklaracje, a w zdarzeniu '''OnCreate''' dodajemy własne funkcje jak poniżej:
<source lang=pascal>
TMainFRM = class(TForm)
private
{...}
MySubFunc1, MySubFunc2: TSubFunction;
public
{...}
end;

procedure TMainFRM.FormCreate(Sender: TObject);
begin
...
{ dodanie funkcji w menu i pobranie identyfikatora }
MySubFunc1 := Grid.AddSubFunction('Przyrost w %').SubFunction;
MySubFunc2 := Grid.AddSubFunction('Stosunek wartości %').SubFunction;
{ dodanie formatowania }
Grid.SummarySettings.FindFieldName('Quantity').FunctionCustom1.SubFunctions[Ord(MySubFunc1)].FormatString := '0.00"%"';
Grid.SummarySettings.FindFieldName('Quantity').FunctionCustom1.SubFunctions[Ord(MySubFunc2)].FormatString := '0.00"%"';
end;
</source>
W komponencie '''Grid''' (THierCubeGrid) zdarzenie '''OnGetSubFunctionCalculator''' należy uzupełnić w następujący sposób:
<source lang=pascal>
procedure TMainFRM.GridGetSubFunctionCalculator(Sender: TObject; SubFun: TSubFunction; var Calculator: TSubFunctionCalculator);
begin
if SubFun = sstCustom1 then Calculator := MyColPercentCalculator else
if SubFun = MySubFunc1 then Calculator := MyColPercentCalculator1 else
if SubFun = MySubFunc2 then Calculator := MyColPercentCalculator2;
end;
</source>
Dodajemy kod własnych funkcji:
<source lang=pascal>
function TMainFRM.MyColPercentCalculator1(Args: TSubFunctionCalculatorArgs; out Res: Double): Boolean;
begin
Result := MyColTrendCalc(Args, Res, 1);
end;

function TMainFRM.MyColPercentCalculator2(Args: TSubFunctionCalculatorArgs; out Res: Double): boolean;
begin
Result := MyColTrendCalc(Args, Res, 2);
end;

function TMainFRM.MyColTrendCalc(Args: TSubFunctionCalculatorArgs; out Res: Double; TrendNo: Integer): Boolean;
var
Node: TLabelNode;
Nodes: TLabelNodes;
i: Integer;
CurrCell, PrevCell: PDataCell;
x0, x1: Double;
begin
{ by default return empty cell }
Result := False;
with Args do
begin
CurrCell := FunctionData[ColTreeIndex, RowTreeIndex];
if CurrCell.NotEmpty then
begin
x1 := CurrCell.Data;
if x1 = 0.0 then Exit;
end
else
Exit;
if RowLabelNode = nil then Exit;
{ find the parent node of RowLabelNode }
Node := RowLabelNode;
{ for the most total node return empty value }
if Node = nil then Exit;
{ the list of all nodes from the area of adequate comparisons including the given one }
if Node.IsSubTotal then Exit;
if (Node.Parent <> nil) and Node.Parent.IsSubTotal then Exit;
Nodes := Node.LabelNodes;
{ find previous cells from the area of adequate comparisons }
i := Node.Index - 1;
if i >= 0 then
begin
Node := Nodes[i];
if not Node.IsSubTotal then
begin
PrevCell := FunctionData[ColTreeIndex, Node.TreeIndex];
if PrevCell.NotEmpty then
begin
Result := True;
x0 := PrevCell.Data;
case TrendNo of
1: Res := (1 - x0/x1) * 100;
2: Res := x0/x1 * 100;
end;
end;
end;
end;
end;
end;
</source>

== RadarCube ==
Dla komponentu '''RadarCube'''. 

[[Kategoria: System]]
[[Kategoria: Programowanie]]

Code:OLAP Radar

2009-03-23T11:08:40Z

Awo:

Procedury do [[HierCube]] i [[RadarCube]]

== HierCube ==
Dla komponentu '''HierCube'''. 
1. Rozwiązanie statyczne.
W celu dodania własnej procedury wyliczeniowej należy wykonać następujące czynności: 
* kliknąć w komponent '''Grid''' (THierCubeGrid);
* we własności '''FunctionDefs''' wybrać zakładkę '''Sub-function settings''';
* kliknąć w ikonkę '''Create custom sub-function''' i w pole '''Display name''' wpisać nazwę wyświetlaną, która pojawi się w menu;
* przechodzimy do zakładki '''Summary settings''', w drzewie wybieramy '''Distinct Count''';
* wybieramy nowo założoną procedurę i w polu '''Format mask''' wybieramy właściwą maskę dla wyświetlanych wartości;
2. Rozwiązanie dynamiczne.
W głównej formatce dodajemy deklaracje, a w zdarzeniu '''OnCreate''' dodajemy własne funkcje jak poniżej:
<source lang=pascal>
TMainFRM = class(TForm)
private
...
MySubFunc1, MySubFunc2: TSubFunction;
public
...
end;

procedure TMainFRM.FormCreate(Sender: TObject);
begin
. . .
{dodanie funkcji w menu i pobranie identyfikatora}
MySubFunc1 := Grid.AddSubFunction('Przyrost w %').SubFunction;
MySubFunc2 := Grid.AddSubFunction('Stosunek wartości %').SubFunction;
{dodanie formatowania}
Grid.SummarySettings.FindFieldName('Quantity').FunctionCustom1.SubFunctions[Ord(MySubFunc1)].FormatString := '0.00"%"';
Grid.SummarySettings.FindFieldName('Quantity').FunctionCustom1.SubFunctions[Ord(MySubFunc2)].FormatString := '0.00"%"';
end;
</source>
W komponencie '''Grid''' (THierCubeGrid) zdarzenie '''OnGetSubFunctionCalculator''' należy uzupełnić w następujący sposób:
<source lang=pascal>
procedure TMainFRM.GridGetSubFunctionCalculator(Sender: TObject; SubFun: TSubFunction; var Calculator: TSubFunctionCalculator);
begin
if SubFun = sstCustom1 then Calculator := MyColPercentCalculator else
if SubFun = MySubFunc1 then Calculator := MyColPercentCalculator1 else
if SubFun = MySubFunc2 then Calculator := MyColPercentCalculator2;
end;
</source>
Dodajemy kod własnych funkcji:
<source lang=pascal>
function TMainFRM.MyColPercentCalculator1(Args: TSubFunctionCalculatorArgs; out Res: Double): Boolean;
begin
Result := MyColTrendCalc(Args, Res, 1);
end;

function TMainFRM.MyColPercentCalculator2(Args: TSubFunctionCalculatorArgs; out Res: Double): boolean;
begin
Result := MyColTrendCalc(Args, Res, 2);
end;

function TMainFRM.MyColTrendCalc(Args: TSubFunctionCalculatorArgs; out Res: Double; TrendNo: Integer): Boolean;
var
Node: TLabelNode;
Nodes: TLabelNodes;
i: Integer;
CurrCell, PrevCell: PDataCell;
x0, x1: Double;
begin
{ by default return empty cell }
Result := False;
with Args do
begin
CurrCell := FunctionData[ColTreeIndex, RowTreeIndex];
if CurrCell.NotEmpty then
begin
x1 := CurrCell.Data;
if x1 = 0.0 then Exit;
end
else
Exit;
if RowLabelNode = nil then Exit;
{ find the parent node of RowLabelNode }
Node := RowLabelNode;
{ for the most total node return empty value }
if Node = nil then Exit;
{ the list of all nodes from the area of adequate comparisons including the given one }
if Node.IsSubTotal then Exit;
if (Node.Parent <> nil) and Node.Parent.IsSubTotal then Exit;
Nodes := Node.LabelNodes;
{ find previous cells from the area of adequate comparisons }
i := Node.Index - 1;
if i >= 0 then
begin
Node := Nodes[i];
if not Node.IsSubTotal then
begin
PrevCell := FunctionData[ColTreeIndex, Node.TreeIndex];
if PrevCell.NotEmpty then
begin
Result := True;
x0 := PrevCell.Data;
case TrendNo of
1: Res := (1 - x0/x1) * 100;
2: Res := x0/x1 * 100;
end;
end;
end;
end;
end;
end;
</source>

== RadarCube ==
Dla komponentu '''RadarCube'''. 

[[Kategoria: System]]
[[Kategoria: Programowanie]]

Code:OLAP Radar

2009-03-20T15:08:00Z

Awo:

Procedury do [[HierCube]] i [[RadarCube]]

== HierCube ==
Dla komponentu '''HierCube'''. 
W celu dodania własnej procedury wyliczeniowej należy wykonać następujące czynności: 
* kliknąć w komponent '''Grid''' (THierCubeGrid);
* we własności '''FunctionDefs''' wybrać zakładkę '''Sub-function settings''';
* kliknąć w ikonkę '''Create custom sub-function''' i w pole '''Display name''' wpisać nazwę wyświetlaną, która pojawi się w menu;
* przechodzimy do zakładki '''Summary settings''', w drzewie wybieramy '''Distinct Count''';
* wybieramy nowo założoną procedurę i w polu '''Format mask''' wybieramy właściwą maskę dla wyświetlanych wartości;

<source lang=pascal>
function CalcTrendByCol(Args: TSubFunctionCalculatorArgs; out Res: Double; TrendVer: Integer): Boolean;
var
Node: TLabelNode;
Nodes: TLabelNodes;
i: Integer;
CurrCell, PrevCell: PDataCell;
x0, x1: Double;
begin
{ by default return empty cell }
Result := False;
with Args do
begin
CurrCell := FunctionData[ColTreeIndex, RowTreeIndex];
if CurrCell.NotEmpty then
begin
x1 := CurrCell.Data;
if x1 = 0.0 then Exit;
end
else
Exit;
if RowLabelNode = nil then Exit;
{ find the parent node of RowLabelNode }
Node := RowLabelNode;
{ for the most total node return empty value }
if Node = nil then Exit;
{ the list of all nodes from the area of adequate comparisons including the given one }
if Node.IsSubTotal then Exit;
if (Node.Parent <> nil) and Node.Parent.IsSubTotal then Exit;
Nodes := Node.LabelNodes;
{ find previous cells from the area of adequate comparisons }
i := Node.Index - 1;
if i >= 0 then
begin
Node := Nodes[i];
if not Node.IsSubTotal then
begin
PrevCell := FunctionData[ColTreeIndex, Node.TreeIndex]; // RowTreeIndex
if PrevCell.NotEmpty then
begin
Result := True;
x0 := PrevCell.Data;
case TrendVer of
1: Res := (1 - x0/x1) * 100;
2: Res := x0/x1 * 100;
end;
end;
end;
end;
end;
end;
</source>

== RadarCube ==
Dla komponentu '''RadarCube'''. 

[[Kategoria: System]]
[[Kategoria: Programowanie]]

Code:OLAP Radar

2009-03-20T15:07:00Z

Awo:

Procedury do [[HierCube]] i [[RadarCube]] =
== HierCube ==
Dla komponentu '''HierCube'''. 
W celu dodania własnej procedury wyliczeniowej należy wykonać następujące czynności: 
* kliknąć w komponent '''Grid''' (THierCubeGrid);
* we własności '''FunctionDefs''' wybrać zakładkę '''Sub-function settings''';
* kliknąć w ikonkę '''Create custom sub-function''' i w pole '''Display name''' wpisać nazwę wyświetlaną, która pojawi się w menu;
* przechodzimy do zakładki '''Summary settings''', w drzewie wybieramy '''Distinct Count''';
* wybieramy nowo założoną procedurę i w polu '''Format mask''' wybieramy właściwą maskę dla wyświetlanych wartości;

<source lang=pascal>
function CalcTrendByCol(Args: TSubFunctionCalculatorArgs; out Res: Double; TrendVer: Integer): Boolean;
var
Node: TLabelNode;
Nodes: TLabelNodes;
i: Integer;
CurrCell, PrevCell: PDataCell;
x0, x1: Double;
begin
{ by default return empty cell }
Result := False;
with Args do
begin
CurrCell := FunctionData[ColTreeIndex, RowTreeIndex];
if CurrCell.NotEmpty then
begin
x1 := CurrCell.Data;
if x1 = 0.0 then Exit;
end
else
Exit;
if RowLabelNode = nil then Exit;
{ find the parent node of RowLabelNode }
Node := RowLabelNode;
{ for the most total node return empty value }
if Node = nil then Exit;
{ the list of all nodes from the area of adequate comparisons including the given one }
if Node.IsSubTotal then Exit;
if (Node.Parent <> nil) and Node.Parent.IsSubTotal then Exit;
Nodes := Node.LabelNodes;
{ find previous cells from the area of adequate comparisons }
i := Node.Index - 1;
if i >= 0 then
begin
Node := Nodes[i];
if not Node.IsSubTotal then
begin
PrevCell := FunctionData[ColTreeIndex, Node.TreeIndex]; // RowTreeIndex
if PrevCell.NotEmpty then
begin
Result := True;
x0 := PrevCell.Data;
case TrendVer of
1: Res := (1 - x0/x1) * 100;
2: Res := x0/x1 * 100;
end;
end;
end;
end;
end;
end;
</source>

== RadarCube ==
Dla komponentu '''RadarCube'''. 

[[Kategoria: System]]
[[Kategoria: Programowanie]]

Code:OLAP Radar

2009-03-20T15:04:27Z

Awo:

Procedury do [[HierCube]] i [[RadarCube]] =
== HierCube ==
Dla komponentu '''HierCube'''. 
W celu dodania własnej procedury wyliczeniowej należy wykonać następujące czynności: 
* kliknąć w komponent Grid (THierCubeGrid);
* we własności "FunctionDefs" wybrać zakładkę "Sub-function settings";
* kliknąć w ikonkę "Create custom sub-function" i w pole "Display name" wpisać nazwę wyswietlaną która pojawi się w menu;
* przechodzimy do zakładki "Summary settings", w drzewie wybieramy "Distinct Count";
* wybieramy nowo założoną procedurę i w polu "Format mask" wybieramy właściwą maskę dla wyświetlanych wartości;

<source lang=pascal>
function CalcTrendByCol(Args: TSubFunctionCalculatorArgs; out Res: Double; TrendVer: Integer): Boolean;
var
Node: TLabelNode;
Nodes: TLabelNodes;
i: Integer;
CurrCell, PrevCell: PDataCell;
x0, x1: Double;
begin
{ by default return empty cell }
Result := False;
with Args do
begin
CurrCell := FunctionData[ColTreeIndex, RowTreeIndex];
if CurrCell.NotEmpty then
begin
x1 := CurrCell.Data;
if x1 = 0.0 then Exit;
end
else
Exit;
if RowLabelNode = nil then Exit;
{ find the parent node of RowLabelNode }
Node := RowLabelNode;
{ for the most total node return empty value }
if Node = nil then Exit;
{ the list of all nodes from the area of adequate comparisons including the given one }
if Node.IsSubTotal then Exit;
if (Node.Parent <> nil) and Node.Parent.IsSubTotal then Exit;
Nodes := Node.LabelNodes;
{ find previous cells from the area of adequate comparisons }
i := Node.Index - 1;
if i >= 0 then
begin
Node := Nodes[i];
if not Node.IsSubTotal then
begin
PrevCell := FunctionData[ColTreeIndex, Node.TreeIndex]; // RowTreeIndex
if PrevCell.NotEmpty then
begin
Result := True;
x0 := PrevCell.Data;
case TrendVer of
1: Res := (1 - x0/x1) * 100;
2: Res := x0/x1 * 100;
end;
end;
end;
end;
end;
end;
</source>

== RadarCube ==
Dla komponentu '''RadarCube'''. 

[[Kategoria: System]]
[[Kategoria: Programowanie]]

Code:OLAP Radar

2009-03-20T14:41:39Z

Awo:

== Procedura do [[HierCube]] ==

<source lang=pascal>
function CalcTrendByCol(Args: TSubFunctionCalculatorArgs; out Res: Double; TrendVer: Integer): Boolean;
var
Node: TLabelNode;
Nodes: TLabelNodes;
i: Integer;
CurrCell, PrevCell: PDataCell;
x0, x1: Double;
begin
{ by default return empty cell }
Result := False;
with Args do
begin
//if not FunctionData[ColTreeIndex, RowTreeIndex].NotEmpty then Exit;
CurrCell := FunctionData[ColTreeIndex, RowTreeIndex];
if CurrCell.NotEmpty then
begin
x1 := CurrCell.Data;
if x1 = 0.0 then Exit;
end
else
Exit;
if RowLabelNode = nil then Exit;
{ find the parent node of RowLabelNode }
Node := RowLabelNode;
{ for the most total node return empty value }
if Node = nil then Exit;
{ the list of all nodes from the area of adequate comparisons including the given one }
if Node.IsSubTotal then Exit;
if (Node.Parent <> nil) and Node.Parent.IsSubTotal then Exit;
Nodes := Node.LabelNodes;
{ find previous cells from the area of adequate comparisons }
i := Node.Index - 1;
if i >= 0 then
begin
Node := Nodes[i];
if not Node.IsSubTotal then
begin
PrevCell := FunctionData[ColTreeIndex, Node.TreeIndex]; // RowTreeIndex
if PrevCell.NotEmpty then
begin
Result := True;
x0 := PrevCell.Data;
case TrendVer of
1: Res := (1 - x0/x1) * 100;
2: Res := x0/x1 * 100;
end;
end;
end;
end;
end;
end;
</source>

[[Kategoria: System]]
[[Kategoria: Programowanie]]

Code:OLAP Radar

2009-03-20T14:23:15Z

Awo:

== Procedura do [[HierCube]] ==

<pre>
function CalcTrendByCol(Args: TSubFunctionCalculatorArgs; out Res: Double; TrendVer: Integer): Boolean;
var
Node: TLabelNode;
Nodes: TLabelNodes;
i: Integer;
CurrCell, PrevCell: PDataCell;
x0, x1: Double;
begin
{ by default return empty cell }
Result := False;
with Args do
begin
//if not FunctionData[ColTreeIndex, RowTreeIndex].NotEmpty then Exit;
CurrCell := FunctionData[ColTreeIndex, RowTreeIndex];
if CurrCell.NotEmpty then
begin
x1 := CurrCell.Data;
if x1 = 0.0 then Exit;
end
else
Exit;
if RowLabelNode = nil then Exit;
{ find the parent node of RowLabelNode }
Node := RowLabelNode;
{ for the most total node return empty value }
if Node = nil then Exit;
{ the list of all nodes from the area of adequate comparisons including the given one }
if Node.IsSubTotal then Exit;
if (Node.Parent <> nil) and Node.Parent.IsSubTotal then Exit;
Nodes := Node.LabelNodes;
{ find previous cells from the area of adequate comparisons }
i := Node.Index - 1;
if i >= 0 then
begin
Node := Nodes[i];
if not Node.IsSubTotal then
begin
PrevCell := FunctionData[ColTreeIndex, Node.TreeIndex]; // RowTreeIndex
if PrevCell.NotEmpty then
begin
Result := True;
x0 := PrevCell.Data;
case TrendVer of
1: Res := (1 - x0/x1) * 100;
2: Res := x0/x1 * 100;
end;
end;
end;
end;
end;
end;
</pre>

[[Kategoria: System]]
[[Kategoria: Programowanie]]

Code:OLAP Radar

2009-03-20T14:20:39Z

Awo: /* Procedura do HierCube */

Code:OLAP Radar

2009-03-20T14:18:49Z

Awo: Nowa strona: == Procedura do HierCube == function CalcTrendByCol(Args: TSubFunctionCalculatorArgs; out Res: Double; TrendVer: Integer): Boolean; var Node: TLabelNode; Nodes: TLabelNodes...

== Procedura do [[HierCube]] ==

function CalcTrendByCol(Args: TSubFunctionCalculatorArgs; out Res: Double; TrendVer: Integer): Boolean;
var
Node: TLabelNode;
Nodes: TLabelNodes;
i: Integer;
CurrCell, PrevCell: PDataCell;
x0, x1: Double;
begin
{ by default return empty cell }
Result := False;
with Args do
begin
//if not FunctionData[ColTreeIndex, RowTreeIndex].NotEmpty then Exit;
CurrCell := FunctionData[ColTreeIndex, RowTreeIndex];
if CurrCell.NotEmpty then
begin
x1 := CurrCell.Data;
if x1 = 0.0 then Exit;
end
else
Exit;
if RowLabelNode = nil then Exit;
{ find the parent node of RowLabelNode }
Node := RowLabelNode;
{ for the most total node return empty value }
if Node = nil then Exit;
{ the list of all nodes from the area of adequate comparisons including the given one }
if Node.IsSubTotal then Exit;
if (Node.Parent <> nil) and Node.Parent.IsSubTotal then Exit;
Nodes := Node.LabelNodes;
{ find previous cells from the area of adequate comparisons }
i := Node.Index - 1;
if i >= 0 then
begin
Node := Nodes[i];
if not Node.IsSubTotal then
begin
PrevCell := FunctionData[ColTreeIndex, Node.TreeIndex]; // RowTreeIndex
if PrevCell.NotEmpty then
begin
Result := True;
x0 := PrevCell.Data;
case TrendVer of
1: Res := (1 - x0/x1) * 100;
2: Res := x0/x1 * 100;
end;
end;
end;
end;
end;
end;

[[Kategoria: System]]
[[Kategoria: Programowanie]]