Условные обозначения:
[номер] - номер заявки во внутренней системе учета заявок компании “БУХта”.
Доработан режим экспорта Уведомлений в ФНС (форма Стандартная. Экспорт Уведомлений в ФНС в XML)
в xml-файл теперь, в соответствии с принятым форматом файла, не выгружается тэг
КППДекл
, если на экране формы проставлен признак Налоговый агент - физическое лицо.
Доработан режим печати отчета Заявление о возмещении расходов на оплату дополнительных оплачиваемых выходных дней одному из родителей (опекуну, попечителю) для ухода за детьми-инвалидами (форма З/П Печать Заявления в ФСС о возмещении расходов).
Добавлена возможность отображать текст в формате Unicode. Для этого:
Для корректного отображения текста необходимо использовать шрифт Tahoma.
Пример получения данных из таблиц SQL в
-----------------------------------
Delphi script:
-----------------------------------
function GetWideStringValue:WideString;
var fDataQuery: TADOQuery;
fADOConnection:TADOConnection;
begin
fADOConnection:=TADOConnection.Create(nil);
fADOConnection.ConnectionTimeout:=5;
fADOConnection.CommandTimeOut:=0;
fADOConnection.LoginPrompt:=False;
fADOConnection.ConnectionString:=bm.GetConnectionString;
fDataQuery:=TADOQuery.Create(nil);
try
fDataQuery.Connection:=fADOConnection;
fDataQuery.ParamCheck:=False;
fDataQuery.SQL.Text:='select name from _5555 where id=11';
fDataQuery.CommandTimeout:=180;
fDataQuery.Open;
Result:=fDataQuery['name'];
fDataQuery.Close;
finally
fDataQuery.Free;
fADOConnection.Free;
end;
end;
-----------------------------------
FastReport script:
-----------------------------------
function GetWideStringValue:Variant;
var fDataQuery: TADOQuery;
fADOConnection:TADOConnection;
begin
try
fADOConnection:=TADOConnection.Create(nil);
fADOConnection.ConnectionTimeout:=5;
fADOConnection.CommandTimeOut:=0;
fADOConnection.LoginPrompt:=False;
fADOConnection.ConnectionString:=GetConnectionString();
fDataQuery:=TADOQuery.Create(nil);
fDataQuery.Connection:=fADOConnection;
fDataQuery.ParamCheck:=False;
fDataQuery.SQL.Text:='select name from _5555 where id=11';
fDataQuery.CommandTimeout:=180;
fDataQuery.Open;
Result:=fDataQuery.FieldByName('name').AsVariant;
fDataQuery.Close;
finally
fDataQuery.Free;
fADOConnection.Free;
end;
end;
procedure MasterData1OnBeforePrint(Sender: TfrxComponent);
begin
Memo1.Text:=GetWideStringValue;
end;
подробнее о конфигурации зарплата