Stipiti

'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