Главная
Новый форум
 FAQFAQ   SearchSearch   MemberlistMemberlist   UsergroupsUsergroups   RegisterRegister 
 ProfileProfile   Log in to check your private messagesLog in to check your private messages   Log inLog in 

Расценка приходной накладной

 
Post new topic   Reply to topic   printer-friendly view     Forum Index -> Программирование в БЭСТ-4
View previous topic :: View next topic  
Author Message
Bestovichek



Joined: 22 Mar 2002
Posts: 257



PostPosted: 26 Jun 2007 11:40    Post subject: Расценка приходной накладной Reply with quote

Стандартная процедура, нужная на всех торговых предприятиях. После ввода приходной накладной, произвести наценку. через fileval сделал вот такую калеку
Code:
PRIVATE a,b,c,d,p,k,pr1,pr2,pr3,pr4,cp1,cp2,cp3,cp4,tt,kk,c_1,c_2,c_3,c_4
DBPUSH("MDOCM","MDOCM","",{"UPPER(SCLAD+Vid+Type+CodeDoc+Numdoc)",MDOC->(UPPER(SCLAD+Vid+Type+CodeDoc+Numdoc))})
f_setrelation("MLABEL","UPPER(GRUP+NNUM)")

p:=dialog("НАЦЕНКА РУЧНАЯ-0, %НА КАЖДОЕ-1, %ОБЩИЙ-2","9",0)

//--------------------------------------------------------------------------------------------------------------------------
//определения пользовательских названий цен
//--------------------------------------------------------------------------------------------------------------------------
c_1:="Розничная"
c_2:="Мелкий опт"
c_3:="Опт"
//Ident = RCName4_ - КАК БЫ ПОДТЯГИВАТЬ АВТОМАТОМ?
c_4:="Специальная"



if p<1
//--------------------------------------------------------------------------------------------------------------------------
//      СЕКЦИЯ ВВОДА ЦЕНЫ ПРИ ВЫБОРЕ РУЧНОЙ НАЦЕНКИ НА КАЖДОЕ НАИМЕНОВАНИЕ
//--------------------------------------------------------------------------------------------------------------------------
  do while (mdocm->(!eof()))
a:=dialog(alltrim(c_1)+"..."+substr(mlabel->name,1,40),"999999999.99",mlabel->ocena1)
   mlabel->(reclock())
   mlabel->ocena1:=a
b:=dialog(alltrim(c_2)+"..."+substr(mlabel->name,1,40),"999999999.99",mlabel->ocena2)
   mlabel->(reclock())
   mlabel->ocena2:=b
c:=dialog(alltrim(c_3)+"..."+substr(mlabel->name,1,40),"999999999.99",mlabel->ocena3)
   mlabel->(reclock())
   mlabel->ocena3:=c
d:=dialog(alltrim(c_4)+"..."+substr(mlabel->name,1,40),"999999999.99",mlabel->ocena4)
   mlabel->(reclock())
   mlabel->ocena4:=d
//--------------------------------------------------------------------------------------------------------------------------
//--------------------------------------------------------------------------------------------------------------------------
mlabel->(f_DBunlock())
mdocm->(dbskip())
  enddo
  DBPOP()

ELSE
if p=1
//--------------------------------------------------------------------------------------------------------------------------
//     СЕКЦИЯ ВВОДА ЦЕНЫ ПРОЦЕНТНОЙ НАЦЕНКИ НА КАЖДОЕ НАИМЕНОВАНИЕ
//--------------------------------------------------------------------------------------------------------------------------
 do while (mdocm->(!eof()))
k:=mdocm->cenaout

//  1 Цена в прайсе   
   pr1:=dialog("Процент наценки розница"+substr(mlabel->name,1,40),"99.99",20)
   cp1:=round(k*(pr1+100)/100,2)
   tt:=str(mlabel->ocena1)
a:=dialog("Розничная....."+substr(mlabel->name,1,40),"999999999.99",cp1,"Цена в прайсе"+tt+"!!!")
   mlabel->(reclock())
   mlabel->ocena1:=a
// 2 Цена в прайсе
   pr2:=dialog("Процент наценки мелкий опт"+substr(mlabel->name,1,40),"99.99",14)
   cp2:=round(k*(pr2+100)/100,2)
   tt:=str(mlabel->ocena2)
b:=dialog("Мелкий опт....."+substr(mlabel->name,1,40),"999999999.99",cp2,"Цена в прайсе"+tt+"!!!")
   mlabel->(reclock())
   mlabel->ocena2:=b
//  3 Цена в прайсе   
   pr3:=dialog("Процент наценки опт"+substr(mlabel->name,1,40),"99.99",8)
   cp3:=round(k*(pr3+100)/100,2)
   tt:=str(mlabel->ocena3)
c:=dialog("Опт....."+substr(mlabel->name,1,40),"999999999.99",cp3,"Цена в прайсе"+tt+"!!!")
   mlabel->(reclock())
   mlabel->ocena3:=c
//  4 Цена в прайсе   
   pr4:=dialog("Процент наценки спец"+substr(mlabel->name,1,40),"99.99",5)
   cp4:=round(k*(pr4+100)/100,2)
   tt:=str(mlabel->ocena4)
d:=dialog("Специальная....."+substr(mlabel->name,1,40),"999999999.99",cp4,"Цена в прайсе"+tt+"!!!")
   mlabel->(reclock())
   mlabel->ocena4:=d
//--------------------------------------------------------------------------------------------------------------------------
//--------------------------------------------------------------------------------------------------------------------------
mlabel->(f_DBunlock())
mdocm->(dbskip())
  enddo
  DBPOP()
ELSE
if p=2
//--------------------------------------------------------------------------------------------------------------------------
//     СЕКЦИЯ ВВОДА ЦЕНЫ ПРОЦЕНТНОЙ НАЦЕНКИ НА НАКЛАДНУЮ
//--------------------------------------------------------------------------------------------------------------------------
   pr1:=dialog("Процент наценки розница","99.99",20)
   pr2:=dialog("Процент наценки мелкий опт","99.99",14)
   pr3:=dialog("Процент наценки опт","99.99",8)
   pr4:=dialog("Процент наценки спец","99.99",5)
do while (mdocm->(!eof()))
//  1 Цена в прайсе   
   cp1:=round(k*(pr1+100)/100,2)
   tt:=str(mlabel->ocena1)
a:=dialog("Розничная....."+substr(mlabel->name,1,40),"999999999.99",cp1,"Цена в прайсе"+tt+"!!!")
   mlabel->(reclock())
   mlabel->ocena1:=a
// 2 Цена в прайсе
   cp2:=round(k*(pr2+100)/100,2)
   tt:=str(mlabel->ocena2)
b:=dialog("Мелкий опт....."+substr(mlabel->name,1,40),"999999999.99",cp2,"Цена в прайсе"+tt+"!!!")
   mlabel->(reclock())
   mlabel->ocena2:=b
//  3 Цена в прайсе   
   cp3:=round(k*(pr3+100)/100,2)
   tt:=str(mlabel->ocena3)
c:=dialog("Опт....."+substr(mlabel->name,1,40),"999999999.99",cp3,"Цена в прайсе"+tt+"!!!")
   mlabel->(reclock())
   mlabel->ocena3:=c
//  4 Цена в прайсе   
   cp4:=round(k*(pr4+100)/100,2)
   tt:=str(mlabel->ocena4)
d:=dialog("Специальная....."+substr(mlabel->name,1,40),"999999999.99",cp4,"Цена в прайсе"+tt+"!!!")
   mlabel->(reclock())
   mlabel->ocena4:=d
//--------------------------------------------------------------------------------------------------------------------------
//--------------------------------------------------------------------------------------------------------------------------
   mlabel->(f_DBunlock())
   mdocm->(dbskip())
  ENDDO
  DBPOP()
ENDIF


но хочется чтобы пользовательские названия цен в прайсе выводились автомтом, и как-то это все человечней организовать, в плане выбора метода расценки и оптимизации

хочется от производителя стандартного решения этого вопроса вообще-
Back to top
View user's profile Send private message Send e-mail
nordk



Joined: 27 Jun 2005
Posts: 1000
Location: Горбунов Константин
Occupation: БЭСТ-Партнер
Interests: СПб

PostPosted: 26 Jun 2007 19:04    Post subject: Reply with quote

Этот вопрос знаком по множеству внедрений.
Но двух одинаковых не было никогда.
Множество - просто множество вариантов.
Это целая тема режим ценообразования.
Наименования цен лежат в файле user.dbf
По полю Ident ищем значения RCNAME1_ и из поля xVal
берем наименование цены
Back to top
View user's profile Send private message Send e-mail
nordk



Joined: 27 Jun 2005
Posts: 1000
Location: Горбунов Константин
Occupation: БЭСТ-Партнер
Interests: СПб

PostPosted: 26 Jun 2007 19:08    Post subject: Reply with quote

При входе в накладную уже существует переменная
RCNAME1_ и она глобальная
Back to top
View user's profile Send private message Send e-mail
Яков



Joined: 04 Mar 2002
Posts: 618
Location: Яков
Occupation: Экстремальная терапия бизнеса
Interests: Владивосток

PostPosted: 27 Jun 2007 13:14    Post subject: Re: Расценка приходной накладной Reply with quote

Bestovichek wrote:
Стандартная процедура, нужная на всех торговых предприятиях.

ДА.
Bestovichek wrote:
После ввода приходной накладной, произвести наценку.

Не всегда "наценку". Иногда просто надо заполнить прайс.
Товаровед в приходной накладной от поставщика сразу проставляет продажную цену, а фактуровщик должен её ввести.
И очень удобно ввести количество, сумму закупа, продажную цену.
ЭРГОНОМИКА блин.
Bestovichek wrote:
хочется от производителя стандартного решения этого вопроса вообще-то

ДА.
Back to top
View user's profile Send private message Send e-mail Visit poster's website
nordk



Joined: 27 Jun 2005
Posts: 1000
Location: Горбунов Константин
Occupation: БЭСТ-Партнер
Interests: СПб

PostPosted: 27 Jun 2007 13:43    Post subject: Re: Расценка приходной накладной Reply with quote

[quote="Яков]Не всегда "наценку". Иногда просто надо заполнить прайс.
Товаровед в приходной накладной от поставщика сразу проставляет продажную цену, а фактуровщик должен её ввести.
[/quote]
А еще удобнее в этом случае не скупиться на терминал сбора данных - пусть товаровед в нем все делает - а дальше заливка накладной в
БЭСТ и фактурощик до свидания в этом вопросе. И это правильнее.
И вот тут эргономика.
Back to top
View user's profile Send private message Send e-mail
mrs_2005



Joined: 22 Jun 2005
Posts: 105
Location: Михайлов Р.С.
Occupation: ООО "Предприятие "Виктория-Юг"
Interests: г. Краснодар

PostPosted: 27 Jun 2007 21:48    Post subject: Re: Расценка приходной накладной Reply with quote

nordk wrote:
[quote="Яков]Не всегда "наценку". Иногда просто надо заполнить прайс.
Товаровед в приходной накладной от поставщика сразу проставляет продажную цену, а фактуровщик должен её ввести.

А еще удобнее в этом случае не скупиться на терминал сбора данных - пусть товаровед в нем все делает - а дальше заливка накладной в
БЭСТ и фактурощик до свидания в этом вопросе. И это правильнее.
И вот тут эргономика.


А можно поподробнее, что можно сделать в терминале сбора данных? Можно ли, например, в нем сделать наценку?
Как закачиваем в БЭСТ, импортом строк или готового документа (с заголовком)?
Back to top
View user's profile Send private message Send e-mail Visit poster's website
nordk



Joined: 27 Jun 2005
Posts: 1000
Location: Горбунов Константин
Occupation: БЭСТ-Партнер
Interests: СПб

PostPosted: 28 Jun 2007 13:28    Post subject: Reply with quote

Да можно, только там есть идея которую в открытый форум отдавать не хочу просто так. Давайте на партнерском по автоматизации розницы тмеу раскроем и поговорим там между собой
Закачиваем импортом строк разумеется. Только сейчас есть механизм куда интереснее импорта - событие картотека товаров. В БЭСТ 4+ есть такое дело. Там сразу на ALT-F4 закачку можно подвесить.
Back to top
View user's profile Send private message Send e-mail
Плешивцев Евгений



Joined: 03 Apr 2007
Posts: 95
Location: Плешивцев Евгений

Interests: Волгоград

PostPosted: 28 Jun 2007 15:56    Post subject: Reply with quote

Добрый день, коллеги.
Наш опыт использования ТСД на операции приход показал ограничееность этой технологии. Основные проблемы:
-- поступление нового товара, т.е. такого которого еще не было в номенклатурном справочнике.
-- в процес приемки товара добавляется еще одна операция - отбор корзины образцов товара для товароведа.
Back to top
View user's profile Send private message
nordk



Joined: 27 Jun 2005
Posts: 1000
Location: Горбунов Константин
Occupation: БЭСТ-Партнер
Interests: СПб

PostPosted: 28 Jun 2007 16:23    Post subject: Reply with quote

Извини Евгений у нас нет ни первой ни второй проблемы
Все давно решено (лет 5 как).
Кстати вторая проблема имеет место при работе без терминала, а просто сканером штрих-кода на стационарном рабочем месте.
Это именно то, о чем я не хочу делится просто так на общем форуме
Back to top
View user's profile Send private message Send e-mail
mrs_2005



Joined: 22 Jun 2005
Posts: 105
Location: Михайлов Р.С.
Occupation: ООО "Предприятие "Виктория-Юг"
Interests: г. Краснодар

PostPosted: 29 Jun 2007 00:00    Post subject: Reply with quote

nordk wrote:
Извини Евгений у нас нет ни первой ни второй проблемы
Все давно решено (лет 5 как).
Кстати вторая проблема имеет место при работе без терминала, а просто сканером штрих-кода на стационарном рабочем месте.
Это именно то, о чем я не хочу делится просто так на общем форуме


ок, перейдем в партнерский раздел.
Back to top
View user's profile Send private message Send e-mail Visit poster's website
Bestovichek



Joined: 22 Mar 2002
Posts: 257



PostPosted: 24 Jul 2007 12:52    Post subject: Reply with quote

в итоге ............
по ходу нафиг никому не нужная функция, забудем други о ней как о пережитке империализма, ведь есть везде складская цена, мы ведь к коммунизму по инерции .....
Back to top
View user's profile Send private message Send e-mail
nordk



Joined: 27 Jun 2005
Posts: 1000
Location: Горбунов Константин
Occupation: БЭСТ-Партнер
Interests: СПб

PostPosted: 24 Jul 2007 14:56    Post subject: Reply with quote

Я бы уточнил - не складская цена а учетная цена.
А при партионном учете эта учетная цена может быть компромис
Back to top
View user's profile Send private message Send e-mail
Display posts from previous:   
Post new topic   Reply to topic   printer-friendly view     Forum Index -> Программирование в БЭСТ-4 All times are GMT + 4 Hours
Page 1 of 1

 
Jump to:  
You cannot post new topics in this forum
You cannot reply to topics in this forum
You cannot edit your posts in this forum
You cannot delete your posts in this forum
You cannot vote in polls in this forum


Powered by phpBB © phpBB Group

Rambler
Rambler's Top100 Рейтинг@Mail.ru