Из режима Диагностика данных вынесены в главное меню две часто используемые функции (что бы пользователи могли запускать сами)
Блог
Блог разработчиков
Виджеты в Дела&Финансы и КаБаРе 8 версии
В версии 8.0.17.40 уже работают виджеты на базе FastScript.После восстановления системных справочников будет создан новый справочник - Виджеты, выносите его в меню и даете себе права на изменение записей в немДалее как с добавлением в меню скриптов:...
Подробнее
В новом exe для прейскуранта может быть задан скрипт на загрузку формы, в нем можно задать системный фильтр для реестра
В скрипте доступны все глобальные FR.Variables + такие переменные
FORM.TABLENAME (‘PRICE');
FORM.IdSHOP (IdShop);
FORM.FIRSTFILTERTEXT SQL код фильтра
В Дела&Финансы, начиная с версии 7.4.18.6
В FastScript можно использовать такие команды для экспорта отчетов FR4 в файлы
begin
//fr_savereport(809946,'c:\1\333.xls');
fr_savereport(809946,'c:\1\333.pdf');
fr_savereport(809946,'c:\1\333.rtf');
fr_savereport(809946,'c:\1\333.fr3');
end.
Это позволяет решить задачу пакетного экспорта кучи документов в файлы нужного формата
В Дела&Финансы 8.0 добавлен обработчик события – попытка закрыть главное окно программы
В скрипте доступна csVariables[‘CanClose’]
Если по какому то условию нужно заблокировать выход пользователя из программы то можно использовать такой код
csVariables[‘CanClose’] := True;
Так же этот скрипт отработает при нажатии «Завершить сеанс»
Параметры подключения описываются в ОПС.
Клиент файлового обмена объявлен как компонент для FastScript.
Пример функции для отправки файла
f := TdfFileExchanger.Create(nil);
try
if f.Connect then
begin
if not (f.PutFile(IdFilial,FileName)) then
begin
ShowMessage('False');
end
else
ShowMessage('True');
f.Disconnect;
end;
finally
f.Free;
end;
Пример скрипта для отправки и получения файлов
const
InDir = 'c:\DelFin\Import\';
OutDir = 'c:\DelFin\Export\';
SendDir = 'c:\DelFin\Send\';
ParentFilialDir = 'c:\DelFin\ParentFilial\';
procedure WriteExchangeLog(AFileName, AMessage: string);
begin
try
WriteLnSave(AFileName, FormatDateTime('dd.mm.yyyy hh:nn:ss', Now) + ' ' + '************');
WriteLnSave(AFileName, AMessage);
WriteLnSave(AFileName, '********************************');
except
end;
end;
function SendFileToFilial(IdFilial: Integer; FileName: string; TransferMethod: integer; E_Mail: string): Boolean;
var
f: TdfFileExchanger;
slFiles: TStringList;
fn: string;
sError: string;
TransferMethodFilial: integer;
begin
result := false;
TransferMethodFilial := SqlSelect('select TransferMethod from FilialList where id = ' + IntToStr(frVariables['IdOwnerBase']));
if (TransferMethod = 0) and (TransferMethodFilial = 0) then
begin
f := TdfFileExchanger.Create(nil);
try
if f.Connect then
begin
if (f.PutFile(IdFilial, FileName)) then
begin
Result := true;
end;
f.Disconnect;
end;
finally
f.Free;
end;
end;
end;
procedure ReciveFilesToFilial(IdFilial: Integer);
var
f: TdfFileExchanger;
slFiles: TStringList;
i: Integer;
IsFileToParentFilial: boolean;
begin
f := TdfFileExchanger.Create(nil);
try
if (not DirectoryExists(InDir)) then
ForceDirectories(InDir);
try
if f.Connect then
begin
f.GetFiles(IdFilial, Indir, 'Admin*.7z');
f.GetFiles(IdFilial, Indir, 'Doc*.7z');
f.Disconnect;
end;
except
ShowMessage(csGetLastErrorText);
end;
finally
f.Free;
end;
end;
begin
end.
"MobileReport" - возможность получать и просматривать отчеты из системы управления предприятием Дела&Финансы через Интернет .
Вот ссылка для скачивания: https://itunes.apple.com/ru/app/id848899709
