1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73 74 75 76 77 78 79 80 81 82 83 84 85 86 87 88 89 90 91 92 93 94 95 96 97 98 99 100 101 102 103 104 105 106 107 108 109 110 111
|
Public Sub enregistrementXMLtoBDD(ByVal pathfile As String)
Dim NomEntreprise As String = ""
Dim adresse As String = ""
Dim codepostal As String = ""
Dim ville As String = ""
Dim telephone As String = ""
Dim fax As String = ""
Dim courriel As String = ""
Dim distributeur As String = ""
Dim date_verif As String = ""
Dim dateMES As String = ""
Dim sac As String = ""
Dim controleur As String = ""
Dim ref As String = ""
Dim anne As String = ""
Dim duree As String = ""
Dim marque As String = ""
Dim modele As String = ""
Dim norme As String = ""
Dim num As String = ""
Dim observation As String = ""
Dim typeEPI As String = ""
Dim resultat As String = ""
Dim XmlDoc As XmlDocument = New XmlDocument()
XmlDoc.Load(pathfile)
Dim element As XmlNodeList
element = XmlDoc.DocumentElement.GetElementsByTagName("EPI")
Dim noeud, noeudEnf As XmlNode
For Each noeud In element
For Each noeudEnf In noeud.ChildNodes
Select Case noeudEnf.LocalName
Case "ENTREPRISE"
NomEntreprise = noeudEnf.InnerText.Replace("'", " ")
Case "ADRESSE"
adresse = noeudEnf.InnerText.Replace("'", " ")
Case "CODEPOSTAL"
codepostal = noeudEnf.InnerText.Replace("'", " ")
Case "VILLE"
ville = noeudEnf.InnerText.Replace("'", " ")
Case "TELEPHONE"
telephone = noeudEnf.InnerText.Replace("'", " ")
Case "FAX"
fax = noeudEnf.InnerText.Replace("'", " ")
Case "COURRIEL"
courriel = noeudEnf.InnerText.Replace("'", " ")
Case "DISTRIBUTEUR"
distributeur = noeudEnf.InnerText.Replace("'", " ")
Case "DATEVERIF"
date_verif = noeudEnf.InnerText.Replace("'", " ")
Case "SAC"
sac = noeudEnf.InnerText.Replace("'", " ")
Case "CONTROLEUR"
controleur = noeudEnf.InnerText.Replace("'", " ")
Case "REF"
ref = noeudEnf.InnerText.Replace("'", " ")
Case "MISE_EN_SERVICE"
dateMES = noeudEnf.InnerText.Replace("'", " ")
Case "ANNEE"
anne = noeudEnf.InnerText.Replace("'", " ")
Case "DUREE"
duree = noeudEnf.InnerText.Replace("'", " ")
Case "MARQUE"
marque = noeudEnf.InnerText.Replace("'", " ")
Case "MODELE"
modele = noeudEnf.InnerText.Replace("'", " ")
Case "NORME"
norme = noeudEnf.InnerText.Replace("'", " ")
Case "NUM"
num = noeudEnf.InnerText.Replace("'", " ")
Case "OBSERVATION"
observation = noeudEnf.InnerText.Replace("'", " ")
Case "TYPE"
typeEPI = noeudEnf.InnerText.Replace("'", " ")
Case "RESULTAT"
resultat = noeudEnf.InnerText.Replace("'", " ")
End Select
Next
Next
'MsgBox(verifBDD_Entreprise("entreprise4", "adresse", "61300", "", "0233050505", "", "contact@entreprise.fr", ""))
If (verifBDD_Entreprise(NomEntreprise, adresse, codepostal, ville, telephone, fax, courriel, distributeur) = True) Then
' MsgBox("l'entreprise est enregistrer")
updatecontrolemail(NomEntreprise, "0")
If (verifBDD_EPI(NomEntreprise, marque, num) = True) Then
' MsgBox("l'epi est enregistrer")
If (verifBDD_visite(NomEntreprise, marque, num, date_verif) = True) Then
' MsgBox("visite deja enregistrer")
Else
' MsgBox("visite non enregistrer")
insererBDD_Visite(NomEntreprise, marque & "-" & num, date_verif, sac, controleur, ref)
End If
Else
' MsgBox("l'epi n'est pas enregistrer")
insererBDD_EPI(NomEntreprise, typeEPI, norme, marque, modele, num, anne, duree, resultat, observation, dateMES)
insererBDD_Visite(NomEntreprise, marque & "-" & num, date_verif, sac, controleur, ref)
End If
Else
' MsgBox("l'entreprise n'est pas enregistrer")
insererBDD_entreprise(NomEntreprise, adresse, codepostal, ville, telephone, fax, courriel, distributeur, controleur)
insererBDD_EPI(NomEntreprise, typeEPI, norme, marque, modele, num, anne, duree, resultat, observation, dateMES)
insererBDD_Visite(NomEntreprise, marque & "-" & num, date_verif, sac, controleur, ref)
End If
'mailforSaveEPI(NomEntreprise, courriel, date_verif, "")
' ne pas placer l'envoie de mail ici sinon cela envoie un mail pour chaque doc xml
deplaceXMLtoDossierSauvegarde(pathfile) |
Partager