Module Dd_cmbmx.pkg

****************************************************************************// // $File name : dd_Cmbmx.pkg // $File title : // Notice : // $System : Extended Data Sets 3.1 // Created : 03/28/96 04:48 pm // $Last Rev : 03/28/96 04:48 pm41 // // $Description // // // $Rev History // JT 07/30/97 Added Allow_Undefined_State support for no edit combos. This // forces the user to pick a choice instead of using the default // JT 04/07/97 Added Entry_Defaults to set a DD value if entry_state=F and // there is no current DD value. Otherwise the value in the DEO // does not match the value in the DD buffer. Only required when // entry_state is false. // JT 09/10/96 Added Data_Value message which splits data and descr. // JT 08/07/96 Combo_Item_Changed is now sets the DD value. This message is // now called by cbn_selchange everytime. Combos no longer // externally get or set value. // JT 07/18/96 Create copy_mask_items to do nothing. Combos do not understand // masking right now. // JT 07/03/96 Augmented Command to notify the DD when a combo change is made // When the passes param is CBN_SELCHANGE the value of the item // may get changed. If value is changed we will notify the DD // JT 04/25/96 Item_Field_Value changed to Item_Field_Current_Value. // JT 28-03-96 File header created // // ****************************************************************************// ****************************************************************************// This creates mixin methods for combo entry from classes. It provides a wide// range of fetatures when used with xdata-sets. It used lists provided with // the DSO and automatically loads them. It can display either the data or a // description (allowing seperation of database and display data). This works // with all types of lists including code lists (the DSO handles this). // ****************************************************************************//

Dd_cmbmx.pkg (view source)
• import declarations
  • VdfBase.pkg (view source)
• Extended_Deo_dfCombo_mixin : Mixin
  Combo selection-list for static data-file lookup.
  • ComboFillItem(integer iItem string sValue string sDescription integer iFile RowId riId)
  • Combo_Fill_List()
    Procedure Combo_Fill_Item integer iItem string sValue string sDescription ; integer iFile integer iRec If sDescription eq '' Move sValue to sDescription Send Combo_Add_Item sDescription sValue // first may get altered Set Record_Number Item iItem to iRec End_Procedure Fills the list by loading the entire defined data-file
    • IntegeriFile
    • IntegeriField
    • IntegeriSrvr
    • IntegeriNdx
    • IntegeriValFile
    • IntegeriObj
  • Combo_Add_Blank_Item(String Blank_Desc)
  • Set(Integer iItem String sValue)
  • Item_Value_Changed(Integer iItem String sValue)
  • integerActivate()
    • IntegeriRVal
    • IntegeriObj
    • StringsValue
  • Combo_Item_Changed()
  • Copy_Mask_Options(Integer iDSO Integer iFile Integer iField Integer iDEO Integer iItem)
    Right now combo forms do not understand masks
  • StringData_Value(integer item#)
    This Replaces DD message with one that understands description and data difference. Actually Combos have this but lose it with the DD mixin. These restablishes it.
    • StringsValue
  • Entry_Defaults()
    Augmented to handle entry_state=F combos. These type of combos must have a default value (since something always appears in the form). So we must check for cases where we have a value in the combo that is not reflected in the DD buffer. In such a case, update the buffer with a default value.
    • IntegeriData_File
    • IntegeriData_Field
    • IntegeriDSO
    • IntegeriOldState
    • IntegeriState
  • Attach_Deo_To_Server()
    change so that list is initialized first. Also, set extended_deo_state before attempting to fill list (it needs that information).
    • IntegeriSrvr
  • IntegerExiting(Handle hoDestination)
    added to support DD based autofinds. DoAutoFind is defined in dd_deomx.pkg It is rather odd to have an autofind as part of a dbCombo, but this was supported in VDF7 when dd_autofind was added to the item-options. Now that autofinds are handled through the DD, we need these messages to call doAutoFind at the right time
    • IntegerbErr
  • Request_Save()
  • Copy_Item_Options(Integer iDSO Integer iFile Integer iField Integer iDEO Integer iItem)
    augment to unset capslock state if the combo is not a code display. The DD might have set the capslock but this only makes sense if you are displaying the actual data.
    • IntegereDisplayMode
    • BooleanbDataOnly

References (1):

Field References (0):