Error in Item Alteration std. price [Please help]

Hello Everyone

I want to update stock item prices in a simple way. My code is working perfectly but when I am updating the price first time only after it shows "Duplicate entry" when updating.

Thank you in advance.

my code is given below :

Code:

[#Menu: Gateway of Tally]
    Key Item: "U : Update Price"    : M : Alter    : Item List

;;;;======================================== Update Item Price =================================

[Report:Item List]
    Form:SMUPpdate

[Form:SMUPpdate]
    Part    :SMUPpdate
    Vertical Align    : Top
    No Confirm        : Yes
    On:Form Accept:Yes:Form Accept
    On:Form Accept:Yes:Alter: SMU Price
    
[Part:SMUPpdate]
    Line:SMUPpdateT, SMUPpdate

[Line:SMUPpdateT]
    Field: Name Field
    Local:Field:Name Field:Info:"Update Stock Item Price :"
    Local:Field:Name Field:Align:Center
    Local:Field:Name Field:Width:35
    Local:Field:Name Field:Border:Thin Bottom
    Space Bottom:1
 
[Line:SMUPpdate]
    Field:SMUPpdate

[Field:SMUPpdate]
    Use            : Name Field
    Table        : SMUPriceColl
    Show Table    : Always
    Indent        : 1
    Modifies    : SMUItem:Yes
    Width        : 30
    Keys        : Create Stock Item, Alter StkItem

[Variable: SmuItem]
    Type: String
  
[System:Variable]
    SmuItem : ""
  
[Collection: Smu Price Coll]
    Title        : "Stock Item List"
    Type        : Stock Item
    Format        : $name, 35
    Full Height    : Yes
    Align        : Center
  
;;========================================== Report ======================

[Report:SMU Price]
    Form:SMU Price
  
[Form:SMU Price]
;    Height          : 75% Screen
    FullWidth       : No
    No Confirm        : Yes
    Part            : SMUP Title, SMUP Val
    On : Form Accept : yes : Form Accept
    On : Form Accept : yes : Call : SMP Update

  
;;============================================== P Title
[Part:SMUP Title]
    Line: SMUP title , SMUP StkItem
    Horizontal Align: Centre
    Border: Thin bottom
    Space Bottom:1
  
[Line:SMUP Title]
    Field: MV Title
    Local: Field: MV Title : Info        : "Price Update"
    Local: Field: MV Title : Wide Space    : Yes
    Local: Field: MV Title : Local        : Style: Default : Height: 12
    Local: Field: MV Title : Case: Upper Case
    Space Bottom: 0.5

[Line: SMUP StkItem]
    Left Field      : Simple Prompt, Sub Title Field, SMUP Unit
    Local: Field : Simple Prompt      : Info      : $$LocaleString:"Stock Item"
    Local: Field : Simple Prompt      : Indent    : 3
    Local: Field : Sub Title Field    : Set as    : ##SmuItem
  
[Field:SMUPUnit]
    Use            : Name Field
    Set as        : $baseunits:stockitem:##SmuItem
    Set Always    : Yes
    Invisible    : Yes
  
;;============================================================ P Details
[Part:SMUP Val]
    Line: SMUP Date, SMUP P Rate, SMUP S Rate
    Local: Field: Short Prompt : Width: 15
    Local: Field: Short Prompt : Indent: 1

;;---------------------------------------------- L p Rate
[Line: SMUP Date]
    Field    : Short Prompt, SMUP Date
    Local: Field: Short Prompt     : Info    : "Date :"
    Space Top: 0.5
    Space Bottom: 0.5
  
[Field: SMUP Date]
    Use            : Uni date Field
    Set as        : $$MachineDate
    Width        : 12
    Align        : Left
    Modifies    : SMUP Date : Yes
    Indent        : 1

;;---------------------------------------------- L p Rate
[Line: SMUP P Rate]
    Field    : Short Prompt, SMUP P Rate, SMUP Per
    Local: Field: Short Prompt     : Info    : "Purchase Rate :"
    Space Top: 0.5
    Space Bottom: 0.5

[Field: SMUPPRate]
    Use            : Number Field
    Set as        : $$Value
    Set Always    : Yes
    Width        : 12
    Style        : Normal
    Format        : "No comma, No Zero,"
    Modifies    : SMUPPRate : Yes
    Indent        : 2
  
[Field: SMUP Per]
    Use: Name Field
    Width: 8
    Set as: if #SMUPPrate < 1 then "" Else $$String:"/ " + $$String:#SMUPUnit
    Set Always: Yes
    Skip: Yes

;;---------------------------------------------- L S Rate
[Line: SMUP S Rate]
    Field    : Short Prompt, SMUP S Rate, SMUP Per
    Local: Field: Short Prompt     : Info    : "Sale Rate :"
    Local: Field: SMUP Per         : Set as: if #SMUPSrate < 1 then "" Else $$String:"/ " + $$String:#SMUPUnit
    Space Bottom: 0.5
  
[Field:SMUPSRate]
    Use            : Number Field
    Set as        : ##SVFromdate
    Width        : 12
    Style        : Normal
    Format        : "No comma, No Zero,"
    Modifies    : SMUPSRate  : Yes
    Indent        : 2

[Variable: SMUP Date]
    Type: Date
  
[Variable: SMUP P Rate]
    Type: Number
  
[Variable: Smup S Rate]
    Type: Number
  
[System: Variable]
    SMUP Date    : ""
    SMUP P Rate : ""
    SMUP S Rate : ""

[Function:SMP Update]
100: NEW OBJECT    : Stock Item : ##SmuItem : Yes
110:    Set Value    : NAME                     : ##SmuItem

120    : INSERT COLLECTION OBJECT        : STANDARDCOSTLIST
130    :  Set Value    : DATE    : $$Date:##SVFromDate
140    :  Set Value    : Rate    : $$TgtObject:$$AsRate:##SMUPPRate
150 : Set Target: ..
  
160    : INSERT COLLECTION OBJECT        : STANDARDPRICELIST
170    :  Set Value    : DATE    : $$Date:##SVFromDate
180    :  Set Value    : Rate    : $$TgtObject:$$AsRate:##SMUPSRate
190    : Set Target: ..

200 : Accept Alter

 

Solved : [Function: ]

is repeating the same date.

 

if you want to update the same date also you need to first use the DELETE COLLECTION OBJECT with that date and then insert the new one

 

Can this be used as a code to use an excel file to update the same??

 

yes