powered by simpleCommunicator - 2.0.59     © 2025 Programmizd 02
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Форумы / Отчетные системы [игнор отключен] [закрыт для гостей] / FR: The following error(s) have occured: Script error at 9:12: '=' expected
9 сообщений из 9, страница 1 из 1
FR: The following error(s) have occured: Script error at 9:12: '=' expected
    #35437997
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
FR: The following error(s) have occured: Script error at 9:12: '=' expected
    #35438136
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
FR: The following error(s) have occured: Script error at 9:12: '=' expected
    #35438306
mallory
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Исчезла ошибка. Спасибо. Но походу, она была не одна.... Сейчас такое:
Код: 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
FR: The following error(s) have occured: Script error at 9:12: '=' expected
    #35438583
Код: 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
FR: The following error(s) have occured: Script error at 9:12: '=' expected
    #35438646
mallory
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
При коде :
Код: 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
FR: The following error(s) have occured: Script error at 9:12: '=' expected
    #35439180
IMHO, у тебя там ещё и один END лишний...
...
Рейтинг: 0 / 0
FR: The following error(s) have occured: Script error at 9:12: '=' expected
    #35439244
mallory
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Добрый Э - ЭхIMHO, у тебя там ещё и один END лишний...Какой именно ?
...
Рейтинг: 0 / 0
FR: The following error(s) have occured: Script error at 9:12: '=' expected
    #35441543
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
FR: The following error(s) have occured: Script error at 9:12: '=' expected
    #35441753
mallory
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Спасибо, Добрый Э - Эх ! Все в порядке теперь ...
Код обрел такой вид:
Код: 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
9 сообщений из 9, страница 1 из 1
Форумы / Отчетные системы [игнор отключен] [закрыт для гостей] / FR: The following error(s) have occured: Script error at 9:12: '=' expected
Найденые пользователи ...
Разблокировать пользователей ...
Читали форум (0):
Пользователи онлайн (0):
x
x
Закрыть


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