Skip to content
This repository has been archived by the owner on Feb 7, 2024. It is now read-only.

Commit

Permalink
AE-2006: Add hallinto-oikeus attachment to sakkopäätös / tiedoksianto…
Browse files Browse the repository at this point in the history
… (haastemies) toimenpide if the osapuoli has hallinto-oikeus-id
  • Loading branch information
Juholei committed Dec 20, 2023
1 parent 0505d37 commit 0d0b91a
Show file tree
Hide file tree
Showing 4 changed files with 114 additions and 89 deletions.
137 changes: 71 additions & 66 deletions etp-backend/src/main/clj/solita/etp/service/valvonta_kaytto/asha.clj
Original file line number Diff line number Diff line change
Expand Up @@ -42,6 +42,8 @@
attachments {:decision-order-actual-decision {:type "Kirje"
:filename "hallinto-oikeus.pdf"}
:penalty-decision-actual-decision {:type "Kirje"
:filename "hallinto-oikeus.pdf"}
:penalty-decision-notice-bailiff {:type "Kirje"
:filename "hallinto-oikeus.pdf"}}]
(get attachments type-key)))

Expand Down Expand Up @@ -115,71 +117,72 @@
:email-address (:email osapuoli)}))

(defn- available-processing-actions [toimenpide osapuolet]
{:rfi-request {:identity {:case {:number (:diaarinumero toimenpide)}
:processing-action {:name-identity "Vireillepano"}}
:processing-action {:name "Tietopyyntö"
:reception-date (Instant/now)
:contacting-direction "SENT"
:contact (map osapuoli->contact osapuolet)}
:document (toimenpide-type->document (:type-id toimenpide))}
:rfi-order {:identity {:case {:number (:diaarinumero toimenpide)}
:processing-action {:name-identity "Vireillepano"}}
:processing-action {:name "Kehotuksen antaminen"
:reception-date (Instant/now)
:contacting-direction "SENT"
:contact (map osapuoli->contact osapuolet)}
:document (toimenpide-type->document (:type-id toimenpide))}
:rfi-warning {:identity {:case {:number (:diaarinumero toimenpide)}
:processing-action {:name-identity "Käsittely"}}
:processing-action {:name "Varoituksen antaminen"
:reception-date (Instant/now)
:contacting-direction "SENT"
:contact (map osapuoli->contact osapuolet)}
:document (toimenpide-type->document (:type-id toimenpide))}
:decision-order-hearing-letter {:identity {:case {:number (:diaarinumero toimenpide)}
:processing-action {:name-identity "Käsittely"}}
:document (toimenpide-type->document (:type-id toimenpide))
:processing-action {:name "Kuuleminen uhkasakon asettamisesta"
:reception-date (Instant/now)
:contacting-direction "SENT"
:contact (map osapuoli->contact osapuolet)}}
:decision-order-actual-decision {:identity {:case {:number (:diaarinumero toimenpide)}
:processing-action {:name-identity "Päätöksenteko"}}
:document (toimenpide-type->document (:type-id toimenpide))
:attachment (toimenpide-type->attachment (:type-id toimenpide))
:processing-action {:name "Uhkasakon asettaminen"
:reception-date (Instant/now)
:contacting-direction "SENT"
:contact (map osapuoli->contact osapuolet)}}
:decision-order-notice-bailiff {:identity {:case {:number (:diaarinumero toimenpide)}
:processing-action {:name-identity "Tiedoksianto ja toimeenpano"}}
:document (toimenpide-type->document (:type-id toimenpide))
:processing-action {:name "Asiakirjan toimituspyyntö haastemiehelle"
:reception-date (Instant/now)
:contacting-direction "SENT"
:contact (map osapuoli->contact osapuolet)}}
:penalty-decision-hearing-letter {:identity {:case {:number (:diaarinumero toimenpide)}
:processing-action {:name-identity "Käsittely"}}
:document (toimenpide-type->document (:type-id toimenpide))
:processing-action {:name "Kuuleminen uhkasakon tuomitsemisesta"
:reception-date (Instant/now)
:contacting-direction "SENT"
:contact (map osapuoli->contact osapuolet)}}
:penalty-decision-actual-decision {:identity {:case {:number (:diaarinumero toimenpide)}
:processing-action {:name-identity "Päätöksenteko"}}
:document (toimenpide-type->document (:type-id toimenpide))
:attachment (toimenpide-type->attachment (:type-id toimenpide))
:processing-action {:name "Uhkasakon tuomitseminen maksettavaksi"
:reception-date (Instant/now)
:contacting-direction "SENT"
:contact (map osapuoli->contact osapuolet)}}
:penalty-decision-notice-bailiff {:identity {:case {:number (:diaarinumero toimenpide)}
:processing-action {:name-identity "Tiedoksianto ja toimeenpano"}}
:document (toimenpide-type->document (:type-id toimenpide))
:processing-action {:name "Asiakirjan toimituspyyntö haastemiehelle"
:reception-date (Instant/now)
:contacting-direction "SENT"
:contact (map osapuoli->contact osapuolet)}}})
{:rfi-request {:identity {:case {:number (:diaarinumero toimenpide)}
:processing-action {:name-identity "Vireillepano"}}
:processing-action {:name "Tietopyyntö"
:reception-date (Instant/now)
:contacting-direction "SENT"
:contact (map osapuoli->contact osapuolet)}
:document (toimenpide-type->document (:type-id toimenpide))}
:rfi-order {:identity {:case {:number (:diaarinumero toimenpide)}
:processing-action {:name-identity "Vireillepano"}}
:processing-action {:name "Kehotuksen antaminen"
:reception-date (Instant/now)
:contacting-direction "SENT"
:contact (map osapuoli->contact osapuolet)}
:document (toimenpide-type->document (:type-id toimenpide))}
:rfi-warning {:identity {:case {:number (:diaarinumero toimenpide)}
:processing-action {:name-identity "Käsittely"}}
:processing-action {:name "Varoituksen antaminen"
:reception-date (Instant/now)
:contacting-direction "SENT"
:contact (map osapuoli->contact osapuolet)}
:document (toimenpide-type->document (:type-id toimenpide))}
:decision-order-hearing-letter {:identity {:case {:number (:diaarinumero toimenpide)}
:processing-action {:name-identity "Käsittely"}}
:document (toimenpide-type->document (:type-id toimenpide))
:processing-action {:name "Kuuleminen uhkasakon asettamisesta"
:reception-date (Instant/now)
:contacting-direction "SENT"
:contact (map osapuoli->contact osapuolet)}}
:decision-order-actual-decision {:identity {:case {:number (:diaarinumero toimenpide)}
:processing-action {:name-identity "Päätöksenteko"}}
:document (toimenpide-type->document (:type-id toimenpide))
:attachment (toimenpide-type->attachment (:type-id toimenpide))
:processing-action {:name "Uhkasakon asettaminen"
:reception-date (Instant/now)
:contacting-direction "SENT"
:contact (map osapuoli->contact osapuolet)}}
:decision-order-notice-bailiff {:identity {:case {:number (:diaarinumero toimenpide)}
:processing-action {:name-identity "Tiedoksianto ja toimeenpano"}}
:document (toimenpide-type->document (:type-id toimenpide))
:processing-action {:name "Asiakirjan toimituspyyntö haastemiehelle"
:reception-date (Instant/now)
:contacting-direction "SENT"
:contact (map osapuoli->contact osapuolet)}}
:penalty-decision-hearing-letter {:identity {:case {:number (:diaarinumero toimenpide)}
:processing-action {:name-identity "Käsittely"}}
:document (toimenpide-type->document (:type-id toimenpide))
:processing-action {:name "Kuuleminen uhkasakon tuomitsemisesta"
:reception-date (Instant/now)
:contacting-direction "SENT"
:contact (map osapuoli->contact osapuolet)}}
:penalty-decision-actual-decision {:identity {:case {:number (:diaarinumero toimenpide)}
:processing-action {:name-identity "Päätöksenteko"}}
:document (toimenpide-type->document (:type-id toimenpide))
:attachment (toimenpide-type->attachment (:type-id toimenpide))
:processing-action {:name "Uhkasakon tuomitseminen maksettavaksi"
:reception-date (Instant/now)
:contacting-direction "SENT"
:contact (map osapuoli->contact osapuolet)}}
:penalty-decision-notice-bailiff {:identity {:case {:number (:diaarinumero toimenpide)}
:processing-action {:name-identity "Tiedoksianto ja toimeenpano"}}
:document (toimenpide-type->document (:type-id toimenpide))
:attachment (toimenpide-type->attachment (:type-id toimenpide))
:processing-action {:name "Asiakirjan toimituspyyntö haastemiehelle"
:reception-date (Instant/now)
:contacting-direction "SENT"
:contact (map osapuoli->contact osapuolet)}}})

(defn- resolve-processing-action [toimenpide osapuolet]
(let [processing-actions (available-processing-actions toimenpide osapuolet)
Expand Down Expand Up @@ -265,7 +268,9 @@
(filter osapuoli/omistaja?)
(remove-osapuolet-with-no-document toimenpide)
(mapv (fn [osapuoli]
(store-hallinto-oikeus-attachment! db aws-s3-client (:id valvonta) toimenpide osapuoli)))))]
(when (type-specific-data/hallinto-oikeus-id-exists-for-osapuoli? toimenpide osapuoli)
(store-hallinto-oikeus-attachment! db aws-s3-client (:id valvonta) toimenpide osapuoli))))
(remove nil?)))]
(asha/log-toimenpide!
sender-id
request-id
Expand Down
Original file line number Diff line number Diff line change
Expand Up @@ -75,7 +75,8 @@

(def has-hallinto-oikeus-liite?
(partial some-type? #{:decision-order-actual-decision
:penalty-decision-actual-decision}))
:penalty-decision-actual-decision
:penalty-decision-notice-bailiff}))

(def asha-toimenpide?
(partial some-type? #{:rfi-request
Expand Down
Original file line number Diff line number Diff line change
Expand Up @@ -31,6 +31,15 @@
(exception/throw-ex-info!
{:message (str "Unknown hallinto-oikeus-id: " hallinto-oikeus-id)})))

(defn hallinto-oikeus-id-exists-for-osapuoli? [toimenpide osapuoli]
(boolean
(find-administrative-court-id-from-osapuoli-specific-data
(-> toimenpide
:type-specific-data
:osapuoli-specific-data)
{:id (:id osapuoli)
:type (osapuoli/osapuoli->osapuoli-type osapuoli)})))

(defn format-actual-decision-data [db toimenpide osapuoli]
(let [recipient-answered? (-> toimenpide
:type-specific-data
Expand Down Expand Up @@ -110,7 +119,7 @@
(str (:sukunimi omistaja) " " (:etunimi omistaja))
(:nimi omistaja)))
omistajat)]
{:fine (-> toimenpide :type-specific-data :fine)
{:fine (-> toimenpide :type-specific-data :fine)
:omistajat (string/join ", " omistaja-strings)}))

(defmethod format-type-specific-data :default [_ toimenpide _]
Expand Down
Loading

0 comments on commit 0d0b91a

Please sign in to comment.