Module Dftable.pkg

************************************************************************ Confidential Trade Secret. Copyright 1987-1997 Data Access Corporation, Miami FL, USA All Rights reserved DataFlex is a registered trademark of Data Access Corporation. ************************************************************************ $File name : DFTable.pkg $File title : Table (dbGrid) support for VDF Notice : $Author(s) : John Tuohy $Rev History 11/6/98 JJT - Fixed but in Assign_DD_Label 8/13/97 JJT - Set up support for Prompt_button_State 07/30/97 JJT - Added set current_item check for batch_state 6/24/97 JJT - Added Auto-label DD support: Auto_label_State. Assign_DD_Label 01/31/97 JJT - default highlight_row_state to T 07/23/96 JJT - New Class names 06/05/96 JJT - Fixed new_item and current_item to check if current_item really exists before calling update_focus_field 06/03/96 JJT - Fixed new_item and current_item to check for extended dso before proceeding. 05/28/96 JJT - Added code list exported description support. 04/26/96 JJT - Augmented Set Current_item/Item to refresh DD Buffer (we need a better way). 05/01/95 JJT - Modified to support Cell and row highlighting 03/28/95 JJT - Removed 0 Layer class Changed name to dftable.pkg 08/19/94 JJT - Blended Classes from CB and DAF ************************************************************************ not defined in windows, the aspect for a multi row FORM

Dftable.pkg (view source)
• import declarations
  • Windows.pkg (view source)
  • Table_ds.pkg (view source)
  • Dfdata.pkg (view source)
  • Dfconfrm.pkg (view source)
  • Prmpbtmx.pkg (view source)
    need the defines for prompt button modes
  • Dfdeoft.pkg (view source)
  • Dd_deomx.pkg (view source)
    mixin support for dd classes
  • Dd_cddeo.pkg (view source)
    mixin support for exported descriptions
• dbGrid_ : DataList
  batch_state should never be used in dbGrids, only dbLists.
• dbGridDS : dbGrid_
  dfGrid
  • Construct_Object()
    Inherited from Table_DS_mixin
    • StringPrompt_Button_Value
    • IntegerPrompt_Button_Mode
  • Set(integer bState)
    Inherited from verify_mixin
    These two messages are maintained for backwards compatibility. Avoid using these. Use Prompt_Button_Mode instead
  • integerAuto_Create_Prompt_Button()
  • End_Construct_Object()
    Inherited from Table_DS_mixin
    If any items are checkboxes we also need to set their aspect. We can't set these for the protoobject because they won't get copied in to the real rows. However, setting aspect for the actual table items (even if there are none) works. Also, you must set this for every item because setting zero sets all other items.
    • Integerele
    • Integeri
    • Integeric
  • Header_Mouse_Click(Integer Item#)
    Inherited from DataList
    • IntegeriRVal
    • BooleanbUsePrompt
  • Set(integer item#)
    Inherited from verify_mixin
    • Integeri
    • IntegeriOldItem
    • IntegeriNewItem
  • integerEle_Prompt_Object(integer ele integer item#)
    find the prompt object for the passed prototype obj and item this augmented in DD to be a bit more fancy
  • Create_Prompt_Button(Integer CreateMode)
    Create a prompt Buttons. This was created so the process of creating a prompt button object can be augmented. Although a param is passed, it is ignored here (used in forms). This checks all labels if auto-prompt is true, is a trailer prompt marker exists (...) and if the column a prompt. If so, it sets the trailer prompt marker (if it is not already there). To disable this entire process set Prompt_Button_Mode to PB_PromptOff 0=auto, 1=make, 2=remove
    • Integerele
    • Integeri
    • Integeric
    • StringsPrVal
    • StringsLbl
    • IntegerPrValLen
  • CreateEmbeddedPrompts()
    used to create automatic embedded prompt buttons. Called by end_construct_object
    • IntegerhEle
    • Integeri
    • Integeric
  • DoAutoFind()
    changes to improve autofind logic.
    • IntegerbChanged
    • IntegerbOn
    • IntegeriCur
  • integerRow_save()
    Inherited from Table_DS_mixin
    changes to improve autofind logic. Before save do an autofind check for all items in row
    • IntegeriFrom
    • IntegeriTo
    • IntegeriCrnt
    • IntegeriOld
    • IntegeriErr
    • IntegeriOldDyn
    • BooleanbInRowSave
  • integerItem_Change(Integer iFromItem Integer iToItem)
    Inherited from Data_List_mixin
    changes to improve autofind logic. Do autofind before changing
    • IntegeriNewTo
    • IntegeriOldCur
    • IntegeriNewCur
  • SkipFoundAdjust()
    this was added as a bug fix in 12.1. It is possible to navigate into a skipfound item if you are navigating from a blank grid row to an existing row. This happens because the runtime skipfound logic checks the file buffer's status and this happens before the row navigation. Changing this in runtime would be a deep change which could create side-effects. The safer fix here does a check after the item change has occurred. It checks to see if the item has landed in an improper skipfound field. If it has it tried to get out the field. This should workaround this issue with a minimum of side effects. You will only see a change with skipfound fields.
    • BooleanbSkipFound
    • IntegeriNewItem
    • IntegeriFile
    • IntegeriStat
• dbGridDD : dbGridDS
  • Construct_Object()
    Inherited from dbGridDS
    we are implementing Scan_servers directly in this class to get the embedded buttonF Import_Class_Protocol Extended_DEO_Prompt_Mixin
  • Set(Integer Itm)
    Inherited from Extended_DEO_Mixin
  • Set(Integer Itm)
    Inherited from Extended_DEO_Mixin
  • integerEle_Prompt_Object(integer ele integer item#)
    Inherited from dbGridDS
    • IntegeriObj
    • IntegeriDSO
    • IntegeriFile
    • IntegeriField
  • Assign_DD_Label(Integer iDSO Integer iFile Integer iField Integer iDEO Integer iItem)
    Inherited from Extended_DEO_Mixin
    ************************************************************************// Assign_DD_Label // This assigns the DEO's from the DD. This uses short labels and // sets column headers. // ************************************************************************//
    • StringsName
  • Up_Row()
    Inherited from Data_List_mixin
    this fixes grid bug where insert_row loses the current changed value. this only happens when you've changed an item in the top row and you press the up arrow.
    • IntegeriCur
  • Scan_Servers()
    Inherited from Data_List_mixin
    Hook to set prompt buttons for header and embedded
    • IntegeriMode
  • Item_Options_Changed(integer iItem)
    Inherited from Extended_DEO_Mixin
    notification that an item option has been changed by the DD. This change already made to prototype object and must now be made items for that column. Note that only the options that matter trigger this notification
    • Integeri
    • IntegeriRows
    • IntegeriCols
    • IntegeriCur
    • IntegeriOptions
  • Item_Mask_Changed(integer iItem)
    Inherited from Extended_DEO_Mixin
    notification that an item mask value has been changed by the DD. This change already made to the first form must be made to all other items in the same column
    • Integeri
    • IntegeriRows
    • IntegeriCols
    • StringsMask
• dbGrid : dbGridDD
  • Construct_Object()
    Inherited from dbGridDD
    • integerpiActiveColumn
      use by comboFillItem callback to figure out column
    • tGridComboHelper[]pGridComboHelpers
      Array of of helpers. One is set for each active combo column
  • tGridComboHelperpGridComboHelper(integer iColumn)
    • tGridComboHelperGridComboHelper
    • tGridComboHelper[]GridComboHelpers
  • Set(integer iColumn tGridComboHelper GridComboHelper)
    Inherited from dbGridDD
    • tGridComboHelper[]GridComboHelpers
  • Column_Combo_Delete_Data(integer iColumn)
    aumgent to clear the datavalues in the helper object
    • tGridComboHelperGridComboHelper
  • integerColumn_Combo_Code_Display_Mode(integer iColumn)
    12.1: helper is added as needed in pGridComboHelper, not here. // augment to create and remove a helper object as needed. { MethodType=Property NoDoc=True } Procedure Set Column_Combo_State integer iColumn boolean bState boolean bOldState tGridComboHelper GridComboHelper Get Column_Combo_State iColumn to bOldState If ( not(bOldState) and bState) begin // if turning on a column combo, intialize the helper struct Move CB_CODE_DISPLAY_DESCRIPTION to GridComboHelper.eCodeDisplay // default value set pGridComboHelper iColumn to GridComboHelper // initializes the struct end Forward Set Column_Combo_state iColumn to bState End_Procedure
    • tGridComboHelperGridComboHelper
  • Set(integer iColumn integer eVal)
    Inherited from dbGridDD
    • tGridComboHelperGridComboHelper
  • StringColumn_Combo_Data_To_Description(integer iColumn String sValue)
    For a column, pass data and return the description
    • tGridComboHelperGridComboHelper
    • Integeri
    • IntegeriItems
  • StringColumn_Combo_Description_to_Data(integer iColumn String sValue)
    for a column, pass description and find the data
    • IntegeriItem
    • tGridComboHelperGridComboHelper
  • stringColumn_Combo_Description_Value(integer iColumn integer eMode String sDescVal String sDataVal)
    Public augmentation point. Pass current datavalue and all info in record buffer. Should return what you want to see on the screen. Augment to support various description/data Display formats.
  • Column_Combo_Add_Item(integer iColumn String sDescription String sDat)
    Message to add Items to a list. Similar to Add_Item except it handles an optional second parameter. If no 2nd param the first is used in its place. This will normally be used inside of Fill_List. Send Column_Combo_Add_Item iColumn Descr_Value {Data_Value}
    • StringsData
    • IntegeriItem
    • tGridComboHelperGridComboHelper
  • ComboFillItem(integer iItem string sData string sDescription integer iFile RowId riId)
    this is the one the callback calls. We must figure out the column and pass it on
    • IntegeriCol
  • ColumnComboFillItem(integer iCol integer iItem string sData string sDescription integer iFile RowId riId)
  • Column_Combo_Add_Blank_Item(integer iCol String Blank_Desc)
    • IntegeriItems
  • Column_Combo_Fill_List(integer iCol)
    Fills the list by loading the entire defined data-file
    • IntegeriFile
    • IntegeriField
    • IntegereDisplayMode
    • IntegerhoSrvr
    • IntegerhoEle
    • IntegerhoTable
  • Combo_Item_Changed(integer iItem)
    Inherited from Standard_Grid_Mixin
    augment to update the DD each time this changes
  • Set(Integer iItem String sValue)
    Inherited from dbGridDD
    If a combo column, convert from description to data and forward
    • IntegeriCol
    • BooleanbCombo
  • Item_Value_Changed(Integer iItem String sValue)
    Inherited from Extended_DEO_Mixin
    If a combo column, convert from data to description and forward
    • BooleanbCombo
    • IntegeriCol
  • integerActivate()
    Inherited from Extended_DEO_Mixin
    augment to refresh all dynamic code tables
    • IntegeriRVal
    • IntegeriCol
    • IntegeriColumns
    • IntegerhoTable
    • StringsValue
    • BooleanbCol
  • IntegerItem_Entry(Integer iMsg Integer iItem)
    Inherited from Extended_DEO_Mixin
    augment to refill a combo validation table if needed (if the val table is not static)
    • IntegeriResult
    • IntegeriCol
    • BooleanbCol
    • IntegerhoTable
  • StringData_Value(integer iItem)
    Inherited from Extended_DEO_Mixin
    This Replaces DD message with one that understands description and data difference. //
    • StringsValue
    • IntegeriCol
    • BooleanbCombo
  • ColumnComboEntryDefaults(integer iItem handle hoDSO integer iFile integer iField)
    Inherited from Extended_DEO_Mixin
    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. Called by entry_defaults
    • IntegeriCol
    • BooleanbColCombo
    • BooleanbEntry
  • Attach_Deo_To_Server()
    Inherited from Extended_DEO_Mixin
    change so that list is initialized first. Also, set extended_deo_state before attempting to fill list (it needs that information).
    • IntegerhoSrvr
    • IntegerhoEle
    • IntegeriCols
    • IntegeriCol
    • IntegeriItems
    • BooleanbColCombo
    • BooleanbExtended
  • Copy_Item_Options(Integer iDSO Integer iFile Integer iField Integer iDEO Integer iItem)
    Inherited from Extended_DEO_Mixin
    augment to unset capslock if the display mode is not Code. If not code display the data that is displayed is not the data being sent to the DD and it should not be capslocked by the DD. Also set a bigger form_margin. You'd only need a big form_margin if entry_state is true which would be unlikely with a description combo (but it is supported).
    • IntegereDisplayMode
    • BooleanbCombo
    • BooleanbDataOnly
    • tGridComboHelperGridComboHelper
  • Set(integer iItem string sVal)
    Inherited from dbGridDD
    • IntegeriCol
    • BooleanbCombo
  • Prompt()
    Inherited from Entry_Item_Mixin
    • IntegeriCol
  • Entry_Update(Integer iFile Integer iDoAll)
    Inherited from Extended_DEO_Mixin
    12.1 Fix: We must augment Entry_update to handle column combos where the description is different than the data. In such a case, we do not want the internal entry_update ot move data from the column. Instead, we will do this manually. If the item should not be updated, we will stop it by setting its state temporarily to NoPut/NoEnter. This change is purposefully made to be as targeted as possible. It only changes entry_update for the one column. If you don't use combos, this has no impact at all. It might have made more sense to completely rewrite the entry_update but it seems safer to just make as small a change as spossible.
    • IntegeriBase
    • IntegeriLimit
    • IntegeriItem
    • IntegeriDataFile
    • IntegeriDataField
    • IntegeriCols
    • IntegeriNoPut
    • IntegeriNoEnter
    • StringsVal
    • Integer[]iDescCol
    • Integer[]iDescNoEnter
    • Integer[]iDescNoPut

References (2):

Field References (0):