Исправлена такая проблема:
Если в при выполнении скрипта FastScript произошла ошибка и в результате не был уничтожен созданный в этом скрипте объект класса TProgressForm, то после выхода из программы показывалось окно с ошибкой.
Для отправки SMS предназначен класс TWebSMSSender.
Пример использования:
var t : TWebSMSSender; begin t := TWebSMSSender.Create; t.IsTestMode := False; if not t.SendSMS('79226395170','Проверка связи') then ShowMessage(t.ErrorText); t.Free; end.
Из режима Диагностика данных вынесены в главное меню две часто используемые функции (что бы пользователи могли запускать сами)
Пример функции для отправки файла
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
