Новое в версии. Релиз 276 от 25.07.2024

Усовершенствование

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;

Еще интересное

 
Поговорим

Привет, Опишите вашу задачу. Попробуем придумать что-то интересное для вас.