Posted: 26 Jun 2007 11:40 Post subject: Расценка приходной накладной
Стандартная процедура, нужная на всех торговых предприятиях. После ввода приходной накладной, произвести наценку. через fileval сделал вот такую калеку
//--------------------------------------------------------------------------------------------------------------------------
//определения пользовательских названий цен
//--------------------------------------------------------------------------------------------------------------------------
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
но хочется чтобы пользовательские названия цен в прайсе выводились автомтом, и как-то это все человечней организовать, в плане выбора метода расценки и оптимизации
хочется от производителя стандартного решения этого вопроса вообще-
Joined: 27 Jun 2005 Posts: 1000 Location: Горбунов Константин Occupation: БЭСТ-Партнер Interests: СПб
Posted: 26 Jun 2007 19:04 Post subject:
Этот вопрос знаком по множеству внедрений.
Но двух одинаковых не было никогда.
Множество - просто множество вариантов.
Это целая тема режим ценообразования.
Наименования цен лежат в файле user.dbf
По полю Ident ищем значения RCNAME1_ и из поля xVal
берем наименование цены
Posted: 27 Jun 2007 13:14 Post subject: Re: Расценка приходной накладной
Bestovichek wrote:
Стандартная процедура, нужная на всех торговых предприятиях.
ДА.
Bestovichek wrote:
После ввода приходной накладной, произвести наценку.
Не всегда "наценку". Иногда просто надо заполнить прайс.
Товаровед в приходной накладной от поставщика сразу проставляет продажную цену, а фактуровщик должен её ввести.
И очень удобно ввести количество, сумму закупа, продажную цену.
ЭРГОНОМИКА блин.
Bestovichek wrote:
хочется от производителя стандартного решения этого вопроса вообще-то
Joined: 27 Jun 2005 Posts: 1000 Location: Горбунов Константин Occupation: БЭСТ-Партнер Interests: СПб
Posted: 27 Jun 2007 13:43 Post subject: Re: Расценка приходной накладной
[quote="Яков]Не всегда "наценку". Иногда просто надо заполнить прайс.
Товаровед в приходной накладной от поставщика сразу проставляет продажную цену, а фактуровщик должен её ввести.
[/quote]
А еще удобнее в этом случае не скупиться на терминал сбора данных - пусть товаровед в нем все делает - а дальше заливка накладной в
БЭСТ и фактурощик до свидания в этом вопросе. И это правильнее.
И вот тут эргономика.
Joined: 22 Jun 2005 Posts: 105 Location: Михайлов Р.С. Occupation: ООО "Предприятие "Виктория-Юг" Interests: г. Краснодар
Posted: 27 Jun 2007 21:48 Post subject: Re: Расценка приходной накладной
nordk wrote:
[quote="Яков]Не всегда "наценку". Иногда просто надо заполнить прайс.
Товаровед в приходной накладной от поставщика сразу проставляет продажную цену, а фактуровщик должен её ввести.
А еще удобнее в этом случае не скупиться на терминал сбора данных - пусть товаровед в нем все делает - а дальше заливка накладной в
БЭСТ и фактурощик до свидания в этом вопросе. И это правильнее.
И вот тут эргономика.
А можно поподробнее, что можно сделать в терминале сбора данных? Можно ли, например, в нем сделать наценку?
Как закачиваем в БЭСТ, импортом строк или готового документа (с заголовком)?
Joined: 27 Jun 2005 Posts: 1000 Location: Горбунов Константин Occupation: БЭСТ-Партнер Interests: СПб
Posted: 28 Jun 2007 13:28 Post subject:
Да можно, только там есть идея которую в открытый форум отдавать не хочу просто так. Давайте на партнерском по автоматизации розницы тмеу раскроем и поговорим там между собой
Закачиваем импортом строк разумеется. Только сейчас есть механизм куда интереснее импорта - событие картотека товаров. В БЭСТ 4+ есть такое дело. Там сразу на ALT-F4 закачку можно подвесить.
Joined: 03 Apr 2007 Posts: 95 Location: Плешивцев Евгений
Interests: Волгоград
Posted: 28 Jun 2007 15:56 Post subject:
Добрый день, коллеги.
Наш опыт использования ТСД на операции приход показал ограничееность этой технологии. Основные проблемы:
-- поступление нового товара, т.е. такого которого еще не было в номенклатурном справочнике.
-- в процес приемки товара добавляется еще одна операция - отбор корзины образцов товара для товароведа.
Joined: 27 Jun 2005 Posts: 1000 Location: Горбунов Константин Occupation: БЭСТ-Партнер Interests: СПб
Posted: 28 Jun 2007 16:23 Post subject:
Извини Евгений у нас нет ни первой ни второй проблемы
Все давно решено (лет 5 как).
Кстати вторая проблема имеет место при работе без терминала, а просто сканером штрих-кода на стационарном рабочем месте.
Это именно то, о чем я не хочу делится просто так на общем форуме
Joined: 22 Jun 2005 Posts: 105 Location: Михайлов Р.С. Occupation: ООО "Предприятие "Виктория-Юг" Interests: г. Краснодар
Posted: 29 Jun 2007 00:00 Post subject:
nordk wrote:
Извини Евгений у нас нет ни первой ни второй проблемы
Все давно решено (лет 5 как).
Кстати вторая проблема имеет место при работе без терминала, а просто сканером штрих-кода на стационарном рабочем месте.
Это именно то, о чем я не хочу делится просто так на общем форуме
в итоге ............
по ходу нафиг никому не нужная функция, забудем други о ней как о пережитке империализма, ведь есть везде складская цена, мы ведь к коммунизму по инерции .....
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
FAQ
Search
Memberlist
Usergroups
Register
Profile
Log in to check your private messages
Log in
