Dear Experts, I have a Small Pblm. pls help on my tdl. i have to enter the values but not stored. pls crct my coding. [#Menu : Inventory Info.] Add : Item : Before : @@LocQuit : Multi Price : Alter : Multi PRice List Add : Item : Before : @@LocQuit : Blank [Report: Multi PRice List] Form : MPList Object : Company Variable : Test : Logical : $$TestFunction [Function: TestFunction] 00 : Walk Collection: MyStockitems100 40 : End Walk [Form: MPList] Part : MPList Title Background : Light Lily Yellow Width : 100 % Screen Height : 100 % Screen [Part: MPList Title] Line : MPList Title,MPList Body Repeat : MPList Body : MyStockItems 100 Scroll : Vertical Border : Column Titles Common Border: Yes [Line: MPList Title] Use: MPList Body Local : Field : Default : Style : Small Bold Local : Field : Default : Skip : Yes Local : Field : Default : Type : String Local : Field : Default : Delete : Inactive Local : Field : Default : Delete : Storage Local : Field : Default : Lines : 2 Local : Field : mpitem : Set as: "StockItemname" Local : Field : mpclstk : Set as: "Closing Stock" Local : Field : mpurrate : Set as: "Last Purchase Rate" Local : Field : mpl1 : Set as: "Level1" Local : Field : mpl2 : Set as: "Level2" Local : Field : mpl3 : Set as: "Level3" Local : Field : mpl4 : Set as: "Level4" [Line: MPList Body] Field: mpitem , mpclstk Right Fields : mpurrate,mpl1,mpl2,mpl3,mpl4 Local : Field : Default : Style : Normal [Field: mpitem] Set as: $Name Width: 100 mms Border: Thin Left Skip: Yes [Field: mpclstk] Set as: $ClosingBalance Width: 60 mms Border: Thin Left Skip: Yes [Field: mpurrate] Set as: $PurcValue Width: 40 mms Border: Thin Left Skip: Yes [Field: mpl1] Use : Name Field Storage : mpl1 Border : Thin Left Width : 30 mms [Field: mpl2] Use : Name Field Storage : mpl2 Border : Thin Left Width : 30 mms [Field: mpl3] Use : Name Field Storage : mpl3 Border : Thin Left Width : 30 mms [Field: mpl4] Use : Name Field Storage : mpl4 Border : Thin Left Width : 30 mms [System: UDF] mplist: Aggregate : 9000 mpl1 : String : 9001 mpl2 : String : 9002 mpl3 : String : 9003 mpl4 : String : 9004 [Collection: MyStockItems 100] Type: Stock Item Fetch: mpitem,mpclstk,mpurrate,mpl1,mpl2,mpl3,mpl4 [#Field: VCH NrmlRate] Option: VCH NrmlRate Sales : @@IsSales [!Field: VCH NrmlRate Sales] Set as : If @HasInvAlloc then $BatchRate else (if $PriceLevel containing "1" then $$AsRate:$(Company,##SVCurrentCompany).mplist[1,@@IsSameItemm].mpl1 else if $PriceLevel containing "2" then $$AsRate:$(Company,##SVCurrentCompany).mplist[1,@@IsSameItemm].mpl2 else if $PriceLevel containing "3" then $$AsRate:$(Company,##SVCurrentCompany).mplist[1,@@IsSameItemm].mpl3 else if $PriceLevel containing "4" then $$AsRate:$(Company,##SVCurrentCompany).mplist[1,@@IsSameItemm].mpl4 else if $PriceLevel containing "Not Applicable" then $$Value else $$Value) Set always : Yes Read Only : $PriceLevel not containing "Not Applicable" ;;Control : MyRateControl : $(Ledger,$PartyLedgerName).ItemRatesAggregate[1,@@IsSameItem].MSTSFItemRate < $$Value And $$IsSales:##SVVoucherType Key: mch option : vnv : ##callow [!Field : vnv] Read Only : no [Button : mch] Key : Alt+w Action : Set : callow : Yes [#Field: VCHBATCH Rate] Option : VCHBATCH Rate Sales : @@IsSales [!Field : VCHBATCH Rate Sales] ;;Type : String : Forced ;;Delete : Set as Delete : Set by Condition Set as : if $PriceLevel containing "1" then $$AsRate:$(Company,##SVCurrentCompany).mplist[1,@@IsSameItemm].mpl1 else if $PriceLevel containing "2" then $$AsRate:$(Company,##SVCurrentCompany).mplist[1,@@IsSameItemm].mpl2 else if $PriceLevel containing "3" then $$AsRate:$(Company,##SVCurrentCompany).mplist[1,@@IsSameItemm].mpl3 else if $PriceLevel containing "4" then $$AsRate:$(Company,##SVCurrentCompany).mplist[1,@@IsSameItemm].mpl4 else $$Value ;;Storage : Batch Rate Set always : Yes ;;add : Set by Condition : $PriceLevel containing "1" : $$AsRate:$(Company,##SVCurrentCompany).mplist[1,@@IsSameItemm].mpl1 ;;Set by Condition : $PriceLevel containing "2" : $$AsRate:$(Company,##SVCurrentCompany).mplist[1,@@IsSameItemm].mpl2 ;;Set by Condition : $PriceLevel containing "3" : $$AsRate:$(Company,##SVCurrentCompany).mplist[1,@@IsSameItemm].mpl3 Read Only : Not $$IsEmpty:$$Value Key: mch option : vnvv : ##callow [!Field : vnvv] Read Only : no [#Report: STKVCH BatchAllocations] Variable : callow [Variable : callow] Type : Logical [#Field: VCHBATCH Value] Option : VCHBATCH Value Sales : @@IsSales [!Field : VCHBATCH Value Sales] Set as : $Billedqty * $Batchrate [System : Formula] MyRateControl : "Rate Control" ;;IsSameItem : $mpitem = $StockitemName ;;IsSameItemm : $$ReqObject:$StockitemName = $mpitem ne : $Name not containing "End" [Collection: mplist1] Type : mplist : Company Childof : $Name ;;##SVCurrentCompany Format : $mpl1, 20 Format : $mpl2, 20 Format : $mpl3, 20
Dear Priya Eswar I SEEN YOUR MILTI PRICE LIST... CAN YOU KINDLY SHARE TDL FILE OR EMAIL TO kriskeny@gmail.com
