Customer- Item Rate fixed

 [#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]

    Control : MyRateControl : $(Ledger,$PartyLedgerName).ItemRatesAggregate[1,@@IsSameItem].MSTSFItemRate < $$Value And $$IsSales:##SVVoucherType

 

[System : Formula]

MyRateControl : "Rate Control"

IsSameItem : $$ReqObject:$StockitemName = $MSTSFItemName