SRP EditTable and OI Dictionary data association

prattspets

I just wanted to verify that I haven't missed anything in the documentation about the SRP EditTable concerning data association with OI dictionaries. Is there a way to associate OI dictionary fields with SRP EditTable columns/fields, or is this to be done programmatically?

Thanks,
Dan

DonBakke

Hi Dan,

OpenInsight does not provide a way to naturally bind database columns to ActiveX controls. So you have to manage this on your own. For SRP EditTable controls, the most common approach is to keep an invisible OI edit table control on the form and then you manage the transfer of data between the OI edit table and the SRP EditTable within the form's READ and WRITE events.

You can make this more complex if you like by syncing the data during various SRP EditTable events, such as the AfterUpdate event and LostFocus event. That way you can also take advantage of having the SAVEWARN property being set properly and making sure any dependent calculated columns are updated dynamically.

The exciting news for us is that OpenInsight 10 is supposed to enable databinding for ActiveX controls. I do not believe this has been officially announced, but it was discussed at the last Revelation Conference.

prattspets

Ok - thank you for clarifying that for me, and for the programming suggestions. It looks like I am running out of reasons to use the OpenInsight edit table. :-)

Thanks,
Dan

DonBakke

Dan,

In case it will help you along, here is a routine that ships with FrameWorks that we use to help with this kind of management:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73 74 75 76 77 78 79 80 81 82 83 84 85 86 87 88 89 90 91 92 93 94 95 96 97 98 99 100 101 102 103 104 105 106 107 108 109 110 111 112 113 114 115 116 117 118 119 120 121 122 123 124 125 126 127 128 129

Function Transfer_EditTable_Data(SourceEditTable, TargetEditTable, ArrayFlag, UpdateCellEdit)   /***********************************************************************************************************************      This program is proprietary and is not to be used by or disclosed to others, nor is it to be copied without written    permission from SRP Computer Solutions, Inc.      Name        :   Transfer_EditTable_Data      Description :   Transfer data from one EditTable to another. Normally this will be from an OpenInsight databound                    EditTable to an SRP OLE EditTable and vice-versa.      Notes       :   This routine will typically be called from an OLE EditTable's LostFocus event and from the window's                    WRITE_PRE and READ_POST events. A check is first made to see if the controls are valid. If not, the                    function will return a failure flag.      Parameters  :        SourceEditTable     [in] -- The EditTable with the data that needs to be transferred.        TargetEditTable     [in] -- The EditTable that the data will be transferred in to.        ArrayFlag           [in] -- If the target is an OpenInsight EditTable then this flag indicates whether the ARRAY                                    property instead of the DEFPROP property should property should not be set after the                                    EditTable is populated.        UpdateCellEdit      [in] -- Flag to determine if the UpdateCellEdit method should be called before the                                    transfer occurs. Normally only done during a window's WRITE event to make sure all                                    in-progress changes are updated to the SRP EditTable control. If this is set during                                    an SRP EditTable event this could cause the focus to get stuck in the control.        Success            [out] -- Return flag to indicate if the process was successful.      History     :   (Date, Initials, Notes)        01/22/06    dmb     Original programmer        02/16/08    dmb     Add UpdateCellEdit parameter to determine if the UpdateCellEdit method should be called        07/21/08    rch     Set Redraw off and on for Target OLE EditTable        07/14/10    rch     Clear out databound edit table columns in @RECORD to work around OI problems        07/20/10    rch     Skip copying of source data to target table if both have the same data   ***********************************************************************************************************************/   $insert LOGICAL   Declare function   Get_Property Declare subroutine Set_Property, Send_Message   Success = Yes$  ;   // Assume successful for now. If Assigned(SourceEditTable) else SourceEditTable = If Assigned(TargetEditTable) else TargetEditTable = If Assigned(ArrayFlag)       else ArrayFlag = No$ If ArrayFlag EQ           then ArrayFlag = No$ If Assigned(UpdateCellEdit)  else UpdateCellEdit = No$ If UpdateCellEdit EQ      then UpdateCellEdit = No$   If Get_Property(SourceEditTable, 'HANDLE') then    If Get_Property(TargetEditTable, 'HANDLE') then        If Get_Property(SourceEditTable, 'OLE.ProgID') EQ 'SRP.EditTable.1' then            SourceProp = 'OLE.Array'            If UpdateCellEdit then Send_Message(SourceEditTable, 'OLE.UpdateCellEdit')        end else            If ArrayFlag EQ Yes$ then                SourceProp = 'ARRAY'            end else                SourceProp = 'DEFPROP'            end        end        If Get_Property(TargetEditTable, 'OLE.ProgID') EQ 'SRP.EditTable.1' then            TargetProp = 'OLE.Array'            If UpdateCellEdit then Send_Message(TargetEditTable, 'OLE.UpdateCellEdit')        end else            If ArrayFlag EQ Yes$ then                TargetProp = 'ARRAY'            end else                TargetProp = 'DEFPROP'            end        end    end else        Success = No$    end end else    Success = No$ end   If Success then    *Data = Get_Property(SourceEditTable, SourceProp)    SourceData = Get_Property(SourceEditTable, SourceProp)    TargetData = Get_Property(TargetEditTable, TargetProp)    If SourceData NE TargetData then        // Skip this if source and target have the same data & avoid SAVEWARN message        If TargetProp NE 'OLE.Array' then            // The target EditTable is an OpenInsight control.                         // Clear the @RECORD position values before setting its property.            // Otherwise, an OI bug may result in incorrect values in some {FIELD} references when symbolics are calculated.            PosValues = Get_Property(TargetEditTable, 'POS')            If PosValues then                NumValues = Count(PosValues, @SVM) + (PosValues NE )                For iVal  = 1 to NumValues                    Pos = PosValues<0, 0, iVal>                    If Pos then                        @RECORD<Pos> =                    end                Next iVal                Set_Property(@Window, 'RECORD', @RECORD)            end                         // Make sure there are enough empty rows before setting its property.            // Otherwise, the data might get truncated.            *NumDataRows = DCount(Data<1>, @VM)            NumDataRows = DCount(SourceData<1>, @VM)            Array = Get_Property(TargetEditTable, TargetProp)            NumEditTableRows = DCount(Array<1>, @VM)            If NumDataRows GT NumEditTableRows then                NumExtraRows = NumDataRows - NumEditTableRows                For i = 1 to NumExtraRows                    Send_Message(TargetEditTable, 'INSERT', -1, )                Next i            end        end else            // Set Redraw to false for Target OLE EditTable control            Set_Property(TargetEditTable, 'OLE.Redraw', False$)        end                 *Set_Property(TargetEditTable, TargetProp, Data)        Set_Property(TargetEditTable, TargetProp, SourceData)                 If TargetProp EQ 'OLE.Array' then            Set_Property(TargetEditTable, 'OLE.Redraw', True$)        end    end  end   Return Success

Hopefully this will save you some effort toward getting SRP EditTable controls functioning the way you want.

prattspets

Great!

Thank you Don!

AusMarkB

Don,

I've had this in the back of my head as a to do one day thing, just to combat the data binding objections.
Didn't realise it was out there already.

I use the SRP edittable whenever data binding is not a requirement and as Dan said non users are fast running out of excuses not to.

Thanks for putting it out there for us all to see.