bonjour le forum,
bonjour à tous,
je cale depuis qlq jours sur une amélioration que je souhaite apporter à ce magnifique fichier trouvé sur le net (merci au passage au concepteur) , raison pour laquelle, je me tourne vers vous.
il s'agit du multipage 4 = transferts (code ci après).
dans l'emplacement cible, il ne propose que les emplacements non présents sur la feuille stock, ce qui est parfait.
ce que j'aimerais c'est que si je choisis un magasin cible et que le lot y existe dans un emplacement, que ce emplacement soit aussi proposé (en plus).
exemple : si je veux faire un transfert du lot 110000 qui est en EMP02, je voudrais que si je choisis le magasin Hall A, alors j'ai les emplacements non occupés (ce qui est le cas) et en plus SAR02C qui est certes occupé mais avec le même lot, histoire d'avoir la possibilité de regrouper des lots (si ça devient le cas physiquement).
merci d'avance.
cordialement.
Pedro Dudesson.
Code:
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 | Private Sub CmbB_Emplacement_C_AfterUpdate()
If Ok = False Then Exit Sub
Str_Emplacement_C = "": Str_Code_Emplacement = ""
With UsF_GESTION 'avec le Userform
With MltiPg.Pages(4) 'Avec la page du Multipage
Str_Magasin = .CmbB_Transfert_C.Text
With .CmbB_Emplacement_C
Str_Emplacement_C = .Text
.BackColor = IIf(Str_Emplacement_C = "", &H8080FF, &H80FF80)
If Str_Emplacement_C = "" Then GoTo suite
If Str_Magasin Like "Hors Site E" Then
Str_Code_Emplacement = Search_Ext(Tab_Exterieurs, Str_Emplacement_C)
Else
Str_Code_Emplacement = IIf(Mid(Str_Emplacement_C, 3, 1) = "R", "Rack ", "Sol ") & _
IIf(Len(Mid(Str_Emplacement_C, 3)) = 4, Mid(Str_Emplacement_C, 4, 2) & _
"." & Right(Str_Emplacement_C, 1), Mid(Str_Emplacement_C, 4))
End If
End With
suite:
With .Lbl_Code_Magasin_C
.Caption = Str_Code_Emplacement
End With
With .TxtB_Quantite_C
.Value = 0
.BackColor = &H8080FF
.Enabled = True
End With
.TxtB_Commentaire_Transfert_S.Text = "TRANSF-VERS " & .CmbB_Emplacement_C.Text & " " & _
" (" & "SORTIE" & " " & TxtB_Quantite_C.Value & ")"
End With
End With
End Sub
Private Sub CmbB_Emplacement_C_Change()
Dim x As Integer
Dim i As Integer
With CmbB_Emplacement_C
x = 0
For i = 0 To (.ListCount - 1)
If .Value = .List(i, 0) Then
x = 1
Exit For
End If
Next i
If x = 0 Then
.Value = ""
Exit Sub
End If
End With
End Sub |