23. Juli 2013 09:08
23. Juli 2013 09:12
29. Juli 2013 15:35
29. Juli 2013 15:50
NorbertP hat geschrieben:Hallo und danke schon mal.
Leider kann ich hinter der Recort Link Tabelle keine Lösung für mein Problem finden und hoffe ihr habt noch weitere Ideen zu dem Thema.
29. Juli 2013 15:51
PrintRecordLinks(RecordID : RecordID)
RecordLink.SETFILTER(Company,'%1|%2','',COMPANYNAME);
RecordLink.SETRANGE("Record ID",RecordID);
RecordLink.SETRANGE(Type,RecordLink.Type::Verknüpfung);
RecordLink.SETFILTER(URL1,'<>%1','');
IF RecordLink.FINDSET(FALSE) THEN
REPEAT
PrintRecordLink(RecordLink);
UNTIL RecordLink.NEXT = 0;
PrintRecordLink(RecordLink : Record "Record Link")
WSHMgt.PrintFile(RecordLink.URL1);
OpenRecordLinks(RecordID : RecordID)
RecordLink.SETFILTER(Company,'%1|%2','',COMPANYNAME);
RecordLink.SETRANGE("Record ID",RecordID);
RecordLink.SETRANGE(Type,RecordLink.Type::Verknüpfung);
RecordLink.SETFILTER(URL1,'<>%1','');
IF RecordLink.FINDSET(FALSE) THEN
REPEAT
OpenRecordLink(RecordLink);
UNTIL RecordLink.NEXT = 0;
OpenRecordLink(RecordLink : Record "Record Link")
WSHMgt.Run(RecordLink.URL1);
Run(Command : Text[1024]) : Integer
Init;
EXIT(WshShell.Run(Command));
PrintFile(FileName : Text[260])
IF ISCLEAR(objShell) THEN
CREATE(objShell);
objFolder := objShell.NameSpace(FileMgt.ExtractFolder(FileName));
objFolderItems := objFolder.Items;
objFolderItem := objFolderItems.Item(FileMgt.ExtractFilename(FileName));
objFolderItem.InvokeVerb('PRINT');
objVerbs := objFolderItem.Verbs;
29. Juli 2013 17:01