free code :- Custmoer Item Rate fixed

Discussion in 'Free Source Codes' started by psjain_jal, Apr 21, 2013.

    
  1. mpal2311

    mpal2311 Active Member


    Good to see you again.

    Bundle not sent by you till date.
     


  2. psjain_jal

    psjain_jal Member


    ok thanks
     


  3. mpal2311

    mpal2311 Active Member


    After a long break, hope you developed a bundle of TDL's, please share it as committed by you earlier. Waiting for the Bundle.
     


  4. Gopaalran

    Gopaalran New Member


    still bundle are waiting
     


  5. Asifraza1

    Asifraza1 New Member


    Where is Bundle ?
     


  6. Niraj

    Niraj New Member


    sir ,
    when I set alter price to yes ..after saving its autometicaly comes to NO .
     


  7. Mahesh Sethi

    Mahesh Sethi Member


    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
     


  8. Shamsher Singh

    Shamsher Singh New Member


    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
     


  9. DEEPAK B

    DEEPAK B Member


    nice report as per your screen xls attachment but where is updated code
     


  10. PRAPTI

    PRAPTI Member


    Can't we save the rates inclusive of GST
     


  11. Jay kumar tailor

    Jay kumar tailor Well-Known Member


    I heartily appreciate you for your thoughts.
    Thanks for sharing.
    Keep it up.
     
    panam likes this.



  12. 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
     


  13. Amit Kamdar

    Amit Kamdar Administrator Staff Member


    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
    
     
    litu likes this.


  14. PRAPTI

    PRAPTI Member


    Please tell me from where we have to set/alter the rates??
     


  15. Amit Kamdar

    Amit Kamdar Administrator Staff Member


    In Ledger alteration screen............

    at prompt .... Set/Alter Item Rates ....set it to "yes"
     


  16. PRAPTI

    PRAPTI Member


    Now its not taking the rates automatically.
    Cant we make it such that it takes thae rates automatically??
     


  17. Amit Kamdar

    Amit Kamdar Administrator Staff Member


    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.
     


  18. velan

    velan New Member


    How to remove number...only
     

    Attached Files:




  19. ;; 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:$r:mad:srch:partycoll
    srch:#EIConsignee +#vchstockitem
    [#Field: VCHBATCH ItemRate]
    Set as:$$CollectionFieldByKey:$r:mad:srch:partycoll
    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
     





  20. ---- but rate is not shown fixed one or neither takes automatically -- showing when doing accounting voucher
     
    Last edited: Nov 9, 2019


  21. tejeet

    tejeet Member


    sir, thanks for sharing above code, sir can you modify above code to include discount also along with rate.
     


  22. Mohan.S

    Mohan.S Member


    Can we set Rate based On Batch.
     


Share This Page