alexey.zablotskiy/LMS-2_ReportAPI
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

gou_name

Browse Source
This commit is contained in:
Алексей Заблоцкий 2023-11-17 13:06:17 +03:00
parent 2b6d2c161b
commit b10fae4f86
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
reportdmunit.pas
View File

@ -417,7 +417,7 @@ var
OptionValue: String; OptionValue: String;
begin begin
SQL := 'select name,value from options where name in (''GOU_Name'',''Dep_Name'')'; SQL := 'select name, convert_from(value,''WIN1251'') as value from options where name in (''GOU_Name'',''Dep_Name'')';
with NidbData.GetData(sql) do with NidbData.GetData(sql) do
try try
while not eof do while not eof do
@ -430,7 +430,7 @@ begin
end; end;
for i := 1 to 5 do for i := 1 to 5 do
AVariables['GOU_Name'+inttostr(i)] := AVariables['GOU_Name']; AVariables['GOU_Name'+inttostr(i)] := AVariables['GOU_Name'];
with NidbData.GetData('SELECT name,value from options WHERE name like ''GOU_Name%'' ') do with NidbData.GetData('SELECT name,convert_from(value,''WIN1251'') as value from options WHERE name like ''GOU_Name%'' ') do
try try
while not eof do while not eof do
begin begin