GeMIS_WEB/GUI/Tools/sesam.p

    DEF VAR hdSesam         AS COM-HANDLE               NO-UNDO.
    DEF VAR hdBeleg         AS COM-HANDLE               NO-UNDO.
    DEF VAR iRetCode        AS INT                      NO-UNDO.
    DEF VAR cString         AS CHAR                     NO-UNDO.
    DEF VAR cMandant        AS CHAR                     NO-UNDO.
    DEF VAR cKonto          AS CHAR                     NO-UNDO.
    DEF VAR ja              AS LOG                      NO-UNDO.

    DO WHILE TRUE:
        CREATE "FibuNT.Mandant" hdSesam CONNECT NO-ERROR.
        IF VALID-HANDLE(hdSesam) THEN LEAVE.

        CREATE "FibuNT.Mandant" hdSesam NO-ERROR.
        LEAVE.
    END.

    IF NOT VALID-HANDLE(hdSesam) THEN DO:
        MESSAGE 'SESAM ist auf diesem Arbeitsplatz nicht'   SKIP
                'oder nicht richtig installiert ! '
                VIEW-AS ALERT-BOX ERROR.
        RETURN NO-APPLY.
    END.

    DO WHILE TRUE:
        GET-KEY-VALUE SECTION 'Sesam'
                      KEY     'Mandant'
                      VALUE   cMandant.
        IF cMandant <> ? THEN DO:
            MESSAGE 'Wollen Sie sich mit diesem Mandant verbinden ? '   SKIP
                    cMandant VIEW-AS ALERT-BOX QUESTION BUTTONS YES-NO
                    UPDATE ja.
        END.
        IF NOT ja THEN cMandant = ''.
        iRetCode = hdSesam:Login( 1, cMandant ).

        IF iRetCode <> 0 THEN DO:
            MESSAGE 'Login nicht erfolgreich ! ' VIEW-AS ALERT-BOX ERROR.
            LEAVE.
        END.

        cMandant = hdSesam:LetzterMandant.
        PUT-KEY-VALUE SECTION 'Sesam'
                      KEY     'Mandant'
                      VALUE   cMandant.

        hdBeleg = hdSesam:NeuBeleg().
        IF NOT VALID-HANDLE(hdBeleg) THEN DO:
            MESSAGE 'Es können keine Belege eingefügt werden ! '
                    VIEW-AS ALERT-BOX ERROR.
            LEAVE.
        END.

        iRetCode = hdBeleg:Buchen( TODAY, FALSE, '1000', 'Testbuchung', 100.00 ).
        IF iRetCode = 0 THEN MESSAGE 'Buchung erfolgreich ' VIEW-AS ALERT-BOX.
        iRetCode = hdBeleg:Buchen( TODAY, TRUE , '6000', 'Testbuchung', 100.00 ).
        IF iRetCode = 0 THEN MESSAGE 'Buchung erfolgreich ' VIEW-AS ALERT-BOX.
        iRetCode = hdBeleg:Einfügen(hdSesam).
        LEAVE.
    END.

    IF VALID-HANDLE(hdSesam) THEN RELEASE OBJECT hdSesam.
    IF VALID-HANDLE(hdBeleg) THEN RELEASE OBJECT hdBeleg.