Nuevo FiveDBU usando el API de cadenas y el nuevo preview

[Antonio Linares]

https://code.google.com/p/fivewin-contributions/downloads/detail?name=fivedbu_20130824.zip

Código fuente incluido

[Antonio Linares]

Versión mejorada:

https://code.google.com/p/fivewin-contributions/downloads/detail?name=fivedbu_20130824_2.zip

[Antonio Linares]

Versión mejorada que permite seleccionar el lenguaje desde el diálogo Preferencias:

https://code.google.com/p/fivewin-contributions/downloads/detail?name=fivedbu_20130824_3.zip

Se incluye strings.prg por si alguien puede ayudar en su traducción, gracias

El orden de las traducciones es: "EN", "ES", "FR", "PT", "DE", "IT"

ejemplo:
{ "Attention", "Atención", "Attention", "Atenção", "Achtung", "Attenzione" }

[elvira]

No me deja abrir directamente un access

[Antonio Linares]

Elvira,

Puedes usar un datasource previamente definido desde el panel de control ó especificar una cadena de conexión como esta:

DSN=MS Access Database;DBQ=test.mdb;DefaultDir=C:\;DriverId=25;FIL=MS Access;MaxBufferSize=2048;PageTimeout=5;UID=admin;

La caja de diálogo estandard de Windows que te aparece te ayuda a construir esa cadena y a probar si está bien

[elvira]

Y no se puede hacer directamente como en los dbfs?.

Es qué resulta engorroso la verdad y poco práctico. Se tarda menos incluso con el propio Access.

[Antonio Linares]

Versión mejorada que ya permite cambiar dinamicamente de lenguaje en tiempo de ejecución

https://code.google.com/p/fivewin-contributions/downloads/detail?name=fivedbu_20130824_4.zip

[Antonio Linares]

Las traducciones de strings.prg más recientes:

Code: Select all  Expand view

static aStrings := { ;
   { "Attention", "Atención", "Attention", "Atenção", "Achtung", "Attenzione" }, ;
   { "PDF Plugin Error", "Error del plugin de PDF", "Erreur de plugin du PDF", "Erro do plugin do PDF", ;
     "PDF Plugin Fehler", "Errore del plug PDF" }, ;
   { "PDF not saved to send Email", "No se ha guardado el PDF a enviar por Email", ;
     "PDF Non enregistré pour envoi Email", "PDF não foi salvo para mandar por email", ;
     "PDF nicht gespeichert. um E-Mail zu senden", "PDF non salvato per inviare e-mail" }, ;
   { "MS Word not installed", "MS Word no está instalado", "MS Word non installé", "MS Word não está instalado", ;
     "MS Word nicht installiert ist", "MS Word non è installata" }, ;
   { "Failed to Create Word Document", "No se ha podido crear el documento de Word", ;
     "Echec à la création du document Word", "Não foi possível criar o documento do Word", ;
     "Fehler beim Word-Dokument erstellen", "Impossibile creare il documento di Word" }, ;
   { "There is no output for export", "No hay nada que exportar", "Rien à exporter", "Nada para exportar", ;
     "Es erfolgt keine Ausgabe für den Export", "Non vi è alcuna uscita per l'esportazione" }, ;
   { "No .Doc file manipulation software installed", "No hay instalado software para usar ficheros .Doc", ;
     "Pas de programme installé pour manipuler les fichiers .Doc", "Não há software instalado para usar arquivos .Doc", ;
     "Keine. Doc Dateimanipulation Software installiert haben", ;
     "Nessun installato. Software di manipolazione di file Doc" }, ;
   { "not found, imposible to continue", "no se ha encontrado, no se puede continuar", ;
     "Pas trouvé, impossible de continuer", "não encontrado, impossível continuar", "Nicht gefunden. imposible fortsetzen", ;
     "Non trovata. imposible di continuare" }, ;
   { "Printing Error", "Error de impresión", "Erreur impressión", "Erro de impressão", "Druckfehler", "Errore di stampa" }, ;
   { "View", "Visualizar", "Visualiser", "Visualizar", "Sehen Sie", "Guarda" }, ;
   { "Excel not installed", "Excel no está instalado", "Excel non installé", "Excel não está instalado", ;
     "Excel nicht installiert", "Non Excel" }, ;
   { "Report width is greater than page width", "El ancho del informe es mayor que el ancho de la página", ;
     "Largeur du Rapport supérieure à la largeur de la page", "A largura do relátorio é maior que a página", ;
     "Melden Breite größer als Seitenbreite", "Rapporto larghezza è maggiore della larghezza pagina" }, ;
   { "Export to Excel is available only", "Solo está disponible exportar a Excel", ;
     "Export vers Excel uniquement disponible", "Somente a exportação para o Excel está disponível", ;
     "Excel-Export ist nur verfügbar", "Esporta in Excel è disponibile solo" }, ;
   { "for Reports with ::bInit defined", "para reportes con ::bInit definido", "pour Rapports avec ::bInit défini", ;
     "para relatórios com ::bInit definido", "Für Berichte mit :: bInit definiert", ;
     "Per i Rapporti con definito ::bInit" }, ;
   { "Printing Preview", "Previsualización de Impresión", "visualisation de l'impression", ;
     "Previsualização da impressão", "Printing Preview", "Anteprima di stampa" }, ;
   { "&File", "&Fichero", "&Fichier", "Ar&quivos", "Datei", "File" }, ;
   { "&Print", "&Imprimir", "&Imprimer", "&Imprimir", "Print", "Stampa" }, ;
   { "Print actual page", "Imprimir la página actual", "Imprimer la Page en Cours", "Imprimir a página atual", ;
     "Aktuelle Seite ausdrucken", "Stampa pagina reale" }, ;
   { "&Exit", "&Salir", "&Quitter", "&Sair", "Exit", "Exit" }, ;
   { "Exit from preview", "Salir de la previsualización", "Quitter la Visualisation", "Sair da previsualização", ;
     "Verlassen Sie Vorschau", "Esci da anteprima" }, ;
   { "Page", "Página", "Page", "Página", "Seite", "Pagina" }, ;
   { "&First", "&Primera", "&Première", "&Primeira", "Zuerst", "Prima" }, ;
   { "Go to first page", "Ir a la primera página", "Aller à la première page", "Ir para primeira página", ;
     "Zur ersten Seite", "Vai alla prima pagina" }, ;
   { "&Previous", "&Anterior", "&Précédente", "&Anterior", "Zurück", "Precedente" }, ;
   { "Go to previous page", "Ir a la página anterior", "Aller à la page précédente", "Ir para página anterior", ;
     "Zur vorherigen Seite", "Vai alla pagina precedente" }, ;
   { "&Next", "&Siguiente", "&Suivante", "Pró&xima", "Weiter", "Successiva" }, ;
   { "Go to next page", "Ir a la siguiente página", "Aller à la page suivante", "Ir para a próxima página", ;
     "Gehe zur nächsten Seite", "Vai alla pagina successiva" }, ;
   { "&Last", "&Ultima", "&Dernière", "Ú&ltima", "Last", "Ultimo" }, ;
   { "Go to last page", "Ir a la última página", "Aller à la dernière page",, "Zur letzten Seite", ;
     "Vai all'ultima pagina" }, ;
   { "&Zoom", "&Zoom", "&Zoom", "&Zoom", "Zoom", "Zoom" }, ;
   { "Page zoom", "Página ampliada con zoom", "zoom de la page", "zoom da página", "Seite Zoom", "Zoom della pagina" }, ;
   { "&Normal", "&Normal", "&Normal", "&Normal", "Normal", "Normale" }, ;
   { "Page unzoom", "Página normal", "Page normale", "Página normal", "Seite unzoom", "Pagina eliminare lo zoom" }, ;
   { "&Factor", "&Factor", "&Facteur", "&Fator", "Factor", "Fattore" }, ;
   { "Zoom factor", "Factor de zoom", "Facteur de Zoom", "Fator de zoom", "Zoom-Faktor", "Fattore di zoom" }, ;
   { "Factor", "Factor", "Facteur", "Fator", "Factor", "Fattore" }, ;
   { "&Two pages", "&Dos páginas", "&Deux pages", "&Duas páginas", "Zwei Seiten", "Due pagine" }, ;
   { "Preview on two pages", "Previsualización en dos páginas", "Visualiser sur deux pages", ;
     "Previsualização em duas páginas", "Vorschau auf zwei Seiten", "Anteprima su due pagine" }, ;
   { "One &page", "Una &página", "une &page", "Uma pá&gina", "Eine Seite", "Una pagina" }, ;
   { "Preview on one page", "Previsualización en una página", "Visualiser sur une page", ;
     "Previsualização em uma página", "Vorschau auf einer Seite", "Anteprima di una pagina" }, ;
   { "Page number:", "Número de página:", "Numéro de la Page:", "Número de página:", "Seitenzahl:", "Numero di pagina:" }, ;
   { "Go to first page", "Ir a la primera página", "Aller à la première page", "Ir para a primeira página", "Zur ersten Seite", "Vai alla prima pagina" }, ;
   { "First", "Primera", "Première", "Primeira", "Zuerst", "Prima" }, ;
   { "&Page", "&Página", "&Page", "Pá&gina", "Seite", "Pagina" }, ;
   { "Preview on one page", "Previsualización en una página", "Visualiser sur une page", "Previsualização em uma página", "Vorschau auf einer Seite", "Anteprima di una pagina" }, ;
   { "Previous", "Anterior", "Précédente", "Anterior", "Zurück", "Precedente" }, ;
   { "Next", "Siguiente", "Suivante", "Próxima", "Weiter", "Successiva" }, ;
   { "Last", "Ultima", "Dernière", "Última", "Last", "Ultimo" }, ;
   { "Zoom", "Aumentar", "Zoom", "Aumentar", "Zoom", "Zoom" }, ;
   { "Two pages", "Dos páginas", "Deux pages", "Duas páginas", "Zwei Seiten", "Due pagine" }, ;
   { "Print", "Imprimir", "Imprimer", "Imprimir", "Print", "Stampa" }, ;
   { "Save to DOC/PDF", "Guardar como DOC/PDF", "Enregistrer Format DOC/PDF", "Salvar como DOC/PDF", ;
     "Zu den DOC / PDF", "Salva per DOC / PDF" }, ;
   { "DOC Format", "Formato DOC", "Format DOC", "Formato DOC", "DOC-Format", "DOC Formato" }, ;
   { "PDF Format", "Formato PDF", "Format PDF", "Formato PDF", "PDF-Format", "Formato PDF" }, ;
   { "Export to PDF", "Exportar a PDF", "Exporter en PDF", "Exportar para PDF", "Export nach PDF", ;
     "Esportazione in formato PDF" }, ;
   { "Send by email as PDF", "Enviar por email como PDF", "Evnoi par email format PDF", "Enviar PDF por email", ;
     "Senden Sie per E-Mail als PDF", "Invia per e-mail in formato PDF" }, ;
   { "Export to MS Word", "Exportar a MS Word", "Exporter vers MS Word", "Exportar para MS Word", ;
     "Export nach MS Word", "Esporta in MS Word" }, ;
   { "Export to Excel", "Exportar a Excel", "Exporter vers Excel", "Exportar para Excel", "Excel-Export", ;
     "Esporta in Excel" }, ;
   { "Exit", "Salir", "Quitter", "Sair", "Exit", "Exit" }, ;
   { "Preview", "Previsualización", "Visualisation", "Previsualização", "Vorschau", "Anteprima" }, ;
   { "Save as", "Guardar como", "Enregistrer Sous", "Salvar como", "Speichern unter", "Salva con nome" }, ;
   { "Printing", "Imprimiendo", "Impression", "Imprimindo", "Druck", "Stampa" }, ;
   { "&Ok", "&Aceptar", "&OK", "C&onfirmar", "Ok", "Ok" }, ;
   { "&Cancel", "&Cancelar", "&Annuler", "&Cancelar", "Abbrechen", "Annulla" }, ;
   { "Printing range", "Rango de impresión", "Portée Impression", "Intervalo de impressão", "Druckbereich", ;
     "Gamma di stampa" }, ;
   { "All", "Todo", "Toutes", "Todo", "Alle", "Tutto" }, ;
   { "Current page", "Página actual", "Page en cours", "Página atual", "Diese Seite", "La pagina corrente" }, ;
   { "Pages", "Páginas", "Pages", "Páginas", "Seiten", "Pagine" }, ;
   { "From", "Desde", "De", "De", "Aus", "Da" }, ;
   { "To", "Hasta", "A", "Até", "Um", "A" }, ;
   { "Undo", "Deshacer", "Annuler", "desfazer", "Rückgängig", "Undo" }, ;
   { "Redo", "Rehacer", "Rétablir", "refazer", "Redo", "Redo" }, ;
   { "Cut", "Cortar", "couper", "Corte", "Schneiden", "Tagliare" }, ;
   { "Copy", "Copiar", "Copier", "cópia", "Kopieren", "Copia" }, ;
   { "Paste", "Pegar", "coller", "colar", "Einfügen", "Incolla" }, ;
   { "Delete", "Eliminar", "Supprimer", "excluir", "Löschen", "Elimina" }, ;
   { "Font", "Fuente", "Police", "Font", "Shrift", "Carattere" }, ;
   { "Print", "Imprimir", "Imprimer", "Imprimir", "Print", "Stampa" }, ;
   { "Select All", "Seleccionar Todo", "Sélectionner Tout", "Selecionar tudo", "Alle Auswählen", "Seleziona Tutto" }, ;
   { "Align", "Alinear", "Aligner", "alinhar", "Ausrichten", "Allineare" }, ;
   { "Left", "Izquierda", "Gauche", "à esquerda", "Linke", "Sinistra" }, ;
   { "New", "Nuevo", "nouveau", "novo", "neue", "nuovo" }, ;
   { "ADO open", "ADO abrir", "ADO ouvrir", "ADO abrir", "ADO öffnen", "ADO aprire" }, ;
   { "Open", "Abrir", "ouvrir", "Abrir", "öffnen", "Aprire" }, ;
   { "Center", "Centro", "Centrer", "center", "Center", "Centro" }, ;
   { "Right", "Derecha", "Droite", "certo", "Richtig", "Giusto" }, ;
   { "Justify", "Justificar", "Justifier", "justificar", "Rechtfertigen", "Giustificare" }, ;
   { "Attention", "¡Atención", "Attention", "Atenção", "Achtung", "Attenzione" }, ;
   { "Information", "Información", "Informations", "Informações", "Informazioni" }, ;
   { "Wrong predefined cursor type!", "Wrong tipo de cursor predefinido!", "Mauvais catégorie de curseur prédéfini!" }, ;
   { "Errado tipo cursor predefinido!", "Falsche vordefinierten Cursor-Typ!", "Sbagliato predefinito tipo di cursore!" }, ;
   { "Want to end ?", "¿ Desea terminar ?", "Veulent mettre fin ? ", "Quer acabar ?", "Beenden möchten ?", "voglio finire ?" },;
   { "Recent files", "Ficheros recientes" },;
   { "Open this file", "Abrir este fichero" },;
   { "Recent ADO connections", "Conexiones ADO recientes" },;
   { "Recent ADO connections strings", "Cadenas de conexión ADO recientes" },;
   { "Connect to this ADO database", "Conectar a esta base de datos ADO" },;
   { "Preferences", "Preferencias" },;
   { "Natural order", "Orden natural" },;
   { "Add", "Añadir" },;
   { "Edit", "Editar" },;
   { "Del", "Borrar" },;
   { "Top", "Inicio" },;
   { "Bottom", "Final" },;
   { "Search", "Buscar" },;
   { "Index", "Orden" },;
   { "Filter", "Filtro" },;
   { "Relations", "Relaciones" },;
   { "Process", "Proceso" },;
   { "Struct", "Estructura" },;
   { "Imp/Exp", "Imp/Exp" },;
   { "Report", "Reporte" },;
   { "FileName", "Nombre del fichero" },;
   { "NON DELETED", "NO BORRADO" },;
   { "nondeleted", "No borrado" },;
   { "Ordered by", "Ordenado por" },;
   { "Natural order", "Orden natural" },;
   { "Edit", "Editar" },;
   { "Save", "Guardar" },;
   { "Prev", "Anterior" },;
   { "Value", "Valor" },;
   { "Please select a DBF", "Por favor seleccione una DBF" },;
   { "(Y/N)", "(S/N)" },;
   { "Index builder", "Constructor de índices" },;
   { "Expression", "Expresión" },;
   { "Tag", "Tag" },;
   { "For", "Para" },;
   { "While", "Mientras" },;
   { "Unique", "Unico" },;
   { "Descending", "Descendente" },;
   { "Memory", "Memoria" },;
   { "Scope", "Ambito" },;
   { "Record", "Registro" },;
   { "Rest", "Restantes" },;
   { "Progress", "Progreso" },;
   { "Create", "Crear" },;
   { "fields", "campos" },;
   { "Name", "Nombre" },;
   { "Type", "Tipo" },;
   { "Len", "Lon" },;
   { "Dec", "Dec" },;
   { "Code", "Código" },;
   { "Indexes of ", "Indices de " },;
   { "Order", "Orden" },;
   { "TagName", "NombreTag" },;
   { "BagName", "NombreBag" },;
   { "BagExt", "ExtBag" },;
   { "Incremental", "Incremental" },;
   { "Key", "Clave" },;
   { "Help", "Ayuda" },;
   { "Import/Export for ", "Importar/Exportar para " },;
   { "PDF files | *.pdf |", "ficheros PDF | *.pdf |" },;
   { "Select PDF File to Save", "Seleccione el fichero PDF a guardar" },;
   { "Alert", "Alerta" },;
   { "Select an option", "Seleccione una opción" },;
   { "Window", "Ventana" },;
   { "Tile Vertical", "Distribución vertical" },;
   { "Vertical arranges the windows as nonoverlapping tiles", "Organiza las ventanas verticalmente" },;
   { "Tile Horizontal", "Distribución horizontal" },;
   { "Horizontal arranges the windows as nonoverlapping tiles", "Organiza las ventanas horizontalmente" },;
   { "Cascade", "Cascada" },;
   { "Arranges the windows so they overlap", "Organiza las ventanas para que no se oculten" },;
   { "Next Window", "Próxima ventana" },;
   { "Selects the next window", "Selecciona la próxima ventana" },;
   { "Arrange Icons", "Organiza los iconos" },;
   { "Arrange icons at the bottom of the window", "Organiza los iconos al final de la ventana" },;
   { "Iconize All", "Iconiza todas" },;
   { "Iconize all open windows", "Iconiza todas las ventanas abiertas" },;
   { "Close All", "Cierra todas" },;
   { "Close all open windows", "Cierra todas las ventanas abiertas" },;
   { "Contents", "Contenidos" },;
   { "Show the help contents", "Muestra los contenidos de la ayuda" },;
   { "Search for Help on...", "Busca en la ayuda por..." },;
   { "Search the help for a specific item", "Busca la ayuda para un item específico" },;
   { "Using help", "Usando la ayuda" },;
   { "Show the help index", "Muestra el índice de la ayuda" },;
   { "About...", "Acerca de..." },;
   { "Displays program information and copyright", "Muestra información y derechos de copia del programa" },;
   { "Default RDD", "RDD por defecto" },;
   { "Open in shared mode", "Abrir en modo compartido" },;
   { "No Help file defined with SetHelpFile()", "No se ha definido un fichero de ayuda usando SetHelpFile()" },;
   { "Want to delete this record ?", "¿ Desea eliminar este registro ?" },;
   { "Expression builder", "Constructor de expresiones" },;
   { "Operators", "Operadores" },;
   { "Functions", "Funciones" },;
   { "Relations of", "Relaciones de" },;
   { "Rel.", "Rel." },;
   { "Child Alias", "Alias del hijo" },;
   { "Additive", "Aditivo" },;
   { "Scoped", "Con ámbito" },;
   { "Processes", "Procesos" },;
   { "Run", "Correr" },;
   { "DELETED", "BORRADO" },;
   { "Record updated", "Registro actualizado" },;
   { "DBF builder", "Constructor de DBF" },;
   { "Field Name", "Nombre campo" },;
   { "FieldName", "Nombre campo" },;
   { "Move Up", "Mover arriba" },;
   { "Move Down", "Mover abajo" },;
   { "DBF Name:", "Nombre DBF:" },;
   { "Language", "Lenguaje" },;
   { "English", "Inglés" },;
   { "Spanish", "Español" },;
   { "French", "Frances" },;
   { "German", "Alemán" },;
   { "Portuguese", "Portugues" },;
   { "Italian", "Italiano" },;
   { "Databases", "Bases de datos" },;
   { "Query", "Consulta" },;
   { "Query builder", "Construtor de consultas" },;
   { "Operation", "Operación" },;
   { "Equal", "Igual" },;
   { "Diferent", "Diferente" },;
   { "Like", "Como" },;
   { "Equal", "Igual" } }
 

[Antonio Linares]

Elvira,

Esta versión de FiveDBU ya abre directamente los ficheros MDB de Access
https://code.google.com/p/fivewin-contributions/downloads/detail?name=fivedbu_20130824_5.zip

Te agradezco si me respondes al email que te he enviado

[sysctrl2]

Antonio, Felicidades !!

el Preview, se ve Potente,

lo que el desarrollador necesita siempre,

es que desde el preview se pueda enviar, por email, Word, Excel, etc.

saludos.

[elvira]

Saluditos,

He detectado varias fallas en el producto:











Ya no sale el icono de la impresaora, el recuardo ni el texto que decía Previsualizando página


También los pdfs ocupan muchísimo espacio, dos páginas 3 megas y medio !!!.

Nadie lo está usando?.

[Sistem]

nuevas versiones de FWH no será necesario el uso de prev32.dll ?

[Antonio Linares]

Todos solucionados excepto el último (aún), gracias!

[Antonio Linares]

Sistem,

FWH ya no usa prev32...dll

[Antonio Linares]

Ok