XProfan

XProfan X2
WinXP, SP3 v.3244, P4 3.06GHz

- Page 1 -

Sometime I had the well too time as "Online-Service" -

The Nity format ohnehin any Source and there could the indeed as separates feature abrufbar his. ^^

Christof
Neuß

Hello Andreas,

class!!! THANK YOU!

sees already very well from. certainly can You me yet explain, Why sometimes the ENDPROC not recognized becomes? Z.B. here:

Compile Mark Separation

PROC KriterienBearbeiten'---------------------------------------------------------------------------> Dialoganfang

    DECLARE Dialogende%
    DECLARE FALISTVIEW1&
    DECLARE Button1&
    DECLARE Button2&
    DECLARE Ueber$[]
    VAR AenderungsSpalten$="011111"
    VAR FALISTVIEWDLL&=USEDLL("LISTVIEW.DLL")
    VAR DLG&=CREATE("DIALOG",%HWND,"Selektionskriterien erfassen/bearbeiten",180,200,800,270)
    VAR UeberTrans1$=Space$(35)
    VAR UeberTrans2$=Space$(35)
    SetODBCSpalten "TZZZZZ"
    Ueber$[0]="Kundengruppe"
    Ueber$[1]="Anlagevolumen"
    Ueber$[2]="Aktivvolumen"
    Ueber$[3]="Gehalt"
    Ueber$[4]="Klasse/Segment VON"
    Ueber$[5]="Klasse/Segment BIS"
    USEFONT "MS Sans Serif",13,0,0,0,0
    SETDIALOGFONT 1
    FALISTVIEW1& = CREATELISTVIEW(DLG&,%HINSTANCE,0,$FFFFFF,-1,$31)
    LVSQL("Select * from T_Bank_Kriterien",FALISTVIEW1&)
    EnableEdits(FALISTVIEW1&,7)
    SelectColumnEdits(FALISTVIEW1&,addr(AenderungsSpalten$))

    WhileLoop 0,5

        GetColumnName(FALISTVIEW1&,addr(UeberTrans1$),&LOOP)
        UeberTrans2$=Ueber$[&LOOP]
        SetColumnName(FALISTVIEW1&,addr(UeberTrans2$),&LOOP)
        Ueber$[&LOOP]=Trim $(UeberTrans1$)

        if &LOOP>0

            Bugfix 02.01(FALISTVIEW1&,&LOOP,1)

        endif

    EndWhile

    SHOWLISTVIEW(FALISTVIEW1&,0020,0010,0740,0150)
    BUTTON1& =@CREATE("BUTTON",DLG&,"Speichern",0600,0180,0070,0030)
    BUTTON2& =@CREATE("BUTTON",DLG&,"Abbruch"  ,0700,0180,0070,0030)
    InitMessages(DLG&)
    SETFOCUS(DLG&)
    DIALOGENDE%=0

    WHILENOT DIALOGENDE%

        WAITINPUT

        If %KEY=2

            DIALOGENDE%= 1

        ELSEIF CLICKED(BUTTON1&)'BUTTON Save

            WhileLoop 0,5

                GetColumnName(FALISTVIEW1&,addr(UeberTrans1$),&LOOP)
                UeberTrans2$=Ueber$[&LOOP]
                SetColumnName(FALISTVIEW1&,addr(UeberTrans2$),&LOOP)
                Ueber$[&LOOP]=Trim $(UeberTrans1$)

            EndWhile

            LV2ODBC("",0,"T_Bank_Kriterien",1,0,FALISTVIEW1&)
            DIALOGENDE%=1

        ElseIF CLICKED(BUTTON2&)'BUTTON discontinue

            DIALOGENDE%=1

        ENDIF

    ENDWHILE

    DESTROYWINDOW(DLG&)
    CloseMessages(DLG&)
    FREEDLL FALISTVIEWDLL&

ENDPROC

PROC FilialenBearbeiten

    DECLARE Dialogende%

Win10 16 GB RAM

Christof
Neuß

Haha.... now be I on it reingefallen.
@iF: Tja, whom Formatierer here had I naturally too benefit can. working well. is only EVTL. here and there something umständlich.

in the angegenen code becomes with "EndProc" not again ausgerückt

Win10 16 GB RAM

Christof
Neuß

Hello Andreas,

I hab's found.
it's located on the row:

SelectColumnEdits(FALISTVIEW1&,addr(AenderungsSpalten$))

"Select" becomes as Beginn of/ one structure interprets, though not as word on my own standing. what can I because there make?

THANK YOU!

Win10 16 GB RAM

Andreas
Miethe

DOKTOR XPROFAN EHRENHALBER

Hello Christof,

The question is sooner I there can make

Gruss
Andreas
________ ________ ________ ________ _
Profan 3.3 - XProfanX2
Win 95,98,ME,2000,XP,Vista - Win 7 32 / 64 Bit
ASUS X93S - Intel Core I7-NVIDIA GForce 540M 8GB Arbeitsspeicher
Homepage : [...]

Andreas
Miethe

DOKTOR XPROFAN EHRENHALBER

OK, Done !

Download directly over the editor : Menu aide -> editor update .

Christof
Neuß

Hi Andreas,

the would Yes SUPER,
but the gedownloadete ZIP-File contains again The same ZIP-File and whom middle-aged editor.

Perhaps only once more correctly. pack?

would me large joy make

Win10 16 GB RAM

Andreas
Miethe

DOKTOR XPROFAN EHRENHALBER

UPS

sorry.

new Version is uploaded.

XProfan X2
WinXP, SP3 v.3244, P4 3.06GHz

- Page 2 -

@Christof: Jupp, umständlich -

thatswhy my I Yes as "extra" service -

could I vlt. here at View source-Merker ( [...]

) as feature reinprogrammieren.

Christof
Neuß

@Andreas: THANK YOU! functions correct

Win10 16 GB RAM

Christof
Neuß

@iF: Yes, the would sure 'ne good place, circa so what einzubinden. How plenty View source can because here take on? is the somehow terminable?

Win10 16 GB RAM

XProfan X2
WinXP, SP3 v.3244, P4 3.06GHz

termless -

anyway there here no border How "Du must only so and so plenty Upload and Files can only so and so big sein" etc. -

You can on XProfan.com means so plenty Upload and post How You want or. so plenty as Browser-(programs) and Webserver verkraften. ^^

technical border Gibts naturally always -

there helps but z.B. simply try.