E-Rechnungen in FileMaker erstellen

1Schema abrufen

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

Set Variable [ $schemaName ; Value: "Facturxen16931" ]
Set Variable [ $apiKey ; Value: Einstellungen::API_Key ]
Set Variable [ $url ; Value:
    "<API-BASIS-URL>/<SCHEMA-ENDPUNKT>/" & $schemaName
]
Set Variable [ $schemaResponse ; Value: "" ]
Set Variable [ $responseHeaders ; Value: "" ]

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

Insert from URL [
    Select ;
    With dialog: Off ;
    Target: $schemaResponse ;
    $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 Variable [ $formattedResponse ; Value:
    JSONFormatElements ( $schemaResponse )
]

If [ $fmError ≠ 0 or Left ( $formattedResponse ; 1 ) = "?" ]
    Exit Script [ Text Result: $lastError ]
End If

If [ JSONGetElementType ( $schemaResponse ; "" ) ≠ JSONArray ]
    Exit Script [ Text Result: "Die Schema-Antwort ist kein JSON-Array." ]
End If

Set Variable [ $schemaElements ; Value:
    JSONListValues ( $schemaResponse ; "" )
]

2Rechnungskopf aufbauen

Set Variable [ $json ; Value: "{}" ]

Set Variable [ $json ; Value:
    JSONSetElement ( $json ;
        [ "exchanged_document_context.guideline_specified_document_context_parameter.id.value" ;
          "urn:cen.eu:en16931:2017" ; JSONString ] ;
        [ "exchanged_document.id.value" ;
          Rechnungskopfdaten::Rechnungsnummer ; JSONString ] ;
        [ "exchanged_document.type_code.value" ;
          Rechnungskopfdaten::Dokumententyp ; JSONString ] ;
        [ "exchanged_document.issue_date_time.date_time_string.format" ;
          "102" ; JSONString ] ;
        [ "exchanged_document.issue_date_time.date_time_string.value" ;
          dateformat102 ( Rechnungskopfdaten::Rechnungsdatum ) ; JSONString ] ;
        [ "supply_chain_trade_transaction.applicable_header_trade_settlement.invoice_currency_code.value" ;
          "EUR" ; JSONString ]
    )
]

Das Beispiel zeigt zentrale Pfade. Pflichtfelder hängen von Dokumenttyp, Profil und Geschäftsfall ab. Käufer, Verkäufer, Steuern, Summen und Zahlungsdaten müssen entsprechend dem abgerufenen Schema ergänzt werden.

3Positionen ergänzen

Go to Record/Request/Page [ First ]

Loop [ Flush: Always ]
    Set Variable [ $i ; Value: Get ( RecordNumber ) - 1 ]
    Set Variable [ $path ; Value:
        "supply_chain_trade_transaction.included_supply_chain_trade_line_item[" & $i & "]"
    ]

    Set Variable [ $json ; Value:
        JSONSetElement ( $json ;
            [ $path & ".associated_document_line_document.line_id.value" ;
              Get ( RecordNumber ) ; JSONString ] ;
            [ $path & ".specified_trade_product.name.value" ;
              Rechnungspositionen::Artikelname ; JSONString ] ;
            [ $path & ".specified_line_trade_delivery.billed_quantity.value" ;
              Rechnungspositionen::Menge ; JSONNumber ] ;
            [ $path & ".specified_line_trade_delivery.billed_quantity.unit_code" ;
              Rechnungspositionen::EinheitenCode ; JSONString ] ;
            [ $path & ".specified_line_trade_settlement.applicable_trade_tax.rate_applicable_percent.value" ;
              Steuerschlüssel::Steuersatz ; JSONNumber ] ;
            [ $path & ".specified_line_trade_settlement.specified_trade_settlement_line_monetary_summation.line_total_amount.value" ;
              Rechnungspositionen::GesamtNetto ; JSONNumber ]
        )
    ]

    Go to Record/Request/Page [ Next ; Exit after last: On ]
End Loop

Set Variable [ $formattedJSON ; Value: JSONFormatElements ( $json ) ]
If [ Left ( $formattedJSON ; 1 ) = "?" ]
    Exit Script [ Text Result: $formattedJSON ]
End If
If [ JSONGetElementType ( $json ; "" ) ≠ JSONObject ]
    Exit Script [ Text Result: "Das Rechnungs-JSON muss ein Objekt sein." ]
End If

4XML-Request senden

Set Variable [ $model ; Value: "Facturxen16931" ]
Set Variable [ $apiKey ; Value: Einstellungen::API_Key ]
Set Variable [ $url ; Value:
    "<API-BASIS-URL>/<JSON-ZU-XML-ENDPUNKT>/" & $model
]
Set Variable [ $response ; Value: "" ]
Set Variable [ $responseHeaders ; Value: "" ]
Set Variable [ $requestData ; Value: $json ]

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

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 [ Rechnungen::API_Antwort ; $response ]

Die Fehlerwerte müssen innerhalb desselben ersten Set Variable-Schritts nach Insert from URL erfasst werden. --data @$requestData übergibt den Inhalt der FileMaker-Variablen direkt.

5HTTP und Response prüfen

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 )
]
Set Variable [ $formattedResponse ; Value: JSONFormatElements ( $response ) ]

If [ ( $fmError ≠ 0 and $httpStatus = 0 ) or
     Left ( $formattedResponse ; 1 ) = "?" ]
    Exit Script [ Text Result: $lastError ]
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 [ $xmlText ; Value:
    If ( not IsEmpty ( FilterValues ( $responseKeys ; "xml_output" ) ) ;
        JSONGetElement ( $response ; "xml_output" ) ; "" )
]
Set Variable [ $apiDetail ; Value:
    If ( not IsEmpty ( FilterValues ( $responseKeys ; "detail" ) ) ;
        JSONGetElement ( $response ; "detail" ) ; "" )
]

If [ $httpStatus < 200 or $httpStatus ≥ 300 or
     not IsEmpty ( $apiDetail ) or IsEmpty ( $xmlText ) ]
    Exit Script [ Text Result:
        JSONSetElement ( "{}" ;
            [ "status" ; "api_error" ; JSONString ] ;
            [ "http_status" ; $httpStatus ; JSONNumber ] ;
            [ "detail" ; $apiDetail ; JSONString ]
        )
    ]
End If

Set Variable [ $xmlContainer ; Value:
    TextEncode ( $xmlText ; "utf-8" ; 3 )
]
Set Field [ Rechnungen::ERechnungXML ; $xmlContainer ]

6Sicht-PDF erzeugen

Set Variable [ $pdfContainer ; Value: "" ]

Save Records as PDF [
    Restore ;
    Save to: Target ;
    Target: $pdfContainer ;
    With dialog: Off ;
    Current record
]

Set Variable [ $pdfError ; Value: Get ( LastError ) ]
If [ $pdfError ≠ 0 or IsEmpty ( $pdfContainer ) ]
    Exit Script [ Text Result: "Das Sicht-PDF konnte nicht erzeugt werden." ]
End If
Set Field [ Rechnungen::SichtPDF ; $pdfContainer ]

Das Rechnungs-Drucklayout und der richtige Datensatz müssen aktiv sein. Der Scriptschritt setzt das Zugriffsrecht Allow printing voraus.

7PDF/A-3-Request senden

If [ IsEmpty ( Rechnungen::SichtPDF ) or
     IsEmpty ( Rechnungen::ERechnungXML ) ]
    Exit Script [ Text Result: "Sicht-PDF oder Rechnungs-XML fehlt." ]
End If

Set Variable [ $requestData ; Value:
    JSONSetElement ( "{}" ;
        [ "pdf" ; Base64EncodeRFC ( 4648 ; Rechnungen::SichtPDF ) ; JSONString ] ;
        [ "xml" ; Base64EncodeRFC ( 4648 ; Rechnungen::ERechnungXML ) ; JSONString ]
    )
]
Set Variable [ $url ; Value: "<API-BASIS-URL>/<PDFA3-ENDPUNKT>" ]
Set Variable [ $apiKey ; Value: Einstellungen::API_Key ]
Set Variable [ $response ; Value: "" ]
Set Variable [ $responseHeaders ; Value: "" ]

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

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 [ Rechnungen::API_Antwort ; $response ]

# Determine $httpStatus with the block from step 5
Set Variable [ $formattedResponse ; Value: JSONFormatElements ( $response ) ]
If [ ( $fmError ≠ 0 and $httpStatus = 0 ) or
     Left ( $formattedResponse ; 1 ) = "?" ]
    Exit Script [ Text Result: $lastError ]
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 [ $pdfBase64 ; Value:
    If ( not IsEmpty ( FilterValues ( $responseKeys ; "pdf" ) ) ;
        JSONGetElement ( $response ; "pdf" ) ; "" )
]
Set Variable [ $apiDetail ; Value:
    If ( not IsEmpty ( FilterValues ( $responseKeys ; "detail" ) ) ;
        JSONGetElement ( $response ; "detail" ) ; "" )
]

If [ $httpStatus < 200 or $httpStatus ≥ 300 or
     not IsEmpty ( $apiDetail ) or IsEmpty ( $pdfBase64 ) ]
    Exit Script [ Text Result:
        JSONSetElement ( "{}" ;
            [ "status" ; "api_error" ; JSONString ] ;
            [ "http_status" ; $httpStatus ; JSONNumber ] ;
            [ "detail" ; $apiDetail ; JSONString ] ;
            [ "response" ; $response ; JSONString ]
        )
    ]
End If

Set Variable [ $fileName ; Value:
    "E-Rechnung " & Rechnungskopfdaten::Rechnungsnummer & ".pdf"
]
Set Variable [ $pdfaContainer ; Value:
    Base64Decode ( $pdfBase64 ; $fileName )
]
Set Field [ Rechnungen::PDF_A_3 ; $pdfaContainer ]

Der Dateiname im zweiten Parameter von Base64Decode sorgt dafür, dass FileMaker echte PDF-Containerdaten erzeugt. Übergeben Sie Base64 ohne ein data:application/pdf;base64,-Präfix.