XProfan

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

- Page 1 -

Irgendwann hatte ich das wohl auch mal als "Online-Service" -

die Nity formatiert ohnehin alle Fonte und da potuto das ja auch als separates Feature abrufbar sein. ^^

Kompilieren Markieren Separieren

Christof
Neuß

Hallo Andreas,

klasse!!! DANKE!

Sieht schon sehr gut aus. Bestimmt kannst Du mir noch erklären, warum manchmal das ENDPROC nicht erkannt wird? Z.B. hier:

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

            SetColumnAlignment(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 Speichern

            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 Abbruch

            DIALOGENDE%=1

        ENDIF

    ENDWHILE

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

EndProc

PROC FilialenBearbeiten

    DECLARE Dialogende%

Win10 16 GB RAM

Christof
Neuß

Haha.... jetzt bin ich drauf reingefallen.
@iF: Tja, den Formatierer hier hätte ich naturalmente auch nutzen können. Funzt wohl. Ist nur EVTL. hier und da etwas umständlich.

Im angegenen Code wird bei "EndProc" nicht wieder ausgerückt

Win10 16 GB RAM

Christof
Neuß

Hallo Andreas,

ich hab's gefunden.
Es liegt an der Zeile:

SelectColumnEdits(FALISTVIEW1&,addr(AenderungsSpalten$))

"Select" wird als Beginn einer Struktur interpretiert, obwohl es nicht als Wort alleine steht. Was kann ich denn da machen?

DANKE!

Win10 16 GB RAM

Andreas
Miethe

DOKTOR XPROFAN EHRENHALBER

Hallo Christof,

die Frage ist eher was ich da machen kann

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, erledigt !

Download direkt circa den Editor : Menü Helfer -> Editor aktualisieren .

Christof
Neuß

Hi Andreas,

das wäre ja SUPER,
aber die gedownloadete ZIP-File enthält nochmal die selbe ZIP-File und auch den alten Editor.

Vielleicht nur noch mal richtig packen?

Würdest mir eine grande Freude machen

Win10 16 GB RAM

Andreas
Miethe

DOKTOR XPROFAN EHRENHALBER

UPS

sorry.

Neue Version ist hochgeladen.

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

- Page 2 -

@Christof: Jupp, umständlich -

drum meine ich ja als "extra" Dienst -

potuto ich vlt. hier beim Quelltext-Merker ( [...]

) als Feature reinprogrammieren.

Christof
Neuß

@Andreas: DANKE! Funktioniert einwandfrei

Win10 16 GB RAM

Christof
Neuß

@iF: Ja, das wäre sicher 'ne gute Stelle, um so was einzubinden. Wie viel Quelltext kann man denn hier einstellen? Ist das irgendwie begrenzt?

Win10 16 GB RAM

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

Unbegrenzt -

jedenfalls gibt es hier keine Grenzen wie "Du darfst nur so und so viel hochladen und File dürfen nur so und so grande sein" etc. -

Du kannst auf XProfan.Com also so viel hochladen und posten wie Du möchtest bzw. so viel wie die Browser-(Programme) und Webserver verkraften. ^^

Technischen Grenzen gibts naturalmente immer -

da hilft aber z.B. einfach ausprobieren.