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

Commit

Permalink
Merge pull request #1063 from solita/feature/AE-2006
Browse files Browse the repository at this point in the history 
Feature/ae 2006
  • Loading branch information
@Juholei
Juholei authored Dec 21, 2023
2 parents 73f8ffd + 0d0b91a commit e5f62d1
Show file tree
Hide file tree
Showing 5 changed files with 134 additions and 103 deletions.
9 changes: 5 additions & 4 deletions etp-backend/src/main/clj/solita/etp/schema/valvonta_kaytto.clj
View file
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
View file
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
3 changes: 2 additions & 1 deletion etp-backend/src/main/clj/solita/etp/service/valvonta_kaytto/toimenpide.clj
View file
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
11 changes: 10 additions & 1 deletion ...backend/src/main/clj/solita/etp/service/valvonta_kaytto/toimenpide_type_specific_data.clj
View file
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 e5f62d1

Please sign in to comment.