XProfan

Kompilieren Markieren Separieren

Rolf
Koch

Hi Georg,

eins kann ich Dir direkt verraten:
Edits auf Seiten besitzen keine Handles wie Du es unter der Windowsprogrammierung kennst.
Du kannst aber per Method Get und Profans Query vieles erreichen.
Achtung nachfolgender Code ist saualt und iF wird mich hoffentlich nicht killen, da ich zu diesem Zeitpunkt mit HTML noch nicht so viel am Hut hatte.
Hier der uralte Code.

declare query$,zeile$
declare user$, pass$, P1$,P2$,P3$,P4$,P5$,name$,p6$,p7$,p8$,p9$,p10$,p11$,extern$
declare U1$,U2$,U3$,U4$,U5$,U6$,U7$,u8$,U9$,u10$,u11$,namedate$,nametime$,namezeile$
declare P12$,U12$,P13$,U13$
def query(1) SubStr$(@$(1),2,=)
query$ = @GetEnv$(QUERY_STRING)           daten aus dem Query lesen, Method = GET

PROC AUSGABE

    *********** LOGDATEI *******************************
    Assign #2,C:Login.txt
    Append #2
    Print #2,USER  :,name$
    print #2,Datum:,@Date$ (1)
    print #2,Zeit  :,@Time$ (0)
    print #2,***********************************
    CLOSE #2
    ****************************************************
    WriteIni E:Extern.ini,Login,Name=name$
    let namedate$=ReadIni$ (C:Login.ini,name$,Datum)
    let nametime$=ReadIni$ (C:Login.ini,name$,Zeit)

    If @neq$(namedate$,)

        let Namezeile$=<center> Hallo <B>,name$, - ,</B> Du warst am,namedate$,um,nametime$,Uhr zuletzt hier! </center>

    Elseif @equ$(namedate$,)

        let Namezeile$=Hallo <B>,name$

    EndIf

    print #1,Namezeile$
    Hier wird eine Dummydatei eingelesen = Privat.txt
    Assign #3,C:Homepage2000HeimserverPrivat.txt
    RESET #3

    WHILENOT @Eof (#3)

        input #3,zeile$
        print #1,zeile$

    wend

    CLOSE #3
    WriteIni C:Login.ini,name$,Datum=@date$(1)
    WriteIni C:Login.ini,name$,Zeit=@time$(0)

ENDPROC

Passwörter vergeben:
let user$ = query(substr$(query$,1,&))    ersten parameter lesen
let pass$ = query(substr$(query$,2,&))    zweiten parameter lesen
Passwörter vergeben:
Diese könnten natürlich viel besser aus einer
verschlüsselten Datei eingelesen werden!!!
Und anstatt einzelne Variablen besser:
Arrayvariablen!
let U1$=User1
let P1$=Tubbie
let U2$=User2
let P2$=SHAMAN
let U3$=User3
let P3$=Lachs
let U4$=User4
let P4$=Umwelt
let U5$=User5
let P5$=Lenzegasse
let U6$=User6
let P6$=Zapatherm
let U7$=User7
let P7$=Held
let U8$=User8
let P8$=Fisch
let U9$=User9
let P9$=Nudel
let U10$=User10
let P10$=Senfdose
let U11$=User11
let P11$=Heidelbeer
let U12$=User12
let P12$=Nikolaus
let U13$=User13
let P13$=Hexe
********************************************
Assign #1,C:Ausgabe.htm                  Ausgabe vorbereiten, welche nach
diesem Loginprogramm angezeigt wird
Viele Möglichkeiten
Rewrite #1
print #1,<html>
print #1,<BODY bgcolor=#0000aa></body>
print #1,<Font color=#ffffff>

If @and(@equ$(user$,U1$),@equ$(pass$,P1$))                   Passwort richtig !

    Name$=User1
    AUSGABE

ELSEIf @and(@equ$(user$,U2$),@equ$(pass$,P2$))                   Passwort richtig !

    Name$=User2
    AUSGABE

ELSEIf @and(@equ$(user$,U3$),@equ$(pass$,P3$))                   Passwort richtig !

    Name$=User3
    AUSGABE

ELSEIf @and(@equ$(user$,U4$),@equ$(pass$,P4$))                   Passwort richtig !

    Name$=User4
    AUSGABE

ELSEIf @and(@equ$(user$,U5$),@equ$(pass$,P5$))                   Passwort richtig !

    Name$=User5
    AUSGABE

ELSEIf @and(@equ$(user$,U6$),@equ$(pass$,P6$))                   Passwort richtig !

    Name$=User6
    AUSGABE

ELSEIf @and(@equ$(user$,U7$),@equ$(pass$,P7$))                   Passwort richtig !

    Name$=User7
    AUSGABE

ELSEIf @and(@equ$(user$,U8$),@equ$(pass$,P8$))                   Passwort richtig !

    Name$=User8
    AUSGABE

ELSEIf @and(@equ$(user$,U9$),@equ$(pass$,P9$))                   Passwort richtig !

    Name$=User9
    AUSGABE

ELSEIf @and(@equ$(user$,U10$),@equ$(pass$,P10$))                   Passwort richtig !

    Name$=User10
    AUSGABE

ELSEIf @and(@equ$(user$,U11$),@equ$(pass$,P11$))                   Passwort richtig !

    Name$=User11
    AUSGABE

ELSEIf @and(@equ$(user$,U12$),@equ$(pass$,P12$))                   Passwort richtig !

    Name$=User12
    AUSGABE

ELSEIf @and(@equ$(user$,U13$),@equ$(pass$,P13$))                   Passwort richtig !

    Name$=User13
    AUSGABE

ELSEIF @and(@equ$(pass$,),@equ$(user$,))

    print #1,
    print #1,<center>
    print #1,Bitte alles ausfüllen!!!<BR>
    print #1,user$,pass$

ELSEIF @equ$(pass$,)

    print #1,
    print #1,<center>
    print #1,Kein Passwort eingegeben!!!<BR>

ELSEIF @equ$(user$,)

    print #1,
    print #1,<center>
    print #1,Kein Username angegeben!!!<BR>
    Else                                       Passwort falsch !
    print #1,
    print #1,<center>
    print #1,Falscher Username oder Passwort !!!<BR>

Endif

print #1,</font>
print #1,</html>
close #1

@Georg:

a) Ja - das geht.
b) Von Shop zu Shop müsstest Du unter Umständen eine völlig andere Technik anwenden.
c) Wenn es Dein eigener Shop ist: Null Problem - einfach eine Schnittstelle schaffen.
d) Wenn es ein Fremdshop ist: Finger weg! Derartige automatische Anfragen sind grundsätzlich nicht erlaubt.

Was genau hast Du vor?

GDL

Erstmal Danke,

ich habe ein Lagerprogramm, welches nach 10maligem Unterschreiten einer Sollmenge verschiedener Artikel eine Bestellung per FAX ausgibt.
Da hier aber keine Artikelprüfung stattfindet und die Lieferung wesentlich länger dauert, hatte ich mal so ne Idee.
Ich weis aber von unserem Hochregallagerverwaltungsprogramm, dass eine direkte automatische Onlinebestellung mit Artikelprüfung möglich ist.

Wollte eigendlich nur mal wissen ob auch mit Profan sowas möglich ist, oder ob dies eigene Lieferantenschnittstellen sind.

Servus
Georg

Windows7 Xprofan 8,9,10 [...]

[...]

Beides ginge sicher

GDL

Dann werde ich mich mal bei Conrad schlau machen. Vielleicht gibt es da auch so eine Art dataus Datei, wie beim Homebanking, die dann verschickt wird.

Mit den Dataus geht es auch. Ich buche direkt aus meiner Anwendung Lastschriften ab.

Servus
Georg

Windows7 Xprofan 8,9,10 [...]

[...]