Abandoned [RELEASE] Trade Computer Extension

Rudolphus · Jun 2, 2015

Nice but I will not going to use it.
I don't know who you are and of you are trustworthy for security reasons.

But I will do a request to frontier to implant this

Bragolatch · Jun 2, 2015

Stored Locations - More Problems

Eventure said:
Thanks for your report in this case. Lets check the upcomming changelogs, if they reintroduce the info. I will make a note here, if TCE is able to work with the Powerplay beta.
I thought, this day will never come.https://forums.frontier.co.uk/images/icons/vbposticons/icon7.gif

Thank you so much for your energy, you spend on intensive testing and reporting, and to all others too. Without help of you all, we would not be at this point today. Great teamwork.https://forums.frontier.co.uk/images/icons/vbposticons/icon14.gif https://forums.frontier.co.uk/images/icons/vbposticons/icon14.gif https://forums.frontier.co.uk/images/icons/vbposticons/icon14.gif

The work is not over, but it will be less intensive, till we reach the release phase of the ED API.
If i look on my to-do list, there are some more things, that will come, like a Trade Route Planner and the translation into german and french.

I will release a new full-version tomorrow to finalize the beta.

- All of my Commander's PERSONAL STATS were gone but adding them again seems to have done the trick.
Might have lost them a while ago, I did not pay attention before. Wait on other reports, it's probably not a bug !

Sorry, but don't celebrate too quickly,
it seems the same or similar errors are also present in STORED LOCATIONS

- A minor flaw in STORED LOCATIONS
when you select a yellow station to see it's notes in any of the category, all the yellow marked stations currently displayed turn white.
Scrolling down or selecting another tab and coming back will turn the stations that have notes yellow again thought.

- A bigger bug in STORED LOCATIONS
Parked Ship location is also added to Outfittings.
I can then modify the Parked Ship note but it doesn't change the Outfitting one
and nothing I do seem to be able to alter that one, if I modify or delete it, doesn't actually do anything.

And if I try to modify an INNER SYSTEM LOCATION in STORED LOCATIONS I get the old Run-time error 13:

Private Sub BTN_Com2_Click()

Dim iTxt As String, iName As Variant, a As Long, Ar_Temp As Variant, b As Long
Dim itxt1 As String, itxt2 As String, itxt3 As String, itxt4 As String, itxt5 As String, itxt6 As String, itxt7 As String, itxt8 As String, itxt9 As String, itxt10 As String, id As Integer
Dim iName1 As Variant, iName2 As Variant, iName3 As Variant, iName4 As Variant, iName5 As Variant, iName6 As Variant, iName7 As Variant, iName8 As Variant, iName9 As Variant, iName10 As Variant

itxt1 = "ST_Select"
itxt2 = "ST_Back"
itxt3 = "ST_Star"
itxt4 = "ST_Dist"
itxt5 = "ST_Loc"

If Me.BTN_Com2_Label.Caption = "DELETE" Then
Me.BTN_Com2_Label.Caption = "PLEASE WAIT"
DoEvents
If StoreCat = 2 Then
StoreID = Ar_DBCZH(ST_SelectID, 1)
End If
If StoreCat = 3 Then
StoreID = Ar_DBCZL(ST_SelectID, 1)
End If
If StoreCat = 5 Then
StoreID = Ar_DBPS(ST_SelectID, 1)
Ar_DBRegStations(Ar_DBPS(ST_SelectID, 5), 20) = ""
POS_SysData(Ar_DBPS(ST_SelectID, 5), 20) = ""
DES_SysData(Ar_DBPS(ST_SelectID, 5), 20) = ""
StationData(1) = Ar_DBPS(ST_SelectID, 5)
StationData(20) = ""
Station_SN = True
Call SQL_Export_Mod(AppPath & "\DB\TCE.mdb", "Stations")
Station_SN = False
Worksheets("DB_Stations").Cells(Ar_DBPS(ST_SelectID, 5) + 1, 20) = ""
Call POS_Output_Reg
Call DES_Output_Reg
Call DES_Output_UReg
End If
If StoreCat = 6 Then
StoreID = Ar_DBPOI(ST_SelectID, 1)
End If
If StoreCat = 8 Then
StoreID = Ar_DBRE(ST_SelectID, 1)
End If
If StoreID = DES_LocID Then
NoTarget = True
DES_LocMode = False
End If
Call SQL_Export_Del(AppPath & "\DB\Logbook.mdb", "Store")
For a = 1 To AzStore
If Ar_DBStore(a, 1) = StoreID Then
LogID = Ar_DBStore(a, 2)
Worksheets("DB_Store").Range("A" & a + 1 & ":M" & a + 1).ClearContents
Exit For
End If
Next a
For a = 1 To AzLogbook
If Ar_DBLogbook(a, 1) = LogID Then
Worksheets("DB_Log").Cells(a + 1, 8).Value = ""
Worksheets("DB_Log").Cells(a + 1, 9).Value = ""
Worksheets("DB_Log").Cells(a + 1, 10).Value = 0
LogID = TL_SelectID
TL_SelectID = a
Ar_DBLogbook(a, 8) = ""
Ar_DBLogbook(a, 9) = ""
Ar_DBLogbook(a, 10) = 0
Log_edit = True
Call SQL_Export_Mod(AppPath & "\DB\Logbook.mdb", "Log")
Log_edit = False
TL_SelectID = LogID
Exit For
End If
Next a
Worksheets("DB_Store").Activate
ActiveWorkbook.Worksheets("DB_Store").Sort.SortFields.Clear
ActiveWorkbook.Worksheets("DB_Store").Sort.SortFields.Add Key:=Range( _
"A2:A1000001"), SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:= _
xlSortNormal
With ActiveWorkbook.Worksheets("DB_Store").Sort
.SetRange Range("A1:M1000001")
.Header = xlYes
.MatchCase = False
.Orientation = xlTopToBottom
.SortMethod = xlPinYin
.Apply
End With
AzStore = Worksheets("Data").Cells(7, 5).Value
If AzStore > 0 Then
Ar_DBStore = Worksheets("DB_Store").Range("A2:M" & AzStore + 1)
Else
Ar_DBStore = Worksheets("DB_Store").Range("A2:M2")
End If
ST_SelectID = 0
Me.BTN_ST_Tab1.BackColor = 0
Me.BTN_ST_Tab1.ForeColor = &HFFFFFF
Me.BTN_ST_Tab2.BackColor = 0
Me.BTN_ST_Tab2.ForeColor = &HFFFFFF
If StoreCat = 2 Then
Call Setup_CZH
If AzCZH - 9 < 0 Then
Me.ST_Scrollbar.Max = 0
Else
Me.ST_Scrollbar.Max = AzCZH - 9
If AzCZH > 18 Then
Me.ST_Scrollbar.LargeChange = 9
Else
Me.ST_Scrollbar.LargeChange = AzCZH - 9
End If
End If
End If
If StoreCat = 3 Then
Call Setup_CZL
If AzCZL - 9 < 0 Then
Me.ST_Scrollbar.Max = 0
Else
Me.ST_Scrollbar.Max = AzCZL - 9
If AzCZL > 18 Then
Me.ST_Scrollbar.LargeChange = 9
Else
Me.ST_Scrollbar.LargeChange = AzCZL - 9
End If
End If
End If
If StoreCat = 5 Then
Call Setup_PS
If AzPS - 9 < 0 Then
Me.ST_Scrollbar.Max = 0
Else
Me.ST_Scrollbar.Max = AzPS - 9
If AzPS > 18 Then
Me.ST_Scrollbar.LargeChange = 9
Else
Me.ST_Scrollbar.LargeChange = AzPS - 9
End If
End If
End If
If StoreCat = 6 Then
Call Setup_POI
If AzPOI - 9 < 0 Then
Me.ST_Scrollbar.Max = 0
Else
Me.ST_Scrollbar.Max = AzPOI - 9
If AzPOI > 18 Then
Me.ST_Scrollbar.LargeChange = 9
Else
Me.ST_Scrollbar.LargeChange = AzPOI - 9
End If
End If
End If
If StoreCat = 8 Then
Call Setup_RE
If AzRE - 9 < 0 Then
Me.ST_Scrollbar.Max = 0
Else
Me.ST_Scrollbar.Max = AzRE - 9
If AzRE > 18 Then
Me.ST_Scrollbar.LargeChange = 9
Else
Me.ST_Scrollbar.LargeChange = AzRE - 9
End If
End If
End If
For a = 1 To 9
'------> Select
iName1 = itxt1 & a
Me.Controls(iName1).Visible = False
'------> Back
iName2 = itxt2 & a
Me.Controls(iName2).Visible = False
'------> Star
iName3 = itxt3 & a
Me.Controls(iName3).Visible = False
'------> Distance
iName4 = itxt4 & a
Me.Controls(iName4).Visible = False
'------> Location
iName5 = itxt5 & a
Me.Controls(iName5).Visible = False
Next a
Call ST_Scrollbar_Change
Me.ST_Note.Value = ""
Me.TXT_ST_NoteCounter.Caption = 254 - Len(Me.ST_Note.Text)
Call Command_Buttons_Reset
Exit Sub
End If

If Me.BTN_Com2_Label.Caption = "EDIT LOCATION" Then
iTxt = "ST_Back"
For a = 1 To 9
iName = iTxt & a
If Me.Controls(iName).BackColor = TCE_Color Then
Me.ST_TB_Location.Top = Me.Controls(iName).Top
iTxt = "ST_Loc"
iName = iTxt & a
Me.ST_TB_Location.Text = Me.Controls(iName).Caption
Me.ST_TB_Location.Visible = True
Me.ST_TB_Location.SetFocus
Exit For
End If
Next a
Call Command_Buttons_Reset
Me.BTN_Com1.Visible = True
Me.BTN_Com1_Back.Visible = True
Me.BTN_Com1_Label.Caption = "CANCEL"
Me.BTN_Com1_Label.Visible = True
Exit Sub
End If
If Me.BTN_Com2_Label.Caption = "CANCEL" Then
Me.ST_TB_Location.Visible = False
If StoreCat = 1 Then
a = Ar_DBBM(ST_SelectID, 4)
End If
If StoreCat = 2 Then
a = Ar_DBCZH(ST_SelectID, 4)
End If
If StoreCat = 3 Then
a = Ar_DBCZL(ST_SelectID, 4)
End If
If StoreCat = 4 Then
a = Ar_DBOF(ST_SelectID, 4)
End If
If StoreCat = 5 Then
a = Ar_DBPS(ST_SelectID, 4)
End If
If StoreCat = 6 Then
a = Ar_DBPOI(ST_SelectID, 4)
End If
If StoreCat = 7 Then
a = Ar_DBRC(ST_SelectID, 4)
End If
If StoreCat = 8 Then
a = Ar_DBRE(ST_SelectID, 4)
End If
If StoreCat = 9 Then
a = Ar_DBSY(ST_SelectID, 4)
End If
Call Command_Buttons_Reset
If ActualStarID <> a Then
Me.BTN_Com1.Visible = True
Me.BTN_Com1_Back.Visible = True
Me.BTN_Com1_Label.Caption = "SET AS DESTINATION"
Me.BTN_Com1_Label.Visible = True
Me.BTN_Com2.Visible = True
Me.BTN_Com2_Back.Visible = True
Me.BTN_Com2_Label.Caption = "DELETE"
Me.BTN_Com2_Label.Visible = True
If StoreCat = 2 Or StoreCat = 3 Or StoreCat = 6 Or StoreCat = 8 Then
Me.BTN_Com3.Visible = True
Me.BTN_Com3_Back.Visible = True
Me.BTN_Com3_Label.Caption = "EDIT LOCATION"
Me.BTN_Com3_Label.Visible = True
End If
Else
Me.BTN_Com1.Visible = True
Me.BTN_Com1_Back.Visible = True
Me.BTN_Com1_Label.Caption = "DELETE"
Me.BTN_Com1_Label.Visible = True
If StoreCat = 2 Or StoreCat = 3 Or StoreCat = 6 Or StoreCat = 8 Then
Me.BTN_Com3.Visible = True
Me.BTN_Com3_Back.Visible = True
Me.BTN_Com3_Label.Caption = "EDIT LOCATION"
Me.BTN_Com3_Label.Visible = True
End If
End If
Exit Sub
End If

End Sub

Private Sub BTN_Com3_Click()

Dim iTxt As String, iName As Variant, a As Long, Ar_Temp As Variant, b As Long
Dim itxt1 As String, itxt2 As String, itxt3 As String, itxt4 As String, itxt5 As String, itxt6 As String, itxt7 As String, itxt8 As String, itxt9 As String, itxt10 As String, id As Integer
Dim iName1 As Variant, iName2 As Variant, iName3 As Variant, iName4 As Variant, iName5 As Variant, iName6 As Variant, iName7 As Variant, iName8 As Variant, iName9 As Variant, iName10 As Variant

If Me.BTN_Com3_Label.Caption = "EDIT LOCATION" Then
iTxt = "ST_Back"
For a = 1 To 9
iName = iTxt & a
If Me.Controls(iName).BackColor = TCE_Color Then
Me.ST_TB_Location.Top = Me.Controls(iName).Top
iTxt = "ST_Loc"
iName = iTxt & a
Me.ST_TB_Location.Text = Me.Controls(iName).Caption
Me.ST_TB_Location.Visible = True
Me.ST_TB_Location.SetFocus
Exit For
End If
Next a
Call Command_Buttons_Reset
Me.BTN_Com1.Visible = True
Me.BTN_Com1_Back.Visible = True
Me.BTN_Com1_Label.Caption = "CANCEL"
Me.BTN_Com1_Label.Visible = True
Exit Sub
End If

End Sub

Bragolatch · Jun 2, 2015

Rudolphus said:
Nice but I will not going to use it.
I don't know who you are and of you are trustworthy for security reasons.

But I will do a request to frontier to implant this

As you wish but if you scan it with your Anti-Virus and Malware scanner or even better, with :
https://www.virustotal.com/en/

You will see that it is quite safe !

And if you start using it, I'm pretty sure you'll get hooked !!

I might give up on ED altogether if I could not use TCE anymore !!!

eventure · Jun 2, 2015

Bragolatch said:
- All of my Commander's PERSONAL STATS were gone but adding them again seems to have done the trick.
Might have lost them a while ago, I did not pay attention before. Wait on other reports, it's probably not a bug !

Sorry, but don't celebrate too quickly,
it seems the same or similar errors are also present in STORED LOCATIONS

- A minor flaw in STORED LOCATIONS
when you select a yellow station to see it's notes in any of the category, all the yellow marked stations currently displayed turn white.
Scrolling down or selecting another tab and coming back will turn the stations that have notes yellow again thought.

- A bigger bug in STORED LOCATIONS
Parked Ship location is also added to Outfittings.
I can then modify the Parked Ship note but it doesn't change the Outfitting one
and nothing I do seem to be able to alter that one, if I modify or delete it, doesn't actually do anything.

And if I try to modify an INNER SYSTEM LOCATION in STORED LOCATIONS I get the old Run-time error 13:

Private Sub BTN_Com2_Click()

Dim iTxt As String, iName As Variant, a As Long, Ar_Temp As Variant, b As Long
Dim itxt1 As String, itxt2 As String, itxt3 As String, itxt4 As String, itxt5 As String, itxt6 As String, itxt7 As String, itxt8 As String, itxt9 As String, itxt10 As String, id As Integer
Dim iName1 As Variant, iName2 As Variant, iName3 As Variant, iName4 As Variant, iName5 As Variant, iName6 As Variant, iName7 As Variant, iName8 As Variant, iName9 As Variant, iName10 As Variant

itxt1 = "ST_Select"
itxt2 = "ST_Back"
itxt3 = "ST_Star"
itxt4 = "ST_Dist"
itxt5 = "ST_Loc"

If Me.BTN_Com2_Label.Caption = "DELETE" Then
Me.BTN_Com2_Label.Caption = "PLEASE WAIT"
DoEvents
If StoreCat = 2 Then
StoreID = Ar_DBCZH(ST_SelectID, 1)
End If
If StoreCat = 3 Then
StoreID = Ar_DBCZL(ST_SelectID, 1)
End If
If StoreCat = 5 Then
StoreID = Ar_DBPS(ST_SelectID, 1)
Ar_DBRegStations(Ar_DBPS(ST_SelectID, 5), 20) = ""
POS_SysData(Ar_DBPS(ST_SelectID, 5), 20) = ""
DES_SysData(Ar_DBPS(ST_SelectID, 5), 20) = ""
StationData(1) = Ar_DBPS(ST_SelectID, 5)
StationData(20) = ""
Station_SN = True
Call SQL_Export_Mod(AppPath & "\DB\TCE.mdb", "Stations")
Station_SN = False
Worksheets("DB_Stations").Cells(Ar_DBPS(ST_SelectID, 5) + 1, 20) = ""
Call POS_Output_Reg
Call DES_Output_Reg
Call DES_Output_UReg
End If
If StoreCat = 6 Then
StoreID = Ar_DBPOI(ST_SelectID, 1)
End If
If StoreCat = 8 Then
StoreID = Ar_DBRE(ST_SelectID, 1)
End If
If StoreID = DES_LocID Then
NoTarget = True
DES_LocMode = False
End If
Call SQL_Export_Del(AppPath & "\DB\Logbook.mdb", "Store")
For a = 1 To AzStore
If Ar_DBStore(a, 1) = StoreID Then
LogID = Ar_DBStore(a, 2)
Worksheets("DB_Store").Range("A" & a + 1 & ":M" & a + 1).ClearContents
Exit For
End If
Next a
For a = 1 To AzLogbook
If Ar_DBLogbook(a, 1) = LogID Then
Worksheets("DB_Log").Cells(a + 1, 8).Value = ""
Worksheets("DB_Log").Cells(a + 1, 9).Value = ""
Worksheets("DB_Log").Cells(a + 1, 10).Value = 0
LogID = TL_SelectID
TL_SelectID = a
Ar_DBLogbook(a, 8) = ""
Ar_DBLogbook(a, 9) = ""
Ar_DBLogbook(a, 10) = 0
Log_edit = True
Call SQL_Export_Mod(AppPath & "\DB\Logbook.mdb", "Log")
Log_edit = False
TL_SelectID = LogID
Exit For
End If
Next a
Worksheets("DB_Store").Activate
ActiveWorkbook.Worksheets("DB_Store").Sort.SortFields.Clear
ActiveWorkbook.Worksheets("DB_Store").Sort.SortFields.Add Key:=Range( _
"A2:A1000001"), SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:= _
xlSortNormal
With ActiveWorkbook.Worksheets("DB_Store").Sort
.SetRange Range("A1:M1000001")
.Header = xlYes
.MatchCase = False
.Orientation = xlTopToBottom
.SortMethod = xlPinYin
.Apply
End With
AzStore = Worksheets("Data").Cells(7, 5).Value
If AzStore > 0 Then
Ar_DBStore = Worksheets("DB_Store").Range("A2:M" & AzStore + 1)
Else
Ar_DBStore = Worksheets("DB_Store").Range("A2:M2")
End If
ST_SelectID = 0
Me.BTN_ST_Tab1.BackColor = 0
Me.BTN_ST_Tab1.ForeColor = &HFFFFFF
Me.BTN_ST_Tab2.BackColor = 0
Me.BTN_ST_Tab2.ForeColor = &HFFFFFF
If StoreCat = 2 Then
Call Setup_CZH
If AzCZH - 9 < 0 Then
Me.ST_Scrollbar.Max = 0
Else
Me.ST_Scrollbar.Max = AzCZH - 9
If AzCZH > 18 Then
Me.ST_Scrollbar.LargeChange = 9
Else
Me.ST_Scrollbar.LargeChange = AzCZH - 9
End If
End If
End If
If StoreCat = 3 Then
Call Setup_CZL
If AzCZL - 9 < 0 Then
Me.ST_Scrollbar.Max = 0
Else
Me.ST_Scrollbar.Max = AzCZL - 9
If AzCZL > 18 Then
Me.ST_Scrollbar.LargeChange = 9
Else
Me.ST_Scrollbar.LargeChange = AzCZL - 9
End If
End If
End If
If StoreCat = 5 Then
Call Setup_PS
If AzPS - 9 < 0 Then
Me.ST_Scrollbar.Max = 0
Else
Me.ST_Scrollbar.Max = AzPS - 9
If AzPS > 18 Then
Me.ST_Scrollbar.LargeChange = 9
Else
Me.ST_Scrollbar.LargeChange = AzPS - 9
End If
End If
End If
If StoreCat = 6 Then
Call Setup_POI
If AzPOI - 9 < 0 Then
Me.ST_Scrollbar.Max = 0
Else
Me.ST_Scrollbar.Max = AzPOI - 9
If AzPOI > 18 Then
Me.ST_Scrollbar.LargeChange = 9
Else
Me.ST_Scrollbar.LargeChange = AzPOI - 9
End If
End If
End If
If StoreCat = 8 Then
Call Setup_RE
If AzRE - 9 < 0 Then
Me.ST_Scrollbar.Max = 0
Else
Me.ST_Scrollbar.Max = AzRE - 9
If AzRE > 18 Then
Me.ST_Scrollbar.LargeChange = 9
Else
Me.ST_Scrollbar.LargeChange = AzRE - 9
End If
End If
End If
For a = 1 To 9
'------> Select
iName1 = itxt1 & a
Me.Controls(iName1).Visible = False
'------> Back
iName2 = itxt2 & a
Me.Controls(iName2).Visible = False
'------> Star
iName3 = itxt3 & a
Me.Controls(iName3).Visible = False
'------> Distance
iName4 = itxt4 & a
Me.Controls(iName4).Visible = False
'------> Location
iName5 = itxt5 & a
Me.Controls(iName5).Visible = False
Next a
Call ST_Scrollbar_Change
Me.ST_Note.Value = ""
Me.TXT_ST_NoteCounter.Caption = 254 - Len(Me.ST_Note.Text)
Call Command_Buttons_Reset
Exit Sub
End If

If Me.BTN_Com2_Label.Caption = "EDIT LOCATION" Then
iTxt = "ST_Back"
For a = 1 To 9
iName = iTxt & a
If Me.Controls(iName).BackColor = TCE_Color Then
Me.ST_TB_Location.Top = Me.Controls(iName).Top
iTxt = "ST_Loc"
iName = iTxt & a
Me.ST_TB_Location.Text = Me.Controls(iName).Caption
Me.ST_TB_Location.Visible = True
Me.ST_TB_Location.SetFocus
Exit For
End If
Next a
Call Command_Buttons_Reset
Me.BTN_Com1.Visible = True
Me.BTN_Com1_Back.Visible = True
Me.BTN_Com1_Label.Caption = "CANCEL"
Me.BTN_Com1_Label.Visible = True
Exit Sub
End If
If Me.BTN_Com2_Label.Caption = "CANCEL" Then
Me.ST_TB_Location.Visible = False
If StoreCat = 1 Then
a = Ar_DBBM(ST_SelectID, 4)
End If
If StoreCat = 2 Then
a = Ar_DBCZH(ST_SelectID, 4)
End If
If StoreCat = 3 Then
a = Ar_DBCZL(ST_SelectID, 4)
End If
If StoreCat = 4 Then
a = Ar_DBOF(ST_SelectID, 4)
End If
If StoreCat = 5 Then
a = Ar_DBPS(ST_SelectID, 4)
End If
If StoreCat = 6 Then
a = Ar_DBPOI(ST_SelectID, 4)
End If
If StoreCat = 7 Then
a = Ar_DBRC(ST_SelectID, 4)
End If
If StoreCat = 8 Then
a = Ar_DBRE(ST_SelectID, 4)
End If
If StoreCat = 9 Then
a = Ar_DBSY(ST_SelectID, 4)
End If
Call Command_Buttons_Reset
If ActualStarID <> a Then
Me.BTN_Com1.Visible = True
Me.BTN_Com1_Back.Visible = True
Me.BTN_Com1_Label.Caption = "SET AS DESTINATION"
Me.BTN_Com1_Label.Visible = True
Me.BTN_Com2.Visible = True
Me.BTN_Com2_Back.Visible = True
Me.BTN_Com2_Label.Caption = "DELETE"
Me.BTN_Com2_Label.Visible = True
If StoreCat = 2 Or StoreCat = 3 Or StoreCat = 6 Or StoreCat = 8 Then
Me.BTN_Com3.Visible = True
Me.BTN_Com3_Back.Visible = True
Me.BTN_Com3_Label.Caption = "EDIT LOCATION"
Me.BTN_Com3_Label.Visible = True
End If
Else
Me.BTN_Com1.Visible = True
Me.BTN_Com1_Back.Visible = True
Me.BTN_Com1_Label.Caption = "DELETE"
Me.BTN_Com1_Label.Visible = True
If StoreCat = 2 Or StoreCat = 3 Or StoreCat = 6 Or StoreCat = 8 Then
Me.BTN_Com3.Visible = True
Me.BTN_Com3_Back.Visible = True
Me.BTN_Com3_Label.Caption = "EDIT LOCATION"
Me.BTN_Com3_Label.Visible = True
End If
End If
Exit Sub
End If

End Sub

Private Sub BTN_Com3_Click()

Dim iTxt As String, iName As Variant, a As Long, Ar_Temp As Variant, b As Long
Dim itxt1 As String, itxt2 As String, itxt3 As String, itxt4 As String, itxt5 As String, itxt6 As String, itxt7 As String, itxt8 As String, itxt9 As String, itxt10 As String, id As Integer
Dim iName1 As Variant, iName2 As Variant, iName3 As Variant, iName4 As Variant, iName5 As Variant, iName6 As Variant, iName7 As Variant, iName8 As Variant, iName9 As Variant, iName10 As Variant

If Me.BTN_Com3_Label.Caption = "EDIT LOCATION" Then
iTxt = "ST_Back"
For a = 1 To 9
iName = iTxt & a
If Me.Controls(iName).BackColor = TCE_Color Then
Me.ST_TB_Location.Top = Me.Controls(iName).Top
iTxt = "ST_Loc"
iName = iTxt & a
Me.ST_TB_Location.Text = Me.Controls(iName).Caption
Me.ST_TB_Location.Visible = True
Me.ST_TB_Location.SetFocus
Exit For
End If
Next a
Call Command_Buttons_Reset
Me.BTN_Com1.Visible = True
Me.BTN_Com1_Back.Visible = True
Me.BTN_Com1_Label.Caption = "CANCEL"
Me.BTN_Com1_Label.Visible = True
Exit Sub
End If

End Sub

Will check it.

eventure · Jun 2, 2015

Update (V1.40 Beta 13) released:

Full-Version 1.40 Beta 1 installer: http://bit.ly/1Fhmh0B
Full-Version 1.40 Beta 1 non-installer: http://bit.ly/1IJtvgi
Update 1.40 Beta 13: http://bit.ly/1AJdDJR (Full-Version V1.40 Beta 1 required)

Changelog:
- Fixed issues in Stored Locations: removed note indicator on selecting an entry, outfitting shows station notes, error in saving location notes.
- Fixed issue in TCE database: field size of station/outfit notes too small.

Abil Midena · Jun 2, 2015

Hi Eventure,

I was using 1.39 with no problems. Thank you!

I downloaded 1.40 beta, installed, then downloaded and pasted in 1.40 beta 12.

I am adding systems/commodities just fine. I added Scirth and GA GU. However, when I go to YE'KUANA. It will not let me add the station, giving multiple errors. However, when I leave that system and go somewhere else, it's fine. Notice the apostrophe after the first 'E' in the name YE'KUANA. I think that may be causing the problem. The station name is HOWARD.
The error given is:

Syntax error (missing operator) in query expression
"YE'KUANA','4','1','0','12:00:00 AM','12:00:00
AM','4','38','1','1','1','126','17095','0','0',",")'.
Then:

Subscript out of range.

Then:

Error is saving station.
Error line 410.

Add station: True
Reg station: false
mod station: false
Error (9) subscript out of range.

Then same error, except "Error line 470".

eventure · Jun 2, 2015

Abil Midena said:
Hi Eventure,

I was using 1.39 with no problems. Thank you!

I downloaded 1.40 beta, installed, then downloaded and pasted in 1.40 beta 12.

I am adding systems/commodities just fine. I added Scirth and GA GU. However, when I go to YE'KUANA. It will not let me add the station, giving multiple errors. However, when I leave that system and go somewhere else, it's fine. Notice the apostrophe after the first 'E' in the name YE'KUANA. I think that may be causing the problem. The station name is HOWARD.
The error given is:

Syntax error (missing operator) in query expression
"YE'KUANA','4','1','0','12:00:00 AM','12:00:00
AM','4','38','1','1','1','126','17095','0','0',",")'.
Then:

Subscript out of range.

Then:

Error is saving station.
Error line 410.

Add station: True
Reg station: false
mod station: false
Error (9) subscript out of range.

Then same error, except "Error line 470".

You are correct, the apostrophe is the problem. It affects all string data, like names and notes.

Fixed in tomorrow release.

Abil Midena · Jun 3, 2015

Eventure said:
You are correct, the apostrophe is the problem. It affects all string data, like names and notes.

Fixed in tomorrow release.

Thank you sir!

Bragolatch · Jun 3, 2015

Beta 13 Error Line 10

Eventure said:
Update (V1.40 Beta 13) released:

Full-Version 1.40 Beta 1 installer: http://bit.ly/1Fhmh0B

Full-Version 1.40 Beta 1 non-installer: http://bit.ly/1IJtvgi

Update 1.40 Beta 13: http://bit.ly/1AJdDJR (Full-Version V1.40 Beta 1 required)

Changelog:
- Fixed issues in Stored Locations: removed note indicator on selecting an entry, outfitting shows station notes, error in saving location notes.
- Fixed issue in TCE database: field size of station/outfit notes too small.

Starting TCE with Beta 13 for the first time I got :

and Auto Destination was showing me a station 3000 ly away with SET JUMP LIMIT at 26 and SET TRADE RANGE at 60.

I reset both with the same numbers and everything seems back to normal.

I also re-started TCE and did not get the startup error again.

All of the previously mentioned Stored Locations bugs are fix except for a minor one :
In Outfittings if you select a station and press the scroll bar, the highlight disappears so that you do not see which station is selected anymore unless you select another one.
By contrast, it works properly in Stored Locations - BlackMarkets where the same actions do not cause the highlight to disappear !

A request for something else entirely :
EDIT REGISTERED STATION
When I click on SELECT SPACE STATION
I get a drop down list with a scroll bar, but there is no sorting, all the station and systems are mixed !
and as soon as I type 1 letter, a station, probably the first one in that random list beginning with that letter, is selected.

Would it be possible to sort them alphabetically and/or allow for a typing search of more then one letter ?

Abil Midena · Jun 3, 2015

Eventure said:
@All

Please tell me, if you having problems like Bragolatch deleting notes of star systems via Database, Trade or Cartography panel, so it is empty and then saving it. I cant recreate that issue. Thanks in advance.

No problem. You have only to delete all stations listed at the Stations_UR table of the TCE.mdb.

I'm trying to use TCE with only the stations I've been to. This de-clutters the trade panel.

The method above worked for me with 1.39. With 1.40 beta 12, it causes all kinds of errors on starting TCE. Is there a new way to get rid of all the pre-installed stations?

Grumpy181155 · Jun 3, 2015

Eventure.
I have been using the TCR for about two weeks now and I love it. It has taken away all the need to write stuff down on pieces of paper. Now when I get a mission to buy x amount of 'unobtainium' a quick search tells me where the nearest and cheapest source of 'unobtainium' is AND what that station is buying so I am making credits on both legs of the trip. It has made playing the game more enjoyable and more profitable. It should have been included in the game itself. Anyway, thanks for taking the time and effort to make this. You deserve to be rewarded and I have just thrown a little love your way.
Brian

edit - I would recommend anyone who uses Evenure's TCE regularly and finds it useful to make a small donation.

Bragolatch · Jun 3, 2015

Abil Midena said:
I'm trying to use TCE with only the stations I've been to. This de-clutters the trade panel.

The method above worked for me with 1.39. With 1.40 beta 12, it causes all kinds of errors on starting TCE. Is there a new way to get rid of all the pre-installed stations?

Just copy your TCE.mdb from 1.39 to overwrite the one that comes with 1.40
That is where all the systems and stations info are stored.

If you have done this then you have exactly the same info in 1.40 beta 12 as you had in 1.39.

If you are seeing more, maybe adjust your SET JUMP LIMIT and SET TRADE RANGE in the TRADE PANEL.

john211murphy · Jun 3, 2015

With V1.40 Beta 13, I get a Pop-Up Box on startup asking for "Please Enter Microsoft Access Database Engine OLE DB Initialization Information"

It seems to be asking for "username/password and Provider String" information.
Where can I get this information from?

Using Office 2013

Regards

Bragolatch · Jun 3, 2015

john211murphy said:
With V1.40 Beta 13, I get a Pop-Up Box on startup asking for "Please Enter Microsoft Access Database Engine OLE DB Initialization Information"

It seems to be asking for "username/password and Provider String" information.
Where can I get this information from?

Using Office 2013

Regards

If you do not have a full & updated version of Access you need the Runtime as specified on the first page of this tread :
Excel 2013 User: Please install this https://www.microsoft.com/en-us/down....aspx?id=39358, if you got an error 1004 at start.

if you do, then my guess is that you have not installed the certificates properly.

Did you run the prestart.bat as admin ?

Also Check out :
Yokai's very nice guide for TCE : https://forums.frontier.co.uk/showthread.php?t=119873

INSTALLATION TIPS
In the yellow warning bar, click Options.
In the window that appears, click Open the Trust Center.
In the Trust Center window, select the Trusted Locations tab.
In the Trusted Locations page, click Add new location.
In the window that appears, click Browse and select the TCE folder. Also select the checkbox for Subfolders of this location are also trusted.
Click OK.
Back at the Trust Center window, click OK again, and OK one more time to close the Security Alert window.
You're now back at Excel and the yellow warning bar is gone, but the spreadsheet still says simply "If TCE doesn't start, macros are deactivated".
Close Excel entirely. You'll get a warning dialog about whether to save changes to TCE.xlsm. Click Don't Save.

That did it for me on Office 2013 x64 !

eventure · Jun 3, 2015

john211murphy said:
With V1.40 Beta 13, I get a Pop-Up Box on startup asking for "Please Enter Microsoft Access Database Engine OLE DB Initialization Information"

It seems to be asking for "username/password and Provider String" information.
Where can I get this information from?

Using Office 2013

Regards

Did you have the database open in the back? Are all databases present in the DB folder? What database does the popup say, you cant open?

Bragolatch said:
Double-click TCE.xlsm (or the shortcut you created for it) to reopen TCE. This time the spreadsheet will appear briefly, disappear, and you'll now see the PRE-START CONFIGURATION PANEL for TCE

This panel is gone since the TCE_setup.

Ice30 · Jun 3, 2015

Hi Eventure, thanks for all your work so far. I have a bug to report since updating to the newest version. It seems to only happen when I have the trade route lock on and I enter a star along the way. This error keeps popping up until i exit the star or turn the trade route lock off. Hope you can help as its quite annoying

Abil Midena · Jun 3, 2015

Bragolatch said:
Just copy your TCE.mdb from 1.39 to overwrite the one that comes with 1.40
That is where all the systems and stations info are stored.

If you have done this then you have exactly the same info in 1.40 beta 12 as you had in 1.39.

If you are seeing more, maybe adjust your SET JUMP LIMIT and SET TRADE RANGE in the TRADE PANEL.

Sure, but some moron deleted his mdb when hit clicked "copy and overwrite" when he installed 1.40. (that would be me). I sat there and knowingly did it, figuring I only had about 15 stations in there anyway. That was true, but now I have the 'too many stations' problem and can't get rid of it. I'll try your suggestions, thanks.

eventure · Jun 3, 2015

Ice30 said:
Hi Eventure, thanks for all your work so far. I have a bug to report since updating to the newest version. It seems to only happen when I have the trade route lock on and I enter a star along the way. This error keeps popping up until i exit the star or turn the trade route lock off. Hope you can help as its quite annoying

View attachment 40791

Did you arrived at a station before you activated the Trade Scout or after loading your save? Did you using the Powerplay beta?

Ice30 · Jun 3, 2015

It seems to come up regardless. I just unloaded TCE and reloaded it as I was sitting at one end of my trade route and sure enough it happened at the same intermediate system. Could it be a problem with my DB?

eventure · Jun 3, 2015

Ice30 said:
It seems to come up regardless. I just unloaded TCE and reloaded it as I was sitting at one end of my trade route and sure enough it happened at the same intermediate system. Could it be a problem with my DB?

When entering a star system, did you see at the Position Display "(The Star System Name): NEAR PRIMARY STAR", or getting the error immediately ?
Are you using the Powerplay beta??