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
|
If (T_num_expedition.Text <> "" And cmb_bureau.SelectedIndex <> -1) Then
If (rad_liv_non_r.Checked = True) Then
If (T_BC_choisi.Text <> "" And T_montant_BC_l.Text <> "" And IsNumeric(T_montant_BC_l.Text) And T_nbre_colis.Text <> "" And IsNumeric(T_poids.Text) And T_poids.Text <> "" And IsNumeric(T_poids.Text) And T_numero_FF.Text <> "") Then
Dim lvi As New ListViewItem
' met le nbr de cellelue ici
lvi.Tag=
lvi = New ListViewItem(New String() {T_num_expedition.Text, date_expedition.Value, cmb_bureau.SelectedItem, T_BC_choisi.Text, T_montant_BC_l.Text, T_numero_FF.Text, T_nbre_colis.Text, T_poids.Text})
liste_livraisons.Items.Add(lvi)
'Dim i As Integer
'For i = 0 To liste_livraisons.Items.Count - 1
' liste_livraisons.Items(i).ForeColor = Drawing.Color.Blue
'Next i
End If
ElseIf (rad_liv_r.Checked = True) Then
If (cmb_type.SelectedItem = "DOSSIER DE CONSOMMATION AVEC PAIEMENT" Or cmb_type.SelectedItem = "DOSSIER DE CONSOMMATION DES CASSETTES VIERGES") Then
If (cmb_BC_l.Text <> "" And T_montant_BC_l.Text <> "" And IsNumeric(T_montant_BC_l.Text) And T_numero_FF2.Text <> "" And T_nbre_colis2.Text And IsNumeric(T_nbre_colis2.Text) And T_nbre_colis2.Text And IsNumeric(T_nbre_colis2.Text) And T_poids2.Text <> "" And IsNumeric(T_poids2.Text)) Then
If (cmb_type.SelectedItem = "DOSSIER DE CONSOMMATION AVEC PAIEMENT") Then
Dim lvi As New ListViewItem
lvi = New ListViewItem(New String()
{T_num_expedition.Text, date_expedition.Value, cmb_bureau.SelectedItem, T_BC_choisi.Text, T_montant_bc.Text, T_numero_FF.Text, T_nbre_colis.Text, T_poids.Text, cmb_BC_l.Text, "AP", T_montant_cmd2.Text, T_numero_FF2.Text, T_nbre_colis2.Text, T_poids2.Text})
liste_livraisons.Items.Add(lvi)
ElseIf (cmb_type.SelectedItem = "DOSSIER DE CONSOMMATION DES CASSETTES VIERGES") Then
Dim lvi As New ListViewItem
' met le nbr de cellelue ici
lvi.Tag=
lvi = New ListViewItem(New String() {T_num_expedition.Text, date_expedition.Value, cmb_bureau.SelectedItem, T_BC_choisi.Text, T_montant_bc.Text, T_numero_FF.Text, T_nbre_colis.Text, T_poids.Text, cmb_BC_l.Text, "K7V", T_montant_cmd2.Text, T_numero_FF2.Text, T_nbre_colis2.Text, T_poids2.Text})
liste_livraisons.Items.Add(lvi)
End If
'Dim i As Integer
'For i = 0 To liste_livraisons.Items.Count - 1
'liste_livraisons.Items(i).ForeColor = Drawing.Color.Pink
'Next i
End If
ElseIf (cmb_type.SelectedItem = "DOSSIER DE CONSOMMATION SANS PAIEMENT") Then
If (cmb_FP_l.Text <> "" And T_montant_BC_l.Text <> "" And IsNumeric(T_montant_BC_l.Text) And T_numero_FF2.Text <> "" And T_nbre_colis2.Text And IsNumeric(T_nbre_colis2.Text) And T_nbre_colis2.Text And IsNumeric(T_nbre_colis2.Text) And T_poids2.Text <> "" And IsNumeric(T_poids2.Text)) Then
Dim lvi As New ListViewItem
' met le nbr de cellelue ici
lvi.Tag=
lvi = New ListViewItem(New String() {T_num_expedition.Text, date_expedition.Value, cmb_bureau.SelectedItem, T_BC_choisi.Text, T_montant_bc.Text, T_numero_FF.Text, T_nbre_colis.Text, T_poids.Text, cmb_FP_l.Text, "SP", T_montant_cmd2.Text, T_numero_FF2.Text, T_nbre_colis2.Text, T_poids2.Text})
liste_livraisons.Items.Add(lvi)
End If
End If
End If
End If |
Partager