View difference between Paste ID: 72chcCa7 and U7K8XgsU

-'Stipiti
+'STP Orona
 
-Function DEFINE_QCSP(ByVal COD_SPC As String, ByVal NND As Integer, ByVal H As Double)
+Sub S_1006897D(ByVal NND As Integer)
-DEFINE_QCSP = 0
+ACT_MOD = "1006897"
 CLAMP = 0
-If COD_SPC = "0" Then Exit Function
+
 
-HSP = INPUT_NUM(NND, "H_SPC", H_SPC, ACT_MOD)
+L = INPUT_NUM(NND, "L", L, ACT_MOD)
-M2 = INPUT_NUM(NND, "M2_SPC", M2_SPC, ACT_MOD)
+H = INPUT_NUM(NND, "H", H, ACT_MOD)
-M3 = INPUT_NUM(NND, "M3_SPC", M3_SPC, ACT_MOD)
+SPS = INPUT_NUM(NND, "SPS", SPS, ACT_MOD) / 10
-M4 = INPUT_NUM(NND, "M4_SPC", M4_SPC, ACT_MOD)
+M1 = INPUT_NUM(NND, "M1", M1, ACT_MOD)
-TYS = INPUT_STR(NND, "TY_SPC", TY_SPC, ACT_MOD)
+M2 = INPUT_NUM(NND, "M2", M2, ACT_MOD)
-If HSP = 0 Or HSP = -1 Then Exit Function
+M3 = INPUT_NUM(NND, "M3", M3, ACT_MOD)
 M4 = INPUT_NUM(NND, "M4", M4, ACT_MOD)
-Select Case COD_SPC
+M5 = INPUT_NUM(NND, "M5", M5, ACT_MOD)
-Case "1420", "1430", "1432", "1450", "9140"
+M6 = INPUT_NUM(NND, "M6", M6, ACT_MOD)
 M7 = INPUT_NUM(NND, "M7", M7, ACT_MOD)
-If InStr(1, TYS, "A") > 0 Then
+M8 = INPUT_NUM(NND, "M8", M8, ACT_MOD)
-DEFINE_QCSP = HSP
+M9 = INPUT_NUM(NND, "M9", M9, ACT_MOD)
 M10 = INPUT_NUM(NND, "M10", M10, ACT_MOD)
-If InStr(1, TYS, "B") > 0 Then
+M11 = INPUT_NUM(NND, "M11", M11, ACT_MOD)
-DEFINE_QCSP = HSP + M2
+M12 = INPUT_NUM(NND, "M12", M12, ACT_MOD)
 
-If InStr(1, TYS, "C") > 0 Then
+
-DEFINE_QCSP = HSP + (M2 * 2)
+DF = INPUT_NUM(NND, "DF", DF, ACT_MOD)
 sf = INPUT_NUM(NND, "SF", sf, ACT_MOD)
 SB = INPUT_NUM(NND, "SB", SB, ACT_MOD)
-Case "9150"
+LH = INPUT_NUM(NND, "LH", LH, ACT_MOD)
-If InStr(1, TYS, "A") > 0 Then
+CD_SP = INPUT_NUM(NND, "SPC.", CD_SP, ACT_MOD)
-DEFINE_QCSP = HSP
+VV = INPUT_STR(NND, "VER.", VV, ACT_MOD)
 BNB = INPUT_NUM(NND, "BNB", BNB, ACT_MOD)
-If InStr(1, TYS, "B") > 0 Then
+ODP = INFO_DAT(NND, 0, 5)
-DEFINE_QCSP = HSP + M4
+
 OFSS = 0 '0.5
-If InStr(1, TYS, "C") > 0 Then
+
-DEFINE_QCSP = HSP + M3
+
 If Val(LH) = 0 Then
 SP = M1 + 50
-Case "1800", "1810", "1820", "9180"
+LH = H - SP
-If InStr(1, TYS, "A") > 0 Then
+
-DEFINE_QCSP = HSP + 17
+
 
-If InStr(1, TYS, "B") > 0 Then
+If VV = "1" Or VV = "3" Or VV = "5" Or VV = "7" Then    'PINZE
-DEFINE_QCSP = HSP + 17 + 54
+If CD_SP = 0 Then
 If SP = 90 And LH = 2000 Then
-If InStr(1, TYS, "C") > 0 Then
+'CLAMP = 1
-DEFINE_QCSP = HSP + 17 + 54 * 2
+
 End If
-If InStr(1, TYS, "D") > 0 Then
+
-DEFINE_QCSP = HSP + 17 + 54 * 3
+
 
 VV = Replace(VV, "H", "")
-Case "2000", "2002", "9200"
+
-If InStr(1, TYS, "A") > 0 Then
+If VV > 8 Then MsgBox "ERRORE VERSIONE SU " & ACT_MOD, vbCritical
-DEFINE_QCSP = HSP + 42
+
 
-If InStr(1, TYS, "B") > 0 Then
+SCS = 6
-DEFINE_QCSP = HSP + 755 + 75.25
+
 
 sf = 1 * sf '+ 1 * SB
 If sf = 0 Then
-DEFINE_QCSP = HSP + (M2 / 2)
+sf = 1 * SB
 MsgBox "ERRORE DATI SB-SF IN " & ACT_MOD
 End If
-DEFINE_QCSP = H - DEFINE_QCSP
+
 
 
-End Function
+Select Case VV
 Case 2, 4, 6, 8
-Function SPCp_CODIFY(ByVal NND As Integer, ByVal COD_SPC As String, ByVal FL_AP As Double, ByVal H As Double, ByVal L As Double, ByVal MRR As Byte, ByVal SB As Double) As String
+
-' PROGRESSIVO PEZZO, CODICE SPACCO, FILO APERTURA, LUNGHEZZA, ALTEZZA, SPECCHIATURA, SB\SF
+
 '*******************************************SPACCO
-If COD_SPC = "50518" Or COD_SPC = "50543" Then COD_SPC = "2382"
+If CD_SP <> "" And CD_SP <> "0" Then
-If COD_SPC = "50519" Then COD_SPC = "2900"
+R01 = SPC_PULS(NND, CD_SP, 25 + DF - 4.8, H, L, 2, sf, 0) 'MODIFICATO DA 25 A 15mm
-If COD_SPC = "50520" Then COD_SPC = "3000"
+
-If COD_SPC = "50521" Then COD_SPC = "3100"
+If DF >= 40 Then M5 = DF - 25 Else M5 = 0
 
-If COD_SPC = "50522" Then COD_SPC = "3200"
+
-If COD_SPC = "50523" Then COD_SPC = "3300"
+If CD_SP = "50522" Or CD_SP = "50522" Or CD_SP = "50522" Then
-If COD_SPC = "50524" Then COD_SPC = "3400"
+R02 = T_CIRC(H - M11, L - 5.2, 5.5) & T_CIRC(H - M11 - 375.5, L - 5.2, 5.5)
 R02 = R02 & T_CIRC(H - M12, L - 5.2, 5.5) & T_CIRC(H - M12 - 275.5, L - 5.2, 5.5)
-M1 = INPUT_NUM(NND, "M1_SPC", M1_SPC, ACT_MOD)
+R02 = R02 & T_SLOT(H - M11, 24.1, 8, 5, 90) & T_SLOT(H - M11, 24.1 + M5, 8, 5, 90)
-If COD_SPC = "9932" Or COD_SPC = "9933" Or COD_SPC = "9934" Then GoTo SALTA_SPC_CCD 'WITTUR ZOO
+R02 = R02 & T_SLOT(H - M11 - 375.5, 24.1, 8, 5, 90) & T_SLOT(H - M11 - 375.5, 24.1 + M5, 8, 5, 90)
-If M1 = 0 Or M1 = -1 Then Exit Function
+R02 = R02 & T_SLOT(H - M12, 24.1, 8, 5, 90) & T_SLOT(H - M12, 24.1 + M5, 8, 5, 90)
 R02 = R02 & T_SLOT(H - M12 - 275.5, 24.1, 8, 5, 90) & T_SLOT(H - M12 - 275.5, 24.1 + M5, 8, 5, 90)
-SALTA_SPC_CCD:
+
-HSP = INPUT_NUM(NND, "H_SPC", H_SPC, ACT_MOD)
+
-M2 = INPUT_NUM(NND, "M2_SPC", M2_SPC, ACT_MOD)
+R02 = T_CIRC(QCSP + 187.75, L - 5.2, 5.5)
-M3 = INPUT_NUM(NND, "M3_SPC", M3_SPC, ACT_MOD)
+R02 = R02 & T_CIRC(QCSP - 187.75, L - 5.2, 5.5)
-M4 = INPUT_NUM(NND, "M4_SPC", M4_SPC, ACT_MOD)
+R02 = R02 & T_SLOT(QCSP + 187.75, 24.1, 8, 5, 90)
-M5 = INPUT_NUM(NND, "M5_SPC", M5_SPC, ACT_MOD)
+R02 = R02 & T_SLOT(QCSP + 187.75, 24.1 + M5, 8, 5, 90)
-M6 = INPUT_NUM(NND, "M6_SPC", M6_SPC, ACT_MOD)
+R02 = R02 & T_SLOT(QCSP - 187.75, 24.1, 8, 5, 90)
-M7 = INPUT_NUM(NND, "M7_SPC", M7_SPC, ACT_MOD)
+R02 = R02 & T_SLOT(QCSP - 187.75, 24.1 + M5, 8, 5, 90)
-M8 = INPUT_NUM(NND, "M8_SPC", M8_SPC, ACT_MOD)
+
-M9 = INPUT_NUM(NND, "M9_SPC", M9_SPC, ACT_MOD)
+
-M10 = INPUT_NUM(NND, "M10_SPC", M10_SPC, ACT_MOD)
+
-M11 = INPUT_NUM(NND, "M11_SPC", M11_SPC, ACT_MOD)
+
-M12 = INPUT_NUM(NND, "M12_SPC", M12_SPC, ACT_MOD)
+MsgBox "M3=0"
-M13 = INPUT_NUM(NND, "M13_SPC", M13_SPC, ACT_MOD)
+Select Case LH
-M14 = INPUT_NUM(NND, "M14_SPC", M14_SPC, ACT_MOD)
+
-M15 = INPUT_NUM(NND, "M15_SPC", M15_SPC, ACT_MOD)
+Case 1900
-M16 = INPUT_NUM(NND, "M16_SPC", M16_SPC, ACT_MOD)
+If H - QCSP < 1030 Then M3 = H - QCSP - 530
-M17 = INPUT_NUM(NND, "M17_SPC", M17_SPC, ACT_MOD)
+If H - QCSP > 1080 Then M3 = (H - QCSP) / 2 - 40
-M18 = INPUT_NUM(NND, "M18_SPC", M18_SPC, ACT_MOD)
+If (H - QCSP >= 1030 And H - QCSP <= 1080) Then M3 = 500
 
 Case 1950
 If H - QCSP < 1055 Then M3 = H - QCSP - 530
-RS1 = ""
+If H - QCSP > 1130 Then M3 = (H - QCSP) / 2 - 40
-RS2 = ""
+If (H - QCSP >= 1055 And H - QCSP <= 1130) Then M3 = 525
-RS3 = ""
+
-RS4 = ""
+Case 2000
-RS5 = ""
+If H - QCSP < 1080 Then M3 = H - QCSP - 530
-RS6 = ""
+If H - QCSP > 1180 Then M3 = (H - QCSP) / 2 - 40
-RS7 = ""
+If (H - QCSP >= 1080 And H - QCSP <= 1180) Then M3 = 550
-SPCp_CODIFY = ""
+
 Case 2050
 If H - QCSP < 1105 Then M3 = H - QCSP - 530
-FA = FL_AP
+If H - QCSP > 1230 Then M3 = (H - QCSP) / 2 - 40
-HSP = HSP '+ 2.5 ' I RIVESTIMENTI VANNO SOTTO LA SOGLIA DI 2.5 mm --> FINELINE FILO PAVIMENTO
+If (H - QCSP >= 1105 And H - QCSP <= 1230) Then M3 = 575
 
-If Len(COD_SPC) < 4 Then COD_SPC = "0" & COD_SPC
+Case 2100
 If H - QCSP < 1130 Then M3 = H - QCSP - 530
-Select Case COD_SPC
+If H - QCSP > 1280 Then M3 = (H - QCSP) / 2 - 40
-Case "9020"
+If (H - QCSP >= 1130 And H - QCSP <= 1280) Then M3 = 600
-'Y = MR_Y(FA + M5, L, MRR)
+
-'RS1 = T_RECT2(H - HSP - M2 / 2, Y, M2, M1)
+
-'RS2 = T_RECT2(H - HSP - M4 - M3 / 2, Y, M3, M1)
+MsgBox "ERRORE VALORE LH " & ACT_MOD, vbCritical
-'SPCp_CODIFY = RS1 & RS2
+
-'MsgBox ("CONTROLLARE SPACCO " & COD_SPC & " SU CODICE " & ACT_MOD)
+
-MsgBox (COD_SPC & " BLOCCATO SU CODICE " & ACT_MOD)
+
 Else
-Case "0300", "90300", "0306", "0308", "0304", "0338", "0342", "0344", "0348", "0352", "0356", "0374", "0378", "0384", "2312", "2320", "2322", "2326", "2330", "2332", "2334", "2336", "2342", "2344", "2346", "92346", "2350", "2354", "2360", "2364", "2372", "2380", "2382", "9030"
+R01 = ""
 R02 = ""
-If SB > 300 Then M3 = 60 Else M3 = SB / 2
+
 '*******************************************************
 
-Y = MR_Y(FA + M3, L, MRR)
+
-RS1 = T_RECT2(H - HSP - M2 / 2, Y, M2, M1)
+R03 = T_RECT1(-SCS, M2, L - 26.6, L + SCS)
-SPCp_CODIFY = RS1
+R03 = R03 & T_RECT1(-SCS, M2, -SCS, 16.6)
-'MsgBox ("CONTROLLARE SPACCO " & COD_SPC & " SU CODICE " & ACT_MOD)
+R03 = R03 & T_RECT1(H - 70, H + SCS, -SCS, 16.6)
 
-Case "0440", "9040"
+R03 = R03 & T_RECT1(H - 345, H - 290, 12.5, 17.5)
-If M6 = 0 Then
+R03 = R03 & T_RECT1(H - (345 + M3), H - (290 + M3), 12.5, 17.5)
-If SB > 300 Then M6 = 60 Else M6 = SB / 2
+If CD_SP = "50522" Or CD_SP = "50522" Or CD_SP = "50522" Then
 R03 = R03 & T_RECT1(H - (345 + M3 + M10), H - (290 + M3 + M10), 12.5, 17.5)
 Else
-Y = MR_Y(FA + M6, L, MRR)
+R03 = R03 & T_RECT1(H - (345 + 2 * M3), H - (290 + 2 * M3), 12.5, 17.5)
-RS1 = T_RECT2(H - HSP - M2 / 2, Y, M2, M1)
+
-RS2 = T_CIRC(H - HSP - M2 / 2 - M3 / 2, Y, M5) & T_CIRC(H - HSP - M2 / 2 - M3 / 2, Y + M4 / 2, M5) & T_CIRC(H - HSP - M2 / 2 - M3 / 2, Y - M4 / 2, M5)
+R03 = R03 & T_RECT1(M2 + 20, M2 + 75, 12.5, 17.5)
-RS3 = T_CIRC(H - HSP - M2 / 2 + M3 / 2, Y, M5) & T_CIRC(H - HSP - M2 / 2 + M3 / 2, Y + M4 / 2, M5) & T_CIRC(H - HSP - M2 / 2 + M3 / 2, Y - M4 / 2, M5)
+
-SPCp_CODIFY = RS1 & RS2 & RS3
+R03 = R03 & T_SLOT(H - 25, DF - 18 + 15 - 2.4, 8, 5, 90)
-MsgBox ("CONTROLLARE SPACCO " & COD_SPC & " SU CODICE " & ACT_MOD)
+R03 = R03 & T_SLOT(H - 55, DF - 18 + 15 - 2.4, 8, 5, 90)
 
-Case "0514", "0518", "0526", "0530", "0540", "0542", "0560", "0570", "0580", "90580", "0592", "0594", "9050", "90540", "90526"
+R03 = R03 & T_CIRC(20, DF / 2 + 15 - 2.4, 7.2)
-If M5 = 0 Then
+R03 = R03 & T_CIRC(20 + M1, DF / 2 + 15 - 2.4, 7.2)
-If SB > 300 Then M5 = 60 Else M5 = SB / 2
+R03 = R03 & T_CIRC(20, L - (DF / 2 + 25 - 2.4), 7.2)
 R03 = R03 & T_CIRC(20 + M1, L - (DF / 2 + 25 - 2.4), 7.2)
 
-If M4 = 3.2 Then M4 = 3.3 'AGGIUNTA GALLONI 09-04-2019
+R03 = R03 & T_SLOT(H - 25, L - 9.5, 8, 5, 90)
-If M4 = 2.1 Then M4 = 2 'AGGIUNTA GALLONI 14-10-2019
+R03 = R03 & T_SLOT(H - 55, L - 9.5, 8, 5, 90)
-If M4 = 4.4 Then M4 = 4.2 'AGGIUNTA GALLONI 23-07-2020
+
-If M4 = 4 Then M4 = 4.2 'AGGIUNTA GALLONI 23-07-2020
+R03 = R03 & T_CIRC(H - 283, L - 10, 8.5)
-If M4 = 4.5 Then M4 = 4.2 'AGGIUNTA GALLONI 23-07-2020
+R03 = R03 & T_CIRC(H - (283 + 34), L - 10, 8.5)
 R03 = R03 & T_CIRC(H - (283 + M3), L - 10, 8.5)
-Y = MR_Y(FA + M5, L, MRR)
+R03 = R03 & T_CIRC(H - (283 + 34 + M3), L - 10, 8.5)
-RS1 = T_RECT2(H - HSP - M2 / 2, Y, M2, M1)
+If CD_SP = "50522" Or CD_SP = "50522" Or CD_SP = "50522" Then
-RS2 = T_CIRC(H - HSP - M2 / 2 - M3 / 2, Y, M4) & T_CIRC(H - HSP - M2 / 2 + M3 / 2, Y, M4)
+R03 = R03 & T_CIRC(H - (283 + M3 + M10), L - 10, 8.5)
-SPCp_CODIFY = RS1 & RS2
+R03 = R03 & T_CIRC(H - (283 + 34 + M3 + M10), L - 10, 8.5)
-'MsgBox ("CONTROLLARE SPACCO " & COD_SPC & " SU CODICE " & ACT_MOD)
+
 R03 = R03 & T_CIRC(H - (283 + 2 * M3), L - 10, 8.5)
-Case "9240"
+R03 = R03 & T_CIRC(H - (283 + 34 + 2 * M3), L - 10, 8.5)
-Y = MR_Y(FA + M6, L, MRR)
+
-RS1 = T_RECT2(H - HSP - M2 / 2, Y, M2, M1)
+R03 = R03 & T_CIRC(M2 + 82, L - 10, 8.5)
-RS2 = T_CIRC(H - HSP - M2 / 2 - M3 / 2, Y, M5) & T_CIRC(H - HSP - M2 / 2 + M3 / 2, Y, M5)
+R03 = R03 & T_CIRC(M2 + 82 - 34, L - 10, 8.5)
-If MRR = 1 Then
+
-RS3 = T_CIRC(H - HSP - M2 / 2 - M3 / 2, Y - M4, M5) & T_CIRC(H - HSP - M2 / 2 + M3 / 2, Y + M4, M5)
+
 If M6 > 0 Then R04 = T_CIRC(H - 1500, 15 + M6 - 2.4, 22) Else R04 = ""
-RS3 = T_CIRC(H - HSP - M2 / 2 - M3 / 2, Y + M4, M5) & T_CIRC(H - HSP - M2 / 2 + M3 / 2, Y - M4, M5)
+
 'SMUSSI
-SPCp_CODIFY = RS1 & RS2 & RS3
+R05 = T_RAD(0 - OFSS, 15 + 4 - 2.4 - OFSS, 3)
-MsgBox ("CONTROLLARE SPACCO " & COD_SPC & " SU CODICE " & ACT_MOD)
+R05 = R05 & T_RAD(M2 - OFSS, 0 - OFSS, 3)
 R05 = R05 & T_RAD(0 - OFSS, L - (25 + 4 - 2.4) + OFSS, 2)
-Case "9060"
+R05 = R05 & T_RAD(M2 - OFSS, L + OFSS, 2)
-'Y = MR_Y(FA + M4, L, MRR)
+R05 = R05 & T_RAD(H - 70 + OFSS, 0 - OFSS, 4)
-'RS1 = T_RECT2(H - HSP - M2 / 2, Y, M2, M1)
+R05 = R05 & T_RAD(H + OFSS, 15 + 4 - 2.4 - OFSS, 4)
-'RS2 = T_CIRC(H - HSP - M2 / 2 - M3 / 2, Y, M8) & T_CIRC(H - HSP - M2 / 2 + M3 / 2, Y, M8)
+R05 = R05 & T_RAD(H + OFSS, L + OFSS, 1)
-'RS3 = T_RECT2(H - HSP - M6 - M5 / 2, Y, M5, M1)
+
-'RS4 = T_CIRC(H - HSP - M6 - M5 / 2 - M7 / 2, Y, M8) & T_CIRC(H - HSP - M6 - M5 / 2 + M7 / 2, Y, M8)
+'Print #NF, T_BLQ(H - 1000 - 5.65, L, H - 1000, L - 5.65, 1, 0)
-'SPCp_CODIFY = RS1 & RS2 & RS3 & RS4
+'Print #NF, T_BLQ(H - 1000, L - 5.65, H - 1000 + 5.65, L, 0, 1)
-'MsgBox ("CONTROLLARE SPACCO " & COD_SPC & " SU CODICE " & ACT_MOD)
+R06 = T_SMUS(H - 1000, L + 0.2)
-MsgBox (COD_SPC & " BLOCCATO SU CODICE " & ACT_MOD)
+'Print #NF, T_CIRC(H - 1000, L, 3.3)
 
-Case "9070"
+R11 = T_DATAMATRIX(ODP, H - 283 + 10, 15 + 2.5, "O")
-Y = MR_Y(FA + M5, L, MRR)
+
-RS1 = T_RECT2(H - HSP - M2 / 2, Y, M2, M1)
+R12 = ""
 If M7 > 0 Then
-If MRR = 1 Then
+R12 = T_HEX(H - M7, 15 + 28.5 - 2.4, 11) & T_HEX(H - M7 - 859, 15 + 28.5 - 2.4, 11) & T_HEX(H - M7 - 859 - 398, 15 + 28.5 - 2.4, 11)
-RS2 = T_CIRC(H - HSP - M2 / 2 - M3 / 2, Y - 3, M4) & T_CIRC(H - HSP - M2 / 2 + M3 / 2, Y + 3, M4)
+
-RS3 = T_CIRC(H - HSP - M2 / 2 - M3 / 2, Y - (M1 / 2 - 6.5), 13) & T_CIRC(H - HSP - M2 / 2 + M3 / 2, Y + (M1 / 2 - 6.5), 13)
+If M8 > 0 Then
-RS4 = T_RECT1(H - HSP - M2 / 2 - M3 / 2 + (M3 - M2) / 2, H - HSP - M2 / 2 - M3 / 2, Y - (M1 / 2 - 6.5) - 6.5, Y - (M1 / 2 - 6.5) + 6.5)
+R12 = R12 & T_HEX(H - M8 - 1257, 15 + 28.5 - 2.4, 11) & T_HEX(H - M8, 15 + 28.5 - 2.4, 11)
-RS5 = T_RECT1(H - HSP - M2 / 2 + M3 / 2 - (M3 - M2) / 2, H - HSP - M2 / 2 + M3 / 2, Y + (M1 / 2 - 6.5) - 6.5, Y + (M1 / 2 - 6.5) + 6.5)
+
 If M9 > 0 Then
-RS2 = T_CIRC(H - HSP - M2 / 2 - M3 / 2, Y + 3, M4) & T_CIRC(H - HSP - M2 / 2 + M3 / 2, Y - 3, M4)
+R12 = R12 & T_HEX(H - M9, 15 + 28.5 - 2.4, 11)
-RS3 = T_CIRC(H - HSP - M2 / 2 - M3 / 2, Y + (M1 / 2 - 6.5), 13) & T_CIRC(H - HSP - M2 / 2 + M3 / 2, Y - (M1 / 2 - 6.5), 13)
+
-RS4 = T_RECT1(H - HSP - M2 / 2 - M3 / 2 + (M3 - M2) / 2, H - HSP - M2 / 2 - M3 / 2, Y + (M1 / 2 - 6.5) - 6.5, Y + (M1 / 2 - 6.5) + 6.5)
+
-RS5 = T_RECT1(H - HSP - M2 / 2 + M3 / 2 - (M3 - M2) / 2, H - HSP - M2 / 2 + M3 / 2, Y - (M1 / 2 - 6.5) - 6.5, Y - (M1 / 2 - 6.5) + 6.5)
+
 
-SPCp_CODIFY = RS1 & RS2 & RS3 & RS4 & RS5
+Case 1, 3, 5, 7
-MsgBox ("CONTROLLARE SPACCO " & COD_SPC & " SU CODICE " & ACT_MOD)
+
 '*******************************************SPACCO
-Case "9090"
+If CD_SP <> "" And CD_SP <> "0" Then
-Y = MR_Y(FA + M7, L, MRR)
+R01 = SPC_PULS(NND, CD_SP, 25 + DF - 4.8, H, L, 1, sf, 0)
-RS1 = T_RECT2(H - HSP - M2 / 2, Y, M2, M1)
+
-RS2 = T_CIRC(H - HSP + M4, Y - M5 / 2, M6) & T_CIRC(H - HSP + M4, Y + M5 / 2, M6)
+
-RS3 = T_CIRC(H - HSP + M4 - M3, Y - M5 / 2, M6) & T_CIRC(H - HSP + M4 - M3, Y + M5 / 2, M6)
+If DF >= 40 Then M5 = DF - 25 Else M5 = 0
-SPCp_CODIFY = RS1 & RS2 & RS3
+
-MsgBox ("CONTROLLARE SPACCO " & COD_SPC & " SU CODICE " & ACT_MOD)
+
 If CD_SP = "50522" Or CD_SP = "50522" Or CD_SP = "50522" Then
-Case "1050", "9100"
+R02 = T_CIRC(H - M11, 5.2, 5.5) & T_CIRC(H - M11 - 375.5, 5.2, 5.5)
-If M5 = 0 Then
+R02 = R02 & T_CIRC(H - M12, 5.2, 5.5) & T_CIRC(H - M12 - 275.5, 5.2, 5.5)
-If SB > 300 Then M5 = 60 Else M5 = SB / 2
+R02 = R02 & T_SLOT(H - M11, L - 24.1, 8, 5, 90) & T_SLOT(H - M11, L - 24.1 - M5, 8, 5, 90)
 R02 = R02 & T_SLOT(H - M11 - 375.5, L - 24.1, 8, 5, 90) & T_SLOT(H - M11 - 375.5, L - 24.1 - M5, 8, 5, 90)
 R02 = R02 & T_SLOT(H - M12, L - 24.1, 8, 5, 90) & T_SLOT(H - M12, L - 24.1 - M5, 8, 5, 90)
-Y = MR_Y(FA + M5, L, MRR)
+R02 = R02 & T_SLOT(H - M12 - 275.5, L - 24.1, 8, 5, 90) & T_SLOT(H - M12 - 275.5, L - 24.1 - M5, 8, 5, 90)
-RS1 = T_RECT2(H - HSP - M2 / 2, Y, M2, M1)
+
-RS2 = T_RECT1(H - HSP - 4, H - HSP + (M3 - M2) / 2, Y - M4 / 2, Y + M4 / 2)
+
-RS3 = T_RECT1(H - HSP - M2 - (M3 - M2) / 2, H - HSP - M2 + 4, Y - M4 / 2, Y + M4 / 2)
+R02 = T_CIRC(QCSP + 187.75, 5.2, 5.5)
-SPCp_CODIFY = RS1 & RS2 & RS3
+R02 = R02 & T_CIRC(QCSP - 187.75, 5.2, 5.5)
-MsgBox ("CONTROLLARE SPACCO " & COD_SPC & " SU CODICE " & ACT_MOD)
+R02 = R02 & T_SLOT(QCSP + 187.75, L - 24.1, 8, 5, 90)
 R02 = R02 & T_SLOT(QCSP + 187.75, L - 24.1 - M5, 8, 5, 90)
-Case "9110"
+R02 = R02 & T_SLOT(QCSP - 187.75, L - 24.1, 8, 5, 90)
-'Y = MR_Y(FA + M9, L, MRR)
+R02 = R02 & T_SLOT(QCSP - 187.75, L - 24.1 - M5, 8, 5, 90)
-'RS1 = T_RECT2(H - HSP - M5 / 2, Y, M5, M4)
+
-'RS2 = T_RECT2(H - HSP - M3 - M2 / 2, Y, M2, M1)
+
-'RS3A = T_CIRC(H - HSP - M5 / 2 + M10 / 2, Y, M7) & T_CIRC(H - HSP - M5 / 2 - M10 / 2, Y, M7)
+
-'RS3B = T_CIRC(H - HSP - M5 / 2 + M10 / 2, Y + M8 / 2, M7) & T_CIRC(H - HSP - M5 / 2 - M10 / 2, Y + M8 / 2, M7)
+
-'RS3C = T_CIRC(H - HSP - M5 / 2 + M10 / 2, Y - M8 / 2, M7) & T_CIRC(H - HSP - M5 / 2 - M10 / 2, Y - M8 / 2, M7)
+
-'RS3 = RS3A & RS3B & RS3C
+Select Case LH
-'RS4A = T_CIRC(H - HSP - M3 - M2 / 2 + M6 / 2, Y, M7) & T_CIRC(H - HSP - M3 - M2 / 2 - M6 / 2, Y, M7)
+
-'RS4B = T_CIRC(H - HSP - M3 - M2 / 2 + M6 / 2, Y + M8 / 2, M7) & T_CIRC(H - HSP - M3 - M2 / 2 - M6 / 2, Y + M8 / 2, M7)
+Case 1900
-'RS4C = T_CIRC(H - HSP - M3 - M2 / 2 + M6 / 2, Y - M8 / 2, M7) & T_CIRC(H - HSP - M3 - M2 / 2 - M6 / 2, Y - M8 / 2, M7)
+If H - QCSP < 1030 Then M3 = H - QCSP - 530
-'RS4 = RS4A & RS4B & RS4C
+If H - QCSP > 1080 Then M3 = (H - QCSP) / 2 - 40
-'SPCp_CODIFY = RS1 & RS2 & RS3 & RS4
+If (H - QCSP >= 1030 And H - QCSP <= 1080) Then M3 = 500
-'MsgBox ("CONTROLLARE SPACCO " & COD_SPC & " SU CODICE " & ACT_MOD)
+
-MsgBox (COD_SPC & " BLOCCATO SU CODICE " & ACT_MOD)
+Case 1950
 If H - QCSP < 1055 Then M3 = H - QCSP - 530
-Case "9160", "1600"
+If H - QCSP > 1130 Then M3 = (H - QCSP) / 2 - 40
-If M5 = 0 Then
+If (H - QCSP >= 1055 And H - QCSP <= 1130) Then M3 = 525
-If SB > 300 Then M5 = 60 Else M5 = SB / 2
+
 Case 2000
 If H - QCSP < 1080 Then M3 = H - QCSP - 530
-Y = MR_Y(FA + M5, L, MRR)
+If H - QCSP > 1180 Then M3 = (H - QCSP) / 2 - 40
-RS1 = T_RECT2(H - HSP - M2 / 2, Y, M2, M1)
+If (H - QCSP >= 1080 And H - QCSP <= 1180) Then M3 = 550
-RS2 = T_RECT1(H - HSP - 4, H - HSP + (M3 - M2) / 2, Y - M4 / 2, Y + M4 / 2)
+
-RS3 = T_RECT1(H - HSP - M2 - (M3 - M2) / 2, H - HSP - M2 + 4, Y - M4 / 2, Y + M4 / 2)
+Case 2050
-RS4 = T_CIRC(H - HSP - M2 / 2 + M6 / 2, Y, M7) & T_CIRC(H - HSP - M2 / 2 - M6 / 2, Y, M7)
+If H - QCSP < 1105 Then M3 = H - QCSP - 530
-SPCp_CODIFY = RS1 & RS2 & RS3 & RS4
+If H - QCSP > 1230 Then M3 = (H - QCSP) / 2 - 40
-MsgBox ("CONTROLLARE SPACCO " & COD_SPC & " SU CODICE " & ACT_MOD)
+If (H - QCSP >= 1105 And H - QCSP <= 1230) Then M3 = 575
 
-Case "1900", "9190"
+Case 2100
-'If M5 = 0 Then
+If H - QCSP < 1130 Then M3 = H - QCSP - 530
-'If SB > 300 Then M5 = 60 Else M5 = SB / 2
+If H - QCSP > 1280 Then M3 = (H - QCSP) / 2 - 40
-'End If
+If (H - QCSP >= 1130 And H - QCSP <= 1280) Then M3 = 600
-'
+
-'Y = MR_Y(FA + M5, L, MRR)
+
-'RS1 = T_RECT2(H - HSP - M2 / 2, Y, M2, M1)
+MsgBox "ERRORE VALORE LH " & ACT_MOD, vbCritical
-'RS2 = T_RECT1(H - HSP - 4, H - HSP + (M3 - M2) / 2, Y - M4 / 2, Y + M4 / 2)
+
-'RS3 = T_RECT1(H - HSP - M2 - (M3 - M2) / 2, H - HSP - M2 + 4, Y - M4 / 2, Y + M4 / 2)
+
-'RS4 = T_CIRC(H - HSP - M2 / 2 + M6 / 2, Y, M7) & T_CIRC(H - HSP - M2 / 2 - M6 / 2, Y, M7)
+
-'
+
-'RS5 = T_RECT2(H - HSP - M2 - M8 - M9 / 2, Y, M9, M12)
+R01 = ""
-'RS6 = T_CIRC(H - HSP - M2 - M8 - M9 / 2 + M10 / 2, Y + M11 / 2, M13) & T_CIRC(H - HSP - M2 - M8 - M9 / 2 - M10 / 2, Y + M11 / 2, M13)
+R02 = ""
-'RS7 = T_CIRC(H - HSP - M2 - M8 - M9 / 2 + M10 / 2, Y - M11 / 2, M13) & T_CIRC(H - HSP - M2 - M8 - M9 / 2 - M10 / 2, Y - M11 / 2, M13)
+
-'
+'************************************************
-'SPCp_CODIFY = RS1 & RS2 & RS3 & RS4 & RS5 & RS6 & RS7
+
-'MsgBox ("CONTROLLARE SPACCO " & COD_SPC & " SU CODICE " & ACT_MOD)
+R03 = R03 & T_RECT1(-SCS, M2, -SCS, 26.6)
-MsgBox (COD_SPC & " BLOCCATO SU CODICE " & ACT_MOD)
+R03 = R03 & T_RECT1(-SCS, M2, L - 16.6, L + SCS)
 R03 = R03 & T_RECT1(H - 70, H + SCS, L - 16.6, L + SCS)
-Case "9120"
+
-Y = MR_Y(FA + M8, L, MRR)
+R03 = R03 & T_RECT1(H - 345, H - 290, L - 17.5, L - 12.5)
-RS1 = T_RECT2(H - HSP - M2 / 2, Y, M2, M3)
+R03 = R03 & T_RECT1(H - (345 + M3), H - (290 + M3), L - 17.5, L - 12.5)
-RS2 = T_CIRC(H - HSP - M2 / 2 - M4 / 2, Y, M7)
+If CD_SP = "50522" Or CD_SP = "50522" Or CD_SP = "50522" Then
-RS3 = T_CIRC(H - HSP - M2 / 2 + M4 / 2, Y, M7)
+R03 = R03 & T_RECT1(H - (345 + M3 + M10), H - (290 + M3 + M10), L - 17.5, L - 12.5)
-RS4 = T_RECT2(H - HSP - M5 - M6 / 2, Y, M6, M1)
+
-SPCp_CODIFY = RS1 & RS2 & RS3 & RS4
+R03 = R03 & T_RECT1(H - (345 + 2 * M3), H - (290 + 2 * M3), L - 17.5, L - 12.5)
-MsgBox ("CONTROLLARE SPACCO " & COD_SPC & " SU CODICE " & ACT_MOD)
+
 R03 = R03 & T_RECT1(M2 + 20, M2 + 75, L - 17.5, L - 12.5)
-Case "9130"
+
-Y = MR_Y(FA + M7, L, MRR)
+R03 = R03 & T_SLOT(H - 25, L - (DF - 18 + 15 - 2.4), 8, 5, 90)
-RS1 = T_RECT2(H - HSP - M2 / 2, Y, M2, M1)
+R03 = R03 & T_SLOT(H - 55, L - (DF - 18 + 15 - 2.4), 8, 5, 90)
-RS2 = T_CIRC(H - HSP - M2 / 2 - M4 / 2, Y, M6) & T_CIRC(H - HSP - M2 / 2 + M4 / 2, Y, M6)
+R03 = R03 & T_CIRC(20, L - (DF / 2 + 15 - 2.4), 7.2)
-RS3 = T_CIRC(H - HSP - M2 / 2 - M3 / 2, Y + M5 / 2, M6) & T_CIRC(H - HSP - M2 / 2 + M3 / 2, Y + M5 / 2, M6)
+R03 = R03 & T_CIRC(20 + M1, L - (DF / 2 + 15 - 2.4), 7.2)
-RS4 = T_CIRC(H - HSP - M2 / 2 - M3 / 2, Y - M5 / 2, M6) & T_CIRC(H - HSP - M2 / 2 + M3 / 2, Y - M5 / 2, M6)
+R03 = R03 & T_CIRC(20, DF / 2 + 25 - 2.4, 7.2)
-SPCp_CODIFY = RS1 & RS2 & RS3 & RS4
+R03 = R03 & T_CIRC(20 + M1, DF / 2 + 25 - 2.4, 7.2)
-MsgBox ("CONTROLLARE SPACCO " & COD_SPC & " SU CODICE " & ACT_MOD)
+R03 = R03 & T_SLOT(H - 25, 9.5, 8, 5, 90)
 R03 = R03 & T_SLOT(H - 55, 9.5, 8, 5, 90)
-Case "1420", "1430", "1432", "1450", "9140"
+R03 = R03 & T_CIRC(H - 283, 10, 8.5)
-TYS = INPUT_STR(NND, "TY_SPC", TY_SPC, ACT_MOD)
+R03 = R03 & T_CIRC(H - (283 + 34), 10, 8.5)
 R03 = R03 & T_CIRC(H - (283 + M3), 10, 8.5)
-If InStr(1, TYS, "AB") > 0 And InStr(1, TYS, "BC") > 0 Or InStr(1, TYS, "CD") > 0 Then
+R03 = R03 & T_CIRC(H - (283 + 34 + M3), 10, 8.5)
 If CD_SP = "50522" Or CD_SP = "50522" Or CD_SP = "50522" Then
-MsgBox (COD_SPC & " BLOCCATO SU CODICE " & ACT_MOD)
+R03 = R03 & T_CIRC(H - (283 + M3 + M10), 10, 8.5)
 R03 = R03 & T_CIRC(H - (283 + 34 + M3 + M10), 10, 8.5)
 Else
-If M4 = 0 Then
+R03 = R03 & T_CIRC(H - (283 + 2 * M3), 10, 8.5)
-If SB > 300 Then M4 = 60 Else M4 = SB / 2
+R03 = R03 & T_CIRC(H - (283 + 34 + 2 * M3), 10, 8.5)
 End If
 R03 = R03 & T_CIRC(M2 + 82, 10, 8.5)
-Y = MR_Y(FA + M4, L, MRR)
+R03 = R03 & T_CIRC(M2 + 82 - 34, 10, 8.5)
-If InStr(1, TYS, "A") > 0 Then
+
-RS1 = T_CIRC(H - HSP, Y, M1)
+If M6 > 0 Then R04 = T_CIRC(H - 1500, L - (15 + M6 - 2.4), 22) Else R04 = ""
 
-RS1 = ""
+'SMUSSI
 R05 = T_RAD(0 - OFSS, L - (15 + 4 - 2.4) + OFSS, 2)
-If InStr(1, TYS, "B") > 0 Then
+R05 = R05 & T_RAD(M2 - OFSS, L + OFSS, 2)
-RS2 = T_CIRC(H - HSP - M2, Y, M1)
+R05 = R05 & T_RAD(0 - OFSS, 25 + 4 - 2.4 - OFSS, 3)
 R05 = R05 & T_RAD(M2 - OFSS, 0 - OFSS, 3)
-RS2 = ""
+R05 = R05 & T_RAD(H - 70 + OFSS, L + OFSS, 1)
 R05 = R05 & T_RAD(H + OFSS, L - (15 + 4 - 2.4) + OFSS, 1)
-If InStr(1, TYS, "C") > 0 Then
+R05 = R05 & T_RAD(H + OFSS, 0 - OFSS, 4)
-RS3 = T_CIRC(H - HSP - 2 * M2, Y, M1)
+
 'Print #NF, T_BLQ(H - 1000, 5.65, H - 1000 - 5.65, 0, 0, 1)
-RS3 = ""
+'Print #NF, T_BLQ(H - 1000 + 5.65, 0, H - 1000, 5.65, 1, 0)
 R06 = T_SMUS(H - 1000, -0.2)
-SPCp_CODIFY = RS1 & RS2 & RS3
+'Print #NF, T_CIRC(H - 1000, 0, 3.3)
-MsgBox ("CONTROLLARE SPACCO " & COD_SPC & " SU CODICE " & ACT_MOD)
+
 R11 = T_DATAMATRIX(ODP, H - 283 + 10, L - 15 - 2.5 - 20, "O")
 
 R12 = ""
-Case "9150"
+If M7 > 0 Then
-TYS = INPUT_STR(NND, "TY_SPC", TY_SPC, ACT_MOD)
+R12 = T_HEX(H - M7, L - (15 + 28.5 - 2.4), 11) & T_HEX(H - M7 - 859, L - (15 + 28.5 - 2.4), 11) & T_HEX(H - M7 - 859 - 398, L - (15 + 28.5 - 2.4), 11)
 End If
 If M8 > 0 Then
-If InStr(1, TYS, "AB") > 0 Or InStr(1, TYS, "BC") > 0 Or InStr(1, TYS, "AC") > 0 Then
+R12 = R12 & T_HEX(H - M8 - 1257, L - (15 + 28.5 - 2.4), 11) & T_HEX(H - M8, L - (15 + 28.5 - 2.4), 11)
 End If
-MsgBox (COD_SPC & " BLOCCATO SU CODICE " & ACT_MOD)
+If M9 > 0 Then
 R12 = R12 & T_HEX(H - M9, L - (15 + 28.5 - 2.4), 11)
 End If
-Y = MR_Y(FA + M7, L, MRR)
+
-If InStr(1, TYS, "A") > 0 Then
+
-RS1 = T_RECT2(H - HSP, Y, M5, M6)
+
 MsgBox "ERRORE VALORE VV " & ACT_MOD, vbCritical
-RS1 = ""
+
 
-If InStr(1, TYS, "B") > 0 Then
+fn = R01 & R02 & R03 & R04 & R05 & R06 & R11 & R12
-RS2 = T_RECT2(H - HSP - M4, Y, M2, M1)
+
 
-RS2 = ""
+P1 = 250
 P2 = H - 400
-If InStr(1, TYS, "C") > 0 Then
+MVAL = 500
-RS3 = T_RECT2(H - HSP - M4 - M3, Y, M2, M1)
+STRINGA = R000(NHD, NND, SPS, H, L, P1, P2, MVAL) & fn
 
-RS3 = ""
+Call SAVE_SUB(NND, STRINGA)
 
-SPCp_CODIFY = RS1 & RS2 & RS3
+POSINTAB = def_posintab(NND)
-MsgBox ("CONTROLLARE SPACCO " & COD_SPC & " SU CODICE " & ACT_MOD)
+Call CUT_END_S(H, L, "0", POSINTAB)
 Call FVTPT(3, NND, "")
 Call CUT_END_S(H, L, "B", POSINTAB)
 Call FVTPT(3, NND, "B")
-Case "1800", "1810", "1820", "9180"
+Call CUT_END_S(H, L, "C", POSINTAB)
-TYS = INPUT_STR(NND, "TY_SPC", TY_SPC, ACT_MOD)
+Call FVTPT(3, NND, "C")
 
 
-If InStr(1, TYS, "AB") > 0 Or InStr(1, TYS, "BC") > 0 Or InStr(1, TYS, "CD") > 0 Or InStr(1, TYS, "AC") > 0 Or InStr(1, TYS, "AD") > 0 Then
+End Sub
 
-MsgBox (COD_SPC & " BLOCCATO SU CODICE " & ACT_MOD)
+
 
 Sub S_1006897E(ByVal NND As Integer)
 ACT_MOD = "1006897"
-If M1 = 0 Then
+CLAMP = 0
-If SB > 300 Then M1 = 60 Else M1 = SB / 2
+
 
 L = INPUT_NUM(NND, "L", L, ACT_MOD)
-Y = MR_Y(FA + M1, L, MRR)
+H = INPUT_NUM(NND, "H", H, ACT_MOD)
-If InStr(1, TYS, "A") > 0 Then
+SPS = INPUT_NUM(NND, "SPS", SPS, ACT_MOD) / 10
-RS1A = T_RECT2(H - HSP - 17, Y, 34, 29)
+M1 = INPUT_NUM(NND, "M1", M1, ACT_MOD)
-RS1B = T_CIRC(H - HSP - 2.5, Y + 17 - 2.5, 5) & T_CIRC(H - HSP - 2.5, Y - 17 + 2.5, 5)
+M2 = INPUT_NUM(NND, "M2", M2, ACT_MOD)
-RS1C = T_CIRC(H - HSP - 34 + 2.5, Y + 17 - 2.5, 5) & T_CIRC(H - HSP - 34 + 2.5, Y - 17 + 2.5, 5)
+M3 = INPUT_NUM(NND, "M3", M3, ACT_MOD)
-RS1D = T_RECT2(H - HSP - 17, Y + 17 - 5, 34 - 5, 10) & T_RECT2(H - HSP - 17, Y - 17 + 5, 34 - 5, 10)
+M4 = INPUT_NUM(NND, "M4", M4, ACT_MOD)
-RS1 = RS1A & RS1B & RS1C & RS1D
+M5 = INPUT_NUM(NND, "M5", M5, ACT_MOD)
 M6 = INPUT_NUM(NND, "M6", M6, ACT_MOD)
-RS1 = ""
+M7 = INPUT_NUM(NND, "M7", M7, ACT_MOD)
 M8 = INPUT_NUM(NND, "M8", M8, ACT_MOD)
 M9 = INPUT_NUM(NND, "M9", M9, ACT_MOD)
-If InStr(1, TYS, "B") > 0 Then
+M10 = INPUT_NUM(NND, "M10", M10, ACT_MOD)
-RS2A = T_RECT2(H - HSP - 17 - 54, Y, 34, 29)
+M11 = INPUT_NUM(NND, "M11", M11, ACT_MOD)
-RS2B = T_CIRC(H - HSP - 2.5 - 54, Y + 17 - 2.5, 5) & T_CIRC(H - HSP - 2.5 - 54, Y - 17 + 2.5, 5)
+M12 = INPUT_NUM(NND, "M12", M12, ACT_MOD)
-RS2C = T_CIRC(H - HSP - 34 + 2.5 - 54, Y + 17 - 2.5, 5) & T_CIRC(H - HSP - 34 + 2.5 - 54, Y - 17 + 2.5, 5)
+M13 = INPUT_NUM(NND, "M13", M13, ACT_MOD)
-RS2D = T_RECT2(H - HSP - 17 - 54, Y + 17 - 5, 34 - 5, 10) & T_RECT2(H - HSP - 17 - 54, Y - 17 + 5, 34 - 5, 10)
+M14 = INPUT_NUM(NND, "M14", M14, ACT_MOD)
-RS2 = RS2A & RS2B & RS2C & RS2D
+
 DF = INPUT_NUM(NND, "DF", DF, ACT_MOD)
-RS2 = ""
+
 SB = INPUT_NUM(NND, "SB", SB, ACT_MOD)
 LH = INPUT_NUM(NND, "LH", LH, ACT_MOD)
-If InStr(1, TYS, "C") > 0 Then
+CD_SP = INPUT_NUM(NND, "SPC.", CD_SP, ACT_MOD)
-RS3A = T_RECT2(H - HSP - 17 - 108, Y, 34, 29)
+VV = INPUT_STR(NND, "VER.", VV, ACT_MOD)
-RS3B = T_CIRC(H - HSP - 2.5 - 108, Y + 17 - 2.5, 5) & T_CIRC(H - HSP - 2.5 - 108, Y - 17 + 2.5, 5)
+BNB = INPUT_NUM(NND, "BNB", BNB, ACT_MOD)
-RS3C = T_CIRC(H - HSP - 34 + 2.5 - 108, Y + 17 - 2.5, 5) & T_CIRC(H - HSP - 34 + 2.5 - 108, Y - 17 + 2.5, 5)
+ODP = INFO_DAT(NND, 0, 5)
-RS3D = T_RECT2(H - HSP - 17 - 108, Y + 17 - 5, 34 - 5, 10) & T_RECT2(H - HSP - 17 - 108, Y - 17 + 5, 34 - 5, 10)
+
-RS3 = RS3A & RS3B & RS3C & RS3D
+OFSS = 0 '0.5
 
-RS3 = ""
+
 If Val(LH) = 0 Then
 SP = M1 + 50
-If InStr(1, TYS, "D") > 0 Then
+LH = H - SP
-RS4A = T_RECT2(H - HSP - 17 - 162, Y, 34, 29)
+
-RS4B = T_CIRC(H - HSP - 2.5 - 162, Y + 17 - 2.5, 5) & T_CIRC(H - HSP - 2.5 - 162, Y - 17 + 2.5, 5)
+
-RS4C = T_CIRC(H - HSP - 34 + 2.5 - 162, Y + 17 - 2.5, 5) & T_CIRC(H - HSP - 34 + 2.5 - 162, Y - 17 + 2.5, 5)
+
-RS4D = T_RECT2(H - HSP - 17 - 162, Y + 17 - 5, 34 - 5, 10) & T_RECT2(H - HSP - 17 - 162, Y - 17 + 5, 34 - 5, 10)
+If VV = "1" Or VV = "3" Or VV = "5" Or VV = "7" Then    'PINZE
-RS4 = RS4A & RS4B & RS4C & RS4D
+If CD_SP = 0 Then
 If SP = 90 And LH = 2000 Then
-RS4 = ""
+'CLAMP = 1
 End If
 End If
-SPCp_CODIFY = RS1 & RS2 & RS3 & RS4
+
-MsgBox ("CONTROLLARE SPACCO " & COD_SPC & " SU CODICE " & ACT_MOD)
+
 
 VV = Replace(VV, "H", "")
 
-Case "2000", "2002", "9200"
+If VV > 8 Then MsgBox "ERRORE VERSIONE SU " & ACT_MOD, vbCritical
-TYS = INPUT_STR(NND, "TY_SPC", TY_SPC, ACT_MOD)
+
 
-If InStr(1, TYS, "AB") > 0 Then
+SCS = 6
 
-MsgBox (COD_SPC & " BLOCCATO SU CODICE " & ACT_MOD)
+
 sf = 1 * sf '+ 1 * SB
 If sf = 0 Then
 sf = 1 * SB
-If M1 = 0 Then
+MsgBox "ERRORE DATI SB-SF IN " & ACT_MOD
-If SB > 300 Then M1 = 60 Else M1 = SB / 2
+
 
 
-Y = MR_Y(FA + M1, L, MRR)
+
 Select Case VV
-If InStr(1, TYS, "A") > 0 Then
+Case 2, 4, 6, 8
-RS1A = T_RECT2(H - HSP - 84 / 2, Y, 84, 47)
+
-RS1B = T_CIRC(H - HSP + 3, Y, 5) & T_RECT2(H - HSP + 3 - 2.5, Y, 5, 5)
+
-RS1C = T_CIRC(H - HSP - 90 + 3, Y, 5) & T_RECT2(H - HSP + 3 - 90 + 2.5, Y, 5, 5)
+'*******************************************SPACCO
-RS1 = RS1A & RS1B & RS1C
+If CD_SP <> "" And CD_SP <> "0" Then
 R01 = SPC_PULS(NND, CD_SP, 25 + DF - 4.8, H, L, 2, sf, 0) 'MODIFICATO DA 25 A 15mm
-RS1 = ""
+
 If DF >= 40 Then M5 = DF - 25 Else M5 = 0
 
-If InStr(1, TYS, "B") > 0 Then
+
-RS2 = T_RECT2(H - HSP - 755 - 150.5 / 2, Y, 150.5, 50)
+If CD_SP = "50522" Or CD_SP = "50522" Or CD_SP = "50522" Or CD_SP = "50948" Or CD_SP = "50950" Then
 R02 = T_CIRC(H - M11, L - 5.2, 5.5) & T_CIRC(H - M11 - 375.5, L - 5.2, 5.5)
-RS2 = ""
+R02 = R02 & T_CIRC(H - M12, L - 5.2, 5.5) & T_CIRC(H - M12 - 275.5, L - 5.2, 5.5)
 R02 = R02 & T_SLOT(H - M11, 24.1, 8, 5, 90) & T_SLOT(H - M11, 24.1 + M5, 8, 5, 90)
 R02 = R02 & T_SLOT(H - M11 - 375.5, 24.1, 8, 5, 90) & T_SLOT(H - M11 - 375.5, 24.1 + M5, 8, 5, 90)
-SPCp_CODIFY = RS1 & RS2
+R02 = R02 & T_SLOT(H - M12, 24.1, 8, 5, 90) & T_SLOT(H - M12, 24.1 + M5, 8, 5, 90)
-MsgBox ("CONTROLLARE SPACCO " & COD_SPC & " SU CODICE " & ACT_MOD)
+R02 = R02 & T_SLOT(H - M12 - 275.5, 24.1, 8, 5, 90) & T_SLOT(H - M12 - 275.5, 24.1 + M5, 8, 5, 90)
 
 Else
 R02 = T_CIRC(QCSP + 187.75, L - 5.2, 5.5)
 R02 = R02 & T_CIRC(QCSP - 187.75, L - 5.2, 5.5)
-Case "2200", "2210", "2220", "9220"
+R02 = R02 & T_SLOT(QCSP + 187.75, 24.1, 8, 5, 90)
 R02 = R02 & T_SLOT(QCSP + 187.75, 24.1 + M5, 8, 5, 90)
-If M4 = 0 Then
+R02 = R02 & T_SLOT(QCSP - 187.75, 24.1, 8, 5, 90)
-If SB > 300 Then M4 = 60 Else M4 = SB / 2
+R02 = R02 & T_SLOT(QCSP - 187.75, 24.1 + M5, 8, 5, 90)
 End If
 
-If M1 < 20 Or M2 < 20 Then MsgBox ("ATTENZIONE POSSIBILE SPACCO " & COD_SPC & " ERRATO SU CODICE " & ACT_MOD)
+
-Y = MR_Y(FA + M4, L, MRR)
+
-'If M3 = 6 Then M3 = 6.125 'CAMBIO MISURA PER DISPONIBILITA' PUNZONE
+MsgBox "M3=0"
-'If M3 = 3.6 Then M3 = 3.55 'CAMBIO MISURA PER DISPONIBILITA' PUNZONE
+Select Case LH
-RS1 = T_RECT2(H - HSP - M2 / 2, Y, M2, M1 - M3 * 2)
+
-RS2 = T_CIRC(H - HSP - M3, Y + M1 / 2 - M3, M3 * 2) & T_CIRC(H - HSP - M3, Y - M1 / 2 + M3, M3 * 2)
+Case 1900
-RS3 = T_CIRC(H - HSP - M2 + M3, Y + M1 / 2 - M3, M3 * 2) & T_CIRC(H - HSP - M2 + M3, Y - M1 / 2 + M3, M3 * 2)
+If H - QCSP < 1030 Then M3 = H - QCSP - 530
-RS4 = T_RECT2(H - HSP - M2 / 2, Y + M1 / 2 - 5, M2 - M3 * 2, 10) & T_RECT2(H - HSP - M2 / 2, Y - M1 / 2 + 5, M2 - M3 * 2, 10)
+If H - QCSP > 1080 Then M3 = (H - QCSP) / 2 - 40
-SPCp_CODIFY = RS1 & RS2 & RS3 & RS4
+If (H - QCSP >= 1030 And H - QCSP <= 1080) Then M3 = 500
-'MsgBox ("CONTROLLARE SPACCO " & COD_SPC & " SU CODICE " & ACT_MOD)
+
 Case 1950
 If H - QCSP < 1055 Then M3 = H - QCSP - 530
-Case "2800", "9280"
+If H - QCSP > 1130 Then M3 = (H - QCSP) / 2 - 40
-'If M10 = 0 Then
+If (H - QCSP >= 1055 And H - QCSP <= 1130) Then M3 = 525
-'If SB <= 300 Then M10 = 50 Else M10 = 60
+
-'End If
+Case 2000
-'
+If H - QCSP < 1080 Then M3 = H - QCSP - 530
-'Y = MR_Y(FA + M10, L, MRR)
+If H - QCSP > 1180 Then M3 = (H - QCSP) / 2 - 40
-'If M6 = 3.5 Then M6 = 3.3 'CAMBIO MISURA PER DISPONIBILITA' PUNZONE
+If (H - QCSP >= 1080 And H - QCSP <= 1180) Then M3 = 550
-'RS1 = T_RECT2(H - HSP - M7 / 2, Y, M7, M1)
+
-'RS2 = T_CIRC(H - HSP - M7 / 2 + M8 / 2, Y, M9) & T_CIRC(H - HSP - M7 / 2 - M8 / 2, Y, M9)
+Case 2050
-'
+If H - QCSP < 1105 Then M3 = H - QCSP - 530
-'RS3 = T_RECT2(H - HSP - M2 / 2 - 350, Y, M2, M1)
+If H - QCSP > 1230 Then M3 = (H - QCSP) / 2 - 40
-'RS4 = T_CIRC(H - HSP - 350 + M4, Y - M5 / 2, M6) & T_CIRC(H - HSP - 350 + M4, Y + M5 / 2, M6)
+If (H - QCSP >= 1105 And H - QCSP <= 1230) Then M3 = 575
-'RS5 = T_CIRC(H - HSP - 350 + M4 - M3, Y - M5 / 2, M6) & T_CIRC(H - HSP - 350 + M4 - M3, Y + M5 / 2, M6)
+
-'SPCp_CODIFY = RS1 & RS2 & RS3 & RS4 & RS5
+Case 2100
-'MsgBox ("CONTROLLARE SPACCO " & COD_SPC & " SU CODICE " & ACT_MOD)
+If H - QCSP < 1130 Then M3 = H - QCSP - 530
 If H - QCSP > 1280 Then M3 = (H - QCSP) / 2 - 40
-MsgBox (COD_SPC & " BLOCCATO SU CODICE " & ACT_MOD)
+If (H - QCSP >= 1130 And H - QCSP <= 1280) Then M3 = 600
 
-Case "0102", "0130", "0142", "0152", "0170", "0180", "0196", "9010"
+
-'If M3 = 0 Then
+MsgBox "ERRORE VALORE LH " & ACT_MOD, vbCritical
-'If SB > 300 Then M3 = 60 Else M3 = SB / 2
+
-'End If
+
-'
+
-'Y = MR_Y(FA + M3, L, MRR)
+
-'RS1 = T_RECT2(H - HSP - M2 / 2, Y, M2, M1)
+R01 = ""
-'SPCp_CODIFY = RS1
+R02 = ""
-'MsgBox ("CONTROLLARE SPACCO " & COD_SPC & " SU CODICE " & ACT_MOD)
+
-MsgBox (COD_SPC & " BLOCCATO SU CODICE " & ACT_MOD)
+'*******************************************************
 
-Case "9080"
+
-'Y = MR_Y(FA + M4, L, MRR)
+R03 = T_RECT1(-SCS, M2, L - 26.6, L + SCS)
-'RS1 = T_RECT2(H - HSP - M2 / 2, Y, M2, M1)
+R03 = R03 & T_RECT1(-SCS, M2, -SCS, 16.6)
-'SPCp_CODIFY = RS1
+R03 = R03 & T_RECT1(H - 70, H + SCS, -SCS, 16.6)
-'MsgBox ("CONTROLLARE SPACCO " & COD_SPC & " SU CODICE " & ACT_MOD)
+
 R03 = R03 & T_RECT1(H - 345, H - 290, 12.5, 17.5)
-MsgBox (COD_SPC & " BLOCCATO SU CODICE " & ACT_MOD)
+R03 = R03 & T_RECT1(H - (345 + M3), H - (290 + M3), 12.5, 17.5)
 If CD_SP = "50522" Or CD_SP = "50522" Or CD_SP = "50522" Then
-Case "2900", "9290"
+R03 = R03 & T_RECT1(H - (345 + M3 + M10), H - (290 + M3 + M10), 12.5, 17.5)
-Y = MR_Y(FA + M5, L, MRR)
+
-RS1 = T_RECT2(H - HSP - M2 / 2, Y, M2, M1)
+R03 = R03 & T_RECT1(H - (345 + 2 * M3), H - (290 + 2 * M3), 12.5, 17.5)
-'RS2 = T_SLOT(H - HSP - M2 - M4, Y - M3 / 2, 8, 5.5, 0) & T_SLOT(H - HSP - M2 - M4, Y + M3 / 2, 8, 5.5, 0)
+
-RS2 = T_RECT2(H - HSP - M2 - M4, Y - M3 / 2, 8, 5.5) & T_RECT2(H - HSP - M2 - M4, Y + M3 / 2, 8, 5.5)
+R03 = R03 & T_RECT1(M2 + 20, M2 + 75, 12.5, 17.5)
-SPCp_CODIFY = RS1 & RS2
+
-MsgBox ("CONTROLLARE SPACCO " & COD_SPC & " SU CODICE " & ACT_MOD)
+R03 = R03 & T_SLOT(H - 25, DF - 18 + 15 - 2.4, 8, 5, 90)
 R03 = R03 & T_SLOT(H - 55, DF - 18 + 15 - 2.4, 8, 5, 90)
-Case "3000", "9300"
+
-Y = MR_Y(FA + M5, L, MRR)
+R03 = R03 & T_CIRC(M13, DF / 2 + 15 - 2.4, 7.2)
-RS1 = T_RECT2(H - HSP - M2 / 2, Y, M2, M1)
+R03 = R03 & T_CIRC(M13 + M1, DF / 2 + 15 - 2.4, 7.2)
-'RS2 = T_SLOT(H - HSP - M2 - M4, Y - M3 / 2, 8, 5.5, 0) & T_SLOT(H - HSP - M2 - M4, Y + M3 / 2, 8, 5.5, 0)
+R03 = R03 & T_CIRC(M13, L - (DF / 2 + 25 - 2.4), 7.2)
-RS2 = T_RECT2(H - HSP - M2 - M4, Y - M3 / 2, 8, 5.5) & T_RECT2(H - HSP - M2 - M4, Y + M3 / 2, 8, 5.5)
+R03 = R03 & T_CIRC(M13 + M1, L - (DF / 2 + 25 - 2.4), 7.2)
-RS3 = T_RECT1(H - HSP + M6 + M7, H - HSP + M6, Y - M1 / 2, Y + M1 / 2)
+If M14 > 0 Then
-SPCp_CODIFY = RS1 & RS2 & RS3
+R03 = R03 & T_CIRC(M13 + M1 / 2, L - (DF / 2 + 25 - 2.4), 20.2)
-MsgBox ("CONTROLLARE SPACCO " & COD_SPC & " SU CODICE " & ACT_MOD)
+
 R03 = R03 & T_SLOT(H - 25, L - 9.5, 8, 5, 90)
-Case "3100", "9310"
+R03 = R03 & T_SLOT(H - 55, L - 9.5, 8, 5, 90)
-Y = MR_Y(FA + M5, L, MRR)
+
-RS1 = T_RECT2(H - HSP - M2 / 2, Y, M2, M1)
+R03 = R03 & T_CIRC(H - 283, L - 10, 8.5)
-'RS2 = T_SLOT(H - HSP - M2 - M4, Y - M3 / 2, 8, 5.5, 0) & T_SLOT(H - HSP - M2 - M4, Y + M3 / 2, 8, 5.5, 0)
+R03 = R03 & T_CIRC(H - (283 + 34), L - 10, 8.5)
-RS2 = T_RECT2(H - HSP - M2 - M4, Y - M3 / 2, 8, 5.5) & T_RECT2(H - HSP - M2 - M4, Y + M3 / 2, 8, 5.5)
+R03 = R03 & T_CIRC(H - (283 + M3), L - 10, 8.5)
-RS3 = T_RECT1(H - HSP + M6 + M7, H - HSP + M6, Y - M1 / 2, Y + M1 / 2)
+R03 = R03 & T_CIRC(H - (283 + 34 + M3), L - 10, 8.5)
-RS4 = T_RECT1(H - HSP + M6 + M7 + M8 + M9, H - HSP + M6 + M7 + M8, Y - M1 / 2, Y + M1 / 2)
+If CD_SP = "50522" Or CD_SP = "50522" Or CD_SP = "50522" Then
-SPCp_CODIFY = RS1 & RS2 & RS3 & RS4
+R03 = R03 & T_CIRC(H - (283 + M3 + M10), L - 10, 8.5)
-MsgBox ("CONTROLLARE SPACCO " & COD_SPC & " SU CODICE " & ACT_MOD)
+R03 = R03 & T_CIRC(H - (283 + 34 + M3 + M10), L - 10, 8.5)
 Else
-Case "3200", "9320"
+R03 = R03 & T_CIRC(H - (283 + 2 * M3), L - 10, 8.5)
-Y = MR_Y(FA + M5, L, MRR)
+R03 = R03 & T_CIRC(H - (283 + 34 + 2 * M3), L - 10, 8.5)
-RS1 = T_RECT2(H - HSP - M2 / 2, Y, M2, M1)
+
-RS3 = T_RECT1(H - M8, H - M8 - M6, Y - M7 / 2, Y + M7 / 2)
+R03 = R03 & T_CIRC(M2 + 82, L - 10, 8.5)
-'RS2 = T_SLOT(H - HSP - M2 - M4, Y - M3 / 2, 8, 5.5, 0) & T_SLOT(H - HSP - M2 - M4, Y + M3 / 2, 8, 5.5, 0)
+R03 = R03 & T_CIRC(M2 + 82 - 34, L - 10, 8.5)
-RS2 = T_RECT2(H - HSP - M2 - M4, Y - M3 / 2, 8, 5.5) & T_RECT2(H - HSP - M2 - M4, Y + M3 / 2, 8, 5.5)
+
-SPCp_CODIFY = RS1 & RS2 & RS3
+
-MsgBox ("CONTROLLARE SPACCO " & COD_SPC & " SU CODICE " & ACT_MOD)
+If M6 > 0 Then R04 = T_CIRC(H - 1500, 15 + M6 - 2.4, 22) Else R04 = ""
 
-Case "3300"
+'SMUSSI
-Y = MR_Y(FA + M5, L, MRR)
+R05 = T_RAD(0 - OFSS, 15 + 4 - 2.4 - OFSS, 3)
-RS1 = T_RECT2(H - HSP - M2 / 2, Y, M2, M1)
+R05 = R05 & T_RAD(M2 - OFSS, 0 - OFSS, 3)
-'RS2 = T_SLOT(H - HSP - M2 - M4, Y - M3 / 2, 8, 5.5, 0) & T_SLOT(H - HSP - M2 - M4, Y + M3 / 2, 8, 5.5, 0)
+R05 = R05 & T_RAD(0 - OFSS, L - (25 + 4 - 2.4) + OFSS, 2)
-RS2 = T_RECT2(H - HSP - M2 - M4, Y - M3 / 2, 8, 5.5) & T_RECT2(H - HSP - M2 - M4, Y + M3 / 2, 8, 5.5)
+R05 = R05 & T_RAD(M2 - OFSS, L + OFSS, 2)
-RS3 = T_RECT1(H - M10, H - M10 - M8, Y - M9 / 2, Y + M9 / 2)
+R05 = R05 & T_RAD(H - 70 + OFSS, 0 - OFSS, 4)
-RS4 = T_RECT1(H - HSP + M6 + M7, H - HSP + M6, Y - M1 / 2, Y + M1 / 2)
+R05 = R05 & T_RAD(H + OFSS, 15 + 4 - 2.4 - OFSS, 4)
-SPCp_CODIFY = RS1 & RS2 & RS3 & RS4
+R05 = R05 & T_RAD(H + OFSS, L + OFSS, 1)
-MsgBox ("CONTROLLARE SPACCO " & COD_SPC & " SU CODICE " & ACT_MOD)
+
 'Print #NF, T_BLQ(H - 1000 - 5.65, L, H - 1000, L - 5.65, 1, 0)
-Case "9330"
+'Print #NF, T_BLQ(H - 1000, L - 5.65, H - 1000 + 5.65, L, 0, 1)
-Y = MR_Y(FA + M10, L, MRR)
+R06 = T_SMUS(H - 1000, L + 0.2)
-RS1 = T_RECT2(H - HSP - M2 / 2, Y, M2, M1)
+'Print #NF, T_CIRC(H - 1000, L, 3.3)
-'RS2 = T_SLOT(H - HSP - M2 - M4, Y - M3 / 2, 8, 5.5, 0) & T_SLOT(H - HSP - M2 - M4, Y + M3 / 2, 8, 5.5, 0)
+
-'RS2 = T_RECT2(H - HSP - M2 - M4, Y - M3 / 2, 8, 5.5) & T_RECT2(H - HSP - M2 - M4, Y + M3 / 2, 8, 5.5)
+R11 = T_DATAMATRIX(ODP, H - 100 - 40, 15 + 4, "O")
-RS3 = T_RECT1(H - HSP - M9, H - HSP - M9 - M6, Y - M5 / 2, Y + M5 / 2)
+
-'RS4 = T_RECT1(H - HSP + M6 + M7, H - HSP + M6, Y - M1 / 2, Y + M1 / 2)
+R12 = ""
-RS2 = T_CIRC(H - HSP + ((M3 - M2) / 2), Y, M4) & T_CIRC(H - HSP - M2 - ((M3 - M2) / 2), Y, M4) & T_CIRC(H - HSP - M9 - M6 - ((M7 - M6) / 2), Y, M8) & T_CIRC(H - HSP - M9 + ((M7 - M6) / 2), Y, M8)
+If M7 > 0 Then
-SPCp_CODIFY = RS1 & RS3 & RS2
+R12 = T_HEX(H - M7, 15 + 28.5 - 2.4, 11) & T_HEX(H - M7 - 859, 15 + 28.5 - 2.4, 11) & T_HEX(H - M7 - 859 - 398, 15 + 28.5 - 2.4, 11)
-MsgBox ("CONTROLLARE SPACCO " & COD_SPC & " SU CODICE " & ACT_MOD)
+
 If M8 > 0 Then
 R12 = R12 & T_HEX(H - M8 - 1257, 15 + 28.5 - 2.4, 11) & T_HEX(H - M8, 15 + 28.5 - 2.4, 11)
-Case "3400", "9340"
+
-Y = MR_Y(FA + M5, L, MRR)
+If M9 > 0 Then
-RS1 = T_RECT2(H - HSP - M2 / 2, Y, M2, M1)
+R12 = R12 & T_HEX(H - M9, 15 + 28.5 - 2.4, 11)
-'RS2 = T_SLOT(H - HSP - M2 - M4, Y - M3 / 2, 8, 5.5, 0) & T_SLOT(H - HSP - M2 - M4, Y + M3 / 2, 8, 5.5, 0)
+
-RS2 = T_RECT2(H - HSP - M2 - M4, Y - M3 / 2, 8, 5.5) & T_RECT2(H - HSP - M2 - M4, Y + M3 / 2, 8, 5.5)
+
-RS3 = T_RECT1(H - HSP + M6 + M7, H - HSP + M6, Y - M1 / 2, Y + M1 / 2)
+
-RS4 = T_RECT1(H - HSP + M6 + M7 + M8 + M9, H - HSP + M6 + M7 + M8, Y - M1 / 2, Y + M1 / 2)
+
-RS5 = T_RECT1(H - M12, H - M12 - M10, Y - M11 / 2, Y + M11 / 2)
+Case 1, 3, 5, 7
 
-SPCp_CODIFY = RS1 & RS2 & RS3 & RS4 & RS5
+'*******************************************SPACCO
-MsgBox ("CONTROLLARE SPACCO " & COD_SPC & " SU CODICE " & ACT_MOD)
+If CD_SP <> "" And CD_SP <> "0" Then
 R01 = SPC_PULS(NND, CD_SP, 25 + DF - 4.8, H, L, 1, sf, 0)
-'START NUOVI SPACCHI OTIS 03/11/2022
+
-Case "50948", "50949", "50974"
+
-Y = MR_Y(FA + sf / 2, L, MRR)
+If DF >= 40 Then M5 = DF - 25 Else M5 = 0
-RS1 = T_RECT2(H - HSP - M2 / 2, Y, M2, M1)
+
-'RS3 = T_RECT1(H - M8, H - M8 - M6, Y - M7 / 2, Y + M7 / 2)
+
-'RS2 = T_SLOT(H - HSP - M2 - M4, Y - M3 / 2, 8, 5.5, 0) & T_SLOT(H - HSP - M2 - M4, Y + M3 / 2, 8, 5.5, 0)
+If CD_SP = "50522" Or CD_SP = "50522" Or CD_SP = "50522" Then
-'RS2 = T_RECT2(H - HSP - M2 - M4, Y - M3 / 2, 8, 5.5) & T_RECT2(H - HSP - M2 - M4, Y + M3 / 2, 8, 5.5)
+R02 = T_CIRC(H - M11, 5.2, 5.5) & T_CIRC(H - M11 - 375.5, 5.2, 5.5)
-RS2 = T_CIRC(H - HSP - M2 / 2 - M3 / 2, Y - M4 / 2, M5) & T_CIRC(H - HSP - M2 / 2 - M3 / 2, Y + M4 / 2, M5) & T_CIRC(H - HSP - M2 / 2 + M3 / 2, Y - M4 / 2, M5) & T_CIRC(H - HSP - M2 / 2 + M3 / 2, Y + M4 / 2, M5)
+R02 = R02 & T_CIRC(H - M12, 5.2, 5.5) & T_CIRC(H - M12 - 275.5, 5.2, 5.5)
-SPCp_CODIFY = RS1 & RS2 '& RS3
+R02 = R02 & T_SLOT(H - M11, L - 24.1, 8, 5, 90) & T_SLOT(H - M11, L - 24.1 - M5, 8, 5, 90)
-MsgBox ("CONTROLLARE SPACCO " & COD_SPC & " SU CODICE " & ACT_MOD)
+R02 = R02 & T_SLOT(H - M11 - 375.5, L - 24.1, 8, 5, 90) & T_SLOT(H - M11 - 375.5, L - 24.1 - M5, 8, 5, 90)
 R02 = R02 & T_SLOT(H - M12, L - 24.1, 8, 5, 90) & T_SLOT(H - M12, L - 24.1 - M5, 8, 5, 90)
-Case "50952", "50953", "51001", "50956", "50957"
+R02 = R02 & T_SLOT(H - M12 - 275.5, L - 24.1, 8, 5, 90) & T_SLOT(H - M12 - 275.5, L - 24.1 - M5, 8, 5, 90)
-Y = MR_Y(FA + sf / 2, L, MRR)
+
-RS1 = T_RECT2(H - HSP - M2 / 2, Y, M2, M1) & T_RECT2(H - HSP - M2 / 2 - M6, Y, M2, M1)
+
-'RS3 = T_RECT1(H - M8, H - M8 - M6, Y - M7 / 2, Y + M7 / 2)
+R02 = T_CIRC(QCSP + 187.75, 5.2, 5.5)
-'RS2 = T_SLOT(H - HSP - M2 - M4, Y - M3 / 2, 8, 5.5, 0) & T_SLOT(H - HSP - M2 - M4, Y + M3 / 2, 8, 5.5, 0)
+R02 = R02 & T_CIRC(QCSP - 187.75, 5.2, 5.5)
-'RS2 = T_RECT2(H - HSP - M2 - M4, Y - M3 / 2, 8, 5.5) & T_RECT2(H - HSP - M2 - M4, Y + M3 / 2, 8, 5.5)
+R02 = R02 & T_SLOT(QCSP + 187.75, L - 24.1, 8, 5, 90)
-RS2 = T_CIRC(H - HSP - M2 / 2 - M3 / 2, Y - M4 / 2, M5) & T_CIRC(H - HSP - M2 / 2 - M3 / 2, Y + M4 / 2, M5) & T_CIRC(H - HSP - M2 / 2 + M3 / 2, Y - M4 / 2, M5) & T_CIRC(H - HSP - M2 / 2 + M3 / 2, Y + M4 / 2, M5)
+R02 = R02 & T_SLOT(QCSP + 187.75, L - 24.1 - M5, 8, 5, 90)
-RS3 = T_CIRC(H - HSP - M2 / 2 - M3 / 2 - M6, Y - M4 / 2, M5) & T_CIRC(H - HSP - M2 / 2 - M3 / 2 - M6, Y + M4 / 2, M5) & T_CIRC(H - HSP - M2 / 2 + M3 / 2 - M6, Y - M4 / 2, M5) & T_CIRC(H - HSP - M2 / 2 + M3 / 2 - M6, Y + M4 / 2, M5)
+R02 = R02 & T_SLOT(QCSP - 187.75, L - 24.1, 8, 5, 90)
-SPCp_CODIFY = RS1 & RS2 & RS3
+R02 = R02 & T_SLOT(QCSP - 187.75, L - 24.1 - M5, 8, 5, 90)
-MsgBox ("CONTROLLARE SPACCO " & COD_SPC & " SU CODICE " & ACT_MOD)
+
 
-Case "50960", "51005", "50964", "50965"
+
-Y = MR_Y(FA + sf / 2, L, MRR)
+
-RS1 = T_RECT2(H - HSP - M2 / 2, Y, M2, M1) & T_RECT2(H - HSP - M2 / 2 - M6, Y, M2, M1) & T_RECT2(H - HSP - M2 / 2 - M6 - M7, Y, M2, M1)
+
-'RS3 = T_RECT1(H - M8, H - M8 - M6, Y - M7 / 2, Y + M7 / 2)
+Select Case LH
-'RS2 = T_SLOT(H - HSP - M2 - M4, Y - M3 / 2, 8, 5.5, 0) & T_SLOT(H - HSP - M2 - M4, Y + M3 / 2, 8, 5.5, 0)
+
-'RS2 = T_RECT2(H - HSP - M2 - M4, Y - M3 / 2, 8, 5.5) & T_RECT2(H - HSP - M2 - M4, Y + M3 / 2, 8, 5.5)
+Case 1900
-RS2 = T_CIRC(H - HSP - M2 / 2 - M3 / 2, Y - M4 / 2, M5) & T_CIRC(H - HSP - M2 / 2 - M3 / 2, Y + M4 / 2, M5) & T_CIRC(H - HSP - M2 / 2 + M3 / 2, Y - M4 / 2, M5) & T_CIRC(H - HSP - M2 / 2 + M3 / 2, Y + M4 / 2, M5)
+If H - QCSP < 1030 Then M3 = H - QCSP - 530
-RS3 = T_CIRC(H - HSP - M2 / 2 - M3 / 2 - M6, Y - M4 / 2, M5) & T_CIRC(H - HSP - M2 / 2 - M3 / 2 - M6, Y + M4 / 2, M5) & T_CIRC(H - HSP - M2 / 2 + M3 / 2 - M6, Y - M4 / 2, M5) & T_CIRC(H - HSP - M2 / 2 + M3 / 2 - M6, Y + M4 / 2, M5)
+If H - QCSP > 1080 Then M3 = (H - QCSP) / 2 - 40
-RS4 = T_CIRC(H - HSP - M2 / 2 - M3 / 2 - M6 - M7, Y - M4 / 2, M5) & T_CIRC(H - HSP - M2 / 2 - M3 / 2 - M6 - M7, Y + M4 / 2, M5) & T_CIRC(H - HSP - M2 / 2 + M3 / 2 - M6 - M7, Y - M4 / 2, M5) & T_CIRC(H - HSP - M2 / 2 + M3 / 2 - M6 - M7, Y + M4 / 2, M5)
+If (H - QCSP >= 1030 And H - QCSP <= 1080) Then M3 = 500
-SPCp_CODIFY = RS1 & RS2 & RS3 & RS4
+
-MsgBox ("CONTROLLARE SPACCO " & COD_SPC & " SU CODICE " & ACT_MOD)
+Case 1950
 If H - QCSP < 1055 Then M3 = H - QCSP - 530
-Case "50968", "51007"
+If H - QCSP > 1130 Then M3 = (H - QCSP) / 2 - 40
-Y = MR_Y(FA + sf / 2, L, MRR)
+If (H - QCSP >= 1055 And H - QCSP <= 1130) Then M3 = 525
-RS1 = T_RECT2(H - HSP - M2 / 2, Y, M2, M1) & T_RECT2(H - HSP - M2 / 2 - M6, Y, M2, M1) & T_RECT2(H - HSP - M2 / 2 - M6 - M7, Y, M2, M1) & T_RECT2(H - HSP - M2 / 2 - M6 - M7 - M8, Y, M2, M1)
+
-'RS3 = T_RECT1(H - M8, H - M8 - M6, Y - M7 / 2, Y + M7 / 2)
+Case 2000
-'RS2 = T_SLOT(H - HSP - M2 - M4, Y - M3 / 2, 8, 5.5, 0) & T_SLOT(H - HSP - M2 - M4, Y + M3 / 2, 8, 5.5, 0)
+If H - QCSP < 1080 Then M3 = H - QCSP - 530
-'RS2 = T_RECT2(H - HSP - M2 - M4, Y - M3 / 2, 8, 5.5) & T_RECT2(H - HSP - M2 - M4, Y + M3 / 2, 8, 5.5)
+If H - QCSP > 1180 Then M3 = (H - QCSP) / 2 - 40
-RS2 = T_CIRC(H - HSP - M2 / 2 - M3 / 2, Y - M4 / 2, M5) & T_CIRC(H - HSP - M2 / 2 - M3 / 2, Y + M4 / 2, M5) & T_CIRC(H - HSP - M2 / 2 + M3 / 2, Y - M4 / 2, M5) & T_CIRC(H - HSP - M2 / 2 + M3 / 2, Y + M4 / 2, M5)
+If (H - QCSP >= 1080 And H - QCSP <= 1180) Then M3 = 550
-RS3 = T_CIRC(H - HSP - M2 / 2 - M3 / 2 - M6, Y - M4 / 2, M5) & T_CIRC(H - HSP - M2 / 2 - M3 / 2 - M6, Y + M4 / 2, M5) & T_CIRC(H - HSP - M2 / 2 + M3 / 2 - M6, Y - M4 / 2, M5) & T_CIRC(H - HSP - M2 / 2 + M3 / 2 - M6, Y + M4 / 2, M5)
+
-RS4 = T_CIRC(H - HSP - M2 / 2 - M3 / 2 - M6 - M7, Y - M4 / 2, M5) & T_CIRC(H - HSP - M2 / 2 - M3 / 2 - M6 - M7, Y + M4 / 2, M5) & T_CIRC(H - HSP - M2 / 2 + M3 / 2 - M6 - M7, Y - M4 / 2, M5) & T_CIRC(H - HSP - M2 / 2 + M3 / 2 - M6 - M7, Y + M4 / 2, M5)
+Case 2050
-RS4 = RS4 & T_CIRC(H - HSP - M2 / 2 - M3 / 2 - M6 - M7 - M8, Y - M4 / 2, M5) & T_CIRC(H - HSP - M2 / 2 - M3 / 2 - M6 - M7 - M8, Y + M4 / 2, M5) & T_CIRC(H - HSP - M2 / 2 + M3 / 2 - M6 - M7 - M8, Y - M4 / 2, M5) & T_CIRC(H - HSP - M2 / 2 + M3 / 2 - M6 - M7 - M8, Y + M4 / 2, M5)
+If H - QCSP < 1105 Then M3 = H - QCSP - 530
-SPCp_CODIFY = RS1 & RS2 & RS3 & RS4
+If H - QCSP > 1230 Then M3 = (H - QCSP) / 2 - 40
-MsgBox ("CONTROLLARE SPACCO " & COD_SPC & " SU CODICE " & ACT_MOD)
+If (H - QCSP >= 1105 And H - QCSP <= 1230) Then M3 = 575
 
 Case 2100
-Case "50950", "50951", "50975" 'A
+If H - QCSP < 1130 Then M3 = H - QCSP - 530
-Y = MR_Y(FA + sf / 2, L, MRR)
+If H - QCSP > 1280 Then M3 = (H - QCSP) / 2 - 40
-'RS1 = T_RECT2(H - HSP - M2 / 2, Y, M2, M1) & T_RECT2(H - HSP - M2 / 2 - M6, Y, M2, M1) & T_RECT2(H - HSP - M2 / 2 - M6 - M7, Y, M2, M1) & T_RECT2(H - HSP - M2 / 2 - M6 - M7 - M8, Y, M2, M1)
+If (H - QCSP >= 1130 And H - QCSP <= 1280) Then M3 = 600
-RS1 = T_SLOT(H - HSP - M1, Y, 18, 6.5, 90)
+
 Case Else
-RS2 = T_CIRC(H - HSP - M1, Y - M2 / 2, M7) & T_CIRC(H - HSP, Y + M2 / 2, M7) 'T_CIRC(H - HSP - M2 / 2 - M3 / 2, Y + M4 / 2, M5) & T_CIRC(H - HSP - M2 / 2 + M3 / 2, Y - M4 / 2, M5) & T_CIRC(H - HSP - M2 / 2 + M3 / 2, Y + M4 / 2, M5)
+MsgBox "ERRORE VALORE LH " & ACT_MOD, vbCritical
 End Select
-SPCp_CODIFY = RS1 & RS2
+
-MsgBox ("CONTROLLARE SPACCO " & COD_SPC & " SU CODICE " & ACT_MOD)
+
 Else
 R01 = ""
-Case "50954", "51004", "50958", "50959", "51000" 'A+B
+R02 = ""
-Y = MR_Y(FA + sf / 2, L, MRR)
+
 '************************************************
-RS1 = T_SLOT(H - HSP - M1, Y, 18, 6.5, 90) & T_SLOT(H - HSP - M1 - M3, Y, 18, 6.5, 90)
+
 R03 = R03 & T_RECT1(-SCS, M2, -SCS, 26.6)
-RS2 = T_CIRC(H - HSP - M1, Y - M2 / 2, M7) & T_CIRC(H - HSP, Y + M2 / 2, M7) & T_CIRC(H - HSP - M1 - M3, Y - M2 / 2, M7) & T_CIRC(H - HSP - M3, Y + M2 / 2, M7)
+R03 = R03 & T_RECT1(-SCS, M2, L - 16.6, L + SCS)
 R03 = R03 & T_RECT1(H - 70, H + SCS, L - 16.6, L + SCS)
-SPCp_CODIFY = RS1 & RS2
+
-MsgBox ("CONTROLLARE SPACCO " & COD_SPC & " SU CODICE " & ACT_MOD)
+R03 = R03 & T_RECT1(H - 345, H - 290, L - 17.5, L - 12.5)
 R03 = R03 & T_RECT1(H - (345 + M3), H - (290 + M3), L - 17.5, L - 12.5)
 If CD_SP = "50522" Or CD_SP = "50522" Or CD_SP = "50522" Then
-Case "50962", "51006", "50967" 'A+B+C
+R03 = R03 & T_RECT1(H - (345 + M3 + M10), H - (290 + M3 + M10), L - 17.5, L - 12.5)
-Y = MR_Y(FA + sf / 2, L, MRR)
+
 R03 = R03 & T_RECT1(H - (345 + 2 * M3), H - (290 + 2 * M3), L - 17.5, L - 12.5)
-RS1 = T_SLOT(H - HSP - M1, Y, 18, 6.5, 90) & T_SLOT(H - HSP - M1 - M3, Y, 18, 6.5, 90) & T_SLOT(H - HSP - M1 - M3 - M5, Y, 18, 6.5, 90)
+
 R03 = R03 & T_RECT1(M2 + 20, M2 + 75, L - 17.5, L - 12.5)
-RS2 = T_CIRC(H - HSP - M1, Y - M2 / 2, M7) & T_CIRC(H - HSP, Y + M2 / 2, M7) & T_CIRC(H - HSP - M1 - M3, Y - M2 / 2, M7) & T_CIRC(H - HSP - M3, Y + M2 / 2, M7) & T_CIRC(H - HSP - M1 - M3 - M5, Y - M2 / 2, M7) & T_CIRC(H - HSP - M3 - M5, Y + M2 / 2, M7)
+
 R03 = R03 & T_SLOT(H - 25, L - (DF - 18 + 15 - 2.4), 8, 5, 90)
-SPCp_CODIFY = RS1 & RS2
+R03 = R03 & T_SLOT(H - 55, L - (DF - 18 + 15 - 2.4), 8, 5, 90)
-MsgBox ("CONTROLLARE SPACCO " & COD_SPC & " SU CODICE " & ACT_MOD)
+
 'R03 = R03 & T_CIRC(20, L - (DF / 2 + 15 - 2.4), 7.2)
 'R03 = R03 & T_CIRC(20 + M1, L - (DF / 2 + 15 - 2.4), 7.2)
-Case "50970", "51008" 'A+B+C+D
+'R03 = R03 & T_CIRC(20, DF / 2 + 25 - 2.4, 7.2)
-Y = MR_Y(FA + sf / 2, L, MRR)
+'R03 = R03 & T_CIRC(20 + M1, DF / 2 + 25 - 2.4, 7.2)
 R03 = R03 & T_CIRC(M13, L - (DF / 2 + 15 - 2.4), 7.2)
-RS1 = T_SLOT(H - HSP - M1, Y, 18, 6.5, 90) & T_SLOT(H - HSP - M1 - M3, Y, 18, 6.5, 90) & T_SLOT(H - HSP - M1 - M3 - M5, Y, 18, 6.5, 90) & T_SLOT(H - HSP - M1 - M3 - M5 - M6, Y, 18, 6.5, 90)
+R03 = R03 & T_CIRC(M13 + M1, L - (DF / 2 + 15 - 2.4), 7.2)
 R03 = R03 & T_CIRC(M13, DF / 2 + 25 - 2.4, 7.2)
-RS2 = T_CIRC(H - HSP - M1, Y - M2 / 2, M7) & T_CIRC(H - HSP, Y + M2 / 2, M7) & T_CIRC(H - HSP - M1 - M3, Y - M2 / 2, M7) & T_CIRC(H - HSP - M3, Y + M2 / 2, M7) & T_CIRC(H - HSP - M1 - M3 - M5, Y - M2 / 2, M7) & T_CIRC(H - HSP - M3 - M5, Y + M2 / 2, M7) & T_CIRC(H - HSP - M1 - M3 - M5 - M6, Y - M2 / 2, M7) & T_CIRC(H - HSP - M3 - M5 - M6, Y + M2 / 2, M7)
+R03 = R03 & T_CIRC(M13 + M1, DF / 2 + 25 - 2.4, 7.2)
 
-SPCp_CODIFY = RS1 & RS2
+If M14 > 0 Then
-MsgBox ("CONTROLLARE SPACCO " & COD_SPC & " SU CODICE " & ACT_MOD)
+R03 = R03 & T_CIRC(M13 + M1 / 2, L - (DF / 2 + 25 - 2.4), 20.2)
 
 End If
-Case "50972", "50973"
+
-Y = MR_Y(FA + sf / 2, L, MRR)
+R03 = R03 & T_SLOT(H - 25, 9.5, 8, 5, 90)
 R03 = R03 & T_SLOT(H - 55, 9.5, 8, 5, 90)
-RS1 = T_SLOT(H - HSP - M1 + M2, Y, 18, 6.5, 90)
+R03 = R03 & T_CIRC(H - 283, 10, 8.5)
 R03 = R03 & T_CIRC(H - (283 + 34), 10, 8.5)
-RS2 = T_CIRC(H - HSP, Y, M4) & T_CIRC(H - HSP - M1, Y - M3 / 2, M4) & T_CIRC(H - HSP - M1, Y + M3 / 2, M4)
+R03 = R03 & T_CIRC(H - (283 + M3), 10, 8.5)
 R03 = R03 & T_CIRC(H - (283 + 34 + M3), 10, 8.5)
-SPCp_CODIFY = RS1 & RS2
+If CD_SP = "50522" Or CD_SP = "50522" Or CD_SP = "50522" Then
-MsgBox ("CONTROLLARE SPACCO " & COD_SPC & " SU CODICE " & ACT_MOD)
+R03 = R03 & T_CIRC(H - (283 + M3 + M10), 10, 8.5)
 R03 = R03 & T_CIRC(H - (283 + 34 + M3 + M10), 10, 8.5)
 Else
-Case "50981", "50982"
+R03 = R03 & T_CIRC(H - (283 + 2 * M3), 10, 8.5)
-Y = MR_Y(FA + sf / 2, L, MRR)
+R03 = R03 & T_CIRC(H - (283 + 34 + 2 * M3), 10, 8.5)
 End If
-RS1 = T_RECT2(H - HSP - M2 / 2, Y, M2, M1)
+R03 = R03 & T_CIRC(M2 + 82, 10, 8.5)
 R03 = R03 & T_CIRC(M2 + 82 - 34, 10, 8.5)
-RS2 = T_CIRC(H - HSP - ((M2 - M3) / 2), Y - M4 / 2, M5) & T_CIRC(H - HSP - ((M2 - M3) / 2), Y + M4 / 2, M5) & T_CIRC(H - HSP - M2 + ((M2 - M3) / 2), Y - M4 / 2, M5) & T_CIRC(H - HSP - M2 + ((M2 - M3) / 2), Y + M4 / 2, M5)
+
 If M6 > 0 Then R04 = T_CIRC(H - 1500, L - (15 + M6 - 2.4), 22) Else R04 = ""
-SPCp_CODIFY = RS1 & RS2
+
-MsgBox ("CONTROLLARE SPACCO " & COD_SPC & " SU CODICE " & ACT_MOD)
+'SMUSSI
 R05 = T_RAD(0 - OFSS, L - (15 + 4 - 2.4) + OFSS, 2)
-Case "50983"
+R05 = R05 & T_RAD(M2 - OFSS, L + OFSS, 2)
-Y = MR_Y(FA + sf / 2, L, MRR)
+R05 = R05 & T_RAD(0 - OFSS, 25 + 4 - 2.4 - OFSS, 3)
 R05 = R05 & T_RAD(M2 - OFSS, 0 - OFSS, 3)
-RS1 = T_RECT2(H - HSP - M6 - M2 / 2, Y, M2, M1)
+R05 = R05 & T_RAD(H - 70 + OFSS, L + OFSS, 1)
 R05 = R05 & T_RAD(H + OFSS, L - (15 + 4 - 2.4) + OFSS, 1)
-RS2 = T_SLOT(H - HSP - M3 - M8 + M9, Y, 18, 6.5, 90)
+R05 = R05 & T_RAD(H + OFSS, 0 - OFSS, 4)
 
-RS3 = T_CIRC(H - HSP, Y - M12, M11) & T_CIRC(H - HSP, Y + M5 / 2, M11) & T_CIRC(H - HSP - M3, Y - M4 / 2, M11) & T_CIRC(H - HSP - M3, Y + M4 / 2, M11) & T_CIRC(H - HSP - M3 - M7, Y, M11) & T_CIRC(H - HSP - M3 - M7 - M8, Y - M10 / 2, M11) & T_CIRC(H - HSP - M3 - M7 - M8, Y + M10 / 2, M11)
+'Print #NF, T_BLQ(H - 1000, 5.65, H - 1000 - 5.65, 0, 0, 1)
 'Print #NF, T_BLQ(H - 1000 + 5.65, 0, H - 1000, 5.65, 1, 0)
-SPCp_CODIFY = RS1 & RS2 & RS3
+R06 = T_SMUS(H - 1000, -0.2)
-MsgBox ("CONTROLLARE SPACCO " & COD_SPC & " SU CODICE " & ACT_MOD)
+'Print #NF, T_CIRC(H - 1000, 0, 3.3)
 
-Case "50991", "50992"
+R11 = T_DATAMATRIX(ODP, H - 100 - 40, L - 15 - 4 - 17.5, "O")
-Y = MR_Y(FA + sf / 2, L, MRR)
+
 R12 = ""
 If M7 > 0 Then
-RS1 = T_SLOT(H - HSP - M1, Y, 18, 6.5, 90)
+R12 = T_HEX(H - M7, L - (15 + 28.5 - 2.4), 11) & T_HEX(H - M7 - 859, L - (15 + 28.5 - 2.4), 11) & T_HEX(H - M7 - 859 - 398, L - (15 + 28.5 - 2.4), 11)
 End If
-RS2 = T_CIRC(H - HSP - M1, Y - M2 / 2, M4) & T_CIRC(H - HSP, Y + M2 / 2, M4)
+If M8 > 0 Then
 R12 = R12 & T_HEX(H - M8 - 1257, L - (15 + 28.5 - 2.4), 11) & T_HEX(H - M8, L - (15 + 28.5 - 2.4), 11)
-RS3 = T_SLOT(H - HSP - M1 - M5 - M6 + M7, Y, 18, 6.5, 90)
+
 If M9 > 0 Then
-RS4 = T_CIRC(H - HSP - M1 - M5 - M6, Y - M8 / 2, M9) & T_CIRC(H - HSP - M1 - M5 - M6, Y + M8 / 2, M9) & T_CIRC(H - HSP - M1 - M5, Y, M9)
+R12 = R12 & T_HEX(H - M9, L - (15 + 28.5 - 2.4), 11)
 End If
-SPCp_CODIFY = RS1 & RS2 & RS3 & RS4
+
-MsgBox ("CONTROLLARE SPACCO " & COD_SPC & " SU CODICE " & ACT_MOD)
+
 Case Else
-Case "50984"
+MsgBox "ERRORE VALORE VV " & ACT_MOD, vbCritical
-Y = MR_Y(FA + sf / 2, L, MRR)
+
 
-RS1 = T_RECT2(H - HSP - M15 - M8 / 2, Y, M8, M6) & T_RECT2(H - HSP - M11 - M2 / 2, Y, M2, M1)
+fn = R01 & R02 & R03 & R04 & R05 & R06 & R11 & R12
 
-RS2 = T_CIRC(H - HSP, Y - M16, M5) & T_CIRC(H - HSP, Y - M16 + M10, M5) & T_CIRC(H - HSP - M9, Y - M7 / 2, M5) & T_CIRC(H - HSP - M9, Y + M7 / 2, M5)
+
 P1 = 250
-RS2 = RS2 & T_CIRC(H - HSP - M11 - M2 / 2 + M3 / 2, Y - M4 / 2, M5) & T_CIRC(H - HSP - M11 - M2 / 2 + M3 / 2, Y + M4 / 2, M5) & T_CIRC(H - HSP - M11 - M2 / 2 - M3 / 2, Y - M4 / 2, M5) & T_CIRC(H - HSP - M11 - M2 / 2 - M3 / 2, Y + M4 / 2, M5)
+P2 = H - 400
 MVAL = 500
-SPCp_CODIFY = RS1 & RS2
+STRINGA = R000(NHD, NND, SPS, H, L, P1, P2, MVAL) & fn
-MsgBox ("CONTROLLARE SPACCO " & COD_SPC & " SU CODICE " & ACT_MOD)
+
 Call SAVE_SUB(NND, STRINGA)
-Case "50986", "50988"
+
-Y = MR_Y(FA + sf / 2, L, MRR)
+POSINTAB = def_posintab(NND)
 Call CUT_END_S(H, L, "0", POSINTAB)
-RS1 = T_RECT2(H - HSP - M15 - M8 / 2, Y, M8, M6) & T_RECT2(H - HSP - M11 - M2 / 2, Y, M2, M1) & T_RECT2(H - HSP - M11 - M12 - M2 / 2, Y, M2, M1)
+Call FVTPT(3, NND, "")
 Call CUT_END_S(H, L, "B", POSINTAB)
-RS2 = T_CIRC(H - HSP, Y - M16, M5) & T_CIRC(H - HSP, Y - M16 + M10, M5) & T_CIRC(H - HSP - M9, Y - M7 / 2, M5) & T_CIRC(H - HSP - M9, Y + M7 / 2, M5)
+Call FVTPT(3, NND, "B")
-RS2 = RS2 & T_CIRC(H - HSP - M11 - M2 / 2 + M3 / 2, Y - M4 / 2, M5) & T_CIRC(H - HSP - M11 - M2 / 2 + M3 / 2, Y + M4 / 2, M5) & T_CIRC(H - HSP - M11 - M2 / 2 - M3 / 2, Y - M4 / 2, M5) & T_CIRC(H - HSP - M11 - M2 / 2 - M3 / 2, Y + M4 / 2, M5)
+Call CUT_END_S(H, L, "C", POSINTAB)
-RS2 = RS2 & T_CIRC(H - HSP - M11 - M12 - M2 / 2 + M3 / 2, Y - M4 / 2, M5) & T_CIRC(H - HSP - M11 - M12 - M2 / 2 + M3 / 2, Y + M4 / 2, M5) & T_CIRC(H - HSP - M11 - M12 - M2 / 2 - M3 / 2, Y - M4 / 2, M5) & T_CIRC(H - HSP - M11 - M12 - M2 / 2 - M3 / 2, Y + M4 / 2, M5)
+Call FVTPT(3, NND, "C")
 
-SPCp_CODIFY = RS1 & RS2
+
-MsgBox ("CONTROLLARE SPACCO " & COD_SPC & " SU CODICE " & ACT_MOD)
+End Sub
 
-Case "50990", "50996"
+Sub S_1006897H(ByVal NND As Integer)
-Y = MR_Y(FA + sf / 2, L, MRR)
+ACT_MOD = "1006897"
 CLAMP = 0
-RS1 = T_RECT2(H - HSP - M15 - M8 / 2, Y, M8, M6) & T_RECT2(H - HSP - M11 - M2 / 2, Y, M2, M1) & T_RECT2(H - HSP - M11 - M12 - M2 / 2, Y, M2, M1) & T_RECT2(H - HSP - M11 - M12 - M13 - M2 / 2, Y, M2, M1)
+
 
-RS2 = T_CIRC(H - HSP, Y - M16, M5) & T_CIRC(H - HSP, Y - M16 + M10, M5) & T_CIRC(H - HSP - M9, Y - M7 / 2, M5) & T_CIRC(H - HSP - M9, Y + M7 / 2, M5)
+L = INPUT_NUM(NND, "L", L, ACT_MOD)
-RS2 = RS2 & T_CIRC(H - HSP - M11 - M2 / 2 + M3 / 2, Y - M4 / 2, M5) & T_CIRC(H - HSP - M11 - M2 / 2 + M3 / 2, Y + M4 / 2, M5) & T_CIRC(H - HSP - M11 - M2 / 2 - M3 / 2, Y - M4 / 2, M5) & T_CIRC(H - HSP - M11 - M2 / 2 - M3 / 2, Y + M4 / 2, M5)
+H = INPUT_NUM(NND, "H", H, ACT_MOD)
-RS2 = RS2 & T_CIRC(H - HSP - M11 - M12 - M2 / 2 + M3 / 2, Y - M4 / 2, M5) & T_CIRC(H - HSP - M11 - M12 - M2 / 2 + M3 / 2, Y + M4 / 2, M5) & T_CIRC(H - HSP - M11 - M12 - M2 / 2 - M3 / 2, Y - M4 / 2, M5) & T_CIRC(H - HSP - M11 - M12 - M2 / 2 - M3 / 2, Y + M4 / 2, M5)
+SPS = INPUT_NUM(NND, "SPS", SPS, ACT_MOD) / 10
-RS2 = RS2 & T_CIRC(H - HSP - M11 - M12 - M13 - M2 / 2 + M3 / 2, Y - M4 / 2, M5) & T_CIRC(H - HSP - M11 - M12 - M13 - M2 / 2 + M3 / 2, Y + M4 / 2, M5) & T_CIRC(H - HSP - M11 - M12 - M13 - M2 / 2 - M3 / 2, Y - M4 / 2, M5) & T_CIRC(H - HSP - M11 - M12 - M13 - M2 / 2 - M3 / 2, Y + M4 / 2, M5)
+M1 = INPUT_NUM(NND, "M1", M1, ACT_MOD)
 M2 = INPUT_NUM(NND, "M2", M2, ACT_MOD)
-SPCp_CODIFY = RS1 & RS2
+M3 = INPUT_NUM(NND, "M3", M3, ACT_MOD)
-MsgBox ("CONTROLLARE SPACCO " & COD_SPC & " SU CODICE " & ACT_MOD)
+M4 = INPUT_NUM(NND, "M4", M4, ACT_MOD)
 M5 = INPUT_NUM(NND, "M5", M5, ACT_MOD)
-Case "50998"
+M6 = INPUT_NUM(NND, "M6", M6, ACT_MOD)
-Y = MR_Y(FA + sf / 2, L, MRR)
+M7 = INPUT_NUM(NND, "M7", M7, ACT_MOD)
 M8 = INPUT_NUM(NND, "M8", M8, ACT_MOD)
-RS1 = T_RECT2(H - HSP - M15 - M8 / 2, Y, M8, M6) & T_RECT2(H - HSP - M11 - M2 / 2, Y, M2, M1) & T_RECT2(H - HSP - M11 - M12 - M2 / 2, Y, M2, M1) & T_RECT2(H - HSP - M11 - M12 - M13 - M2 / 2, Y, M2, M1) & T_RECT2(H - HSP - M11 - M12 - M13 - M14 - M2 / 2, Y, M2, M1)
+M9 = INPUT_NUM(NND, "M9", M9, ACT_MOD)
 M10 = INPUT_NUM(NND, "M10", M10, ACT_MOD)
-RS2 = T_CIRC(H - HSP, Y - M16, M5) & T_CIRC(H - HSP, Y - M16 + M10, M5) & T_CIRC(H - HSP - M9, Y - M7 / 2, M5) & T_CIRC(H - HSP - M9, Y + M7 / 2, M5)
+M11 = INPUT_NUM(NND, "M11", M11, ACT_MOD)
-RS2 = RS2 & T_CIRC(H - HSP - M11 - M2 / 2 + M3 / 2, Y - M4 / 2, M5) & T_CIRC(H - HSP - M11 - M2 / 2 + M3 / 2, Y + M4 / 2, M5) & T_CIRC(H - HSP - M11 - M2 / 2 - M3 / 2, Y - M4 / 2, M5) & T_CIRC(H - HSP - M11 - M2 / 2 - M3 / 2, Y + M4 / 2, M5)
+M12 = INPUT_NUM(NND, "M12", M12, ACT_MOD)
-RS2 = RS2 & T_CIRC(H - HSP - M11 - M12 - M2 / 2 + M3 / 2, Y - M4 / 2, M5) & T_CIRC(H - HSP - M11 - M12 - M2 / 2 + M3 / 2, Y + M4 / 2, M5) & T_CIRC(H - HSP - M11 - M12 - M2 / 2 - M3 / 2, Y - M4 / 2, M5) & T_CIRC(H - HSP - M11 - M12 - M2 / 2 - M3 / 2, Y + M4 / 2, M5)
+M13 = INPUT_NUM(NND, "M13", M13, ACT_MOD)
-RS2 = RS2 & T_CIRC(H - HSP - M11 - M12 - M13 - M2 / 2 + M3 / 2, Y - M4 / 2, M5) & T_CIRC(H - HSP - M11 - M12 - M13 - M2 / 2 + M3 / 2, Y + M4 / 2, M5) & T_CIRC(H - HSP - M11 - M12 - M13 - M2 / 2 - M3 / 2, Y - M4 / 2, M5) & T_CIRC(H - HSP - M11 - M12 - M13 - M2 / 2 - M3 / 2, Y + M4 / 2, M5)
+M14 = INPUT_NUM(NND, "M14", M14, ACT_MOD)
-RS2 = RS2 & T_CIRC(H - HSP - M11 - M12 - M13 - M14 - M2 / 2 + M3 / 2, Y - M4 / 2, M5) & T_CIRC(H - HSP - M11 - M12 - M13 - M14 - M2 / 2 + M3 / 2, Y + M4 / 2, M5) & T_CIRC(H - HSP - M11 - M12 - M13 - M14 - M2 / 2 - M3 / 2, Y - M4 / 2, M5) & T_CIRC(H - HSP - M11 - M12 - M13 - M14 - M2 / 2 - M3 / 2, Y + M4 / 2, M5)
+M15 = INPUT_NUM(NND, "M15", M15, ACT_MOD)
 M16 = INPUT_NUM(NND, "M16", M16, ACT_MOD)
-SPCp_CODIFY = RS1 & RS2
+M17 = INPUT_NUM(NND, "M17", M17, ACT_MOD)
-MsgBox ("CONTROLLARE SPACCO " & COD_SPC & " SU CODICE " & ACT_MOD)
+M18 = INPUT_NUM(NND, "M18", M18, ACT_MOD)
 
-Case "50985"
+
-Y = MR_Y(FA + sf / 2, L, MRR)
+DF = INPUT_NUM(NND, "DF", DF, ACT_MOD)
 sf = INPUT_NUM(NND, "SF", sf, ACT_MOD)
-RS1 = T_RECT2(H - HSP - M12 - M10 / 2, Y, M10, M8)
+SB = INPUT_NUM(NND, "SB", SB, ACT_MOD)
 LH = INPUT_NUM(NND, "LH", LH, ACT_MOD)
-RS2 = T_SLOT(H - HSP - M15 - M1, Y, 18, 6.5, 90)
+CD_SP = INPUT_NUM(NND, "SPC.", CD_SP, ACT_MOD)
 VV = INPUT_STR(NND, "VER.", VV, ACT_MOD)
-RS3 = T_CIRC(H - HSP, Y - M13, M7) & T_CIRC(H - HSP, Y - M13 + M14, M7) & T_CIRC(H - HSP - M11, Y - M9 / 2, M7) & T_CIRC(H - HSP - M11, Y + M9 / 2, M7) & T_CIRC(H - HSP - M15 - M1, Y - M2 / 2, M7) & T_CIRC(H - HSP - M15, Y + M2 / 2, M7)
+BNB = INPUT_NUM(NND, "BNB", BNB, ACT_MOD)
 ODP = INFO_DAT(NND, 0, 5)
-SPCp_CODIFY = RS1 & RS2 & RS3
+
-MsgBox ("CONTROLLARE SPACCO " & COD_SPC & " SU CODICE " & ACT_MOD)
+OFSS = 0 '0.5
 
-Case "50987", "50989"
+SPCOTIS = "_50948_50949_50974_50952_50953_51001_50956_50957_50960_51005_50964_50965_50968_51007_"
-Y = MR_Y(FA + sf / 2, L, MRR)
+If Val(LH) = 0 Then
 SP = M1 + 50
-RS1 = T_RECT2(H - HSP - M12 - M10 / 2, Y, M10, M8)
+LH = H - SP
 End If
-RS2 = T_SLOT(H - HSP - M15 - M1, Y, 18, 6.5, 90) & T_SLOT(H - HSP - M15 - M3 - M1, Y, 18, 6.5, 90)
+
 
-RS3 = T_CIRC(H - HSP, Y - M13, M7) & T_CIRC(H - HSP, Y - M13 + M14, M7) & T_CIRC(H - HSP - M11, Y - M9 / 2, M7) & T_CIRC(H - HSP - M11, Y + M9 / 2, M7) & T_CIRC(H - HSP - M15 - M1, Y - M2 / 2, M7) & T_CIRC(H - HSP - M15, Y + M2 / 2, M7)
+If VV = "1" Or VV = "3" Or VV = "5" Or VV = "7" Then    'PINZE
-RS3 = RS3 & T_CIRC(H - HSP - M15 - M1 - M3, Y - M2 / 2, M7) & T_CIRC(H - HSP - M15 - M3, Y + M2 / 2, M7)
+If CD_SP = 0 Then
 If SP = 90 And LH = 2000 Then
-SPCp_CODIFY = RS1 & RS2 & RS3
+'CLAMP = 1
-MsgBox ("CONTROLLARE SPACCO " & COD_SPC & " SU CODICE " & ACT_MOD)
+
 End If
-Case "50995", "50997"
+
-Y = MR_Y(FA + sf / 2, L, MRR)
+
 
-RS1 = T_RECT2(H - HSP - M12 - M10 / 2, Y, M10, M8)
+VV = Replace(VV, "H", "")
 
-RS2 = T_SLOT(H - HSP - M15 - M1, Y, 18, 6.5, 90) & T_SLOT(H - HSP - M15 - M3 - M1, Y, 18, 6.5, 90) & T_SLOT(H - HSP - M15 - M3 - M5 - M1, Y, 18, 6.5, 90)
+If VV > 8 Then MsgBox "ERRORE VERSIONE SU " & ACT_MOD, vbCritical
 
-RS3 = T_CIRC(H - HSP, Y - M13, M7) & T_CIRC(H - HSP, Y - M13 + M14, M7) & T_CIRC(H - HSP - M11, Y - M9 / 2, M7) & T_CIRC(H - HSP - M11, Y + M9 / 2, M7) & T_CIRC(H - HSP - M15 - M1, Y - M2 / 2, M7) & T_CIRC(H - HSP - M15, Y + M2 / 2, M7)
+
-RS3 = RS3 & T_CIRC(H - HSP - M15 - M1 - M3, Y - M2 / 2, M7) & T_CIRC(H - HSP - M15 - M3, Y + M2 / 2, M7)
+SCS = 6
-RS3 = RS3 & T_CIRC(H - HSP - M15 - M1 - M3 - M5, Y - M2 / 2, M7) & T_CIRC(H - HSP - M15 - M3 - M5, Y + M2 / 2, M7)
+
 
-SPCp_CODIFY = RS1 & RS2 & RS3
+sf = 1 * sf '+ 1 * SB
-MsgBox ("CONTROLLARE SPACCO " & COD_SPC & " SU CODICE " & ACT_MOD)
+If sf = 0 Then
 sf = 1 * SB
-Case "50999"
+MsgBox "ERRORE DATI SB-SF IN " & ACT_MOD
-Y = MR_Y(FA + sf / 2, L, MRR)
+
 
-RS1 = T_RECT2(H - HSP - M12 - M10 / 2, Y, M10, M8)
+If VV = "1" Or VV = "2" Or VV = "5" Or VV = "6" Then
 M16 = 20
-RS2 = T_SLOT(H - HSP - M15 - M1, Y, 18, 6.5, 90) & T_SLOT(H - HSP - M15 - M3 - M1, Y, 18, 6.5, 90) & T_SLOT(H - HSP - M15 - M3 - M5 - M1, Y, 18, 6.5, 90) & T_SLOT(H - HSP - M15 - M3 - M5 - M6 - M1, Y, 18, 6.5, 90)
+M17 = 48
 End If
-RS3 = T_CIRC(H - HSP, Y - M13, M7) & T_CIRC(H - HSP, Y - M13 + M14, M7) & T_CIRC(H - HSP - M11, Y - M9 / 2, M7) & T_CIRC(H - HSP - M11, Y + M9 / 2, M7) & T_CIRC(H - HSP - M15 - M1, Y - M2 / 2, M7) & T_CIRC(H - HSP - M15, Y + M2 / 2, M7)
+
-RS3 = RS3 & T_CIRC(H - HSP - M15 - M1 - M3, Y - M2 / 2, M7) & T_CIRC(H - HSP - M15 - M3, Y + M2 / 2, M7)
+
-RS3 = RS3 & T_CIRC(H - HSP - M15 - M1 - M3 - M5, Y - M2 / 2, M7) & T_CIRC(H - HSP - M15 - M3 - M5, Y + M2 / 2, M7)
+Select Case VV
-RS3 = RS3 & T_CIRC(H - HSP - M15 - M1 - M3 - M5 - M6, Y - M2 / 2, M7) & T_CIRC(H - HSP - M15 - M3 - M5 - M6, Y + M2 / 2, M7)
+Case 2, 4, 6, 8
 
-SPCp_CODIFY = RS1 & RS2 & RS3
+
-MsgBox ("CONTROLLARE SPACCO " & COD_SPC & " SU CODICE " & ACT_MOD)
+'*******************************************SPACCO
 If CD_SP <> "" And CD_SP <> "0" Then
-'END NUOVI SPACCHI OTIS
+R01 = SPC_PULS(NND, CD_SP, 25 + DF - 4.8, H, L, 2, sf, 0) 'MODIFICATO DA 25 A 15mm
 
 If DF >= 40 Then M5 = DF - 25 Else M5 = 0
-Case "9932", "9933", "9934"     'SPACCO WITTUR ZOO
+
 'LISTA CODICI SPACCHI OTIS
 CD_SP_OTIS = "_50948_50949_50950_50951_50952_50953_50954_51004_50956_50957_50958_50959_50960_51005_50962_51006_50964_50965_50966_50967_50968_51007_50970_51008_50972_50973_50981_50982_50983_50991_50992_50984_50985_50986_50987_50988_50989_50990_50995_50996_50997_50998_50999_50974_50975_51000_51001_"
-'DS = 14
+
-'Y = MR_Y(L - (FA + DS), L, MRR)
+If CD_SP = "50522" Or CD_SP = "50523" Or CD_SP = "50524" Or InStr(1, CD_SP_OTIS, CD_SP) > 0 Then
 
-If MRR = 2 Then Y = 70.2 'LEFT
+If M15 > 0 And M11 > 0 Then
-If MRR = 1 Then Y = 74.2 'RIGHT
+R02 = T_CIRC(H - M11, L - 5.2, 5.5) & T_CIRC(H - M11 - M15, L - 5.2, 5.5)
 R02 = R02 & T_SLOT(H - M11, 24.1, 8, 5, 90) & T_SLOT(H - M11, 24.1 + M5, 8, 5, 90)
-RS1 = T_CIRC(H - 950 - 2.5, Y + 0.5, 3) & T_CIRC(H - 950, Y + 0.5 + 27.5, 3) & T_CIRC(H - 950 - 2.5, Y + 0.5 + 55, 3)
+R02 = R02 & T_SLOT(H - M11 - M15, 24.1, 8, 5, 90) & T_SLOT(H - M11 - M15, 24.1 + M5, 8, 5, 90)
-RS2 = T_CIRC(H - 950 + 2.5 - 230, Y + 0.5, 3) & T_CIRC(H - 950 - 230, Y + 0.5 + 27.5, 3) & T_CIRC(H - 950 + 2.5 - 230, Y + 0.5 + 55, 3)
+
 
-RS3 = T_RECT1(H - 950 - 230 + 115 - 8, H - 950 - 230 + 115 + 8, Y + 56 - 3, Y + 3)
+
-RS4 = T_RECT1(H - 950 - 230 + 115, H - 950 - 230 + 115 + 20, Y + 10.5 + 3, Y + 10.5 + 35 - 3)
+
-RS5 = T_CIRC(H - 950 - 230 + 115 - 5, Y + 56 - 3, 6) & T_CIRC(H - 950 - 230 + 115 + 5, Y + 56 - 3, 6) & T_CIRC(H - 950 - 230 + 115 - 5, Y + 3, 6) & T_CIRC(H - 950 - 230 + 115 + 5, Y + 3, 6)
+If M12 > 0 And M18 > 0 Then
-RS6 = T_CIRC(H - 950 - 230 + 115 - 8 + 28 - 3, Y + 10.5 + 3, 6) & T_CIRC(H - 950 - 230 + 115 - 8 + 28 - 3, Y + 56 - 10.5 - 3, 6)
+R02 = R02 & T_CIRC(H - M12, L - 5.2, 5.5) & T_CIRC(H - M12 - M18, L - 5.2, 5.5)
-RS7 = T_RECT1(H - 950 - 230 + 115 - 5, H - 950 - 230 + 115 + 5, Y, Y + 10) & T_RECT1(H - 950 - 230 + 115 - 5, H - 950 - 230 + 115 + 5, Y + 56, Y + 56 - 10)
+R02 = R02 & T_SLOT(H - M12, 24.1, 8, 5, 90) & T_SLOT(H - M12, 24.1 + M5, 8, 5, 90)
-RS8 = T_RECT1(H - 950 - 230 + 115 + 17, H - 950 - 230 + 115 + 7, Y + 10.5, Y + 10.5 + 10) & T_RECT1(H - 950 - 230 + 115 + 17, H - 950 - 230 + 115 + 7, Y + 10.5 + 35, Y + 10.5 + 35 - 10)
+R02 = R02 & T_SLOT(H - M12 - M18, 24.1, 8, 5, 90) & T_SLOT(H - M12 - M18, 24.1 + M5, 8, 5, 90)
-RS9 = T_RAD(H - 950 - 230 + 115 + 8, Y + 10.5, 2) & T_RAD(H - 950 - 230 + 115 + 8, Y + 10.5 + 35, 3)
+
-If COD_SPC = "9933" Then
+
-If MRR = 1 Then Y2 = 25 + 40 + 45 - 4.8 'LEFT
+
-If MRR = 2 Then Y2 = 15 + 40 + 45 - 4.8 'RIGHT
+
-RS10 = T_CIRC(H - 150, Y2, 19)
+R02 = T_CIRC(QCSP + 187.75, L - 5.2, 5.5)
 R02 = R02 & T_CIRC(QCSP - 187.75, L - 5.2, 5.5)
-RS10 = ""
+R02 = R02 & T_SLOT(QCSP + 187.75, 24.1, 8, 5, 90)
 R02 = R02 & T_SLOT(QCSP + 187.75, 24.1 + M5, 8, 5, 90)
-If COD_SPC = "9934" Then
+R02 = R02 & T_SLOT(QCSP - 187.75, 24.1, 8, 5, 90)
-If MRR = 1 Then Y2 = 25 + 40 + 45 - 4.8 'LEFT
+R02 = R02 & T_SLOT(QCSP - 187.75, 24.1 + M5, 8, 5, 90)
-If MRR = 2 Then Y2 = 15 + 40 + 45 - 4.8 'RIGHT
+
-RS10 = T_CIRC(H - 150, Y2, 19) & T_CIRC(H - 230, Y2, 19)
+
 If M3 = 0 Then
-RS10 = ""
+
 MsgBox "M3=0"
 Select Case LH
-SPCp_CODIFY = RS1 & RS2 & RS3 & RS4 & RS5 & RS6 & RS7 & RS8 & RS9 & RS10
+
-QCSP = H - (950 + 230 / 2)
+Case 1900
 If H - QCSP < 1030 Then M3 = H - QCSP - 530
-Case "9999"
+If H - QCSP > 1080 Then M3 = (H - QCSP) / 2 - 40
-SPCp_CODIFY = ""
+If (H - QCSP >= 1030 And H - QCSP <= 1080) Then M3 = 500
 
 Case 1950
-MsgBox ("CODICE SPACCO " & COD_SPC & " NON CODIFICATO SU " & ACT_MOD)
+If H - QCSP < 1055 Then M3 = H - QCSP - 530
 If H - QCSP > 1130 Then M3 = (H - QCSP) / 2 - 40
 If (H - QCSP >= 1055 And H - QCSP <= 1130) Then M3 = 525
 
 Case 2000
 If H - QCSP < 1080 Then M3 = H - QCSP - 530
-End Function
+If H - QCSP > 1180 Then M3 = (H - QCSP) / 2 - 40
 If (H - QCSP >= 1080 And H - QCSP <= 1180) Then M3 = 550
 
-Function SPCi_CODIFY(ByVal NND As Integer, ByVal CD_IN As String, ByVal FA As Double, ByVal H As Double, ByVal L As Double, ByVal HTRV As Double) As String
+Case 2050
 If H - QCSP < 1105 Then M3 = H - QCSP - 530
 If H - QCSP > 1230 Then M3 = (H - QCSP) / 2 - 40
 If (H - QCSP >= 1105 And H - QCSP <= 1230) Then M3 = 575
-If CD_IN = "50033" Then CD_IN = "2704"
+
-If CD_IN = "50102" Then CD_IN = "2706"
+Case 2100
 If H - QCSP < 1130 Then M3 = H - QCSP - 530
 If H - QCSP > 1280 Then M3 = (H - QCSP) / 2 - 40
-M1 = INPUT_NUM(NND, "M1_SPC", M1_SPC, ACT_MOD)
+If (H - QCSP >= 1130 And H - QCSP <= 1280) Then M3 = 600
-If M1 = 0 Or M1 = -1 Then Exit Function
+
-HSP = INPUT_NUM(NND, "H_SPC", H_SPC, ACT_MOD)
+
-M2 = INPUT_NUM(NND, "M2_SPC", M2_SPC, ACT_MOD)
+MsgBox "ERRORE VALORE LH " & ACT_MOD, vbCritical
-M3 = INPUT_NUM(NND, "M3_SPC", M3_SPC, ACT_MOD)
+
-M4 = INPUT_NUM(NND, "M4_SPC", M4_SPC, ACT_MOD)
+
-M5 = INPUT_NUM(NND, "M5_SPC", M5_SPC, ACT_MOD)
+
-M6 = INPUT_NUM(NND, "M6_SPC", M6_SPC, ACT_MOD)
+
-M7 = INPUT_NUM(NND, "M7_SPC", M7_SPC, ACT_MOD)
+R01 = ""
 R02 = ""
-RT1 = ""
+
-RT2 = ""
+'*******************************************************
-RT3 = ""
+
-RT4 = ""
+
-SPCi_CODIFY = ""
+R03 = T_RECT1(-SCS, M2, L - 26.6, L + SCS)
 R03 = R03 & T_RECT1(-SCS, M2, -SCS, 16.6)
 R03 = R03 & T_RECT1(H - 70, H + SCS, -SCS, 16.6)
-'If LSX <> LDX Then MsgBox "ATTENZIONE ALLA CENTRATURA DELLO SPACCO SU TRAVERSA"
+
-XX = H / 2 '- (LSX - LDX) / 2
+R03 = R03 & T_RECT1(H - 345, H - 290, 12.5, 17.5)
 R03 = R03 & T_RECT1(H - (345 + M3), H - (290 + M3), 12.5, 17.5)
 If CD_SP = "50522" Or CD_SP = "50522" Or CD_SP = "50522" Then
-Select Case CD_IN
+R03 = R03 & T_RECT1(H - (345 + M3 + M10), H - (290 + M3 + M10), 12.5, 17.5)
-Case "1702", "1750", "2700", "2702", "2704", "2706", "9270"
+
-RT1 = T_RECT2(XX, FA - M4 - M2 / 2, M1, M2)
+R03 = R03 & T_RECT1(H - (345 + 2 * M3), H - (290 + 2 * M3), 12.5, 17.5)
-If M3 > 0 Then
+
-RT2 = T_RECT1(XX - M5 / 2, XX + M5 / 2, FA - M4 - 10, FA - M4 + M3)
+R03 = R03 & T_RECT1(M2 + M16, M2 + 75, 12.5, 17.5)
 
-RT2 = ""
+R03 = R03 & T_SLOT(H - 25, DF - 18 + 15 - 2.4, 8, 5, 90)
 R03 = R03 & T_SLOT(H - 55, DF - 18 + 15 - 2.4, 8, 5, 90)
-SPCi_CODIFY = RT1 & RT2
+
-MsgBox ("CONTROLLARE SPACCO INDICATORE SU TRAVERSA " & ACT_MOD)
+R03 = R03 & T_CIRC(M13, DF / 2 + 15 - 2.4, 7.2)
 R03 = R03 & T_CIRC(M13 + M1, DF / 2 + 15 - 2.4, 7.2)
-Case "2500", "2560", "9250"
+R03 = R03 & T_CIRC(M13, L - (DF / 2 + 25 - 2.4), 7.2)
-RT1 = T_RECT2(XX, FA - M4 - M2 / 2, M1, M2)
+R03 = R03 & T_CIRC(M13 + M1, L - (DF / 2 + 25 - 2.4), 7.2)
-RT2 = T_CIRC(XX - M3 / 2, FA - M4 - M2 / 2, M5) & T_CIRC(XX + M3 / 2, FA - M4 - M2 / 2, M5)
+If M14 > 0 Then
 R03 = R03 & T_CIRC(M13 + M1 / 2, L - (DF / 2 + 25 - 2.4), 20.2)
-RT3 = T_CIRC(XX - M3 / 2, FA - M4 + M6 - M2 / 2, M5) & T_CIRC(XX + M3 / 2, FA - M4 + M6 - M2 / 2, M5)
+
 R03 = R03 & T_SLOT(H - 25, L - 9.5, 8, 5, 90)
-RT3 = ""
+R03 = R03 & T_SLOT(H - 55, L - 9.5, 8, 5, 90)
 
-SPCi_CODIFY = RT1 & RT2 & RT3
+R03 = R03 & T_CIRC(H - 283, L - 10, 8.5)
-MsgBox ("CONTROLLARE SPACCO INDICATORE SU TRAVERSA " & ACT_MOD)
+R03 = R03 & T_CIRC(H - (283 + 34), L - 10, 8.5)
 R03 = R03 & T_CIRC(H - (283 + M3), L - 10, 8.5)
-Case "2600", "9260"
+R03 = R03 & T_CIRC(H - (283 + 34 + M3), L - 10, 8.5)
-RT1 = T_RECT2(XX, FA - M5, M1, M2)
+If CD_SP = "50522" Or CD_SP = "50522" Or CD_SP = "50522" Then
-RT2 = T_RECT1(XX - M3 / 2, XX - M3 / 2 + ((M3 - M1) / 2), FA - M5 - M4 / 2, FA - M5 + M4 / 2)
+R03 = R03 & T_CIRC(H - (283 + M3 + M10), L - 10, 8.5)
-RT3 = T_RECT1(XX + M3 / 2 - ((M3 - M1) / 2), XX + M3 / 2, FA - M5 - M4 / 2, FA - M5 + M4 / 2)
+R03 = R03 & T_CIRC(H - (283 + 34 + M3 + M10), L - 10, 8.5)
-SPCi_CODIFY = RT1 & RT2 & RT3
+
-MsgBox ("CONTROLLARE SPACCO INDICATORE SU TRAVERSA " & ACT_MOD)
+R03 = R03 & T_CIRC(H - (283 + 2 * M3), L - 10, 8.5)
 R03 = R03 & T_CIRC(H - (283 + 34 + 2 * M3), L - 10, 8.5)
-Case "2100", "9210"
+
-RT1 = T_RECT2(XX, FA - M5, M1, M2)
+R03 = R03 & T_CIRC(M2 + M17 + 34, L - 10, 8.5)
-RT2 = T_RECT1(XX - M3 / 2, XX - M3 / 2 + ((M3 - M1) / 2), FA - M5 - M4 / 2, FA - M5 + M4 / 2)
+R03 = R03 & T_CIRC(M2 + M17 + 34 - 34, L - 10, 8.5)
-RT3 = T_RECT1(XX + M3 / 2 - ((M3 - M1) / 2), XX + M3 / 2, FA - M5 - M4 / 2, FA - M5 + M4 / 2)
+
-RT4 = T_CIRC(XX - M6 / 2, FA - M5, M7) & T_CIRC(XX + M6 / 2, FA - M5, M7)
+
-SPCi_CODIFY = RT1 & RT2 & RT3 & RT4
+If M6 > 0 Then R04 = T_CIRC(H - 1500, 15 + M6 - 2.4, 22) Else R04 = ""
-MsgBox ("CONTROLLARE SPACCO INDICATORE SU TRAVERSA " & ACT_MOD)
+
 'SMUSSI
-Case "9999"
+R05 = T_RAD(0 - OFSS, 15 + 4 - 2.4 - OFSS, 3)
-SPCi_CODIFY = ""
+R05 = R05 & T_RAD(M2 - OFSS, 0 - OFSS, 3)
 R05 = R05 & T_RAD(0 - OFSS, L - (25 + 4 - 2.4) + OFSS, 2)
 R05 = R05 & T_RAD(M2 - OFSS, L + OFSS, 2)
-MsgBox ("CODICE SPACCO INDICATORE " & CD_IN & " NON CODIFICATO SU " & ACT_MOD)
+R05 = R05 & T_RAD(H - 70 + OFSS, 0 - OFSS, 4)
 R05 = R05 & T_RAD(H + OFSS, 15 + 4 - 2.4 - OFSS, 4)
 R05 = R05 & T_RAD(H + OFSS, L + OFSS, 1)
 
 'Print #NF, T_BLQ(H - 1000 - 5.65, L, H - 1000, L - 5.65, 1, 0)
-End Function
+'Print #NF, T_BLQ(H - 1000, L - 5.65, H - 1000 + 5.65, L, 0, 1)
 R06 = T_SMUS(H - 1000, L + 0.2)
 'Print #NF, T_CIRC(H - 1000, L, 3.3)
 
 R11 = T_DATAMATRIX(ODP, H - 100 - 40, 15 + 4, "O")
-Function SPC_PULS(ByVal CMM As String, ByVal COD_SP As Single, ByVal FA As Double, ByVal H As Double, ByVal SVIL As Double, ByVal SDX As Byte, ByVal LM As Double, ByVal OFST As Single) As String
+
 R12 = ""
-If OFST <> 0 Then MsgBox ("ATTENZIONE OFFSET SULLO SPACCO SBAGLIATO SUL CODICE " & ACT_MOD)
+If M7 > 0 Then
-'*********************************************************
+R12 = T_HEX(H - M7, 15 + 28.5 - 2.4, 11) & T_HEX(H - M7 - 859, 15 + 28.5 - 2.4, 11) & T_HEX(H - M7 - 859 - 398, 15 + 28.5 - 2.4, 11)
-SPC_PULS = SPCp_CODIFY(CMM, COD_SP, FA, H, SVIL, SDX, LM)
+
-If SPC_PULS <> "" Then Exit Function
+If M8 > 0 Then
-'*********************************************************
+R12 = R12 & T_HEX(H - M8 - 1257, 15 + 28.5 - 2.4, 11) & T_HEX(H - M8, 15 + 28.5 - 2.4, 11)
 End If
 If M9 > 0 Then
 R12 = R12 & T_HEX(H - M9, 15 + 28.5 - 2.4, 11)
 End If
-SPC_PULS = Empty
+
-Spclist = FILELIST(SPC_FOLD, True, "*")
+
 
-SPC_FOUND = 0
+Case 1, 3, 5, 7
-TYCK = ""
+
-For i = 1 To UBound(Spclist)
+'*******************************************SPACCO
 If CD_SP <> "" And CD_SP <> "0" Then
-CDCK = Right(Spclist(i), InStr(1, StrReverse(Spclist(i)), "\", vbBinaryCompare) - 1)
+R01 = SPC_PULS(NND, CD_SP, 25 + DF - 4.8, H, L, 1, sf, 0)
-CDCK = Left(CDCK, InStr(1, CDCK, ".", vbBinaryCompare) - 1)
+
 
-If CDCK = COD_SP Then
+If DF >= 40 Then M5 = DF - 25 Else M5 = 0
-Select Case SPC_FOUND
+
-Case 0
+'LISTA CODICI SPACCHI OTIS
-SPC_FOUND = 1
+CD_SP_OTIS = "_50948_50949_50950_50951_50952_50953_50954_51004_50956_50957_50958_50959_50960_51005_50962_51006_50964_50965_50966_50967_50968_51007_50970_51008_50972_50973_50981_50982_50983_50991_50992_50984_50985_50986_50987_50988_50989_50990_50995_50996_50997_50998_50999_50974_50975_51000_51001_"
-NF_SP = Spclist(i)
+
-TYCK = Left(Spclist(i), Len(Spclist(i)) - InStr(1, StrReverse(Spclist(i)), "\", vbBinaryCompare))
+If CD_SP = "50522" Or CD_SP = "50523" Or CD_SP = "50524" Or InStr(1, CD_SP_OTIS, CD_SP) > 0 Then
-TYCK = Right(TYCK, InStr(1, StrReverse(TYCK), "\", vbBinaryCompare) - 1)
+
-Case 1
+If M15 > 0 And M11 > 0 Then
-MsgBox "ERRORE SU MODULO SPACCHI"
+R02 = T_CIRC(H - M11, 5.2, 5.5) & T_CIRC(H - M11 - M15, 5.2, 5.5)
 R02 = R02 & T_SLOT(H - M11, L - 24.1, 8, 5, 90) & T_SLOT(H - M11, L - 24.1 - M5, 8, 5, 90)
-MsgBox "ERRORE SU MODULO SPACCHI"
+R02 = R02 & T_SLOT(H - M11 - M15, L - 24.1, 8, 5, 90) & T_SLOT(H - M11 - M15, L - 24.1 - M5, 8, 5, 90)
 End If
 
-Next i
+If M12 > 0 And M18 > 0 Then
 R02 = R02 & T_SLOT(H - M12, L - 24.1, 8, 5, 90) & T_SLOT(H - M12, L - 24.1 - M5, 8, 5, 90)
 R02 = R02 & T_SLOT(H - M12 - M18, L - 24.1, 8, 5, 90) & T_SLOT(H - M12 - M18, L - 24.1 - M5, 8, 5, 90)
-If SPC_FOUND = 0 And COD_SP <> "9999" Then MsgBox "SPACCO " & COD_SP & " NON TROVATO", vbExclamation
+R02 = R02 & T_CIRC(H - M12, 5.2, 5.5) & T_CIRC(H - M12 - M18, 5.2, 5.5)
 End If
-Select Case TYCK
+
 Else
-Case "T01"                 'SPACCO RETTANGOLARE SINGOLO O MULTIPLO
+R02 = T_CIRC(QCSP + 187.75, 5.2, 5.5)
-NFDATA = FreeFile
+R02 = R02 & T_CIRC(QCSP - 187.75, 5.2, 5.5)
-Open NF_SP For Input As #NFDATA
+R02 = R02 & T_SLOT(QCSP + 187.75, L - 24.1, 8, 5, 90)
-Line Input #NFDATA, ST_COD
+R02 = R02 & T_SLOT(QCSP + 187.75, L - 24.1 - M5, 8, 5, 90)
-Line Input #NFDATA, VOID_ROW
+R02 = R02 & T_SLOT(QCSP - 187.75, L - 24.1, 8, 5, 90)
-Line Input #NFDATA, lS
+R02 = R02 & T_SLOT(QCSP - 187.75, L - 24.1 - M5, 8, 5, 90)
-MLTSPC:
+
-Line Input #NFDATA, HS
+
-Line Input #NFDATA, QS
+
-lS = Val(lS)
+
-HS = Val(HS)
+
-QS = Val(QS) + OFST
+Select Case LH
-If LM > 300 Then RCC = 60 Else RCC = LM / 2
+
-Y = MR_Y(FA + RCC, SVIL, SDX)
+Case 1900
-RS1 = T_RECT2(H - QS - HS / 2, Y, HS, lS)
+If H - QCSP < 1030 Then M3 = H - QCSP - 530
-SPC_PULS = SPC_PULS & RS1
+If H - QCSP > 1080 Then M3 = (H - QCSP) / 2 - 40
-lS = ""
+If (H - QCSP >= 1030 And H - QCSP <= 1080) Then M3 = 500
-If QCSP = 0 Then QCSP = H - QS - HS / 2
+
-If Not EOF(NFDATA) Then Line Input #NFDATA, lS
+Case 1950
-If lS <> "" Then
+If H - QCSP < 1055 Then M3 = H - QCSP - 530
-SPC_PULS = SPC_PULS
+If H - QCSP > 1130 Then M3 = (H - QCSP) / 2 - 40
-GoTo MLTSPC
+If (H - QCSP >= 1055 And H - QCSP <= 1130) Then M3 = 525
 
-Close #NFDATA
+Case 2000
-GoTo END_SPC
+If H - QCSP < 1080 Then M3 = H - QCSP - 530
 If H - QCSP > 1180 Then M3 = (H - QCSP) / 2 - 40
 If (H - QCSP >= 1080 And H - QCSP <= 1180) Then M3 = 550
-Case "T02"
+
-NFDATA = FreeFile
+Case 2050
-Open NF_SP For Input As #NFDATA
+If H - QCSP < 1105 Then M3 = H - QCSP - 530
-Line Input #NFDATA, ST_COD
+If H - QCSP > 1230 Then M3 = (H - QCSP) / 2 - 40
-Line Input #NFDATA, VOID_ROW
+If (H - QCSP >= 1105 And H - QCSP <= 1230) Then M3 = 575
-Line Input #NFDATA, lS
+
-Line Input #NFDATA, HS
+Case 2100
-Line Input #NFDATA, QS
+If H - QCSP < 1130 Then M3 = H - QCSP - 530
-Line Input #NFDATA, DIAM
+If H - QCSP > 1280 Then M3 = (H - QCSP) / 2 - 40
-Line Input #NFDATA, DISTF
+If (H - QCSP >= 1130 And H - QCSP <= 1280) Then M3 = 600
-Close #NFDATA
+
-lS = Val(lS)
+
-HS = Val(HS)
+MsgBox "ERRORE VALORE LH " & ACT_MOD, vbCritical
-QS = Val(QS) + OFST
+
-DIAM = Val(DIAM)
+
-DISTF = Val(DISTF)
+
-If LM > 300 Then RCC = 60 Else RCC = LM / 2
+
-Y = MR_Y(FA + RCC, SVIL, SDX)
+R01 = ""
-RS1 = T_RECT2(H - QS - HS / 2, Y, HS, lS)
+R02 = ""
-RS2 = T_CIRC(H - QS - HS / 2 + DISTF / 2, Y, DIAM)
+
-RS3 = T_CIRC(H - QS - HS / 2 - DISTF / 2, Y, DIAM)
+'************************************************
-SPC_PULS = RS1 & RS2 & RS3
+
-QCSP = H - QS - HS / 2
+R03 = R03 & T_RECT1(-SCS, M2, -SCS, 26.6)
-GoTo END_SPC
+R03 = R03 & T_RECT1(-SCS, M2, L - 16.6, L + SCS)
 R03 = R03 & T_RECT1(H - 70, H + SCS, L - 16.6, L + SCS)
 
 R03 = R03 & T_RECT1(H - 345, H - 290, L - 17.5, L - 12.5)
-Case "T03"
+R03 = R03 & T_RECT1(H - (345 + M3), H - (290 + M3), L - 17.5, L - 12.5)
-NFDATA = FreeFile
+If CD_SP = "50522" Or CD_SP = "50523" Or CD_SP = "50524" Then
-Open NF_SP For Input As #NFDATA
+R03 = R03 & T_RECT1(H - (345 + M3 + M10), H - (290 + M3 + M10), L - 17.5, L - 12.5)
-Line Input #NFDATA, ST_COD
+
-Line Input #NFDATA, VOID_ROW
+R03 = R03 & T_RECT1(H - (345 + 2 * M3), H - (290 + 2 * M3), L - 17.5, L - 12.5)
-Line Input #NFDATA, lS
+
-Line Input #NFDATA, HS
+R03 = R03 & T_RECT1(M2 + M16, M2 + 75, L - 17.5, L - 12.5)
-Line Input #NFDATA, QS
+
-Line Input #NFDATA, AI
+R03 = R03 & T_SLOT(H - 25, L - (DF - 18 + 15 - 2.4), 8, 5, 90)
-Line Input #NFDATA, LI
+R03 = R03 & T_SLOT(H - 55, L - (DF - 18 + 15 - 2.4), 8, 5, 90)
-Close #NFDATA
+
-lS = Val(lS)
+'R03 = R03 & T_CIRC(20, L - (DF / 2 + 15 - 2.4), 7.2)
-HS = Val(HS)
+'R03 = R03 & T_CIRC(20 + M1, L - (DF / 2 + 15 - 2.4), 7.2)
-QS = Val(QS) + OFST
+'R03 = R03 & T_CIRC(20, DF / 2 + 25 - 2.4, 7.2)
-AI = Val(AI)
+'R03 = R03 & T_CIRC(20 + M1, DF / 2 + 25 - 2.4, 7.2)
-LI = Val(LI)
+R03 = R03 & T_CIRC(M13, L - (DF / 2 + 15 - 2.4), 7.2)
-If LM > 300 Then RCC = 60 Else RCC = LM / 2
+R03 = R03 & T_CIRC(M13 + M1, L - (DF / 2 + 15 - 2.4), 7.2)
-Y = MR_Y(FA + RCC, SVIL, SDX)
+R03 = R03 & T_CIRC(M13, DF / 2 + 25 - 2.4, 7.2)
-SVP = 4 'SOVRAPPOSIZIONE SPACCHI LATERALI
+R03 = R03 & T_CIRC(M13 + M1, DF / 2 + 25 - 2.4, 7.2)
-RS1 = T_RECT2(H - QS - HS / 2, Y, HS, lS)
+
-RS2 = T_RECT2(H - QS + (AI - SVP) / 2, Y, AI + SVP, LI)
+If M14 > 0 Then
-RS3 = T_RECT2(H - QS - HS - (AI - SVP) / 2, Y, AI + SVP, LI)
+R03 = R03 & T_CIRC(M13 + M1 / 2, L - (DF / 2 + 25 - 2.4), 20.2)
-SPC_PULS = RS1 & RS2 & RS3
+
-QCSP = H - QS - HS / 2
+
-GoTo END_SPC
+
 R03 = R03 & T_SLOT(H - 25, 9.5, 8, 5, 90)
 R03 = R03 & T_SLOT(H - 55, 9.5, 8, 5, 90)
-Case "T04"
+R03 = R03 & T_CIRC(H - 283, 10, 8.5)
-NFDATA = FreeFile
+R03 = R03 & T_CIRC(H - (283 + 34), 10, 8.5)
-Open NF_SP For Input As #NFDATA
+R03 = R03 & T_CIRC(H - (283 + M3), 10, 8.5)
-Line Input #NFDATA, ST_COD
+R03 = R03 & T_CIRC(H - (283 + 34 + M3), 10, 8.5)
-Line Input #NFDATA, VOID_ROW
+If CD_SP = "50522" Or CD_SP = "50523" Or CD_SP = "50524" Then
-Line Input #NFDATA, QS
+R03 = R03 & T_CIRC(H - (283 + M3 + M10), 10, 8.5)
-Line Input #NFDATA, DIAM
+R03 = R03 & T_CIRC(H - (283 + 34 + M3 + M10), 10, 8.5)
-Close #NFDATA
+
-QS = Val(QS) + OFST
+R03 = R03 & T_CIRC(H - (283 + 2 * M3), 10, 8.5)
-DIAM = Val(DIAM)
+R03 = R03 & T_CIRC(H - (283 + 34 + 2 * M3), 10, 8.5)
-If LM > 300 Then RCC = 60 Else RCC = LM / 2
+
-Y = MR_Y(FA + RCC, SVIL, SDX)
+R03 = R03 & T_CIRC(M2 + M17 + 34, 10, 8.5)
-RS1 = T_CIRC(H - QS, Y, DIAM)
+R03 = R03 & T_CIRC(M2 + M17 + 34 - 34, 10, 8.5)
-SPC_PULS = RS1
+
-QCSP = H - QS
+If M6 > 0 Then R04 = T_CIRC(H - 1500, L - (15 + M6 - 2.4), 22) Else R04 = ""
-GoTo END_SPC
+
 'SMUSSI
 R05 = T_RAD(0 - OFSS, L - (15 + 4 - 2.4) + OFSS, 2)
 R05 = R05 & T_RAD(M2 - OFSS, L + OFSS, 2)
-Case "T05"
+R05 = R05 & T_RAD(0 - OFSS, 25 + 4 - 2.4 - OFSS, 3)
-NFDATA = FreeFile
+R05 = R05 & T_RAD(M2 - OFSS, 0 - OFSS, 3)
-Open NF_SP For Input As #NFDATA
+R05 = R05 & T_RAD(H - 70 + OFSS, L + OFSS, 1)
-Line Input #NFDATA, ST_COD
+R05 = R05 & T_RAD(H + OFSS, L - (15 + 4 - 2.4) + OFSS, 1)
-Line Input #NFDATA, VOID_ROW
+R05 = R05 & T_RAD(H + OFSS, 0 - OFSS, 4)
-Line Input #NFDATA, NS   'NUMERO SPACCHI
+
-NS = Val(NS)
+'Print #NF, T_BLQ(H - 1000, 5.65, H - 1000 - 5.65, 0, 0, 1)
-For KT = 1 To NS
+'Print #NF, T_BLQ(H - 1000 + 5.65, 0, H - 1000, 5.65, 1, 0)
-Line Input #NFDATA, lS
+R06 = T_SMUS(H - 1000, -0.2)
-Line Input #NFDATA, HS
+'Print #NF, T_CIRC(H - 1000, 0, 3.3)
-Line Input #NFDATA, RR
+
-Line Input #NFDATA, QS
+R11 = T_DATAMATRIX(ODP, H - 100 - 40, L - 15 - 4 - 17.5, "O")
-lS = Val(lS)
+
-HS = Val(HS)
+R12 = ""
-RR = Val(RR)
+If M7 > 0 Then
-QS = Val(QS) + OFST
+R12 = T_HEX(H - M7, L - (15 + 28.5 - 2.4), 11) & T_HEX(H - M7 - 859, L - (15 + 28.5 - 2.4), 11) & T_HEX(H - M7 - 859 - 398, L - (15 + 28.5 - 2.4), 11)
-If LM > 300 Then DS = 60 - lS / 2 Else DS = LM / 2 - lS / 2
+
-DD = RR * 2
+If M8 > 0 Then
-LSR = lS - DD
+R12 = R12 & T_HEX(H - M8 - 1257, L - (15 + 28.5 - 2.4), 11) & T_HEX(H - M8, L - (15 + 28.5 - 2.4), 11)
-HSR = HS - DD
+
-LL = HSR
+If M9 > 0 Then
-HH = lS
+R12 = R12 & T_HEX(H - M9, L - (15 + 28.5 - 2.4), 11)
-LUT = 10
+
-Y = MR_Y(FA + DS + lS / 2, SVIL, SDX)
+
-RS1 = T_RECT2(H - QS - HS / 2, Y, HSR, lS)
+
-RS2 = T_RECT2(H - QS - LUT / 2, Y, LUT, LSR)
+
-RS3 = T_RECT2(H - QS - HS + LUT / 2, Y, LUT, LSR)
+MsgBox "ERRORE VALORE VV " & ACT_MOD, vbCritical
-RS4 = T_CIRC(H - QS - RR, Y + lS / 2 - RR, DD)
+
-RS5 = T_CIRC(H - QS - RR, Y - lS / 2 + RR, DD)
+
-RS6 = T_CIRC(H - QS - HS + RR, Y + lS / 2 - RR, DD)
+fn = R01 & R02 & R03 & R04 & R05 & R06 & R11 & R12
-RS7 = T_CIRC(H - QS - HS + RR, Y - lS / 2 + RR, DD)
+
-SPC_PULS = SPC_PULS & RS2 & RS3 & RS1 & RS4 & RS5 & RS6 & RS7
+
-If QCSP = 0 Then QCSP = H - QS - HS / 2
+P1 = 250
-Next KT
+P2 = H - 400
-Close #NFDATA
+MVAL = 500
-GoTo END_SPC
+STRINGA = R000(NHD, NND, SPS, H, L, P1, P2, MVAL) & fn
 
 Call SAVE_SUB(NND, STRINGA)
-Case "T06"                     'SPACCHI OTIS
+
-NFDATA = FreeFile
+POSINTAB = def_posintab(NND)
-Open NF_SP For Input As #NFDATA
+Call CUT_END_S(H, L, "0", POSINTAB)
-Line Input #NFDATA, ST_COD
+Call FVTPT(3, NND, "")
-Line Input #NFDATA, VOID_ROW
+Call CUT_END_S(H, L, "B", POSINTAB)
-Line Input #NFDATA, NS   'NUMERO SPACCHI
+Call FVTPT(3, NND, "B")
-Line Input #NFDATA, TPS  'TIPO SPACCHI
+Call CUT_END_S(H, L, "C", POSINTAB)
-NS = Val(NS)
+Call FVTPT(3, NND, "C")
-For KT = 1 To NS
+
-Line Input #NFDATA, lS
+
-Line Input #NFDATA, HS
+End Sub
-Line Input #NFDATA, DMF  'DIAMETRO FORI
+
-Line Input #NFDATA, IX   'INTERASSE ORIZZONTALE FRA LA COPPIA DI FORI INF
+
-Line Input #NFDATA, QS   'QUOTA CENTRO SPACCO RETTANGOLARE
+
-Line Input #NFDATA, DYI  'DISTANZA VERTICALE DA CENTRO SPACCO RETTANGOLARE A COPPIA FORI INFERIORI
+Sub S_1007098D(ByVal NND As Integer)
-Line Input #NFDATA, DYS  'DISTANZA VERTICALE DA CENTRO SPACCO RETTANGOLARE FORO SUPERIORE
+ACT_MOD = "1007098"
-lS = Val(lS)
+
-HS = Val(HS)
+
-IX = Val(IX)
+
-QS = Val(QS) + OFST
+L = INPUT_NUM(NND, "L", L, ACT_MOD)
-DYI = Val(DYI)
+H = INPUT_NUM(NND, "H", H, ACT_MOD)
-DYS = Val(DYS)
+SPS = INPUT_NUM(NND, "SPS", SPS, ACT_MOD) / 10
-DMF = Val(DMF)
+'M1 = INPUT_NUM(NND, "M1", M1, ACT_MOD)
-If LM > 300 Then RCC = 60 Else RCC = LM / 2
+M2 = INPUT_NUM(NND, "M2", M2, ACT_MOD)
-Y = MR_Y(FA + RCC, SVIL, SDX)
+M3 = INPUT_NUM(NND, "M3", M3, ACT_MOD)
-'RS1 = T_RECT2(H - QS, Y, HS, lS)
+CD_SP = INPUT_NUM(NND, "SPC.", CD_SP, ACT_MOD)
-RS1 = T_SLOT(H - QS, Y, lS, HS, 90)
+VV = INPUT_STR(NND, "VER.", VV, ACT_MOD)
-RS2 = T_CIRC(H - QS + DYI, Y - IX / 2, DMF)
+BNB = INPUT_NUM(NND, "BNB", BNB, ACT_MOD)
-RS3 = T_CIRC(H - QS + DYI, Y + IX / 2, DMF)
+ODP = INFO_DAT(NND, 0, 5)
-RS4 = T_CIRC(H - QS - DYS, Y, DMF)
+
-SPC_PULS = SPC_PULS & RS1 & RS2 & RS3 & RS4
+VV = Replace(VV, "P", "")
-QCSP = H - QS - HS
+
-Next KT
+'If VV <> 1 And VV <> 2 Then MsgBox "ERRORE VERSIONE SU " & ACT_MOD, vbCritical
-GoTo END_SPC
+If VV > 4 Then MsgBox "ERRORE VERSIONE SU " & ACT_MOD, vbCritical
 
 
 SCS = 6
-Case "T07"                       'SPACCO RETTANGOLO CON 3+3 FORI SIMM. DIAM4.5
+
-NFDATA = FreeFile
+LH = H - 22
-Open NF_SP For Input As #NFDATA
+
-Line Input #NFDATA, ST_COD
+If CD_SP <> "0" Then
-Line Input #NFDATA, VOID_ROW
+
-Line Input #NFDATA, lS
+If QCSP <> 0 Then QCSP = H - QCSP
-Line Input #NFDATA, HS
+If QCSP = 0 Then QCSP = InputBox("INSERIRE QUOTA CENTRO SPACCO DA PAVIMENTO" & Chr(13) & "**USARE LA , E NON IL .**", "COMMESSA " & INFO_DAT(NND, 0, 2))
-Line Input #NFDATA, QS
+
-Line Input #NFDATA, M4
+
-Line Input #NFDATA, DISTF
+
-Close #NFDATA
+QCSP = Int(QCSP)
-DIAM = 4.5
+
-lS = Val(lS)
+Select Case LH
-HS = Val(HS)
+
-QS = Val(QS) + OFST
+Case 1900
-DIAM = Val(DIAM)
+If QCSP < 1030 Then M1 = QCSP - 530
-DISTF = Val(DISTF)
+If QCSP > 1080 Then M1 = QCSP / 2 - 40
-If LM > 300 Then RCC = 60 Else RCC = LM / 2
+If (QCSP >= 1030 And QCSP <= 1080) Then M1 = 500
-Y = MR_Y(FA + RCC, SVIL, SDX)
+If QCSP = 0 Then M1 = 500
-RS1 = T_RECT2(H - QS - HS / 2, Y, HS, lS)
+
-RS2 = T_CIRC(H - QS - HS / 2 + DISTF / 2, Y, DIAM)
+Case 1950
-RS3 = T_CIRC(H - QS - HS / 2 + DISTF / 2, Y + M4 / 2, DIAM)
+If QCSP < 1055 Then M1 = QCSP - 530
-RS4 = T_CIRC(H - QS - HS / 2 + DISTF / 2, Y - M4 / 2, DIAM)
+If QCSP > 1130 Then M1 = QCSP / 2 - 40
-RS5 = T_CIRC(H - QS - HS / 2 - DISTF / 2, Y, DIAM)
+If (QCSP >= 1055 And QCSP <= 1130) Then M1 = 525
-RS6 = T_CIRC(H - QS - HS / 2 - DISTF / 2, Y + M4 / 2, DIAM)
+If QCSP = 0 Then M1 = 525
-RS7 = T_CIRC(H - QS - HS / 2 - DISTF / 2, Y - M4 / 2, DIAM)
+
-SPC_PULS = RS1 & RS2 & RS3 & RS4 & RS5 & RS6 & RS7
+Case 2000
-QCSP = H - QS - HS / 2
+If QCSP < 1080 Then M1 = QCSP - 530
-GoTo END_SPC
+If QCSP > 1180 Then M1 = QCSP / 2 - 40
 If (QCSP >= 1080 And QCSP <= 1180) Then M1 = 550
 If QCSP = 0 Then M1 = 550
-Case "T08"                       'SPACCO SPAGNA OTIS COPPIA FORI + ASOLA + FORO SINGOLO
+
-NFDATA = FreeFile
+Case 2050
-Open NF_SP For Input As #NFDATA
+If QCSP < 1105 Then M1 = QCSP - 530
-Line Input #NFDATA, ST_COD
+If QCSP > 1230 Then M1 = QCSP / 2 - 40
-MsgBox "CONTROLLARE SPACCO " & ST_COD
+If (QCSP >= 1105 And QCSP <= 1230) Then M1 = 575
-If COD_SP <> "50390" Then MsgBox "ATTENZIONE POSSIBILE CHE IL PEZZO CON SPACCO " & COD_SP & " DEBBA PASSARE PCA, CONTROLLARE!"
+If QCSP = 0 Then M1 = 575
-Line Input #NFDATA, VOID_ROW
+
-Line Input #NFDATA, NS   'NUMERO SPACCHI
+Case 2100
-NS = Val(NS)
+If QCSP < 1130 Then M1 = QCSP - 530
-For KT = 1 To NS
+If QCSP > 1280 Then M1 = QCSP / 2 - 40
-Line Input #NFDATA, Q_AS
+If (QCSP >= 1130 And QCSP <= 1280) Then M1 = 600
-Line Input #NFDATA, LAR_AS
+If QCSP = 0 Then M1 = 600
-Line Input #NFDATA, ALT_AS
+
-Line Input #NFDATA, q_cf
+
-Line Input #NFDATA, INT_FOR
+MsgBox "ERRORE VALORE LH " & ACT_MOD, vbCritical
-Line Input #NFDATA, DIM_FORI
+
-Line Input #NFDATA, q_f
+
-Line Input #NFDATA, DIM_FORO
+
 If CD_SP = "W50522" Or CD_SP = "W50523" Or CD_SP = "W50524" Then MsgBox ("SPACCHI ORONA, CONTROLLARE FORATURA SU LATO BATTUTA " & ACT_MOD)
-Q_AS = Val(Q_AS)
+
-LAR_AS = Val(LAR_AS)
+
-ALT_AS = Val(ALT_AS)
+Select Case VV
-q_cf = Val(q_cf)
+Case 2, 4
-DIM_FORI = Val(DIM_FORI)
+
-q_f = Val(q_f)
+
-DIM_FORO = Val(DIM_FORO)
+'R01 = T_CIRC(25, L - 10 - 1.5, 12) & T_CIRC(25, L - 10 + 1.5, 12) & T_CIRC(25, L - 10, 12)
 'R01 = R01 & T_CIRC(25 + 30, L - 10 - 1.5, 12) & T_CIRC(25 + 30, L - 10 + 1.5, 12) & T_CIRC(25 + 30, L - 10, 12)
-Y = MR_Y(FA + LM / 2, SVIL, SDX)
+R01 = T_RECT1(19, 19 + 22, L - 27 + 6, L - 27 + 6 + 17) & T_RECT1(19 + 22 + 8, 19 + 22 + 8 + 22, L - 27 + 6, L - 27 + 6 + 17)
-RS1 = T_CIRC(H - q_f, Y, DIM_FORO)
+
-RS2 = T_CIRC(H - Q_AS, Y - LAR_AS / 2 + 3.5, ALT_AS)
+
-RS3 = T_CIRC(H - Q_AS, Y + LAR_AS / 2 - 3.5, ALT_AS)
+
-RS4 = T_RECT2(H - Q_AS, Y, ALT_AS, LAR_AS - ALT_AS)
+R02 = T_SLOT(283, L - 12, 15, 5, 90)
-RS5 = T_CIRC(H - q_cf, Y - INT_FOR / 2, DIM_FORI)
+R02 = R02 & T_SLOT(283 + 34, L - 12, 15, 5, 90)
-If KT = NS Then RS6 = T_CIRC(H - q_cf, Y + INT_FOR / 2, DIM_FORI) Else RS6 = T_CIRC(H - q_cf, Y + INT_FOR / 2, DIM_FORI)
+R02 = R02 & T_SLOT(283 + M1, L - 12, 15, 5, 90)
-SPC_PULS = SPC_PULS & RS1 & RS2 & RS3 & RS4 & RS5 & RS6
+R02 = R02 & T_SLOT(283 + 34 + M1, L - 12, 15, 5, 90)
-QCSP = H - (q_cf + (q_f - q_cf) / 2)
+R02 = R02 & T_SLOT(283 + (2 * M1), L - 12, 15, 5, 90)
 R02 = R02 & T_SLOT(283 + 34 + (2 * M1), L - 12, 15, 5, 90)
-Next KT
+'Print #NF, T_SLOT(283 + (3 * M1), L - 10, 10, 5, 90)        ' se necessario attivare la lavorazione
-Close #NFDATA
+'Print #NF, T_SLOT(283 + 34 + (3 * M1), L - 10, 10, 5, 90)   ' se necessario attivare la lavorazione
-GoTo END_SPC
+R02 = R02 & T_SLOT(H - 99, L - 12, 15, 5, 90)
 R02 = R02 & T_SLOT(H - 99 + 34, L - 12, 15, 5, 90)
 
 If M2 <> 0 Or M3 <> 0 Then
 R03 = T_CIRC(283 + 34 + M2, L - 12, 12)
 R03 = R03 & T_CIRC(283 + 34 + M2 + M3, L - 12, 12)
 R03 = R03 & T_CIRC(283 + M1 + 34 + M2, L - 12, 12)
 R03 = R03 & T_CIRC(283 + M1 + 34 + M2 + M3, L - 12, 12)
-SPC_INSERT:
+R03 = R03 & T_CIRC(283 + 2 * M1 + 34 + M2, L - 12, 12)
 R03 = R03 & T_CIRC(283 + 2 * M1 + 34 + M2 + M3, L - 12, 12)
-'******************************************************
+
-If InStr(1, COD_SP, "999") > 0 And SPC_R_OLD <> "" Then 'RIPETERE LO SPACCO PRECEDENTE
+R03 = ""
-SPC_OLD = MsgBox("VUOI INSERIRE LO SPACCO PRECEDENTE?", vbYesNo)
+
-If SPC_OLD = vbYes Then
+
-SPC_R = SPC_R_OLD
+R04 = T_RECT1(H - 22, H + 3, L - 20 - 27 + 3.5, L - 20)
-QCSP = QCSP_OLD
+R04 = R04 & T_RECT1(H - 22, H - 3.5, L - 20 - 27, L - 20 - 27 + 10)
-SPC_PULS = SPC_R
+
-GoTo END_SPC
+R05 = T_DATAMATRIX(ODP, 55 + 15 + 10, L - 25 + 3 + 1.5 + 0.5, "O")
 
 
-'******************************************************
+Case 1, 3
 
-CUR_COM = CMM
+R04 = T_RECT1(-3, 22, L - 20 - 27 + 3.5, L - 20)
-UserForm2.Show
+R04 = R04 & T_RECT1(3.5, 22, L - 20 - 27, L - 20 - 27 + 10)
 
-If PULS_TYPE = 0 Then Exit Function
+'R01 = T_CIRC(H - 25, L - 10 - 1.5, 12) & T_CIRC(H - 25, L - 10 + 1.5, 12) & T_CIRC(H - 25, L - 10, 12)
-CNTR = Empty
+'R01 = R01 & T_CIRC(H - 25 - 30, L - 10 - 1.5, 12) & T_CIRC(H - 25 - 30, L - 10 + 1.5, 12) & T_CIRC(H - 25 - 30, L - 10, 12)
-RSN = MsgBox("SPACCO CENTRATO SU MONTANTE?", vbYesNo)
+R01 = T_RECT1(H - 19, H - (19 + 22), L - 27 + 6, L - 27 + 6 + 17) & T_RECT1(H - (19 + 22 + 8), H - (19 + 22 + 8 + 22), L - 27 + 6, L - 27 + 6 + 17)
-Select Case RSN
+
-Case vbYes
+
-CNTR = 1
+R02 = T_SLOT(99 - 34, L - 12, 15, 5, 90)
-Case vbNo
+R02 = R02 & T_SLOT(99, L - 12, 15, 5, 90)
-CNTR = 0
+'Print #NF, T_SLOT(H - 283 - 34 - 3 * M1, L - 10, 10, 5, 90)   ' se necessario attivare la lavorazione
 'Print #NF, T_SLOT(H - 283 - 3 * M1, L - 10, 10, 5, 90)        ' se necessario attivare la lavorazione
 R02 = R02 & T_SLOT(H - 283 - 34 - 2 * M1, L - 12, 15, 5, 90)
 R02 = R02 & T_SLOT(H - 283 - 2 * M1, L - 12, 15, 5, 90)
 R02 = R02 & T_SLOT(H - 283 - 34 - M1, L - 12, 15, 5, 90)
-'*****************************************PER REPORT SPACCHI
+R02 = R02 & T_SLOT(H - 283 - M1, L - 12, 15, 5, 90)
-RP = RP + 1
+R02 = R02 & T_SLOT(H - 283, L - 12, 15, 5, 90)
-RPT_SPC(RP, 1, 1) = INFO_DAT(CMM, 0, 2)
+R02 = R02 & T_SLOT(H - 283 - 34, L - 12, 15, 5, 90)
-RPT_SPC(RP, 1, 2) = "COMMESSA"
+
-If CNTR = 1 Then RPT_SPC(RP, 2, 1) = "SI" Else RPT_SPC(RP, 2, 1) = "NO"
+
-RPT_SPC(RP, 2, 2) = "SPACCO CENTRATO SU MONTANTE?"
+
-RP2 = 2
+
-'***********************************************************
+
 If M2 <> 0 Or M3 <> 0 Then
 R03 = T_CIRC(H - 283 - 34 - M2, L - 12, 12)
 R03 = R03 & T_CIRC(H - 283 - 34 - M2 - M3, L - 12, 12)
 R03 = R03 & T_CIRC(H - 283 - M1 - 34 - M2, L - 12, 12)
-Select Case PULS_TYPE
+R03 = R03 & T_CIRC(H - 283 - M1 - 34 - M2 - M3, L - 12, 12)
 R03 = R03 & T_CIRC(H - 283 - 2 * M1 - 34 - M2, L - 12, 12)
-Case 1       'SPACCO RETTANGOLARE SINGOLO
+R03 = R03 & T_CIRC(H - 283 - 2 * M1 - 34 - M2 - M3, L - 12, 12)
-QS = Val(INPUT_VAL(1, "QUOTA PARTENZA SPACCO", QS, "")) + OFST
+
-HS = INPUT_VAL(1, "ALTEZZA SPACCO", HS, "")
+
-lS = INPUT_VAL(1, "LARGHEZZA SPACCO", lS, "")
+R05 = T_DATAMATRIX(ODP, H - 55 - 15 - 10 - 45, L - 25 + 3 + 1.5 + 0.5, "O")
-Select Case CNTR
+
-Case 0
+
-DS = INPUT_VAL(1, "DISTANZA SPACCO DA APERTURA", DS, "")
+MsgBox "ERRORE VALORE VV " & ACT_MOD, vbCritical
-Case 1
+
-DS = (LM - lS) / 2
+
 R06 = T_RAD(0, 0, 3) & T_RAD(H, 0, 4) & T_RAD(0, L, 2) & T_RAD(H, L, 1)
-MsgBox "ERRORE COORDINATA ORIZZONTALE SPACCO", vbCritical
+
-Exit Function
+
 fn = R01 & R02 & R03 & R04 & R05 & R06
 
-Y = MR_Y(FA + DS + lS / 2, SVIL, SDX)
+P1 = 250
-RS1 = T_RECT2(H - QS - HS / 2, Y, HS, lS)
+P2 = H - 400
-SPC_R = RS1
+MVAL = 500
-QCSP = H - QS - HS / 2
+STRINGA = R000(NHD, NND, SPS, H, L, P1, P2, MVAL) & fn
 
-Case 2      'SPACCO RETTANGOLARE SINGOLO CON COPPIA DI FORI CENTRATI
+Call SAVE_SUB(NND, STRINGA)
-QS = Val(INPUT_VAL(1, "QUOTA PARTENZA SPACCO", QS, "")) + OFST
+
-HS = INPUT_VAL(1, "ALTEZZA SPACCO", HS, "")
+POSINTAB = def_posintab(NND)
-lS = INPUT_VAL(1, "LARGHEZZA SPACCO", lS, "")
+Call CUT_END_S(H, L, "0", POSINTAB)
 Call FVTPT(3, NND, "")
-Select Case CNTR
+Call CUT_END_S(H, L, "B", POSINTAB)
-Case 0
+Call FVTPT(3, NND, "B")
-DS = INPUT_VAL(1, "DISTANZA SPACCO DA APERTURA", DS, "")
+Call CUT_END_S(H, L, "C", POSINTAB)
-Case 1
+Call FVTPT(3, NND, "C")
-DS = (LM - lS) / 2
+
 
-MsgBox "ERRORE COORDINATA ORIZZONTALE SPACCO", vbCritical
+End Sub
-Exit Function
+
 
 Sub S_1010304C(ByVal NND As Integer)
 ACT_MOD = "1010304"
-KF = INPUT_VAL(1, "INTERASSE VERTICALE FORI", KF, "")
+
-DF = INPUT_VAL(1, "DIAMETRO FORI", DF, "")
+
 
-Y = MR_Y(FA + DS + lS / 2, SVIL, SDX)
+L = INPUT_NUM(NND, "L", L, ACT_MOD)
 H = INPUT_NUM(NND, "H", H, ACT_MOD)
-RS1 = T_RECT2(H - QS - HS / 2, Y, HS, lS)
+SPS = INPUT_NUM(NND, "SPS", SPS, ACT_MOD) / 10
-RS2 = T_CIRC(H - QS - HS / 2 - KF / 2, Y, DF)
+'M1 = INPUT_NUM(NND, "M1", M1, ACT_MOD)
-RS3 = T_CIRC(H - QS - HS / 2 + KF / 2, Y, DF)
+M2 = INPUT_NUM(NND, "M2", M2, ACT_MOD)
-SPC_R = RS1 & RS2 & RS3
+M3 = INPUT_NUM(NND, "M3", M3, ACT_MOD)
-QCSP = H - QS - HS / 2
+CD_SP = INPUT_NUM(NND, "SPC.", CD_SP, ACT_MOD)
 VV = INPUT_STR(NND, "VER.", VV, ACT_MOD)
-Case 3
+BNB = INPUT_NUM(NND, "BNB", BNB, ACT_MOD)
-QS = Val(INPUT_VAL(1, "QUOTA PARTENZA SPACCO", QS, "")) + OFST
+ODP = INFO_DAT(NND, 0, 5)
-HS = INPUT_VAL(1, "ALTEZZA SPACCO", HS, "")
+
-lS = INPUT_VAL(1, "LARGHEZZA SPACCO", lS, "")
+VV = Replace(VV, "P", "")
-LI = INPUT_VAL(1, "LARGHEZZA INCAVO", LI, "")
+
 
-Select Case CNTR
+If VV > 4 Then MsgBox "ERRORE VERSIONE SU " & ACT_MOD, vbCritical
-Case 0
+
-DS = INPUT_VAL(1, "DISTANZA SPACCO DA APERTURA", DS, "")
+
-Case 1
+SCS = 6
-DS = (LM - lS) / 2
+
 
-MsgBox "ERRORE COORDINATA ORIZZONTALE SPACCO", vbCritical
+LH = H - 22
-Exit Function
+
 If CD_SP <> "0" Then
 QCSP = DEFINE_QCSP(COD_SPC, NND, H)
-Y = MR_Y(FA + DS + lS / 2, SVIL, SDX)
+If QCSP <> 0 Then QCSP = H - QCSP
-RS1 = T_RECT2(H - QS - HS - 1, Y, 10, LI)
+If QCSP = 0 Then QCSP = InputBox("INSERIRE QUOTA CENTRO SPACCO DA PAVIMENTO" & Chr(13) & "**USARE LA , E NON IL .**", "COMMESSA " & INFO_DAT(NND, 0, 2))
-RS2 = T_RECT2(H - QS + 1, Y, 10, LI)
+
-RS3 = T_RECT2(H - QS - HS / 2, Y, HS, lS)
+
-SPC_R = RS1 & RS2 & RS3
+
-QCSP = H - QS - HS / 2
+QCSP = Int(QCSP)
 
 
-Case 4      'SPACCO RETTANGOLO RACCORDATO
+Select Case LH
-QS = Val(INPUT_VAL(1, "QUOTA PARTENZA SPACCO", QS, "")) + OFST
+
-HS = INPUT_VAL(1, "ALTEZZA SPACCO", lS, "")
+Case 1900
-lS = INPUT_VAL(1, "LARGHEZZA SPACCO", lS, "")
+If QCSP < 1030 Then M1 = QCSP - 530
 If QCSP > 1080 Then M1 = QCSP / 2 - 40
-Select Case CNTR
+If (QCSP >= 1030 And QCSP <= 1080) Then M1 = 500
-Case 0
+If QCSP = 0 Then M1 = 500
-DS = INPUT_VAL(1, "DISTANZA SPACCO DA APERTURA", DS, "")
+
-Case 1
+Case 1950
-DS = (LM - lS) / 2
+If QCSP < 1055 Then M1 = QCSP - 530
 If QCSP > 1130 Then M1 = QCSP / 2 - 40
-MsgBox "ERRORE COORDINATA ORIZZONTALE SPACCO", vbCritical
+If (QCSP >= 1055 And QCSP <= 1130) Then M1 = 525
-Exit Function
+If QCSP = 0 Then M1 = 525
 
 Case 2000
-RR = INPUT_VAL(1, "RAGGIO RACCORDI", RR, "")
+If QCSP < 1080 Then M1 = QCSP - 530
 If QCSP > 1180 Then M1 = QCSP / 2 - 40
-DD = 2 * RR
+If (QCSP >= 1080 And QCSP <= 1180) Then M1 = 550
-LSR = lS - DD
+If QCSP = 0 Then M1 = 550
-HSR = HS - DD
+
 Case 2050
-Select Case HSR - LSR
+If QCSP < 1105 Then M1 = QCSP - 530
-Case Is > 0
+If QCSP > 1230 Then M1 = QCSP / 2 - 40
-LL = HS
+If (QCSP >= 1105 And QCSP <= 1230) Then M1 = 575
-HH = LSR
+If QCSP = 0 Then M1 = 575
-Case Is <= 0
+
-LL = HSR
+Case 2100
-HH = lS
+If QCSP < 1130 Then M1 = QCSP - 530
 If QCSP > 1280 Then M1 = QCSP / 2 - 40
 If (QCSP >= 1130 And QCSP <= 1280) Then M1 = 600
-RS1 = T_RECT2(H - QS - HS / 2, MR_Y(FA + DS + lS / 2, SVIL, SDX), HH, LL)
+If QCSP = 0 Then M1 = 600
-LUT = 10
+
 Case Else
-Y = MR_Y(FA + DS + lS / 2, SVIL, SDX)
+MsgBox "ERRORE VALORE LH " & ACT_MOD, vbCritical
-Select Case HSR - LSR
+
 
-Case Is > 0
+
-RS1 = T_RECT2(H - QS - HS / 2, Y, HS, LSR)
+
-RS2 = T_RECT2(H - QS - HS / 2, Y + lS / 2 - LUT / 2, HSR, LUT)
+If CD_SP = "W50522" Or CD_SP = "W50523" Or CD_SP = "W50524" Then MsgBox ("SPACCHI ORONA, CONTROLLARE FORATURA SU LATO BATTUTA " & ACT_MOD)
-RS3 = T_RECT2(H - QS - HS / 2, Y - lS / 2 + LUT / 2, HSR, LUT)
+
-Case Is <= 0
+
-RS1 = T_RECT2(H - QS - HS / 2, Y, HSR, lS)
+Select Case VV
-RS2 = T_RECT2(H - QS - LUT / 2, Y, LUT, LSR)
+Case 2, 4
-RS3 = T_RECT2(H - QS - HS + LUT / 2, Y, LUT, LSR)
+
 ''R01 = T_CIRC(25, L - 10 - 1.5, 12) & T_CIRC(25, L - 10 + 1.5, 12) & T_CIRC(25, L - 10, 12)  'T_RECT2(25, L - 10, 12, 15)
 ''R01 = R01 & T_CIRC(25 + 30, L - 10 - 1.5, 12) & T_CIRC(25 + 30, L - 10 + 1.5, 12) & T_CIRC(25 + 30, L - 10, 12) 'T_RECT2(25 + 30, L - 10, 12, 15)
-RS4 = T_CIRC(H - QS - RR, Y + lS / 2 - RR, DD)
+R01 = T_RECT1(19, 19 + 22, L - 21, L - 4) & T_RECT1(19 + 22 + 8, 19 + 22 + 8 + 22, L - 21, L - 4)
-RS5 = T_CIRC(H - QS - RR, Y - lS / 2 + RR, DD)
+
-RS6 = T_CIRC(H - QS - HS + RR, Y + lS / 2 - RR, DD)
+
-RS7 = T_CIRC(H - QS - HS + RR, Y - lS / 2 + RR, DD)
+R01 = R01 & T_RECT1(H - 22, H + 0.6, L - 43.3, L - 10)
-SPC_R = RS4 & RS5 & RS6 & RS7 & RS1 & RS2 & RS3
+R01 = R01 & T_RECT1(H - 22, H - 3.5, L - 47.3, L - 47.3 + 10)
-QCSP = H - QS - HS / 2
+
 R01 = R01 & T_SLOT(283, L - 12, 15, 5, 90)
-SSPP = MsgBox("VUOI INSERIRE TONDI IN ALTO E IN BASSO?", vbYesNo)
+R01 = R01 & T_SLOT(283 + 34, L - 12, 15, 5, 90)
-If SSPP = 6 Then
+R01 = R01 & T_SLOT(283 + M1, L - 12, 15, 5, 90)
-DDM = INPUT_VAL(1, "DISTANZA FORO DA CENTRO SPACCO", DDM, "")
+R01 = R01 & T_SLOT(283 + 34 + M1, L - 12, 15, 5, 90)
-DDM2 = INPUT_VAL(1, "DIAMTERO FORI", DDM2, "")
+R01 = R01 & T_SLOT(283 + (2 * M1), L - 12, 15, 5, 90)
 R01 = R01 & T_SLOT(283 + 34 + (2 * M1), L - 12, 15, 5, 90)
-RS8 = T_CIRC(H - QS - HS / 2 + DDM, Y, DDM2)
+'Print #NF, T_SLOT(283 + (3 * M1), L - 10, 10, 5, 90)        ' se necessario attivare la lavorazione
-RS9 = T_CIRC(H - QS - HS / 2 - DDM, Y, DDM2)
+'Print #NF, T_SLOT(283 + 34 + (3 * M1), L - 10, 10, 5, 90)   ' se necessario attivare la lavorazione
-SPC_R = SPC_R & RS8 & RS9
+R01 = R01 & T_SLOT(H - 99, L - 12, 15, 5, 90)
 R01 = R01 & T_SLOT(H - 99 + 34, L - 12, 15, 5, 90)
 
 
-Case 5      'SPACCO STAR 30_5
+If M2 <> 0 Or M3 <> 0 Then
 R02 = T_CIRC(283 + 34 + M2, L - 12, 12)
-QS = 1000
+R02 = R02 & T_CIRC(283 + 34 + M2 + M3, L - 12, 12)
-QS = Val(INPUT_VAL(1, "QUOTA CENTRO SPACCO DA TERRA", QS, "")) + OFST
+R02 = R02 & T_CIRC(283 + M1 + 34 + M2, L - 12, 12)
-DD = InputBox("DIAMETRO FORO")
+R02 = R02 & T_CIRC(283 + M1 + 34 + M2 + M3, L - 12, 12)
-DD = Val(DD)
+R02 = R02 & T_CIRC(283 + 2 * M1 + 34 + M2, L - 12, 12)
-'**********************REPORT SPACCHI
+R02 = R02 & T_CIRC(283 + 2 * M1 + 34 + M2 + M3, L - 12, 12)
-RP2 = RP2 + 1
+
-RPT_SPC(RP, RP2, 1) = DD
+R02 = ""
-RPT_SPC(RP, RP2, 2) = "DIAMETRO FORO"
+
-'************************************
+
-Select Case CNTR
+
-Case 0
+R05 = T_DATAMATRIX(ODP, 55 + 15 + 10, L - 25 + 3 + 2, "O")
-dc = INPUT_VAL(1, "DISTANZA CENTRO SPACCO DA APERTURA", dc, "")
+
-Case 1
+
-dc = LM / 2
+Case 1, 3
 
-MsgBox "ERRORE COORDINATA ORIZZONTALE SPACCO", vbCritical
+
-Exit Function
+R01 = T_RECT1(H - 19, H - (19 + 22), L - 21, L - 4) & T_RECT1(H - (19 + 22 + 8), H - (19 + 22 + 8 + 22), L - 21, L - 4)
 
 R01 = R01 & T_RECT1(-0.6, 22, L - 43.3, L - 10)
-X = H - QS
+R01 = R01 & T_RECT1(3.5, 22, L - 47.3, L - 47.3 + 10)
-Y = MR_Y(FA + dc, SVIL, SDX)
+
 'R01 = R01 & T_CIRC(H - 25, L - 10 - 1.5, 12) & T_CIRC(H - 25, L - 10 + 1.5, 12) & T_CIRC(H - 25, L - 10, 12)
-'SPC_R = T_CIRC(X, Y, DD)
+'R01 = R01 & T_CIRC(H - 25 - 30, L - 10 - 1.5, 12) & T_CIRC(H - 25 - 30, L - 10 + 1.5, 12) & T_CIRC(H - 25 - 30, L - 10, 12)
-SSPP = MsgBox("VUOI LE SPIZZE SULLO SPACCO TONDO?", vbYesNo)
+
-If SSPP = 6 Then
+R01 = R01 & T_SLOT(99 - 34, L - 12, 15, 5, 90)
-'MsgBox ("CONTROLLARE SPACCO STAR")
+R01 = R01 & T_SLOT(99, L - 12, 15, 5, 90)
-SPC1 = T_CIRC(X, Y, DD)
+'Print #NF, T_SLOT(H - 283 - 34 - 3 * M1, L - 10, 10, 5, 90)   ' se necessario attivare la lavorazione
-RDR = DD / 2 - 4 + 1.9 - 0.5
+'Print #NF, T_SLOT(H - 283 - 3 * M1, L - 10, 10, 5, 90)        ' se necessario attivare la lavorazione
-SPC2 = T_SPECIAL(X + RDR, Y, "RAG-3", 0) & T_SPECIAL(X - RDR, Y, "RAG-3", 0) & T_SPECIAL(X, Y + RDR, "RAG-3", 0) & T_SPECIAL(X, Y - RDR, "RAG-3", 0)
+R01 = R01 & T_SLOT(H - 283 - 34 - 2 * M1, L - 12, 15, 5, 90)
-SPC_R = SPC1 & SPC2
+R01 = R01 & T_SLOT(H - 283 - 2 * M1, L - 12, 15, 5, 90)
 R01 = R01 & T_SLOT(H - 283 - 34 - M1, L - 12, 15, 5, 90)
-SPC_R = T_CIRC(X, Y, DD)
+R01 = R01 & T_SLOT(H - 283 - M1, L - 12, 15, 5, 90)
 R01 = R01 & T_SLOT(H - 283, L - 12, 15, 5, 90)
 R01 = R01 & T_SLOT(H - 283 - 34, L - 12, 15, 5, 90)
-QCSP = X
+
 
 If M2 <> 0 Or M3 <> 0 Then
-Case 6      'SPACCO RETTANGOLARE SINGOLO CON 2 COPPIE DI FORI SIMMETRICI
+R02 = T_CIRC(H - 283 - 34 - M2, L - 12, 12)
-QS = INPUT_VAL(1, "QUOTA PARTENZA SPACCO", QS, "")
+R02 = R02 & T_CIRC(H - 283 - 34 - M2 - M3, L - 12, 12)
-QS = QS '+ 2.5
+R02 = R02 & T_CIRC(H - 283 - M1 - 34 - M2, L - 12, 12)
-HS = INPUT_VAL(1, "ALTEZZA SPACCO", HS, "")
+R02 = R02 & T_CIRC(H - 283 - M1 - 34 - M2 - M3, L - 12, 12)
-lS = INPUT_VAL(1, "LARGHEZZA SPACCO", lS, "")
+R02 = R02 & T_CIRC(H - 283 - 2 * M1 - 34 - M2, L - 12, 12)
 R02 = R02 & T_CIRC(H - 283 - 2 * M1 - 34 - M2 - M3, L - 12, 12)
-Select Case CNTR
+
-Case 0
+R02 = ""
-DS = INPUT_VAL(1, "DISTANZA SPACCO DA APERTURA", DS, "")
+
-Case 1
+
-DS = (LM - lS) / 2
+
 R05 = T_DATAMATRIX(ODP, H - 55 - 15 - 45 - 10, L - 25 + 3 + 2, "O")
-MsgBox "ERRORE COORDINATA ORIZZONTALE SPACCO", vbCritical
+
-Exit Function
+
 MsgBox "ERRORE VALORE VV " & ACT_MOD, vbCritical
 End Select
-KF = INPUT_VAL(1, "INTERASSE VERTICALE FORI", KF, "")
+
-ORF = INPUT_VAL(1, "INTERASSE ORIZZONTALE FORI", ORF, "")
+
-DF = INPUT_VAL(1, "DIAMETRO FORI", DF, "")
+R06 = T_RAD(0, 0, 3) & T_RAD(0, L, 2) & T_RAD(H, 0, 4) & T_RAD(H, L, 1)
 
-Y = MR_Y(FA + DS + lS / 2, SVIL, SDX)
+fn = R01 & R02 & R05 & R06
-YOR1 = Y - ORF / 2
+P1 = 250
-YOR2 = Y + ORF / 2
+P2 = H - 400
 MVAL = 500
-RS1 = T_RECT2(H - QS - HS / 2, Y, HS, lS)
+STRINGA = R000(NHD, NND, SPS, H, L, P1, P2, MVAL) & fn
-RS2 = T_CIRC(H - QS - HS / 2 - KF / 2, YOR1, DF)
+
-RS3 = T_CIRC(H - QS - HS / 2 - KF / 2, YOR2, DF)
+Call SAVE_SUB(NND, STRINGA)
-RS4 = T_CIRC(H - QS - HS / 2 + KF / 2, YOR1, DF)
+
-RS5 = T_CIRC(H - QS - HS / 2 + KF / 2, YOR2, DF)
+POSINTAB = def_posintab(NND)
-SPC_R = RS1 & RS2 & RS3 & RS4 & RS5
+Call CUT_END_S(H, L, "0", POSINTAB)
-QCSP = H - QS - HS / 2
+Call FVTPT(3, NND, "")
-MsgBox ("CONTROLLARE SPACCO RETTANGOLARE SINGOLO CON 2 COPPIE DI FORI SIMMETRICI")
+Call CUT_END_S(H, L, "B", POSINTAB)
 Call FVTPT(3, NND, "B")
 Call CUT_END_S(H, L, "C", POSINTAB)
 Call FVTPT(3, NND, "C")
-MsgBox "ERRORE SU DATI SPACCO, NESSUNO SPACCO SARA' LAVORATO SUL PEZZO", vbCritical
+
-SPC_R = ""
+End Sub
 
 Sub S_1020668B(ByVal NND As Integer)
-SPC_PULS = SPC_PULS & SPC_R
+ACT_MOD = "1020668"
 CLAMP = 0
-RSN = MsgBox("INSERIRE ALTRO SPACCO?", vbYesNo Or vbDefaultButton2)
+
-Select Case RSN
+
-Case vbYes
+L = INPUT_NUM(NND, "L", L, ACT_MOD)
-SPC_PULS = SPC_PULS
+H = INPUT_NUM(NND, "H", H, ACT_MOD)
-GoTo SPC_INSERT
+SPS = INPUT_NUM(NND, "SPS", SPS, ACT_MOD) / 10
-Case vbNo
+M1 = INPUT_NUM(NND, "M1", M1, ACT_MOD)
 M2 = INPUT_NUM(NND, "M2", M2, ACT_MOD)
-END_SPC:
+M3 = INPUT_NUM(NND, "M3", M3, ACT_MOD)
-PULS_TYPE = Empty
+M4 = INPUT_NUM(NND, "M4", M4, ACT_MOD)
 M5 = INPUT_NUM(NND, "M5", M5, ACT_MOD)
 M6 = INPUT_NUM(NND, "M6", M6, ACT_MOD)
-'***********************************
+M7 = INPUT_NUM(NND, "M7", M7, ACT_MOD)
-If InStr(1, COD_SP, "999") > 0 Then  'RIPETERE LO SPACCO PRECEDENTE
+M8 = INPUT_NUM(NND, "M8", M8, ACT_MOD)
-SPC_R_OLD = SPC_R
+M9 = INPUT_NUM(NND, "M9", M9, ACT_MOD)
-QCSP_OLD = QCSP
+M10 = INPUT_NUM(NND, "M10", M10, ACT_MOD)
 M11 = INPUT_NUM(NND, "M11", M11, ACT_MOD)
-'***********************************
+M12 = INPUT_NUM(NND, "M12", M12, ACT_MOD)
 M13 = INPUT_NUM(NND, "M13", M13, ACT_MOD)
 M14 = INPUT_NUM(NND, "M14", M14, ACT_MOD)
-If QCSP <> 0 Then
+M15 = INPUT_NUM(NND, "M15", M15, ACT_MOD)
-MsgBox QCSP
+
 DF = INPUT_NUM(NND, "DF", DF, ACT_MOD)
-MsgBox "ATTENZIONE QUOTA CENTRO SPACCO NON DEFINITA", vbCritical
+
 SB = INPUT_NUM(NND, "SB", SB, ACT_MOD)
 LH = INPUT_NUM(NND, "LH", LH, ACT_MOD)
-End Function
+CD_SP = INPUT_NUM(NND, "SPC", CD_SP, ACT_MOD)
 VV = INPUT_STR(NND, "VER", VV, ACT_MOD)
-Function SPC_INDIC(ByVal CMM As String, ByVal CD_IN As Single, ByVal FA As Double, ByVal H As Double, ByVal SVIL As Double, ByVal HT As Double) As String
+BNB = INPUT_NUM(NND, "BNB", BNB, ACT_MOD)
 ODP = INFO_DAT(NND, 0, 5)
 
-'**************************************************************
+If Val(LH) = 0 Then
-SPC_INDIC = SPCi_CODIFY(CMM, CD_IN, FA, H, SVIL, HT)
+SP = M1 + 50
-If SPC_INDIC <> "" Then Exit Function
+LH = H - SP
-'**************************************************************
+
 
 
 
-SPC_INDIC = Empty
+VV = Replace(VV, "H", "")
-Spclist = FILELIST(SPC_FOLD, True, "*")
+VV = Val(VV)
 If VV > 8 Then MsgBox "ERRORE VERSIONE SU " & ACT_MOD, vbCritical
-IND_FOUND = 0
+
-TYCK = ""
+
-For i = 1 To UBound(Spclist)
+SCS = 6
-CDCK = Right(Spclist(i), InStr(1, StrReverse(Spclist(i)), "\", vbBinaryCompare) - 1)
+
-CDCK = Left(CDCK, InStr(1, CDCK, ".", vbBinaryCompare) - 1)
+
 sf = 1 * sf '+ 1 * SB
-If CDCK = CD_IN Then
+If sf = 0 Then
 sf = 1 * SB
-Select Case IND_FOUND
+MsgBox "ERRORE DATI SB-SF IN " & ACT_MOD
-Case 0
+
-IND_FOUND = 1
+
-NF_IN = Spclist(i)
+
-TYCK = Left(Spclist(i), Len(Spclist(i)) - InStr(1, StrReverse(Spclist(i)), "\", vbBinaryCompare))
+Select Case VV
-TYCK = Right(TYCK, InStr(1, StrReverse(TYCK), "\", vbBinaryCompare) - 1)
+Case 2, 4, 6, 8
 
-Case 1
+
-MsgBox "ERRORE SU MODULO INDICATORE"
+'**************************************SPACCO
 If CD_SP <> "" And CD_SP <> "0" Then
-MsgBox "ERRORE SU MODULO INDICATORE"
+R01 = SPC_PULS(NND, CD_SP, 25 + DF - 4.8, H, L, 2, sf, 0)
 
 If DF >= 40 Then M5 = DF - 25 Else M5 = 0
-Next i
+
 
 If CD_SP = "50522" Or CD_SP = "50522" Or CD_SP = "50522" Then
-If IND_FOUND = 0 And CD_IN <> "9999" Then MsgBox "SPACCO " & CD_IN & " NON TROVATO", vbExclamation
+R02 = T_CIRC(H - M14, L - 5.2, 5.5) & T_CIRC(H - M14 - 375.5, L - 5.2, 5.5)
 R02 = R02 & T_CIRC(H - M15, L - 5.2, 5.5) & T_CIRC(H - M15 - 275.5, L - 5.2, 5.5)
-Select Case TYCK
+R02 = R02 & T_SLOT(H - M14, 24.1, 8, 5, 90) & T_SLOT(H - M14, 24.1 + M5, 8, 5, 90)
 R02 = R02 & T_SLOT(H - M14 - 375.5, 24.1, 8, 5, 90) & T_SLOT(H - M14 - 375.5, 24.1 + M5, 8, 5, 90)
-Case "I02"
+R02 = R02 & T_SLOT(H - M15, 24.1, 8, 5, 90) & T_SLOT(H - M15, 24.1 + M5, 8, 5, 90)
-NFDATA = FreeFile
+R02 = R02 & T_SLOT(H - M15 - 275.5, 24.1, 8, 5, 90) & T_SLOT(H - M15 - 275.5, 24.1 + M5, 8, 5, 90)
-Open NF_IN For Input As #NFDATA
+
-Line Input #NFDATA, ST_COD
+
-Line Input #NFDATA, VOID_ROW
+R02 = T_CIRC(QCSP + 187.75, L - 5.2, 5.5)
-Line Input #NFDATA, lS
+R02 = R02 & T_CIRC(QCSP - 187.75, L - 5.2, 5.5)
-Line Input #NFDATA, HS
+R02 = R02 & T_SLOT(QCSP + 187.75, 24.1, 8, 5, 90)
-Line Input #NFDATA, QS
+R02 = R02 & T_SLOT(QCSP + 187.75, 24.1 + M5, 8, 5, 90)
-Line Input #NFDATA, DIAM
+R02 = R02 & T_SLOT(QCSP - 187.75, 24.1, 8, 5, 90)
-Line Input #NFDATA, DISTF
+R02 = R02 & T_SLOT(QCSP - 187.75, 24.1 + M5, 8, 5, 90)
-Close #NFDATA
+
 
-If QS = "C" Then QS = HT / 2 - Val(HS) / 2
+
 
-lS = Val(lS)
+
-HS = Val(HS)
+
-QS = Val(QS)
+MsgBox "M3=0"
-DIAM = Val(DIAM)
+Select Case LH
-DISTF = Val(DISTF)
+
 Case 1900
-Y = FA + QS + HS / 2
+If H - QCSP < 1030 Then M3 = H - QCSP - 530
 If H - QCSP > 1080 Then M3 = (H - QCSP) / 2 - 40
-RS1 = T_RECT2(Y, H / 2, HS, lS)
+If (H - QCSP >= 1030 And H - QCSP <= 1080) Then M3 = 500
-RS2 = T_CIRC(Y, H / 2 + DISTF / 2, DIAM)
+
-RS3 = T_CIRC(Y, H / 2 - DISTF / 2, DIAM)
+Case 1950
-SPC_R = RS1 & RS2 & RS3
+If H - QCSP < 1055 Then M3 = H - QCSP - 530
 If H - QCSP > 1130 Then M3 = (H - QCSP) / 2 - 40
-GoTo END_IND
+If (H - QCSP >= 1055 And H - QCSP <= 1130) Then M3 = 525
 
 Case 2000
 If H - QCSP < 1080 Then M3 = H - QCSP - 530
 If H - QCSP > 1180 Then M3 = (H - QCSP) / 2 - 40
-Case "I03"
+If (H - QCSP >= 1080 And H - QCSP <= 1180) Then M3 = 550
-NFDATA = FreeFile
+
-Open NF_IN For Input As #NFDATA
+Case 2050
-Line Input #NFDATA, ST_COD
+If H - QCSP < 1105 Then M3 = H - QCSP - 530
-Line Input #NFDATA, VOID_ROW
+If H - QCSP > 1230 Then M3 = (H - QCSP) / 2 - 40
-Line Input #NFDATA, lS
+If (H - QCSP >= 1105 And H - QCSP <= 1230) Then M3 = 575
-Line Input #NFDATA, HS
+
-Line Input #NFDATA, QS
+Case 2100
-Line Input #NFDATA, LS2
+If H - QCSP < 1130 Then M3 = H - QCSP - 530
-Line Input #NFDATA, HS2
+If H - QCSP > 1280 Then M3 = (H - QCSP) / 2 - 40
-Close #NFDATA
+If (H - QCSP >= 1130 And H - QCSP <= 1280) Then M3 = 600
 
-If QS = "C" Then QS = HT / 2 - Val(HS) / 2
+
 MsgBox "ERRORE VALORE LH " & ACT_MOD, vbCritical
-lS = Val(lS)
+
-HS = Val(HS)
+
-QS = Val(QS)
+
-DIAM = Val(DIAM)
+
-DISTF = Val(DISTF)
+R01 = ""
 R02 = ""
-Y = FA + QS + HS / 2
+
-Y2 = FA + QS - HS2 + (HS2 + 5.5) / 2
+'***********************************************
-HS3 = HS2 + 5.5
+
 R03 = T_RECT1(-SCS, M2, L - 26.6, L + SCS)
-RS1 = T_RECT2(Y, H / 2, HS, lS)
+R03 = R03 & T_RECT1(-SCS, M2, -SCS, 16.6)
-If LS2 * HS2 > 0 Then RS2 = T_RECT2(Y, H / 2, HS3, LS2) Else RS2 = ""
+R03 = R03 & T_RECT1(H - 70, H + SCS, -SCS, 16.6)
 
-SPC_R = RS1 & RS2
+R03 = R03 & T_RECT1(H - 345, H - 290, 12.5, 17.5)
 R03 = R03 & T_RECT1(H - (345 + M3), H - (290 + M3), 12.5, 17.5)
-GoTo END_IND
+
 If CD_SP = "50522" Or CD_SP = "50522" Or CD_SP = "50522" Then
 R03 = R03 & T_RECT1(H - (345 + M3 + M13), H - (290 + M3 + M13), 12.5, 17.5)
 Else
 R03 = R03 & T_RECT1(H - (345 + 2 * M3), H - (290 + 2 * M3), 12.5, 17.5)
 End If
-SPC_INDIC = Empty
+
-CUR_COM = CMM
+R03 = R03 & T_RECT1(M2 + 20, M2 + 75, 12.5, 17.5)
-UserForm3.Show
+
 R03 = R03 & T_SLOT(H - 25, DF - 18 + 15 - 2.4, 8, 5, 90)
-If INDIC_TYPE = 0 Then Exit Function
+R03 = R03 & T_SLOT(H - 55, DF - 18 + 15 - 2.4, 8, 5, 90)
 
 R04 = T_CIRC(30, DF / 2 + 15 - 2.4, 7.2)
 If M8 > 0 Then R05 = T_CIRC(30 + M8, DF / 2 + 15 - 2.4, 7.2) Else R05 = ""
-'*****************************************PER REPORT SPACHI
+R06 = T_CIRC(30 + M1, DF / 2 + 15 - 2.4, 7.2)
-RP = RP + 1
+R06 = R06 & T_CIRC(30 + M1 - M7, DF / 2 + 15 - 2.4, 7.2)
-RPT_SPC(RP, 1, 1) = INFO_DAT(CMM, 0, 2)
+R06 = R06 & T_CIRC(30, L - (DF / 2 + 25 - 2.4), 7.2)
-RPT_SPC(RP, 1, 2) = "COMMESSA"
+If M8 > 0 Then R07 = T_CIRC(30 + M8, L - (DF / 2 + 25 - 2.4), 7.2) Else R07 = ""
-RP2 = 1
+R08 = T_CIRC(30 + M1, L - (DF / 2 + 25 - 2.4), 7.2)
-'**********************************************************
+R08 = R08 & T_CIRC(30 + M1 - M7, L - (DF / 2 + 25 - 2.4), 7.2)
 If M6 > 0 Then
 R09 = T_CIRC(M6, L - (DF - 19.2 + 25 - 2.4), 15)
 R09 = R09 & T_CIRC(M6 + 140, L - (DF - 19.2 + 25 - 2.4), 15)
-Select Case INDIC_TYPE
+
 R09 = ""
 End If
-Case 1       'SPACCO RETTANGOLARE SINGOLO
+
-QS = INPUT_VAL(1, "QUOTA PARTENZA SPACCO", QS, "")
+R10 = T_SLOT(H - 25, L - 9.5, 8, 5, 90)
-HS = INPUT_VAL(1, "ALTEZZA SPACCO", HS, "")
+R10 = R10 & T_SLOT(H - 55, L - 9.5, 8, 5, 90)
-lS = INPUT_VAL(1, "LARGHEZZA SPACCO", lS, "")
+R10 = R10 & T_CIRC(H - 283, L - 10, 8.5)
 R10 = R10 & T_CIRC(H - (283 + 34), L - 10, 8.5)
-Y = FA + QS + HS / 2
+R10 = R10 & T_CIRC(H - (283 + M3), L - 10, 8.5)
-RS1 = T_RECT2(Y, H / 2, HS, lS)
+R10 = R10 & T_CIRC(H - (283 + 34 + M3), L - 10, 8.5)
-SPC_R = RS1
+
 If CD_SP = "50522" Or CD_SP = "50522" Or CD_SP = "50522" Then
 R10 = R10 & T_CIRC(H - (283 + M3 + M13), L - 10, 8.5)
-Case 2      'SPACCO RETTANGOLARE SINGOLO CON COPPIA DI FORI CENTRATI
+R10 = R10 & T_CIRC(H - (283 + 34 + M3 + M13), L - 10, 8.5)
-QS = INPUT_VAL(1, "QUOTA PARTENZA SPACCO", QS, "")
+
-HS = INPUT_VAL(1, "ALTEZZA SPACCO", HS, "")
+R10 = R10 & T_CIRC(H - (283 + 2 * M3), L - 10, 8.5)
-lS = INPUT_VAL(1, "LARGHEZZA SPACCO", lS, "")
+R10 = R10 & T_CIRC(H - (283 + 34 + 2 * M3), L - 10, 8.5)
-KF = INPUT_VAL(1, "INTERASSE ORIZZONTALE FORI", KF, "")
+
-DF = INPUT_VAL(1, "DIAMETRO FORI", DF, "")
+
-Y = FA + QS + HS / 2
+R10 = R10 & T_CIRC(M2 + 82, L - 10, 8.5)
-RS1 = T_RECT2(Y, H / 2, HS, lS)
+R10 = R10 & T_CIRC(M2 + 82 - 34, L - 10, 8.5)
-RS2 = T_CIRC(Y, H / 2 - KF / 2, DF)
+
-RS3 = T_CIRC(Y, H / 2 + KF / 2, DF)
+R11 = T_DATAMATRIX(ODP, H - 100 - 40, 15 + 10, "O")
-SPC_R = RS1 & RS2 & RS3
+
 R12 = ""
 If M10 > 0 Then
-Case 3      'SPACCO STAR 30_5
+R12 = T_HEX(H - M10, 41.1, 11) & T_HEX(H - M10 - 859, 41.1, 11) & T_HEX(H - M10 - 859 - 398, 41.1, 11)
-QS = INPUT_VAL(1, "QUOTA CENTRO SPACCO DA FILO LUCE", QS, "")
+
-DF = INPUT_VAL(1, "DIAMETRO FORO: 9,10.5,32.5,6.5,5.5,25,20.2,3.3,4.2,5,7.2,8.5,14,10", DF, "")
+If M11 > 0 Then
-'Y = FA - QS
+R12 = R12 & T_HEX(H - M11, 41.1, 11) & T_HEX(H - M11 - 1257, 41.1, 11)
-Y = FA + QS
+
-'DIAM = 30
+If M12 > 0 Then
-'LAT = 5
+R12 = R12 & T_HEX(H - M12, 41.1, 11)
-'R = DIAM / 2 - 2.5
+
-'X1 = XX + R
+
-'Y1 = Y
+
-'X2 = XX
+
-'Y2 = Y - R
+R13 = T_RAD(0, 15 + 4 - 2.4, 3)
-'X3 = XX - R
+R13 = R13 & T_RAD(M2, 0, 3)
-'Y3 = Y
+R13 = R13 & T_RAD(0, L - (25 + 4 - 2.4), 2)
-'X4 = XX
+R13 = R13 & T_RAD(M2, L, 2)
-'Y4 = Y + R
+R13 = R13 & T_RAD(H - 70, 0, 4)
 R13 = R13 & T_RAD(H, 15 + 4 - 2.4, 4)
-'G901 = "G90/X" & X1 & "/Y" & Y1 & "/T339/>"
+R13 = R13 & T_RAD(H, L, 1)
-'G902 = "G90/X" & X2 & "/Y" & Y2 & "/T339/>"
+
-'G903 = "G90/X" & X3 & "/Y" & Y3 & "/T339/>"
+
-'G904 = "G90/X" & X4 & "/Y" & Y4 & "/T339/>"
+
-'SPC_R = G901 & G902 & G903 & G904 & G900
+
 Case 1, 3, 5, 7
-'SPC_R = T_CIRC(H / 2, Y, DF)
+
-SSPP = MsgBox("VUOI LE SPIZZE SULLO SPACCO TONDO?", vbYesNo)
+'***************************************SPACCO
-MsgBox ("CONTROLLARE SPACCO STAR")
+If CD_SP <> "" And CD_SP <> "0" Then
-If SSPP = 6 Then
+R01 = SPC_PULS(NND, CD_SP, 25 + DF - 4.8, H, L, 1, sf, 0)
-SPC1 = T_CIRC(Y, H / 2, DF)
+
-RDR = DF / 2 - 4 + 1.9
+
-SPC2 = T_SPECIAL(Y + RDR, H / 2, "RAG-3", 0) & T_SPECIAL(Y - RDR, H / 2, "RAG-3", 0) & T_SPECIAL(Y, H / 2 + RDR, "RAG-3", 0) & T_SPECIAL(Y, H / 2 - RDR, "RAG-3", 0)
+If DF >= 40 Then M5 = DF - 25 Else M5 = 0
-SPC_R = SPC1 & SPC2
+
 
-SPC_R = T_CIRC(Y, H / 2, DF)
+If CD_SP = "50522" Or CD_SP = "50522" Or CD_SP = "50522" Then
 R02 = T_CIRC(H - M14, 5.2, 5.5) & T_CIRC(H - M14 - 375.5, 5.2, 5.5)
 R02 = R02 & T_CIRC(H - M15, 5.2, 5.5) & T_CIRC(H - M15 - 275.5, 5.2, 5.5)
 R02 = R02 & T_SLOT(H - M14, L - 24.1, 8, 5, 90) & T_SLOT(H - M14, L - 24.1 - M5, 8, 5, 90)
-Case 4       'SPACCO RETTANGOLARE SINGOLO CON INCAVI
+R02 = R02 & T_SLOT(H - M14 - 375.5, L - 24.1, 8, 5, 90) & T_SLOT(H - M14 - 375.5, L - 24.1 - M5, 8, 5, 90)
-QS = INPUT_VAL(1, "QUOTA PARTENZA SPACCO", QS, "")
+R02 = R02 & T_SLOT(H - M15, L - 24.1, 8, 5, 90) & T_SLOT(H - M15, L - 24.1 - M5, 8, 5, 90)
-HS = INPUT_VAL(1, "ALTEZZA SPACCO", HS, "")
+R02 = R02 & T_SLOT(H - M15 - 275.5, L - 24.1, 8, 5, 90) & T_SLOT(H - M15 - 275.5, L - 24.1 - M5, 8, 5, 90)
-lS = INPUT_VAL(1, "LARGHEZZA SPACCO", lS, "")
+
-AI = INPUT_VAL(1, "ALTEZZA INCAVO", LI, "")
+R02 = T_CIRC(QCSP + 187.75, 5.2, 5.5)
-LI = INPUT_VAL(1, "LARGHEZZA INCAVO", LI, "")
+R02 = R02 & T_CIRC(QCSP - 187.75, 5.2, 5.5)
-Y = FA + QS + HS / 2
+R02 = R02 & T_SLOT(QCSP + 187.75, L - 24.1, 8, 5, 90)
-SVP = 4 'SOVRAPPOSIZIONE SPACCHI LATERALI
+R02 = R02 & T_SLOT(QCSP + 187.75, L - 24.1 - M5, 8, 5, 90)
-RS1 = T_RECT2(Y, H / 2, HS, lS)
+R02 = R02 & T_SLOT(QCSP - 187.75, L - 24.1, 8, 5, 90)
-RS2 = T_RECT2(Y, H / 2 - lS / 2 - LI / 2 + SVP / 2, AI, LI + SVP)
+R02 = R02 & T_SLOT(QCSP - 187.75, L - 24.1 - M5, 8, 5, 90)
-RS3 = T_RECT2(Y, H / 2 + lS / 2 + LI / 2 - SVP / 2, AI, LI + SVP)
+
-SPC_R = RS1 & RS2 & RS3
+
 
 If M3 = 0 Then
 Select Case LH
-END_IND:
+
 Case 1900
-PULS_TYPE = Empty
+If H - QCSP < 1030 Then M3 = H - QCSP - 530
-SPC_INDIC = SPC_R
+If H - QCSP > 1080 Then M3 = (H - QCSP) / 2 - 40
 If (H - QCSP >= 1030 And H - QCSP <= 1080) Then M3 = 500
-End Function
+
 Case 1950
 If H - QCSP < 1055 Then M3 = H - QCSP - 530
 If H - QCSP > 1130 Then M3 = (H - QCSP) / 2 - 40
 If (H - QCSP >= 1055 And H - QCSP <= 1130) Then M3 = 525
 
 Case 2000
 If H - QCSP < 1080 Then M3 = H - QCSP - 530
 If H - QCSP > 1180 Then M3 = (H - QCSP) / 2 - 40
 If (H - QCSP >= 1080 And H - QCSP <= 1180) Then M3 = 550
 
 Case 2050
 If H - QCSP < 1105 Then M3 = H - QCSP - 530
 If H - QCSP > 1230 Then M3 = (H - QCSP) / 2 - 40
 If (H - QCSP >= 1105 And H - QCSP <= 1230) Then M3 = 575
 
 Case 2100
 If H - QCSP < 1130 Then M3 = H - QCSP - 530
 If H - QCSP > 1280 Then M3 = (H - QCSP) / 2 - 40
 If (H - QCSP >= 1130 And H - QCSP <= 1280) Then M3 = 600
 
 Case Else
 MsgBox "ERRORE VALORE LH " & ACT_MOD, vbCritical
 End Select
 End If
 
 Else
 R01 = ""
 R02 = ""
 End If
 '***********************************************
 
 R03 = T_RECT1(-SCS, M2, -SCS, 26.6)
 R03 = R03 & T_RECT1(-SCS, M2, L - 16.6, L + SCS)
 R03 = R03 & T_RECT1(H - 70, H + SCS, L - 16.6, L + SCS)
 
 R03 = R03 & T_RECT1(H - 345, H - 290, L - 17.5, L - 12.5)
 R03 = R03 & T_RECT1(H - (345 + M3), H - (290 + M3), L - 17.5, L - 12.5)
 
 If CD_SP = "50522" Or CD_SP = "50522" Or CD_SP = "50522" Then
 R03 = R03 & T_RECT1(H - (345 + M3 + M13), H - (290 + M3 + M13), L - 17.5, L - 12.5)
 Else
 R03 = R03 & T_RECT1(H - (345 + M3 * 2), H - (290 + M3 * 2), L - 17.5, L - 12.5)
 End If
 
 R03 = R03 & T_RECT1(M2 + 20, M2 + 75, L - 17.5, L - 12.5)
 
 R03 = R03 & T_SLOT(H - 25, L - (DF - 18 + 15 - 2.4), 8, 5, 90)
 R03 = R03 & T_SLOT(H - 55, L - (DF - 18 + 15 - 2.4), 8, 5, 90)
 
 R04 = T_CIRC(30, L - (DF / 2 + 15 - 2.4), 7.2)
 If M8 > 0 Then R05 = T_CIRC(30 + M8, L - (DF / 2 + 15 - 2.4), 7.2) Else R05 = ""
 R06 = T_CIRC(30 + M1, L - (DF / 2 + 15 - 2.4), 7.2)
 R06 = R06 & T_CIRC(30 + M1 - M7, L - (DF / 2 + 15 - 2.4), 7.2)
 R06 = R06 & T_CIRC(30, DF / 2 + 25 - 2.4, 7.2)
 If M8 > 0 Then R07 = T_CIRC(30 + M8, DF / 2 + 25 - 2.4, 7.2) Else R07 = ""
 R08 = T_CIRC(30 + M1, DF / 2 + 25 - 2.4, 7.2)
 R08 = R08 & T_CIRC(30 + M1 - M7, DF / 2 + 25 - 2.4, 7.2)
 If M6 > 0 Then
 R09 = T_CIRC(M6 + 140, DF - 19.2 + 25 - 2.4, 15)
 R09 = R09 & T_CIRC(M6, DF - 19.2 + 25 - 2.4, 15)
 Else
 R09 = ""
 End If
 
 R10 = T_SLOT(H - 25, 9.5, 8, 5, 90)
 R10 = R10 & T_SLOT(H - 55, 9.5, 8, 5, 90)
 R10 = R10 & T_CIRC(H - 283, 10, 8.5)
 R10 = R10 & T_CIRC(H - (283 + 34), 10, 8.5)
 R10 = R10 & T_CIRC(H - (283 + M3), 10, 8.5)
 R10 = R10 & T_CIRC(H - (283 + 34 + M3), 10, 8.5)
 If CD_SP = "50522" Or CD_SP = "50522" Or CD_SP = "50522" Then
 R10 = R10 & T_CIRC(H - (283 + M13 + M3), 10, 8.5)
 R10 = R10 & T_CIRC(H - (283 + 34 + M13 + M3), 10, 8.5)
 Else
 R10 = R10 & T_CIRC(H - (283 + 2 * M3), 10, 8.5)
 R10 = R10 & T_CIRC(H - (283 + 34 + 2 * M3), 10, 8.5)
 End If
 R10 = R10 & T_CIRC(M2 + 82, 10, 8.5)
 R10 = R10 & T_CIRC(M2 + 82 - 34, 10, 8.5)
 
 R11 = T_DATAMATRIX(ODP, H - 100 - 40, L - 15 - 10 - 20, "O")
 
 R12 = ""
 If M10 > 0 Then
 R12 = T_HEX(H - M10, L - 41.1, 11) & T_HEX(H - M10 - 859, L - 41.1, 11) & T_HEX(H - M10 - 859 - 398, L - 41.1, 11)
 End If
 If M11 > 0 Then
 R12 = R12 & T_HEX(H - M11, L - 41.1, 11) & T_HEX(H - M11 - 1257, L - 41.1, 11)
 End If
 If M12 > 0 Then
 R12 = R12 & T_HEX(H - M12, L - 41.1, 11)
 End If
 
 
 R13 = T_RAD(0, L - (15 + 4 - 2.4), 2)
 R13 = R13 & T_RAD(M2, L, 2)
 R13 = R13 & T_RAD(0, 25 + 4 - 2.4, 3)
 R13 = R13 & T_RAD(M2, 0, 3)
 R13 = R13 & T_RAD(H - 70, L, 1)
 R13 = R13 & T_RAD(H, L - (15 + 4 - 2.4), 1)
 R13 = R13 & T_RAD(H, 0, 4)
 
 
 Case Else
 MsgBox "ERRORE VALORE VV " & ACT_MOD, vbCritical
 End Select
 
 fn = R01 & R02 & R03 & R04 & R05 & R06 & R07 & R08 & R09 & R10 & R11 & R12 & R13
 
 P1 = 250
 P2 = H - 400
 MVAL = 500
 STRINGA = R000(NHD, NND, SPS, H, L, P1, P2, MVAL) & fn
 
 Call SAVE_SUB(NND, STRINGA)
 
 POSINTAB = def_posintab(NND)
 Call CUT_END_S_PORT(H, L, M2, "0", POSINTAB)
 Call FVTPT(3, NND, "")
 Call CUT_END_S(H, L, "B", POSINTAB)
 Call FVTPT(3, NND, "B")
 
 
 End Sub