http://intern.isys-informatik.ch/index.php?action=history&feed=atom&title=Programm-Doku_Man%2CReg 2026-11-02T19:56:10Z Versionsgeschichte dieser Seite in intern wiki MediaWiki 1.32.0 http://intern.isys-informatik.ch/index.php?title=Programm-Doku_Man,Reg&diff=11&oldid=prev 2014-09-23T14:30:25Z

<p>Die Seite wurde neu angelegt: „== Programm-Dokumentation ProMan / ProReg == An dieser Stelle wird bei Gelegenheit beschrieben, wie Teile der Programme konstruiert wurden === Word-Aufgaben…“</p> <p><b>Neue Seite</b></p><div>== Programm-Dokumentation ProMan / ProReg ==<br /> <br /> An dieser Stelle wird bei Gelegenheit beschrieben, wie Teile der Programme konstruiert wurden<br /> <br /> === Word-Aufgaben ===<br /> <br /> Word-Aufgaben sind Leistungen, die in Word von ProMan/ProReg.dot auf Anforderung von ProMan/ProReg.mde (also aus Access) erbracht werden.<br /> <br /> Dies sind die Erstellung von Dokumenten, die mit Daten aus der DB versorgt werden wie Pendenzlisten, Geschäftssammlungen und Vergabelisten<br /> <br /> ====Pendenzlisten====<br /> Im Code der Formulare fPendenzen und fAktPendenzen werden in der Prozedur cmdPendListe_Click bzw. cmdWord_Click die gefragen Pendenzen in die DB-Tabelle tPendListe gespeichert.<br /> Mit Call WordAufgabe(&quot;Pendenzliste&quot;) wird die Erstellung der Liste angefordert.<br /> <br /> ====Geschäftssammlung====<br /> Im Code des Formulars fGeschSammlung werden in der Prozedur cmdWordListe_Click die ausgewählten Geschäfte in die DB-Tabelle tGeschSammlung2 gespeichert.<br /> Mit Call WordAufgabe(&quot;Geschäftssammlung&quot;) wird die Erstellung der Liste angefordert.<br /> <br /> ====Die Prozedur WordAufgabe====<br /> Sub WordAufgabe(sAufgabe As String) im Modul Aufrufe richtet Word ein und erstellt auf der Basis der Standardvorlage ProMan/ProReg.dot ein neues Dokument und ruft im mit diesem Dokument verbundenen ProMan/ProReg.dot über Run Prozedurname die der Aufgabe entsprechende Prozedur auf.<br /> <br /> Wichtig ist, dass dabei keine speziellen Dokumentvorlagen mehr nötig sind.<br /> <br /> ====Event-Handler beim Aktivieren des Protokolls (damit immer die Kdo-Zeile &quot;isys&quot; erscheint)====<br /> <br /> '''Neuer Klassenmodul clsWordApp mit Inhalt:'''<br /> <br /> Public WithEvents appWord As Word.Application<br /> <br /> Private Sub appWord_WindowActivate(ByVal Doc As Document, ByVal Wn As Window)<br /> Call Aktiviert<br /> End Sub<br /> <br /> '''Im Modul Funktionen:'''<br /> <br /> Dim objClass As New clsWordApp<br /> <br /> Sub Register_EventHandler()<br /> Set objClass.appWord = Word.Application<br /> End Sub<br /> Sub Aktiviert()<br /> If ActiveDocument.Name Like fProt(&quot;&quot;) &amp; &quot;*&quot; Then<br /> Call Kommandozeile(&quot;isys&quot;)<br /> End If<br /> End Sub<br /> <br /> '''In der Open-Prozedur'''<br /> <br /> Private Sub Document_New()<br /> Application.CommandBars(&quot;isys&quot;).Enabled = True<br /> Register_EventHandler<br /> Call Aufgabe<br /> ActiveDocument.ActiveWindow.View.Type = wdPageView<br /> End Sub<br /> <br /> Private Sub Document_Open()<br /> Register_EventHandler<br /> Call Kommandozeile(&quot;isys&quot;)<br /> End Sub</div>

Admin