| ( |
|
|
|||
| returns Number of Active Window | |||
global
procedure ContactSearchSsm()
BEGIN
Integer wn,nwn;
record RcVc RepSpec;
wn = CurWindow;
nwn = OpenWindow("SearchContactRClass",0,0,"","",RepSpec);
DeselectWindow(nwn,false);
ReportDefaults(RepSpec,"SearchContactRClass");
RepSpec.long1 = GetWindowSubset(wn);
RepSpec.repname = "SearchContactRn";
RepSpec.critname = "SearchContactRClass";
RepSpec.Media = 6;
PutWindowRecord(nwn,RepSpec);
WindowFieldGoto(nwn,RepSpec,-1,"f1");
RETURN;
END;
 |
|
| Related topics: | |