Error tbrowse Stabilize

This is a discussion on Error tbrowse Stabilize within the xharbour forums in Programming Languages category; Friends, After migrating to xharbour version 1.0 and introduced the following error Error Base/1132 Erro de Limite:acesso de array Arguments [1] = type: A val: {Array of 1 Items } [2] = Type N Val:2) while ( !oConsulta:stabilize()) enddo In version 0.99.61 works fine no problem Sum1 Help Me ?...
Go Back   Application Development Forum > Programming Languages > xharbour
Error tbrowse Stabilize Error tbrowse Stabilize

Object Mix

 Register FAQ Calendar Search Today's Posts Mark Forums Read
Reply

 

LinkBack Thread Tools Display Modes
  #1  
Old 08-11-2008, 03:49 PM
duduxbase
Guest
  
Default Error tbrowse Stabilize
Friends,
After migrating to xharbour version 1.0 and introduced the following
error

Error Base/1132
Erro de Limite:acesso de array Arguments[1] = type: A val: {Array of
1 Items } [2] = Type N Val:2)


while ( !oConsulta:stabilize())
enddo

In version 0.99.61 works fine no problem

Sum1 Help Me ?
Reply With Quote
  #2  
Old 08-11-2008, 05:01 PM
luiz Rafael Culik Guimaraes
Guest
  
Default Re: Error tbrowse Stabilize
Eduardo
>
> while ( !oConsulta:stabilize())
> enddo
avoid using stabilize, is an cpu killer

to stabilize loop use oconsulta:forcestable()

[]s
Luiz


Reply With Quote
  #3  
Old 08-12-2008, 01:37 PM
duduxbase
Guest
  
Default Re: Error tbrowse Stabilize
Luiz,
I replace it but this error still alive...





On 11 ago, 18:01, "luiz Rafael Culik Guimaraes" <l...@xharbour.com.br>
wrote:
> Eduardo
>
> > while ( !oConsulta:stabilize())
> > enddo
>
> avoid using stabilize, is an cpu killer
>
> to stabilize loop use oconsulta:forcestable()
>
> []s
> Luiz

Reply With Quote
  #4  
Old 08-12-2008, 01:41 PM
Ron Pinkas
Guest
  
Default Re: Error tbrowse Stabilize
> After migrating to xharbour version 1.0 and introduced the following
> error
>
> Error Base/1132
> Erro de Limite:acesso de array Arguments[1] = type: A val: {Array of
> 1 Items } [2] = Type N Val:2)
>
>
> while ( !oConsulta:stabilize())
> enddo
>
> In version 0.99.61 works fine no problem

Please post a REDUCED, yet SELF CONTAINED, sample.

Ron


Reply With Quote
  #5  
Old 08-14-2008, 08:44 AM
duduxbase
Guest
  
Default Re: Error tbrowse Stabilize

************ sample Reduce *************

oConsulta:colorspec := "b/w,w+/n,n,n,b/b,b+/w,br/w,r+/w,gr/w,bg/
w,r/w,gr+/w"
oConsulta:colsep := chr (032) + chr (179) + chr (032)
oConsulta:headsep := chr (196) + chr (194) + chr (196)
oConsulta:footsep := chr (196) + chr (193) + chr (196)

clicad->(dbsetorder(1))

/* define colunas do tbrowse */
oCol1 := tbcolumnnew ("Cliente", {|| iif(clicad-
>(dbseek(ardpdv->CODENT)) ,clicad->NOMCLI,"")})
oCol2 := tbcolumnnew ("Qtd.", {|| ardpdv->QTDCES})
oCol3 := tbcolumnnew ("Dat Fatur ", {|| iif(empty(ardpdv-
>DATNOT),iif(arqnot->(dbseek(ardpdv->NUMPED+ardpdv->SERPED)),ARQNOT-
>DATNOT,CTOD("")),ardpdv->DATNOT)})
oCol4 := tbcolumnnew ("Montagem ", {|| arcpdv->DATMON})
oCol5 := tbcolumnnew ("Hor.Mont", {|| arcpdv->HORMON})
oCol6 := tbcolumnnew ("Data Entreg", {|| arcpdv->ENTMER})

if alltrim(cGrupolog)=="ADM"
oCol7 := tbcolumnnew ("Frete", {|| ardpdv->QTDCES*(ardpdv-
>FRETAB+ardpdv->FRECLI+ardpdv->FREAUD+ardpdv->FRETRA)})
oCol8 := tbcolumnnew ("Cotac", {|| arcpdv->FTRCOT})
oCol7icture := "@E 9,999,999,999.99"
oCol8icture := "@E 99,999,999.99"
endif

/* define cores das colunas do tbrowse */
oCol1:colorblock := {|| iif(canpdv->(dbseek(ardpdv->NUMPED+ardpdv-
>SERPED)),{10,9},iif(arq_ocor->(dbseek(ardpdv->NUMPED+ardpdv->SERPED)),
{11,9},{1}))}
oCol2:colorblock := {|| iif(canpdv->(dbseek(ardpdv->NUMPED+ardpdv-
>SERPED)),{10,9},iif(arq_ocor->(dbseek(ardpdv->NUMPED+ardpdv->SERPED)),
{11,9},{1}))}
oCol3:colorblock := {|| iif(canpdv->(dbseek(ardpdv->NUMPED+ardpdv-
>SERPED)),{10,9},iif(arq_ocor->(dbseek(ardpdv->NUMPED+ardpdv->SERPED)),
{11,9},{1}))}
oCol4:colorblock := {|| iif(canpdv->(dbseek(ardpdv->NUMPED+ardpdv-
>SERPED)),{10,9},iif(arq_ocor->(dbseek(ardpdv->NUMPED+ardpdv->SERPED)),
{11,9},{1}))}
oCol5:colorblock := {|| iif(canpdv->(dbseek(ardpdv->NUMPED+ardpdv-
>SERPED)),{10,9},iif(arq_ocor->(dbseek(ardpdv->NUMPED+ardpdv->SERPED)),
{11,9},{1}))}
oCol6:colorblock := {|| iif(canpdv->(dbseek(ardpdv->NUMPED+ardpdv-
>SERPED)),{10,9},iif(arq_ocor->(dbseek(ardpdv->NUMPED+ardpdv->SERPED)),
{11,9},{1}))}
if alltrim(cGrupolog)="ADM")
oCol7:colorblock := {|| iif(canpdv->(dbseek(ardpdv->NUMPED
+ardpdv->SERPED)),{10,9},iif(arq_ocor->(dbseek(ardpdv->NUMPED+ardpdv-
>SERPED)),{11,9},{1}))}
oCol8:colorblock := {|| iif(canpdv->(dbseek(ardpdv->NUMPED+ardpdv-
>SERPED)),{10,9},iif(arq_ocor->(dbseek(ardpdv->NUMPED+ardpdv->SERPED)),
{11,9},{1}))}
ENDIF


/* define pictures das colunas do tbrowse */
oCol2icture := "999999"

/* adiciona colunas no tbrowse */
oConsulta:addcolumn(oCol1)
oConsulta:addcolumn(oCol2)
oConsulta:addcolumn(oCol3)
oConsulta:addcolumn(oCol4)
oConsulta:addcolumn(oCol5)
oConsulta:addcolumn(oCol6)
if alltrim(cGrupolog)== "ADM"
oConsulta:addcolumn(oCol7)
oConsulta:addcolumn(oCol8)
endif

oConsulta:freeze := 1

while ( .t. )

setcursor (0)
// Culik
//while ( !oConsulta:stabilize () )
//enddo

oConsulta:forcestable()

*************************** Finish Sample





On 12 ago, 14:41, "Ron Pinkas" <R...@xHarbour.com> wrote:
> > After migrating to xharbour version 1.0 and introduced the following
> > error
>
> > Error Base/1132
> > Erro de Limite:acesso de array Arguments[1] = type: A val: {Array of
> > 1 Items } [2] = Type N Val:2)
>
> > while ( !oConsulta:stabilize())
> > enddo
>
> > In version 0.99.61 works fine no problem
>
> Please post a REDUCED, yet SELF CONTAINED, sample.
>
> Ron

Reply With Quote
  #6  
Old 08-14-2008, 09:26 AM
Ron Pinkas
Guest
  
Default Re: Error tbrowse Stabilize
Sorry, this is not reduced, and not self contained.

Ron

"duduxbase" <duduxbase@gmail.com> wrote in message
news:addd161e-d02e-4f6e-b826-82ccf69ea05c@79g2000hsk.googlegroups.com...
>
> ************ sample Reduce *************
>
> oConsulta:colorspec := "b/w,w+/n,n,n,b/b,b+/w,br/w,r+/w,gr/w,bg/
> w,r/w,gr+/w"
> oConsulta:colsep := chr (032) + chr (179) + chr (032)
> oConsulta:headsep := chr (196) + chr (194) + chr (196)
> oConsulta:footsep := chr (196) + chr (193) + chr (196)
>
> clicad->(dbsetorder(1))
>
> /* define colunas do tbrowse */
> oCol1 := tbcolumnnew ("Cliente", {|| iif(clicad-
>>(dbseek(ardpdv->CODENT)) ,clicad->NOMCLI,"")})
> oCol2 := tbcolumnnew ("Qtd.", {|| ardpdv->QTDCES})
> oCol3 := tbcolumnnew ("Dat Fatur ", {|| iif(empty(ardpdv-
>>DATNOT),iif(arqnot->(dbseek(ardpdv->NUMPED+ardpdv->SERPED)),ARQNOT-
>>DATNOT,CTOD("")),ardpdv->DATNOT)})
> oCol4 := tbcolumnnew ("Montagem ", {|| arcpdv->DATMON})
> oCol5 := tbcolumnnew ("Hor.Mont", {|| arcpdv->HORMON})
> oCol6 := tbcolumnnew ("Data Entreg", {|| arcpdv->ENTMER})
>
> if alltrim(cGrupolog)=="ADM"
> oCol7 := tbcolumnnew ("Frete", {|| ardpdv->QTDCES*(ardpdv-
>>FRETAB+ardpdv->FRECLI+ardpdv->FREAUD+ardpdv->FRETRA)})
> oCol8 := tbcolumnnew ("Cotac", {|| arcpdv->FTRCOT})
> oCol7icture := "@E 9,999,999,999.99"
> oCol8icture := "@E 99,999,999.99"
> endif
>
> /* define cores das colunas do tbrowse */
> oCol1:colorblock := {|| iif(canpdv->(dbseek(ardpdv->NUMPED+ardpdv-
>>SERPED)),{10,9},iif(arq_ocor->(dbseek(ardpdv->NUMPED+ardpdv->SERPED)),
> {11,9},{1}))}
> oCol2:colorblock := {|| iif(canpdv->(dbseek(ardpdv->NUMPED+ardpdv-
>>SERPED)),{10,9},iif(arq_ocor->(dbseek(ardpdv->NUMPED+ardpdv->SERPED)),
> {11,9},{1}))}
> oCol3:colorblock := {|| iif(canpdv->(dbseek(ardpdv->NUMPED+ardpdv-
>>SERPED)),{10,9},iif(arq_ocor->(dbseek(ardpdv->NUMPED+ardpdv->SERPED)),
> {11,9},{1}))}
> oCol4:colorblock := {|| iif(canpdv->(dbseek(ardpdv->NUMPED+ardpdv-
>>SERPED)),{10,9},iif(arq_ocor->(dbseek(ardpdv->NUMPED+ardpdv->SERPED)),
> {11,9},{1}))}
> oCol5:colorblock := {|| iif(canpdv->(dbseek(ardpdv->NUMPED+ardpdv-
>>SERPED)),{10,9},iif(arq_ocor->(dbseek(ardpdv->NUMPED+ardpdv->SERPED)),
> {11,9},{1}))}
> oCol6:colorblock := {|| iif(canpdv->(dbseek(ardpdv->NUMPED+ardpdv-
>>SERPED)),{10,9},iif(arq_ocor->(dbseek(ardpdv->NUMPED+ardpdv->SERPED)),
> {11,9},{1}))}
> if alltrim(cGrupolog)="ADM")
> oCol7:colorblock := {|| iif(canpdv->(dbseek(ardpdv->NUMPED
> +ardpdv->SERPED)),{10,9},iif(arq_ocor->(dbseek(ardpdv->NUMPED+ardpdv-
>>SERPED)),{11,9},{1}))}
> oCol8:colorblock := {|| iif(canpdv->(dbseek(ardpdv->NUMPED+ardpdv-
>>SERPED)),{10,9},iif(arq_ocor->(dbseek(ardpdv->NUMPED+ardpdv->SERPED)),
> {11,9},{1}))}
> ENDIF
>
>
> /* define pictures das colunas do tbrowse */
> oCol2icture := "999999"
>
> /* adiciona colunas no tbrowse */
> oConsulta:addcolumn(oCol1)
> oConsulta:addcolumn(oCol2)
> oConsulta:addcolumn(oCol3)
> oConsulta:addcolumn(oCol4)
> oConsulta:addcolumn(oCol5)
> oConsulta:addcolumn(oCol6)
> if alltrim(cGrupolog)== "ADM"
> oConsulta:addcolumn(oCol7)
> oConsulta:addcolumn(oCol8)
> endif
>
> oConsulta:freeze := 1
>
> while ( .t. )
>
> setcursor (0)
> // Culik
> //while ( !oConsulta:stabilize () )
> //enddo
>
> oConsulta:forcestable()
>
> *************************** Finish Sample
>
>
>
>
>
> On 12 ago, 14:41, "Ron Pinkas" <R...@xHarbour.com> wrote:
>> > After migrating to xharbour version 1.0 and introduced the following
>> > error
>>
>> > Error Base/1132
>> > Erro de Limite:acesso de array Arguments[1] = type: A val: {Array of
>> > 1 Items } [2] = Type N Val:2)
>>
>> > while ( !oConsulta:stabilize())
>> > enddo
>>
>> > In version 0.99.61 works fine no problem
>>
>> Please post a REDUCED, yet SELF CONTAINED, sample.
>>
>> Ron
>


Reply With Quote
  #7  
Old 08-14-2008, 10:09 AM
duduxbase
Guest
  
Default Re: Error tbrowse Stabilize
Resolved
The problem was on the 'colorblock'

oCol1:colorblock := {|| iif(.t.,{11,9},{1})} // work in 0.99.61

I discored that a missing item in the array, but in version 0.99.61
work fine

oCol1:colorblock := {|| iif(.t.,{11,9},{1,2})} // work now in 1.0

I will modify the other prgs...

Thx

Reply With Quote
Reply

« Previous Thread | Next Thread »

Thread Tools
Display Modes
Linear Mode Linear Mode


All times are GMT -5. The time now is 02:57 PM.

Privacy Statement -

Powered by vBulletin® Version 3.7.2
Copyright ©2000 - 2008, Jelsoft Enterprises Ltd.
Search Engine Optimization by vBSEO 3.2.0
vB Ad Management by =RedTyger=

In an effort to better serve ads to our visitors, cookies are used on objectmix.com. For more information, check out our Privacy Policy.