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
| Private Sub cmd_suivant_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles cmd_suivant.Click
If GloGlobal.ChampVideCombo(personne, "Personne") Then Exit Sub
If GloGlobal.ChampVideCombo(nature_piece, IIf(personne.Text = "MORALE", "Référence", "N° Pièce ID")) Then Exit Sub
If GloGlobal.ChampVideText(numero_piece, IIf(personne.Text = "MORALE", "Référence", "N° Pièce ID")) Then Exit Sub
If GloGlobal.ChampVideText(nom, IIf(personne.Text = "MORALE", "Raison sociale", "Nom")) Then Exit Sub
If GloGlobal.ChampVideText(prenom, IIf(personne.Text = "MORALE", "Libellé", "Prénom")) Then Exit Sub
If GloGlobal.ChampVideText(date_naissance, IIf(personne.Text = "MORALE", "Date d'implantation", "Date de naissance")) Then Exit Sub
If sexe.Enabled Then If GloGlobal.ChampVideCombo(sexe, "Sexe") Then Exit Sub
If GloGlobal.ChampVideCombo(pays_origine, IIf(personne.Text = "MORALE", "Pays de capitaux", "Pays d'origine (nationalité)")) Then Exit Sub
If GloGlobal.ChampVideCombo(pays_residence, IIf(personne.Text = "MORALE", "Pays d'implantation", "Pays de résidence")) Then Exit Sub
If GloGlobal.ChampVideText(ville_residence, "Ville d'habitation") Then Exit Sub
If GloGlobal.ChampVideCombo(profession, IIf(personne.Text = "MORALE", "Secteur d'activité", "Fonction")) Then Exit Sub
If employeur.Enabled Then If GloGlobal.ChampVideCombo(employeur, "Employeur") Then Exit Sub
If situation_matrimoniale.Enabled Then If GloGlobal.ChampVideCombo(situation_matrimoniale, "Situation matrimoniale") Then Exit Sub
If nombre_enfant_en_charge.Enabled Then If GloGlobal.ChampVideText(nombre_enfant_en_charge, "Nb enfant en charge") Then Exit Sub
Dim ReferenceVictime As String = nature_piece.Text & numero_piece.Text
If GloGlobal.NouvelleVictime Then
SqlCon.Open()
Dim Mycommand As SqlCommand
Mycommand = New SqlCommand("InsererVictime", SqlCon)
Mycommand.CommandType = commandType.StoredProcedure
Mycommand.Parameters.Add("@personne", SqlDbType.NVarChar).Value = personne.Text
Mycommand.Parameters.Add("@naturepiece", SqlDbType.NVarChar).Value = nature_piece.Text
Mycommand.Parameters.Add("@numeropiece", SqlDbType.NVarChar).Value = numero_piece.Text
Mycommand.Parameters.Add("@identifiant", SqlDbType.NVarChar).Value = ReferenceVictime
Mycommand.Parameters.Add("@nom", SqlDbType.NVarChar).Value = nom.Text
Mycommand.Parameters.Add("@prenom", SqlDbType.NVarChar).Value = prenom.Text
Mycommand.Parameters.Add("@datenaissance", SqlDbType.NVarChar).Value = date_naissance.Text
Mycommand.Parameters.Add("@sexe", SqlDbType.NVarChar).Value = sexe.Text
Mycommand.Parameters.Add("@telfax", SqlDbType.NVarChar).Value = tel_fax.Text
Mycommand.Parameters.Add("@email", SqlDbType.NVarChar).Value = email.Text
Mycommand.Parameters.Add("@adressepostale", SqlDbType.NVarChar).Value = adresse_postale.Text
Mycommand.Parameters.Add("@paysorigine", SqlDbType.NVarChar).Value = pays_origine.Text
Mycommand.Parameters.Add("@paysresidence", SqlDbType.NVarChar).Value = pays_residence.Text
Mycommand.Parameters.Add("@villeresidence", SqlDbType.NVarChar).Value = ville_residence.Text
Mycommand.Parameters.Add("@pofession", SqlDbType.NVarChar).Value = profession.Text
Mycommand.Parameters.Add("@employeur", SqlDbType.NVarChar).Value = employeur.Text
Mycommand.Parameters.Add("@situationmatrimoniale", SqlDbType.NVarChar).Value = situation_matrimoniale.Text
Mycommand.Parameters.Add("@nbenfantcharge", SqlDbType.Int).Value = CInt(nombre_enfant_en_charge.Text)
Dim CommandAdapter As New SqlDataAdapter(Mycommand)
Mycommand.ExecuteNonQuery()
GloGlobal.NouvelleAffaire = True
Else
ExecuteLDD("update t_victime set personne='" & personne.Text & "',identifiant='" & ReferenceVictime & "',naturepceidentite='" & nature_piece.Text & "',numeropceidentite='" & numero_piece.Text & "',nom='" & GloGlobal.ValiderApostrophe(nom.Text) & "',prenom='" & GloGlobal.ValiderApostrophe(prenom.Text) & "',datenaissance='" & date_naissance.Text & "',sexe='" & sexe.Text & "',tel='" & tel_fax.Text & "',mail='" & email.Text & "',adresse='" & GloGlobal.ValiderApostrophe(adresse_postale.Text) & "',paysresidence='" & GloGlobal.ValiderApostrophe(pays_residence.Text) & "',ville='" & GloGlobal.ValiderApostrophe(ville_residence.Text) & "',paysnationalite='" & GloGlobal.ValiderApostrophe(pays_origine.Text) & "',profession='" & GloGlobal.ValiderApostrophe(profession.Text) & "',employeur='" & GloGlobal.ValiderApostrophe(employeur.Text) & "',situationmatrimoniale='" & situation_matrimoniale.Text & "',nbenfant=" & GloGlobal.ValiderDecimal(nombre_enfant_en_charge.Text) & " where (identifiant='" & GloGlobal.IdVictime & "')")
End If
SqlCon.Close()
GloGlobal.NouvelleVictime = False
GloGlobal.IdVictime = ReferenceVictime
Response.Redirect("f_affaire.aspx", False)
End Sub |
Partager