| View previous topic :: View next topic   | 
	
	
	
		| Author | 
		Message | 
	
	
		vick
 
 
  Joined: 23 Jun 2004 Posts: 26 Location: Иванов Виталий Витальевич Occupation: ООО "РЕМ" (системный администратор) Interests: Казань
  | 
		
			
				 Posted: 09 Jul 2004 14:51    Post subject: Реализация дисконтной системы | 
				     | 
			 
			
				
  | 
			 
			
				Не нашел подходящей темы, создаю новую:
 
Возможно ли в БЭСТ-4 реализовать систему накопительных скидок для клиентов? С расширенными возможностями - жесткая скидка, заданная вручную, накопительная скидка, и т.д.
 
Слышал, что такая возможность якобы есть при партионном учете, но наша система поставок несколько хаотична, и нет возможности реализовать именно стройную поставку по партиям.
 
Соответственно хочется данную возможность отразить в накладных, выдаваемых клиентам - опять же с гибкими возможностями - например, выдавать счет по отпускным ценам, а скидку показывать в несколько завуалированном виде... ну, я думаю, вы меня понимаете    | 
			 
		  | 
	
	
		| Back to top | 
		 | 
	
	
		  | 
	
	
		vick
 
 
  Joined: 23 Jun 2004 Posts: 26 Location: Иванов Виталий Витальевич Occupation: ООО "РЕМ" (системный администратор) Interests: Казань
  | 
		
			
				 Posted: 09 Jul 2004 15:02    Post subject: Re: Реализация дисконтной системы | 
				     | 
			 
			
				
  | 
			 
			
				 	  | vick wrote: | 	 		  | Слышал, что такая возможность якобы есть при партионном учете | 	  
 
Скорее всего, я несколько напутал - это относится к другой моей теме... | 
			 
		  | 
	
	
		| Back to top | 
		 | 
	
	
		  | 
	
	
		Li
 
 
  Joined: 30 Jan 2004 Posts: 172 Location: Хайрова Л.Р. Occupation: программист, Вектра-Софт Interests: Казань
  | 
		
			
				 Posted: 12 Jul 2004 09:16    Post subject:  | 
				     | 
			 
			
				
  | 
			 
			
				| Может быть "завязаться" с модулем "Договоров" - регистрацией расчетов чего-нибудь такое хранить в разрезе клиента (чтоб, например не замусоривать забаланс - некими параметрами числовыми в разрезе аналитики по партнерам) - ничего другого навскидку в голову не приходит :о) | 
			 
		  | 
	
	
		| Back to top | 
		 | 
	
	
		  | 
	
	
		vick
 
 
  Joined: 23 Jun 2004 Posts: 26 Location: Иванов Виталий Витальевич Occupation: ООО "РЕМ" (системный администратор) Interests: Казань
  | 
		
			
				 Posted: 14 Jul 2004 12:43    Post subject:  | 
				     | 
			 
			
				
  | 
			 
			
				 	  | Li wrote: | 	 		  | Может быть "завязаться" с модулем "Договоров" - регистрацией расчетов чего-нибудь такое хранить в разрезе клиента (чтоб, например не замусоривать забаланс - некими параметрами числовыми в разрезе аналитики по партнерам) - ничего другого навскидку в голову не приходит :о) | 	  
 
Это решение подразумевает доработку модуля и разработку кода? А нет ли других решений, желательно готовых?   | 
			 
		  | 
	
	
		| Back to top | 
		 | 
	
	
		  | 
	
	
		Яков
 
  
  Joined: 04 Mar 2002 Posts: 618 Location: Яков Occupation: Экстремальная терапия бизнеса Interests: Владивосток
  | 
		
			
				 Posted: 14 Jul 2004 13:27    Post subject: Re: Реализация дисконтной системы | 
				     | 
			 
			
				
  | 
			 
			
				 	  | vick wrote: | 	 		  Не нашел подходящей темы, создаю новую:
 
Возможно ли в БЭСТ-4 реализовать систему накопительных скидок для клиентов? С расширенными возможностями - жесткая скидка, заданная вручную, накопительная скидка, и т.д.
 
 | 	  
 
Я делаю так.
 
В поле "Краткое наименование аналитики" заношу значение накопленной суммы.
 
При отгрузке товара фактуровщик видит накопленную сумму и при предъявлении дисконтной карты принимает решение о предоставлении скидки.
 
 
На фоксе это выглядит примерно так:
 
 
 	  | Code: | 	 		  SET DELETED OFF
 
 
SELECT MAIN.KT_CODE, sum(MAIN.SUMMA);
 
 FROM c:\best2004\dbase\MAIN;
 
 WHERE MAIN.KT_SCHET = "621";
 
 GROUP BY MAIN.KT_SCHET, MAIN.KT_CODE;
 
 INTO TABLE c:\prg\BUFER1.DBF
 
close database
 
 
use c:\best2004\dbase\analit.dbf in 1
 
use bufer1 in 2
 
 
SELECT 1  
 
 
SCAN  for(analit.SCHET="621")
 
SCATTER  MEMVAR
 
   SELECT 2
 
   LOCATE FOR  bufer1.kt_code = analit.code
 
    DO WHILE FOUND()
 
    m.KEY=str( analit.SALDO_0+bufer1.sum_summa, 12, 2)
 
    m.name=substr(analit.name, 1, 14)+str( analit.SALDO_0+bufer1.sum_summa, 11, 2) 
 
 
   CONTINUE
 
    ENDDO
 
select 1
 
   GATHER memvar
 
ENDSCAN
 
      
 
close database
 
delete file c:\prg\BUFER1.DBF
 
quit | 	 
  | 
			 
		  | 
	
	
		| Back to top | 
		 | 
	
	
		  | 
	
	
		 |