View previous topic :: View next topic |
Author |
Message |
Behemoth

Joined: 15 Mar 2002 Posts: 155 Location: Новиков Алексей Юрьевич Occupation: ПБОЮЛ Interests: Пермь
|
Posted: 15 Dec 2005 09:15 Post subject: Прикладное применение фундаментальных знаний. |
|
|
Добрый день.
Вот над чем мучаюсь. В plugin на вход в документ хочу определить еще один get-объект. Простой код:
Code: |
mymain()
altd()
function mymain()
public mya1,mya2
dbpush()
if(select('gr_pol')=0,netuse('gr_pol',loadpath()+'mybase\gr_pol'),)
dbpop()
gr_pol->(MakeRefer("gr_pol1"," Грузополучатели ",3, {'Адрес'},{2,20,7},'n/w,w+/n',{'adress'},{'mya1'},,{fieldblock('adress')},,,{'@S32'}))
mya1:=space(32)
aadd(getlist,getnew(10,56,memvarblock('mya1'),'mya1','@s20','N/W,GR+/N,,'))
getlist[len(getlist)]:reader:={|oget| ReferGetReader(oget,'gr_pol1')}
return
|
Без справочника - работает. Со справочником выдает ошибку "base/1078 Неверный аргумент .and." Причем один аргумент всегда logical, а второй - как бог на душу положит.
Можно подменить вызов справочника в стандартном get-объекте (например "примечание"). В этом случае работает, но не долго. Со второго запуска выдает ошибку.
Вот я думку гадаю, вроде можно, но почему не получается?
Константин, может вышлите исходник _________________ С уважением, Новиков Алексей. |
|
Back to top |
|
 |
nordk
Joined: 27 Jun 2005 Posts: 1000 Location: Горбунов Константин Occupation: БЭСТ-Партнер Interests: СПб
|
Posted: 15 Dec 2005 12:15 Post subject: Re: Прикладное применение фундаментальных знаний. |
|
|
Behemoth wrote: |
В plugin на вход в документ хочу определить еще один get-объект.
|
Давайте по порядку - на вход в какой докумен |
|
Back to top |
|
 |
nordk
Joined: 27 Jun 2005 Posts: 1000 Location: Горбунов Константин Occupation: БЭСТ-Партнер Interests: СПб
|
Posted: 15 Dec 2005 17:36 Post subject: |
|
|
Вот что углядел - попробуйте из справочника убрать FieldBlock()
а напишите {||...} |
|
Back to top |
|
 |
nordk
Joined: 27 Jun 2005 Posts: 1000 Location: Горбунов Константин Occupation: БЭСТ-Партнер Interests: СПб
|
Posted: 15 Dec 2005 17:50 Post subject: |
|
|
Посмотрите еще сюда плз - поможет может
Code: | * Функция чтения для одиночного GET-объекта со справочником
*/
FUNCTION ReferGetReader(get,cRefer,lSpec,lReturnGet)
// чтение GET-объекта при выполнении WHEN-условия
// lReturnGet - если .T. и по умолчанию выход после выбора значения из тек. oGet
// .F. после выбора остаемся в тек. oGet
PLOCAL lRefer,nRow:=ROW(),nCol:=COL(),nRefer:=0,sHelp
PLOCAL nRowHelp,nColHelp,cMess, nLenHelp
PLOCAL lastCursor := SETCURSOR(),nWin:=WSELECT(), lUpdate := .F.
PLOCAL aSymb:=' 1234567890!@#$%^&*()_-+QWERTYUIOP{}[]ASDFGHJKL:"ZXCVBNM<>?ЙЦУКЕНГШЩЩЩЗХЪФЫВАПРОЛДЖЭЯЧСМИТЬБЮЁ'
IF(ValType(lReturnGet) = "L",,lReturnGet := .T.)
#ifdef __HARBOUR__
if get:ExitState == GE_SHORTCUT .OR.;
get:ExitState == GE_MOUSEHIT .OR.;
GetPreValidate(Get)
#else
if GetPreValidate(get)
#endif
// Активизация GET-объекта для чтения
get:SetFocus()
SETCURSOR(1)
while ( get:exitState == GE_NOEXIT )
// прием и анализ нажатия клавиш до выхода из чтения
nRow:=ROW();nCol:=COL()
nRowHelp := NIL
IF !EMPTY(cRefer).AND.(nRefer:=ASCAN(acRefer,{|x|UPPER(x)==UPPER(cRefer)}))>0
cMess:=IF(EMPTY(aRefer[nRefer,P_HELP0])," F2:Справочник ",IF(ValType(aRefer[nRefer,P_HELP0]) = "A",(nRowHelp := aRefer[nRefer,P_HELP0,1],nColHelp := aRefer[nRefer,P_HELP0,2],IF(ValType(aRefer[nRefer,P_HELP0,3]) = "B",EVAL(aRefer[nRefer,P_HELP0,3]),aRefer[nRefer,P_HELP0,3])),aRefer[nRefer,P_HELP0]))
IF TYPE("nApp")="N".AND.nApp==0
cMess:=ALLTRIM(cMess)+' Пустое поле:безразличный фактор <+>:Поле не пусто <->:Поле пусто'
ENDIF
IF nRowHelp = NIL
nRowHelp:=IF(aRefer[nRefer,P_ROWHELP]==NIL,MAXROW(),aRefer[nRefer,P_ROWHELP])
nColHelp := IF(aRefer[nRefer,P_COLHELP] = NIL,IF(nWin = 0,0,1),aRefer[nRefer,P_COLHELP])
cMess := IF(aRefer[nRefer,P_COLHELP] != NIL .OR. nWin != 0,cMess,PADC(cMess,80))
ENDIF
nLenHelp := LEN(cMess)
sHelp:=BrSaveScreen(nRowHelp,nColHelp,nRowHelp,nColHelp+nLenHelp-1)
IF nRowHelp > 22
SCRTITUL(nRowHelp,ALLTRIM(cMess))
ELSEIF nRowHelp>0
SAYSCREEN(cMess,nRowHelp,nColHelp)
ENDIF
ENDIF
SETRC(nRow,nCol)
WHILE ( get:exitState == GE_NOEXIT )
IF lSpec!=NIL.AND.get:pos=1.AND.TYPE('Pre_')='C'.AND.!EMPTY(m->Pre_)
get:right()
ENDIF
lRefer := .F.
SetCursor(if(Set( _SET_INSERT ),SC_INSERT,SC_NORMAL))
GetApplyKey( get, Inkey(0,INKEY_KEYBOARD+INKEY_LDOWN+INKEY_LUP+INKEY_RDOWN+INKEY_RUP+INKEY_MWHEEL))
IF (LastKey() == KL_REFER)
DoRefer(get,cRefer,.T.,@lUpdate,,,aSymb)
IF (LASTKEY() != K_ESC)
lRefer :=.T.
ENDIF
ENDIF
END
IF sHelp!=NIL
BrRestScreen(sHelp)
ENDIF
if !(get:ExitState == GE_SHORTCUT .OR. get:ExitState == GE_MOUSEHIT)
IF (!lRefer .and. LASTKEY() != K_ESC)
DoRefer(get,cRefer,.F.,@lUpdate,,,aSymb)
ENDIF
IF ( (!lReturnGet .AND. lUpdate) .OR. ;
get:exitState == GE_NOEXIT .OR. ;
!GetPostValidate(get) )
get:exitState := GE_NOEXIT
ENDIF
#ifdef __HARBOUR__
endif
#endif
lUpdate := .F.
END
// деактивизация GET
get:KillFocus()
END
SETCURSOR(lastCursor)
SETRC(nRow,nCol)
RETURN (NIL) |
|
|
Back to top |
|
 |
nordk
Joined: 27 Jun 2005 Posts: 1000 Location: Горбунов Константин Occupation: БЭСТ-Партнер Interests: СПб
|
Posted: 15 Dec 2005 17:54 Post subject: |
|
|
А кстати когда стандартный GET подменяете какое имя переменной используете ? |
|
Back to top |
|
 |
Behemoth

Joined: 15 Mar 2002 Posts: 155 Location: Новиков Алексей Юрьевич Occupation: ПБОЮЛ Interests: Пермь
|
Posted: 15 Dec 2005 18:08 Post subject: |
|
|
Добрый день.
На вход в документ реализации товаров.
От fieldblock или просто блока БЭСТу одинаково плох _________________ С уважением, Новиков Алексей. |
|
Back to top |
|
 |
nordk
Joined: 27 Jun 2005 Posts: 1000 Location: Горбунов Константин Occupation: БЭСТ-Партнер Interests: СПб
|
Posted: 15 Dec 2005 18:28 Post subject: Re: Прикладное применение фундаментальных знаний. |
|
|
Behemoth wrote: |
aadd(getlist,getnew(10,56,memvarblock('mya1'),'mya1','@s20','N/W,GR+/N,,'))
|
{|x| If(x==NIL, maya1, mya1:=x)},,"@S20",......)
мб так ? |
|
Back to top |
|
 |
Behemoth

Joined: 15 Mar 2002 Posts: 155 Location: Новиков Алексей Юрьевич Occupation: ПБОЮЛ Interests: Пермь
|
Posted: 15 Dec 2005 19:01 Post subject: |
|
|
Добрый день.
При подмене ввода примечания использую pprim.
Нет. Все напрасно. Не судьба. Выпью яду. В пятниц _________________ С уважением, Новиков Алексей. |
|
Back to top |
|
 |
Титов Александр
Joined: 26 Jul 2002 Posts: 975 Location: Титов Александр Александрович Occupation: Компания БЭСТ Interests: Москва
|
Posted: 15 Dec 2005 20:56 Post subject: |
|
|
Behemoth wrote: | Добрый день.
При подмене ввода примечания использую pprim.
Нет. Все напрасно. Не судьба. Выпью яду. В пятницу. |
Добрый вечер!
НИ НАДА ЯДУ!!
У Вас все правильно написано.
Проблема в БЭСТе с видимостью текущего GetList'а в плагине.
Я сделал для этих целей глобальную переменную GlobalGetList, c помощью которой будет передавться ссылка на текущий GetList, включим в ближайший пакет. Вам послал по почте sclad.exe, в нем вот такой код работает (только Ваш get-объект налез на примечание - но это мелочи):
Code: | mymain()
altd()
function mymain()
private mya1,mya2
private getlist:=m->GlobalGetList
altd()
dbpush()
if(select('gr_pol')=0,netuse('gr_pol',loadpath()+'mybase\gr_pol'),)
dbpop()
gr_pol->(MakeRefer("gr_pol1"," Грузополучатели ",3, {'Адрес'},{2,20,7},'n/w,w+/n',{'adress'},{'mya1'},,{fieldblock('adress')},,,{'@S32'}))
mya1:=space(32)
aadd(getlist,getnew(10,56,memvarblock('mya1'),'mya1','@s20','N/W,GR+/N,,'))
getlist[len(getlist)]:reader:={|oget| ReferGetReader(oget,'gr_pol1')}
return |
_________________ С уважением, Александр Титов, Компания БЭСТ, Москва, отдел разрабо |
|
Back to top |
|
 |
Behemoth

Joined: 15 Mar 2002 Posts: 155 Location: Новиков Алексей Юрьевич Occupation: ПБОЮЛ Interests: Пермь
|
Posted: 17 Dec 2005 12:42 Post subject: |
|
|
Добрый день.
Титов Александр wrote: |
НИ НАДА ЯДУ!!
|
Поздно...
К сожалению, у меня не получается.
Даже вот такой фрагмент выдает ошибку "переменная не существует" при попытке входа во вновьсозданный get.
Code: |
public mya1
private getlist:=m->GlobalGetList
mya1:=space(32)
aadd(GetList,getnew(10,56,memvarblock('mya1'),'mya1','@s20','N/W,GR+/N,,'))
|
_________________ С уважением, Новиков Алексей. |
|
Back to top |
|
 |
Титов Александр
Joined: 26 Jul 2002 Posts: 975 Location: Титов Александр Александрович Occupation: Компания БЭСТ Interests: Москва
|
Posted: 17 Dec 2005 14:32 Post subject: |
|
|
Behemoth wrote: | Добрый день.
Титов Александр wrote: |
НИ НАДА ЯДУ!!
|
Поздно...
К сожалению, у меня не получается.
Даже вот такой фрагмент выдает ошибку "переменная не существует" при попытке входа во вновьсозданный get.
Code: |
public mya1
private getlist:=m->GlobalGetList
mya1:=space(32)
aadd(GetList,getnew(10,56,memvarblock('mya1'),'mya1','@s20','N/W,GR+/N,,'))
|
|
C новым sclad.exe, который я послал по поч _________________ С уважением, Александр Титов, Компания БЭСТ, Москва, отдел разрабо |
|
Back to top |
|
 |
Behemoth

Joined: 15 Mar 2002 Posts: 155 Location: Новиков Алексей Юрьевич Occupation: ПБОЮЛ Interests: Пермь
|
Posted: 17 Dec 2005 17:22 Post subject: |
|
|
Добрый день.
Да, с новым sclad.exe
В старом нет globalgetlist и ошибку выдает еще plugin на стадии выполнения. _________________ С уважением, Новиков Алексей. |
|
Back to top |
|
 |
Титов Александр
Joined: 26 Jul 2002 Posts: 975 Location: Титов Александр Александрович Occupation: Компания БЭСТ Interests: Москва
|
Posted: 17 Dec 2005 19:44 Post subject: |
|
|
Behemoth wrote: | Добрый день.
Да, с новым sclad.exe
В старом нет globalgetlist и ошибку выдает еще plugin на стадии выполнения. |
Добрый вечер!
Провел некоторые исследования и вот что выснил.
У нас все плагины выгружаемые: отработал - уходи.
Но: если плагин модифицирует объекты самой программы (GetList[n]), то после его выгрузки может портиться память: то есть, тот get-объект, который создался в плагине может портиться (а может и не портиться!). Все зависит от текущего распределения памяти. Поэтому в очередной версии sclad.exe (выслал по почте) плагин на вход в документ сделан не выгружаемым. Однако в этом случае он не выгружается и при его модификации в редакторе (на этапе отладки), но с этим можно как-то мириться. _________________ С уважением, Александр Титов, Компания БЭСТ, Москва, отдел разрабо |
|
Back to top |
|
 |
shura_k
Joined: 10 Oct 2003 Posts: 342 Location: Александр Occupation: Специалист Interests: Калининград
|
Posted: 18 Dec 2005 13:10 Post subject: |
|
|
Лучьше все плагины сделать однотипными.! А восстанавливать -глобальную переменую! С такими переделками под конкретные потребности, мы получил "чёрт знает что"
Уж лучьше тогда, если надо что-то делать в документе, отработать механизм назначения и использования своих горячих клавишь! Тогда и переменые остануться локальными!  |
|
Back to top |
|
 |
Титов Александр
Joined: 26 Jul 2002 Posts: 975 Location: Титов Александр Александрович Occupation: Компания БЭСТ Interests: Москва
|
Posted: 18 Dec 2005 13:38 Post subject: |
|
|
shura_k wrote: | Лучьше все плагины сделать однотипными.! А восстанавливать -глобальную переменую! С такими переделками под конкретные потребности, мы получил "чёрт знает что"
Уж лучьше тогда, если надо что-то делать в документе, отработать механизм назначения и использования своих горячих клавишь! Тогда и переменые остануться локальными!  |
Это пока в поставку не идет. Идет рабочий процесс по отработке потребностей программистов. На этой основе и вырабатываются общие принципы. _________________ С уважением, Александр Титов, Компания БЭСТ, Москва, отдел разрабо |
|
Back to top |
|
 |
|
|
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
|