Ответ
 
Опции темы
Старый 16.12.2012, 04:53    | »»» |  #1
TOOP
Начинающий
 
Аватар для TOOP
 
Красноярск
Регистрация: 08.12.2012
Сообщений: 32
TOOP is on a distinguished road
Отправить сообщение для TOOP с помощью ICQ
По умолчанию Внешний отчет

Подскажите как можно сделать в данном отсчете так, чтобы выводились строчки только с отрицательным объемом топлива.
TOOP вне форума   Ответить с цитированием
Старый 16.12.2012, 10:11    | »»» |  #2
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™
По умолчанию

Использовать обработчик OnBeforePrint и не выводить строки, которые не соответствуют Вашему условию.

Нажмите для просмотра содержимого...



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

При двойном по пустому полю onbeforeprint выскакивает ошибка. Скриншот во вложении.
Вложения:
Тип файла: rar Снимок.rar (191.6 Кб, 4 просмотров)
TOOP вне форума   Ответить с цитированием
Старый 17.12.2012, 07:21    | »»» |  #4
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 Посмотреть сообщение
При двойном по пустому полю onbeforeprint выскакивает ошибка. Скриншот во вложении.
Проверьте вкладку "Код", там должно быть следующее (если никто не лазил):
Код:
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;
begin
  Days[1] := 'Воскресенье';
  Days[2] := 'Понедельник';
  Days[3] := 'Вторник';
  Days[4] := 'Среда';
  Days[5] := 'Четверг';
  Days[6] := 'Пятница';
  Days[7] := 'Суббота';  
end.
После двойного клика, вкладка "Код" должна выглядеть так:
Код:
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
end;
begin
  Days[1] := 'Воскресенье';
  Days[2] := 'Понедельник';
  Days[3] := 'Вторник';
  Days[4] := 'Среда';
  Days[5] := 'Четверг';
  Days[6] := 'Пятница';
  Days[7] := 'Суббота';  
end.

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

Все правильно была ошибка в коде исправил, заработало. Но конечный результат так и не достигнут.
procedure MasterData3OnBeforePrint(Sender: TfrxComponent);
begin
if Copy(<Memo22>) >0 then
MasterData3.Visible := True else
MasterData3.Visible := False;
end;
Посмотрите пожалуйста тут наверно явно где-то я ошибся.
TOOP вне форума   Ответить с цитированием
Старый 17.12.2012, 12:17    | »»» |  #6
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, функция Copy (string, x, y) - возвращает y символов строки string начиная с символа номер x
Она не подходит для Вашей задачи.

Скорее это:
Код:
 
procedure MasterData3OnBeforePrint(Sender: TfrxComponent);
begin
  if StrToFloat(Memo22.Text) > 0 then
    begin
      MasterData3.Visible := True;
    end;
  else 
    begin
      MasterData3.Visible := False; 
    end;
end;
Если значение в ячейке целое число, можно использовать StrToInt(Memo22.Text)

Отпишитесь по результату.

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

Так и не работает, что то с типом чисел. Числа там дробные с 1 знаком после запятой целое часть не превышает 4 символов.
Выводилась ошибка убрал после первого END точку с запятой.

стала выводится вот эта
TOOP вне форума   Ответить с цитированием
Старый 19.12.2012, 06:55    | »»» |  #8
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 вне форума   Ответить с цитированием
Старый 19.12.2012, 07:41    | »»» |  #9
TOOP
Начинающий
 
Аватар для TOOP
 
Красноярск
Регистрация: 08.12.2012
Сообщений: 32
TOOP is on a distinguished road
Отправить сообщение для TOOP с помощью ICQ
По умолчанию

Ошибки по порядку
Изображения:
Тип файла: jpg 123.JPG (15.2 Кб, 8 просмотров)
Тип файла: jpg 1234.JPG (17.3 Кб, 6 просмотров)
TOOP вне форума   Ответить с цитированием
Старый 19.12.2012, 10:00    | »»» |  #10
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 вне форума   Ответить с цитированием
Ответ


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

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

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

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


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


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