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 112 113 114 115 116 117 118 119 120 121 122 123 124 125 126 127 128 129 130 131 132 133 134 135 136 137 138 139 140 141 142 143 144 145 146 147 148 149 150 151 152 153 154 155 156 157 158 159 160 161 162 163 164 165 166 167 168 169 170 171 172 173 174 175 176 177 178 179 180 181 182 183 184 185 186 187 188 189 190 191 192 193 194 195 196 197 198 199
| Dim txtlibelle As String
Dim reFourn As String
Dim refConstr As String
Dim dureeGarant As String
Dim modalGarantie As String
Dim descArt As String
Dim quantStock As Integer
Dim quantAlert As Integer
Dim quantStockSecur As Integer
Dim dateDeCreation As DateTime
Dim Categorie As String
Dim nomCAT As String
Dim prixAchat As Decimal
Dim pHT As Decimal
Dim pTTC As Decimal
Dim lienImg As String
info_img.Text = ""
Info_Alert.Text = ""
Info_Success.Text = ""
'condition si et seulement si /
If Libelle.Text = "" Or RefFourn.Text = "" Or ddlCateg.SelectedItem.Text = "" Or RefConst.Text = "" Or dureeGarantie.Text = "" Or ddlModalGarantie.SelectedItem.Text = "" Or PrixAchatType.Text = "" Or PrixHT.Text = "" Or PrixTTC.Text = "" Or Not ImageArticle.HasFile Then
Info_Alert.Text = "Il manque des champs obligatoires !"
info_img.Text = "Vous n'avez pas sélectionné d'image."
Response.Write("<script language=""javascript"">window.onload=function(){alert('Veuillez sélectionner une image !')};</script>")
Else
'Libelle
txtlibelle = Libelle.Text
'Reference fournisseur
reFourn = RefFourn.Text
'Référence constructeur
refConstr = RefConst.Text
'Duree de garantie
dureeGarant = dureeGarantie.Text
'Modal de garantie
modalGarantie = ddlModalGarantie.SelectedItem.Text
'Description Article
If DescArticle.InnerText = "" Then
descArt = "Aucune description"
Else
descArt = DescArticle.InnerText
End If
'Date d'ajout de l'article dans BDD
dateDeCreation = DateTime.Now.ToString("dd/MM/yyyy")
'Quantité sock
If QteStock.Text = "" Then
quantStock = 0
Else
quantStock = QteStock.Text
End If
'Quantité Alert sock
If QteAlert.Text = "" Then
quantAlert = 0
Else
quantAlert = QteAlert.Text
End If
'Quantité sock securité
If QteStockSecur.Text = "" Then
quantStockSecur = 0
Else
quantStockSecur = QteStockSecur.Text
End If
'Si une catégorie a été selectionnée alors on attribue un nom à la catégorie afin de pouvoir distribuer les image upload dans les fichiers en fonction de sa catégorie
Categorie = ddlCateg.SelectedItem.Text
Select Case Categorie
Case "ACCESSOIRES"
nomCAT = "ACCESSOIRES"
Case "HOUSSE"
nomCAT = "ACCESSOIRES"
Case "ALIMENTATIONS"
nomCAT = "ALIMENTATIONS"
Case "BOITIERS EXTERNE"
nomCAT = "BOITIEREXTERNE"
Case "BOITIERS"
nomCAT = "BOITIERS"
Case "CARTES GRAPHIQUES"
nomCAT = "CARTEGRAPHIQUE"
Case "CARTES SONS"
nomCAT = "CARTESON"
Case "MICRO-CASQUES"
nomCAT = "CASQEUS"
Case "CARTES MERES"
nomCAT = "CM"
Case "ECRANS"
nomCAT = "ECRANS"
Case "GRAVEURS"
nomCAT = "GRAVEURS"
Case "HAUTS-PARLEUR"
nomCAT = "HAUTPARLEURS"
Case "DISQUE DURS"
nomCAT = "HD"
Case "DISQUE DURS EXTERNES"
nomCAT = "HD"
Case "IMPRIMANTES"
nomCAT = "IMPRIMANTES"
Case "LOGICIELS"
nomCAT = "LOGICIELS"
Case "MÉMOIRES VIVES"
nomCAT = "MEMOIREVIVE"
Case "ORDINATEURS PORTABLES"
nomCAT = "NOTEBOOK"
Case "PROCESSEURS"
nomCAT = "PROCESSEURS"
Case "VENTILATEURS"
nomCAT = "VENTILATEURS"
Case "WEBCAMS"
nomCAT = "WEBCAMS"
Case Else
nomCAT = "Autre"
End Select
Dim path As String = Server.MapPath("~/Articles/" + nomCAT + "/")
Dim fileOK As Boolean = False
Dim fileExtension As String
fileExtension = System.IO.Path. _
GetExtension(ImageArticle.FileName).ToLower()
Dim allowedExtensions As String() = _
{".jpg", ".jpeg", ".png"}
For i As Integer = 0 To allowedExtensions.Length - 1
If fileExtension = allowedExtensions(i) Then
fileOK = True
End If
Next
lienImg = "~/Articles/" + nomCAT + "/" + RefFourn.Text + fileExtension
If fileOK Then
Try
ImageArticle.PostedFile.SaveAs(path & _
RefFourn.Text & fileExtension)
info_img.Text = "L'image a été upload dans le dossier: " + path + " <br/>" + lienImg
Catch ex As Exception
info_img.Text = "L'image n'a pas été upload ! "
End Try
Else
info_img.Text = "Les fichiers de ce type ne sont pas acceptés. (seul les .jpg, .jpeg et .png sont autorisés !)"
End If
'Prix à l'achat du type d'article
prixAchat = PrixAchatType.Text.ToString()
'Prix HT
pHT = PrixHT.Text.ToString()
'Prix TTC
pTTC = PrixTTC.Text.ToString()
'Connexion à la BDD
access_connexion()
'Instancier un objet Command
Obj_Command = New OleDbCommand()
'Initialiser l'objet Command
Dim reqSQL As String = "INSERT INTO TYPE_ARTICLE (TYPE_ART_IMG, TYPE_ART_LIB, TYPE_ART_DATE_CREATION, TYPE_REF_FOURN, TYPE_REF_CONST, TYPE_ART_GAR_MOD, TYPE_ART_GAR_DUREE, TYPE_ART_DETAILS, TYPE_ART_QTE, TYPE_ART_QTE_LESS, TYPE_ART_QTE_SEC, CAT_ID, TYPE_ART_PA, TYPE_ARTP_PV_HT, TYPE_ART_PV_TTC) VALUES (@img, @libelle, " + DateTime.Now() + ", @reFourn, @refConst, @modalGarant, @dureeGarant, @detail, @quandStock, @quantAlert, @quantSecur, @catId, @prixAchat, @prixHT, @prixTTC)"
Obj_Command.Connection() = laConnection
Obj_Command.CommandText = reqSQL
Obj_Command.Parameters.Add("@img", OleDbType.VarChar, 255).Value = lienImg
Obj_Command.Parameters.Add("@libelle", OleDbType.VarChar, 255).Value = txtlibelle
'Obj_Command.Parameters.Add("@dateCreation", OleDbType.Date).Value = dateDeCreation
Obj_Command.Parameters.Add("@reFourn", OleDbType.VarChar, 255).Value = reFourn
Obj_Command.Parameters.Add("@refConst", OleDbType.VarChar, 255).Value = refConstr
Obj_Command.Parameters.Add("@modalGarant", OleDbType.VarChar, 50).Value = modalGarantie
Obj_Command.Parameters.Add("@dureeGarant", OleDbType.VarChar, 10).Value = dureeGarant
Obj_Command.Parameters.Add("@Detail", OleDbType.LongVarChar).Value = descArt
Obj_Command.Parameters.Add("@quantStock", OleDbType.Integer, 10).Value = quantStock
Obj_Command.Parameters.Add("@quantAlert", OleDbType.Integer, 10).Value = quantAlert
Obj_Command.Parameters.Add("@quantSecur", OleDbType.Integer, 10).Value = QteStockSecur
Obj_Command.Parameters.Add("@catId", OleDbType.VarChar, 15).Value = Categorie
Obj_Command.Parameters.Add("@prixAchat", OleDbType.Currency, 10).Value = prixAchat
Obj_Command.Parameters.Add("@prixHT", OleDbType.Currency, 10).Value = pHT
Obj_Command.Parameters.Add("@prixTTC", OleDbType.Currency, 10).Value = pTTC
Obj_Command.ExecuteNonQuery()
Obj_Reader.Close()
access_deconnexion()
'message success
Info_Success.Text = "L'article a bien été enregistré dans la BDD"
End If |
Partager