Ответ
 
Опции темы
Старый 19.12.2012, 10:03    | »»» |  #11
SK
Администратор
 
Аватар для SK
 
Регистрация: 27.05.2010
Сообщений: 29,970
SK has much to be proud ofSK has much to be proud ofSK has much to be proud ofSK has much to be proud ofSK has much to be proud ofSK has much to be proud ofSK has much to be proud ofSK has much to be proud of
Отправить сообщение для SK с помощью Skype™
По умолчанию



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

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

ООО «ТехноКом», г. Челябинск
Самцов Константин Юрьевич - зам. директора по коммерческой деятельности
SK вне форума   Ответить с цитированием
Старый 24.12.2012, 11:57    | »»» |  #12
TOOP
Начинающий
 
Аватар для TOOP
 
Красноярск
Регистрация: 08.12.2012
Сообщений: 32
TOOP is on a distinguished road
Отправить сообщение для TOOP с помощью ICQ
По умолчанию

Отчет по автозаправщикам.
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.
TOOP вне форума   Ответить с цитированием
Старый 24.12.2012, 14:54    | »»» |  #13
SK
Администратор
 
Аватар для SK
 
Регистрация: 27.05.2010
Сообщений: 29,970
SK has much to be proud ofSK has much to be proud ofSK has much to be proud ofSK has much to be proud ofSK has much to be proud ofSK has much to be proud ofSK has much to be proud ofSK has much to be proud of
Отправить сообщение для SK с помощью Skype™
По умолчанию

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

ООО «ТехноКом», г. Челябинск
Самцов Константин Юрьевич - зам. директора по коммерческой деятельности
SK вне форума   Ответить с цитированием
Старый 25.12.2012, 03:38    | »»» |  #14
TOOP
Начинающий
 
Аватар для TOOP
 
Красноярск
Регистрация: 08.12.2012
Сообщений: 32
TOOP is on a distinguished road
Отправить сообщение для TOOP с помощью ICQ
По умолчанию

Вот что сейчас выводит. Если выбрать транспортное средство у которого нету отрицательных значений то выводит пустой отчет без ошибки.
Изображения:
Тип файла: jpg 84756.JPG (17.3 Кб, 4 просмотров)
TOOP вне форума   Ответить с цитированием
Старый 25.12.2012, 07:55    | »»» |  #15
SK
Администратор
 
Аватар для SK
 
Регистрация: 27.05.2010
Сообщений: 29,970
SK has much to be proud ofSK has much to be proud ofSK has much to be proud ofSK has much to be proud ofSK has much to be proud ofSK has much to be proud ofSK has much to be proud ofSK has much to be proud of
Отправить сообщение для SK с помощью Skype™
По умолчанию

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

ООО «ТехноКом», г. Челябинск
Самцов Константин Юрьевич - зам. директора по коммерческой деятельности
SK вне форума   Ответить с цитированием
Старый 25.12.2012, 08:15    | »»» |  #16
SK
Администратор
 
Аватар для SK
 
Регистрация: 27.05.2010
Сообщений: 29,970
SK has much to be proud ofSK has much to be proud ofSK has much to be proud ofSK has much to be proud ofSK has much to be proud ofSK has much to be proud ofSK has much to be proud ofSK has much to be proud of
Отправить сообщение для SK с помощью Skype™
По умолчанию

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

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

ООО «ТехноКом», г. Челябинск
Самцов Константин Юрьевич - зам. директора по коммерческой деятельности
SK вне форума   Ответить с цитированием
Старый 25.12.2012, 12:02    | »»» |  #17
TOOP
Начинающий
 
Аватар для TOOP
 
Красноярск
Регистрация: 08.12.2012
Сообщений: 32
TOOP is on a distinguished road
Отправить сообщение для TOOP с помощью ICQ
По умолчанию

Сообщение от SK Посмотреть сообщение
TOOP, пожалуй правильнее будет заменить
if StrToFloat(Memo22.Text) > 0 then
на
if (Round(10 * (<BDEQuery2."E_LEVEL"> - <BDEQuery2."S_LEVEL">)) / 10) > 0 then
Поменял. Сразу все заработало. Спасибо.
TOOP вне форума   Ответить с цитированием
Старый 25.12.2012, 12:08    | »»» |  #18
SK
Администратор
 
Аватар для SK
 
Регистрация: 27.05.2010
Сообщений: 29,970
SK has much to be proud ofSK has much to be proud ofSK has much to be proud ofSK has much to be proud ofSK has much to be proud ofSK has much to be proud ofSK has much to be proud ofSK has much to be proud of
Отправить сообщение для SK с помощью Skype™
По умолчанию

Не за что.

ООО «ТехноКом», г. Челябинск
Самцов Константин Юрьевич - зам. директора по коммерческой деятельности
SK вне форума   Ответить с цитированием
Ответ


Здесь присутствуют: 1 (пользователей: 0 , гостей: 1)
 
Опции темы

Ваши права в разделе
Вы не можете создавать новые темы
Вы не можете отвечать в темах
Вы не можете прикреплять вложения
Вы не можете редактировать свои сообщения

BB коды Вкл.
Смайлы Вкл.
[IMG] код Вкл.
HTML код Выкл.

Быстрый переход


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


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