|
ну тогда прийдеться работаь в кодеюнитом:
// sesion - table: Session
// Port - Dataport
Buffer:=Session."Database Name";
WHILE STRPOS(Buffer,'\') > 0 DO
Buffer := DELSTR(Buffer,1,STRPOS(Buffer,'\'));
Port.FILENAME:= COPYSTR(Session."Database Name",1,STRPOS(Session."Database Name", Buffer)-2) + '\' +
FORMAT(TODAY) + Имя поля названия организации + '.dbf';
Port.RUN;
Это будет выглядеть примерно так.
|