G_Vipros

'G_Vipros

Sub V_1014688A(ByVal NND As Integer)
ACT_MOD = "1014688"
NHD = 1
If NND > 0 Then ON_MD = 2 Else ON_MD = 1

'MsgBox "CONTROLLARE " & ACT_MOD

'************************************* INPUT
Select Case ON_MD
Case 1
comm = INPUT_STR(NND, "COMMESSA", comm, ACT_MOD)
Case 2
comm = INFO_DAT(NND, 0, 2)
RAGG = INFO_DAT(NND, 0, 3)
QTT = INFO_DAT(NND, 0, 4)
CODR = INFO_DAT(NND, 0, 10) & " - " & INFO_DAT(NND, 0, 11) & " - " & INFO_DAT(NND, 0, 12)

Case Else
MsgBox "ERRORE", , ACT_MOD
End Select

L = INPUT_NUM(NND, "L", L, ACT_MOD)
H = INPUT_NUM(NND, "H", H, ACT_MOD)
M1 = INPUT_NUM(NND, "M1", M1, ACT_MOD)
M2 = INPUT_NUM(NND, "M2", M2, ACT_MOD)
SPS = INPUT_NUM(NND, "SPS", SPS, ACT_MOD) / 10

'************************************* SCRITTURA LISTATO

XSC = 12 - 2 * SPS
YSCINF = 12 + 1.75 - 2 * SPS 'MOD
YSCSUP = YSCINF + 19 'MOD
DSTA = (L - M2) / 2
QQ = 20

'R01A = T_RECT1(QQ - XSC, XSC, QQ - YSCINF, YSCINF) & T_RECT1(QQ - XSC, XSC, YSCSUP, H + 3)
'R01B = T_RECT1(L - XSC, L + (QQ - XSC), YSCSUP, H + 3) & T_RECT1(L - XSC, L + (QQ - XSC), QQ - YSCINF, YSCINF)

R01A = T_RECT1(XSC - QQ, XSC, YSCINF - QQ, YSCINF) & T_RECT1(XSC - QQ, XSC, YSCSUP, H + 3)
R01B = T_RECT1(L - XSC, L + (QQ - XSC), YSCSUP, H + 3) & T_RECT1(L - XSC, L + (QQ - XSC), YSCINF - QQ, YSCINF)
R01 = R01A & R01B

R02A = T_CIRC(XSC, YSCINF, 3.3) & T_CIRC(XSC, YSCSUP, 3.3)
R02B = T_CIRC(L - XSC, YSCINF, 3.3) & T_CIRC(L - XSC, YSCSUP, 3.3)
R02 = R02A & R02B

R03 = T_SLOT(DSTA, H - 8, 14, 5, 90) & T_SLOT(L - DSTA, H - 8, 14, 5, 90)

R04A = T_RECT1(XSC + 40, L - XSC - 40, H - 10, H + 10) 'faccio passata con 20x20
'R04B = TG_R(20, XSC + 4, H - 5 - 4, XSC + 5 + 4, H - 4, 8, 8) & TG_R(20, XSC + 40 - 5 - 4, H - 4, XSC + 40 - 4, H - 5 - 4, 8, 8)
'R04C = TG_R(20, L - XSC - 40 + 4, H - 5 - 4, L - XSC - 40 + 5 + 4, H - 4, 8, 8) & TG_R(20, L - XSC - 5 - 4, H - 4, L - XSC - 4, H - 5 - 4, 8, 8)
R04 = R04A '& R04B & R04C

R05A = T_RAG(XSC, 0, 1) & T_RAG(0, YSCINF, 1) & T_RAG(L - XSC, 0, 4) & T_RAG(L, YSCINF, 4)
R05B = T_RAG(0, YSCSUP, 2) & T_RAG(L, YSCSUP, 3)
R05C = T_RAG(XSC, H, 2) & T_RAG(L - XSC, H, 3) & T_RAG(XSC + 40, H, 3) & T_RAG(L - XSC - 40, H, 2)
R05 = R05A & R05B & R05C



P1 = L / 2 - 85
P2 = L / 2 + 85
MVAL = 500

STRINGA = R000_vpr(NHD, CTT, SPS, L, H, P1, P2, QTT, comm, RAGG, CODR, MVAL, INFO_DAT(NND, 0, 5)) & R01 & R02 & R03 & R04 & R05


Call SAVE_SUB(NND, STRINGA)

ACT_MOD = ""
End Sub



Sub V_1016428B(ByVal NND As Integer)
ACT_MOD = "1016428"
NHD = 10
'MsgBox "CONTROLLARE " & ACT_MOD & ", NUOVA REVISIONE!!!!!"
'AGGIORNATO 24/12/2017
'************************************* INPUT
If NND > 0 Then ON_MD = 2 Else ON_MD = 1
Select Case ON_MD
Case 1
comm = INPUT_STR(NND, "COMMESSA", comm, ACT_MOD)
Case 2
comm = INFO_DAT(NND, 0, 2)
RAGG = INFO_DAT(NND, 0, 3)
QTT = INFO_DAT(NND, 0, 4)
CODR = INFO_DAT(NND, 0, 10) & " - " & INFO_DAT(NND, 0, 11) & " - " & INFO_DAT(NND, 0, 12)

Case Else
MsgBox "ERRORE", , ACT_MOD
End Select

L = INPUT_NUM(NND, "L", 0, ACT_MOD)
H = INPUT_NUM(NND, "H", H, ACT_MOD)
SPS = INPUT_NUM(NND, "SPS", SPS, ACT_MOD)
M1 = INPUT_NUM(NND, "M1", M1, ACT_MOD)
M2 = INPUT_NUM(NND, "M2", M2, ACT_MOD)
M3 = INPUT_NUM(NND, "M3", M3, ACT_MOD)
M4 = INPUT_NUM(NND, "M4", M4, ACT_MOD)
M5 = INPUT_NUM(NND, "M5", M5, ACT_MOD)
M6 = INPUT_NUM(NND, "M6", M6, ACT_MOD)
M7 = INPUT_NUM(NND, "M7", M7, ACT_MOD)
M8 = INPUT_NUM(NND, "M8", M8, ACT_MOD)
M9 = INPUT_NUM(NND, "M9", M9, ACT_MOD)
M10 = INPUT_NUM(NND, "M10", M10, ACT_MOD)
M11 = INPUT_NUM(NND, "M11", M11, ACT_MOD)
M12 = INPUT_NUM(NND, "M12", M12, ACT_MOD)
M13 = INPUT_NUM(NND, "M13", M13, ACT_MOD)
M14 = INPUT_NUM(NND, "M14", M14, ACT_MOD)
M15 = INPUT_NUM(NND, "M15", M15, ACT_MOD)
M16 = INPUT_NUM(NND, "M16", M16, ACT_MOD)
M17 = INPUT_NUM(NND, "M17", M17, ACT_MOD)
M18 = INPUT_NUM(NND, "M18", M18, ACT_MOD)
M19 = INPUT_NUM(NND, "M19", M19, ACT_MOD)
M20 = INPUT_NUM(NND, "M20", M20, ACT_MOD)
M21 = INPUT_NUM(NND, "M21", M21, ACT_MOD)
VV = Val(Replace(INFO_DAT(NND, 0, 7), "P", ""))



'************************************* SCRITTURA LISTATO

Select Case VV
Case 1, 5

R01 = T_RECT1(-3, M18, -3, H - 81.5) & T_RECT1(L - M19, L + 3, -3, H - 81.5)
R02 = T_CIRC(L / 2 + M15 + M13, M14, 8) & T_CIRC(L / 2 + M15, M14, 8) & T_CIRC(L / 2 - M15, M14, 8) & T_CIRC(L / 2 - M15 - M17, M14, 8)
If M21 > 0 Then R09 = T_CIRC(L / 2 + M15 + M13 - M21, M14, 8) Else R09 = ""
If M20 > 0 Then R10 = T_CIRC(L / 2 - M15 - M17 + M20, M14, 8) Else R10 = ""
R03 = T_CIRC(75, H - 50.75, 9) & T_CIRC(L / 2 - M10, H - 50.75, 9) & T_CIRC(L / 2, H - 50.75, 9) & T_CIRC(L / 2 + M10, H - 50.75, 9) & T_CIRC(L - 75, H - 50.75, 9)
R04 = T_RECT1(M2, M2 + 23, H - 19, H - 6) & T_RECT1(M2 + M1, M2 + M1 + 23, H - 19, H - 6) & T_RECT1(M2 + 2 * M1, M2 + 2 * M1 + 23, H - 19, H - 6) & T_RECT1(M2 + 3 * M1, M2 + 3 * M1 + 23, H - 19, H - 6) & T_SLOT(M2 + 3 * M1 - 35, H - 13, 20, 8.5, 90)
R05 = T_SLOT(L - M9 + M7, H - 39.75, 45, 9, 0) & T_SLOT(L - M9 + 33, H - 39.75, 45, 9, 0) & T_SLOT(L - M9 - 33, H - 39.75, 45, 9, 0) & T_SLOT(L - M9 - M8, H - 39.75, 45, 9, 0)
R06 = T_RECT1(L - M9 + M4 - 22.5, L - M9 + M4 + 22.5, H - 71.75, H - 57.75) & T_RECT1(L - M9 + M3 - 22.5, L - M9 + M3 + 22.5, H - 71.75, H - 57.75) & T_RECT1(L - M9 - M5 - 22.5, L - M9 - M5 + 22.5, H - 71.75, H - 57.75) & T_RECT1(L - M9 - M6 - 22.5, L - M9 - M6 + 22.5, H - 71.75, H - 57.75)
R07 = T_SLOT(M9 - M7, H - 39.75, 45, 9, 0) & T_SLOT(M9 - 33, H - 39.75, 45, 9, 0) & T_SLOT(M9 + 33, H - 39.75, 45, 9, 0) & T_SLOT(M9 + M8, H - 39.75, 45, 9, 0)
R08 = T_RECT1(M9 - M4 - 22.5, M9 - M4 + 22.5, H - 71.75, H - 57.75) & T_RECT1(M9 - M3 - 22.5, M9 - M3 + 22.5, H - 71.75, H - 57.75) & T_RECT1(M9 + M5 - 22.5, M9 + M5 + 22.5, H - 71.75, H - 57.75) & T_RECT1(M9 + M6 - 22.5, M9 + M6 + 22.5, H - 71.75, H - 57.75)

R11 = T_45(M11 / 2, H)

Case 2, 6

R01 = T_RECT1(-3, M18, M12 + M16 - 18, H + 3) & T_RECT1(L - M19, L + 10, -3, H - 81.5)
R02 = T_CIRC(M18 + M11 / 2 + M15 + M13, M14, 8) & T_CIRC(M18 + M11 / 2 + M15, M14, 8) & T_CIRC(M18 + M11 / 2 - M15, M14, 8) & T_CIRC(M18 + M11 / 2 - M15 - M17, M14, 8)
If M21 > 0 Then R09 = T_CIRC(M18 + M11 / 2 + M15 + M13 - M21, M14, 8) Else R09 = ""
If M20 > 0 Then R10 = T_CIRC(M18 + M11 / 2 - M15 - M17 + M20, M14, 8) Else R10 = ""
R03 = T_CIRC(M18 + 75, H - 50.75, 9) & T_CIRC(M18 + M11 / 2 - M10, H - 50.75, 9) & T_CIRC(M18 + M11 / 2, H - 50.75, 9) & T_CIRC(M18 + M11 / 2 + M10, H - 50.75, 9) & T_CIRC(L - 75, H - 50.75, 9)
R04 = T_RECT1(M18 + M2, M18 + M2 + 23, H - 19, H - 6) & T_RECT1(M18 + M2 + M1, M18 + M2 + M1 + 23, H - 19, H - 6) & T_RECT1(M18 + M2 + 2 * M1, M18 + M2 + 2 * M1 + 23, H - 19, H - 6) & T_RECT1(M18 + M2 + 3 * M1, M18 + M2 + 3 * M1 + 23, H - 19, H - 6) & T_SLOT(M18 + M2 + 3 * M1 - 35, H - 13, 20, 8.5, 90)
R05 = T_SLOT(L - M9 + M7, H - 39.75, 45, 9, 0) & T_SLOT(L - M9 + 33, H - 39.75, 45, 9, 0) & T_SLOT(L - M9 - 33, H - 39.75, 45, 9, 0) & T_SLOT(L - M9 - M8, H - 39.75, 45, 9, 0)
R06 = T_RECT1(L - M9 + M4 - 22.5, L - M9 + M4 + 22.5, H - 71.75, H - 57.75) & T_RECT1(L - M9 + M3 - 22.5, L - M9 + M3 + 22.5, H - 71.75, H - 57.75) & T_RECT1(L - M9 - M5 - 22.5, L - M9 - M5 + 22.5, H - 71.75, H - 57.75) & T_RECT1(L - M9 - M6 - 22.5, L - M9 - M6 + 22.5, H - 71.75, H - 57.75)
R07 = T_SLOT(M18 + M9 - M7, H - 39.75, 45, 9, 0) & T_SLOT(M18 + M9 - 33, H - 39.75, 45, 9, 0) & T_SLOT(M18 + M9 + 33, H - 39.75, 45, 9, 0) & T_SLOT(M18 + M9 + M8, H - 39.75, 45, 9, 0)
R08 = T_RECT1(M18 + M9 - M4 - 22.5, M18 + M9 - M4 + 22.5, H - 71.75, H - 57.75) & T_RECT1(M18 + M9 - M3 - 22.5, M18 + M9 - M3 + 22.5, H - 71.75, H - 57.75) & T_RECT1(M18 + M9 + M5 - 22.5, M18 + M9 + M5 + 22.5, H - 71.75, H - 57.75) & T_RECT1(M18 + M9 + M6 - 22.5, M18 + M9 + M6 + 22.5, H - 71.75, H - 57.75)

R11 = T_45(M18 + M11 / 2, H)

Case 3, 7
R01 = T_RECT1(-3, M18, -3, H - 81.5) & T_RECT1(L - M19, L + 3, M12 + M16 - 18, H + 3)
R02 = T_CIRC(M11 / 2 + M15 + M13, M14, 8) & T_CIRC(M11 / 2 + M15, M14, 8) & T_CIRC(M11 / 2 - M15, M14, 8) & T_CIRC(M11 / 2 - M15 - M17, M14, 8)
If M21 > 0 Then R09 = T_CIRC(M11 / 2 + M15 + M13 - M21, M14, 8) Else R09 = ""
If M20 > 0 Then R10 = T_CIRC(M11 / 2 - M15 - M17 + M20, M14, 8) Else R10 = ""
R03 = T_CIRC(75, H - 50.75, 9) & T_CIRC(M11 / 2 - M10, H - 50.75, 9) & T_CIRC(M11 / 2, H - 50.75, 9) & T_CIRC(M11 / 2 + M10, H - 50.75, 9) & T_CIRC(L - M19 - 75, H - 50.75, 9)
R04 = T_RECT1(M2, M2 + 23, H - 19, H - 6) & T_RECT1(M2 + M1, M2 + M1 + 23, H - 19, H - 6) & T_RECT1(M2 + 2 * M1, M2 + 2 * M1 + 23, H - 19, H - 6) & T_RECT1(M2 + 3 * M1, M2 + 3 * M1 + 23, H - 19, H - 6) & T_SLOT(M2 + 3 * M1 - 35, H - 13, 20, 8.5, 90)
R05 = T_SLOT(L - M19 - M9 + M7, H - 39.75, 45, 9, 0) & T_SLOT(L - M19 - M9 + 33, H - 39.75, 45, 9, 0) & T_SLOT(L - M19 - M9 - 33, H - 39.75, 45, 9, 0) & T_SLOT(L - M19 - M9 - M8, H - 39.75, 45, 9, 0)
R06 = T_RECT1(L - M19 - M9 + M4 - 22.5, L - M19 - M9 + M4 + 22.5, H - 71.75, H - 57.75) & T_RECT1(L - M19 - M9 + M3 - 22.5, L - M19 - M9 + M3 + 22.5, H - 71.75, H - 57.75) & T_RECT1(L - M19 - M9 - M5 - 22.5, L - M19 - M9 - M5 + 22.5, H - 71.75, H - 57.75) & T_RECT1(L - M19 - M9 - M6 - 22.5, L - M19 - M9 - M6 + 22.5, H - 71.75, H - 57.75)
R07 = T_SLOT(M9 - M7, H - 39.75, 45, 9, 0) & T_SLOT(M9 - 33, H - 39.75, 45, 9, 0) & T_SLOT(M9 + 33, H - 39.75, 45, 9, 0) & T_SLOT(M9 + M8, H - 39.75, 45, 9, 0)
R08 = T_RECT1(M9 - M4 - 22.5, M9 - M4 + 22.5, H - 71.75, H - 57.75) & T_RECT1(M9 - M3 - 22.5, M9 - M3 + 22.5, H - 71.75, H - 57.75) & T_RECT1(M9 + M5 - 22.5, M9 + M5 + 22.5, H - 71.75, H - 57.75) & T_RECT1(M9 + M6 - 22.5, M9 + M6 + 22.5, H - 71.75, H - 57.75)

R11 = T_45(M11 / 2, H)

Case 4, 8
R01 = T_RECT1(-10, M18, M12 + M16 - 18, H + 3) & T_RECT1(L - M19, L + 10, M12 + M16 - 18, H + 3)
R02 = T_CIRC(M18 + M11 / 2 + M15 + M13, M14, 8) & T_CIRC(M18 + M11 / 2 + M15, M14, 8) & T_CIRC(M18 + M11 / 2 - M15, M14, 8) & T_CIRC(M18 + M11 / 2 - M15 - M17, M14, 8)
If M21 > 0 Then R09 = T_CIRC(M18 + M11 / 2 + M15 + M13 - M21, M14, 8) Else R09 = ""
If M20 > 0 Then R10 = T_CIRC(M18 + M11 / 2 - M15 - M17 + M20, M14, 8) Else R10 = ""
R03 = T_CIRC(M18 + 75, H - 50.75, 9) & T_CIRC(M18 + M11 / 2 - M10, H - 50.75, 9) & T_CIRC(M18 + M11 / 2, H - 50.75, 9) & T_CIRC(M18 + M11 / 2 + M10, H - 50.75, 9) & T_CIRC(L - M19 - 75, H - 50.75, 9)
R04 = T_RECT1(M18 + M2, M18 + M2 + 23, H - 19, H - 6) & T_RECT1(M18 + M2 + M1, M18 + M2 + M1 + 23, H - 19, H - 6) & T_RECT1(M18 + M2 + 2 * M1, M18 + M2 + 2 * M1 + 23, H - 19, H - 6) & T_RECT1(M18 + M2 + 3 * M1, M18 + M2 + 3 * M1 + 23, H - 19, H - 6) & T_SLOT(M18 + M2 + 3 * M1 - 35, H - 13, 20, 8.5, 90)
R05 = T_SLOT(L - M19 - M9 + M7, H - 39.75, 45, 9, 0) & T_SLOT(L - M19 - M9 + 33, H - 39.75, 45, 9, 0) & T_SLOT(L - M19 - M9 - 33, H - 39.75, 45, 9, 0) & T_SLOT(L - M19 - M9 - M8, H - 39.75, 45, 9, 0)
R06 = T_RECT1(L - M19 - M9 + M4 - 22.5, L - M19 - M9 + M4 + 22.5, H - 71.75, H - 57.75) & T_RECT1(L - M19 - M9 + M3 - 22.5, L - M19 - M9 + M3 + 22.5, H - 71.75, H - 57.75) & T_RECT1(L - M19 - M9 - M5 - 22.5, L - M19 - M9 - M5 + 22.5, H - 71.75, H - 57.75) & T_RECT1(L - M19 - M9 - M6 - 22.5, L - M19 - M9 - M6 + 22.5, H - 71.75, H - 57.75)
R07 = T_SLOT(M18 + M9 - M7, H - 39.75, 45, 9, 0) & T_SLOT(M18 + M9 - 33, H - 39.75, 45, 9, 0) & T_SLOT(M18 + M9 + 33, H - 39.75, 45, 9, 0) & T_SLOT(M18 + M9 + M8, H - 39.75, 45, 9, 0)
R08 = T_RECT1(M18 + M9 - M4 - 22.5, M18 + M9 - M4 + 22.5, H - 71.75, H - 57.75) & T_RECT1(M18 + M9 - M3 - 22.5, M18 + M9 - M3 + 22.5, H - 71.75, H - 57.75) & T_RECT1(M18 + M9 + M5 - 22.5, M18 + M9 + M5 + 22.5, H - 71.75, H - 57.75) & T_RECT1(M18 + M9 + M6 - 22.5, M18 + M9 + M6 + 22.5, H - 71.75, H - 57.75)

R11 = T_45(M18 + M11 / 2, H)

Case Else
MsgBox "ERRORE VERSIONE SU " & ACT_MOD
End Select


P1 = L / 2 - M15 + 100
P2 = L / 2 + M15 - 100
MVAL = 500

STRINGA = R000_vpr(NHD, CTT, SPS / 10, L, H, P1, P2, QTT, comm, RAGG, CODR, MVAL, INFO_DAT(NND, 0, 5)) & R01 & R02 & R03 & R04 & R05 & R06 & R07 & R08 & R09 & R10 & R11
Call SAVE_SUB(NND, STRINGA)

ACT_MOD = ""
End Sub


Sub V_1016428C(ByVal NND As Integer)
ACT_MOD = "1016428"
NHD = 10
'MsgBox "CONTROLLARE " & ACT_MOD & ", NUOVA REVISIONE!!!!!"
'AGGIORNATO 24/12/2017
'************************************* INPUT
If NND > 0 Then ON_MD = 2 Else ON_MD = 1
Select Case ON_MD
Case 1
comm = INPUT_STR(NND, "COMMESSA", comm, ACT_MOD)
Case 2
comm = INFO_DAT(NND, 0, 2)
RAGG = INFO_DAT(NND, 0, 3)
QTT = INFO_DAT(NND, 0, 4)
CODR = INFO_DAT(NND, 0, 10) & " - " & INFO_DAT(NND, 0, 11) & " - " & INFO_DAT(NND, 0, 12)

Case Else
MsgBox "ERRORE", , ACT_MOD
End Select

L = INPUT_NUM(NND, "L", 0, ACT_MOD)
H = INPUT_NUM(NND, "H", H, ACT_MOD)
SPS = INPUT_NUM(NND, "SPS", SPS, ACT_MOD)
M1 = INPUT_NUM(NND, "M1", M1, ACT_MOD)
M2 = INPUT_NUM(NND, "M2", M2, ACT_MOD)
M3 = INPUT_NUM(NND, "M3", M3, ACT_MOD)
M4 = INPUT_NUM(NND, "M4", M4, ACT_MOD)
M5 = INPUT_NUM(NND, "M5", M5, ACT_MOD)
M6 = INPUT_NUM(NND, "M6", M6, ACT_MOD)
M7 = INPUT_NUM(NND, "M7", M7, ACT_MOD)
M8 = INPUT_NUM(NND, "M8", M8, ACT_MOD)
M9 = INPUT_NUM(NND, "M9", M9, ACT_MOD)
M10 = INPUT_NUM(NND, "M10", M10, ACT_MOD)
M11 = INPUT_NUM(NND, "M11", M11, ACT_MOD)
M12 = INPUT_NUM(NND, "M12", M12, ACT_MOD)
M13 = INPUT_NUM(NND, "M13", M13, ACT_MOD)
M14 = INPUT_NUM(NND, "M14", M14, ACT_MOD)
M15 = INPUT_NUM(NND, "M15", M15, ACT_MOD)
M16 = INPUT_NUM(NND, "M16", M16, ACT_MOD)
M17 = INPUT_NUM(NND, "M17", M17, ACT_MOD)
M18 = INPUT_NUM(NND, "M18", M18, ACT_MOD)
M19 = INPUT_NUM(NND, "M19", M19, ACT_MOD)
M20 = INPUT_NUM(NND, "M20", M20, ACT_MOD)
M21 = INPUT_NUM(NND, "M21", M21, ACT_MOD)
VV = Val(Replace(INFO_DAT(NND, 0, 7), "P", ""))



'************************************* SCRITTURA LISTATO

Select Case VV
Case 1, 5

R01 = T_RECT1(-3, M18, -3, H - 81.5) & T_RECT1(L - M19, L + 3, -3, H - 81.5)
R02 = T_CIRC(L / 2 + M15 + M13, M14, 8) & T_CIRC(L / 2 + M15, M14, 8) & T_CIRC(L / 2 - M15, M14, 8) & T_CIRC(L / 2 - M15 - M17, M14, 8)
If M21 > 0 Then R09 = T_CIRC(L / 2 + M15 + M13 - M21, M14, 8) Else R09 = ""
If M20 > 0 Then R10 = T_CIRC(L / 2 - M15 - M17 + M20, M14, 8) Else R10 = ""
R03 = T_CIRC(75, H - 50.75, 9) & T_SLOT(L / 2 - M10, H - 50.75, 25, 8.5, 0) & T_SLOT(L / 2, H - 50.75, 25, 8.5, 0) & T_SLOT(L / 2 + M10, H - 50.75, 25, 8.5, 0) & T_CIRC(L - 75, H - 50.75, 9)
R04 = T_RECT1(M2, M2 + 23, H - 19, H - 6) & T_RECT1(M2 + M1, M2 + M1 + 23, H - 19, H - 6) & T_RECT1(M2 + 2 * M1, M2 + 2 * M1 + 23, H - 19, H - 6) & T_RECT1(M2 + 3 * M1, M2 + 3 * M1 + 23, H - 19, H - 6) & T_SLOT(M2 + 3 * M1 - 35, H - 13, 20, 8.5, 90)
R05 = T_SLOT(L - M9 + M7, H - 39.75, 45, 9, 0) & T_SLOT(L - M9 + 33, H - 39.75, 45, 9, 0) & T_SLOT(L - M9 - 33, H - 39.75, 45, 9, 0) & T_SLOT(L - M9 - M8, H - 39.75, 45, 9, 0)
R06 = T_RECT1(L - M9 + M4 - 22.5, L - M9 + M4 + 22.5, H - 71.75, H - 57.75) & T_RECT1(L - M9 + M3 - 22.5, L - M9 + M3 + 22.5, H - 71.75, H - 57.75) & T_RECT1(L - M9 - M5 - 22.5, L - M9 - M5 + 22.5, H - 71.75, H - 57.75) & T_RECT1(L - M9 - M6 - 22.5, L - M9 - M6 + 22.5, H - 71.75, H - 57.75)
R07 = T_SLOT(M9 - M7, H - 39.75, 45, 9, 0) & T_SLOT(M9 - 33, H - 39.75, 45, 9, 0) & T_SLOT(M9 + 33, H - 39.75, 45, 9, 0) & T_SLOT(M9 + M8, H - 39.75, 45, 9, 0)
R08 = T_RECT1(M9 - M4 - 22.5, M9 - M4 + 22.5, H - 71.75, H - 57.75) & T_RECT1(M9 - M3 - 22.5, M9 - M3 + 22.5, H - 71.75, H - 57.75) & T_RECT1(M9 + M5 - 22.5, M9 + M5 + 22.5, H - 71.75, H - 57.75) & T_RECT1(M9 + M6 - 22.5, M9 + M6 + 22.5, H - 71.75, H - 57.75)

R11 = T_45(M11 / 2, H)

Case 2, 6

R01 = T_RECT1(-3, M18, M12 + M16 - 18, H + 3) & T_RECT1(L - M19, L + 10, -3, H - 81.5)
R02 = T_CIRC(M18 + M11 / 2 + M15 + M13, M14, 8) & T_CIRC(M18 + M11 / 2 + M15, M14, 8) & T_CIRC(M18 + M11 / 2 - M15, M14, 8) & T_CIRC(M18 + M11 / 2 - M15 - M17, M14, 8)
If M21 > 0 Then R09 = T_CIRC(M18 + M11 / 2 + M15 + M13 - M21, M14, 8) Else R09 = ""
If M20 > 0 Then R10 = T_CIRC(M18 + M11 / 2 - M15 - M17 + M20, M14, 8) Else R10 = ""
R03 = T_CIRC(M18 + 75, H - 50.75, 9) & T_SLOT(M18 + M11 / 2 - M10, H - 50.75, 25, 8.5, 0) & T_SLOT(M18 + M11 / 2, H - 50.75, 25, 8.5, 0) & T_SLOT(M18 + M11 / 2 + M10, H - 50.75, 25, 8.5, 0) & T_CIRC(L - 75, H - 50.75, 9)
R04 = T_RECT1(M18 + M2, M18 + M2 + 23, H - 19, H - 6) & T_RECT1(M18 + M2 + M1, M18 + M2 + M1 + 23, H - 19, H - 6) & T_RECT1(M18 + M2 + 2 * M1, M18 + M2 + 2 * M1 + 23, H - 19, H - 6) & T_RECT1(M18 + M2 + 3 * M1, M18 + M2 + 3 * M1 + 23, H - 19, H - 6) & T_SLOT(M18 + M2 + 3 * M1 - 35, H - 13, 20, 8.5, 90)
R05 = T_SLOT(L - M9 + M7, H - 39.75, 45, 9, 0) & T_SLOT(L - M9 + 33, H - 39.75, 45, 9, 0) & T_SLOT(L - M9 - 33, H - 39.75, 45, 9, 0) & T_SLOT(L - M9 - M8, H - 39.75, 45, 9, 0)
R06 = T_RECT1(L - M9 + M4 - 22.5, L - M9 + M4 + 22.5, H - 71.75, H - 57.75) & T_RECT1(L - M9 + M3 - 22.5, L - M9 + M3 + 22.5, H - 71.75, H - 57.75) & T_RECT1(L - M9 - M5 - 22.5, L - M9 - M5 + 22.5, H - 71.75, H - 57.75) & T_RECT1(L - M9 - M6 - 22.5, L - M9 - M6 + 22.5, H - 71.75, H - 57.75)
R07 = T_SLOT(M18 + M9 - M7, H - 39.75, 45, 9, 0) & T_SLOT(M18 + M9 - 33, H - 39.75, 45, 9, 0) & T_SLOT(M18 + M9 + 33, H - 39.75, 45, 9, 0) & T_SLOT(M18 + M9 + M8, H - 39.75, 45, 9, 0)
R08 = T_RECT1(M18 + M9 - M4 - 22.5, M18 + M9 - M4 + 22.5, H - 71.75, H - 57.75) & T_RECT1(M18 + M9 - M3 - 22.5, M18 + M9 - M3 + 22.5, H - 71.75, H - 57.75) & T_RECT1(M18 + M9 + M5 - 22.5, M18 + M9 + M5 + 22.5, H - 71.75, H - 57.75) & T_RECT1(M18 + M9 + M6 - 22.5, M18 + M9 + M6 + 22.5, H - 71.75, H - 57.75)

R11 = T_45(M18 + M11 / 2, H)

Case 3, 7
R01 = T_RECT1(-3, M18, -3, H - 81.5) & T_RECT1(L - M19, L + 3, M12 + M16 - 18, H + 3)
R02 = T_CIRC(M11 / 2 + M15 + M13, M14, 8) & T_CIRC(M11 / 2 + M15, M14, 8) & T_CIRC(M11 / 2 - M15, M14, 8) & T_CIRC(M11 / 2 - M15 - M17, M14, 8)
If M21 > 0 Then R09 = T_CIRC(M11 / 2 + M15 + M13 - M21, M14, 8) Else R09 = ""
If M20 > 0 Then R10 = T_CIRC(M11 / 2 - M15 - M17 + M20, M14, 8) Else R10 = ""
R03 = T_CIRC(75, H - 50.75, 9) & T_SLOT(M11 / 2 - M10, H - 50.75, 25, 8.5, 0) & T_SLOT(M11 / 2, H - 50.75, 25, 8.5, 0) & T_SLOT(M11 / 2 + M10, H - 50.75, 25, 8.5, 0) & T_CIRC(L - M19 - 75, H - 50.75, 9)
R04 = T_RECT1(M2, M2 + 23, H - 19, H - 6) & T_RECT1(M2 + M1, M2 + M1 + 23, H - 19, H - 6) & T_RECT1(M2 + 2 * M1, M2 + 2 * M1 + 23, H - 19, H - 6) & T_RECT1(M2 + 3 * M1, M2 + 3 * M1 + 23, H - 19, H - 6) & T_SLOT(M2 + 3 * M1 - 35, H - 13, 20, 8.5, 90)
R05 = T_SLOT(L - M19 - M9 + M7, H - 39.75, 45, 9, 0) & T_SLOT(L - M19 - M9 + 33, H - 39.75, 45, 9, 0) & T_SLOT(L - M19 - M9 - 33, H - 39.75, 45, 9, 0) & T_SLOT(L - M19 - M9 - M8, H - 39.75, 45, 9, 0)
R06 = T_RECT1(L - M19 - M9 + M4 - 22.5, L - M19 - M9 + M4 + 22.5, H - 71.75, H - 57.75) & T_RECT1(L - M19 - M9 + M3 - 22.5, L - M19 - M9 + M3 + 22.5, H - 71.75, H - 57.75) & T_RECT1(L - M19 - M9 - M5 - 22.5, L - M19 - M9 - M5 + 22.5, H - 71.75, H - 57.75) & T_RECT1(L - M19 - M9 - M6 - 22.5, L - M19 - M9 - M6 + 22.5, H - 71.75, H - 57.75)
R07 = T_SLOT(M9 - M7, H - 39.75, 45, 9, 0) & T_SLOT(M9 - 33, H - 39.75, 45, 9, 0) & T_SLOT(M9 + 33, H - 39.75, 45, 9, 0) & T_SLOT(M9 + M8, H - 39.75, 45, 9, 0)
R08 = T_RECT1(M9 - M4 - 22.5, M9 - M4 + 22.5, H - 71.75, H - 57.75) & T_RECT1(M9 - M3 - 22.5, M9 - M3 + 22.5, H - 71.75, H - 57.75) & T_RECT1(M9 + M5 - 22.5, M9 + M5 + 22.5, H - 71.75, H - 57.75) & T_RECT1(M9 + M6 - 22.5, M9 + M6 + 22.5, H - 71.75, H - 57.75)

R11 = T_45(M11 / 2, H)

Case 4, 8
R01 = T_RECT1(-10, M18, M12 + M16 - 18, H + 3) & T_RECT1(L - M19, L + 10, M12 + M16 - 18, H + 3)
R02 = T_CIRC(M18 + M11 / 2 + M15 + M13, M14, 8) & T_CIRC(M18 + M11 / 2 + M15, M14, 8) & T_CIRC(M18 + M11 / 2 - M15, M14, 8) & T_CIRC(M18 + M11 / 2 - M15 - M17, M14, 8)
If M21 > 0 Then R09 = T_CIRC(M18 + M11 / 2 + M15 + M13 - M21, M14, 8) Else R09 = ""
If M20 > 0 Then R10 = T_CIRC(M18 + M11 / 2 - M15 - M17 + M20, M14, 8) Else R10 = ""
R03 = T_CIRC(M18 + 75, H - 50.75, 9) & T_SLOT(M18 + M11 / 2 - M10, H - 50.75, 25, 8.5, 0) & T_SLOT(M18 + M11 / 2, H - 50.75, 25, 8.5, 0) & T_SLOT(M18 + M11 / 2 + M10, H - 50.75, 25, 8.5, 0) & T_CIRC(L - M19 - 75, H - 50.75, 9)
R04 = T_RECT1(M18 + M2, M18 + M2 + 23, H - 19, H - 6) & T_RECT1(M18 + M2 + M1, M18 + M2 + M1 + 23, H - 19, H - 6) & T_RECT1(M18 + M2 + 2 * M1, M18 + M2 + 2 * M1 + 23, H - 19, H - 6) & T_RECT1(M18 + M2 + 3 * M1, M18 + M2 + 3 * M1 + 23, H - 19, H - 6) & T_SLOT(M18 + M2 + 3 * M1 - 35, H - 13, 20, 8.5, 90)
R05 = T_SLOT(L - M19 - M9 + M7, H - 39.75, 45, 9, 0) & T_SLOT(L - M19 - M9 + 33, H - 39.75, 45, 9, 0) & T_SLOT(L - M19 - M9 - 33, H - 39.75, 45, 9, 0) & T_SLOT(L - M19 - M9 - M8, H - 39.75, 45, 9, 0)
R06 = T_RECT1(L - M19 - M9 + M4 - 22.5, L - M19 - M9 + M4 + 22.5, H - 71.75, H - 57.75) & T_RECT1(L - M19 - M9 + M3 - 22.5, L - M19 - M9 + M3 + 22.5, H - 71.75, H - 57.75) & T_RECT1(L - M19 - M9 - M5 - 22.5, L - M19 - M9 - M5 + 22.5, H - 71.75, H - 57.75) & T_RECT1(L - M19 - M9 - M6 - 22.5, L - M19 - M9 - M6 + 22.5, H - 71.75, H - 57.75)
R07 = T_SLOT(M18 + M9 - M7, H - 39.75, 45, 9, 0) & T_SLOT(M18 + M9 - 33, H - 39.75, 45, 9, 0) & T_SLOT(M18 + M9 + 33, H - 39.75, 45, 9, 0) & T_SLOT(M18 + M9 + M8, H - 39.75, 45, 9, 0)
R08 = T_RECT1(M18 + M9 - M4 - 22.5, M18 + M9 - M4 + 22.5, H - 71.75, H - 57.75) & T_RECT1(M18 + M9 - M3 - 22.5, M18 + M9 - M3 + 22.5, H - 71.75, H - 57.75) & T_RECT1(M18 + M9 + M5 - 22.5, M18 + M9 + M5 + 22.5, H - 71.75, H - 57.75) & T_RECT1(M18 + M9 + M6 - 22.5, M18 + M9 + M6 + 22.5, H - 71.75, H - 57.75)

R11 = T_45(M18 + M11 / 2, H)

Case Else
MsgBox "ERRORE VERSIONE SU " & ACT_MOD
End Select


P1 = L / 2 - M15 + 100
P2 = L / 2 + M15 - 100
MVAL = 500

STRINGA = R000_vpr(NHD, CTT, SPS / 10, L, H, P1, P2, QTT, comm, RAGG, CODR, MVAL, INFO_DAT(NND, 0, 5)) & R01 & R02 & R03 & R04 & R05 & R06 & R07 & R08 & R09 & R10 & R11
Call SAVE_SUB(NND, STRINGA)

ACT_MOD = ""
End Sub


Sub V_1014512C(ByVal NND As Integer)
ACT_MOD = "1014512"
NHD = 10
'MsgBox "CONTROLLARE " & ACT_MOD
'AGGIUNTA 07/03/2017
'************************************* INPUT
If NND > 0 Then ON_MD = 2 Else ON_MD = 1
Select Case ON_MD
Case 1
comm = INPUT_STR(NND, "COMMESSA", comm, ACT_MOD)
Case 2
comm = INFO_DAT(NND, 0, 2)
RAGG = INFO_DAT(NND, 0, 3)
QTT = INFO_DAT(NND, 0, 4)
CODR = INFO_DAT(NND, 0, 10) & " - " & INFO_DAT(NND, 0, 11) & " - " & INFO_DAT(NND, 0, 12)

Case Else
MsgBox "ERRORE", , ACT_MOD
End Select

L = INPUT_NUM(NND, "L", 0, ACT_MOD)
H = INPUT_NUM(NND, "H", H, ACT_MOD)
SPS = INPUT_NUM(NND, "SPS", SPS, ACT_MOD)
M1 = INPUT_NUM(NND, "M1", M1, ACT_MOD)
M2 = INPUT_NUM(NND, "M2", M2, ACT_MOD)
M3 = INPUT_NUM(NND, "M3", M3, ACT_MOD)
M4 = INPUT_NUM(NND, "M4", M4, ACT_MOD)
M5 = INPUT_NUM(NND, "M5", M5, ACT_MOD)
M6 = INPUT_NUM(NND, "M6", M6, ACT_MOD)
M7 = INPUT_NUM(NND, "M7", M7, ACT_MOD)
M8 = INPUT_NUM(NND, "M8", M8, ACT_MOD)
M9 = INPUT_NUM(NND, "M9", M9, ACT_MOD)
M10 = INPUT_NUM(NND, "M10", M10, ACT_MOD)
M11 = INPUT_NUM(NND, "M11", M11, ACT_MOD)
M12 = INPUT_NUM(NND, "M12", M12, ACT_MOD)
M13 = INPUT_NUM(NND, "M13", M13, ACT_MOD)
M14 = INPUT_NUM(NND, "M14", M14, ACT_MOD)
M15 = INPUT_NUM(NND, "M15", M15, ACT_MOD)
VV = INPUT_NUM(NND, "VER.", VV, ACT_MOD)
'************************************* SCRITTURA LISTATO

Select Case VV
Case 1, 2

R01 = T_RECT1(L - M2 - 3 * M1 - 23, L - M2 - 3 * M1, 6, 19) & T_SLOT(L - M2 - 3 * M1 + 35, 13, 15, 9, 90)
R02 = T_RECT1(L - M2 - 2 * M1 - 23, L - M2 - 2 * M1, 6, 19) & T_RECT1(L - M2 - M1 - 23, L - M2 - M1, 6, 19) & T_RECT1(L - M2 - 23, L - M2, 6, 19)
R03 = T_CIRC(L - 75, H - 21, 9) & T_SLOT(L / 2 + M10, H - 21, 25, 8.5, 0) & T_SLOT(L / 2, H - 21, 25, 8.5, 0) & T_SLOT(L / 2 - M10, H - 21, 25, 8.5, 0) & T_CIRC(75, H - 21, 9)
R04 = T_RECT1(59, 91, H - 3, H + 7) & T_RECT1(L - 91, L - 59, H - 3, H + 7)

R05 = T_SLOT(L - M9 + M4, H - 9.5, 45, 9, 0) & T_SLOT(L - M9 + M3, H - 9.5, 45, 9, 0)
R06 = T_SLOT(L - M9 + M7, H - 31.7, 45, 9, 0)
R07 = T_SLOT(L - M9 + 33, H - 31.7, 45, 9, 0) & T_SLOT(L - M9 - 33, H - 31.7, 45, 9, 0)
R08 = T_SLOT(L - M9 - M8, H - 31.7, 45, 9, 0)
R09 = T_SLOT(L - M9 - M5, H - 9.5, 45, 9, 0) & T_SLOT(L - M9 - M6, H - 9.5, 45, 9, 0)
R10 = T_SLOT(M9 + 33, H - 31.7, 45, 9, 0) & T_SLOT(M9 - 33, H - 31.7, 45, 9, 0)
R11 = T_SLOT(M9 + M8, H - 31.7, 45, 9, 0) & T_SLOT(M9 - M7, H - 31.7, 45, 9, 0)
R12 = T_SLOT(M9 + M5, H - 9.5, 45, 9, 0) & T_SLOT(M9 + M6, H - 9.5, 45, 9, 0)
R13 = T_SLOT(M9 - M3, H - 9.5, 45, 9, 0) & T_SLOT(M9 - M4, H - 9.5, 45, 9, 0)

R16 = T_SMUS_ST(L / 2, 0)

Case 3, 4
R01 = T_RECT1(L - M2 - 3 * M1 - 23, L - M2 - 3 * M1, 6, 19) & T_SLOT(L - M2 - 3 * M1 + 35, 13, 15, 9, 90)
R02 = T_RECT1(L - M2 - 2 * M1 - 23, L - M2 - 2 * M1, 6, 19) & T_RECT1(L - M2 - M1 - 23, L - M2 - M1, 6, 19) & T_RECT1(L - M2 - 23, L - M2, 6, 19)
R04 = T_CIRC(M11 + M15, H - 21, 9) & T_CIRC(M11 - M15, H - 21, 9)
If M14 > 0 Then
R03 = T_CIRC(M11 + M15 + M14, H - 21, 9) & T_RECT1(M11 + M15 + M14 - 16, M11 + M15 + M14 + 16, H - 3, H + 7)
Else
R03 = ""
End If
If M13 > 0 Then
R05 = T_CIRC(M11 - M15 - M13, H - 21, 9) & T_RECT1(M11 - M15 - M13 - 16, M11 - M15 - M13 + 16, H - 3, H + 7)
Else
R05 = ""
End If
R06 = T_RECT1(M11 - M15 - 16, M11 - M15 + 16, H - 3, H + 7) & T_RECT1(M11 + M15 - 16, M11 + M15 + 16, H - 3, H + 7)


R08 = T_SLOT(L - M9 + M7 - M12, H - 31.7, 45, 9, 0)
R09 = T_SLOT(L - M9 + 33 - M12, H - 31.7, 45, 9, 0) & T_SLOT(L - M9 - 33 - M12, H - 31.7, 45, 9, 0)
R10 = T_SLOT(L - M9 - M8 - M12, H - 31.7, 45, 9, 0)

R11 = T_SLOT(L - M9 - M5 - M12, H - 9.5, 45, 9, 0) & T_SLOT(L - M9 - M6 - M12, H - 9.5, 45, 9, 0)
R07 = T_SLOT(L - M9 + M4 - M12, H - 9.5, 45, 9, 0) & T_SLOT(L - M9 + M3 - M12, H - 9.5, 45, 9, 0)

R14 = T_SLOT(M12 + M9 + M5, H - 9.5, 45, 9, 0) & T_SLOT(M12 + M9 + M6, H - 9.5, 45, 9, 0)
R15 = T_SLOT(M12 + M9 - M3, H - 9.5, 45, 9, 0) & T_SLOT(M12 + M9 - M4, H - 9.5, 45, 9, 0)

If VV = 3 Then
R12 = T_SLOT(M12 + M9 + 33, H - 31.7, 45, 9, 0) & T_SLOT(M12 + M9 - 33, H - 31.7, 45, 9, 0)
R13 = T_SLOT(M12 + M9 + M8, H - 31.7, 45, 9, 0) & T_SLOT(M12 + M9 - M7, H - 31.7, 45, 9, 0)
R14 = T_SLOT(M12 + M9 + M5, H - 9.5, 45, 9, 0) & T_SLOT(M12 + M9 + M6, H - 9.5, 45, 9, 0)
R15 = T_SLOT(M12 + M9 - M3, H - 9.5, 45, 9, 0) & T_SLOT(M12 + M9 - M4, H - 9.5, 45, 9, 0)
Else
R12 = ""
R13 = ""
R14 = ""
R15 = ""
End If


R17 = T_SLOT(M11, H - 21, 25, 8.5, 0) & T_SLOT(M11 + M10, H - 21, 25, 8.5, 0) & T_SLOT(M11 - M10, H - 21, 25, 8.5, 0)
R16 = T_SMUS_ST(M11, 0)

Case Else
MsgBox ("ERRORE VERSIONE SU CODICE " & ACT_MOD)
End Select



P1 = L - M2 - 3 * M1 + 150
P2 = L - M2 - 150
MVAL = 500

fn = R01 & R02 & R03 & R04 & R05 & R06 & R07 & R08 & R09 & R10 & R11 & R12 & R13 & R14 & R15 & R16 & R17
STRINGA = R000_vpr(NHD, CTT, SPS / 10, L, H, P1, P2, QTT, comm, RAGG, CODR, MVAL, INFO_DAT(NND, 0, 5)) & fn

Call SAVE_SUB(NND, STRINGA)

Call FVTPT(4, NND, "")

ACT_MOD = ""
End Sub


Sub V_10339490(ByVal NND As Integer)
ACT_MOD = "1033949"
NHD = 10
'MsgBox "CONTROLLARE " & ACT_MOD
'AGGIUNTA 07/03/2017
'************************************* INPUT
If NND > 0 Then ON_MD = 2 Else ON_MD = 1
Select Case ON_MD
Case 1
comm = INPUT_STR(NND, "COMMESSA", comm, ACT_MOD)
Case 2
comm = INFO_DAT(NND, 0, 2)
RAGG = INFO_DAT(NND, 0, 3)
QTT = INFO_DAT(NND, 0, 4)
CODR = INFO_DAT(NND, 0, 10) & " - " & INFO_DAT(NND, 0, 11) & " - " & INFO_DAT(NND, 0, 12)

Case Else
MsgBox "ERRORE", , ACT_MOD
End Select

L = INPUT_NUM(NND, "L", 0, ACT_MOD)
H = INPUT_NUM(NND, "H", H, ACT_MOD)
SPS = INPUT_NUM(NND, "SPS", SPS, ACT_MOD)
M1 = INPUT_NUM(NND, "M1", M1, ACT_MOD)
M2 = INPUT_NUM(NND, "M2", M2, ACT_MOD)
M3 = INPUT_NUM(NND, "M3", M3, ACT_MOD)
M4 = INPUT_NUM(NND, "M4", M4, ACT_MOD)
M5 = INPUT_NUM(NND, "M5", M5, ACT_MOD)
M6 = INPUT_NUM(NND, "M6", M6, ACT_MOD)
M7 = INPUT_NUM(NND, "M7", M7, ACT_MOD)
M8 = INPUT_NUM(NND, "M8", M8, ACT_MOD)
M9 = INPUT_NUM(NND, "M9", M9, ACT_MOD)
M10 = INPUT_NUM(NND, "M10", M10, ACT_MOD)
M11 = INPUT_NUM(NND, "M11", M11, ACT_MOD)
M12 = INPUT_NUM(NND, "M12", M12, ACT_MOD)
M13 = INPUT_NUM(NND, "M13", M13, ACT_MOD)
M14 = INPUT_NUM(NND, "M14", M14, ACT_MOD)
M15 = INPUT_NUM(NND, "M15", M15, ACT_MOD)
VV = INPUT_NUM(NND, "VER.", VV, ACT_MOD)
'************************************* SCRITTURA LISTATO

Select Case VV
Case 1, 2

R01 = T_RECT1(L - M2 - 3 * M1 - 23, L - M2 - 3 * M1, 6, 19) & T_SLOT(L - M2 - 3 * M1 + 35, 13, 15, 9, 90)
R02 = T_RECT1(L - M2 - 2 * M1 - 23, L - M2 - 2 * M1, 6, 19) & T_RECT1(L - M2 - M1 - 23, L - M2 - M1, 6, 19) & T_RECT1(L - M2 - 23, L - M2, 6, 19)
R03 = T_CIRC(L - 75, H - 21, 9) & T_SLOT(L / 2 + M10, H - 21, 25, 8.5, 0) & T_SLOT(L / 2, H - 21, 25, 8.5, 0) & T_SLOT(L / 2 - M10, H - 21, 25, 8.5, 0) & T_CIRC(75, H - 21, 9)
R04 = T_RECT1(59, 91, H - 3, H + 7) & T_RECT1(L - 91, L - 59, H - 3, H + 7)

R05 = T_SLOT(L - M9 + M4, H - 9.5, 45, 9, 0) & T_SLOT(L - M9 + M3, H - 9.5, 45, 9, 0)
R06 = T_SLOT(L - M9 + M7, H - 31.7, 45, 9, 0)
R07 = T_SLOT(L - M9 + 33, H - 31.7, 45, 9, 0) & T_SLOT(L - M9 - 33, H - 31.7, 45, 9, 0)
R08 = T_SLOT(L - M9 - M8, H - 31.7, 45, 9, 0)
R09 = T_SLOT(L - M9 - M5, H - 9.5, 45, 9, 0) & T_SLOT(L - M9 - M6, H - 9.5, 45, 9, 0)
R10 = T_SLOT(M9 + 33, H - 31.7, 45, 9, 0) & T_SLOT(M9 - 33, H - 31.7, 45, 9, 0)
R11 = T_SLOT(M9 + M8, H - 31.7, 45, 9, 0) & T_SLOT(M9 - M7, H - 31.7, 45, 9, 0)
R12 = T_SLOT(M9 + M5, H - 9.5, 45, 9, 0) & T_SLOT(M9 + M6, H - 9.5, 45, 9, 0)
R13 = T_SLOT(M9 - M3, H - 9.5, 45, 9, 0) & T_SLOT(M9 - M4, H - 9.5, 45, 9, 0)

R16 = T_SMUS_ST(L / 2, 0)
R18 = T_RECT1(L / 2 - M10 - 25, L / 2 - M10 + 25, -6, 35 - 5) & T_RECT1(L / 2 + M10 - 25, L / 2 + M10 + 25, -6, 35 - 5) & T_RECT1(L / 2 - 25, L / 2 + 25, -6, 35 - 5)

Case 3, 4
R01 = T_RECT1(L - M2 - 3 * M1 - 23, L - M2 - 3 * M1, 6, 19) & T_SLOT(L - M2 - 3 * M1 + 35, 13, 15, 9, 90)
R02 = T_RECT1(L - M2 - 2 * M1 - 23, L - M2 - 2 * M1, 6, 19) & T_RECT1(L - M2 - M1 - 23, L - M2 - M1, 6, 19) & T_RECT1(L - M2 - 23, L - M2, 6, 19)
R04 = T_CIRC(M11 + M15, H - 21, 9) & T_CIRC(M11 - M15, H - 21, 9)
If M14 > 0 Then
R03 = T_CIRC(M11 + M15 + M14, H - 21, 9) & T_RECT1(M11 + M15 + M14 - 16, M11 + M15 + M14 + 16, H - 3, H + 7)
Else
R03 = ""
End If
If M13 > 0 Then
R05 = T_CIRC(M11 - M15 - M13, H - 21, 9) & T_RECT1(M11 - M15 - M13 - 16, M11 - M15 - M13 + 16, H - 3, H + 7)
Else
R05 = ""
End If
R06 = T_RECT1(M11 - M15 - 16, M11 - M15 + 16, H - 3, H + 7) & T_RECT1(M11 + M15 - 16, M11 + M15 + 16, H - 3, H + 7)


R08 = T_SLOT(L - M9 + M7 - M12, H - 31.7, 45, 9, 0)
R09 = T_SLOT(L - M9 + 33 - M12, H - 31.7, 45, 9, 0) & T_SLOT(L - M9 - 33 - M12, H - 31.7, 45, 9, 0)
R10 = T_SLOT(L - M9 - M8 - M12, H - 31.7, 45, 9, 0)

R11 = T_SLOT(L - M9 - M5 - M12, H - 9.5, 45, 9, 0) & T_SLOT(L - M9 - M6 - M12, H - 9.5, 45, 9, 0)
R07 = T_SLOT(L - M9 + M4 - M12, H - 9.5, 45, 9, 0) & T_SLOT(L - M9 + M3 - M12, H - 9.5, 45, 9, 0)

R14 = T_SLOT(M12 + M9 + M5, H - 9.5, 45, 9, 0) & T_SLOT(M12 + M9 + M6, H - 9.5, 45, 9, 0)
R15 = T_SLOT(M12 + M9 - M3, H - 9.5, 45, 9, 0) & T_SLOT(M12 + M9 - M4, H - 9.5, 45, 9, 0)

If VV = 3 Then
R12 = T_SLOT(M12 + M9 + 33, H - 31.7, 45, 9, 0) & T_SLOT(M12 + M9 - 33, H - 31.7, 45, 9, 0)
R13 = T_SLOT(M12 + M9 + M8, H - 31.7, 45, 9, 0) & T_SLOT(M12 + M9 - M7, H - 31.7, 45, 9, 0)
R14 = T_SLOT(M12 + M9 + M5, H - 9.5, 45, 9, 0) & T_SLOT(M12 + M9 + M6, H - 9.5, 45, 9, 0)
R15 = T_SLOT(M12 + M9 - M3, H - 9.5, 45, 9, 0) & T_SLOT(M12 + M9 - M4, H - 9.5, 45, 9, 0)
Else
R12 = ""
R13 = ""
R14 = ""
R15 = ""
End If


R17 = T_SLOT(M11, H - 21, 25, 8.5, 0) & T_SLOT(M11 + M10, H - 21, 25, 8.5, 0) & T_SLOT(M11 - M10, H - 21, 25, 8.5, 0)
R16 = T_SMUS_ST(M11, 0)
R18 = T_RECT1(M11 - M10 - 25, L / 2 - M10 + 25, -6, 35 - 5) & T_RECT1(M11 + M10 - 25, L / 2 + M10 + 25, -6, 35 - 5) & T_RECT1(M11 - 25, L / 2 + 25, -6, 35 - 5)


Case Else
MsgBox ("ERRORE VERSIONE SU CODICE " & ACT_MOD)
End Select



P1 = L - M2 - 3 * M1 + 150
P2 = L - M2 - 150
MVAL = 500

fn = R01 & R02 & R03 & R04 & R05 & R06 & R07 & R08 & R09 & R10 & R11 & R12 & R13 & R14 & R15 & R16 & R17 & R18
STRINGA = R000_vpr(NHD, CTT, SPS / 10, L, H, P1, P2, QTT, comm, RAGG, CODR, MVAL, INFO_DAT(NND, 0, 5)) & fn

Call SAVE_SUB(NND, STRINGA)

Call FVTPT(4, NND, "")

ACT_MOD = ""
End Sub



Sub V_1007889C(ByVal NND As Integer) 'revisione C
ACT_MOD = "1007889"
NHD = 10

'MsgBox ("CONTROLLARE " & ACT_MOD)
'************************************* INPUT
If NND > 0 Then ON_MD = 2 Else ON_MD = 1
Select Case ON_MD
Case 1
comm = INPUT_STR(NND, "COMMESSA", comm, ACT_MOD)
Case 2
comm = INFO_DAT(NND, 0, 2)
RAGG = INFO_DAT(NND, 0, 3)
QTT = INFO_DAT(NND, 0, 4)
CODR = INFO_DAT(NND, 0, 10) & " - " & INFO_DAT(NND, 0, 11) & " - " & INFO_DAT(NND, 0, 12)

Case Else
MsgBox "ERRORE", , ACT_MOD
End Select

L = INPUT_NUM(NND, "L", 0, ACT_MOD)
H = INPUT_NUM(NND, "H", H, ACT_MOD)
SPS = INPUT_NUM(NND, "SPS", SPS, ACT_MOD)
M1 = INPUT_NUM(NND, "M1", M1, ACT_MOD)
M2 = INPUT_NUM(NND, "M2", M2, ACT_MOD)
M3 = INPUT_NUM(NND, "M3", M3, ACT_MOD)
M4 = INPUT_NUM(NND, "M4", M4, ACT_MOD)
M5 = INPUT_NUM(NND, "M5", M5, ACT_MOD)
M6 = INPUT_NUM(NND, "M6", M6, ACT_MOD)
M7 = INPUT_NUM(NND, "M7", M7, ACT_MOD)
M8 = INPUT_NUM(NND, "M8", M8, ACT_MOD)
M9 = INPUT_NUM(NND, "M9", M9, ACT_MOD)
M10 = INPUT_NUM(NND, "M10", M10, ACT_MOD)
M11 = INPUT_NUM(NND, "M11", M11, ACT_MOD)
M12 = INPUT_NUM(NND, "M12", M12, ACT_MOD)
M13 = INPUT_NUM(NND, "M13", M13, ACT_MOD)
M14 = INPUT_NUM(NND, "M14", M14, ACT_MOD)
M15 = INPUT_NUM(NND, "M15", M15, ACT_MOD)
M16 = INPUT_NUM(NND, "M16", M16, ACT_MOD)
'M17 = INPUT_NUM(NND, "M17", M17, ACT_MOD)
'M18 = INPUT_NUM(NND, "M18", M18, ACT_MOD)
'M19 = INPUT_NUM(NND, "M19", M19, ACT_MOD)
VV = INPUT_NUM(NND, "VER.", VV, ACT_MOD)



'************************************* SCRITTURA LISTATO


Select Case VV
Case 1, 5
R01 = T_CIRC(M5 - M7 / 2, M10, 8) & T_CIRC(M5 + M7 / 2, M10, 8) & T_CIRC(M5 - M7 / 2 - M9, M10, 8) & T_CIRC(M5 - M7 / 2 - M9 + M15, M10, 8) & T_CIRC(M5 + M7 / 2 + M8, M10, 8) & T_CIRC(M5 + M7 / 2 + M8 - M16, M10, 8)
R02 = T_RECT2(M5 - 35 - M11, H - 31 - 18 + 6 - 7, 45, 14) & T_RECT2(M5 - 35, H - 31 - 18 + 6 - 7, 45, 14) & T_RECT2(M5 + 35, H - 31 - 18 + 6 - 7, 45, 14) & T_RECT2(M5 + 35 + M11, H - 31 - 18 + 6 - 7, 45, 14)
R03 = T_CIRC(M5, H - 31 - 11.35 + 6, 9) & T_CIRC(M5 - M6 - 140, H - 31 - 11.35 + 6, 9) & T_CIRC(M5 - M6, H - 31 - 11.35 + 6, 9) & T_CIRC(M5 + M6, H - 31 - 11.35 + 6, 9) & T_CIRC(M5 + M6 + 140, H - 31 - 11.35 + 6, 9)

R04 = T_RECT1(M3, M3 + 23, H - 6 - 13, H - 6) & T_RECT1(M3 + M4, M3 + M4 + 23, H - 6 - 13, H - 6) & T_RECT1(M3 + 2 * M4, M3 + 2 * M4 + 23, H - 6 - 13, H - 6) & T_RECT1(M3 + 3 * M4, M3 + 3 * M4 + 23, H - 6 - 13, H - 6)
R05 = T_SLOT(M3 + 3 * M4 - 35, H - 10, 15, 9, 90)
R06 = T_RECT1(-6, M13, -6, M1 + 10 - 6) & T_RECT1(L - M14, L + 6, -6, M1 + 10 - 6)

R07 = T_45(L / 2, H)

Case 2, 6
R01 = T_CIRC(M5 - M7 / 2, M10, 8) & T_CIRC(M5 + M7 / 2, M10, 8) & T_CIRC(M5 - M7 / 2 - M9, M10, 8) & T_CIRC(M5 - M7 / 2 - M9 + M15, M10, 8) & T_CIRC(M5 + M7 / 2 + M8, M10, 8) & T_CIRC(M5 + M7 / 2 + M8 - M16, M10, 8)
R02 = T_RECT2(M5 - 35 - M11, H - 31 - 18 + 6 - 7, 45, 14) & T_RECT2(M5 - 35, H - 31 - 18 + 6 - 7, 45, 14) & T_RECT2(M5 + 35, H - 31 - 18 + 6 - 7, 45, 14) & T_RECT2(M5 + 35 + M11, H - 31 - 18 + 6 - 7, 45, 14)
R03 = T_CIRC(M5, H - 31 - 11.35 + 6, 9) & T_CIRC(M5 - M6 - 140, H - 31 - 11.35 + 6, 9) & T_CIRC(M5 - M6, H - 31 - 11.35 + 6, 9) & T_CIRC(M5 + M6, H - 31 - 11.35 + 6, 9) & T_CIRC(M5 + M6 + 140, H - 31 - 11.35 + 6, 9)

R04 = T_RECT1(M13 + M3, M13 + M3 + 23, H - 6 - 13, H - 6) & T_RECT1(M13 + M3 + M4, M13 + M3 + M4 + 23, H - 6 - 13, H - 6) & T_RECT1(M13 + M3 + 2 * M4, M13 + M3 + 2 * M4 + 23, H - 6 - 13, H - 6) & T_RECT1(M13 + M3 + 3 * M4, M13 + M3 + 3 * M4 + 23, H - 6 - 13, H - 6)
R05 = T_SLOT(M13 + M3 + 3 * M4 - 35, H - 10, 15, 9, 90)
R06 = T_RECT1(-6, M13, M1 + 10 - 6, H + 6) & T_RECT1(L - M14, L + 6, -6, M1 + 10 - 6)

R07 = T_45(M13 + M12 / 2, H)

Case 3, 7
R01 = T_CIRC(M5 - M7 / 2, M10, 8) & T_CIRC(M5 + M7 / 2, M10, 8) & T_CIRC(M5 - M7 / 2 - M9, M10, 8) & T_CIRC(M5 - M7 / 2 - M9 + M15, M10, 8) & T_CIRC(M5 + M7 / 2 + M8, M10, 8) & T_CIRC(M5 + M7 / 2 + M8 - M16, M10, 8)
R02 = T_RECT2(M5 - 35 - M11, H - 31 - 18 + 6 - 7, 45, 14) & T_RECT2(M5 - 35, H - 31 - 18 + 6 - 7, 45, 14) & T_RECT2(M5 + 35, H - 31 - 18 + 6 - 7, 45, 14) & T_RECT2(M5 + 35 + M11, H - 31 - 18 + 6 - 7, 45, 14)
R03 = T_CIRC(M5, H - 31 - 11.35 + 6, 9) & T_CIRC(M5 - M6 - 140, H - 31 - 11.35 + 6, 9) & T_CIRC(M5 - M6, H - 31 - 11.35 + 6, 9) & T_CIRC(M5 + M6, H - 31 - 11.35 + 6, 9) & T_CIRC(M5 + M6 + 140, H - 31 - 11.35 + 6, 9)

R04 = T_RECT1(M3, M3 + 23, H - 6 - 13, H - 6) & T_RECT1(M3 + M4, M3 + M4 + 23, H - 6 - 13, H - 6) & T_RECT1(M3 + 2 * M4, M3 + 2 * M4 + 23, H - 6 - 13, H - 6) & T_RECT1(M3 + 3 * M4, M3 + 3 * M4 + 23, H - 6 - 13, H - 6)
R05 = T_SLOT(M3 + 3 * M4 - 35, H - 10, 15, 9, 90)
R06 = T_RECT1(-6, M13, -6, M1 + 10 - 6) & T_RECT1(L - M14, L + 6, M1 + 10 - 6, H + 6)

R07 = T_45(M12 / 2, H)

Case 4, 8
R01 = T_CIRC(M5 - M7 / 2, M10, 8) & T_CIRC(M5 + M7 / 2, M10, 8) & T_CIRC(M5 - M7 / 2 - M9, M10, 8) & T_CIRC(M5 - M7 / 2 - M9 + M15, M10, 8) & T_CIRC(M5 + M7 / 2 + M8, M10, 8) & T_CIRC(M5 + M7 / 2 + M8 - M16, M10, 8)
R02 = T_RECT2(M5 - 35 - M11, H - 31 - 18 + 6 - 7, 45, 14) & T_RECT2(M5 - 35, H - 31 - 18 + 6 - 7, 45, 14) & T_RECT2(M5 + 35, H - 31 - 18 + 6 - 7, 45, 14) & T_RECT2(M5 + 35 + M11, H - 31 - 18 + 6 - 7, 45, 14)
R03 = T_CIRC(M5, H - 31 - 11.35 + 6, 9) & T_CIRC(M5 - M6 - 140, H - 31 - 11.35 + 6, 9) & T_CIRC(M5 - M6, H - 31 - 11.35 + 6, 9) & T_CIRC(M5 + M6, H - 31 - 11.35 + 6, 9) & T_CIRC(M5 + M6 + 140, H - 31 - 11.35 + 6, 9)

R04 = T_RECT1(M13 + M3, M13 + M3 + 23, H - 6 - 13, H - 6) & T_RECT1(M13 + M3 + M4, M13 + M3 + M4 + 23, H - 6 - 13, H - 6) & T_RECT1(M13 + M3 + 2 * M4, M13 + M3 + 2 * M4 + 23, H - 6 - 13, H - 6) & T_RECT1(M13 + M3 + 3 * M4, M13 + M3 + 3 * M4 + 23, H - 6 - 13, H - 6)
R05 = T_SLOT(M13 + M3 + 3 * M4 - 35, H - 10, 15, 9, 90)
R06 = T_RECT1(-6, M13, M1 + 10 - 6, H + 6) & T_RECT1(L - M14, L + 6, M1 + 10 - 6, H + 6)

R07 = T_45(M13 + L / 2, H)

Case Else
MsgBox "ERRORE VERSIONE SU " & ACT_MOD
End Select



P1 = L / 2 - M7 / 2 + 100
P2 = L / 2 + M7 / 2 - 100
MVAL = 500

STRINGA = R000_vpr(NHD, CTT, SPS / 10, L, H, P1, P2, QTT, comm, RAGG, CODR, MVAL, INFO_DAT(NND, 0, 5)) & R01 & R02 & R03 & R04 & R05 & R06 & R07

Call SAVE_SUB(NND, STRINGA)

ACT_MOD = ""

End Sub



Sub V_1007889E(ByVal NND As Integer) 'revisione E
ACT_MOD = "1007889"
NHD = 10

'MsgBox ("CONTROLLARE " & ACT_MOD)
'************************************* INPUT
If NND > 0 Then ON_MD = 2 Else ON_MD = 1
Select Case ON_MD
Case 1
comm = INPUT_STR(NND, "COMMESSA", comm, ACT_MOD)
Case 2
comm = INFO_DAT(NND, 0, 2)
RAGG = INFO_DAT(NND, 0, 3)
QTT = INFO_DAT(NND, 0, 4)
CODR = INFO_DAT(NND, 0, 10) & " - " & INFO_DAT(NND, 0, 11) & " - " & INFO_DAT(NND, 0, 12)

Case Else
MsgBox "ERRORE", , ACT_MOD
End Select

L = INPUT_NUM(NND, "L", 0, ACT_MOD)
H = INPUT_NUM(NND, "H", H, ACT_MOD)
SPS = INPUT_NUM(NND, "SPS", SPS, ACT_MOD)
M1 = INPUT_NUM(NND, "M1", M1, ACT_MOD)
M2 = INPUT_NUM(NND, "M2", M2, ACT_MOD)
M3 = INPUT_NUM(NND, "M3", M3, ACT_MOD)
M4 = INPUT_NUM(NND, "M4", M4, ACT_MOD)
M5 = INPUT_NUM(NND, "M5", M5, ACT_MOD)
M6 = INPUT_NUM(NND, "M6", M6, ACT_MOD)
M7 = INPUT_NUM(NND, "M7", M7, ACT_MOD)
M8 = INPUT_NUM(NND, "M8", M8, ACT_MOD)
M9 = INPUT_NUM(NND, "M9", M9, ACT_MOD)
M10 = INPUT_NUM(NND, "M10", M10, ACT_MOD)
M11 = INPUT_NUM(NND, "M11", M11, ACT_MOD)
M12 = INPUT_NUM(NND, "M12", M12, ACT_MOD)
M13 = INPUT_NUM(NND, "M13", M13, ACT_MOD)
M14 = INPUT_NUM(NND, "M14", M14, ACT_MOD)
M15 = INPUT_NUM(NND, "M15", M15, ACT_MOD)
M16 = INPUT_NUM(NND, "M16", M16, ACT_MOD)
'M17 = INPUT_NUM(NND, "M17", M17, ACT_MOD)
'M18 = INPUT_NUM(NND, "M18", M18, ACT_MOD)
'M19 = INPUT_NUM(NND, "M19", M19, ACT_MOD)
VV = INPUT_NUM(NND, "VER.", VV, ACT_MOD)



'************************************* SCRITTURA LISTATO


Select Case VV
Case 1, 5
R01 = T_CIRC(M5 - M7 / 2, M10, 8) & T_CIRC(M5 + M7 / 2, M10, 8) & T_CIRC(M5 - M7 / 2 - M9, M10, 8) & T_CIRC(M5 - M7 / 2 - M9 + M15, M10, 8) & T_CIRC(M5 + M7 / 2 + M8, M10, 8) & T_CIRC(M5 + M7 / 2 + M8 - M16, M10, 8)
R02 = T_RECT2(M5 - 35 - M11, H - 31 - 18 + 6 - 7, 45, 14) & T_RECT2(M5 - 35, H - 31 - 18 + 6 - 7, 45, 14) & T_RECT2(M5 + 35, H - 31 - 18 + 6 - 7, 45, 14) & T_RECT2(M5 + 35 + M11, H - 31 - 18 + 6 - 7, 45, 14)
R03 = T_SLOT(M5, H - 31 - 11.35 + 6, 25, 8.5, 0) & T_CIRC(M5 - M6 - 140, H - 31 - 11.35 + 6, 9) & T_SLOT(M5 - M6, H - 31 - 11.35 + 6, 25, 8.5, 0) & T_SLOT(M5 + M6, H - 31 - 11.35 + 6, 25, 8.5, 0) & T_CIRC(M5 + M6 + 140, H - 31 - 11.35 + 6, 9)

R04 = T_RECT1(M3, M3 + 23, H - 6 - 13, H - 6) & T_RECT1(M3 + M4, M3 + M4 + 23, H - 6 - 13, H - 6) & T_RECT1(M3 + 2 * M4, M3 + 2 * M4 + 23, H - 6 - 13, H - 6) & T_RECT1(M3 + 3 * M4, M3 + 3 * M4 + 23, H - 6 - 13, H - 6)
R05 = T_SLOT(M3 + 3 * M4 - 35, H - 10, 15, 9, 90)
R06 = T_RECT1(-6, M13, -6, M1 + 10 - 6) & T_RECT1(L - M14, L + 6, -6, M1 + 10 - 6)

R07 = T_45(L / 2, H)

Case 2, 6
R01 = T_CIRC(M5 - M7 / 2, M10, 8) & T_CIRC(M5 + M7 / 2, M10, 8) & T_CIRC(M5 - M7 / 2 - M9, M10, 8) & T_CIRC(M5 - M7 / 2 - M9 + M15, M10, 8) & T_CIRC(M5 + M7 / 2 + M8, M10, 8) & T_CIRC(M5 + M7 / 2 + M8 - M16, M10, 8)
R02 = T_RECT2(M5 - 35 - M11, H - 31 - 18 + 6 - 7, 45, 14) & T_RECT2(M5 - 35, H - 31 - 18 + 6 - 7, 45, 14) & T_RECT2(M5 + 35, H - 31 - 18 + 6 - 7, 45, 14) & T_RECT2(M5 + 35 + M11, H - 31 - 18 + 6 - 7, 45, 14)

R03 = T_SLOT(M5, H - 31 - 11.35 + 6, 25, 8.5, 0) & T_CIRC(M5 - M6 - 140, H - 31 - 11.35 + 6, 9) & T_SLOT(M5 - M6, H - 31 - 11.35 + 6, 25, 8.5, 0) & T_SLOT(M5 + M6, H - 31 - 11.35 + 6, 25, 8.5, 0) & T_CIRC(M5 + M6 + 140, H - 31 - 11.35 + 6, 9)

R04 = T_RECT1(M13 + M3, M13 + M3 + 23, H - 6 - 13, H - 6) & T_RECT1(M13 + M3 + M4, M13 + M3 + M4 + 23, H - 6 - 13, H - 6) & T_RECT1(M13 + M3 + 2 * M4, M13 + M3 + 2 * M4 + 23, H - 6 - 13, H - 6) & T_RECT1(M13 + M3 + 3 * M4, M13 + M3 + 3 * M4 + 23, H - 6 - 13, H - 6)
R05 = T_SLOT(M13 + M3 + 3 * M4 - 35, H - 10, 15, 9, 90)
R06 = T_RECT1(-6, M13, M1 + 10 - 6, H + 6) & T_RECT1(L - M14, L + 6, -6, M1 + 10 - 6)

R07 = T_45(M13 + M12 / 2, H)

Case 3, 7
R01 = T_CIRC(M5 - M7 / 2, M10, 8) & T_CIRC(M5 + M7 / 2, M10, 8) & T_CIRC(M5 - M7 / 2 - M9, M10, 8) & T_CIRC(M5 - M7 / 2 - M9 + M15, M10, 8) & T_CIRC(M5 + M7 / 2 + M8, M10, 8) & T_CIRC(M5 + M7 / 2 + M8 - M16, M10, 8)
R02 = T_RECT2(M5 - 35 - M11, H - 31 - 18 + 6 - 7, 45, 14) & T_RECT2(M5 - 35, H - 31 - 18 + 6 - 7, 45, 14) & T_RECT2(M5 + 35, H - 31 - 18 + 6 - 7, 45, 14) & T_RECT2(M5 + 35 + M11, H - 31 - 18 + 6 - 7, 45, 14)

R03 = T_SLOT(M5, H - 31 - 11.35 + 6, 25, 8.5, 0) & T_CIRC(M5 - M6 - 140, H - 31 - 11.35 + 6, 9) & T_SLOT(M5 - M6, H - 31 - 11.35 + 6, 25, 8.5, 0) & T_SLOT(M5 + M6, H - 31 - 11.35 + 6, 25, 8.5, 0) & T_CIRC(M5 + M6 + 140, H - 31 - 11.35 + 6, 9)

R04 = T_RECT1(M3, M3 + 23, H - 6 - 13, H - 6) & T_RECT1(M3 + M4, M3 + M4 + 23, H - 6 - 13, H - 6) & T_RECT1(M3 + 2 * M4, M3 + 2 * M4 + 23, H - 6 - 13, H - 6) & T_RECT1(M3 + 3 * M4, M3 + 3 * M4 + 23, H - 6 - 13, H - 6)
R05 = T_SLOT(M3 + 3 * M4 - 35, H - 10, 15, 9, 90)
R06 = T_RECT1(-6, M13, -6, M1 + 10 - 6) & T_RECT1(L - M14, L + 6, M1 + 10 - 6, H + 6)

R07 = T_45(M12 / 2, H)

Case 4, 8
R01 = T_CIRC(M5 - M7 / 2, M10, 8) & T_CIRC(M5 + M7 / 2, M10, 8) & T_CIRC(M5 - M7 / 2 - M9, M10, 8) & T_CIRC(M5 - M7 / 2 - M9 + M15, M10, 8) & T_CIRC(M5 + M7 / 2 + M8, M10, 8) & T_CIRC(M5 + M7 / 2 + M8 - M16, M10, 8)
R02 = T_RECT2(M5 - 35 - M11, H - 31 - 18 + 6 - 7, 45, 14) & T_RECT2(M5 - 35, H - 31 - 18 + 6 - 7, 45, 14) & T_RECT2(M5 + 35, H - 31 - 18 + 6 - 7, 45, 14) & T_RECT2(M5 + 35 + M11, H - 31 - 18 + 6 - 7, 45, 14)

R03 = T_SLOT(M5, H - 31 - 11.35 + 6, 25, 8.5, 0) & T_CIRC(M5 - M6 - 140, H - 31 - 11.35 + 6, 9) & T_SLOT(M5 - M6, H - 31 - 11.35 + 6, 25, 8.5, 0) & T_SLOT(M5 + M6, H - 31 - 11.35 + 6, 25, 8.5, 0) & T_CIRC(M5 + M6 + 140, H - 31 - 11.35 + 6, 9)

R04 = T_RECT1(M13 + M3, M13 + M3 + 23, H - 6 - 13, H - 6) & T_RECT1(M13 + M3 + M4, M13 + M3 + M4 + 23, H - 6 - 13, H - 6) & T_RECT1(M13 + M3 + 2 * M4, M13 + M3 + 2 * M4 + 23, H - 6 - 13, H - 6) & T_RECT1(M13 + M3 + 3 * M4, M13 + M3 + 3 * M4 + 23, H - 6 - 13, H - 6)
R05 = T_SLOT(M13 + M3 + 3 * M4 - 35, H - 10, 15, 9, 90)
R06 = T_RECT1(-6, M13, M1 + 10 - 6, H + 6) & T_RECT1(L - M14, L + 6, M1 + 10 - 6, H + 6)

R07 = T_45(M13 + L / 2, H)

Case Else
MsgBox "ERRORE VERSIONE SU " & ACT_MOD
End Select



P1 = L / 2 - M7 / 2 + 100
P2 = L / 2 + M7 / 2 - 100
MVAL = 500

STRINGA = R000_vpr(NHD, CTT, SPS / 10, L, H, P1, P2, QTT, comm, RAGG, CODR, MVAL, INFO_DAT(NND, 0, 5)) & R01 & R02 & R03 & R04 & R05 & R06 & R07

Call SAVE_SUB(NND, STRINGA)

ACT_MOD = ""

End Sub


Sub V_1016416D(ByVal NND As Integer)
ACT_MOD = "1016416"
NHD = 10
'MsgBox "CONTROLLARE " & ACT_MOD & ", NUOVA REVISIONE!!!!!"
'AGGIORNATO 24/12/2017
'************************************* INPUT
If NND > 0 Then ON_MD = 2 Else ON_MD = 1
Select Case ON_MD
Case 1
comm = INPUT_STR(NND, "COMMESSA", comm, ACT_MOD)
Case 2
comm = INFO_DAT(NND, 0, 2)
RAGG = INFO_DAT(NND, 0, 3)
QTT = INFO_DAT(NND, 0, 4)
CODR = INFO_DAT(NND, 0, 10) & " - " & INFO_DAT(NND, 0, 11) & " - " & INFO_DAT(NND, 0, 12)

Case Else
MsgBox "ERRORE", , ACT_MOD
End Select

L = INPUT_NUM(NND, "L", 0, ACT_MOD)
H = INPUT_NUM(NND, "H", H, ACT_MOD)
SPS = INPUT_NUM(NND, "SPS", SPS, ACT_MOD)
M1 = INPUT_NUM(NND, "M1", M1, ACT_MOD)
M2 = INPUT_NUM(NND, "M2", M2, ACT_MOD)
M3 = INPUT_NUM(NND, "M3", M3, ACT_MOD)
M4 = INPUT_NUM(NND, "M4", M4, ACT_MOD)
M5 = INPUT_NUM(NND, "M5", M5, ACT_MOD)
M6 = INPUT_NUM(NND, "M6", M6, ACT_MOD)
M7 = INPUT_NUM(NND, "M7", M7, ACT_MOD)
M8 = INPUT_NUM(NND, "M8", M8, ACT_MOD)
M9 = INPUT_NUM(NND, "M9", M9, ACT_MOD)
M10 = INPUT_NUM(NND, "M10", M10, ACT_MOD)
M11 = INPUT_NUM(NND, "M11", M11, ACT_MOD)
M12 = INPUT_NUM(NND, "M12", M12, ACT_MOD)
M13 = INPUT_NUM(NND, "M13", M13, ACT_MOD)
M14 = INPUT_NUM(NND, "M14", M14, ACT_MOD)
M15 = INPUT_NUM(NND, "M15", M15, ACT_MOD)
M16 = INPUT_NUM(NND, "M16", M16, ACT_MOD)
M17 = INPUT_NUM(NND, "M17", M17, ACT_MOD)
M18 = INPUT_NUM(NND, "M18", M18, ACT_MOD)
M19 = INPUT_NUM(NND, "M19", M19, ACT_MOD)
M20 = INPUT_NUM(NND, "M20", M20, ACT_MOD)
M21 = INPUT_NUM(NND, "M21", M21, ACT_MOD)
VV = Val(Replace(INFO_DAT(NND, 0, 7), "P", ""))


'************************************* SCRITTURA LISTATO

Select Case VV
Case 1, 5

R01 = T_RECT1(-3, M18, -3, H - 81.5) & T_RECT1(L - M19, L + 3, -3, H - 81.5)
R02 = T_CIRC(L / 2 + M15 + M13, M14, 8) & T_CIRC(L / 2 + M15, M14, 8) & T_CIRC(L / 2 - M15, M14, 8) & T_CIRC(L / 2 - M15 - M17, M14, 8)
If M21 > 0 Then R07 = T_CIRC(L / 2 + M15 + M13 - M21, M14, 8) Else R07 = ""
If M20 > 0 Then R08 = T_CIRC(L / 2 - M15 - M17 + M20, M14, 8) Else R08 = ""
R03 = T_CIRC(75, H - 50.75, 9) & T_CIRC(L / 2 - M10, H - 50.75, 9) & T_CIRC(L / 2, H - 50.75, 9) & T_CIRC(L / 2 + M10, H - 50.75, 9) & T_CIRC(L - 75, H - 50.75, 9)
R04 = T_RECT1(M2, M2 + 23, H - 19, H - 6) & T_RECT1(M2 + M1, M2 + M1 + 23, H - 19, H - 6) & T_RECT1(M2 + 2 * M1, M2 + 2 * M1 + 23, H - 19, H - 6) & T_RECT1(M2 + 3 * M1, M2 + 3 * M1 + 23, H - 19, H - 6) & T_SLOT(M2 + 3 * M1 - 35, H - 13, 20, 8.5, 90)
R05 = T_SLOT(L - M9 + M7, H - 39.75, 45, 9, 0) & T_SLOT(L - M9 + 33, H - 39.75, 45, 9, 0) & T_SLOT(L - M9 - 33, H - 39.75, 45, 9, 0) & T_SLOT(L - M9 - M8, H - 39.75, 45, 9, 0)
R06 = T_RECT1(L - M9 + M4 - 22.5, L - M9 + M4 + 22.5, H - 71.75, H - 57.75) & T_RECT1(L - M9 + M3 - 22.5, L - M9 + M3 + 22.5, H - 71.75, H - 57.75) & T_RECT1(L - M9 - M5 - 22.5, L - M9 - M5 + 22.5, H - 71.75, H - 57.75) & T_RECT1(L - M9 - M6 - 22.5, L - M9 - M6 + 22.5, H - 71.75, H - 57.75)

R09 = T_45(L / 2, H)

Case 2, 6

R01 = T_RECT1(-3, M18, M12 + M16 - 18, H + 3) & T_RECT1(L - M19, L + 10, -3, H - 81.5)
R02 = T_CIRC(M18 + M11 / 2 + M15 + M13, M14, 8) & T_CIRC(M18 + M11 / 2 + M15, M14, 8) & T_CIRC(M18 + M11 / 2 - M15, M14, 8) & T_CIRC(M18 + M11 / 2 - M15 - M17, M14, 8)
If M21 > 0 Then R07 = T_CIRC(M18 + M11 / 2 + M15 + M13 - M21, M14, 8) Else R07 = ""
If M20 > 0 Then R08 = T_CIRC(M18 + M11 / 2 - M15 - M17 + M20, M14, 8) Else R08 = ""
R03 = T_CIRC(M18 + 75, H - 50.75, 9) & T_CIRC(M18 + M11 / 2 - M10, H - 50.75, 9) & T_CIRC(M18 + M11 / 2, H - 50.75, 9) & T_CIRC(M18 + M11 / 2 + M10, H - 50.75, 9) & T_CIRC(L - 75, H - 50.75, 9)
R04 = T_RECT1(M18 + M2, M18 + M2 + 23, H - 19, H - 6) & T_RECT1(M18 + M2 + M1, M18 + M2 + M1 + 23, H - 19, H - 6) & T_RECT1(M18 + M2 + 2 * M1, M18 + M2 + 2 * M1 + 23, H - 19, H - 6) & T_RECT1(M18 + M2 + 3 * M1, M18 + M2 + 3 * M1 + 23, H - 19, H - 6) & T_SLOT(M18 + M2 + 3 * M1 - 35, H - 13, 20, 8.5, 90)
R05 = T_SLOT(L - M9 + M7, H - 39.75, 45, 9, 0) & T_SLOT(L - M9 + 33, H - 39.75, 45, 9, 0) & T_SLOT(L - M9 - 33, H - 39.75, 45, 9, 0) & T_SLOT(L - M9 - M8, H - 39.75, 45, 9, 0)
R06 = T_RECT1(L - M9 + M4 - 22.5, L - M9 + M4 + 22.5, H - 71.75, H - 57.75) & T_RECT1(L - M9 + M3 - 22.5, L - M9 + M3 + 22.5, H - 71.75, H - 57.75) & T_RECT1(L - M9 - M5 - 22.5, L - M9 - M5 + 22.5, H - 71.75, H - 57.75) & T_RECT1(L - M9 - M6 - 22.5, L - M9 - M6 + 22.5, H - 71.75, H - 57.75)

R09 = T_45(M18 + M11 / 2, H)

Case 3, 7
R01 = T_RECT1(-3, M18, -3, H - 81.5) & T_RECT1(L - M19, L + 3, M12 + M16 - 18, H + 3)
R02 = T_CIRC(M11 / 2 + M15 + M13, M14, 8) & T_CIRC(M11 / 2 + M15, M14, 8) & T_CIRC(M11 / 2 - M15, M14, 8) & T_CIRC(M11 / 2 - M15 - M17, M14, 8)
If M21 > 0 Then R07 = T_CIRC(M11 / 2 + M15 + M13 - M21, M14, 8) Else R07 = ""
If M20 > 0 Then R08 = T_CIRC(M11 / 2 - M15 - M17 + M20, M14, 8) Else R08 = ""
R03 = T_CIRC(75, H - 50.75, 9) & T_CIRC(M11 / 2 - M10, H - 50.75, 9) & T_CIRC(M11 / 2, H - 50.75, 9) & T_CIRC(M11 / 2 + M10, H - 50.75, 9) & T_CIRC(L - M19 - 75, H - 50.75, 9)
R04 = T_RECT1(M2, M2 + 23, H - 19, H - 6) & T_RECT1(M2 + M1, M2 + M1 + 23, H - 19, H - 6) & T_RECT1(M2 + 2 * M1, M2 + 2 * M1 + 23, H - 19, H - 6) & T_RECT1(M2 + 3 * M1, M2 + 3 * M1 + 23, H - 19, H - 6) & T_SLOT(M2 + 3 * M1 - 35, H - 13, 20, 8.5, 90)
R05 = T_SLOT(L - M19 - M9 + M7, H - 39.75, 45, 9, 0) & T_SLOT(L - M19 - M9 + 33, H - 39.75, 45, 9, 0) & T_SLOT(L - M19 - M9 - 33, H - 39.75, 45, 9, 0) & T_SLOT(L - M19 - M9 - M8, H - 39.75, 45, 9, 0)
R06 = T_RECT1(L - M19 - M9 + M4 - 22.5, L - M19 - M9 + M4 + 22.5, H - 71.75, H - 57.75) & T_RECT1(L - M19 - M9 + M3 - 22.5, L - M19 - M9 + M3 + 22.5, H - 71.75, H - 57.75) & T_RECT1(L - M19 - M9 - M5 - 22.5, L - M19 - M9 - M5 + 22.5, H - 71.75, H - 57.75) & T_RECT1(L - M19 - M9 - M6 - 22.5, L - M19 - M9 - M6 + 22.5, H - 71.75, H - 57.75)

R09 = T_45(M11 / 2, H)

Case 4, 8
R01 = T_RECT1(-10, M18, M12 + M16 - 18, H + 3) & T_RECT1(L - M19, L + 10, M12 + M16 - 18, H + 3)
R02 = T_CIRC(M18 + M11 / 2 + M15 + M13, M14, 8) & T_CIRC(M18 + M11 / 2 + M15, M14, 8) & T_CIRC(M18 + M11 / 2 - M15, M14, 8) & T_CIRC(M18 + M11 / 2 - M15 - M17, M14, 8)
If M21 > 0 Then R07 = T_CIRC(M18 + M11 / 2 + M15 + M13 - M21, M14, 8) Else R07 = ""
If M20 > 0 Then R08 = T_CIRC(M18 + M11 / 2 - M15 - M17 + M20, M14, 8) Else R08 = ""
R03 = T_CIRC(M18 + 75, H - 50.75, 9) & T_CIRC(M18 + M11 / 2 - M10, H - 50.75, 9) & T_CIRC(M18 + M11 / 2, H - 50.75, 9) & T_CIRC(M18 + M11 / 2 + M10, H - 50.75, 9) & T_CIRC(L - M19 - 75, H - 50.75, 9)
R04 = T_RECT1(M18 + M2, M18 + M2 + 23, H - 19, H - 6) & T_RECT1(M18 + M2 + M1, M18 + M2 + M1 + 23, H - 19, H - 6) & T_RECT1(M18 + M2 + 2 * M1, M18 + M2 + 2 * M1 + 23, H - 19, H - 6) & T_RECT1(M18 + M2 + 3 * M1, M18 + M2 + 3 * M1 + 23, H - 19, H - 6) & T_SLOT(M18 + M2 + 3 * M1 - 35, H - 13, 20, 8.5, 90)
R05 = T_SLOT(L - M19 - M9 + M7, H - 39.75, 45, 9, 0) & T_SLOT(L - M19 - M9 + 33, H - 39.75, 45, 9, 0) & T_SLOT(L - M19 - M9 - 33, H - 39.75, 45, 9, 0) & T_SLOT(L - M19 - M9 - M8, H - 39.75, 45, 9, 0)
R06 = T_RECT1(L - M19 - M9 + M4 - 22.5, L - M19 - M9 + M4 + 22.5, H - 71.75, H - 57.75) & T_RECT1(L - M19 - M9 + M3 - 22.5, L - M19 - M9 + M3 + 22.5, H - 71.75, H - 57.75) & T_RECT1(L - M19 - M9 - M5 - 22.5, L - M19 - M9 - M5 + 22.5, H - 71.75, H - 57.75) & T_RECT1(L - M19 - M9 - M6 - 22.5, L - M19 - M9 - M6 + 22.5, H - 71.75, H - 57.75)

R09 = T_45(M18 + M11 / 2, H)

Case Else
MsgBox "ERRORE VERSIONE SU " & ACT_MOD
End Select


P1 = L / 2 - M15 + 100
P2 = L / 2 + M15 - 100
MVAL = 500

STRINGA = R000_vpr(NHD, CTT, SPS / 10, L, H, P1, P2, QTT, comm, RAGG, CODR, MVAL, INFO_DAT(NND, 0, 5)) & R01 & R02 & R03 & R04 & R05 & R06 & R07 & R08 & R09
Call SAVE_SUB(NND, STRINGA)

ACT_MOD = ""
End Sub



Sub V_1016416E(ByVal NND As Integer)
ACT_MOD = "1016416"
NHD = 10
'MsgBox "CONTROLLARE " & ACT_MOD & ", NUOVA REVISIONE!!!!!"
'AGGIORNATO 24/12/2017
'************************************* INPUT
If NND > 0 Then ON_MD = 2 Else ON_MD = 1
Select Case ON_MD
Case 1
comm = INPUT_STR(NND, "COMMESSA", comm, ACT_MOD)
Case 2
comm = INFO_DAT(NND, 0, 2)
RAGG = INFO_DAT(NND, 0, 3)
QTT = INFO_DAT(NND, 0, 4)
CODR = INFO_DAT(NND, 0, 10) & " - " & INFO_DAT(NND, 0, 11) & " - " & INFO_DAT(NND, 0, 12)

Case Else
MsgBox "ERRORE", , ACT_MOD
End Select

L = INPUT_NUM(NND, "L", 0, ACT_MOD)
H = INPUT_NUM(NND, "H", H, ACT_MOD)
SPS = INPUT_NUM(NND, "SPS", SPS, ACT_MOD)
M1 = INPUT_NUM(NND, "M1", M1, ACT_MOD)
M2 = INPUT_NUM(NND, "M2", M2, ACT_MOD)
M3 = INPUT_NUM(NND, "M3", M3, ACT_MOD)
M4 = INPUT_NUM(NND, "M4", M4, ACT_MOD)
M5 = INPUT_NUM(NND, "M5", M5, ACT_MOD)
M6 = INPUT_NUM(NND, "M6", M6, ACT_MOD)
M7 = INPUT_NUM(NND, "M7", M7, ACT_MOD)
M8 = INPUT_NUM(NND, "M8", M8, ACT_MOD)
M9 = INPUT_NUM(NND, "M9", M9, ACT_MOD)
M10 = INPUT_NUM(NND, "M10", M10, ACT_MOD)
M11 = INPUT_NUM(NND, "M11", M11, ACT_MOD)
M12 = INPUT_NUM(NND, "M12", M12, ACT_MOD)
M13 = INPUT_NUM(NND, "M13", M13, ACT_MOD)
M14 = INPUT_NUM(NND, "M14", M14, ACT_MOD)
M15 = INPUT_NUM(NND, "M15", M15, ACT_MOD)
M16 = INPUT_NUM(NND, "M16", M16, ACT_MOD)
M17 = INPUT_NUM(NND, "M17", M17, ACT_MOD)
M18 = INPUT_NUM(NND, "M18", M18, ACT_MOD)
M19 = INPUT_NUM(NND, "M19", M19, ACT_MOD)
M20 = INPUT_NUM(NND, "M20", M20, ACT_MOD)
M21 = INPUT_NUM(NND, "M21", M21, ACT_MOD)
VV = Val(Replace(INFO_DAT(NND, 0, 7), "P", ""))


'************************************* SCRITTURA LISTATO

Select Case VV
Case 1, 5

R01 = T_RECT1(-3, M18, -3, H - 81.5) & T_RECT1(L - M19, L + 3, -3, H - 81.5)
R02 = T_CIRC(L / 2 + M15 + M13, M14, 8) & T_CIRC(L / 2 + M15, M14, 8) & T_CIRC(L / 2 - M15, M14, 8) & T_CIRC(L / 2 - M15 - M17, M14, 8)
If M21 > 0 Then R07 = T_CIRC(L / 2 + M15 + M13 - M21, M14, 8) Else R07 = ""
If M20 > 0 Then R08 = T_CIRC(L / 2 - M15 - M17 + M20, M14, 8) Else R08 = ""
R03 = T_CIRC(75, H - 50.75, 9) & T_SLOT(L / 2 - M10, H - 50.75, 25, 8.5, 0) & T_SLOT(L / 2, H - 50.75, 25, 8.5, 0) & T_SLOT(L / 2 + M10, H - 50.75, 25, 8.5, 0) & T_CIRC(L - 75, H - 50.75, 9)
R04 = T_RECT1(M2, M2 + 23, H - 19, H - 6) & T_RECT1(M2 + M1, M2 + M1 + 23, H - 19, H - 6) & T_RECT1(M2 + 2 * M1, M2 + 2 * M1 + 23, H - 19, H - 6) & T_RECT1(M2 + 3 * M1, M2 + 3 * M1 + 23, H - 19, H - 6) & T_SLOT(M2 + 3 * M1 - 35, H - 13, 20, 8.5, 90)
R05 = T_SLOT(L - M9 + M7, H - 39.75, 45, 9, 0) & T_SLOT(L - M9 + 33, H - 39.75, 45, 9, 0) & T_SLOT(L - M9 - 33, H - 39.75, 45, 9, 0) & T_SLOT(L - M9 - M8, H - 39.75, 45, 9, 0)
R06 = T_RECT1(L - M9 + M4 - 22.5, L - M9 + M4 + 22.5, H - 71.75, H - 57.75) & T_RECT1(L - M9 + M3 - 22.5, L - M9 + M3 + 22.5, H - 71.75, H - 57.75) & T_RECT1(L - M9 - M5 - 22.5, L - M9 - M5 + 22.5, H - 71.75, H - 57.75) & T_RECT1(L - M9 - M6 - 22.5, L - M9 - M6 + 22.5, H - 71.75, H - 57.75)

R09 = T_45(L / 2, H)

Case 2, 6

R01 = T_RECT1(-3, M18, M12 + M16 - 18, H + 3) & T_RECT1(L - M19, L + 10, -3, H - 81.5)
R02 = T_CIRC(M18 + M11 / 2 + M15 + M13, M14, 8) & T_CIRC(M18 + M11 / 2 + M15, M14, 8) & T_CIRC(M18 + M11 / 2 - M15, M14, 8) & T_CIRC(M18 + M11 / 2 - M15 - M17, M14, 8)
If M21 > 0 Then R07 = T_CIRC(M18 + M11 / 2 + M15 + M13 - M21, M14, 8) Else R07 = ""
If M20 > 0 Then R08 = T_CIRC(M18 + M11 / 2 - M15 - M17 + M20, M14, 8) Else R08 = ""
R03 = T_CIRC(M18 + 75, H - 50.75, 9) & T_SLOT(M18 + M11 / 2 - M10, H - 50.75, 25, 8.5, 0) & T_SLOT(M18 + M11 / 2, H - 50.75, 25, 8.5, 0) & T_SLOT(M18 + M11 / 2 + M10, H - 50.75, 25, 8.5, 0) & T_CIRC(L - 75, H - 50.75, 9)
R04 = T_RECT1(M18 + M2, M18 + M2 + 23, H - 19, H - 6) & T_RECT1(M18 + M2 + M1, M18 + M2 + M1 + 23, H - 19, H - 6) & T_RECT1(M18 + M2 + 2 * M1, M18 + M2 + 2 * M1 + 23, H - 19, H - 6) & T_RECT1(M18 + M2 + 3 * M1, M18 + M2 + 3 * M1 + 23, H - 19, H - 6) & T_SLOT(M18 + M2 + 3 * M1 - 35, H - 13, 20, 8.5, 90)
R05 = T_SLOT(L - M9 + M7, H - 39.75, 45, 9, 0) & T_SLOT(L - M9 + 33, H - 39.75, 45, 9, 0) & T_SLOT(L - M9 - 33, H - 39.75, 45, 9, 0) & T_SLOT(L - M9 - M8, H - 39.75, 45, 9, 0)
R06 = T_RECT1(L - M9 + M4 - 22.5, L - M9 + M4 + 22.5, H - 71.75, H - 57.75) & T_RECT1(L - M9 + M3 - 22.5, L - M9 + M3 + 22.5, H - 71.75, H - 57.75) & T_RECT1(L - M9 - M5 - 22.5, L - M9 - M5 + 22.5, H - 71.75, H - 57.75) & T_RECT1(L - M9 - M6 - 22.5, L - M9 - M6 + 22.5, H - 71.75, H - 57.75)

R09 = T_45(M18 + M11 / 2, H)

Case 3, 7
R01 = T_RECT1(-3, M18, -3, H - 81.5) & T_RECT1(L - M19, L + 3, M12 + M16 - 18, H + 3)
R02 = T_CIRC(M11 / 2 + M15 + M13, M14, 8) & T_CIRC(M11 / 2 + M15, M14, 8) & T_CIRC(M11 / 2 - M15, M14, 8) & T_CIRC(M11 / 2 - M15 - M17, M14, 8)
If M21 > 0 Then R07 = T_CIRC(M11 / 2 + M15 + M13 - M21, M14, 8) Else R07 = ""
If M20 > 0 Then R08 = T_CIRC(M11 / 2 - M15 - M17 + M20, M14, 8) Else R08 = ""
R03 = T_CIRC(75, H - 50.75, 9) & T_SLOT(M11 / 2 - M10, H - 50.75, 25, 8.5, 0) & T_SLOT(M11 / 2, H - 50.75, 25, 8.5, 0) & T_SLOT(M11 / 2 + M10, H - 50.75, 25, 8.5, 0) & T_CIRC(L - M19 - 75, H - 50.75, 9)
R04 = T_RECT1(M2, M2 + 23, H - 19, H - 6) & T_RECT1(M2 + M1, M2 + M1 + 23, H - 19, H - 6) & T_RECT1(M2 + 2 * M1, M2 + 2 * M1 + 23, H - 19, H - 6) & T_RECT1(M2 + 3 * M1, M2 + 3 * M1 + 23, H - 19, H - 6) & T_SLOT(M2 + 3 * M1 - 35, H - 13, 20, 8.5, 90)
R05 = T_SLOT(L - M19 - M9 + M7, H - 39.75, 45, 9, 0) & T_SLOT(L - M19 - M9 + 33, H - 39.75, 45, 9, 0) & T_SLOT(L - M19 - M9 - 33, H - 39.75, 45, 9, 0) & T_SLOT(L - M19 - M9 - M8, H - 39.75, 45, 9, 0)
R06 = T_RECT1(L - M19 - M9 + M4 - 22.5, L - M19 - M9 + M4 + 22.5, H - 71.75, H - 57.75) & T_RECT1(L - M19 - M9 + M3 - 22.5, L - M19 - M9 + M3 + 22.5, H - 71.75, H - 57.75) & T_RECT1(L - M19 - M9 - M5 - 22.5, L - M19 - M9 - M5 + 22.5, H - 71.75, H - 57.75) & T_RECT1(L - M19 - M9 - M6 - 22.5, L - M19 - M9 - M6 + 22.5, H - 71.75, H - 57.75)

R09 = T_45(M11 / 2, H)

Case 4, 8
R01 = T_RECT1(-10, M18, M12 + M16 - 18, H + 3) & T_RECT1(L - M19, L + 10, M12 + M16 - 18, H + 3)
R02 = T_CIRC(M18 + M11 / 2 + M15 + M13, M14, 8) & T_CIRC(M18 + M11 / 2 + M15, M14, 8) & T_CIRC(M18 + M11 / 2 - M15, M14, 8) & T_CIRC(M18 + M11 / 2 - M15 - M17, M14, 8)
If M21 > 0 Then R07 = T_CIRC(M18 + M11 / 2 + M15 + M13 - M21, M14, 8) Else R07 = ""
If M20 > 0 Then R08 = T_CIRC(M18 + M11 / 2 - M15 - M17 + M20, M14, 8) Else R08 = ""
R03 = T_CIRC(M18 + 75, H - 50.75, 9) & T_SLOT(M18 + M11 / 2 - M10, H - 50.75, 25, 8.5, 0) & T_SLOT(M18 + M11 / 2, H - 50.75, 25, 8.5, 0) & T_SLOT(M18 + M11 / 2 + M10, H - 50.75, 25, 8.5, 0) & T_CIRC(L - M19 - 75, H - 50.75, 9)
R04 = T_RECT1(M18 + M2, M18 + M2 + 23, H - 19, H - 6) & T_RECT1(M18 + M2 + M1, M18 + M2 + M1 + 23, H - 19, H - 6) & T_RECT1(M18 + M2 + 2 * M1, M18 + M2 + 2 * M1 + 23, H - 19, H - 6) & T_RECT1(M18 + M2 + 3 * M1, M18 + M2 + 3 * M1 + 23, H - 19, H - 6) & T_SLOT(M18 + M2 + 3 * M1 - 35, H - 13, 20, 8.5, 90)
R05 = T_SLOT(L - M19 - M9 + M7, H - 39.75, 45, 9, 0) & T_SLOT(L - M19 - M9 + 33, H - 39.75, 45, 9, 0) & T_SLOT(L - M19 - M9 - 33, H - 39.75, 45, 9, 0) & T_SLOT(L - M19 - M9 - M8, H - 39.75, 45, 9, 0)
R06 = T_RECT1(L - M19 - M9 + M4 - 22.5, L - M19 - M9 + M4 + 22.5, H - 71.75, H - 57.75) & T_RECT1(L - M19 - M9 + M3 - 22.5, L - M19 - M9 + M3 + 22.5, H - 71.75, H - 57.75) & T_RECT1(L - M19 - M9 - M5 - 22.5, L - M19 - M9 - M5 + 22.5, H - 71.75, H - 57.75) & T_RECT1(L - M19 - M9 - M6 - 22.5, L - M19 - M9 - M6 + 22.5, H - 71.75, H - 57.75)

R09 = T_45(M18 + M11 / 2, H)

Case Else
MsgBox "ERRORE VERSIONE SU " & ACT_MOD
End Select


P1 = L / 2 - M15 + 100
P2 = L / 2 + M15 - 100
MVAL = 500

STRINGA = R000_vpr(NHD, CTT, SPS / 10, L, H, P1, P2, QTT, comm, RAGG, CODR, MVAL, INFO_DAT(NND, 0, 5)) & R01 & R02 & R03 & R04 & R05 & R06 & R07 & R08 & R09
Call SAVE_SUB(NND, STRINGA)

ACT_MOD = ""
End Sub


Sub V_1033985B(ByVal NND As Integer)
ACT_MOD = "1033985"
NHD = 10

'************************************* INPUT
If NND > 0 Then ON_MD = 2 Else ON_MD = 1
Select Case ON_MD
Case 1
comm = INPUT_STR(NND, "COMMESSA", comm, ACT_MOD)
Case 2
comm = INFO_DAT(NND, 0, 2)
RAGG = INFO_DAT(NND, 0, 3)
QTT = INFO_DAT(NND, 0, 4)
CODR = INFO_DAT(NND, 0, 10) & " - " & INFO_DAT(NND, 0, 11) & " - " & INFO_DAT(NND, 0, 12)

Case Else
MsgBox "ERRORE", , ACT_MOD
End Select

L = INPUT_NUM(NND, "L", 0, ACT_MOD)
H = INPUT_NUM(NND, "H", H, ACT_MOD)
SPS = INPUT_NUM(NND, "SPS", SPS, ACT_MOD)
M1 = INPUT_NUM(NND, "M1", M1, ACT_MOD)
M2 = INPUT_NUM(NND, "M2", M2, ACT_MOD)
M3 = INPUT_NUM(NND, "M3", M3, ACT_MOD)
M4 = INPUT_NUM(NND, "M4", M4, ACT_MOD)
M5 = INPUT_NUM(NND, "M5", M5, ACT_MOD)
M6 = INPUT_NUM(NND, "M6", M6, ACT_MOD)
M7 = INPUT_NUM(NND, "M7", M7, ACT_MOD)
M8 = INPUT_NUM(NND, "M8", M8, ACT_MOD)
M9 = INPUT_NUM(NND, "M9", M9, ACT_MOD)
M10 = INPUT_NUM(NND, "M10", M10, ACT_MOD)
M11 = INPUT_NUM(NND, "M11", M11, ACT_MOD)
M12 = INPUT_NUM(NND, "M12", M12, ACT_MOD)

VV = Val(Replace(INFO_DAT(NND, 0, 7), "P", ""))


'************************************* SCRITTURA LISTATO

Select Case VV
Case 1
R01 = T_RECT1(M1 + M2 * 3 - 23, M1 + M2 * 3, 6, 6 + 13) & T_RECT1(M1 + M2 * 2 - 23, M1 + M2 * 2, 6, 6 + 13) & T_RECT1(M1 + M2 - 23, M1 + M2, 6, 6 + 13) & T_RECT1(M1 - 23, M1, 6, 6 + 13)
R02 = T_RECT2(M4, 13, 50, 36) & T_RECT2(M4 + M5, 13, 50, 36) & T_RECT2(M4 + 2 * M5, 13, 50, 36)

R03 = T_SLOT(M1 + M2 * 3 - 35, 10, 15, 9, 90)
R04 = T_SLOT(M6, H - 31.5, 45, 9, 0) & T_SLOT(M6 + M7, H - 31.5, 45, 9, 0) & T_SLOT(M8, H - 9.5, 45, 9, 0) & T_SLOT(M8 + M9, H - 9.5, 45, 9, 0)
R05 = T_SLOT(M4, H - 21, 25, 8.5, 0) & T_SLOT(M4 + M5, H - 21, 25, 8.5, 0) & T_SLOT(M4 + 2 * M5, H - 21, 25, 8.5, 0)
R06 = T_CIRC(25, H - 21, 9) & T_CIRC(25 + M3, H - 21, 9)
R07 = T_RECT1(25 - 16, 25 + 16, H - 3, H + 7) & T_RECT1(25 - 16 + M3, 25 + 16 + M3, H - 3, H + 7)

Case 2
R01 = T_RECT1(L - M1, L - M1 + 23, 6, 6 + 13) & T_RECT1(L - M1 - M2, L - M1 - M2 + 23, 6, 6 + 13) & T_RECT1(L - M1 - 2 * M2, L - M1 - 2 * M2 + 23, 6, 6 + 13) & T_RECT1(L - M1 - 3 * M2, L - M1 - 3 * M2 + 23, 6, 6 + 13)
R02 = T_RECT2(L - M4, 13, 50, 36) & T_RECT2(L - M4 - M5, 13, 50, 36) & T_RECT2(L - M4 - 2 * M5, 13, 50, 36)
R03 = T_SLOT(L - M1 - M2 * 3 + 23 + 35, 10, 15, 9, 90)
R04 = T_SLOT(L - M6, H - 31.5, 45, 9, 0) & T_SLOT(L - M6 - M7, H - 31.5, 45, 9, 0) & T_SLOT(L - M8, H - 9.5, 45, 9, 0) & T_SLOT(L - M8 - M9, H - 9.5, 45, 9, 0)
R05 = T_SLOT(L - M4, H - 21, 25, 8.5, 0) & T_SLOT(L - M4 - M5, H - 21, 25, 8.5, 0) & T_SLOT(L - M4 - 2 * M5, H - 21, 25, 8.5, 0)
R06 = T_CIRC(L - 25, H - 21, 9) & T_CIRC(L - 25 - M3, H - 21, 9)
R07 = T_RECT1(L - 25 - 16, L - 25 + 16, H - 3, H + 7) & T_RECT1(L - 25 - 16 - M3, L - 25 + 16 - M3, H - 3, H + 7)

Case 3
R01 = T_RECT1(M1 - 23, M1, 6, 13) & T_RECT1(M1 + M2 - 23, M1, 6, 13) & T_RECT1(M1 + 2 * M2 - 23, M1, 6, 13) & T_RECT1(M1 + 3 * M2 - 23, M1, 6, 13)
R02 = T_RECT2(M4, 13, 50, 36) & T_RECT2(M4 + M5, 13, 50, 36) & T_RECT2(M4 + 2 * M5, 13, 50, 36)
R03 = T_SLOT(M1 + M2 * 3 - M1, 10, 15, 9, 90)
R05 = T_SLOT(M4, H - 21, 25, 8.5, 0) & T_SLOT(M4 + M5, H - 21, 25, 8.5, 0) & T_SLOT(M4 + 2 * M5, H - 21, 25, 8.5, 0)
R04 = T_SLOT(M6, H - 31.5, 45, 9, 0) & T_SLOT(M6 + M7, H - 31.5, 45, 9, 0) & T_SLOT(M8, H - 9.5, 45, 9, 0) & T_SLOT(M8 + M9, H - 9.5, 45, 9, 0)
R06 = T_CIRC(M12, H - 21, 9) & T_CIRC(M12 + M3, H - 21, 9)
R07 = T_RECT1(M12 - 16, M12 + 16, H - 3, H + 7) & T_RECT1(M12 - 16 + M3, M12 + 16 + M3, H - 3, H + 7)
If M10 > 0 Then
R06 = R06 & T_CIRC(M12 - M10, H - 21, 9)
R07 = R07 & T_RECT1(M12 - M10 - 16, M12 - M10 + 16, H - 3, H + 7)
End If
If M11 > 0 Then
R06 = R06 & T_CIRC(M12 + M3 + M11, H - 21, 9)
R07 = R07 & T_RECT1(M12 - 16 + M3 + M11, M12 + 16 + M3 + M11, H - 3, H + 7)
End If

Case 4
R01 = T_RECT1(L - M1, L - M1 + 23, 6, 6 + 13) & T_RECT1(L - M1 - M2, L - M1 - M2 + 23, 6, 6 + 13) & T_RECT1(L - M1 - 2 * M2, L - M1 - 2 * M2 + 23, 6, 6 + 13) & T_RECT1(L - M1 - 3 * M2, L - M1 - 3 * M2 + 23, 6, 6 + 13)
R02 = T_RECT2(L - M4, 13, 50, 36) & T_RECT2(L - M4 - M5, 13, 50, 36) & T_RECT2(L - M4 - 2 * M5, 13, 50, 36)
R03 = T_SLOT(L - M1 - M2 * 3 + 23 + 35, 10, 15, 9, 90)
R04 = T_SLOT(L - M6, H - 31.5, 45, 9, 0) & T_SLOT(L - M6 - M7, H - 31.5, 45, 9, 0) & T_SLOT(L - M8, H - 9.5, 45, 9, 0) & T_SLOT(L - M8 - M9, H - 9.5, 45, 9, 0)
R05 = T_SLOT(L - M4, H - 21, 25, 8.5, 0) & T_SLOT(L - M4 - M5, H - 21, 25, 8.5, 0) & T_SLOT(L - M4 - 2 * M5, H - 21, 25, 8.5, 0)
R06 = T_CIRC(L - M12, H - 21, 9) & T_CIRC(L - M12 - M3, H - 21, 9)
R07 = T_RECT1(L - M12 - 16, L - M12 + 16, H - 3, H + 7) & T_RECT1(L - M12 - 16 - M3, L - M12 + 16 - M3, H - 3, H + 7)
If M10 > 0 Then
R06 = R06 & T_CIRC(L - M12 - M3 - M10, H - 21, 9)
R07 = R07 & T_RECT1(L - M12 - M3 - M10 - 16, L - M12 - M3 - M10 + 16, H - 3, H + 7)
End If
If M11 > 0 Then
R06 = R06 & T_CIRC(L - M12 + M11, H - 21, 9)
R07 = R07 & T_RECT1(L - M12 - 16 + M11, L - M12 + 16 + M11, H - 3, H + 7)
End If

Case Else
MsgBox "ERRORE VERSIONE SU " & ACT_MOD
End Select


P1 = M1 + 100
P2 = L - M1
MVAL = 500

STRINGA = R000_vpr(NHD, CTT, SPS / 10, L, H, P1, P2, QTT, comm, RAGG, CODR, MVAL, INFO_DAT(NND, 0, 5)) & R01 & R02 & R03 & R04 & R05 & R06 & R07
Call SAVE_SUB(NND, STRINGA)

Call FVTPT(4, NND, "")

ACT_MOD = ""
End Sub


Sub V_1006951(ByVal NND As Integer)
ACT_MOD = "1006951"
NHD = 2

'MsgBox ("CONTROLLARE PARAMENTO CODICE " & ACT_MOD)
' AGGIUSTATO 23/03/2017
'************************************* INPUT
If NND > 0 Then ON_MD = 2 Else ON_MD = 1
Select Case ON_MD
Case 1
comm = INPUT_STR(NND, "COMMESSA", comm, ACT_MOD)
Case 2
comm = INFO_DAT(NND, 0, 2)
RAGG = INFO_DAT(NND, 0, 3)
QTT = INFO_DAT(NND, 0, 4)
CODR = INFO_DAT(NND, 0, 10) & " - " & INFO_DAT(NND, 0, 11) & " - " & INFO_DAT(NND, 0, 12)
If INFO_DAT(NND, 0, 9) <> "0" Then MsgBox "INDICE DI REVISIONE ERRATO SU CODICE " & ACT_MOD
Case Else
MsgBox "ERRORE", , ACT_MOD
End Select

L = INPUT_NUM(NND, "L", 0, ACT_MOD)
H = INPUT_NUM(NND, "H", H, ACT_MOD)
SPS = INPUT_NUM(NND, "SPS", SPS, ACT_MOD)
M1 = INPUT_NUM(NND, "M1", M1, ACT_MOD)
M2 = INPUT_NUM(NND, "M2", M2, ACT_MOD)
M3 = INPUT_NUM(NND, "M3", M3, ACT_MOD)
M4 = INPUT_NUM(NND, "M4", M4, ACT_MOD)

'************************************* SCRITTURA LISTATO

'R01A = T_SPECIAL(L - M2 + 10, H - 55 + 5, "23G0S", "C180.") & T_SPECIAL(L - M2 - M3 + 10, H - 55 + 5, "23G0S", "C180.")
'R01B = T_SPECIAL(L - M2 - 2 * M3 + 10, H - 55 + 5, "23G0S", "C180.") & T_SPECIAL(L - M2 - 3 * M3 + 10, H - 55 + 5, "23G0S", "C180.")
'R01 = R01A & R01B
'R02 = T_CIRC(L - M2 - 3 * M3 + 35, H - 53, 8.5)

R01A = T_SPECIAL(M2 - 10, H - 55 + 6, "23G0S", "C180.") & T_SPECIAL(M2 + M3 - 10, H - 55 + 6, "23G0S", "C180.")
R01B = T_SPECIAL(M2 + 2 * M3 - 10, H - 55 + 6, "23G0S", "C180.") & T_SPECIAL(M2 + 3 * M3 - 10, H - 55 + 6, "23G0S", "C180.")
R01 = R01A & R01B

R02 = T_CIRC(M2 + 3 * M3 - 35, H - 53, 8.5)


'ATTENZIONE NELLA LAVORAZIONE R03: ADESSO LAVORA BENE, MA LA QUOTA 14 E' SBAGLIATA QUELLA GIUSTA E' 4.
'MODIFICATA DA 4 A 14 PERCHE' LA TESTA LAVORA CON UN PUNZONE 10x10 E LA FUNZIONE TG_R E' STATA CREATA PER UN PUNZONE DI 20
R03A = TG_R(20, 14, 0, 0, 14, 8, 8)
R03B = TG_R(20, 0, H - 14, 14, H, 8, 8)
R03C = TG_R(20, L - 14, H, L, H - 14, 8, 8)
R03D = TG_R(20, L, 14, L - 14, 0, 8, 8)
R03 = R03A & R03B & R03C & R03D

P1 = 200
P2 = L - 250
MVAL = 500

STRINGA = R000_vpr(NHD, CTT, SPS / 10, L, H, P1, P2, QTT, comm, RAGG, CODR, MVAL, INFO_DAT(NND, 0, 5)) & R01 & R02 & R03

Call SAVE_SUB(NND, STRINGA)

ACT_MOD = ""
End Sub


Sub V_1006951C(ByVal NND As Integer)
ACT_MOD = "1006951"
NHD = 2

'************************************* INPUT
If NND > 0 Then ON_MD = 2 Else ON_MD = 1
Select Case ON_MD
Case 1
comm = INPUT_STR(NND, "COMMESSA", comm, ACT_MOD)
Case 2
comm = INFO_DAT(NND, 0, 2)
RAGG = INFO_DAT(NND, 0, 3)
QTT = INFO_DAT(NND, 0, 4)
CODR = INFO_DAT(NND, 0, 10) & " - " & INFO_DAT(NND, 0, 11) & " - " & INFO_DAT(NND, 0, 12)
Case Else
MsgBox "ERRORE", , ACT_MOD
End Select

L = INPUT_NUM(NND, "L", 0, ACT_MOD)
H = INPUT_NUM(NND, "H", H, ACT_MOD)
SPS = INPUT_NUM(NND, "SPS", SPS, ACT_MOD)
M1 = INPUT_NUM(NND, "M1", M1, ACT_MOD)
M2 = INPUT_NUM(NND, "M2", M2, ACT_MOD)
M3 = INPUT_NUM(NND, "M3", M3, ACT_MOD)
M4 = INPUT_NUM(NND, "M4", M4, ACT_MOD)
M5 = INPUT_NUM(NND, "M5", M5, ACT_MOD)
'************************************* SCRITTURA LISTATO

R01A = T_SPECIAL(M2 - 10, H - 55 + 6, "23G0S", "C180.") & T_SPECIAL(M2 + M3 - 10, H - 55 + 6, "23G0S", "C180.")
R01B = T_SPECIAL(M2 + 2 * M3 - 10, H - 55 + 6, "23G0S", "C180.") & T_SPECIAL(M2 + 3 * M3 - 10, H - 55 + 6, "23G0S", "C180.")
R01C = T_SPECIAL(M2 - 10, H - 55 - M5 + 6, "23G0S", "C180.") & T_SPECIAL(M2 + 3 * M3 - 10, H - 55 - M5 + 6, "23G0S", "C180.")
R01 = R01A & R01B & R01C

R02 = T_CIRC(M2 + 3 * M3 - 35, H - 53, 8.5)


'ATTENZIONE NELLA LAVORAZIONE R03: ADESSO LAVORA BENE, MA LA QUOTA 14 E' SBAGLIATA QUELLA GIUSTA E' 4.
'MODIFICATA DA 4 A 14 PERCHE' LA TESTA LAVORA CON UN PUNZONE 10x10 E LA FUNZIONE TG_R E' STATA CREATA PER UN PUNZONE DI 20
R03A = TG_R(20, 14, 0, 0, 14, 8, 8)
R03B = TG_R(20, 0, H - 14, 14, H, 8, 8)
R03C = TG_R(20, L - 14, H, L, H - 14, 8, 8)
R03D = TG_R(20, L, 14, L - 14, 0, 8, 8)
R03 = R03A & R03B & R03C & R03D

P1 = 200
P2 = L - 250
MVAL = 500

STRINGA = R000_vpr(NHD, CTT, SPS / 10, L, H, P1, P2, QTT, comm, RAGG, CODR, MVAL, INFO_DAT(NND, 0, 5)) & R01 & R02 & R03

Call SAVE_SUB(NND, STRINGA)

ACT_MOD = ""
End Sub


Sub V_1023836A(ByVal NND As Integer)
ACT_MOD = "1023836"
NHD = 1

'MsgBox ("CONTROLLARE PARAMENTO CODICE " & ACT_MOD) 23/05/2017
' AGGIUSTATO 23/03/2017
'************************************* INPUT
If NND > 0 Then ON_MD = 2 Else ON_MD = 1
Select Case ON_MD
Case 1
comm = INPUT_STR(NND, "COMMESSA", comm, ACT_MOD)
Case 2
comm = INFO_DAT(NND, 0, 2)
RAGG = INFO_DAT(NND, 0, 3)
QTT = INFO_DAT(NND, 0, 4)
CODR = INFO_DAT(NND, 0, 10) & " - " & INFO_DAT(NND, 0, 11) & " - " & INFO_DAT(NND, 0, 12)
Case Else
MsgBox "ERRORE", , ACT_MOD
End Select

L = INPUT_NUM(NND, "L", 0, ACT_MOD)
H = INPUT_NUM(NND, "H", H, ACT_MOD)
SPS = INPUT_NUM(NND, "SPS", SPS, ACT_MOD)
M1 = INPUT_NUM(NND, "M1", M1, ACT_MOD)
M2 = INPUT_NUM(NND, "M2", M2, ACT_MOD)
M3 = INPUT_NUM(NND, "M3", M3, ACT_MOD)

'************************************* SCRITTURA LISTATO

R01A = T_SPECIAL(M2 - 10, H - 55 + 6, "23G0S", "C180.") & T_SPECIAL(M2 + M3 - 10, H - 55 + 6, "23G0S", "C180.")
R01B = T_SPECIAL(M2 + 2 * M3 - 10, H - 55 + 6, "23G0S", "C180.") & T_SPECIAL(M2 + 3 * M3 - 10, H - 55 + 6, "23G0S", "C180.")
R01 = R01A & R01B

R02 = T_CIRC(M2 + 3 * M3 - 35, H - 53, 8.5)


R03A = TG_R(20, 14, 0, 0, 14, 8, 8)
R03B = TG_R(20, 0, H - 14, 14, H, 8, 8)
R03C = TG_R(20, L - 14, H, L, H - 14, 8, 8)
R03D = TG_R(20, L, 14, L - 14, 0, 8, 8)
R03 = R03A & R03B & R03C & R03D

P1 = 200
P2 = L - 250
MVAL = 500

STRINGA = R000_vpr(NHD, CTT, SPS / 10, L, H, P1, P2, QTT, comm, RAGG, CODR, MVAL, INFO_DAT(NND, 0, 5)) & R01 & R02 & R03

Call SAVE_SUB(NND, STRINGA)

ACT_MOD = ""
End Sub


Sub V_1007889B(ByVal NND As Integer) 'revisione B
ACT_MOD = "1007889"
NHD = 10

'MsgBox ("CONTROLLARE " & ACT_MOD)
'************************************* INPUT
If NND > 0 Then ON_MD = 2 Else ON_MD = 1
Select Case ON_MD
Case 1
comm = INPUT_STR(NND, "COMMESSA", comm, ACT_MOD)
Case 2
comm = INFO_DAT(NND, 0, 2)
RAGG = INFO_DAT(NND, 0, 3)
QTT = INFO_DAT(NND, 0, 4)
CODR = INFO_DAT(NND, 0, 10) & " - " & INFO_DAT(NND, 0, 11) & " - " & INFO_DAT(NND, 0, 12)

Case Else
MsgBox "ERRORE", , ACT_MOD
End Select

L = INPUT_NUM(NND, "L", 0, ACT_MOD)
H = INPUT_NUM(NND, "H", H, ACT_MOD)
SPS = INPUT_NUM(NND, "SPS", SPS, ACT_MOD)
M1 = INPUT_NUM(NND, "M1", M1, ACT_MOD)
M2 = INPUT_NUM(NND, "M2", M2, ACT_MOD)
M3 = INPUT_NUM(NND, "M3", M3, ACT_MOD)
M4 = INPUT_NUM(NND, "M4", M4, ACT_MOD)
M5 = INPUT_NUM(NND, "M5", M5, ACT_MOD)
M6 = INPUT_NUM(NND, "M6", M6, ACT_MOD)
M7 = INPUT_NUM(NND, "M7", M7, ACT_MOD)
M8 = INPUT_NUM(NND, "M8", M8, ACT_MOD)
M9 = INPUT_NUM(NND, "M9", M9, ACT_MOD)
M10 = INPUT_NUM(NND, "M10", M10, ACT_MOD)
M11 = INPUT_NUM(NND, "M11", M11, ACT_MOD)
M12 = INPUT_NUM(NND, "M12", M12, ACT_MOD)
M13 = INPUT_NUM(NND, "M13", M13, ACT_MOD)
M14 = INPUT_NUM(NND, "M14", M14, ACT_MOD)
M15 = INPUT_NUM(NND, "M15", M15, ACT_MOD)
M16 = INPUT_NUM(NND, "M16", M16, ACT_MOD)
'M17 = INPUT_NUM(NND, "M17", M17, ACT_MOD)
'M18 = INPUT_NUM(NND, "M18", M18, ACT_MOD)
'M19 = INPUT_NUM(NND, "M19", M19, ACT_MOD)
VV = INPUT_NUM(NND, "VER.", VV, ACT_MOD)



'************************************* SCRITTURA LISTATO


Select Case VV
Case 1, 5
R01 = T_CIRC(M5 - M7 / 2, M10, 8) & T_CIRC(M5 + M7 / 2, M10, 8) & T_CIRC(M5 - M7 / 2 - M9, M10, 8) & T_CIRC(M5 - M7 / 2 - M9 + M15, M10, 8) & T_CIRC(M5 + M7 / 2 + M8, M10, 8) & T_CIRC(M5 + M7 / 2 + M8 - M16, M10, 8)
R02 = T_RECT2(M5 - 35 - M11, H - 31 - 18 + 6 - 7, 45, 14) & T_RECT2(M5 - 35, H - 31 - 18 + 6 - 7, 45, 14) & T_RECT2(M5 + 35, H - 31 - 18 + 6 - 7, 45, 14) & T_RECT2(M5 + 35 + M11, H - 31 - 18 + 6 - 7, 45, 14)
R03 = T_CIRC(M5, H - 31 - 11.35 + 6, 9) & T_CIRC(M5 - M6 - 140, H - 31 - 11.35 + 6, 9) & T_CIRC(M5 - M6, H - 31 - 11.35 + 6, 9) & T_CIRC(M5 + M6, H - 31 - 11.35 + 6, 9) & T_CIRC(M5 + M6 + 140, H - 31 - 11.35 + 6, 9)

R04 = T_RECT1(M3, M3 + 23, H - 6 - 13, H - 6) & T_RECT1(M3 + M4, M3 + M4 + 23, H - 6 - 13, H - 6) & T_RECT1(M3 + 2 * M4, M3 + 2 * M4 + 23, H - 6 - 13, H - 6) & T_RECT1(M3 + 3 * M4, M3 + 3 * M4 + 23, H - 6 - 13, H - 6)
R05 = T_SLOT(M3 + 3 * M4 - 35, H - 10, 15, 9, 90)
R06 = T_RECT1(-6, M13, -6, M1 + 10 - 6) & T_RECT1(L - M14, 6, -6, M1 + 10 - 6)

Case 2, 6
R01 = T_CIRC(M5 - M7 / 2, M10, 8) & T_CIRC(M5 + M7 / 2, M10, 8) & T_CIRC(M5 - M7 / 2 - M9, M10, 8) & T_CIRC(M5 - M7 / 2 - M9 + M15, M10, 8) & T_CIRC(M5 + M7 / 2 + M8, M10, 8) & T_CIRC(M5 + M7 / 2 + M8 - M16, M10, 8)
R02 = T_RECT2(M5 - 35 - M11, H - 31 - 18 + 6 - 7, 45, 14) & T_RECT2(M5 - 35, H - 31 - 18 + 6 - 7, 45, 14) & T_RECT2(M5 + 35, H - 31 - 18 + 6 - 7, 45, 14) & T_RECT2(M5 + 35 + M11, H - 31 - 18 + 6 - 7, 45, 14)
R03 = T_CIRC(M5, H - 31 - 11.35 + 6, 9) & T_CIRC(M5 - M6 - 140, H - 31 - 11.35 + 6, 9) & T_CIRC(M5 - M6, H - 31 - 11.35 + 6, 9) & T_CIRC(M5 + M6, H - 31 - 11.35 + 6, 9) & T_CIRC(M5 + M6 + 140, H - 31 - 11.35 + 6, 9)

R04 = T_RECT1(M13 + M3, M13 + M3 + 23, H - 6 - 13, H - 6) & T_RECT1(M13 + M3 + M4, M13 + M3 + M4 + 23, H - 6 - 13, H - 6) & T_RECT1(M13 + M3 + 2 * M4, M13 + M3 + 2 * M4 + 23, H - 6 - 13, H - 6) & T_RECT1(M13 + M3 + 3 * M4, M13 + M3 + 3 * M4 + 23, H - 6 - 13, H - 6)
R05 = T_SLOT(M13 + M3 + 3 * M4 - 35, H - 10, 15, 9, 90)
R06 = T_RECT1(-6, M13, M1 + 10 - 6, H + 6) & T_RECT1(L - M14, 6, -6, M1 + 10 - 6)

Case 3, 7
R01 = T_CIRC(M5 - M7 / 2, M10, 8) & T_CIRC(M5 + M7 / 2, M10, 8) & T_CIRC(M5 - M7 / 2 - M9, M10, 8) & T_CIRC(M5 - M7 / 2 - M9 + M15, M10, 8) & T_CIRC(M5 + M7 / 2 + M8, M10, 8) & T_CIRC(M5 + M7 / 2 + M8 - M16, M10, 8)
R02 = T_RECT2(M5 - 35 - M11, H - 31 - 18 + 6 - 7, 45, 14) & T_RECT2(M5 - 35, H - 31 - 18 + 6 - 7, 45, 14) & T_RECT2(M5 + 35, H - 31 - 18 + 6 - 7, 45, 14) & T_RECT2(M5 + 35 + M11, H - 31 - 18 + 6 - 7, 45, 14)
R03 = T_CIRC(M5, H - 31 - 11.35 + 6, 9) & T_CIRC(M5 - M6 - 140, H - 31 - 11.35 + 6, 9) & T_CIRC(M5 - M6, H - 31 - 11.35 + 6, 9) & T_CIRC(M5 + M6, H - 31 - 11.35 + 6, 9) & T_CIRC(M5 + M6 + 140, H - 31 - 11.35 + 6, 9)

R04 = T_RECT1(M3, M3 + 23, H - 6 - 13, H - 6) & T_RECT1(M3 + M4, M3 + M4 + 23, H - 6 - 13, H - 6) & T_RECT1(M3 + 2 * M4, M3 + 2 * M4 + 23, H - 6 - 13, H - 6) & T_RECT1(M3 + 3 * M4, M3 + 3 * M4 + 23, H - 6 - 13, H - 6)
R05 = T_SLOT(M3 + 3 * M4 - 35, H - 10, 15, 9, 90)
R06 = T_RECT1(-6, M13, -6, M1 + 10 - 6) & T_RECT1(L - M14, 6, M1 + 10 - 6, H + 6)

Case 4, 8
R01 = T_CIRC(M5 - M7 / 2, M10, 8) & T_CIRC(M5 + M7 / 2, M10, 8) & T_CIRC(M5 - M7 / 2 - M9, M10, 8) & T_CIRC(M5 - M7 / 2 - M9 + M15, M10, 8) & T_CIRC(M5 + M7 / 2 + M8, M10, 8) & T_CIRC(M5 + M7 / 2 + M8 - M16, M10, 8)
R02 = T_RECT2(M5 - 35 - M11, H - 31 - 18 + 6 - 7, 45, 14) & T_RECT2(M5 - 35, H - 31 - 18 + 6 - 7, 45, 14) & T_RECT2(M5 + 35, H - 31 - 18 + 6 - 7, 45, 14) & T_RECT2(M5 + 35 + M11, H - 31 - 18 + 6 - 7, 45, 14)
R03 = T_CIRC(M5, H - 31 - 11.35 + 6, 9) & T_CIRC(M5 - M6 - 140, H - 31 - 11.35 + 6, 9) & T_CIRC(M5 - M6, H - 31 - 11.35 + 6, 9) & T_CIRC(M5 + M6, H - 31 - 11.35 + 6, 9) & T_CIRC(M5 + M6 + 140, H - 31 - 11.35 + 6, 9)

R04 = T_RECT1(M13 + M3, M13 + M3 + 23, H - 6 - 13, H - 6) & T_RECT1(M13 + M3 + M4, M13 + M3 + M4 + 23, H - 6 - 13, H - 6) & T_RECT1(M13 + M3 + 2 * M4, M13 + M3 + 2 * M4 + 23, H - 6 - 13, H - 6) & T_RECT1(M13 + M3 + 3 * M4, M13 + M3 + 3 * M4 + 23, H - 6 - 13, H - 6)
R05 = T_SLOT(M13 + M3 + 3 * M4 - 35, H - 10, 15, 9, 90)
R06 = T_RECT1(-6, M13, M1 + 10 - 6, H + 6) & T_RECT1(L - M14, 6, M1 + 10 - 6, H + 6)


Case Else
MsgBox "ERRORE VERSIONE SU " & ACT_MOD
End Select



P1 = L / 2 - M7 / 2 + 100
P2 = L / 2 + M7 / 2 - 100
MVAL = 500

STRINGA = R000_vpr(NHD, CTT, SPS / 10, L, H, P1, P2, QTT, comm, RAGG, CODR, MVAL, INFO_DAT(NND, 0, 5)) & R01 & R02 & R03 & R04 & R05 & R06

Call SAVE_SUB(NND, STRINGA)

ACT_MOD = ""

End Sub


Sub V_1007889A(ByVal NND As Integer) 'revisione A
ACT_MOD = "1007889"
NHD = 10

'MsgBox ("CONTROLLARE " & ACT_MOD)
'************************************* INPUT
If NND > 0 Then ON_MD = 2 Else ON_MD = 1
Select Case ON_MD
Case 1
comm = INPUT_STR(NND, "COMMESSA", comm, ACT_MOD)
Case 2
comm = INFO_DAT(NND, 0, 2)
RAGG = INFO_DAT(NND, 0, 3)
QTT = INFO_DAT(NND, 0, 4)
CODR = INFO_DAT(NND, 0, 10) & " - " & INFO_DAT(NND, 0, 11) & " - " & INFO_DAT(NND, 0, 12)

Case Else
MsgBox "ERRORE", , ACT_MOD
End Select

L = INPUT_NUM(NND, "L", 0, ACT_MOD)
H = INPUT_NUM(NND, "H", H, ACT_MOD)
SPS = INPUT_NUM(NND, "SPS", SPS, ACT_MOD)
M1 = INPUT_NUM(NND, "M1", M1, ACT_MOD)
M2 = INPUT_NUM(NND, "M2", M2, ACT_MOD)
M3 = INPUT_NUM(NND, "M3", M3, ACT_MOD)
M4 = INPUT_NUM(NND, "M4", M4, ACT_MOD)
M5 = INPUT_NUM(NND, "M5", M5, ACT_MOD)
M6 = INPUT_NUM(NND, "M6", M6, ACT_MOD)
M7 = INPUT_NUM(NND, "M7", M7, ACT_MOD)
M8 = INPUT_NUM(NND, "M8", M8, ACT_MOD)
M9 = INPUT_NUM(NND, "M9", M9, ACT_MOD)
M10 = INPUT_NUM(NND, "M10", M10, ACT_MOD)
M11 = INPUT_NUM(NND, "M11", M11, ACT_MOD)
M12 = INPUT_NUM(NND, "M12", M12, ACT_MOD)
'M13 = INPUT_NUM(NND, "M13", M13, ACT_MOD)
'M14 = INPUT_NUM(NND, "M14", M14, ACT_MOD)
'M15 = INPUT_NUM(NND, "M15", M15, ACT_MOD)
'M16 = INPUT_NUM(NND, "M16", M16, ACT_MOD)
'M17 = INPUT_NUM(NND, "M17", M17, ACT_MOD)
'M18 = INPUT_NUM(NND, "M18", M18, ACT_MOD)
'M19 = INPUT_NUM(NND, "M19", M19, ACT_MOD)
VV = Val(INFO_DAT(NND, 0, 7))



'************************************* SCRITTURA LISTATO


R01 = T_CIRC(M6 - M8 / 2 - M10, M11, 8) & T_CIRC(M6 - M8 / 2, M11, 8) & T_CIRC(M6 + M8 / 2, M11, 8) & T_CIRC(M6 + M8 / 2 + M9, M11, 8)
R02 = T_CIRC(M6 - M7 - 140, H - 31 - 11.35 + 6, 9) & T_CIRC(M6 - M7, H - 31 - 11.35 + 6, 9) & T_CIRC(M6, H - 31 - 11.35 + 6, 9) & T_CIRC(M6 + M7 + 140, H - 31 - 11.35 + 6, 9) & T_CIRC(M6 + M7, H - 31 - 11.35 + 6, 9)
R03 = T_RECT2(M6 - 35 - M12, H - 31 - 18 + 6 - 7, 45, 14) & T_RECT2(M6 - 35, H - 31 - 18 + 6 - 7, 45, 14) & T_RECT2(M6 + 35 + M12, H - 31 - 18 + 6 - 7, 45, 14) & T_RECT2(M6 + 35, H - 31 - 18 + 6 - 7, 45, 14)
R04 = T_RECT1(L - M3 - 3 * M4 - 23, L - M3 - 3 * M4, H - 6 - 13, H - 6) & T_RECT1(L - M3 - 2 * M4 - 23, L - M3 - 2 * M4, H - 6 - 13, H - 6) & T_RECT1(L - M3 - M4 - 23, L - M3 - M4, H - 6 - 13, H - 6) & T_RECT1(L - M3 - 23, L - M3, H - 6 - 13, H - 6)
R05 = T_SLOT(L - M3 - 23 - 35, H - 10, 15, 9, 90)
R06 = T_RECT1(-6, 75, -6, M1 + 10 - 6) & T_RECT1(L - 75, L + 6, -6, M1 + 10 - 6)



P1 = L / 2 - M8 / 2 + 100
P2 = L / 2 + M8 / 2 - 100
MVAL = 500

STRINGA = R000_vpr(NHD, CTT, SPS / 10, L, H, P1, P2, QTT, comm, RAGG, CODR, MVAL, INFO_DAT(NND, 0, 5)) & R01 & R02 & R03 & R04 & R05 & R06

Call SAVE_SUB(NND, STRINGA)
ACT_MOD = ""

End Sub


Sub V_1007233(ByVal NND As Integer)
ACT_MOD = "1007233"
NHD = 2
If NND > 0 Then ON_MD = 2 Else ON_MD = 1

'************************************* INPUT
Select Case ON_MD
Case 1
comm = INPUT_STR(NND, "COMMESSA", comm, ACT_MOD)
Case 2
comm = INFO_DAT(NND, 0, 2)
RAGG = INFO_DAT(NND, 0, 3)
QTT = INFO_DAT(NND, 0, 4)
CODR = INFO_DAT(NND, 0, 10) & " - " & INFO_DAT(NND, 0, 11) & " - " & INFO_DAT(NND, 0, 12)
If INFO_DAT(NND, 0, 9) <> "0" Then MsgBox "INDICE DI REVISIONE ERRATO SU CODICE " & ACT_MOD
Case Else
MsgBox "ERRORE", , ACT_MOD
End Select

L = INPUT_NUM(NND, "L", L, ACT_MOD)
H = INPUT_NUM(NND, "H", H, ACT_MOD)
SPS = INPUT_NUM(NND, "SPS", SPS, ACT_MOD) / 10

'************************************* SCRITTURA LISTATO

R01A = T_SLOT(30, 13.5, 20, 8.5, 90)
R01B = T_CIRC(26, L - 9 - 25 - 25, 4.25) & T_CIRC(26, L - 9 - 25, 4.25) & T_CIRC(26, L - 9, 4.25)
R01C = T_CIRC(26 + 100, L - 9 - 25 - 25, 4.25) & T_CIRC(26 + 100, L - 9 - 25, 4.25) & T_CIRC(26 + 100, L - 9, 4.25)
R01D = T_CIRC(26 + 100 + 66, L - 9 - 25 - 25, 4.25) & T_CIRC(26 + 100 + 66, L - 9 - 25, 4.25) & T_CIRC(26 + 100 + 66, L - 9, 4.25)
R01E = T_CIRC(26 + 100 + 66 + 180, L - 9 - 25 - 25, 4.25) & T_CIRC(26 + 100 + 66 + 180, L - 9 - 25, 4.25) & T_CIRC(26 + 100 + 66 + 180, L - 9, 4.25)
R01F = T_CIRC(26 + 100 + 66 + 180 + 68, L - 9 - 25 - 25, 4.25) & T_CIRC(26 + 100 + 66 + 180 + 68, L - 9 - 25, 4.25) & T_CIRC(26 + 100 + 66 + 180 + 68, L - 9, 4.25)
R01 = R01A & R01B & R01C & R01D & R01E & R01F

R02A = T_RECT1(H - 3 - 186.5 - 251 - 6, H - 3 - 186.5 - 251, 20.5, 60.5) & T_RECT1(H - 3 - 186.5 - 251 - 6, H - 3 - 186.5 - 251, L - 28, L + 2)
R02B = T_RECT1(H - 3 - 186.5 - 6, H - 3 - 186.5, 20.5, 60.5) & T_RECT1(H - 3 - 186.5 - 6, H - 3 - 186.5, L - 28, L + 2)
R02C = T_RECT1(H - 100 - 15, H - 100, -0.5, 79.5) & T_RECT1(H - 100 - 5, H + 5, -1, 44) & T_RECT1(H - 3, H + 2, L - 23.5, L + 1.5)
R02D = T_SLOT(H - 59, 57.5, 20, 8.5, 90) & T_SLOT(H - 9, 57.5, 20, 8.5, 90)
R02 = R02A & R02B & R02C & R02D

P1 = 26 + 50
P2 = H - 200
MVAL = 500

STRINGA = R000_vpr(NHD, CTT, SPS, H, L, P1, P2, QTT, comm, RAGG, CODR, MVAL, INFO_DAT(NND, 0, 5)) & R01 & R02

Call SAVE_SUB(NND, STRINGA)

ACT_MOD = ""
End Sub

Sub V_1007236(ByVal NND As Integer)
ACT_MOD = "1007236"
NHD = 2

'************************************* INPUT
If NND > 0 Then ON_MD = 2 Else ON_MD = 1
Select Case ON_MD
Case 1
comm = INPUT_STR(NND, "COMMESSA", comm, ACT_MOD)
Case 2
comm = INFO_DAT(NND, 0, 2)
RAGG = INFO_DAT(NND, 0, 3)
QTT = INFO_DAT(NND, 0, 4)
CODR = INFO_DAT(NND, 0, 10) & " - " & INFO_DAT(NND, 0, 11) & " - " & INFO_DAT(NND, 0, 12)
If INFO_DAT(NND, 0, 9) <> "A" Then MsgBox "INDICE DI REVISIONE ERRATO SU CODICE " & ACT_MOD
Case Else
MsgBox "ERRORE", , ACT_MOD
End Select

L = INPUT_NUM(NND, "L", 0, ACT_MOD)
H = INPUT_NUM(NND, "H", H, ACT_MOD)
SPS = INPUT_NUM(NND, "SPS", SPS, ACT_MOD)
M1 = INPUT_NUM(NND, "M1", M1, ACT_MOD)
M2 = INPUT_NUM(NND, "M2", M2, ACT_MOD)
M3 = INPUT_NUM(NND, "M3", M3, ACT_MOD)
M4 = INPUT_NUM(NND, "M4", M4, ACT_MOD)

'************************************* SCRITTURA LISTATO

R01 = T_RECT1(-4, 96, -5, 15) & T_RECT1(M1 - 96, M1 + 4, -5, 15)

R02A = T_CIRC(M1 / 2 - M4 / 2, L - 48, 8.5) & T_CIRC(M1 / 2 - M2 / 2, L - 48, 8.5) & T_CIRC(M1 / 2 - M2 / 2, L - 48 - 170, 8.5)
R02B = T_CIRC(M1 / 2 - M3 / 2, L - 48, 8.5) & T_CIRC(M1 / 2, L - 48, 8.5) & T_CIRC(M1 / 2 + 20, L - 48, 8.5)
R02C = T_CIRC(M1 / 2 + M3 / 2, L - 48, 8.5) & T_CIRC(M1 / 2 + M2 / 2, L - 48, 8.5)
R02D = T_CIRC(M1 / 2 + M4 / 2, L - 48, 8.5) & T_CIRC(M1 / 2 + M2 / 2, L - 48 - 170, 8.5)
R02 = R02A & R02B & R02C & R02D

R03A = TG_R(20, 96 + 5, 0, 96, 6, 8, 8) & TG_R(20, 5, 15, 0, 20, 8, 8)
R03B = TG_R(20, 0, L - 5, 5, L, 8, 8) & TG_R(20, M1 - 5, L, M1, L - 5, 8, 8)
R03C = TG_R(20, M1, 20, M1 - 5, 15, 8, 8) & TG_R(20, M1 - 96, 5, M1 - 96 - 5, 0, 8, 8)
R03 = R03A & R03B & R03C

P1 = 200
P2 = H - 250
MVAL = 500

'STRINGA = R000_vpr(NHD, CTT, SPS / 10, L, H, P1, P2, QTT, comm, RAGG, CODR, MVAL, INFO_DAT(NND, 0, 5)) & R01 & R02 & R03

STRINGA = R000_vpr(NHD, CTT, SPS / 10, H, L, P1, P2, QTT, comm, RAGG, CODR, MVAL, INFO_DAT(NND, 0, 5)) & R01 & R02 & R03

Call SAVE_SUB(NND, STRINGA)

ACT_MOD = ""
End Sub

Sub V_1007253(ByVal NND As Integer)
ACT_MOD = "1007253"
NHD = 1
If NND > 0 Then ON_MD = 2 Else ON_MD = 1

'************************************* INPUT
Select Case ON_MD
Case 1
comm = INPUT_STR(NND, "COMMESSA", comm, ACT_MOD)
Case 2
comm = INFO_DAT(NND, 0, 2)
RAGG = INFO_DAT(NND, 0, 3)
QTT = INFO_DAT(NND, 0, 4)
CODR = INFO_DAT(NND, 0, 10) & " - " & INFO_DAT(NND, 0, 11) & " - " & INFO_DAT(NND, 0, 12)
If INFO_DAT(NND, 0, 9) <> "0" Then MsgBox "INDICE DI REVISIONE ERRATO SU CODICE " & ACT_MOD
Case Else
MsgBox "ERRORE", , ACT_MOD
End Select

L = INPUT_NUM(NND, "L", L, ACT_MOD)
H = INPUT_NUM(NND, "H", H, ACT_MOD)
M1 = INPUT_NUM(NND, "M1", M1, ACT_MOD)
M2 = INPUT_NUM(NND, "M2", M2, ACT_MOD)
SPS = INPUT_NUM(NND, "SPS", SPS, ACT_MOD) / 10

'************************************* SCRITTURA LISTATO

R01 = T_CIRC(10, 18, 5) & T_CIRC(10 + M2, 18, 5) & T_CIRC(H / 2, 18, 5) & T_CIRC(H - M2 - 10, 18, 5) & T_CIRC(H - 10, 18, 5)


P1 = 10 + M2 / 2
P2 = H - 10 - M2 / 2
MVAL = 500

STRINGA = R000_vpr(NHD, CTT, SPS, H, L, P1, P2, QTT, comm, RAGG, CODR, MVAL, INFO_DAT(NND, 0, 5)) & R01

Call SAVE_SUB(NND, STRINGA)

ACT_MOD = ""
End Sub

Sub V_1007303(ByVal NND As Integer)
ACT_MOD = "1007303"
NHD = 1

'************************************* INPUT
If NND > 0 Then ON_MD = 2 Else ON_MD = 1
Select Case ON_MD
Case 1
comm = INPUT_STR(NND, "COMMESSA", comm, ACT_MOD)
Case 2
comm = INFO_DAT(NND, 0, 2)
RAGG = INFO_DAT(NND, 0, 3)
QTT = INFO_DAT(NND, 0, 4)
CODR = INFO_DAT(NND, 0, 10) & " - " & INFO_DAT(NND, 0, 11) & " - " & INFO_DAT(NND, 0, 12)
If INFO_DAT(NND, 0, 9) <> "0" Then MsgBox "INDICE DI REVISIONE ERRATO SU CODICE " & ACT_MOD
Case Else
MsgBox "ERRORE", , ACT_MOD
End Select

L = INPUT_NUM(NND, "L", 0, ACT_MOD)
H = INPUT_NUM(NND, "H", H, ACT_MOD)
SPS = INPUT_NUM(NND, "SPS", SPS, ACT_MOD)
M2 = INPUT_NUM(NND, "M2", M2, ACT_MOD)

'************************************* SCRITTURA LISTATO

R01A = T_CIRC((H - M2) / 2, L / 2 - 90, 8.5) & T_CIRC((H - M2) / 2, L / 2 + 90, 8.5)
R01B = T_CIRC(H / 2 + M2 / 2, L / 2 - 90, 8.5) & T_CIRC(H / 2 + M2 / 2, L / 2 + 90, 8.5)
R01 = R01A & R01B

R02A = T_RECT1(-3, 96, -3, 15) & T_RECT1(-3, 96, L - 15, L + 3)
R02B = T_RECT1(H - 96, H + 3, L - 15, L + 3) & T_RECT1(H - 96, H + 3, -3, 15)
R02 = R02A & R02B


R03A = TG_R(20, 103, 3, 99, 7, 20, 20)
R03B = TG_R(20, 7, 16.5, 3, 20.5, 20, 20)
R03C = TG_R(20, 3, L - 23, 10, L - 15, 20, 20)
R03D = TG_R(20, 99, L - 7, 103, L - 3, 20, 20)
R03E = TG_R(20, H - 88, L - 10, H - 84, L - 7, 20, 20)
R03F = TG_R(20, H - 7, L - 15, H - 4, L - 23, 20, 20)
R03G = TG_R(20, H - 3, 20.5, H - 8, 16.5, 20, 20)
R03H = TG_R(20, H - 99, 7, H - 103, 3, 20, 20)
R03 = R03A & R03B & R03C & R03D & R03E & R03F & R03G & R03H

P1 = H / 2 - 180
P2 = H / 2 + 180
MVAL = 500

STRINGA = R000_vpr(NHD, CTT, SPS / 10, H, L, P1, P2, QTT, comm, RAGG, CODR, MVAL, INFO_DAT(NND, 0, 5)) & R01 & R02 & R03
Call SAVE_SUB(NND, STRINGA)

ACT_MOD = ""
End Sub

Sub V_1007305(ByVal NND As Integer)
ACT_MOD = "1007305"
NHD = 1

'************************************* INPUT
If NND > 0 Then ON_MD = 2 Else ON_MD = 1
Select Case ON_MD
Case 1
comm = INPUT_STR(NND, "COMMESSA", comm, ACT_MOD)
Case 2
comm = INFO_DAT(NND, 0, 2)
RAGG = INFO_DAT(NND, 0, 3)
QTT = INFO_DAT(NND, 0, 4)
CODR = INFO_DAT(NND, 0, 10) & " - " & INFO_DAT(NND, 0, 11) & " - " & INFO_DAT(NND, 0, 12)
If INFO_DAT(NND, 0, 9) <> "0" Then MsgBox "INDICE DI REVISIONE ERRATO SU CODICE " & ACT_MOD
Case Else
MsgBox "ERRORE", , ACT_MOD
End Select

L = INPUT_NUM(NND, "L", 0, ACT_MOD)
H = INPUT_NUM(NND, "H", H, ACT_MOD)
SPS = INPUT_NUM(NND, "SPS", SPS, ACT_MOD)
M2 = INPUT_NUM(NND, "M2", M2, ACT_MOD)

'************************************* SCRITTURA LISTATO

R01A = T_CIRC((H - M2) / 2, L - 142, 8.5) & T_CIRC((H - M2) / 2, L - 42, 8.5)
R01B = T_CIRC(H / 2 + M2 / 2, L - 42, 8.5) & T_CIRC(H / 2 + M2 / 2, L - 142, 8.5)
R01 = R01A & R01B

R02 = T_RECT1(H - 96, H + 4, L - 13.5, L + 6.5) & T_RECT1(-4, 96, L - 13.5, L + 6.5)

R03A = TG_R(20, 7, 3, 3, 7, 8, 8)
R03B = TG_R(20, 4, L - 20.5, 7, L - 16.5, 8, 8)
R03C = TG_R(20, 100, L - 7, 103, L - 3, 8, 8)
R03D = TG_R(20, H - 103, L - 4, H - 99, L - 8, 8, 8)
R03E = TG_R(20, H - 7, L - 16.5, H - 3, L - 20.5, 8, 8)
R03F = TG_R(20, H - 3, 7, H - 7, 3, 8, 8)
R03 = R03A & R03B & R03C & R03D & R03E & R03F

P1 = H / 2 - 180
P2 = H / 2 + 180
MVAL = 500

STRINGA = R000_vpr(NHD, CTT, SPS / 10, H, L, P1, P2, QTT, comm, RAGG, CODR, MVAL, INFO_DAT(NND, 0, 5)) & R01 & R02 & R03
Call SAVE_SUB(NND, STRINGA)

ACT_MOD = ""
End Sub

Sub V_1007896A(ByVal NND As Integer)
ACT_MOD = "1007896"
NHD = 1
If NND > 0 Then ON_MD = 2 Else ON_MD = 1
'MsgBox "CONTROLLARE " & ACT_MOD & "  !!!!!"   'TOLTO CONTROLLO DOPO OK DI OMAR 05/07/2016

'************************************* INPUT
Select Case ON_MD
Case 1
comm = INPUT_STR(NND, "COMMESSA", comm, ACT_MOD)
Case 2
comm = INFO_DAT(NND, 0, 2)
RAGG = INFO_DAT(NND, 0, 3)
QTT = INFO_DAT(NND, 0, 4)
CODR = INFO_DAT(NND, 0, 10) & " - " & INFO_DAT(NND, 0, 11) & " - " & INFO_DAT(NND, 0, 12)
If INFO_DAT(NND, 0, 9) <> "A" Then MsgBox "INDICE DI REVISIONE ERRATO SU CODICE " & ACT_MOD
Case Else
MsgBox "ERRORE", , ACT_MOD
End Select

L = INPUT_NUM(NND, "L", L, ACT_MOD)
H = INPUT_NUM(NND, "H", H, ACT_MOD)
M1 = INPUT_NUM(NND, "M1", M1, ACT_MOD)
M2 = INPUT_NUM(NND, "M2", M2, ACT_MOD)
M3 = INPUT_NUM(NND, "M3", M3, ACT_MOD)
M4 = INPUT_NUM(NND, "M4", M4, ACT_MOD)
M5 = INPUT_NUM(NND, "M5", M5, ACT_MOD)
M6 = INPUT_NUM(NND, "M6", M6, ACT_MOD)
SPS = INPUT_NUM(NND, "SPS", SPS, ACT_MOD) / 10

'************************************* SCRITTURA LISTATO

R01 = T_CIRC(M4 - M6, M2, 12.25) & T_CIRC(M4, M2, 12.25) & T_CIRC(L - M3, M2, 12.25) & T_CIRC(L - M3 + M5, M2, 12.25)

P1 = M4 + 130
P2 = L - M3 - 130
MVAL = 500

STRINGA = R000_vpr(NHD, CTT, SPS, L, H, P1, P2, QTT, comm, RAGG, CODR, MVAL, INFO_DAT(NND, 0, 5)) & R01

Call SAVE_SUB(NND, STRINGA)

ACT_MOD = ""
End Sub

Sub V_1007896B(ByVal NND As Integer)
ACT_MOD = "1007896"
NHD = 1
If NND > 0 Then ON_MD = 2 Else ON_MD = 1
'MsgBox "CONTROLLARE " & ACT_MOD & "  !!!!!"   'TOLTO CONTROLLO DOPO OK DI OMAR 05/07/2016

'************************************* INPUT
Select Case ON_MD
Case 1
comm = INPUT_STR(NND, "COMMESSA", comm, ACT_MOD)
Case 2
comm = INFO_DAT(NND, 0, 2)
RAGG = INFO_DAT(NND, 0, 3)
QTT = INFO_DAT(NND, 0, 4)
CODR = INFO_DAT(NND, 0, 10) & " - " & INFO_DAT(NND, 0, 11) & " - " & INFO_DAT(NND, 0, 12)
If INFO_DAT(NND, 0, 9) <> "B" Then MsgBox "INDICE DI REVISIONE ERRATO SU CODICE " & ACT_MOD
Case Else
MsgBox "ERRORE", , ACT_MOD
End Select

L = INPUT_NUM(NND, "L", L, ACT_MOD)
H = INPUT_NUM(NND, "H", H, ACT_MOD)
M1 = INPUT_NUM(NND, "M1", M1, ACT_MOD)
M2 = INPUT_NUM(NND, "M2", M2, ACT_MOD)
M3 = INPUT_NUM(NND, "M3", M3, ACT_MOD)
M4 = INPUT_NUM(NND, "M4", M4, ACT_MOD)
M5 = INPUT_NUM(NND, "M5", M5, ACT_MOD)
M6 = INPUT_NUM(NND, "M6", M6, ACT_MOD)
M7 = INPUT_NUM(NND, "M7", M7, ACT_MOD)
M8 = INPUT_NUM(NND, "M8", M8, ACT_MOD)
SPS = INPUT_NUM(NND, "SPS", SPS, ACT_MOD) / 10

'************************************* SCRITTURA LISTATO

R01 = T_CIRC(M4 - M6, M2, 12.25) & T_CIRC(M4, M2, 12.25) & T_CIRC(L - M3, M2, 12.25) & T_CIRC(L - M3 + M5, M2, 12.25)
If M8 > 0 Then
R02 = T_CIRC(M4 - M8, M2, 12.25)
End If
If M7 > 0 Then
R03 = T_CIRC(L - M3 + M7, M2, 12.25)
End If


P1 = M4 + 130
P2 = L - M3 - 130
MVAL = 500

STRINGA = R000_vpr(NHD, CTT, SPS, L, H, P1, P2, QTT, comm, RAGG, CODR, MVAL, INFO_DAT(NND, 0, 5)) & R01 & R02 & R03

Call SAVE_SUB(NND, STRINGA)

ACT_MOD = ""
End Sub


Sub V_1007896C(ByVal NND As Integer)
ACT_MOD = "1007896"
NHD = 1
If NND > 0 Then ON_MD = 2 Else ON_MD = 1

'************************************* INPUT
Select Case ON_MD
Case 1
comm = INPUT_STR(NND, "COMMESSA", comm, ACT_MOD)
Case 2
comm = INFO_DAT(NND, 0, 2)
RAGG = INFO_DAT(NND, 0, 3)
QTT = INFO_DAT(NND, 0, 4)
CODR = INFO_DAT(NND, 0, 10) & " - " & INFO_DAT(NND, 0, 11) & " - " & INFO_DAT(NND, 0, 12)
If INFO_DAT(NND, 0, 9) <> "C" Then MsgBox "INDICE DI REVISIONE ERRATO SU CODICE " & ACT_MOD
Case Else
MsgBox "ERRORE", , ACT_MOD
End Select

L = INPUT_NUM(NND, "L", L, ACT_MOD)
H = INPUT_NUM(NND, "H", H, ACT_MOD)
M1 = INPUT_NUM(NND, "M1", M1, ACT_MOD)
M2 = INPUT_NUM(NND, "M2", M2, ACT_MOD)
M3 = INPUT_NUM(NND, "M3", M3, ACT_MOD)
M4 = INPUT_NUM(NND, "M4", M4, ACT_MOD)
M5 = INPUT_NUM(NND, "M5", M5, ACT_MOD)
M6 = INPUT_NUM(NND, "M6", M6, ACT_MOD)
M7 = INPUT_NUM(NND, "M7", M7, ACT_MOD)
M8 = INPUT_NUM(NND, "M8", M8, ACT_MOD)
M9 = INPUT_NUM(NND, "M9", M9, ACT_MOD)
M10 = INPUT_NUM(NND, "M10", M10, ACT_MOD)
M11 = INPUT_NUM(NND, "M11", M11, ACT_MOD)
SPS = INPUT_NUM(NND, "SPS", SPS, ACT_MOD) / 10
'************************************* SCRITTURA LISTATO

R01A = T_CIRC(M4 - M6, M2, 12.25) & T_CIRC(M4, M2 - M11, 12.25)
R01B = T_CIRC(L - M3 + M5, M9, 12.25) & T_CIRC(L - M3, M9 - M10, 12.25)
R01 = R01A & R01B

If M8 > 0 Then
R02 = T_CIRC(M4 - M8, M2, 12.25)
End If
If M7 > 0 Then
R03 = T_CIRC(L - M3 + M7, M9, 12.25)
End If


P1 = M4 + 130
P2 = L - M3 - 130
MVAL = 500

STRINGA = R000_vpr(NHD, CTT, SPS, L, H, P1, P2, QTT, comm, RAGG, CODR, MVAL, INFO_DAT(NND, 0, 5)) & R01 & R02 & R03

Call SAVE_SUB(NND, STRINGA)

ACT_MOD = ""
End Sub


Sub V_1011763(ByVal NND As Integer)
ACT_MOD = "1011763"
NHD = 10
'************************************* INPUT
If NND > 0 Then ON_MD = 2 Else ON_MD = 1
Select Case ON_MD
Case 1
comm = INPUT_STR(NND, "COMMESSA", comm, ACT_MOD)
Case 2
comm = INFO_DAT(NND, 0, 2)
RAGG = INFO_DAT(NND, 0, 3)
QTT = INFO_DAT(NND, 0, 4)
CODR = INFO_DAT(NND, 0, 10) & " - " & INFO_DAT(NND, 0, 11) & " - " & INFO_DAT(NND, 0, 12)
If INFO_DAT(NND, 0, 9) <> "0" Then MsgBox "INDICE DI REVISIONE ERRATO SU CODICE " & ACT_MOD
Case Else
MsgBox "ERRORE", , ACT_MOD
End Select

L = INPUT_NUM(NND, "L", 0, ACT_MOD)
H = INPUT_NUM(NND, "H", H, ACT_MOD)
SPS = INPUT_NUM(NND, "SPS", SPS, ACT_MOD)
M1 = INPUT_NUM(NND, "M1", M1, ACT_MOD)
M2 = INPUT_NUM(NND, "M2", M2, ACT_MOD)


'************************************* SCRITTURA LISTATO

R01 = T_CIRC((L - M2) / 2, 16.5, 8) & T_CIRC((L - M2) / 2, 17.5, 8) & T_CIRC((L - M2) / 2, 18.5, 8)
R02 = T_CIRC((L - M2) / 2, H - 9, 9) & T_CIRC((L - M1) / 2, H - 9, 9)
R03 = T_CIRC(L / 2, 16.5, 8) & T_CIRC(L / 2, 17.5, 8) & T_CIRC(L / 2, 18.5, 8)
R04 = T_CIRC(L / 2, H - 9, 9) & T_CIRC(L / 2 + M1 / 2, H - 9, 9) & T_CIRC(L / 2 + M2 / 2, H - 9, 9)
R05 = T_CIRC(L / 2 + M2 / 2, 16.5, 8) & T_CIRC(L / 2 + M2 / 2, 17.5, 8) & T_CIRC(L / 2 + M2 / 2, 18.5, 8)

P1 = L / 2 - M2 / 2 + 100
P2 = L / 2 + M2 / 2 - 100
MVAL = 500

STRINGA = R000_vpr(NHD, CTT, SPS / 10, L, H, P1, P2, QTT, comm, RAGG, CODR, MVAL, INFO_DAT(NND, 0, 5)) & R01 & R02 & R03 & R04 & R05

Call SAVE_SUB(NND, STRINGA)

ACT_MOD = ""
End Sub



Sub V_1007909C(ByVal NND As Integer)
ACT_MOD = "1007909"
NHD = 10

'MsgBox "CONTROLLARE " & ACT_MOD & "  !!!!!"
'aggioranata 24/02/2017 --> riportata a revisione C
'************************************* INPUT
If NND > 0 Then ON_MD = 2 Else ON_MD = 1
Select Case ON_MD
Case 1
comm = INPUT_STR(NND, "COMMESSA", comm, ACT_MOD)
Case 2
comm = INFO_DAT(NND, 0, 2)
RAGG = INFO_DAT(NND, 0, 3)
QTT = INFO_DAT(NND, 0, 4)
CODR = INFO_DAT(NND, 0, 10) & " - " & INFO_DAT(NND, 0, 11) & " - " & INFO_DAT(NND, 0, 12)

Case Else
MsgBox "ERRORE", , ACT_MOD
End Select

L = INPUT_NUM(NND, "L", 0, ACT_MOD)
H = INPUT_NUM(NND, "H", H, ACT_MOD)
SPS = INPUT_NUM(NND, "SPS", SPS, ACT_MOD)
M1 = INPUT_NUM(NND, "M1", M1, ACT_MOD)
M2 = INPUT_NUM(NND, "M2", M2, ACT_MOD)
M3 = INPUT_NUM(NND, "M3", M3, ACT_MOD)
M4 = INPUT_NUM(NND, "M4", M4, ACT_MOD)
M5 = INPUT_NUM(NND, "M5", M5, ACT_MOD)
M6 = INPUT_NUM(NND, "M6", M6, ACT_MOD)
M7 = INPUT_NUM(NND, "M7", M7, ACT_MOD)
M8 = INPUT_NUM(NND, "M8", M8, ACT_MOD)
M9 = INPUT_NUM(NND, "M9", M9, ACT_MOD)
M10 = INPUT_NUM(NND, "M10", M10, ACT_MOD)
M11 = INPUT_NUM(NND, "M11", M11, ACT_MOD)
M12 = INPUT_NUM(NND, "M12", M12, ACT_MOD)
M13 = INPUT_NUM(NND, "M13", M13, ACT_MOD)
M14 = INPUT_NUM(NND, "M14", M14, ACT_MOD)
M15 = INPUT_NUM(NND, "M15", M15, ACT_MOD)
M16 = INPUT_NUM(NND, "M16", M16, ACT_MOD)
M17 = INPUT_NUM(NND, "M17", M17, ACT_MOD)
M18 = INPUT_NUM(NND, "M18", M18, ACT_MOD)
VV = Val(INFO_DAT(NND, 0, 7))

'************************************* SCRITTURA LISTATO

AGG = 2

Select Case VV
Case 1, 3

R01 = T_CIRC(M6 - M8 / 2 - M9, MR_Y(H - M11, H, AGG), 8)

'If M17 > 0 Then
'R02 = T_CIRC(M6 - M8 / 2 - M9 + M17, MR_Y(H - M11, H, AGG), 8)
'Else
'R02 = ""
'End If

R03 = T_CIRC(M6 - M8 / 2, MR_Y(H - M11, H, AGG), 8) & T_CIRC(M6 + M8 / 2, MR_Y(H - M11, H, AGG), 8) & T_CIRC(M6 + M8 / 2 + M10, MR_Y(H - M11, H, AGG), 8)

'If M18 > 0 Then
'R04 = T_CIRC(M6 + M8 / 2 + M10 - M18, MR_Y(H - M11, H, AGG), 8)
'Else
'R04 = ""
'End If

R05 = T_RECT1(M1, L + 5, MR_Y(H - (M2 + 10 - 6), H, AGG), MR_Y(H + 5, H, AGG))
R06 = T_RECT1(M16 - 22.5, M16 + 22.5, MR_Y(32 + 31 - 6, H, AGG), MR_Y(32 + 31 + 14 - 6, H, AGG)) & T_RECT1(M16 + M17 - 22.5, M16 + M17 + 22.5, MR_Y(32 + 31 - 6, H, AGG), MR_Y(32 + 31 + 14 - 6, H, AGG))

R07A = T_CIRC(M12, MR_Y(25 + 31 - 6, H, AGG), 9)
R07B = T_CIRC(M6 - M7, MR_Y(25 + 31 - 6, H, AGG), 9)
R07C = T_CIRC(M6 - M7 + 100, MR_Y(25 + 31 - 6, H, AGG), 9)
R07D = T_CIRC(M6, MR_Y(25 + 31 - 6, H, AGG), 9)
R07E = T_CIRC(M6 + M7, 25 + 31 - 6, 9)
R07F = T_CIRC(M13, MR_Y(25 + 31 - 6, H, AGG), 9)
R07 = R07A & R07B & R07C & R07D & R07E & R07F

R08 = T_SLOT(M14, MR_Y(14 + 31 - 6, H, AGG), 45, 9, 0) & T_SLOT(M14 + M15, MR_Y(14 + 31 - 6, H, AGG), 45, 9, 0)

R09A = T_RECT1(M4, M4 + 23, MR_Y(6, H, AGG), MR_Y(6 + 13, H, AGG))
R09B = T_SLOT(M4 + 23 + 35, MR_Y(10, H, AGG), 15, 9, 90)
R09C = T_RECT1(M4 + M5, M4 + M5 + 23, MR_Y(6, H, AGG), MR_Y(6 + 13, H, AGG))
R09D = T_RECT1(M4 + 2 * M5, M4 + 2 * M5 + 23, MR_Y(6, H, AGG), MR_Y(6 + 13, H, AGG))
R09E = T_RECT1(M4 + 3 * M5, M4 + 3 * M5 + 23, MR_Y(6, H, AGG), MR_Y(6 + 13, H, AGG))
R09 = R09A & R09B & R09C & R09D & R09E


P1 = M4 + M5 / 2 + 50
P2 = M4 + 2 * M5 + M5 / 2 + 50
MVAL = 500

Case 2, 4

R01 = T_RECT1(-5, L - M1, MR_Y(H - (M2 + 10 - 6), H, AGG), MR_Y(H + 5, H, AGG))
R02 = T_CIRC(L - M6 - M8 / 2 - M10, MR_Y(H - M11, H, AGG), 8)

'If M18 > 0 Then
'R03 = T_CIRC(L - M6 - M8 / 2 - M10 + M18, MR_Y(H - M11, H, AGG), 8)
'Else
'R03 = ""
'End If

R04 = T_CIRC(L - M6 - M8 / 2, MR_Y(H - M11, H, AGG), 8) & T_CIRC(L - M6 + M8 / 2, MR_Y(H - M11, H, AGG), 8) & T_CIRC(L - M6 + M8 / 2 + M9, MR_Y(H - M11, H, AGG), 8)

'If M17 > 0 Then
'R05 = T_CIRC(L - M6 + M8 / 2 + M9 - M17, MR_Y(H - M11, H, AGG), 8)
'Else
'R05 = ""
'End If

R06 = T_RECT1(L - M16 - M17 - 22.5, L - M16 - M17 + 22.5, MR_Y(32 + 31 - 6, H, AGG), MR_Y(32 + 31 + 14 - 6, H, AGG)) & T_RECT1(L - M16 - 22.5, L - M16 + 22.5, MR_Y(32 + 31 - 6, H, AGG), MR_Y(32 + 31 + 14 - 6, H, AGG))

R07A = T_CIRC(L - M12, MR_Y(25 + 31 - 6, H, AGG), 9)
R07B = T_CIRC(L - M6 + M7, MR_Y(25 + 31 - 6, H, AGG), 9)
R07C = T_CIRC(L - M6 + M7 - 100, MR_Y(25 + 31 - 6, H, AGG), 9)
R07D = T_CIRC(L - M6, MR_Y(25 + 31 - 6, H, AGG), 9)
R07E = T_CIRC(L - M6 - M7, MR_Y(25 + 31 - 6, H, AGG), 9)
R07F = T_CIRC(L - M13, MR_Y(25 + 31 - 6, H, AGG), 9)
R07 = R07A & R07B & R07C & R07D & R07E & R07F

R08 = T_SLOT(L - M14, MR_Y(14 + 31 - 6, H, AGG), 45, 9, 0) & T_SLOT(L - M14 - M15, MR_Y(14 + 31 - 6, H, AGG), 45, 9, 0)


R09A = T_RECT1(L - M4 - 23, L - M4, MR_Y(6, H, AGG), MR_Y(6 + 13, H, AGG))
R09B = T_RECT1(L - M4 - M5 - 23, L - M4 - M5, MR_Y(6, H, AGG), MR_Y(6 + 13, H, AGG))
R09C = T_RECT1(L - M4 - 2 * M5 - 23, L - M4 - 2 * M5, MR_Y(6, H, AGG), MR_Y(6 + 13, H, AGG))
R09D = T_SLOT(L - M4 - 3 * M5 + 35, MR_Y(10, H, AGG), 15, 9, 90)
R09E = T_RECT1(L - M4 - 3 * M5 - 23, L - M4 - 3 * M5, MR_Y(6, H, AGG), MR_Y(6 + 13, H, AGG))
R09 = R09A & R09B & R09C & R09D & R09E

P1 = L - M4 - M5 / 2 - 50
P2 = L - M4 - 2 * M5 - M5 / 2 - 50
MVAL = 500

Case Else
MsgBox "ERRORE VERSIONE SU " & ACT_MOD
End Select

STRINGA = R000_vpr(NHD, CTT, SPS / 10, L, H, P1, P2, QTT, comm, RAGG, CODR, MVAL, INFO_DAT(NND, 0, 5)) & R01 & R02 & R03 & R04 & R05 & R06 & R07 & R08 & R09

Call SAVE_SUB(NND, STRINGA)

ACT_MOD = ""
End Sub

Sub V_1007909E(ByVal NND As Integer)
ACT_MOD = "1007909"
NHD = 10

'MsgBox "CONTROLLARE " & ACT_MOD & "  !!!!!"
'aggioranata 07/03/2017

'************************************* INPUT
If NND > 0 Then ON_MD = 2 Else ON_MD = 1
Select Case ON_MD
Case 1
comm = INPUT_STR(NND, "COMMESSA", comm, ACT_MOD)
Case 2
comm = INFO_DAT(NND, 0, 2)
RAGG = INFO_DAT(NND, 0, 3)
QTT = INFO_DAT(NND, 0, 4)
CODR = INFO_DAT(NND, 0, 10) & " - " & INFO_DAT(NND, 0, 11) & " - " & INFO_DAT(NND, 0, 12)

Case Else
MsgBox "ERRORE", , ACT_MOD
End Select

L = INPUT_NUM(NND, "L", 0, ACT_MOD)
H = INPUT_NUM(NND, "H", H, ACT_MOD)
SPS = INPUT_NUM(NND, "SPS", SPS, ACT_MOD)
M1 = INPUT_NUM(NND, "M1", M1, ACT_MOD)
M2 = INPUT_NUM(NND, "M2", M2, ACT_MOD)
M3 = INPUT_NUM(NND, "M3", M3, ACT_MOD)
M4 = INPUT_NUM(NND, "M4", M4, ACT_MOD)
M5 = INPUT_NUM(NND, "M5", M5, ACT_MOD)
M6 = INPUT_NUM(NND, "M6", M6, ACT_MOD)
M7 = INPUT_NUM(NND, "M7", M7, ACT_MOD)
M8 = INPUT_NUM(NND, "M8", M8, ACT_MOD)
M9 = INPUT_NUM(NND, "M9", M9, ACT_MOD)
M10 = INPUT_NUM(NND, "M10", M10, ACT_MOD)
M11 = INPUT_NUM(NND, "M11", M11, ACT_MOD)
M12 = INPUT_NUM(NND, "M12", M12, ACT_MOD)
M13 = INPUT_NUM(NND, "M13", M13, ACT_MOD)
M14 = INPUT_NUM(NND, "M14", M14, ACT_MOD)
M15 = INPUT_NUM(NND, "M15", M15, ACT_MOD)
M16 = INPUT_NUM(NND, "M16", M16, ACT_MOD)
M17 = INPUT_NUM(NND, "M17", M17, ACT_MOD)
M18 = INPUT_NUM(NND, "M18", M18, ACT_MOD)
VV = INPUT_NUM(NND, "VER", VV, ACT_MOD)

'************************************* SCRITTURA LISTATO

AGG = 2

Select Case VV
Case 1, 3

R01 = T_CIRC(M6 - M8 / 2 - M9, MR_Y(H - M11, H, AGG), 8)

If M17 > 0 Then
R02 = T_CIRC(M6 - M8 / 2 - M9 + M17, MR_Y(H - M11, H, AGG), 8)
Else
R02 = ""
End If

R03 = T_CIRC(M6 - M8 / 2, MR_Y(H - M11, H, AGG), 8) & T_CIRC(M6 + M8 / 2, MR_Y(H - M11, H, AGG), 8) & T_CIRC(M6 + M8 / 2 + M10, MR_Y(H - M11, H, AGG), 8)

If M18 > 0 Then
R04 = T_CIRC(M6 + M8 / 2 + M10 - M18, MR_Y(H - M11, H, AGG), 8)
Else
R04 = ""
End If

R05 = T_RECT1(M1, L + 5, MR_Y(H - (M2 + 10 - 6), H, AGG), MR_Y(H + 5, H, AGG))
R06 = T_RECT1(M16 - 22.5, M16 + 22.5, MR_Y(32 + 31 - 6, H, AGG), MR_Y(32 + 31 + 14 - 6, H, AGG)) & T_RECT1(M16 + M17 - 22.5, M16 + M17 + 22.5, MR_Y(32 + 31 - 6, H, AGG), MR_Y(32 + 31 + 14 - 6, H, AGG))

R07A = T_CIRC(M12, MR_Y(25 + 31 - 6, H, AGG), 9)
R07B = T_CIRC(M6 - M7, MR_Y(25 + 31 - 6, H, AGG), 9)
R07C = T_CIRC(M6 - M7 + 100, MR_Y(25 + 31 - 6, H, AGG), 9)
R07D = T_CIRC(M6, MR_Y(25 + 31 - 6, H, AGG), 9)
R07E = T_CIRC(M6 + M7, MR_Y(25 + 31 - 6, H, AGG), 9)
R07F = T_CIRC(M13, MR_Y(25 + 31 - 6, H, AGG), 9)
R07 = R07A & R07B & R07C & R07D & R07E & R07F

R08 = T_SLOT(M14, MR_Y(14 + 31 - 6, H, AGG), 45, 9, 0) & T_SLOT(M14 + M15, MR_Y(14 + 31 - 6, H, AGG), 45, 9, 0)

R09A = T_RECT1(M4, M4 + 23, MR_Y(6, H, AGG), MR_Y(6 + 13, H, AGG))
R09B = T_SLOT(M4 + 23 + 35, MR_Y(10, H, AGG), 15, 9, 90)
R09C = T_RECT1(M4 + M5, M4 + M5 + 23, MR_Y(6, H, AGG), MR_Y(6 + 13, H, AGG))
R09D = T_RECT1(M4 + 2 * M5, M4 + 2 * M5 + 23, MR_Y(6, H, AGG), MR_Y(6 + 13, H, AGG))
R09E = T_RECT1(M4 + 3 * M5, M4 + 3 * M5 + 23, MR_Y(6, H, AGG), MR_Y(6 + 13, H, AGG))
R09 = R09A & R09B & R09C & R09D & R09E


P1 = M4 + M5 / 2 + 50
P2 = M4 + 2 * M5 + M5 / 2 + 50
MVAL = 500

Case 2, 4

R01 = T_RECT1(-5, L - M1, MR_Y(H - (M2 + 10 - 6), H, AGG), MR_Y(H + 5, H, AGG))
R02 = T_CIRC(L - M6 - M8 / 2 - M10, MR_Y(H - M11, H, AGG), 8)

If M18 > 0 Then
R03 = T_CIRC(L - M6 - M8 / 2 - M10 + M18, MR_Y(H - M11, H, AGG), 8)
Else
R03 = ""
End If

R04 = T_CIRC(L - M6 - M8 / 2, MR_Y(H - M11, H, AGG), 8) & T_CIRC(L - M6 + M8 / 2, MR_Y(H - M11, H, AGG), 8) & T_CIRC(L - M6 + M8 / 2 + M9, MR_Y(H - M11, H, AGG), 8)

If M17 > 0 Then
R05 = T_CIRC(L - M6 + M8 / 2 + M9 - M17, MR_Y(H - M11, H, AGG), 8)
Else
R05 = ""
End If

R06 = T_RECT1(L - M16 - M17 - 22.5, L - M16 - M17 + 22.5, MR_Y(32 + 31 - 6, H, AGG), MR_Y(32 + 31 + 14 - 6, H, AGG)) & T_RECT1(L - M16 - 22.5, L - M16 + 22.5, MR_Y(32 + 31 - 6, H, AGG), MR_Y(32 + 31 + 14 - 6, H, AGG))

R07A = T_CIRC(L - M12, MR_Y(25 + 31 - 6, H, AGG), 9)
R07B = T_CIRC(L - M6 + M7, MR_Y(25 + 31 - 6, H, AGG), 9)
R07C = T_CIRC(L - M6 + M7 - 100, MR_Y(25 + 31 - 6, H, AGG), 9)
R07D = T_CIRC(L - M6, MR_Y(25 + 31 - 6, H, AGG), 9)
R07E = T_CIRC(L - M6 - M7, MR_Y(25 + 31 - 6, H, AGG), 9)
R07F = T_CIRC(L - M13, MR_Y(25 + 31 - 6, H, AGG), 9)
R07 = R07A & R07B & R07C & R07D & R07E & R07F

R08 = T_SLOT(L - M14, MR_Y(14 + 31 - 6, H, AGG), 45, 9, 0) & T_SLOT(L - M14 - M15, MR_Y(14 + 31 - 6, H, AGG), 45, 9, 0)


R09A = T_RECT1(L - M4 - 23, L - M4, MR_Y(6, H, AGG), MR_Y(6 + 13, H, AGG))
R09B = T_RECT1(L - M4 - M5 - 23, L - M4 - M5, MR_Y(6, H, AGG), MR_Y(6 + 13, H, AGG))
R09C = T_RECT1(L - M4 - 2 * M5 - 23, L - M4 - 2 * M5, MR_Y(6, H, AGG), MR_Y(6 + 13, H, AGG))
R09D = T_SLOT(L - M4 - 3 * M5 + 35, MR_Y(10, H, AGG), 15, 9, 90)
R09E = T_RECT1(L - M4 - 3 * M5 - 23, L - M4 - 3 * M5, MR_Y(6, H, AGG), MR_Y(6 + 13, H, AGG))
R09 = R09A & R09B & R09C & R09D & R09E

P1 = L - M4 - M5 / 2 - 50
P2 = L - M4 - 2 * M5 - M5 / 2 - 50
MVAL = 500

Case Else
MsgBox "ERRORE VERSIONE SU " & ACT_MOD
End Select

STRINGA = R000_vpr(NHD, CTT, SPS / 10, L, H, P1, P2, QTT, comm, RAGG, CODR, MVAL, INFO_DAT(NND, 0, 5)) & R01 & R02 & R03 & R04 & R05 & R06 & R07 & R08 & R09
Call SAVE_SUB(NND, STRINGA)

ACT_MOD = ""
End Sub


Sub V_1007909F(ByVal NND As Integer)
ACT_MOD = "1007909"
NHD = 10

'MsgBox "CONTROLLARE " & ACT_MOD & "  !!!!!"
'aggioranata 07/03/2017

'************************************* INPUT
If NND > 0 Then ON_MD = 2 Else ON_MD = 1
Select Case ON_MD
Case 1
comm = INPUT_STR(NND, "COMMESSA", comm, ACT_MOD)
Case 2
comm = INFO_DAT(NND, 0, 2)
RAGG = INFO_DAT(NND, 0, 3)
QTT = INFO_DAT(NND, 0, 4)
CODR = INFO_DAT(NND, 0, 10) & " - " & INFO_DAT(NND, 0, 11) & " - " & INFO_DAT(NND, 0, 12)

Case Else
MsgBox "ERRORE", , ACT_MOD
End Select

L = INPUT_NUM(NND, "L", 0, ACT_MOD)
H = INPUT_NUM(NND, "H", H, ACT_MOD)
SPS = INPUT_NUM(NND, "SPS", SPS, ACT_MOD)
M1 = INPUT_NUM(NND, "M1", M1, ACT_MOD)
M2 = INPUT_NUM(NND, "M2", M2, ACT_MOD)
M3 = INPUT_NUM(NND, "M3", M3, ACT_MOD)
M4 = INPUT_NUM(NND, "M4", M4, ACT_MOD)
M5 = INPUT_NUM(NND, "M5", M5, ACT_MOD)
M6 = INPUT_NUM(NND, "M6", M6, ACT_MOD)
M7 = INPUT_NUM(NND, "M7", M7, ACT_MOD)
M8 = INPUT_NUM(NND, "M8", M8, ACT_MOD)
M9 = INPUT_NUM(NND, "M9", M9, ACT_MOD)
M10 = INPUT_NUM(NND, "M10", M10, ACT_MOD)
M11 = INPUT_NUM(NND, "M11", M11, ACT_MOD)
M12 = INPUT_NUM(NND, "M12", M12, ACT_MOD)
M13 = INPUT_NUM(NND, "M13", M13, ACT_MOD)
M14 = INPUT_NUM(NND, "M14", M14, ACT_MOD)
M15 = INPUT_NUM(NND, "M15", M15, ACT_MOD)
M16 = INPUT_NUM(NND, "M16", M16, ACT_MOD)
M17 = INPUT_NUM(NND, "M17", M17, ACT_MOD)
M18 = INPUT_NUM(NND, "M18", M18, ACT_MOD)
M19 = INPUT_NUM(NND, "M19", M19, ACT_MOD)
VV = INPUT_NUM(NND, "VER", VV, ACT_MOD)

'************************************* SCRITTURA LISTATO

AGG = 2

Select Case VV
Case 1, 3

R01 = T_CIRC(M6 - M8 / 2 - M9, MR_Y(H - M11, H, AGG), 8)

If M17 > 0 Then
R02 = T_CIRC(M6 - M8 / 2 - M9 + M17, MR_Y(H - M11, H, AGG), 8)
Else
R02 = ""
End If

R03 = T_CIRC(M6 - M8 / 2, MR_Y(H - M11, H, AGG), 8) & T_CIRC(M6 + M8 / 2, MR_Y(H - M11, H, AGG), 8) & T_CIRC(M6 + M8 / 2 + M10, MR_Y(H - M11, H, AGG), 8)

If M18 > 0 Then
R04 = T_CIRC(M6 + M8 / 2 + M10 - M18, MR_Y(H - M11, H, AGG), 8)
Else
R04 = ""
End If

R05 = T_RECT1(M1, L + 5, MR_Y(H - (M2 + 10 - 6), H, AGG), MR_Y(H + 5, H, AGG))
R06 = T_RECT1(M16 - 22.5, M16 + 22.5, MR_Y(32 + 31 - 6, H, AGG), MR_Y(32 + 31 + 14 - 6, H, AGG)) & T_RECT1(M16 + M17 - 22.5, M16 + M17 + 22.5, MR_Y(32 + 31 - 6, H, AGG), MR_Y(32 + 31 + 14 - 6, H, AGG))

R07A = T_CIRC(M12, MR_Y(25 + 31 - 6, H, AGG), 9)
R07B = T_CIRC(M6 - M7, MR_Y(25 + 31 - 6, H, AGG), 9)
R07C = T_CIRC(M6 - M7 + 100, MR_Y(25 + 31 - 6, H, AGG), 9)
R07D = T_CIRC(M6, MR_Y(25 + 31 - 6, H, AGG), 9)
R07E = T_CIRC(M6 + M7, MR_Y(25 + 31 - 6, H, AGG), 9)
R07F = T_CIRC(M13, MR_Y(25 + 31 - 6, H, AGG), 9)
R07 = R07A & R07B & R07C & R07D & R07E & R07F

R08 = T_SLOT(M14, MR_Y(14 + 31 - 6, H, AGG), 45, 9, 0) & T_SLOT(M14 + M15, MR_Y(14 + 31 - 6, H, AGG), 45, 9, 0)

R09A = T_RECT1(M4, M4 + 23, MR_Y(6, H, AGG), MR_Y(6 + 13, H, AGG))
R09B = T_SLOT(M4 + 23 + 35, MR_Y(10, H, AGG), 15, 9, 90)
R09C = T_RECT1(M4 + M5, M4 + M5 + 23, MR_Y(6, H, AGG), MR_Y(6 + 13, H, AGG))
R09D = T_RECT1(M4 + 2 * M5, M4 + 2 * M5 + 23, MR_Y(6, H, AGG), MR_Y(6 + 13, H, AGG))
R09E = T_RECT1(M4 + 3 * M5, M4 + 3 * M5 + 23, MR_Y(6, H, AGG), MR_Y(6 + 13, H, AGG))
R09 = R09A & R09B & R09C & R09D & R09E


P1 = M4 + M5 / 2 + 50
P2 = M4 + 2 * M5 + M5 / 2 + 50
MVAL = 500

Case 2, 4

R01 = T_RECT1(-5, L - M1, MR_Y(H - (M2 + 10 - 6), H, AGG), MR_Y(H + 5, H, AGG))
R02 = T_CIRC(L - M6 - M8 / 2 - M10, MR_Y(H - M11, H, AGG), 8)

If M18 > 0 Then
R03 = T_CIRC(L - M6 - M8 / 2 - M10 + M18, MR_Y(H - M11, H, AGG), 8)
Else
R03 = ""
End If

R04 = T_CIRC(L - M6 - M8 / 2, MR_Y(H - M11, H, AGG), 8) & T_CIRC(L - M6 + M8 / 2, MR_Y(H - M11, H, AGG), 8) & T_CIRC(L - M6 + M8 / 2 + M9, MR_Y(H - M11, H, AGG), 8)

If M17 > 0 Then
R05 = T_CIRC(L - M6 + M8 / 2 + M9 - M17, MR_Y(H - M11, H, AGG), 8)
Else
R05 = ""
End If

R06 = T_RECT1(L - M16 - M17 - 22.5, L - M16 - M17 + 22.5, MR_Y(32 + 31 - 6, H, AGG), MR_Y(32 + 31 + 14 - 6, H, AGG)) & T_RECT1(L - M16 - 22.5, L - M16 + 22.5, MR_Y(32 + 31 - 6, H, AGG), MR_Y(32 + 31 + 14 - 6, H, AGG))

R07A = T_CIRC(L - M12, MR_Y(25 + 31 - 6, H, AGG), 9)
R07B = T_CIRC(L - M6 + M7, MR_Y(25 + 31 - 6, H, AGG), 9)
R07C = T_CIRC(L - M6 + M7 - 100, MR_Y(25 + 31 - 6, H, AGG), 9)
R07D = T_CIRC(L - M6, MR_Y(25 + 31 - 6, H, AGG), 9)
R07E = T_CIRC(L - M6 - M7, MR_Y(25 + 31 - 6, H, AGG), 9)
R07F = T_CIRC(L - M13, MR_Y(25 + 31 - 6, H, AGG), 9)
R07 = R07A & R07B & R07C & R07D & R07E & R07F

R08 = T_SLOT(L - M14, MR_Y(14 + 31 - 6, H, AGG), 45, 9, 0) & T_SLOT(L - M14 - M15, MR_Y(14 + 31 - 6, H, AGG), 45, 9, 0)


R09A = T_RECT1(L - M4 - 23, L - M4, MR_Y(6, H, AGG), MR_Y(6 + 13, H, AGG))
R09B = T_RECT1(L - M4 - M5 - 23, L - M4 - M5, MR_Y(6, H, AGG), MR_Y(6 + 13, H, AGG))
R09C = T_RECT1(L - M4 - 2 * M5 - 23, L - M4 - 2 * M5, MR_Y(6, H, AGG), MR_Y(6 + 13, H, AGG))
R09D = T_SLOT(L - M4 - 3 * M5 + 35, MR_Y(10, H, AGG), 15, 9, 90)
R09E = T_RECT1(L - M4 - 3 * M5 - 23, L - M4 - 3 * M5, MR_Y(6, H, AGG), MR_Y(6 + 13, H, AGG))
R09 = R09A & R09B & R09C & R09D & R09E

P1 = L - M4 - M5 / 2 - 50
P2 = L - M4 - 2 * M5 - M5 / 2 - 50
MVAL = 500

Case Else
MsgBox "ERRORE VERSIONE SU " & ACT_MOD
End Select

STRINGA = R000_vpr(NHD, CTT, SPS / 10, L, H, P1, P2, QTT, comm, RAGG, CODR, MVAL, INFO_DAT(NND, 0, 5)) & R01 & R02 & R03 & R04 & R05 & R06 & R07 & R08 & R09
Call SAVE_SUB(NND, STRINGA)

ACT_MOD = ""
End Sub


Sub V_1007909G(ByVal NND As Integer)
ACT_MOD = "1007909"
NHD = 10

'MsgBox "CONTROLLARE " & ACT_MOD & "  !!!!!"
'aggioranata 07/03/2017

'************************************* INPUT
If NND > 0 Then ON_MD = 2 Else ON_MD = 1
Select Case ON_MD
Case 1
comm = INPUT_STR(NND, "COMMESSA", comm, ACT_MOD)
Case 2
comm = INFO_DAT(NND, 0, 2)
RAGG = INFO_DAT(NND, 0, 3)
QTT = INFO_DAT(NND, 0, 4)
CODR = INFO_DAT(NND, 0, 10) & " - " & INFO_DAT(NND, 0, 11) & " - " & INFO_DAT(NND, 0, 12)

Case Else
MsgBox "ERRORE", , ACT_MOD
End Select

L = INPUT_NUM(NND, "L", 0, ACT_MOD)
H = INPUT_NUM(NND, "H", H, ACT_MOD)
SPS = INPUT_NUM(NND, "SPS", SPS, ACT_MOD)
M1 = INPUT_NUM(NND, "M1", M1, ACT_MOD)
M2 = INPUT_NUM(NND, "M2", M2, ACT_MOD)
M3 = INPUT_NUM(NND, "M3", M3, ACT_MOD)
M4 = INPUT_NUM(NND, "M4", M4, ACT_MOD)
M5 = INPUT_NUM(NND, "M5", M5, ACT_MOD)
M6 = INPUT_NUM(NND, "M6", M6, ACT_MOD)
M7 = INPUT_NUM(NND, "M7", M7, ACT_MOD)
M8 = INPUT_NUM(NND, "M8", M8, ACT_MOD)
M9 = INPUT_NUM(NND, "M9", M9, ACT_MOD)
M10 = INPUT_NUM(NND, "M10", M10, ACT_MOD)
M11 = INPUT_NUM(NND, "M11", M11, ACT_MOD)
M12 = INPUT_NUM(NND, "M12", M12, ACT_MOD)
M13 = INPUT_NUM(NND, "M13", M13, ACT_MOD)
M14 = INPUT_NUM(NND, "M14", M14, ACT_MOD)
M15 = INPUT_NUM(NND, "M15", M15, ACT_MOD)
M16 = INPUT_NUM(NND, "M16", M16, ACT_MOD)
M17 = INPUT_NUM(NND, "M17", M17, ACT_MOD)
M18 = INPUT_NUM(NND, "M18", M18, ACT_MOD)
M19 = INPUT_NUM(NND, "M19", M19, ACT_MOD)
VV = INPUT_NUM(NND, "VER", VV, ACT_MOD)

'************************************* SCRITTURA LISTATO

AGG = 2

Select Case VV
Case 1, 3

R01 = T_CIRC(M6 - M8 / 2 - M9, MR_Y(H - M11, H, AGG), 8)

If M17 > 0 Then
R02 = T_CIRC(M6 - M8 / 2 - M9 + M19, MR_Y(H - M11, H, AGG), 8)
Else
R02 = ""
End If

R03 = T_CIRC(M6 - M8 / 2, MR_Y(H - M11, H, AGG), 8) & T_CIRC(M6 + M8 / 2, MR_Y(H - M11, H, AGG), 8) & T_CIRC(M6 + M8 / 2 + M10, MR_Y(H - M11, H, AGG), 8)

If M18 > 0 Then
R04 = T_CIRC(M6 + M8 / 2 + M10 - M18, MR_Y(H - M11, H, AGG), 8)
Else
R04 = ""
End If

R05 = T_RECT1(M1, L + 5, MR_Y(H - (M2 + 10 - 6), H, AGG), MR_Y(H + 5, H, AGG))
R06 = T_RECT1(M16 - 22.5, M16 + 22.5, MR_Y(32 + 31 - 6, H, AGG), MR_Y(32 + 31 + 14 - 6, H, AGG)) & T_RECT1(M16 + M17 - 22.5, M16 + M17 + 22.5, MR_Y(32 + 31 - 6, H, AGG), MR_Y(32 + 31 + 14 - 6, H, AGG))

R07A = T_CIRC(M12, MR_Y(25 + 31 - 6, H, AGG), 9)
R07B = T_CIRC(M6 - M7, MR_Y(25 + 31 - 6, H, AGG), 9)
R07C = T_CIRC(M6 - M7 + 100, MR_Y(25 + 31 - 6, H, AGG), 9)
R07D = T_CIRC(M6, MR_Y(25 + 31 - 6, H, AGG), 9)
R07E = T_CIRC(M6 + M7, MR_Y(25 + 31 - 6, H, AGG), 9)
R07F = T_CIRC(M13, MR_Y(25 + 31 - 6, H, AGG), 9)
R07 = R07A & R07B & R07C & R07D & R07E & R07F

R08 = T_SLOT(M14, MR_Y(14 + 31 - 6, H, AGG), 45, 9, 0) & T_SLOT(M14 + M15, MR_Y(14 + 31 - 6, H, AGG), 45, 9, 0)

R09A = T_RECT1(M4, M4 + 23, MR_Y(6, H, AGG), MR_Y(6 + 13, H, AGG))
R09B = T_SLOT(M4 + 23 + 35, MR_Y(10, H, AGG), 15, 9, 90)
R09C = T_RECT1(M4 + M5, M4 + M5 + 23, MR_Y(6, H, AGG), MR_Y(6 + 13, H, AGG))
R09D = T_RECT1(M4 + 2 * M5, M4 + 2 * M5 + 23, MR_Y(6, H, AGG), MR_Y(6 + 13, H, AGG))
R09E = T_RECT1(M4 + 3 * M5, M4 + 3 * M5 + 23, MR_Y(6, H, AGG), MR_Y(6 + 13, H, AGG))
R09 = R09A & R09B & R09C & R09D & R09E


P1 = M4 + M5 / 2 + 50
P2 = M4 + 2 * M5 + M5 / 2 + 50
MVAL = 500

Case 2, 4

R01 = T_RECT1(-5, L - M1, MR_Y(H - (M2 + 10 - 6), H, AGG), MR_Y(H + 5, H, AGG))
R02 = T_CIRC(L - M6 - M8 / 2 - M10, MR_Y(H - M11, H, AGG), 8)

If M18 > 0 Then
R03 = T_CIRC(L - M6 - M8 / 2 - M10 + M18, MR_Y(H - M11, H, AGG), 8)
Else
R03 = ""
End If

R04 = T_CIRC(L - M6 - M8 / 2, MR_Y(H - M11, H, AGG), 8) & T_CIRC(L - M6 + M8 / 2, MR_Y(H - M11, H, AGG), 8) & T_CIRC(L - M6 + M8 / 2 + M9, MR_Y(H - M11, H, AGG), 8)

If M17 > 0 Then
R05 = T_CIRC(L - M6 + M8 / 2 + M9 - M19, MR_Y(H - M11, H, AGG), 8)
Else
R05 = ""
End If

R06 = T_RECT1(L - M16 - M17 - 22.5, L - M16 - M17 + 22.5, MR_Y(32 + 31 - 6, H, AGG), MR_Y(32 + 31 + 14 - 6, H, AGG)) & T_RECT1(L - M16 - 22.5, L - M16 + 22.5, MR_Y(32 + 31 - 6, H, AGG), MR_Y(32 + 31 + 14 - 6, H, AGG))

R07A = T_CIRC(L - M12, MR_Y(25 + 31 - 6, H, AGG), 9)
R07B = T_CIRC(L - M6 + M7, MR_Y(25 + 31 - 6, H, AGG), 9)
R07C = T_CIRC(L - M6 + M7 - 100, MR_Y(25 + 31 - 6, H, AGG), 9)
R07D = T_CIRC(L - M6, MR_Y(25 + 31 - 6, H, AGG), 9)
R07E = T_CIRC(L - M6 - M7, MR_Y(25 + 31 - 6, H, AGG), 9)
R07F = T_CIRC(L - M13, MR_Y(25 + 31 - 6, H, AGG), 9)
R07 = R07A & R07B & R07C & R07D & R07E & R07F

R08 = T_SLOT(L - M14, MR_Y(14 + 31 - 6, H, AGG), 45, 9, 0) & T_SLOT(L - M14 - M15, MR_Y(14 + 31 - 6, H, AGG), 45, 9, 0)


R09A = T_RECT1(L - M4 - 23, L - M4, MR_Y(6, H, AGG), MR_Y(6 + 13, H, AGG))
R09B = T_RECT1(L - M4 - M5 - 23, L - M4 - M5, MR_Y(6, H, AGG), MR_Y(6 + 13, H, AGG))
R09C = T_RECT1(L - M4 - 2 * M5 - 23, L - M4 - 2 * M5, MR_Y(6, H, AGG), MR_Y(6 + 13, H, AGG))
R09D = T_SLOT(L - M4 - 3 * M5 + 35, MR_Y(10, H, AGG), 15, 9, 90)
R09E = T_RECT1(L - M4 - 3 * M5 - 23, L - M4 - 3 * M5, MR_Y(6, H, AGG), MR_Y(6 + 13, H, AGG))
R09 = R09A & R09B & R09C & R09D & R09E

P1 = L - M4 - M5 / 2 - 50
P2 = L - M4 - 2 * M5 - M5 / 2 - 50
MVAL = 500

Case Else
MsgBox "ERRORE VERSIONE SU " & ACT_MOD
End Select

STRINGA = R000_vpr(NHD, CTT, SPS / 10, L, H, P1, P2, QTT, comm, RAGG, CODR, MVAL, INFO_DAT(NND, 0, 5)) & R01 & R02 & R03 & R04 & R05 & R06 & R07 & R08 & R09
Call SAVE_SUB(NND, STRINGA)

ACT_MOD = ""
End Sub




Sub V_1007909H(ByVal NND As Integer)
ACT_MOD = "1007909"
NHD = 10

'MsgBox "CONTROLLARE " & ACT_MOD & "  !!!!!"


'************************************* INPUT
If NND > 0 Then ON_MD = 2 Else ON_MD = 1
Select Case ON_MD
Case 1
comm = INPUT_STR(NND, "COMMESSA", comm, ACT_MOD)
Case 2
comm = INFO_DAT(NND, 0, 2)
RAGG = INFO_DAT(NND, 0, 3)
QTT = INFO_DAT(NND, 0, 4)
CODR = INFO_DAT(NND, 0, 10) & " - " & INFO_DAT(NND, 0, 11) & " - " & INFO_DAT(NND, 0, 12)

Case Else
MsgBox "ERRORE", , ACT_MOD
End Select

L = INPUT_NUM(NND, "L", 0, ACT_MOD)
H = INPUT_NUM(NND, "H", H, ACT_MOD)
SPS = INPUT_NUM(NND, "SPS", SPS, ACT_MOD)
M1 = INPUT_NUM(NND, "M1", M1, ACT_MOD)
M2 = INPUT_NUM(NND, "M2", M2, ACT_MOD)
M3 = INPUT_NUM(NND, "M3", M3, ACT_MOD)
M4 = INPUT_NUM(NND, "M4", M4, ACT_MOD)
M5 = INPUT_NUM(NND, "M5", M5, ACT_MOD)
M6 = INPUT_NUM(NND, "M6", M6, ACT_MOD)
M7 = INPUT_NUM(NND, "M7", M7, ACT_MOD)
M8 = INPUT_NUM(NND, "M8", M8, ACT_MOD)
M9 = INPUT_NUM(NND, "M9", M9, ACT_MOD)
M10 = INPUT_NUM(NND, "M10", M10, ACT_MOD)
M11 = INPUT_NUM(NND, "M11", M11, ACT_MOD)
M12 = INPUT_NUM(NND, "M12", M12, ACT_MOD)
M13 = INPUT_NUM(NND, "M13", M13, ACT_MOD)
M14 = INPUT_NUM(NND, "M14", M14, ACT_MOD)
M15 = INPUT_NUM(NND, "M15", M15, ACT_MOD)
M16 = INPUT_NUM(NND, "M16", M16, ACT_MOD)
M17 = INPUT_NUM(NND, "M17", M17, ACT_MOD)
M18 = INPUT_NUM(NND, "M18", M18, ACT_MOD)
M19 = INPUT_NUM(NND, "M19", M19, ACT_MOD)
VV = INPUT_NUM(NND, "VER", VV, ACT_MOD)

'************************************* SCRITTURA LISTATO

AGG = 2

Select Case VV
Case 1, 3

R01 = T_CIRC(M6 - M8 / 2 - M9, MR_Y(H - M11, H, AGG), 8)

If M17 > 0 Then
R02 = T_CIRC(M6 - M8 / 2 - M9 + M19, MR_Y(H - M11, H, AGG), 8)
Else
R02 = ""
End If

R03 = T_CIRC(M6 - M8 / 2, MR_Y(H - M11, H, AGG), 8) & T_CIRC(M6 + M8 / 2, MR_Y(H - M11, H, AGG), 8) & T_CIRC(M6 + M8 / 2 + M10, MR_Y(H - M11, H, AGG), 8)

If M18 > 0 Then
R04 = T_CIRC(M6 + M8 / 2 + M10 - M18, MR_Y(H - M11, H, AGG), 8)
Else
R04 = ""
End If

R05 = T_RECT1(M1, L + 5, MR_Y(H - (M2 + 10 - 6), H, AGG), MR_Y(H + 5, H, AGG))
R06 = T_RECT1(M16 - 22.5, M16 + 22.5, MR_Y(32 + 31 - 6, H, AGG), MR_Y(32 + 31 + 14 - 6, H, AGG)) & T_RECT1(M16 + M17 - 22.5, M16 + M17 + 22.5, MR_Y(32 + 31 - 6, H, AGG), MR_Y(32 + 31 + 14 - 6, H, AGG))

R07A = T_CIRC(M12, MR_Y(25 + 31 - 6, H, AGG), 9)
R07B = T_SLOT(M6 - M7, MR_Y(25 + 31 - 6, H, AGG), 25, 8.5, 0)

R07C = T_CIRC(M6 - M7 + 100, MR_Y(25 + 31 - 6, H, AGG), 9)
R07D = T_SLOT(M6, MR_Y(25 + 31 - 6, H, AGG), 25, 8.5, 0)
R07E = T_SLOT(M6 + M7, MR_Y(25 + 31 - 6, H, AGG), 25, 8.5, 0)

R07F = T_CIRC(M13, MR_Y(25 + 31 - 6, H, AGG), 9)
R07 = R07A & R07B & R07C & R07D & R07E & R07F

R08 = T_SLOT(M14, MR_Y(14 + 31 - 6, H, AGG), 45, 9, 0) & T_SLOT(M14 + M15, MR_Y(14 + 31 - 6, H, AGG), 45, 9, 0)

R09A = T_RECT1(M4, M4 + 23, MR_Y(6, H, AGG), MR_Y(6 + 13, H, AGG))
R09B = T_SLOT(M4 + 23 + 35, MR_Y(10, H, AGG), 15, 9, 90)
R09C = T_RECT1(M4 + M5, M4 + M5 + 23, MR_Y(6, H, AGG), MR_Y(6 + 13, H, AGG))
R09D = T_RECT1(M4 + 2 * M5, M4 + 2 * M5 + 23, MR_Y(6, H, AGG), MR_Y(6 + 13, H, AGG))
R09E = T_RECT1(M4 + 3 * M5, M4 + 3 * M5 + 23, MR_Y(6, H, AGG), MR_Y(6 + 13, H, AGG))
R09 = R09A & R09B & R09C & R09D & R09E


P1 = M4 + M5 / 2 + 50
P2 = M4 + 2 * M5 + M5 / 2 + 50
MVAL = 500




Case 2, 4

R01 = T_RECT1(-5, L - M1, MR_Y(H - (M2 + 10 - 6), H, AGG), MR_Y(H + 5, H, AGG))
R02 = T_CIRC(L - M6 - M8 / 2 - M10, MR_Y(H - M11, H, AGG), 8)

If M18 > 0 Then
R03 = T_CIRC(L - M6 - M8 / 2 - M10 + M18, MR_Y(H - M11, H, AGG), 8)
Else
R03 = ""
End If

R04 = T_CIRC(L - M6 - M8 / 2, MR_Y(H - M11, H, AGG), 8) & T_CIRC(L - M6 + M8 / 2, MR_Y(H - M11, H, AGG), 8) & T_CIRC(L - M6 + M8 / 2 + M9, MR_Y(H - M11, H, AGG), 8)

If M17 > 0 Then
R05 = T_CIRC(L - M6 + M8 / 2 + M9 - M19, MR_Y(H - M11, H, AGG), 8)
Else
R05 = ""
End If

R06 = T_RECT1(L - M16 - M17 - 22.5, L - M16 - M17 + 22.5, MR_Y(32 + 31 - 6, H, AGG), MR_Y(32 + 31 + 14 - 6, H, AGG)) & T_RECT1(L - M16 - 22.5, L - M16 + 22.5, MR_Y(32 + 31 - 6, H, AGG), MR_Y(32 + 31 + 14 - 6, H, AGG))

R07A = T_CIRC(L - M12, MR_Y(25 + 31 - 6, H, AGG), 9)
R07B = T_SLOT(L - M6 + M7, MR_Y(25 + 31 - 6, H, AGG), 25, 8.5, 0)
R07C = T_CIRC(L - M6 + M7 - 100, MR_Y(25 + 31 - 6, H, AGG), 9)
R07D = T_SLOT(L - M6, MR_Y(25 + 31 - 6, H, AGG), 25, 8.5, 0)
R07E = T_SLOT(L - M6 - M7, MR_Y(25 + 31 - 6, H, AGG), 25, 8.5, 0)
R07F = T_CIRC(L - M13, MR_Y(25 + 31 - 6, H, AGG), 9)
R07 = R07A & R07B & R07C & R07D & R07E & R07F

R08 = T_SLOT(L - M14, MR_Y(14 + 31 - 6, H, AGG), 45, 9, 0) & T_SLOT(L - M14 - M15, MR_Y(14 + 31 - 6, H, AGG), 45, 9, 0)


R09A = T_RECT1(L - M4 - 23, L - M4, MR_Y(6, H, AGG), MR_Y(6 + 13, H, AGG))
R09B = T_RECT1(L - M4 - M5 - 23, L - M4 - M5, MR_Y(6, H, AGG), MR_Y(6 + 13, H, AGG))
R09C = T_RECT1(L - M4 - 2 * M5 - 23, L - M4 - 2 * M5, MR_Y(6, H, AGG), MR_Y(6 + 13, H, AGG))
R09D = T_SLOT(L - M4 - 3 * M5 + 35, MR_Y(10, H, AGG), 15, 9, 90)
R09E = T_RECT1(L - M4 - 3 * M5 - 23, L - M4 - 3 * M5, MR_Y(6, H, AGG), MR_Y(6 + 13, H, AGG))
R09 = R09A & R09B & R09C & R09D & R09E

P1 = L - M4 - M5 / 2 - 50
P2 = L - M4 - 2 * M5 - M5 / 2 - 50
MVAL = 500

Case Else
MsgBox "ERRORE VERSIONE SU " & ACT_MOD
End Select

STRINGA = R000_vpr(NHD, CTT, SPS / 10, L, H, P1, P2, QTT, comm, RAGG, CODR, MVAL, INFO_DAT(NND, 0, 5)) & R01 & R02 & R03 & R04 & R05 & R06 & R07 & R08 & R09
Call SAVE_SUB(NND, STRINGA)

ACT_MOD = ""
End Sub



Sub V_10145120(ByVal NND As Integer)
ACT_MOD = "1014512"
NHD = 10
'MsgBox "CONTROLLARE " & ACT_MOD & "  !!!!!"  'TOLTO CONTROLLO DOPO OK DI OMAR 29/06/2016

'************************************* INPUT
If NND > 0 Then ON_MD = 2 Else ON_MD = 1
Select Case ON_MD
Case 1
comm = INPUT_STR(NND, "COMMESSA", comm, ACT_MOD)
Case 2
comm = INFO_DAT(NND, 0, 2)
RAGG = INFO_DAT(NND, 0, 3)
QTT = INFO_DAT(NND, 0, 4)
CODR = INFO_DAT(NND, 0, 10) & " - " & INFO_DAT(NND, 0, 11) & " - " & INFO_DAT(NND, 0, 12)

Case Else
MsgBox "ERRORE", , ACT_MOD
End Select

L = INPUT_NUM(NND, "L", 0, ACT_MOD)
H = INPUT_NUM(NND, "H", H, ACT_MOD)
SPS = INPUT_NUM(NND, "SPS", SPS, ACT_MOD)
M1 = INPUT_NUM(NND, "M1", M1, ACT_MOD)
M2 = INPUT_NUM(NND, "M2", M2, ACT_MOD)
M3 = INPUT_NUM(NND, "M3", M3, ACT_MOD)
M4 = INPUT_NUM(NND, "M4", M4, ACT_MOD)
M5 = INPUT_NUM(NND, "M5", M5, ACT_MOD)
M6 = INPUT_NUM(NND, "M6", M6, ACT_MOD)
M7 = INPUT_NUM(NND, "M7", M7, ACT_MOD)
M8 = INPUT_NUM(NND, "M8", M8, ACT_MOD)
M9 = INPUT_NUM(NND, "M9", M9, ACT_MOD)
M10 = INPUT_NUM(NND, "M10", M10, ACT_MOD)

'************************************* SCRITTURA LISTATO

R01 = T_RECT1(L - M2 - 3 * M1 - 23, L - M2 - 3 * M1, 6, 19) & T_SLOT(L - M2 - 3 * M1 + 35, 13, 20, 8.5, 90)
R02 = T_RECT1(L - M2 - 2 * M1 - 23, L - M2 - 2 * M1, 6, 19) & T_RECT1(L - M2 - M1 - 23, L - M2 - M1, 6, 19) & T_RECT1(L - M2 - 23, L - M2, 6, 19)
R03 = T_CIRC(L - 75, H - 21, 9) & T_CIRC(L / 2 + M10, H - 21, 9) & T_CIRC(L / 2, H - 21, 9) & T_CIRC(L / 2 - M10, H - 21, 9) & T_CIRC(75, H - 21, 9)
R04 = T_RECT1(59, 91, H - 3, H + 7) & T_RECT1(L - 91, L - 59, H - 3, H + 7)
R05 = T_SLOT(L - M9 + M4, H - 9.5, 45, 9, 0) & T_SLOT(L - M9 + M3, H - 9.5, 45, 9, 0)
R06 = T_SLOT(L - M9 + M7, H - 31.7, 45, 9, 0)
R07 = T_SLOT(L - M9 + 33, H - 31.7, 45, 9, 0) & T_SLOT(L - M9 - 33, H - 31.7, 45, 9, 0)
R08 = T_SLOT(L - M9 - M8, H - 31.7, 45, 9, 0)
R09 = T_SLOT(L - M9 - M5, H - 9.5, 45, 9, 0) & T_SLOT(L - M9 - M6, H - 9.5, 45, 9, 0)
R10 = T_SLOT(M9 + 33, H - 31.7, 45, 9, 0) & T_SLOT(M9 - 33, H - 31.7, 45, 9, 0)
R11 = T_SLOT(M9 + M8, H - 31.7, 45, 9, 0) & T_SLOT(M9 - M7, H - 31.7, 45, 9, 0)
R12 = T_SLOT(M9 + M5, H - 9.5, 45, 9, 0) & T_SLOT(M9 + M6, H - 9.5, 45, 9, 0)
R13 = T_SLOT(M9 - M3, H - 9.5, 45, 9, 0) & T_SLOT(M9 - M4, H - 9.5, 45, 9, 0)

P1 = L - M2 - 3 * M1 + 150
P2 = L - M2 - 150
MVAL = 500

STRINGA = R000_vpr(NHD, CTT, SPS / 10, L, H, P1, P2, QTT, comm, RAGG, CODR, MVAL, INFO_DAT(NND, 0, 5)) & R01 & R02 & R03 & R04 & R05 & R06 & R07 & R08 & R09 & R10 & R11 & R12 & R13
Call SAVE_SUB(NND, STRINGA)

ACT_MOD = ""
End Sub

Sub V_1014512B(ByVal NND As Integer)
ACT_MOD = "1014512"
NHD = 10
'MsgBox "CONTROLLARE " & ACT_MOD
'AGGIUNTA 07/03/2017
'************************************* INPUT
If NND > 0 Then ON_MD = 2 Else ON_MD = 1
Select Case ON_MD
Case 1
comm = INPUT_STR(NND, "COMMESSA", comm, ACT_MOD)
Case 2
comm = INFO_DAT(NND, 0, 2)
RAGG = INFO_DAT(NND, 0, 3)
QTT = INFO_DAT(NND, 0, 4)
CODR = INFO_DAT(NND, 0, 10) & " - " & INFO_DAT(NND, 0, 11) & " - " & INFO_DAT(NND, 0, 12)

Case Else
MsgBox "ERRORE", , ACT_MOD
End Select

L = INPUT_NUM(NND, "L", 0, ACT_MOD)
H = INPUT_NUM(NND, "H", H, ACT_MOD)
SPS = INPUT_NUM(NND, "SPS", SPS, ACT_MOD)
M1 = INPUT_NUM(NND, "M1", M1, ACT_MOD)
M2 = INPUT_NUM(NND, "M2", M2, ACT_MOD)
M3 = INPUT_NUM(NND, "M3", M3, ACT_MOD)
M4 = INPUT_NUM(NND, "M4", M4, ACT_MOD)
M5 = INPUT_NUM(NND, "M5", M5, ACT_MOD)
M6 = INPUT_NUM(NND, "M6", M6, ACT_MOD)
M7 = INPUT_NUM(NND, "M7", M7, ACT_MOD)
M8 = INPUT_NUM(NND, "M8", M8, ACT_MOD)
M9 = INPUT_NUM(NND, "M9", M9, ACT_MOD)
M10 = INPUT_NUM(NND, "M10", M10, ACT_MOD)
M11 = INPUT_NUM(NND, "M11", M11, ACT_MOD)
M12 = INPUT_NUM(NND, "M12", M12, ACT_MOD)
M13 = INPUT_NUM(NND, "M13", M13, ACT_MOD)
M14 = INPUT_NUM(NND, "M14", M14, ACT_MOD)
M15 = INPUT_NUM(NND, "M15", M15, ACT_MOD)
VV = INPUT_NUM(NND, "VER.", VV, ACT_MOD)
'************************************* SCRITTURA LISTATO

Select Case VV
Case 1, 2

R01 = T_RECT1(L - M2 - 3 * M1 - 23, L - M2 - 3 * M1, 6, 19) & T_SLOT(L - M2 - 3 * M1 + 35, 13, 15, 9, 90)
R02 = T_RECT1(L - M2 - 2 * M1 - 23, L - M2 - 2 * M1, 6, 19) & T_RECT1(L - M2 - M1 - 23, L - M2 - M1, 6, 19) & T_RECT1(L - M2 - 23, L - M2, 6, 19)
R03 = T_CIRC(L - 75, H - 21, 9) & T_CIRC(L / 2 + M10, H - 21, 9) & T_CIRC(L / 2, H - 21, 9) & T_CIRC(L / 2 - M10, H - 21, 9) & T_CIRC(75, H - 21, 9)
R04 = T_RECT1(59, 91, H - 3, H + 7) & T_RECT1(L - 91, L - 59, H - 3, H + 7)

R05 = T_SLOT(L - M9 + M4, H - 9.5, 45, 9, 0) & T_SLOT(L - M9 + M3, H - 9.5, 45, 9, 0)
R06 = T_SLOT(L - M9 + M7, H - 31.7, 45, 9, 0)
R07 = T_SLOT(L - M9 + 33, H - 31.7, 45, 9, 0) & T_SLOT(L - M9 - 33, H - 31.7, 45, 9, 0)
R08 = T_SLOT(L - M9 - M8, H - 31.7, 45, 9, 0)
R09 = T_SLOT(L - M9 - M5, H - 9.5, 45, 9, 0) & T_SLOT(L - M9 - M6, H - 9.5, 45, 9, 0)
R10 = T_SLOT(M9 + 33, H - 31.7, 45, 9, 0) & T_SLOT(M9 - 33, H - 31.7, 45, 9, 0)
R11 = T_SLOT(M9 + M8, H - 31.7, 45, 9, 0) & T_SLOT(M9 - M7, H - 31.7, 45, 9, 0)
R12 = T_SLOT(M9 + M5, H - 9.5, 45, 9, 0) & T_SLOT(M9 + M6, H - 9.5, 45, 9, 0)
R13 = T_SLOT(M9 - M3, H - 9.5, 45, 9, 0) & T_SLOT(M9 - M4, H - 9.5, 45, 9, 0)

Case 3, 4
R01 = T_RECT1(L - M2 - 3 * M1 - 23, L - M2 - 3 * M1, 6, 19) & T_SLOT(L - M2 - 3 * M1 + 35, 13, 15, 9, 90)
R02 = T_RECT1(L - M2 - 2 * M1 - 23, L - M2 - 2 * M1, 6, 19) & T_RECT1(L - M2 - M1 - 23, L - M2 - M1, 6, 19) & T_RECT1(L - M2 - 23, L - M2, 6, 19)
R04 = T_CIRC(M11 + M15, H - 21, 9) & T_CIRC(M11 - M15, H - 21, 9)
If M14 > 0 Then
R03 = T_CIRC(M11 + M15 + M14, H - 21, 9) & T_RECT1(M11 + M15 + M14 - 16, M11 + M15 + M14 + 16, H - 3, H + 7)
Else
R03 = ""
End If
If M13 > 0 Then
R05 = T_CIRC(M11 - M15 - M13, H - 21, 9) & T_RECT1(M11 - M15 - M13 - 16, M11 - M15 - M13 + 16, H - 3, H + 7)
Else
R05 = ""
End If
R06 = T_RECT1(M11 - M15 - 16, M11 - M15 + 16, H - 3, H + 7) & T_RECT1(M11 + M15 - 16, M11 + M15 + 16, H - 3, H + 7)

R07 = T_SLOT(L - M9 + M4 - M12, H - 9.5, 45, 9, 0) & T_SLOT(L - M9 + M3 - M12, H - 9.5, 45, 9, 0)
R08 = T_SLOT(L - M9 + M7 - M12, H - 31.7, 45, 9, 0)
R09 = T_SLOT(L - M9 + 33 - M12, H - 31.7, 45, 9, 0) & T_SLOT(L - M9 - 33 - M12, H - 31.7, 45, 9, 0)
R10 = T_SLOT(L - M9 - M8 - M12, H - 31.7, 45, 9, 0)
R11 = T_SLOT(L - M9 - M5 - M12, H - 9.5, 45, 9, 0) & T_SLOT(L - M9 - M6 - M12, H - 9.5, 45, 9, 0)
R12 = T_SLOT(M12 + M9 + 33, H - 31.7, 45, 9, 0) & T_SLOT(M12 + M9 - 33, H - 31.7, 45, 9, 0)
R13 = T_SLOT(M12 + M9 + M8, H - 31.7, 45, 9, 0) & T_SLOT(M12 + M9 - M7, H - 31.7, 45, 9, 0)
R14 = T_SLOT(M12 + M9 + M5, H - 9.5, 45, 9, 0) & T_SLOT(M12 + M9 + M6, H - 9.5, 45, 9, 0)
R15 = T_SLOT(M12 + M9 - M3, H - 9.5, 45, 9, 0) & T_SLOT(M12 + M9 - M4, H - 9.5, 45, 9, 0)

Case Else
MsgBox ("ERRORE VERSIONE SU CODICE " & ACT_MOD)
End Select


P1 = L - M2 - 3 * M1 + 150
P2 = L - M2 - 150
MVAL = 500

STRINGA = R000_vpr(NHD, CTT, SPS / 10, L, H, P1, P2, QTT, comm, RAGG, CODR, MVAL, INFO_DAT(NND, 0, 5)) & R01 & R02 & R03 & R04 & R05 & R06 & R07 & R08 & R09 & R10 & R11 & R12 & R13 & R14 & R15
Call SAVE_SUB(NND, STRINGA)

ACT_MOD = ""
End Sub


Sub V_1006927A(ByVal NND As Integer)
ACT_MOD = "1006927"
NHD = 10
'MsgBox "CONTROLLARE " & ACT_MOD
'AGGIUNTA 07/03/2017
'************************************* INPUT
If NND > 0 Then ON_MD = 2 Else ON_MD = 1
Select Case ON_MD
Case 1
comm = INPUT_STR(NND, "COMMESSA", comm, ACT_MOD)
Case 2
comm = INFO_DAT(NND, 0, 2)
RAGG = INFO_DAT(NND, 0, 3)
QTT = INFO_DAT(NND, 0, 4)
CODR = INFO_DAT(NND, 0, 10) & " - " & INFO_DAT(NND, 0, 11) & " - " & INFO_DAT(NND, 0, 12)

Case Else
MsgBox "ERRORE", , ACT_MOD
End Select

L = INPUT_NUM(NND, "L", 0, ACT_MOD)
H = INPUT_NUM(NND, "H", H, ACT_MOD)
SPS = INPUT_NUM(NND, "SPS", SPS, ACT_MOD)
M1 = INPUT_NUM(NND, "M1", M1, ACT_MOD)
M2 = INPUT_NUM(NND, "M2", M2, ACT_MOD)
M3 = INPUT_NUM(NND, "M3", M3, ACT_MOD)
M4 = INPUT_NUM(NND, "M4", M4, ACT_MOD)
M5 = INPUT_NUM(NND, "M5", M5, ACT_MOD)
M6 = INPUT_NUM(NND, "M6", M6, ACT_MOD)
M7 = INPUT_NUM(NND, "M7", M7, ACT_MOD)
M8 = INPUT_NUM(NND, "M8", M8, ACT_MOD)
VV = INPUT_NUM(NND, "VER.", VV, ACT_MOD)
CO = Right(INFO_DAT(NND, 0, 30), Len(INFO_DAT(NND, 0, 30)) - InStr(1, INFO_DAT(NND, 0, 30), "CO") - 1)
CO = Val(CO)


M9 = (CO / 2 + 55)
If CO = 0 Then
MsgBox ("VARIABILE CO NON PRESENTE NEL DATO " & ACT_MOD)
Exit Sub
End If

'************************************* SCRITTURA LISTATO
Select Case VV
Case 1, 2, 3, 4, 5, 6, 7

R01 = T_RECT1(L - M2, L - M2 - 23, 6, 19) & T_RECT1(L - M2 - M1, L - M2 - M1 - 23, 6, 19) & T_RECT1(L - M2 - M1 * 2, L - M2 - M1 * 2 - 23, 6, 19) & T_RECT1(L - M2 - M1 * 3, L - M2 - M1 * 3 - 23, 6, 19)
R02 = T_SLOT(L - M2 - 3 * M1 + 35, 10, 15, 9, 90)
R03 = T_SLOT(L / 2, H - 21, 25, 8.5, 0) & T_SLOT(L / 2 - M3, H - 21, 25, 8.5, 0) & T_SLOT(L / 2 + M3, H - 21, 25, 8.5, 0)
R04 = T_SLOT(L / 2 - 35, H - 9.5, 45, 9, 0) & T_SLOT(L / 2 - 35 - M4, H - 9.5, 45, 9, 0) & T_SLOT(L / 2 + 35, H - 9.5, 45, 9, 0) & T_SLOT(L / 2 + 35 + M4, H - 9.5, 45, 9, 0)
R05 = T_CIRC(L / 2 - M9, H - 21, 9) & T_CIRC(L / 2 + M9, H - 21, 9)
R06 = T_RECT1(L / 2 - M9 - 16, L / 2 - M9 + 16, H - 3, H + 7) & T_RECT1(L / 2 + M9 - 16, L / 2 + M9 + 16, H - 3, H + 7)

Case 8

R01 = T_RECT1(L - M2, L - M2 - 23, 6, 19) & T_RECT1(L - M2 - M1, L - M2 - M1 - 23, 6, 19) & T_RECT1(L - M2 - M1 * 2, L - M2 - M1 * 2 - 23, 6, 19) & T_RECT1(L - M2 - M1 * 3, L - M2 - M1 * 3 - 23, 6, 19)
R02 = T_SLOT(L - M2 - 3 * M1 + 35, 10, 15, 9, 90)
R03 = T_SLOT(M5, H - 21, 25, 8.5, 0) & T_SLOT(M5 - M3, H - 21, 25, 8.5, 0) & T_SLOT(M5 + M3, H - 21, 25, 8.5, 0)
R04 = T_SLOT(M5 - 35, H - 9.5, 45, 9, 0) & T_SLOT(M5 - 35 - M4, H - 9.5, 45, 9, 0) & T_SLOT(M5 + 35, H - 9.5, 45, 9, 0) & T_SLOT(M5 + 35 + M4, H - 9.5, 45, 9, 0)
R05 = T_CIRC(M5 - M9, H - 21, 9) & T_CIRC(M5 + M9, H - 21, 9)
R06 = T_RECT1(M5 - M9 - 16, M5 - M9 + 16, H - 3, H + 7) & T_RECT1(M5 + M9 - 16, M5 + M9 + 16, H - 3, H + 7)

If M7 > 0 Then
R07 = T_CIRC(M5 - M9 - M7, H - 21, 9) & T_RECT1(M5 - M9 - 16 - M7, M5 - M9 + 16 - M7, H - 3, H + 7)
Else
R07 = ""
End If

If M8 > 0 Then
R08 = T_CIRC(M5 + M9 + M8, H - 21, 9) & T_RECT1(M5 + M9 - 16 + M8, M5 + M9 + 16 + M8, H - 3, H + 7)
Else
R08 = ""
End If

Case Else
MsgBox ("ERRORE VERSIONE SU CODICE " & ACT_MOD)
End Select


P1 = L - M2 - 3 * M1 + 150
P2 = L - M2 - 150
MVAL = 500

STRINGA = R000_vpr(NHD, CTT, SPS / 10, L, H, P1, P2, QTT, comm, RAGG, CODR, MVAL, INFO_DAT(NND, 0, 5)) & R01 & R02 & R03 & R04 & R05 & R06 & R07 & R08
Call SAVE_SUB(NND, STRINGA)

Call FVTPT(4, NND, "")

ACT_MOD = ""
End Sub


Sub V_1007093D(ByVal NND As Integer)
ACT_MOD = "1007093"
NHD = 10
'MsgBox "CONTROLLARE " & ACT_MOD
'AGGIUNTA 07/03/2017
'************************************* INPUT
If NND > 0 Then ON_MD = 2 Else ON_MD = 1
Select Case ON_MD
Case 1
comm = INPUT_STR(NND, "COMMESSA", comm, ACT_MOD)
Case 2
comm = INFO_DAT(NND, 0, 2)
RAGG = INFO_DAT(NND, 0, 3)
QTT = INFO_DAT(NND, 0, 4)
CODR = INFO_DAT(NND, 0, 10) & " - " & INFO_DAT(NND, 0, 11) & " - " & INFO_DAT(NND, 0, 12)

Case Else
MsgBox "ERRORE", , ACT_MOD
End Select

L = INPUT_NUM(NND, "L", L, ACT_MOD)
H = INPUT_NUM(NND, "H", H, ACT_MOD)
SPS = INPUT_NUM(NND, "SPS", SPS, ACT_MOD)
M1 = INPUT_NUM(NND, "M1", M1, ACT_MOD)
M2 = INPUT_NUM(NND, "M2", M2, ACT_MOD)
M3 = INPUT_NUM(NND, "M3", M3, ACT_MOD)
M4 = INPUT_NUM(NND, "M4", M4, ACT_MOD)
M5 = INPUT_NUM(NND, "M5", M5, ACT_MOD)
M6 = INPUT_NUM(NND, "M6", M6, ACT_MOD)
M7 = INPUT_NUM(NND, "M7", M7, ACT_MOD)
M8 = INPUT_NUM(NND, "M8", M8, ACT_MOD)
M9 = INPUT_NUM(NND, "M9", M9, ACT_MOD)
M10 = INPUT_NUM(NND, "M10", M10, ACT_MOD)
M11 = INPUT_NUM(NND, "M11", M11, ACT_MOD)
M12 = INPUT_NUM(NND, "M12", M12, ACT_MOD)
VV = INPUT_NUM(NND, "VER.", VV, ACT_MOD)
'************************************* SCRITTURA LISTATO

Select Case VV
Case 1, 3
AGG = 1
If VV = 1 Then
R03 = T_CIRC(25, H - 21, 9) & T_CIRC(25 + M3, H - 21, 9)
R04 = T_RECT1(25 - 16, 25 + 16, H - 3, H + 7) & T_RECT1(25 + M3 - 16, 25 + M3 + 16, H - 3, H + 7)
End If
If VV = 3 Then
R03 = T_CIRC(M12, H - 21, 9) & T_CIRC(M12 + M3, H - 21, 9)
R04 = T_RECT1(M12 - 16, M12 + 16, H - 3, H + 7) & T_RECT1(M12 - 16 + M3, M12 + 16 + M3, H - 3, H + 7)
If M10 > 0 Then R08 = T_CIRC(M12 - M10, H - 21, 9) & T_RECT1(M12 - M10 - 16, M12 - M10 + 16, H - 3, H + 7)
If M11 > 0 Then R09 = T_CIRC(M12 + M3 + M11, H - 21, 9) & T_RECT1(M12 + M3 + M11 - 16, M12 + M3 + M11 + 16, H - 3, H + 7)
End If
R02 = T_SLOT(M1 + 35, 10, 15, 9, 90)

Case 2, 4
AGG = 2
If VV = 2 Then
R03 = T_CIRC(MR_X(25, L, AGG), H - 21, 9) & T_CIRC(MR_X(25 + M3, L, AGG), H - 21, 9)
R04 = T_RECT1(MR_X(25 - 16, L, AGG), MR_X(25 + 16, L, AGG), H - 3, H + 7) & T_RECT1(MR_X(25 + M3 - 16, L, AGG), MR_X(25 + M3 + 16, L, AGG), H - 3, H + 7)
End If
If VV = 4 Then
R03 = T_CIRC(MR_X(M12, L, AGG), H - 21, 9) & T_CIRC(MR_X(M12 + M3, L, AGG), H - 21, 9)
R04 = T_RECT1(MR_X(M12 - 16, L, AGG), MR_X(M12 + 16, L, AGG), H - 3, H + 7) & T_RECT1(MR_X(M12 - 16 + M3, L, AGG), MR_X(M12 + 16 + M3, L, AGG), H - 3, H + 7)
If M10 > 0 Then R08 = T_CIRC(M12 - M11, H - 21, 9) & T_RECT1(M12 - M11 - 16, M12 - M11 + 16, H - 3, H + 7) Else R08 = ""
If M11 > 0 Then R09 = T_CIRC(M12 + M3 + M10, H - 21, 9) & T_RECT1(M12 + M3 + M10 - 16, M12 + M3 + M10 + 16, H - 3, H + 7) Else R09 = ""
End If
R02 = T_SLOT(L - (M1 + 3 * M2 - 35 - 23), 10, 15, 9, 90)

Case Else
MsgBox ("ERRORE VERSIONE SU CODICE " & ACT_MOD)
End Select


R01 = T_RECT1(MR_X(M1 - 23, L, AGG), MR_X(M1, L, AGG), 6, 6 + 13) & T_RECT1(MR_X(M1 - 23 + M2, L, AGG), MR_X(M1 + M2, L, AGG), 6, 6 + 13) & T_RECT1(MR_X(M1 - 23 + 2 * M2, L, AGG), MR_X(M1 + 2 * M2, L, AGG), 6, 6 + 13) & T_RECT1(MR_X(M1 - 23 + 3 * M2, L, AGG), MR_X(M1 + 3 * M2, L, AGG), 6, 6 + 13)
R05 = T_SLOT(MR_X(M4, L, AGG), H - 21, 25, 8.5, 0) & T_SLOT(MR_X(M4 + M5, L, AGG), H - 21, 25, 8.5, 0) & T_SLOT(MR_X(M4 + 2 * M5, L, AGG), H - 21, 25, 8.5, 0)
R06 = T_SLOT(MR_X(M6, L, AGG), H - 31.5, 45, 9, 0) & T_SLOT(MR_X(M6 + M7, L, AGG), H - 31.5, 45, 9, 0)
R07 = T_SLOT(MR_X(M8, L, AGG), H - 9.5, 45, 9, 0) & T_SLOT(MR_X(M8 + M9, L, AGG), H - 9.5, 45, 9, 0)


P1 = L - M2 - 3 * M1 + 150
P2 = L - M2 - 150
MVAL = 500

STRINGA = R000_vpr(NHD, CTT, SPS / 10, L, H, P1, P2, QTT, comm, RAGG, CODR, MVAL, INFO_DAT(NND, 0, 5)) & R01 & R02 & R03 & R04 & R05 & R06 & R07 & R08 & R09
Call SAVE_SUB(NND, STRINGA)

Call FVTPT(4, NND, "")

ACT_MOD = ""
End Sub




Sub V_10146880(ByVal NND As Integer)
ACT_MOD = "1014688"
NHD = 1
If NND > 0 Then ON_MD = 2 Else ON_MD = 1

'MsgBox "CONTROLLARE " & ACT_MOD

'************************************* INPUT
Select Case ON_MD
Case 1
comm = INPUT_STR(NND, "COMMESSA", comm, ACT_MOD)
Case 2
comm = INFO_DAT(NND, 0, 2)
RAGG = INFO_DAT(NND, 0, 3)
QTT = INFO_DAT(NND, 0, 4)
CODR = INFO_DAT(NND, 0, 10) & " - " & INFO_DAT(NND, 0, 11) & " - " & INFO_DAT(NND, 0, 12)
If INFO_DAT(NND, 0, 9) <> "0" Then MsgBox "INDICE DI REVISIONE ERRATO SU CODICE " & ACT_MOD
Case Else
MsgBox "ERRORE", , ACT_MOD
End Select

L = INPUT_NUM(NND, "L", L, ACT_MOD)
H = INPUT_NUM(NND, "H", H, ACT_MOD)
M1 = INPUT_NUM(NND, "M1", M1, ACT_MOD)
M2 = INPUT_NUM(NND, "M2", M2, ACT_MOD)
SPS = INPUT_NUM(NND, "SPS", SPS, ACT_MOD) / 10

'************************************* SCRITTURA LISTATO

XSC = 12 - 2 * SPS
YSCINF = 12 + 2 - 2 * SPS
YSCSUP = YSCINF + 18.5
DSTA = (L - M2) / 2
QQ = 20

'R01A = T_RECT1(QQ - XSC, XSC, QQ - YSCINF, YSCINF) & T_RECT1(QQ - XSC, XSC, YSCSUP, H + 3)
'R01B = T_RECT1(L - XSC, L + (QQ - XSC), YSCSUP, H + 3) & T_RECT1(L - XSC, L + (QQ - XSC), QQ - YSCINF, YSCINF)

R01A = T_RECT1(XSC - QQ, XSC, YSCINF - QQ, YSCINF) & T_RECT1(XSC - QQ, XSC, YSCSUP, H + 3)
R01B = T_RECT1(L - XSC, L + (QQ - XSC), YSCSUP, H + 3) & T_RECT1(L - XSC, L + (QQ - XSC), YSCINF - QQ, YSCINF)
R01 = R01A & R01B

R02A = T_CIRC(XSC, YSCINF, 3.3) & T_CIRC(XSC, YSCSUP, 3.3)
R02B = T_CIRC(L - XSC, YSCINF, 3.3) & T_CIRC(L - XSC, YSCSUP, 3.3)
R02 = R02A & R02B

R03 = T_SLOT(DSTA, H - 8, 14, 5, 90) & T_SLOT(L - DSTA, H - 8, 14, 5, 90)

R04A = T_RECT1(XSC + 40, L - XSC - 40, H - 10, H + 10) 'faccio passata conn 20x20
R04B = TG_R(20, XSC + 4, H - 5 - 4, XSC + 5 + 4, H - 4, 8, 8) & TG_R(20, XSC + 40 - 5 - 4, H - 4, XSC + 40 - 4, H - 5 - 4, 8, 8)
R04C = TG_R(20, L - XSC - 40 + 4, H - 5 - 4, L - XSC - 40 + 5 + 4, H - 4, 8, 8) & TG_R(20, L - XSC - 5 - 4, H - 4, L - XSC - 4, H - 5 - 4, 8, 8)
R04 = R04A & R04B & R04C


P1 = L / 2 - 85
P2 = L / 2 + 85
MVAL = 500

STRINGA = R000_vpr(NHD, CTT, SPS, L, H, P1, P2, QTT, comm, RAGG, CODR, MVAL, INFO_DAT(NND, 0, 5)) & R01 & R02 & R03 & R04
Call SAVE_SUB(NND, STRINGA)

ACT_MOD = ""
End Sub

Sub V_1014700(ByVal NND As Integer)
ACT_MOD = "1014700"
NHD = 10
'************************************* INPUT
If NND > 0 Then ON_MD = 2 Else ON_MD = 1
Select Case ON_MD
Case 1
comm = INPUT_STR(NND, "COMMESSA", comm, ACT_MOD)
Case 2
comm = INFO_DAT(NND, 0, 2)
RAGG = INFO_DAT(NND, 0, 3)
QTT = INFO_DAT(NND, 0, 4)
CODR = INFO_DAT(NND, 0, 10) & " - " & INFO_DAT(NND, 0, 11) & " - " & INFO_DAT(NND, 0, 12)
If INFO_DAT(NND, 0, 9) <> "A" Then MsgBox "INDICE DI REVISIONE ERRATO SU CODICE " & ACT_MOD
Case Else
MsgBox "ERRORE", , ACT_MOD
End Select

L = INPUT_NUM(NND, "L", 0, ACT_MOD)
H = INPUT_NUM(NND, "H", H, ACT_MOD)
SPS = INPUT_NUM(NND, "SPS", SPS, ACT_MOD)
M1 = INPUT_NUM(NND, "M1", M1, ACT_MOD)
M2 = INPUT_NUM(NND, "M2", M2, ACT_MOD)
M3 = INPUT_NUM(NND, "M3", M3, ACT_MOD)
M4 = INPUT_NUM(NND, "M4", M4, ACT_MOD)
M5 = INPUT_NUM(NND, "M5", M5, ACT_MOD)
M6 = INPUT_NUM(NND, "M6", M6, ACT_MOD)
M7 = INPUT_NUM(NND, "M7", M7, ACT_MOD)
M8 = INPUT_NUM(NND, "M8", M8, ACT_MOD)
M9 = INPUT_NUM(NND, "M9", M9, ACT_MOD)
M10 = INPUT_NUM(NND, "M10", M10, ACT_MOD)

PAS = 0
H = H + PAS

'************************************* SCRITTURA LISTATO

RA1 = T_CIRC(L / 2 - M2 / 2, 9 + PAS, 9) & T_CIRC(L / 2 - M1 / 2, 9 + PAS, 9) & T_CIRC(L / 2, 9 + PAS, 9) & T_CIRC(L / 2 + M1 / 2, 9 + PAS, 9) & T_CIRC(L / 2 + M2 / 2, 9 + PAS, 9) & T_SLOT(L - 20, 13 + PAS, 20, 8.5, 90)
RA2 = T_CIRC(L / 2 + M10, H - 17, 9) & T_CIRC(L / 2, H - 17, 9) & T_CIRC(L / 2 - M10, H - 17, 9)
DIMS = 20

RB1 = T_RECT1(L - M9 - M6 - 22.5, L - M9 - M6 + 22.5, H - 10, H + DIMS - 10)
RB2 = T_RECT1(L - M9 - M5 - 22.5, L - M9 - M5 + 22.5, H - 10, H + DIMS - 10)
RB3 = T_RECT1(L - M9 + M3 - 22.5, L - M9 + M3 + 22.5, H - 10, H + DIMS - 10)
RB4 = T_RECT1(L - M9 + M4 - 22.5, L - M9 + M4 + 22.5, H - 10, H + DIMS - 10)
RB5 = T_RECT1(M9 + M6 - 22.5, M9 + M6 + 22.5, H - 10, H + DIMS - 10)
RB6 = T_RECT1(M9 + M5 - 22.5, M9 + M5 + 22.5, H - 10, H + DIMS - 10)
RB7 = T_RECT1(M9 - M3 - 22.5, M9 - M3 + 22.5, H - 10, H + DIMS - 10)
RB8 = T_RECT1(M9 - M4 - 22.5, M9 - M4 + 22.5, H - 10, H + DIMS - 10)


C1 = L - M9 - M6
C2 = L - M9 - M5
C3 = L - M9 + M3
C4 = L - M9 + M4
C5 = M9 + M6
C6 = M9 + M5
C7 = M9 - M3
C8 = M9 - M4

LIM = 45
If Abs(C1 - C5) < LIM Then
RB1 = ""
RB5 = ""
If C1 <= C5 Then
MNN = C1
MXX = C5
Else
MNN = C5
MXX = C1
End If
RBB = RBB & T_RECT1(MNN - 22.5, MXX + 22.5, H - 10, H + DIMS - 10)
End If

If Abs(C1 - C6) < LIM Then
RB1 = ""
RB6 = ""
If C1 <= C6 Then
MNN = C1
MXX = C6
Else
MNN = C6
MXX = C1
End If
RBB = RBB & T_RECT1(MNN - 22.5, MXX + 22.5, H - 10, H + DIMS - 10)
End If

If Abs(C1 - C7) < LIM Then
RB1 = ""
RB7 = ""
If C1 <= C7 Then
MNN = C1
MXX = C7
Else
MNN = C7
MXX = C1
End If
RBB = RBB & T_RECT1(MNN - 22.5, MXX + 22.5, H - 10, H + DIMS - 10)
End If

If Abs(C1 - C8) < LIM Then
RB1 = ""
RB8 = ""
If C1 <= C8 Then
MNN = C1
MXX = C8
Else
MNN = C8
MXX = C1
End If
RBB = RBB & T_RECT1(MNN - 22.5, MXX + 22.5, H - 10, H + DIMS - 10)
End If

If Abs(C2 - C5) < LIM Then
RB2 = ""
RB5 = ""
If C2 <= C5 Then
MNN = C2
MXX = C5
Else
MNN = C5
MXX = C2
End If
RBB = RBB & T_RECT1(MNN - 22.5, MXX + 22.5, H - 10, H + DIMS - 10)
End If

If Abs(C2 - C6) < LIM Then
RB2 = ""
RB6 = ""
If C1 <= C6 Then
MNN = C2
MXX = C6
Else
MNN = C6
MXX = C2
End If
RBB = RBB & T_RECT1(MNN - 22.5, MXX + 22.5, H - 10, H + DIMS - 10)
End If

If Abs(C2 - C7) < LIM Then
RB2 = ""
RB7 = ""
If C2 <= C7 Then
MNN = C2
MXX = C7
Else
MNN = C7
MXX = C2
End If
RBB = RBB & T_RECT1(MNN - 22.5, MXX + 22.5, H - 10, H + DIMS - 10)
End If

If Abs(C2 - C8) < LIM Then
RB2 = ""
RB8 = ""
If C2 <= C8 Then
MNN = C2
MXX = C8
Else
MNN = C8
MXX = C2
End If
RBB = RBB & T_RECT1(MNN - 22.5, MXX + 22.5, H - 10, H + DIMS - 10)
End If


If Abs(C3 - C5) < LIM Then
RB3 = ""
RB5 = ""
If C3 <= C5 Then
MNN = C3
MXX = C5
Else
MNN = C5
MXX = C3
End If
RBB = RBB & T_RECT1(MNN - 22.5, MXX + 22.5, H - 10, H + DIMS - 10)
End If

If Abs(C3 - C6) < LIM Then
RB3 = ""
RB6 = ""
If C3 <= C6 Then
MNN = C3
MXX = C6
Else
MNN = C6
MXX = C3
End If
RBB = RBB & T_RECT1(MNN - 22.5, MXX + 22.5, H - 10, H + DIMS - 10)
End If

If Abs(C3 - C7) < LIM Then
RB3 = ""
RB7 = ""
If C3 <= C7 Then
MNN = C3
MXX = C7
Else
MNN = C7
MXX = C3
End If
RBB = RBB & T_RECT1(MNN - 22.5, MXX + 22.5, H - 10, H + DIMS - 10)
End If

If Abs(C3 - C8) < LIM Then
RB3 = ""
RB8 = ""
If C3 <= C8 Then
MNN = C3
MXX = C8
Else
MNN = C8
MXX = C3
End If
RBB = RBB & T_RECT1(MNN - 22.5, MXX + 22.5, H - 10, H + DIMS - 10)
End If


If Abs(C4 - C5) < LIM Then
RB4 = ""
RB5 = ""
If C4 <= C5 Then
MNN = C4
MXX = C5
Else
MNN = C5
MXX = C4
End If
RBB = RBB & T_RECT1(MNN - 22.5, MXX + 22.5, H - 10, H + DIMS - 10)
End If

If Abs(C4 - C6) < LIM Then
RB4 = ""
RB6 = ""
If C4 <= C6 Then
MNN = C4
MXX = C6
Else
MNN = C6
MXX = C4
End If
RBB = RBB & T_RECT1(MNN - 22.5, MXX + 22.5, H - 10, H + DIMS - 10)
End If

If Abs(C4 - C7) < LIM Then
RB4 = ""
RB7 = ""
If C4 <= C7 Then
MNN = C4
MXX = C7
Else
MNN = C7
MXX = C4
End If
RBB = RBB & T_RECT1(MNN - 22.5, MXX + 22.5, H - 10, H + DIMS - 10)
End If

If Abs(C4 - C8) < LIM Then
RB4 = ""
RB8 = ""
If C4 <= C8 Then
MNN = C4
MXX = C8
Else
MNN = C8
MXX = C4
End If
RBB = RBB & T_RECT1(MNN - 22.5, MXX + 22.5, H - 10, H + DIMS - 10)
End If

RB = RB1 & RB2 & RB3 & RB4 & RB5 & RB6 & RB7 & RB8 & RBB

RC1 = T_SLOT(M9 + M8, H - 27.7, 45, 9, 0)
RC2 = T_SLOT(M9 + 33, H - 27.7, 45, 9, 0)
RC3 = T_SLOT(M9 - 33, H - 27.7, 45, 9, 0)
RC4 = T_SLOT(M9 - M7, H - 27.7, 45, 9, 0)
RC5 = T_SLOT(L - M9 - M8, H - 27.7, 45, 9, 0)
RC6 = T_SLOT(L - M9 - 33, H - 27.7, 45, 9, 0)
RC7 = T_SLOT(L - M9 + 33, H - 27.7, 45, 9, 0)
RC8 = T_SLOT(L - M9 + M7, H - 27.7, 45, 9, 0)

C1 = M9 + M8
C2 = M9 + 33
C3 = M9 - 33
C4 = M9 - M7
C5 = L - M9 - M8
C6 = L - M9 - 33
C7 = L - M9 + 33
C8 = L - M9 + M7

LIM = 38

If Abs(C1 - C5) < LIM Then
RC1 = ""
RC5 = ""
RCC = RCC & T_SLOT((C1 + C5) / 2, H - 27.7, 45 + Abs(C1 - C5), 9, 0)
End If

If Abs(C1 - C6) < LIM Then
RC1 = ""
RC6 = ""
RCC = RCC & T_SLOT((C1 + C6) / 2, H - 27.7, 45 + Abs(C1 - C6), 9, 0)
End If

If Abs(C1 - C7) < LIM Then
RC1 = ""
RC7 = ""
RCC = RCC & T_SLOT((C1 + C7) / 2, H - 27.7, 45 + Abs(C1 - C7), 9, 0)
End If

If Abs(C1 - C8) < LIM Then
RC1 = ""
RC8 = ""
RCC = RCC & T_SLOT((C1 + C8) / 2, H - 27.7, 45 + Abs(C1 - C8), 9, 0)
End If

If Abs(C2 - C5) < LIM Then
RC2 = ""
RC5 = ""
RCC = RCC & T_SLOT((C2 + C5) / 2, H - 27.7, 45 + Abs(C2 - C5), 9, 0)
End If

If Abs(C2 - C6) < LIM Then
RC2 = ""
RC6 = ""
RCC = RCC & T_SLOT((C2 + C6) / 2, H - 27.7, 45 + Abs(C2 - C6), 9, 0)
End If

If Abs(C2 - C7) < LIM Then
RC2 = ""
RC7 = ""
RCC = RCC & T_SLOT((C2 + C7) / 2, H - 27.7, 45 + Abs(C2 - C7), 9, 0)
End If

If Abs(C2 - C8) < LIM Then
RC2 = ""
RC8 = ""
RCC = RCC & T_SLOT((C2 + C8) / 2, H - 27.7, 45 + Abs(C2 - C8), 9, 0)
End If

If Abs(C3 - C5) < LIM Then
RC3 = ""
RC5 = ""
RCC = RCC & T_SLOT((C3 + C5) / 2, H - 27.7, 45 + Abs(C3 - C5), 9, 0)
End If

If Abs(C3 - C6) < LIM Then
RC3 = ""
RC6 = ""
RCC = RCC & T_SLOT((C3 + C6) / 2, H - 27.7, 45 + Abs(C3 - C6), 9, 0)
End If

If Abs(C3 - C7) < LIM Then
RC3 = ""
RC7 = ""
RCC = RCC & T_SLOT((C3 + C7) / 2, H - 27.7, 45 + Abs(C3 - C7), 9, 0)
End If

If Abs(C3 - C8) < LIM Then
RC3 = ""
RC8 = ""
RCC = RCC & T_SLOT((C3 + C8) / 2, H - 27.7, 45 + Abs(C3 - C8), 9, 0)
End If

If Abs(C4 - C5) < LIM Then
RC4 = ""
RC5 = ""
RCC = RCC & T_SLOT((C4 + C5) / 2, H - 27.7, 45 + Abs(C4 - C5), 9, 0)
End If

If Abs(C4 - C6) < LIM Then
RC4 = ""
RC6 = ""
RCC = RCC & T_SLOT((C4 + C6) / 2, H - 27.7, 45 + Abs(C4 - C6), 9, 0)
End If

If Abs(C4 - C7) < LIM Then
RC4 = ""
RC7 = ""
RCC = RCC & T_SLOT((C4 + C7) / 2, H - 27.7, 45 + Abs(C4 - C7), 9, 0)
End If

If Abs(C4 - C8) < LIM Then
RC4 = ""
RC8 = ""
RCC = RCC & T_SLOT((C4 + C8) / 2, H - 27.7, 45 + Abs(C4 - C8), 9, 0)
End If


RC = RC1 & RC2 & RC3 & RC4 & RC5 & RC6 & RC7 & RC8 & RCC

P1 = L / 2 - M1 / 2 - 75
P2 = L / 2 + M1 / 2 + 75
MVAL = 500

STRINGA = R000_vpr(NHD, CTT, SPS / 10, L, H, P1, P2, QTT, comm, RAGG, CODR, MVAL, INFO_DAT(NND, 0, 5)) & RA1 & RA2 & RB & RC

Call SAVE_SUB(NND, STRINGA)
ACT_MOD = ""
End Sub

Sub V_1016416C(ByVal NND As Integer)
ACT_MOD = "1016416"
NHD = 10
'MsgBox "CONTROLLARE " & ACT_MOD & ", NUOVA REVISIONE!!!!!"
'AGGIORNATO 24/12/2017
'************************************* INPUT
If NND > 0 Then ON_MD = 2 Else ON_MD = 1
Select Case ON_MD
Case 1
comm = INPUT_STR(NND, "COMMESSA", comm, ACT_MOD)
Case 2
comm = INFO_DAT(NND, 0, 2)
RAGG = INFO_DAT(NND, 0, 3)
QTT = INFO_DAT(NND, 0, 4)
CODR = INFO_DAT(NND, 0, 10) & " - " & INFO_DAT(NND, 0, 11) & " - " & INFO_DAT(NND, 0, 12)

Case Else
MsgBox "ERRORE", , ACT_MOD
End Select

L = INPUT_NUM(NND, "L", 0, ACT_MOD)
H = INPUT_NUM(NND, "H", H, ACT_MOD)
SPS = INPUT_NUM(NND, "SPS", SPS, ACT_MOD)
M1 = INPUT_NUM(NND, "M1", M1, ACT_MOD)
M2 = INPUT_NUM(NND, "M2", M2, ACT_MOD)
M3 = INPUT_NUM(NND, "M3", M3, ACT_MOD)
M4 = INPUT_NUM(NND, "M4", M4, ACT_MOD)
M5 = INPUT_NUM(NND, "M5", M5, ACT_MOD)
M6 = INPUT_NUM(NND, "M6", M6, ACT_MOD)
M7 = INPUT_NUM(NND, "M7", M7, ACT_MOD)
M8 = INPUT_NUM(NND, "M8", M8, ACT_MOD)
M9 = INPUT_NUM(NND, "M9", M9, ACT_MOD)
M10 = INPUT_NUM(NND, "M10", M10, ACT_MOD)
M11 = INPUT_NUM(NND, "M11", M11, ACT_MOD)
M12 = INPUT_NUM(NND, "M12", M12, ACT_MOD)
M13 = INPUT_NUM(NND, "M13", M13, ACT_MOD)
M14 = INPUT_NUM(NND, "M14", M14, ACT_MOD)
M15 = INPUT_NUM(NND, "M15", M15, ACT_MOD)
M16 = INPUT_NUM(NND, "M16", M16, ACT_MOD)
M17 = INPUT_NUM(NND, "M17", M17, ACT_MOD)
M18 = INPUT_NUM(NND, "M18", M18, ACT_MOD)
M19 = INPUT_NUM(NND, "M19", M19, ACT_MOD)
M20 = INPUT_NUM(NND, "M20", M20, ACT_MOD)
M21 = INPUT_NUM(NND, "M21", M21, ACT_MOD)
VV = Val(Replace(INFO_DAT(NND, 0, 7), "P", ""))


'************************************* SCRITTURA LISTATO

Select Case VV
Case 1, 5

R01 = T_RECT1(-3, M18, -3, H - 81.5) & T_RECT1(L - M19, L + 3, -3, H - 81.5)
R02 = T_CIRC(L / 2 + M15 + M13, M14, 8) & T_CIRC(L / 2 + M15, M14, 8) & T_CIRC(L / 2 - M15, M14, 8) & T_CIRC(L / 2 - M15 - M17, M14, 8)
If M21 > 0 Then R07 = T_CIRC(L / 2 + M15 + M13 - M21, M14, 8) Else R07 = ""
If M20 > 0 Then R08 = T_CIRC(L / 2 - M15 - M17 + M20, M14, 8) Else R08 = ""
R03 = T_CIRC(75, H - 50.75, 9) & T_CIRC(L / 2 - M10, H - 50.75, 9) & T_CIRC(L / 2, H - 50.75, 9) & T_CIRC(L / 2 + M10, H - 50.75, 9) & T_CIRC(L - 75, H - 50.75, 9)
R04 = T_RECT1(M2, M2 + 23, H - 19, H - 6) & T_RECT1(M2 + M1, M2 + M1 + 23, H - 19, H - 6) & T_RECT1(M2 + 2 * M1, M2 + 2 * M1 + 23, H - 19, H - 6) & T_RECT1(M2 + 3 * M1, M2 + 3 * M1 + 23, H - 19, H - 6) & T_SLOT(M2 + 3 * M1 - 35, H - 13, 20, 8.5, 90)
R05 = T_SLOT(L - M9 + M7, H - 39.75, 45, 9, 0) & T_SLOT(L - M9 + 33, H - 39.75, 45, 9, 0) & T_SLOT(L - M9 - 33, H - 39.75, 45, 9, 0) & T_SLOT(L - M9 - M8, H - 39.75, 45, 9, 0)
R06 = T_RECT1(L - M9 + M4 - 22.5, L - M9 + M4 + 22.5, H - 71.75, H - 57.75) & T_RECT1(L - M9 + M3 - 22.5, L - M9 + M3 + 22.5, H - 71.75, H - 57.75) & T_RECT1(L - M9 - M5 - 22.5, L - M9 - M5 + 22.5, H - 71.75, H - 57.75) & T_RECT1(L - M9 - M6 - 22.5, L - M9 - M6 + 22.5, H - 71.75, H - 57.75)

Case 2, 6

R01 = T_RECT1(-3, M18, M12 + M16 - 18, H + 3) & T_RECT1(L - M19, L + 10, -3, H - 81.5)
R02 = T_CIRC(M18 + M11 / 2 + M15 + M13, M14, 8) & T_CIRC(M18 + M11 / 2 + M15, M14, 8) & T_CIRC(M18 + M11 / 2 - M15, M14, 8) & T_CIRC(M18 + M11 / 2 - M15 - M17, M14, 8)
If M21 > 0 Then R07 = T_CIRC(M18 + M11 / 2 + M15 + M13 - M21, M14, 8) Else R07 = ""
If M20 > 0 Then R08 = T_CIRC(M18 + M11 / 2 - M15 - M17 + M20, M14, 8) Else R08 = ""
R03 = T_CIRC(M18 + 75, H - 50.75, 9) & T_CIRC(M18 + M11 / 2 - M10, H - 50.75, 9) & T_CIRC(M18 + M11 / 2, H - 50.75, 9) & T_CIRC(M18 + M11 / 2 + M10, H - 50.75, 9) & T_CIRC(L - 75, H - 50.75, 9)
R04 = T_RECT1(M18 + M2, M18 + M2 + 23, H - 19, H - 6) & T_RECT1(M18 + M2 + M1, M18 + M2 + M1 + 23, H - 19, H - 6) & T_RECT1(M18 + M2 + 2 * M1, M18 + M2 + 2 * M1 + 23, H - 19, H - 6) & T_RECT1(M18 + M2 + 3 * M1, M18 + M2 + 3 * M1 + 23, H - 19, H - 6) & T_SLOT(M18 + M2 + 3 * M1 - 35, H - 13, 20, 8.5, 90)
R05 = T_SLOT(L - M9 + M7, H - 39.75, 45, 9, 0) & T_SLOT(L - M9 + 33, H - 39.75, 45, 9, 0) & T_SLOT(L - M9 - 33, H - 39.75, 45, 9, 0) & T_SLOT(L - M9 - M8, H - 39.75, 45, 9, 0)
R06 = T_RECT1(L - M9 + M4 - 22.5, L - M9 + M4 + 22.5, H - 71.75, H - 57.75) & T_RECT1(L - M9 + M3 - 22.5, L - M9 + M3 + 22.5, H - 71.75, H - 57.75) & T_RECT1(L - M9 - M5 - 22.5, L - M9 - M5 + 22.5, H - 71.75, H - 57.75) & T_RECT1(L - M9 - M6 - 22.5, L - M9 - M6 + 22.5, H - 71.75, H - 57.75)

Case 3, 7
R01 = T_RECT1(-3, M18, -3, H - 81.5) & T_RECT1(L - M19, L + 3, M12 + M16 - 18, H + 3)
R02 = T_CIRC(M11 / 2 + M15 + M13, M14, 8) & T_CIRC(M11 / 2 + M15, M14, 8) & T_CIRC(M11 / 2 - M15, M14, 8) & T_CIRC(M11 / 2 - M15 - M17, M14, 8)
If M21 > 0 Then R07 = T_CIRC(M11 / 2 + M15 + M13 - M21, M14, 8) Else R07 = ""
If M20 > 0 Then R08 = T_CIRC(M11 / 2 - M15 - M17 + M20, M14, 8) Else R08 = ""
R03 = T_CIRC(75, H - 50.75, 9) & T_CIRC(M11 / 2 - M10, H - 50.75, 9) & T_CIRC(M11 / 2, H - 50.75, 9) & T_CIRC(M11 / 2 + M10, H - 50.75, 9) & T_CIRC(L - M19 - 75, H - 50.75, 9)
R04 = T_RECT1(M2, M2 + 23, H - 19, H - 6) & T_RECT1(M2 + M1, M2 + M1 + 23, H - 19, H - 6) & T_RECT1(M2 + 2 * M1, M2 + 2 * M1 + 23, H - 19, H - 6) & T_RECT1(M2 + 3 * M1, M2 + 3 * M1 + 23, H - 19, H - 6) & T_SLOT(M2 + 3 * M1 - 35, H - 13, 20, 8.5, 90)
R05 = T_SLOT(L - M19 - M9 + M7, H - 39.75, 45, 9, 0) & T_SLOT(L - M19 - M9 + 33, H - 39.75, 45, 9, 0) & T_SLOT(L - M19 - M9 - 33, H - 39.75, 45, 9, 0) & T_SLOT(L - M19 - M9 - M8, H - 39.75, 45, 9, 0)
R06 = T_RECT1(L - M19 - M9 + M4 - 22.5, L - M19 - M9 + M4 + 22.5, H - 71.75, H - 57.75) & T_RECT1(L - M19 - M9 + M3 - 22.5, L - M19 - M9 + M3 + 22.5, H - 71.75, H - 57.75) & T_RECT1(L - M19 - M9 - M5 - 22.5, L - M19 - M9 - M5 + 22.5, H - 71.75, H - 57.75) & T_RECT1(L - M19 - M9 - M6 - 22.5, L - M19 - M9 - M6 + 22.5, H - 71.75, H - 57.75)

Case 4, 8
R01 = T_RECT1(-10, M18, M12 + M16 - 18, H + 3) & T_RECT1(L - M19, L + 10, M12 + M16 - 18, H + 3)
R02 = T_CIRC(M18 + M11 / 2 + M15 + M13, M14, 8) & T_CIRC(M18 + M11 / 2 + M15, M14, 8) & T_CIRC(M18 + M11 / 2 - M15, M14, 8) & T_CIRC(M18 + M11 / 2 - M15 - M17, M14, 8)
If M21 > 0 Then R07 = T_CIRC(M18 + M11 / 2 + M15 + M13 - M21, M14, 8) Else R07 = ""
If M20 > 0 Then R08 = T_CIRC(M18 + M11 / 2 - M15 - M17 + M20, M14, 8) Else R08 = ""
R03 = T_CIRC(M18 + 75, H - 50.75, 9) & T_CIRC(M18 + M11 / 2 - M10, H - 50.75, 9) & T_CIRC(M18 + M11 / 2, H - 50.75, 9) & T_CIRC(M18 + M11 / 2 + M10, H - 50.75, 9) & T_CIRC(L - M19 - 75, H - 50.75, 9)
R04 = T_RECT1(M18 + M2, M18 + M2 + 23, H - 19, H - 6) & T_RECT1(M18 + M2 + M1, M18 + M2 + M1 + 23, H - 19, H - 6) & T_RECT1(M18 + M2 + 2 * M1, M18 + M2 + 2 * M1 + 23, H - 19, H - 6) & T_RECT1(M18 + M2 + 3 * M1, M18 + M2 + 3 * M1 + 23, H - 19, H - 6) & T_SLOT(M18 + M2 + 3 * M1 - 35, H - 13, 20, 8.5, 90)
R05 = T_SLOT(L - M19 - M9 + M7, H - 39.75, 45, 9, 0) & T_SLOT(L - M19 - M9 + 33, H - 39.75, 45, 9, 0) & T_SLOT(L - M19 - M9 - 33, H - 39.75, 45, 9, 0) & T_SLOT(L - M19 - M9 - M8, H - 39.75, 45, 9, 0)
R06 = T_RECT1(L - M19 - M9 + M4 - 22.5, L - M19 - M9 + M4 + 22.5, H - 71.75, H - 57.75) & T_RECT1(L - M19 - M9 + M3 - 22.5, L - M19 - M9 + M3 + 22.5, H - 71.75, H - 57.75) & T_RECT1(L - M19 - M9 - M5 - 22.5, L - M19 - M9 - M5 + 22.5, H - 71.75, H - 57.75) & T_RECT1(L - M19 - M9 - M6 - 22.5, L - M19 - M9 - M6 + 22.5, H - 71.75, H - 57.75)

Case Else
MsgBox "ERRORE VERSIONE SU " & ACT_MOD
End Select


P1 = L / 2 - M15 + 100
P2 = L / 2 + M15 - 100
MVAL = 500

STRINGA = R000_vpr(NHD, CTT, SPS / 10, L, H, P1, P2, QTT, comm, RAGG, CODR, MVAL, INFO_DAT(NND, 0, 5)) & R01 & R02 & R03 & R04 & R05 & R06 & R07 & R08
Call SAVE_SUB(NND, STRINGA)

ACT_MOD = ""
End Sub



Sub V_1016428A(ByVal NND As Integer)
ACT_MOD = "1016428"
NHD = 10
'MsgBox "CONTROLLARE " & ACT_MOD & ", NUOVA REVISIONE!!!!!"
'AGGIORNATO 24/12/2017
'************************************* INPUT
If NND > 0 Then ON_MD = 2 Else ON_MD = 1
Select Case ON_MD
Case 1
comm = INPUT_STR(NND, "COMMESSA", comm, ACT_MOD)
Case 2
comm = INFO_DAT(NND, 0, 2)
RAGG = INFO_DAT(NND, 0, 3)
QTT = INFO_DAT(NND, 0, 4)
CODR = INFO_DAT(NND, 0, 10) & " - " & INFO_DAT(NND, 0, 11) & " - " & INFO_DAT(NND, 0, 12)

Case Else
MsgBox "ERRORE", , ACT_MOD
End Select

L = INPUT_NUM(NND, "L", 0, ACT_MOD)
H = INPUT_NUM(NND, "H", H, ACT_MOD)
SPS = INPUT_NUM(NND, "SPS", SPS, ACT_MOD)
M1 = INPUT_NUM(NND, "M1", M1, ACT_MOD)
M2 = INPUT_NUM(NND, "M2", M2, ACT_MOD)
M3 = INPUT_NUM(NND, "M3", M3, ACT_MOD)
M4 = INPUT_NUM(NND, "M4", M4, ACT_MOD)
M5 = INPUT_NUM(NND, "M5", M5, ACT_MOD)
M6 = INPUT_NUM(NND, "M6", M6, ACT_MOD)
M7 = INPUT_NUM(NND, "M7", M7, ACT_MOD)
M8 = INPUT_NUM(NND, "M8", M8, ACT_MOD)
M9 = INPUT_NUM(NND, "M9", M9, ACT_MOD)
M10 = INPUT_NUM(NND, "M10", M10, ACT_MOD)
M11 = INPUT_NUM(NND, "M11", M11, ACT_MOD)
M12 = INPUT_NUM(NND, "M12", M12, ACT_MOD)
M13 = INPUT_NUM(NND, "M13", M13, ACT_MOD)
M14 = INPUT_NUM(NND, "M14", M14, ACT_MOD)
M15 = INPUT_NUM(NND, "M15", M15, ACT_MOD)
M16 = INPUT_NUM(NND, "M16", M16, ACT_MOD)
M17 = INPUT_NUM(NND, "M17", M17, ACT_MOD)
M18 = INPUT_NUM(NND, "M18", M18, ACT_MOD)
M19 = INPUT_NUM(NND, "M19", M19, ACT_MOD)
M20 = INPUT_NUM(NND, "M20", M20, ACT_MOD)
M21 = INPUT_NUM(NND, "M21", M21, ACT_MOD)
VV = Val(Replace(INFO_DAT(NND, 0, 7), "P", ""))



'************************************* SCRITTURA LISTATO

Select Case VV
Case 1, 5

R01 = T_RECT1(-3, M18, -3, H - 81.5) & T_RECT1(L - M19, L + 3, -3, H - 81.5)
R02 = T_CIRC(L / 2 + M15 + M13, M14, 8) & T_CIRC(L / 2 + M15, M14, 8) & T_CIRC(L / 2 - M15, M14, 8) & T_CIRC(L / 2 - M15 - M17, M14, 8)
If M21 > 0 Then R09 = T_CIRC(L / 2 + M15 + M13 - M21, M14, 8) Else R09 = ""
If M20 > 0 Then R10 = T_CIRC(L / 2 - M15 - M17 + M20, M14, 8) Else R10 = ""
R03 = T_CIRC(75, H - 50.75, 9) & T_CIRC(L / 2 - M10, H - 50.75, 9) & T_CIRC(L / 2, H - 50.75, 9) & T_CIRC(L / 2 + M10, H - 50.75, 9) & T_CIRC(L - 75, H - 50.75, 9)
R04 = T_RECT1(M2, M2 + 23, H - 19, H - 6) & T_RECT1(M2 + M1, M2 + M1 + 23, H - 19, H - 6) & T_RECT1(M2 + 2 * M1, M2 + 2 * M1 + 23, H - 19, H - 6) & T_RECT1(M2 + 3 * M1, M2 + 3 * M1 + 23, H - 19, H - 6) & T_SLOT(M2 + 3 * M1 - 35, H - 13, 20, 8.5, 90)
R05 = T_SLOT(L - M9 + M7, H - 39.75, 45, 9, 0) & T_SLOT(L - M9 + 33, H - 39.75, 45, 9, 0) & T_SLOT(L - M9 - 33, H - 39.75, 45, 9, 0) & T_SLOT(L - M9 - M8, H - 39.75, 45, 9, 0)
R06 = T_RECT1(L - M9 + M4 - 22.5, L - M9 + M4 + 22.5, H - 71.75, H - 57.75) & T_RECT1(L - M9 + M3 - 22.5, L - M9 + M3 + 22.5, H - 71.75, H - 57.75) & T_RECT1(L - M9 - M5 - 22.5, L - M9 - M5 + 22.5, H - 71.75, H - 57.75) & T_RECT1(L - M9 - M6 - 22.5, L - M9 - M6 + 22.5, H - 71.75, H - 57.75)
R07 = T_SLOT(M9 - M7, H - 39.75, 45, 9, 0) & T_SLOT(M9 - 33, H - 39.75, 45, 9, 0) & T_SLOT(M9 + 33, H - 39.75, 45, 9, 0) & T_SLOT(M9 + M8, H - 39.75, 45, 9, 0)
R08 = T_RECT1(M9 - M4 - 22.5, M9 - M4 + 22.5, H - 71.75, H - 57.75) & T_RECT1(M9 - M3 - 22.5, M9 - M3 + 22.5, H - 71.75, H - 57.75) & T_RECT1(M9 + M5 - 22.5, M9 + M5 + 22.5, H - 71.75, H - 57.75) & T_RECT1(M9 + M6 - 22.5, M9 + M6 + 22.5, H - 71.75, H - 57.75)

Case 2, 6

R01 = T_RECT1(-3, M18, M12 + M16 - 18, H + 3) & T_RECT1(L - M19, L + 10, -3, H - 81.5)
R02 = T_CIRC(M18 + M11 / 2 + M15 + M13, M14, 8) & T_CIRC(M18 + M11 / 2 + M15, M14, 8) & T_CIRC(M18 + M11 / 2 - M15, M14, 8) & T_CIRC(M18 + M11 / 2 - M15 - M17, M14, 8)
If M21 > 0 Then R09 = T_CIRC(M18 + M11 / 2 + M15 + M13 - M21, M14, 8) Else R09 = ""
If M20 > 0 Then R10 = T_CIRC(M18 + M11 / 2 - M15 - M17 + M20, M14, 8) Else R10 = ""
R03 = T_CIRC(M18 + 75, H - 50.75, 9) & T_CIRC(M18 + M11 / 2 - M10, H - 50.75, 9) & T_CIRC(M18 + M11 / 2, H - 50.75, 9) & T_CIRC(M18 + M11 / 2 + M10, H - 50.75, 9) & T_CIRC(L - 75, H - 50.75, 9)
R04 = T_RECT1(M18 + M2, M18 + M2 + 23, H - 19, H - 6) & T_RECT1(M18 + M2 + M1, M18 + M2 + M1 + 23, H - 19, H - 6) & T_RECT1(M18 + M2 + 2 * M1, M18 + M2 + 2 * M1 + 23, H - 19, H - 6) & T_RECT1(M18 + M2 + 3 * M1, M18 + M2 + 3 * M1 + 23, H - 19, H - 6) & T_SLOT(M18 + M2 + 3 * M1 - 35, H - 13, 20, 8.5, 90)
R05 = T_SLOT(L - M9 + M7, H - 39.75, 45, 9, 0) & T_SLOT(L - M9 + 33, H - 39.75, 45, 9, 0) & T_SLOT(L - M9 - 33, H - 39.75, 45, 9, 0) & T_SLOT(L - M9 - M8, H - 39.75, 45, 9, 0)
R06 = T_RECT1(L - M9 + M4 - 22.5, L - M9 + M4 + 22.5, H - 71.75, H - 57.75) & T_RECT1(L - M9 + M3 - 22.5, L - M9 + M3 + 22.5, H - 71.75, H - 57.75) & T_RECT1(L - M9 - M5 - 22.5, L - M9 - M5 + 22.5, H - 71.75, H - 57.75) & T_RECT1(L - M9 - M6 - 22.5, L - M9 - M6 + 22.5, H - 71.75, H - 57.75)
R07 = T_SLOT(M18 + M9 - M7, H - 39.75, 45, 9, 0) & T_SLOT(M18 + M9 - 33, H - 39.75, 45, 9, 0) & T_SLOT(M18 + M9 + 33, H - 39.75, 45, 9, 0) & T_SLOT(M18 + M9 + M8, H - 39.75, 45, 9, 0)
R08 = T_RECT1(M18 + M9 - M4 - 22.5, M18 + M9 - M4 + 22.5, H - 71.75, H - 57.75) & T_RECT1(M18 + M9 - M3 - 22.5, M18 + M9 - M3 + 22.5, H - 71.75, H - 57.75) & T_RECT1(M18 + M9 + M5 - 22.5, M18 + M9 + M5 + 22.5, H - 71.75, H - 57.75) & T_RECT1(M18 + M9 + M6 - 22.5, M18 + M9 + M6 + 22.5, H - 71.75, H - 57.75)

Case 3, 7
R01 = T_RECT1(-3, M18, -3, H - 81.5) & T_RECT1(L - M19, L + 3, M12 + M16 - 18, H + 3)
R02 = T_CIRC(M11 / 2 + M15 + M13, M14, 8) & T_CIRC(M11 / 2 + M15, M14, 8) & T_CIRC(M11 / 2 - M15, M14, 8) & T_CIRC(M11 / 2 - M15 - M17, M14, 8)
If M21 > 0 Then R09 = T_CIRC(M11 / 2 + M15 + M13 - M21, M14, 8) Else R09 = ""
If M20 > 0 Then R10 = T_CIRC(M11 / 2 - M15 - M17 + M20, M14, 8) Else R10 = ""
R03 = T_CIRC(75, H - 50.75, 9) & T_CIRC(M11 / 2 - M10, H - 50.75, 9) & T_CIRC(M11 / 2, H - 50.75, 9) & T_CIRC(M11 / 2 + M10, H - 50.75, 9) & T_CIRC(L - M19 - 75, H - 50.75, 9)
R04 = T_RECT1(M2, M2 + 23, H - 19, H - 6) & T_RECT1(M2 + M1, M2 + M1 + 23, H - 19, H - 6) & T_RECT1(M2 + 2 * M1, M2 + 2 * M1 + 23, H - 19, H - 6) & T_RECT1(M2 + 3 * M1, M2 + 3 * M1 + 23, H - 19, H - 6) & T_SLOT(M2 + 3 * M1 - 35, H - 13, 20, 8.5, 90)
R05 = T_SLOT(L - M19 - M9 + M7, H - 39.75, 45, 9, 0) & T_SLOT(L - M19 - M9 + 33, H - 39.75, 45, 9, 0) & T_SLOT(L - M19 - M9 - 33, H - 39.75, 45, 9, 0) & T_SLOT(L - M19 - M9 - M8, H - 39.75, 45, 9, 0)
R06 = T_RECT1(L - M19 - M9 + M4 - 22.5, L - M19 - M9 + M4 + 22.5, H - 71.75, H - 57.75) & T_RECT1(L - M19 - M9 + M3 - 22.5, L - M19 - M9 + M3 + 22.5, H - 71.75, H - 57.75) & T_RECT1(L - M19 - M9 - M5 - 22.5, L - M19 - M9 - M5 + 22.5, H - 71.75, H - 57.75) & T_RECT1(L - M19 - M9 - M6 - 22.5, L - M19 - M9 - M6 + 22.5, H - 71.75, H - 57.75)
R07 = T_SLOT(M9 - M7, H - 39.75, 45, 9, 0) & T_SLOT(M9 - 33, H - 39.75, 45, 9, 0) & T_SLOT(M9 + 33, H - 39.75, 45, 9, 0) & T_SLOT(M9 + M8, H - 39.75, 45, 9, 0)
R08 = T_RECT1(M9 - M4 - 22.5, M9 - M4 + 22.5, H - 71.75, H - 57.75) & T_RECT1(M9 - M3 - 22.5, M9 - M3 + 22.5, H - 71.75, H - 57.75) & T_RECT1(M9 + M5 - 22.5, M9 + M5 + 22.5, H - 71.75, H - 57.75) & T_RECT1(M9 + M6 - 22.5, M9 + M6 + 22.5, H - 71.75, H - 57.75)

Case 4, 8
R01 = T_RECT1(-10, M18, M12 + M16 - 18, H + 3) & T_RECT1(L - M19, L + 10, M12 + M16 - 18, H + 3)
R02 = T_CIRC(M18 + M11 / 2 + M15 + M13, M14, 8) & T_CIRC(M18 + M11 / 2 + M15, M14, 8) & T_CIRC(M18 + M11 / 2 - M15, M14, 8) & T_CIRC(M18 + M11 / 2 - M15 - M17, M14, 8)
If M21 > 0 Then R09 = T_CIRC(M18 + M11 / 2 + M15 + M13 - M21, M14, 8) Else R09 = ""
If M20 > 0 Then R10 = T_CIRC(M18 + M11 / 2 - M15 - M17 + M20, M14, 8) Else R10 = ""
R03 = T_CIRC(M18 + 75, H - 50.75, 9) & T_CIRC(M18 + M11 / 2 - M10, H - 50.75, 9) & T_CIRC(M18 + M11 / 2, H - 50.75, 9) & T_CIRC(M18 + M11 / 2 + M10, H - 50.75, 9) & T_CIRC(L - M19 - 75, H - 50.75, 9)
R04 = T_RECT1(M18 + M2, M18 + M2 + 23, H - 19, H - 6) & T_RECT1(M18 + M2 + M1, M18 + M2 + M1 + 23, H - 19, H - 6) & T_RECT1(M18 + M2 + 2 * M1, M18 + M2 + 2 * M1 + 23, H - 19, H - 6) & T_RECT1(M18 + M2 + 3 * M1, M18 + M2 + 3 * M1 + 23, H - 19, H - 6) & T_SLOT(M18 + M2 + 3 * M1 - 35, H - 13, 20, 8.5, 90)
R05 = T_SLOT(L - M19 - M9 + M7, H - 39.75, 45, 9, 0) & T_SLOT(L - M19 - M9 + 33, H - 39.75, 45, 9, 0) & T_SLOT(L - M19 - M9 - 33, H - 39.75, 45, 9, 0) & T_SLOT(L - M19 - M9 - M8, H - 39.75, 45, 9, 0)
R06 = T_RECT1(L - M19 - M9 + M4 - 22.5, L - M19 - M9 + M4 + 22.5, H - 71.75, H - 57.75) & T_RECT1(L - M19 - M9 + M3 - 22.5, L - M19 - M9 + M3 + 22.5, H - 71.75, H - 57.75) & T_RECT1(L - M19 - M9 - M5 - 22.5, L - M19 - M9 - M5 + 22.5, H - 71.75, H - 57.75) & T_RECT1(L - M19 - M9 - M6 - 22.5, L - M19 - M9 - M6 + 22.5, H - 71.75, H - 57.75)
R07 = T_SLOT(M18 + M9 - M7, H - 39.75, 45, 9, 0) & T_SLOT(M18 + M9 - 33, H - 39.75, 45, 9, 0) & T_SLOT(M18 + M9 + 33, H - 39.75, 45, 9, 0) & T_SLOT(M18 + M9 + M8, H - 39.75, 45, 9, 0)
R08 = T_RECT1(M18 + M9 - M4 - 22.5, M18 + M9 - M4 + 22.5, H - 71.75, H - 57.75) & T_RECT1(M18 + M9 - M3 - 22.5, M18 + M9 - M3 + 22.5, H - 71.75, H - 57.75) & T_RECT1(M18 + M9 + M5 - 22.5, M18 + M9 + M5 + 22.5, H - 71.75, H - 57.75) & T_RECT1(M18 + M9 + M6 - 22.5, M18 + M9 + M6 + 22.5, H - 71.75, H - 57.75)

Case Else
MsgBox "ERRORE VERSIONE SU " & ACT_MOD
End Select


P1 = L / 2 - M15 + 100
P2 = L / 2 + M15 - 100
MVAL = 500

STRINGA = R000_vpr(NHD, CTT, SPS / 10, L, H, P1, P2, QTT, comm, RAGG, CODR, MVAL, INFO_DAT(NND, 0, 5)) & R01 & R02 & R03 & R04 & R05 & R06 & R07 & R08 & R09 & R10
Call SAVE_SUB(NND, STRINGA)

ACT_MOD = ""
End Sub


Sub V_1023837A(ByVal NND As Integer)
ACT_MOD = "1023837"
NHD = 10
'MsgBox "CONTROLLARE " & ACT_MOD & ", NUOVA REVISIONE!!!!!"
'AGGIORNATO 10/04/2017
'************************************* INPUT
If NND > 0 Then ON_MD = 2 Else ON_MD = 1
Select Case ON_MD
Case 1
comm = INPUT_STR(NND, "COMMESSA", comm, ACT_MOD)
Case 2
comm = INFO_DAT(NND, 0, 2)
RAGG = INFO_DAT(NND, 0, 3)
QTT = INFO_DAT(NND, 0, 4)
CODR = INFO_DAT(NND, 0, 10) & " - " & INFO_DAT(NND, 0, 11) & " - " & INFO_DAT(NND, 0, 12)

Case Else
MsgBox "ERRORE", , ACT_MOD
End Select

L = INPUT_NUM(NND, "L", 0, ACT_MOD)
H = INPUT_NUM(NND, "H", H, ACT_MOD)
SPS = INPUT_NUM(NND, "SPS", SPS, ACT_MOD)
M1 = INPUT_NUM(NND, "M1", M1, ACT_MOD)
M2 = INPUT_NUM(NND, "M2", M2, ACT_MOD)
M3 = INPUT_NUM(NND, "M3", M3, ACT_MOD)
M4 = INPUT_NUM(NND, "M4", M4, ACT_MOD)
M5 = INPUT_NUM(NND, "M5", M5, ACT_MOD)
M6 = INPUT_NUM(NND, "M6", M6, ACT_MOD)
M7 = INPUT_NUM(NND, "M7", M7, ACT_MOD)
M8 = INPUT_NUM(NND, "M8", M8, ACT_MOD)
M9 = INPUT_NUM(NND, "M9", M9, ACT_MOD)
M10 = INPUT_NUM(NND, "M10", M10, ACT_MOD)
M11 = INPUT_NUM(NND, "M11", M11, ACT_MOD)
M12 = INPUT_NUM(NND, "M12", M12, ACT_MOD)
M13 = INPUT_NUM(NND, "M13", M13, ACT_MOD)
M14 = INPUT_NUM(NND, "M14", M14, ACT_MOD)
M15 = INPUT_NUM(NND, "M15", M15, ACT_MOD)
M16 = INPUT_NUM(NND, "M16", M16, ACT_MOD)
M17 = INPUT_NUM(NND, "M17", M17, ACT_MOD)
M18 = INPUT_NUM(NND, "M18", M18, ACT_MOD)
M19 = INPUT_NUM(NND, "M19", M19, ACT_MOD)
M20 = INPUT_NUM(NND, "M20", M20, ACT_MOD)
M21 = INPUT_NUM(NND, "M21", M21, ACT_MOD)
VV = Val(Replace(INFO_DAT(NND, 0, 7), "P", ""))



'************************************* SCRITTURA LISTATO




P1 = L / 2 - M15 + 100
P2 = L / 2 + M15 - 100
MVAL = 500

STRINGA = R000_vpr(NHD, CTT, SPS / 10, L, H, P1, P2, QTT, comm, RAGG, CODR, MVAL, INFO_DAT(NND, 0, 5)) & R01 & R02 & R03 & R04 & R05 & R06 & R07 & R08 & R09 & R10
Call SAVE_SUB(NND, STRINGA)

ACT_MOD = ""
End Sub



Sub V_1016416F(ByVal NND As Integer)
ACT_MOD = "1016416"
NHD = 10
'MsgBox "CONTROLLARE " & ACT_MOD & ", NUOVA REVISIONE!!!!!"
'AGGIORNATO 28/05/2018
'************************************* INPUT
If NND > 0 Then ON_MD = 2 Else ON_MD = 1
Select Case ON_MD
Case 1
comm = INPUT_STR(NND, "COMMESSA", comm, ACT_MOD)
Case 2
comm = INFO_DAT(NND, 0, 2)
RAGG = INFO_DAT(NND, 0, 3)
QTT = INFO_DAT(NND, 0, 4)
CODR = INFO_DAT(NND, 0, 10) & " - " & INFO_DAT(NND, 0, 11) & " - " & INFO_DAT(NND, 0, 12)
Case Else
MsgBox "ERRORE", , ACT_MOD
End Select

L = INPUT_NUM(NND, "L", 0, ACT_MOD)
H = INPUT_NUM(NND, "H", H, ACT_MOD)
SPS = INPUT_NUM(NND, "SPS", SPS, ACT_MOD)
M1 = INPUT_NUM(NND, "M1", M1, ACT_MOD)
M2 = INPUT_NUM(NND, "M2", M2, ACT_MOD)
M3 = INPUT_NUM(NND, "M3", M3, ACT_MOD)
M4 = INPUT_NUM(NND, "M4", M4, ACT_MOD)
M5 = INPUT_NUM(NND, "M5", M5, ACT_MOD)
M6 = INPUT_NUM(NND, "M6", M6, ACT_MOD)
M7 = INPUT_NUM(NND, "M7", M7, ACT_MOD)
M8 = INPUT_NUM(NND, "M8", M8, ACT_MOD)
M9 = INPUT_NUM(NND, "M9", M9, ACT_MOD)
M10 = INPUT_NUM(NND, "M10", M10, ACT_MOD)
M11 = INPUT_NUM(NND, "M11", M11, ACT_MOD)
M12 = INPUT_NUM(NND, "M12", M12, ACT_MOD)
M13 = INPUT_NUM(NND, "M13", M13, ACT_MOD)
M14 = INPUT_NUM(NND, "M14", M14, ACT_MOD)
M15 = INPUT_NUM(NND, "M15", M15, ACT_MOD)
M16 = INPUT_NUM(NND, "M16", M16, ACT_MOD)
M17 = INPUT_NUM(NND, "M17", M17, ACT_MOD)
M18 = INPUT_NUM(NND, "M18", M18, ACT_MOD)
M19 = INPUT_NUM(NND, "M19", M19, ACT_MOD)
M20 = INPUT_NUM(NND, "M20", M20, ACT_MOD)
M21 = INPUT_NUM(NND, "M21", M21, ACT_MOD)
M22 = INPUT_NUM(NND, "M22", M22, ACT_MOD)
M23 = INPUT_NUM(NND, "M23", M23, ACT_MOD)
M24 = INPUT_NUM(NND, "M24", M24, ACT_MOD)
M25 = INPUT_NUM(NND, "M25", M25, ACT_MOD)
VV = Val(Replace(INFO_DAT(NND, 0, 7), "P", ""))


'************************************* SCRITTURA LISTATO

Select Case VV
Case 1, 5

R01 = T_RECT1(-5, M18, -3, H - 81.5) & T_RECT1(L - M19, L + 5, -3, H - 81.5)

R02 = T_CIRC(L / 2 + M15 + M13, M14, 8) & T_CIRC(L / 2 + M15, M14 - M25, 8) & T_CIRC(L / 2 - M22, M23 - M24, 8) & T_CIRC(L / 2 - M22 - M17, M23, 8)
If M21 > 0 Then R07 = T_CIRC(L / 2 + M15 + M13 - M21, M14, 8) Else R07 = ""
If M20 > 0 Then R08 = T_CIRC(L / 2 - M22 - M17 + M20, M23, 8) Else R08 = ""

R03 = T_CIRC(75, H - 50.75, 9) & T_SLOT(L / 2 - M10, H - 50.75, 25, 8.5, 0) & T_SLOT(L / 2, H - 50.75, 25, 8.5, 0) & T_SLOT(L / 2 + M10, H - 50.75, 25, 8.5, 0) & T_CIRC(L - 75, H - 50.75, 9)
R04 = T_RECT1(M2, M2 + 23, H - 19, H - 6) & T_RECT1(M2 + M1, M2 + M1 + 23, H - 19, H - 6) & T_RECT1(M2 + 2 * M1, M2 + 2 * M1 + 23, H - 19, H - 6) & T_RECT1(M2 + 3 * M1, M2 + 3 * M1 + 23, H - 19, H - 6) & T_SLOT(M2 + 3 * M1 - 35, H - 13, 20, 8.5, 90)
R05 = T_SLOT(L - M9 + M7, H - 39.75, 45, 9, 0) & T_SLOT(L - M9 + 33, H - 39.75, 45, 9, 0) & T_SLOT(L - M9 - 33, H - 39.75, 45, 9, 0) & T_SLOT(L - M9 - M8, H - 39.75, 45, 9, 0)
R06 = T_RECT1(L - M9 + M4 - 22.5, L - M9 + M4 + 22.5, H - 71.75, H - 57.75) & T_RECT1(L - M9 + M3 - 22.5, L - M9 + M3 + 22.5, H - 71.75, H - 57.75) & T_RECT1(L - M9 - M5 - 22.5, L - M9 - M5 + 22.5, H - 71.75, H - 57.75) & T_RECT1(L - M9 - M6 - 22.5, L - M9 - M6 + 22.5, H - 71.75, H - 57.75)

R09 = T_SMUS_ST(L / 2, H)

Case 2, 6

R01 = T_RECT1(-5, M18, M12 + M16 - 18, H + 3) & T_RECT1(L - M19, L + 10, -3, H - 81.5)

R02 = T_CIRC(M18 + M11 / 2 + M15 + M13, M14, 8) & T_CIRC(M18 + M11 / 2 + M15, M14 - M25, 8) & T_CIRC(M18 + M11 / 2 - M22, M23 - M24, 8) & T_CIRC(M18 + M11 / 2 - M22 - M17, M23, 8)
If M21 > 0 Then R07 = T_CIRC(M18 + M11 / 2 + M15 + M13 - M21, M14, 8) Else R07 = ""
If M20 > 0 Then R08 = T_CIRC(M18 + M11 / 2 - M22 - M17 + M20, M23, 8) Else R08 = ""

R03 = T_CIRC(M18 + 75, H - 50.75, 9) & T_SLOT(M18 + M11 / 2 - M10, H - 50.75, 25, 8.5, 0) & T_SLOT(M18 + M11 / 2, H - 50.75, 25, 8.5, 0) & T_SLOT(M18 + M11 / 2 + M10, H - 50.75, 25, 8.5, 0) & T_CIRC(L - 75, H - 50.75, 9)
R04 = T_RECT1(M18 + M2, M18 + M2 + 23, H - 19, H - 6) & T_RECT1(M18 + M2 + M1, M18 + M2 + M1 + 23, H - 19, H - 6) & T_RECT1(M18 + M2 + 2 * M1, M18 + M2 + 2 * M1 + 23, H - 19, H - 6) & T_RECT1(M18 + M2 + 3 * M1, M18 + M2 + 3 * M1 + 23, H - 19, H - 6) & T_SLOT(M18 + M2 + 3 * M1 - 35, H - 13, 20, 8.5, 90)
R05 = T_SLOT(L - M9 + M7, H - 39.75, 45, 9, 0) & T_SLOT(L - M9 + 33, H - 39.75, 45, 9, 0) & T_SLOT(L - M9 - 33, H - 39.75, 45, 9, 0) & T_SLOT(L - M9 - M8, H - 39.75, 45, 9, 0)
R06 = T_RECT1(L - M9 + M4 - 22.5, L - M9 + M4 + 22.5, H - 71.75, H - 57.75) & T_RECT1(L - M9 + M3 - 22.5, L - M9 + M3 + 22.5, H - 71.75, H - 57.75) & T_RECT1(L - M9 - M5 - 22.5, L - M9 - M5 + 22.5, H - 71.75, H - 57.75) & T_RECT1(L - M9 - M6 - 22.5, L - M9 - M6 + 22.5, H - 71.75, H - 57.75)

R09 = T_SMUS_ST(M18 + M11 / 2, H)

Case 3, 7
R01 = T_RECT1(-5, M18, -3, H - 81.5) & T_RECT1(L - M19, L + 5, M12 + M16 - 18, H + 3)

R02 = T_CIRC(M11 / 2 + M15 + M13, M14, 8) & T_CIRC(M11 / 2 + M15, M14 - M25, 8) & T_CIRC(M11 / 2 - M22, M23 - M24, 8) & T_CIRC(M11 / 2 - M22 - M17, M23, 8)
If M21 > 0 Then R07 = T_CIRC(M11 / 2 + M15 + M13 - M21, M14, 8) Else R07 = ""
If M20 > 0 Then R08 = T_CIRC(M11 / 2 - M22 - M17 + M20, M23, 8) Else R08 = ""

R03 = T_CIRC(75, H - 50.75, 9) & T_SLOT(M11 / 2 - M10, H - 50.75, 25, 8.5, 0) & T_SLOT(M11 / 2, H - 50.75, 25, 8.5, 0) & T_SLOT(M11 / 2 + M10, H - 50.75, 25, 8.5, 0) & T_CIRC(L - M19 - 75, H - 50.75, 9)
R04 = T_RECT1(M2, M2 + 23, H - 19, H - 6) & T_RECT1(M2 + M1, M2 + M1 + 23, H - 19, H - 6) & T_RECT1(M2 + 2 * M1, M2 + 2 * M1 + 23, H - 19, H - 6) & T_RECT1(M2 + 3 * M1, M2 + 3 * M1 + 23, H - 19, H - 6) & T_SLOT(M2 + 3 * M1 - 35, H - 13, 20, 8.5, 90)
R05 = T_SLOT(L - M19 - M9 + M7, H - 39.75, 45, 9, 0) & T_SLOT(L - M19 - M9 + 33, H - 39.75, 45, 9, 0) & T_SLOT(L - M19 - M9 - 33, H - 39.75, 45, 9, 0) & T_SLOT(L - M19 - M9 - M8, H - 39.75, 45, 9, 0)
R06 = T_RECT1(L - M19 - M9 + M4 - 22.5, L - M19 - M9 + M4 + 22.5, H - 71.75, H - 57.75) & T_RECT1(L - M19 - M9 + M3 - 22.5, L - M19 - M9 + M3 + 22.5, H - 71.75, H - 57.75) & T_RECT1(L - M19 - M9 - M5 - 22.5, L - M19 - M9 - M5 + 22.5, H - 71.75, H - 57.75) & T_RECT1(L - M19 - M9 - M6 - 22.5, L - M19 - M9 - M6 + 22.5, H - 71.75, H - 57.75)

R09 = T_SMUS_ST(M11 / 2, H)

Case 4, 8
R01 = T_RECT1(-10, M18, M12 + M16 - 18, H + 3) & T_RECT1(L - M19, L + 10, M12 + M16 - 18, H + 3)

R02 = T_CIRC(M18 + M11 / 2 + M15 + M13, M14, 8) & T_CIRC(M18 + M11 / 2 + M15, M14 - M25, 8) & T_CIRC(M18 + M11 / 2 - M22, M23 - M24, 8) & T_CIRC(M18 + M11 / 2 - M22 - M17, M23, 8)
If M21 > 0 Then R07 = T_CIRC(M18 + M11 / 2 + M15 + M13 - M21, M14, 8) Else R07 = ""
If M20 > 0 Then R08 = T_CIRC(M18 + M11 / 2 - M22 - M17 + M20, M23, 8) Else R08 = ""

R03 = T_CIRC(M18 + 75, H - 50.75, 9) & T_SLOT(M18 + M11 / 2 - M10, H - 50.75, 25, 8.5, 0) & T_SLOT(M18 + M11 / 2, H - 50.75, 25, 8.5, 0) & T_SLOT(M18 + M11 / 2 + M10, H - 50.75, 25, 8.5, 0) & T_CIRC(L - M19 - 75, H - 50.75, 9)
R04 = T_RECT1(M18 + M2, M18 + M2 + 23, H - 19, H - 6) & T_RECT1(M18 + M2 + M1, M18 + M2 + M1 + 23, H - 19, H - 6) & T_RECT1(M18 + M2 + 2 * M1, M18 + M2 + 2 * M1 + 23, H - 19, H - 6) & T_RECT1(M18 + M2 + 3 * M1, M18 + M2 + 3 * M1 + 23, H - 19, H - 6) & T_SLOT(M18 + M2 + 3 * M1 - 35, H - 13, 20, 8.5, 90)
R05 = T_SLOT(L - M19 - M9 + M7, H - 39.75, 45, 9, 0) & T_SLOT(L - M19 - M9 + 33, H - 39.75, 45, 9, 0) & T_SLOT(L - M19 - M9 - 33, H - 39.75, 45, 9, 0) & T_SLOT(L - M19 - M9 - M8, H - 39.75, 45, 9, 0)
R06 = T_RECT1(L - M19 - M9 + M4 - 22.5, L - M19 - M9 + M4 + 22.5, H - 71.75, H - 57.75) & T_RECT1(L - M19 - M9 + M3 - 22.5, L - M19 - M9 + M3 + 22.5, H - 71.75, H - 57.75) & T_RECT1(L - M19 - M9 - M5 - 22.5, L - M19 - M9 - M5 + 22.5, H - 71.75, H - 57.75) & T_RECT1(L - M19 - M9 - M6 - 22.5, L - M19 - M9 - M6 + 22.5, H - 71.75, H - 57.75)

R09 = T_SMUS_ST(M18 + M11 / 2, H)

Case Else
MsgBox "ERRORE VERSIONE SU " & ACT_MOD
End Select


P1 = L / 2 - M15 + 100
P2 = L / 2 + M15 - 100
MVAL = 500

STRINGA = R000_vpr(NHD, CTT, SPS / 10, L, H, P1, P2, QTT, comm, RAGG, CODR, MVAL, INFO_DAT(NND, 0, 5)) & R01 & R02 & R03 & R04 & R05 & R06 & R07 & R08 & R09
Call SAVE_SUB(NND, STRINGA)

Call FVTPT(4, NND, "")

ACT_MOD = ""
End Sub


Sub V_1016428D(ByVal NND As Integer)
ACT_MOD = "1016428"
NHD = 10
'MsgBox "CONTROLLARE " & ACT_MOD & ", NUOVA REVISIONE!!!!!"
'AGGIORNATO 28/15/2019
'************************************* INPUT
If NND > 0 Then ON_MD = 2 Else ON_MD = 1
Select Case ON_MD
Case 1
comm = INPUT_STR(NND, "COMMESSA", comm, ACT_MOD)
Case 2
comm = INFO_DAT(NND, 0, 2)
RAGG = INFO_DAT(NND, 0, 3)
QTT = INFO_DAT(NND, 0, 4)
CODR = INFO_DAT(NND, 0, 10) & " - " & INFO_DAT(NND, 0, 11) & " - " & INFO_DAT(NND, 0, 12)
Case Else
MsgBox "ERRORE", , ACT_MOD
End Select

L = INPUT_NUM(NND, "L", 0, ACT_MOD)
H = INPUT_NUM(NND, "H", H, ACT_MOD)
SPS = INPUT_NUM(NND, "SPS", SPS, ACT_MOD)
M1 = INPUT_NUM(NND, "M1", M1, ACT_MOD)
M2 = INPUT_NUM(NND, "M2", M2, ACT_MOD)
M3 = INPUT_NUM(NND, "M3", M3, ACT_MOD)
M4 = INPUT_NUM(NND, "M4", M4, ACT_MOD)
M5 = INPUT_NUM(NND, "M5", M5, ACT_MOD)
M6 = INPUT_NUM(NND, "M6", M6, ACT_MOD)
M7 = INPUT_NUM(NND, "M7", M7, ACT_MOD)
M8 = INPUT_NUM(NND, "M8", M8, ACT_MOD)
M9 = INPUT_NUM(NND, "M9", M9, ACT_MOD)
M10 = INPUT_NUM(NND, "M10", M10, ACT_MOD)
M11 = INPUT_NUM(NND, "M11", M11, ACT_MOD)
M12 = INPUT_NUM(NND, "M12", M12, ACT_MOD)
M13 = INPUT_NUM(NND, "M13", M13, ACT_MOD)
M14 = INPUT_NUM(NND, "M14", M14, ACT_MOD)
M15 = INPUT_NUM(NND, "M15", M15, ACT_MOD)
M16 = INPUT_NUM(NND, "M16", M16, ACT_MOD)
M17 = INPUT_NUM(NND, "M17", M17, ACT_MOD)
M18 = INPUT_NUM(NND, "M18", M18, ACT_MOD)
M19 = INPUT_NUM(NND, "M19", M19, ACT_MOD)
M20 = INPUT_NUM(NND, "M20", M20, ACT_MOD)
M21 = INPUT_NUM(NND, "M21", M21, ACT_MOD)
M22 = INPUT_NUM(NND, "M22", M22, ACT_MOD)
M23 = INPUT_NUM(NND, "M23", M23, ACT_MOD)
M24 = INPUT_NUM(NND, "M24", M24, ACT_MOD)
M25 = INPUT_NUM(NND, "M25", M25, ACT_MOD)
VV = Val(Replace(INFO_DAT(NND, 0, 7), "P", ""))



'************************************* SCRITTURA LISTATO

Select Case VV
Case 1, 5

R01 = T_RECT1(-3, M18, -3, H - 81.5) & T_RECT1(L - M19, L + 3, -3, H - 81.5)

R02 = T_CIRC(L / 2 + M15 + M13, M14, 8) & T_CIRC(L / 2 + M15, M14 - M22, 8) & T_CIRC(L / 2 - M25, M23 - M24, 8) & T_CIRC(L / 2 - M25 - M17, M23, 8)
If M21 > 0 Then R09 = T_CIRC(L / 2 + M15 + M13 - M21, M14, 8) Else R09 = ""
If M20 > 0 Then R10 = T_CIRC(L / 2 - M25 - M17 + M20, M23, 8) Else R10 = ""

R03 = T_CIRC(75, H - 50.75, 9) & T_SLOT(L / 2 - M10, H - 50.75, 25, 8.5, 0) & T_SLOT(L / 2, H - 50.75, 25, 8.5, 0) & T_SLOT(L / 2 + M10, H - 50.75, 25, 8.5, 0) & T_CIRC(L - 75, H - 50.75, 9)
R04 = T_RECT1(M2, M2 + 23, H - 19, H - 6) & T_RECT1(M2 + M1, M2 + M1 + 23, H - 19, H - 6) & T_RECT1(M2 + 2 * M1, M2 + 2 * M1 + 23, H - 19, H - 6) & T_RECT1(M2 + 3 * M1, M2 + 3 * M1 + 23, H - 19, H - 6) & T_SLOT(M2 + 3 * M1 - 35, H - 10, 15, 9, 90)
R05 = T_SLOT(L - M9 + M7, H - 39.75, 45, 9, 0) & T_SLOT(L - M9 + 33, H - 39.75, 45, 9, 0) & T_SLOT(L - M9 - 33, H - 39.75, 45, 9, 0) & T_SLOT(L - M9 - M8, H - 39.75, 45, 9, 0)
R06 = T_RECT1(L - M9 + M4 - 22.5, L - M9 + M4 + 22.5, H - 71.75, H - 57.75) & T_RECT1(L - M9 + M3 - 22.5, L - M9 + M3 + 22.5, H - 71.75, H - 57.75) & T_RECT1(L - M9 - M5 - 22.5, L - M9 - M5 + 22.5, H - 71.75, H - 57.75) & T_RECT1(L - M9 - M6 - 22.5, L - M9 - M6 + 22.5, H - 71.75, H - 57.75)
R07 = T_SLOT(M9 - M7, H - 39.75, 45, 9, 0) & T_SLOT(M9 - 33, H - 39.75, 45, 9, 0) & T_SLOT(M9 + 33, H - 39.75, 45, 9, 0) & T_SLOT(M9 + M8, H - 39.75, 45, 9, 0)
R08 = T_RECT1(M9 - M4 - 22.5, M9 - M4 + 22.5, H - 71.75, H - 57.75) & T_RECT1(M9 - M3 - 22.5, M9 - M3 + 22.5, H - 71.75, H - 57.75) & T_RECT1(M9 + M5 - 22.5, M9 + M5 + 22.5, H - 71.75, H - 57.75) & T_RECT1(M9 + M6 - 22.5, M9 + M6 + 22.5, H - 71.75, H - 57.75)

R11 = T_SMUS_ST(M11 / 2, H)

Case 2, 6

R01 = T_RECT1(-3, M18, M12 + M16 - 18, H + 3) & T_RECT1(L - M19, L + 10, -3, H - 81.5)

R02 = T_CIRC(M18 + M11 / 2 + M15 + M13, M14, 8) & T_CIRC(M18 + M11 / 2 + M15, M14 - M22, 8) & T_CIRC(M18 + M11 / 2 - M25, M23 - M24, 8) & T_CIRC(M18 + M11 / 2 - M25 - M17, M23, 8)
If M21 > 0 Then R09 = T_CIRC(M18 + M11 / 2 + M15 + M13 - M21, M14, 8) Else R09 = ""
If M20 > 0 Then R10 = T_CIRC(M18 + M11 / 2 - M25 - M17 + M20, M23, 8) Else R10 = ""

R03 = T_CIRC(M18 + 75, H - 50.75, 9) & T_SLOT(M18 + M11 / 2 - M10, H - 50.75, 25, 8.5, 0) & T_SLOT(M18 + M11 / 2, H - 50.75, 25, 8.5, 0) & T_SLOT(M18 + M11 / 2 + M10, H - 50.75, 25, 8.5, 0) & T_CIRC(L - 75, H - 50.75, 9)
R04 = T_RECT1(M18 + M2, M18 + M2 + 23, H - 19, H - 6) & T_RECT1(M18 + M2 + M1, M18 + M2 + M1 + 23, H - 19, H - 6) & T_RECT1(M18 + M2 + 2 * M1, M18 + M2 + 2 * M1 + 23, H - 19, H - 6) & T_RECT1(M18 + M2 + 3 * M1, M18 + M2 + 3 * M1 + 23, H - 19, H - 6) & T_SLOT(M18 + M2 + 3 * M1 - 35, H - 10, 15, 9, 90)
R05 = T_SLOT(L - M9 + M7, H - 39.75, 45, 9, 0) & T_SLOT(L - M9 + 33, H - 39.75, 45, 9, 0) & T_SLOT(L - M9 - 33, H - 39.75, 45, 9, 0) & T_SLOT(L - M9 - M8, H - 39.75, 45, 9, 0)
R06 = T_RECT1(L - M9 + M4 - 22.5, L - M9 + M4 + 22.5, H - 71.75, H - 57.75) & T_RECT1(L - M9 + M3 - 22.5, L - M9 + M3 + 22.5, H - 71.75, H - 57.75) & T_RECT1(L - M9 - M5 - 22.5, L - M9 - M5 + 22.5, H - 71.75, H - 57.75) & T_RECT1(L - M9 - M6 - 22.5, L - M9 - M6 + 22.5, H - 71.75, H - 57.75)
R07 = T_SLOT(M18 + M9 - M7, H - 39.75, 45, 9, 0) & T_SLOT(M18 + M9 - 33, H - 39.75, 45, 9, 0) & T_SLOT(M18 + M9 + 33, H - 39.75, 45, 9, 0) & T_SLOT(M18 + M9 + M8, H - 39.75, 45, 9, 0)
R08 = T_RECT1(M18 + M9 - M4 - 22.5, M18 + M9 - M4 + 22.5, H - 71.75, H - 57.75) & T_RECT1(M18 + M9 - M3 - 22.5, M18 + M9 - M3 + 22.5, H - 71.75, H - 57.75) & T_RECT1(M18 + M9 + M5 - 22.5, M18 + M9 + M5 + 22.5, H - 71.75, H - 57.75) & T_RECT1(M18 + M9 + M6 - 22.5, M18 + M9 + M6 + 22.5, H - 71.75, H - 57.75)

R11 = T_SMUS_ST(M18 + M11 / 2, H)

Case 3, 7
R01 = T_RECT1(-3, M18, -3, H - 81.5) & T_RECT1(L - M19, L + 3, M12 + M16 - 18, H + 3)

R02 = T_CIRC(M11 / 2 + M15 + M13, M14, 8) & T_CIRC(M11 / 2 + M15, M14 - M22, 8) & T_CIRC(M11 / 2 - M25, M23 - M24, 8) & T_CIRC(M11 / 2 - M25 - M17, M23, 8)
If M21 > 0 Then R09 = T_CIRC(M11 / 2 + M15 + M13 - M21, M14, 8) Else R09 = ""
If M20 > 0 Then R10 = T_CIRC(M11 / 2 - M25 - M17 + M20, M23, 8) Else R10 = ""

R03 = T_CIRC(75, H - 50.75, 9) & T_SLOT(M11 / 2 - M10, H - 50.75, 25, 8.5, 0) & T_SLOT(M11 / 2, H - 50.75, 25, 8.5, 0) & T_SLOT(M11 / 2 + M10, H - 50.75, 25, 8.5, 0) & T_CIRC(L - M19 - 75, H - 50.75, 9)
R04 = T_RECT1(M2, M2 + 23, H - 19, H - 6) & T_RECT1(M2 + M1, M2 + M1 + 23, H - 19, H - 6) & T_RECT1(M2 + 2 * M1, M2 + 2 * M1 + 23, H - 19, H - 6) & T_RECT1(M2 + 3 * M1, M2 + 3 * M1 + 23, H - 19, H - 6) & T_SLOT(M2 + 3 * M1 - 35, H - 10, 15, 9, 90)
R05 = T_SLOT(L - M19 - M9 + M7, H - 39.75, 45, 9, 0) & T_SLOT(L - M19 - M9 + 33, H - 39.75, 45, 9, 0) & T_SLOT(L - M19 - M9 - 33, H - 39.75, 45, 9, 0) & T_SLOT(L - M19 - M9 - M8, H - 39.75, 45, 9, 0)
R06 = T_RECT1(L - M19 - M9 + M4 - 22.5, L - M19 - M9 + M4 + 22.5, H - 71.75, H - 57.75) & T_RECT1(L - M19 - M9 + M3 - 22.5, L - M19 - M9 + M3 + 22.5, H - 71.75, H - 57.75) & T_RECT1(L - M19 - M9 - M5 - 22.5, L - M19 - M9 - M5 + 22.5, H - 71.75, H - 57.75) & T_RECT1(L - M19 - M9 - M6 - 22.5, L - M19 - M9 - M6 + 22.5, H - 71.75, H - 57.75)
R07 = T_SLOT(M9 - M7, H - 39.75, 45, 9, 0) & T_SLOT(M9 - 33, H - 39.75, 45, 9, 0) & T_SLOT(M9 + 33, H - 39.75, 45, 9, 0) & T_SLOT(M9 + M8, H - 39.75, 45, 9, 0)
R08 = T_RECT1(M9 - M4 - 22.5, M9 - M4 + 22.5, H - 71.75, H - 57.75) & T_RECT1(M9 - M3 - 22.5, M9 - M3 + 22.5, H - 71.75, H - 57.75) & T_RECT1(M9 + M5 - 22.5, M9 + M5 + 22.5, H - 71.75, H - 57.75) & T_RECT1(M9 + M6 - 22.5, M9 + M6 + 22.5, H - 71.75, H - 57.75)

R11 = T_SMUS_ST(M11 / 2, H)

Case 4, 8
R01 = T_RECT1(-10, M18, M12 + M16 - 18, H + 3) & T_RECT1(L - M19, L + 10, M12 + M16 - 18, H + 3)

R02 = T_CIRC(M18 + M11 / 2 + M15 + M13, M14, 8) & T_CIRC(M18 + M11 / 2 + M15, M14 - M22, 8) & T_CIRC(M18 + M11 / 2 - M25, M23 - M24, 8) & T_CIRC(M18 + M11 / 2 - M25 - M17, M23, 8)
If M21 > 0 Then R09 = T_CIRC(M18 + M11 / 2 + M15 + M13 - M21, M14, 8) Else R09 = ""
If M20 > 0 Then R10 = T_CIRC(M18 + M11 / 2 - M25 - M17 + M20, M23, 8) Else R10 = ""

R03 = T_CIRC(M18 + 75, H - 50.75, 9) & T_SLOT(M18 + M11 / 2 - M10, H - 50.75, 25, 8.5, 0) & T_SLOT(M18 + M11 / 2, H - 50.75, 25, 8.5, 0) & T_SLOT(M18 + M11 / 2 + M10, H - 50.75, 25, 8.5, 0) & T_CIRC(L - M19 - 75, H - 50.75, 9)
R04 = T_RECT1(M18 + M2, M18 + M2 + 23, H - 19, H - 6) & T_RECT1(M18 + M2 + M1, M18 + M2 + M1 + 23, H - 19, H - 6) & T_RECT1(M18 + M2 + 2 * M1, M18 + M2 + 2 * M1 + 23, H - 19, H - 6) & T_RECT1(M18 + M2 + 3 * M1, M18 + M2 + 3 * M1 + 23, H - 19, H - 6) & T_SLOT(M18 + M2 + 3 * M1 - 35, H - 10, 15, 9, 90)
R05 = T_SLOT(L - M19 - M9 + M7, H - 39.75, 45, 9, 0) & T_SLOT(L - M19 - M9 + 33, H - 39.75, 45, 9, 0) & T_SLOT(L - M19 - M9 - 33, H - 39.75, 45, 9, 0) & T_SLOT(L - M19 - M9 - M8, H - 39.75, 45, 9, 0)
R06 = T_RECT1(L - M19 - M9 + M4 - 22.5, L - M19 - M9 + M4 + 22.5, H - 71.75, H - 57.75) & T_RECT1(L - M19 - M9 + M3 - 22.5, L - M19 - M9 + M3 + 22.5, H - 71.75, H - 57.75) & T_RECT1(L - M19 - M9 - M5 - 22.5, L - M19 - M9 - M5 + 22.5, H - 71.75, H - 57.75) & T_RECT1(L - M19 - M9 - M6 - 22.5, L - M19 - M9 - M6 + 22.5, H - 71.75, H - 57.75)
R07 = T_SLOT(M18 + M9 - M7, H - 39.75, 45, 9, 0) & T_SLOT(M18 + M9 - 33, H - 39.75, 45, 9, 0) & T_SLOT(M18 + M9 + 33, H - 39.75, 45, 9, 0) & T_SLOT(M18 + M9 + M8, H - 39.75, 45, 9, 0)
R08 = T_RECT1(M18 + M9 - M4 - 22.5, M18 + M9 - M4 + 22.5, H - 71.75, H - 57.75) & T_RECT1(M18 + M9 - M3 - 22.5, M18 + M9 - M3 + 22.5, H - 71.75, H - 57.75) & T_RECT1(M18 + M9 + M5 - 22.5, M18 + M9 + M5 + 22.5, H - 71.75, H - 57.75) & T_RECT1(M18 + M9 + M6 - 22.5, M18 + M9 + M6 + 22.5, H - 71.75, H - 57.75)

R11 = T_SMUS_ST(M18 + M11 / 2, H)

Case Else
MsgBox "ERRORE VERSIONE SU " & ACT_MOD
End Select


P1 = L / 2 - M15 + 100
P2 = L / 2 + M15 - 100
MVAL = 500

STRINGA = R000_vpr(NHD, CTT, SPS / 10, L, H, P1, P2, QTT, comm, RAGG, CODR, MVAL, INFO_DAT(NND, 0, 5)) & R01 & R02 & R03 & R04 & R05 & R06 & R07 & R08 & R09 & R10 & R11
Call SAVE_SUB(NND, STRINGA)

Call FVTPT(4, NND, "")

ACT_MOD = ""
End Sub


Sub V_1007909J(ByVal NND As Integer)
ACT_MOD = "1007909"
NHD = 10

'MsgBox "CONTROLLARE " & ACT_MOD & "  !!!!!"


'************************************* INPUT
If NND > 0 Then ON_MD = 2 Else ON_MD = 1
Select Case ON_MD
Case 1
comm = INPUT_STR(NND, "COMMESSA", comm, ACT_MOD)
Case 2
comm = INFO_DAT(NND, 0, 2)
RAGG = INFO_DAT(NND, 0, 3)
QTT = INFO_DAT(NND, 0, 4)
CODR = INFO_DAT(NND, 0, 10) & " - " & INFO_DAT(NND, 0, 11) & " - " & INFO_DAT(NND, 0, 12)
Case Else
MsgBox "ERRORE", , ACT_MOD
End Select

L = INPUT_NUM(NND, "L", 0, ACT_MOD)
H = INPUT_NUM(NND, "H", H, ACT_MOD)
SPS = INPUT_NUM(NND, "SPS", SPS, ACT_MOD)
M1 = INPUT_NUM(NND, "M1", M1, ACT_MOD)
M2 = INPUT_NUM(NND, "M2", M2, ACT_MOD)
M3 = INPUT_NUM(NND, "M3", M3, ACT_MOD)
M4 = INPUT_NUM(NND, "M4", M4, ACT_MOD)
M5 = INPUT_NUM(NND, "M5", M5, ACT_MOD)
M6 = INPUT_NUM(NND, "M6", M6, ACT_MOD)
M7 = INPUT_NUM(NND, "M7", M7, ACT_MOD)
M8 = INPUT_NUM(NND, "M8", M8, ACT_MOD)
M9 = INPUT_NUM(NND, "M9", M9, ACT_MOD)
M10 = INPUT_NUM(NND, "M10", M10, ACT_MOD)
M11 = INPUT_NUM(NND, "M11", M11, ACT_MOD)
M12 = INPUT_NUM(NND, "M12", M12, ACT_MOD)
M13 = INPUT_NUM(NND, "M13", M13, ACT_MOD)
M14 = INPUT_NUM(NND, "M14", M14, ACT_MOD)
M15 = INPUT_NUM(NND, "M15", M15, ACT_MOD)
M16 = INPUT_NUM(NND, "M16", M16, ACT_MOD)
M17 = INPUT_NUM(NND, "M17", M17, ACT_MOD)
M18 = INPUT_NUM(NND, "M18", M18, ACT_MOD)
M19 = INPUT_NUM(NND, "M19", M19, ACT_MOD)
M20 = INPUT_NUM(NND, "M20", M20, ACT_MOD)
M21 = INPUT_NUM(NND, "M21", M21, ACT_MOD)
M22 = INPUT_NUM(NND, "M22", M22, ACT_MOD)
M23 = INPUT_NUM(NND, "M23", M23, ACT_MOD)
VV = INPUT_NUM(NND, "VER", VV, ACT_MOD)

'************************************* SCRITTURA LISTATO

AGG = 2

Select Case VV
Case 1, 3

R01 = T_CIRC(M6 - M8 - M9, MR_Y(H - M11, H, AGG), 8)

If M19 > 0 Then
R02 = T_CIRC(M6 - M8 - M9 + M19, MR_Y(H - M11, H, AGG), 8)
Else
R02 = ""
End If

R03 = T_CIRC(M6 - M8, MR_Y(H - M11 + M21, H, AGG), 8) & T_CIRC(M6 + M20, MR_Y(H - M11 + M23, H, AGG), 8) & T_CIRC(M6 + M20 + M10, MR_Y(H - M11, H, AGG), 8)

If M18 > 0 Then
R04 = T_CIRC(M6 + M20 + M10 - M18, MR_Y(H - M11, H, AGG), 8)
Else
R04 = ""
End If

R05 = T_RECT1(M1, L + 5, MR_Y(H - (M2 + 10 - 6), H, AGG), MR_Y(H + 5, H, AGG))
R06 = T_RECT1(M16 - 22.5, M16 + 22.5, MR_Y(32 + 31 - 6, H, AGG), MR_Y(32 + 31 + 14 - 6, H, AGG)) & T_RECT1(M16 + M17 - 22.5, M16 + M17 + 22.5, MR_Y(32 + 31 - 6, H, AGG), MR_Y(32 + 31 + 14 - 6, H, AGG))

R07A = T_CIRC(M12, MR_Y(25 + 31 - 6, H, AGG), 9)
R07B = T_SLOT(M6 - M7, MR_Y(25 + 31 - 6, H, AGG), 25, 8.5, 0)

R07C = T_CIRC(M6 - M7 + 100, MR_Y(25 + 31 - 6, H, AGG), 9)
R07D = T_SLOT(M6, MR_Y(25 + 31 - 6, H, AGG), 25, 8.5, 0)
R07E = T_SLOT(M6 + M7, MR_Y(25 + 31 - 6, H, AGG), 25, 8.5, 0)

R07F = T_CIRC(M13, MR_Y(25 + 31 - 6, H, AGG), 9)
R07 = R07A & R07B & R07C & R07D & R07E & R07F

R08 = T_SLOT(M14, MR_Y(14 + 31 - 6, H, AGG), 45, 9, 0) & T_SLOT(M14 + M15, MR_Y(14 + 31 - 6, H, AGG), 45, 9, 0)

R09A = T_RECT1(M4, M4 + 23, MR_Y(6, H, AGG), MR_Y(6 + 13, H, AGG))
R09B = T_SLOT(M4 + 23 + 35, MR_Y(10, H, AGG), 15, 9, 90)
R09C = T_RECT1(M4 + M5, M4 + M5 + 23, MR_Y(6, H, AGG), MR_Y(6 + 13, H, AGG))
R09D = T_RECT1(M4 + 2 * M5, M4 + 2 * M5 + 23, MR_Y(6, H, AGG), MR_Y(6 + 13, H, AGG))
R09E = T_RECT1(M4 + 3 * M5, M4 + 3 * M5 + 23, MR_Y(6, H, AGG), MR_Y(6 + 13, H, AGG))
R09 = R09A & R09B & R09C & R09D & R09E


P1 = M4 + M5 / 2 + 50
P2 = M4 + 2 * M5 + M5 / 2 + 50
MVAL = 500




Case 2, 4

R01 = T_RECT1(-5, L - M1, MR_Y(H - (M2 + 10 - 6), H, AGG), MR_Y(H + 5, H, AGG))

R02 = T_CIRC(L - M6 - M20 - M10, MR_Y(H - M11, H, AGG), 8)

If M18 > 0 Then
R03 = T_CIRC(L - M6 - M20 - M10 + M18, MR_Y(H - M11, H, AGG), 8)
Else
R03 = ""
End If

R04 = T_CIRC(L - M6 - M20, MR_Y(H - M11 + M23, H, AGG), 8) & T_CIRC(L - M6 + M8, MR_Y(H - M11 + M21, H, AGG), 8) & T_CIRC(L - M6 + M8 + M9, MR_Y(H - M11, H, AGG), 8)

If M19 > 0 Then
R05 = T_CIRC(L - M6 + M8 + M9 - M19, MR_Y(H - M11, H, AGG), 8)
Else
R05 = ""
End If

R06 = T_RECT1(L - M16 - M17 - 22.5, L - M16 - M17 + 22.5, MR_Y(32 + 31 - 6, H, AGG), MR_Y(32 + 31 + 14 - 6, H, AGG)) & T_RECT1(L - M16 - 22.5, L - M16 + 22.5, MR_Y(32 + 31 - 6, H, AGG), MR_Y(32 + 31 + 14 - 6, H, AGG))

R07A = T_CIRC(L - M12, MR_Y(25 + 31 - 6, H, AGG), 9)
R07B = T_SLOT(L - M6 + M7, MR_Y(25 + 31 - 6, H, AGG), 25, 8.5, 0)
R07C = T_CIRC(L - M6 + M7 - 100, MR_Y(25 + 31 - 6, H, AGG), 9)
R07D = T_SLOT(L - M6, MR_Y(25 + 31 - 6, H, AGG), 25, 8.5, 0)
R07E = T_SLOT(L - M6 - M7, MR_Y(25 + 31 - 6, H, AGG), 25, 8.5, 0)
R07F = T_CIRC(L - M13, MR_Y(25 + 31 - 6, H, AGG), 9)
R07 = R07A & R07B & R07C & R07D & R07E & R07F

R08 = T_SLOT(L - M14, MR_Y(14 + 31 - 6, H, AGG), 45, 9, 0) & T_SLOT(L - M14 - M15, MR_Y(14 + 31 - 6, H, AGG), 45, 9, 0)


R09A = T_RECT1(L - M4 - 23, L - M4, MR_Y(6, H, AGG), MR_Y(6 + 13, H, AGG))
R09B = T_RECT1(L - M4 - M5 - 23, L - M4 - M5, MR_Y(6, H, AGG), MR_Y(6 + 13, H, AGG))
R09C = T_RECT1(L - M4 - 2 * M5 - 23, L - M4 - 2 * M5, MR_Y(6, H, AGG), MR_Y(6 + 13, H, AGG))
R09D = T_SLOT(L - M4 - 3 * M5 + 35, MR_Y(10, H, AGG), 15, 9, 90)
R09E = T_RECT1(L - M4 - 3 * M5 - 23, L - M4 - 3 * M5, MR_Y(6, H, AGG), MR_Y(6 + 13, H, AGG))
R09 = R09A & R09B & R09C & R09D & R09E

P1 = L - M4 - M5 / 2 - 50
P2 = L - M4 - 2 * M5 - M5 / 2 - 50
MVAL = 500

Case Else
MsgBox "ERRORE VERSIONE SU " & ACT_MOD
End Select

STRINGA = R000_vpr(NHD, CTT, SPS / 10, L, H, P1, P2, QTT, comm, RAGG, CODR, MVAL, INFO_DAT(NND, 0, 5)) & R01 & R02 & R03 & R04 & R05 & R06 & R07 & R08 & R09
Call SAVE_SUB(NND, STRINGA)

Call FVTPT(4, NND, "")

ACT_MOD = ""
End Sub

Sub V_1007909M(ByVal NND As Integer)
ACT_MOD = "1007909"
NHD = 10

'MsgBox "CONTROLLARE " & ACT_MOD & "  !!!!!"


'************************************* INPUT
If NND > 0 Then ON_MD = 2 Else ON_MD = 1
Select Case ON_MD
Case 1
comm = INPUT_STR(NND, "COMMESSA", comm, ACT_MOD)
Case 2
comm = INFO_DAT(NND, 0, 2)
RAGG = INFO_DAT(NND, 0, 3)
QTT = INFO_DAT(NND, 0, 4)
CODR = INFO_DAT(NND, 0, 10) & " - " & INFO_DAT(NND, 0, 11) & " - " & INFO_DAT(NND, 0, 12)
Case Else
MsgBox "ERRORE", , ACT_MOD
End Select

L = INPUT_NUM(NND, "L", 0, ACT_MOD)
H = INPUT_NUM(NND, "H", H, ACT_MOD)
SPS = INPUT_NUM(NND, "SPS", SPS, ACT_MOD)
M1 = INPUT_NUM(NND, "M1", M1, ACT_MOD)
M2 = INPUT_NUM(NND, "M2", M2, ACT_MOD)
M3 = INPUT_NUM(NND, "M3", M3, ACT_MOD)
M4 = INPUT_NUM(NND, "M4", M4, ACT_MOD)
M5 = INPUT_NUM(NND, "M5", M5, ACT_MOD)
M6 = INPUT_NUM(NND, "M6", M6, ACT_MOD)
M7 = INPUT_NUM(NND, "M7", M7, ACT_MOD)
M8 = INPUT_NUM(NND, "M8", M8, ACT_MOD)
M9 = INPUT_NUM(NND, "M9", M9, ACT_MOD)
M10 = INPUT_NUM(NND, "M10", M10, ACT_MOD)
M11 = INPUT_NUM(NND, "M11", M11, ACT_MOD)
M12 = INPUT_NUM(NND, "M12", M12, ACT_MOD)
M13 = INPUT_NUM(NND, "M13", M13, ACT_MOD)
M14 = INPUT_NUM(NND, "M14", M14, ACT_MOD)
M15 = INPUT_NUM(NND, "M15", M15, ACT_MOD)
M16 = INPUT_NUM(NND, "M16", M16, ACT_MOD)
M17 = INPUT_NUM(NND, "M17", M17, ACT_MOD)
M18 = INPUT_NUM(NND, "M18", M18, ACT_MOD)
M19 = INPUT_NUM(NND, "M19", M19, ACT_MOD)
M20 = INPUT_NUM(NND, "M20", M20, ACT_MOD)
M21 = INPUT_NUM(NND, "M21", M21, ACT_MOD)
M22 = INPUT_NUM(NND, "M22", M22, ACT_MOD)
M23 = INPUT_NUM(NND, "M23", M23, ACT_MOD)
VV = INPUT_NUM(NND, "VER", VV, ACT_MOD)

'************************************* SCRITTURA LISTATO

AGG = 2

Select Case VV
Case 1, 3

R01 = T_CIRC(M6 - M8 - M9, MR_Y(H - M11, H, AGG), 8)

If M19 > 0 Then
R02 = T_CIRC(M6 - M8 - M9 + M19, MR_Y(H - M11, H, AGG), 8)
Else
R02 = ""
End If

R03 = T_CIRC(M6 - M8, MR_Y(H - M11 + M21, H, AGG), 8) & T_CIRC(M6 + M20, MR_Y(H - M22 + M23, H, AGG), 8) & T_CIRC(M6 + M20 + M10, MR_Y(H - M22, H, AGG), 8)

If M18 > 0 Then
R04 = T_CIRC(M6 + M20 + M10 - M18, MR_Y(H - M22, H, AGG), 8)
Else
R04 = ""
End If

R05 = T_RECT1(M1, L + 5, MR_Y(H - (M2 + 10 - 6), H, AGG), MR_Y(H + 5, H, AGG))
R06 = T_RECT1(M16 - 22.5, M16 + 22.5, MR_Y(32 + 31 - 6, H, AGG), MR_Y(32 + 31 + 14 - 6, H, AGG)) & T_RECT1(M16 + M17 - 22.5, M16 + M17 + 22.5, MR_Y(32 + 31 - 6, H, AGG), MR_Y(32 + 31 + 14 - 6, H, AGG))

R07A = T_CIRC(M12, MR_Y(25 + 31 - 6, H, AGG), 9)
R07B = T_SLOT(M6 - M7, MR_Y(25 + 31 - 6, H, AGG), 25, 8.5, 0)

R07C = T_CIRC(M6 - M7 + 100, MR_Y(25 + 31 - 6, H, AGG), 9)
R07D = T_SLOT(M6, MR_Y(25 + 31 - 6, H, AGG), 25, 8.5, 0)
R07E = T_SLOT(M6 + M7, MR_Y(25 + 31 - 6, H, AGG), 25, 8.5, 0)

R07F = T_CIRC(M13, MR_Y(25 + 31 - 6, H, AGG), 9)
R07 = R07A & R07B & R07C & R07D & R07E & R07F

R08 = T_SLOT(M14, MR_Y(14 + 31 - 6, H, AGG), 45, 9, 0) & T_SLOT(M14 + M15, MR_Y(14 + 31 - 6, H, AGG), 45, 9, 0)

R09A = T_RECT1(M4, M4 + 23, MR_Y(6, H, AGG), MR_Y(6 + 13, H, AGG))
R09B = T_SLOT(M4 + 23 + 35, MR_Y(10, H, AGG), 15, 9, 90)
R09C = T_RECT1(M4 + M5, M4 + M5 + 23, MR_Y(6, H, AGG), MR_Y(6 + 13, H, AGG))
R09D = T_RECT1(M4 + 2 * M5, M4 + 2 * M5 + 23, MR_Y(6, H, AGG), MR_Y(6 + 13, H, AGG))
R09E = T_RECT1(M4 + 3 * M5, M4 + 3 * M5 + 23, MR_Y(6, H, AGG), MR_Y(6 + 13, H, AGG))
R09 = R09A & R09B & R09C & R09D & R09E


P1 = M4 + M5 / 2 + 50
P2 = M4 + 2 * M5 + M5 / 2 + 50
MVAL = 500




Case 2, 4

R01 = T_RECT1(-5, L - M1, MR_Y(H - (M2 + 10 - 6), H, AGG), MR_Y(H + 5, H, AGG))

R02 = T_CIRC(L - M6 - M20 - M10, MR_Y(H - M22, H, AGG), 8)

If M18 > 0 Then
R03 = T_CIRC(L - M6 - M20 - M10 + M18, MR_Y(H - M22, H, AGG), 8)
Else
R03 = ""
End If

R04 = T_CIRC(L - M6 - M20, MR_Y(H - M22 + M23, H, AGG), 8) & T_CIRC(L - M6 + M8, MR_Y(H - M11 + M21, H, AGG), 8) & T_CIRC(L - M6 + M8 + M9, MR_Y(H - M11, H, AGG), 8)

If M19 > 0 Then
R05 = T_CIRC(L - M6 + M8 + M9 - M19, MR_Y(H - M11, H, AGG), 8)
Else
R05 = ""
End If

R06 = T_RECT1(L - M16 - M17 - 22.5, L - M16 - M17 + 22.5, MR_Y(32 + 31 - 6, H, AGG), MR_Y(32 + 31 + 14 - 6, H, AGG)) & T_RECT1(L - M16 - 22.5, L - M16 + 22.5, MR_Y(32 + 31 - 6, H, AGG), MR_Y(32 + 31 + 14 - 6, H, AGG))

R07A = T_CIRC(L - M12, MR_Y(25 + 31 - 6, H, AGG), 9)
R07B = T_SLOT(L - M6 + M7, MR_Y(25 + 31 - 6, H, AGG), 25, 8.5, 0)
R07C = T_CIRC(L - M6 + M7 - 100, MR_Y(25 + 31 - 6, H, AGG), 9)
R07D = T_SLOT(L - M6, MR_Y(25 + 31 - 6, H, AGG), 25, 8.5, 0)
R07E = T_SLOT(L - M6 - M7, MR_Y(25 + 31 - 6, H, AGG), 25, 8.5, 0)
R07F = T_CIRC(L - M13, MR_Y(25 + 31 - 6, H, AGG), 9)
R07 = R07A & R07B & R07C & R07D & R07E & R07F

R08 = T_SLOT(L - M14, MR_Y(14 + 31 - 6, H, AGG), 45, 9, 0) & T_SLOT(L - M14 - M15, MR_Y(14 + 31 - 6, H, AGG), 45, 9, 0)


R09A = T_RECT1(L - M4 - 23, L - M4, MR_Y(6, H, AGG), MR_Y(6 + 13, H, AGG))
R09B = T_RECT1(L - M4 - M5 - 23, L - M4 - M5, MR_Y(6, H, AGG), MR_Y(6 + 13, H, AGG))
R09C = T_RECT1(L - M4 - 2 * M5 - 23, L - M4 - 2 * M5, MR_Y(6, H, AGG), MR_Y(6 + 13, H, AGG))
R09D = T_SLOT(L - M4 - 3 * M5 + 35, MR_Y(10, H, AGG), 15, 9, 90)
R09E = T_RECT1(L - M4 - 3 * M5 - 23, L - M4 - 3 * M5, MR_Y(6, H, AGG), MR_Y(6 + 13, H, AGG))
R09 = R09A & R09B & R09C & R09D & R09E

P1 = L - M4 - M5 / 2 - 50
P2 = L - M4 - 2 * M5 - M5 / 2 - 50
MVAL = 500

Case Else
MsgBox "ERRORE VERSIONE SU " & ACT_MOD
End Select

STRINGA = R000_vpr(NHD, CTT, SPS / 10, L, H, P1, P2, QTT, comm, RAGG, CODR, MVAL, INFO_DAT(NND, 0, 5)) & R01 & R02 & R03 & R04 & R05 & R06 & R07 & R08 & R09
Call SAVE_SUB(NND, STRINGA)

Call FVTPT(4, NND, "")

ACT_MOD = ""
End Sub


Sub V_1007889F(ByVal NND As Integer)
ACT_MOD = "1007889"
NHD = 10

'MsgBox ("CONTROLLARE " & ACT_MOD)
'************************************* INPUT
If NND > 0 Then ON_MD = 2 Else ON_MD = 1
Select Case ON_MD
Case 1
comm = INPUT_STR(NND, "COMMESSA", comm, ACT_MOD)
Case 2
comm = INFO_DAT(NND, 0, 2)
RAGG = INFO_DAT(NND, 0, 3)
QTT = INFO_DAT(NND, 0, 4)
CODR = INFO_DAT(NND, 0, 10) & " - " & INFO_DAT(NND, 0, 11) & " - " & INFO_DAT(NND, 0, 12)
Case Else
MsgBox "ERRORE", , ACT_MOD
End Select

L = INPUT_NUM(NND, "L", 0, ACT_MOD)
H = INPUT_NUM(NND, "H", H, ACT_MOD)
SPS = INPUT_NUM(NND, "SPS", SPS, ACT_MOD)
M1 = INPUT_NUM(NND, "M1", M1, ACT_MOD)
M2 = INPUT_NUM(NND, "M2", M2, ACT_MOD)
M3 = INPUT_NUM(NND, "M3", M3, ACT_MOD)
M4 = INPUT_NUM(NND, "M4", M4, ACT_MOD)
M5 = INPUT_NUM(NND, "M5", M5, ACT_MOD)
M6 = INPUT_NUM(NND, "M6", M6, ACT_MOD)
M7 = INPUT_NUM(NND, "M7", M7, ACT_MOD)
M8 = INPUT_NUM(NND, "M8", M8, ACT_MOD)
M9 = INPUT_NUM(NND, "M9", M9, ACT_MOD)
M10 = INPUT_NUM(NND, "M10", M10, ACT_MOD)
M11 = INPUT_NUM(NND, "M11", M11, ACT_MOD)
M12 = INPUT_NUM(NND, "M12", M12, ACT_MOD)
M13 = INPUT_NUM(NND, "M13", M13, ACT_MOD)
M14 = INPUT_NUM(NND, "M14", M14, ACT_MOD)
M15 = INPUT_NUM(NND, "M15", M15, ACT_MOD)
M16 = INPUT_NUM(NND, "M16", M16, ACT_MOD)
M17 = INPUT_NUM(NND, "M17", M17, ACT_MOD)
M18 = INPUT_NUM(NND, "M18", M18, ACT_MOD)
M19 = INPUT_NUM(NND, "M19", M19, ACT_MOD)
M20 = INPUT_NUM(NND, "M20", M20, ACT_MOD)
VV = INPUT_NUM(NND, "VER.", VV, ACT_MOD)



'************************************* SCRITTURA LISTATO


Select Case VV
Case 1, 5
R01 = T_CIRC(M5 - M17, M10 - M18, 8) & T_CIRC(M5 - M17 - M9, M10, 8)
If M15 > 0 Then R01 = R01 & T_CIRC(M5 - M17 - M9 + M15, M10, 8)
R01 = R01 & T_CIRC(M5 + M7, M19 - M20, 8) & T_CIRC(M5 + M7 + M8, M19, 8)
If M16 > 0 Then R01 = R01 & T_CIRC(M5 + M7 + M8 - M16, M19, 8)

R02 = T_RECT2(M5 - 35 - M11, H - 31 - 18 + 6 - 7, 45, 14) & T_RECT2(M5 - 35, H - 31 - 18 + 6 - 7, 45, 14) & T_RECT2(M5 + 35, H - 31 - 18 + 6 - 7, 45, 14) & T_RECT2(M5 + 35 + M11, H - 31 - 18 + 6 - 7, 45, 14)
R03 = T_SLOT(M5, H - 31 - 11.35 + 6, 25, 8.5, 0) & T_CIRC(M5 - M6 - 140, H - 31 - 11.35 + 6, 9) & T_SLOT(M5 - M6, H - 31 - 11.35 + 6, 25, 8.5, 0) & T_SLOT(M5 + M6, H - 31 - 11.35 + 6, 25, 8.5, 0) & T_CIRC(M5 + M6 + 140, H - 31 - 11.35 + 6, 9)

R04 = T_RECT1(M3, M3 + 23, H - 6 - 13, H - 6) & T_RECT1(M3 + M4, M3 + M4 + 23, H - 6 - 13, H - 6) & T_RECT1(M3 + 2 * M4, M3 + 2 * M4 + 23, H - 6 - 13, H - 6) & T_RECT1(M3 + 3 * M4, M3 + 3 * M4 + 23, H - 6 - 13, H - 6)
R05 = T_SLOT(M3 + 3 * M4 - 35, H - 10, 15, 9, 90)
R06 = T_RECT1(-6, M13, -6, M1 + 10 - 6) & T_RECT1(L - M14, L + 6, -6, M1 + 10 - 6)

R07 = T_SMUS_ST(L / 2, H)

Case 2, 6
HLF = M13 + M12 / 2
R01 = T_CIRC(HLF - M17, M10 - M18, 8) & T_CIRC(HLF - M17 - M9, M10, 8)
If M15 > 0 Then R01 = R01 & T_CIRC(HLF - M17 - M9 + M15, M10, 8)
R01 = R01 & T_CIRC(HLF + M7 + M8, M19 - M20, 8) & T_CIRC(HLF + M7, M19, 8)
If M16 > 0 Then R01 = R01 & T_CIRC(HLF + M7 + M8 - M16, M19, 8)


R02 = T_RECT2(M5 - 35 - M11, H - 31 - 18 + 6 - 7, 45, 14) & T_RECT2(M5 - 35, H - 31 - 18 + 6 - 7, 45, 14) & T_RECT2(M5 + 35, H - 31 - 18 + 6 - 7, 45, 14) & T_RECT2(M5 + 35 + M11, H - 31 - 18 + 6 - 7, 45, 14)
R03 = T_SLOT(M5, H - 31 - 11.35 + 6, 25, 8.5, 0) & T_CIRC(M5 - M6 - 140, H - 31 - 11.35 + 6, 9) & T_SLOT(M5 - M6, H - 31 - 11.35 + 6, 25, 8.5, 0) & T_SLOT(M5 + M6, H - 31 - 11.35 + 6, 25, 8.5, 0) & T_CIRC(M5 + M6 + 140, H - 31 - 11.35 + 6, 9)

R04 = T_RECT1(M13 + M3, M13 + M3 + 23, H - 6 - 13, H - 6) & T_RECT1(M13 + M3 + M4, M13 + M3 + M4 + 23, H - 6 - 13, H - 6) & T_RECT1(M13 + M3 + 2 * M4, M13 + M3 + 2 * M4 + 23, H - 6 - 13, H - 6) & T_RECT1(M13 + M3 + 3 * M4, M13 + M3 + 3 * M4 + 23, H - 6 - 13, H - 6)
R05 = T_SLOT(M13 + M3 + 3 * M4 - 35, H - 10, 15, 9, 90)
R06 = T_RECT1(-6, M13, M1 + 15 - 6, H + 6) & T_RECT1(L - M14, L + 6, -6, M1 + 10 - 6)

R07 = T_SMUS_ST(M13 + M12 / 2, H)

Case 3, 7
HLF = M12 / 2
R01 = T_CIRC(HLF - M17, M10 - M18, 8) & T_CIRC(HLF - M17 - M9, M10, 8) & T_CIRC(HLF - M17 - M9 + M15, M10, 8)
If M15 > 0 Then R01 = R01 & T_CIRC(HLF - M17 - M9 + M15, M10, 8)
R01 = R01 & T_CIRC(HLF + M7 + M8, M19 - M20, 8) & T_CIRC(HLF + M7, M19, 8)
If M16 > 0 Then R01 = R01 & T_CIRC(HLF + M7 + M8 - M16, M19, 8)


R02 = T_RECT2(M5 - 35 - M11, H - 31 - 18 + 6 - 7, 45, 14) & T_RECT2(M5 - 35, H - 31 - 18 + 6 - 7, 45, 14) & T_RECT2(M5 + 35, H - 31 - 18 + 6 - 7, 45, 14) & T_RECT2(M5 + 35 + M11, H - 31 - 18 + 6 - 7, 45, 14)
R03 = T_SLOT(M5, H - 31 - 11.35 + 6, 25, 8.5, 0) & T_CIRC(M5 - M6 - 140, H - 31 - 11.35 + 6, 9) & T_SLOT(M5 - M6, H - 31 - 11.35 + 6, 25, 8.5, 0) & T_SLOT(M5 + M6, H - 31 - 11.35 + 6, 25, 8.5, 0) & T_CIRC(M5 + M6 + 140, H - 31 - 11.35 + 6, 9)

R04 = T_RECT1(M3, M3 + 23, H - 6 - 13, H - 6) & T_RECT1(M3 + M4, M3 + M4 + 23, H - 6 - 13, H - 6) & T_RECT1(M3 + 2 * M4, M3 + 2 * M4 + 23, H - 6 - 13, H - 6) & T_RECT1(M3 + 3 * M4, M3 + 3 * M4 + 23, H - 6 - 13, H - 6)
R05 = T_SLOT(M3 + 3 * M4 - 35, H - 10, 15, 9, 90)
R06 = T_RECT1(-6, M13, -6, M1 + 10 - 6) & T_RECT1(L - M14, L + 6, M1 + 15 - 6, H + 6)

R07 = T_SMUS_ST(M12 / 2, H)

Case 4, 8
HLF = M13 + M12 / 2
R01 = T_CIRC(HLF - M17, M10 - M18, 8) & T_CIRC(HLF - M17 - M9, M10, 8)
If M15 > 0 Then R01 = R01 & T_CIRC(HLF - M17 - M9 + M15, M10, 8)
R01 = R01 & T_CIRC(HLF + M7 + M8, M19 - M20, 8) & T_CIRC(HLF + M7, M19, 8)
If M16 > 0 Then R01 = R01 & T_CIRC(HLF + M7 + M8 - M16, M19, 8)


R02 = T_RECT2(M5 - 35 - M11, H - 31 - 18 + 6 - 7, 45, 14) & T_RECT2(M5 - 35, H - 31 - 18 + 6 - 7, 45, 14) & T_RECT2(M5 + 35, H - 31 - 18 + 6 - 7, 45, 14) & T_RECT2(M5 + 35 + M11, H - 31 - 18 + 6 - 7, 45, 14)
R03 = T_SLOT(M5, H - 31 - 11.35 + 6, 25, 8.5, 0) & T_CIRC(M5 - M6 - 140, H - 31 - 11.35 + 6, 9) & T_SLOT(M5 - M6, H - 31 - 11.35 + 6, 25, 8.5, 0) & T_SLOT(M5 + M6, H - 31 - 11.35 + 6, 25, 8.5, 0) & T_CIRC(M5 + M6 + 140, H - 31 - 11.35 + 6, 9)

R04 = T_RECT1(M13 + M3, M13 + M3 + 23, H - 6 - 13, H - 6) & T_RECT1(M13 + M3 + M4, M13 + M3 + M4 + 23, H - 6 - 13, H - 6) & T_RECT1(M13 + M3 + 2 * M4, M13 + M3 + 2 * M4 + 23, H - 6 - 13, H - 6) & T_RECT1(M13 + M3 + 3 * M4, M13 + M3 + 3 * M4 + 23, H - 6 - 13, H - 6)
R05 = T_SLOT(M13 + M3 + 3 * M4 - 35, H - 10, 15, 9, 90)
R06 = T_RECT1(-6, M13, M1 + 15 - 6, H + 6) & T_RECT1(L - M14, L + 6, M1 + 15 - 6, H + 6)

R07 = T_SMUS_ST(M13 + M12 / 2, H)

Case Else
MsgBox "ERRORE VERSIONE SU " & ACT_MOD
End Select



P1 = L / 2 - M7 / 2 + 100
P2 = L / 2 + M7 / 2 - 100
MVAL = 500

STRINGA = R000_vpr(NHD, CTT, SPS / 10, L, H, P1, P2, QTT, comm, RAGG, CODR, MVAL, INFO_DAT(NND, 0, 5)) & R01 & R02 & R03 & R04 & R05 & R06 & R07

Call SAVE_SUB(NND, STRINGA)

Call FVTPT(4, NND, "")

ACT_MOD = ""

End Sub


Sub V_1007889H(ByVal NND As Integer)
ACT_MOD = "1007889"
NHD = 10

'MsgBox ("CONTROLLARE " & ACT_MOD)
'************************************* INPUT
If NND > 0 Then ON_MD = 2 Else ON_MD = 1
Select Case ON_MD
Case 1
comm = INPUT_STR(NND, "COMMESSA", comm, ACT_MOD)
Case 2
comm = INFO_DAT(NND, 0, 2)
RAGG = INFO_DAT(NND, 0, 3)
QTT = INFO_DAT(NND, 0, 4)
CODR = INFO_DAT(NND, 0, 10) & " - " & INFO_DAT(NND, 0, 11) & " - " & INFO_DAT(NND, 0, 12)
Case Else
MsgBox "ERRORE", , ACT_MOD
End Select

L = INPUT_NUM(NND, "L", 0, ACT_MOD)
H = INPUT_NUM(NND, "H", H, ACT_MOD)
SPS = INPUT_NUM(NND, "SPS", SPS, ACT_MOD)
M1 = INPUT_NUM(NND, "M1", M1, ACT_MOD)
M2 = INPUT_NUM(NND, "M2", M2, ACT_MOD)
M3 = INPUT_NUM(NND, "M3", M3, ACT_MOD)
M4 = INPUT_NUM(NND, "M4", M4, ACT_MOD)
M6 = INPUT_NUM(NND, "M6", M6, ACT_MOD)
M7 = INPUT_NUM(NND, "M7", M7, ACT_MOD)
M8 = INPUT_NUM(NND, "M8", M8, ACT_MOD)
M9 = INPUT_NUM(NND, "M9", M9, ACT_MOD)
M10 = INPUT_NUM(NND, "M10", M10, ACT_MOD)
M11 = INPUT_NUM(NND, "M11", M11, ACT_MOD)
M12 = INPUT_NUM(NND, "M12", M12, ACT_MOD)
M13 = INPUT_NUM(NND, "M13", M13, ACT_MOD)
M14 = INPUT_NUM(NND, "M14", M14, ACT_MOD)
M15 = INPUT_NUM(NND, "M15", M15, ACT_MOD)
M16 = INPUT_NUM(NND, "M16", M16, ACT_MOD)
M17 = INPUT_NUM(NND, "M17", M17, ACT_MOD)
M18 = INPUT_NUM(NND, "M18", M18, ACT_MOD)
M19 = INPUT_NUM(NND, "M19", M19, ACT_MOD)
M20 = INPUT_NUM(NND, "M20", M20, ACT_MOD)
VV = INPUT_NUM(NND, "VER.", VV, ACT_MOD)

M5 = M12 / 2

'************************************* SCRITTURA LISTATO


Select Case VV
Case 1, 5
R01 = T_CIRC(M5 - M17, M10 - M18, 8) & T_CIRC(M5 - M17 - M9, M10, 8)
If M15 > 0 Then R01 = R01 & T_CIRC(M5 - M17 - M9 + M15, M10, 8)
R01 = R01 & T_CIRC(M5 + M7, M19 - M20, 8) & T_CIRC(M5 + M7 + M8, M19, 8)
If M16 > 0 Then R01 = R01 & T_CIRC(M5 + M7 + M8 - M16, M19, 8)

R02 = T_RECT2(M5 - 35 - M11, H - 31 - 18 + 6 - 7, 45, 14) & T_RECT2(M5 - 35, H - 31 - 18 + 6 - 7, 45, 14) & T_RECT2(M5 + 35, H - 31 - 18 + 6 - 7, 45, 14) & T_RECT2(M5 + 35 + M11, H - 31 - 18 + 6 - 7, 45, 14)
R03 = T_SLOT(M5, H - 31 - 11.35 + 6, 25, 8.5, 0) & T_CIRC(M5 - M6 - 140, H - 31 - 11.35 + 6, 9) & T_SLOT(M5 - M6, H - 31 - 11.35 + 6, 25, 8.5, 0) & T_SLOT(M5 + M6, H - 31 - 11.35 + 6, 25, 8.5, 0) & T_CIRC(M5 + M6 + 140, H - 31 - 11.35 + 6, 9)

R04 = T_RECT1(M3, M3 + 23, H - 6 - 13, H - 6) & T_RECT1(M3 + M4, M3 + M4 + 23, H - 6 - 13, H - 6) & T_RECT1(M3 + 2 * M4, M3 + 2 * M4 + 23, H - 6 - 13, H - 6) & T_RECT1(M3 + 3 * M4, M3 + 3 * M4 + 23, H - 6 - 13, H - 6)
R05 = T_SLOT(M3 + 3 * M4 - 35, H - 10, 15, 9, 90)
R06 = T_RECT1(-6, M13, -6, M1 + 10 - 6) & T_RECT1(L - M14, L + 6, -6, M1 + 10 - 6)

R07 = T_SMUS_ST(L / 2, H)

Case 2, 6
HLF = M13 + M12 / 2
R01 = T_CIRC(HLF - M17, M10 - M18, 8) & T_CIRC(HLF - M17 - M9, M10, 8)
If M15 > 0 Then R01 = R01 & T_CIRC(HLF - M17 - M9 + M15, M10, 8)
R01 = R01 & T_CIRC(HLF + M7 + M8, M19 - M20, 8) & T_CIRC(HLF + M7, M19, 8)
If M16 > 0 Then R01 = R01 & T_CIRC(HLF + M7 + M8 - M16, M19, 8)


R02 = T_RECT2(M5 - 35 - M11, H - 31 - 18 + 6 - 7, 45, 14) & T_RECT2(M5 - 35, H - 31 - 18 + 6 - 7, 45, 14) & T_RECT2(M5 + 35, H - 31 - 18 + 6 - 7, 45, 14) & T_RECT2(M5 + 35 + M11, H - 31 - 18 + 6 - 7, 45, 14)
R03 = T_SLOT(M5, H - 31 - 11.35 + 6, 25, 8.5, 0) & T_CIRC(M5 - M6 - 140, H - 31 - 11.35 + 6, 9) & T_SLOT(M5 - M6, H - 31 - 11.35 + 6, 25, 8.5, 0) & T_SLOT(M5 + M6, H - 31 - 11.35 + 6, 25, 8.5, 0) & T_CIRC(M5 + M6 + 140, H - 31 - 11.35 + 6, 9)

R04 = T_RECT1(M13 + M3, M13 + M3 + 23, H - 6 - 13, H - 6) & T_RECT1(M13 + M3 + M4, M13 + M3 + M4 + 23, H - 6 - 13, H - 6) & T_RECT1(M13 + M3 + 2 * M4, M13 + M3 + 2 * M4 + 23, H - 6 - 13, H - 6) & T_RECT1(M13 + M3 + 3 * M4, M13 + M3 + 3 * M4 + 23, H - 6 - 13, H - 6)
R05 = T_SLOT(M13 + M3 + 3 * M4 - 35, H - 10, 15, 9, 90)
R06 = T_RECT1(-6, M13, M1 + 15 - 6, H + 6) & T_RECT1(L - M14, L + 6, -6, M1 + 10 - 6)

R07 = T_SMUS_ST(M13 + M12 / 2, H)

Case 3, 7
HLF = M12 / 2
R01 = T_CIRC(HLF - M17, M10 - M18, 8) & T_CIRC(HLF - M17 - M9, M10, 8) & T_CIRC(HLF - M17 - M9 + M15, M10, 8)
If M15 > 0 Then R01 = R01 & T_CIRC(HLF - M17 - M9 + M15, M10, 8)
R01 = R01 & T_CIRC(HLF + M7 + M8, M19 - M20, 8) & T_CIRC(HLF + M7, M19, 8)
If M16 > 0 Then R01 = R01 & T_CIRC(HLF + M7 + M8 - M16, M19, 8)


R02 = T_RECT2(M5 - 35 - M11, H - 31 - 18 + 6 - 7, 45, 14) & T_RECT2(M5 - 35, H - 31 - 18 + 6 - 7, 45, 14) & T_RECT2(M5 + 35, H - 31 - 18 + 6 - 7, 45, 14) & T_RECT2(M5 + 35 + M11, H - 31 - 18 + 6 - 7, 45, 14)
R03 = T_SLOT(M5, H - 31 - 11.35 + 6, 25, 8.5, 0) & T_CIRC(M5 - M6 - 140, H - 31 - 11.35 + 6, 9) & T_SLOT(M5 - M6, H - 31 - 11.35 + 6, 25, 8.5, 0) & T_SLOT(M5 + M6, H - 31 - 11.35 + 6, 25, 8.5, 0) & T_CIRC(M5 + M6 + 140, H - 31 - 11.35 + 6, 9)

R04 = T_RECT1(M3, M3 + 23, H - 6 - 13, H - 6) & T_RECT1(M3 + M4, M3 + M4 + 23, H - 6 - 13, H - 6) & T_RECT1(M3 + 2 * M4, M3 + 2 * M4 + 23, H - 6 - 13, H - 6) & T_RECT1(M3 + 3 * M4, M3 + 3 * M4 + 23, H - 6 - 13, H - 6)
R05 = T_SLOT(M3 + 3 * M4 - 35, H - 10, 15, 9, 90)
R06 = T_RECT1(-6, M13, -6, M1 + 10 - 6) & T_RECT1(L - M14, L + 6, M1 + 15 - 6, H + 6)

R07 = T_SMUS_ST(M12 / 2, H)

Case 4, 8
HLF = M13 + M12 / 2
R01 = T_CIRC(HLF - M17, M10 - M18, 8) & T_CIRC(HLF - M17 - M9, M10, 8)
If M15 > 0 Then R01 = R01 & T_CIRC(HLF - M17 - M9 + M15, M10, 8)
R01 = R01 & T_CIRC(HLF + M7 + M8, M19 - M20, 8) & T_CIRC(HLF + M7, M19, 8)
If M16 > 0 Then R01 = R01 & T_CIRC(HLF + M7 + M8 - M16, M19, 8)


R02 = T_RECT2(M5 - 35 - M11, H - 31 - 18 + 6 - 7, 45, 14) & T_RECT2(M5 - 35, H - 31 - 18 + 6 - 7, 45, 14) & T_RECT2(M5 + 35, H - 31 - 18 + 6 - 7, 45, 14) & T_RECT2(M5 + 35 + M11, H - 31 - 18 + 6 - 7, 45, 14)
R03 = T_SLOT(M5, H - 31 - 11.35 + 6, 25, 8.5, 0) & T_CIRC(M5 - M6 - 140, H - 31 - 11.35 + 6, 9) & T_SLOT(M5 - M6, H - 31 - 11.35 + 6, 25, 8.5, 0) & T_SLOT(M5 + M6, H - 31 - 11.35 + 6, 25, 8.5, 0) & T_CIRC(M5 + M6 + 140, H - 31 - 11.35 + 6, 9)

R04 = T_RECT1(M13 + M3, M13 + M3 + 23, H - 6 - 13, H - 6) & T_RECT1(M13 + M3 + M4, M13 + M3 + M4 + 23, H - 6 - 13, H - 6) & T_RECT1(M13 + M3 + 2 * M4, M13 + M3 + 2 * M4 + 23, H - 6 - 13, H - 6) & T_RECT1(M13 + M3 + 3 * M4, M13 + M3 + 3 * M4 + 23, H - 6 - 13, H - 6)
R05 = T_SLOT(M13 + M3 + 3 * M4 - 35, H - 10, 15, 9, 90)
R06 = T_RECT1(-6, M13, M1 + 15 - 6, H + 6) & T_RECT1(L - M14, L + 6, M1 + 15 - 6, H + 6)

R07 = T_SMUS_ST(M13 + M12 / 2, H)

Case Else
MsgBox "ERRORE VERSIONE SU " & ACT_MOD
End Select



P1 = L / 2 - M7 / 2 + 100
P2 = L / 2 + M7 / 2 - 100
MVAL = 500

STRINGA = R000_vpr(NHD, CTT, SPS / 10, L, H, P1, P2, QTT, comm, RAGG, CODR, MVAL, INFO_DAT(NND, 0, 5)) & R01 & R02 & R03 & R04 & R05 & R06 & R07

Call SAVE_SUB(NND, STRINGA)

Call FVTPT(4, NND, "")

ACT_MOD = ""

End Sub


Function T_45(ByVal XC As Single, ByVal YC As Single) As String

XC = Round(XC, 1)
YC = Round(YC, 1)

TX = LAB_6(10)


T_45 = ST64("G90/X" & XC & "/Y" & YC & "/" & TX & "C45./>")

End Function