project QadFinancials > class BSharedSetMerge > method MergeValidateGetKeyValue

function returns character

Description

This method calculates values of key columns.


Parameters


ihQueryinputhandle


Internal usage


QadFinancials
method BSharedSetMerge.MergeValidateCompareKeys


program code (program6/bsharedsetmerge.p)

/* =================================================================================================== */
/* Method      : MergeValidateGetKeyValue                                                              */
/* Desc        : This method calculates values of key columns.                                         */
/* --------------------------------------------------------------------------------------------------- */
/* Params:  (I)  Query                   Handle to query                                               */
/*          (H)  MergeValidateTable      Temporary table with active record containing table beeing    */
/*                                       validated                                                     */
/*          (H)  MergeValidateFieldRule  Temporary table with definition of field rules for validate   */

/* Note:         Program has to be in the same segment as MergeValidate (sharing of MergeValidateField */
/* =================================================================================================== */

/* =================================================================================================== */
/* Default output values                                                                               */
/* =================================================================================================== */
assign vcKey = '':U.

/* =================================================================================================== */
/* Construct value of key(s)                                                                           */
/* =================================================================================================== */
assign vhBuf = ihQuery:get-buffer-handle(ihQuery:num-buffers).

for each tMergeValidateField where
         tMergeValidateField.tc_ParentRowid = tMergeValidateTable.tc_Rowid and
         tMergeValidateField.tiMergeType    = {&SHAREDSETMERGE-FIELDTYPE-KEY}:
    if vcKey = '':U
    then assign vcKey = trim(vhBuf:buffer-field(tMergeValidateField.tcFieldName):string-value).
    else assign vcKey = vcKey + ' - '
                      + trim(vhBuf:buffer-field(tMergeValidateField.tcFieldName):string-value).
end.

/* =================================================================================================== */
/* Return                                                                                              */
/* =================================================================================================== */
return vcKey.