Codici Disegno

'Codici Disegno

Sub COD_DISEGNO_FNL()


STIPITI = "_1006897_1045864_" '--> 1 'nest ok -EMZ
STIPITI_PORTALI = "_1020640_1020668_1020299_1020445_1020374_" '--> 2 'nest ok -EMZ
LATO_BATTUTA = "_1010304_1007098__1033935_1033922_" '--> 3 'nest ok -EMZ
STIPITI_SLIM = "" '--> 4  'prodotti esternamente
RIVESTIMENTI_SLIM = "_1026712_1026975_1028454_1028522_" '_1026633_" '--> 5 'EMZ
ANTE_SPC_VTR = "_1025392_1025682_"
ANTE = "_1017132_1017011_1015591_1015607_1015627_1015448_1015390_1015353_1013096_1012829_1006711_1006707_1006704_1006702_1006632_1006629_1006619_1006616_" & ANTE_SPC_VTR '--> 6 'nest ok 'ESTERNI
ANTE_2 = "_1006707_1006711_1006616_1006619_1006704_1006702_1006632_1006629_" 'ESTERNI
RIVESTIMENTI_ANTA = "_1015534_1015531_1015357_1013098_1006826_" & "_1025741_1027540" '--> 7 'EMZ
RIV_2 = "_1006826_"

RINFORZI_SALD = "_1022876_1006718_1006820_" & "_1026716_1027588_1026699_" '--> 8 'nest ksl -EMZ
RNF_ANTA_SPC_VTR = "_1028084_1027762"
RINFORZI_MTG = "_1026633_1022975_1011069_1020085_1019999_1006720_1013300_1035736_1017690_" & RNF_ANTA_SPC_VTR '--> 9 'nest ksl -EMZ 'ATTENZIONE!!!!!!!!!!


TRAVERSA = "_1014657_1051969_" '--> 10 'nest ok -EMZ
TRAVERSA_PORTALE = "_1020092_1020237_" '--> 11 'nest ok -EMZ

SOTTOSOGLIA = "_1016416_1016428_1014700_1007909_1007093_1006927_1011763_1014512_1007889_1023837_1014660_" & "_1032836_1028188_1026632_" & "_1023240_" '--> 12 'dxf-trumpf

RINFORZI_TRF = "_1007233_1007253_1006908_1022168_1006930_1007886_" '--> 13 'dxf-trumpf
STAFFE = "_1006914_1020899_1020979_1020145_" '--> 14 'dxf-trumpf
COPRIFESSURA = "_1014688_1007069_" & "_1032800_1026901_1028796_1028874_1026845_" '--> 15 -->emz con foglio girato

PARAMENTI = "_1007305_1007303_1007236_1023836_1006951_" '--> 16 'nest ok -EMZ
'ENTRANCE = "_1037319_1037258_1036629_" & "_1011067_1011908_1012499_1012500_1011060_" & "_1036865_1036714_" & "_1041431_1042991_1042873_1048362_1042903_" '--> 17 'dxf-trumpf
'ENTRANCE_2 = "_1036865_1036714_" & "_1048362_1042903_1042873_"
ENTRANCE_2 = "_1036865_1036714_" & "_1048362_1042903_1042873__1037319_1037258_1036629_" & "_1011067_1011908_1012499_1012500_1011060_" & "_1036865_1036714_" & "_1041431_1042991_1042873_1048362_1042903_"


ALTRO_TRF = "_1007161_3212155519_1016520_1016400_" & "_1025782_1078916_1078917"
ALTRO_TRF = ALTRO_TRF & "_1045862_1045866_1045872_1046016_"
ALTRO_VPR = "_1007896_" '--> 19 'vipros ????? sono coprisoglia
ALTRO_EMZ = "_1017452_1016517_1016390_3201155358_" '& "_1036865_1036714_" '--> 20 -EMZ + PARTICLARI ENTRANCE

PIASTRONI_CAR = "_0902920_0902895_1006615_1006715_" '--> 21 -EMZ
PIASTRONI_LAND = "_0902935_1005785_1005784_" '--> 22 -EMZ


COD_ETICHETTATI = SOTTOSOGLIA & STAFFE & COPRIFESSURA & ALTRO_VPR & ALTRO_EMZ & ALTRO_TRF & PARAMENTI & RINFORZI_TRF & RINFORZI_MTG
STR_VR_ACC = COPRIFESSURA & SOTTOSOGLIA & ALTRO_TRF & ALTRO_EMZ & RINFORZI_TRF & ALTRO_VPR & STAFFE & RINFORZI_MTG & PARAMENTI & RINFORZI_SALD & ENTRANCE_2
STR_VR_FIBRA = PIASTRONI_CAR & PIASTRONI_LAND

End Sub


Sub DRAWING_CODE(ByVal tot_pz As Double)

For dc = 1 To tot_pz

INFO_DAT(dc, 0, 31) = "0"
If InStr(1, STIPITI, INFO_DAT(dc, 0, 6)) > 0 Then INFO_DAT(dc, 0, 31) = "1"
If InStr(1, STIPITI_PORTALI, INFO_DAT(dc, 0, 6)) > 0 Then INFO_DAT(dc, 0, 31) = "2"
If InStr(1, LATO_BATTUTA, INFO_DAT(dc, 0, 6)) > 0 Then INFO_DAT(dc, 0, 31) = "3"
If InStr(1, STIPITI_SLIM, INFO_DAT(dc, 0, 6)) > 0 Then INFO_DAT(dc, 0, 31) = "4"
If InStr(1, RIVESTIMENTI_SLIM, INFO_DAT(dc, 0, 6)) > 0 Then INFO_DAT(dc, 0, 31) = "5"
If InStr(1, ANTE, INFO_DAT(dc, 0, 6)) > 0 Then INFO_DAT(dc, 0, 31) = "6"
If InStr(1, RIVESTIMENTI_ANTA, INFO_DAT(dc, 0, 6)) > 0 Then INFO_DAT(dc, 0, 31) = "7"
If InStr(1, RINFORZI_SALD, INFO_DAT(dc, 0, 6)) > 0 Then INFO_DAT(dc, 0, 31) = "8"
If InStr(1, RINFORZI_MTG, INFO_DAT(dc, 0, 6)) > 0 Then INFO_DAT(dc, 0, 31) = "9"
If InStr(1, TRAVERSA, INFO_DAT(dc, 0, 6)) > 0 Then INFO_DAT(dc, 0, 31) = "10"
If InStr(1, TRAVERSA_PORTALE, INFO_DAT(dc, 0, 6)) > 0 Then INFO_DAT(dc, 0, 31) = "11"
If InStr(1, SOTTOSOGLIA, INFO_DAT(dc, 0, 6)) > 0 Then INFO_DAT(dc, 0, 31) = "12"
If InStr(1, RINFORZI_TRF, INFO_DAT(dc, 0, 6)) > 0 Then INFO_DAT(dc, 0, 31) = "13"
If InStr(1, STAFFE, INFO_DAT(dc, 0, 6)) > 0 Then INFO_DAT(dc, 0, 31) = "14"
If InStr(1, COPRIFESSURA, INFO_DAT(dc, 0, 6)) > 0 Then INFO_DAT(dc, 0, 31) = "15"
If InStr(1, PARAMENTI, INFO_DAT(dc, 0, 6)) > 0 Then INFO_DAT(dc, 0, 31) = "16"
If InStr(1, ENTRANCE, INFO_DAT(dc, 0, 6)) > 0 Then INFO_DAT(dc, 0, 31) = "17"
If InStr(1, ALTRO_TRF, INFO_DAT(dc, 0, 6)) > 0 Then INFO_DAT(dc, 0, 31) = "18"
If InStr(1, ALTRO_VPR, INFO_DAT(dc, 0, 6)) > 0 Then INFO_DAT(dc, 0, 31) = "19"
If InStr(1, ALTRO_EMZ, INFO_DAT(dc, 0, 6)) > 0 Then INFO_DAT(dc, 0, 31) = "20"
If InStr(1, PIASTRONI_CAR, INFO_DAT(dc, 0, 6)) > 0 Then INFO_DAT(dc, 0, 31) = "21"
If InStr(1, PIASTRONI_LAND, INFO_DAT(dc, 0, 6)) > 0 Then INFO_DAT(dc, 0, 31) = "22"
If InStr(1, ENTRANCE_2, INFO_DAT(dc, 0, 6)) > 0 Then INFO_DAT(dc, 0, 31) = "23"
If INFO_DAT(dc, 0, 31) = "0" Then MsgBox ("IL CODICE " & INFO_DAT(dc, 0, 6) & " NON E' INSERITO NEL DATABASE")

Next dc



End Sub