TSBrowse Ver 8.0 - Edit:Show()

[David Williams]

Hi

Does anyone have a fix for this error:

Error description: Error BASE/1004 Class: 'NIL' has no exported method: SHOW
Args:
[ 1] = U

Stack Calls
===========
Called from SHOW(0)
Called from TSBROWSE:EDIT(3520)
Called from TSBROWSE:KEYDOWN(5510)

Regards
David

[mmercado]

Hi

Does anyone have a fix for this error:

Error description: Error BASE/1004 Class: 'NIL' has no exported method: SHOW
Args:
[ 1] = U

Stack Calls
===========
Called from SHOW(0)
Called from TSBROWSE:EDIT(3520)
Called from TSBROWSE:KEYDOWN(5510)

Regards
David

[mmercado]

Error description: Error BASE/1004 Class: 'NIL' has no exported method: SHOW

Hi David:

Could you please let me see the part of your code where TSBrowse is defined?

Regards.

Manuel Mercado

[David Williams]

Hola Manuel

Here's my code, sorry about my delay.

Many thanks
David

***** TSBROWSE ******

REDEFINE BROWSE oBrw1 GRID ID 211 OF oFld:aDialogs[2] ;
FONT oFont

oBrw1:SetArray(aBox44)

ADD COLUMN TO oBrw1 ARRAY ELEMENT 1 ;
HEADER "Code" ;
COLOR CLR_BLACK,CLR_WHITE ;
3DLOOK FALSE ;
ALIGN DT_LEFT, DT_CENTER ;
PICTURE "@!" ;
SIZE 72 ;
POSTEDIT {|uVal| if(uVal != nil, CheckBox44(oBrw1,oBrw2,padr(uVal,5),1),) } ;
EDITABLE MOVE DT_MOVE_RIGHT

ADD COLUMN TO oBrw1 ARRAY ELEMENT 2 ;
HEADER "Value" ;
COLOR CLR_BLACK,CLR_WHITE ;
3DLOOK FALSE ;
ALIGN DT_LEFT, DT_CENTER ;
PICTURE "@K@!@S255" ;
SIZE 200 ;
POSTEDIT {|uVal| if(uVal != nil, CheckBox44(oBrw1,oBrw2,padr(uVal,255),2),) } ;
EDITABLE MOVE DT_MOVE_NEXT

// Activate continuous edit mode
oBrw1:lAutoEdit := pTRUE
oBrw1:lNoGrayBar := pTRUE
oBrw1:lNoHScroll := pTRUE
oBrw1:lFixCaret := pFALSE // True for blocky cursor

//oBrw1:l2007 := pTRUE
oBrw1:nAdjColumn := 2
oBrw1:nLineStyle := 1
oBrw1:nHeightHead += 6
oBrw1:nHeightCell += 4

oBrw1:Setcolor({5,6},{CLR_BLACK, CLR_TOPBIEGE}) // Got Focus
oBrw1:Setcolor({7,8},{CLR_BLACK, CLR_TOPBIEGE}) // Editing
oBrw1:SetColor({15},{CLR_HGRAY})

oBrw1:SetBtnGet(1,"bmpget", {|oGet, cVar| ;
cVar := oGet:Value(), ;
if(wsSeek("Box44","code",,oGet,290,205,{"code","code","desc","level"},{"Code","Additional Information / Documents","Level"},{66,209,66}), ;
oGet:cText(Box44->code), oGet:cText(cVar)), ;
oGet:Refresh(), oGet:KeyDown(VK_RETURN, 0) }, 16)

REDEFINE BROWSE oBrw2 GRID ID 231 OF oFld:aDialogs[2] ;
FONT oFont

oBrw2:SetArray(aBox47)

ADD COLUMN TO oBrw2 ARRAY ELEMENT 1 ;
HEADER "Type" ;
COLOR CLR_BLACK,CLR_WHITE ;
3DLOOK FALSE ;
ALIGN DT_LEFT, DT_CENTER ;
PICTURE "@!" ;
SIZE 66 ;
POSTEDIT {|uVal| if(uVal != nil, CheckBox47(oBrw2,padr(uVal,3),1,nS32Item,aBox44,aBox47,aSadItems[nS32Item,nSADITEMS->s33_cmdy]),) } ;
EDITABLE MOVE DT_MOVE_RIGHT

ADD COLUMN TO oBrw2 ARRAY ELEMENT 2 ;
HEADER "Tax Base" ;
COLOR CLR_BLACK,CLR_WHITE ;
3DLOOK FALSE ;
ALIGN DT_RIGHT, DT_CENTER ;
PICTURE "@K "+cPict1 ;
SIZE 92 ;
POSTEDIT {|uVal| if(uVal != nil, CheckBox47(oBrw2,uVal,2,,,,aSadItems[nS32Item,nSADITEMS->s33_cmdy]),) } ;
EDITABLE MOVE DT_MOVE_RIGHT

ADD COLUMN TO oBrw2 ARRAY ELEMENT 3 ;
HEADER "Rate" ;
COLOR CLR_BLACK,CLR_WHITE ;
3DLOOK FALSE ;
ALIGN DT_RIGHT, DT_CENTER ;
PICTURE "@K "+cPict2 ;
SIZE 84 ;
POSTEDIT {|uVal| if(uVal != nil, CheckBox47(oBrw2,uVal,3,,,,aSadItems[nS32Item,nSADITEMS->s33_cmdy]),) } ;
EDITABLE MOVE DT_MOVE_RIGHT

ADD COLUMN TO oBrw2 ARRAY ELEMENT 4 ;
HEADER "Amount" ;
COLOR CLR_BLACK,CLR_WHITE ;
3DLOOK FALSE ;
ALIGN DT_RIGHT, DT_CENTER ;
PICTURE "@K "+cPict1 ;
SIZE 92 ;
EDITABLE MOVE DT_MOVE_RIGHT

ADD COLUMN TO oBrw2 ARRAY ELEMENT 5 ;
HEADER "Method" ;
COLOR CLR_BLACK,CLR_WHITE ;
3DLOOK FALSE ;
ALIGN DT_CENTER, DT_CENTER ;
PICTURE "!" ;
SIZE 46 ;
PREEDIT {|uVal| uVal := SADDOCS->s48_mthd} ;
POSTEDIT {|uVal| if(uVal != nil, CheckBox47(oBrw2,uVal,5),) } ;
EDITABLE MOVE DT_MOVE_NEXT

// Activate continuous edit mode
oBrw2:lAutoEdit := pTRUE
oBrw2:lNoGrayBar := pTRUE
oBrw2:lNoHScroll := pTRUE
oBrw2:lFixCaret := pFALSE // True for blocky cursor

//oBrw2:l2007 := pTRUE
oBrw2:nAdjColumn := 5
oBrw2:nLineStyle := 1
oBrw2:nHeightHead += 6
oBrw2:nHeightCell += 4

oBrw2:Setcolor({5,6},{CLR_BLACK, CLR_TOPBIEGE}) // Got Focus
oBrw2:Setcolor({7,8},{CLR_BLACK, CLR_TOPBIEGE}) // Editing
oBrw2:SetColor({15},{CLR_HGRAY})

oBrw2:SetBtnGet(1,"bmpget", {|oGet, cVar| ;
cVar := oGet:Value(), ;
if(wsSeek("Taxes","code",,oGet,290,205,{"tax_code","tax_code","tax_desc"},{"Code","Taxation Type"},{66,209}), ;
oGet:cText(Taxes->tax_code),), ;
oGet:Refresh(), oGet:KeyDown(VK_RETURN, 0) }, 16)

********************

[mmercado]

Called from TSBROWSE:EDIT(3520)

Hi David:

TSBrowse Line 3520 is:

Code: Select all  Expand view  RUN

   oCol:oEdit:Show()


Try by changing it to:

Code: Select all  Expand view  RUN

   If oCol:oEdit != Nil
      oCol:oEdit:Show()
   EndIf
   

Best regards.

Manuel Mercado