XProfan

Christof
Neuß

allô gens,

gibt es ici quelque chose aktuelles? je suis sur qui cherche pour oui c'est ca so einem Tool, là je la fois wieder pas so réglé était et überall qui passenden Einrückungen et so vorgenommen habe.

je travaille avec XProfED et LemonED. sommes là peut-être solche Funktionen déjà incorporé et j'ai vous seulement encore pas trouvé?

suis pour jeden Tipp reconnaissant.

Win10 16 GB RAM

Christof
Neuß

j'ai la fois den Quellcode-Formatierer aus qui BabyBox probiert.
malheureusement bekomme je une faute:

"string parse error dans line: 1034"

Grund pour ist wohl folgendes:
Kompilieren Marque Séparation

If RZ$="bank21"

    Hide(Tx_MBENCH_01&)
    Hide(PROGRESSBAR1&)
    Re_Text$="  Komprimierung MBench_VRC auf Kundennummern..."+Chr$(10):MSenden(0,0,0,0)
    DoSQL("Drop table T_bank21_MBench_VRC_Komp",1)
    SQL_Befehl$="Select VRC_KDNR AS komp_KDNR, \

Pour dem Backslash allez qui String dans qui prochain la ligne plus. chez XPSE ist cela ne...aucune Problem. là je cela assez souvent gemacht habe, wäre un paraphraser avec Anführungszeichen et "+"-marque assez aufwendig.

Win10 16 GB RAM

Andreas
Miethe

DOKTOR XPROFAN EHRENHALBER

Christof Neuß (01.11.11)

j'ai la fois den Quellcode-Formatierer aus qui BabyBox probiert.
malheureusement bekomme je une faute:

la hâte Du déjà la fois meinen Editor ( [...]

) versucht ?
F5 et alles ist formatiert.

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 : [...]

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

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