FiveTech Software tech support forums

Code: Select all  Expand view

Descrição do Erro:
Error DBCMD/2001  Workarea nÆo est  em uso: ORDDESCEND
   chamado por ORDDESCEND(0)
   chamado por TXBROWSE:SQLRDD_SAVESTATE(5839)
   chamado por TXBROWSE:DRAWLINE(3141)
   chamado por TXBROWSE:PAINT(2477)
   chamado por TXBROWSE:DISPLAY(2104)
   chamado por TCONTROL:HANDLEEVENT(1793)
   chamado por TXBROWSE:HANDLEEVENT(11776)
   chamado por _FWH(3559)
   chamado por DIALOGBOXINDIRECT(0)
   chamado por TDIALOG:ACTIVATE(304)
   chamado por FEPRCT01(6796)
   chamado por (b)BUILDPOPROPR(5694)
   chamado por TMENU:ACTIVATE(1599)
   chamado por TTOOLBAR:NOTIFY(284)
   chamado por TDIALOG:NOTIFY(1595)
   chamado por TWINDOW:HANDLEEVENT(0)
   chamado por TDIALOG:HANDLEEVENT(1140)
   chamado por DIALOGBOXINDIRECT(0)
   chamado por TDIALOG:ACTIVATE(304)
   chamado por ROMA01(5523)
   chamado por (b)PEDI01(242)
   chamado por TTOOLBAR:COMMAND(239)
   chamado por TMDICHILD:COMMAND(1144)
   chamado por TWINDOW:HANDLEEVENT(0)
   chamado por TMDICHILD:HANDLEEVENT(343)
   chamado por _FWH(3559)
   chamado por WINRUN(0)
   chamado por TMDIFRAME:ACTIVATE(1097)
   chamado por MAIN(370)
 

Code: Select all  Expand view

   cSelect := "SELECT cod_rece, pre_rece, val_rece, ped_rece from rece where ped_rece = " + Sr_cdbvalue( Roma->Cod_Roma ) + " and substring(cod_rece,7,1) != " + Sr_cdbvalue( "B" )
   Sr_setactiveconnection ( nConn0 )
   If !Sr_existtable( "rece" )
      Sr_setactiveconnection ( nConn1 )
   Endif
   Dbusearea( .T. , "SQLRDD", cSelect, "ReceNew" )
   ReceNew->( Dbgotop() )
   Do While !ReceNew->( Eof() )
      If ReceNew->Pre_Rece < ReceNew->Val_Rece
         lEnt := .T.
      Endif
      ReceNew->(Dbskip())
   Enddo
   ReceNew->( Dbclosearea() )      <<<<==== ERRO HERE
 

Code: Select all  Expand view

EXTERNAL DESCEND

FUNCTION...

   cSelect := "SELECT cod_rece, pre_rece, val_rece, ped_rece from rece where ped_rece = " + Sr_cdbvalue( Roma->Cod_Roma ) + " and substring(cod_rece,7,1) != " + Sr_cdbvalue( "B" )

   Sr_setactiveconnection ( nConn0 )

   If .NOT. Sr_existtable( "rece" )

      Sr_setactiveconnection ( nConn1 )

   Endif

   Dbusearea( .T. , "SQLRDD", cSelect, "ReceNew" )

   // SET ORDER TO... // ??? NAO PRECISA?

   GO TOP

   // ReceNew->( Dbgotop() )

   WHILE( .NOT. EOF() ) // .OR. ( ReceNew )->( Eof() )

      SYSREFRESH()

      If ( ReceNew )->Pre_Rece < ( ReceNew )->Val_Rece

         lEnt := .T.

      Endif

      SKIP // .OR.

      // ( ReceNew )->( Dbskip() )

   Enddo

   CLOSE( ReceNew ) // PORQUE DEU UM CLOSE AQUI?

   // ( ReceNew )->( Dbclosearea() )      <<<<==== ERRO HERE
 

karinha wrote:Intente asi. Tente assim.

[code=fw]
EXTERNAL DESCEND
Saludos.

karinha wrote:Mostre a parte do xBrowse, em que você dispara para a função... comente as linhas e vá religando, até descobrir onde quebra.

Code: Select all  Expand view

  cSelect := "SELECT cod_rece, pre_rece, val_rece, ped_rece from rece where ped_rece = " + Sr_cdbvalue( Roma->Cod_Roma ) + " and substring(cod_rece,7,1) != " + Sr_cdbvalue( "B" )

   If !Empty(Select("ReceNew"))
      ReceNew->( Dbclosearea() )
   Endif
   Sr_setactiveconnection ( nConn0 )
   If !Sr_existtable( "rece" )
      Sr_setactiveconnection ( nConn1 )
   Endif
   Dbusearea( .T. , "SQLRDD", cSelect, "ReceNew" )
   ReceNew->( Dbgotop() )
   Do While !ReceNew->( Eof() )
      If ReceNew->Pre_Rece < ReceNew->Val_Rece
         lEnt := .T.
      Endif
      ReceNew->(Dbskip())
   Enddo
//   ReceNew->( Dbclosearea() )
 

Sistem wrote:

karinha wrote:Mostre a parte do xBrowse, em que você dispara para a função... comente as linhas e vá religando, até descobrir onde quebra.

o erro eh:
( ReceNew )->( Dbclosearea() ) <<<<==== ERRO HERE

eh assim: posiciono o cursor no linha que quero, chamo a funcao que abre uma tabela e depois fecho a tabela, ao fechar da o erro
se eu comento a linha ( ReceNew )->( Dbclosearea() ) o erro nao acontece.... o problema eu que se o usuário abrir a função novamente o programa fecha sem msg.
resolvido assim:

Code: Select all  Expand view

  cSelect := "SELECT cod_rece, pre_rece, val_rece, ped_rece from rece where ped_rece = " + Sr_cdbvalue( Roma->Cod_Roma ) + " and substring(cod_rece,7,1) != " + Sr_cdbvalue( "B" )

   If !Empty(Select("ReceNew"))
      ReceNew->( Dbclosearea() )
   Endif
   Sr_setactiveconnection ( nConn0 )
   If !Sr_existtable( "rece" )
      Sr_setactiveconnection ( nConn1 )
   Endif
   Dbusearea( .T. , "SQLRDD", cSelect, "ReceNew" )
   ReceNew->( Dbgotop() )
   Do While !ReceNew->( Eof() )
      If ReceNew->Pre_Rece < ReceNew->Val_Rece
         lEnt := .T.
      Endif
      ReceNew->(Dbskip())
   Enddo
//   ReceNew->( Dbclosearea() )
 

coloquei o Dbclosearea no inicio e comentei o do final
mais pq acontece isso?
desde da ver 2006 estou com esse problema