New Response

Cancel

Copy to Archive

Move to Archive

Document Library Main Topic Kurt Tomicich 2005/02/15 Procedure Reference

Subject: View selection based on # of occurances Category: Tips\ Notes\ Programming Version: Revision Date: 2005/02/15 Modified: 2005/03/07   Reviewers Originator Previous Current Future Kurt Tomicich Kurt Tomicich/KRT None None

Worked on trying to get a view to only display records that have a source appearing less than 10 times without any luck at all.

Working on doing it via agent - Agent flags a Tag field based on how many times the source appears.

testing >5 fail or succeed:
testing >5 fail or succeed:
vLookup:=@DbLookup("":"NoCache";"";"vwSourceTest";Source;1);
rem "vSELECT:=(@Elements(vLookup) >5)";
@If((@Elements(vLookup) <5);@Prompt([Ok];"Less than 5";"There are less then 5 from this source");@Prompt([OK];"Yeah!";"There must be more than 5 from this source!"));
SELECT @All


Unsuccessful attempt to flag field on <5
Unsuccessful attempt to flag field on <5
vLookup:=@DbLookup("":"NoCache";"";"vwSourceTest";Source;1);
FIELD Tag:=Tag;
vTag:=@If((@Elements(vLookup) <5);"Tag";"No Tag");
@If(vTag="Tag";@SetField(Tag;"Less");"");
SELECT @All


Code from Pall Invoicing to delete selected:
Code from Pall Invoicing to delete selected:
@Command([MoveToTrash]);
@Command([EmptyTrash]);


Code from CompList's DevNu Input Validation:
Code from CompList's DevNu Input Validation:
vMSG := "Device # is Required and Must be UNIQUE. If there is no Device #, use '0'";

vMultiple := vMSG + " This Device Number is listed MULTIPLE TIMES, Please Contact your Administator";
vUNID := @Text(@DocumentUniqueID);
vKey := DevNu;
vLookup := @DbLookup ( "":"NoCache"; @DbName; "vwReferenceDevNu"; vKey; 2);
@If ( vKey = ""; @Failure(vMSG); @IsError(vLookup); @Success; DevNu = "0"; @Success; @Elements(vLookup) > 1; @Failure(vMultiple); vUNID = vLookup; @Success; @Failure (vMSG))