| View previous topic :: View next topic   | 
	
	
	
		| Author | 
		Message | 
	
	
		lola
 
 
  Joined: 13 Feb 2003 Posts: 112
 
 
 
  | 
		
			
				 Posted: 27 Apr 2004 10:36    Post subject: FileEval | 
				     | 
			 
			
				
  | 
			 
			
				Прошу подсказки специалистов с опытом использования FileEval.
 
Казалось, простая задача - подключить в шаблоне формы документа вывод содержимого мемо поля из файла dbf, которое не описано в параметрах, используемых в "Вычислить по формуле".
 
А именно задейстовать только первую строку из memo поля Comm файла Contract.dbf подсистемы "Расчеты.Договоры." в шаблоне формы договора.
 
Спасибо. | 
			 
		  | 
	
	
		| Back to top | 
		 | 
	
	
		  | 
	
	
		Умница
 
 
  Joined: 25 Mar 2003 Posts: 35
 
 
 
  | 
		
			
				 Posted: 27 Apr 2004 17:12    Post subject:  | 
				     | 
			 
			
				
  | 
			 
			
				А в чем конкретно-то проблема?
 
 	  | Code: | 	 		  | MEMOLINE (CONTRACT->COMM,,1)  | 	  
 
 
MEMOLINE(<символьная строка>.[<длина строки>],[<номер строки>],<шаг табуляции>],[<переключатель переноса>]) - Выделяет строку текста из символьной строки или memo-поля | 
			 
		  | 
	
	
		| Back to top | 
		 | 
	
	
		  | 
	
	
		lola
 
 
  Joined: 13 Feb 2003 Posts: 112
 
 
 
  | 
		
			
				 Posted: 11 May 2004 09:04    Post subject:  | 
				     | 
			 
			
				
  | 
			 
			
				| Не получилось с передачей параметров из строки "Вычислить по формуле" в FileEval и обратно. Подскажите на приме | 
			 
		  | 
	
	
		| Back to top | 
		 | 
	
	
		  | 
	
	
		Olia
 
 
  Joined: 24 Dec 2003 Posts: 4 Location: Ольга Алексеева Occupation: Интеллект Сервис Interests: Москва
  | 
		
			
				 Posted: 13 May 2004 12:58    Post subject: Пример...: | 
				     | 
			 
			
				
  | 
			 
			
				Настройка формы печати договора
 
Вычислить по формуле:
 
 	  | Code: | 	 		  | fileeval("test.prg",{RegNum}) && Передаем параметр  | 	  
 
 
Листинг test.prg
 
 	  | Code: | 	 		  private i,cNumreg
 
cNumReg:=aPars[1]
 
i:=""
 
netuse("mcon",loadpath()+"\contract\contract.dbf")
 
mcon->(ordsetfocus("numreg"))
 
mcon->(dbseek(upper(cNumreg)))
 
  if mcon->(found())
 
  i:=memoline(mcon->comm,,1)
 
  endif   
 
i:=i && переменная вернет значение первой строки мемо поля
 
 | 	 
  | 
			 
		  | 
	
	
		| Back to top | 
		 | 
	
	
		  | 
	
	
		 |