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