diff --git a/src/clj/harja/palvelin/raportointi.clj b/src/clj/harja/palvelin/raportointi.clj index b8aac8f0eba..31ab02ea904 100644 --- a/src/clj/harja/palvelin/raportointi.clj +++ b/src/clj/harja/palvelin/raportointi.clj @@ -338,8 +338,9 @@ (binding [*raportin-suoritus* this] ;; Tallennetaan loki raportin ajon startista (let [parametrit (assoc parametrit :kasittelija kasittelija) + rajoita-pdf-rivimaara (:rajoita-pdf-rivimaara suoritettava-raportti) _ (when-not (= nimi :ilmoitukset-raportti) - (log/debug "SUORITETAAN RAPORTTI: " nimi " kontekstissa: " konteksti " parametreilla: " parametrit)) + (log/debug "SUORITETAAN RAPORTTI: " nimi " kontekstissa: " konteksti " parametreilla: " parametrit " PDF rajoitus: " rajoita-pdf-rivimaara)) suoritus-id (luo-suoritustieto-raportille db kayttaja @@ -361,7 +362,8 @@ "koko maa" parametrit))] ;; tallennetaan suorituksen lopetusaika (paivita-suorituksen-valmistumisaika db suoritus-id) - raportti))))))) + ;; Lisää vielä PDF rajoitus suoraa raportin elementteihin, jotta tämä saadaan passattua pdf generointiin + (update-in raportti [1] assoc :rajoita-pdf-rivimaara rajoita-pdf-rivimaara)))))))) (defn luo-raportointi [] diff --git a/src/clj/harja/palvelin/raportointi/pdf.clj b/src/clj/harja/palvelin/raportointi/pdf.clj index 19f3e2aa35b..c3934dccf44 100644 --- a/src/clj/harja/palvelin/raportointi/pdf.clj +++ b/src/clj/harja/palvelin/raportointi/pdf.clj @@ -68,7 +68,7 @@ (first elementti) :vain-arvo))) -(def ^:const +max-rivimaara+ 1000) +(def ^:const +max-rivimaara-default+ 1000) (defn cdata "Käsittele arvo puhtaana tekstinä." @@ -333,16 +333,16 @@ (cdata (str naytettava-arvo)) naytettava-arvo)]])]))))) -(defn- taulukko-alaosa [rivien-maara sarakkeet viimeinen-rivi-yhteenveto?] - (when (> rivien-maara +max-rivimaara+) +(defn- taulukko-alaosa [rivien-maara sarakkeet viimeinen-rivi-yhteenveto? rivi-raja] + (when (> rivien-maara rivi-raja) [:fo:table-row [:fo:table-cell {:padding "1mm" :number-columns-spanned (count sarakkeet)} [:fo:block {:space-after "0.5em"}] - [:fo:block (str "Taulukossa näytetään vain ensimmäiset " +max-rivimaara+ " rivia. " - "Tarkenna hakuehtoa. " - (when viimeinen-rivi-yhteenveto? - "Yhteenveto on laskettu kaikista riveistä"))]]])) + [:fo:block (str "Taulukossa näytetään vain ensimmäiset " rivi-raja " riviä. " + "Tarkenna hakuehtoa tai käytä Excel-vientiä." + (when viimeinen-rivi-yhteenveto? + "Yhteenveto on laskettu kaikista riveistä"))]]])) (defn taulukko-header [{:keys [oikealle-tasattavat-kentat] :as optiot} sarakkeet] (let [oikealle-tasattavat-kentat (or oikealle-tasattavat-kentat #{})] @@ -372,11 +372,12 @@ [:fo:block (cdata otsikko)]]) sarakkeet)]])) -(defn taulukko-body [sarakkeet data {:keys [viimeinen-rivi-yhteenveto? tyhja] :as optiot}] +(defn taulukko-body [sarakkeet data {:keys [viimeinen-rivi-yhteenveto? tyhja rajoita-pdf-rivimaara] :as optiot}] (let [rivien-maara (count data) viimeinen-rivi (last data) - data (if (> (count data) +max-rivimaara+) - (vec (concat (take +max-rivimaara+ data) + rivi-raja (or rajoita-pdf-rivimaara +max-rivimaara-default+) + data (if (> (count data) rivi-raja) + (vec (concat (take rivi-raja data) (when viimeinen-rivi-yhteenveto? [viimeinen-rivi]))) data)] @@ -389,7 +390,7 @@ [:fo:block {:space-after "0.5em"}] [:fo:block (or tyhja "Ei tietoja")]]]) (taulukko-rivit sarakkeet data viimeinen-rivi optiot) - (taulukko-alaosa rivien-maara sarakkeet viimeinen-rivi-yhteenveto?)])) + (taulukko-alaosa rivien-maara sarakkeet viimeinen-rivi-yhteenveto? rivi-raja)])) (defn arvotaulukko-valittu-aika [kyseessa-kk-vali? otsikko hoitokauden-otsikko valittu-pvm-otsikko hoitokauden-arvo laskutetaan-arvo] @@ -641,12 +642,22 @@ (when-let [tiedot (:tietoja raportin-tunnistetiedot)] [:fo:block {:padding "1mm 0" :border "solid 0.2mm black" :margin-bottom "2mm"} (muodosta-pdf [:yhteenveto tiedot])])] + (keep identity - (mapcat #(when % - (if (seq? %) - (map muodosta-pdf %) - [(muodosta-pdf %)])) + (mapcat (fn [elem] + (when elem + (if (seq? elem) + ;; Passaa taulukolle pdf rajoitus + (map #(if (= (first %) :taulukko) + (muodosta-pdf (update % 1 assoc :rajoita-pdf-rivimaara (:rajoita-pdf-rivimaara raportin-tunnistetiedot))) + (muodosta-pdf %)) + elem) + ;; Passaa taulukolle pdf rajoitus + (if (= (first elem) :taulukko) + [(muodosta-pdf (update elem 1 assoc :rajoita-pdf-rivimaara (:rajoita-pdf-rivimaara raportin-tunnistetiedot)))] + [(muodosta-pdf elem)])))) sisalto)) + #_[[:fo:block {:id "raportti-loppu"}]]))) {:tiedostonimi (str tiedoston-nimi ".pdf")}))) diff --git a/src/clj/harja/palvelin/raportointi/raportit.clj b/src/clj/harja/palvelin/raportointi/raportit.clj index ad392705e51..e180d67b836 100644 --- a/src/clj/harja/palvelin/raportointi/raportit.clj +++ b/src/clj/harja/palvelin/raportointi/raportit.clj @@ -146,6 +146,7 @@ :urakkatyyppi #{:hoito :teiden-hoito}} {:nimi :tiestotarkastusraportti + :rajoita-pdf-rivimaara 30000 :parametrit [{:tyyppi "aikavali", :konteksti nil, :pakollinen true, :nimi "Aikaväli"} {:tyyppi "tienumero", :konteksti nil, :pakollinen false, :nimi "Tienumero"}] :konteksti #{"hallintayksikko" "koko maa" "urakka" "hankinta-alue"} @@ -376,6 +377,8 @@ {:nimi :kanavien-liikennetapahtumat :konteksti #{} + ;; Älä nosta PDF rajaa tälle raportille, aiheutuu liiallista muisti allocaatiota + :rajoita-pdf-rivimaara 1200 :kuvaus "Liikennetapahtumat" :suorita #'harja.palvelin.raportointi.raportit.kanavien-liikennetapahtumat/suorita :urakkatyyppi urakka-domain/kanava-urakkatyypit} diff --git a/test/clj/harja/palvelin/raportointi/aikataulu_test.clj b/test/clj/harja/palvelin/raportointi/aikataulu_test.clj index 9933b2a32ac..67da438ee37 100644 --- a/test/clj/harja/palvelin/raportointi/aikataulu_test.clj +++ b/test/clj/harja/palvelin/raportointi/aikataulu_test.clj @@ -256,7 +256,7 @@ aikajana (-> vastaus (nth 2)) kohdeluettelo (-> vastaus last)] (is (vector? vastaus)) - (is (= otsikko {:orientaatio :landscape, :nimi "Utajärven päällystysurakka, Ylläpidon aikataulu 2023"})) + (is (= otsikko {:orientaatio :landscape, :nimi "Utajärven päällystysurakka, Ylläpidon aikataulu 2023" :rajoita-pdf-rivimaara nil})) (is (= aikajana odotettu-aikajana-2023)) (is (= kohdeluettelo odotettu-kohdeluettelo-2023)))) @@ -272,6 +272,6 @@ aikajana (-> vastaus (nth 2)) kohdeluettelo (-> vastaus last)] (is (vector? vastaus)) - (is (= otsikko {:orientaatio :landscape, :nimi "Utajärven päällystysurakka, Ylläpidon aikataulu 2024"})) + (is (= otsikko {:orientaatio :landscape, :nimi "Utajärven päällystysurakka, Ylläpidon aikataulu 2024" :rajoita-pdf-rivimaara nil})) (is (= aikajana odotettu-aikajana-2024)) (is (= kohdeluettelo odotettu-kohdeluettelo-2024)))) diff --git a/test/clj/harja/palvelin/raportointi/erilliskustannusraportti_test.clj b/test/clj/harja/palvelin/raportointi/erilliskustannusraportti_test.clj index 862f4f4f14a..0dac5b681ef 100644 --- a/test/clj/harja/palvelin/raportointi/erilliskustannusraportti_test.clj +++ b/test/clj/harja/palvelin/raportointi/erilliskustannusraportti_test.clj @@ -50,7 +50,7 @@ :loppupvm (c/to-date (t/local-date 2015 10 1))}})] (is (vector? vastaus)) (is (= vastaus [:raportti - {:nimi "Erilliskustannusten raportti"} + {:nimi "Erilliskustannusten raportti", :rajoita-pdf-rivimaara nil} [:taulukko {:oikealle-tasattavat-kentat #{4 5} @@ -127,7 +127,7 @@ :loppupvm (c/to-date (t/local-date 2022 10 1))}})] (is (vector? vastaus)) (is (= vastaus [:raportti - {:nimi "Erilliskustannusten raportti"} + {:nimi "Erilliskustannusten raportti", :rajoita-pdf-rivimaara nil} [:taulukko {:oikealle-tasattavat-kentat #{4 5} @@ -205,7 +205,7 @@ (is (vector? vastaus)) (is (= vastaus [:raportti - {:nimi "Erilliskustannusten raportti"} + {:nimi "Erilliskustannusten raportti", :rajoita-pdf-rivimaara nil} [:taulukko {:oikealle-tasattavat-kentat #{5 6} @@ -333,7 +333,7 @@ (is (vector? vastaus)) (is (= vastaus [:raportti - {:nimi "Erilliskustannusten raportti"} + {:nimi "Erilliskustannusten raportti", :rajoita-pdf-rivimaara nil} [:taulukko {:oikealle-tasattavat-kentat #{5 6} diff --git a/test/clj/harja/palvelin/raportointi/kanavat_raportti_test.clj b/test/clj/harja/palvelin/raportointi/kanavat_raportti_test.clj index 0991f749dc0..36761040c91 100644 --- a/test/clj/harja/palvelin/raportointi/kanavat_raportti_test.clj +++ b/test/clj/harja/palvelin/raportointi/kanavat_raportti_test.clj @@ -66,7 +66,8 @@ [:raportti {:orientaatio :landscape :nimi "Saimaan kanava, Häiriötilanteet ajalta 01.10.2023 - 30.09.2024", - :piilota-otsikko? true} + :piilota-otsikko? true, + :rajoita-pdf-rivimaara nil} [:taulukko {:otsikko "Häiriötilanteet", :tyhja nil, :sheet-nimi "Häiriötilanteet"} [{:otsikko "Havainto", :otsikkorivi-luokka "nakyma-otsikko", :sarakkeen-luokka "vaalen-tumma-tausta", :leveys 0.75, :tyyppi :varillinen-teksti} {:otsikko "Kohde", :otsikkorivi-luokka "nakyma-otsikko", :sarakkeen-luokka "nakyma-valkoinen-solu", :leveys 0.8, :tyyppi :varillinen-teksti} @@ -113,20 +114,21 @@ (is (= raportin-nimi "Saimaan kanava, Kokonaishintaiset toimenpiteet ajalta 01.10.2023 - 30.09.2024")) ;; Raportilla pitäisi näkyä passatut tiedot (is (= vastaus - [:raportti + [:raportti {:orientaatio :landscape - :nimi "Saimaan kanava, Kokonaishintaiset toimenpiteet ajalta 01.10.2023 - 30.09.2024", - :piilota-otsikko? true} - [:taulukko {:otsikko "Kokonaishintaiset toimenpiteet", :tyhja nil, :sheet-nimi "Kokonaishintaiset toimenpiteet"} - [{:otsikko "Pvm", :otsikkorivi-luokka "nakyma-otsikko", :sarakkeen-luokka "vaalen-tumma-tausta", :leveys 0.5, :tyyppi :varillinen-teksti} + :nimi "Saimaan kanava, Kokonaishintaiset toimenpiteet ajalta 01.10.2023 - 30.09.2024", + :piilota-otsikko? true, + :rajoita-pdf-rivimaara nil} + [:taulukko {:otsikko "Kokonaishintaiset toimenpiteet", :tyhja nil, :sheet-nimi "Kokonaishintaiset toimenpiteet"} + [{:otsikko "Pvm", :otsikkorivi-luokka "nakyma-otsikko", :sarakkeen-luokka "vaalen-tumma-tausta", :leveys 0.5, :tyyppi :varillinen-teksti} {:otsikko "Kohde", :otsikkorivi-luokka "nakyma-otsikko", :sarakkeen-luokka "nakyma-valkoinen-solu", :leveys 0.8, :tyyppi :varillinen-teksti} - {:otsikko "Huoltokohde", :otsikkorivi-luokka "nakyma-otsikko", :sarakkeen-luokka "nakyma-valkoinen-solu", :leveys 0.8, :tyyppi :varillinen-teksti} + {:otsikko "Huoltokohde", :otsikkorivi-luokka "nakyma-otsikko", :sarakkeen-luokka "nakyma-valkoinen-solu", :leveys 0.8, :tyyppi :varillinen-teksti} {:otsikko "Tehtävä", :otsikkorivi-luokka "nakyma-otsikko", :sarakkeen-luokka "nakyma-valkoinen-solu", :leveys 0.45, :tyyppi :varillinen-teksti} - {:otsikko "Muu toimenpide", :otsikkorivi-luokka "nakyma-otsikko", :sarakkeen-luokka "nakyma-valkoinen-solu", :leveys 0.6, :tyyppi :varillinen-teksti} + {:otsikko "Muu toimenpide", :otsikkorivi-luokka "nakyma-otsikko", :sarakkeen-luokka "nakyma-valkoinen-solu", :leveys 0.6, :tyyppi :varillinen-teksti} {:otsikko "Lisätieto", :otsikkorivi-luokka "nakyma-otsikko", :sarakkeen-luokka "nakyma-valkoinen-solu", :leveys 0.8, :tyyppi :varillinen-teksti} - {:otsikko "Suorittaja", :otsikkorivi-luokka "nakyma-otsikko", :sarakkeen-luokka "nakyma-valkoinen-solu", :leveys 0.5, :tyyppi :varillinen-teksti} - {:otsikko "Kuittaaja", :otsikkorivi-luokka "nakyma-otsikko", :sarakkeen-luokka "nakyma-valkoinen-solu", :leveys 0.8, :tyyppi :varillinen-teksti}] - [(list "19.2.2024 6:38" "Kansola" "Testi kohde" "Testi tehtävä" "Tehtiin juttuja" "Lisätietoja antaa päällikkö" "Samu Salminen" "Panu Harjalainen") + {:otsikko "Suorittaja", :otsikkorivi-luokka "nakyma-otsikko", :sarakkeen-luokka "nakyma-valkoinen-solu", :leveys 0.5, :tyyppi :varillinen-teksti} + {:otsikko "Kuittaaja", :otsikkorivi-luokka "nakyma-otsikko", :sarakkeen-luokka "nakyma-valkoinen-solu", :leveys 0.8, :tyyppi :varillinen-teksti}] + [(list "19.2.2024 6:38" "Kansola" "Testi kohde" "Testi tehtävä" "Tehtiin juttuja" "Lisätietoja antaa päällikkö" "Samu Salminen" "Panu Harjalainen") (list "19.2.2024 6:38" "Kansola" "Testi kohde" "Testi tehtävä" "Tehtiin juttuja" "Lisätietoja antaa päällikkö" "Tea Salminen" "Markus Harjalainen") (list "19.2.2024 6:38" "Kansola" "Testi kohde" "Testi tehtävä" "Tehtiin juttuja" "Lisätietoja antaa päällikkö" "Santtu Salminen" "Paula Harjalainen")]]])))) diff --git a/test/clj/harja/palvelin/raportointi/kulut_tehtavaryhmittain_test.clj b/test/clj/harja/palvelin/raportointi/kulut_tehtavaryhmittain_test.clj index 9abcdab8d63..dee1b7f69ee 100644 --- a/test/clj/harja/palvelin/raportointi/kulut_tehtavaryhmittain_test.clj +++ b/test/clj/harja/palvelin/raportointi/kulut_tehtavaryhmittain_test.clj @@ -34,7 +34,7 @@ jarjestelma-fixture)) (def odotettu-raportti - [:raportti {:nimi "Kulut tehtäväryhmittäin"} + [:raportti {:nimi "Kulut tehtäväryhmittäin", :rajoita-pdf-rivimaara nil} [:taulukko {:viimeinen-rivi-yhteenveto? true, :otsikko "Kulut tehtäväryhmittäin ajalla 01.12.2019 - 30.08.2020"} [{:leveys 1, :otsikko "Tehtäväryhmä"} {:leveys 1, :fmt :raha, :otsikko "Hoitokauden alusta 01.10.2019-30.09.2020"} {:leveys 1, :fmt :raha, :otsikko "Jaksolla 01.12.2019-30.08.2020"}] [(list "Talvihoito (A)" 6601.94M 3300.40M) diff --git a/test/clj/harja/palvelin/raportointi/laaduntarkastusraportti_test.clj b/test/clj/harja/palvelin/raportointi/laaduntarkastusraportti_test.clj index 808437f2230..4f654ba2075 100644 --- a/test/clj/harja/palvelin/raportointi/laaduntarkastusraportti_test.clj +++ b/test/clj/harja/palvelin/raportointi/laaduntarkastusraportti_test.clj @@ -49,7 +49,8 @@ (is (vector? vastaus)) (is (= vastaus [:raportti {:nimi "Laaduntarkastusraportti" - :orientaatio :landscape} + :orientaatio :landscape + :rajoita-pdf-rivimaara nil} [:taulukko {:otsikko "Oulun alueurakka 2005-2012, Laaduntarkastusraportti ajalta 01.10.2005 - 01.10.2006" :sheet-nimi "Laaduntarkastusraportti" @@ -112,7 +113,8 @@ (is (vector? vastaus)) (is (= vastaus [:raportti {:nimi "Laaduntarkastusraportti" - :orientaatio :landscape} + :orientaatio :landscape + :rajoita-pdf-rivimaara nil} [:taulukko {:otsikko "Uusimaa, Laaduntarkastusraportti ajalta 01.10.2005 - 01.10.2006" :sheet-nimi "Laaduntarkastusraportti" @@ -161,7 +163,8 @@ (is (vector? vastaus)) (is (= vastaus [:raportti {:nimi "Laaduntarkastusraportti" - :orientaatio :landscape} + :orientaatio :landscape + :rajoita-pdf-rivimaara nil} [:taulukko {:otsikko "KOKO MAA, Laaduntarkastusraportti ajalta 01.10.2005 - 01.10.2006" :sheet-nimi "Laaduntarkastusraportti" diff --git a/test/clj/harja/palvelin/raportointi/pohjavesialueiden_suolat_test.clj b/test/clj/harja/palvelin/raportointi/pohjavesialueiden_suolat_test.clj index 268e0a4c365..90d7013b219 100644 --- a/test/clj/harja/palvelin/raportointi/pohjavesialueiden_suolat_test.clj +++ b/test/clj/harja/palvelin/raportointi/pohjavesialueiden_suolat_test.clj @@ -67,7 +67,8 @@ (is (= vastaus [:raportti {:orientaatio :landscape - :nimi "Pudasjärven alueurakka 2007-2012, Suolatoteumat (kaikki pohjavesialueet) ajalta 01.10.2007 - 30.09.2008"} + :nimi "Pudasjärven alueurakka 2007-2012, Suolatoteumat (kaikki pohjavesialueet) ajalta 01.10.2007 - 30.09.2008" + :rajoita-pdf-rivimaara nil} nil [:taulukko {:otsikko "11615174-", :viimeinen-rivi-yhteenveto? true, :tyhja nil} [{:leveys 3 :fmt :kokonaisluku :otsikko "Tie"} diff --git a/test/clj/harja/palvelin/raportointi/siltatarkastusraportti_test.clj b/test/clj/harja/palvelin/raportointi/siltatarkastusraportti_test.clj index d902220635d..3e92746fd67 100644 --- a/test/clj/harja/palvelin/raportointi/siltatarkastusraportti_test.clj +++ b/test/clj/harja/palvelin/raportointi/siltatarkastusraportti_test.clj @@ -4,7 +4,6 @@ [harja.palvelin.palvelut.toimenpidekoodit :refer :all] [harja.palvelin.palvelut.urakat :refer :all] [harja.testi :refer :all] - [taoensso.timbre :as log] [com.stuartsierra.component :as component] [harja.palvelin.komponentit.pdf-vienti :as pdf-vienti] [harja.palvelin.raportointi :as raportointi] @@ -44,7 +43,7 @@ :urakka-id (hae-urakan-id-nimella "Oulun alueurakka 2005-2012") :parametrit {:vuosi 2007 :silta-id 1}}) - odotettu [:raportti {:orientaatio :landscape, :nimi "Siltatarkastusraportti"} [:taulukko {:otsikko "Siltatarkastusraportti, Oulun alueurakka 2005-2012, Oulujoen silta (O-00001), 2007", :tyhja "Sillalle ei ole tehty tarkastusta valittuna vuonna.", :viimeinen-rivi-yhteenveto? false, :sheet-nimi "Siltatarkastusraportti"} [{:leveys 2, :otsikko "#"} {:leveys 15, :otsikko "Kohde"} {:leveys 2, :otsikko "Tulos"} {:leveys 10, :otsikko "Lisätieto"} {:leveys 5, :otsikko "Liitteet"}] [{:otsikko "Aluerakenne", :virhe? false, :korosta? false} {:rivi [1 "Maatukien siisteys ja kunto" "A" nil [:liitteet []]], :virhe? false, :korosta? false} {:rivi [2 "Välitukien siisteys ja kunto" "A" nil [:liitteet []]], :virhe? false, :korosta? false} {:rivi [3 "Laakeritasojen siisteys ja kunto" "A" nil [:liitteet []]], :virhe? false, :korosta? false} {:otsikko "Päällysrakenne", :virhe? false, :korosta? false} {:rivi [4 "Kansilaatta" "A" nil [:liitteet []]], :virhe? false, :korosta? false} {:rivi [5 "Päällysteen kunto" "A" nil [:liitteet []]], :virhe? false, :korosta? false} {:rivi [6 "Reunapalkin siisteys ja kunto" "A" nil [:liitteet []]], :virhe? false, :korosta? false} {:rivi [7 "Reunapalkin liikuntasauma" "A" nil [:liitteet []]], :virhe? false, :korosta? false} {:rivi [8 "Reunapalkin ja päälllysteen välisen sauman siisteys ja kunto" "B" nil [:liitteet []]], :virhe? false, :korosta? false} {:rivi [9 "Sillanpäiden saumat" "A" nil [:liitteet []]], :virhe? false, :korosta? false} {:rivi [10 "Sillan ja penkereen raja" "A" nil [:liitteet []]], :virhe? false, :korosta? false} {:otsikko "Varusteet ja laitteet", :virhe? false, :korosta? false} {:rivi [11 "Kaiteiden ja suojaverkkojen vauriot" "A" nil [:liitteet []]], :virhe? false, :korosta? false} {:rivi [12 "Liikuntasaumalaitteiden siisteys ja kunto" "A" nil [:liitteet []]], :virhe? false, :korosta? false} {:rivi [13 "Laakerit" "A" nil [:liitteet []]], :virhe? false, :korosta? false} {:rivi [14 "Syöksytorvet" "A" nil [:liitteet []]], :virhe? false, :korosta? false} {:rivi [15 "Tippuputket" "A" nil [:liitteet []]], :virhe? false, :korosta? false} {:rivi [16 "Kosketussuojat ja niiden kiinnitykset" "A" nil [:liitteet []]], :virhe? false, :korosta? false} {:rivi [17 "Valaistuslaitteet" "A" nil [:liitteet []]], :virhe? false, :korosta? false} {:rivi [18 "Johdot ja kaapelit" "D" nil [:liitteet []]], :virhe? true, :korosta? true} {:rivi [19 "Liikennemerkit" "A" nil [:liitteet []]], :virhe? false, :korosta? false} {:otsikko "Siltapaikan rakenteet", :virhe? false, :korosta? false} {:rivi [20 "Kuivatuslaitteiden siisteys ja kunto" "C" nil [:liitteet []]], :virhe? false, :korosta? false} {:rivi [21 "Etuluiskien siisteys ja kunto" "B" nil [:liitteet []]], :virhe? false, :korosta? false} {:rivi [22 "Keilojen siisteys ja kunto" "A" nil [:liitteet []]], :virhe? false, :korosta? false} {:rivi [23 "Tieluiskien siisteys ja kunto" "A" nil [:liitteet []]], :virhe? false, :korosta? false} {:rivi [24 "Portaiden siisteys ja kunto" "A" nil [:liitteet []]], :virhe? false, :korosta? false}]] [:yhteenveto [["Tarkastaja" "Sirkka Sillankoestaja"] ["Tarkastettu" "25.02.2007"]]] [:yhteenveto [["Siltoja urakassa" 7] ["Tarkastettu 2007" "2 (28,6 %)"] ["Tarkastamatta 2007" "5 (71,4 %)"]]]]] + odotettu [:raportti {:orientaatio :landscape, :nimi "Siltatarkastusraportti" :rajoita-pdf-rivimaara nil} [:taulukko {:otsikko "Siltatarkastusraportti, Oulun alueurakka 2005-2012, Oulujoen silta (O-00001), 2007", :tyhja "Sillalle ei ole tehty tarkastusta valittuna vuonna.", :viimeinen-rivi-yhteenveto? false, :sheet-nimi "Siltatarkastusraportti"} [{:leveys 2, :otsikko "#"} {:leveys 15, :otsikko "Kohde"} {:leveys 2, :otsikko "Tulos"} {:leveys 10, :otsikko "Lisätieto"} {:leveys 5, :otsikko "Liitteet"}] [{:otsikko "Aluerakenne", :virhe? false, :korosta? false} {:rivi [1 "Maatukien siisteys ja kunto" "A" nil [:liitteet []]], :virhe? false, :korosta? false} {:rivi [2 "Välitukien siisteys ja kunto" "A" nil [:liitteet []]], :virhe? false, :korosta? false} {:rivi [3 "Laakeritasojen siisteys ja kunto" "A" nil [:liitteet []]], :virhe? false, :korosta? false} {:otsikko "Päällysrakenne", :virhe? false, :korosta? false} {:rivi [4 "Kansilaatta" "A" nil [:liitteet []]], :virhe? false, :korosta? false} {:rivi [5 "Päällysteen kunto" "A" nil [:liitteet []]], :virhe? false, :korosta? false} {:rivi [6 "Reunapalkin siisteys ja kunto" "A" nil [:liitteet []]], :virhe? false, :korosta? false} {:rivi [7 "Reunapalkin liikuntasauma" "A" nil [:liitteet []]], :virhe? false, :korosta? false} {:rivi [8 "Reunapalkin ja päälllysteen välisen sauman siisteys ja kunto" "B" nil [:liitteet []]], :virhe? false, :korosta? false} {:rivi [9 "Sillanpäiden saumat" "A" nil [:liitteet []]], :virhe? false, :korosta? false} {:rivi [10 "Sillan ja penkereen raja" "A" nil [:liitteet []]], :virhe? false, :korosta? false} {:otsikko "Varusteet ja laitteet", :virhe? false, :korosta? false} {:rivi [11 "Kaiteiden ja suojaverkkojen vauriot" "A" nil [:liitteet []]], :virhe? false, :korosta? false} {:rivi [12 "Liikuntasaumalaitteiden siisteys ja kunto" "A" nil [:liitteet []]], :virhe? false, :korosta? false} {:rivi [13 "Laakerit" "A" nil [:liitteet []]], :virhe? false, :korosta? false} {:rivi [14 "Syöksytorvet" "A" nil [:liitteet []]], :virhe? false, :korosta? false} {:rivi [15 "Tippuputket" "A" nil [:liitteet []]], :virhe? false, :korosta? false} {:rivi [16 "Kosketussuojat ja niiden kiinnitykset" "A" nil [:liitteet []]], :virhe? false, :korosta? false} {:rivi [17 "Valaistuslaitteet" "A" nil [:liitteet []]], :virhe? false, :korosta? false} {:rivi [18 "Johdot ja kaapelit" "D" nil [:liitteet []]], :virhe? true, :korosta? true} {:rivi [19 "Liikennemerkit" "A" nil [:liitteet []]], :virhe? false, :korosta? false} {:otsikko "Siltapaikan rakenteet", :virhe? false, :korosta? false} {:rivi [20 "Kuivatuslaitteiden siisteys ja kunto" "C" nil [:liitteet []]], :virhe? false, :korosta? false} {:rivi [21 "Etuluiskien siisteys ja kunto" "B" nil [:liitteet []]], :virhe? false, :korosta? false} {:rivi [22 "Keilojen siisteys ja kunto" "A" nil [:liitteet []]], :virhe? false, :korosta? false} {:rivi [23 "Tieluiskien siisteys ja kunto" "A" nil [:liitteet []]], :virhe? false, :korosta? false} {:rivi [24 "Portaiden siisteys ja kunto" "A" nil [:liitteet []]], :virhe? false, :korosta? false}]] [:yhteenveto [["Tarkastaja" "Sirkka Sillankoestaja"] ["Tarkastettu" "25.02.2007"]]] [:yhteenveto [["Siltoja urakassa" 7] ["Tarkastettu 2007" "2 (28,6 %)"] ["Tarkastamatta 2007" "5 (71,4 %)"]]]]] (is (= vastaus odotettu)) (is (vector? vastaus)) (apurit/tarkista-raportti vastaus "Siltatarkastusraportti") @@ -82,7 +81,7 @@ :urakka-id (hae-urakan-id-nimella "Oulun alueurakka 2005-2012") :parametrit {:vuosi 2007 :silta-id :kaikki}}) - odotettu [:raportti {:orientaatio :landscape, :nimi "Siltatarkastusraportti"} [:taulukko {:otsikko "Siltatarkastusraportti, Oulun alueurakka 2005-2012 vuodelta 2007", :tyhja "Sillalle ei ole tehty tarkastusta valittuna vuonna.", :viimeinen-rivi-yhteenveto? true, :sheet-nimi "Siltatarkastusraportti"} [{:leveys 5, :otsikko "Siltanumero"} {:leveys 10, :otsikko "Silta"} {:leveys 5, :otsikko "Tarkastettu", :fmt :pvm} {:leveys 5, :otsikko "Tarkastaja"} {:leveys 5, :otsikko "A"} {:leveys 5, :otsikko "B"} {:leveys 5, :otsikko "C"} {:leveys 5, :otsikko "D"} {:leveys 5, :otsikko "Liitteet"}] [{:rivi [902 "Pyhäjoen silta" #inst "2007-05-04T21:00:00.000000000-00:00" "Mari Mittatarkka" [:arvo-ja-osuus {:arvo 20, :osuus 83}] [:arvo-ja-osuus {:arvo 2, :osuus 8}] [:arvo-ja-osuus {:arvo 1, :osuus 4}] [:arvo-ja-osuus {:arvo 1, :osuus 4}] [:liitteet []]], :virhe? true, :tarkastamaton? false, :korosta? false, :korosta-harmaa? true, :lihavoi? false, :siirtynyt? true} {:rivi [1537 "Oulujoen silta" #inst "2007-02-24T22:00:00.000000000-00:00" "Sirkka Sillankoestaja" [:arvo-ja-osuus {:arvo 20, :osuus 83}] [:arvo-ja-osuus {:arvo 2, :osuus 8}] [:arvo-ja-osuus {:arvo 1, :osuus 4}] [:arvo-ja-osuus {:arvo 1, :osuus 4}] [:liitteet []]], :virhe? true, :tarkastamaton? false, :korosta? false, :korosta-harmaa? true, :lihavoi? false, :siirtynyt? true} {:rivi [0 "Tekaistu kuntasilta" "Silta ei ole urakan vastuulla" "-" [:arvo-ja-osuus {:arvo 0, :osuus 0}] [:arvo-ja-osuus {:arvo 0, :osuus 0}] [:arvo-ja-osuus {:arvo 0, :osuus 0}] [:arvo-ja-osuus {:arvo 0, :osuus 0}] [:liitteet []]], :virhe? false, :tarkastamaton? false, :korosta? false, :korosta-harmaa? true :lihavoi? false, :siirtynyt? true} {:rivi [6666 "Joutsensilta" "Silta ei ole urakan vastuulla" "-" [:arvo-ja-osuus {:arvo 0, :osuus 0}] [:arvo-ja-osuus {:arvo 0, :osuus 0}] [:arvo-ja-osuus {:arvo 0, :osuus 0}] [:arvo-ja-osuus {:arvo 0, :osuus 0}] [:liitteet []]], :virhe? false, :tarkastamaton? false, :korosta? false, :korosta-harmaa? true :lihavoi? false, :siirtynyt? true} {:rivi [7777 "Kajaanintien silta" "Silta ei ole urakan vastuulla" "-" [:arvo-ja-osuus {:arvo 0, :osuus 0}] [:arvo-ja-osuus {:arvo 0, :osuus 0}] [:arvo-ja-osuus {:arvo 0, :osuus 0}] [:arvo-ja-osuus {:arvo 0, :osuus 0}] [:liitteet []]], :virhe? false, :tarkastamaton? false, :korosta? false, :korosta-harmaa? true, :lihavoi? false, :siirtynyt? true} {:rivi [7778 "Pyhäjoen silta" "Silta ei ole urakan vastuulla" "-" [:arvo-ja-osuus {:arvo 0, :osuus 0}] [:arvo-ja-osuus {:arvo 0, :osuus 0}] [:arvo-ja-osuus {:arvo 0, :osuus 0}] [:arvo-ja-osuus {:arvo 0, :osuus 0}] [:liitteet []]], :virhe? false, :tarkastamaton? false, :korosta? false, :korosta-harmaa? true, :lihavoi? false, :siirtynyt? true} {:rivi [325235 "Kempeleen testisilta" "Silta ei ole urakan vastuulla" "-" [:arvo-ja-osuus {:arvo 0, :osuus 0}] [:arvo-ja-osuus {:arvo 0, :osuus 0}] [:arvo-ja-osuus {:arvo 0, :osuus 0}] [:arvo-ja-osuus {:arvo 0, :osuus 0}] [:liitteet []]], :virhe? false, :tarkastamaton? false, :korosta? false, :korosta-harmaa? true :lihavoi? false, :siirtynyt? true} ["Yhteensä" nil nil nil [:arvo-ja-osuus {:arvo 40, :osuus 83}] [:arvo-ja-osuus {:arvo 4, :osuus 8}] [:arvo-ja-osuus {:arvo 2, :osuus 4}] [:arvo-ja-osuus {:arvo 2, :osuus 4}] [:liitteet nil]]]] nil [:yhteenveto [["Siltoja urakassa" 7] ["Tarkastettu 2007" "2 (28,6 %)"] ["Tarkastamatta 2007" "5 (71,4 %)"]]]]] + odotettu [:raportti {:orientaatio :landscape, :nimi "Siltatarkastusraportti" :rajoita-pdf-rivimaara nil} [:taulukko {:otsikko "Siltatarkastusraportti, Oulun alueurakka 2005-2012 vuodelta 2007", :tyhja "Sillalle ei ole tehty tarkastusta valittuna vuonna.", :viimeinen-rivi-yhteenveto? true, :sheet-nimi "Siltatarkastusraportti"} [{:leveys 5, :otsikko "Siltanumero"} {:leveys 10, :otsikko "Silta"} {:leveys 5, :otsikko "Tarkastettu", :fmt :pvm} {:leveys 5, :otsikko "Tarkastaja"} {:leveys 5, :otsikko "A"} {:leveys 5, :otsikko "B"} {:leveys 5, :otsikko "C"} {:leveys 5, :otsikko "D"} {:leveys 5, :otsikko "Liitteet"}] [{:rivi [902 "Pyhäjoen silta" #inst "2007-05-04T21:00:00.000000000-00:00" "Mari Mittatarkka" [:arvo-ja-osuus {:arvo 20, :osuus 83}] [:arvo-ja-osuus {:arvo 2, :osuus 8}] [:arvo-ja-osuus {:arvo 1, :osuus 4}] [:arvo-ja-osuus {:arvo 1, :osuus 4}] [:liitteet []]], :virhe? true, :tarkastamaton? false, :korosta? false, :korosta-harmaa? true, :lihavoi? false, :siirtynyt? true} {:rivi [1537 "Oulujoen silta" #inst "2007-02-24T22:00:00.000000000-00:00" "Sirkka Sillankoestaja" [:arvo-ja-osuus {:arvo 20, :osuus 83}] [:arvo-ja-osuus {:arvo 2, :osuus 8}] [:arvo-ja-osuus {:arvo 1, :osuus 4}] [:arvo-ja-osuus {:arvo 1, :osuus 4}] [:liitteet []]], :virhe? true, :tarkastamaton? false, :korosta? false, :korosta-harmaa? true, :lihavoi? false, :siirtynyt? true} {:rivi [0 "Tekaistu kuntasilta" "Silta ei ole urakan vastuulla" "-" [:arvo-ja-osuus {:arvo 0, :osuus 0}] [:arvo-ja-osuus {:arvo 0, :osuus 0}] [:arvo-ja-osuus {:arvo 0, :osuus 0}] [:arvo-ja-osuus {:arvo 0, :osuus 0}] [:liitteet []]], :virhe? false, :tarkastamaton? false, :korosta? false, :korosta-harmaa? true :lihavoi? false, :siirtynyt? true} {:rivi [6666 "Joutsensilta" "Silta ei ole urakan vastuulla" "-" [:arvo-ja-osuus {:arvo 0, :osuus 0}] [:arvo-ja-osuus {:arvo 0, :osuus 0}] [:arvo-ja-osuus {:arvo 0, :osuus 0}] [:arvo-ja-osuus {:arvo 0, :osuus 0}] [:liitteet []]], :virhe? false, :tarkastamaton? false, :korosta? false, :korosta-harmaa? true :lihavoi? false, :siirtynyt? true} {:rivi [7777 "Kajaanintien silta" "Silta ei ole urakan vastuulla" "-" [:arvo-ja-osuus {:arvo 0, :osuus 0}] [:arvo-ja-osuus {:arvo 0, :osuus 0}] [:arvo-ja-osuus {:arvo 0, :osuus 0}] [:arvo-ja-osuus {:arvo 0, :osuus 0}] [:liitteet []]], :virhe? false, :tarkastamaton? false, :korosta? false, :korosta-harmaa? true, :lihavoi? false, :siirtynyt? true} {:rivi [7778 "Pyhäjoen silta" "Silta ei ole urakan vastuulla" "-" [:arvo-ja-osuus {:arvo 0, :osuus 0}] [:arvo-ja-osuus {:arvo 0, :osuus 0}] [:arvo-ja-osuus {:arvo 0, :osuus 0}] [:arvo-ja-osuus {:arvo 0, :osuus 0}] [:liitteet []]], :virhe? false, :tarkastamaton? false, :korosta? false, :korosta-harmaa? true, :lihavoi? false, :siirtynyt? true} {:rivi [325235 "Kempeleen testisilta" "Silta ei ole urakan vastuulla" "-" [:arvo-ja-osuus {:arvo 0, :osuus 0}] [:arvo-ja-osuus {:arvo 0, :osuus 0}] [:arvo-ja-osuus {:arvo 0, :osuus 0}] [:arvo-ja-osuus {:arvo 0, :osuus 0}] [:liitteet []]], :virhe? false, :tarkastamaton? false, :korosta? false, :korosta-harmaa? true :lihavoi? false, :siirtynyt? true} ["Yhteensä" nil nil nil [:arvo-ja-osuus {:arvo 40, :osuus 83}] [:arvo-ja-osuus {:arvo 4, :osuus 8}] [:arvo-ja-osuus {:arvo 2, :osuus 4}] [:arvo-ja-osuus {:arvo 2, :osuus 4}] [:liitteet nil]]]] nil [:yhteenveto [["Siltoja urakassa" 7] ["Tarkastettu 2007" "2 (28,6 %)"] ["Tarkastamatta 2007" "5 (71,4 %)"]]]]] (is (= odotettu vastaus)) (is (vector? vastaus)) (is (= 5 (count vastaus))))) diff --git a/test/clj/harja/palvelin/raportointi/soratietarkastusraportti_test.clj b/test/clj/harja/palvelin/raportointi/soratietarkastusraportti_test.clj index edc9fa4cb3f..a713ae71fc0 100644 --- a/test/clj/harja/palvelin/raportointi/soratietarkastusraportti_test.clj +++ b/test/clj/harja/palvelin/raportointi/soratietarkastusraportti_test.clj @@ -4,9 +4,7 @@ [harja.palvelin.palvelut.toimenpidekoodit :refer :all] [harja.palvelin.palvelut.urakat :refer :all] [harja.testi :refer :all] - [taoensso.timbre :as log] [com.stuartsierra.component :as component] - [harja.pvm :as pvm] [clj-time.core :as t] [clj-time.coerce :as c] [harja.palvelin.komponentit.pdf-vienti :as pdf-vienti] @@ -50,7 +48,8 @@ (is (vector? vastaus)) (is (= vastaus [:raportti {:nimi "Soratietarkastusraportti" - :orientaatio :landscape} + :orientaatio :landscape + :rajoita-pdf-rivimaara nil} [:taulukko {:korosta-rivit #{0 1 diff --git a/test/clj/harja/palvelin/raportointi/talvisuolan_kokonaiskayttomaarat_ja_lampotilat_test.clj b/test/clj/harja/palvelin/raportointi/talvisuolan_kokonaiskayttomaarat_ja_lampotilat_test.clj index 531929ec8b7..de976890a18 100644 --- a/test/clj/harja/palvelin/raportointi/talvisuolan_kokonaiskayttomaarat_ja_lampotilat_test.clj +++ b/test/clj/harja/palvelin/raportointi/talvisuolan_kokonaiskayttomaarat_ja_lampotilat_test.clj @@ -1,4 +1,4 @@ -(ns harja.palvelin.raportointi.talvisuolan_kokonaiskayttomaarat_ja_lampotilat_test +(ns harja.palvelin.raportointi.talvisuolan-kokonaiskayttomaarat-ja-lampotilat-test (:require [clojure.test :refer :all] [harja.testi :refer :all] [harja.pvm :as pvm] @@ -127,7 +127,8 @@ (is (= vastaus [:raportti {:nimi "Oulun MHU 2019-2024" - :orientaatio :landscape} + :orientaatio :landscape + :rajoita-pdf-rivimaara nil} [:taulukko {:otsikko (str "Talvihoitosuolan kokonaiskäyttömäärä ja lämpötilatarkastelu 01.10.2019 - 30.09." (inc (apply max hoitovuodet))), :tyhja nil, :sheet-nimi "Talvihoitosuolat"} [{:otsikko "Hoitovuosi", :leveys 1, :fmt :kokonaisluku, :tasaa :vasen} {:otsikko "Keskilämpötilojen keskiarvo tarkastelujaksolla (°C)", :leveys 1, :fmt :numero, :tasaa :oikea} diff --git a/test/clj/harja/palvelin/raportointi/tiestotarkastusraportti_test.clj b/test/clj/harja/palvelin/raportointi/tiestotarkastusraportti_test.clj index b20ca382d0a..ee5d1f074cd 100644 --- a/test/clj/harja/palvelin/raportointi/tiestotarkastusraportti_test.clj +++ b/test/clj/harja/palvelin/raportointi/tiestotarkastusraportti_test.clj @@ -4,9 +4,7 @@ [harja.palvelin.palvelut.toimenpidekoodit :refer :all] [harja.palvelin.palvelut.urakat :refer :all] [harja.testi :refer :all] - [taoensso.timbre :as log] [com.stuartsierra.component :as component] - [harja.pvm :as pvm] [clj-time.core :as t] [clj-time.coerce :as c] [harja.palvelin.komponentit.pdf-vienti :as pdf-vienti] @@ -49,7 +47,8 @@ (is (vector? vastaus)) (is (= vastaus [:raportti {:nimi "Tiestötarkastusraportti" - :orientaatio :landscape} + :orientaatio :landscape + :rajoita-pdf-rivimaara 30000} [:taulukko {:otsikko "Oulun alueurakka 2014-2019, Tiestötarkastusraportti ajalta 01.10.2014 - 01.10.2015" :sheet-nimi "Tiestötarkastusraportti" @@ -138,7 +137,8 @@ (is (vector? vastaus)) (is (= vastaus [:raportti {:nimi "Tiestötarkastusraportti" - :orientaatio :landscape} + :orientaatio :landscape + :rajoita-pdf-rivimaara 30000} [:taulukko {:otsikko "Pohjois-Pohjanmaa, Tiestötarkastusraportti ajalta 01.10.2014 - 01.10.2015" :sheet-nimi "Tiestötarkastusraportti" @@ -226,7 +226,8 @@ (is (vector? vastaus)) (is (= vastaus [:raportti {:nimi "Tiestötarkastusraportti" - :orientaatio :landscape} + :orientaatio :landscape + :rajoita-pdf-rivimaara 30000} [:taulukko {:otsikko "KOKO MAA, Tiestötarkastusraportti ajalta 01.01.2014 - 31.12.2015" :sheet-nimi "Tiestötarkastusraportti" diff --git a/test/clj/harja/palvelin/raportointi/vastaanottotarkastus_test.clj b/test/clj/harja/palvelin/raportointi/vastaanottotarkastus_test.clj index e353ae12e11..477f17257d0 100644 --- a/test/clj/harja/palvelin/raportointi/vastaanottotarkastus_test.clj +++ b/test/clj/harja/palvelin/raportointi/vastaanottotarkastus_test.clj @@ -331,7 +331,7 @@ aikataulu (-> vastaus (nth 7) second) kohdeluettelo (-> vastaus (nth 7) last)] (is (vector? vastaus)) - (is (= otsikko {:orientaatio :landscape, :nimi "Muhoksen päällystysurakka, Vastaanottotarkastus 2017"})) + (is (= otsikko {:orientaatio :landscape, :nimi "Muhoksen päällystysurakka, Vastaanottotarkastus 2017", :rajoita-pdf-rivimaara nil})) (is (= yha-kohteet odotettu-yha-kohteet-2017)) (is (= muut-kustannukset odotettu-muut-kustannukset-2017)) (is (= muut-kohteet odotettu-paikkauskohteet-2017)) @@ -355,7 +355,7 @@ kohdeluettelo (-> vastaus (nth 7) last) yhteenveto (-> vastaus (nth 9))] (is (vector? vastaus)) - (is (= otsikko {:orientaatio :landscape, :nimi "Utajärven päällystysurakka, Vastaanottotarkastus 2023"})) + (is (= otsikko {:orientaatio :landscape, :nimi "Utajärven päällystysurakka, Vastaanottotarkastus 2023", :rajoita-pdf-rivimaara nil})) (is (= yha-kohteet odotettu-yha-kohteet-2023)) ;; muut kustannukset ja paikkauskohteet -osalta ei ole loogisia sarakemuutoksia vs. 2017, eikä testidatassa mitään sisältöä, joten ei assertoida ;; muita kustannuksia ja paikkauskohteita koska se on tehty 2017-testissä @@ -378,7 +378,7 @@ yhteenveto (-> vastaus (nth 9)) pkluokat (-> vastaus (nth 11))] (is (vector? vastaus)) - (is (= otsikko {:orientaatio :landscape, :nimi "Päällystysurakoiden yhteenveto, KOKO MAA 2023"})) + (is (= otsikko {:orientaatio :landscape, :nimi "Päällystysurakoiden yhteenveto, KOKO MAA 2023", :rajoita-pdf-rivimaara nil})) (is (= muut-kohteet odotettu-muut-kohteet-kokomaa-2023)) (is (= muut-kustannukset odotettu-muut-kustannukset-kokomaa-2023)) (is (= yha-kohteet odotettu-yha-kohteet-kokomaa-2023)) diff --git a/test/clj/harja/palvelin/raportointi/yksikkohintaiset_tyot_kuukausittain_test.clj b/test/clj/harja/palvelin/raportointi/yksikkohintaiset_tyot_kuukausittain_test.clj index 326d3db3704..36c0b5b6eea 100644 --- a/test/clj/harja/palvelin/raportointi/yksikkohintaiset_tyot_kuukausittain_test.clj +++ b/test/clj/harja/palvelin/raportointi/yksikkohintaiset_tyot_kuukausittain_test.clj @@ -3,13 +3,10 @@ [harja.palvelin.komponentit.tietokanta :as tietokanta] [harja.palvelin.palvelut.toimenpidekoodit :refer :all] [harja.palvelin.palvelut.urakat :refer :all] - [harja.kyselyt.urakat :as urk-q] [harja.testi :refer :all] [harja.palvelin.komponentit.pdf-vienti :as pdf-vienti] - [com.stuartsierra.component :as component] - [harja.palvelin.raportointi :refer :all] [harja.palvelin.raportointi.raportit.yksikkohintaiset-tyot-kuukausittain :as raportti] - [harja.pvm :as pvm] + [com.stuartsierra.component :as component] [clj-time.core :as t] [clj-time.coerce :as c] [harja.palvelin.raportointi :as raportointi] @@ -52,6 +49,7 @@ (is (vector? vastaus)) (is (= vastaus [:raportti {:orientaatio :landscape + :rajoita-pdf-rivimaara nil :nimi "Yksikköhintaiset työt kuukausittain"} [:taulukko {:oikealle-tasattavat-kentat #{10 @@ -173,7 +171,8 @@ (is (vector? vastaus)) (is (= vastaus [:raportti {:nimi "Yksikköhintaiset työt kuukausittain" - :orientaatio :landscape} + :orientaatio :landscape + :rajoita-pdf-rivimaara nil} [:taulukko {:oikealle-tasattavat-kentat #{10 11 @@ -293,7 +292,8 @@ (is (vector? vastaus)) (is (= vastaus [:raportti {:nimi "Yksikköhintaiset työt kuukausittain" - :orientaatio :landscape} + :orientaatio :landscape + :rajoita-pdf-rivimaara nil} [:taulukko {:oikealle-tasattavat-kentat #{10 11 diff --git a/test/clj/harja/palvelin/raportointi/yksikkohintaiset_tyot_tehtavittain_test.clj b/test/clj/harja/palvelin/raportointi/yksikkohintaiset_tyot_tehtavittain_test.clj index 83f5f903c2d..a6f93582319 100644 --- a/test/clj/harja/palvelin/raportointi/yksikkohintaiset_tyot_tehtavittain_test.clj +++ b/test/clj/harja/palvelin/raportointi/yksikkohintaiset_tyot_tehtavittain_test.clj @@ -5,7 +5,6 @@ [harja.palvelin.palvelut.urakat :refer :all] [harja.testi :refer :all] [com.stuartsierra.component :as component] - [harja.pvm :as pvm] [clj-time.core :as t] [clj-time.coerce :as c] [harja.palvelin.komponentit.pdf-vienti :as pdf-vienti] @@ -95,7 +94,8 @@ (is (vector? vastaus)) (is (= vastaus [:raportti {:nimi "Yksikköhintaiset työt tehtävittäin" - :orientaatio :landscape} + :orientaatio :landscape + :rajoita-pdf-rivimaara nil} [:taulukko {:oikealle-tasattavat-kentat #{} :otsikko "Pohjois-Pohjanmaa, Yksikköhintaiset työt tehtävittäin ajalta 10.10.2005 - 10.10.2010" @@ -132,7 +132,8 @@ (is (vector? vastaus)) (is (= vastaus [:raportti {:nimi "Yksikköhintaiset työt tehtävittäin" - :orientaatio :landscape} + :orientaatio :landscape + :rajoita-pdf-rivimaara nil} [:taulukko {:oikealle-tasattavat-kentat #{} :otsikko "KOKO MAA, Yksikköhintaiset työt tehtävittäin ajalta 10.10.2005 - 10.10.2010"