18. April 2012 17:40
IF RMSetup."Attachment Storage Type" = RMSetup."Attachment Storage Type"::"Disk File" THEN BEGIN
ServerFileName := ConstDiskFileName;
IF ISSERVICETIER THEN BEGIN
FileName := ImportFromFile;
IF NOT UPLOAD(Text006,'',Text007,FileName,ServerFileName) THEN //********* FileName wird nicht zurückgeschrieben, so dass der untere Code leider keinen Sinn macht. Filename ist immer leer. Siehe unten****
ERROR(Text008);
IF FileName = '' THEN //springt schon mit false raus und der Import bricht ab
EXIT(FALSE);
END ELSE BEGIN
IF ImportFromFile = '' THEN
FileName := CommonDialogMgt.OpenFile(Text006,ClientFileName,4,Text007,0)
ELSE
FileName := ImportFromFile;
IF FileName = '' THEN
EXIT(FALSE);
IF NOT FILE.COPY(FileName,ServerFileName) THEN
ERROR(Text008);
END;
"File Extension" := UPPERCASE(AttachmentManagement.FileExtension(FileName));
"Storage Pointer" := RMSetup."Attachment Storage Location";
"Storage Type" := "Storage Type"::"Disk File";
IF MODIFY(TRUE) THEN;
19. April 2012 11:02
19. April 2012 13:27
19. April 2012 15:03
Nur Fehler, die von euch an Microsoft gemeldet werden, werden auch letztlich behoben.aydina81 hat geschrieben:habe auch nun die Funktion abändern müssen, damit es wieder funktioniert.
Die Funktionaliät war von Microsoft anscheinend nicht richtig durchdacht worden:-)
19. April 2012 15:39
Natalie hat geschrieben:Nur Fehler, die von euch an Microsoft gemeldet werden, werden auch letztlich behoben.
Außerdem wäre es hilfreich, wenn ihr eure Lösung hier veröffentlichen würdet, damit der Nächste nicht wieder bei Null anfangen muss - danke!
19. April 2012 16:46
19. April 2012 16:55
Tim hat geschrieben:Natalie hat geschrieben:Nur Fehler, die von euch an Microsoft gemeldet werden, werden auch letztlich behoben.
Außerdem wäre es hilfreich, wenn ihr eure Lösung hier veröffentlichen würdet, damit der Nächste nicht wieder bei Null anfangen muss - danke!
Ich habe jetzt nicht nach gesucht, bin aber der Meinung, dass es irgendwo von MS dokumentiert wäre, dass nur eingebettete Dokumente funktionieren. Deshalb hätte es wenn dann nur bei Connect platziert werden können.
Meine Lösung kann ich leider nicht veröffentlichen, da es der Kunde bezahlt hat. Also natürlich könnte ich schon, aber ich mache so etwas nur, wenn der Kunde zustimmt, damit kein Unmut darüber entsteht, warum das für andere kostenlos abrufbar ist, er aber dafür bezahlen musste. Ergänzend: ich bin mir nicht sicher, ob das sinnvoll ist, hab es aber schon immer so gehalten. Vielleicht habe ich aber auch einen Denkfehler dabei.
20. April 2012 11:56
IF ISSERVICETIER THEN BEGIN
FileName := ImportFromFile;
IF FileName = '' THEN BEGIN
FileName := OpenFileDialog(); //Mit DotNet Variablen ausprogrammieren.
FileInfo := FileInfo.FileInfo(FileName);
FileInfo.CopyTo(ServerFileName,TRUE);
END ELSE
IF NOT UPLOAD(Text006,'',Text007,FileName,ServerFileName) THEN
ERROR(Text008);
IF FileName = '' THEN
EXIT(FALSE);
20. April 2012 12:18
20. April 2012 12:52
JanGD hat geschrieben:Wenn Du Embedded eingestellt hast, was ja im RTC nicht anders geht, hast Du das Problem gar nicht?
Entweder man arbeitet als Endanwender nur mit RTC oder nur mit Classic, aber nie gemischt. Hier sieht man ja warum.