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