Cl 9.0
NT 8.28
Trying to do some EIP validation on a check Box field and not succeeding.
When the user clicks the Check Box I want the code to check the the word FINAL is in a document name
The Browse is on a tab on the update record for the parent.
Loc:Final = p_web.GSV('FinalText')
Loc:FileName = p_web.GSV('cvfd:UploadName')
Loc:Exists = INSTRING(Loc:Final,Loc:FileName,1,1)
IF Loc:Exists > 0
IF p_web.GSV('cvfd:dcovf') = 'VOICE'
loc:invalid = 'cvfd:MasterDoc'
loc:alert = 'Master cannot be a voice file'
p_web.SSV('cvfd:MasterDoc','N')
ELSE
loc:cvfsysid = p_web.GSV('CVF:cvfsysid')
Loc:MasterSet = p_web.GSV('cvfd:MasterDoc')
IF Loc:MasterSet = 'Y'
p_web.SSV('CVF:MasterDocument',Loc:FileName)
p_web.SSV('CVF:MasterSet','Y')
p_web.SSV('CVF:MasterDocID',p_web.GSV('cvfd:cvfdtlid'))
ELSE
p_web.SSV('CVF:MasterDocument','')
p_web.SSV('CVF:MasterDocID',0)
p_web.SSV('CVF:MasterSet','N')
p_web.SSV('CVF:EditCommitt','N')
END
END
ELSE
p_web.SSV('cvfd:MasterDoc','N')
Loc:Alert = 'Make sure this is the final document'
END
If the word FINAL is not in the document name I want to alert the user and reset the checkbox to No
Ihave the code in
! Start of "After Validate New Value"
! [Priority 4000]
When I test the code it is getting the correct text etc. Just not setting the Check box to No.
Thanks in advance.
Topic: EIP Validation (Read 3458 times)