XProfan

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

- page 1 -

Irgendwann J'ai eu cela wohl aussi la fois comme "Online-Service" -

qui Nity formatiert de toute façon alle Source et là pourrait cela oui aussi comme separates Feature abrufbar son. ^ ^

Kompilieren Marque Séparation

Christof
Neuß

allô Andreas,

super!!! DANKE!

Sieht déjà très bien aus. Bestimmt peux Du mir encore expliquer, pourquoi quelquefois cela ENDPROC pas erkannt wird? Z.B. ici:

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

    DECLARE Dialogende%
    DECLARE FALISTVIEW1&
    DECLARE Button1&
    DECLARE Button2&
    DECLARE Ueber$[]
    VAR AenderungsSpalten$="011111"
    VAR FALISTVIEWDLL&=USEDLL("LISTVIEW.DLL")
    VAR DLG&=CREATE("Dialogue",%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 * à partir de 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$)

        si &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

        Si %KEY=2

            DIALOGENDE%= 1

        ELSEIF CLICKED(BUTTON1&)'BUTTON Sauver

            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.... maintenant suis je sur elle reingefallen.
@iF: Tja, den Formatierer ici hätte je naturellement aussi nutzen peut. Funzt wohl. Ist seulement EVTL. ici et là quelque chose compliqué.

Im angegenen Code wird chez "EndProc" pas wieder ausgerückt

Win10 16 GB RAM

Christof
Neuß

allô Andreas,

je hab's trouvé.
Es liegt à qui la ligne:

SelectColumnEdits(FALISTVIEW1&,addr(AenderungsSpalten$))

"Select" wird comme Beginn einer Struktur interpretiert, quoique es pas comme mot alleine steht. quoi peux je car là faire?

DANKE!

Win10 16 GB RAM

Andreas
Miethe

DOKTOR XPROFAN EHRENHALBER

allô Christof,

qui Frage ist plutôt quoi je là faire peux

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 !

Télécharger direct sur den Editor : menu Helfer -> Editor aktualisieren .

Christof
Neuß

Hi Andreas,

cela wäre oui SUPER,
mais qui gedownloadete ZIP-Dossier contient nochmal qui selbe ZIP-Dossier et den alten Editor.

peut-être seulement encore la fois richtig saisir?

Würdest mir une grand Freude faire

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, compliqué -

tambour mon je oui comme "extra" Dienst -

pourrait je vlt. ici beim Voir le texte source-Merker ( [...]

) comme Feature reinprogrammieren.

Christof
Neuß

@Andreas: DANKE! Funktioniert einwandfrei

Win10 16 GB RAM

Christof
Neuß

@iF: oui, cela wäre sûrement 'ne gute Stelle, um so quoi einzubinden. comment viel Voir le texte source peux on car ici einstellen? Ist cela irgendwie begrenzt?

Win10 16 GB RAM

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

illimité -

jedenfalls gibt es ici aucun Grenzen comment "Du darfst seulement so et so viel hochladen et Fichiers dürfen seulement so et aussi grand sein" etc. -

tu peux sur XProfan.Com alors so viel hochladen et posten comment Du vouloir bzw. so viel comment qui Browser-(Programme) et Webserver verkraften. ^ ^

Technischen Grenzen gibts naturellement toujours -

là hilft mais z.B. simple ausprobieren.