TRpcRule0ID267CategoryRefs6Order95State1NameWorkflow: returnless Autorisierungen & AblehnungenTriggers20RecurrenceExpertDataFbmRuleNode0M81447WHU.Extended=0 FbmRuleNode0M81447WHU.FailureNode=FbmRuleNodeBXMPG6CVPS FbmRuleNode0M81447WHU.Field=1 FbmRuleNode0M81447WHU.FlipNodes=0 FbmRuleNode0M81447WHU.Locked=0 FbmRuleNode0M81447WHU.Op=2 FbmRuleNode0M81447WHU.SuccessNode=FbmRuleNodeHEMOVTCLYO FbmRuleNode0M81447WHU.Type=TFbmRuleNodeConditionItem FbmRuleNode0M81447WHU.Value=New request created FbmRuleNode0M81447WHU.X=552 FbmRuleNode0M81447WHU.Y=108 FbmRuleNode5DEQE8PZGT.CustomSubject=API KEY FbmRuleNode5DEQE8PZGT.Extended=0 FbmRuleNode5DEQE8PZGT.FunctionSource=const\r\n API_KEY = '5OfgxSpdOhEODs5yg1glo4UaxajSu6sjP4H4OYYZ61af80b2';\r\n\r\nvar\r\n Http : TFbmHttp;\r\n sURL : String;\r\n sRef : String;\r\n sInternalId : String;\r\n sBody : String;\r\n sResponse : String;\r\n bSuccess : Boolean;\r\n iStart : Integer;\r\n iEnd : Integer;\r\n\r\nprocedure ExtractInternalId;\r\nbegin\r\n sRef := Item.UserFields.ItemsByName['Referenznummer'].DataTypeValue;\r\n sBody := Item.TextViewData;\r\n\r\n iStart := Pos('%2Frequests%2F', sBody);\r\n if iStart > 0 then\r\n begin\r\n iStart := iStart + Length('%2Frequests%2F');\r\n iEnd := iStart;\r\n while (iEnd <= Length(sBody)) and (sBody[iEnd] <> '/') and (sBody[iEnd] <> '"') and (sBody[iEnd] <> ' ') and (sBody[iEnd] <> #13) and (sBody[iEnd] <> #10) do\r\n iEnd := iEnd + 1;\r\n sInternalId := Copy(sBody, iStart, iEnd - iStart);\r\n end;\r\nend; FbmRuleNode5DEQE8PZGT.Locked=0 FbmRuleNode5DEQE8PZGT.NextNode=FbmRuleNodeSPD1ZRL55L FbmRuleNode5DEQE8PZGT.Type=TFbmRuleNodeActionFunction FbmRuleNode5DEQE8PZGT.X=552 FbmRuleNode5DEQE8PZGT.Y=-264 FbmRuleNode6NDI4D4CD9.CustomSubject=Ablehnung FbmRuleNode6NDI4D4CD9.Extended=0 FbmRuleNode6NDI4D4CD9.Locked=0 FbmRuleNode6NDI4D4CD9.Source=begin\r\n ExtractInternalId;\r\n\r\n if Trim(sInternalId) = '' then\r\n begin\r\n Item.AddToProtocol(\r\n '[Returnless] FEHLER: Interne ID konnte nicht aus dem E-Mail-Body extrahiert werden.' + #13#10 +\r\n 'Referenz: ' + sRef\r\n );\r\n Exit;\r\n end;\r\n\r\n sURL := 'https://api-v2.returnless.com/2023-02/request-orders/' + sInternalId + '/reject';\r\n\r\n Item.AddToProtocol(\r\n '[Returnless] Starte Ablehnung.' + #13#10 +\r\n 'Referenz: ' + sRef + #13#10 +\r\n 'Interne ID: ' + sInternalId + #13#10 +\r\n 'URL: ' + sURL\r\n );\r\n\r\n Http := TFbmHttp.Create;\r\n try\r\n Http.ContentType := 'application/json';\r\n Http.Headers.Values['Authorization'] := 'Bearer ' + API_KEY;\r\n Http.Headers.Values['Accept'] := 'application/json';\r\n\r\n bSuccess := Http.PutEx(sURL, '{}', sResponse);\r\n\r\n if bSuccess then\r\n begin\r\n case Http.ResultCode of\r\n 200, 201, 204:\r\n Item.AddToProtocol(\r\n '[Returnless] Rücksendung ' + sRef + ' erfolgreich abgelehnt.' + #13#10 //+\r\n //'HTTP-Status: ' + IntToStr(Http.ResultCode) + #13#10 +\r\n //'Antwort: ' + sResponse\r\n );\r\n 401:\r\n Item.AddToProtocol(\r\n '[Returnless] FEHLER 401 – Authentifizierung fehlgeschlagen.' + #13#10 +\r\n 'Bitte API-Key in der Konstante API_KEY prüfen.'\r\n );\r\n 404:\r\n Item.AddToProtocol(\r\n '[Returnless] FEHLER 404 – Request-Order nicht gefunden.' + #13#10 +\r\n 'Interne ID: ' + sInternalId\r\n );\r\n else\r\n Item.AddToProtocol(\r\n '[Returnless] FEHLER: Unerwarteter HTTP-Code ' + IntToStr(Http.ResultCode) + #13#10 +\r\n 'Antwort: ' + sResponse\r\n );\r\n end;\r\n end\r\n else\r\n Item.AddToProtocol(\r\n '[Returnless] FEHLER: PUT-Request fehlgeschlagen.' + #13#10 +\r\n 'URL: ' + sURL\r\n );\r\n finally\r\n Http.Free;\r\n end;\r\n\r\n end;\r\n FbmRuleNode6NDI4D4CD9.Type=TFbmRuleNodeActionSource FbmRuleNode6NDI4D4CD9.X=804 FbmRuleNode6NDI4D4CD9.Y=396 FbmRuleNode9XAIAZ4APM.Extended=0 FbmRuleNode9XAIAZ4APM.Field=5 FbmRuleNode9XAIAZ4APM.FlipNodes=0 FbmRuleNode9XAIAZ4APM.Locked=0 FbmRuleNode9XAIAZ4APM.Op=0 FbmRuleNode9XAIAZ4APM.SuccessNode=FbmRuleNode0M81447WHU FbmRuleNode9XAIAZ4APM.Type=TFbmRuleNodeConditionItem FbmRuleNode9XAIAZ4APM.Value=noreply@returnless.com FbmRuleNode9XAIAZ4APM.X=552 FbmRuleNode9XAIAZ4APM.Y=-36 FbmRuleNodeBXMPG6CVPS.Extended=0 FbmRuleNodeBXMPG6CVPS.Field=1 FbmRuleNodeBXMPG6CVPS.FlipNodes=0 FbmRuleNodeBXMPG6CVPS.Locked=0 FbmRuleNodeBXMPG6CVPS.Op=2 FbmRuleNodeBXMPG6CVPS.SuccessNode=FbmRuleNodeHEMOVTCLYO FbmRuleNodeBXMPG6CVPS.Type=TFbmRuleNodeConditionItem FbmRuleNodeBXMPG6CVPS.Value=Retourenanfrage FbmRuleNodeBXMPG6CVPS.X=804 FbmRuleNodeBXMPG6CVPS.Y=108 FbmRuleNodeHEMOVTCLYO.Extended=0 FbmRuleNodeHEMOVTCLYO.FailureNode=FbmRuleNodeOSUIXCON3X FbmRuleNodeHEMOVTCLYO.Field=31 FbmRuleNodeHEMOVTCLYO.FlipNodes=0 FbmRuleNodeHEMOVTCLYO.Locked=0 FbmRuleNodeHEMOVTCLYO.Op=0 FbmRuleNodeHEMOVTCLYO.SuccessNode=FbmRuleNodeYT6PZGVGEE FbmRuleNodeHEMOVTCLYO.Type=TFbmRuleNodeConditionItem FbmRuleNodeHEMOVTCLYO.Value=4 FbmRuleNodeHEMOVTCLYO.X=552 FbmRuleNodeHEMOVTCLYO.Y=252 FbmRuleNodeMIMJYD3RAT.Extended=0 FbmRuleNodeMIMJYD3RAT.Locked=0 FbmRuleNodeMIMJYD3RAT.NextNode=FbmRuleNode5DEQE8PZGT FbmRuleNodeMIMJYD3RAT.Type=TFbmRuleNodeActionRoot FbmRuleNodeMIMJYD3RAT.X=552 FbmRuleNodeMIMJYD3RAT.Y=-324 FbmRuleNodeOSUIXCON3X.Extended=0 FbmRuleNodeOSUIXCON3X.Field=31 FbmRuleNodeOSUIXCON3X.FlipNodes=0 FbmRuleNodeOSUIXCON3X.Locked=0 FbmRuleNodeOSUIXCON3X.Op=0 FbmRuleNodeOSUIXCON3X.SuccessNode=FbmRuleNode6NDI4D4CD9 FbmRuleNodeOSUIXCON3X.Type=TFbmRuleNodeConditionItem FbmRuleNodeOSUIXCON3X.Value=7 FbmRuleNodeOSUIXCON3X.X=804 FbmRuleNodeOSUIXCON3X.Y=252 FbmRuleNodeSPD1ZRL55L.Extended=0 FbmRuleNodeSPD1ZRL55L.Field=32 FbmRuleNodeSPD1ZRL55L.FlipNodes=0 FbmRuleNodeSPD1ZRL55L.Locked=0 FbmRuleNodeSPD1ZRL55L.Op=0 FbmRuleNodeSPD1ZRL55L.SuccessNode=FbmRuleNode9XAIAZ4APM FbmRuleNodeSPD1ZRL55L.Type=TFbmRuleNodeConditionItem FbmRuleNodeSPD1ZRL55L.Value=0 FbmRuleNodeSPD1ZRL55L.X=552 FbmRuleNodeSPD1ZRL55L.Y=-180 FbmRuleNodeYT6PZGVGEE.CustomSubject=Akzeptanz FbmRuleNodeYT6PZGVGEE.Extended=0 FbmRuleNodeYT6PZGVGEE.Locked=0 FbmRuleNodeYT6PZGVGEE.Source= begin\r\n begin\r\n begin\r\n ExtractInternalId;\r\n\r\n if Trim(sInternalId) = '' then\r\n begin\r\n Item.AddToProtocol(\r\n '[Returnless] FEHLER: Interne ID konnte nicht aus dem E-Mail-Body extrahiert werden.' + #13#10 +\r\n 'Referenz: ' + sRef\r\n );\r\n Exit;\r\n end;\r\n\r\n sURL := 'https://api-v2.returnless.com/2023-02/request-orders/' + sInternalId + '/approve';\r\n\r\n Item.AddToProtocol(\r\n '[Returnless] Starte Genehmigung.' + #13#10 +\r\n 'Referenz: ' + sRef + #13#10 +\r\n 'Interne ID: ' + sInternalId + #13#10 +\r\n 'URL: ' + sURL\r\n );\r\n\r\n Http := TFbmHttp.Create;\r\n try\r\n Http.ContentType := 'application/json';\r\n Http.Headers.Values['Authorization'] := 'Bearer ' + API_KEY;\r\n Http.Headers.Values['Accept'] := 'application/json';\r\n\r\n bSuccess := Http.PutEx(sURL, '{}', sResponse);\r\n\r\n if bSuccess then\r\n begin\r\n case Http.ResultCode of\r\n 200, 201, 204:\r\n Item.AddToProtocol(\r\n '[Returnless] Rücksendung ' + sRef + ' erfolgreich genehmigt.' + #13#10 //+\r\n //'HTTP-Status: ' + IntToStr(Http.ResultCode) + #13#10 +\r\n //'Antwort: ' + sResponse\r\n );\r\n 401:\r\n Item.AddToProtocol(\r\n '[Returnless] FEHLER 401 – Authentifizierung fehlgeschlagen.' + #13#10 +\r\n 'Bitte API-Key in der Konstante API_KEY prüfen.'\r\n );\r\n 404:\r\n Item.AddToProtocol(\r\n '[Returnless] FEHLER 404 – Request-Order nicht gefunden.' + #13#10 +\r\n 'Interne ID: ' + sInternalId\r\n );\r\n else\r\n Item.AddToProtocol(\r\n '[Returnless] FEHLER: Unerwarteter HTTP-Code ' + IntToStr(Http.ResultCode) + #13#10 +\r\n 'Antwort: ' + sResponse\r\n );\r\n end;\r\n end\r\n else\r\n Item.AddToProtocol(\r\n '[Returnless] FEHLER: PUT-Request fehlgeschlagen.' + #13#10 +\r\n 'URL: ' + sURL\r\n );\r\n finally\r\n Http.Free;\r\n end;\r\n\r\n end;\r\n end;\r\n end; FbmRuleNodeYT6PZGVGEE.Type=TFbmRuleNodeActionSource FbmRuleNodeYT6PZGVGEE.X=552 FbmRuleNodeYT6PZGVGEE.Y=396 SourceCodeconst API_KEY = '5OfgxSpdOhEODs5yg1glo4UaxajSu6sjP4H4OYYZ61af80b2'; var Http : TFbmHttp; sURL : String; sRef : String; sInternalId : String; sBody : String; sResponse : String; bSuccess : Boolean; iStart : Integer; iEnd : Integer; procedure ExtractInternalId; begin sRef := Item.UserFields.ItemsByName['Referenznummer'].DataTypeValue; sBody := Item.TextViewData; iStart := Pos('%2Frequests%2F', sBody); if iStart > 0 then begin iStart := iStart + Length('%2Frequests%2F'); iEnd := iStart; while (iEnd <= Length(sBody)) and (sBody[iEnd] <> '/') and (sBody[iEnd] <> '"') and (sBody[iEnd] <> ' ') and (sBody[iEnd] <> #13) and (sBody[iEnd] <> #10) do iEnd := iEnd + 1; sInternalId := Copy(sBody, iStart, iEnd - iStart); end; end; begin if (Item.Kind = ikEmail) then begin if (Assigned(Item.From) and (AnsiSameText(Item.From.Identifier, 'noreply@returnless.com'))) then begin if (AnsiStartsText('New request created', Item.Subject)) then begin if (Item.State = isDone) then begin begin begin begin ExtractInternalId; if Trim(sInternalId) = '' then begin Item.AddToProtocol( '[Returnless] FEHLER: Interne ID konnte nicht aus dem E-Mail-Body extrahiert werden.' + #13#10 + 'Referenz: ' + sRef ); Exit; end; sURL := 'https://api-v2.returnless.com/2023-02/request-orders/' + sInternalId + '/approve'; Item.AddToProtocol( '[Returnless] Starte Genehmigung.' + #13#10 + 'Referenz: ' + sRef + #13#10 + 'Interne ID: ' + sInternalId + #13#10 + 'URL: ' + sURL ); Http := TFbmHttp.Create; try Http.ContentType := 'application/json'; Http.Headers.Values['Authorization'] := 'Bearer ' + API_KEY; Http.Headers.Values['Accept'] := 'application/json'; bSuccess := Http.PutEx(sURL, '{}', sResponse); if bSuccess then begin case Http.ResultCode of 200, 201, 204: Item.AddToProtocol( '[Returnless] Rücksendung ' + sRef + ' erfolgreich genehmigt.' + #13#10 //+ //'HTTP-Status: ' + IntToStr(Http.ResultCode) + #13#10 + //'Antwort: ' + sResponse ); 401: Item.AddToProtocol( '[Returnless] FEHLER 401 – Authentifizierung fehlgeschlagen.' + #13#10 + 'Bitte API-Key in der Konstante API_KEY prüfen.' ); 404: Item.AddToProtocol( '[Returnless] FEHLER 404 – Request-Order nicht gefunden.' + #13#10 + 'Interne ID: ' + sInternalId ); else Item.AddToProtocol( '[Returnless] FEHLER: Unerwarteter HTTP-Code ' + IntToStr(Http.ResultCode) + #13#10 + 'Antwort: ' + sResponse ); end; end else Item.AddToProtocol( '[Returnless] FEHLER: PUT-Request fehlgeschlagen.' + #13#10 + 'URL: ' + sURL ); finally Http.Free; end; end; end; end; end else begin if (Item.State = isRejected) then begin begin ExtractInternalId; if Trim(sInternalId) = '' then begin Item.AddToProtocol( '[Returnless] FEHLER: Interne ID konnte nicht aus dem E-Mail-Body extrahiert werden.' + #13#10 + 'Referenz: ' + sRef ); Exit; end; sURL := 'https://api-v2.returnless.com/2023-02/request-orders/' + sInternalId + '/reject'; Item.AddToProtocol( '[Returnless] Starte Ablehnung.' + #13#10 + 'Referenz: ' + sRef + #13#10 + 'Interne ID: ' + sInternalId + #13#10 + 'URL: ' + sURL ); Http := TFbmHttp.Create; try Http.ContentType := 'application/json'; Http.Headers.Values['Authorization'] := 'Bearer ' + API_KEY; Http.Headers.Values['Accept'] := 'application/json'; bSuccess := Http.PutEx(sURL, '{}', sResponse); if bSuccess then begin case Http.ResultCode of 200, 201, 204: Item.AddToProtocol( '[Returnless] Rücksendung ' + sRef + ' erfolgreich abgelehnt.' + #13#10 //+ //'HTTP-Status: ' + IntToStr(Http.ResultCode) + #13#10 + //'Antwort: ' + sResponse ); 401: Item.AddToProtocol( '[Returnless] FEHLER 401 – Authentifizierung fehlgeschlagen.' + #13#10 + 'Bitte API-Key in der Konstante API_KEY prüfen.' ); 404: Item.AddToProtocol( '[Returnless] FEHLER 404 – Request-Order nicht gefunden.' + #13#10 + 'Interne ID: ' + sInternalId ); else Item.AddToProtocol( '[Returnless] FEHLER: Unerwarteter HTTP-Code ' + IntToStr(Http.ResultCode) + #13#10 + 'Antwort: ' + sResponse ); end; end else Item.AddToProtocol( '[Returnless] FEHLER: PUT-Request fehlgeschlagen.' + #13#10 + 'URL: ' + sURL ); finally Http.Free; end; end; end; end; end else begin if (AnsiStartsText('Retourenanfrage', Item.Subject)) then begin if (Item.State = isDone) then begin begin begin begin ExtractInternalId; if Trim(sInternalId) = '' then begin Item.AddToProtocol( '[Returnless] FEHLER: Interne ID konnte nicht aus dem E-Mail-Body extrahiert werden.' + #13#10 + 'Referenz: ' + sRef ); Exit; end; sURL := 'https://api-v2.returnless.com/2023-02/request-orders/' + sInternalId + '/approve'; Item.AddToProtocol( '[Returnless] Starte Genehmigung.' + #13#10 + 'Referenz: ' + sRef + #13#10 + 'Interne ID: ' + sInternalId + #13#10 + 'URL: ' + sURL ); Http := TFbmHttp.Create; try Http.ContentType := 'application/json'; Http.Headers.Values['Authorization'] := 'Bearer ' + API_KEY; Http.Headers.Values['Accept'] := 'application/json'; bSuccess := Http.PutEx(sURL, '{}', sResponse); if bSuccess then begin case Http.ResultCode of 200, 201, 204: Item.AddToProtocol( '[Returnless] Rücksendung ' + sRef + ' erfolgreich genehmigt.' + #13#10 //+ //'HTTP-Status: ' + IntToStr(Http.ResultCode) + #13#10 + //'Antwort: ' + sResponse ); 401: Item.AddToProtocol( '[Returnless] FEHLER 401 – Authentifizierung fehlgeschlagen.' + #13#10 + 'Bitte API-Key in der Konstante API_KEY prüfen.' ); 404: Item.AddToProtocol( '[Returnless] FEHLER 404 – Request-Order nicht gefunden.' + #13#10 + 'Interne ID: ' + sInternalId ); else Item.AddToProtocol( '[Returnless] FEHLER: Unerwarteter HTTP-Code ' + IntToStr(Http.ResultCode) + #13#10 + 'Antwort: ' + sResponse ); end; end else Item.AddToProtocol( '[Returnless] FEHLER: PUT-Request fehlgeschlagen.' + #13#10 + 'URL: ' + sURL ); finally Http.Free; end; end; end; end; end else begin if (Item.State = isRejected) then begin begin ExtractInternalId; if Trim(sInternalId) = '' then begin Item.AddToProtocol( '[Returnless] FEHLER: Interne ID konnte nicht aus dem E-Mail-Body extrahiert werden.' + #13#10 + 'Referenz: ' + sRef ); Exit; end; sURL := 'https://api-v2.returnless.com/2023-02/request-orders/' + sInternalId + '/reject'; Item.AddToProtocol( '[Returnless] Starte Ablehnung.' + #13#10 + 'Referenz: ' + sRef + #13#10 + 'Interne ID: ' + sInternalId + #13#10 + 'URL: ' + sURL ); Http := TFbmHttp.Create; try Http.ContentType := 'application/json'; Http.Headers.Values['Authorization'] := 'Bearer ' + API_KEY; Http.Headers.Values['Accept'] := 'application/json'; bSuccess := Http.PutEx(sURL, '{}', sResponse); if bSuccess then begin case Http.ResultCode of 200, 201, 204: Item.AddToProtocol( '[Returnless] Rücksendung ' + sRef + ' erfolgreich abgelehnt.' + #13#10 //+ //'HTTP-Status: ' + IntToStr(Http.ResultCode) + #13#10 + //'Antwort: ' + sResponse ); 401: Item.AddToProtocol( '[Returnless] FEHLER 401 – Authentifizierung fehlgeschlagen.' + #13#10 + 'Bitte API-Key in der Konstante API_KEY prüfen.' ); 404: Item.AddToProtocol( '[Returnless] FEHLER 404 – Request-Order nicht gefunden.' + #13#10 + 'Interne ID: ' + sInternalId ); else Item.AddToProtocol( '[Returnless] FEHLER: Unerwarteter HTTP-Code ' + IntToStr(Http.ResultCode) + #13#10 + 'Antwort: ' + sResponse ); end; end else Item.AddToProtocol( '[Returnless] FEHLER: PUT-Request fehlgeschlagen.' + #13#10 + 'URL: ' + sURL ); finally Http.Free; end; end; end; end; end; end; end; end; end. Compiled1LockDataCreated20260521T15:17:35Modified20260806T09:50:52