modul2
' ================================
' Modul2 – Seznam kódů (slovník)
' ================================
' Funkce, která vrací slovník se všemi kódy
' Klíč: podle pravidel (26 znaků s/bez P, 31 znaků)
' Hodnota: pole [název, číslo materiálu]
Public Function GetDataDict() As Object
Dim d As Object
Set d = CreateObject("Scripting.Dictionary")
' 26-znakové kódy bez P (klíč = prvních 10 znaků)
d.Add "0050533329", Array("Fuca LH", "-020-")
d.Add "0050533327", Array("Fuca RH", "-040-")
d.Add "0050538675", Array("Fuca LH QV", "-120-")
d.Add "0050538674", Array("Fuca RH QV", "-140-")
d.Add "0050539881", Array("Fuca LH 949", "-220-")
d.Add "0050539880", Array("Fuca RH 949", "-240-")
d.Add "0050540592", Array("Drop link", "-020-")
d.Add "0050540594", Array("Toe link", "-010-")
d.Add "0050547027", Array("Comfort link RWD LH", "-002-")
d.Add "0050547026", Array("Comfort link RWD RH", "-004-")
d.Add "0050547029", Array("Comfort link AWD LH", "-006-")
d.Add "0050547028", Array("Comfort link AWD RH", "-008-")
d.Add "0050535568", Array("Comfot link AWD LH 949", "-016-")
d.Add "0050535567", Array("Comfot link AWD RH 949", "-018-")
d.Add "0050552625", Array("Handling link RWD LH", "-520-")
d.Add "0050552623", Array("Handling link RWD RH", "-540-")
d.Add "0050552626", Array("Handling link AWD LH", "-560-")
d.Add "0050552624", Array("Handling link AWD RH", "-580-")
d.Add "0050552330", Array("Handling link AWD LH NP", "-660-")
d.Add "0050552328", Array("Handling link AWD RH NP", "-680-")
d.Add "0050552331", Array("Handling link AWD LH QV", "-760-")
d.Add "0050552329", Array("Handling link AWD RH QV", "-780-")
d.Add "0050563040", Array("Handling Link CROW HOP RWD LH", "-650-")
d.Add "0050563113", Array("Handling Link CROW HOP RWD RH", "-670-")
d.Add "0050563070", Array("Handling Link CROW HOP AWD LH", "-790-")
d.Add "0050563115", Array("Handling Link CROW HOP AWD RH", "-690-")
d.Add "0050563121", Array("Handling Link CROW HOP AWD NP LH", "-710-")
d.Add "0050563129", Array("Handling Link CROW HOP AWD NP RH", "-730-")
d.Add "0050563122", Array("Handling Link CROW HOP AWD QV LH", "-750-")
d.Add "0050563130", Array("Handling Link CROW HOP AWD QV RH", "-770-")
d.Add "0670160333", Array("Handling Link Maserati M240 LH", "-860-")
d.Add "0670160354", Array("Handling Link Maserati M240 RH", "-880-")
d.Add "0670161836", Array("Comfort Link RWD Maserati M240 LH", "-102-")
d.Add "0670161839", Array("Comfort Link RWD Maserati M240 RH", "-104-")
d.Add "0670156096", Array("Comfort Link AWD Maserati M240 LH", "-106-")
d.Add "0670156095", Array("Comfort Link AWD Maserati M240 RH", "-108-")
d.Add "0670156690", Array("Comfort Link AWD Maserati M182 ICE LH", "-014-")
d.Add "0670156689", Array("Comfort Link AWD Maserati M182 ICE RH", "-015-")
d.Add "0670178219", Array("Comfort Link AWD Maserati M182 BEV LH", "-114-")
d.Add "0670178218", Array("Comfort Link AWD Maserati M182 BEV RH", "-116-")
' 31-znakové kódy (klíč = prvních 11 znaků)
' Staré kódy – název obsahuje v závorkách text "(starý kód)"
d.Add "QL689855303", Array("BMW CA LH G70 (starý kód)", "-007-")
d.Add "QR689855403", Array("BMW CA RH G70 (starý kód)", "-008-")
d.Add "QL883771101", Array("BMW G60 BEV LH (starý kód)", "-017-")
d.Add "QR883771201", Array("BMW G60 BEV RH (starý kód)", "-018-")
d.Add "QL883304702", Array("BMW G60 MPA LH (starý kód)", "-027-")
d.Add "QR883304802", Array("BMW G60 MPA RH (starý kód)", "-028-")
' Nové 31-znakové kódy – bez závorek v názvu; klíč se vytvoří s poslední číslicí zvýšenou o 1.
d.Add "QL689855304", Array("BMW CA LH G70", "-007-")
d.Add "QR689855404", Array("BMW CA RH G70", "-008-")
d.Add "QL883771102", Array("BMW G60 BEV LH", "-017-")
d.Add "QR883771202", Array("BMW G60 BEV RH", "-018-")
d.Add "QL883304703", Array("BMW G60 MPA LH", "-027-")
d.Add "QR883304803", Array("BMW G60 MPA RH", "-028-")
' 26-znakové kódy s P (klíč = prvních 16 znaků)
d.Add "P0050575620-C467", Array("FUCA ASSEMBLY LH", "-740-")
d.Add "P0050575619-C467", Array("FUCA ASSEMBLY RH", "-750-")
d.Add "P0050577117-C467", Array("FLTA ASM LH", "-720-")
d.Add "P0050577113-C467", Array("FLTA ASM RH", "-730-")
d.Add "P0050577124-C467", Array("FLCA ASM LH", "-700-")
d.Add "P0050577120-C467", Array("FLCA ASM RH", "-710-")
d.Add "P0050577094-C467", Array("RCL SC ASM", "-760-")
Set GetDataDict = d
End Function