| View previous topic :: View next topic   | 
	
	
	
		| Author | 
		Message | 
	
	
		Максим Черепанов
 
 
  Joined: 17 Jan 2004 Posts: 136 Location: Максим Черепанов Occupation: ЖА Interests: Анапа
  | 
		
			
				 Posted: 25 Feb 2004 16:27    Post subject: Продажи! Счет - Fileeval-как выдернуть реквизиты | 
				     | 
			 
			
				
  | 
			 
			
				Доброе время суток!
 
 
Очень хочется сделать нормальный счет. Для этого надо бы повыдергивать реквизиты из справочника -(расчетный счет, инн, бик, и тд) своего предприятия и контрагента.
 
 пробовал Через Fileeval("этот файл",{cCodeDop}) //для контрагента видимо надо подставлять aCode.
 
 
Не получилось . Помогите чего не так сделал???????
 
 
private a
 
dbOpenBase({{'PARTNER',LoadPath()+'PARTNER.DBF'}})
 
dbpush("PARTNER","CODE","",{"UPPER(CODE)",apars[2]})
 
a:=partner->recvizit
 
dbpop()
 
dbCloseBase({'Partner'})
 
a | 
			 
		  | 
	
	
		| Back to top | 
		 | 
	
	
		  | 
	
	
		Aidar
 
 
  Joined: 13 Jan 2003 Posts: 222
 
  Interests: Казань
  | 
		
			
				 Posted: 25 Feb 2004 17:17    Post subject:  | 
				     | 
			 
			
				
  | 
			 
			
				Подробнее опиши проблему.
 
Что за счет, и почему через Fileeval, когда любой реквизит любого предприятия можно вытащить напрямую в блоках товаров, материалах,закупках и продажах.
 
 Можно посмотреть в счет-фактурах демо-баз.
 
 
Айда | 
			 
		  | 
	
	
		| Back to top | 
		 | 
	
	
		  | 
	
	
		Максим Черепанов
 
 
  Joined: 17 Jan 2004 Posts: 136 Location: Максим Черепанов Occupation: ЖА Interests: Анапа
  | 
		
			
				 Posted: 25 Feb 2004 19:35    Post subject:  | 
				     | 
			 
			
				
  | 
			 
			
				Все спасибо.. решение нашел, может кому пригодится
 
 
А выдернуть неполучилось.... собственные реквизиты(может руки кривые).... а контрагента действительно получается
 
 
aVars:=AFill(ARRAY(10),0)
 
dbOpenBase({{'PARTNER',LoadPath()+'PARTNER.DBF'}})
 
dbpush("PARTNER","CODE","",{"UPPER(CODE)",apars[1]})
 
aVars[1]:=partner->ORGNAME //полное наименование
 
aVars[2]:=partner->BNKKOD //бик
 
aVars[3]:=partner->BNKKOD1//КОД БАНКА
 
aVars[4]:=partner->BANK   //название банка
 
aVars[5]:=partner->code_pr//Инн/КПП
 
aVars[6]:=partner->adress//адрес
 
aVars[7]:=partner->code_okpo//код ОКПО
 
aVars[8]:=partner->telefon1
 
dbpop()
 
dbCloseBase({'Partner'})
 
aVars[1] | 
			 
		  | 
	
	
		| Back to top | 
		 | 
	
	
		  | 
	
	
		 |