Manually setting Serial number been overridden

Hi,

In my application I get a serial number from EPDM, then show Save as dialogue box I then save the file & set the serial number to Document Number, However it is then over ridden by the next serial number.

ie my app get 53, save document as 53, put the document number as 53 & exit, then EPDM puts the numbers 54 in Document number.

What am I doing wrong?

  AcDb.SaveAs(FullFileName, False, DwgVersion.Current, Nothing)

            Dim File As EDMFile = New EDMFile(FullFileName)

            If File.IsValid Then

                File.DocID = SerialNO ' Below is code it implements\\/

                ' Dim _Folder As IEdmFolder5

                'Dim _File As IEdmFile7 = _Vault.GetFileFromPath(FullFileName, _Folder)

                ' Dim Data As IEdmEnumeratorVariable8 = _File.GetEnumeratorVariable

                ' Data.SetVar("Document Number", _ConfigName, value, EdmBatchFlags.EdmBatch_AllConfigs)

                'Data.CloseFile(True)

            End If

SolidworksApi macros