erro txbrowse edição de campo

[zazibr]

ola pessoal alguem ja passou por esse erro na edição do compo usando txbrowse ?

Code: Select all  Expand view  RUN


------------------------------- Internal Error Handling Information  -------------------------------

Subsystem Call ....: BASE
System Code .......: 1005
Default Status ....: .F.
Description .......: Class: 'NIL' has no property
Operation .........: NLASTKEY
Arguments .........:  [ 1] = Type: U [ 2] = Type: N Val:         13
Involved File .....:
Dos Error Code ....: 0

Trace Through:
----------------
EDITGETKEYDOWN        :       0 in Module:
EDITGETKEYDOWN        :       0 in Module: XBROWSE.PRG
(b)TXBRWCOLUMN:EDIT   :       0 in Module: XBROWSE.PRG
TGET:KEYDOWN          :       0 in Module: TGET.PRG
TWINDOW:HANDLEEVENT   :       0 in Module:
TCONTROL:HANDLEEVENT  :       0 in Module: CONTROL.PRG
TGET:HANDLEEVENT      :       0 in Module: TGET.PRG
_FWH                  :       0 in Module: WINDOW.PRG
DISPOUTAT             :       0 in Module:
GET:DISPLAY           :     662 in Module: tget.prg
GET:SETFOCUS          :     902 in Module: tget.prg
TGET:LOSTFOCUS        :       0 in Module: TGET.PRG
TGET:KILLFOCUS        :       0 in Module: CONTROL.PRG
TCONTROL:HANDLEEVENT  :       0 in Module: CONTROL.PRG
TGET:HANDLEEVENT      :       0 in Module: TGET.PRG
_FWH                  :       0 in Module: WINDOW.PRG
SETFOCUS              :       0 in Module:
TXBROWSE:SETFOCUS     :       0 in Module: CONTROL.PRG
TXBRWCOLUMN:POSTEDIT  :       0 in Module: XBROWSE.PRG
VALIDAPAGARPARCELAMEN :   6,068 in Module: VPAGARCADASTRO.PRG
(b)VPAGARCADASTROMULT :   6,383 in Module: VPAGARCADASTRO.PRG
(b)TXBRWCOLUMN:EDIT   :       0 in Module: XBROWSE.PRG
TGET:LVALID           :       0 in Module: TGET.PRG
(b)TWINDOW:TWINDOW    :       0 in Module: WINDOW.PRG
TWINDOW:END           :       0 in Module:
TGET:END              :       0 in Module: CONTROL.PRG
EDITGETKEYDOWN        :       0 in Module: XBROWSE.PRG
(b)TXBRWCOLUMN:EDIT   :       0 in Module: XBROWSE.PRG
TGET:KEYDOWN          :       0 in Module: TGET.PRG
TWINDOW:HANDLEEVENT   :       0 in Module:
TCONTROL:HANDLEEVENT  :       0 in Module: CONTROL.PRG
TGET:HANDLEEVENT      :       0 in Module: TGET.PRG
_FWH                  :       0 in Module: WINDOW.PRG
DIALOGBOX             :       0 in Module:
TDIALOG:ACTIVATE      :       0 in Module: DIALOG.PRG
VPAGARCADASTROMULTIPL :   6,390 in Module: VPAGARCADASTRO.PRG
VALIDAPAGAR           :   2,702 in Module: VPAGARCADASTRO.PRG
(b)VCADASTROPAGAR     :   2,027 in Module: VPAGARCADASTRO.PRG
TDIALOG:END           :       0 in Module: DIALOG.PRG
(b)VCADASTROPAGAR     :   1,213 in Module: VPAGARCADASTRO.PRG
TBUTTONBMP:CLICK      :       0 in Module: BUTTON.PRG
TBUTTON:HANDLEEVENT   :       0 in Module: CONTROL.PRG
TBUTTONBMP:HANDLEEVEN :       0 in Module: BUTTONB.PRG
_FWH                  :       0 in Module: WINDOW.PRG
SENDMESSAGE           :       0 in Module:
TDIALOG:COMMAND       :       0 in Module: DIALOG.PRG
TWINDOW:HANDLEEVENT   :       0 in Module:
TDIALOG:HANDLEEVENT   :       0 in Module: DIALOG.PRG
DIALOGBOX             :       0 in Module:
TDIALOG:ACTIVATE      :       0 in Module: DIALOG.PRG
VCADASTROPAGAR        :   2,027 in Module: VPAGARCADASTRO.PRG
INCLUIRPAGAR          :     477 in Module: VPAGARCADASTRO.PRG
(b)VPAGAR_CADASTRO    :     269 in Module: VPAGARCADASTRO.PRG
TBUTTONBMP:CLICK      :       0 in Module: BUTTON.PRG
TBUTTON:HANDLEEVENT   :       0 in Module: CONTROL.PRG
TBUTTONBMP:HANDLEEVEN :       0 in Module: BUTTONB.PRG
_FWH                  :       0 in Module: WINDOW.PRG
SENDMESSAGE           :       0 in Module:
TDIALOG:COMMAND       :       0 in Module: DIALOG.PRG
TWINDOW:HANDLEEVENT   :       0 in Module:
TDIALOG:HANDLEEVENT   :       0 in Module: DIALOG.PRG
DIALOGBOX             :       0 in Module:
TDIALOG:ACTIVATE      :       0 in Module: DIALOG.PRG
VPAGAR_CADASTRO       :     443 in Module: VPAGARCADASTRO.PRG
(b)PAGAR              :     146 in Module: PAGAR.PRG
NEWMENU               :   1,011 in Module: REDE.PRG
PAGAR                 :     220 in Module: PAGAR.PRG
(b)MAIN               :     377 in Module: FASHION.PRG
NEWMENU               :   1,011 in Module: REDE.PRG
MAIN                  :     517 in Module: FASHION.PRG




[Antonio Linares]

Parece que ::oEditGet es nil. Puedes solucionarlo asi en la Clase TXbrowse función EDITGETKEYDOWN():

Code: Select all  Expand view  RUN

   If lExit .and. ::oEditGet != nil
      ::oEditGet:nLastKey := nKey
      ::oEditGet:End()
   Endif