HMV - VBScript und cbool
Verfasst: Mittwoch 5. August 2009, 20:20
Ich wünsche einen schönen Abend,
seit langem bin ich zumindest begeisterter Leser und des Forums und habe es mit dessen Hilfe geschafft, einen neuen Server sowie zumindest eine neue Workstation einzurichten. Vielen Dank für diesen Forum-Support.
Nun habe ich noch ein kleines Problem, dann bin ich zufrieden mit meinem Werk.
Betriftt die Workstation im Behandlungsraum. Aktuelles Online-Update ist drauf (Fehler war aber vorher schon).
System ist Windows XP Prof. in englischer Sprache.
Punkt: Heilmittelverordnung nach Heilmittelrichtlinie...Klicke alles an und gehe dann auf "drucken" (ich benutze keinen Blankoformulardruck!) und es erscheint das vollständig ausgefüllte Formular auf dem Bildschirm... und leider folgende Fehlermeldung:
Source:'Microsoft VBScript runtime error'
Line:49 Char:8
Error:0 'Type mismatch: 'cbool''
-----
Natürlich habe ich das Forum abgesucht:
1. Ich habe gelernt, dass es sich irgendwie um "drucken ohne Vorschau" handeln muss, so ist cbool wohl irgendwie definiert.
Zitat:
sub DruckeOhneVorschau
if SlawiTools.FormularParamExists(Formular, "DruckenOhneVorschau") > -1 then
mbDruckenOhneVorschau = cbool(DruckenOhneVorschau.value)
end if
if mbDruckenOhneVorschau then
select case Druckart.value
case "Druck"
formular.print
case "ZentralerDruck"
formular.DruckInManager
case else ' "BFBZentralerDruck", "BFBBlankoDruck", "DirektDruck" '"
formular.print
end select
end if
end sub
Ich begab mich also auf die Suche, habe aber keinen Button zum klicken gefunden, der auch nur im Ansatz so heisst..., also
2. VBScript neu installiert von der CD...
kein Effekt
3. Turbomed auf der Workstation neu installiert
kein Effekt
4. Mal zu einem anderen Rechner gegangen in der Praxis (!)...Windows 2000 in deutscher Sprache
keine Fehlermeldung..
Drücke ich auf Cancel ist auch alles ok, aber ohne Fehlermeldung wäre es noch schöner.
Würde mich riesig freuen, wenn jemand eine Idee hätte.
Viele Grüße aus MV sendet,
Dirk
seit langem bin ich zumindest begeisterter Leser und des Forums und habe es mit dessen Hilfe geschafft, einen neuen Server sowie zumindest eine neue Workstation einzurichten. Vielen Dank für diesen Forum-Support.
Nun habe ich noch ein kleines Problem, dann bin ich zufrieden mit meinem Werk.
Betriftt die Workstation im Behandlungsraum. Aktuelles Online-Update ist drauf (Fehler war aber vorher schon).
System ist Windows XP Prof. in englischer Sprache.
Punkt: Heilmittelverordnung nach Heilmittelrichtlinie...Klicke alles an und gehe dann auf "drucken" (ich benutze keinen Blankoformulardruck!) und es erscheint das vollständig ausgefüllte Formular auf dem Bildschirm... und leider folgende Fehlermeldung:
Source:'Microsoft VBScript runtime error'
Line:49 Char:8
Error:0 'Type mismatch: 'cbool''
-----
Natürlich habe ich das Forum abgesucht:
1. Ich habe gelernt, dass es sich irgendwie um "drucken ohne Vorschau" handeln muss, so ist cbool wohl irgendwie definiert.
Zitat:
sub DruckeOhneVorschau
if SlawiTools.FormularParamExists(Formular, "DruckenOhneVorschau") > -1 then
mbDruckenOhneVorschau = cbool(DruckenOhneVorschau.value)
end if
if mbDruckenOhneVorschau then
select case Druckart.value
case "Druck"
formular.print
case "ZentralerDruck"
formular.DruckInManager
case else ' "BFBZentralerDruck", "BFBBlankoDruck", "DirektDruck" '"
formular.print
end select
end if
end sub
Ich begab mich also auf die Suche, habe aber keinen Button zum klicken gefunden, der auch nur im Ansatz so heisst..., also
2. VBScript neu installiert von der CD...
kein Effekt
3. Turbomed auf der Workstation neu installiert
kein Effekt
4. Mal zu einem anderen Rechner gegangen in der Praxis (!)...Windows 2000 in deutscher Sprache
keine Fehlermeldung..
Drücke ich auf Cancel ist auch alles ok, aber ohne Fehlermeldung wäre es noch schöner.
Würde mich riesig freuen, wenn jemand eine Idee hätte.
Viele Grüße aus MV sendet,
Dirk