Strange Error ORDBAGNAME with fwh 19.05

[Silvio.Falconi]

suddenly this error came out recompiling an old program with the new version of fwh

Code: Select all  Expand view  RUN

 
 Size: 3,939,840 bytes
   Compiler version: Harbour 3.2.0dev (r1904111533)
   FiveWin  version: FWH 19.05
   C compiler version: Borland/Embarcadero C++ 7.0 (32-bit)
   Windows version: 6.2, Build 9200

   Time from start: 0 hours 0 mins 7 secs
   Error occurred at: 25-06-2019, 12:58:56
   Error description: Error DBCMD/2001  Workarea not in use: ORDBAGNAME

Stack Calls
===========
   Called from:  => ORDBAGNAME( 0 )
   Called from: .\source\classes\XBROWSE.PRG => TXBRWCOLUMN:ADJUST( 12122 )
   Called from: .\source\classes\XBROWSE.PRG => TXBROWSE:ADJUST( 1434 )
   Called from: .\source\classes\XBROWSE.PRG => TXBROWSE:INITIATE( 1278 )
   Called from:  => __OBJSENDMSG( 0 )
   Called from: .\source\function\HARBOUR.PRG => OSEND( 291 )
   Called from: .\source\function\HARBOUR.PRG => ASEND( 259 )
   Called from: .\source\classes\DIALOG.PRG => TDIALOG:INITIATE( 805 )
   Called from: .\source\classes\DIALOG.PRG => TDIALOG:ACTIVATE( 330 )
   Called from: .\source\classes\FOLDER.PRG => TFOLDER:DEFAULT( 413 )
   Called from: .\source\classes\FOLDER.PRG => TFOLDER:INITIATE( 344 )
   Called from:  => __OBJSENDMSG( 0 )
   Called from: .\source\function\HARBOUR.PRG => OSEND( 291 )
   Called from: .\source\function\HARBOUR.PRG => ASEND( 259 )
   Called from: .\source\classes\DIALOG.PRG => TDIALOG:INITIATE( 805 )
   Called from: .\source\classes\DIALOG.PRG => TDIALOG:HANDLEEVENT( 1120 )
   Called from:  => DIALOGBOXINDIRECT( 0 )
   Called from: .\source\classes\DIALOG.PRG => TDIALOG:ACTIVATE( 304 )
   Called from: TAInforme.prg => TINFORME:ACTIVATE( 556 )
   Called from: test.prg => ESIMPRIME( 141 )
   Called from: test.prg => (b)TEST( 84 )
   Called from: .\source\classes\BUTTON.PRG => TBUTTON:CLICK( 179 )
   Called from: .\source\classes\CONTROL.PRG => TBUTTON:HANDLEEVENT( 1755 )
   Called from: .\source\classes\WINDOW.PRG => _FWH( 3546 )
   Called from:  => SENDMESSAGE( 0 )
   Called from: .\source\classes\DIALOG.PRG => TDIALOG:COMMAND( 433 )
   Called from:  => TWINDOW:HANDLEEVENT( 0 )
   Called from: .\source\classes\DIALOG.PRG => TDIALOG:HANDLEEVENT( 1136 )
   Called from:  => DIALOGBOXINDIRECT( 0 )
   Called from: .\source\classes\DIALOG.PRG => TDIALOG:ACTIVATE( 304 )
   Called from: test.prg => TEST( 102 )
   Called from: test.prg => (b)MAIN( 28 )
   Called from: .\source\classes\WINDOW.PRG => TWINDOW:ACTIVATE( 1064 )
   Called from: test.prg => MAIN( 28 )

TAinforme create a dialog with a folder , on a folder insert a xbrowse with an array

Code: Select all  Expand view  RUN

     @ 5, 2 XBROWSE  ::oLbx OF ::oFld:aDialogs[2] ;
      SIZE 150,105 PIXEL NOBORDER

  For i := 1 to len(::aTitulos)
        Aadd( aArray, {::aShow[i],::aTitulos[i],::aWidth[i],::aAlign[i]} )
   Next

   ::oLbx:SetArray(aArray

)

when I go to call activate method it make error
on activate method there is the command to activate the dialog of the class Tinforme

Code: Select all  Expand view  RUN

METHOD Activate() CLASS TInforme
   local o := self
   ACTIVATE DIALOG ::oDlg ;
      ON INIT(o:oGet:nHeight:=21.4,;
              DlgCenter(o:oDlg,::oWnd))

     RETURN ( ::oDlg:nResult == IDOK )

Probable there is not cAlias used but I send to the class oEsercizi and then I make
::cAlias:=oEsercizi:cAlias
why not take the alias ?


If I make ? oDbf:cAlias
it return me TDF00001
and not the name of the archive how I can resolve ?

[Silvio.Falconi]

Perhaps I found the error

::oLbx:nDataType := 1 // array

I rem it and now I see the dialog only now give me another error

not found the fields of oEsercizi and I cannot Make the report

when I call the fields array use this command

RptAddColumn( {bTitulo(::aTitulos,i)},,{bCampo(::aCampos,i)},::aWidth[i],{bPicture(::aPicture,i)},{||1},::aTotal[i],,upper(::aAlign[i]),::lshadow,::lGrid,)


the function bCampo(::aCampos,i)

function bCampo( aCampos, nFor )
return (fieldWBlock(aCampos[nFor],SELECT() ))

why not return the field ?

the array aCampos := { "ANNO","DIRDBF","DIRZIP","DIRXML","DIRPDF","DIRDOC","ESNOTE" }

I tried als with bCampo(::aCampos,i,::cAlias)

function bCampo( aCampos, nFor ,cAlias)
return (fieldWBlock(aCampos[nFor], SELECT( cAlias ) ))

[Silvio.Falconi]

Now make the report but not show the records






any idea ?