1cdf0e10cSrcweir<?xml version="1.0" encoding="UTF-8"?>
2cdf0e10cSrcweir<!DOCTYPE script:module PUBLIC "-//OpenOffice.org//DTD OfficeDocument 1.0//EN" "module.dtd">
3*3e02b54dSAndrew Rist<!--***********************************************************
4*3e02b54dSAndrew Rist *
5*3e02b54dSAndrew Rist * Licensed to the Apache Software Foundation (ASF) under one
6*3e02b54dSAndrew Rist * or more contributor license agreements.  See the NOTICE file
7*3e02b54dSAndrew Rist * distributed with this work for additional information
8*3e02b54dSAndrew Rist * regarding copyright ownership.  The ASF licenses this file
9*3e02b54dSAndrew Rist * to you under the Apache License, Version 2.0 (the
10*3e02b54dSAndrew Rist * "License"); you may not use this file except in compliance
11*3e02b54dSAndrew Rist * with the License.  You may obtain a copy of the License at
12*3e02b54dSAndrew Rist *
13*3e02b54dSAndrew Rist *   http://www.apache.org/licenses/LICENSE-2.0
14*3e02b54dSAndrew Rist *
15*3e02b54dSAndrew Rist * Unless required by applicable law or agreed to in writing,
16*3e02b54dSAndrew Rist * software distributed under the License is distributed on an
17*3e02b54dSAndrew Rist * "AS IS" BASIS, WITHOUT WARRANTIES OR CONDITIONS OF ANY
18*3e02b54dSAndrew Rist * KIND, either express or implied.  See the License for the
19*3e02b54dSAndrew Rist * specific language governing permissions and limitations
20*3e02b54dSAndrew Rist * under the License.
21*3e02b54dSAndrew Rist *
22*3e02b54dSAndrew Rist ***********************************************************-->
23cdf0e10cSrcweir<script:module xmlns:script="http://openoffice.org/2000/script" script:name="CommonLang" script:language="StarBasic">REM  *****  BASIC  *****
24cdf0e10cSrcweir
25cdf0e10cSrcweir
26cdf0e10cSrcweir&apos; Column A has the index 1
27cdf0e10cSrcweirPublic Const SBCOLUMNNAME1 = 3			&apos; Stock names, sheet 1
28cdf0e10cSrcweirPublic Const SBCOLUMNID1 = 4			&apos; Stock ID, sheet 1
29cdf0e10cSrcweirPublic Const SBCOLUMNQUANTITY1 = 5		&apos; Stock quantity sheet 1
30cdf0e10cSrcweirPublic Const SBCOLUMNRATE1 = 7			&apos; Price for stocks, sheet 1
31cdf0e10cSrcweirPublic Const SBCOLUMNNAME2 = 3			&apos; Stock names, sheet 2
32cdf0e10cSrcweirPublic Const SBCOLUMNDATE2 = 4			&apos; Transaction dates, sheet 2
33cdf0e10cSrcweirPublic Const SBCOLUMNQUANTITY2 = 5		&apos; Transaction quantity, sheet 2
34cdf0e10cSrcweirPublic Const SBCOLUMNRATE2 = 6			&apos; Price for stocks, sheet 2
35cdf0e10cSrcweirPublic Const SBCOLUMNPROVPERCENT2 = 7	&apos; Provision in %, sheet 2
36cdf0e10cSrcweirPublic Const SBCOLUMNPROVMIN2 = 8		&apos; Minimum provision, sheet 2
37cdf0e10cSrcweirPublic Const SBCOLUMNPROVFIX2 = 9		&apos; Fixed provision, sheet 2
38cdf0e10cSrcweirPublic Const SBCOLUMNPROCEEDS2 = 12		&apos; Profit, sheet 2
39cdf0e10cSrcweirPublic Const SBCOLUMNQTYSOLD2 = 14		&apos; Quantity sold, sheet 2
40cdf0e10cSrcweirPublic Const SBCOLUMNQTYREST2 = 15		&apos; Quantity not sold yet, sheet 2
41cdf0e10cSrcweirPublic Const SBCOLUMNPRCREST2 = 16		&apos; Proportional proce for quantity not sold yet, sheet 2
42cdf0e10cSrcweirPublic Const SBCOLUMNREALPROC2 = 17		&apos; Realized proceeds, sheet 2
43cdf0e10cSrcweirPublic Const SBCOLUMNDIVIDEND2 = 18		&apos; Dividend paid, sheet 2
44cdf0e10cSrcweirPublic Const SBCOLUMNREALPROFIT2 = 19	&apos; Realized profit, sheet 2
45cdf0e10cSrcweirPublic Const SBROWFIRSTTRANSACT2 = 8	&apos; First data row, sheet 2
46cdf0e10cSrcweirPublic Const SBROWHEADER1 = 6			&apos; Headline, sheet 1
47cdf0e10cSrcweirPublic Const SBMSGOK = 0
48cdf0e10cSrcweirPublic Const SBMSGYESNO = 4
49cdf0e10cSrcweirPublic Const SBMSGSTOP = 16
50cdf0e10cSrcweirPublic Const SBMSGQUESTION = 32
51cdf0e10cSrcweirPublic Const SBMSGDEFAULTBTN2 = 256
52cdf0e10cSrcweirPublic Const SBHASID = 1				&apos; 0 = no ID, 1 = stocks have an ID
53cdf0e10cSrcweirPublic Const SBDIALOGSELL = 1			&apos; Step for main dialog
54cdf0e10cSrcweirPublic Const SBDIALOGBUY = 2			&apos; Step for main dialog
55cdf0e10cSrcweirPublic Const SBBINARY = 0
56cdf0e10cSrcweirPublic TransactMode as Integer
57cdf0e10cSrcweirPublic Const LIFO = -1
58cdf0e10cSrcweirPublic Const FIFO = 1
59cdf0e10cSrcweir
60cdf0e10cSrcweirPublic Const HANDLEDIVIDEND = 1
61cdf0e10cSrcweirPublic Const HANDLESPLIT = 2
62cdf0e10cSrcweir
63cdf0e10cSrcweirGlobal oDocument as Object
64cdf0e10cSrcweirGlobal oDocFormats() as Object
65cdf0e10cSrcweirGlobal oController as Object
66cdf0e10cSrcweirGlobal oFirstSheet as Object
67cdf0e10cSrcweirGlobal oBankSheet as Object
68cdf0e10cSrcweirGlobal oMovementSheet as Object
69cdf0e10cSrcweirGlobal sDocLanguage as String
70cdf0e10cSrcweirGlobal sDocCountry as String
71cdf0e10cSrcweirGlobal oSheets as Object
72cdf0e10cSrcweirGlobal oDocLocale as New com.sun.star.lang.Locale
73cdf0e10cSrcweirGlobal bEnableMarket as Boolean
74cdf0e10cSrcweirGlobal bEnableInternet as Boolean
75cdf0e10cSrcweirGlobal oMarketModel as Object
76cdf0e10cSrcweirGlobal oInternetModel as Object
77cdf0e10cSrcweir
78cdf0e10cSrcweirGlobal sCurCurrency$, sCurExtension$, sCurChartSource$, sCurStockIDLabel$, sCurSeparator$
79cdf0e10cSrcweir
80cdf0e10cSrcweirPublic oNumberFormatter as Object
81cdf0e10cSrcweirPublic bDebugmode as Boolean
82cdf0e10cSrcweirGlobal GlobListindex as Integer
83cdf0e10cSrcweirPublic blabla() as String
84cdf0e10cSrcweirPublic SplitDate as Date
85cdf0e10cSrcweirPublic oChartSheet as Object
86cdf0e10cSrcweirPublic oBackgroundSheet as Object
87cdf0e10cSrcweirPublic Const SBDATECOLUMN = 3
88cdf0e10cSrcweirPublic Const SBVALUECOLUMN = 4
89cdf0e10cSrcweirPublic Const SBSTARTROW = 25
90cdf0e10cSrcweirPublic Const SBCHARTPERIOD = 14
91cdf0e10cSrcweirPublic Const SBINTERVAL = &quot;d&quot;
92cdf0e10cSrcweirPublic sColumnHeader as String
93cdf0e10cSrcweirPublic StartDate as Date
94cdf0e10cSrcweirPublic EndDate as Date
95cdf0e10cSrcweirPublic iCurRow as Integer
96cdf0e10cSrcweirPublic iMaxRow as Integer
97cdf0e10cSrcweirPublic iStartDay as Integer
98cdf0e10cSrcweirPublic iStartMonth as Integer
99cdf0e10cSrcweirPublic iStartYear as Integer
100cdf0e10cSrcweirPublic iEndDay as Integer
101cdf0e10cSrcweirPublic iEndMonth as Integer
102cdf0e10cSrcweirPublic iEndYear as Integer
103cdf0e10cSrcweirPublic oStatusLine as Object
104cdf0e10cSrcweirPublic Today as Date
105cdf0e10cSrcweirPublic sInterval as String
106cdf0e10cSrcweirPublic ShortMonths(11,1)
107cdf0e10cSrcweirPublic iStep as Integer
108cdf0e10cSrcweirPublic sDepotCurrency as String
109cdf0e10cSrcweirPublic iValueCol as Integer
110cdf0e10cSrcweir
111cdf0e10cSrcweirPublic DlgReference as Object
112cdf0e10cSrcweirPublic DlgTransaction as Object
113cdf0e10cSrcweirPublic DlgStockRates as Object
114cdf0e10cSrcweirPublic DlgStartUp as Object
115cdf0e10cSrcweirPublic TransactModel as Object
116cdf0e10cSrcweirPublic StockRatesModel as Object
117cdf0e10cSrcweirPublic StartUpModel as Object
118cdf0e10cSrcweirPublic StockRatesTitle(1 To 3)
119cdf0e10cSrcweirPublic TransactTitle(1 To 2)
120cdf0e10cSrcweirPublic NullList()
121cdf0e10cSrcweirPublic sStartupWelcome$, sStartupChooseMarket$, sStartupHint$
122cdf0e10cSrcweir
123cdf0e10cSrcweirPublic sMarket(7,10) as String
124cdf0e10cSrcweirPublic sCountryMarket(7,10) as String
125cdf0e10cSrcweir
126cdf0e10cSrcweirPublic cDlgCaption1$, cDlgCaption2$
127cdf0e10cSrcweirPublic sMsgError$, sMsgNoName$, sMsgNoQuantity$, sMsgNoDividend$, sMsgNoExchangeRate$
128cdf0e10cSrcweirPublic sMsgNoValidExchangeDate$, sMsgWrongExchangeDate$, sMsgSellTooMuch$, sMsgConfirm$
129cdf0e10cSrcweirPublic sMsgFreeStock$, sMsgTotalLoss$, sMsgEndDatebeforeNow$, sMsgStartDatebeforeEndDate$
130cdf0e10cSrcweir
131cdf0e10cSrcweirPublic sOk$, sCancel$
132cdf0e10cSrcweirPublic sMsgAuthorization$, sMsgDeleteAll$
133cdf0e10cSrcweirPublic SellMethod$
134cdf0e10cSrcweirPublic cSplit$
135cdf0e10cSrcweirGlobal HistoryChartSource as String
136cdf0e10cSrcweirPublic DateCellStyle as String
137cdf0e10cSrcweirPublic CurrCellStyle as String
138cdf0e10cSrcweirPublic sStartDate$, sEndDate$, sHistory$
139cdf0e10cSrcweirPublic sInsertStockname$
140cdf0e10cSrcweirPublic sProductname$, sTitle$
141cdf0e10cSrcweirPublic sInsertStocks$, sStockname$, sNoInternetUpdate$, sMarketplace$, sNoInternetDataAvailable$
142cdf0e10cSrcweirPublic sCheckInternetSettings as String
143cdf0e10cSrcweir
144cdf0e10cSrcweirSub LoadLanguage()
145cdf0e10cSrcweir	LoadDepotDialogs()
146cdf0e10cSrcweir	Select Case sDocLanguage
147cdf0e10cSrcweir		Case &quot;de&quot;
148cdf0e10cSrcweir			LoadGermanLanguage()
149cdf0e10cSrcweir		Case &quot;en&quot;
150cdf0e10cSrcweir			LoadEnglishLanguage()
151cdf0e10cSrcweir		Case &quot;fr&quot;
152cdf0e10cSrcweir			LoadFrenchLanguage()
153cdf0e10cSrcweir		Case &quot;it&quot;
154cdf0e10cSrcweir			LoadItalianLanguage()
155cdf0e10cSrcweir		Case &quot;es&quot;
156cdf0e10cSrcweir			LoadSpanishLanguage()
157cdf0e10cSrcweir		Case &quot;sv&quot;
158cdf0e10cSrcweir			LoadSwedishLanguage()
159cdf0e10cSrcweir		Case &quot;ja&quot;
160cdf0e10cSrcweir			LoadJapaneseLanguage()
161cdf0e10cSrcweir		Case &quot;ko&quot;
162cdf0e10cSrcweir			LoadKoreanLanguage()
163cdf0e10cSrcweir		Case &quot;zh&quot;
164cdf0e10cSrcweir			If sDocCountry = &quot;CN&quot; Then
165cdf0e10cSrcweir				LoadChineseSimpleLanguage()
166cdf0e10cSrcweir			Else
167cdf0e10cSrcweir				LoadChineseTradLanguage()
168cdf0e10cSrcweir			End If
169cdf0e10cSrcweir	End Select
170cdf0e10cSrcweir	InitializeStartUpModel()
171cdf0e10cSrcweirEnd Sub
172cdf0e10cSrcweir
173cdf0e10cSrcweirSub CompleteMarketList()
174cdf0e10cSrcweirDim EuroIndex as Integer
175cdf0e10cSrcweirDim LocCountry as String
176cdf0e10cSrcweirDim LocLanguage as String
177cdf0e10cSrcweirDim sLangList() as String
178cdf0e10cSrcweirDim sCountryList() as String
179cdf0e10cSrcweirDim sExtensionList() as String
180cdf0e10cSrcweirDim MaxIndex as Integer
181cdf0e10cSrcweirDim bIsLocale as Boolean
182cdf0e10cSrcweir
183cdf0e10cSrcweir	GlobListIndex = -1
184cdf0e10cSrcweir	For n = 0 To 5
185cdf0e10cSrcweir		LocLanguage = sMarket(n,6)
186cdf0e10cSrcweir		LocCountry = sMarket(n,7)
187cdf0e10cSrcweir		If Instr(1,LocLanguage,&quot;;&quot;,SBBINARY) = 0 Then
188cdf0e10cSrcweir			bIsLocale = CheckDocLocale(LocLanguage, LocCountry)
189cdf0e10cSrcweir		Else
190cdf0e10cSrcweir			EuroIndex = 0
191cdf0e10cSrcweir			sLangList() = ArrayoutofString(LocLanguage, &quot;;&quot;, MaxIndex)
192cdf0e10cSrcweir			sCountryList() = ArrayoutofString(LocCountry, &quot;;&quot;, MaxIndex)
193cdf0e10cSrcweir			sExtensionList() = ArrayoutofString(sMarket(n,8), &quot;;&quot;, MaxIndex)
194cdf0e10cSrcweir			For m = 0 To MaxIndex
195cdf0e10cSrcweir				bIsLocale = CheckDocLocale(sLangList(m), sCountryList(m))
196cdf0e10cSrcweir				If bIsLocale Then
197cdf0e10cSrcweir					EuroIndex = m
198cdf0e10cSrcweir					Exit For
199cdf0e10cSrcweir				End If
200cdf0e10cSrcweir			Next m
201cdf0e10cSrcweir			sMarket(n,6) = sLangList(EuroIndex)
202cdf0e10cSrcweir			sMarket(n,7) = sCountryList(EuroIndex)
203cdf0e10cSrcweir			sMarket(n,8) = sExtensionList(EuroIndex)
204cdf0e10cSrcweir		End If
205cdf0e10cSrcweir		If bIsLocale Then
206cdf0e10cSrcweir			GlobListIndex = n
207cdf0e10cSrcweir			Exit For
208cdf0e10cSrcweir		End If
209cdf0e10cSrcweir	Next n
210cdf0e10cSrcweirEnd Sub
211cdf0e10cSrcweir
212cdf0e10cSrcweirSub LocalizedCurrencies()
213cdf0e10cSrcweir	If GlobListIndex = -1 Then
214cdf0e10cSrcweir		sCountryMarket(0,0) = &quot;Euro&quot;
215cdf0e10cSrcweir		sCountryMarket(0,1) = chr(8364)
216cdf0e10cSrcweir		sCountryMarket(0,2) = &quot;Paris&quot;
217cdf0e10cSrcweir		sCountryMarket(0,3) = &quot;http://fr.finance.yahoo.com/d/quotes.csv?s=&lt;StockID&gt;.PA&amp;f=s4l1t1c1ghov&amp;e=.csv&quot;
218cdf0e10cSrcweir		sCountryMarket(0,5) = &quot;Code&quot;
219cdf0e10cSrcweir		sCountryMarket(0,6) = &quot;fr&quot;
220cdf0e10cSrcweir		sCountryMarket(0,7) = &quot;FR&quot;
221cdf0e10cSrcweir		sCountryMarket(0,8) = &quot;40C&quot;
222cdf0e10cSrcweir		sCountryMarket(0,9) = &quot;59/9&quot;
223cdf0e10cSrcweir		sCountryMarket(0,10) = &quot;1&quot;
224cdf0e10cSrcweir
225cdf0e10cSrcweir		sCountryMarket(1,0) = &quot;Euro&quot;
226cdf0e10cSrcweir		sCountryMarket(1,1) = chr(8364)
227cdf0e10cSrcweir		sCountryMarket(1,2) = &quot;Milano&quot;
228cdf0e10cSrcweir		sCountryMarket(1,3) = &quot;http://it.finance.yahoo.com/d/quotes.csv?s=&lt;StockID&gt;.MI&amp;f=sl1d1t1c1ohgv&amp;e=.csv&quot;
229cdf0e10cSrcweir		sCountryMarket(1,5) = &quot;Codice&quot;
230cdf0e10cSrcweir		sCountryMarket(1,6) = &quot;it&quot;
231cdf0e10cSrcweir		sCountryMarket(1,7) = &quot;IT&quot;
232cdf0e10cSrcweir		sCountryMarket(1,8) = &quot;410&quot;
233cdf0e10cSrcweir		sCountryMarket(1,9) = &quot;44&quot;
234cdf0e10cSrcweir		sCountryMarket(1,10) = &quot;1&quot;
235cdf0e10cSrcweir
236cdf0e10cSrcweir		sCountryMarket(2,0) = &quot;Euro&quot;
237cdf0e10cSrcweir		sCountryMarket(2,1) = chr(8364)
238cdf0e10cSrcweir		sCountryMarket(2,2) = &quot;Madrid&quot;
239cdf0e10cSrcweir		sCountryMarket(2,3) = &quot;http://es.finance.yahoo.com/d/quotes.csv?s=&lt;StockID&gt;&amp;m=MC&amp;f=sl1d1t1c1ohgv&amp;e=.csv&quot;
240cdf0e10cSrcweir		sCountryMarket(2,5) = &quot;Simbolo&quot;
241cdf0e10cSrcweir		sCountryMarket(2,6) = &quot;es&quot;
242cdf0e10cSrcweir		sCountryMarket(2,7) = &quot;ES&quot;
243cdf0e10cSrcweir		sCountryMarket(2,8) = &quot;40A&quot;
244cdf0e10cSrcweir		sCountryMarket(2,9) = &quot;44&quot;
245cdf0e10cSrcweir		sCountryMarket(2,10) = &quot;1&quot;
246cdf0e10cSrcweir
247cdf0e10cSrcweir		sCountryMarket(3,0) = &quot;Dansk krone&quot;
248cdf0e10cSrcweir		sCountryMarket(3,1) = &quot;kr&quot;
249cdf0e10cSrcweir		sCountryMarket(3,2) = &quot;København&quot;
250cdf0e10cSrcweir		sCountryMarket(3,3) = &quot;http://dk.finance.yahoo.com/d/quotes.csv?s=&lt;StockID.CO&amp;f=sl1d1t1c1ohgv&amp;e=.csv&quot;
251cdf0e10cSrcweir		sCountryMarket(3,5) = &quot;Aktiesymbol&quot;
252cdf0e10cSrcweir		sCountryMarket(3,6) = &quot;da&quot;
253cdf0e10cSrcweir		sCountryMarket(3,7) = &quot;DK&quot;
254cdf0e10cSrcweir		sCountryMarket(3,8) = &quot;406&quot;
255cdf0e10cSrcweir		sCountryMarket(3,9) = &quot;44&quot;
256cdf0e10cSrcweir		sCountryMarket(3,10) = &quot;1&quot;
257cdf0e10cSrcweir
258cdf0e10cSrcweir		sCountryMarket(4,0) = &quot;Svensk krona&quot;
259cdf0e10cSrcweir		sCountryMarket(4,1) = &quot;kr&quot;
260cdf0e10cSrcweir		sCountryMarket(4,2) = &quot;Stockholm&quot;
261cdf0e10cSrcweir		sCountryMarket(4,3) = &quot;http://se.finance.yahoo.com/d/quotes.csv?s=&lt;StockID&gt;.L&amp;f=sl1d1t1c1ohgv&amp;e=.c&quot;
262cdf0e10cSrcweir		sCountryMarket(4,5) = &quot;Kod&quot;
263cdf0e10cSrcweir		sCountryMarket(4,6) = &quot;sv&quot;
264cdf0e10cSrcweir		sCountryMarket(4,7) = &quot;SE&quot;
265cdf0e10cSrcweir		sCountryMarket(4,8) = &quot;41D&quot;
266cdf0e10cSrcweir		sCountryMarket(4,9) = &quot;44&quot;
267cdf0e10cSrcweir		sCountryMarket(4,10) = &quot;1&quot;
268cdf0e10cSrcweir
269cdf0e10cSrcweir		&apos; Taiwan Dollar
270cdf0e10cSrcweir		sCountryMarket(5,0) = &quot;新臺幣&quot;
271cdf0e10cSrcweir		sCountryMarket(5,1) = &quot;¥&quot;
272cdf0e10cSrcweir		sCountryMarket(5,2) = &quot;代號&quot;
273cdf0e10cSrcweir		sCountryMarket(5,3) = &quot;http://tw.finance.yahoo.com/d/quotes.csv?s=&lt;StockID&gt;.TW&amp;f=sl1d1t1c1ohgv&amp;e=.csv&quot;
274cdf0e10cSrcweir		sCountryMarket(5,5) = &quot;代號&quot;
275cdf0e10cSrcweir		sCountryMarket(5,6) = &quot;zh&quot;
276cdf0e10cSrcweir		sCountryMarket(5,7) = &quot;TW&quot;
277cdf0e10cSrcweir		sCountryMarket(5,8) = &quot;404&quot;
278cdf0e10cSrcweir		sCountryMarket(5,9) = &quot;44&quot;
279cdf0e10cSrcweir		sCountryMarket(5,10) = &quot;1&quot;
280cdf0e10cSrcweir
281cdf0e10cSrcweir		&apos; Chinese Yuan
282cdf0e10cSrcweir		sCountryMarket(6,0) = &quot;人民币&quot;
283cdf0e10cSrcweir		sCountryMarket(6,1) = &quot;¥&quot;
284cdf0e10cSrcweir		sCountryMarket(6,2) = &quot;代号&quot;
285cdf0e10cSrcweir		sCountryMarket(6,3) = &quot;http://cn.finance.yahoo.com/d/quotes.csv?s=&lt;StockID&gt;.SS&amp;f=sl1d1t1c1ohgv&amp;e=.csv&quot;
286cdf0e10cSrcweir		sCountryMarket(6,5) = &quot;代号&quot;
287cdf0e10cSrcweir		sCountryMarket(6,6) = &quot;zh&quot;
288cdf0e10cSrcweir		sCountryMarket(6,7) = &quot;CN&quot;
289cdf0e10cSrcweir		sCountryMarket(6,8) = &quot;804&quot;
290cdf0e10cSrcweir		sCountryMarket(6,9) = &quot;44&quot;
291cdf0e10cSrcweir		sCountryMarket(6,10) = &quot;1&quot;
292cdf0e10cSrcweir
293cdf0e10cSrcweir		&apos; korean Won
294cdf0e10cSrcweir		sCountryMarket(7,0) = &quot;한국 원화&quot;
295cdf0e10cSrcweir		sCountryMarket(7,1) = &quot;₩&quot;
296cdf0e10cSrcweir		sCountryMarket(7,2) = &quot;서울&quot;
297cdf0e10cSrcweir		sCountryMarket(7,3) = &quot;http://kr.finance.yahoo.com/d/quotes.csv?s=&lt;StockID&gt;.KS&amp;f=snl1d1t1c1ohgv&amp;e=.csv&quot;
298cdf0e10cSrcweir		sCountryMarket(7,5) = &quot;종목 코드&quot;
299cdf0e10cSrcweir		sCountryMarket(7,6) = &quot;ko&quot;
300cdf0e10cSrcweir		sCountryMarket(7,7) = &quot;KR&quot;
301cdf0e10cSrcweir		sCountryMarket(7,8) = &quot;412&quot;
302cdf0e10cSrcweir		sCountryMarket(7,9) = &quot;44&quot;
303cdf0e10cSrcweir		sCountryMarket(7,10) = &quot;2&quot;
304cdf0e10cSrcweir
305cdf0e10cSrcweir
306cdf0e10cSrcweir&apos;		sCountryMarket(5,0) = &quot;Российский рубль&quot;
307cdf0e10cSrcweir&apos;		sCountryMarket(5,1) = &quot;р.&quot;
308cdf0e10cSrcweir&apos;		sCountryMarket(5,2) = &quot;&quot;
309cdf0e10cSrcweir&apos;		sCountryMarket(5,3) = &quot;&quot;
310cdf0e10cSrcweir&apos;		sCountryMarket(5,5) = &quot;&quot;
311cdf0e10cSrcweir&apos;		sCountryMarket(5,6) = &quot;ru&quot;
312cdf0e10cSrcweir&apos;		sCountryMarket(5,7) = &quot;RU&quot;
313cdf0e10cSrcweir&apos;		sCountryMarket(5,8) = &quot;-419&quot;
314cdf0e10cSrcweir&apos;		sCountryMarket(5,9) = &quot;&quot;
315cdf0e10cSrcweir&apos;
316cdf0e10cSrcweir&apos;		sCountryMarket(6,0) = &quot;Złoty polski&quot;
317cdf0e10cSrcweir&apos;		sCountryMarket(6,1) = &quot;zł&quot;
318cdf0e10cSrcweir&apos;		sCountryMarket(6,2) = &quot;&quot;
319cdf0e10cSrcweir&apos;		sCountryMarket(6,3) = &quot;&quot;
320cdf0e10cSrcweir&apos;		sCountryMarket(6,5) = &quot;&quot;				&apos;Still Todo!!
321cdf0e10cSrcweir&apos;		sCountryMarket(6,6) = &quot;pl&quot;
322cdf0e10cSrcweir&apos;		sCountryMarket(6,7) = &quot;PL&quot;
323cdf0e10cSrcweir&apos;		sCountryMarket(6,8) = &quot;-415&quot;
324cdf0e10cSrcweir&apos;		sCountryMarket(6,9) = &quot;&quot;
325cdf0e10cSrcweir&apos;
326cdf0e10cSrcweir&apos;		sCountryMarket(7,0) = &quot;Türkische Lira&quot;
327cdf0e10cSrcweir&apos;		sCountryMarket(7,1) = &quot;TL&quot;
328cdf0e10cSrcweir&apos;		sCountryMarket(7,2) = &quot;&quot;
329cdf0e10cSrcweir&apos;		sCountryMarket(7,3) = &quot;&quot;
330cdf0e10cSrcweir&apos;		sCountryMarket(7,5) = &quot;&quot;				&apos;Still Todo!!
331cdf0e10cSrcweir&apos;		sCountryMarket(7,6) = &quot;tr&quot;
332cdf0e10cSrcweir&apos;		sCountryMarket(7,7) = &quot;TR&quot;
333cdf0e10cSrcweir&apos;		sCountryMarket(7,8) = &quot;-41F&quot;
334cdf0e10cSrcweir&apos;		sCountryMarket(7,9) = &quot;&quot;
335cdf0e10cSrcweir
336cdf0e10cSrcweir	Dim n as Integer
337cdf0e10cSrcweir	Dim m as Integer
338cdf0e10cSrcweir&apos;	Dim sCountryMarket(6,9) as String
339cdf0e10cSrcweir
340cdf0e10cSrcweir		For n = 0 To Ubound(sCountryMarket(),1)
341cdf0e10cSrcweir			If sDocLanguage = sCountryMarket(n,6) and sDocCountry = sCountryMarket(n,7) Then
342cdf0e10cSrcweir				GlobListIndex = 6
343cdf0e10cSrcweir				For m = 0 To 10
344cdf0e10cSrcweir					sMarket(6,m) = sCountryMarket(n,m)
345cdf0e10cSrcweir				Next m
346cdf0e10cSrcweir				Exit For
347cdf0e10cSrcweir			End If
348cdf0e10cSrcweir		Next n
349cdf0e10cSrcweir	End If
350cdf0e10cSrcweirEnd Sub
351cdf0e10cSrcweir
352cdf0e10cSrcweirSub LoadDepotDialogs()
353cdf0e10cSrcweir	DlgTransaction = LoadDialog(&quot;Depot&quot;, &quot;Dialog2&quot;)
354cdf0e10cSrcweir	DlgStockRates = LoadDialog(&quot;Depot&quot;, &quot;Dialog3&quot;)
355cdf0e10cSrcweir	DlgStartUp = LoadDialog(&quot;Depot&quot;, &quot;Dialog4&quot;)
356cdf0e10cSrcweir	TransactModel = DlgTransaction.Model
357cdf0e10cSrcweir	StockRatesModel = DlgStockRates.Model
358cdf0e10cSrcweir	StartUpModel = DlgStartUp.Model
359cdf0e10cSrcweirEnd Sub
360cdf0e10cSrcweir
361cdf0e10cSrcweir
362cdf0e10cSrcweirSub InitializeStartUpModel()
363cdf0e10cSrcweir	With StartUpModel
364cdf0e10cSrcweir		.lblWelcome.Label = sStartupWelcome &amp; Chr(13) &amp; chr(13) &amp; sStartUpChooseMarket
365cdf0e10cSrcweir		sStartUpHint = ReplaceString(sStartUpHint, sHistory, &quot;&lt;History&gt;&quot;)
366cdf0e10cSrcweir		.lblHint.Label = sStartupHint
367cdf0e10cSrcweir&apos;		.cmdGoOn.Enabled = Ubound(StartUpModel.lstMarkets.SelectedItems()) &lt;&gt; -1
368cdf0e10cSrcweir		.cmdGoOn.Label = sOK
369cdf0e10cSrcweir		.cmdCancel.Label = sCancel
370cdf0e10cSrcweir	End With
371*3e02b54dSAndrew RistEnd Sub</script:module>
372