<!--2011-04-28 ajout du controle de Luhn pour la verification de la validité des codes SIRET
    ajout de la verification des codes gelés
--><!--2012-05-12 ajout du controle de longueur du code SIRET--><!--2015-05-11 correction sur détection des codes d'unité de mesure--><axsl:stylesheet xmlns:xsl="http://www.w3.org/1999/XSL/Transform" xmlns:sch="http://www.ascc.net/xml/schematron" xmlns:sa_ref="http://xml.sandre.eaufrance.fr/scenario/referentiel/2" xmlns:axsl="http://www.w3.org/1999/XSL/Transform" version="1.0"><axsl:output method="text" omit-xml-declaration="no" standalone="yes" indent="yes"/>
    <!--<axsl:variable name="chemin">http://195.220.97.105:8080/exist/xmldb/db/sandre/Referentiels/old_referentiel.xml</axsl:variable>--><axsl:variable name="cheminPAR">http://xml.sandre.eaufrance.fr/exist/sandre/Referentiels/PAR.xml</axsl:variable><axsl:variable name="cheminMET">http://xml.sandre.eaufrance.fr/exist/sandre/Referentiels/MET.xml</axsl:variable><axsl:variable name="cheminSUP">http://xml.sandre.eaufrance.fr/exist/sandre/Referentiels/SUP.xml</axsl:variable><axsl:variable name="cheminFAN">http://xml.sandre.eaufrance.fr/exist/sandre/Referentiels/FAN.xml</axsl:variable><axsl:variable name="cheminURF">http://xml.sandre.eaufrance.fr/exist/sandre/Referentiels/URF.xml</axsl:variable><axsl:template match="*|@*" mode="schematron-get-full-path"><axsl:apply-templates select="parent::*" mode="schematron-get-full-path"/><axsl:text>/</axsl:text><axsl:if test="count(. | ../@*) = count(../@*)">@</axsl:if><axsl:value-of select="name()"/><axsl:text>[</axsl:text><axsl:value-of select="1+count(preceding-sibling::*[name()=name(current())])"/><axsl:text>]</axsl:text></axsl:template><axsl:template match="/"><axsl:apply-templates select="/" mode="M1"/></axsl:template><axsl:template match="//*[name()='CdParametre']" priority="4000" mode="M1"><axsl:choose><axsl:when test="document($cheminPAR)//sa_ref:Referentiel/sa_ref:Parametre/sa_ref:CdParametre/text()=./text()"><axsl:if test="document($cheminPAR)//sa_ref:Referentiel/sa_ref:Parametre[./sa_ref:CdParametre/text()=current()/text()]/sa_ref:StParametre/text()='Gelé'">
                    E3.2/Le code '<axsl:value-of select="text()"/>' est gelé au regard de la liste de référence des paramètres#
                </axsl:if></axsl:when><axsl:otherwise>E3.1/Le code '<axsl:value-of select="text()"/>' est inconnu au regard de la liste de référence des paramètres#</axsl:otherwise></axsl:choose><axsl:apply-templates mode="M1"/></axsl:template><axsl:template match="*[local-name()='CdMethode']" priority="3999" mode="M1"><axsl:choose><axsl:when test="document($cheminMET)//sa_ref:Referentiel/sa_ref:Methode/sa_ref:CdMethode/text()=./text()"><axsl:if test="document($cheminMET)//sa_ref:Referentiel/sa_ref:Methode[./sa_ref:CdMethode/text()=current()/text()]/sa_ref:StMethode/text()='Gelé'">
                E3.2/Le code '<axsl:value-of select="text()"/>' est gelé au regard de la liste de référence des méthodes#
            </axsl:if></axsl:when><axsl:otherwise>E3.1/Le code '<axsl:value-of select="text()"/>' est inconnu au regard de la liste de référence des méthodes#</axsl:otherwise></axsl:choose><axsl:apply-templates mode="M1"/></axsl:template><axsl:template match="*[name()='CdSupport']" priority="3998" mode="M1"><axsl:choose><axsl:when test="document($cheminSUP)//sa_ref:Referentiel/sa_ref:Support/sa_ref:CdSupport/text()=./text()"><axsl:if test="document($cheminSUP)//sa_ref:Referentiel/sa_ref:Support[./sa_ref:CdSupport/text()=current()/text()]/sa_ref:StSupport/text()='Gelé'">
                    E3.2/Le code '<axsl:value-of select="text()"/>' est gelé au regard de la liste de référence des supports#
                </axsl:if></axsl:when><axsl:otherwise>E3.1/Le code '<axsl:value-of select="text()"/>' est inconnu au regard de la liste de référence des supports#
</axsl:otherwise></axsl:choose><axsl:apply-templates mode="M1"/></axsl:template><axsl:template match="*[local-name()='CdUniteReference']" priority="3997" mode="M1"><axsl:choose><axsl:when test="document($cheminURF)//sa_ref:Referentiel/sa_ref:UniteReference/sa_ref:CdUniteReference/text()=./text()"><axsl:if test="document($cheminURF)//sa_ref:Referentiel/sa_ref:UniteReference[./sa_ref:CdUniteReference/text()=current()/text()]/sa_ref:StUniteReference/text()='Gelé'">
                    E3.2/Le code '<axsl:value-of select="text()"/>' est gelé au regard de la liste de référence des unités de mesure#
                </axsl:if></axsl:when><axsl:otherwise>E3.1/Le code '<axsl:value-of select="text()"/>' est inconnu au regard de la liste de référence des unités de mesure#
</axsl:otherwise></axsl:choose><axsl:apply-templates mode="M1"/></axsl:template>
    <!--<axsl:template match="//com_labo:CdFractionAnalysee" priority="3996" mode="M1">--><axsl:template match="*[local-name()='CdFractionAnalysee']" priority="3996" mode="M1"><axsl:choose><axsl:when test="document($cheminFAN)//sa_ref:Referentiel/sa_ref:FractionAnalysee/sa_ref:CdFractionAnalysee/text()=./text()"><axsl:if test="document($cheminFAN)//sa_ref:Referentiel/sa_ref:FractionAnalysee[./sa_ref:CdFractionAnalysee/text()=current()/text()]/sa_ref:StFractionAnalysee/text()='Gelé'">
                    E3.2/Le code '<axsl:value-of select="text()"/>' est gelé au regard de la liste de référence des fractions analysées#
                </axsl:if></axsl:when><axsl:otherwise>E3.1/Le code '<axsl:value-of select="text()"/>' est inconnu au regard de la liste de référence des fractions analysées#
</axsl:otherwise></axsl:choose><axsl:apply-templates mode="M1"/></axsl:template><axsl:template match="*[local-name()='CdIntervenant'][./@schemeAgencyID='SIRET']" priority="4000" mode="M1"><axsl:choose><axsl:when test="string-length()=14"/><axsl:otherwise>E4.28/Le code SIRET '<axsl:value-of select="text()"/>' n'est pas composé de 14 chiffres.#
</axsl:otherwise></axsl:choose><axsl:call-template name="controle-luhn"><axsl:with-param name="numero" select="text()"/><axsl:with-param name="somme" select="0"/><axsl:with-param name="indice" select="1"/></axsl:call-template><axsl:apply-templates mode="M1"/></axsl:template><axsl:template match="*[local-name()='CdSiteIndustriel'][./@schemeAgencyID='SIRET']" priority="4000" mode="M1"><axsl:call-template name="controle-luhn"><axsl:with-param name="numero" select="text()"/><axsl:with-param name="somme" select="0"/><axsl:with-param name="indice" select="1"/></axsl:call-template><axsl:apply-templates mode="M1"/></axsl:template><axsl:template name="controle-luhn"><axsl:param name="numero" select="normalize-space(.)"/><axsl:param name="somme" select="0"/><axsl:param name="indice" select="1"/><axsl:choose><axsl:when test="string-length($numero)=0">
                <!-- Nous arrivons ici après le dernier chiffre --><axsl:choose><axsl:when test="$somme mod 10 = 0"/><axsl:otherwise>E3.3/Le code SIRET '<axsl:value-of select="text()"/>' est erroné au regard du contrôle de la formule de Luhn, la somme <axsl:value-of select="$somme"/> n'est pas un multiple de 10#
</axsl:otherwise></axsl:choose></axsl:when><axsl:when test="$indice mod 2 = 0">
                <!-- Cas des chiffres d'indice pair --><axsl:call-template name="controle-luhn"><axsl:with-param name="numero" select="substring($numero, 2)"/><axsl:with-param name="somme" select="$somme + substring($numero, 1, 1)"/><axsl:with-param name="indice" select="$indice + 1"/></axsl:call-template></axsl:when><axsl:otherwise>
                <!-- Cas des chiffres d'indice impair --><axsl:variable name="double" select="concat(substring($numero, 1, 1) * 2, '0') "/><axsl:call-template name="controle-luhn"><axsl:with-param name="numero" select="substring($numero, 2)"/><axsl:with-param name="somme" select="$somme + substring($double, 1, 1) + substring($double, 2, 1)"/><axsl:with-param name="indice" select="$indice + 1"/></axsl:call-template></axsl:otherwise></axsl:choose><axsl:apply-templates mode="M1"/></axsl:template><axsl:template match="text()" priority="-1" mode="M1"/><axsl:template match="text()" priority="-1"/></axsl:stylesheet>