buhta-doc

View My GitHub Profile

На главную

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

Условные обозначения:

[номер] - номер заявки во внутренней системе учета заявок компании “БУХта”.

Содержание:

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

25244

Доработан режим экспорта Уведомлений в ФНС (форма Стандартная. Экспорт Уведомлений в ФНС в XML)

в xml-файл теперь, в соответствии с принятым форматом файла, не выгружается тэг КППДекл, если на экране формы проставлен признак Налоговый агент - физическое лицо.

25246

Доработан режим печати отчета Заявление о возмещении расходов на оплату дополнительных оплачиваемых выходных дней одному из родителей (опекуну, попечителю) для ухода за детьми-инвалидами (форма З/П Печать Заявления в ФСС о возмещении расходов).

Информация для разработчиков

25258

Добавлена возможность отображать текст в формате 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;

подробнее о конфигурации зарплата

скачать версию Buhta20240725.zip