Quelle  L10N.xba   Sprache: unbekannt

<?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>