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

Прикладное применение фундаментальных знаний.
Goto page 1, 2  Next
 
Post new topic   Reply to topic   printer-friendly view     Forum Index -> Программирование в БЭСТ-4
View previous topic :: View next topic  
Author Message
Behemoth



Joined: 15 Mar 2002
Posts: 155
Location: Новиков Алексей Юрьевич
Occupation: ПБОЮЛ
Interests: Пермь
PostPosted: 15 Dec 2005 09:15    Post subject: Прикладное применение фундаментальных знаний. Reply with quote
Добрый день.

Вот над чем мучаюсь. В 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
View user's profile Send private message Send e-mail
nordk



Joined: 27 Jun 2005
Posts: 1000
Location: Горбунов Константин
Occupation: БЭСТ-Партнер
Interests: СПб
PostPosted: 15 Dec 2005 12:15    Post subject: Re: Прикладное применение фундаментальных знаний. Reply with quote
Behemoth wrote:


В plugin на вход в документ хочу определить еще один get-объект.



Давайте по порядку - на вход в какой докумен
Back to top
View user's profile Send private message Send e-mail
nordk



Joined: 27 Jun 2005
Posts: 1000
Location: Горбунов Константин
Occupation: БЭСТ-Партнер
Interests: СПб
PostPosted: 15 Dec 2005 17:36    Post subject: Reply with quote
Вот что углядел - попробуйте из справочника убрать FieldBlock()
а напишите {||...}
Back to top
View user's profile Send private message Send e-mail
nordk



Joined: 27 Jun 2005
Posts: 1000
Location: Горбунов Константин
Occupation: БЭСТ-Партнер
Interests: СПб
PostPosted: 15 Dec 2005 17:50    Post subject: Reply with quote
Посмотрите еще сюда плз - поможет может

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
View user's profile Send private message Send e-mail
nordk



Joined: 27 Jun 2005
Posts: 1000
Location: Горбунов Константин
Occupation: БЭСТ-Партнер
Interests: СПб
PostPosted: 15 Dec 2005 17:54    Post subject: Reply with quote
А кстати когда стандартный GET подменяете какое имя переменной используете ?
Back to top
View user's profile Send private message Send e-mail
Behemoth



Joined: 15 Mar 2002
Posts: 155
Location: Новиков Алексей Юрьевич
Occupation: ПБОЮЛ
Interests: Пермь
PostPosted: 15 Dec 2005 18:08    Post subject: Reply with quote
Добрый день.

На вход в документ реализации товаров.

От fieldblock или просто блока БЭСТу одинаково плох
_________________
С уважением, Новиков Алексей.
Back to top
View user's profile Send private message Send e-mail
nordk



Joined: 27 Jun 2005
Posts: 1000
Location: Горбунов Константин
Occupation: БЭСТ-Партнер
Interests: СПб
PostPosted: 15 Dec 2005 18:28    Post subject: Re: Прикладное применение фундаментальных знаний. Reply with quote
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
View user's profile Send private message Send e-mail
Behemoth



Joined: 15 Mar 2002
Posts: 155
Location: Новиков Алексей Юрьевич
Occupation: ПБОЮЛ
Interests: Пермь
PostPosted: 15 Dec 2005 19:01    Post subject: Reply with quote
Добрый день.

При подмене ввода примечания использую pprim.

Нет. Все напрасно. Не судьба. Выпью яду. В пятниц
_________________
С уважением, Новиков Алексей.
Back to top
View user's profile Send private message Send e-mail
Титов Александр



Joined: 26 Jul 2002
Posts: 975
Location: Титов Александр Александрович
Occupation: Компания БЭСТ
Interests: Москва
PostPosted: 15 Dec 2005 20:56    Post subject: Reply with quote
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
View user's profile Send private message Visit poster's website
Behemoth



Joined: 15 Mar 2002
Posts: 155
Location: Новиков Алексей Юрьевич
Occupation: ПБОЮЛ
Interests: Пермь
PostPosted: 17 Dec 2005 12:42    Post subject: Reply with quote
Добрый день.

Титов Александр 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
View user's profile Send private message Send e-mail
Титов Александр



Joined: 26 Jul 2002
Posts: 975
Location: Титов Александр Александрович
Occupation: Компания БЭСТ
Interests: Москва
PostPosted: 17 Dec 2005 14:32    Post subject: Reply with quote
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
View user's profile Send private message Visit poster's website
Behemoth



Joined: 15 Mar 2002
Posts: 155
Location: Новиков Алексей Юрьевич
Occupation: ПБОЮЛ
Interests: Пермь
PostPosted: 17 Dec 2005 17:22    Post subject: Reply with quote
Добрый день.

Да, с новым sclad.exe
В старом нет globalgetlist и ошибку выдает еще plugin на стадии выполнения.
_________________
С уважением, Новиков Алексей.
Back to top
View user's profile Send private message Send e-mail
Титов Александр



Joined: 26 Jul 2002
Posts: 975
Location: Титов Александр Александрович
Occupation: Компания БЭСТ
Interests: Москва
PostPosted: 17 Dec 2005 19:44    Post subject: Reply with quote
Behemoth wrote:
Добрый день.

Да, с новым sclad.exe
В старом нет globalgetlist и ошибку выдает еще plugin на стадии выполнения.

Добрый вечер!
Провел некоторые исследования и вот что выснил.
У нас все плагины выгружаемые: отработал - уходи.
Но: если плагин модифицирует объекты самой программы (GetList[n]), то после его выгрузки может портиться память: то есть, тот get-объект, который создался в плагине может портиться (а может и не портиться!). Все зависит от текущего распределения памяти. Поэтому в очередной версии sclad.exe (выслал по почте) плагин на вход в документ сделан не выгружаемым. Однако в этом случае он не выгружается и при его модификации в редакторе (на этапе отладки), но с этим можно как-то мириться.
_________________
С уважением, Александр Титов, Компания БЭСТ, Москва, отдел разрабо
Back to top
View user's profile Send private message Visit poster's website
shura_k



Joined: 10 Oct 2003
Posts: 342
Location: Александр
Occupation: Специалист
Interests: Калининград
PostPosted: 18 Dec 2005 13:10    Post subject: Reply with quote
Лучьше все плагины сделать однотипными.! А восстанавливать -глобальную переменую! С такими переделками под конкретные потребности, мы получил "чёрт знает что"

Уж лучьше тогда, если надо что-то делать в документе, отработать механизм назначения и использования своих горячих клавишь! Тогда и переменые остануться локальными!
Back to top
View user's profile Send private message
Титов Александр



Joined: 26 Jul 2002
Posts: 975
Location: Титов Александр Александрович
Occupation: Компания БЭСТ
Interests: Москва
PostPosted: 18 Dec 2005 13:38    Post subject: Reply with quote
shura_k wrote:
Лучьше все плагины сделать однотипными.! А восстанавливать -глобальную переменую! С такими переделками под конкретные потребности, мы получил "чёрт знает что"

Уж лучьше тогда, если надо что-то делать в документе, отработать механизм назначения и использования своих горячих клавишь! Тогда и переменые остануться локальными!

Это пока в поставку не идет. Идет рабочий процесс по отработке потребностей программистов. На этой основе и вырабатываются общие принципы.
_________________
С уважением, Александр Титов, Компания БЭСТ, Москва, отдел разрабо
Back to top
View user's profile Send private message Visit poster's website
Display posts from previous:   
Post new topic   Reply to topic   printer-friendly view     Forum Index -> Программирование в БЭСТ-4 All times are GMT + 4 Hours
Goto page 1, 2  Next
Page 1 of 2

 
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