VB5SERVERINFO
VERSION=1.0.0

HKEY_CLASSES_ROOT\aisc_search.AISC_Field_Value = aisc_search.AISC_Field_Value
HKEY_CLASSES_ROOT\aisc_search.AISC_Field_Value\NotInsertable
HKEY_CLASSES_ROOT\aisc_search.AISC_Field_Value\CLSID = {F9F33229-923E-4CD6-A5EF-9B3871700643}
HKEY_CLASSES_ROOT\CLSID\{F9F33229-923E-4CD6-A5EF-9B3871700643} = aisc_search.AISC_Field_Value
HKEY_CLASSES_ROOT\CLSID\{F9F33229-923E-4CD6-A5EF-9B3871700643}\ProgId = aisc_search.AISC_Field_Value
HKEY_CLASSES_ROOT\CLSID\{F9F33229-923E-4CD6-A5EF-9B3871700643}\VersionIndependentProgId = aisc_search.AISC_Field_Value
HKEY_CLASSES_ROOT\CLSID\{F9F33229-923E-4CD6-A5EF-9B3871700643}\InProcServer32 = aisc_search.dll
HKEY_CLASSES_ROOT\CLSID\{F9F33229-923E-4CD6-A5EF-9B3871700643}\InProcServer32\"ThreadingModel" = Apartment
HKEY_CLASSES_ROOT\CLSID\{F9F33229-923E-4CD6-A5EF-9B3871700643}\TypeLib = {B96DF66F-9CE9-4C8D-8E89-E96B8B7F2159}
HKEY_CLASSES_ROOT\CLSID\{F9F33229-923E-4CD6-A5EF-9B3871700643}\Version = 1.0
HKEY_CLASSES_ROOT\CLSID\{F9F33229-923E-4CD6-A5EF-9B3871700643}\Foxruntime = VFP9T.DLL
HKEY_CLASSES_ROOT\INTERFACE\{20872777-F934-4B5C-999F-7D5AA5EFE5F2} = AISC_Field_Value
HKEY_CLASSES_ROOT\INTERFACE\{20872777-F934-4B5C-999F-7D5AA5EFE5F2}\ProxyStubClsid = {00020424-0000-0000-C000-000000000046}
HKEY_CLASSES_ROOT\INTERFACE\{20872777-F934-4B5C-999F-7D5AA5EFE5F2}\ProxyStubClsid32 = {00020424-0000-0000-C000-000000000046}
HKEY_CLASSES_ROOT\INTERFACE\{20872777-F934-4B5C-999F-7D5AA5EFE5F2}\TypeLib = {B96DF66F-9CE9-4C8D-8E89-E96B8B7F2159}
HKEY_CLASSES_ROOT\INTERFACE\{20872777-F934-4B5C-999F-7D5AA5EFE5F2}\TypeLib\"Version" = 1.0


; TypeLibrary registration
HKEY_CLASSES_ROOT\TypeLib\{B96DF66F-9CE9-4C8D-8E89-E96B8B7F2159}
HKEY_CLASSES_ROOT\TypeLib\{B96DF66F-9CE9-4C8D-8E89-E96B8B7F2159}\1.0 = aisc_search Type Library
HKEY_CLASSES_ROOT\TypeLib\{B96DF66F-9CE9-4C8D-8E89-E96B8B7F2159}\1.0\0\win32 = aisc_search.dll
HKEY_CLASSES_ROOT\TypeLib\{B96DF66F-9CE9-4C8D-8E89-E96B8B7F2159}\1.0\FLAGS = 0

DEFINE CLASS AISC_Field_Value AS CUSTOM OLEPUBLIC

PROCEDURE AISC_Field_Value_Function

LPARAMETERS cThisSize, cThisValue

* Set up the environment to operate quietly and with utmost exactitude
SET TALK OFF
SET EXACT ON

* nReturnValue is the value returned from the table. If not found, it returns zero
nReturnValue = -1

* lSizeOk is a logical that determines whether the Size passed in is valid
* If cThisSize is a character string and is found in the list titled EDI_Std, lSizeOk = .T.
lSizeOk      = .F.

* lValueOk is a logical that determines whether the Value passed in is valid
* If cThisValue is a character string and is a valid field name (in the long IF statement below), 
* then lValueOk becomes .T.
lValueOk     = .F.

* Make sure cThisSize is a character string
IF TYPE( 'cThisSize' ) = 'C'
  lSizeOk    = .T.
  * Convert the string to Caps and remove extraneous spaces
  cThisSize  = UPPER( STRTRAN( cThisSize, ' ', '' ))
ENDIF

* Make sure cThisValue is a character string 
IF TYPE( 'cThisValue' ) = 'C'
  lValueOk   = .T.
  * Convert the string to Caps
  cThisValue = UPPER( cThisValue )
ENDIF

IF lSizeOk AND lValueOk 
  * Make sure that the field name passed in is a valid choice
  * If the fields are changed by the AISC in the future, add to or edit this list
  IF cThisValue = 'METRIC'     OR ;   && added 2011
     cThisValue = 'TYPE'       OR ;
     cThisValue = 'EDI_STD'    OR ;   && revised name-2006
     cThisValue = 'AISC_MAN'   OR ;   && revised name-2006
...
...
...
...
    cThisvalue = 'PB'

     lValueOk = .T.
  ELSE
     lValueOk = .F.
  ENDIF

  * This is where we do the actual look up
  IF lSizeOk AND lValueOk

    * Make sure our file is in use and the index is set correctly
    IF NOT USED( 'AISC1' )
      USE AISC_V14_0_0 IN 0 ALIAS AISC1
    ENDIF

    SELECT AISC1
    SET ORDER TO EDI_STD
    
    * Find the correct record
    IF SEEK( cThisSize )
      * Find the value in the specified field
      nReturnValue = &cThisValue
    ENDIF

	* Check if 0 value in table, if so return a dash
    IF TYPE( 'nReturnValue' ) = 'N' AND nReturnvalue = 0 && 2011
       nReturnValue = '-'								 && 2011
    ELSE												 && 2011
       nReturnValue = &cThisValue						 && 2011
    ENDIF												 && 2011

  ENDIF lSizeOk AND lValueOk AND Aisc_Lookup()
ENDIF lSizeOk AND lValueOk

RETURN nReturnValue

ENDPROC

ENDDEFINE

Attribute VB_Name = "AISC_Search"

Declare Function aisc_field_value_function Lib "AISC_Search" _
    (cthissize As String, cthisvalue As String)


Declare Function ShellAbout Lib "shell32.dll" Alias "ShellAboutA" (ByVal hwnd As Long, ByVal szApp As String, ByVal szOtherStuff As String, ByVal hIcon As Long) As Long

Declare Function GetActiveWindow Lib "user32" () As Long



Public Function AISC(Shape As String, Property As String) As Variant

    Dim SteelSearch As Object
    Set SteelSearch = CreateObject("aisc_search.aisc_Field_Value"

AISC = SteelSearch.aisc_field_value_function(Shape, Property)

End Function

text = SMath.Manager.Symbols.StringChar + text + SMath.Manager.Symbols.StringChar;