Company ID Blank Title 105405

Yes it does indeed iterate and auto climb by one. That is why I think it lies somewhere else in the CompanyID table.


Michael Brown
Master Scheduler
D&S Manufacturing
mbrown@...
715-284-5376 Ext. 344
www.dsmfg.com


________________________________
From: rossh777 <ross.hughes3@...>
To: vantage@yahoogroups.com
Sent: Monday, November 14, 2011 10:38 AM
Subject: [Vantage] Re: Company ID


Â
What number is appearing in the ID field? It should iterate by one everytime you click new. Maybe try to click it, press clear, click it, etc. and see if the auto-numbering is climbing.

Ross

--- In vantage@yahoogroups.com, Michael Brown <mbrown686877@...> wrote:
>
> I changed the code to reflect Number02 and I still recieve the error of the duplicate record. I am starting to think that since we only have one CompanyID record, that is what is causing this.
>
>
> Michael Brown
> Master Scheduler
> D&S Manufacturing
> mbrown@...
> 715-284-5376 Ext. 344
> www.dsmfg.com
>
>
> ________________________________
> From: rossh777 <ross.hughes3@...>
> To: vantage@yahoogroups.com
> Sent: Friday, November 11, 2011 10:57 AM
> Subject: [Vantage] Re: Company ID
>
>
> ÂÂ
> You are pulling from number02 and writing back to number03, effectively trying to recycle the same value from number02 in your UD table. The error is telling you that the UD record has already used the number.
>
> Change this:
> compAdapt.CompanyData.Tables("Company").Rows(0)("Number03")
> To This:
> compAdapt.CompanyData.Tables("Company").Rows(0)("Number02")
>
> Ross
>
> --- In vantage@yahoogroups.com, Michael Brown <mbrown686877@> wrote:
> >
> > In a recent customization, We are creating a Unique ID record based on the company ID table using field Number01. I have recently created another customization to where I create another Unique ID record based on CompanyID Number02. This has been unsuccessful and returns the error: "This is a duplicate entry of an existing record"
> >  Here is the code that I am currently using in the customization, The only thing different between my customizations is the Number fields that I am using.
> > Dim compAdapt As CompanyAdapter = New CompanyAdapter(UD11Form)
> >        compAdapt.BOConnect
> >        Dim company As String = UD11Form.Session.CompanyID
> >        Dim ret As Boolean = compAdapt.GetById(company)
> >        Dim newCompID As Integer = CompAdapt.CompanyData.Tables("Company").Rows(0)("Number02")
> >        edvUD11.dataView(edvUD11.Row)("Key1") = newCompID.ToString()
> >        edvUD11.Notify(New EpiNotifyArgs(UD11Form, edvUD11.Row, edvUD11.column))
> >        newCompID = newCompID + 1
> >        compAdapt.CompanyData.Tables("Company").Rows(0).BeginEdit()
> >        compAdapt.CompanyData.Tables("Company").Rows(0)("Number03") = newCompID ÂÂ
> >        compAdapt.CompanyData.Tables("Company").Rows(0).EndEdit()
> >        compAdapt.Update()
> >        compAdapt.Dispose()
> > Michael Brown
> > Master Scheduler
> > D&S Manufacturing
> > mbrown@
> > 715-284-5376 Ext. 344
> > www.dsmfg.com
> >
> > [Non-text portions of this message have been removed]
> >
>
>
>
>
> [Non-text portions of this message have been removed]
>




[Non-text portions of this message have been removed]
In a recent customization, We are creating a Unique ID record based on the company ID table using field Number01. I have recently created another customization to where I create another Unique ID record based on CompanyID Number02. This has been unsuccessful and returns the error: "This is a duplicate entry of an existing record"
 Here is the code that I am currently using in the customization, The only thing different between my customizations is the Number fields that I am using.
Dim compAdapt As CompanyAdapter = New CompanyAdapter(UD11Form)
       compAdapt.BOConnect
       Dim company As String = UD11Form.Session.CompanyID
       Dim ret As Boolean = compAdapt.GetById(company)
       Dim newCompID As Integer = CompAdapt.CompanyData.Tables("Company").Rows(0)("Number02")
       edvUD11.dataView(edvUD11.Row)("Key1") = newCompID.ToString()
       edvUD11.Notify(New EpiNotifyArgs(UD11Form, edvUD11.Row, edvUD11.column))
       newCompID = newCompID + 1
       compAdapt.CompanyData.Tables("Company").Rows(0).BeginEdit()
       compAdapt.CompanyData.Tables("Company").Rows(0)("Number03") = newCompID Â
       compAdapt.CompanyData.Tables("Company").Rows(0).EndEdit()
       compAdapt.Update()
       compAdapt.Dispose()
Michael Brown
Master Scheduler
D&S Manufacturing
mbrown@...
715-284-5376 Ext. 344
www.dsmfg.com

[Non-text portions of this message have been removed]
You are pulling from number02 and writing back to number03, effectively trying to recycle the same value from number02 in your UD table. The error is telling you that the UD record has already used the number.

Change this:
compAdapt.CompanyData.Tables("Company").Rows(0)("Number03")
To This:
compAdapt.CompanyData.Tables("Company").Rows(0)("Number02")

Ross

--- In vantage@yahoogroups.com, Michael Brown <mbrown686877@...> wrote:
>
> In a recent customization, We are creating a Unique ID record based on the company ID table using field Number01. I have recently created another customization to where I create another Unique ID record based on CompanyID Number02. This has been unsuccessful and returns the error: "This is a duplicate entry of an existing record"
> Â Here is the code that I am currently using in the customization, The only thing different between my customizations is the Number fields that I am using.
> Dim compAdapt As CompanyAdapter = New CompanyAdapter(UD11Form)
> Â Â Â Â Â Â Â compAdapt.BOConnect
> Â Â Â Â Â Â Â Dim company As String = UD11Form.Session.CompanyID
> Â Â Â Â Â Â Â Dim ret As Boolean = compAdapt.GetById(company)
> Â Â Â Â Â Â Â Dim newCompID As Integer = CompAdapt.CompanyData.Tables("Company").Rows(0)("Number02")
> Â Â Â Â Â Â Â edvUD11.dataView(edvUD11.Row)("Key1") = newCompID.ToString()
> Â Â Â Â Â Â Â edvUD11.Notify(New EpiNotifyArgs(UD11Form, edvUD11.Row, edvUD11.column))
> Â Â Â Â Â Â Â newCompID = newCompID + 1
> Â Â Â Â Â Â Â compAdapt.CompanyData.Tables("Company").Rows(0).BeginEdit()
> Â Â Â Â Â Â Â compAdapt.CompanyData.Tables("Company").Rows(0)("Number03") = newCompIDÂ Â
> Â Â Â Â Â Â Â compAdapt.CompanyData.Tables("Company").Rows(0).EndEdit()
> Â Â Â Â Â Â Â compAdapt.Update()
> Â Â Â Â Â Â Â compAdapt.Dispose()
> Michael Brown
> Master Scheduler
> D&S Manufacturing
> mbrown@...
> 715-284-5376 Ext. 344
> www.dsmfg.com
>
> [Non-text portions of this message have been removed]
>
I changed the code to reflect Number02 and I still recieve the error of the duplicate record. I am starting to think that since we only have one CompanyID record, that is what is causing this.


Michael Brown
Master Scheduler
D&S Manufacturing
mbrown@...
715-284-5376 Ext. 344
www.dsmfg.com


________________________________
From: rossh777 <ross.hughes3@...>
To: vantage@yahoogroups.com
Sent: Friday, November 11, 2011 10:57 AM
Subject: [Vantage] Re: Company ID


Â
You are pulling from number02 and writing back to number03, effectively trying to recycle the same value from number02 in your UD table. The error is telling you that the UD record has already used the number.

Change this:
compAdapt.CompanyData.Tables("Company").Rows(0)("Number03")
To This:
compAdapt.CompanyData.Tables("Company").Rows(0)("Number02")

Ross

--- In vantage@yahoogroups.com, Michael Brown <mbrown686877@...> wrote:
>
> In a recent customization, We are creating a Unique ID record based on the company ID table using field Number01. I have recently created another customization to where I create another Unique ID record based on CompanyID Number02. This has been unsuccessful and returns the error: "This is a duplicate entry of an existing record"
> Â Here is the code that I am currently using in the customization, The only thing different between my customizations is the Number fields that I am using.
> Dim compAdapt As CompanyAdapter = New CompanyAdapter(UD11Form)
> Â Â Â Â Â Â Â compAdapt.BOConnect
> Â Â Â Â Â Â Â Dim company As String = UD11Form.Session.CompanyID
> Â Â Â Â Â Â Â Dim ret As Boolean = compAdapt.GetById(company)
> Â Â Â Â Â Â Â Dim newCompID As Integer = CompAdapt.CompanyData.Tables("Company").Rows(0)("Number02")
> Â Â Â Â Â Â Â edvUD11.dataView(edvUD11.Row)("Key1") = newCompID.ToString()
> Â Â Â Â Â Â Â edvUD11.Notify(New EpiNotifyArgs(UD11Form, edvUD11.Row, edvUD11.column))
> Â Â Â Â Â Â Â newCompID = newCompID + 1
> Â Â Â Â Â Â Â compAdapt.CompanyData.Tables("Company").Rows(0).BeginEdit()
> Â Â Â Â Â Â Â compAdapt.CompanyData.Tables("Company").Rows(0)("Number03") = newCompIDÂ Â
> Â Â Â Â Â Â Â compAdapt.CompanyData.Tables("Company").Rows(0).EndEdit()
> Â Â Â Â Â Â Â compAdapt.Update()
> Â Â Â Â Â Â Â compAdapt.Dispose()
> Michael Brown
> Master Scheduler
> D&S Manufacturing
> mbrown@...
> 715-284-5376 Ext. 344
> www.dsmfg.com
>
> [Non-text portions of this message have been removed]
>




[Non-text portions of this message have been removed]
What number is appearing in the ID field? It should iterate by one everytime you click new. Maybe try to click it, press clear, click it, etc. and see if the auto-numbering is climbing.

Ross

--- In vantage@yahoogroups.com, Michael Brown <mbrown686877@...> wrote:
>
> I changed the code to reflect Number02 and I still recieve the error of the duplicate record. I am starting to think that since we only have one CompanyID record, that is what is causing this.
>
>
> Michael Brown
> Master Scheduler
> D&S Manufacturing
> mbrown@...
> 715-284-5376 Ext. 344
> www.dsmfg.com
>
>
> ________________________________
> From: rossh777 <ross.hughes3@...>
> To: vantage@yahoogroups.com
> Sent: Friday, November 11, 2011 10:57 AM
> Subject: [Vantage] Re: Company ID
>
>
> ÂÂ
> You are pulling from number02 and writing back to number03, effectively trying to recycle the same value from number02 in your UD table. The error is telling you that the UD record has already used the number.
>
> Change this:
> compAdapt.CompanyData.Tables("Company").Rows(0)("Number03")
> To This:
> compAdapt.CompanyData.Tables("Company").Rows(0)("Number02")
>
> Ross
>
> --- In vantage@yahoogroups.com, Michael Brown <mbrown686877@> wrote:
> >
> > In a recent customization, We are creating a Unique ID record based on the company ID table using field Number01. I have recently created another customization to where I create another Unique ID record based on CompanyID Number02. This has been unsuccessful and returns the error: "This is a duplicate entry of an existing record"
> >  Here is the code that I am currently using in the customization, The only thing different between my customizations is the Number fields that I am using.
> > Dim compAdapt As CompanyAdapter = New CompanyAdapter(UD11Form)
> >        compAdapt.BOConnect
> >        Dim company As String = UD11Form.Session.CompanyID
> >        Dim ret As Boolean = compAdapt.GetById(company)
> >        Dim newCompID As Integer = CompAdapt.CompanyData.Tables("Company").Rows(0)("Number02")
> >        edvUD11.dataView(edvUD11.Row)("Key1") = newCompID.ToString()
> >        edvUD11.Notify(New EpiNotifyArgs(UD11Form, edvUD11.Row, edvUD11.column))
> >        newCompID = newCompID + 1
> >        compAdapt.CompanyData.Tables("Company").Rows(0).BeginEdit()
> >        compAdapt.CompanyData.Tables("Company").Rows(0)("Number03") = newCompID ÂÂ
> >        compAdapt.CompanyData.Tables("Company").Rows(0).EndEdit()
> >        compAdapt.Update()
> >        compAdapt.Dispose()
> > Michael Brown
> > Master Scheduler
> > D&S Manufacturing
> > mbrown@
> > 715-284-5376 Ext. 344
> > www.dsmfg.com
> >
> > [Non-text portions of this message have been removed]
> >
>
>
>
>
> [Non-text portions of this message have been removed]
>