//Scriptfunktion 'MCWORD.MCFTEXTTOWORDPDF'
//Microsoft Word-Funktionen, Installation von MS Office notwendig.
//Konvertiert einen MCF-Text in ein Word-Dokument und speichert es als PDF.
//Dies basiert auf einer Vorlage sowie den bereitgestellten Patienten- und Akteninformationen.
//Parameter:
//Patientid: Die ID des Patienten, dessen Daten verwendet werden.
//AkteID: Die ID der Akte, die mit dem Patient verknüpft ist.
//WordExportVorlage: Der vollständige Pfad zur Word-Vorlage, die für den Export verwendet werden soll.
//PDFAusgabedatei: Der Zielpfad, unter dem das konvertierte Word-Dokument als PDF gespeichert wird.
//Optional MCPFile: Ein optionaler MCF-Dateipfad, der weitere Daten für die Konvertierung bereitstellt.
TEMPPATH={SYSDIR_DESKTOP}
AKTEID=GETAKTEID{DRVBL2,0}
IFBLOCK{AKTEID>0}
//Export des PDF anhand der MCPDATEI
AKTEFILEID=IDAKTE{{PatientID}}
ANZAKTE=DB.OPEN{{APPPATH}\AKTEN\{AKTEFILEID}.MDB,Select * FROM PatientAkte WHERE PatientID={PatientID} and ID={AKTEID},False}
RES=DB.GETRECORD{FLDX}
RES=DB.CLOSE{}
IFBLOCK{FLDX.FILE!}
RES=MCWORD.MCFTEXTTOWORDPDF{{Patientid},{AKTEID},{APPPATH}\WINWORD\VORLAGEN\DRV-Blatt2_export.dotx,{TEMPPATH}\{Patientid}_BLATT2.PDF,{FLDX.FILE}}
ELSE
RES=MCWORD.MCFTEXTTOWORDPDF{{Patientid},{AKTEID},{APPPATH}\WINWORD\VORLAGEN\DRV-Blatt2_export.dotx,{TEMPPATH}\{Patientid}_BLATT2.PDF,}
ENDIF
ELSE
RES=DLGMESSAGE{Dieser Patient hat kein DRVBlatt 2}
ENDIF
