function returns character
Description
This method calculates values of key columns.
Parameters
Internal usage
QadFinancials
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.