project QadFinancials > class BSharedSetMerge > method CompareFieldValues

function returns integer

Description

This method compares values of two fields (passed as field handles).


Parameters


ihField1inputhandle
ihField2inputhandle
icFieldNameinputcharacter


Internal usage


QadFinancials
method BSharedSetMerge.MergeValidateCompareFields


program code (program6/bsharedsetmerge.p)

/* =================================================================================================== */
/* Method      : CompareFieldValues                                                                    */
/* Desc        : This method compares values of two fields passed as handles to these temp table       */
/*               fields. Same datatype and display format is expected, otherwise method cannot         */
/*               guarantie correct evalustion of less/greater.                                         */
/* --------------------------------------------------------------------------------------------------- */
/* Params:  (I)  Field1               Handle to the first field                                        */
/*          (I)  Field2               Handle to the second field                                       */
/* Result:       CompareResult        Result of compare of two fields.                                 */
/*                                    -1     Field1 < Field2                                           */
/*                                    0      Field1 = Field2                                           */
/*                                    1      Field1 > Field2                                           */
/* =================================================================================================== */

assign vcField1Value = ihField1:string-value()
       vcField2Value = ihField2:string-value().

if vcField1Value = vcField2Value
then return 0.
else if vcField1Value < vcField2Value
     then return -1.
     else return 1.