| View previous topic :: View next topic |
| Author |
Message |
Deniska
Joined: 03 Mar 2005
Posts: 6
Location: Трофимов Денис
Occupation: ИП Смирнов продавец
Interests: Тагил
|
 Posted: 09 Mar 2005 19:12 Post subject: |
 |
|
| andre19 wrote: | >>
УЖЕ 4 ГОДА назад компания Эльдорадо проводила проверки при помощи специального модуля
*
вопрос читай! 
>>
Как узнать историю изменения данных в документе . По ALT+"ё" можно узнать только последнюю модификацию, а как узнать кто вообще делал изменения
***
спрашиваю не про то что можно или нет НАПИСАТЬ!!
по умолчанию никак! а самописный модуль и у меня стоит 3года! |
Даже не вопрос что есть мастера в русских селениях, не заметил то тему поднял я ,
Если очень хочется почестей по поводу того что сделать НЕЛЬЗЯ, а ты уже 3 года как всех натянул и себе модуль поставил то базару ноль. МОЛОДЕЦ!!!!
Акромя этого хотелось бы очень сильно узнать как это реализовать на деле.
Заранее спасибо. |
|
| Back to top |
|
 |
Олег Смирнов
Joined: 06 Sep 2004
Posts: 821
Location: Олег Смирнов
Occupation: Раут (поганист-сисадмин)
Interests: Новосибирск
|
| Posted: 09 Mar 2005 19:49 Post subject: |
|
|
| Deniska wrote: | | ты уже 3 года как всех натянул и себе модуль поставил то базару ноль. МОЛОДЕЦ!!!! |
А ты на Andre19 не обижайся - он в ближайшей перспективе - безработный и от того - нервенный...
itman чего-то умного предложил, но мне разбираться с этим лень, а за скока он согласен нормальную программульку сделать - не отвечает... 
_________________
С уважением, Олег Р. Смирн |
|
| Back to top |
|
|
andre19
Joined: 24 May 2004
Posts: 317
Location: Andre
Occupation: albumin (programmer)
Interests: Новосибирск
|
| Posted: 10 Mar 2005 07:29 Post subject: |
|
|
| ребятя у меня есть, могу да |
|
| Back to top |
|
|
andre19
Joined: 24 May 2004
Posts: 317
Location: Andre
Occupation: albumin (programmer)
Interests: Новосибирск
|
| Posted: 10 Mar 2005 08:01 Post subject: |
|
|
замес таков, на примере АРМа "Товары.Готовая продукция"
переписывай файлы :
_del.FRM
_save.FRM
в каталог .\best4\PRO\PLUGINS\EXTENSNS\SCLAD\
далее в АРМе "Товары.Готовая продукция" , в виде движения, ну например
"Реализация со склада", выбрал склад(цех,...), но по-моему он
запишется во все склады)
по контрол+Ф5 добавляешь правило обработки, соответственно на удаление
_del.FRM, а на запись _save.FRM, при этом файл prt_mdoc.dbf должен
находиться по след. пути .\best4\dbase\[Base_name]\, те в каталоге где
находятся базы АРМа Г.Б.
вот и всЁ,
если хочешь добавить свои поля=редактируй код, там все просто
*-*-*-*-*-*-*
коды:
_del.FRM
| Code: |
Private cBstPath
cBstPath:="O:\best4\alb\"
DBPUSH()
DBUSEAREA(.T.,"",cBstPath+"prt_mdoc","prt_mdoc",.T.)
prt_mdoc->(ADDREC())
prt_mdoc->prt_type:="DELETE"
prt_mdoc->user_code:=mdoc->user_code
prt_mdoc->prt_date:=date()
prt_mdoc->prt_time:=time()
prt_mdoc->prt_oper:=getenv("user")
prt_mdoc->vid:=mdoc->vid
prt_mdoc->type:=mdoc->type
prt_mdoc->sclad:=mdoc->sclad
prt_mdoc->codedoc:=mdoc->codedoc
prt_mdoc->numdoc:=mdoc->numdoc
prt_mdoc->date:=mdoc->date
prt_mdoc->primdoc:=mdoc->prim
prt_mdoc->agentname:=mdoc->agentname
prt_mdoc->summa:=if(mdoc->vid=="2",mdoc->summa,mdoc->sumoutr)
prt_mdoc->kolstr:=mdoc->kolpos
prt_mdoc->(F_DBUNLOCK())
prt_mdoc->(DBCLOSEAREA())
DBPOP()
|
*-*-*-*-*
_save.FRM
| Code: |
Private cBstPath,cVid,nPro,dDate,dDate1,cNumDoc,cSchet_A,cAgentN,nSumDoc,cNameOper,nNnoper
cBstPath:="O:\best4\alb\"
DBPUSH()
Mdoc->(Reclock())
cVid:=mdoc->vid
nPro:=Mdoc->Pro
dDate:=Mdoc->Date
dDate1:=Mdoc->Date1
cNumDoc:=Mdoc->NumDoc
cSchet_A:=Mdoc->Schet_A
cAgentN:=Mdoc->AgentCode
nSumDoc:=if(cVid=="2",mdoc->summa,mdoc->sumoutr)
cNameOper:=if(cVid=="2","рн ","пн ")+Mdoc->SCLAD+"-"+cNumDoc+" "+dtoc(dDate)
nNnoper:=Nil
DBUSEAREA(.T.,"",cBstPath+"prt_mdoc","prt_mdoc",.T.)
prt_mdoc->(ADDREC())
prt_mdoc->prt_type:="SAVE"
prt_mdoc->user_code:=mdoc->user_code
prt_mdoc->prt_date:=date()
prt_mdoc->prt_time:=time()
prt_mdoc->prt_oper:=getenv("user")
prt_mdoc->vid:=mdoc->vid
prt_mdoc->type:=mdoc->type
prt_mdoc->sclad:=mdoc->sclad
prt_mdoc->codedoc:=mdoc->codedoc
prt_mdoc->numdoc:=mdoc->numdoc
prt_mdoc->date:=mdoc->date
prt_mdoc->primdoc:=mdoc->prim
prt_mdoc->agentname:=mdoc->agentname
prt_mdoc->summa:=nSumDoc
prt_mdoc->kolstr:=mdoc->kolpos
prt_mdoc->(F_DBUNLOCK())
prt_mdoc->(DBCLOSEAREA())
DBPOP()
|
структура базы "prt_mdoc.dbf"
| Code: |
Field Field Name Type Width Dec
1 PRT_TYPE Character 10
2 USER_CODE Character 10
3 PRT_DATE Date 8
4 PRT_TIME Character 8
5 PRT_OPER Character 50
6 VID Character 1
7 TYPE Character 1
8 SCLAD Character 6
9 CODEDOC Character 3
10 NUMDOC Character 6
11 DATE Date 8
12 PRIMDOC Character 30
13 AGENTNAME Character 25
14 SUMMA Numeric 19 4
15 KOLSTR Numeric 7
|
ну вот и в |
|
| Back to top |
|
|
itman
Joined: 05 Apr 2002
Posts: 1247
Location: Ильин Е.Ю.
Occupation: Cio
Interests: Кинель
|
| Posted: 10 Mar 2005 10:01 Post subject: |
|
|
Сорри, не слежу за веткой.
что значит нормальную программульку?
 На мой взгляд эта не та задача за которую следует платить деньги ))
предлагаю Open Source философию.
Код простяцкий, к примеру на сохранение:
| Code: |
private cDir, aStru
cdir:= LoadPath()+'!loger\sclad\lsavmdoc.dbf'
dbpush()
netuse('lmdoc',cdir)
lmdoc->(addrec())
lmdoc->DATE_SAVE:= Date()
lmdoc->TIME_SAVE:= time()
lmdoc->VID := mdoc->VID
lmdoc->TYPE := mdoc->TYPE
lmdoc->SCLAD := mdoc->SCLAD
lmdoc->CODEDOC := mdoc->CODEDOC
lmdoc->NUMDOC := mdoc->NUMDOC
lmdoc->CODEOPER := mdoc->CODEOPER
lmdoc->DATE := mdoc->DATE
lmdoc->AGENTNAME:= mdoc->AGENTNAME
lmdoc->AGENTCODE:= mdoc->AGENTCODE
lmdoc->DOPCODE := mdoc->DOPCODE
lmdoc->KOLPOS := mdoc->KOLPOS
lmdoc->SUMMA := mdoc->SUMMA
lmdoc->SUMOUTR := mdoc->SUMOUTR
lmdoc->PRO := mdoc->PRO
lmdoc->INPUT := mdoc->INPUT
lmdoc->TZR1 := mdoc->TZR1
lmdoc->TZR2 := mdoc->TZR2
lmdoc->TZR3 := mdoc->TZR3
lmdoc->OPER_FACT:= mdoc->OPER_FACT
lmdoc->USER_CODE:= mdoc->USER_CODE
lmdoc->(f_dbUnLock())
lmdoc->(dbCloseArea())
dbpop() |
есть смысл разбирать построчно?
если следует внести изменения, то ессно надо изменить базу, указанную в cdir (bro, dbed, т.п.). и прописать строку записи в это поле.
Ребята, правда нет времени на это
Вот сейчас, к примеру, надо заказы от GM в формате SAP обрабатывать - это реализовано, но ведь можно и напрямую в модуль заказов кидать .gif)
вот это интересн |
|
| Back to top |
|
|
Олег Смирнов
Joined: 06 Sep 2004
Posts: 821
Location: Олег Смирнов
Occupation: Раут (поганист-сисадмин)
Interests: Новосибирск
|
| Posted: 10 Mar 2005 10:17 Post subject: |
|
|
Понятно. Опять самодеятельность, опять говнякать/отлаживать программульки, готового продукта за деньги никто не предлагает...
Грустно.
Пойду кустарничать, всем - спасибо!
_________________
С уважением, Олег Р. Смирн |
|
| Back to top |
|
|
itman
Joined: 05 Apr 2002
Posts: 1247
Location: Ильин Е.Ю.
Occupation: Cio
Interests: Кинель
|
| Posted: 10 Mar 2005 10:58 Post subject: |
|
|
| Quote: | Понятно. Опять самодеятельность, опять говнякать/отлаживать программульки, готового продукта за деньги никто не предлагает... wink2(1).gif
Грустно. icon_frown.gif |
Сформулируйте требования, изложите ТЗ.
И сколько вы готовы заплатить? |
|
| Back to top |
|
|
Deniska
Joined: 03 Mar 2005
Posts: 6
Location: Трофимов Денис
Occupation: ИП Смирнов продавец
Interests: Тагил
|
| Posted: 10 Mar 2005 14:22 Post subject: |
|
|
| Сорри огромное если кого обидел, не со зла точна. А за выложенную информацию очень большое спасибо. По поводу готовой инстоляшки для itman хочу сказать что тема хорошая и наверное много руководителей согласны будут дать нцать американских рублесов за конкретный результат. Такто оно приятно что можно и денег заработать так что ждём конкретную информацию о цене,(100 берём 50 себе 50 тебе) (и овцы сыты и волки довольны) |
|
| Back to top |
|
|
progforbest
Joined: 14 May 2003
Posts: 9
|
| Posted: 10 Mar 2005 18:22 Post subject: |
|
|
А как добавить в лог не шапку документа mdoc а строки mdocm при этом перебрать их все.
И еще если не сложно как позиционироваться на какой нибудь записи лога и удалить ее
Заранее спасибо |
|
| Back to top |
|
|
Олег Смирнов
Joined: 06 Sep 2004
Posts: 821
Location: Олег Смирнов
Occupation: Раут (поганист-сисадмин)
Interests: Новосибирск
|
| Posted: 10 Mar 2005 19:32 Post subject: |
|
|
| progforbest wrote: | | А как добавить в лог не шапку документа mdoc а строки mdocm при этом перебрать их все. |
Этак у тебя лог-то здо-оровый получится...
_________________
С уважением, Олег Р. Смирн |
|
| Back to top |
|
|
itman
Joined: 05 Apr 2002
Posts: 1247
Location: Ильин Е.Ю.
Occupation: Cio
Interests: Кинель
|
| Posted: 11 Mar 2005 08:26 Post subject: |
|
|
| progforbest wrote: | А как добавить в лог не шапку документа mdoc а строки mdocm при этом перебрать их все.
|
А не проще будет вести ежедневное резервное копирование баз данных?
| Quote: | | И еще если не сложно как позиционироваться на какой нибудь записи лога и удалить ее |
Штатными средствами по работе с БД формата dbf.
А зачем собственно это делать?
Из собственной практики, после установления факта редактирования документа, "нарушитель", как правило - раскалывается!!! |
|
| Back to top |
|
|
progforbest
Joined: 14 May 2003
Posts: 9
|
| Posted: 11 Mar 2005 10:16 Post subject: |
|
|
Да в принципе сам лог то меня не очень то и интересует
просто это возможность на этом механизме расширить функциональность БЭСТА
Конечно можно добавлять поля пользователя в существующую базу и с ними извращаться но можно же и как вариант вести параллельный файл и при записи документа дописывать туда еще и нужные поля/справочники и т.п.
Кстати никто не пробовал в Бэст 4+ запустить прилагаемый пример на языке Harbour
что то не очень и работает
у меня правда демо верс |
|
| Back to top |
|
|
itman
Joined: 05 Apr 2002
Posts: 1247
Location: Ильин Е.Ю.
Occupation: Cio
Interests: Кинель
|
| Posted: 11 Mar 2005 10:43 Post subject: |
|
|
Данный пример был реализован до появления 4+.
А скомпилировать его на xHarbour не составляет труда, достаточно добавить две строчки. |
|
| Back to top |
|
|
progforbest
Joined: 14 May 2003
Posts: 9
|
| Posted: 11 Mar 2005 11:00 Post subject: |
|
|
Прошу прощения
я неверно выразился
я имел в виду запустить не Ваш пример на языке Harbour
А пример который прилагается в документации на Бэст 4+
Ваш пример очень хорош и прекрасно работает |
|
| Back to top |
|
|
itman
Joined: 05 Apr 2002
Posts: 1247
Location: Ильин Е.Ю.
Occupation: Cio
Interests: Кинель
|
| Posted: 11 Mar 2005 11:28 Post subject: |
|
|
| progforbest wrote: |
А пример который прилагается в документации на Бэст 4+
|
Какой именно? я все проверял все работали. |
|
| Back to top |
|
|
|
FAQ
Search
Memberlist
Usergroups
Register
Profile
Log in to check your private messages
Log in
