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

Feature/ae 1928 #1065

Draft
wants to merge 3 commits into
base: develop
Choose a base branch
from
Draft
Show file tree
Hide file tree
Changes from all commits
Commits
File filter

Filter by extension

Filter by extension

Conversations
Failed to load comments.
Loading
Jump to
Jump to file
Failed to load files.
Loading
Diff view
Diff view
Original file line number Diff line number Diff line change
Expand Up @@ -145,10 +145,11 @@
(def SakkopaatosTiedoksiantoHaastemiesOsapuoliSpecificData
(schema/conditional
toimenpide/osapuoli-has-document?
{:osapuoli OsapuoliSpecificDataOsapuoli
:karajaoikeus-id KarajaoikeusId
:haastemies-email common-schema/Email
:document schema/Bool}
{:osapuoli OsapuoliSpecificDataOsapuoli
:karajaoikeus-id KarajaoikeusId
(schema/optional-key :hallinto-oikeus-id) HallintoOikeusId
:haastemies-email common-schema/Email
:document schema/Bool}

:else
{:osapuoli OsapuoliSpecificDataOsapuoli
Expand Down
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
Original file line number Diff line number Diff line change
Expand Up @@ -40,7 +40,7 @@
{:id 4
:label-fi "Käskypäätös"
:label-sv "Käskypäätös (sv)"
:valid true
:valid false
:manually-deliverable false
:allow-comments false}
{:id 5
Expand Down
Loading