Expiry Date Auto Update

[2can2]

Hi,
I want to add 6 months to the Received date to update Expiry date on Stock for a client on V6513.
They don’t want the stock items to ‘Use Expiry dates’ because then they would need to enter the date on every line – they want it automated!
I have used the syntax below but obviously have the syntax or names incorrect! Some guidance would be appreciated.

1. Form - Receive Inventory – Form IN_SOH Insert
' SPB add 6 months to expiry date
rtnExpiryDate = DateAdd (m, 6, FormObject.DateIn)
MsgBox "Exp Date : " & rtnExpiryDate

2. Form - Shipment Book In – BookIn Saved
' SPB add 6 months to expiry date
NewDate = DateAdd (m, 6, JiwaBookInObject.BookIn.BookInDate)
MsgBox "Exp Date : " & NewDate

For Each BookInLine In JiwaBookInObject.BookIn.BookInLine
JiwaBookInObject.BookIn.detailLine.ExpiryDate = NewDate
Next

[Scott.Pearce]

1. Form - Receive Inventory – Form IN_SOH Insert

Code: Select all

rtnExpiryDate = DateAdd ("m", 6, rtnDateIn)


2. Form - Shipment Book In – Bookin Save Request

Code: Select all

For Each bookInLine In JiwaBookinObject.BookInLines
   For Each bookInLineDetail In bookInLine.BookInLineDetails
      bookInLineDetail.ExpiryDate = DateAdd ("m", 6, JiwaBookInObject.BookInDate)
   Next
Next


P.S. Get upgrading to v7

[2can2]

Thanks Scot much appreciated.
They will update in a few months but I have my hands full with updates currently!