VPME 8.1, VPME 8.0, VPMS 8.0, VPME 7.0, VPMS 7.0, VPME 6.0

The place where ProMatrix posts coding tips and fixes. Read only.

VPME 8.1, VPME 8.0, VPMS 8.0, VPME 7.0, VPMS 7.0, VPME 6.0

Postby JessicaLawson » Sun Jun 13, 2010 5:17 pm

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
JessicaLawson
 
Posts: 79
Joined: Sun Jun 13, 2010 1:23 pm

Return to ProMatrix Library

Who is online

Users browsing this forum: No registered users and 3 guests

cron