View difference between Paste ID: U7K8XgsU and GPtMEMv3

-'Spacchi
+'Stipiti
 
 Function DEFINE_QCSP(ByVal COD_SPC As String, ByVal NND As Integer, ByVal H As Double)
 DEFINE_QCSP = 0
 
 If COD_SPC = "0" Then Exit Function
 
 HSP = INPUT_NUM(NND, "H_SPC", H_SPC, ACT_MOD)
 M2 = INPUT_NUM(NND, "M2_SPC", M2_SPC, ACT_MOD)
 M3 = INPUT_NUM(NND, "M3_SPC", M3_SPC, ACT_MOD)
 M4 = INPUT_NUM(NND, "M4_SPC", M4_SPC, ACT_MOD)
 TYS = INPUT_STR(NND, "TY_SPC", TY_SPC, ACT_MOD)
 If HSP = 0 Or HSP = -1 Then Exit Function
 
 Select Case COD_SPC
 Case "1420", "1430", "1432", "1450", "9140"
 
 If InStr(1, TYS, "A") > 0 Then
 DEFINE_QCSP = HSP
 End If
 If InStr(1, TYS, "B") > 0 Then
 DEFINE_QCSP = HSP + M2
 End If
 If InStr(1, TYS, "C") > 0 Then
 DEFINE_QCSP = HSP + (M2 * 2)
 End If
 
 Case "9150"
 If InStr(1, TYS, "A") > 0 Then
 DEFINE_QCSP = HSP
 End If
 If InStr(1, TYS, "B") > 0 Then
 DEFINE_QCSP = HSP + M4
 End If
 If InStr(1, TYS, "C") > 0 Then
 DEFINE_QCSP = HSP + M3
 End If
 
 Case "1800", "1810", "1820", "9180"
 If InStr(1, TYS, "A") > 0 Then
 DEFINE_QCSP = HSP + 17
 End If
 If InStr(1, TYS, "B") > 0 Then
 DEFINE_QCSP = HSP + 17 + 54
 End If
 If InStr(1, TYS, "C") > 0 Then
 DEFINE_QCSP = HSP + 17 + 54 * 2
 End If
 If InStr(1, TYS, "D") > 0 Then
 DEFINE_QCSP = HSP + 17 + 54 * 3
 End If
 
 Case "2000", "2002", "9200"
 If InStr(1, TYS, "A") > 0 Then
 DEFINE_QCSP = HSP + 42
 End If
 If InStr(1, TYS, "B") > 0 Then
 DEFINE_QCSP = HSP + 755 + 75.25
 End If
 
 Case Else
 DEFINE_QCSP = HSP + (M2 / 2)
 End Select
 
 DEFINE_QCSP = H - DEFINE_QCSP
 
 
 End Function
 
 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
 
 If COD_SPC = "50518" Or COD_SPC = "50543" Then COD_SPC = "2382"
 If COD_SPC = "50519" Then COD_SPC = "2900"
 If COD_SPC = "50520" Then COD_SPC = "3000"
 If COD_SPC = "50521" Then COD_SPC = "3100"
 
 If COD_SPC = "50522" Then COD_SPC = "3200"
 If COD_SPC = "50523" Then COD_SPC = "3300"
 If COD_SPC = "50524" Then COD_SPC = "3400"
 
 M1 = INPUT_NUM(NND, "M1_SPC", M1_SPC, ACT_MOD)
 If COD_SPC = "9932" Or COD_SPC = "9933" Or COD_SPC = "9934" Then GoTo SALTA_SPC_CCD 'WITTUR ZOO
 If M1 = 0 Or M1 = -1 Then Exit Function
 
 SALTA_SPC_CCD:
 HSP = INPUT_NUM(NND, "H_SPC", H_SPC, ACT_MOD)
 M2 = INPUT_NUM(NND, "M2_SPC", M2_SPC, ACT_MOD)
 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)
 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)
 M13 = INPUT_NUM(NND, "M13_SPC", M13_SPC, ACT_MOD)
 M14 = INPUT_NUM(NND, "M14_SPC", M14_SPC, ACT_MOD)
 M15 = INPUT_NUM(NND, "M15_SPC", M15_SPC, ACT_MOD)
 M16 = INPUT_NUM(NND, "M16_SPC", M16_SPC, ACT_MOD)
 M17 = INPUT_NUM(NND, "M17_SPC", M17_SPC, ACT_MOD)
 M18 = INPUT_NUM(NND, "M18_SPC", M18_SPC, ACT_MOD)
 sf = INPUT_NUM(NND, "SF", sf, ACT_MOD)
 QCSP = DEFINE_QCSP(COD_SPC, NND, H)
 
 RS1 = ""
 RS2 = ""
 RS3 = ""
 RS4 = ""
 RS5 = ""
 RS6 = ""
 RS7 = ""
 SPCp_CODIFY = ""
 
 
 FA = FL_AP
 HSP = HSP '+ 2.5 ' I RIVESTIMENTI VANNO SOTTO LA SOGLIA DI 2.5 mm --> FINELINE FILO PAVIMENTO
 
 If Len(COD_SPC) < 4 Then COD_SPC = "0" & COD_SPC
 
 Select Case COD_SPC
 Case "9020"
 '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)
 'SPCp_CODIFY = RS1 & RS2
 'MsgBox ("CONTROLLARE SPACCO " & COD_SPC & " SU CODICE " & ACT_MOD)
 MsgBox (COD_SPC & " BLOCCATO SU CODICE " & ACT_MOD)
 
 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"
 If M3 = 0 Then
 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)
 SPCp_CODIFY = RS1
 'MsgBox ("CONTROLLARE SPACCO " & COD_SPC & " SU CODICE " & ACT_MOD)
 
 Case "0440", "9040"
 If M6 = 0 Then
 If SB > 300 Then M6 = 60 Else M6 = SB / 2
 End If
 
 Y = MR_Y(FA + M6, L, MRR)
 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)
 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
 MsgBox ("CONTROLLARE SPACCO " & COD_SPC & " SU CODICE " & ACT_MOD)
 
 Case "0514", "0518", "0526", "0530", "0540", "0542", "0560", "0570", "0580", "90580", "0592", "0594", "9050", "90540", "90526"
 If M5 = 0 Then
 If SB > 300 Then M5 = 60 Else M5 = SB / 2
 End If
 
 If M4 = 3.2 Then M4 = 3.3 'AGGIUNTA GALLONI 09-04-2019
 If M4 = 2.1 Then M4 = 2 'AGGIUNTA GALLONI 14-10-2019
 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
 If M4 = 4.5 Then M4 = 4.2 'AGGIUNTA GALLONI 23-07-2020
 
 Y = MR_Y(FA + M5, L, MRR)
 RS1 = T_RECT2(H - HSP - M2 / 2, Y, M2, M1)
 RS2 = T_CIRC(H - HSP - M2 / 2 - M3 / 2, Y, M4) & T_CIRC(H - HSP - M2 / 2 + M3 / 2, Y, M4)
 SPCp_CODIFY = RS1 & RS2
 'MsgBox ("CONTROLLARE SPACCO " & COD_SPC & " SU CODICE " & ACT_MOD)
 
 Case "9240"
 Y = MR_Y(FA + M6, L, MRR)
 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, M5)
 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)
 Else
 RS3 = T_CIRC(H - HSP - M2 / 2 - M3 / 2, Y + M4, M5) & T_CIRC(H - HSP - M2 / 2 + M3 / 2, Y - M4, M5)
 End If
 SPCp_CODIFY = RS1 & RS2 & RS3
 MsgBox ("CONTROLLARE SPACCO " & COD_SPC & " SU CODICE " & ACT_MOD)
 
 Case "9060"
 'Y = MR_Y(FA + M4, L, MRR)
 'RS1 = T_RECT2(H - HSP - M2 / 2, Y, M2, M1)
 'RS2 = T_CIRC(H - HSP - M2 / 2 - M3 / 2, Y, M8) & T_CIRC(H - HSP - M2 / 2 + M3 / 2, Y, M8)
 '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)
 'SPCp_CODIFY = RS1 & RS2 & RS3 & RS4
 'MsgBox ("CONTROLLARE SPACCO " & COD_SPC & " SU CODICE " & ACT_MOD)
 MsgBox (COD_SPC & " BLOCCATO SU CODICE " & ACT_MOD)
 
 Case "9070"
 Y = MR_Y(FA + M5, L, MRR)
 RS1 = T_RECT2(H - HSP - M2 / 2, Y, M2, M1)
 
 If MRR = 1 Then
 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)
 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)
 Else
 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)
 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)
 End If
 SPCp_CODIFY = RS1 & RS2 & RS3 & RS4 & RS5
 MsgBox ("CONTROLLARE SPACCO " & COD_SPC & " SU CODICE " & ACT_MOD)
 
 Case "9090"
 Y = MR_Y(FA + M7, L, MRR)
 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)
 SPCp_CODIFY = RS1 & RS2 & RS3
 MsgBox ("CONTROLLARE SPACCO " & COD_SPC & " SU CODICE " & ACT_MOD)
 
 Case "1050", "9100"
 If M5 = 0 Then
 If SB > 300 Then M5 = 60 Else M5 = SB / 2
 End If
 
 Y = MR_Y(FA + M5, L, MRR)
 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)
 SPCp_CODIFY = RS1 & RS2 & RS3
 MsgBox ("CONTROLLARE SPACCO " & COD_SPC & " SU CODICE " & ACT_MOD)
 
 Case "9110"
 'Y = MR_Y(FA + M9, L, MRR)
 '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
 '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)
 '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)
 'RS4 = RS4A & RS4B & RS4C
 'SPCp_CODIFY = RS1 & RS2 & RS3 & RS4
 'MsgBox ("CONTROLLARE SPACCO " & COD_SPC & " SU CODICE " & ACT_MOD)
 MsgBox (COD_SPC & " BLOCCATO SU CODICE " & ACT_MOD)
 
 Case "9160", "1600"
 If M5 = 0 Then
 If SB > 300 Then M5 = 60 Else M5 = SB / 2
 End If
 
 Y = MR_Y(FA + M5, L, MRR)
 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)
 RS4 = T_CIRC(H - HSP - M2 / 2 + M6 / 2, Y, M7) & T_CIRC(H - HSP - M2 / 2 - M6 / 2, Y, M7)
 SPCp_CODIFY = RS1 & RS2 & RS3 & RS4
 MsgBox ("CONTROLLARE SPACCO " & COD_SPC & " SU CODICE " & ACT_MOD)
 
 Case "1900", "9190"
 'If M5 = 0 Then
 'If SB > 300 Then M5 = 60 Else M5 = SB / 2
 'End If
 '
 'Y = MR_Y(FA + M5, L, MRR)
 '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)
 '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)
 '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)
 '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)
 MsgBox (COD_SPC & " BLOCCATO SU CODICE " & ACT_MOD)
 
 Case "9120"
 Y = MR_Y(FA + M8, L, MRR)
 RS1 = T_RECT2(H - HSP - M2 / 2, Y, M2, M3)
 RS2 = T_CIRC(H - HSP - M2 / 2 - M4 / 2, Y, M7)
 RS3 = T_CIRC(H - HSP - M2 / 2 + M4 / 2, Y, M7)
 RS4 = T_RECT2(H - HSP - M5 - M6 / 2, Y, M6, M1)
 SPCp_CODIFY = RS1 & RS2 & RS3 & RS4
 MsgBox ("CONTROLLARE SPACCO " & COD_SPC & " SU CODICE " & ACT_MOD)
 
 Case "9130"
 Y = MR_Y(FA + M7, L, MRR)
 RS1 = T_RECT2(H - HSP - M2 / 2, Y, M2, M1)
 RS2 = T_CIRC(H - HSP - M2 / 2 - M4 / 2, Y, M6) & T_CIRC(H - HSP - M2 / 2 + M4 / 2, Y, M6)
 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)
 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)
 SPCp_CODIFY = RS1 & RS2 & RS3 & RS4
 MsgBox ("CONTROLLARE SPACCO " & COD_SPC & " SU CODICE " & ACT_MOD)
 
 Case "1420", "1430", "1432", "1450", "9140"
 TYS = INPUT_STR(NND, "TY_SPC", TY_SPC, ACT_MOD)
 
 If InStr(1, TYS, "AB") > 0 And InStr(1, TYS, "BC") > 0 Or InStr(1, TYS, "CD") > 0 Then
 
 MsgBox (COD_SPC & " BLOCCATO SU CODICE " & ACT_MOD)
 
 Else
 If M4 = 0 Then
 If SB > 300 Then M4 = 60 Else M4 = SB / 2
 End If
 
 Y = MR_Y(FA + M4, L, MRR)
 If InStr(1, TYS, "A") > 0 Then
 RS1 = T_CIRC(H - HSP, Y, M1)
 Else
 RS1 = ""
 End If
 If InStr(1, TYS, "B") > 0 Then
 RS2 = T_CIRC(H - HSP - M2, Y, M1)
 Else
 RS2 = ""
 End If
 If InStr(1, TYS, "C") > 0 Then
 RS3 = T_CIRC(H - HSP - 2 * M2, Y, M1)
 Else
 RS3 = ""
 End If
 SPCp_CODIFY = RS1 & RS2 & RS3
 MsgBox ("CONTROLLARE SPACCO " & COD_SPC & " SU CODICE " & ACT_MOD)
 End If
 
 
 Case "9150"
 TYS = INPUT_STR(NND, "TY_SPC", TY_SPC, ACT_MOD)
 
 
 If InStr(1, TYS, "AB") > 0 Or InStr(1, TYS, "BC") > 0 Or InStr(1, TYS, "AC") > 0 Then
 
 MsgBox (COD_SPC & " BLOCCATO SU CODICE " & ACT_MOD)
 
 Else
 Y = MR_Y(FA + M7, L, MRR)
 If InStr(1, TYS, "A") > 0 Then
 RS1 = T_RECT2(H - HSP, Y, M5, M6)
 Else
 RS1 = ""
 End If
 If InStr(1, TYS, "B") > 0 Then
 RS2 = T_RECT2(H - HSP - M4, Y, M2, M1)
 Else
 RS2 = ""
 End If
 If InStr(1, TYS, "C") > 0 Then
 RS3 = T_RECT2(H - HSP - M4 - M3, Y, M2, M1)
 Else
 RS3 = ""
 End If
 SPCp_CODIFY = RS1 & RS2 & RS3
 MsgBox ("CONTROLLARE SPACCO " & COD_SPC & " SU CODICE " & ACT_MOD)
 End If
 
 
 Case "1800", "1810", "1820", "9180"
 TYS = INPUT_STR(NND, "TY_SPC", TY_SPC, ACT_MOD)
 
 
 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
 
 MsgBox (COD_SPC & " BLOCCATO SU CODICE " & ACT_MOD)
 
 Else
 
 If M1 = 0 Then
 If SB > 300 Then M1 = 60 Else M1 = SB / 2
 End If
 
 Y = MR_Y(FA + M1, L, MRR)
 If InStr(1, TYS, "A") > 0 Then
 RS1A = T_RECT2(H - HSP - 17, Y, 34, 29)
 RS1B = T_CIRC(H - HSP - 2.5, Y + 17 - 2.5, 5) & T_CIRC(H - HSP - 2.5, Y - 17 + 2.5, 5)
 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)
 RS1D = T_RECT2(H - HSP - 17, Y + 17 - 5, 34 - 5, 10) & T_RECT2(H - HSP - 17, Y - 17 + 5, 34 - 5, 10)
 RS1 = RS1A & RS1B & RS1C & RS1D
 Else
 RS1 = ""
 End If
 
 If InStr(1, TYS, "B") > 0 Then
 RS2A = T_RECT2(H - HSP - 17 - 54, Y, 34, 29)
 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)
 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)
 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)
 RS2 = RS2A & RS2B & RS2C & RS2D
 Else
 RS2 = ""
 End If
 
 If InStr(1, TYS, "C") > 0 Then
 RS3A = T_RECT2(H - HSP - 17 - 108, Y, 34, 29)
 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)
 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)
 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
 Else
 RS3 = ""
 End If
 
 If InStr(1, TYS, "D") > 0 Then
 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)
 RS4 = RS4A & RS4B & RS4C & RS4D
 Else
 RS4 = ""
 End If
 
 SPCp_CODIFY = RS1 & RS2 & RS3 & RS4
 MsgBox ("CONTROLLARE SPACCO " & COD_SPC & " SU CODICE " & ACT_MOD)
 End If
 
 
 Case "2000", "2002", "9200"
 TYS = INPUT_STR(NND, "TY_SPC", TY_SPC, ACT_MOD)
 
 If InStr(1, TYS, "AB") > 0 Then
 
 MsgBox (COD_SPC & " BLOCCATO SU CODICE " & ACT_MOD)
 
 Else
 
 If M1 = 0 Then
 If SB > 300 Then M1 = 60 Else M1 = SB / 2
 End If
 
 Y = MR_Y(FA + M1, L, MRR)
 
 If InStr(1, TYS, "A") > 0 Then
 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)
 RS1 = RS1A & RS1B & RS1C
 Else
 RS1 = ""
 End If
 
 If InStr(1, TYS, "B") > 0 Then
 RS2 = T_RECT2(H - HSP - 755 - 150.5 / 2, Y, 150.5, 50)
 Else
 RS2 = ""
 End If
 
 SPCp_CODIFY = RS1 & RS2
 MsgBox ("CONTROLLARE SPACCO " & COD_SPC & " SU CODICE " & ACT_MOD)
 End If
 
 
 
 Case "2200", "2210", "2220", "9220"
 
 If M4 = 0 Then
 If SB > 300 Then M4 = 60 Else M4 = SB / 2
 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
 'If M3 = 3.6 Then M3 = 3.55 'CAMBIO MISURA PER DISPONIBILITA' PUNZONE
 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)
 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)
 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)
 SPCp_CODIFY = RS1 & RS2 & RS3 & RS4
 'MsgBox ("CONTROLLARE SPACCO " & COD_SPC & " SU CODICE " & ACT_MOD)
 
 
 Case "2800", "9280"
 'If M10 = 0 Then
 'If SB <= 300 Then M10 = 50 Else M10 = 60
 'End If
 '
 'Y = MR_Y(FA + M10, L, MRR)
 'If M6 = 3.5 Then M6 = 3.3 'CAMBIO MISURA PER DISPONIBILITA' PUNZONE
 '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)
 '
 'RS3 = T_RECT2(H - HSP - M2 / 2 - 350, Y, M2, M1)
 'RS4 = T_CIRC(H - HSP - 350 + M4, Y - M5 / 2, M6) & T_CIRC(H - HSP - 350 + M4, Y + M5 / 2, M6)
 '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
 'MsgBox ("CONTROLLARE SPACCO " & COD_SPC & " SU CODICE " & ACT_MOD)
 
 MsgBox (COD_SPC & " BLOCCATO SU CODICE " & ACT_MOD)
 
 Case "0102", "0130", "0142", "0152", "0170", "0180", "0196", "9010"
 'If M3 = 0 Then
 '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)
 'SPCp_CODIFY = RS1
 '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)
 'RS1 = T_RECT2(H - HSP - M2 / 2, Y, M2, M1)
 'SPCp_CODIFY = RS1
 'MsgBox ("CONTROLLARE SPACCO " & COD_SPC & " SU CODICE " & ACT_MOD)
 
 MsgBox (COD_SPC & " BLOCCATO SU CODICE " & ACT_MOD)
 
 Case "2900", "9290"
 Y = MR_Y(FA + M5, L, MRR)
 RS1 = T_RECT2(H - HSP - M2 / 2, Y, M2, M1)
 '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)
 SPCp_CODIFY = RS1 & RS2
 MsgBox ("CONTROLLARE SPACCO " & COD_SPC & " SU CODICE " & ACT_MOD)
 
 Case "3000", "9300"
 Y = MR_Y(FA + M5, L, MRR)
 RS1 = T_RECT2(H - HSP - M2 / 2, Y, M2, M1)
 '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)
 SPCp_CODIFY = RS1 & RS2 & RS3
 MsgBox ("CONTROLLARE SPACCO " & COD_SPC & " SU CODICE " & ACT_MOD)
 
 Case "3100", "9310"
 Y = MR_Y(FA + M5, L, MRR)
 RS1 = T_RECT2(H - HSP - M2 / 2, Y, M2, M1)
 '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)
 SPCp_CODIFY = RS1 & RS2 & RS3 & RS4
 MsgBox ("CONTROLLARE SPACCO " & COD_SPC & " SU CODICE " & ACT_MOD)
 
 Case "3200", "9320"
 Y = MR_Y(FA + M5, L, MRR)
 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)
 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)
 
 Case "3300"
 Y = MR_Y(FA + M5, L, MRR)
 RS1 = T_RECT2(H - HSP - M2 / 2, Y, M2, M1)
 '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 - M10, H - M10 - M8, Y - M9 / 2, Y + M9 / 2)
 RS4 = T_RECT1(H - HSP + M6 + M7, H - HSP + M6, Y - M1 / 2, Y + M1 / 2)
 SPCp_CODIFY = RS1 & RS2 & RS3 & RS4
 MsgBox ("CONTROLLARE SPACCO " & COD_SPC & " SU CODICE " & ACT_MOD)
 
 Case "9330"
 Y = MR_Y(FA + M10, L, MRR)
 RS1 = T_RECT2(H - HSP - M2 / 2, Y, M2, M1)
 '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 - 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)
 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)
 SPCp_CODIFY = RS1 & RS3 & RS2
 MsgBox ("CONTROLLARE SPACCO " & COD_SPC & " SU CODICE " & ACT_MOD)
 
 
 Case "3400", "9340"
 Y = MR_Y(FA + M5, L, MRR)
 RS1 = T_RECT2(H - HSP - M2 / 2, Y, M2, M1)
 '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)
 
 SPCp_CODIFY = RS1 & RS2 & RS3 & RS4 & RS5
 MsgBox ("CONTROLLARE SPACCO " & COD_SPC & " SU CODICE " & ACT_MOD)
 
 'START NUOVI SPACCHI OTIS 03/11/2022
 Case "50948", "50949", "50974"
 Y = MR_Y(FA + sf / 2, L, MRR)
 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)
 '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)
 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)
 SPCp_CODIFY = RS1 & RS2 '& RS3
 MsgBox ("CONTROLLARE SPACCO " & COD_SPC & " SU CODICE " & ACT_MOD)
 
 Case "50952", "50953", "51001", "50956", "50957"
 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)
 '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)
 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)
 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)
 SPCp_CODIFY = RS1 & RS2 & RS3
 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)
 '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)
 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)
 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)
 SPCp_CODIFY = RS1 & RS2 & RS3 & RS4
 MsgBox ("CONTROLLARE SPACCO " & COD_SPC & " SU CODICE " & ACT_MOD)
 
 Case "50968", "51007"
 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) & 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)
 '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)
 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)
 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)
 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)
 SPCp_CODIFY = RS1 & RS2 & RS3 & RS4
 MsgBox ("CONTROLLARE SPACCO " & COD_SPC & " SU CODICE " & ACT_MOD)
 
 
 Case "50950", "50951", "50975" 'A
 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) & T_RECT2(H - HSP - M2 / 2 - M6 - M7 - M8, Y, M2, M1)
 RS1 = T_SLOT(H - HSP - M1, Y, 18, 6.5, 90)
 
 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)
 
 SPCp_CODIFY = RS1 & RS2
 MsgBox ("CONTROLLARE SPACCO " & COD_SPC & " SU CODICE " & ACT_MOD)
 
 
 Case "50954", "51004", "50958", "50959", "51000" 'A+B
 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)
 
 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)
 
 SPCp_CODIFY = RS1 & RS2
 MsgBox ("CONTROLLARE SPACCO " & COD_SPC & " SU CODICE " & ACT_MOD)
 
 
 Case "50962", "51006", "50967" 'A+B+C
 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) & T_SLOT(H - HSP - M1 - M3 - M5, Y, 18, 6.5, 90)
 
 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)
 
 SPCp_CODIFY = RS1 & RS2
 MsgBox ("CONTROLLARE SPACCO " & COD_SPC & " SU CODICE " & ACT_MOD)
 
 
 Case "50970", "51008" 'A+B+C+D
 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) & 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)
 
 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)
 
 SPCp_CODIFY = RS1 & RS2
 MsgBox ("CONTROLLARE SPACCO " & COD_SPC & " SU CODICE " & ACT_MOD)
 
 
 Case "50972", "50973"
 Y = MR_Y(FA + sf / 2, L, MRR)
 
 RS1 = T_SLOT(H - HSP - M1 + M2, Y, 18, 6.5, 90)
 
 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)
 
 SPCp_CODIFY = RS1 & RS2
 MsgBox ("CONTROLLARE SPACCO " & COD_SPC & " SU CODICE " & ACT_MOD)
 
 
 Case "50981", "50982"
 Y = MR_Y(FA + sf / 2, L, MRR)
 
 RS1 = T_RECT2(H - HSP - M2 / 2, Y, M2, M1)
 
 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)
 
 SPCp_CODIFY = RS1 & RS2
 MsgBox ("CONTROLLARE SPACCO " & COD_SPC & " SU CODICE " & ACT_MOD)
 
 Case "50983"
 Y = MR_Y(FA + sf / 2, L, MRR)
 
 RS1 = T_RECT2(H - HSP - M6 - M2 / 2, Y, M2, M1)
 
 RS2 = T_SLOT(H - HSP - M3 - M8 + M9, Y, 18, 6.5, 90)
 
 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)
 
 SPCp_CODIFY = RS1 & RS2 & RS3
 MsgBox ("CONTROLLARE SPACCO " & COD_SPC & " SU CODICE " & ACT_MOD)
 
 Case "50991", "50992"
 Y = MR_Y(FA + sf / 2, L, MRR)
 
 
 RS1 = T_SLOT(H - HSP - M1, Y, 18, 6.5, 90)
 
 RS2 = T_CIRC(H - HSP - M1, Y - M2 / 2, M4) & T_CIRC(H - HSP, Y + M2 / 2, M4)
 
 RS3 = T_SLOT(H - HSP - M1 - M5 - M6 + M7, Y, 18, 6.5, 90)
 
 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)
 
 SPCp_CODIFY = RS1 & RS2 & RS3 & RS4
 MsgBox ("CONTROLLARE SPACCO " & COD_SPC & " SU CODICE " & ACT_MOD)
 
 Case "50984"
 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)
 
 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)
 
 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)
 
 SPCp_CODIFY = RS1 & RS2
 MsgBox ("CONTROLLARE SPACCO " & COD_SPC & " SU CODICE " & ACT_MOD)
 
 Case "50986", "50988"
 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) & T_RECT2(H - HSP - M11 - M12 - 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)
 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)
 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)
 
 SPCp_CODIFY = RS1 & RS2
 MsgBox ("CONTROLLARE SPACCO " & COD_SPC & " SU CODICE " & ACT_MOD)
 
 Case "50990", "50996"
 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) & 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)
 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)
 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)
 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)
 
 SPCp_CODIFY = RS1 & RS2
 MsgBox ("CONTROLLARE SPACCO " & COD_SPC & " SU CODICE " & ACT_MOD)
 
 Case "50998"
 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) & 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)
 
 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)
 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)
 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)
 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)
 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)
 
 SPCp_CODIFY = RS1 & RS2
 MsgBox ("CONTROLLARE SPACCO " & COD_SPC & " SU CODICE " & ACT_MOD)
 
 Case "50985"
 Y = MR_Y(FA + sf / 2, L, MRR)
 
 RS1 = T_RECT2(H - HSP - M12 - M10 / 2, Y, M10, M8)
 
 RS2 = T_SLOT(H - HSP - M15 - 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)
 
 SPCp_CODIFY = RS1 & RS2 & RS3
 MsgBox ("CONTROLLARE SPACCO " & COD_SPC & " SU CODICE " & ACT_MOD)
 
 Case "50987", "50989"
 Y = MR_Y(FA + sf / 2, L, MRR)
 
 RS1 = T_RECT2(H - HSP - M12 - M10 / 2, Y, M10, M8)
 
 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)
 RS3 = RS3 & T_CIRC(H - HSP - M15 - M1 - M3, Y - M2 / 2, M7) & T_CIRC(H - HSP - M15 - M3, Y + M2 / 2, M7)
 
 SPCp_CODIFY = RS1 & RS2 & RS3
 MsgBox ("CONTROLLARE SPACCO " & COD_SPC & " SU CODICE " & ACT_MOD)
 
 Case "50995", "50997"
 Y = MR_Y(FA + sf / 2, L, MRR)
 
 RS1 = T_RECT2(H - HSP - M12 - M10 / 2, Y, M10, M8)
 
 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)
 
 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)
 
 SPCp_CODIFY = RS1 & RS2 & RS3
 MsgBox ("CONTROLLARE SPACCO " & COD_SPC & " SU CODICE " & ACT_MOD)
 
 Case "50999"
 Y = MR_Y(FA + sf / 2, L, MRR)
 
 RS1 = T_RECT2(H - HSP - M12 - M10 / 2, Y, M10, M8)
 
 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)
 
 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)
 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)
 
 SPCp_CODIFY = RS1 & RS2 & RS3
 MsgBox ("CONTROLLARE SPACCO " & COD_SPC & " SU CODICE " & ACT_MOD)
 
 'END NUOVI SPACCHI OTIS
 
 
 Case "9932", "9933", "9934"     'SPACCO WITTUR ZOO
 
 
 'DS = 14
 'Y = MR_Y(L - (FA + DS), L, MRR)
 
 If MRR = 2 Then Y = 70.2 'LEFT
 If MRR = 1 Then Y = 74.2 'RIGHT
 
 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)
 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)
 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)
 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)
 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)
 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)
 Else
 RS10 = ""
 End If
 If COD_SPC = "9934" 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) & T_CIRC(H - 230, Y2, 19)
 Else
 RS10 = ""
 End If
 
 SPCp_CODIFY = RS1 & RS2 & RS3 & RS4 & RS5 & RS6 & RS7 & RS8 & RS9 & RS10
 QCSP = H - (950 + 230 / 2)
 
 Case "9999"
 SPCp_CODIFY = ""
 
 Case Else
 MsgBox ("CODICE SPACCO " & COD_SPC & " NON CODIFICATO SU " & ACT_MOD)
 End Select
 
 
 
 
 End Function
 
 
 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
 
 
 
 If CD_IN = "50033" Then CD_IN = "2704"
 If CD_IN = "50102" Then CD_IN = "2706"
 
 
 M1 = INPUT_NUM(NND, "M1_SPC", M1_SPC, ACT_MOD)
 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)
 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)
 
 RT1 = ""
 RT2 = ""
 RT3 = ""
 RT4 = ""
 SPCi_CODIFY = ""
 
 
 'If LSX <> LDX Then MsgBox "ATTENZIONE ALLA CENTRATURA DELLO SPACCO SU TRAVERSA"
 XX = H / 2 '- (LSX - LDX) / 2
 
 
 Select Case CD_IN
 Case "1702", "1750", "2700", "2702", "2704", "2706", "9270"
 RT1 = T_RECT2(XX, FA - M4 - M2 / 2, M1, M2)
 If M3 > 0 Then
 RT2 = T_RECT1(XX - M5 / 2, XX + M5 / 2, FA - M4 - 10, FA - M4 + M3)
 Else
 RT2 = ""
 End If
 SPCi_CODIFY = RT1 & RT2
 MsgBox ("CONTROLLARE SPACCO INDICATORE SU TRAVERSA " & ACT_MOD)
 
 Case "2500", "2560", "9250"
 RT1 = T_RECT2(XX, FA - M4 - M2 / 2, M1, M2)
 RT2 = T_CIRC(XX - M3 / 2, FA - M4 - M2 / 2, M5) & T_CIRC(XX + M3 / 2, FA - M4 - M2 / 2, M5)
 If M6 > 0 Then
 RT3 = T_CIRC(XX - M3 / 2, FA - M4 + M6 - M2 / 2, M5) & T_CIRC(XX + M3 / 2, FA - M4 + M6 - M2 / 2, M5)
 Else
 RT3 = ""
 End If
 SPCi_CODIFY = RT1 & RT2 & RT3
 MsgBox ("CONTROLLARE SPACCO INDICATORE SU TRAVERSA " & ACT_MOD)
 
 Case "2600", "9260"
 RT1 = T_RECT2(XX, FA - M5, M1, M2)
 RT2 = T_RECT1(XX - M3 / 2, XX - M3 / 2 + ((M3 - M1) / 2), FA - M5 - M4 / 2, FA - M5 + M4 / 2)
 RT3 = T_RECT1(XX + M3 / 2 - ((M3 - M1) / 2), XX + M3 / 2, FA - M5 - M4 / 2, FA - M5 + M4 / 2)
 SPCi_CODIFY = RT1 & RT2 & RT3
 MsgBox ("CONTROLLARE SPACCO INDICATORE SU TRAVERSA " & ACT_MOD)
 
 Case "2100", "9210"
 RT1 = T_RECT2(XX, FA - M5, M1, M2)
 RT2 = T_RECT1(XX - M3 / 2, XX - M3 / 2 + ((M3 - M1) / 2), FA - M5 - M4 / 2, FA - M5 + M4 / 2)
 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
 MsgBox ("CONTROLLARE SPACCO INDICATORE SU TRAVERSA " & ACT_MOD)
 
 Case "9999"
 SPCi_CODIFY = ""
 
 Case Else
 MsgBox ("CODICE SPACCO INDICATORE " & CD_IN & " NON CODIFICATO SU " & ACT_MOD)
 End Select
 
 
 
 End Function
 
 
 
 
 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
 
 If OFST <> 0 Then MsgBox ("ATTENZIONE OFFSET SULLO SPACCO SBAGLIATO SUL CODICE " & ACT_MOD)
 '*********************************************************
 SPC_PULS = SPCp_CODIFY(CMM, COD_SP, FA, H, SVIL, SDX, LM)
 If SPC_PULS <> "" Then Exit Function
 '*********************************************************
 
 
 
 QCSP = 0
 SPC_PULS = Empty
 Spclist = FILELIST(SPC_FOLD, True, "*")
 
 SPC_FOUND = 0
 TYCK = ""
 For i = 1 To UBound(Spclist)
 
 CDCK = Right(Spclist(i), InStr(1, StrReverse(Spclist(i)), "\", vbBinaryCompare) - 1)
 CDCK = Left(CDCK, InStr(1, CDCK, ".", vbBinaryCompare) - 1)
 
 If CDCK = COD_SP Then
 Select Case SPC_FOUND
 Case 0
 SPC_FOUND = 1
 NF_SP = Spclist(i)
 TYCK = Left(Spclist(i), Len(Spclist(i)) - InStr(1, StrReverse(Spclist(i)), "\", vbBinaryCompare))
 TYCK = Right(TYCK, InStr(1, StrReverse(TYCK), "\", vbBinaryCompare) - 1)
 Case 1
 MsgBox "ERRORE SU MODULO SPACCHI"
 Case Else
 MsgBox "ERRORE SU MODULO SPACCHI"
 End Select
 End If
 Next i
 
 
 If SPC_FOUND = 0 And COD_SP <> "9999" Then MsgBox "SPACCO " & COD_SP & " NON TROVATO", vbExclamation
 
 Select Case TYCK
 
 Case "T01"                 'SPACCO RETTANGOLARE SINGOLO O MULTIPLO
 NFDATA = FreeFile
 Open NF_SP For Input As #NFDATA
 Line Input #NFDATA, ST_COD
 Line Input #NFDATA, VOID_ROW
 Line Input #NFDATA, lS
 MLTSPC:
 Line Input #NFDATA, HS
 Line Input #NFDATA, QS
 lS = Val(lS)
 HS = Val(HS)
 QS = Val(QS) + OFST
 If LM > 300 Then RCC = 60 Else RCC = LM / 2
 Y = MR_Y(FA + RCC, SVIL, SDX)
 RS1 = T_RECT2(H - QS - HS / 2, Y, HS, lS)
 SPC_PULS = SPC_PULS & RS1
 lS = ""
 If QCSP = 0 Then QCSP = H - QS - HS / 2
 If Not EOF(NFDATA) Then Line Input #NFDATA, lS
 If lS <> "" Then
 SPC_PULS = SPC_PULS
 GoTo MLTSPC
 End If
 Close #NFDATA
 GoTo END_SPC
 
 
 Case "T02"
 NFDATA = FreeFile
 Open NF_SP For Input As #NFDATA
 Line Input #NFDATA, ST_COD
 Line Input #NFDATA, VOID_ROW
 Line Input #NFDATA, lS
 Line Input #NFDATA, HS
 Line Input #NFDATA, QS
 Line Input #NFDATA, DIAM
 Line Input #NFDATA, DISTF
 Close #NFDATA
 lS = Val(lS)
 HS = Val(HS)
 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)
 RS1 = T_RECT2(H - QS - HS / 2, Y, HS, lS)
 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
 GoTo END_SPC
 
 
 
 Case "T03"
 NFDATA = FreeFile
 Open NF_SP For Input As #NFDATA
 Line Input #NFDATA, ST_COD
 Line Input #NFDATA, VOID_ROW
 Line Input #NFDATA, lS
 Line Input #NFDATA, HS
 Line Input #NFDATA, QS
 Line Input #NFDATA, AI
 Line Input #NFDATA, LI
 Close #NFDATA
 lS = Val(lS)
 HS = Val(HS)
 QS = Val(QS) + OFST
 AI = Val(AI)
 LI = Val(LI)
 If LM > 300 Then RCC = 60 Else RCC = LM / 2
 Y = MR_Y(FA + RCC, SVIL, SDX)
 SVP = 4 'SOVRAPPOSIZIONE SPACCHI LATERALI
 RS1 = T_RECT2(H - QS - HS / 2, Y, HS, lS)
 RS2 = T_RECT2(H - QS + (AI - SVP) / 2, Y, AI + SVP, LI)
 RS3 = T_RECT2(H - QS - HS - (AI - SVP) / 2, Y, AI + SVP, LI)
 SPC_PULS = RS1 & RS2 & RS3
 QCSP = H - QS - HS / 2
 GoTo END_SPC
 
 
 Case "T04"
 NFDATA = FreeFile
 Open NF_SP For Input As #NFDATA
 Line Input #NFDATA, ST_COD
 Line Input #NFDATA, VOID_ROW
 Line Input #NFDATA, QS
 Line Input #NFDATA, DIAM
 Close #NFDATA
 QS = Val(QS) + OFST
 DIAM = Val(DIAM)
 If LM > 300 Then RCC = 60 Else RCC = LM / 2
 Y = MR_Y(FA + RCC, SVIL, SDX)
 RS1 = T_CIRC(H - QS, Y, DIAM)
 SPC_PULS = RS1
 QCSP = H - QS
 GoTo END_SPC
 
 
 
 Case "T05"
 NFDATA = FreeFile
 Open NF_SP For Input As #NFDATA
 Line Input #NFDATA, ST_COD
 Line Input #NFDATA, VOID_ROW
 Line Input #NFDATA, NS   'NUMERO SPACCHI
 NS = Val(NS)
 For KT = 1 To NS
 Line Input #NFDATA, lS
 Line Input #NFDATA, HS
 Line Input #NFDATA, RR
 Line Input #NFDATA, QS
 lS = Val(lS)
 HS = Val(HS)
 RR = Val(RR)
 QS = Val(QS) + OFST
 If LM > 300 Then DS = 60 - lS / 2 Else DS = LM / 2 - lS / 2
 DD = RR * 2
 LSR = lS - DD
 HSR = HS - DD
 LL = HSR
 HH = lS
 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)
 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)
 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
 Next KT
 Close #NFDATA
 GoTo END_SPC
 
 
 Case "T06"                     'SPACCHI OTIS
 NFDATA = FreeFile
 Open NF_SP For Input As #NFDATA
 Line Input #NFDATA, ST_COD
 Line Input #NFDATA, VOID_ROW
 Line Input #NFDATA, NS   'NUMERO SPACCHI
 Line Input #NFDATA, TPS  'TIPO SPACCHI
 NS = Val(NS)
 For KT = 1 To NS
 Line Input #NFDATA, lS
 Line Input #NFDATA, HS
 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
 Line Input #NFDATA, DYS  'DISTANZA VERTICALE DA CENTRO SPACCO RETTANGOLARE FORO SUPERIORE
 lS = Val(lS)
 HS = Val(HS)
 IX = Val(IX)
 QS = Val(QS) + OFST
 DYI = Val(DYI)
 DYS = Val(DYS)
 DMF = Val(DMF)
 If LM > 300 Then RCC = 60 Else RCC = LM / 2
 Y = MR_Y(FA + RCC, SVIL, SDX)
 'RS1 = T_RECT2(H - QS, Y, HS, lS)
 RS1 = T_SLOT(H - QS, Y, lS, HS, 90)
 RS2 = T_CIRC(H - QS + DYI, Y - IX / 2, DMF)
 RS3 = T_CIRC(H - QS + DYI, Y + IX / 2, DMF)
 RS4 = T_CIRC(H - QS - DYS, Y, DMF)
 SPC_PULS = SPC_PULS & RS1 & RS2 & RS3 & RS4
 QCSP = H - QS - HS
 Next KT
 GoTo END_SPC
 
 
 
 Case "T07"                       'SPACCO RETTANGOLO CON 3+3 FORI SIMM. DIAM4.5
 NFDATA = FreeFile
 Open NF_SP For Input As #NFDATA
 Line Input #NFDATA, ST_COD
 Line Input #NFDATA, VOID_ROW
 Line Input #NFDATA, lS
 Line Input #NFDATA, HS
 Line Input #NFDATA, QS
 Line Input #NFDATA, M4
 Line Input #NFDATA, DISTF
 Close #NFDATA
 DIAM = 4.5
 lS = Val(lS)
 HS = Val(HS)
 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)
 RS1 = T_RECT2(H - QS - HS / 2, Y, HS, lS)
 RS2 = T_CIRC(H - QS - HS / 2 + DISTF / 2, Y, DIAM)
 RS3 = T_CIRC(H - QS - HS / 2 + DISTF / 2, Y + M4 / 2, DIAM)
 RS4 = T_CIRC(H - QS - HS / 2 + DISTF / 2, Y - M4 / 2, DIAM)
 RS5 = T_CIRC(H - QS - HS / 2 - DISTF / 2, Y, DIAM)
 RS6 = T_CIRC(H - QS - HS / 2 - DISTF / 2, Y + M4 / 2, DIAM)
 RS7 = T_CIRC(H - QS - HS / 2 - DISTF / 2, Y - M4 / 2, DIAM)
 SPC_PULS = RS1 & RS2 & RS3 & RS4 & RS5 & RS6 & RS7
 QCSP = H - QS - HS / 2
 GoTo END_SPC
 
 
 Case "T08"                       'SPACCO SPAGNA OTIS COPPIA FORI + ASOLA + FORO SINGOLO
 NFDATA = FreeFile
 Open NF_SP For Input As #NFDATA
 Line Input #NFDATA, ST_COD
 MsgBox "CONTROLLARE SPACCO " & ST_COD
 If COD_SP <> "50390" Then MsgBox "ATTENZIONE POSSIBILE CHE IL PEZZO CON SPACCO " & COD_SP & " DEBBA PASSARE PCA, CONTROLLARE!"
 Line Input #NFDATA, VOID_ROW
 Line Input #NFDATA, NS   'NUMERO SPACCHI
 NS = Val(NS)
 For KT = 1 To NS
 Line Input #NFDATA, Q_AS
 Line Input #NFDATA, LAR_AS
 Line Input #NFDATA, ALT_AS
 Line Input #NFDATA, q_cf
 Line Input #NFDATA, INT_FOR
 Line Input #NFDATA, DIM_FORI
 Line Input #NFDATA, q_f
 Line Input #NFDATA, DIM_FORO
 
 Q_AS = Val(Q_AS)
 LAR_AS = Val(LAR_AS)
 ALT_AS = Val(ALT_AS)
 q_cf = Val(q_cf)
 DIM_FORI = Val(DIM_FORI)
 q_f = Val(q_f)
 DIM_FORO = Val(DIM_FORO)
 
 Y = MR_Y(FA + LM / 2, SVIL, SDX)
 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)
 RS5 = T_CIRC(H - q_cf, Y - INT_FOR / 2, DIM_FORI)
 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)
 SPC_PULS = SPC_PULS & RS1 & RS2 & RS3 & RS4 & RS5 & RS6
 QCSP = H - (q_cf + (q_f - q_cf) / 2)
 
 Next KT
 Close #NFDATA
 GoTo END_SPC
 
 
 
 
 End Select
 
 
 SPC_INSERT:
 
 '******************************************************
 If InStr(1, COD_SP, "999") > 0 And SPC_R_OLD <> "" Then 'RIPETERE LO SPACCO PRECEDENTE
 SPC_OLD = MsgBox("VUOI INSERIRE LO SPACCO PRECEDENTE?", vbYesNo)
 If SPC_OLD = vbYes Then
 SPC_R = SPC_R_OLD
 QCSP = QCSP_OLD
 SPC_PULS = SPC_R
 GoTo END_SPC
 End If
 End If
 '******************************************************
 
 CUR_COM = CMM
 UserForm2.Show
 
 If PULS_TYPE = 0 Then Exit Function
 CNTR = Empty
 RSN = MsgBox("SPACCO CENTRATO SU MONTANTE?", vbYesNo)
 Select Case RSN
 Case vbYes
 CNTR = 1
 Case vbNo
 CNTR = 0
 End Select
 
 
 
 '*****************************************PER REPORT SPACCHI
 RP = RP + 1
 RPT_SPC(RP, 1, 1) = INFO_DAT(CMM, 0, 2)
 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
 '***********************************************************
 
 
 
 
 Select Case PULS_TYPE
 
 Case 1       'SPACCO RETTANGOLARE SINGOLO
 QS = Val(INPUT_VAL(1, "QUOTA PARTENZA SPACCO", QS, "")) + OFST
 HS = INPUT_VAL(1, "ALTEZZA SPACCO", HS, "")
 lS = INPUT_VAL(1, "LARGHEZZA SPACCO", lS, "")
 Select Case CNTR
 Case 0
 DS = INPUT_VAL(1, "DISTANZA SPACCO DA APERTURA", DS, "")
 Case 1
 DS = (LM - lS) / 2
 Case Else
 MsgBox "ERRORE COORDINATA ORIZZONTALE SPACCO", vbCritical
 Exit Function
 End Select
 
 Y = MR_Y(FA + DS + lS / 2, SVIL, SDX)
 RS1 = T_RECT2(H - QS - HS / 2, Y, HS, lS)
 SPC_R = RS1
 QCSP = H - QS - HS / 2
 
 Case 2      'SPACCO RETTANGOLARE SINGOLO CON COPPIA DI FORI CENTRATI
 QS = Val(INPUT_VAL(1, "QUOTA PARTENZA SPACCO", QS, "")) + OFST
 HS = INPUT_VAL(1, "ALTEZZA SPACCO", HS, "")
 lS = INPUT_VAL(1, "LARGHEZZA SPACCO", lS, "")
 
 Select Case CNTR
 Case 0
 DS = INPUT_VAL(1, "DISTANZA SPACCO DA APERTURA", DS, "")
 Case 1
 DS = (LM - lS) / 2
 Case Else
 MsgBox "ERRORE COORDINATA ORIZZONTALE SPACCO", vbCritical
 Exit Function
 End Select
 
 
 KF = INPUT_VAL(1, "INTERASSE VERTICALE FORI", KF, "")
 DF = INPUT_VAL(1, "DIAMETRO FORI", DF, "")
 
 Y = MR_Y(FA + DS + lS / 2, SVIL, SDX)
 
 RS1 = T_RECT2(H - QS - HS / 2, Y, HS, lS)
 RS2 = T_CIRC(H - QS - HS / 2 - KF / 2, Y, DF)
 RS3 = T_CIRC(H - QS - HS / 2 + KF / 2, Y, DF)
 SPC_R = RS1 & RS2 & RS3
 QCSP = H - QS - HS / 2
 
 Case 3
 QS = Val(INPUT_VAL(1, "QUOTA PARTENZA SPACCO", QS, "")) + OFST
 HS = INPUT_VAL(1, "ALTEZZA SPACCO", HS, "")
 lS = INPUT_VAL(1, "LARGHEZZA SPACCO", lS, "")
 LI = INPUT_VAL(1, "LARGHEZZA INCAVO", LI, "")
 
 Select Case CNTR
 Case 0
 DS = INPUT_VAL(1, "DISTANZA SPACCO DA APERTURA", DS, "")
 Case 1
 DS = (LM - lS) / 2
 Case Else
 MsgBox "ERRORE COORDINATA ORIZZONTALE SPACCO", vbCritical
 Exit Function
 End Select
 
 Y = MR_Y(FA + DS + lS / 2, SVIL, SDX)
 RS1 = T_RECT2(H - QS - HS - 1, Y, 10, LI)
 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
 
 
 Case 4      'SPACCO RETTANGOLO RACCORDATO
 QS = Val(INPUT_VAL(1, "QUOTA PARTENZA SPACCO", QS, "")) + OFST
 HS = INPUT_VAL(1, "ALTEZZA SPACCO", lS, "")
 lS = INPUT_VAL(1, "LARGHEZZA SPACCO", lS, "")
 
 Select Case CNTR
 Case 0
 DS = INPUT_VAL(1, "DISTANZA SPACCO DA APERTURA", DS, "")
 Case 1
 DS = (LM - lS) / 2
 Case Else
 MsgBox "ERRORE COORDINATA ORIZZONTALE SPACCO", vbCritical
 Exit Function
 End Select
 
 RR = INPUT_VAL(1, "RAGGIO RACCORDI", RR, "")
 
 DD = 2 * RR
 LSR = lS - DD
 HSR = HS - DD
 
 Select Case HSR - LSR
 Case Is > 0
 LL = HS
 HH = LSR
 Case Is <= 0
 LL = HSR
 HH = lS
 End Select
 
 RS1 = T_RECT2(H - QS - HS / 2, MR_Y(FA + DS + lS / 2, SVIL, SDX), HH, LL)
 LUT = 10
 
 Y = MR_Y(FA + DS + lS / 2, SVIL, SDX)
 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)
 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)
 RS2 = T_RECT2(H - QS - LUT / 2, Y, LUT, LSR)
 RS3 = T_RECT2(H - QS - HS + LUT / 2, Y, LUT, LSR)
 End Select
 
 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)
 RS7 = T_CIRC(H - QS - HS + RR, Y - lS / 2 + RR, DD)
 SPC_R = RS4 & RS5 & RS6 & RS7 & RS1 & RS2 & RS3
 QCSP = H - QS - HS / 2
 
 SSPP = MsgBox("VUOI INSERIRE TONDI IN ALTO E IN BASSO?", vbYesNo)
 If SSPP = 6 Then
 DDM = INPUT_VAL(1, "DISTANZA FORO DA CENTRO SPACCO", DDM, "")
 DDM2 = INPUT_VAL(1, "DIAMTERO FORI", DDM2, "")
 
 RS8 = T_CIRC(H - QS - HS / 2 + DDM, Y, DDM2)
 RS9 = T_CIRC(H - QS - HS / 2 - DDM, Y, DDM2)
 SPC_R = SPC_R & RS8 & RS9
 
 End If
 
 Case 5      'SPACCO STAR 30_5
 
 QS = 1000
 QS = Val(INPUT_VAL(1, "QUOTA CENTRO SPACCO DA TERRA", QS, "")) + OFST
 DD = InputBox("DIAMETRO FORO")
 DD = Val(DD)
 '**********************REPORT SPACCHI
 RP2 = RP2 + 1
 RPT_SPC(RP, RP2, 1) = DD
 RPT_SPC(RP, RP2, 2) = "DIAMETRO FORO"
 '************************************
 Select Case CNTR
 Case 0
 dc = INPUT_VAL(1, "DISTANZA CENTRO SPACCO DA APERTURA", dc, "")
 Case 1
 dc = LM / 2
 Case Else
 MsgBox "ERRORE COORDINATA ORIZZONTALE SPACCO", vbCritical
 Exit Function
 End Select
 
 X = H - QS
 Y = MR_Y(FA + dc, SVIL, SDX)
 
 'SPC_R = T_CIRC(X, Y, DD)
 SSPP = MsgBox("VUOI LE SPIZZE SULLO SPACCO TONDO?", vbYesNo)
 If SSPP = 6 Then
 'MsgBox ("CONTROLLARE SPACCO STAR")
 SPC1 = T_CIRC(X, Y, DD)
 RDR = DD / 2 - 4 + 1.9 - 0.5
 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)
 SPC_R = SPC1 & SPC2
 Else
 SPC_R = T_CIRC(X, Y, DD)
 End If
 
 QCSP = X
 
 
 Case 6      'SPACCO RETTANGOLARE SINGOLO CON 2 COPPIE DI FORI SIMMETRICI
 QS = INPUT_VAL(1, "QUOTA PARTENZA SPACCO", QS, "")
 QS = QS '+ 2.5
 HS = INPUT_VAL(1, "ALTEZZA SPACCO", HS, "")
 lS = INPUT_VAL(1, "LARGHEZZA SPACCO", lS, "")
 
 Select Case CNTR
 Case 0
 DS = INPUT_VAL(1, "DISTANZA SPACCO DA APERTURA", DS, "")
 Case 1
 DS = (LM - lS) / 2
 Case Else
 MsgBox "ERRORE COORDINATA ORIZZONTALE SPACCO", vbCritical
 Exit Function
 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, "")
 
 Y = MR_Y(FA + DS + lS / 2, SVIL, SDX)
 YOR1 = Y - ORF / 2
 YOR2 = Y + ORF / 2
 
 RS1 = T_RECT2(H - QS - HS / 2, Y, HS, lS)
 RS2 = T_CIRC(H - QS - HS / 2 - KF / 2, YOR1, DF)
 RS3 = T_CIRC(H - QS - HS / 2 - KF / 2, YOR2, DF)
 RS4 = T_CIRC(H - QS - HS / 2 + KF / 2, YOR1, DF)
 RS5 = T_CIRC(H - QS - HS / 2 + KF / 2, YOR2, DF)
 SPC_R = RS1 & RS2 & RS3 & RS4 & RS5
 QCSP = H - QS - HS / 2
 MsgBox ("CONTROLLARE SPACCO RETTANGOLARE SINGOLO CON 2 COPPIE DI FORI SIMMETRICI")
 
 
 Case Else
 MsgBox "ERRORE SU DATI SPACCO, NESSUNO SPACCO SARA' LAVORATO SUL PEZZO", vbCritical
 SPC_R = ""
 End Select
 
 SPC_PULS = SPC_PULS & SPC_R
 
 RSN = MsgBox("INSERIRE ALTRO SPACCO?", vbYesNo Or vbDefaultButton2)
 Select Case RSN
 Case vbYes
 SPC_PULS = SPC_PULS
 GoTo SPC_INSERT
 Case vbNo
 End Select
 END_SPC:
 PULS_TYPE = Empty
 
 
 '***********************************
 If InStr(1, COD_SP, "999") > 0 Then  'RIPETERE LO SPACCO PRECEDENTE
 SPC_R_OLD = SPC_R
 QCSP_OLD = QCSP
 End If
 '***********************************
 
 
 If QCSP <> 0 Then
 MsgBox QCSP
 Else
 MsgBox "ATTENZIONE QUOTA CENTRO SPACCO NON DEFINITA", vbCritical
 End If
 
 End Function
 
 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
 
 
 '**************************************************************
 SPC_INDIC = SPCi_CODIFY(CMM, CD_IN, FA, H, SVIL, HT)
 If SPC_INDIC <> "" Then Exit Function
 '**************************************************************
 
 
 
 SPC_INDIC = Empty
 Spclist = FILELIST(SPC_FOLD, True, "*")
 
 IND_FOUND = 0
 TYCK = ""
 For i = 1 To UBound(Spclist)
 CDCK = Right(Spclist(i), InStr(1, StrReverse(Spclist(i)), "\", vbBinaryCompare) - 1)
 CDCK = Left(CDCK, InStr(1, CDCK, ".", vbBinaryCompare) - 1)
 
 If CDCK = CD_IN Then
 
 Select Case IND_FOUND
 Case 0
 IND_FOUND = 1
 NF_IN = Spclist(i)
 TYCK = Left(Spclist(i), Len(Spclist(i)) - InStr(1, StrReverse(Spclist(i)), "\", vbBinaryCompare))
 TYCK = Right(TYCK, InStr(1, StrReverse(TYCK), "\", vbBinaryCompare) - 1)
 
 Case 1
 MsgBox "ERRORE SU MODULO INDICATORE"
 Case Else
 MsgBox "ERRORE SU MODULO INDICATORE"
 End Select
 End If
 Next i
 
 
 If IND_FOUND = 0 And CD_IN <> "9999" Then MsgBox "SPACCO " & CD_IN & " NON TROVATO", vbExclamation
 
 Select Case TYCK
 
 Case "I02"
 NFDATA = FreeFile
 Open NF_IN For Input As #NFDATA
 Line Input #NFDATA, ST_COD
 Line Input #NFDATA, VOID_ROW
 Line Input #NFDATA, lS
 Line Input #NFDATA, HS
 Line Input #NFDATA, QS
 Line Input #NFDATA, DIAM
 Line Input #NFDATA, DISTF
 Close #NFDATA
 
 If QS = "C" Then QS = HT / 2 - Val(HS) / 2
 
 lS = Val(lS)
 HS = Val(HS)
 QS = Val(QS)
 DIAM = Val(DIAM)
 DISTF = Val(DISTF)
 
 Y = FA + QS + HS / 2
 
 RS1 = T_RECT2(Y, H / 2, HS, lS)
 RS2 = T_CIRC(Y, H / 2 + DISTF / 2, DIAM)
 RS3 = T_CIRC(Y, H / 2 - DISTF / 2, DIAM)
 SPC_R = RS1 & RS2 & RS3
 
 GoTo END_IND
 
 
 
 
 Case "I03"
 NFDATA = FreeFile
 Open NF_IN For Input As #NFDATA
 Line Input #NFDATA, ST_COD
 Line Input #NFDATA, VOID_ROW
 Line Input #NFDATA, lS
 Line Input #NFDATA, HS
 Line Input #NFDATA, QS
 Line Input #NFDATA, LS2
 Line Input #NFDATA, HS2
 Close #NFDATA
 
 If QS = "C" Then QS = HT / 2 - Val(HS) / 2
 
 lS = Val(lS)
 HS = Val(HS)
 QS = Val(QS)
 DIAM = Val(DIAM)
 DISTF = Val(DISTF)
 
 Y = FA + QS + HS / 2
 Y2 = FA + QS - HS2 + (HS2 + 5.5) / 2
 HS3 = HS2 + 5.5
 
 RS1 = T_RECT2(Y, H / 2, HS, lS)
 If LS2 * HS2 > 0 Then RS2 = T_RECT2(Y, H / 2, HS3, LS2) Else RS2 = ""
 
 SPC_R = RS1 & RS2
 
 GoTo END_IND
 
 
 End Select
 
 
 SPC_INDIC = Empty
 CUR_COM = CMM
 UserForm3.Show
 
 If INDIC_TYPE = 0 Then Exit Function
 
 
 
 '*****************************************PER REPORT SPACHI
 RP = RP + 1
 RPT_SPC(RP, 1, 1) = INFO_DAT(CMM, 0, 2)
 RPT_SPC(RP, 1, 2) = "COMMESSA"
 RP2 = 1
 '**********************************************************
 
 
 
 Select Case INDIC_TYPE
 
 
 Case 1       'SPACCO RETTANGOLARE SINGOLO
 QS = INPUT_VAL(1, "QUOTA PARTENZA SPACCO", QS, "")
 HS = INPUT_VAL(1, "ALTEZZA SPACCO", HS, "")
 lS = INPUT_VAL(1, "LARGHEZZA SPACCO", lS, "")
 
 Y = FA + QS + HS / 2
 RS1 = T_RECT2(Y, H / 2, HS, lS)
 SPC_R = RS1
 
 
 Case 2      'SPACCO RETTANGOLARE SINGOLO CON COPPIA DI FORI CENTRATI
 QS = INPUT_VAL(1, "QUOTA PARTENZA SPACCO", QS, "")
 HS = INPUT_VAL(1, "ALTEZZA SPACCO", HS, "")
 lS = INPUT_VAL(1, "LARGHEZZA SPACCO", lS, "")
 KF = INPUT_VAL(1, "INTERASSE ORIZZONTALE FORI", KF, "")
 DF = INPUT_VAL(1, "DIAMETRO FORI", DF, "")
 Y = FA + QS + HS / 2
 RS1 = T_RECT2(Y, H / 2, HS, lS)
 RS2 = T_CIRC(Y, H / 2 - KF / 2, DF)
 RS3 = T_CIRC(Y, H / 2 + KF / 2, DF)
 SPC_R = RS1 & RS2 & RS3
 
 
 Case 3      'SPACCO STAR 30_5
 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, "")
 'Y = FA - QS
 Y = FA + QS
 'DIAM = 30
 'LAT = 5
 'R = DIAM / 2 - 2.5
 'X1 = XX + R
 'Y1 = Y
 'X2 = XX
 'Y2 = Y - R
 'X3 = XX - R
 'Y3 = Y
 'X4 = XX
 'Y4 = Y + R
 
 'G901 = "G90/X" & X1 & "/Y" & Y1 & "/T339/>"
 '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
 
 'SPC_R = T_CIRC(H / 2, Y, DF)
 SSPP = MsgBox("VUOI LE SPIZZE SULLO SPACCO TONDO?", vbYesNo)
 MsgBox ("CONTROLLARE SPACCO STAR")
 If SSPP = 6 Then
 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)
 SPC_R = SPC1 & SPC2
 Else
 SPC_R = T_CIRC(Y, H / 2, DF)
 End If
 
 
 Case 4       'SPACCO RETTANGOLARE SINGOLO CON INCAVI
 QS = INPUT_VAL(1, "QUOTA PARTENZA SPACCO", QS, "")
 HS = INPUT_VAL(1, "ALTEZZA SPACCO", HS, "")
 lS = INPUT_VAL(1, "LARGHEZZA SPACCO", lS, "")
 AI = INPUT_VAL(1, "ALTEZZA INCAVO", LI, "")
 LI = INPUT_VAL(1, "LARGHEZZA INCAVO", LI, "")
 Y = FA + QS + HS / 2
 SVP = 4 'SOVRAPPOSIZIONE SPACCHI LATERALI
 RS1 = T_RECT2(Y, H / 2, HS, lS)
 RS2 = T_RECT2(Y, H / 2 - lS / 2 - LI / 2 + SVP / 2, AI, LI + SVP)
 RS3 = T_RECT2(Y, H / 2 + lS / 2 + LI / 2 - SVP / 2, AI, LI + SVP)
 SPC_R = RS1 & RS2 & RS3
 
 End Select
 
 END_IND:
 
 PULS_TYPE = Empty
 SPC_INDIC = SPC_R
 
 End Function