Hello,
In Client_HardCodedVisitors_Svr.pas you can see:
procedure TVisPhoneNumber_Create.SetupParams;
var
lData: TPhoneNumber;
begin
lData:= Visited as TPhoneNumber;
lData.OID.AssignToTIQuery('OID', Query);
<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<
lData.Owner.OID.AssignToTIQuery('Client_OID', Query);
<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<
Query.ParamAsString['Number_Type']:= lData.NumberType;
Query.ParamAsString['Number_Text']:= lData.NumberText;
end;
I have a question about <<<< line. lData here is TPhoneNumber so his
owner is TPhoneNumbers = class(TtiObjectList). Because in BOM we have:
constructor TClient.Create;
begin
inherited;
FPhoneNumbers:= TPhoneNumbers.Create;
FPhoneNumbers.Owner:= Self;
end;
so in my opinion above line should look like this:
<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<
lData.Owner.Owner.OID.AssignToTIQuery('Client_OID', Query);
<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<
What do you think about it ? Is any other solution for progressing OID
down (from parent to child objects) ?
--
Best regards
Jaromir
------------------------------------------------------------------------------
This SF.net email is sponsored by Sprint
What will you do first with EVO, the first 4G phone?
Visit sprint.com/first -- http://p.sf.net/sfu/sprint-com-first
_______________________________________________
tiOPF-talk mailing list
[email protected]
https://lists.sourceforge.net/lists/listinfo/tiopf-talk
