8. Februar 2011 16:09
IF Trittspur <> '' THEN BEGIN
Pos := STRPOS(Trittspur,'.');
FileEnding := COPYSTR(Trittspur,Pos);
OSCHeader.SETRANGE("No.","No.");
IF OSCHeader.FINDLAST THEN BEGIN
FilePathNew := '\\192.168.X.X\Test\';
FileNameNew := 'TS' + '-' + OSCHeader."Customer Name" + '-' + "No." + FileEnding;
IF FILE.COPY(Trittspur,FilePathNew + FileNameNew) THEN
MESSAGE('kopiert')
ELSE
MESSAGE('Nope');
END;
END;
8. Februar 2011 16:17
8. Februar 2011 16:18
8. Februar 2011 16:23
8. Februar 2011 16:30
8. Februar 2011 16:38
Kowa hat geschrieben:Fürs komfortables Kopieren und vieles andere mehr bietet sich das Windows FileSystemObject an. Das kann in NAV als Automation Server genutzt werden.
8. Februar 2011 18:05
9. Februar 2011 08:55
CopyTest.CopyFile(Trittspur,FilePathNew + FileNameNew);