Merge pull request #1063 from solita/feature/AE-2006

Feature/ae 2006

etp-backend/src/main/clj/solita/etp/schema/valvonta_kaytto.clj

@@ -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

etp-backend/src/main/clj/solita/etp/service/valvonta_kaytto/asha.clj

@@ -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)))
 
@@ -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)
@@ -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

etp-backend/src/main/clj/solita/etp/service/valvonta_kaytto/toimenpide.clj

@@ -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

etp-backend/src/main/clj/solita/etp/service/valvonta_kaytto/toimenpide_type_specific_data.clj

@@ -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
@@ -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 _]