After a long break, hope you developed a bundle of TDL's, please share it as committed by you earlier. Waiting for the Bundle.
Dear All Members, If you want fixed rate then Change Control As Under: [#Field: VCH NrmlRate] Control : MyRateControl : $(Ledger,$PartyLedgerName).ItemRatesAggregate[1,@@IsSameItem].MSTSFItemRate >< $$Value And $$IsSales:##SVVoucherType
Sir I have a query from all... What if we use RATE PRICE FIELD instead of Amount Field in your Field MSTSFItemRate????? I checked that it is not validate if we use RATE FIELD. I want to know how we can use Rate Field for this. I need a solution for my knowledge. Kindly all concern about this and let us know. Thanks in advance. Shamsher Singh
Code: [#Part: MST LED Explode Sundry] Add : Line : At end : ItemRateSetings [Line : ItemRateSetings] Field : Medium Prompt, ItemRateSetings Local : Field : Medium Prompt : Set As : "Set/Alter Item Rates :" [Field : ItemRateSetings] use : Logical Field Set aS : No Sub form : ItemRateSF : $$Value [Report : ItemRateSF] Form :ItemRateSF [Form :ItemRateSF] Part :ItemRateSF [Part :ItemRateSF] Line : ItemRateSF Repeat : ItemRateSF : ItemRatesAggregate Scroll : Vertical Break on : $$Isend:$MSTSFItemName [Line :ItemRateSF] Field : MSTSFItemName,MSTSFItemRate [Field : MSTSFItemName] Use : Name Field Storage :MSTSFItemName Table : MyStockitems,End of List [Field : MSTSFItemRate] Use : Amount Field Storage :MSTSFItemRate Inactive : $$IsEnd:$MSTSFItemName [System : UDF] ItemRatesAggregate : Aggregate : 21000 MSTSFItemName : String : 21001 MSTSFItemRate : Amount : 21002 [Collection : MyStockitems] Title : "List of Items" Type : StockItem Format : $Name,25 [#Field: VCH NrmlRate] set as :$(Ledger,$PartyLedgerName).ItemRatesAggregate[1,@@IsSameItem].MSTSFItemRate [System : Formula] IsSameItem : $$ReqObject:$Parent:StockItem:$StockitemName = $MSTSFItemName i have not checked its buts modifie pls check its
Code: [#Part: MST LED Explode Sundry] Add : Line : At end : ItemRateSetings [Line : ItemRateSetings] Field : Medium Prompt, ItemRateSetings Local : Field : Medium Prompt : Set As : "Set/Alter Item Rates :" [Field : ItemRateSetings] use : Logical Field Set aS : No Sub form : ItemRateSF : $$Value [Report : ItemRateSF] Form :ItemRateSF [Form :ItemRateSF] Part :ItemRateSF [Part :ItemRateSF] Line : ItemRateSF Repeat : ItemRateSF : ItemRatesAggregate Scroll : Vertical Break on : $$Isend:$MSTSFItemName [Line :ItemRateSF] Field : MSTSFItemName,MSTSFItemRate [Field : MSTSFItemName] Use : Name Field Storage :MSTSFItemName Table : MyStockitems,End of List [Field : MSTSFItemRate] Use : Amount Field Storage :MSTSFItemRate Inactive : $$IsEnd:$MSTSFItemName [System : UDF] ItemRatesAggregate : Aggregate : 21000 MSTSFItemName : String : 21001 MSTSFItemRate : Amount : 21002 [Object :MSTSFItemRate] [Object :ItemRatesAggregate] [Collection : MyStockitems] Title : "List of Items" Type : StockItem Format : $Name,25 ;[#Field: VCH NrmlRate] ;Control : MyRateControl : $(Ledger,$PartyLedgerName).ItemRatesAggregate[1,@@IsSameItem].MSTSFItemRate >< $$Value And $$IsSales:##SVVoucherType [#Field: VCH Rate] Control : MyRateControl : $(Ledger,$PartyLedgerName).ItemRatesAggregate[1,@@IsSameItem].MSTSFItemRate >< $$Value And $$IsSales:##SVVoucherType [#Field: VCHBatch Rate] Control : MyRateControl : $(Ledger,$PartyLedgerName).ItemRatesAggregate[1,@@IsSameItem].MSTSFItemRate >< $$Value And $$IsSales:##SVVoucherType [System : Formula] MyRateControl : "Rate Control" IsSameItem : $$ReqObject:$StockitemName = $MSTSFItemName
Now its not taking the rates automatically. Cant we make it such that it takes thae rates automatically??
This code is not supposed to take rate automatically........ just to ensure the conditions as defined in the code.............. yes ....you can make is such that it takes rates automatically........ you need to re-code it as u want.
;; This is Working fine i am wriiting a collection of ledger & set with collection field by key [#Part: MST LED Explode Sundry] Add : Line : At end : ItemRateSetings [Line : ItemRateSetings] Field : Medium Prompt, ItemRateSetings Local : Field : Medium Prompt : Set As : "Set/Alter Item Rates :" [Field : ItemRateSetings] use : Logical Field Set aS : No Sub form : ItemRateSF : $$Value [Report : ItemRateSF] Form :ItemRateSF [Form :ItemRateSF] Part :ItemRateSF [Part :ItemRateSF] Line : ItemRateSF Repeat : ItemRateSF : ItemRatesAggregate Scroll : Vertical Break on : $$Isend:$MSTSFItemName [Line :ItemRateSF] Field : MSTSFItemName,MSTSFItemRate [Field : MSTSFItemName] Use : Name Field Storage :MSTSFItemName Table : MyStockitems,End of List [Field : MSTSFItemRate] Use : Amount Field Storage :MSTSFItemRate Inactive : $$IsEnd:$MSTSFItemName [System : UDF] ItemRatesAggregate : Aggregate : 21000 MSTSFItemName : String : 21001 MSTSFItemRate : Amount : 21002 [Object :MSTSFItemRate] [Object :ItemRatesAggregate] [Collection : MyStockitems] Title : "List of Items" Type : StockItem Format : $Name,25 [#Field: VCH NrmlRate] Set as:$$CollectionFieldByKey:$rsrchartycoll srch:#EIConsignee +#vchstockitem [#Field: VCHBATCH ItemRate] Set as:$$CollectionFieldByKey:$rsrchartycoll srch:#EIConsignee +#vchstockitem [Collection : SaleVchColll] Type:ledger Fetch:NAME [Collection : PartyColl] Source Collection : SaleVchColll Walk : ItemRatesAggregate;InventoryEntries, batch allocations Compute : Pname : $Name Compute:item:$stockitemname ;Aggr Compute : Rate : sum : $Rate Compute:b:$MSTSFItemName Compute:r:$MSTSFItemRate Search Key:$Pname + $b
---- but rate is not shown fixed one or neither takes automatically -- showing when doing accounting voucher
sir, thanks for sharing above code, sir can you modify above code to include discount also along with rate.