xBrowse ASC / VKey -viewer ( DOWNLOAD ) Upd. 3.2

[ukoenig]

Hello,

because I'm to lazy, searching always inside a ASC-table or loading a external appl,
I created a xBrowse-solution. The different CHR's are seperated in groups and
displayed inside a extra browser.
I noticed, serching for a value, nKeys < 100 must be edit with a 0 like 063
Maybe You like it :

Download :
http://www.pflegeplus.com/fw_downloads/Ascview.zip



Best Regards
Uwe

[MGA]

Thanks!

[ukoenig]

Hello,
for the new release with print-button, I need a REPORT-sample
printing 4 columns from 4 defined ARRAYS next each other : like the browsers :



CANNOT ADD AS CODE :
I explain :

The defined STRINGS

cCHAR1 := "ABCDEFGHIJKLMNOPQRSTUVWXYZ"
cCHAR2 := "abcdefghijklmnopqrstuvwxyzß"
cCHAR3 := "0123456789"
cCHAR4 := '^°!"§$%&/()=?\´`@€+*~#' + "'" + '<>|µ,;.:-_'

the created ARRAYS

I := 1
FOR I := 1 TO LEN( cCHAR1)
AADD(aArray1, { SUBSTR(cCHAR1,I,1), ASC(SUBSTR(cCHAR1,I,1)) })
NEXT
I := 1
FOR I := 1 TO LEN( cCHAR2)
AADD(aArray2, { SUBSTR(cCHAR2,I,1), ASC(SUBSTR(cCHAR2,I,1)) })
NEXT
I := 1
FOR I := 1 TO LEN( cCHAR3)
AADD(aArray3, { SUBSTR(cCHAR3,I,1), ASC(SUBSTR(cCHAR3,I,1)) })
NEXT
I := 1
FOR I := 1 TO LEN( cCHAR4)
AADD(aArray4, { SUBSTR(cCHAR4,I,1), ASC(SUBSTR(cCHAR4,I,1)) })
NEXT

As code NOT possible because :

General Error
SQL ERROR [ mysql4 ]
Incorrect string value: '\xC2
An SQL error occurred while fetching this page. Please contact the Board Administrator if this problem persists.

Best Regards
Uwe

[ADutheil]

Uwe,

Define the action of your print button: ACTION Print( cChar1, cChar2, cChar3, cChar4 )

Code: Select all  Expand view

STATIC FUNCTION Print( cChar1, cChar2, cChar3, cChar4 )
LOCAL nMaxiArray
LOCAL aPrint        := {}
LOCAL I
LOCAL aArray1 := {}
LOCAL aArray2 := {}
LOCAL aArray3 := {}
LOCAL aArray4 := {}
LOCAL oRepo

I := 1
FOR I := 1 TO LEN( cCHAR1)
    AADD(aArray1, { SUBSTR(cCHAR1,I,1), ASC(SUBSTR(cCHAR1,I,1)) })
NEXT
nMaxiArray := I
I := 1
FOR I := 1 TO LEN( cCHAR2)
    AADD(aArray2, { SUBSTR(cCHAR2,I,1), ASC(SUBSTR(cCHAR2,I,1)) })
NEXT
nMaxiArray := max( nMaxiArray, I )
I := 1
FOR I := 1 TO LEN( cCHAR3)
    AADD(aArray3, { SUBSTR(cCHAR3,I,1), ASC(SUBSTR(cCHAR3,I,1)) })
NEXT
nMaxiArray := max( nMaxiArray, I )
I := 1
FOR I := 1 TO LEN( cCHAR4)
    AADD(aArray4, { SUBSTR(cCHAR4,I,1), ASC(SUBSTR(cCHAR4,I,1)) })
NEXT
nMaxiArray := max( nMaxiArray, I )

FOR I := 1 TO nMaxiArray
    IF I <= len( aArray1 )
        aAdd( aPrint, { aArray1[ I, 1 ], str( aArray1[ I, 2 ], 3 ) } )
    ELSE
        aAdd( aPrint, { space( 1 ), space( 4 ) } )
    ENDIF
    IF I <= len( aArray2 )
        aAdd( aTail( aPrint ), aArray2[ I, 1 ] )
        aAdd( aTail( aPrint ), str( aArray2[ I, 2 ], 3 ) )
    ELSE
        aAdd( aTail( aPrint ), space( 1 ) )
        aAdd( aTail( aPrint ), space( 4 ) )
    ENDIF
    IF I <= len( aArray3 )
        aAdd( aTail( aPrint ), aArray3[ I, 1 ] )
        aAdd( aTail( aPrint ), str( aArray3[ I, 2 ], 3 ) )
    ELSE
        aAdd( aTail( aPrint ), space( 1 ) )
        aAdd( aTail( aPrint ), space( 4 ) )
    ENDIF
    IF I <= len( aArray4 )
        aAdd( aTail( aPrint ), aArray4[ I, 1 ] )
        aAdd( aTail( aPrint ), str( aArray4[ I, 2 ], 3 ) )
    ELSE
        aAdd( aTail( aPrint ), space( 1 ) )
        aAdd( aTail( aPrint ), space( 4 ) )
    ENDIF
NEXT
I := 1

REPORT oRepo TITLE  "*** ASC TABLE BY UWE ***","" PREVIEW
    COLUMN TITLE "CHR" DATA aPrint[ I, 1 ] SIZE 5
    COLUMN TITLE "ASC" DATA aPrint[ I, 2 ] SIZE 5
    COLUMN TITLE "CHR" DATA aPrint[ I, 3 ] SIZE 5
    COLUMN TITLE "ASC" DATA aPrint[ I, 4 ] SIZE 5
    COLUMN TITLE "CHR" DATA aPrint[ I, 5 ] SIZE 5
    COLUMN TITLE "ASC" DATA aPrint[ I, 6 ] SIZE 5
    COLUMN TITLE "CHR" DATA aPrint[ I, 7 ] SIZE 5
    COLUMN TITLE "ASC" DATA aPrint[ I, 8 ] SIZE 5
END REPORT
IF oRepo:lCreated
  oRepo:bSkip := {|| I ++ }
ENDIF
ACTIVATE REPORT oRepo WHILE I <= len( aPrint )
RETURN NIL

[ukoenig]

André,

Thank You very much for Your help.
Now it works / includes the things I needed.
One browser solution .

New Download 1.2 :
http://www.pflegeplus.com/fw_downloads/Ascview2.zip

(

(

Best Regards
Uwe

[ukoenig]

A extended version .
Now You can create Your own viewer with any Brush-background-combination and Textcolor
A working PRG / EXE will be generated with or without a main-window.
As well it is a tool, to optimize the background-selection between Window, Dialog, Folder and Text.

Download
http://www.pflegeplus.com/fw_downloads/Ascview21.zip

I'm still looking for a solution, to bring EXCEL to FRONT !!!!
You can test it from inside the Tables

A new Main-window added.
Create Window- or Dialog-EXE added.
Info of all Settings / Sekection added.
Background-painters added.
Creates a PRG and EXE
Two Styles : with Mainwindow or only Dialog

Please adjust these link-files :

GOW.bat and WASC.rmk
and
GOD.bat and DASC.rmk



Viw the ASC-table



View the VKey-table



Create / select any brush-combination between Window / Dialog and Folder



A extra folder-tab, to select the BMP- and Image-brush



The Window-background can be selected from a extra Dialog.



A overview of all settings / selections



Best Regards
Uwe

[ADutheil]

Uwe,

Compiled with MSVC excel (2007) goes to front. The only change I did was to remove line 627 from wasc.prg because it throwed an error: wasc.prg(627) Error E0030 Syntax error "syntax error at '|'"

[ukoenig]

André,

Thank You very much for testing.
There are 2 compiled versions included ( EXE )
WAsc.exe ( with Mainwindow )
and DAsc.exe ( only Dialog ).
There Excel is not shown on TOP ?
Maybe someting to do with my config.
Can You send me Your recompiled Version by Email for a test ?
esckoenig@aol.com

The error, I don't understand :

DEFINE DIALOG oDlg1 FROM 30, 50 TO 650, 800 OF oWnd PIXEL ;
627 STYLE nOR( DS_MODALFRAME | WS_POPUP | WS_DLGFRAME | WS_THICKFRAME )

Best Regards
Uwe

[ADutheil]

Sent.

[Euclides]

Hello Uwe, nice job!
Here, to compile WASC.PRG, had to change the line # 627 to:
STYLE nOR( DS_MODALFRAME , WS_POPUP, WS_DLGFRAME, WS_THICKFRAME )
The Excel opens at the front.
Regards, Euclides.

[ukoenig]

New Update 3.1

now You can create Your own tables, because
Array changed to DBF.
Complete rewritten with many new functions.

Download :
http://www.pflegeplus.com/fw_downloads/ascview3.zip





Create a viewer with a main-window



Create a viewer with only a Dialog



Define any background-combination between Window / Dialog and Folder
A overview of all selected selected values



Best Regards
Uwe

[ukoenig]

New Update 3.2

added colored xbrowse-cell,
showing the incremental search result of a key
Because all settings are saved in the first record of ASCKEYS.dbf, there is no need
to recompile WASC.exe and DASC.exe.
Changing brushes or colors, is done with the main-appl. ASCVIEW.exe



You can change the cellcolor of the seach-result


Download :
( only the needed update-files )

http://www.pflegeplus.com/fw_downloads/asupd2.zip

Best Regards
Uwe