inc/selcmb/scprop1.i

   1 /* scprop1.i */
   2 /* selection combo for a Property */
   3
   4 {inc/selcmb/scmst1.i &IntTable="{1}"
   5                      &IntCode ="{2}"
   6                      &ExtTable="Property"
   7                      &ExtKey  ="PropertyCode"
   8                      &Clause  ="Property.Region = {3}"
   9                      &DV      ="STRING(Property.PropertyCode, '99999') + ' - ' + Property.Name "}