XProfan

Kompilieren Marque Séparation

Rolf
Koch

Hi Georg,

une peux je Dir direct verraten:
Edits sur Seiten besitzen aucun Handles comment Du es sous qui Windowsprogrammierung kennst.
tu peux mais per Method Get et Profans Query vieles erreichen.
attention nachfolgender Code ist saualt et iF wird mich hoffentlich pas killen, là je trop diesem la date avec HTML encore pas so viel am Hut hatte.
ici qui uralte Code.

declare query$,la ligne$
declare user$, pass$, P1$,P2$,P3$,P4$,P5$,nom$,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)           données aus dem Query lesen, Method = GET

PROC AUSGABE

    *********** LOGDATEI *******************************
    Assign #2,C:Login.txt
    Append #2
    Imprimer #2,USER  :,nom$
    imprimer #2,date:,@Date$ (1)
    imprimer #2,Zeit  :,@Time $ (0)
    imprimer #2,***********************************
    CLOSE #2
    ****************************************************
    WriteIni E:Extern.ini,Login,nom=nom$
    let namedate$=ReadIni$ (C:Login.ini,nom$,date)
    let nametime$=ReadIni$ (C:Login.ini,nom$,Zeit)

    Si @neq$(namedate$,)

        let Namezeile$=<center> allô <B>,nom$, - ,</B> Du étais am,namedate$,um,nametime$,montre zuletzt ici! </center>

    Elseif @equ$(namedate$,)

        let Namezeile$=allô <B>,nom$

    EndIf

    imprimer #1,Namezeile$
    ici wird une Dummydatei lire = Privat.txt
    Assign #3,C:Page d'accueil2000HeimserverPrivat.txt
    RESET #3

    WHILENOT @Eof (#3)

        input #3,la ligne$
        imprimer #1,la ligne$

    Wend

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

ENDPROC

Passwörter vergeben:
let user$ = query(substr$(query$,1,&))    ersten paramètre lesen
let pass$ = query(substr$(query$,2,&))    zweiten paramètre lesen
Passwörter vergeben:
cet könnten naturellement viel besser aus einer
verschlüsselten Dossier lire volonté!!!
et anstatt einzelne Variablen besser:
Arrayvariablen!
let U1$=User1
let P1$=Tubbie
let U2$=User2
let P2$=SHAMAN
let U3$=User3
let P3$=saumon
let U4$=User4
let P4$=le milieu
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, quelle pour
diesem Loginprogramm angezeigt wird
Viele Opportunités
Rewrite #1
imprimer #1,<html>
imprimer #1,<BODY bgcolor=#0000aa></body>
imprimer #1,<Font color=#ffffff>

Si @and(@equ$(user$,U1$),@equ$(pass$,P1$))                   Mot de passe richtig !

    nom$=User1
    AUSGABE

ELSEIf @and(@equ$(user$,U2$),@equ$(pass$,P2$))                   Mot de passe richtig !

    nom$=User2
    AUSGABE

ELSEIf @and(@equ$(user$,U3$),@equ$(pass$,P3$))                   Mot de passe richtig !

    nom$=User3
    AUSGABE

ELSEIf @and(@equ$(user$,U4$),@equ$(pass$,P4$))                   Mot de passe richtig !

    nom$=User4
    AUSGABE

ELSEIf @and(@equ$(user$,U5$),@equ$(pass$,P5$))                   Mot de passe richtig !

    nom$=User5
    AUSGABE

ELSEIf @and(@equ$(user$,U6$),@equ$(pass$,P6$))                   Mot de passe richtig !

    nom$=User6
    AUSGABE

ELSEIf @and(@equ$(user$,U7$),@equ$(pass$,P7$))                   Mot de passe richtig !

    nom$=User7
    AUSGABE

ELSEIf @and(@equ$(user$,U8$),@equ$(pass$,P8$))                   Mot de passe richtig !

    nom$=User8
    AUSGABE

ELSEIf @and(@equ$(user$,U9$),@equ$(pass$,P9$))                   Mot de passe richtig !

    nom$=User9
    AUSGABE

ELSEIf @and(@equ$(user$,U10$),@equ$(pass$,P10$))                   Mot de passe richtig !

    nom$=User10
    AUSGABE

ELSEIf @and(@equ$(user$,U11$),@equ$(pass$,P11$))                   Mot de passe richtig !

    nom$=User11
    AUSGABE

ELSEIf @and(@equ$(user$,U12$),@equ$(pass$,P12$))                   Mot de passe richtig !

    nom$=User12
    AUSGABE

ELSEIf @and(@equ$(user$,U13$),@equ$(pass$,P13$))                   Mot de passe richtig !

    nom$=User13
    AUSGABE

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

    imprimer #1,
    imprimer #1,<center>
    imprimer #1,s'il te plaît alles remplir!!!<BR>
    imprimer #1,user$,pass$

ELSEIF @equ$(pass$,)

    imprimer #1,
    imprimer #1,<center>
    imprimer #1,ne...aucune Mot de passe eingegeben!!!<BR>

ELSEIF @equ$(user$,)

    imprimer #1,
    imprimer #1,<center>
    imprimer #1,ne...aucune Username angegeben!!!<BR>
    D'autre                                       Mot de passe faux !
    imprimer #1,
    imprimer #1,<center>
    imprimer #1,Falscher Username ou bien Mot de passe !!!<BR>

Endif

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

@Georg:

a) oui - cela allez.
b) de Shop trop Shop müsstest Du sous Umständen une völlig autre technologie anwenden.
c) si es Dein eigener Shop ist: zéro Problem - simple une Schnittstelle créer.
d) si es un Fremdshop ist: Finger weg! Derartige automatische Anfragen sommes grundsätzlich pas erlaubt.

quoi oui c'est ca la hâte Du avant?

GDL

Erstmal merci,

j'ai un Lagerprogramm, welches pour 10maligem Unterschreiten einer Sollmenge verschiedener Artikel une Bestellung per FAX ausgibt.
là ici mais aucun Artikelprüfung stattfindet et qui Lieferung wesentlich länger dauert, J'ai eu la fois so ne concept.
je weis mais de unserem Hochregallagerverwaltungsprogramm, dass une directe automatische Onlinebestellung avec Artikelprüfung possible ist.

voulais eigendlich seulement la fois savons si aussi avec Profan quelque chose comme possible ist, ou bien si ca eigene Lieferantenschnittstellen sommes.

salut
Georg

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

[...]

Beides ginge sûrement

GDL

ensuite werde je mich la fois chez Conrad malain faire. peut-être gibt es là aussi so une Art dataus Dossier, comment beim Homebanking, qui ensuite verschickt wird.

avec den Dataus ca va aussi. je buche direct aus meiner Anwendung Lastschriften ab.

salut
Georg

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

[...]