Усовершенствование
25244
Доработан режим экспорта Уведомлений в ФНС (форма Стандартная. Экспорт Уведомлений в ФНС в XML)
в xml-файл теперь, в соответствии с принятым форматом файла, не выгружается тэг
КППДекл
, если на экране формы проставлен признак Налоговый агент – физическое лицо.
25246
Доработан режим печати отчета Заявление о возмещении расходов на оплату дополнительных оплачиваемых выходных дней одному из родителей (опекуну, попечителю) для ухода за детьми-инвалидами (форма З/П Печать Заявления в ФСС о возмещении расходов).
- Начиная с отчета с датой окончания после 26.02.2024 печатается новый шаблон в соответствии с Приказом СФР от 16.01.2024 N 28, который действует с 26.04.2024г.
- Добавлена возможность выводить на печать список приказов на стр 2.1 по таблице Кадры Приказ (меню Кадры-Приказы). На экране формы добавлено поле для выбора Вида приказа, по которому в отчет попадают Приказы за указанный период.
Информация для разработчиков
25258
Добавлена возможность отображать текст в формате Unicode. Для этого:
- для компонент TbuhtaDBEdit, TbmDBEdit добаены типы данных ТекстUnicode, ТекстUnicodeMAX.
- метод AsSQLW возвращает строку типа WideString
- метод bm.GetConnectionString возвращает строку подключения к серверу. (Актуально для положительных SPID)
- в палитре компонент доступны компоненты: TntMemo, TntEdit, TntLabel, TntButton для работы с WideString напрямую.
- Для корректного отображения текста, необходимо использовать шрифт Tahoma.
- Для печати строк типа WideString можно использовать FastReport4, компонент TfrxMemoView, шрифт Tahoma, работать нужно через тип Variant.
- Сохранение в поля типа nvarchar с помощью методов ExecuteSQL, GetValueFromSQL и с сохранением кодировки- не возможно.
Для корректного отображения текста необходимо использовать шрифт 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;