Использование маски файлов при экспорте импорте файлов
|
| Предыдущая тема :: Следующая тема |
| Автор |
Сообщение |
kyky
Участник
Вступление в Клуб: 15.04.2008
|
 Чт Май 14, 2009 07:58 Использование маски файлов при экспорте импорте файлов |
 |
Полезность: Нет оценки
|
Добрый день. Столкнулся со следующей проблемой. Нужно с локального диска скопировать все файлы из папки в папку на сервере. Нашел цфт решение в Продукты-Расчетный центр-IMP_RKC_VIP
вот оно
| Код: |
P#FILE.[SRC_TYPE] := false;
P#FILE.[SRC_DELETE] := true;
P#FILE.[DST_TYPE] := true;
.......
P#FILE.[SRC_NAME] := '*.'||P_DOG_RKC.[AB].[EXTENTION];
|
Имя файлов источника и приемника заданы маской *.расширение.
Все работает.
Я вставил в свою процедуру то же самое.
| Код: |
begin
if P_MESSAGE = 'DEFAULT' then
T_322p_file_path := ::[FP_TUNE].[LIB].get_str_value('322P_FILE_PATH');
--T_322p_file_place := ::[FP_TUNE].[lib].get_bool_value('322P_FILE_PLACE',::[FP_TUNE].[LIB].set_canons(stdlib.userid.filial%class, stdlib.userid.filial), False);
csmd.init_form(V_VB, 'FRD_322P', 'WORK_INCOMING');
P_PATH := T_322p_file_path||'in';
P_PATH_ARC := T_322p_file_path||'arc';
p_list :='1';
P_FILE.[SRC_TYPE] := false;
P_FILE.[DST_TYPE] := true;
P_FILE.[SRC_DELETE] := true;
P_FILE.[SRC_NAME] := '*.*';
P_FILE.[SRC_PATH] :=P_PATH;
P_INFO := 'OK,P_FILE';
elsif P_MESSAGE = 'VALIDATE' then
if P_INFO = 'OK' then
P_FILE.[DST_PATH]:=/*[SYSTEM_PARAMS]::[GET]('PATH', False)||*/'322P/in';
P_FILE.[DST_name] := P_FILE.[SRC_name];
p_list :='2';
-- p_list := replace(stdio.file_list(P_FILE.[DST_PATH]), chr(10),'|');
end if;
end if;
end;
|
у меня выдает ошибку, и создает на сервере файл с именем *.*, который нельзя открыть.
если прописываю конкретное имя файла, то он нормально переносится на сервер.
Помогите разобраться в чем ошибка. |
|
 |
Alexsey
Эксперт
Вступление в Клуб: 06.09.2007
|
| Чт Май 14, 2009 08:13 |
|
Полезность: Нет оценки
|
Мы когда филиалы перетаскивали писали в проверке следующим образом... все работало и работает до сих пор
| Код: | Begin
If P_MESSAGE = 'DEFAULT' then
P_F.[SRC_MASK] := 'ALLDOSSU.*';
P_F.[SRC_NAME] := 'ALLDOSSU.TXT';
P_F.[SRC_PATH] := './trc/imp';
End if;
End; |
_________________
всегда есть как минимум 2 выхода |
|
|
w00per
Профи
Вступление в Клуб: 17.10.2007
|
| Чт Май 14, 2009 08:14 |
|
Полезность: Нет оценки
|
Может вся проблема именно в
| Код: | | P_FILE.[SRC_NAME] := '*.*'; |
т.е. скажем
| Код: | | P_FILE.[SRC_NAME] := '*.txt'; |
отработает нормально
_________________
I Lie About Everything. |
|
|
kyky
Участник
Вступление в Клуб: 15.04.2008
|
| Чт Май 14, 2009 08:22 |
|
Полезность: Нет оценки
|
| я пробывал и *.txt и r*.txt, ошибка та же и на сервер появляются файлы *.txt и r*.txt |
|
|
|
|
Вы не можете начинать темы
Вы не можете отвечать на сообщения
Вы не можете редактировать свои сообщения
Вы не можете удалять свои сообщения
Вы не можете голосовать в опросах
|
|
О проекте
Поиск
Отзывы
Регистрация
Вход
