[#Line: CUTitle] Add: Field: At End: TSPL FFE Godown Title [Field: TSPL FFE Godown Title] Use : Short Name Title Field Set As : "Allow Godown " [#Part: Company Users] Local: Line: Company Users: Add: Field: At End: ABN CU Valid Date [Field : ABN CU Valid Date] Use : Logical Field Storage : TSPL FFE Is Godown Skip : $$IsEmpty:#CMPUserName SubForm : TSPL FFE GodownForm : $$Value ;; Report to capture Godown Names which allowed for a particular user [Report: TSPL FFE GodownForm] Form : TSPL FFE GodownForm [Form: TSPL FFE GodownForm] Part : TSPL FFE GodownForm Height : 50% Screen Width : 25% Screen [Part: TSPL FFEGodownForm] Line : TSPL FFE GodownFormTitle, TSPL FFE GodownForm Repeat : TSPL FFE GodownForm : TSPL FFE GodownName Scroll : Vertical Break on : $$IsSysName:$TSPLFFEGodown OR $$ISEmpty:$TSPLFFEGodown [Line: TSPL FFEGodownFormTitle] Field : Name Field Border : Thin Top Bottom Local : Field : Name Field : Set as : "Allow following Godowns" Local : Field : Name Field : Full Width: Yes Local : Field : Name Field : Align : Center Local : Field : Name Field : Skip : Yes [Line: TSPL FFEGodownForm] Field : TSPL FFEGodownForm [Field: TSPL FFEGodownForm] Use : Name Field Storage : TSPL FFEGodown Unique : Yes Table : Godown Extract, EndofList Show Table : Always Full Width : Yes ;; Aggregate UDF Definition to capture Godown Names [System: UDF] TSPLFFEGodownName : Aggregate : 1 TSPLFFEGodown : String : 101 TSPL FFE Is Godown : Logical : 1 ;; Default Collection is modified by adding Filter [#Collection: Godown SRC] Parm Var : TSPLFFECmpName : String : $$CmpUserName Compute : TSPL FFE IsUserGodown Enabled : @@TSPLFFEIsCmpOwner OR @@TSPLFFEGdHasPermission [#Collection: Godown Extract] Fetch : TSPL FFE IsUserGodown Enabled Filter : TSPL FFE IsUserGodown [#Collection: Stockable Godown] Fetch : TSPL FFE IsUserGodown Enabled [#Collection: Stockable GodownExtarct] Fetch : TSPL FFE IsUserGodown Enabled Filter : TSPL FFE IsUserGodown [#Collection: Godown VchSrc] Parm Var : TSPLFFECmpName : String : $$CmpUserName Compute : TSPL FFE IsUserGodown Enabled : @@TSPLFFEIsCmpOwner OR @@TSPLFFEGdHasPermission [#Collection: Stockable Godown VchExtract] Fetch : TSPL FFE IsUserGodown Enabled Filter : TSPL FFE IsUserGodown [#Collection: JOB Stockable Godown] Parm Var : TSPLFFECmpName : String : $$CmpUserName Compute : TSPL FFE IsUserGodown Enabled : @@TSPLFFEIsCmpOwner OR @@TSPLFFEGdHasPermission [#Collection: JOB Stockable Godown Extract] Fetch : TSPL FFE IsUserGodown Enabled Filter : TSPL FFE IsUserGodown [#Collection: Godown for Parent Extract] Fetch : TSPL FFE IsUserGodown Enabled Filter : TSPL FFE IsUserGodown [#Collection: List of Godowns] Parm Var : TSPLFFECmpName : String : $$CmpUserName Compute : TSPL FFE IsUserGodown Enabled : @@TSPLFFEIsCmpOwner OR @@TSPLFFEGdHasPermission [#Collection: List of ExtractGodowns] Fetch : TSPL FFE IsUserGodown Enabled Filter : TSPL FFE IsUserGodown [#Collection: Multi Godown] Parm Var : TSPLFFECmpName : String : $$CmpUserName Compute : TSPL FFE IsUserGodown Enabled : @@TSPLFFEIsCmpOwner OR @@TSPLFFEGdHasPermission [#Collection: Multi ExtractGodown] Fetch : TSPL FFE IsUserGodown Enabled Filter : TSPL FFE IsUserGodown [#Collection: Godown Under MGodown] Parm Var : TSPLFFECmpName : String : $$CmpUserName Compute : TSPL FFE IsUserGodown Enabled : @@TSPLFFEIsCmpOwner OR @@TSPLFFEGdHasPermission Filter : TSPL FFE IsUserGodown ;;[#Collection: Godown] Parm Var : TSPLFFECmpName : String : $$CmpUserName Compute : TSPL FFE IsUserGodown Enabled : @@TSPLFFEIsCmpOwner OR @@TSPLFFEGdHasPermission [#Collection: Godown Summary] Collection : Primary : $$IsCmpOwner Fetch : TSPL FFE IsUserGodown Enabled Filter : TSPL FFE IsUserGodown ;; Default Menu are alterd call a Dummy Collection [#Menu: IS Godowns] Delete : Key Item : @@locGodowns Add : Key Item : At Beginning : @@locGodowns : G : Display Collection : Dummy GdColl : $$IsMultiGodownOn:$$CurrentSimpleCompany [#Menu: IS Locations] Delete : Key Item : @@locLocations Add : Key Item : At Beginning : @@locLocations : L : Display Collection : Dummy GColl : $$IsMultiGodownOn:$$CurrentSimpleCompany ;; Dummy Collection [Collection: Dummy Gd Coll] Type : Godown Variable : DSP Godown Name Report : Godown Summary Trigger : Godown Name Fetch : Name Option : With PrimaryCollection : NOT ##DSPShowMonthly [System: Formula] TSPL FFE IsUserGodown : $TSPLFFEIsUserGodownEnabled TSPL FFE GdHasPermission: NOT $$IsEmpty:$$CollectionFieldByKey:$TSPLFFEGodown@TSPLFFEIsObjName:TSPLFFEOptimalGodownList AND ##SVCurrentCompany:Company:$TSPLFFEIsUserGodownEnabled TSPL FFE IsCmpOwner : ##TSPLFFECmpName = $OwnerName:Company:##SvCurrentcompany TSPLFFEIs Obj Name : $Name TSPLFFEForCurrentUser : $Name = ##TSPLFFECmpName ;; Collection to hold all users of a Company [Collection: TSPL FFE User List] Type : User List : Company Childof : ##SVCurrentCompany Fetch : Name Filter : TSPLFFEForCurrentUser ;; Collection to hold List of Allowd Godowns for a particular user [Collection: TSPL FFE Godown List] Source Collection : TSPL FFE User List Walk : TSPLFFEGodownName, TSPLFFEGodown Fetch : TSPLFFEGodown ;; Collection to hold List of Allowd Godowns for a particular user with Search Key and Keep Source [Collection: TSPL FFE Optimal Godown List] Source Collection : TSPL FFE Godown List Fetch : TSPLFFEGodown, Name Keep Source : (). Search Key : $TSPLFFEGodown