Гость
Целевая тема:
Создать новую тему:
Автор:
Форумы / Отчетные системы [игнор отключен] [закрыт для гостей] / FR: The following error(s) have occured: Script error at 9:12: '=' expected / 9 сообщений из 9, страница 1 из 1
17.07.2008, 22:56
    #35437997
mallory
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
FR: The following error(s) have occured: Script error at 9:12: '=' expected
У меня в шаблоне ( fr3 ) отчета есть Memo-поле, у которого в свойствах на закладке Text вписано: [m26t]
В закладке Code шаблона отчета вписал:
Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
var   m26t : Double;  
procedure Memo26OnBeforePrint(Sender: TfrxComponent);
begin
   m26t :=  5 ;
//   m26 := <SUM(<ADOTable1.""Оборот ДЗ"">, MasterData1)>;         
  if <SUM(<ADOTable1.""Сумма оплаты"">, MasterData1)> = NULL then  
    m26t :=  10                 
  else
    m26t : =  7               
  end;  
end;
При выполнении выскакивает окошечко со словами:
The following error(s) have occured:
Script error at 9:12: '=' expected

Что делать ?
...
Рейтинг: 0 / 0
18.07.2008, 05:40
    #35438136
FR: The following error(s) have occured: Script error at 9:12: '=' expected
malloryУ меня в шаблоне ( fr3 ) отчета есть Memo-поле, у которого в свойствах на закладке Text вписано: [m26t]
В закладке Code шаблона отчета вписал:
Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
var   m26t : Double;  
procedure Memo26OnBeforePrint(Sender: TfrxComponent);
begin
   m26t :=  5 ;
//   m26 := <SUM(<ADOTable1.""Оборот ДЗ"">, MasterData1)>;         
  if <SUM(<ADOTable1.""Сумма оплаты"">, MasterData1)> = NULL then  
    m26t :=  10                 
  else
    m26t : =  7               
  end;  
end;
При выполнении выскакивает окошечко со словами:
The following error(s) have occured:
Script error at 9:12: '=' expected

Что делать ?

А ты зачем в указанной строке между двоеточием и знаком равно проставил пробел? Вот парсер и не понимает, чего ты от него хочешь. Ведь знак "присвоить" хоть и состоит из "двоеточия" и "равно", но писаться должен слитно, без пробела между ними...
...
Рейтинг: 0 / 0
18.07.2008, 09:35
    #35438306
mallory
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
FR: The following error(s) have occured: Script error at 9:12: '=' expected
Исчезла ошибка. Спасибо. Но походу, она была не одна.... Сейчас такое:
Код: plaintext
1.
The following error(s) have occured:
Script error at  11 : 1 : 'BEGIN' expected
Я дописал внизу слова
begin
end.

но видно он чот другого хочет... полный вид теперь таков:
Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
var   m26t : Double;  
procedure Memo26OnBeforePrint(Sender: TfrxComponent);
begin
   m26t :=  5 ;
//   m26 := <SUM(<ADOTable1.""Оборот ДЗ"">, MasterData1)>;         
  if (<SUM(<ADOTable1.""Сумма оплаты"">, MasterData1)> = NULL) then  
    m26t :=  10                 
  else
    m26t :=  7               
  end;  
end;

begin

end.
...
Рейтинг: 0 / 0
18.07.2008, 11:12
    #35438583
FR: The following error(s) have occured: Script error at 9:12: '=' expected
Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
var   m26t : Double;  
procedure Memo26OnBeforePrint(Sender: TfrxComponent);
begin
   m26t :=  5 ;
//   m26 := <SUM(<ADOTable1.""Оборот ДЗ"">, MasterData1)>;         
  if (<SUM(<ADOTable1.""Сумма оплаты"">, MasterData1)> = NULL) then  
    m26t :=  10 
  else
    m26t :=  7  
  end;  
end;

begin

end.

Опять ругается?
А кто будет проставлять знак конца операции (точка-с-запятой ";") после всех операций?
...
Рейтинг: 0 / 0
18.07.2008, 11:28
    #35438646
mallory
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
FR: The following error(s) have occured: Script error at 9:12: '=' expected
При коде :
Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
var   m26t : Double;  
procedure Memo26OnBeforePrint(Sender: TfrxComponent);
begin
   m26t :=  5 ;
//   m26 := <SUM(<ADOTable1.""Оборот ДЗ"">, MasterData1)>;         
  if (<SUM(<ADOTable1.""Сумма оплаты"">, MasterData1)> = NULL) then  
    m26t :=  10 ;                    
  else
    m26t :=  7 ;                    
  end;  
end;

begin

end.
выдает ошибку: Fast Report
The following error(s) have occured:
Script error at 8:3: ';' expectedа при коде:
Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
var   m26t : Double;  
procedure Memo26OnBeforePrint(Sender: TfrxComponent);
begin
   m26t :=  5 ;
//   m26 := <SUM(<ADOTable1.""Оборот ДЗ"">, MasterData1)>;         
  if (<SUM(<ADOTable1.""Сумма оплаты"">, MasterData1)> = NULL) then  
    m26t :=  10 ;                    
(*  else
    m26t :=  7 ;  *)                               
  end;  
end;

begin

end.
выдает: Fast ReportThe following error(s) have occured:
Script error at 11:1: 'BEGIN' expectedВот такая жесть...
...
Рейтинг: 0 / 0
18.07.2008, 13:20
    #35439180
FR: The following error(s) have occured: Script error at 9:12: '=' expected
IMHO, у тебя там ещё и один END лишний...
...
Рейтинг: 0 / 0
18.07.2008, 13:36
    #35439244
mallory
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
FR: The following error(s) have occured: Script error at 9:12: '=' expected
Добрый Э - ЭхIMHO, у тебя там ещё и один END лишний...Какой именно ?
...
Рейтинг: 0 / 0
21.07.2008, 05:48
    #35441543
FR: The following error(s) have occured: Script error at 9:12: '=' expected
mallory Добрый Э - ЭхIMHO, у тебя там ещё и один END лишний...Какой именно ?
Любой из двух выделенных...
Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
var   m26t : Double;  
procedure Memo26OnBeforePrint(Sender: TfrxComponent);
begin
   m26t :=  5 ;
//   m26 := <SUM(<ADOTable1.""Оборот ДЗ"">, MasterData1)>;         
  if (<SUM(<ADOTable1.""Сумма оплаты"">, MasterData1)> = NULL) then  
    m26t :=  10 ;                    
(*  else
    m26t :=  7 ;  *)                               
  end;
end;  

begin

end.
...
Рейтинг: 0 / 0
21.07.2008, 10:31
    #35441753
mallory
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
FR: The following error(s) have occured: Script error at 9:12: '=' expected
Спасибо, Добрый Э - Эх ! Все в порядке теперь ...
Код обрел такой вид:
Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
var   m26t : Double;
      SummaOpl : Double;                                         
procedure Memo26OnBeforePrint(Sender: TfrxComponent);
begin
  SummaOpl := <SUM(<ADOTable1.""Сумма оплаты"">, MasterData1)>;
  if (SummaOpl =  0 )
    then  m26t :=  10 
  else
    m26t := <SUM(<ADOTable1.""Оборот ДЗ"">, MasterData1)>/SummaOpl    
end;

begin

end.
...
Рейтинг: 0 / 0
Форумы / Отчетные системы [игнор отключен] [закрыт для гостей] / FR: The following error(s) have occured: Script error at 9:12: '=' expected / 9 сообщений из 9, страница 1 из 1
Найденые пользователи ...
Разблокировать пользователей ...
Читали форум (0):
Пользователи онлайн (0):
x
x
Закрыть


Просмотр
0 / 0
Close
Debug Console [Select Text]