Fix test findings in uhkasakkoprosessi

etp-backend/src/main/clj/solita/etp/api/valvonta_kaytto_toimenpiteet.clj

@@ -47,7 +47,7 @@
  :parameters :keys [db whoami]}]
  (api-response/pdf-response
  (valvonta-service/preview-henkilo-toimenpide
- db whoami id body henkilo-id)
+ db whoami id (assoc body :valvonta-id id) henkilo-id)
  (valvonta-service/toimenpide-filename body)
  (api-response/msg-404 "henkilo" id henkilo-id)))}}]
  ["/yritykset/:yritys-id/preview"
@@ -63,7 +63,7 @@
  :parameters :keys [db whoami]}]
  (api-response/pdf-response
  (valvonta-service/preview-yritys-toimenpide
- db whoami id body yritys-id)
+ db whoami id (assoc body :valvonta-id id) yritys-id)
  (valvonta-service/toimenpide-filename body)
  (api-response/msg-404 "yritys" id yritys-id)))}}]
  ["/:toimenpide-id"

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

@@ -107,8 +107,18 @@
 
 (def SakkopaatosVarsinainenPaatosOsapuoliSpecificData
  (schema/conditional
- ;; Osapuoli has a document so all fields are required to have values
- ;; answer-commentary fields are optional but if present, values are required
+ ;; Osapuoli has a document and has answered to kuulemiskirje, so all fields are required
+ (every-pred toimenpide/osapuoli-has-document? toimenpide/recipient-answered?)
+ {:osapuoli OsapuoliSpecificDataOsapuoli
+ :hallinto-oikeus-id HallintoOikeusId
+ :document schema/Bool
+ :recipient-answered schema/Bool
+ :answer-commentary-fi schema/Str
+ :answer-commentary-sv schema/Str
+ :statement-fi schema/Str
+ :statement-sv schema/Str}
+
+ ;; Osapuoli has document but has not answered to kuulemiskirje, so answer-commentary is optional
  toimenpide/osapuoli-has-document?
  {:osapuoli OsapuoliSpecificDataOsapuoli
  :hallinto-oikeus-id HallintoOikeusId

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

@@ -165,13 +165,6 @@
  :reception-date (Instant/now)
  :contacting-direction "SENT"
  :contact (map osapuoli->contact osapuolet)}}
- :decision-order-waiting-for-deadline {:identity {:case {:number (:diaarinumero toimenpide)}
- :processing-action {:name-identity "Valitusajan umpeutuminen"}}
- :document (toimenpide-type->document (:type-id toimenpide))
- :processing-action {:name "Valitusajan umpeutuminen"
- :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 "Päätöksenteko"}}
  :document (toimenpide-type->document (:type-id toimenpide))
@@ -198,13 +191,6 @@
  :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-waiting-for-deadline {:identity {:case {:number (:diaarinumero toimenpide)}
- :processing-action {:name-identity "Valitusajan umpeutuminen"}}
- :document (toimenpide-type->document (:type-id toimenpide))
- :processing-action {:name "Valitusajan umpeutuminen"
  :reception-date (Instant/now)
  :contacting-direction "SENT"
  :contact (map osapuoli->contact osapuolet)}}})

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

@@ -85,12 +85,10 @@
  :decision-order-actual-decision
  :decision-order-notice-first-mailing
  :decision-order-notice-bailiff
- :decision-order-waiting-for-deadline
  :penalty-decision-hearing-letter
  :penalty-decision-actual-decision
  :penalty-decision-notice-first-mailing
- :penalty-decision-notice-bailiff
- :penalty-decision-waiting-for-deadline}))
+ :penalty-decision-notice-bailiff}))
 
 
 (def with-diaarinumero? (comp not (partial type? :case)))

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

@@ -1,10 +1,13 @@
 (ns solita.etp.service.valvonta-kaytto.toimenpide-type-specific-data
- (:require [solita.etp.db :as db]
+ (:require [clojure.string :as string]
+ [solita.etp.db :as db]
  [solita.etp.exception :as exception]
+ [solita.etp.service.valvonta-kaytto.osapuoli :as osapuoli]
  [solita.etp.service.valvonta-kaytto.toimenpide :as toimenpide]))
 
 (db/require-queries 'hallinto-oikeus)
 (db/require-queries 'karajaoikeus)
+(db/require-queries 'valvonta-kaytto)
 
 (defmulti format-type-specific-data
  (fn [_db toimenpide _osapuoli] (-> toimenpide :type-id toimenpide/type-key)))
@@ -98,5 +101,17 @@
 (defmethod format-type-specific-data :penalty-decision-notice-bailiff [db toimenpide osapuoli]
  (format-notice-bailiff db toimenpide osapuoli))
 
+(defmethod format-type-specific-data :decision-order-hearing-letter [db toimenpide _osapuoli]
+ (let [henkilo-osapuolet (valvonta-kaytto-db/select-henkilot db {:valvonta-id (:valvonta-id toimenpide)})
+ yritys-osapuolet (valvonta-kaytto-db/select-yritykset db {:valvonta-id (:valvonta-id toimenpide)})
+ omistajat (filter osapuoli/omistaja? (concat henkilo-osapuolet yritys-osapuolet))
+ omistaja-strings (map (fn [omistaja]
+ (if (osapuoli/henkilo? omistaja)
+ (str (:sukunimi omistaja) " " (:etunimi omistaja))
+ (:nimi omistaja)))
+ omistajat)]
+ {:fine (-> toimenpide :type-specific-data :fine)
+ :omistajat (string/join ", " omistaja-strings)}))
+
 (defmethod format-type-specific-data :default [_ toimenpide _]
  (:type-specific-data toimenpide))

etp-backend/src/main/resources/pdf/template.html

@@ -113,7 +113,7 @@
  }
 
  p {
- margin-bottom: 1.28cm;
+ margin-bottom: 1.15cm;
  line-height: 1.4;
  }
 

etp-backend/src/test/clj/solita/etp/service/valvonta_kaytto/toimenpide_test.clj

@@ -204,8 +204,8 @@
  (t/is (true? (toimenpide/kaskypaatos-toimenpide? {:type-id 12}))))
  (t/testing "is not sakkopaatos-toimenpide?"
  (t/is (false? (toimenpide/sakkopaatos-toimenpide? {:type-id 12}))))
- (t/testing "is asha-toimenpide?"
- (t/is (true? (toimenpide/asha-toimenpide? {:type-id 12})))))
+ (t/testing "is not asha-toimenpide?"
+ (t/is (false? (toimenpide/asha-toimenpide? {:type-id 12})))))
 
  (t/testing "Käskypäätös / kuulemiskirje"
  (t/testing "has type-id 14 and type-key :penalty-decision-hering-letter"
@@ -266,8 +266,8 @@
  (t/is (false? (toimenpide/kaskypaatos-toimenpide? {:type-id 19}))))
  (t/testing "is sakkopaatos-toimenpide?"
  (t/is (true? (toimenpide/sakkopaatos-toimenpide? {:type-id 19}))))
- (t/testing "is asha-toimenpide?"
- (t/is (true? (toimenpide/asha-toimenpide? {:type-id 19})))))
+ (t/testing "is not asha-toimenpide?"
+ (t/is (false? (toimenpide/asha-toimenpide? {:type-id 19})))))
 
  (t/testing "Sakkoluettelon lähetys menossa"
  (t/testing "has type-id 21 and type-key :penalty-list-delivery-in-progress"

etp-backend/src/test/clj/solita/etp/service/valvonta_kaytto/toimenpide_type_specific_data_test.clj

@@ -1,6 +1,7 @@
 (ns solita.etp.service.valvonta-kaytto.toimenpide-type-specific-data-test
  (:require [clojure.test :as t]
  [solita.etp.service.luokittelu :as luokittelu]
+ [solita.etp.service.valvonta-kaytto :as valvonta-service]
  [solita.etp.service.valvonta-kaytto.toimenpide-type-specific-data :as type-specific-data]
  [solita.etp.test-system :as ts]))
 
@@ -36,15 +37,51 @@
  :department-head-name "Jorma Jormanen"
  :department-head-title-fi "Hallinto-oikeuden presidentti"
  :department-head-title-sv "Hallinto-oikeuden kuningas"
- :recipient-answered true}))
+ :recipient-answered true})))
 
- (t/testing "For käskypäätös / kuulemiskirje toimenpide :type-spefic-data map is returned as is, as no special formatting is needed"
+ (t/testing "For käskypäätös / kuulemiskirje toimenpide fine and all owner names are returned"
+ (let [valvonta-id (valvonta-service/add-valvonta! ts/*db* {:katuosoite "Testitie 5"
+ :postinumero "90100"
+ :ilmoituspaikka-id 0})]
+ (valvonta-service/add-henkilo! ts/*db*
+ valvonta-id
+ {:toimitustapa-description nil
+ :toimitustapa-id 0
+ :email nil
+ :rooli-id 0
+ :jakeluosoite "Testikatu 12"
+ :postitoimipaikka "Helsinki"
+ :puhelin nil
+ :sukunimi "Talonomistaja"
+ :postinumero "00100"
+ :henkilotunnus "000000-0000"
+ :rooli-description ""
+ :etunimi "Testi"
+ :vastaanottajan-tarkenne nil
+ :maa "FI"})
+
+ (valvonta-service/add-yritys! ts/*db*
+ valvonta-id
+ {:nimi "Yritysomistaja"
+ :toimitustapa-description nil
+ :toimitustapa-id 0
+ :email nil
+ :rooli-id 0
+ :jakeluosoite "Testikatu 12"
+ :vastaanottajan-tarkenne "Lisäselite C/O"
+ :postitoimipaikka "Helsinki"
+ :puhelin nil
+ :postinumero "00100"
+ :rooli-description ""
+ :maa "FI"})
  (t/is (= (type-specific-data/format-type-specific-data
  ts/*db*
  {:type-id 7
+ :valvonta-id valvonta-id
  :type-specific-data {:fine 800}}
  nil)
- {:fine 800})))))
+ {:fine 800
+ :omistajat "Talonomistaja Testi, Yritysomistaja"})))))
 
 (t/deftest hallinto-oikeus-id->formatted-string-test
  (t/testing "id 0 results in Helsingin hallinto-oikeudelta"

etp-backend/src/test/clj/solita/etp/valvonta_kaytto/kaskypaatos_kuulemiskirje_test.clj

@@ -1,5 +1,6 @@
 (ns solita.etp.valvonta-kaytto.kaskypaatos-kuulemiskirje-test
  (:require
+ [clojure.java.io :as io]
  [clojure.java.jdbc :as jdbc]
  [clojure.test :as t]
  [ring.mock.request :as mock]
@@ -13,6 +14,8 @@
 
 (t/use-fixtures :each ts/fixture)
 
+(def original-html->pdf pdf/html->pdf)
+
 (t/deftest kaskypaatos-kuulemiskirje-test
  ;; Add the main user for the following tests
  (test-kayttajat/insert-virtu-paakayttaja!
@@ -85,6 +88,100 @@
  (t/is (true? @html->pdf-called?))
  (t/is (= (:status response) 201))))))
 
+ (t/testing "Käskypäätös / Kuulemiskirje toimenpide is created successfully for two yksityishenkilö owners and both are mentioned in each document"
+ ;; Add the valvonta and previous toimenpides
+ ;; so that käskypäätös / kuulemiskirje toimenpide can be created
+ (let [valvonta-id (valvonta-service/add-valvonta! ts/*db* {:katuosoite "Testitie 5"
+ :postinumero "90100"
+ :ilmoituspaikka-id 0})
+ kehotus-timestamp (-> (LocalDate/of 2023 6 12)
+ (.atStartOfDay (ZoneId/systemDefault))
+ .toInstant)
+ varoitus-timestamp (-> (LocalDate/of 2023 7 13)
+ (.atStartOfDay (ZoneId/systemDefault))
+ .toInstant)
+ html->pdf-called? (atom 0)]
+
+ ;; Add osapuoli to the valvonta
+ (valvonta-service/add-henkilo! ts/*db*
+ valvonta-id
+ {:toimitustapa-description nil
+ :toimitustapa-id 0
+ :email nil
+ :rooli-id 0
+ :jakeluosoite "Testikatu 12"
+ :postitoimipaikka "Helsinki"
+ :puhelin nil
+ :sukunimi "Talonomistaja"
+ :postinumero "00100"
+ :henkilotunnus "000000-0000"
+ :rooli-description ""
+ :etunimi "Testi"
+ :vastaanottajan-tarkenne nil
+ :maa "FI"})
+
+ ;; Add second owner, both need to be mentioned in the document(s)
+ (valvonta-service/add-henkilo! ts/*db*
+ valvonta-id
+ {:toimitustapa-description nil
+ :toimitustapa-id 0
+ :email nil
+ :rooli-id 0
+ :jakeluosoite "Testikatu 12"
+ :postitoimipaikka "Helsinki"
+ :puhelin nil
+ :sukunimi "Talonomistaja"
+ :postinumero "00100"
+ :henkilotunnus "000000-0000"
+ :rooli-description ""
+ :etunimi "Tessa"
+ :vastaanottajan-tarkenne nil
+ :maa "FI"})
+
+ ;; Add kehotus-toimenpide to the valvonta
+ (jdbc/insert! ts/*db* :vk_toimenpide {:valvonta_id valvonta-id
+ :type_id 2
+ :create_time kehotus-timestamp
+ :publish_time kehotus-timestamp
+ :deadline_date (LocalDate/of 2023 7 12)})
+ ;; Add varoitus-toimenpide to the valvonta
+ (jdbc/insert! ts/*db* :vk_toimenpide {:valvonta_id valvonta-id
+ :type_id 3
+ :create_time varoitus-timestamp
+ :publish_time varoitus-timestamp
+ :deadline_date (LocalDate/of 2023 8 13)})
+
+ ;; Mock the current time to ensure that the document has a fixed date
+ (with-bindings {#'time/clock (Clock/fixed (-> (LocalDate/of 2023 6 26)
+ (.atStartOfDay time/timezone)
+ .toInstant)
+ time/timezone)
+ #'pdf/html->pdf (fn [html-doc output-stream]
+ (when (= 0 @html->pdf-called?)
+ (t/is
+ (= html-doc
+ (slurp
+ (io/resource "documents/kaskypaatoskuulemiskirje-yksityishenkilo-two-owners-1.html")))))
+
+ (when (= 1 @html->pdf-called?)
+ (t/is
+ (= html-doc
+ (slurp
+ (io/resource "documents/kaskypaatoskuulemiskirje-yksityishenkilo-two-owners-2.html")))))
+ (swap! html->pdf-called? inc)
+ (original-html->pdf html-doc output-stream))}
+ (let [new-toimenpide {:type-id 7
+ :deadline-date (str (LocalDate/of 2023 7 22))
+ :template-id 5
+ :description "Lähetetään kuulemiskirje, kun myyjä ei ole hankkinut energiatodistusta eikä vastannut kehotukseen tai varoitukseen"
+ :type-specific-data {:fine 800}}
+ response (ts/handler (-> (mock/request :post (format "/api/private/valvonta/kaytto/%s/toimenpiteet" valvonta-id))
+ (mock/json-body new-toimenpide)
+ (test-kayttajat/with-virtu-user)
+ (mock/header "Accept" "application/json")))]
+ (t/is (= 2 @html->pdf-called?) "Two documents are created")
+ (t/is (= (:status response) 201))))))
+
  (t/testing "Käskypäätös / Kuulemiskirje toimenpide is created successfully for yritys and document is generated with correct information"
  ;; Add the valvonta and previous toimenpides
  ;; so that käskypäätös / kuulemiskirje toimenpide can be created