14. Dezember 2007 16:31
Gehe in Ordner.
AktDatei := Erste Datei.
REPEAT
Lese Pfad + Name und führe damit was aus
Gehe zu nächster Datei
UNTIL letzte Datei gelesen
14. Dezember 2007 16:34
14. Dezember 2007 16:35
14. Dezember 2007 16:39
//OnRun
StartImport(TRUE);
//StartImport(Var : Boolean)
SaleSetup.GET;
SaleSetup.TESTFIELD("Dateiverzeichnis Import");
SaleSetup."Dateiverzeichnis Import" :=
DELCHR(SaleSetup."Dateiverzeichnis Import",'>','\') + '\';
File.RESET;
File.SETRANGE(Path,SaleSetup."Dateiverzeichnis Import");
File.SETRANGE("Is a file",TRUE);
File.SETFILTER(Name,'*.txt');
REPEAT
ImportiereDatei(File.Name)
UNTIL File.NEXT = 0;
//ImportiereDatei(Dateiname : Text[250]) : Boolean
IF NOT EXISTS(SaleSetup."Dateiverzeichnis Import" + Dateiname) THEN BEGIN
EXIT(FALSE);
END;
CLEAR(Dataportimport);
Dataportimport.DateinameSetzen(SaleSetup."Dateiverzeichnis Import" + Dateiname);
Dataportimport.RUNMODAL;
EXIT(TRUE);
15. Dezember 2007 13:44
File.SETRANGE(Path,'');
IF File.ISEMPTY THEN;
16. Dezember 2007 21:27
17. Dezember 2007 10:52
File.RESET;
File.SETRANGE(Path,SaleSetup."Dateiverzeichnis Import");
File.SETRANGE("Is a file",TRUE);
File.SETFILTER(Name,'*.txt');
REPEAT
ImportiereDatei(File.Name)
UNTIL File.NEXT = 0;
17. Dezember 2007 11:22
17. Dezember 2007 11:59
Heike Bennerscheid hat geschrieben:Bei uns steht da auch ein Findfirst
17. Dezember 2007 12:13
Für alle Dateien
RufeDataportAuf;
IF Dataport erfolgreich
Verschiebe Datei In Order 1
ELSE
Verschiebe Datei in Ordner 2
Dataport.RUN
Data type: dataport
... The system automatically clears the variable after it executes this function.
17. Dezember 2007 12:21
17. Dezember 2007 12:25
Heike Bennerscheid hat geschrieben:@Natalie
Verstehe ich das richtig? Der Dataport läuft auf einen Fehler und soll dann die Datei in Ordner2 verschieben. Jedoch kopiert es dies zur Zeit nur und die CodeUnit löscht diese Datei dann aus dem Ursprungsordner?
17. Dezember 2007 12:30
Heike Bennerscheid hat geschrieben:Bei uns steht auch ein Find('-') ... war nur vorhin etwas in Eile als ich das getippt habe. Entschuldigung. Das nächste mal achte ich genauer darauf
17. Dezember 2007 17:40
Marc Teuber hat geschrieben:Heike Bennerscheid hat geschrieben:Bei uns steht da auch ein Findfirst
Performanter wäre hier aber ein FIND('-').
Gruß, Marc
17. Dezember 2007 19:48
Michael Schumacher hat geschrieben:Da man hier aber mit hoher Wahrscheinlichkeit davon ausgehen kann, dass deutlich weniger als 500 Dateien in dem Verzeichnis stehen, ist FINDSET(FALSE,FALSE) die beste Lösung
17. Dezember 2007 20:28
Michael Schumacher hat geschrieben:Da man hier aber mit hoher Wahrscheinlichkeit davon ausgehen kann, dass deutlich weniger als 500 Dateien in dem Verzeichnis stehen, ist FINDSET(FALSE,FALSE) die beste Lösung
18. Dezember 2007 12:31