after i excute this following code by a Bevel Button (saveItemButton) it goes and remains inactive
button attributes
Visible ON
AutoDeactivate OFF
Enabled ON
hasMenu NO
Bevel Small Bevel
Icon Custom
Button Type Button
AcceptFocus OFF
[code]// Public Function LoadItem(filePath As String, fileName As String)
Dim FileArr(20) As String
Dim rtnArr(20) As String
Dim InvC As Integer
Dim TempArr(20) As String
Dim DataLine(15) As String
Dim filenum As Integer
Dim virtualWidthHeight As String
Dim virtualPricing As String
Dim ClipB As Clipboard
Dim fileName As String = MainWin.ItemList.Text
Dim Arr1(20) As String
Dim Arr2(30) As String
Dim line As String
Dim strBuf As String
Dim errorText As Text
Dim t As TextInputStream
Dim lc As Integer
Try
t = TextInputStream.Open(readPath)
lc = 0
While Not t.EOF
FileArr(lc) = t.ReadLine
lc = lc + 1
Wend
t.Close
MainWin.ItemSaleFreq.Text = “”
MainWin.ItemSalePerc.Text = “”
//ItemCost.Text = “”
MainWin.ItemInvLink.Text = “”
MainWin.ItemBulkFlag.Text = “”
MainWin.ItemCalcSale.Text = “No Sale Info”
DataLine = Split(FileArr(0), “|”)
// ******** //
MainWin.ItemTitle.Text = DataLine(0)
MainWin.ItemPrice.Text = DataLine(1)
MainWIn.ItemWeight.Text = DataLine(2)
MainWin.ItemLocation.Text = DataLine(3)
MainWin.ItemPreBuilt.Text = DataLine(4)
MainWin.ItemCode.Text = DataLine(5)
MainWin.ItemSaleFreq.Text = DataLine(6)
MainWin.ItemSalePerc.Text = DataLine(7)
MainWin.ItemKeywords.Text = DataLine(8)
’ load inv Links
MainWin.ItemInvLink.DeleteAllRows
If DataLine(9) <> “” Then
rtnArr = Split(DataLine(9), “,”)
For InvC = 0 To UBound(rtnArr)
MainWin.ItemInvLink.AddRow(rtnArr(InvC))
Next InvC
’ ItemInvLink.Text = Replace(ItemInvLink.List(0), “.dat”, “”) 'transfer first item to top of list
MainWin.ItemInvLink.Text = MainWin.ItemInvLink.List(0)
End If
If UBound(DataLine) > 9 Then
MainWin.ItemBulkFlag.Text = DataLine(10)
End If
MainWin.ItemDescription.Text = ReplaceAll(FileArr(1), “
”, Chr(13))
MainWin.ItemDetails.Text = FileArr(2)
MainWin.ItemVenderURL.Text = FileArr(3)
’ Inventory Link(s)
If MainWin.ItemInvLink.Text <> “” And CmpPattern(MainWin.ItemInvLink.Text, “(?i)[a-z][a-z][a-z]\-[0-9]+$”) = True Then
rtnArr = GetInvLinkValue(GetDataFolder.Child(SoftName).Child(“Data”).Child(“pro”).Child(MainWin.ItemInvLink.Text + “.dat”))
'ItemWholeSale.Text = rtnArr(0)
MainWin.ItemInventory.Text = rtnArr(1)
Else
MainWin.ItemInventory.Text = FileArr(4)
End If
MainWin.ItemRemoteUrl.Text = “http://shop.bestlove.net/cgi-bin/vid.pl?item=” + MainWin.ItemCode.Text
If MainWin.ItemSaleFreq.Text > “” Then
MainWin.ItemCalcSale.Text = CalculateSale(MainWin.ItemPrice.Text, MainWin.ItemSaleFreq.Text, MainWin.ItemSalePerc.Text)
Else
MainWin.ItemCalcSale.Text = “”
End If
fileName = Replace(fileName, “.dat”, “”)
MainWin.Status.Text = MainWin.ItemList.Text + " … Loaded"
MainWin.ItemSaveButton.Enabled = False
If CmpPattern( MainWin.ItemKeywords.Text, “(?i)amazon”) = True Then
//AmazonStockCk = 1
Else
//AmazonStockCk = 0
End If
//If CopyToClipboardck = 1 Then
///ClipB.SetText ViewItemUrl.Text + “|” + ItemTitle.Text + " Best Love"
//End If
If MainWin.ItemBulkFlag.Text <> “” And MainWin.ItemSaleFreq.Text <> “” And MainWin.ItemSalePerc.Text <> “” Then
MsgBox “Warning! On Sale Fields and Bulk Sale Fields are both set, only one option allowed at one time”
End If
Catch e As IOException
errorText = "File IO Error: " + e.Reason
End Try
[/code]