25.10.2007, 09:51 | #4 |
Участник
|
ну тогда прийдеться работаь в кодеюнитом:
// 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; Это будет выглядеть примерно так. |
|