VPME 8.1, VPME 8.0, VPMS 8.0, VPME 7.0, VPMS 7.0, VPME 6.0, VPMS 6.0 CHANGE: Related Pages view tag expression
Applies to: VPM Enterprise 8.1, VPM Enterprise 8.0, VPM Standard 8.0, VPM Enterprise 7.0,
VPM Standard 7.0, VPM Enterprise 6.0, VPM Standard 6.0
Previously, the expression of the index tag used with a child/grandchild/etc. view on a Related
Pages form had to begin with the FK field. This is no longer necessary with the following
modification to the RelatedForms_PositionChild method of the Form_Toolbar class in the VPMForms
class library.
Change:
IF NOT SEEK(ThisForm.RFParentValue) AND NOT EMPTY(ThisForm.cRFForeignKeyTag) AND ;
NOT ALLTRIM(UPPER(slcCurTag)) == ALLTRIM(UPPER(ThisForm.cRFForeignKeyTag)) AND ;
_SCREEN.oApp.SetOrder(ALIAS(),SET('DATASESSION'),ThisForm.cRFForeignKeyTag) AND ;
NOT SEEK(ThisForm.RFParentValue)
_SCREEN.oApp.SetOrder(ALIAS(),SET('DATASESSION'),slcCurTag)
ENDIF
To:
IF CURSORGETPROP('SourceType') <> 3 AND ATC('parentpkvalue',CURSORGETPROP('SQL')) > 0
LOCATE
ELSE
IF NOT SEEK(ThisForm.RFParentValue) AND NOT EMPTY(ThisForm.cRFForeignKeyTag) AND ;
NOT ALLTRIM(UPPER(slcCurTag)) == ALLTRIM(UPPER(ThisForm.cRFForeignKeyTag)) AND ;
_SCREEN.oApp.SetOrder(ALIAS(),SET('DATASESSION'),ThisForm.cRFForeignKeyTag) AND ;
NOT SEEK(ThisForm.RFParentValue)
_SCREEN.oApp.SetOrder(ALIAS(),SET('DATASESSION'),slcCurTag)
ENDIF
ENDIF