Hallo Team Schauries,
vielen Dank für dieses tolle Programm. Neben dem eigentlichen Programm hat es mir der Einkaufsplaner angetan, einfach super. Wünschen würde ich mir noch, dass ich auch in der Einkaufsliste die Spalte "Preis pro Einheit" einblenden und drucken könnte. (oder habe ich etwas übersehen ?)
und jetzt noch eine Frage:
Kann ich mit Interrun-Programmierung einen Button zum Öffnen einer externen Datei (hier Excel-Tabelle mit Jahresbilanz u.ä.) erstellen?
nochmals vielen Dank
tommin
Danke, Wunsch und Frage
-
Team Schauries
- Site Admin
- Beiträge: 1058
- Registriert: Mo, 17 Jan, 2005 20:25
- Wohnort: Essen
Hallo tommin,
wir haben den Wunsch „Preis pro Einheit“ drucken auf die Wunschliste gesetzt und ich kann mir vorstellen, dass im nächsten Beta-Update vom 23.04.2006 dies umgesetzt wird.
Zum Starten einer externen Application könnte man ShellExecute verwenden. ShellExecute ist eine Windows-API-Funktion und wird von InterRun unterstützt. Erstelle Dir einen Bericht oder einen ToolButton und schreibe im Programm-Center:
ShellExecute(„open“,“C:\XYZ.Xls“,””,“C:\XYZ.Xls“)
Nachzulesen unter http://www.interrun.de
Um die Sache sicherer zu gestalten, könntest Du schreiben:
If FileExists(“C:\XYZ.Xls“)
ShellExecute(„open“,“C:\XYZ.Xls“,””,“C:\XYZ.Xls“)
EndIf
Else
ShowMessage(“Datei C:\XYZ.Xls nicht vorhanden”)
EndElse
Gruß,
Dirk Schauries
wir haben den Wunsch „Preis pro Einheit“ drucken auf die Wunschliste gesetzt und ich kann mir vorstellen, dass im nächsten Beta-Update vom 23.04.2006 dies umgesetzt wird.
Zum Starten einer externen Application könnte man ShellExecute verwenden. ShellExecute ist eine Windows-API-Funktion und wird von InterRun unterstützt. Erstelle Dir einen Bericht oder einen ToolButton und schreibe im Programm-Center:
ShellExecute(„open“,“C:\XYZ.Xls“,””,“C:\XYZ.Xls“)
Nachzulesen unter http://www.interrun.de
Um die Sache sicherer zu gestalten, könntest Du schreiben:
If FileExists(“C:\XYZ.Xls“)
ShellExecute(„open“,“C:\XYZ.Xls“,””,“C:\XYZ.Xls“)
EndIf
Else
ShowMessage(“Datei C:\XYZ.Xls nicht vorhanden”)
EndElse
Gruß,
Dirk Schauries
Team Schauries
nachrichtlich:
Ich weiß nicht genau warum, aber erst nachdem ich das Script wie folgt ergänzt habe, hat es geklappt
Procedure Quickbutton1Click
If FileExists("F:\zu\Finanzen\Finanzplan-ute 2006.xls")= true
ShellExecute("open","F:\zu\Finanzen\Finanzplan2006.xls","","F:\zu\Finanzen\Finanzplan 2006.xls")
EndIf
If FileExists("F:\zu\Finanzen\Finanzplan2006.xls")= false
ShowMessage("Datei F:\zu\Finanzen\Finanzplan2006.xls nicht vorhanden")
Endif
EndProcedure
bei der anderen Version hat das Programm bei mir verschiedene Fehler gemeldet, die ich anders nicht beseitigen konnte. Jetzt ist alles oK.
Weil ich nur ein bißchen die Office-Programmierung kenne, tue ich mich ein bißchen schwer mit dem Programmierungscenter und der Syntax der Befehle, auch mit der Interrun Hilfe im Web.
Deshalb nochmals vielen Dank
tommin
Ich weiß nicht genau warum, aber erst nachdem ich das Script wie folgt ergänzt habe, hat es geklappt
Procedure Quickbutton1Click
If FileExists("F:\zu\Finanzen\Finanzplan-ute 2006.xls")= true
ShellExecute("open","F:\zu\Finanzen\Finanzplan2006.xls","","F:\zu\Finanzen\Finanzplan 2006.xls")
EndIf
If FileExists("F:\zu\Finanzen\Finanzplan2006.xls")= false
ShowMessage("Datei F:\zu\Finanzen\Finanzplan2006.xls nicht vorhanden")
Endif
EndProcedure
bei der anderen Version hat das Programm bei mir verschiedene Fehler gemeldet, die ich anders nicht beseitigen konnte. Jetzt ist alles oK.
Weil ich nur ein bißchen die Office-Programmierung kenne, tue ich mich ein bißchen schwer mit dem Programmierungscenter und der Syntax der Befehle, auch mit der Interrun Hilfe im Web.
Deshalb nochmals vielen Dank
tommin