Code: Alles auswählen
winactivate, TURBOMED
send, ^x
winwaitactive, TURBOMED - [Eigene Listen -- Komplexe]
send, a1{space}
Code: Alles auswählen
#NoEnv ; Recommended for performance and compatibility with future AutoHotkey releases.
SendMode Input ; Recommended for new scripts due to its superior speed and reliability.
SetWorkingDir %A_ScriptDir% ; Ensures a consistent starting directory.
; (diese ersten drei Zeilen sind bei der Script-Erstellung von AutoHotkey vorgegeben worden)
IfWinExist TurboMed
{
WinActivate
WinWaitActive
}
else ; --> dies sollte ggfs. unnötig sein, da bei Auslösen eines Komplexes immer TurboMed
; aktiv sein wird. Habe es aber noch nicht ohne dies "else" versucht, da es nicht stört.
{
run TurboMed
}
#SingleInstance force ; -->sorgt dafür, daß nur eine Instanz des Scripts aktiv sein kann
send ^x ; --> öffnet die Liste der Komplexe für die Auswahl
sleep 1 ; --> wartet darauf, dass das Fenster der Komplexe-Liste geöffnet ist, da ist Thomas'
; Lösung mit "WinWaitActive usw." ggfs. eleganter und sinnvoller.
; --> hier soll "send" und der Anfang der Komplexbezeichnung eingetragen werden, wenn
; ein bestimmter Komplex aus der Liste angewählt werden soll. Ggfs kann hier auch
; "send {down}" für das herunter-rücken der Hervorhebung um eine Zeile stehen)
send {Enter} ; --> bestätigt die Auswahl des Komplexes
; send {F3} ; --> wechselt zur Karteikartenansicht, sofern nicht schon dort... (bei mir speziell
; benötigt, daher hier auskommentiert.
; Falls benötigt: Semikolon davor entfernen...)
)
Code: Alles auswählen
Option explicit
Dim objKomplexe
set objKomplexe = Behandlungsfall.BehandelnderArzt.Listenbesitzer.Komplexe.Select("self.kuerzel = ""NAME_DES_KOMPLEXES""")
If objKomplexe.Count > 0 Then
Dim objManager
set objManager = CreateObject("TMKomplexsteuerung.Manager")
set objManager.Komplex = objKomplexe(0)
objManager.StarteKomplex Behandlungsfall
End If
formular.close
Es ist ja bekanntermaßen so, dass man mehr auf schlecht auffallende Zeitgenossen schimpft, als dass man positiv auffallende Zeitgenossen lobt. Leider eine menschliche Eigenart, die wir wohl nicht so schnell abstellen können. Es ist jedoch auch so, dass sich hier viel zu selten ein Händler positiv hervortut - vielen Dank an Sie, dass Sie uns zeigen, dass es auch anders geht. Wir hatten hier im Forum mal DenEchtenFreund, aber um ihn ist es sehr still geworden, und so sind wir Anwender im Forum eben unter uns - diejenigen mit gutem Support durch die Händler brauchen dieses Forum nicht (unbedingt) - hier treffen sich wohl primär die Anwender, die von Ihren Händlern im Stich gelassen und/oder mißhandelt werden... 
Ergo das Ungleichgewicht zwischen Lob und Tadel. )...und warum war dies bei meinem Versuch, solch einen tmf-Formular-Menüpunkt in die TOOLBAR aufzunehmen, derart negativ beschieden, dass der dafür neu erzeugte Menüpunkt IN DER TOOLBAR selbst in der Patienten-Ansicht nur ausgegraut (also funktionsunfähig) angezeigt wurde??jipsy hat geschrieben:Ohne "Gefrickel":
Formulareditor öffnen -> neues Formular anlegen -> unten stehenden Quelltext reinkopieren -> NAME_DES_KOMPLEXES durch den jeweiligen Komlex-Namen ersetzen, dabei die "" """genau so stehen lassen wie unten -> Formular speichern. Das gespeicherte Formular dann ganz normal auf nen Knopf binden in myTM und fertig.
Hallo Thomas,Thomas hat geschrieben:SUUUUUPER!!! Vielen Dank! Es wäre genial, wenn man irgendwie an mehr dieser Programmierbackgrounds kommen könnte... Leider sind die Informationen dazu nicht öffentlich zugänglich... (ich habe sie zumindest noch nicht gefunden)
Das habe ich leider auch festgestellen müssen, weiss aber nicht, warum das so ist.neu erzeugte Menüpunkt IN DER TOOLBAR selbst in der Patienten-Ansicht nur ausgegraut (also funktionsunfähig) angezeigt wurde??
...die Frage wäre noch, ob das dann in der Karteikarte auch genauso funktioniert. (Dazu kann ich noch nichts beitragen, da ich bisher nur mit der AutoHotkey-Variante experimentiere.)hw hat geschrieben:@jipsy: vielen Dank, der Code im Formular funktioniert gut, so habe ich mir das vorgestellt.
Wahnfried stellte fest, dass der ...Das habe ich leider auch festgestellen müssen, weiss aber nicht, warum das so ist.neu erzeugte Menüpunkt IN DER TOOLBAR selbst in der Patienten-Ansicht nur ausgegraut (also funktionsunfähig) angezeigt wurde??
Erstaunlich fand ich: Wenn man den Menüpunkt in die obere (Text/Menü-)Zeile einfügt und in die untere (mit den Bildchen), dann funktionieren beide. Nur in der unteren MyTM-Zeile gehts aber anscheinend nicht.
Gruß
hw
...das erklärt die Differenz, ich habe in der Praxis noch Version 12.4.x....Thomas hat geschrieben:...ja, Autohotkey's Winwait (usw.) sind in der Tat case sensitive, d.h. sie erwarten die korrekte Groß- und Kleinschreibung. Interessant, dass bei Ihnen TurboMed steht - das war bei mir auch so, bis es vor einigen Quartalen in TURBOMED geändert wurde. Ist irgendsoein Compugroup Ding.... alles groß zu schreiben...
)