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
| Private Sub ToolStripTextBox1_Click(sender As Object, e As EventArgs) Handles ToolStripTextBox1.Click
Try
Dim titre_du_lot As String = ""
Dim lsitbox1 As New ListBox
Dim i, j As Integer
Dim nv_date1, prodweek As String
Dim blanc As Boolean = False
Dim fut_date_liv As Date = Nothing
Dim dte_totale, dte_fin, jourplus, date_supply As String
Dim liste_dossier As String = ""
Dim liste_dossier_vr As String = ""
Dim nb_jour As Integer = 0
jourplus = ""
Dim lot As String = cherche_lot_suivant()
Dim dossier As String = ""
dossier = dgw_semfab_lot.SelectedCells.Item(0).Value.ToString
'Recherche de la date de lancement, de fin et d'approvisionnement du dossier
dte_totale = cherche_date_prod(dossier)
'date de début de fab
dte_deb1 = dte_totale.Substring(0, 10)
'date de fin de fab du dossier
dte_fin = dte_totale.Substring(11, 10)
'date d'approvisionnement du dossier
date_supply = dte_totale.Substring(22, 10)
Dialog_chgt_date.ShowDialog()
nv_date1 = new_date & " 00:00:00"
prodweek = NumSemaine(new_date)
prodweek = Year(new_date) & prodweek
'nombre de jour entre le début de fab et la fin de fab
nb_jour = fer.Work_Days1(dte_deb1, dte_fin, True) - 1
'ajout du nombre de jours trouvé à la nouvelle date de lancement
jourplus = fer.Work_Days_add(new_date, nb_jour, True) & " 00:00:00"
'nombre de jour entre l'approvisionnement et le début de fab
jourplus_supply = fer.Work_Days1(date_supply, dte_deb1, True)
'ajout du nombre de jour à la nouvelle date
jourplus_supply = fer.Work_Days_moins(new_date, -jourplus_supply, True) & " 00:00:00"
If Dialog_chgt_date.DialogResult = DialogResult.OK Then
changemant_date_prod(dossier, nv_date1, jourplus, jourplus_supply, prodweek)
Else
Exit Sub
End If
'changemant_date_prod_det(DataGridView1.Item(0, i).Value, nv_date1, prodweek)
actualisation_mise_en_lot()
Catch ex As Exception
MessageBox.Show(ex.Message)
End Try
End Sub |
Partager