function returns integer
Description
This procedure gets Id of current record in the query.
Parameters
Internal usage
QadFinancials
program code (program6/bsharedsetmerge.p)
/* =================================================================================================== */
/* Method : MergeValidateGetId */
/* Desc : This function returns ID of the current record from dynamically build query */
/* --------------------------------------------------------------------------------------------------- */
/* Params: (I) Query Handle to query */
/* Return Id Value of ID */
/* Note: Program has to be in the same segment as MergeValidate (sharing of MergeValidateField */
/* =================================================================================================== */
/* =================================================================================================== */
/* Default output values */
/* =================================================================================================== */
assign viId = ?.
/* =================================================================================================== */
/* Construct value of key(s) */
/* =================================================================================================== */
assign vhBuf = ihQuery:get-buffer-handle(1).
for each tMergeValidateField where
tMergeValidateField.tc_ParentRowid = tMergeValidateTable.tc_Rowid and
tMergeValidateField.tiMergeType = {&SHAREDSETMERGE-FIELDTYPE-ID}:
assign viId = integer(vhBuf:buffer-field(tMergeValidateField.tcFieldName):string-value).
leave.
end.
/* =================================================================================================== */
/* Return */
/* =================================================================================================== */
return viId.