1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
|
<?xml version="1.0" encoding="UTF-8"?>
<!DOCTYPE script:module PUBLIC "-//OpenOffice.org//DTD OfficeDocument 1.0//EN" "module.dtd">
<script:module xmlns:script="http://openoffice.org/2000/script" script:name="Lang_en" script:language="StarBasic">Option Explicit
Sub LoadEnglishLanguage()
sProductname = GetProductname
sOK = "~OK"
sCancel = "Cancel"
sColumnHeader = "Column Header"
sInsertStockName = "Please enter shares in your portfolio."
sTitle = "<PRODUCTNAME>: Stocks Manager"
sTitle = ReplaceString(sTitle, sProductName, "<PRODUCTNAME>")
sMsgError = "Input Error"
sMsgNoName = sInsertStockname
sMsgNoQuantity = "Please enter a quantity larger than 0"
sMsgNoDividend = "Please enter the dividend per share or the total dividend"
sMsgNoExchangeRate = "Please enter the correct exchange rate (old shares -> new shares)"
sMsgNoValidExchangeDate = "Please enter a valid date for the split."
sMsgWrongExchangeDate = "Splitting not possible, as transactions already exist after the split date."
sMsgSellTooMuch = "You cannot sell that many shares. Maximum: "
sMsgConfirm = "Confirmation Required"
sMsgFreeStock = "Do you intend to enter free shares?"
sMsgTotalLoss = "Do you intend to enter a total loss?"
sMsgAuthorization = "Security Query"
sMsgDeleteAll = "Do you want to delete all movements and reset the portfolio overview?"
cSplit = "Stock split on "
sHistory = "History"
TransactTitle(1) = "StarOffice Stocks Manager: Selling Shares"
TransactTitle(2) = "StarOffice Stocks Manager: Buying Shares"
StockRatesTitle(1) = "StarOffice Stocks Manager: Dividend Payment"
StockRatesTitle(2) = "Stock Split"
StockRatesTitle(3) = sHistory
sDepotCurrency = "Portfolio Currency"
sStockName = "Name of Stock"
TransactMode = LIFO ' Possible values: "FIFO" and "LIFO"
DateCellStyle = "Result Date"
CurrCellStyle = "1"
sStartDate = "Start date:"
sEndDate = "End date:"
sStartUpWelcome = "This template enables you to manage your stock portfolio efficiently."
sStartUpChooseMarket = "First, select your reference currency and thus the stock exchange for the Internet update."
sStartUpHint = "Unfortunately, the only <History> function available to you is that for the American market."
sStartupHint = ReplaceString(sStartUpHint, sHistory, "<History>")
sNoInternetUpdate = "without Internet update"
sMarketPlace = "Stock exchange:"
sNoInternetDataAvailable = "No prices could be received from the Internet!"
sCheckInternetSettings = "Possible causes could be: <BR>Your Internet settings have to be modified. <BR>The Symbol (e.g. Code, Ticker Symbol) entered for the stock was incorrect."
sCheckInternetSettings = ReplaceString(sCheckInternetSettings, chr(13), "<BR>")
sMsgEndDatebeforeNow = "The end date has to be before today's date."
sMsgStartDatebeforeEndDate = "The start date has to be before the end date."
sMarket(0,0) = "American Dollar"
sMarket(0,1) = "$"
sMarket(0,2) = "New York"
sMarket(0,3) = "http://finance.yahoo.com/d/quotes.csv?s=<StockID>&f=sl1d1t1c1ohgv&e=.csv"
sMarket(0,4) = "http://ichart.finance.yahoo.com/table.csv?" &_
"s=<StockID>&d=<EndMonth>&e=<EndDay>&f=<Endyear>&g=d&" &_
"a=<StartMonth>&b=<StartDay>&c=<Startyear>&ignore=.csv"
sMarket(0,5) = "Symbol"
sMarket(0,6) = "en"
sMarket(0,7) = "US"
sMarket(0,8) = "409"
sMarket(0,9) = "44"
sMarket(0,10) = "1"
sMarket(1,0) = "Euro"
sMarket(1,1) = chr(8364)
sMarket(1,2) = "Frankfurt"
sMarket(1,3) = "http://de.finance.yahoo.com/d/quotes.csv?s=<StockID>.F&f=sl1t1c1ghpv&e=.csv"
sMarket(1,5) = "Ticker Symbol"
sMarket(1,6) = "de;nl;pt;el"
sMarket(1,7) = "DE;NL;PT;GR"
sMarket(1,8) = "407;413;816;408"
sMarket(1,9) = "59/9"
sMarket(1,10) = "1"
sMarket(2,0) = "British Pound"
sMarket(2,1) = "£"
sMarket(2,2) = "London"
sMarket(2,3) = "http://uk.finance.yahoo.com/d/quotes.csv?s=<StockID>.L&m=*&f=sl1t1c1ghov&e=.csv"
sMarket(2,5) = "Symbol"
sMarket(2,6) = "en"
sMarket(2,7) = "GB"
sMarket(2,8) = "809"
sMarket(2,9) = "44"
sMarket(2,10) = "1"
sMarket(3,0) = "Japanese Yen"
sMarket(3,1) = "¥"
sMarket(3,2) = "Tokyo"
sMarket(3,3) = ""
sMarket(3,5) = "Code"
sMarket(3,6) = "ja"
sMarket(3,7) = "JP"
sMarket(3,8) = "411"
sMarket(3,9) = ""
sMarket(3,10) = ""
sMarket(4,0) = "Hong Kong Dollar"
sMarket(4,1) = "HK$"
sMarket(4,2) = "Hong Kong"
sMarket(4,3) = "http://hk.finance.yahoo.com/d/quotes.csv?s=<StockID>&f=sl1d1t1c1ohgv&e=.csv"
sMarket(4,5) = "Number"
sMarket(4,6) = "zh"
sMarket(4,7) = "HK"
sMarket(4,8) = "C04"
sMarket(4,9) = "44"
sMarket(4,10) = "1"
sMarket(5,0) = "Australian Dollar"
sMarket(5,1) = "$"
sMarket(5,2) = "Sydney"
sMarket(5,3) = "http://au.finance.yahoo.com/d/quotes.csv?s=<StockID>&f=sl1d1t1c1ohgv&e=.csv"
sMarket(5,5) = "Symbol"
sMarket(5,6) = "en"
sMarket(5,7) = "AU"
sMarket(5,8) = "C09"
sMarket(5,9) = "44"
sMarket(5,10) = "1"
' ****************************End of the default subset*********************************
CompleteMarketList()
LocalizedCurrencies()
With TransactModel
.lblStockNames.Label = sStockname
.lblQuantity.Label = "Quantity"
.lblRate.Label = "Price"
.lblDate.Label = "Transaction Date"
.hlnCommission.Label = "Other expenditures"
.lblCommission.Label = "Commission"
.lblMinimum.Label = "Min. Commission"
.lblFix.Label = "Fixed Costs/Charges"
.cmdGoOn.Label = sOK
.cmdCancel.Label = sCancel
End With
With StockRatesModel
.optPerShare.Label = "Dividends/Stocks"
.optTotal.Label = "Total Dividends"
.lblDividend.Label = "Amount"
.lblExchangeRate.Label = "Exchange Rate (old->new)"
.lblColon.Label = ":"
.lblDate.Label = "Exchange Date:"
.lblStockNames.Label = sStockname
.lblStartDate.Label = sStartDate
.lblEndDate.Label = sEndDate
.optDaily.Label = "~Daily"
.optWeekly.Label = "~Weekly"
.hlnInterval.Label = "Time period"
.cmdGoOn.Label = sOk
.cmdCancel.Label = sCancel
End With
End Sub
</script:module>
|
