540 lines
51 KiB
Java
540 lines
51 KiB
Java
<?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> |