Konfiguration

* MeineTools.prg

DEFINE CLASS KundensaldoTool AS FoxAgentTool

  * Name, über den das Modell das Tool aufruft. In snake_case.
  ToolName        = "kundensaldo"

  * Das Modell liest diese Beschreibung, um zu entscheiden, wann es das
  * Tool aufruft. Je konkreter, desto besser die Auswahl.
  ToolDescription = "Liefert den Saldo eines Kunden anhand seiner " + ;
                    "Nummer. Zu verwenden, wenn nach Saldo oder Schuld " + ;
                    "eines bestimmten Kunden gefragt wird."

  FUNCTION DefineParameters()
    * Name, Typ, Beschreibung für das Modell und ob er Pflicht ist.
    THIS.AddParam("kundenNummer", "number", "Kundennummer", .T.)
  ENDFUNC

  FUNCTION Execute(toContext)
    LOCAL lnNummer, lcAusgabe, lcFehler

    * Die Parameter kommen im KONTEXT an, nicht in THIS.
    lnNummer = toContext.Parameters.kundenNummer

    * Vor dem Datenzugriff prüfen: das ist billig und hält den
    * geschützten Block auf das beschränkt, was wirklich scheitern kann.
    IF VARTYPE(lnNummer) != "N" OR lnNummer <= 0
      RETURN THIS.Err("kundenNummer ist Pflicht und muss größer als null sein")
    ENDIF

    lcAusgabe = ""
    lcFehler  = ""

    * Ihr Tool startet in einer PRIVATEN DATENSITZUNG: die Tabellen, die
    * Ihre Anwendung geöffnet hat, sind hier NICHT geöffnet. Man wechselt
    * in die Sitzung der Anwendung, arbeitet dort und kehrt über einen
    * einzigen Ausgang zurück.
    THIS.UseAppSession()
    TRY
      IF !USED("KUNDEN")
        lcFehler = "Die Tabelle KUNDEN ist in der Anwendung nicht geöffnet"
      ELSE
        * Den Satzzeiger dort lassen, wo er war: ein lesender Agent darf
        * dem Anwender nicht den Bildschirm verschieben.
        LOCAL lnVorher
        lnVorher = RECNO("KUNDEN")

        SELECT KUNDEN
        LOCATE FOR KUN_NR = lnNummer
        IF !FOUND()
          lcFehler = "Kunde " + TRANSFORM(lnNummer) + " nicht gefunden"
        ELSE
          lcAusgabe = ALLTRIM(KUNDEN.KUN_NAME) + ", Saldo: " + ;
                      TRANSFORM(KUNDEN.KUN_SALDO, "999,999.99")
        ENDIF

        IF lnVorher > 0 AND lnVorher <= RECCOUNT("KUNDEN")
          GO lnVorher IN KUNDEN
        ENDIF
      ENDIF
    CATCH TO loErr
      lcFehler = "Fehler beim Lesen von KUNDEN: " + loErr.Message
    FINALLY
      * Immer, auf jedem Weg. Deshalb gibt es einen einzigen Ausgang und
      * kein RETURN innerhalb des Blocks.
      THIS.RestoreSession()
    ENDTRY

    IF !EMPTY(lcFehler)
      RETURN THIS.Err(lcFehler)
    ENDIF
    RETURN THIS.Ok(lcAusgabe)
  ENDFUNC

ENDDEFINE

DEFINE CLASS KundenSuchenTool AS FoxAgentTool

  ToolName        = "kunden_suchen"
  ToolDescription = "Sucht Kunden nach Name, Postleitzahl oder Mindestsaldo."

  FUNCTION DefineParameters()
    THIS.AddParam("text",         "string",  "Text im Namen",        .T.)
    THIS.AddParam("plz",          "string",  "Nach PLZ filtern",     .F.)
    THIS.AddParam("mindestSaldo", "number",  "Mindestsaldo",         .F.)
    THIS.AddParam("nurAktive",    "boolean", "Nur aktive Kunden",    .F.)
  ENDFUNC

  FUNCTION Execute(toContext)
    LOCAL lcText, lcPlz, lnMin, llAktiv, lcAusgabe, lcFehler

    lcText  = toContext.Parameters.text
    lcPlz   = toContext.Parameters.plz
    lnMin   = toContext.Parameters.mindestSaldo
    llAktiv = toContext.Parameters.nurAktive

    lcAusgabe = ""
    lcFehler  = ""

    THIS.UseAppSession()
    TRY
      * Den Text schreibt das Modell. Eine mit & und Anführungszeichen
      * zusammengesetzte Abfrage ist eine SQL-Injection, die nur auf ihre
      * Gelegenheit wartet: hier gehen die Variablen so hinein, wie sie
      * sind, und VFP löst sie auf.
      SELECT * FROM KUNDEN ;
        WHERE UPPER(KUN_NAME) LIKE "%" + UPPER(ALLTRIM(lcText)) + "%" ;
          AND (EMPTY(lcPlz) OR KUN_PLZ = lcPlz) ;
          AND (lnMin = 0 OR KUN_SALDO >= lnMin) ;
          AND (NOT llAktiv OR KUN_AKTIV) ;
        INTO CURSOR curTreffer NOFILTER

      * RECCOUNT() auf dem Cursor, nicht ALEN() auf einem Array: bei null
      * Zeilen entsteht das Array gar nicht und ALEN() wirft Fehler 12.
      lcAusgabe = TRANSFORM(RECCOUNT("curTreffer")) + " Kunden gefunden"

      * Schließen Sie Ihre Cursor HIER, noch in der Sitzung der
      * Anwendung: aus Ihrer eigenen sind sie nicht mehr sichtbar.
      USE IN SELECT("curTreffer")
    CATCH TO loErr
      lcFehler = "Fehler bei der Kundensuche: " + loErr.Message
    FINALLY
      THIS.RestoreSession()
    ENDTRY

    IF !EMPTY(lcFehler)
      RETURN THIS.Err(lcFehler)
    ENDIF
    RETURN THIS.Ok(lcAusgabe)
  ENDFUNC

ENDDEFINE

SET PROCEDURE TO "C:\Program Files\FoxAgent\SDK\FoxTool.prg"      ADDITIVE
SET PROCEDURE TO "C:\Program Files\FoxAgent\SDK\FoxAgentTool.prg" ADDITIVE
SET PROCEDURE TO "MeineTools.prg" ADDITIVE

* Ein Aufruf pro Tool, direkt nach einem erfolgreichen Connect.
goBridge.RegisterTool(CREATEOBJECT("KundensaldoTool"))
goBridge.RegisterTool(CREATEOBJECT("KundenSuchenTool"))

* Wechselt der angemeldete Benutzer, bauen Sie die Liste neu auf: welche
* Tools es gibt, entscheidet Ihre Anwendung, pro Benutzer.
goBridge.ClearTools()
goBridge.UnregisterTool("kunden_suchen")