ОФИЦИАЛЬНЫЙ ФОРУМ ГРУППЫ КОМПАНИЙ «ТЕХНОКОМ»

ОФИЦИАЛЬНЫЙ ФОРУМ ГРУППЫ КОМПАНИЙ «ТЕХНОКОМ» (https://forum.tk-chel.ru/index.php)
-   Система «АвтоГРАФ»: Прочие вопросы (https://forum.tk-chel.ru/forumdisplay.php?f=6)
-   -   Внешний отчет (https://forum.tk-chel.ru/showthread.php?t=2576)

SK 19.12.2012 10:03



что содержится в указанной строке ?

Приведите здесь весь код со вкладки "Код".

TOOP 24.12.2012 11:57

Отчет по автозаправщикам.
var
Days: array[1..7] of string;

procedure FastReportOnStartReport(Sender: TfrxComponent);
begin
BDEQuery2.Sql.Clear();
BDEQuery2.Sql.Add('SELECT t1.S_LATITUDE as LAT, t1.S_LONGITUDE as LON, t1.S_ADDRESS as ADDR, ' +
't1.S_REAL_TIME as S_TIME, t1.E_REAL_TIME as E_TIME, t1.REAL_CONT as CONT, t1.T1_E_LEVEL as E_LEVEL, t1.T1_S_LEVEL as S_LEVEL, ' +
' t2.NUMBER as Number1, t2.id as id1 FROM ''temp0.dbf'' t1 LEFT JOIN ''Соответствие.dbf'' t2 on t1.DRIVER_ID = t2.id order by S_TIME');
BDEQuery2.Open();
end;




procedure MasterData3OnBeforePrint(Sender: TfrxComponent);
begin
if StrToFloat (Memo22.Text) > 0 then
begin
MasterData3.Visible := True;
end
else
begin
MasterData3.Visible := False;
end;
end;

begin
Days[1] := 'Воскресенье';
Days[2] := 'Понедельник';
Days[3] := 'Вторник';
Days[4] := 'Среда';
Days[5] := 'Четверг';
Days[6] := 'Пятница';
Days[7] := 'Суббота';
end.

SK 24.12.2012 14:54

Код:

procedure MasterData3OnBeforePrint(Sender: TfrxComponent);
begin
  if StrToFloat(Memo22.Text) > 0 then
  begin             
      MasterData3.Visible := True
  end                 
  else
  begin             
      MasterData3.Visible := False
  end;                   
end;


TOOP 25.12.2012 03:38

Вложений: 1
Вот что сейчас выводит. Если выбрать транспортное средство у которого нету отрицательных значений то выводит пустой отчет без ошибки.

SK 25.12.2012 07:55

TOOP, пришлите мне данные (бинарники) и карлист.

SK 25.12.2012 08:15

TOOP, пожалуй правильнее будет заменить
if StrToFloat(Memo22.Text) > 0 then
на
if (Round(10 * (<BDEQuery2."E_LEVEL"> - <BDEQuery2."S_LEVEL">)) / 10) > 0 then

Проверьте пожалуйста и отпишитесь по результату !

TOOP 25.12.2012 12:02

Цитата:

Сообщение от SK (Сообщение 46405)
TOOP, пожалуй правильнее будет заменить
if StrToFloat(Memo22.Text) > 0 then
на
if (Round(10 * (<BDEQuery2."E_LEVEL"> - <BDEQuery2."S_LEVEL">)) / 10) > 0 then

Поменял. Сразу все заработало. Спасибо.

SK 25.12.2012 12:08

Не за что.


Текущее время: 21:43. Часовой пояс GMT.

Powered by vBulletin® Version 3.8.5
Copyright ©2000 - 2025, Jelsoft Enterprises Ltd. Перевод: zCarot