Xtranslation
Inhaltsverzeichnis
xtranslation - Übersetzung
Mit dem Kommando xtranslation ruft man das Übersetzungstool auf.
Sprachen
In der ausgelieferten Datenbank sind bereits die Sprachen Englisch und Deutsch angelegt. Sollen weitere Sprachen hinzugefügt werden, so wird der entsprechende Button verwendet.
Auf derselben Seite kann auch die Sprache gesetzt werden, mit der die Texte im BAF-Client angezeigt werden. Damit werden auch die Übersetzungen aktualisiert, wenn zwischenzeitlich Änderungen daran vorgenommen wurden.
Übersetzungen
Unter Alle Worte findet man eine Liste der Worte (und Phrasen), die im System angelegt sind. Im Gegensatz dazu findet man unter Zu übersetzen diejenigen, die nicht oder nicht vollständig übersetzt sind. (Üblicherweise verwendet man Zu übersetzen, um neue Worte zu übersetzen und Alle Worte, um bestehende Übersetzungen zu verbessern.)
Üblicherweise enthalten Worte (z.B. Add_group) keine Leerzeichen, damit im Quelltext die entsprechenden Parameter nicht in Anführungszeichen gesetzt werden müssen. Das Grid Übersetzung enthält eine Zeile pro angelegter Sprache.
In den Anmerkungen kann zum Beispiel dargelegt werden, warum diese und nicht jene Formulierung verwendet wurde. Im Regelfall bleibt das Anmerkungsfeld jedoch leer.
Tabellen
create table translate_language ( translate_language_id varchar(40) not null primary key, name varchar(40) not null unique, sort number(1), datechg date, usrchg char(40), progchg varchar2(40) );
create table translate_word ( translate_word_id varchar(40) not null primary key, word varchar(40) not null unique, datechg date, usrchg char(40), progchg varchar2(40) );
create table translate_translation ( translate_translation_id varchar(40) not null primary key, translate_word_id varchar(40) not null, translate_language_id varchar(40) not null, translation varchar(250), datechg date, usrchg char(40), progchg varchar2(40) );
create table translate_list_item ( translate_list_item_id varchar(40) not null primary key, data_list_item_id varchar(40) not null, translate_language_id varchar(40) not null, value varchar(80), datechg date, usrchg char(40), progchg varchar2(40) );
Die Tabelle translate_list_item dient der Übersetzung der Listeneinträge in den Nachschlagelisten (xlookup).
Code
xtranslation
#frm y=treepage c=xtranslation flt=xtranslation_flt w=400 #btn y=save s=#save se=c #btn y=cancel s=#cancel se=cp #btn y=back s=#treeback se=b #btn y=backback s=#treebackback se=b #btn y=export s=xtranslation_eximport(ex) se=b #btn y=import s=xtranslation_eximport(im) se=b #btn c=$T(Refresh) se=b s=#filter w=100 #filter
Das Kommando xtranslation ist völlig ein Standard-Formular-Kommando.
xtranslation_exec
~ $ICP(0,setlang) #set_language z=$PVAL(lang,1,sel) #page_fill d=$CP(1) ~~
Mit der Prozedur #set_language wird die Sprache des BAF-Clients gesetzt. Anschließend wird die Seite neu aufgerufen. Da das Kommando xtranslation_exec von verschiedenen Seiten aus aufgerufen wird, wird der Parameter d von #page_fill als Parameter des Kommandos übergeben.
xtranslation_eximport
~ $ICP(0,ex) #val_set n=1 z=$FILEDIALOG(save,$T(filter_baf),baf) #sql_exporttables fn=$VAL(1) t=translate_language t2=translate_word t3=translate_translation t4=translate_list_item ~ $ICP(0,im) #val_set n=1 z=$FILEDIALOG(open,$T(filter_baf),baf) #sql_importdefs t=translate_language #sql_importdefs t=translate_word #sql_importdefs t=translate_translation #sql_importdefs t=translate_list_item #sql_importtables fn=$VAL(1) t=translate_language t2=translate_word t3=translate_translation t4=translate_list_item ~~
Beim Ex- und Import werden "geradeaus" die vier beteiligten Tabellen ex- oder importiert.
xtranslation_flt
#tree_clear #tree_add u=root c=$T(Languages) s="#page_fill d=xtranslation_page_languages" #tree_add u=root c=$T(All_words) s="#page_fill d=xtranslation_page_allwords" o=xtranslation_open(allwords) #tree_add u=root c=$T(to_translate) s="#page_fill d=xtranslation_page_to_translate" o=xtranslation_open(to_translate)
Im Baum haben wir erst mal nur die drei Oberpunkte, alles andere wird bei Bedarf geladen.
xtranslation_open
~ $ICP(0,allwords) #sql select * from translate_word order by upper(word) #tree_node u=exp t=translate_word c1=word s="#page_fill d=xtranslation_page_translate" #tree_fillsql ~ #sql select w.translate_word_id, w.word, count(t1.translate_translation_id) #sql from translate_word w #sql inner join translate_language l on 1 = 1 #sql left outer join translate_translation t1 on t1.translate_word_id = w.translate_word_id #sql and t1.translate_language_id = l.translate_language_id #sql group by w.translate_word_id, w.word #sql having count(t1.translate_translation_id) < (select count(*) from translate_language) order by l.csort #tree_node u=exp t=translate_word c1=word s="#page_fill d=xtranslation_page_translate" #tree_fillsql ~~
Mit dem Parameter allwords werden alle Worte in den Baum geladen, andernfalls nur die zu übersetzenden. Die zu übersetzenden Wörter sind definiert als diejenigen, die weniger Übersetzungen haben als Sprachen definiert sind.
xtranslation_page_allwords
#page #prim as=Y #cat as=N sz=360 c=$T(All_words) #btns_seg #btns_btn c=$T(Add_word) w=150 cmd="#grd_add i=grid f_translate_word_id=$GUID() " #grd_seg frc=0 fcc=1 clt=ss n=grid #grd_col f=translate_word_id c1="ID" w=30 y=guid ro=Y #grd_col f=word c1=$T(Word) w=300 l=40 #sql select * from translate_word order by word #grd_data q=sql t=translate_word
Auf der Seite xtranslation_page_allwords werden alle definierten Worte angezeigt. Die Möglichkeit, ein neues Wort hinzuzufügen, ist in der Praxis ziemlich bedeutungslos: Neue Worte werden durch Verwendung in der Funktion $T() hinzugefügt und erscheinen dann automatisch in der Liste der noch zu übersetzenden Worte.
xtranslation_page_languages
#page #prim as=Y #cat as=N sz=360 c=$T(Languages) #btns_seg #btns_btn c=$T(Add_language) w=150 cmd="#grd_add i=lang " #btns_btn c=$T(Set_language) w=150 cmd=xtranslation_exec(setlang,xtranslation_page_languages) #grd_seg frc=0 fcc=1 clt=ss n=lang c="$T(selected): $LANGUAGE()" b=H #grd_col f=translate_language_id c1=ID w=30 y=guid ro=Y nvi=$GUID() #grd_col f=name c1="Name" w=200 wst=300 l=40 #grd_col f=csort c1="Sort" w=50 l=1 y=int a=r a1=l #sql select * from translate_language order by csort #grd_data q=sql t=translate_language #memo_seg q=data i=xtranslation_languages c=$T(Notes) --#memo_seg q=file fn=i:\temp\test.txt c=$T(Notes)
Auf dieser Seite werden die verwendeten Sprachen dargestellt und können neue Sprachen hinzugefügt werden. Beim Setzen einer (anderen) Sprache wird dem Kommando xtranslation_exec als zweiter Parameter der Name des Kommandos übergeben, damit die Seite korrekt refresht werden kann (xtranslation_exec wird von verschiedenen Kommandos aus aufgerufen).
In der Überschrift des Grid-Segments wird die eingestellte Sprache angezeigt, diese wird mit der Funktion $LANGUAGE() ermittelt.
Das Bemerkungsfeld hat als Datenquelle data, wird also in der Tabelle data_memo gespeichert. Alternativ, als Kommantar dargestellt, die Speicherung der Anmerkung in einer Datei.
xtranslation_page_translate
#page #prim as=Y #cat as=Y c=$T(Word) #grd_seg frc=0 fcc=1 clt=ss n=grid #grd_col f=translate_word_id c1=ID w=30 y=guid ro=Y #grd_col f=word c1=$T(Word) w=300 wst=300 #sql select * from translate_word where translate_word_id = :kid #grd_data q=sql t=translate_word kid=$FND(s,translate_word_id) #prim as=Y #cat as=Y c=$T(Translation) #grd_seg frc=0 fcc=1 clt=ss n=grid c=" " b=H #grd_col f=translate_translation_id c1="ID" w=30 y=guid ro=Y nvi=$GUID() #grd_col f=translate_word_id c1="Translate Word Id" w=0 #grd_col f=translate_language_id c1="Translate Language Id" w=0 #grd_col f=name c1=$T(Language) w=100 nd=Y ro=Y #grd_col f=csort c1="Sort" w=0 nd=Y #grd_col f=translation c1=$T(Translation) w=300 wst=300 l=200 #sql select t.translate_translation_id, w.translate_word_id, l.translate_language_id, l.name, l.csort, #sql t.translation #sql from translate_word w #sql inner join translate_language l on 1 = 1 #sql left outer join translate_translation t #sql on t.translate_language_id = l.translate_language_id and t.translate_word_id = w.translate_word_id #sql where w.translate_word_id = :kid order by l.csort; #grd_data q=sql t=translate_translation kid=$FND(s,translate_word_id) #memo_seg q=data i=xtranslation_word c=$T(Notes) k=$FND(s,translate_word_id)
Bemerkenswert ist hier zunächst, dass das Segment in der Kategorie Wort, obwohl es nur einen Datensatz anzeigt, als Grid-Segment ausgeführt ist. So etwas wird üblicherweise nur dann gemacht, wenn damit Platz gespart werden soll (was mit zwei Spalten hier nicht möglich ist, aber die grundsätzliche Vorgehensweise zeigt).
Das Statement für die Übersetzungen joint zunächst kartesisch die Worte und die Sprachen und fügt die Tabelle translate_translation hinzu, in der die eigentliche Übersetzung steht. Die IDs für die Sprache und das Wort sind in Spalten mit der Breite 0. Der Name der Sprache wird im Klartext angezeigt, kann aber nicht in die Tabelle translate_translation gespeichert werden, darum ist hier der Parameter nd=Y ("no data") zu setzen.
Die Anmerkungen kommen wieder in ein Memo-Segment mit der Quelle q=data. Das Item ist hier translation_word, das für alle Worte gleich ist. Daher muss auch noch der Parameter k ("key") gesetzt werden, und zwar auf die ID des Wortes.
