FiveDBU for 32/64 bits

[Bayron]

Maybe (x)Harbour + FiveWin is not the way, because as I mentioned a few months ago, FiveWin needs (x)Harbour to be changed first, since FiveWin is only a Add On Library....

I may sugest that the solution may not be FiveWin, but instead FiveWeb:

This is an example of Metro Interface "Hello World" using Javascript...

http://msdn.microsoft.com/en-us/library/windows/apps/hh986964.aspx

If possible to use, in this way we don't have to reinvent the weel, but we can start from Zero on something a bit more friendly...

[Gale FORd]

Microsoft has a vested interest in upgrades. Upgrades furnish a revenue stream and keep people locked into Windows products. I am not apposed to this but we must keep in mind that their interests do not always match our interests.
How long did companies stick with 95/98 when xp came out. How long did companies stick with xp when NT/Visa/Windows 7 came out. There has to be enough reasons to invest in the time/money/logistics/downtime/bug fixes/training to do a complete system wide update.

Sorry for keeping this up and I will quite commenting (I promise ) . I like these discussions because a better understanding usually results. I hope we keep up the development of the next design ideas.

[norberto]

Gale,

I was in a recent training from microsoft about IT, and I can say from what I have seen in this way, the cost that you quoted, (update, training), and less than the benefits it will bring to the economy with administration and security.

many are talking about the Metro, but windows 8 is not only Metro, is a set of things to facilitate the security, maintenance, administration and IT cost reduction.

Windows server 2012 has more support for HYPER-V and virtualization, which will promote the demand for "bring your device" BYOD.

I think the companies will adopt windows 8 looking for that side and mobility , which surpasses the costs quoted by you

Best regards

[Gale FORd]

There is no question that Windows 8 will be the next step in whatever evolution Windows takes. I have just been in this business too long to jump on the bandwagon until there is a horse capable of pulling it. For the desktop, Windows 7 went a long way to fixing the Vista issues but added its own problems for developers and support with the security "enhancements". Maybe Windows 8 will be a hit and all companies will demand developers to immediately update their software so they could buy the new hardware and the new Windows and new????
Maybe a lot of developers will be able to talk their users into spending the money so they can get the new systems.

[Antonio Linares]

Updated FiveDBU version with Modify struct support (Show the struct then select Edit):

http://code.google.com/p/fivewin-contributions/downloads/detail?name=fivedbu_20120614_2.zip&can=2&q=

[ukoenig]

Extended Expression-builder.
72 Functions with Syntax in alphabetic order :





Best Regards
Uwe

[Antonio Linares]

Uwe,

Many thanks!

Where to download the modified PRG from ?

[ukoenig]

Antonio,

I will add this changed DBU-part to the post.
Still some typing to do, because of all the functions.
I included some of my own statistic and mathematical functions,
but I think it is better using only Clipper known functions.

Code: Select all  Expand view  RUN

//----------------------------------------------------------------------------//

function ExpBuilder( cExp )
local oDlg, oBrw, aFields := DBStruct(), oSay1, oSay2, oSay3, oSay4
local oExp, oCombo, cFunction, aITEM1[48], aITEM2 := {}, cSyntax := SPACE( 30 )
   
cExp = RTrim( cExp )
   
DEFINE DIALOG oDlg TITLE "Expression builder" SIZE 480, 450 // TRANSPARENT
   
@ 0.2, 1.5 SAY oSay1 PROMPT "Expression:" SIZE 80, 11 OF oDlg
oSay1:lTransparent := .T.
 
@ 1.1, 1 GET oExp VAR cExp MEMO SIZE 221, 27
   
@ 2.8, 1.5 SAY oSay2 PROMPT "Fields" OF oDlg SIZE 40, 10
oSay2:lTransparent := .T.
@ 2.8, 5 SAY oSay3 PROMPT "Syntax : " OF oDlg SIZE 30, 10
oSay3:lTransparent := .T.
@ 2.8, 8.5 SAY oSyntax VAR cSyntax OF oDlg SIZE 120, 10
oSyntax:lTransparent := .T.

@ 3.8, 1 XBROWSE oBrw ARRAY aFields AUTOCOLS LINES SIZE 120, 140 OF oDlg ;
 HEADERS "Name", "Type", "Len", "Dec" ;
 COLSIZES 95, 30, 30, 30
     
oBrw:nMarqueeStyle := MARQSTYLE_HIGHLROW  
oBrw:bClrStd = { || If( oBrw:KeyNo() % 2 == 0, ;
                         { CLR_BLACK, RGB( 198, 255, 198 ) }, ;
                         { CLR_BLACK, RGB( 232, 255, 232 ) } ) }
oBrw:bClrSel = { || { CLR_WHITE, RGB( 0x33, 0x66, 0xCC ) } }                      
oBrw:SetColor( CLR_BLACK, RGB( 232, 255, 232 ) )
oBrw:CreateFromCode()
oBrw:bLDblClick = { || cExp += oBrw:aRow[ 1 ], oExp:Refresh() }

@ 3.5, 23.2 SAY oSay4 PROMPT "Functions" OF oDlg SIZE 84, 11
oSay4:lTransparent := .T.

AADD( aITEM2, { "ABS()", "ABS( numeric )" } )
AADD( aITEM2, { "ALIAS()", "ALIAS()" } )
AADD( aITEM2, { "ALLTRIM()", "ALLTRIM( String )" } )
AADD( aITEM2, { "AT()", "AT( SearchStr., TargetStr. )" } )
AADD( aITEM2, { "CDOW()", "CDOW( Datefield )" } )
AADD( aITEM2, { "CHR()", "CHR( Val )" } )
AADD( aITEM2, { "CMONTH()", "CMONTH( Datefield )" } )
AADD( aITEM2, { "CTOD()", "CTOD( String )" } )
AADD( aITEM2, { "DATE()", "DATE()" } )
AADD( aITEM2, { "DAY()", "DAY( Datefield )" } )
AADD( aITEM2, { "DELETED()", "DELETED()" } )
AADD( aITEM2, { "DESCEND()", "DESCEND( String )" } )
AADD( aITEM2, { "DMY()", "DMY( Datefield )" } )
AADD( aITEM2, { "DTOC()", "DESCEND( String )" } )
AADD( aITEM2, { "DTOS()", "DESCEND( String )" } )
AADD( aITEM2, { "EMPTY()", "DESCEND( String )" } )
AADD( aITEM2, { "IF()", "IF( Logical, True Result, False Result )" } )
AADD( aITEM2, { "IIF()", "Logical, True Result, False Result )" } )
AADD( aITEM2, { "INDEXKEY()", "DESCEND( String )" } )
AADD( aITEM2, { "ISLOWER()", "ISLOWER( String )" } )
AADD( aITEM2, { "ISUPPER()", "ISUPPER( String )" } )
AADD( aITEM2, { "LEFT()", "LEFT( String, Length )" } )
AADD( aITEM2, { "LEN()", "LEN( Expression )" } )
AADD( aITEM2, { "LOWER()", "LOWER( String )" } )
AADD( aITEM2, { "MONTH()", "MONTH( Datefield )" } )
AADD( aITEM2, { "ORDER()", "DESCEND( String )" } )
AADD( aITEM2, { "ORDKEY()", "DESCEND( String )" } )
AADD( aITEM2, { "PADC()", "PADC( String, Length, Character )" } )
AADD( aITEM2, { "PADL()", "PADL( String, Length, Character )" } )
AADD( aITEM2, { "PADR()", "PADR( String, Length, Character )" } )
AADD( aITEM2, { "RAT()", "RAT( SearchStr., TargetStr. )" } )
AADD( aITEM2, { "RECCOUNT()", "RECCOUNT()" } )
AADD( aITEM2, { "RECNO()", "RECNO()" } )
AADD( aITEM2, { "RIGHT()", "DESCEND( String, Length)" } )
AADD( aITEM2, { "SELECT()", "SELECT()" } )
AADD( aITEM2, { "SOUNDEX()", "SOUNDEX( String )" } )
AADD( aITEM2, { "SPACE()", "SPACE( Length )" } )
AADD( aITEM2, { "SQRT()", "SQRT( Numeric )" } )
AADD( aITEM2, { "STOD()", "STOD( String )" } )
AADD( aITEM2, { "STR()", "STR( String, Start, Length )" } )
AADD( aITEM2, { "STRTRAN()", "STRTRAN( TargetStr., SearchStr., ReplaceStr.)" } )
AADD( aITEM2, { "STRZERO()", "STRZERO( Number, Length, Decimal )" } )
AADD( aITEM2, { "SUBSTR()", "SUBSTR( String, Start, Length )" } )
AADD( aITEM2, { "TIME()", "TIME()" } )
AADD( aITEM2, { "TRIM()", "TRIM( String )" } )
AADD( aITEM2, { "UPPER()", "UPPER( String )" } )
AADD( aITEM2, { "VAL()", "VAL( String )" } )
AADD( aITEM2, { "YEAR()", "YEAR( Datefield )" } )

I := 1
FOR I := 1 TO LEN( aITEM2 )
    aITEM1[I] :=  aITEM2[I][1]
NEXT

@ 4.5, 17.3 COMBOBOX oCombo VAR cFunction ITEMS  aITEM1 ;
OF oDlg SIZE 92, 50 ON CHANGE ( cExp += Left( cFunction, Len( cFunction ) - 1 ) + " ", ;
                                                              cSyntax := aITEM2[oCombo:nAt][2], oSyntax:Refresh(), oExp:Refresh() )
   
@ 6, 23.1 SAY "Operators" OF oDlg SIZE 40, 10
@ 5.8, 23 BUTTON "=" OF oDlg SIZE 15, 15 ACTION ( cExp += " = ", oExp:Refresh() )
@ 5.8, 26.2 BUTTON "<>" OF oDlg SIZE 15, 15 ACTION ( cExp += " <> ", oExp:Refresh() )
@ 5.8, 29.4 BUTTON "+" OF oDlg SIZE 15, 15 ACTION ( cExp += " + ", oExp:Refresh() )
@ 5.8, 32.6 BUTTON "(" OF oDlg SIZE 15, 15 ACTION ( cExp += " ( ", oExp:Refresh() )
@ 5.8, 35.8 BUTTON ".T." OF oDlg SIZE 15, 15 ACTION ( cExp += " .T. ", oExp:Refresh() )
@ 6.8, 23 BUTTON "<" OF oDlg SIZE 15, 15 ACTION ( cExp += " < ", oExp:Refresh() )
@ 6.8, 26.2 BUTTON ">" OF oDlg SIZE 15, 15 ACTION ( cExp += " > ", oExp:Refresh() )
@ 6.8, 29.4 BUTTON "-" OF oDlg SIZE 15, 15 ACTION ( cExp += " - ", oExp:Refresh() )
@ 6.8, 32.6 BUTTON ")" OF oDlg SIZE 15, 15 ACTION ( cExp += " )", oExp:Refresh() )
@ 6.8, 35.8 BUTTON ".F." OF oDlg SIZE 15, 15 ACTION ( cExp += " .F. ", oExp:Refresh() )
@ 7.8, 23 BUTTON "<=" OF oDlg SIZE 15, 15 ACTION ( cExp += " <= ", oExp:Refresh() )
@ 7.8, 26.2 BUTTON ">=" OF oDlg SIZE 15, 15 ACTION ( cExp += " >= ", oExp:Refresh() )
@ 7.8, 29.4 BUTTON "*" OF oDlg SIZE 15, 15 ACTION ( cExp += " * ", oExp:Refresh() )
@ 7.8, 32.6 BUTTON "/" OF oDlg SIZE 15, 15 ACTION ( cExp += " / ", oExp:Refresh() )
@ 7.8, 35.8 BUTTON "$" OF oDlg SIZE 15, 15 ACTION ( cExp += " $ ", oExp:Refresh() )
@ 8.8, 23 BUTTON '"' OF oDlg SIZE 15, 15 ACTION ( cExp += '"', oExp:Refresh() )
@ 8.8, 26.2 BUTTON "!" OF oDlg SIZE 15, 15 ACTION ( cExp += " ! ", oExp:Refresh() )
@ 8.8, 29.4 BUTTON "SP" OF oDlg SIZE 15, 15 ACTION ( cExp += " ", oExp:Refresh() )
@ 8.8, 32.6 BUTTON "," OF oDlg SIZE 15, 15 ACTION ( cExp += ", ", oExp:Refresh() )
@ 8.8, 35.8 BUTTON ":" OF oDlg SIZE 15, 15 ACTION ( cExp += " : ", oExp:Refresh() )
@ 9.8, 23 BUTTON "AND" OF oDlg SIZE 27, 15 ACTION ( cExp += " .and. ", oExp:Refresh() )
@ 9.8, 28.4 BUTTON "OR" OF oDlg SIZE 27, 15 ACTION ( cExp += " .or. ", oExp:Refresh() )
@ 9.8, 33.7 BUTTON "NOT" OF oDlg SIZE 27, 15 ACTION ( cExp += " ! ", oExp:Refresh() )

@ 11.5, 13 BUTTON "&Ok" OF oDlg SIZE 45, 13 ACTION oDlg:End()

@ 11.5, 23 BUTTON "&Cancel" OF oDlg SIZE 45, 13 ACTION oDlg:End() CANCEL
           
ACTIVATE DIALOG oDlg CENTERED ;
ON INIT IIF( nBack2 < 27, SET_BRUSH(oDlg, nBack2, nGPosD, nGDirectD, .F.), NIL )  

return cExp
 

Best Regards
Uwe

[ukoenig]

Added Fieldcheck and .T. / .F.

Code: Select all  Expand view  RUN

local aITEM1[50]
..
..
AADD( aITEM2, { "ABS()", "ABS( numeric )", "N" } )
AADD( aITEM2, { "ALIAS()", "ALIAS()", "" } )
AADD( aITEM2, { "ALLTRIM()", "ALLTRIM( String )", "C" } )
AADD( aITEM2, { "AT()", "AT( SearchStr., TargetStr. )", "C" } )
AADD( aITEM2, { "CDOW()", "CDOW( Datefield )", "D" } )
AADD( aITEM2, { "CHR()", "CHR( Val )", "N" } )
AADD( aITEM2, { "CMONTH()", "CMONTH( Datefield )", "D" } )
AADD( aITEM2, { "CTOD()", "CTOD( String )", "C" } )
AADD( aITEM2, { "DATE()", "DATE()", "D" } )
AADD( aITEM2, { "DAY()", "DAY( Datefield )", "D" } )
AADD( aITEM2, { "DELETED()", "DELETED()", "" } )
AADD( aITEM2, { "DESCEND()", "DESCEND( String )", "C" } )
AADD( aITEM2, { "DMY()", "DMY( Datefield )", "D" } )
AADD( aITEM2, { "DTOC()", "DESCEND( String )", "C" } )
AADD( aITEM2, { "DTOS()", "DESCEND( String )", "C" } )
AADD( aITEM2, { "EMPTY()", "DESCEND( String )", "C" } )
AADD( aITEM2, { ".F. ", "Logical", "L" } )
AADD( aITEM2, { "IF()", "IF( Logical, True Result, False Result )", "L" } )
AADD( aITEM2, { "IIF()", "Logical, True Result, False Result )", "L" } )
AADD( aITEM2, { "INDEXKEY()", "DESCEND( String )", "C" } )
AADD( aITEM2, { "ISLOWER()", "ISLOWER( String )", "C" } )
AADD( aITEM2, { "ISUPPER()", "ISUPPER( String )", "C" } )
AADD( aITEM2, { "LEFT()", "LEFT( String, Length )", "C" } )
AADD( aITEM2, { "LEN()", "LEN( Expression )", "" } )
AADD( aITEM2, { "LOWER()", "LOWER( String )", "C" } )
AADD( aITEM2, { "MONTH()", "MONTH( Datefield )", "D" } )
AADD( aITEM2, { "ORDER()", "DESCEND( String )", "C" } )
AADD( aITEM2, { "ORDKEY()", "DESCEND( String )", "C" } )
AADD( aITEM2, { "PADC()", "PADC( String, Length, Character )", "C" } )
AADD( aITEM2, { "PADL()", "PADL( String, Length, Character )", "C" } )
AADD( aITEM2, { "PADR()", "PADR( String, Length, Character )", "C" } )
AADD( aITEM2, { "RAT()", "RAT( SearchStr., TargetStr. )", "C" } )
AADD( aITEM2, { "RECCOUNT()", "RECCOUNT()", "" } )
AADD( aITEM2, { "RECNO()", "RECNO()", "" } )
AADD( aITEM2, { "RIGHT()", "DESCEND( String, Length)", "C" } )
AADD( aITEM2, { "SELECT()", "SELECT()", "" } )
AADD( aITEM2, { "SOUNDEX()", "SOUNDEX( String )", "C" } )
AADD( aITEM2, { "SPACE()", "SPACE( String Length )", "C" } )
AADD( aITEM2, { "SQRT()", "SQRT( Numeric )", "N" } )
AADD( aITEM2, { "STOD()", "STOD( String )", "C" } )
AADD( aITEM2, { "STR()", "STR( String, Start, Length )", "C"} )
AADD( aITEM2, { "STRTRAN()", "STRTRAN( TargetStr., SearchStr., ReplaceStr.)", "C" } )
AADD( aITEM2, { "STRZERO()", "STRZERO( Number, Length, Decimal )", "N" } )
AADD( aITEM2, { "SUBSTR()", "SUBSTR( String, Start, Length )", "C" } )
AADD( aITEM2, { "TIME()", "TIME()", "" } )
AADD( aITEM2, { ".T. ", "Logical", "L" } )
AADD( aITEM2, { "TRIM()", "TRIM( String )", "C" } )
AADD( aITEM2, { "UPPER()", "UPPER( String )", "C" } )
AADD( aITEM2, { "VAL()", "VAL( String )", "C" } )
AADD( aITEM2, { "YEAR()", "YEAR( Datefield )", "D" } )
..
..
@ 4.5, 17.3 COMBOBOX oCombo VAR cFunction ITEMS  aITEM1 ;
OF oDlg SIZE 92, 50 ON CHANGE ( cSyntax := aITEM2[oCombo:nAt][2], oSyntax:Refresh(), ;
          IIF( oBrw:aRow[ 2 ] <> aITEM2[oCombo:nAt][3] .and. ;                 
                !EMPTY( aITEM2[oCombo:nAt][3] ) , ;
                MsgAlert( "Wrong Fieldtype !","ERROR" ), ;
             ( cExp += Left( cFunction, Len( cFunction ) - 1 ) + " ", ;
               oExp:Refresh() ) ) )
..
..
 

Best Regards
Uwe

[tiaofw]

Hello, good morning.

The following error occurred:

Code: Select all  Expand view  RUN

Application
===========
   Path and name: C:\dowloads\fivedbu_20120614_2\fivedbu.exe (32 bits)
   Size: 5,333,504 bytes
   Compiler version: Harbour 3.2.0dev (Rev. 17516)
   FiveWin  Version: FWH 12.05
   Windows version: 6.1, Build 7601 Service Pack 1

   Time from start: 0 hours 0 mins 7 secs
   Error occurred at: 25/08/2012, 14:06:22
   Error description: Error BASE/1001  Undefined function: DESCEND
   Args:
     [   1] = C        

Stack Calls
===========
   Called from:  => DESCEND( 0 )
   Called from:  => DBUSEAREA( 0 )
   Called from: C:\fwteam\samples\fivedbu.prg => OPEN( 143 )
   Called from: C:\fwteam\samples\fivedbu.prg => (b)MAIN( 35 )
   Called from: .\source\classes\BTNBMP.PRG => TBTNBMP:CLICK( 465 )
   Called from: .\source\classes\BTNBMP.PRG => TBTNBMP:LBUTTONUP( 656 )
   Called from: .\source\classes\CONTROL.PRG => TCONTROL:HANDLEEVENT( 1690 )
   Called from: .\source\classes\BTNBMP.PRG => TBTNBMP:HANDLEEVENT( 1408 )
   Called from: .\source\classes\WINDOW.PRG => _FWH( 3159 )
   Called from:  => WINRUN( 0 )
   Called from: .\source\classes\WINDOW.PRG => TMDIFRAME:ACTIVATE( 980 )
   Called from: C:\fwteam\samples\fivedbu.prg => MAIN( 59 )

System
======
   CPU type: Intel(R) Core(TM) i5-2430M CPU @ 2.40GHz 2400 Mhz
   Hardware memory: 6052 megs

   Free System resources: 90 %
        GDI    resources: 90 %
        User   resources: 90 %

   Windows total applications running: 18
      1 ,
      2 , C:\MymakeW\MyMakeW.exe
      3 , C:\Program Files (x86)\Dell Webcam\Dell Webcam Central\WebcamDell2.exe
      4 , C:\Program Files (x86)\Intel\Intel(R) Rapid Storage Technology\IAStorIcon.exe
      5 , C:\Program Files (x86)\LogMeIn Hamachi\hamachi-2-ui.exe
      6 , C:\Program Files (x86)\Windows Live\Messenger\msnmsgr.exe
      7 DP_GlobalAvatarIcon, C:\Program Files (x86)\DigitalPersona\Bin\DPAgent.exe
      8 DP_LocalAvatar, C:\Program Files (x86)\UtopiaPlanitia\Med CX 4.0\medcx.exe
      9 DP_LocalAvatar, C:\dowloads\fivedbu_20120614_2\fivedbu.exe
     10 Free Fall Data Protection, C:\Program Files (x86)\STMicroelectronics\AccelerometerP11\FF_Protection.exe
     11 HPWU, C:\Program Files (x86)\HP\HP Software Update\hpwuSchd2.exe
     12 Plug&Pay, C:\Program Files (x86)\SETIS\Plug&Pay\PlugPay.exe
     13 Redecard - TEF Discado - Versão 5.0.0 - Simulador (SGP50011093), c:\tef_dial\redecard\redecard.exe
     14 RoxioBurnLauncher_Monitor, C:\Program Files (x86)\Roxio\OEM\Roxio Burn\RoxioBurnLauncher.exe
     15 SR Monitor, C:\Program Files (x86)\HP\Digital Imaging\bin\HpqSRmon.exe
     16 TEF DISCADO - Versão 4.0, C:\Tef_Dial\tef_dial.exe
     17 Terminal 00, C:\Program Files (x86)\SETIS\Plug&Pay\PGTerm.exe
     18 USB 3.0 Monitor, C:\Program Files (x86)\NEC Electronics\USB 3.0 Host Controller Driver\Application\nusb3mon.exe

Variables in use
================
   Procedure     Type   Value
   ==========================
   DESCEND
     Param   1:    O    Class: ERROR
   DBUSEAREA
     Param   1:    C    "      "
     Local   1:    U    
     Local   2:    U    
   OPEN
     Param   1:    L    .T.
     Param   2:    C    "DBFCDX"
     Param   3:    C    "C:\SALCVERSAO140FONTES\RECEBER.DBF"
     Param   4:    C    "RECEBER"
     Param   5:    L    .T.
     Param   6:    L    .F.
     Local   1:    C    "          "
   (b)MAIN
     Local   1:    C    "C:\SALCVERSAO140FONTES\RECEBER.DBF"
     Local   2:    U    
     Local   3:    U    
     Local   4:    U    
     Local   5:    U    
     Local   6:    U    
     Local   7:    U    
     Local   8:    U    
     Local   9:    U    
     Local  10:    U    
     Local  11:    U    
     Local  12:    C    "RECEBER"
     Local  13:    U    
     Local  14:    U    
     Local  15:    U    
   TBTNBMP:CLICK
     Param   1:    O    Class: TBTNBMP
   TBTNBMP:LBUTTONUP
   TCONTROL:HANDLEEVENT
     Param   1:    N    49
     Param   2:    N    44
     Param   3:    N    0
     Local   1:    L    .T.
     Local   2:    S    
   TBTNBMP:HANDLEEVENT
     Param   1:    N    514
     Param   2:    N    0
     Param   3:    N    3211308
     Local   1:    U    
   _FWH
     Param   1:    N    514
     Param   2:    N    0
     Param   3:    N    3211308
   WINRUN
     Param   1:    N    3211308
     Param   2:    N    514
     Param   3:    N    0
     Param   4:    N    3211308
     Param   5:    N    5
     Local   1:    O    Class: TBTNBMP
   TMDIFRAME:ACTIVATE
     Param   1:    N    1574712
   MAIN
     Param   1:    C    "MAXIMIZED"
     Param   2:    U    
     Param   3:    U    
     Param   4:    U    
     Param   5:    U    
     Param   6:    B    {|| ... }
     Param   7:    U    
     Param   8:    U    
     Param   9:    U    
     Param  10:    U    
     Param  11:    U    
     Param  12:    U    
     Param  13:    U    
     Param  14:    U    
     Param  15:    U    
     Param  16:    U    
     Param  17:    B    {|| ... }
     Param  18:    U    
     Param  19:    U    
     Local   1:    O    Class: TMDIFRAME
     Local   2:    U    
     Local   3:    U    

Linked RDDs
===========
   DBF
   DBFFPT
   DBFBLOB
   DBFCDX
   DBFNTX

DataBases in use
================

  1: => RECEBER                            RddName: DBFCDX
     ==============================
     RecNo    RecCount    BOF   EOF
       1538         1537      .T.   .T.

     Indexes in use                        TagName

     Relations in use

Classes in use:
===============
     1 ERROR
     2 HBCLASS
     3 HBOBJECT
     4 SCALAROBJECT
     5 ARRAY
     6 BLOCK
     7 CHARACTER
     8 DATE
     9 HASH
    10 LOGICAL
    11 NIL
    12 NUMERIC
    13 POINTER
    14 TINI
    15 TWINDOW
    16 TCONTROL
    17 TBITMAP
    18 TBRUSH
    19 TMDIFRAME
    20 TMENU
    21 TMENUITEM
    22 TMRU
    23 TMDICLIENT
    24 TFONT
    25 TBAR
    26 TRECT
    27 TBTNBMP
    28 TMSGBAR
    29 TMSGITEM
    30 TTIMER
    31 TREG32

Memory Analysis
===============
      291 Static variables

   Dynamic memory consume:
      Actual  Value:          0 bytes
      Highest Value:          0 bytes



 

Apparently fivedbu not recognize the clause DESCEND.

Stay there a hint of correction.

Thank you.

[Antonio Linares]

Tiao,

Please try to rebuild FiveDBU adding:

extern Descend

at its top

[Eoeo]

I'm making a small class to create filter from any Xbrowse or Dbf

you must only give to class this arrays :

local aCampos :={'FIRST','LAST','STREET','CITY','STATE'}
local aTitulos :={'First','Last','Street','City','State'}
local aTipos :={'C','C','C','C','C'}


Filter(aCampos,aTitulos,aTipos,cInifile,oParent,oBrw,cDbf)


It create a string filter to save on Inifile and activate on line


this a first beta versione picture :

[tiaofw]

Anthony Thanks for the reply!

Follows another error in FIVEDBU:

Code: Select all  Expand view  RUN

Application
===========
   Path and name: C:\dowloads\fivedbu_20120614_2\fivedbu.exe (32 bits)
   Size: 5,333,504 bytes
   Compiler version: Harbour 3.2.0dev (Rev. 17516)
   FiveWin  Version: FWH 12.05
   Windows version: 6.1, Build 7601 Service Pack 1

   Time from start: 0 hours 33 mins 55 secs
   Error occurred at: 27/08/2012, 16:29:48
   Error description: Error DBCMD/2001  Workarea not in use: ORDKEYCOUNT

Stack Calls
===========
   Called from:  => ORDKEYCOUNT( 0 )
   Called from: .\source\classes\XBROWSE.PRG => (b)TXBROWSE_SETRDD( 3827 )
   Called from: .\source\classes\XBROWSE.PRG => (b)TXBROWSE( 407 )
   Called from: .\source\classes\XBROWSE.PRG => TXBROWSE:KEYCOUNT( 0 )
   Called from: .\source\classes\XBROWSE.PRG => TXBROWSE:REFRESH( 1184 )
   Called from: .\source\classes\XBROWSE.PRG => TXBROWSE:MAKEBRUSH( 5363 )
   Called from: .\source\classes\XBROWSE.PRG => (b)TXBROWSE( 437 )
   Called from: .\source\classes\XBROWSE.PRG => TXBROWSE:RESIZE( 0 )
   Called from:  => TWINDOW:HANDLEEVENT( 0 )
   Called from: .\source\classes\CONTROL.PRG => TCONTROL:HANDLEEVENT( 1700 )
   Called from: .\source\classes\XBROWSE.PRG => TXBROWSE:HANDLEEVENT( 11632 )
   Called from: .\source\classes\WINDOW.PRG => _FWH( 3159 )
   Called from:  => WNDADJCLIENT( 0 )
   Called from: .\source\classes\CONTROL.PRG => TXBROWSE:ADJCLIENT( 283 )
   Called from: .\source\classes\WINDOW.PRG => TMDICHILD:RESIZE( 2136 )
   Called from:  => TWINDOW:HANDLEEVENT( 0 )
   Called from: .\source\classes\MDICHILD.PRG => TMDICHILD:HANDLEEVENT( 322 )
   Called from: .\source\classes\WINDOW.PRG => _FWH( 3159 )
   Called from:  => SENDMESSAGE( 0 )
   Called from: .\source\classes\WINDOW.PRG => (b)TWINDOW( 555 )
   Called from: .\source\classes\WINDOW.PRG => TMDICLIENT:SENDMSG( 0 )
   Called from: .\source\classes\MDICLIEN.PRG => TMDICLIENT:CHILDCLOSE( 189 )
   Called from: .\source\classes\MDICHILD.PRG => TMDICHILD:END( 268 )
   Called from: C:\fwteam\samples\fivedbu.prg => (b)OPEN( 226 )
   Called from: .\source\classes\BTNBMP.PRG => TBTNBMP:CLICK( 465 )
   Called from: .\source\classes\BTNBMP.PRG => TBTNBMP:LBUTTONUP( 656 )
   Called from: .\source\classes\BTNBMP.PRG => TBTNBMP:LBUTTONDOWN( 596 )
   Called from: .\source\classes\CONTROL.PRG => TCONTROL:HANDLEEVENT( 1687 )
   Called from: .\source\classes\BTNBMP.PRG => TBTNBMP:HANDLEEVENT( 1408 )
   Called from: .\source\classes\WINDOW.PRG => _FWH( 3159 )
   Called from:  => WINRUN( 0 )
   Called from: .\source\classes\WINDOW.PRG => TMDIFRAME:ACTIVATE( 980 )
   Called from: C:\fwteam\samples\fivedbu.prg => MAIN( 59 )

System
======
   CPU type: Intel(R) Core(TM) i5-2430M CPU @ 2.40GHz 2400 Mhz
   Hardware memory: 6052 megs

   Free System resources: 90 %
        GDI    resources: 90 %
        User   resources: 90 %

   Windows total applications running: 22
      1 ,
      2 , C:\MymakeW\MyMakeW.exe
      3 , C:\Program Files (x86)\Dell Webcam\Dell Webcam Central\WebcamDell2.exe
      4 , C:\Program Files (x86)\LogMeIn Hamachi\hamachi-2-ui.exe
      5 , C:\Program Files (x86)\Skype\Phone\Skype.exe
      6 , C:\Program Files (x86)\Windows Live\Messenger\msnmsgr.exe
      7 .NET-BroadcastEventWindow.2.0.0.0.33c0d9d.0, C:\Program Files (x86)\Intel\Intel(R) Rapid Storage Technology\IAStorIcon.exe
      8 DP_GlobalAvatarIcon, C:\Program Files (x86)\DigitalPersona\Bin\DPAgent.exe
      9 DP_LocalAvatar, C:\Program Files (x86)\UtopiaPlanitia\Med CX 4.0\medcx.exe
     10 DP_LocalAvatar, C:\dowloads\fivedbu_20120614_2\fivedbu.exe
     11 Free Fall Data Protection, C:\Program Files (x86)\STMicroelectronics\AccelerometerP11\FF_Protection.exe
     12 HPWU, C:\Program Files (x86)\HP\HP Software Update\hpwuSchd2.exe
     13 Msg, C:\Program Files (x86)\Opera\pluginwrapper\opera_plugin_wrapper.exe
     14 Opera, C:\Program Files (x86)\Opera\opera.exe
     15 Plug&Pay, C:\Program Files (x86)\SETIS\Plug&Pay\PlugPay.exe
     16 PresenceSignIn, C:\Program Files (x86)\Windows Live\Contacts\wlcomm.exe
     17 Redecard - TEF Discado - Versão 5.0.0 - Simulador (SGP50011093), c:\tef_dial\redecard\redecard.exe
     18 RoxioBurnLauncher_Monitor, C:\Program Files (x86)\Roxio\OEM\Roxio Burn\RoxioBurnLauncher.exe
     19 SR Monitor, C:\Program Files (x86)\HP\Digital Imaging\bin\HpqSRmon.exe
     20 TEF DISCADO - Versão 4.0, C:\Tef_Dial\tef_dial.exe
     21 Terminal 00, C:\Program Files (x86)\SETIS\Plug&Pay\PGTerm.exe
     22 USB 3.0 Monitor, C:\Program Files (x86)\NEC Electronics\USB 3.0 Host Controller Driver\Application\nusb3mon.exe

Variables in use
================
   Procedure     Type   Value
   ==========================
   ORDKEYCOUNT
     Param   1:    O    Class: ERROR
   (b)TXBROWSE_SETRDD
     Local   1:    U    
     Local   2:    U    
   (b)TXBROWSE
     Local   1:    N    2
   TXBROWSE:KEYCOUNT
     Param   1:    O    Class: TXBROWSE
     Local   1:    S    
     Local   2:    O    Class: TXBROWSE
   TXBROWSE:REFRESH
   TXBROWSE:MAKEBRUSH
     Local   1:    L    .F.
     Local   2:    U    
   (b)TXBROWSE
   TXBROWSE:RESIZE
     Param   1:    O    Class: TXBROWSE
     Param   2:    N    0
     Param   3:    N    1152
     Param   4:    N    264
   TWINDOW:HANDLEEVENT
     Param   1:    N    0
     Param   2:    N    1152
     Param   3:    N    264
   TCONTROL:HANDLEEVENT
     Param   1:    N    5
     Param   2:    N    0
     Param   3:    N    17302656
   TXBROWSE:HANDLEEVENT
     Param   1:    N    5
     Param   2:    N    0
     Param   3:    N    17302656
     Local   1:    U    
   _FWH
     Param   1:    N    5
     Param   2:    N    0
     Param   3:    N    17302656
   WNDADJCLIENT
     Param   1:    N    17302656
     Param   2:    N    5
     Param   3:    N    0
     Param   4:    N    17302656
     Param   5:    N    222
     Local   1:    O    Class: TXBROWSE
   TXBROWSE:ADJCLIENT
     Param   1:    N    658076
     Param   2:    N    3213012
     Param   3:    N    985676
     Param   4:    U    
     Param   5:    U    
     Param   6:    U    
     Param   7:    N    0
   TMDICHILD:RESIZE
     Local   1:    N    3213012
     Local   2:    N    985676
     Local   3:    U    
     Local   4:    U    
   TWINDOW:HANDLEEVENT
     Param   1:    N    0
     Param   2:    N    1171
     Param   3:    N    378
   TMDICHILD:HANDLEEVENT
     Param   1:    N    5
     Param   2:    N    0
     Param   3:    N    24773779
   _FWH
     Param   1:    N    5
     Param   2:    N    0
     Param   3:    N    24773779
   SENDMESSAGE
     Param   1:    N    24773779
     Param   2:    N    5
     Param   3:    N    0
     Param   4:    N    24773779
     Param   5:    N    206
     Local   1:    O    Class: TMDICHILD
   (b)TWINDOW
     Param   1:    N    854544
     Param   2:    N    545
     Param   3:    N    1836860
     Param   4:    U    
   TMDICLIENT:SENDMSG
     Param   1:    O    Class: TMDICLIENT
     Param   2:    N    545
     Param   3:    N    1836860
     Local   1:    U    
   TMDICLIENT:CHILDCLOSE
     Param   1:    N    545
     Param   2:    N    1836860
   TMDICHILD:END
     Param   1:    O    Class: TMDICHILD
     Local   1:    N    2
   (b)OPEN
     Local   1:    L    .F.
   TBTNBMP:CLICK
     Param   1:    O    Class: TBTNBMP
   TBTNBMP:LBUTTONUP
   TBTNBMP:LBUTTONDOWN
     Param   1:    N    34
     Param   2:    N    41
     Local   1:    U    
     Local   2:    L    .T.
   TCONTROL:HANDLEEVENT
     Param   1:    N    34
     Param   2:    N    41
     Param   3:    N    1
   TBTNBMP:HANDLEEVENT
     Param   1:    N    513
     Param   2:    N    1
     Param   3:    N    2228265
     Local   1:    U    
   _FWH
     Param   1:    N    513
     Param   2:    N    1
     Param   3:    N    2228265
   WINRUN
     Param   1:    N    2228265
     Param   2:    N    513
     Param   3:    N    1
     Param   4:    N    2228265
     Param   5:    N    221
     Local   1:    O    Class: TBTNBMP
   TMDIFRAME:ACTIVATE
     Param   1:    N    5507188
   MAIN
     Param   1:    C    "MAXIMIZED"
     Param   2:    U    
     Param   3:    U    
     Param   4:    U    
     Param   5:    U    
     Param   6:    B    {|| ... }
     Param   7:    U    
     Param   8:    U    
     Param   9:    U    
     Param  10:    U    
     Param  11:    U    
     Param  12:    U    
     Param  13:    U    
     Param  14:    U    
     Param  15:    U    
     Param  16:    U    
     Param  17:    B    {|| ... }
     Param  18:    U    
     Param  19:    U    
     Local   1:    O    Class: TMDIFRAME
     Local   2:    U    
     Local   3:    U    

Linked RDDs
===========
   DBF
   DBFFPT
   DBFBLOB
   DBFCDX
   DBFNTX

DataBases in use
================

  1:    ARQVEN_T                           RddName: DBFCDX
     ==============================
     RecNo    RecCount    BOF   EOF
        137          138      .F.   .F.

     Indexes in use                        TagName
        => codped                             ARQVEN_T
           dtos(datavend)                     ARQVEN_T1
           razao+dtos(datavend)               ARQVEN_T2
           codcli+dtos(datavend)              ARQVEN_T3
           dtos(datavend)+codped              ARQVEN_T4
           codved+codped                      ARQVEN_T5
           codcli                             ARQVEN_T6
           cupom+ecf                          ARQVEN_T7

     Relations in use

Classes in use:
===============
     1 ERROR
     2 HBCLASS
     3 HBOBJECT
     4 SCALAROBJECT
     5 ARRAY
     6 BLOCK
     7 CHARACTER
     8 DATE
     9 HASH
    10 LOGICAL
    11 NIL
    12 NUMERIC
    13 POINTER
    14 TINI
    15 TWINDOW
    16 TCONTROL
    17 TBITMAP
    18 TBRUSH
    19 TMDIFRAME
    20 TMENU
    21 TMENUITEM
    22 TMRU
    23 TMDICLIENT
    24 TFONT
    25 TBAR
    26 TRECT
    27 TBTNBMP
    28 TMSGBAR
    29 TMSGITEM
    30 TTIMER
    31 TMDICHILD
    32 TXBROWSE
    33 TXBRWCOLUMN
    34 TSCROLLBAR
    35 TREG32

Memory Analysis
===============
      291 Static variables

   Dynamic memory consume:
      Actual  Value:          0 bytes
      Highest Value:          0 bytes


 

Thank you.

[Antonio Linares]

This is because you closed the used DBF from another window having some child windows using it.