Module codeload.pkg

************************************************************************ Confidential Trade Secret. Copyright 1987-1995 Data Access Corporation, Miami FL, USA All Rights reserved DataFlex is a registered trademark of Data Access Corporation. ************************************************************************ ************************************************************************ CodeLoad.pkg - Code loading data-set Version: 1.1 03/18/94 - created 04/04/94 - modified and made more general 2/26/2002 JJT - 8.2 clean up (indirect_file, local, self, etc.) Author: John J. Tuohy Interface: Procedure Initialize_File Integer File# Integer Index# Integer Code# ; Integer Desc# Integer Type# String Type This initializes the data-set for finding. You MUST pass all five parameters here. They are: File# - main file to use Index# - Index to use for finding Code# - field number of the code Desc# - field number of the code's description Type# - field number of the constraining Type (0 if none) Type - the constrain type value ('' = allow all records) You MUST send this message before finding records. Alternately, you could set the individual properties and send rebuild_constraints and CLEAR to initalize the file (see code on how to do this). Get Next_Code_record to ret_Int Returns the next record number. 0 if no more. If record exists it sets the value of Current_Code and Crnt_Description. Get Current_Code to Ret_String Get Crnt_Description to Ret_String Returns the code and description of the last valid record found with the Next_Code_Record Message Sample Usage: This was created primarily to be used by the radio-entry-form classes. In particular those using the "code" look up file. Look at those packages if you wish to use them yourself. ************************************************************************

codeload.pkg (view source)
• import declarations
  • Data_set.pkg (view source)
• Code_Loader_Data_Set : DataSet
  • Construct_Object(Integer Img#)
    Inherited from DataSet
    • StringType_Value
      These should be set by the Initialize_File message assume no defaults.
    • IntegerType_Field
      These values should be
    • IntegerCode_Field
      set by initialize_file
    • IntegerDescription_Field
    • StringCurrent_Code
      These are SET by Next_Code_Record. You may GET their values
    • StringCurrent_Description
  • Constrain()
    Inherited from DataSet
    • StringsType
    • IntegeriFile
    • IntegeriField
  • Initialize_File(Integer File# Integer Index# Integer Code# Integer Desc# Integer Type# String Type)
    This initializes the data-set for finding. You MUST pass all five parameters here. They are: File# - main file to use Index# - Index to use for finding Code# - field number of the code Desc# - field number of the code's description Type# - field number of the constraining Type (0 if none) Type - the constrain type value ('' = allow all records)
  • booleanNext_Code_Record()
    Find the next record: Return 0 if no record, 1 if record exists if record exists set Current_Code and Current_Description
    • IntegeriFile
    • IntegeriField
    • StringsValue

References (1):

Field References (0):