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