View difference between Paste ID: tVxfrEnE and rPL5A1Ny

-'Principale
+'Codici Disegno
 
-Sub MAIN()
+Sub COD_DISEGNO_FNL()
 
-'***********IMPOSTAZIONI
+
-If InStr(1, PRG_TOT, "C") = 0 And InStr(1, PRG_TOT, "B") = 0 Then FNL_SEQUENCING = 1 Else FNL_SEQUENCING = 0  'ATTIVA O MENO LA SEQUENZA
+STIPITI = "_1006897_1045864_" '--> 1 'nest ok -EMZ
-Call SETTING
+STIPITI_PORTALI = "_1020640_1020668_1020299_1020445_1020374_" '--> 2 'nest ok -EMZ
 LATO_BATTUTA = "_1010304_1007098__1033935_1033922_" '--> 3 'nest ok -EMZ
-If LISTA_MAT_FNL = 1 Then
+STIPITI_SLIM = "" '--> 4  'prodotti esternamente
-Call READ_DATA(PRG_NUM(1))
+RIVESTIMENTI_SLIM = "_1026712_1026975_1028454_1028522_" '_1026633_" '--> 5 'EMZ
-Exit Sub
+ANTE_SPC_VTR = "_1025392_1025682_"
-End If
+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
-Call COD_DISEGNO_FNL
+RIVESTIMENTI_ANTA = "_1015534_1015531_1015357_1013098_1006826_" & "_1025741_1027540" '--> 7 'EMZ
-Call DESC_MAT
+RIV_2 = "_1006826_"
 
-Call LISTA_DXF 'LISTA DXF GIA' PRODOTTI ESTERNAMENTE
+RINFORZI_SALD = "_1022876_1006718_1006820_" & "_1026716_1027588_1026699_" '--> 8 'nest ksl -EMZ
 RNF_ANTA_SPC_VTR = "_1028084_1027762"
-SPC_R_OLD = ""
+RINFORZI_MTG = "_1026633_1022975_1011069_1020085_1019999_1006720_1013300_1035736_1017690_" & RNF_ANTA_SPC_VTR '--> 9 'nest ksl -EMZ 'ATTENZIONE!!!!!!!!!!
-QCSP_OLD = 0
+
 
 TRAVERSA = "_1014657_1051969_" '--> 10 'nest ok -EMZ
-'*******************************blocco dati
+TRAVERSA_PORTALE = "_1020092_1020237_" '--> 11 'nest ok -EMZ
-Call VALIDAZIONE
+
-If kl = 1 Then Exit Sub
+SOTTOSOGLIA = "_1016416_1016428_1014700_1007909_1007093_1006927_1011763_1014512_1007889_1023837_1014660_" & "_1032836_1028188_1026632_" & "_1023240_" '--> 12 'dxf-trumpf
-'*******************************
+
-Call TORRETTE
+RINFORZI_TRF = "_1007233_1007253_1006908_1022168_1006930_1007886_" '--> 13 'dxf-trumpf
-Call VALORI
+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
-If VAR_APE = True Then '*************************************************************'PRODUZIONE ESTERNA
+'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_"
-Call EXTERNAL_PROD
+
 
-Else '********************************************************************************PRODUZIONE INTERNA
+ALTRO_TRF = "_1007161_3212155519_1016520_1016400_" & "_1025782_1078916_1078917"
 ALTRO_TRF = ALTRO_TRF & "_1045862_1045866_1045872_1046016_"
 ALTRO_VPR = "_1007896_" '--> 19 'vipros ????? sono coprisoglia
-If VCF = 6 Or VCF = 0 Then Call PROG_MAC_S4
+ALTRO_EMZ = "_1017452_1016517_1016390_3201155358_" '& "_1036865_1036714_" '--> 20 -EMZ + PARTICLARI ENTRANCE
-Call PUNCH_TOOL 'legge gli utensili per ogni pezzo
+
 PIASTRONI_CAR = "_0902920_0902895_1006615_1006715_" '--> 21 -EMZ
 PIASTRONI_LAND = "_0902935_1005785_1005784_" '--> 22 -EMZ
-VNP = MsgBox("VUOI NESTARE IL PROGRAMMA " & PRG_TOT & " ?", vbYesNo)
+
-If VNP = 6 Then
+
 COD_ETICHETTATI = SOTTOSOGLIA & STAFFE & COPRIFESSURA & ALTRO_VPR & ALTRO_EMZ & ALTRO_TRF & PARAMENTI & RINFORZI_TRF & RINFORZI_MTG
-For MP = 1 To 11
+STR_VR_ACC = COPRIFESSURA & SOTTOSOGLIA & ALTRO_TRF & ALTRO_EMZ & RINFORZI_TRF & ALTRO_VPR & STAFFE & RINFORZI_MTG & PARAMENTI & RINFORZI_SALD & ENTRANCE_2
-'If MP <> 3 Then GoTo NO_NESTING
+STR_VR_FIBRA = PIASTRONI_CAR & PIASTRONI_LAND
-'*****************************************************SETTAGGI MAPPATURA
+
-''If MP = 1 And InStr(1, PRG_TOT, "R") = 0 And InStr(1, PRG_TOT, "C") = 0 Then GoTo NO_NESTING  'BLOCCO LE ANTE SE NON SONO UN REWORK
+
-If VAR_ACCORP = True And (MP <> 7 And MP <> 4 And MP <> 8 And MP <> 11) Then GoTo NO_NESTING  'PER ACCORPAMENTO
+
-If VAR_ACCORP = False And (MP = 7 Or MP = 4 Or MP = 8 Or MP = 11) Then GoTo NO_NESTING 'PER ACCORPAMENTO - NO CPR PER SINGOLO PROGRAMMA
+
-If VAR_PIASTRFIBRA = True And MP = 5 Then GoTo NO_NESTING
+Sub DRAWING_CODE(ByVal tot_pz As Double)
 
-        Select Case MP
+For dc = 1 To tot_pz
-        Case 1 'ante
+
-        NAMEMAP = NPAR_FLD & PRG_TOT & "ANTE.MNE"
+INFO_DAT(dc, 0, 31) = "0"
-        NOME_REP = "ANTE"
+If InStr(1, STIPITI, INFO_DAT(dc, 0, 6)) > 0 Then INFO_DAT(dc, 0, 31) = "1"
-        STR_ACCESSO = ANTE
+If InStr(1, STIPITI_PORTALI, INFO_DAT(dc, 0, 6)) > 0 Then INFO_DAT(dc, 0, 31) = "2"
-        Case 2 'stipiti, lato battuta
+If InStr(1, LATO_BATTUTA, INFO_DAT(dc, 0, 6)) > 0 Then INFO_DAT(dc, 0, 31) = "3"
-        NAMEMAP = NPAR_FLD & PRG_TOT & "STIPITI.MNE"
+If InStr(1, STIPITI_SLIM, INFO_DAT(dc, 0, 6)) > 0 Then INFO_DAT(dc, 0, 31) = "4"
-        NOME_REP = "STIPITI"
+If InStr(1, RIVESTIMENTI_SLIM, INFO_DAT(dc, 0, 6)) > 0 Then INFO_DAT(dc, 0, 31) = "5"
-        STR_ACCESSO = STIPITI & TRAVERSA & LATO_BATTUTA
+If InStr(1, ANTE, INFO_DAT(dc, 0, 6)) > 0 Then INFO_DAT(dc, 0, 31) = "6"
-        Case 3 'rivestimenti anta
+If InStr(1, RIVESTIMENTI_ANTA, INFO_DAT(dc, 0, 6)) > 0 Then INFO_DAT(dc, 0, 31) = "7"
-        NAMEMAP = NPAR_FLD & PRG_TOT & "RIVESTIMENTI.MNE"
+If InStr(1, RINFORZI_SALD, INFO_DAT(dc, 0, 6)) > 0 Then INFO_DAT(dc, 0, 31) = "8"
-        NOME_REP = "RIV_ANTE"
+If InStr(1, RINFORZI_MTG, INFO_DAT(dc, 0, 6)) > 0 Then INFO_DAT(dc, 0, 31) = "9"
-        STR_ACCESSO = RIVESTIMENTI_ANTA
+If InStr(1, TRAVERSA, INFO_DAT(dc, 0, 6)) > 0 Then INFO_DAT(dc, 0, 31) = "10"
-        Case 4 'rinforzi
+If InStr(1, TRAVERSA_PORTALE, INFO_DAT(dc, 0, 6)) > 0 Then INFO_DAT(dc, 0, 31) = "11"
-        NAMEMAP = NPAR_FLD & PRG_TOT & "RINFORZI.MNE"
+If InStr(1, SOTTOSOGLIA, INFO_DAT(dc, 0, 6)) > 0 Then INFO_DAT(dc, 0, 31) = "12"
-        NOME_REP = "RINFORZI"
+If InStr(1, RINFORZI_TRF, INFO_DAT(dc, 0, 6)) > 0 Then INFO_DAT(dc, 0, 31) = "13"
-        STR_ACCESSO = RINFORZI_MTG & RINFORZI_SALD & ALTRO_EMZ
+If InStr(1, STAFFE, INFO_DAT(dc, 0, 6)) > 0 Then INFO_DAT(dc, 0, 31) = "14"
-        Case 5 'piastroni
+If InStr(1, COPRIFESSURA, INFO_DAT(dc, 0, 6)) > 0 Then INFO_DAT(dc, 0, 31) = "15"
-        NAMEMAP = NPAR_FLD & PRG_TOT & "PIASTRONI.MNE"
+If InStr(1, PARAMENTI, INFO_DAT(dc, 0, 6)) > 0 Then INFO_DAT(dc, 0, 31) = "16"
-        NOME_REP = "PIASTRONI"
+If InStr(1, ENTRANCE, INFO_DAT(dc, 0, 6)) > 0 Then INFO_DAT(dc, 0, 31) = "17"
-        STR_ACCESSO = PIASTRONI_LAND & PIASTRONI_CAR
+If InStr(1, ALTRO_TRF, INFO_DAT(dc, 0, 6)) > 0 Then INFO_DAT(dc, 0, 31) = "18"
-        Case 6 'PORTALI
+If InStr(1, ALTRO_VPR, INFO_DAT(dc, 0, 6)) > 0 Then INFO_DAT(dc, 0, 31) = "19"
-        NAMEMAP = NPAR_FLD & PRG_TOT & "PORTALI.MNE"
+If InStr(1, ALTRO_EMZ, INFO_DAT(dc, 0, 6)) > 0 Then INFO_DAT(dc, 0, 31) = "20"
-        NOME_REP = "PORTALI"
+If InStr(1, PIASTRONI_CAR, INFO_DAT(dc, 0, 6)) > 0 Then INFO_DAT(dc, 0, 31) = "21"
-        STR_ACCESSO = STIPITI_PORTALI & TRAVERSA_PORTALE
+If InStr(1, PIASTRONI_LAND, INFO_DAT(dc, 0, 6)) > 0 Then INFO_DAT(dc, 0, 31) = "22"
-        Case 7 'coprifessura
+If InStr(1, ENTRANCE_2, INFO_DAT(dc, 0, 6)) > 0 Then INFO_DAT(dc, 0, 31) = "23"
-        NAMEMAP = NPAR_FLD & PRG_TOT & "CPR.MNE"
+If INFO_DAT(dc, 0, 31) = "0" Then MsgBox ("IL CODICE " & INFO_DAT(dc, 0, 6) & " NON E' INSERITO NEL DATABASE")
-        NOME_REP = "COPRIFESSURA"
+
-        STR_ACCESSO = COPRIFESSURA
+Next dc
-        Case 8 'PARAMENTI
+
-        NAMEMAP = NPAR_FLD & PRG_TOT & "PRM.MNE"
+
-        NOME_REP = "PARAMENTI"
+
-        STR_ACCESSO = PARAMENTI
+
-        Case 9 'slim
+