![]() |
![]() что содержится в указанной строке ? Приведите здесь весь код со вкладки "Код". |
Отчет по автозаправщикам.
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. |
Код:
procedure MasterData3OnBeforePrint(Sender: TfrxComponent); |
Вложений: 1
Вот что сейчас выводит. Если выбрать транспортное средство у которого нету отрицательных значений то выводит пустой отчет без ошибки.
|
TOOP, пришлите мне данные (бинарники) и карлист.
|
TOOP, пожалуй правильнее будет заменить
if StrToFloat(Memo22.Text) > 0 then на if (Round(10 * (<BDEQuery2."E_LEVEL"> - <BDEQuery2."S_LEVEL">)) / 10) > 0 then Проверьте пожалуйста и отпишитесь по результату ! |
Цитата:
|
Не за что.
|
Текущее время: 21:43. Часовой пояс GMT. |
Powered by vBulletin® Version 3.8.5
Copyright ©2000 - 2025, Jelsoft Enterprises Ltd. Перевод: zCarot