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
159
160
161
162
163
164
165
166
167
168
169
170
171
172
173
174
175
176
177
178
179
180
181
182
183
184
185
186
187
188
189
190
191
192
193
194
195
196
197
198
199
200
201
202
203
204
205
206
207
208
209
210
211
212
213
214
215
216
217
218
219
220
221
222
223
224
225
226
227
228
229
230
231
232
233
234
235
236
237
238
239
240
241
242
243
244
245
246
247
248
249
250
251
252
253
254
255
256
257
258
259
260
261
262
263
264
265
266
267
268
269
270
271
272
273
274
275
276
277
278
279
280
281
282
283
284
285
286
287
288
289
290
291
292
293
294
295
296
297
298
299
300
301
302
303
304
305
306
307
308
309
310
311
312
313
314
315
316
317
318
319
320
321
322
323
324
325
326
327
328
329
330
331
332
333
334
335
336
337
338
339
340
341
342
343
344
345
346
347
348
349
350
351
352
353
354
355
356
357
358
359
360
361
362
363
364
365
366
367
368
369
370
371
372
373
374
375
376
377
378
379
380
381
382
383
384
385
386
387
388
389
390
391
392
393
394
395
396
397
398
399
400
401
402
403
404
405
406
407
408
409
410
411
412
413
414
415
416
417
418
419
420
421
422
423
424
425
426
427
428
429
430
431
432
433
434
435
436
437
438
439
440
441
442
443
444
445
446
447
448
449
450
451
452
453
454
455
456
457
458
459
460
461
462
463
464
465
466
467
468
469
470
471
472
473
474
475
476
477
478
479
480
481
482
483
484
485
486
487
488
489
490
491
492
493
494
495
496
497
498
499
500
501
502
503
504
505
506
507
508
509
510
511
512
513
514
515
516
517
518
519
520
521
522
523
524
525
526
527
528
529
530
531
532
533
534
535
536
537
538
539
540
|
<?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="L10N" script:language="StarBasic">
REM =======================================================================================================================
REM === The Access2Base library is a part of the LibreOffice project. ===
REM === Full documentation is available on http://www.access2base.com ===
REM =======================================================================================================================
Option Explicit
REM -----------------------------------------------------------------------------------------------------------------------
REM --- PRIVATE FUNCTIONS ---
REM -----------------------------------------------------------------------------------------------------------------------
Public Function _GetLabel(ByVal psShortlabel As String, Optional ByVal psLocale As String) As String
' Return the localized label corresponding with ShortLabel
If IsMissing(psLocale) Then psLocale = UCase(Left(_A2B_.Locale, 2)) Else psLocale = UCase(psLocale)
On Local Error Goto Error_Function
If Not Utils._InList(psLocale, Array( _
"EN", "FR", "ES", "DE" _
)) Then psLocale = "DEFAULT" ' If list incomplete a recursive call will be provided anyway
Dim sLocal As String
sLocal = psShortLabel
Select Case psLocale
Case "EN", "DEFAULT"
Select Case UCase(psShortlabel)
Case "ERR" & ERRDBNOTCONNECTED : sLocal = "No active connection to a database found"
Case "ERR" & ERRMISSINGARGUMENTS : sLocal = "Arguments are missing or are not initialized"
Case "ERR" & ERRWRONGARGUMENT : sLocal = "Argument nr. %0 [Value = '%1'] is invalid"
Case "ERR" & ERRMAINFORM : sLocal = "Document '%0' does not contain any form"
Case "ERR" & ERRFORMNOTIDENTIFIED : sLocal = "Form '%0' not identified in database Forms set"
Case "ERR" & ERRFORMNOTFOUND : sLocal = "Form '%0' not found"
Case "ERR" & ERRFORMNOTOPEN : sLocal = "Form '%0' is currently not open"
Case "ERR" & ERRDFUNCTION : sLocal = "DFunction execution failed, SQL=%0"
Case "ERR" & ERROPENFORM : sLocal = "Form '%0' could not be opened"
Case "ERR" & ERRPROPERTY : sLocal = "Property '%0' not applicable in this context"
Case "ERR" & ERRPROPERTYVALUE : sLocal = "Value '%0' is invalid for property '%1'"
Case "ERR" & ERRINDEXVALUE : sLocal = "Out of array range or incorrect array size for property '%0'"
Case "ERR" & ERRCOLLECTION : sLocal = "Out of array range"
Case "ERR" & ERRPROPERTYNOTARRAY : sLocal = "Argument nr.%0 should be an array"
Case "ERR" & ERRCONTROLNOTFOUND : sLocal = "Control '%0' not found in parent (form, grid or dialog) '%1'"
Case "ERR" & ERRNOACTIVEFORM : sLocal = "No active form or control found"
Case "ERR" & ERRDATABASEFORM : sLocal = "Form '%0' has no underlying dataset"
Case "ERR" & ERRFOCUSINGRID : sLocal = "Control '%0' not found in gridcontrol '%1'"
Case "ERR" & ERRNOGRIDINFORM : sLocal = "No gridcontrol found in form '%0'"
Case "ERR" & ERRFINDRECORD : sLocal = "FindNext() must be preceded by a successful FindRecord(...) call"
Case "ERR" & ERRSQLSTATEMENT : sLocal = "SQL Error, SQL statement = '%0'"
Case "ERR" & ERROBJECTNOTFOUND : sLocal = "%0 '%1' not found"
Case "ERR" & ERROPENOBJECT : sLocal = "%0 '%1' could not be opened"
Case "ERR" & ERRCLOSEOBJECT : sLocal = "%0 '%1' could not be closed"
Case "ERR" & ERRACTION : sLocal = "Action not applicable in this context"
Case "ERR" & ERRSENDMAIL : sLocal = "Mail service could not be activated"
Case "ERR" & ERRFORMYETOPEN : sLocal = "Form %0 is already open"
Case "ERR" & ERRMETHOD : sLocal = "Method '%0' not applicable in this context"
Case "ERR" & ERRPROPERTYINIT : sLocal = "Property '%0' applicable but not initialized"
Case "ERR" & ERRFILENOTCREATED : sLocal = "File '%0' could not be created"
Case "ERR" & ERRDIALOGNOTFOUND : sLocal = "Dialog '%0' not found in the currently loaded libraries"
Case "ERR" & ERRDIALOGUNDEFINED : sLocal = "Dialog unknown"
Case "ERR" & ERRDIALOGSTARTED : sLocal = "Dialog already started"
Case "ERR" & ERRDIALOGNOTSTARTED : sLocal = "Dialog '%0' not active"
Case "ERR" & ERRRECORDSETNODATA : sLocal = "Recordset delivered no data. Action on current record rejected"
Case "ERR" & ERRRECORDSETCLOSED : sLocal = "Recordset has been closed. Recordset action rejected"
Case "ERR" & ERRRECORDSETRANGE : sLocal = "Current record out of range"
Case "ERR" & ERRRECORDSETFORWARD : sLocal = "Action rejected in a forward-only or not bookmarkable recordset"
Case "ERR" & ERRFIELDNULL : sLocal = "Field is null or empty. Action rejected"
Case "ERR" & ERRFILEACCESS : sLocal = "File access error on file '%0'"
Case "ERR" & ERROVERFLOW : sLocal = "Field length (%0) exceeds maximum length. Use the '%1' method instead"
Case "ERR" & ERRNOTACTIONQUERY : sLocal = "Query '%0' is not an action query"
Case "ERR" & ERRNOTUPDATABLE : sLocal = "Database, recordset or field is read only"
Case "ERR" & ERRUPDATESEQUENCE : sLocal = "Recordset update sequence error"
Case "ERR" & ERRNOTNULLABLE : sLocal = "Field '%0' must not contain a NULL value"
Case "ERR" & ERRROWDELETED : sLocal = "Current row has been deleted by another process or user"
Case "ERR" & ERRRECORDSETCLONE : sLocal = "Cloning a cloned Recordset is forbidden"
Case "ERR" & ERRQUERYDEFDELETED : sLocal = "Pre-existing query '%0' has been deleted"
Case "ERR" & ERRTABLEDEFDELETED : sLocal = "Pre-existing table '%0' has been deleted"
Case "ERR" & ERRTABLECREATION : sLocal = "Table '%0' could not be created"
Case "ERR" & ERRFIELDCREATION : sLocal = "Field '%0' could not be created"
Case "ERR" & ERRSUBFORMNOTFOUND : sLocal = "Subform '%0' not found in parent form '%1'"
Case "ERR" & ERRWINDOW : sLocal = "Current window is not a document"
Case "ERR" & ERRCOMPATIBILITY : sLocal = "Field '%0' could not be converted due to incompatibility of field types between the respective database systems"
Case "ERR" & ERRPRECISION : sLocal = "Field '%0' could not be loaded in record #%1 due to capacity shortage"
Case "ERR" & ERRMODULENOTFOUND : sLocal = "Module '%0' not found in the currently loaded libraries"
Case "ERR" & ERRPROCEDURENOTFOUND : sLocal = "Procedure '%0' not found in module '%1'"
'----------------------------------------------------------------------------------------------------------------------
Case "OBJECT" : sLocal = "Object"
Case "TABLE" : sLocal = "Table"
Case "QUERY" : slocal = "Query"
Case "FORM" : sLocal = "Form"
Case "REPORT" : sLocal = "Report"
Case "RECORDSET" : sLocal = "Recordset"
Case "FIELD" : sLocal = "Field"
Case "TEMPVAR" : sLocal = "Temporary variable"
Case "COMMANDBAR" : sLocal = "Command bar"
Case "COMMANDBARCONTROL" : sLocal = "Command bar control"
'----------------------------------------------------------------------------------------------------------------------
Case "ERR#" : sLocal = "Error #"
Case "ERROCCUR" : sLocal = "occurred"
Case "ERRLINE" : sLocal = "at line"
Case "ERRIN" : sLocal = "in"
Case "CALLTO" : sLocal = "a call to function"
Case "SAVECONSOLE" : sLocal = "Save console"
Case "SAVECONSOLEENTRIES" : sLocal = "The console entries have been saved successfully."
Case "QUITSHORT" : sLocal = "Quit"
Case "QUIT" : sLocal = "Do you really want to quit the application ? Changed data will be saved."
Case "ENTERING" : sLocal = "Entering"
Case "EXITING" : sLocal = "Exiting"
'----------------------------------------------------------------------------------------------------------------------
Case "DLGTRACE_HELP" : sLocal = "Manage the console buffer and its entries"
Case "DLGTRACE_TITLE" : sLocal = "Console"
Case "DLGTRACE_LBLENTRIES_HELP" : sLocal = "Clear the list and resize the circular buffer"
Case "DLGTRACE_LBLENTRIES_LABEL" : sLocal = "Set max number of entries"
Case "DLGTRACE_TXTTRACELOG_HELP" : sLocal = "Text can be selected, copied, ..."
Case "DLGTRACE_TXTTRACELOG_TEXT" : sLocal = "--- Log file is empty ---"
Case "DLGTRACE_CMDCANCEL_HELP" : sLocal = "Cancel and close the dialog"
Case "DLGTRACE_CMDCANCEL_LABEL" : sLocal = "Cancel"
Case "DLGTRACE_LBLCLEAR_HELP" : sLocal = "Clear the list"
Case "DLGTRACE_LBLCLEAR_LABEL" : sLocal = "Clear the list"
Case "DLGTRACE_LBLMINLEVEL_HELP" : sLocal = "Register only logging requests above given level"
Case "DLGTRACE_LBLMINLEVEL_LABEL" : sLocal = "Set minimal trace level"
Case "DLGTRACE_CMDOK_HELP" : sLocal = "Validate"
Case "DLGTRACE_CMDOK_LABEL" : sLocal = "OK"
Case "DLGTRACE_CMDDUMP_HELP" : sLocal = "Choose a file and dump the actual list content in it"
Case "DLGTRACE_CMDDUMP_LABEL" : sLocal = "Dump to file"
Case "DLGTRACE_LBLNBENTRIES_HELP" : sLocal = "Actual size of list"
Case "DLGTRACE_LBLNBENTRIES_LABEL" : sLocal = "Actual number of entries:"
'----------------------------------------------------------------------------------------------------------------------
Case "DLGFORMAT_HELP" : sLocal = "Export the form"
Case "DLGFORMAT_TITLE" : sLocal = "OutputTo"
Case "DLGFORMAT_LBLFORMAT_HELP" : sLocal = "Format in which the form should be exported"
Case "DLGFORMAT_LBLFORMAT_LABEL" : sLocal = "Select the output format"
Case "DLGFORMAT_CMDOK_HELP" : sLocal = "Validate your choice"
Case "DLGFORMAT_CMDOK_LABEL" : sLocal = "OK"
Case "DLGFORMAT_CMDCANCEL_HELP" : sLocal = "Cancel and close the dialog"
Case "DLGFORMAT_CMDCANCEL_LABEL" : sLocal = "Cancel"
'----------------------------------------------------------------------------------------------------------------------
Case Else : sLocal = ""
End Select
Case "FR"
Select Case UCase(psShortlabel)
Case "ERR" & ERRDBNOTCONNECTED : sLocal = "Pas de connexion active trouvée à une banque de données"
Case "ERR" & ERRMISSINGARGUMENTS : sLocal = "Des arguments sont manquants ou non initialisés"
Case "ERR" & ERRWRONGARGUMENT : sLocal = "L'argument n° %0 [Valeur = '%1'] n'est pas valable"
Case "ERR" & ERRMAINFORM : sLocal = "Le document '%0' ne contient aucun formulaire"
Case "ERR" & ERRFORMNOTIDENTIFIED : sLocal = "Le formulaire '%0' n'a pas pu être identifié parmi l'ensemble des formulaires de la Database"
Case "ERR" & ERRFORMNOTFOUND : sLocal = "Formulaire '%0' non trouvé"
Case "ERR" & ERRFORMNOTOPEN : sLocal = "Le formulaire '%0' n'est actuellement pas ouvert"
Case "ERR" & ERRDFUNCTION : sLocal = "L'exécution de la ""fonction database"" a échoué, SQL=%0"
Case "ERR" & ERROPENFORM : sLocal = "Le formulaire '%0' n'a pas pu être ouvert"
Case "ERR" & ERRPROPERTY : sLocal = "La propriété '%0' n'est pas applicable dans ce contexte"
Case "ERR" & ERRPROPERTYVALUE : sLocal = "La valeur '%0' est invalide pour la propriété '%1'"
Case "ERR" & ERRINDEXVALUE : sLocal = "Indice invalide ou dimension erronée du tableau pour la propriété '%0'"
Case "ERR" & ERRCOLLECTION : sLocal = "Indice de tableau invalide"
Case "ERR" & ERRPROPERTYNOTARRAY : sLocal = "L'argument n°%0 doit être un tableau"
Case "ERR" & ERRCONTROLNOTFOUND : sLocal = "Contrôle '%0' non trouvé dans le parent (formulaire, contrôle de table ou dialogue) '%1'"
Case "ERR" & ERRNOACTIVEFORM : sLocal = "Pas de formulaire ou de contrôle actif"
Case "ERR" & ERRDATABASEFORM : sLocal = "Le formulaire '%0' n'a pas de données sous-jacentes"
Case "ERR" & ERRFOCUSINGRID : sLocal = "Contrôle '%0' non trouvé dans le contrôle de table '%1'"
Case "ERR" & ERRNOGRIDINFORM : sLocal = "Aucun contrôle de table trouvé dans le formulaire '%0'"
Case "ERR" & ERRFINDRECORD : sLocal = "FindNext() doit être précédé par un appel réussi à FindRecord(...)"
Case "ERR" & ERRSQLSTATEMENT : sLocal = "Erreur SQL, instruction SQL = '%0'"
Case "ERR" & ERROBJECTNOTFOUND : sLocal = "%0 '%1' non trouvé(e)"
Case "ERR" & ERROPENOBJECT : sLocal = "%0 '%1': ouverture en échec"
Case "ERR" & ERRCLOSEOBJECT : sLocal = "%0 '%1': fermeture en échec"
Case "ERR" & ERRACTION : sLocal = "Action non applicable dans ce contexte"
Case "ERR" & ERRSENDMAIL : sLocal = "Le service de messagerie n'a pas pu être activé"
Case "ERR" & ERRFORMYETOPEN : sLocal = "Le formulaire %0 est déjà ouvert"
Case "ERR" & ERRMETHOD : sLocal = "La méthode '%0' n'est pas applicable dans ce contexte"
Case "ERR" & ERRPROPERTYINIT : sLocal = "Propriété '%0' applicable mais non initialisée"
Case "ERR" & ERRFILENOTCREATED : sLocal = "Erreur de création du fichier '%0'"
Case "ERR" & ERRDIALOGNOTFOUND : sLocal = "Dialogue '%0' introuvable dans les librairies chargées actuellement"
Case "ERR" & ERRDIALOGUNDEFINED : sLocal = "Boîte de dialogue inconnue"
Case "ERR" & ERRDIALOGSTARTED : sLocal = "Dialogue déjà initialisé précédemment"
Case "ERR" & ERRDIALOGNOTSTARTED : sLocal = "Dialogue '%0' non initialisé"
Case "ERR" & ERRRECORDSETNODATA : sLocal = "Recordset n'a pas fourni de données. Toute action sur les enregistrements est rejetée"
Case "ERR" & ERRRECORDSETCLOSED : sLocal = "Recordset a été clôturé. Action sur l'enregistrement courant est rejetée"
Case "ERR" & ERRRECORDSETRANGE : sLocal = "L'enregistrement courant est hors cadre"
Case "ERR" & ERRRECORDSETFORWARD : sLocal = "Action rejetée car recordset lisible seulement vers l'avant ou n'acceptant pas de signets"
Case "ERR" & ERRFIELDNULL : sLocal = "Champ nul ou vide. Action rejetée"
Case "ERR" & ERRFILEACCESS : sLocal = "Erreur d'accès au fichier '%0'"
Case "ERR" & ERROVERFLOW : sLocal = "La longueur du champ (%0) dépasse la taille maximale autorisée. Utiliser de préférence la méthode '%1'"
Case "ERR" & ERRNOTACTIONQUERY : sLocal = "La requête '%0' n'est pas une requête d'action"
Case "ERR" & ERRNOTUPDATABLE : sLocal = "La banque de données, le recordset ou le champ sont en lecture seulement"
Case "ERR" & ERRUPDATESEQUENCE : sLocal = "Erreur de séquence lors de la mise à jour d'un Recordset"
Case "ERR" & ERRNOTNULLABLE : sLocal = "Le champ '%0' ne peut pas recevoir une valeur NULLe"
Case "ERR" & ERRROWDELETED : sLocal = "L'enregistrement courant a été effacé par un autre processus ou un autre utilisateur"
Case "ERR" & ERRRECORDSETCLONE : sLocal = "Le clonage d'un Recordset cloné est interdit"
Case "ERR" & ERRQUERYDEFDELETED : sLocal = "La requête existante '%0' a été supprimée"
Case "ERR" & ERRTABLEDEFDELETED : sLocal = "La table existante '%0' a été supprimée"
Case "ERR" & ERRTABLECREATION : sLocal = "La table '%0' n'a pas pu être créée"
Case "ERR" & ERRFIELDCREATION : sLocal = "Le champ '%0' n'a pas pu être créé"
Case "ERR" & ERRSUBFORMNOTFOUND : sLocal = "Sous-formulaire '%0' non trouvé dans le formulaire parent '%1'"
Case "ERR" & ERRWINDOW : sLocal = "La fenêtre courante n'est pas un document"
Case "ERR" & ERRCOMPATIBILITY : sLocal = "Le champ '%0' n'a pas pu être converti à cause d'une incompatibilité entre les types de champs supportés par les systèmes de bases de données respectifs"
Case "ERR" & ERRPRECISION : sLocal = "Le champ '%0' n'a pas pu être chargé dans l'enregistrement #%1 par manque de capacité"
Case "ERR" & ERRMODULENOTFOUND : sLocal = "Le module '%0' est introuvable dans les librairies chargées actuellement"
Case "ERR" & ERRPROCEDURENOTFOUND : sLocal = "La procédure '%0' est introuvable dans le module '%1'"
'----------------------------------------------------------------------------------------------------------------------
Case "OBJECT" : sLocal = "Objet"
Case "TABLE" : sLocal = "Table"
Case "QUERY" : slocal = "Requête"
Case "FORM" : sLocal = "Formulaire"
Case "REPORT" : sLocal = "Rapport"
Case "RECORDSET" : sLocal = "Recordset"
Case "FIELD" : sLocal = "Champ"
Case "TEMPVAR" : sLocal = "Variable temporaire"
Case "COMMANDBAR" : sLocal = "Barre de commande"
Case "COMMANDBARCONTROL" : sLocal = "Elément de barre de commande"
'----------------------------------------------------------------------------------------------------------------------
Case "ERR#" : sLocal = "L'erreur #"
Case "ERROCCUR" : sLocal = "s'est produite"
Case "ERRLINE" : sLocal = "à la ligne"
Case "ERRIN" : sLocal = "dans"
Case "CALLTO" : sLocal = "un appel à la fonction"
Case "SAVECONSOLE" : sLocal = "Sauver console"
Case "SAVECONSOLEENTRIES" : sLocal = "Les entrées de la console ont été sauvées avec succès."
Case "QUITSHORT" : sLocal = "Quitter"
Case "QUIT" : sLocal = "Voulez-vous réellement quitter l'application ? Les données modifiées seront sauvées."
Case "ENTERING" : sLocal = "Entrée dans"
Case "EXITING" : sLocal = "Sortie de"
'----------------------------------------------------------------------------------------------------------------------
Case "DLGTRACE_HELP" : sLocal = "Gestion du tampon de la console et toutes ses entrées"
Case "DLGTRACE_TITLE" : sLocal = "Console"
Case "DLGTRACE_LBLENTRIES_HELP" : sLocal = "Effacer la liste et redimensionner le tampon circulaire"
Case "DLGTRACE_LBLENTRIES_LABEL" : sLocal = "Définir le nombre maximum d'entrées"
Case "DLGTRACE_TXTTRACELOG_HELP" : sLocal = "Le texte peut être sélectionné, copié, ..."
Case "DLGTRACE_TXTTRACELOG_TEXT" : sLocal = "--- Le fichier journal est vide ---"
Case "DLGTRACE_CMDCANCEL_HELP" : sLocal = "Annuler et fermer la boîte de dialogue"
Case "DLGTRACE_CMDCANCEL_LABEL" : sLocal = "Annuler"
Case "DLGTRACE_LBLCLEAR_HELP" : sLocal = "Effacer la liste"
Case "DLGTRACE_LBLCLEAR_LABEL" : sLocal = "Effacer la liste"
Case "DLGTRACE_LBLMINLEVEL_HELP" : sLocal = "N'enregistrer que les demandes de journalisation à partir du niveau indiqué"
Case "DLGTRACE_LBLMINLEVEL_LABEL" : sLocal = "Définir le niveau minimal d'enregistrement"
Case "DLGTRACE_CMDOK_HELP" : sLocal = "Valider"
Case "DLGTRACE_CMDOK_LABEL" : sLocal = "OK"
Case "DLGTRACE_CMDDUMP_HELP" : sLocal = "Sélectionner un fichier et y vider le contenu actuel des traces enregistrées"
Case "DLGTRACE_CMDDUMP_LABEL" : sLocal = "Vider dans fichier"
Case "DLGTRACE_LBLNBENTRIES_HELP" : sLocal = "Taille actuelle de la liste"
Case "DLGTRACE_LBLNBENTRIES_LABEL" : sLocal = "Nombre actuel d'entrées:"
'----------------------------------------------------------------------------------------------------------------------
Case "DLGFORMAT_HELP" : sLocal = "Exporter le formulaire"
Case "DLGFORMAT_TITLE" : sLocal = "OutputTo"
Case "DLGFORMAT_LBLFORMAT_HELP" : sLocal = "Format dans lequel le formulaire sera exporté"
Case "DLGFORMAT_LBLFORMAT_LABEL" : sLocal = "Selectionner le format de sortie"
Case "DLGFORMAT_CMDOK_HELP" : sLocal = "Valider votre choix"
Case "DLGFORMAT_CMDOK_LABEL" : sLocal = "OK"
Case "DLGFORMAT_CMDCANCEL_HELP" : sLocal = "Annuler et fermer la boîte de dialogue"
Case "DLGFORMAT_CMDCANCEL_LABEL" : sLocal = "Annuler"
'----------------------------------------------------------------------------------------------------------------------
Case Else : sLocal = _Getlabel(psShortLabel, "DEFAULT")
End Select
'********************************************************
'Translated by Iñigo Zuluaga
'********************************************************
Case "ES" '(España)
Select Case UCase(psShortlabel)
Case "ERR" & ERRDBNOTCONNECTED : sLocal = "No se ha encontrado una conexión activa a una base de datos"
Case "ERR" & ERRMISSINGARGUMENTS : sLocal = "Faltan argumentos o no están inicializados"
Case "ERR" & ERRWRONGARGUMENT : sLocal = "El argumento nr. %0 [Value = '%1'] no es válido"
Case "ERR" & ERRMAINFORM : sLocal = "El documento '%0' no contiene ningún formulario"
Case "ERR" & ERRFORMNOTIDENTIFIED : sLocal = "No se ha identificado el formulario '%0' en el conjunto de formularios de la base de datos"
Case "ERR" & ERRFORMNOTFOUND : sLocal = "No se ha encontrado el formulario '%0'"
Case "ERR" & ERRFORMNOTOPEN : sLocal = "El formulario '%0' no está abierto"
Case "ERR" & ERRDFUNCTION : sLocal = "La ejecución de DFunction falló, SQL=%0"
Case "ERR" & ERROPENFORM : sLocal = "El formulario '%0' no se puede abrir"
Case "ERR" & ERRPROPERTY : sLocal = "La propiedad '%0' no es aplicable en este contexto"
Case "ERR" & ERRPROPERTYVALUE : sLocal = "El valor '%0' es inválido para la propiedad '%1'"
Case "ERR" & ERRINDEXVALUE : sLocal = "Fuera del rango de la matriz o tamaño incorrecto de la matriz para la propiedad '%0'"
Case "ERR" & ERRCOLLECTION : sLocal = "Fuera del rango de la matriz"
Case "ERR" & ERRPROPERTYNOTARRAY : sLocal = "El argumento nr.%0 debería ser una matriz"
Case "ERR" & ERRCONTROLNOTFOUND : sLocal = "El control '%0' not found in parent (formulario, control de tabla or diálogo) '%1'"
Case "ERR" & ERRNOACTIVEFORM : sLocal = "No se ha encontrado un formulario o control activo"
Case "ERR" & ERRDATABASEFORM : sLocal = "El formulario '%0' no tiene datos subyacentes"
Case "ERR" & ERRFOCUSINGRID : sLocal = "No se ha encontrado el control '%0' en el control de tabla '%1'"
Case "ERR" & ERRNOGRIDINFORM : sLocal = "No se ha encontrado un control de tabla en el formulario '%0'"
Case "ERR" & ERRFINDRECORD : sLocal = "FindNext() tiene que ser precedido por una llamada exitosa de FindRecord(...)"
Case "ERR" & ERRSQLSTATEMENT : sLocal = "Error SQL, instrución SQL = '%0'"
Case "ERR" & ERROBJECTNOTFOUND : sLocal = "%0 '%1' no encontrado"
Case "ERR" & ERROPENOBJECT : sLocal = "%0 '%1' no se puede abrir"
Case "ERR" & ERRCLOSEOBJECT : sLocal = "%0 '%1' no se puede abrir"
Case "ERR" & ERRACTION : sLocal = "Acción no aplicable en este contexto"
Case "ERR" & ERRSENDMAIL : sLocal = "No se puede activar el servicio de correo"
Case "ERR" & ERRFORMYETOPEN : sLocal = "El formulario %0 ya está abierto"
Case "ERR" & ERRMETHOD : sLocal = "El método '%0' no es aplicable en este contexto"
Case "ERR" & ERRPROPERTYINIT : sLocal = "Propiedad '%0' aplicable pero no inicializada"
Case "ERR" & ERRFILENOTCREATED : sLocal = "No se ha podido crear el archivo '%0'"
Case "ERR" & ERRDIALOGNOTFOUND : sLocal = "No se ha encontrado el diálogo '%0' en las bibliotecas cargadas actualmente"
Case "ERR" & ERRDIALOGUNDEFINED : sLocal = "Diálogo desconocido"
Case "ERR" & ERRDIALOGSTARTED : sLocal = "El diálogo ya está iniciado"
Case "ERR" & ERRDIALOGNOTSTARTED : sLocal = "El diálogo '%0' no está activo"
Case "ERR" & ERRRECORDSETNODATA : sLocal = "El Recordset no suministra datos. La acción en el registro actual rechazada"
Case "ERR" & ERRRECORDSETCLOSED : sLocal = "El recorset se ha cerrado. Acción con el Recordset rechazada"
Case "ERR" & ERRRECORDSETRANGE : sLocal = "Registro actual fuera de rango"
Case "ERR" & ERRRECORDSETFORWARD : sLocal = "Acción rechazada en un recorset legible sólo hacia adelante o que no admita marcadores"
Case "ERR" & ERRFIELDNULL : sLocal = "El campo es nulo o vacío. Acción rechazada"
Case "ERR" & ERRFILEACCESS : sLocal = "Error durante el acceso al archivo '%0'"
Case "ERR" & ERROVERFLOW : sLocal = "La longitud del campo (%0) excede la longitud máxima. Reemplazar por el método '%1'"
Case "ERR" & ERRNOTACTIONQUERY : sLocal = "La consulta '%0' no es una consulta de acción"
Case "ERR" & ERRNOTUPDATABLE : sLocal = "La base de datos, el Recordset o el Campo es de sólo lectura"
Case "ERR" & ERRUPDATESEQUENCE : sLocal = "Error durante la secuencia de actualización del Recordset"
Case "ERR" & ERRNOTNULLABLE : sLocal = "El campo '%0' no puede contener un valor NULL"
Case "ERR" & ERRROWDELETED : sLocal = "La fila actual ha sido borrada por otro proceso o usuario"
Case "ERR" & ERRRECORDSETCLONE : sLocal = "No se puede clonar un Recordset clonado"
Case "ERR" & ERRQUERYDEFDELETED : sLocal = "Se ha borrado la consulta pre-existente '%0'"
Case "ERR" & ERRTABLEDEFDELETED : sLocal = "Se ha borrado la tabla pre-existente '%0'"
Case "ERR" & ERRTABLECREATION : sLocal = "No se ha podido crear la Tabla '%0'"
Case "ERR" & ERRFIELDCREATION : sLocal = "No se ha podido crear el campo '%0'"
Case "ERR" & ERRSUBFORMNOTFOUND : sLocal = "No se ha encontrado el Subformulario '%0' en el subformulario padre '%1'"
Case "ERR" & ERRWINDOW : sLocal = "La ventana actual no es un documento"
Case "ERR" & ERRCOMPATIBILITY : sLocal = "El campo '%0' no se ha convertido debido a una incompatibilidad de los tipos de campo soportados entre las dos bases de datos"
Case "ERR" & ERRPRECISION : sLocal = "El campo '%0' no se ha cargado en el registro #%1 por falta de capacidad"
Case "ERR" & ERRMODULENOTFOUND : sLocal = "Module '%0' not found in the currently loaded libraries"
Case "ERR" & ERRPROCEDURENOTFOUND : sLocal = "Procedure '%0' not found in module '%1'"
'----------------------------------------------------------------------------------------------------------------------
Case "OBJECT" : sLocal = "Objeto"
Case "TABLE" : sLocal = "Tabla"
Case "QUERY" : slocal = "Consulta"
Case "FORM" : sLocal = "Formulario"
Case "REPORT" : sLocal = "Informe"
Case "RECORDSET" : sLocal = "Recordset"
Case "FIELD" : sLocal = "Campo"
Case "TEMPVAR" : sLocal = "Variable temporal"
Case "COMMANDBAR" : sLocal = "Barra de comandos"
Case "COMMANDBARCONTROL" : sLocal = "Control de barra de comandos"
'----------------------------------------------------------------------------------------------------------------------
Case "ERR#" : sLocal = "Error #"
Case "ERROCCUR" : sLocal = "ocurrido"
Case "ERRLINE" : sLocal = "en línea"
Case "ERRIN" : sLocal = "en"
Case "CALLTO" : sLocal = "una llamada a la función"
Case "SAVECONSOLE" : sLocal = "Guardar consola"
Case "SAVECONSOLEENTRIES" : sLocal = "Las entradas de la consola han sido guardadas correctamente."
Case "QUITSHORT" : sLocal = "Cerrar"
Case "QUIT" : sLocal = "Quieres realmente cerrar la aplicación? los datos cambiados se guardarán."
Case "ENTERING" : sLocal = "Entrando"
Case "EXITING" : sLocal = "Saliendo"
'----------------------------------------------------------------------------------------------------------------------
Case "DLGTRACE_HELP" : sLocal = "Gestión del buffer de la consola y sus entradas"
Case "DLGTRACE_TITLE" : sLocal = "Consola"
Case "DLGTRACE_LBLENTRIES_HELP" : sLocal = "Limpiar la lista y redimensionar el buffer circular"
Case "DLGTRACE_LBLENTRIES_LABEL" : sLocal = "Definir el número máximo de entradas"
Case "DLGTRACE_TXTTRACELOG_HELP" : sLocal = "El texto puede ser seleccionado, copiado, ..."
Case "DLGTRACE_TXTTRACELOG_TEXT" : sLocal = "--- El archivo Histórico está vacío ---"
Case "DLGTRACE_CMDCANCEL_HELP" : sLocal = "Cancelar y cerrar el diálogo"
Case "DLGTRACE_CMDCANCEL_LABEL" : sLocal = "Cancelar"
Case "DLGTRACE_LBLCLEAR_HELP" : sLocal = "Limpiar la lista"
Case "DLGTRACE_LBLCLEAR_LABEL" : sLocal = "Limpiar la lista"
Case "DLGTRACE_LBLMINLEVEL_HELP" : sLocal = "No registrar más que las peticiones de registro a partir de un nivel indicado"
Case "DLGTRACE_LBLMINLEVEL_LABEL" : sLocal = "Definir el nivel mínimo de registro"
Case "DLGTRACE_CMDOK_HELP" : sLocal = "Validar"
Case "DLGTRACE_CMDOK_LABEL" : sLocal = "Aceptar"
Case "DLGTRACE_CMDDUMP_HELP" : sLocal = "Elegir un archivo y guardar en él el contenido de la lista actual"
Case "DLGTRACE_CMDDUMP_LABEL" : sLocal = "Guardar en a archivo"
Case "DLGTRACE_LBLNBENTRIES_HELP" : sLocal = "Tamaño actual de la lista"
Case "DLGTRACE_LBLNBENTRIES_LABEL" : sLocal = "Numero actual de entradas:"
'----------------------------------------------------------------------------------------------------------------------
Case "DLGFORMAT_HELP" : sLocal = "Exportar el formulario"
Case "DLGFORMAT_TITLE" : sLocal = "Exportar como"
Case "DLGFORMAT_LBLFORMAT_HELP" : sLocal = "Formato en el que será ser exportado el formulario"
Case "DLGFORMAT_LBLFORMAT_LABEL" : sLocal = "Seleccionar el formato de salida"
Case "DLGFORMAT_CMDOK_HELP" : sLocal = "Validar su elección"
Case "DLGFORMAT_CMDOK_LABEL" : sLocal = "Aceptar"
Case "DLGFORMAT_CMDCANCEL_HELP" : sLocal = "Cancelar y cerrar el diálogo"
Case "DLGFORMAT_CMDCANCEL_LABEL" : sLocal = "Cancelar"
'----------------------------------------------------------------------------------------------------------------------
Case Else : sLocal = _Getlabel(psShortLabel, "DEFAULT")
End Select
'********************************************************
'Translated by Gisbert Friege
'********************************************************
Case "DE"
Select Case UCase(psShortlabel)
Case "ERR" & ERRDBNOTCONNECTED : sLocal = "Keine aktive Verbindung zu einer Datenbank gefunden"
Case "ERR" & ERRMISSINGARGUMENTS : sLocal = "Argumente fehlen oder sind nicht initialisiert"
Case "ERR" & ERRWRONGARGUMENT : sLocal = "Argument Nr. %0 [Wert = '%1'] ist ungültig"
Case "ERR" & ERRMAINFORM : sLocal = "Dokument '%0' enthält kein Formular"
Case "ERR" & ERRFORMNOTIDENTIFIED : sLocal = "Formular '%0' nicht bei den Datenbank-Formularen erkannt"
Case "ERR" & ERRFORMNOTFOUND : sLocal = "Formular '%0' nicht gefunden"
Case "ERR" & ERRFORMNOTOPEN : sLocal = "Formular '%0' ist zur Zeit nicht offen"
Case "ERR" & ERRDFUNCTION : sLocal = "DFunction Ausführung misslungen, SQL=%0"
Case "ERR" & ERROPENFORM : sLocal = "Formular '%0' konnte nicht geöffnet werden"
Case "ERR" & ERRPROPERTY : sLocal = "Eigenschaft '%0' in diesem Kontext nicht anwendbar"
Case "ERR" & ERRPROPERTYVALUE : sLocal = "Wert '%0' ist ungültig für die Eigenschaft '%1'"
Case "ERR" & ERRINDEXVALUE : sLocal = "Außerhalb des Array-Bereichs oder falsche Array-Größe für Eigenschaft '%0'"
Case "ERR" & ERRCOLLECTION : sLocal = "Außerhalb des Array-Bereichs"
Case "ERR" & ERRPROPERTYNOTARRAY : sLocal = "Argument Nr.%0 sollte ein Array sein"
Case "ERR" & ERRCONTROLNOTFOUND : sLocal = "Steuerelement '%0' nicht gefunden in parent (Formular, Tabelle oder Dialog) '%1'"
Case "ERR" & ERRNOACTIVEFORM : sLocal = "Kein aktives Formular oder Steuerelement gefunden"
Case "ERR" & ERRDATABASEFORM : sLocal = "Formular '%0' basiert nicht auf einem Datensatz"
Case "ERR" & ERRFOCUSINGRID : sLocal = "Steuerelement '%0' im Tabellen-Steuerelement '%1' nicht gefunden"
Case "ERR" & ERRNOGRIDINFORM : sLocal = "Kein Tabellen-Steuerelement im Formular '%0' gefunden"
Case "ERR" & ERRFINDRECORD : sLocal = "Bei FindNext() muss ein erfolgreicher FindRecord(...)-Aufruf vorhergehen"
Case "ERR" & ERRSQLSTATEMENT : sLocal = "SQL Error, SQL statement = '%0'"
Case "ERR" & ERROBJECTNOTFOUND : sLocal = "%0 '%1' nicht gefunden"
Case "ERR" & ERROPENOBJECT : sLocal = "%0 '%1' konnte nicht geöffnet werden"
Case "ERR" & ERRCLOSEOBJECT : sLocal = "%0 '%1' konnte nicht geschlossen werden"
Case "ERR" & ERRACTION : sLocal = "Aktion in diesem Kontext nicht anwendbar"
Case "ERR" & ERRSENDMAIL : sLocal = "Email-Dienst konnte nicht aktiviert werden"
Case "ERR" & ERRFORMYETOPEN : sLocal = "Formular %0 ist schon offen"
Case "ERR" & ERRMETHOD : sLocal = "Methode '%0' in diesem Kontext nicht anwendbar"
Case "ERR" & ERRPROPERTYINIT : sLocal = "Eigenschaft '%0' anwendbar aber nicht initialisiert"
Case "ERR" & ERRFILENOTCREATED : sLocal = "Datei '%0' konnte nicht erzeugt werden"
Case "ERR" & ERRDIALOGNOTFOUND : sLocal = "Dialog '%0' nicht in den aktuell geladenen Bibliotheken gefunden"
Case "ERR" & ERRDIALOGUNDEFINED : sLocal = "Dialog unbekannt"
Case "ERR" & ERRDIALOGSTARTED : sLocal = "Dialog schon gestartet"
Case "ERR" & ERRDIALOGNOTSTARTED : sLocal = "Dialog '%0' nicht aktiv"
Case "ERR" & ERRRECORDSETNODATA : sLocal = "Datensatz ergab keine Daten. Aktion auf aktuellem Datensatz verweigert"
Case "ERR" & ERRRECORDSETCLOSED : sLocal = "Datensatz wurde geschlossen. Datensatz-Aktion verweigert"
Case "ERR" & ERRRECORDSETRANGE : sLocal = "Aktueller Datensatz außerhalb des Bereichs"
Case "ERR" & ERRRECORDSETFORWARD : sLocal = "Aktion verweigert auf einem nur vorwärts lesbaren oder keine Textmarken unterstützenden Datensatz"
Case "ERR" & ERRFIELDNULL : sLocal = "Feld ist null oder leer. Aktion verweigert"
Case "ERR" & ERRFILEACCESS : sLocal = "Dateizugriffs-Fehler bei Datei '%0'"
Case "ERR" & ERROVERFLOW : sLocal = "Feldlänge (%0) überschreitet die maximale Länge. Verwende stattdessen die Methode '%1'"
Case "ERR" & ERRNOTACTIONQUERY : sLocal = "Abfrage '%0' ist keine Aktionsabfrage"
Case "ERR" & ERRNOTUPDATABLE : sLocal = "Datenbank, Datensatz oder Feld kann nur gelesen werden"
Case "ERR" & ERRUPDATESEQUENCE : sLocal = "Datensatz-Update Folgefehler"
Case "ERR" & ERRNOTNULLABLE : sLocal = "Feld '%0' darf keinen NULL-Wert haben"
Case "ERR" & ERRROWDELETED : sLocal = "Aktuelle Zeile wurde durch einen anderen Prozess oder Benutzer gelösch"
Case "ERR" & ERRRECORDSETCLONE : sLocal = "Ein geklonter Datensatz kann nicht geklont werden"
Case "ERR" & ERRQUERYDEFDELETED : sLocal = "Bereits vorhandene Abfrage '%0' wurde gelöscht"
Case "ERR" & ERRTABLEDEFDELETED : sLocal = "Bereits vorhandene Tabelle '%0' wurde gelöscht"
Case "ERR" & ERRTABLECREATION : sLocal = "Tabelle '%0' konnte nicht erzeugt werden"
Case "ERR" & ERRFIELDCREATION : sLocal = "Feld '%0' konnte nicht erzeugt werden"
Case "ERR" & ERRSUBFORMNOTFOUND : sLocal = "Unterformular '%0' nicht im Eltern-Formular '%1 gefunden"
Case "ERR" & ERRWINDOW : sLocal = "Aktuelles Fenster ist kein Dokument"
Case "ERR" & ERRCOMPATIBILITY : sLocal = "Feld '%0' konnte wegen inkompatibler Feldtypen der Datenbanksysteme nicht konvertiert werden"
Case "ERR" & ERRPRECISION : sLocal = "Feld '%0' konnte wegen fehlender Speicherkapazität nicht in den Datensatz #%1 geladen werden"
Case "ERR" & ERRMODULENOTFOUND : sLocal = "Modul '%0' nicht gefunden in den aktuell geladen Bibliotheken"
Case "ERR" & ERRPROCEDURENOTFOUND : sLocal = "Prozedur '%0' im Modul '%1' nicht gefunden"
'----------------------------------------------------------------------------------------------------------------------
Case "OBJECT" : sLocal = "Objekt"
Case "TABLE" : sLocal = "Tabelle"
Case "QUERY" : slocal = "Abfrage"
Case "FORM" : sLocal = "Formular"
Case "REPORT" : sLocal = "Report"
Case "RECORDSET" : sLocal = "Datensatz"
Case "FIELD" : sLocal = "Feld"
Case "TEMPVAR" : sLocal = "Temporäre Variable"
Case "COMMANDBAR" : sLocal = "Befehlsleiste"
Case "COMMANDBARCONTROL" : sLocal = "Befehlsleisten-Steuerelement"
'----------------------------------------------------------------------------------------------------------------------
Case "ERR#" : sLocal = "Error #"
Case "ERROCCUR" : sLocal = "aufgetreten"
Case "ERRLINE" : sLocal = "in Zeile"
Case "ERRIN" : sLocal = "in"
Case "CALLTO" : sLocal = "ein Funktionsaufruf"
Case "SAVECONSOLE" : sLocal = "Konsoleneingaben sichern"
Case "SAVECONSOLEENTRIES" : sLocal = "Die Konsoleneingaben wurden erfolgreich gesichert."
Case "QUITSHORT" : sLocal = "Beenden"
Case "QUIT" : sLocal = "Wollen Sie wirklich die Anwendung beenden? Geänderte Daten werden gesichert."
Case "ENTERING" : sLocal = "Beginne mit"
Case "EXITING" : sLocal = "Verlasse"
'----------------------------------------------------------------------------------------------------------------------
Case "DLGTRACE_HELP" : sLocal = "Verwalte den Konsolenpuffer und seine Eingaben"
Case "DLGTRACE_TITLE" : sLocal = "Konsole"
Case "DLGTRACE_LBLENTRIES_HELP" : sLocal = "Leere die Liste und ändere die Größe des Umlaufpuffers"
Case "DLGTRACE_LBLENTRIES_LABEL" : sLocal = "Setze maximale Anzahl von Eingaben"
Case "DLGTRACE_TXTTRACELOG_HELP" : sLocal = "Text kann ausgewählt, kopiert, ... werden"
Case "DLGTRACE_TXTTRACELOG_TEXT" : sLocal = "--- Log Datei ist leer ---"
Case "DLGTRACE_CMDCANCEL_HELP" : sLocal = "Abbrechen und den Dialog schließen"
Case "DLGTRACE_CMDCANCEL_LABEL" : sLocal = "Abbrechen"
Case "DLGTRACE_LBLCLEAR_HELP" : sLocal = "Leere die Liste"
Case "DLGTRACE_LBLCLEAR_LABEL" : sLocal = "Leere die Liste"
Case "DLGTRACE_LBLMINLEVEL_HELP" : sLocal = "Registriere nur Logging-Anfragen oberhalb des gegebenen Levels"
Case "DLGTRACE_LBLMINLEVEL_LABEL" : sLocal = "Setze minimalen Fehlerbehandlungs-Level"
Case "DLGTRACE_CMDOK_HELP" : sLocal = "Übernehmen"
Case "DLGTRACE_CMDOK_LABEL" : sLocal = "OK"
Case "DLGTRACE_CMDDUMP_HELP" : sLocal = "Wähle eine Datei und speichere darin den aktuellen Listeninhalt"
Case "DLGTRACE_CMDDUMP_LABEL" : sLocal = "Ausgabe in Datei"
Case "DLGTRACE_LBLNBENTRIES_HELP" : sLocal = "Aktuelle Länge der Liste"
Case "DLGTRACE_LBLNBENTRIES_LABEL" : sLocal = "Aktuelle Anzahl von Einträgen:"
'----------------------------------------------------------------------------------------------------------------------
Case "DLGFORMAT_HELP" : sLocal = "Exportiere das Formular"
Case "DLGFORMAT_TITLE" : sLocal = "Export"
Case "DLGFORMAT_LBLFORMAT_HELP" : sLocal = "Format, in dem das Formular exportiert werden soll"
Case "DLGFORMAT_LBLFORMAT_LABEL" : sLocal = "Wähle das Ausgabe-Format"
Case "DLGFORMAT_CMDOK_HELP" : sLocal = "Auswahl übernehmen"
Case "DLGFORMAT_CMDOK_LABEL" : sLocal = "OK"
Case "DLGFORMAT_CMDCANCEL_HELP" : sLocal = "Abbrechen und den Dialog schließen"
Case "DLGFORMAT_CMDCANCEL_LABEL" : sLocal = "Abbrechen"
'----------------------------------------------------------------------------------------------------------------------
Case Else : sLocal = _Getlabel(psShortLabel, "DEFAULT")
End Select
REM *******************************************************************************************************************************************
REM *** ***
REM *** ANY OTHER LANGUAGE TO BE INSERTED HERE ***
REM *** ***
REM *******************************************************************************************************************************************
Case Else
sLocal = _Getlabel(psShortLabel, "DEFAULT")
End Select
Exit_Function:
_Getlabel = sLocal
Exit Function
Error_Function:
sLocal = psShortLabel
GoTo Exit_Function
End Function ' GetLabel V0.8.9
REM -----------------------------------------------------------------------------------------------------------------------
Public Function _GetLabelArray(ByVal pvShortlabel As Variant, Optional ByVal psLocale As String) As Variant
' Return the localized label corresponding with the ShortLabel array of strings
If IsMissing(psLocale) Then psLocale = UCase(Left(_GetLocale(), 2)) Else psLocale = UCase(psLocale)
On Local Error Goto Error_Function
Dim vLocal() As Variant, i As integer
vLocal = Array()
If Not IsArray(pvShortLabel) Then
vLocal = _GetLabel(pvShortLabel, psLocale)
Goto Exit_Function
End If
ReDim vLocal(LBound(pvShortLabel) To UBound(pvShortlabel))
For i = LBound(pvShortLabel) To UBound(pvShortlabel)
vLocal(i) = _GetLabel(pvShortLabel(i), psLocale)
Next i
Exit_Function:
_GetlabelArray = vLocal()
Exit Function
Error_Function:
vLocal = Array()
GoTo Exit_Function
End Function ' GetLabelArray V0.8.9
REM -----------------------------------------------------------------------------------------------------------------------
Public Function _GetLocale() as String
'Return OO localization
'Derived from Tools library
Dim oLocale as Object
oLocale = _GetRegistryKeyContent("org.openoffice.Setup/L10N")
_GetLocale = oLocale.getByName("ooLocale")
End Function ' GetLocale V0.8.9
</script:module>
|
