home *** CD-ROM | disk | FTP | other *** search
/ CD-ROM Aktiv 1 / CDA1_96.ISO / novell / srmgr_sc.txt < prev    next >
Text File  |  1995-12-24  |  3KB  |  73 lines
  1. Search Results Manager for SoftSolutions 4.1 Windows
  2. ----------------------------------------------------
  3.  
  4. This is the SRMGR_SC.TXT file.  When you register this file at GO SWREG #8432 you will be provided with a copy of the latest SRMGR.ZIP file (containing SRMGR.EXE, SRMGR.TXT, and SRMGR.INI) as well as ALL THE SOURCE CODE which makes up the program.  It is written in Borland Delphi.
  5.  
  6. 1 year after your registration, you will be provided with an opportunity to register for another year and receive the updated versions of SRMGR.ZIP and it's source code.  Support will be provided at no charge by e-mail for the entire year.
  7.  
  8. You will need your own copy of Borland Delphi, of course, in order to work with the source code.  You are NOT granted a license to use the source code for any purposes other than for internal use by your organization.  If you are a consultant, reseller, or software developer you are NOT granted a license to create a commercial product of your own, however if you register on behalf of each of your client then you can use the source code for any of your clients' purposes.
  9.  
  10. Please let me know if you have any suggestions for improvement or additional features.  Enjoy the program.
  11.  
  12. Wesley Kenzie
  13. zie @ wimsey.com
  14.  
  15. (c) Copyright 1995 Zie Computer Services
  16.  
  17.  
  18. P.S.  An example of one of the Delphi source code modules is listed below to give you an idea of what you will be getting...
  19.  
  20. unit Sscustom;
  21.  
  22. {Copyright (c) 1995 Zie Computer Services zie@wimsey.com 604-351-5784
  23. ---------------------------------------------------------------------
  24. This module looks up the custom prompt description from the current
  25. profile record and returns it in the custom record name field.
  26. ---------------------------------------------------------------------}
  27.  
  28. interface
  29.  
  30. uses SSapi, SysUtils, SSerror;
  31.  
  32. procedure LookUp(value: pChar; number: char; coordinate: string;
  33.  DocNumber: longint);
  34.  
  35. implementation
  36.  
  37. procedure LookUp(value: pChar; number: char; coordinate: string;
  38.  DocNumber: longint);
  39. var
  40.  Result: integer;
  41. begin
  42.  FillChar(Custom.field, SizeOf(Custom.link), #0);
  43.  FillChar(Custom.link, SizeOf(Custom.link), #0);
  44.  StrCopy(Custom.field, value);
  45.  Custom.num := number;
  46.  case Control.customrelated[(StrToInt(coordinate)-1)] of
  47.   #1: StrCopy(Custom.link, Profile.custom[1]);
  48.   #2: StrCopy(Custom.link, Profile.custom[2]);
  49.   #3: StrCopy(Custom.link, Profile.custom[3]);
  50.   #4: StrCopy(Custom.link, Profile.custom[4]);
  51.   #5: StrCopy(Custom.link, Profile.custom[5]);
  52.   #6: StrCopy(Custom.link, Profile.custom[6]);
  53.   #7: StrCopy(Custom.link, Profile.custom[7]);
  54.   #8: StrCopy(Custom.link, Profile.custom[8]);
  55.   #9: StrCopy(Custom.link, Profile.custom[9]);
  56.   #10: StrCopy(Custom.link, Profile.custom[10]);
  57.   #11: StrCopy(Custom.link, Profile.custom[11]);
  58.   #12: StrCopy(Custom.link, Profile.custom[12]);
  59.   #13: StrCopy(Custom.link, Profile.custom[13]);
  60.   #14: StrCopy(Custom.link, Profile.custom[14]);
  61.   #15: StrCopy(Custom.link, Profile.custom[15]);
  62.   #16: StrCopy(Custom.link, Profile.custom[16]);
  63.  end;
  64.  try Result := SS_find(CUSTOMS, iMAIN, @Custom)
  65.   except AppError(0, 'SERIOUS SS_find CUSTOM' + coordinate + ' error') end;
  66.  if (Result = -1) then begin
  67.   StrCopy(Custom.name, '*undefined'); Result := 0; end;
  68.  if (Result <> 0) then AppError(Result,
  69.   'SS_find CUSTOM' + coordinate + '=' + StrPas(value) +
  70.   ' Doc #' + IntToStr(DocNumber));
  71. end;
  72.  
  73. end.