E-Rechnungen in FileMaker validieren und visualisieren

1Eingabe prüfen

Set Error Capture [ On ]
Allow User Abort [ Off ]

If [ IsEmpty ( Rechnung::Originaldatei ) ]
    Show Custom Dialog [ "Keine Rechnung" ;
        "Bitte wählen Sie zuerst eine XML- oder PDF-Datei aus." ]
    Exit Script [ Text Result: "Eingabedatei fehlt" ]
End If

2Request erzeugen

Set Variable [ $request ; Value:
    JSONSetElement (
        "{}" ;
        [ "data" ;
          Base64EncodeRFC ( 4648 ; Rechnung::Originaldatei ) ;
          JSONString ]
    )
]

Set Variable [ $url ; Value: "<API-ENDPUNKT>" ]
Set Variable [ $apiKey ; Value: Einstellungen::API_Key ]

Base64EncodeRFC ( 4648 ; … ) erzeugt Base64 ohne zusätzliche Zeilenumbrüche. Ein Container mit der unveränderten Originaldatei verhindert unbemerkte Änderungen an Zeichensatz oder Zeilenenden.

3cURL-Optionen aufbauen

Set Variable [ $curlOptions ; Value:
    "--request POST" & ¶ &
    "--header " & Quote ( "Content-Type: application/json" ) & ¶ &
    If (
        not IsEmpty ( $apiKey ) ;
        "--header " & Quote ( "x-api-key: " & $apiKey ) & ¶ ;
        ""
    ) &
    "--data @$request" & ¶ &
    "--dump-header $responseHeaders" & ¶ &
    "--connect-timeout 15" & ¶ &
    "--max-time 120" & ¶ &
    "--show-error"
]

Senden Sie den Header x-api-key nur, wenn tatsächlich ein Schlüssel vorhanden ist. --fail wird nicht verwendet, damit auch bei HTTP 400, 403 oder 500 der JSON-Fehlertext des Servers in FileMaker ankommt.

4Anfrage senden

Set Variable [ $response ; Value: "" ]
Set Variable [ $responseHeaders ; Value: "" ]

Insert from URL [
    Select ;
    With dialog: Off ;
    Target: $response ;
    $url ;
    Verify SSL Certificates ;
    cURL options: $curlOptions
]

Set Variable [ $lastError ; Value:
    JSONSetElement ( "{}" ;
        [ "code" ; Get ( LastError ) ; JSONNumber ] ;
        [ "detail" ; Get ( LastErrorDetail ) ; JSONString ]
    )
]
Set Variable [ $fmError ; Value: JSONGetElement ( $lastError ; "code" ) ]
Set Variable [ $fmErrorDetail ; Value: JSONGetElement ( $lastError ; "detail" ) ]

Set Field [ Rechnung::API_Antwort ; $response ]

Beide Fehlerwerte werden innerhalb desselben ersten Set Variable-Schritts nach Insert from URL ausgewertet. Aktivieren Sie produktiv immer Verify SSL Certificates und verwenden Sie nicht --insecure.

5HTTP-Status und Transportfehler behandeln

Set Variable [ $headerLines ; Value:
    Substitute ( $responseHeaders ; Char ( 13 ) ; "" )
]
Set Variable [ $headerIndex ; Value: ValueCount ( $headerLines ) ]
Set Variable [ $httpStatusLine ; Value: "" ]

Loop [ Flush: Always ]
    Exit Loop If [ $headerIndex < 1 ]
    Set Variable [ $httpStatusLine ; Value:
        GetValue ( $headerLines ; $headerIndex )
    ]
    Exit Loop If [ Left ( $httpStatusLine ; 5 ) = "HTTP/" ]
    Set Variable [ $headerIndex ; Value: $headerIndex - 1 ]
End Loop

Set Variable [ $httpStatus ; Value:
    If ( Left ( $httpStatusLine ; 5 ) = "HTTP/" ;
        GetAsNumber ( MiddleWords ( $httpStatusLine ; 2 ; 1 ) ) ; 0 )
]

If [ $fmError ≠ 0 and $httpStatus = 0 ]
    Set Variable [ $result ; Value:
        JSONSetElement ( "{}" ;
            [ "status" ; "transport_error" ; JSONString ] ;
            [ "filemaker_error" ; $fmError ; JSONNumber ] ;
            [ "detail" ; $fmErrorDetail ; JSONString ]
        )
    ]
    Exit Script [ Text Result: $result ]
End If

Bei Weiterleitungen können mehrere Statuszeilen vorkommen. Maßgeblich ist die letzte mit HTTP/ beginnende Zeile. Status 0 bedeutet, dass keine HTTP-Antwort ausgewertet werden konnte.

6JSON-Antwort prüfen

Set Variable [ $formatted ; Value: JSONFormatElements ( $response ) ]

If [ Left ( $formatted ; 1 ) = "?" ]
    Exit Script [ Text Result:
        JSONSetElement ( "{}" ;
            [ "status" ; "invalid_response" ; JSONString ] ;
            [ "http_status" ; $httpStatus ; JSONNumber ] ;
            [ "response" ; $response ; JSONString ]
        )
    ]
End If

If [ JSONGetElementType ( $response ; "" ) ≠ JSONObject ]
    Exit Script [ Text Result: "Die API-Antwort ist kein JSON-Objekt." ]
End If

Set Variable [ $responseKeys ; Value: JSONListKeys ( $response ; "" ) ]
Set Variable [ $detail ; Value:
    If ( not IsEmpty ( FilterValues ( $responseKeys ; "detail" ) ) ;
        JSONGetElement ( $response ; "detail" ) ; "" )
]
Set Variable [ $message ; Value:
    If ( not IsEmpty ( FilterValues ( $responseKeys ; "Message" ) ) ;
        JSONGetElement ( $response ; "Message" ) ; "" )
]
Set Variable [ $error ; Value:
    If ( not IsEmpty ( FilterValues ( $responseKeys ; "error" ) ) ;
        JSONGetElement ( $response ; "error" ) ; "" )
]

If [ $httpStatus < 200 or $httpStatus ≥ 300 ]
    Exit Script [ Text Result:
        JSONSetElement ( "{}" ;
            [ "status" ; "http_error" ; JSONString ] ;
            [ "http_status" ; $httpStatus ; JSONNumber ] ;
            [ "detail" ; $detail ; JSONString ] ;
            [ "message" ; $message ; JSONString ] ;
            [ "error" ; $error ; JSONString ]
        )
    ]
End If

Prüfen Sie in dieser Reihenfolge: FileMaker-/cURL-Fehler, HTTP-Status aus $responseHeaders, gültiges JSON, die API-Felder detail, Message und error sowie zuletzt die fachliche Validierung.

7Validierungen übernehmen

Set Variable [ $validations ; Value:
    If ( not IsEmpty ( FilterValues ( $responseKeys ; "validation" ) ) ;
        JSONListValues ( $response ; "validation" ) ; "" )
]

Set Field [ Rechnung::Validierungen ; $validations ]

Ein Schematron-Name bestätigt nur, dass die Regelprüfung ausgeführt wurde. Ob fachliche Fehler vorliegen, ergibt sich aus den SVRL-Berichten in reports.

8SVRL-Prüfberichte zählen und speichern

Set Variable [ $reportCount ; Value:
    If ( not IsEmpty ( FilterValues ( $responseKeys ; "reports" ) ) ;
        ValueCount ( JSONListKeys ( $response ; "reports" ) ) ; 0 )
]
Set Variable [ $i ; Value: 0 ]
Set Variable [ $failedAssertCount ; Value: 0 ]

Loop [ Flush: Always ]
    Exit Loop If [ $i ≥ $reportCount ]

    Set Variable [ $report ; Value:
        JSONGetElement ( $response ; "reports[" & $i & "]" )
    ]
    Set Variable [ $failedAssertCount ; Value:
        $failedAssertCount +
        PatternCount ( $report ; "<svrl:failed-assert" )
    ]

    Set Variable [ $i ; Value: $i + 1 ]
End Loop

Set Field [ Rechnung::Pruefberichte ;
    If ( $reportCount > 0 ;
        JSONFormatElements ( JSONGetElement ( $response ; "reports" ) ) ; "" )
]

Die Textzählung eignet sich für eine einfache Ja/Nein-Anzeige. Benötigen Sie Regel-ID, Schweregrad, XPath und Meldung einzeln, verarbeiten Sie das SVRL mit einem XML-Parser.

9Visualisiertes PDF speichern

Set Variable [ $pdfBase64 ; Value:
    If ( not IsEmpty ( FilterValues ( $responseKeys ; "pdf" ) ) ;
        JSONGetElement ( $response ; "pdf" ) ; "" )
]

If [ not IsEmpty ( $pdfBase64 ) ]
    Set Variable [ $pdfContainer ; Value:
        Base64Decode (
            $pdfBase64 ;
            "Rechnungsvisualisierung.pdf"
        )
    ]
    Set Field [ Rechnung::Visualisierung ; $pdfContainer ]
End If

Der Dateiname im zweiten Parameter von Base64Decode ist wichtig, damit FileMaker das Ergebnis als PDF-Containerdaten und nicht als Text behandelt.

10Strukturierte Daten übernehmen

Set Variable [ $content ; Value:
    If ( not IsEmpty ( FilterValues ( $responseKeys ; "content" ) ) ;
        JSONGetElement ( $response ; "content" ) ; "" )
]

If [ not IsEmpty ( $content ) ]
    Set Field [ Rechnung::StrukturierteDaten ;
        JSONFormatElements ( $content )
    ]
End If

content ist eine abgeleitete Darstellung und kein verlustfreier Ersatz für die Originalrechnung. Bewahren Sie die ursprüngliche XML- oder PDF-Datei auf.