Ero sivun ”Ympäristöterveydenhuollon toimijat” versioiden välillä

Opasnet Suomista
Siirry navigaatioon Siirry hakuun
(initioidaan muuttuja t2b:llä)
(koodi saatu toimimaan)
Rivi 1: Rivi 1:
[[Luokka:Ympäristöterveydenhuolto]]
[[Luokka:Ympäristöterveydenhuolto]]
{{tutkimus|moderator=Jouni}}
{{tutkimus|moderator=Jouni}}
'''Ympäristöterveydenhuollon toimijat''' ovat henkilöitä, yrityksiä tai yhteisöjä, jotka tekevät ympäristöterveydenhuoltoon liittyvää toimintaa tai valvontaa. Tällä sivulla kerätään, päivitetään ja jaetaan tietoja heistä.
'''Ympäristöterveydenhuollon toimijat''' ovat henkilöitä, yrityksiä tai yhteisöjä, jotka tekevät ympäristöterveydenhuoltoon liittyvää toimintaa tai valvontaa. Tällä sivulla kerätään, päivitetään ja jaetaan tietoja heistä. Kaikki ne tiedot päivittyvät, joita ei jätetä tyhjäksi.


(* = Pakollinen tieto)
(* = Pakollinen tieto)


<rcode showcode="-1" label="Tallenna tiedot" variables="
<rcode showcode="-1" label="Tallenna tiedot" include="page:OpasnetBaseUtils|name:generic" variables="
name:var1|description:Y-tunnus *|type:text|
name:var1|description:Y-tunnus *|type:text|
name:var2|description:Yrityksen kielikoodi|type:text|default:FI|
name:var2|description:Yrityksen kielikoodi (FI, SE, EN tms.)|type:text|
name:var3|description:Yrityksen tila *|type:selection|options:1;vireillä;2;voimassa;3;lakannut|default:2|
name:var3|description:Yrityksen tila *|type:selection|options:NA;Valitse;1;vireillä;2;voimassa;3;lakannut|
name:var4|description:Kotikunta (koodi) *|default:0|
name:var4|description:Kotikunta (koodi) *|type:text|
name:var5|description:Yritysmuoto (OY, avoin yhtiö, jne)|type:text|
name:var5|description:Yritysmuoto (OY, avoin yhtiö, jne)|type:text|
name:var6|description:Omistajan tyypi|type:selection|options:1;Yksityinen kotimainen;2;Valtio;3;Kunta;4;Ahvenanmaan maakunta;5;Ulkomaalainen omistaja;6;Pörssiyhtiö;7;Muu omistajatyyppi|
name:var6|description:Omistajan tyypi|type:selection|options:NA;Valitse;1;Yksityinen kotimainen;2;Valtio;3;Kunta;4;Ahvenanmaan maakunta;5;Ulkomaalainen omistaja;6;Pörssiyhtiö;7;Muu omistajatyyppi|
name:var7|description:Toimialaluokitus (Tilastokeskuksen toimialaluokitus 2008)|type:text|
name:var7|description:Toimialaluokitus (Tilastokeskuksen toimialaluokitus 2008)|type:text|
name:var8|description:Nimi *|type:text|
name:var8|description:Nimi *|type:text|
name:var9|description:Nimen kielikoodi *|type:text|default:FI|
name:var9|description:Nimen kielikoodi (FI, SE, EN tms.) *|type:text|
name:var10|description:Nimen tyyppikoodi *|type:selection|options:0;Vanha nimi;1;Aputoiminimi;2;Rinnakkaistoiminimi;3;Liikenimi;4;Rinnakkaistoiminimen aputoiminimi;5;Päätoiminimi;9;Perustettava yritys (sulautuminen)|default:0|
name:var10|description:Nimen tyyppikoodi *|type:selection|options:NA;Valitse;0;Vanha nimi;1;Aputoiminimi;2;Rinnakkaistoiminimi;3;Liikenimi;4;Rinnakkaistoiminimen aputoiminimi;5;Päätoiminimi;9;Perustettava yritys (sulautuminen)|
name:var11|description:Osoitteen tyyppi *|type:selection|options:7;postiosoite;8;käyntiosoite;9;varmistamaton käyntiosoite;10 varmistamaton postiosoite;11;varmistamaton laskutusosoite|
name:var11|description:Osoitteen tyyppi *|type:selection|options:NA;Valitse;7;postiosoite;8;käyntiosoite;9;varmistamaton käyntiosoite;10;varmistamaton postiosoite;11;varmistamaton laskutusosoite|
name:var12|description:Nimen täydenne (c/o tms.)|type:text|
name:var12|description:Nimen täydenne (c/o tms.)|type:text|
name:var13|description:Osoite *|type:text|
name:var13|description:Osoite *|type:text|
Rivi 24: Rivi 24:
name:var17|description:Osoitteen alkupvm|type:text|
name:var17|description:Osoitteen alkupvm|type:text|
name:var18|description:Osoitteen loppupvm|type:text|
name:var18|description:Osoitteen loppupvm|type:text|
name:var19|description:Puhelinnumeron tyyppi *|type:selection|options:1;puhelin;2;faksi;3;YTJ:n puhelin;4;YTJ:n faksi|default:1|
name:var19|description:Puhelinnumeron tyyppi *|type:selection|options:NA;Valitse;1;puhelin;2;faksi;3;YTJ:n puhelin;4;YTJ:n faksi|
name:var20|description:Puhelinnumero *|type:text|
name:var20|description:Puhelinnumero *|type:text|
name:var21|description:Lisätieto|type:text|
name:var21|description:Lisätieto|type:text|
Rivi 32: Rivi 32:
library(OpasnetBaseUtils)
library(OpasnetBaseUtils)
library(xtable)
library(xtable)
if(var1 == "") {
cat("Y-tunnus on annettava koska se toimii tunnisteena.\n")
} else {
data <- data.frame(
Tyyppi = "Yritys",
Tunniste = var1,
Ominaisuus = c("Yrityksen kielikoodi", "Yrityksen tila", "Kotikunta", "Yritysmuoto", "Omistajan tyyppi",
"Tomialaluokitus", "Nimi", "Nimen kielikoodi", "Nimen tyyppikoodi", "Osoitteen tyyppi", "Nimen täydenne",
"Osoite", "Postinumero", "Maa", "Ulkomainen postinumero", "Osoitteen alkupvm", "Osoitteen loppupvm",
"Puhelinnumeron tyyppi", "Puhelinnumero", "Lisätieto", "www-osoite", "Sähköposti"
),
Result = c(var2, var3, var4, var5, var6, var7, var8, var9, var10, var11, var12, var13, var14, var15, var16, var17,
var18, var19, var20, var21, var22, var23
)
)


data <- data.frame(
data <- data[!data$Result %in% c("", NA), ]
Tyyppi = "Yritys",  
if(nrow(data) > 0) {
Ominaisuus = c("Y-tunnus", "Yrityksen kielikoodi", "Yrityksen tila", "Kotikunta", "Yritysmuoto", "Omistajan tyyppi",
"Tomialaluokitus", "Nimi", "Nimen kielikoodi", "Nimen tyyppikoodi", "Osoitteen tyyppi", "Nimen täydenne",
opbase.upload(dsn = "opasnet_base_write", input = data, ident = "Op_fi2950", acttype = 5, who = wiki_username, unit = "-")
"Osoite", "Postinumero", "Maa", "Ulkomainen postinumero", "Osoitteen alkupvm", "Osoitteen loppupvm",
"Puhelinnumeron tyyppi", "Puhelinnumero", "Lisätieto", "www-osoite", "Sähköposti"
cat("Nämä tiedot on onnistuneesti tallennettu. Jos haluat muuttaa tietoja, tallenna lomake uudestaan.\n")
),
print(xtable(data), type = 'html')
Arvo = c(var1, var2, var3, var4, var5, var6, var7, var8, var9, var10, var11, var12, var13, var14, var15, var16, var17,
} else {
var18, var19, var20, var21, var22, var23
cat("Mitään muutetavaa ei ollut.\n")
)
}
)
}


cat("Nämä tiedot on onnistuneesti tallennettu. Jos haluat muuttaa tietoja, tallenna lomake uudestaan.\n")
cat("Tässä ovat yrityksen nykyiset tiedot tietokannasta.\n")


print(xtable(data), type = 'html')
nykytiedot <- op_baseGetData("opasnet_base", "Op_fi2950")


op_baseWrite(dsn = "opasnet_base", input = data, ident = "Op_fi2950", name = "Ympäristöterveydenhuollon toimijat",
nykytiedot <- tidy(nykytiedot)
unit = "-", objtype_id = 1, who = wiki_username, acttype = 4, rescol = "Arvo")
nykytiedot <- nykytiedot[nykytiedot$Tunniste == var1, ]
print(xtable(nykytiedot), type = 'html')


</rcode>
</rcode>


<t2b index="Tyyppi,Ominaisuus" obs="Arvo" unit="-">
{{vastusta|#: |Toimii muuten paitsi että näyttää myös vanhat tiedot vaikka niitä olisi päivitetty.|--[[Käyttäjä:Jouni|Jouni Tuomisto]] 22. huhtikuuta 2012 kello 11.04 (EEST)}}
Yritys|Y-tunnus|123456-7
<br/>
</t2b>
 
{{tuloslinkki}}

Versio 22. huhtikuuta 2012 kello 08.04




Ympäristöterveydenhuollon toimijat ovat henkilöitä, yrityksiä tai yhteisöjä, jotka tekevät ympäristöterveydenhuoltoon liittyvää toimintaa tai valvontaa. Tällä sivulla kerätään, päivitetään ja jaetaan tietoja heistä. Kaikki ne tiedot päivittyvät, joita ei jätetä tyhjäksi.

(* = Pakollinen tieto)

Y-tunnus *:

Yrityksen kielikoodi (FI, SE, EN tms.):

Yrityksen tila *:

Kotikunta (koodi) *:

Yritysmuoto (OY, avoin yhtiö, jne):

Omistajan tyypi:

Toimialaluokitus (Tilastokeskuksen toimialaluokitus 2008):

Nimi *:

Nimen kielikoodi (FI, SE, EN tms.) *:

Nimen tyyppikoodi *:

Osoitteen tyyppi *:

Nimen täydenne (c/o tms.):

Osoite *:

Kotimainen postinumero. Pakollinen, jos suomalainen:

Maa *:

Ulkomainen postinumero/-toimip. Pakollinen, jos ei suomalainen:

Osoitteen alkupvm:

Osoitteen loppupvm:

Puhelinnumeron tyyppi *:

Puhelinnumero *:

Lisätieto:

www-osoite:

Sähköposti:

⇤#: Toimii muuten paitsi että näyttää myös vanhat tiedot vaikka niitä olisi päivitetty. --Jouni Tuomisto 22. huhtikuuta 2012 kello 11.04 (EEST)

{{#opasnet_base_link:Op_fi2950}}

Noudettu kohteesta ”https://fi.opasnet.org/index.php?title=Ympäristöterveydenhuollon_toimijat&oldid=11925”