>if type(m.lcScreenObject + '.name') = 'C' and lower(getpem(m.lcScreenObject, 'Name')) = 'the_form_that_needs_to_be_updated' >>
>>lcObject=sys(1272, this.parent) >> lcScreenObject = "_SCREEN.activeform." + justext(m.lcObject) >> if type(m.lcScreenObject + '.name') = 'C' >> lcCostSource = m.lcScreenObject + ".a_cost(&lcRecn,&lcColIndex)" >> >> .cnt_PurchOrd.spn_Cost.controlsource = lcCostSource >> >> lcRecvSource = lcScreenObject + ".a_Recv(&lcRecn,&lcColIndex)" >> .cnt_PurchOrd.spn_Received.controlsource = m.lcRecvSource >> >> .cnt_PurchOrd.txt_OnHand.value = evaluate(lcScreenObject +".a_OnHand(&lcRecn,&lcColIndex)") >> .cnt_PurchOrd.txt_lstCost.value = evaluate(lcScreenObject +".a_LastCost(&lcRecn,&lcColIndex)") >> .cnt_PurchOrd.txt_OnOrder.value = evaluate(lcScreenObject +".a_OnOrd(&lcRecn,&lcColIndex)") >> endif >>>>