View difference between Paste ID: Gks4tRha and iWRDuGPM

-'Tooling
+'G_Vipros
 
-Function T_RECT1(ByVal XS As Double, ByVal XD As Double, ByVal YI As Double, ByVal YS As Double) As String
+Sub V_1014688A(ByVal NND As Integer)
 ACT_MOD = "1014688"
 NHD = 1
-N1 = Round(XS, 2)
+If NND > 0 Then ON_MD = 2 Else ON_MD = 1
-N2 = Round(XD, 2)
+
-N3 = Round(YI, 2)
+'MsgBox "CONTROLLARE " & ACT_MOD
-N4 = Round(YS, 2)
+
 '************************************* INPUT
-If XS > XD Then
+Select Case ON_MD
-XS = N2
+
-XD = N1
+comm = INPUT_STR(NND, "COMMESSA", comm, ACT_MOD)
 Case 2
 comm = INFO_DAT(NND, 0, 2)
-If YI > YS Then
+RAGG = INFO_DAT(NND, 0, 3)
-YI = N4
+QTT = INFO_DAT(NND, 0, 4)
-YS = N3
+CODR = INFO_DAT(NND, 0, 10) & " - " & INFO_DAT(NND, 0, 11) & " - " & INFO_DAT(NND, 0, 12)
 
 Case Else
-''********************
+MsgBox "ERRORE", , ACT_MOD
-'If YI < -4 Then
+
-'YI = -4
+
 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)
-XC = (XS + XD) / 2
+SPS = INPUT_NUM(NND, "SPS", SPS, ACT_MOD) / 10
-YC = (YI + YS) / 2
+
-WDTJ = Abs(XS - XD)
+'************************************* SCRITTURA LISTATO
-HGTJ = Abs(YI - YS)
+
 XSC = 12 - 2 * SPS
 YSCINF = 12 + 1.75 - 2 * SPS 'MOD
-T_RECT1 = T_RECT2(XC, YC, WDTJ, HGTJ)
+YSCSUP = YSCINF + 19 'MOD
 DSTA = (L - M2) / 2
 QQ = 20
 
-If T_RECT1 = "" Then MsgBox ("ATTENZIONE ERRORE SPACCO RETTANGOLARE SU") & " " & ACT_MOD
+'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
-Function T_RECT2(ByVal XC As Double, ByVal YC As Double, ByVal WDT As Double, ByVal HGT As Double) As String
+
 R02A = T_CIRC(XSC, YSCINF, 3.3) & T_CIRC(XSC, YSCSUP, 3.3)
-'ESEGUE UNA LAVORAZIONE RETTANGOLARE
+R02B = T_CIRC(L - XSC, YSCINF, 3.3) & T_CIRC(L - XSC, YSCSUP, 3.3)
-'XC = X CENTRO RETTANGOLO    YC= Y CENTRO RETTANGOLO
+R02 = R02A & R02B
-'WDT = LARGHEZZA RETTANGOLO  HGT= ALTEZZA RETTANGOLO
+
 R03 = T_SLOT(DSTA, H - 8, 14, 5, 90) & T_SLOT(L - DSTA, H - 8, 14, 5, 90)
-WDT = Round(WDT, 2)
+
-HGT = Round(HGT, 2)
+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)
-XC = Round(XC, 2)
+'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)
-YC = Round(YC, 2)
+R04 = R04A '& R04B & R04C
 
-XSX = XC - WDT / 2
+R05A = T_RAG(XSC, 0, 1) & T_RAG(0, YSCINF, 1) & T_RAG(L - XSC, 0, 4) & T_RAG(L, YSCINF, 4)
-YLW = YC - HGT / 2
+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)
-If XSX <= 0 Then LSX = 1 Else LSX = 0
+R05 = R05A & R05B & R05C
-If YLW <= 0 Then LNF = 1 Else LNF = 0
+
 
 
-TX = LAB_2(WDT, HGT)
+P1 = L / 2 - 85
 P2 = L / 2 + 85
-TXQ = LAB_7(WDT, HGT)
+MVAL = 500
 
-' --------------------------- COMPARIAMO I RISULTATI FRA QUADRI E RETTANGOLI:
+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
-RQ = 0
+
-If TX <> "" Then RQ = ((1 * Right(TX, InStr(1, StrReverse(TX), " ", vbTextCompare) - 1)) ^ 2) / (WDT * HGT) ' INDICE DELLA LAVORAZIONE COL QUADRO
+
 Call SAVE_SUB(NND, STRINGA)
-If TXQ <> "" Then
+
-MLR = Right(TXQ, Len(TXQ) - InStr(1, TXQ, " ", vbBinaryCompare))
+ACT_MOD = ""
-MDX = NUM(Right(MLR, InStr(1, StrReverse(MLR), " ", vbTextCompare) - 1))
+End Sub
-MSX = NUM(Left(MLR, InStr(1, MLR, " ", vbTextCompare)))
+
 
 
 Sub V_1016428B(ByVal NND As Integer)
 ACT_MOD = "1016428"
-RR = 0
+NHD = 10
-RR = (MDX * MSX) / (WDT * HGT)    ' INDICE DELLA PRESTAZIONE CON RETTANGOLO
+'MsgBox "CONTROLLARE " & ACT_MOD & ", NUOVA REVISIONE!!!!!"
 'AGGIORNATO 24/12/2017
-If ACT_MOD = "1006715" And InStr(1, TXQ, "30 5") > 0 Then 'ELIMINARE
+'************************************* INPUT
-RR = 0
+If NND > 0 Then ON_MD = 2 Else ON_MD = 1
 Select Case ON_MD
-If ACT_MOD = "1014657" And InStr(1, TXQ, "32,6 22,6") > 0 Then 'ELIMINARE
+
-RR = 0
+comm = INPUT_STR(NND, "COMMESSA", comm, ACT_MOD)
 Case 2
 comm = INFO_DAT(NND, 0, 2)
-If TX & TXQ = "" Then GoTo UUUUUU
+RAGG = INFO_DAT(NND, 0, 3)
 QTT = INFO_DAT(NND, 0, 4)
-If RQ > RR Then
+CODR = INFO_DAT(NND, 0, 10) & " - " & INFO_DAT(NND, 0, 11) & " - " & INFO_DAT(NND, 0, 12)
-TLBL = Left(TX, InStr(1, TX, " ", vbBinaryCompare) - 1)                 'ETICHETTA DELL'UTENSILE QUADRO SELEZIONATO
+
-SQRV = Right(TX, Len(TX) - InStr(1, TX, " ", vbBinaryCompare))          'LATO DELL'UTENSILE QUADRO SELEZIONATO
+
-MIN_LAT = -(WDT * (WDT <= HGT) + HGT * (WDT > HGT))                     'LATO MINIMO DEL RETTANGOLO
+MsgBox "ERRORE", , ACT_MOD
 End Select
-DIFF = MIN_LAT - SQRV
+
 L = INPUT_NUM(NND, "L", 0, ACT_MOD)
 H = INPUT_NUM(NND, "H", H, ACT_MOD)
-Select Case DIFF
+SPS = INPUT_NUM(NND, "SPS", SPS, ACT_MOD)
 M1 = INPUT_NUM(NND, "M1", M1, ACT_MOD)
-    Case Is > 0                'RODITURA X-Y
+M2 = INPUT_NUM(NND, "M2", M2, ACT_MOD)
-    NPX = WDT / SQRV
+M3 = INPUT_NUM(NND, "M3", M3, ACT_MOD)
-    If NPX > 1 Then
+M4 = INPUT_NUM(NND, "M4", M4, ACT_MOD)
-    NPX = Int(NPX)
+M5 = INPUT_NUM(NND, "M5", M5, ACT_MOD)
-    PX = Round((WDT - SQRV) / NPX, 2)
+M6 = INPUT_NUM(NND, "M6", M6, ACT_MOD)
-    End If
+M7 = INPUT_NUM(NND, "M7", M7, ACT_MOD)
-
+M8 = INPUT_NUM(NND, "M8", M8, ACT_MOD)
-    NPY = HGT / SQRV
+M9 = INPUT_NUM(NND, "M9", M9, ACT_MOD)
-    If NPY > 1 Then
+M10 = INPUT_NUM(NND, "M10", M10, ACT_MOD)
-    NPY = Int(NPY)
+M11 = INPUT_NUM(NND, "M11", M11, ACT_MOD)
-    PY = Round((HGT - SQRV) / NPY, 2)
+M12 = INPUT_NUM(NND, "M12", M12, ACT_MOD)
-    End If
+M13 = INPUT_NUM(NND, "M13", M13, ACT_MOD)
-
+M14 = INPUT_NUM(NND, "M14", M14, ACT_MOD)
-
+M15 = INPUT_NUM(NND, "M15", M15, ACT_MOD)
-    Select Case LSX & LNF
+M16 = INPUT_NUM(NND, "M16", M16, ACT_MOD)
-
+M17 = INPUT_NUM(NND, "M17", M17, ACT_MOD)
-    Case "00"               ' SCANTONATURA DX ALTA
+M18 = INPUT_NUM(NND, "M18", M18, ACT_MOD)
-    XPC = XC + (WDT / 2 - SQRV / 2)
+M19 = INPUT_NUM(NND, "M19", M19, ACT_MOD)
-    YPC = YC + (HGT / 2 - SQRV / 2)
+M20 = INPUT_NUM(NND, "M20", M20, ACT_MOD)
-    G90 = "G90/X" & XPC & "/Y" & YPC & "/" & TLBL & "/*SQI*/>"
+M21 = INPUT_NUM(NND, "M21", M21, ACT_MOD)
-    G37 = "G37/I-" & PX & "/P" & NPX & "/J-" & PY & "/K" & NPY & "/" & TLBL & "/*SQ*/>"
+VV = Val(Replace(INFO_DAT(NND, 0, 7), "P", ""))
-
+
-    Case "11"               ' SCANTONATURA SX BASSA
+
-    XPC = XC - (WDT / 2 - SQRV / 2)
+
-    YPC = YC - (HGT / 2 - SQRV / 2)
+'************************************* SCRITTURA LISTATO
-    G90 = "G90/X" & XPC & "/Y" & YPC & "/" & TLBL & "/*SQI*/>"
+
-    G37 = "G37/I" & PX & "/P" & NPX & "/J" & PY & "/K" & NPY & "/" & TLBL & "/*SQ*/>"
+Select Case VV
 Case 1, 5
-    Case "10"               ' SCANTONATURA SX ALTA
+
-    XPC = XC - (WDT / 2 - SQRV / 2)
+R01 = T_RECT1(-3, M18, -3, H - 81.5) & T_RECT1(L - M19, L + 3, -3, H - 81.5)
-    YPC = YC + (HGT / 2 - SQRV / 2)
+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)
-    G90 = "G90/X" & XPC & "/Y" & YPC & "/" & TLBL & "/*SQI*/>"
+If M21 > 0 Then R09 = T_CIRC(L / 2 + M15 + M13 - M21, M14, 8) Else R09 = ""
-    G37 = "G37/I" & PX & "/P" & NPX & "/J-" & PY & "/K" & NPY & "/" & TLBL & "/*SQ*/>"
+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)
-    Case "01"               ' SCANTONATURA DX BASSA
+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)
-    XPC = XC + (WDT / 2 - SQRV / 2)
+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)
-    YPC = YC - (HGT / 2 - SQRV / 2)
+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)
-    G90 = "G90/X" & XPC & "/Y" & YPC & "/" & TLBL & "/*SQI*/>"
+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)
-    G37 = "G37/I-" & PX & "/P" & NPX & "/J" & PY & "/K" & NPY & "/" & TLBL & "/*SQ*/>"
+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)
-
+
-    End Select
+R11 = T_45(M11 / 2, H)
-
+
-    T_RECT2 = ST64(Jcdf(G90)) & ST64(Jcdf(G37))
+Case 2, 6
-
+
-
+R01 = T_RECT1(-3, M18, M12 + M16 - 18, H + 3) & T_RECT1(L - M19, L + 10, -3, H - 81.5)
-Case Is = 0
+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 HGT - WDT = 0 Then     'COLPO SINGOLO
+If M21 > 0 Then R09 = T_CIRC(M18 + M11 / 2 + M15 + M13 - M21, M14, 8) Else R09 = ""
-    XPC = XC
+If M20 > 0 Then R10 = T_CIRC(M18 + M11 / 2 - M15 - M17 + M20, M14, 8) Else R10 = ""
-    YPC = YC
+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)
-    G90 = "G90/X" & XPC & "/Y" & YPC & "/" & TLBL & "/>"
+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)
-    T_RECT2 = ST64(Jcdf(G90))
+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)
-    Else
+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)
-    If WDT > HGT Then         'RODITURA X
+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)
-    NPX = WDT / SQRV
+
-    If NPX > 1 Then
+R11 = T_45(M18 + M11 / 2, H)
-    NPX = Int(NPX)
+
-    PX = Round((WDT - SQRV) / NPX, 2)
+Case 3, 7
-    End If
+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 LSX = 1 Then           '-------DA DX A SX  <<<<<<
+If M21 > 0 Then R09 = T_CIRC(M11 / 2 + M15 + M13 - M21, M14, 8) Else R09 = ""
-    XPC = Round(XC - (WDT / 2 - SQRV / 2), 2)
+If M20 > 0 Then R10 = T_CIRC(M11 / 2 - M15 - M17 + M20, M14, 8) Else R10 = ""
-    YPC = Round(YC, 2)
+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)
-    REP_X = XPC - 2000
+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)
-    G90 = "G90/X" & XPC & "/Y" & YPC & "/" & TLBL & "/*SQI*/>"
+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)
-    G28 = "G28/I" & PX & "/J0./K" & NPX & "/" & TLBL & "/*SQ*/>"
+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)
-    T_RECT2 = ST64(Jcdf(G90)) & ST64(Jcdf(G28))
+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)
-    Else                     '-------DA SX A DX  >>>>>>>
+
-    XPC = Round(XC + (WDT / 2 - SQRV / 2), 2)
+R11 = T_45(M11 / 2, H)
-    YPC = Round(YC, 2)
+
-    REP_X = XPC - 2000
+Case 4, 8
-    G90 = "G90/X" & XPC & "/Y" & YPC & "/" & TLBL & "/*SQI*/>"
+R01 = T_RECT1(-10, M18, M12 + M16 - 18, H + 3) & T_RECT1(L - M19, L + 10, M12 + M16 - 18, H + 3)
-    G28 = "G28/I" & PX & "/J180./K" & NPX & "/" & TLBL & "/*SQ*/>"
+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)
-    T_RECT2 = ST64(Jcdf(G90)) & ST64(Jcdf(G28))
+If M21 > 0 Then R09 = T_CIRC(M18 + M11 / 2 + M15 + M13 - M21, M14, 8) Else R09 = ""
-    End If
+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)
-    Else                      'RODITURA Y
+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)
-    NPY = HGT / SQRV
+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)
-    If NPY > 1 Then
+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)
-    NPY = Int(NPY)
+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)
-    PY = Round((HGT - SQRV) / NPY, 2)
+
-    End If
+R11 = T_45(M18 + M11 / 2, H)
-
+
-    If LNF = 1 Then           '------DALL'BASSO ALL'ALTO
+
-    XPC = Round(XC, 2)
+MsgBox "ERRORE VERSIONE SU " & ACT_MOD
-    YPC = Round(YC - (HGT / 2 - SQRV / 2), 2)
+
-    G90 = "G90/X" & XPC & "/Y" & YPC & "/" & TLBL & "/*SQI*/>"
+
-    G28 = "G28/I" & PY & "/J90./K" & NPY & "/" & TLBL & "/*SQ*/>"
+
-    T_RECT2 = ST64(Jcdf(G90)) & ST64(Jcdf(G28))
+P1 = L / 2 - M15 + 100
-
+P2 = L / 2 + M15 - 100
-    Else                      '-------DALL'ALTO AL BASSO
+MVAL = 500
-    XPC = Round(XC, 2)
+
-    YPC = Round(YC + HGT / 2 - SQRV / 2, 2)
+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
-    G90 = "G90/X" & XPC & "/Y" & YPC & "/" & TLBL & "/*SQI*/>"
+Call SAVE_SUB(NND, STRINGA)
-    G28 = "G28/I" & PY & "/J-90./K" & NPY & "/" & TLBL & "/*SQ*/>"
+
-    T_RECT2 = ST64(Jcdf(G90)) & ST64(Jcdf(G28))
+ACT_MOD = ""
-    End If
+End Sub
-
+
-    End If
+
-    End If
+Sub V_1016428C(ByVal NND As Integer)
-
+ACT_MOD = "1016428"
-    Case Is < 0
+NHD = 10
 'MsgBox "CONTROLLARE " & ACT_MOD & ", NUOVA REVISIONE!!!!!"
-    End Select
+'AGGIORNATO 24/12/2017
-
+'************************************* INPUT
-
+If NND > 0 Then ON_MD = 2 Else ON_MD = 1
-
+Select Case ON_MD
-Else    '---------------------- DEFINIAMO LA LAVORAZIONE FATTA DI RETTANGOLO
+
-
+comm = INPUT_STR(NND, "COMMESSA", comm, ACT_MOD)
 Case 2
-UTE = Left(TXQ, InStr(1, TXQ, " ", vbBinaryCompare) - 1)
+comm = INFO_DAT(NND, 0, 2)
-ANG = Right(UTE, InStr(1, StrReverse(UTE), "_", vbBinaryCompare) - 1)
+RAGG = INFO_DAT(NND, 0, 3)
-TLBL = Left(UTE, InStr(1, UTE, "_", vbBinaryCompare) - 1)
+QTT = INFO_DAT(NND, 0, 4)
 CODR = INFO_DAT(NND, 0, 10) & " - " & INFO_DAT(NND, 0, 11) & " - " & INFO_DAT(NND, 0, 12)
-If Right(ANG, 1) = "I" Then TLBL = TLBL & "C" & Replace(ANG, "I", "") & "."
+
 Case Else
 MsgBox "ERRORE", , ACT_MOD
-MLR = Right(TXQ, Len(TXQ) - InStr(1, TXQ, " ", vbBinaryCompare))
+
 
 L = INPUT_NUM(NND, "L", 0, ACT_MOD)
-Select Case ANG
+H = INPUT_NUM(NND, "H", H, ACT_MOD)
 SPS = INPUT_NUM(NND, "SPS", SPS, ACT_MOD)
-Case "0", "0I"
+M1 = INPUT_NUM(NND, "M1", M1, ACT_MOD)
-XXX = NUM(Left(MLR, InStr(1, MLR, " ", vbTextCompare)))
+M2 = INPUT_NUM(NND, "M2", M2, ACT_MOD)
-YYY = NUM(Right(MLR, InStr(1, StrReverse(MLR), " ", vbTextCompare) - 1))
+M3 = INPUT_NUM(NND, "M3", M3, ACT_MOD)
 M4 = INPUT_NUM(NND, "M4", M4, ACT_MOD)
-Case "90", "90I"
+M5 = INPUT_NUM(NND, "M5", M5, ACT_MOD)
 M6 = INPUT_NUM(NND, "M6", M6, ACT_MOD)
-XXX = NUM(Right(MLR, InStr(1, StrReverse(MLR), " ", vbTextCompare) - 1))
+M7 = INPUT_NUM(NND, "M7", M7, ACT_MOD)
-YYY = NUM(Left(MLR, InStr(1, MLR, " ", vbTextCompare)))
+M8 = INPUT_NUM(NND, "M8", M8, ACT_MOD)
 M9 = INPUT_NUM(NND, "M9", M9, ACT_MOD)
 M10 = INPUT_NUM(NND, "M10", M10, ACT_MOD)
-MsgBox "ERROR RECT TOOL ANGLE"
+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)
-RX = "0"
+M15 = INPUT_NUM(NND, "M15", M15, ACT_MOD)
-RY = "0"
+M16 = INPUT_NUM(NND, "M16", M16, ACT_MOD)
-
+M17 = INPUT_NUM(NND, "M17", M17, ACT_MOD)
-If WDT > XXX Then RX = "1"
+M18 = INPUT_NUM(NND, "M18", M18, ACT_MOD)
-If HGT > YYY Then RY = "1"
+M19 = INPUT_NUM(NND, "M19", M19, ACT_MOD)
 M20 = INPUT_NUM(NND, "M20", M20, ACT_MOD)
 M21 = INPUT_NUM(NND, "M21", M21, ACT_MOD)
-Select Case RX & RY
+VV = Val(Replace(INFO_DAT(NND, 0, 7), "P", ""))
 
-Case "00"   'COLPO   -------------------------------------------------------------------------------------
+
-    XPC = XC
+
-    YPC = YC
+'************************************* SCRITTURA LISTATO
-    G90 = "G90/X" & XPC & "/Y" & YPC & "/" & TLBL & "/>"
+
-    T_RECT2 = ST64(Jcdf(G90))
+Select Case VV
 Case 1, 5
 
-Case "11"   'RODITURA XY  -------------------------------------------------------------------------------------
+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)
-    NPX = WDT / XXX
+If M21 > 0 Then R09 = T_CIRC(L / 2 + M15 + M13 - M21, M14, 8) Else R09 = ""
-    If NPX > 1 Then
+If M20 > 0 Then R10 = T_CIRC(L / 2 - M15 - M17 + M20, M14, 8) Else R10 = ""
-    NPX = Int(NPX)
+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)
-    PX = Round((WDT - XXX) / NPX, 3)
+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)
-    End If
+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)
-    NPY = HGT / YYY
+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)
-    If NPY > 1 Then
+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)
-    NPY = Int(NPY)
+
-    PY = Round((HGT - YYY) / NPY, 3)
+R11 = T_45(M11 / 2, H)
-    End If
+
 Case 2, 6
 
-    Select Case LSX & LNF
+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)
-    Case "00"               ' SCANTONATURA DX ALTA
+If M21 > 0 Then R09 = T_CIRC(M18 + M11 / 2 + M15 + M13 - M21, M14, 8) Else R09 = ""
-    XPC = XC + (WDT / 2 - XXX / 2)
+If M20 > 0 Then R10 = T_CIRC(M18 + M11 / 2 - M15 - M17 + M20, M14, 8) Else R10 = ""
-    YPC = YC + (HGT / 2 - YYY / 2)
+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)
-    G90 = "G90/X" & XPC & "/Y" & YPC & "/" & TLBL & "/*SQI*/>"
+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)
-    G37 = "G37/I-" & PX & "/P" & NPX & "/J-" & PY & "/K" & NPY & "/" & TLBL & "/*SQ*/>"
+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 "11"               ' SCANTONATURA SX BASSA
+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)
-    XPC = XC - (WDT / 2 - XXX / 2)
+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)
-    YPC = YC - (HGT / 2 - YYY / 2)
+
-    G90 = "G90/X" & XPC & "/Y" & YPC & "/" & TLBL & "/*SQI*/>"
+R11 = T_45(M18 + M11 / 2, H)
-    G37 = "G37/I" & PX & "/P" & NPX & "/J" & PY & "/K" & NPY & "/" & TLBL & "/*SQ*/>"
+
 Case 3, 7
-    Case "10"               ' SCANTONATURA SX ALTA
+R01 = T_RECT1(-3, M18, -3, H - 81.5) & T_RECT1(L - M19, L + 3, M12 + M16 - 18, H + 3)
-    XPC = XC - (WDT / 2 - XXX / 2)
+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)
-    YPC = YC + (HGT / 2 - YYY / 2)
+If M21 > 0 Then R09 = T_CIRC(M11 / 2 + M15 + M13 - M21, M14, 8) Else R09 = ""
-    G90 = "G90/X" & XPC & "/Y" & YPC & "/" & TLBL & "/*SQI*/>"
+If M20 > 0 Then R10 = T_CIRC(M11 / 2 - M15 - M17 + M20, M14, 8) Else R10 = ""
-    G37 = "G37/I" & PX & "/P" & NPX & "/J-" & PY & "/K" & NPY & "/" & TLBL & "/*SQ*/>"
+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)
-    Case "01"               ' SCANTONATURA DX BASSA
+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)
-    XPC = XC + (WDT / 2 - XXX / 2)
+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)
-    YPC = YC - (HGT / 2 - YYY / 2)
+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)
-    G90 = "G90/X" & XPC & "/Y" & YPC & "/" & TLBL & "/*SQI*/>"
+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)
-    G37 = "G37/I-" & PX & "/P" & NPX & "/J" & PY & "/K" & NPY & "/" & TLBL & "/*SQ*/>"
+
-
+R11 = T_45(M11 / 2, H)
-    End Select
+
-
+Case 4, 8
-    T_RECT2 = ST64(Jcdf(G90)) & ST64(Jcdf(G37))
+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 = ""
-Case "01"  'RODITURA IN Y
+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)
-NPY = HGT / YYY
+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)
-    If NPY > 1 Then
+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)
-    NPY = Int(NPY)
+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)
-    PY = Round((HGT - YYY) / NPY, 2)
+
-    End If
+R11 = T_45(M18 + M11 / 2, H)
-
+
-    If LNF = 1 Then           '------DALL'BASSO ALL'ALTO
+
-    XPC = Round(XC, 2)
+MsgBox "ERRORE VERSIONE SU " & ACT_MOD
-    YPC = Round(YC - (HGT / 2 - YYY / 2), 2)
+
-    G90 = "G90/X" & XPC & "/Y" & YPC & "/" & TLBL & "/*SQI*/>"
+
-    G28 = "G28/I" & PY & "/J90./K" & NPY & "/" & TLBL & "/*SQ*/>"
+
-    T_RECT2 = ST64(Jcdf(G90)) & ST64(Jcdf(G28))
+P1 = L / 2 - M15 + 100
-
+P2 = L / 2 + M15 - 100
-    Else                      '-------DALL'ALTO AL BASSO
+MVAL = 500
-    XPC = Round(XC, 2)
+
-    YPC = Round(YC + HGT / 2 - YYY / 2, 2)
+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
-    G90 = "G90/X" & XPC & "/Y" & YPC & "/" & TLBL & "/*SQI*/>"
+Call SAVE_SUB(NND, STRINGA)
-    G28 = "G28/I" & PY & "/J-90./K" & NPY & "/" & TLBL & "/*SQ*/>"
+
-    T_RECT2 = ST64(Jcdf(G90)) & ST64(Jcdf(G28))
+ACT_MOD = ""
-    End If
+End Sub
 
 
-Case "10"
+Sub V_1014512C(ByVal NND As Integer)
 ACT_MOD = "1014512"
-    NPX = WDT / XXX
+NHD = 10
-    If NPX > 1 Then
+'MsgBox "CONTROLLARE " & ACT_MOD
-    NPX = Int(NPX)
+'AGGIUNTA 07/03/2017
-    PX = Round((WDT - XXX) / NPX, 2)
+'************************************* INPUT
-    End If
+If NND > 0 Then ON_MD = 2 Else ON_MD = 1
-
+Select Case ON_MD
-    If LSX = 1 Then           '-------DA DX A SX  <<<<<<
+
-    XPC = Round(XC - (WDT / 2 - XXX / 2), 2)
+comm = INPUT_STR(NND, "COMMESSA", comm, ACT_MOD)
-    YPC = Round(YC, 2)
+
-    REP_X = XPC - 2000
+comm = INFO_DAT(NND, 0, 2)
-    G90 = "G90/X" & XPC & "/Y" & YPC & "/" & TLBL & "/*SQI*/>"
+RAGG = INFO_DAT(NND, 0, 3)
-    G28 = "G28/I" & PX & "/J0./K" & NPX & "/" & TLBL & "/*SQ*/>"
+QTT = INFO_DAT(NND, 0, 4)
-    T_RECT2 = ST64(Jcdf(G90)) & ST64(Jcdf(G28))
+CODR = INFO_DAT(NND, 0, 10) & " - " & INFO_DAT(NND, 0, 11) & " - " & INFO_DAT(NND, 0, 12)
-
+
-    Else                     '-------DA SX A DX  >>>>>>>
+
-    XPC = Round(XC + (WDT / 2 - XXX / 2), 2)
+MsgBox "ERRORE", , ACT_MOD
-    YPC = Round(YC, 2)
+
-    REP_X = XPC - 2000
+
-    G90 = "G90/X" & XPC & "/Y" & YPC & "/" & TLBL & "/*SQI*/>"
+L = INPUT_NUM(NND, "L", 0, ACT_MOD)
-    G28 = "G28/I" & PX & "/J180./K" & NPX & "/" & TLBL & "/*SQ*/>"
+H = INPUT_NUM(NND, "H", H, ACT_MOD)
-    T_RECT2 = ST64(Jcdf(G90)) & ST64(Jcdf(G28))
+SPS = INPUT_NUM(NND, "SPS", SPS, ACT_MOD)
 M1 = INPUT_NUM(NND, "M1", M1, ACT_MOD)
-    End If
+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)
-Case "11"
+M7 = INPUT_NUM(NND, "M7", M7, ACT_MOD)
-MsgBox "ERROR RECT NIBBLING", vbCritical
+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)
-MsgBox "ERROR RECT NIBBLING", vbCritical
+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
-If T_RECT2 = "" Then MsgBox "T_RECT2 FAILED  ON DRAWING " & ACT_MOD, vbCritical
+
-Exit Function
+Select Case VV
-UUUUUU:
+Case 1, 2
 
-T_RECT2 = ""
+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)
-If T_RECT2 = "" Then MsgBox "T_RECT2 FAILED  ON DRAWING " & ACT_MOD, vbCritical
+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)
-Function T_RECT3(ByVal XC As Double, ByVal YC As Double, ByVal WDT As Double, ByVal HGT As Double) As String
+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)
-'ESEGUE UNA LAVORAZIONE RETTANGOLARE A COLPO SINGOLO
+R10 = T_SLOT(M9 + 33, H - 31.7, 45, 9, 0) & T_SLOT(M9 - 33, H - 31.7, 45, 9, 0)
-'XC = X CENTRO RETTANGOLO    YC= Y CENTRO RETTANGOLO
+R11 = T_SLOT(M9 + M8, H - 31.7, 45, 9, 0) & T_SLOT(M9 - M7, H - 31.7, 45, 9, 0)
-'WDT = LARGHEZZA RETTANGOLO  HGT= ALTEZZA RETTANGOLO
+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)
-For i = 1 To 46
+
 R16 = T_SMUS_ST(L / 2, 0)
-If UCase(TOOL_VAR(NHD, i, 6)) = "RETTANGOLO" Then
+
-If (TOOL_VAR(NHD, i, 3) = WDT And TOOL_VAR(NHD, i, 4) = HGT) Then
+Case 3, 4
-TX = TOOL_VAR(NHD, i, 1)
+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)
-Exit For
+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
-Next i
+R03 = T_CIRC(M11 + M15 + M14, H - 21, 9) & T_RECT1(M11 + M15 + M14 - 16, M11 + M15 + M14 + 16, H - 3, H + 7)
 Else
-T_RECT3 = ST64("G90/X" & XC & "/Y" & YC & "/" & TX & "/>")
+R03 = ""
 End If
-If TX = "" Then
+If M13 > 0 Then
-MsgBox ("ERRORE SU SPACCO RETTANGOLARE A COLPO SINGOLO"), vbCritical
+R05 = T_CIRC(M11 - M15 - M13, H - 21, 9) & T_RECT1(M11 - M15 - M13 - 16, M11 - M15 - M13 + 16, H - 3, H + 7)
-T_RECT3 = ""
+
 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)
-Function T_CIRC(ByVal X As Double, ByVal Y As Double, ByVal DIAMETER As String) As String
+R10 = T_SLOT(L - M9 - M8 - M12, H - 31.7, 45, 9, 0)
-'ESEGUE UNA LAVORAZIONE CIRCOLARE A COLPO SINGOLO
+
 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)
-If DIAMETER = "10" Then DIAMETER = "10.1"
+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)
-If DIAMETER = "20" Then DIAMETER = "20.2"
+
-If DIAMETER = "7" Then DIAMETER = "7.2"
+R14 = T_SLOT(M12 + M9 + M5, H - 9.5, 45, 9, 0) & T_SLOT(M12 + M9 + M6, H - 9.5, 45, 9, 0)
-If DIAMETER = "4,5" Then DIAMETER = "4.2"
+R15 = T_SLOT(M12 + M9 - M3, H - 9.5, 45, 9, 0) & T_SLOT(M12 + M9 - M4, H - 9.5, 45, 9, 0)
-If DIAMETER = "4" Then DIAMETER = "4.2"
+
-If DIAMETER = "6.1" Then DIAMETER = "6"
+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)
-LAB_TOOL = LAB_1(DIAMETER)
+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)
-If LAB_TOOL = "" Then
+
 R12 = ""
 R13 = ""
-'If DIAMETER = "36,5" Then
+R14 = ""
-'T_CIRC = T_SECTOR(X, Y, DIAMETER)
+R15 = ""
-'GoTo END_TCIRC:
+
 
-
+
 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)
-MsgBox ("RODITURA CIRCOLARE DI DIAMETRO " & DIAMETER)
+R16 = T_SMUS_ST(M11, 0)
-DIAM_RID = Round(Val(DIAMETER) * 0.75, 1) + 0.1
+
 Case Else
-For kk = 1 To 10000
+MsgBox ("ERRORE VERSIONE SU CODICE " & ACT_MOD)
-LAB_TOOL = LAB_1(DIAM_RID)
+
-If LAB_TOOL <> "" Then Exit For
+
-DIAM_RID = DIAM_RID - 0.05
+
-DIAM_RID = Round(DIAM_RID, 2)
+
 P1 = L - M2 - 3 * M1 + 150
-If DIAM_RID < 0.55 * Val(DIAMETER) Then
+P2 = L - M2 - 150
-MsgBox "RODITURA CIRCOLARE FALLITA SU " & ACT_MOD
+MVAL = 500
-T_CIRC = ""
+
-Exit Function
+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
 
-Next kk
+Call SAVE_SUB(NND, STRINGA)
 
-If Val(DIAM_RID) < 8 Then QLR = 0.6 Else QLR = 2 'QUALITA' RODITURA
+Call FVTPT(4, NND, "")
 
-G90 = "G90/G72/X" & X & "/Y" & Y & "/*SQI*/>"
+ACT_MOD = ""
-G68 = "G68/I" & Val(DIAMETER) / 2 & "/J180./K-360./P-" & DIAM_RID & "/Q" & QLR & "./" & LAB_TOOL & "/*SQ*/>"  'CONTROLLO VAL
+End Sub
-T_CIRC = ST64(Jcdf(G90)) & ST64(Jcdf(G68))
+
-
+
 Sub V_10339490(ByVal NND As Integer)
 ACT_MOD = "1033949"
 NHD = 10
-G90 = "G90/X" & X & "/Y" & Y & "/" & LAB_TOOL & "/>"
+'MsgBox "CONTROLLARE " & ACT_MOD
-T_CIRC = ST64(Jcdf(G90))
+'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)
-Function T_SECTOR(ByVal X As Double, ByVal Y As Double, ByVal DIAM As Double) ' LAVORAZIONE CIRCOLARE DI 48, DI 36.5 O DI 30
+QTT = INFO_DAT(NND, 0, 4)
 CODR = INFO_DAT(NND, 0, 10) & " - " & INFO_DAT(NND, 0, 11) & " - " & INFO_DAT(NND, 0, 12)
-'PER AUMENTARE I COLPI ANDARE AD AGIRE SULL'ARCO
+
 Case Else
 MsgBox "ERRORE", , ACT_MOD
-Select Case DIAM
+
 
 L = INPUT_NUM(NND, "L", 0, ACT_MOD)
-Case 36.5
+H = INPUT_NUM(NND, "H", H, ACT_MOD)
-ANGL = 270
+SPS = INPUT_NUM(NND, "SPS", SPS, ACT_MOD)
-DST = 12
+M1 = INPUT_NUM(NND, "M1", M1, ACT_MOD)
-ARCO = 73 'GRADI
+M2 = INPUT_NUM(NND, "M2", M2, ACT_MOD)
-MsgBox "CONTROLLARE DIAMETRO " & DIAM, vbCritical
+M3 = INPUT_NUM(NND, "M3", M3, ACT_MOD)
 M4 = INPUT_NUM(NND, "M4", M4, ACT_MOD)
-Case 48
+M5 = INPUT_NUM(NND, "M5", M5, ACT_MOD)
-ANGL = 90
+M6 = INPUT_NUM(NND, "M6", M6, ACT_MOD)
-DST = 12
+M7 = INPUT_NUM(NND, "M7", M7, ACT_MOD)
-ARCO = 55 'GRADI
+M8 = INPUT_NUM(NND, "M8", M8, ACT_MOD)
-'MsgBox "CONTROLLARE DIAMETRO " & DIAM, vbCritical
+M9 = INPUT_NUM(NND, "M9", M9, ACT_MOD)
 M10 = INPUT_NUM(NND, "M10", M10, ACT_MOD)
-Case 50
+M11 = INPUT_NUM(NND, "M11", M11, ACT_MOD)
-ANGL = 90
+M12 = INPUT_NUM(NND, "M12", M12, ACT_MOD)
-DST = 12
+M13 = INPUT_NUM(NND, "M13", M13, ACT_MOD)
-ARCO = 55 'GRADI
+M14 = INPUT_NUM(NND, "M14", M14, ACT_MOD)
-MsgBox "CONTROLLARE DIAMETRO " & DIAM, vbCritical
+M15 = INPUT_NUM(NND, "M15", M15, ACT_MOD)
 VV = INPUT_NUM(NND, "VER.", VV, ACT_MOD)
 '************************************* SCRITTURA LISTATO
 
-MsgBox ("ERROR OF ANGLE IN THE FUNCTION T_SECTOR")
+Select Case VV
 Case 1, 2
 
-N_RP = (360 / ARCO)
+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)
-If Int(N_RP) <> N_RP Then N_RP = Int(N_RP) + 1 Else N_RP = Int(N_RP)
+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)
-PIG = 3.14159265358 'PIGRECO
+R04 = T_RECT1(59, 91, H - 3, H + 7) & T_RECT1(L - 91, L - 59, H - 3, H + 7)
-UTLS = "BI_RAD"
+
 R05 = T_SLOT(L - M9 + M4, H - 9.5, 45, 9, 0) & T_SLOT(L - M9 + M3, H - 9.5, 45, 9, 0)
-For RP = 1 To N_RP
+R06 = T_SLOT(L - M9 + M7, H - 31.7, 45, 9, 0)
-RADN = (ARCO * (RP - 1) * 2 * PIG) / 360
+R07 = T_SLOT(L - M9 + 33, H - 31.7, 45, 9, 0) & T_SLOT(L - M9 - 33, H - 31.7, 45, 9, 0)
-If ANGL > 360 Then ANGL = ANGL - 360
+R08 = T_SLOT(L - M9 - M8, H - 31.7, 45, 9, 0)
-SCT1 = SCT1 & T_SPECIAL(X + (DIAM / 2 - DST) * Cos(RADN), Y + (DIAM / 2 - DST) * Sin(RADN), UTLS, "C" & ANGL & ".")
+R09 = T_SLOT(L - M9 - M5, H - 9.5, 45, 9, 0) & T_SLOT(L - M9 - M6, H - 9.5, 45, 9, 0)
-ANGL = ANGL + ARCO
+R10 = T_SLOT(M9 + 33, H - 31.7, 45, 9, 0) & T_SLOT(M9 - 33, H - 31.7, 45, 9, 0)
-Next RP
+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)
 
-T_SECTOR = SCT1
+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)
-Function T_HEX(ByVal X As Double, ByVal Y As Double, ByVal LARG As Double) As String
+R04 = T_CIRC(M11 + M15, H - 21, 9) & T_CIRC(M11 - M15, H - 21, 9)
-'ESEGUE UNA LAVORAZIONE ESAGONALE A COLPO SINGOLO
+If M14 > 0 Then
-LARG = Int(LARG)
+R03 = T_CIRC(M11 + M15 + M14, H - 21, 9) & T_RECT1(M11 + M15 + M14 - 16, M11 + M15 + M14 + 16, H - 3, H + 7)
 Else
-BG_LAB:
+R03 = ""
 End If
-Key = "SPECIALE"
+If M13 > 0 Then
-LAB_TOOL = ""
+R05 = T_CIRC(M11 - M15 - M13, H - 21, 9) & T_RECT1(M11 - M15 - M13 - 16, M11 - M15 - M13 + 16, H - 3, H + 7)
-For i = 1 To 46
+
-If UCase(TOOL_VAR(NHD, i, 6)) = Key Then
+R05 = ""
-    If Replace(TOOL_VAR(NHD, i, 3), ",", ".") = Replace(LARG, ",", ".") & "EX" Then
+
-    LAB_TOOL = TOOL_VAR(NHD, i, 1)
+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)
-    Exit For
+
-    End If
+
-    End If
+R08 = T_SLOT(L - M9 + M7 - M12, H - 31.7, 45, 9, 0)
-Next i
+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)
-If LAB_TOOL = "" Then
+
-MsgBox ("NON TROVATO UTENSILE ESAGONALE") & " !!!!!!!!!", vbCritical
+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)
-G90 = "G90/X" & X & "/Y" & Y & "/" & LAB_TOOL & "/>"
+
-T_HEX = ST64(Jcdf(G90))
+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)
-Function T_SLOT(ByVal X As Double, ByVal Y As Double, ByVal LENG As String, ByVal HGT As String, ByVal ROT As Single) As String
+R14 = T_SLOT(M12 + M9 + M5, H - 9.5, 45, 9, 0) & T_SLOT(M12 + M9 + M6, H - 9.5, 45, 9, 0)
-'ESEGUE UNA LAVORAZIONE AD ASOLA IN COLPO SINGOLO O RODITURA
+R15 = T_SLOT(M12 + M9 - M3, H - 9.5, 45, 9, 0) & T_SLOT(M12 + M9 - M4, H - 9.5, 45, 9, 0)
-'If HGT = "7,2" Then HGT = "7" 'da eliminare
+
-If HGT = "5,5" And LENG = "8" And ROT = 0 Then
+R12 = ""
-'5 COLPI CON IL TONDO DI 5.5
+R13 = ""
-T_SLOT = T_CIRC(X, Y, 5.5) & T_CIRC(X + 1.25, Y, 5.5) & T_CIRC(X - 1.25, Y, 5.5) & T_CIRC(X + 0.625, Y, 5.5) & T_CIRC(X - 0.625, Y, 5.5)
+R14 = ""
-Exit Function
+R15 = ""
 End If
 
 
-LENG = Jcdf(LENG)
+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)
-HGT = Jcdf(HGT)
+R16 = T_SMUS_ST(M11, 0)
-RODITURA = 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)
-BG_LAB:
+
-Key = "Asola"
+
 Case Else
-'******************************* CERCA UN'ASOLA FISSA
+MsgBox ("ERRORE VERSIONE SU CODICE " & ACT_MOD)
-LAB_TOOL = ""
+
-For i = 1 To 46
+
-If TOOL_VAR(NHD, i, 6) = Key Then
+
 
-    If TOOL_VAR(NHD, i, 3) = LENG And TOOL_VAR(NHD, i, 4) = HGT & "A" Then
+P1 = L - M2 - 3 * M1 + 150
-    If TOOL_VAR(NHD, i, 5) = Trim(STR(ROT)) Then
+P2 = L - M2 - 150
-    LAB_TOOL = TOOL_VAR(NHD, i, 1)
+MVAL = 500
-    G90 = "G90/X" & X & "/Y" & Y & "/" & LAB_TOOL & "/>"
+
-    T_SLOT = ST64(Jcdf(G90))
+fn = R01 & R02 & R03 & R04 & R05 & R06 & R07 & R08 & R09 & R10 & R11 & R12 & R13 & R14 & R15 & R16 & R17 & R18
-    Exit For
+STRINGA = R000_vpr(NHD, CTT, SPS / 10, L, H, P1, P2, QTT, comm, RAGG, CODR, MVAL, INFO_DAT(NND, 0, 5)) & fn
-    End If
+
-    End If
+Call SAVE_SUB(NND, STRINGA)
 
-If RODITURA = 0 And (Val(Jcdf(TOOL_VAR(NHD, i, 3))) < Val(LENG) And TOOL_VAR(NHD, i, 4) = HGT & "A") Then
+Call FVTPT(4, NND, "")
-    If TOOL_VAR(NHD, i, 5) = Trim(STR(ROT)) Then
+
-LAB_TOOL = TOOL_VAR(NHD, i, 1)
+ACT_MOD = ""
 End Sub
-PMAX = Val(TOOL_VAR(NHD, i, 3)) - Val(TOOL_VAR(NHD, i, 4))
+
-XX = ((Vbdf(LENG)) - Val(Vbdf(TOOL_VAR(NHD, i, 3)))) / PMAX
+
-If XX > Int(XX) Then XX = Int(XX) + 1
+
-PP = (Vbdf(LENG) - TOOL_VAR(NHD, i, 3)) / XX
+Sub V_1007889C(ByVal NND As Integer) 'revisione C
-DST = XX / 2 * PP
+ACT_MOD = "1007889"
-PPJ = Jcdf(PP)
+NHD = 10
 
-Select Case ROT
+'MsgBox ("CONTROLLARE " & ACT_MOD)
-Case 0
+'************************************* INPUT
-G90 = "G90/X" & X - DST & "/Y" & Y & "/" & LAB_TOOL & "/>"
+If NND > 0 Then ON_MD = 2 Else ON_MD = 1
-G28 = ST64("G28/I" & PPJ & "/J0./K" & XX & "/" & LAB_TOOL & "/>")
+Select Case ON_MD
-Case 90
+
-G90 = "G90/X" & X & "/Y" & Y - DST & "/" & LAB_TOOL & "/>"
+comm = INPUT_STR(NND, "COMMESSA", comm, ACT_MOD)
-G28 = ST64("G28/I" & PPJ & "/J90./K" & XX & "/" & LAB_TOOL & "/>")
+
 comm = INFO_DAT(NND, 0, 2)
 RAGG = INFO_DAT(NND, 0, 3)
-GoTo NLAB
+QTT = INFO_DAT(NND, 0, 4)
 CODR = INFO_DAT(NND, 0, 10) & " - " & INFO_DAT(NND, 0, 11) & " - " & INFO_DAT(NND, 0, 12)
 
-T_SLOT = ST64(Jcdf(G90)) & ST64(Jcdf(G28))
+
 MsgBox "ERRORE", , ACT_MOD
-
+
-    End If
+
-    End If
+L = INPUT_NUM(NND, "L", 0, ACT_MOD)
-
+H = INPUT_NUM(NND, "H", H, ACT_MOD)
-    End If
+SPS = INPUT_NUM(NND, "SPS", SPS, ACT_MOD)
-Next i
+M1 = INPUT_NUM(NND, "M1", M1, ACT_MOD)
 M2 = INPUT_NUM(NND, "M2", M2, ACT_MOD)
-'******************************* CERCA UN'ASOLA ROTANTE
+M3 = INPUT_NUM(NND, "M3", M3, ACT_MOD)
-If LAB_TOOL = "" Then
+M4 = INPUT_NUM(NND, "M4", M4, ACT_MOD)
-For i = 1 To 46
+M5 = INPUT_NUM(NND, "M5", M5, ACT_MOD)
-If TOOL_VAR(NHD, i, 6) = Key Then
+M6 = INPUT_NUM(NND, "M6", M6, ACT_MOD)
-    If TOOL_VAR(NHD, i, 3) = LENG And TOOL_VAR(NHD, i, 4) = HGT & "A" Then
+M7 = INPUT_NUM(NND, "M7", M7, ACT_MOD)
-    If TOOL_VAR(NHD, i, 5) = "0I" Then
+M8 = INPUT_NUM(NND, "M8", M8, ACT_MOD)
-    LAB_TOOL = TOOL_VAR(NHD, i, 1)
+M9 = INPUT_NUM(NND, "M9", M9, ACT_MOD)
-    G90 = "G90/X" & X & "/Y" & Y & "/" & LAB_TOOL & "C" & ROT & "./>"
+M10 = INPUT_NUM(NND, "M10", M10, ACT_MOD)
-    T_SLOT = ST64(Jcdf(G90))
+M11 = INPUT_NUM(NND, "M11", M11, ACT_MOD)
-    Exit For
+M12 = INPUT_NUM(NND, "M12", M12, ACT_MOD)
-    End If
+M13 = INPUT_NUM(NND, "M13", M13, ACT_MOD)
-    End If
+M14 = INPUT_NUM(NND, "M14", M14, ACT_MOD)
-
+M15 = INPUT_NUM(NND, "M15", M15, ACT_MOD)
-    If RODITURA = 0 And (Val(Jcdf(TOOL_VAR(NHD, i, 3))) < Val(LENG) And TOOL_VAR(NHD, i, 4) = HGT & "A") Then 'AGGIUNTA RODITURA CON ASOLA ROTANTE
+M16 = INPUT_NUM(NND, "M16", M16, ACT_MOD)
-    If TOOL_VAR(NHD, i, 5) = "0I" Then
+'M17 = INPUT_NUM(NND, "M17", M17, ACT_MOD)
-    LAB_TOOL = TOOL_VAR(NHD, i, 1)
+'M18 = INPUT_NUM(NND, "M18", M18, ACT_MOD)
 'M19 = INPUT_NUM(NND, "M19", M19, ACT_MOD)
-    PMAX = Val(TOOL_VAR(NHD, i, 3)) - Val(TOOL_VAR(NHD, i, 4))
+VV = INPUT_NUM(NND, "VER.", VV, ACT_MOD)
-    XX = ((Vbdf(LENG)) - Val(Vbdf(TOOL_VAR(NHD, i, 3)))) / PMAX
+
-    If XX > Int(XX) Then XX = Int(XX) + 1
+
-    PP = (Vbdf(LENG) - TOOL_VAR(NHD, i, 3)) / XX
+
-    DST = XX / 2 * PP
+'************************************* SCRITTURA LISTATO
-    PPJ = Jcdf(PP)
+
 
-    Select Case ROT
+Select Case VV
-    Case 0
+Case 1, 5
-    G90 = "G90/X" & X - DST & "/Y" & Y & "/" & LAB_TOOL & "C" & ROT & "/>"
+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)
-    G28 = ST64("G28/I" & PPJ & "/J" & ROT & "./K" & XX & "/" & LAB_TOOL & "/>")
+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)
-    Case 90
+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)
-    G90 = "G90/X" & X & "/Y" & Y - DST & "/" & LAB_TOOL & "C" & ROT & "/>"
+
-    G28 = ST64("G28/I" & PPJ & "/J" & ROT & "./K" & XX & "/" & LAB_TOOL & "/>")
+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)
-    End Select
+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)
-    T_SLOT = ST64(Jcdf(G90)) & ST64(Jcdf(G28))
+
-    End If
+Case 2, 6
-    End If                                                                          'FINE AGGIUNTA RODITURA CON ASOLA ROTANTE
+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)
-    End If
+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)
 
-Next i
+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)
-If RODITURA = 1 Then GoTo NLAB
+
-If LAB_TOOL = "" Then
+Case 3, 7
-RODITURA = 1
+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)
-GoTo BG_LAB
+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)
 
-NLAB:
+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)
-If LAB_TOOL = "" Then
+
-MsgBox ("NON TROVATO UTENSILE ASOLA") & " " & LENG & " x " & HGT & " - " & ROT & " " & ("INSERIRE ALTRO VALORE")
+Case 4, 8
-LENG = InputBox("LENG")
+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)
-HGT = InputBox("HGT")
+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)
-GoTo BG_LAB
+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
-Function T_SPECIAL(ByVal X As Double, ByVal Y As Double, ByVal TL_LAB As String, ByVal STR_IND As String) As String
+MsgBox "ERRORE VERSIONE SU " & ACT_MOD
-'ESEGUE UNA LAVORAZIONE SPECIALE A COLPO SINGOLO
+
 
-BG_LAB:
+
-LAB_TOOL = LAB_3(TL_LAB, STR_IND)
+
-If LAB_TOOL = "" Then
+P1 = L / 2 - M7 / 2 + 100
-MsgBox ("NON TROVATO UTENSILE SPECIALE"), vbCritical
+P2 = L / 2 + M7 / 2 - 100
-Exit Function
+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
-G90 = "G90/X" & X & "/Y" & Y & "/" & LAB_TOOL & STR_IND & "/>"
+
-T_SPECIAL = ST64(Jcdf(G90))
+Call SAVE_SUB(NND, STRINGA)
 
 ACT_MOD = ""
 
-Function LAB_1(ByVal DIAM As String) As String
+End Sub
-'DEFINISCE UTENSILE X LAVORAZIONE TONDA A COLPO SINGOLO
+
 
-Key = "Tondo"
+
-LAB_1 = ""
+Sub V_1007889E(ByVal NND As Integer) 'revisione E
-For i = 1 To 46
+ACT_MOD = "1007889"
-If TOOL_VAR(NHD, i, 6) = Key Then
+NHD = 10
-    If Replace(TOOL_VAR(NHD, i, 3), ",", ".") = Replace(DIAM, ",", ".") Then
+
-    LAB_1 = TOOL_VAR(NHD, i, 1)
+'MsgBox ("CONTROLLARE " & ACT_MOD)
-    Exit For
+'************************************* INPUT
-    End If
+If NND > 0 Then ON_MD = 2 Else ON_MD = 1
-    End If
+Select Case ON_MD
-Next i
+
 comm = INPUT_STR(NND, "COMMESSA", comm, ACT_MOD)
 Case 2
 comm = INFO_DAT(NND, 0, 2)
 RAGG = INFO_DAT(NND, 0, 3)
-Function LAB_2(ByVal X As Double, ByVal Y As Double) As String
+QTT = INFO_DAT(NND, 0, 4)
-'DEFINISCE L'UTENSILE QUADRO X LAVORAZIONE RETTANGOLARE    LAB_2= <ETICHETTA LATOUTENSILE>
+CODR = INFO_DAT(NND, 0, 10) & " - " & INFO_DAT(NND, 0, 11) & " - " & INFO_DAT(NND, 0, 12)
 
-Key = "Quadro"
+
-SQRV = -(X * (X <= Y) + Y * (X > Y))
+MsgBox "ERRORE", , ACT_MOD
-If X < 13 Or Y < 13 Then SVP = 10 Else SVP = 20                    'PERCENTUALE SOVRAPPOSIZIONE MINIMA COLPI RODITURA
+
 
-Dim NDX(100) As String
+L = INPUT_NUM(NND, "L", 0, ACT_MOD)
-Dim LTR(100) As Double
+H = INPUT_NUM(NND, "H", H, ACT_MOD)
 SPS = INPUT_NUM(NND, "SPS", SPS, ACT_MOD)
 M1 = INPUT_NUM(NND, "M1", M1, ACT_MOD)
-RRT = 0
+M2 = INPUT_NUM(NND, "M2", M2, ACT_MOD)
-For i = 1 To 46
+M3 = INPUT_NUM(NND, "M3", M3, ACT_MOD)
-If TOOL_VAR(NHD, i, 6) = Key And TOOL_VAR(NHD, i, 5) <> "45" Then
+M4 = INPUT_NUM(NND, "M4", M4, ACT_MOD)
-If TOOL_VAR(NHD, i, 5) = "0I" Then AGG = "C0." Else AGG = ""
+M5 = INPUT_NUM(NND, "M5", M5, ACT_MOD)
-RRT = RRT + 1
+M6 = INPUT_NUM(NND, "M6", M6, ACT_MOD)
-NDX(RRT) = TOOL_VAR(NHD, i, 1) & AGG
+M7 = INPUT_NUM(NND, "M7", M7, ACT_MOD)
-LTR(RRT) = Val(TOOL_VAR(NHD, i, 3))
+M8 = INPUT_NUM(NND, "M8", M8, ACT_MOD)
 M9 = INPUT_NUM(NND, "M9", M9, ACT_MOD)
 M10 = INPUT_NUM(NND, "M10", M10, ACT_MOD)
-Next i
+M11 = INPUT_NUM(NND, "M11", M11, ACT_MOD)
 M12 = INPUT_NUM(NND, "M12", M12, ACT_MOD)
-COUNT_T = RRT
+M13 = INPUT_NUM(NND, "M13", M13, ACT_MOD)
 M14 = INPUT_NUM(NND, "M14", M14, ACT_MOD)
-SRCL2:                            'BLOCCO CHE ORDINA IN MODO DECRESCENTE DI DIMENSIONE GLI UTENSILI QUADRI
+M15 = INPUT_NUM(NND, "M15", M15, ACT_MOD)
-For i = 1 To COUNT_T - 1
+M16 = INPUT_NUM(NND, "M16", M16, ACT_MOD)
-If LTR(i) < LTR(i + 1) Then
+'M17 = INPUT_NUM(NND, "M17", M17, ACT_MOD)
-LTR(0) = LTR(i)
+'M18 = INPUT_NUM(NND, "M18", M18, ACT_MOD)
-LTR(i) = LTR(i + 1)
+'M19 = INPUT_NUM(NND, "M19", M19, ACT_MOD)
-LTR(i + 1) = LTR(0)
+VV = INPUT_NUM(NND, "VER.", VV, ACT_MOD)
-NDX(0) = NDX(i)
+
-NDX(i) = NDX(i + 1)
+
-NDX(i + 1) = NDX(0)
+
-GoTo SRCL2
+'************************************* SCRITTURA LISTATO
 
-Next i
+
 Select Case VV
-For i = 1 To COUNT_T
+Case 1, 5
-DFR = LTR(i) - SQRV
+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)
-Select Case DFR
+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)
-Case Is > 0
+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)
-If i = COUNT_T Then
+
-'MsgBox "ERRORE UTENSILE SPACCO RETTANGOLARE  " & ACT_MOD, vbCritical
+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)
-Exit For
+R06 = T_RECT1(-6, M13, -6, M1 + 10 - 6) & T_RECT1(L - M14, L + 6, -6, M1 + 10 - 6)
 
-Case Is = 0
+R07 = T_45(L / 2, H)
-LAB_2 = NDX(i) & " " & LTR(i)
+
-Exit For
+Case 2, 6
-Case Is < 0
+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)
-If SQRV / LTR(i) >= 1 + SVP / 100 Then
+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)
-LAB_2 = NDX(i) & " " & LTR(i)
+
-Exit For
+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)
-Next i
+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)
-Erase NDX, LTR
+
 R07 = T_45(M13 + M12 / 2, H)
 
-Function LAB_3(ByVal TL_LAB As String, ByVal STR_IND As String) As String
+Case 3, 7
-'DEFINISCE UTENSILE X LAVORAZIONE SPECIALE A COLPO SINGOLO
+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)
-LAB_3 = ""
+
-For i = 1 To 46
+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)
-If TOOL_VAR(NHD, i, 3) = TL_LAB Then
+
-If InStr(1, TOOL_VAR(NHD, i, 3), "RD", vbBinaryCompare) = 0 Then GoTo LLL
+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)
-If TOOL_VAR(NHD, i, 5) = Mid(STR_IND, 2, InStr(1, STR_IND, ".") - 2) Then
+R05 = T_SLOT(M3 + 3 * M4 - 35, H - 10, 15, 9, 90)
-LLL:
+R06 = T_RECT1(-6, M13, -6, M1 + 10 - 6) & T_RECT1(L - M14, L + 6, M1 + 10 - 6, H + 6)
-LAB_3 = TOOL_VAR(NHD, i, 1)
+
-Exit For
+R07 = T_45(M12 / 2, H)
 
 Case 4, 8
-Next i
+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)
 
-Function LAB_4(ByVal WDT As Double, ByVal LGT As Double, ByVal DRZ As String) As String
+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)
-'DEFINISCE UTENSILE RETTANGOLARE
+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)
-Dim LAB_LAB(10) As String
+
-NN = 0
+R07 = T_45(M13 + L / 2, H)
-Key = "RETTANGOLO"
+
-LAB_4 = ""
+
-L4 = ""
+MsgBox "ERRORE VERSIONE SU " & ACT_MOD
 End Select
-For i = 1 To 46
+
-L4 = ""
+
-If UCase(TOOL_VAR(NHD, i, 6)) = Key Then
+
 P1 = L / 2 - M7 / 2 + 100
-    If (TOOL_VAR(NHD, i, 3) = WDT And TOOL_VAR(NHD, i, 4) <= LGT) Or (TOOL_VAR(NHD, i, 4) = WDT And TOOL_VAR(NHD, i, 3) <= LGT) Then
+P2 = L / 2 + M7 / 2 - 100
-    If TOOL_VAR(NHD, i, 3) = WDT Then LL = TOOL_VAR(NHD, i, 4)
+MVAL = 500
-    If TOOL_VAR(NHD, i, 4) = WDT Then LL = TOOL_VAR(NHD, i, 3)
+
-    LB_ANG = TOOL_VAR(NHD, i, 5)
+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
-    LB_IND = TOOL_VAR(NHD, i, 2)
+
 Call SAVE_SUB(NND, STRINGA)
-    Select Case DRZ
+
-    Case "X+", "X-"
+ACT_MOD = ""
-    If LB_ANG = "0I" Then L4 = TOOL_VAR(NHD, i, 1) & "C0." & "*" & LL
+
-    If LB_ANG = "0" Then L4 = TOOL_VAR(NHD, i, 1) & "*" & LL
+End Sub
 
-    Case "Y+", "Y-"
+
-    If LB_ANG = "0I" Then L4 = TOOL_VAR(NHD, i, 1) & "C90." & "*" & LL
+Sub V_1016416D(ByVal NND As Integer)
-    If LB_ANG = "90" Then L4 = TOOL_VAR(NHD, i, 1) & "*" & LL
+ACT_MOD = "1016416"
-    Case Else
+NHD = 10
-    MsgBox ("ERRORE SU RODITURA RETTANGOLARE")
+'MsgBox "CONTROLLARE " & ACT_MOD & ", NUOVA REVISIONE!!!!!"
-    End Select
+'AGGIORNATO 24/12/2017
 '************************************* INPUT
-    If L4 <> "" Then
+If NND > 0 Then ON_MD = 2 Else ON_MD = 1
-    NN = NN + 1
+Select Case ON_MD
-    LAB_LAB(NN) = L4
+
 comm = INPUT_STR(NND, "COMMESSA", comm, ACT_MOD)
-    End If
+
-    End If
+comm = INFO_DAT(NND, 0, 2)
 RAGG = INFO_DAT(NND, 0, 3)
-Next i
+QTT = INFO_DAT(NND, 0, 4)
 CODR = INFO_DAT(NND, 0, 10) & " - " & INFO_DAT(NND, 0, 11) & " - " & INFO_DAT(NND, 0, 12)
 
 Case Else
-If NN = 1 Then LAB_4 = LAB_LAB(1)
+MsgBox "ERRORE", , ACT_MOD
-If NN > 1 Then
+
 
-LAB_4 = ""
+L = INPUT_NUM(NND, "L", 0, ACT_MOD)
-AAAAAA:
+H = INPUT_NUM(NND, "H", H, ACT_MOD)
-For SSRY = 1 To NN - 1 'METTO IN FILA DAL PIù CORTO AL PIù LUNGO
+SPS = INPUT_NUM(NND, "SPS", SPS, ACT_MOD)
-If Val(Right(LAB_LAB(SSRY), InStr(1, StrReverse(LAB_LAB(SSRY)), "*", vbBinaryCompare) - 1)) > Val(Right(LAB_LAB(SSRY + 1), InStr(1, StrReverse(LAB_LAB(SSRY + 1)), "*", vbBinaryCompare) - 1)) Then
+M1 = INPUT_NUM(NND, "M1", M1, ACT_MOD)
-ZFRTY = LAB_LAB(SSRY)
+M2 = INPUT_NUM(NND, "M2", M2, ACT_MOD)
-LAB_LAB(SSRY) = LAB_LAB(SSRY + 1)
+M3 = INPUT_NUM(NND, "M3", M3, ACT_MOD)
-LAB_LAB(SSRY + 1) = ZFRTY
+M4 = INPUT_NUM(NND, "M4", M4, ACT_MOD)
-GoTo AAAAAA
+M5 = INPUT_NUM(NND, "M5", M5, ACT_MOD)
 M6 = INPUT_NUM(NND, "M6", M6, ACT_MOD)
-Next SSRY
+M7 = INPUT_NUM(NND, "M7", M7, ACT_MOD)
 M8 = INPUT_NUM(NND, "M8", M8, ACT_MOD)
-NN = 2
+M9 = INPUT_NUM(NND, "M9", M9, ACT_MOD)
-For SSRX = 1 To NN
+M10 = INPUT_NUM(NND, "M10", M10, ACT_MOD)
-If LGT > Val(Right(LAB_LAB(SSRY), InStr(1, StrReverse(LAB_LAB(SSRY)), "*", vbBinaryCompare) - 1)) Then LAB_4 = LAB_LAB(SSRX)
+M11 = INPUT_NUM(NND, "M11", M11, ACT_MOD)
-Next SSRX
+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)
-Function LAB_5(ByVal X As Double, ByVal Y As Double) As String
+M20 = INPUT_NUM(NND, "M20", M20, ACT_MOD)
-'DEFINISCE L'UTENSILE X LAVORAZIONE RETTANGOLARE    LAB_2= <ETICHETTA LATOUTENSILE>
+M21 = INPUT_NUM(NND, "M21", M21, ACT_MOD)
 VV = Val(Replace(INFO_DAT(NND, 0, 7), "P", ""))
-Key = "Rettangolo"
+
 
-Dim NDX(100) As String
+'************************************* SCRITTURA LISTATO
-Dim LTR(100) As Double
+
 Select Case VV
-RRT = 0
+Case 1, 5
-For i = 1 To 46
+
-If TOOL_VAR(NHD, i, 6) = Key And TOOL_VAR(NHD, i, 5) = "0" Then
+R01 = T_RECT1(-3, M18, -3, H - 81.5) & T_RECT1(L - M19, L + 3, -3, H - 81.5)
-If TOOL_VAR(NHD, i, 3) = X And TOOL_VAR(NHD, i, 4) = Y Then
+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)
-RRT = RRT + 1
+If M21 > 0 Then R07 = T_CIRC(L / 2 + M15 + M13 - M21, M14, 8) Else R07 = ""
-LAB_5 = TOOL_VAR(NHD, i, 1)
+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)
-Next i
+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)
-If LAB_5 = "" Then
+
-RRT = 0
+R09 = T_45(L / 2, H)
-For i = 1 To 46
+
-If TOOL_VAR(NHD, i, 6) = Key And TOOL_VAR(NHD, i, 5) = "90" Then
+Case 2, 6
-If TOOL_VAR(NHD, i, 3) = Y And TOOL_VAR(NHD, i, 4) = X Then
+
-RRT = RRT + 1
+R01 = T_RECT1(-3, M18, M12 + M16 - 18, H + 3) & T_RECT1(L - M19, L + 10, -3, H - 81.5)
-LAB_5 = TOOL_VAR(NHD, i, 1)
+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 = ""
-Next i
+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)
-If LAB_5 = "" Then
+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)
-RRT = 0
+
-For i = 1 To 46
+R09 = T_45(M18 + M11 / 2, H)
-If TOOL_VAR(NHD, i, 6) = Key And TOOL_VAR(NHD, i, 5) = "0I" Then
+
-If TOOL_VAR(NHD, i, 3) = Y And TOOL_VAR(NHD, i, 4) = X Then
+Case 3, 7
-RRT = RRT + 1
+R01 = T_RECT1(-3, M18, -3, H - 81.5) & T_RECT1(L - M19, L + 3, M12 + M16 - 18, H + 3)
-LAB_5 = TOOL_VAR(NHD, i, 1)
+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 = ""
-Next i
+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)
-Erase NDX, LTR
+
 R09 = T_45(M11 / 2, H)
 
 Case 4, 8
-Function LAB_6(ByVal LATO As String) As String
+R01 = T_RECT1(-10, M18, M12 + M16 - 18, H + 3) & T_RECT1(L - M19, L + 10, M12 + M16 - 18, H + 3)
-'DEFINISCE UTENSILE QUADRO A 45
+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 = ""
-Key = "Quadro"
+If M20 > 0 Then R08 = T_CIRC(M18 + M11 / 2 - M15 - M17 + M20, M14, 8) Else R08 = ""
-LAB_6 = ""
+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)
-For i = 1 To 46
+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)
-If TOOL_VAR(NHD, i, 6) = Key Then
+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)
-    If Replace(TOOL_VAR(NHD, i, 3), ",", ".") = Replace(LATO, ",", ".") Then
+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)
-    If TOOL_VAR(NHD, i, 5) = "0I" Then
+
-    LAB_6 = TOOL_VAR(NHD, i, 1)
+R09 = T_45(M18 + M11 / 2, H)
-    Exit For
+
-    End If
+
-    End If
+MsgBox "ERRORE VERSIONE SU " & ACT_MOD
-    End If
+
-Next i
+
 
 P1 = L / 2 - M15 + 100
 P2 = L / 2 + M15 - 100
 MVAL = 500
-Function LAB_7(ByVal X As Double, ByVal Y As Double) As String
+
-'DEFINISCE L'UTENSILE X LAVORAZIONE RETTANGOLARE    LAB_2= <ETICHETTA LATOUTENSILE>
+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)
-Key = "Rettangolo"
+
 ACT_MOD = ""
-Dim NDX(100, 6) As String
+End Sub
 
 
-RRT = 0
+
 Sub V_1016416E(ByVal NND As Integer)
-For i = 1 To 46
+ACT_MOD = "1016416"
 NHD = 10
-If TOOL_VAR(NHD, i, 6) = Key And TOOL_VAR(NHD, i, 5) = "0" Then
+'MsgBox "CONTROLLARE " & ACT_MOD & ", NUOVA REVISIONE!!!!!"
-If NUM(TOOL_VAR(NHD, i, 3)) <= X And NUM(TOOL_VAR(NHD, i, 4)) <= Y Then
+'AGGIORNATO 24/12/2017
-RRT = RRT + 1
+'************************************* INPUT
-NDX(RRT, 1) = i
+If NND > 0 Then ON_MD = 2 Else ON_MD = 1
-NDX(RRT, 2) = TOOL_VAR(NHD, i, 5)
+Select Case ON_MD
-NDX(RRT, 3) = TOOL_VAR(NHD, i, 3)
+
-NDX(RRT, 4) = TOOL_VAR(NHD, i, 4)
+comm = INPUT_STR(NND, "COMMESSA", comm, ACT_MOD)
 Case 2
 comm = INFO_DAT(NND, 0, 2)
-Next i
+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)
-For i = 1 To 46
+
-If TOOL_VAR(NHD, i, 6) = Key And TOOL_VAR(NHD, i, 5) = "90" Then
+
-If NUM(TOOL_VAR(NHD, i, 3)) <= Y And NUM(TOOL_VAR(NHD, i, 4)) <= X Then
+MsgBox "ERRORE", , ACT_MOD
-RRT = RRT + 1
+
-NDX(RRT, 1) = i
+
-NDX(RRT, 2) = TOOL_VAR(NHD, i, 5)
+L = INPUT_NUM(NND, "L", 0, ACT_MOD)
-NDX(RRT, 3) = TOOL_VAR(NHD, i, 4)
+H = INPUT_NUM(NND, "H", H, ACT_MOD)
-NDX(RRT, 4) = TOOL_VAR(NHD, i, 3)
+SPS = INPUT_NUM(NND, "SPS", SPS, ACT_MOD)
 M1 = INPUT_NUM(NND, "M1", M1, ACT_MOD)
 M2 = INPUT_NUM(NND, "M2", M2, ACT_MOD)
-Next i
+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)
-For i = 1 To 46
+M8 = INPUT_NUM(NND, "M8", M8, ACT_MOD)
-If TOOL_VAR(NHD, i, 6) = Key And TOOL_VAR(NHD, i, 5) = "0I" Then   'INDEXRR A 0 GRADI
+M9 = INPUT_NUM(NND, "M9", M9, ACT_MOD)
-If NUM(TOOL_VAR(NHD, i, 3)) <= X And NUM(TOOL_VAR(NHD, i, 4)) <= Y Then
+M10 = INPUT_NUM(NND, "M10", M10, ACT_MOD)
-RRT = RRT + 1
+M11 = INPUT_NUM(NND, "M11", M11, ACT_MOD)
-NDX(RRT, 1) = i
+M12 = INPUT_NUM(NND, "M12", M12, ACT_MOD)
-NDX(RRT, 2) = TOOL_VAR(NHD, i, 5)
+M13 = INPUT_NUM(NND, "M13", M13, ACT_MOD)
-NDX(RRT, 3) = TOOL_VAR(NHD, i, 3)
+M14 = INPUT_NUM(NND, "M14", M14, ACT_MOD)
-NDX(RRT, 4) = TOOL_VAR(NHD, i, 4)
+M15 = INPUT_NUM(NND, "M15", M15, ACT_MOD)
 M16 = INPUT_NUM(NND, "M16", M16, ACT_MOD)
 M17 = INPUT_NUM(NND, "M17", M17, ACT_MOD)
-Next i
+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)
-For i = 1 To 46
+VV = Val(Replace(INFO_DAT(NND, 0, 7), "P", ""))
-If TOOL_VAR(NHD, i, 6) = Key And TOOL_VAR(NHD, i, 5) = "0I" Then   'INDEXRR
+
-If NUM(TOOL_VAR(NHD, i, 3)) <= Y And NUM(TOOL_VAR(NHD, i, 4)) <= X Then
+
-RRT = RRT + 1
+'************************************* SCRITTURA LISTATO
-NDX(RRT, 1) = i
+
-NDX(RRT, 2) = "90I"
+Select Case VV
-NDX(RRT, 3) = TOOL_VAR(NHD, i, 3)
+Case 1, 5
-NDX(RRT, 4) = TOOL_VAR(NHD, i, 4)
+
 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)
-Next i
+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)
-NDX(0, 1) = 0  ' VARIABILE IN CUI REGISTRO IL VALORE DI COPERTURA PIU'ALTO
+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)
-NDX(0, 2) = 0  ' VARIABILE IN CUI REGISTRO L'INDICE CHE GENERA IL VALORE DI COPERTURA PIU'ALTO
+
 R09 = T_45(L / 2, H)
-If RRT > 0 Then
+
 Case 2, 6
 
-For RGQ = 1 To RRT
+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 = ""
-Select Case NDX(RGQ, 2)
+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)
-Case "0", "90", "0I"
+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)
-XXX = NUM(NDX(RGQ, 3)) 'INGOMBRO X DELL UTENSILE
+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)
-YYY = NUM(NDX(RGQ, 4)) 'INGOMBRO Y DELL UTENSILE
+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 "90I"
+
-YYY = NUM(NDX(RGQ, 3)) 'INGOMBRO X DELL UTENSILE
+R09 = T_45(M18 + M11 / 2, H)
-XXX = NUM(NDX(RGQ, 4)) 'INGOMBRO Y DELL UTENSILE
+
 Case 3, 7
 R01 = T_RECT1(-3, M18, -3, H - 81.5) & T_RECT1(L - M19, L + 3, M12 + M16 - 18, H + 3)
-MsgBox "FUNCTION LAB_7: ANGLE ERROR", vbCritical
+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 = ""
-svpq = 1.27 'percentuale di sovrapposizione
+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)
-FX = (X / XXX)
+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)
-FY = (Y / YYY)
+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)
-If FX = 1 Or FY = 1 Then GoTo FAI_LAVR
+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)
-If FX > svpq And FY > svpq Then
+
-FAI_LAVR:
+R09 = T_45(M11 / 2, H)
 
-NDX(RGQ, 5) = (XXX * YYY) / (X * Y)
+Case 4, 8
 R01 = T_RECT1(-10, M18, M12 + M16 - 18, H + 3) & T_RECT1(L - M19, L + 10, M12 + M16 - 18, H + 3)
-If InStr(1, STIPITI, ACT_MOD) > 0 Or InStr(1, STIPITI_PORTALI, ACT_MOD) > 0 Then 'aggiunta
+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 XXX = 50 And YYY = 5 Then NDX(RGQ, 5) = 0
+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)
-If (X = 112 And Y = 6.7) Or (X = 7.3 And Y = 112) Or (X = 6.7 And Y = 112) Then GoTo no_bislunghi
+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)
-If Val(XXX) / Val(YYY) > 7 Or Val(YYY) / Val(XXX) > 7 Then If XXX <> X And YYY <> Y Then NDX(RGQ, 5) = 0   ' UTENSILI BISLUNGHI VIETATI NELLE RODITURE
+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)
-no_bislunghi:
+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)
 
-If 1 * NDX(RGQ, 5) > 1 * NDX(0, 1) Then
+R09 = T_45(M18 + M11 / 2, H)
-NDX(0, 1) = NDX(RGQ, 5)
+
-NDX(0, 2) = NDX(RGQ, 1)
+
-NDX(0, 3) = NDX(RGQ, 3)
+MsgBox "ERRORE VERSIONE SU " & ACT_MOD
-NDX(0, 4) = NDX(RGQ, 4)
+
-NDX(0, 5) = NDX(RGQ, 2)
+
 
-If 1 * NDX(RGQ, 5) = 1 * NDX(0, 1) Then
+P1 = L / 2 - M15 + 100
-If XXX = X Or YYY = Y Then
+P2 = L / 2 + M15 - 100
-NDX(0, 1) = NDX(RGQ, 5)
+MVAL = 500
-NDX(0, 2) = NDX(RGQ, 1)
+
-NDX(0, 3) = NDX(RGQ, 3)
+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
-NDX(0, 4) = NDX(RGQ, 4)
+Call SAVE_SUB(NND, STRINGA)
-NDX(0, 5) = NDX(RGQ, 2)
+
 ACT_MOD = ""
 End Sub
-'*************   VA A VEDERE L'ANGOLAZIONE CON LA MIGLIORE SOVRAPPOSIZIONE  *****************
+
-If NDX(RGQ, 5) > 0 Then
+
-If NDX(0, 3) <> "" And NDX(0, 4) <> "" Then
+Sub V_1033985B(ByVal NND As Integer)
-If NDX(0, 3) <> X And NDX(0, 4) <> Y And NDX(0, 4) <> X And NDX(0, 3) <> Y Then
+ACT_MOD = "1033985"
-SVRPP = 0
+NHD = 10
-If NDX(0, 5) = "0I" Then SVRPP = ((X / Val(NDX(0, 3))) + (Y / Val(NDX(0, 4))))
+
-If NDX(0, 5) = "90I" Then SVRPP = ((X / Val(NDX(0, 4))) + (Y / Val(NDX(0, 3))))
+'************************************* INPUT
-If (FX + FY) > SVRPP Then
+If NND > 0 Then ON_MD = 2 Else ON_MD = 1
-NDX(0, 1) = NDX(RGQ, 5)
+Select Case ON_MD
-NDX(0, 2) = NDX(RGQ, 1)
+
-NDX(0, 3) = NDX(RGQ, 3)
+comm = INPUT_STR(NND, "COMMESSA", comm, ACT_MOD)
-NDX(0, 4) = NDX(RGQ, 4)
+
-NDX(0, 5) = NDX(RGQ, 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)
 
-'**********************************************************************
+
 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)
-Next RGQ
+M1 = INPUT_NUM(NND, "M1", M1, ACT_MOD)
 M2 = INPUT_NUM(NND, "M2", M2, ACT_MOD)
 M3 = INPUT_NUM(NND, "M3", M3, ACT_MOD)
-If NDX(0, 1) > 0 Then LAB_7 = TOOL_VAR(NHD, NDX(0, 2), 1) & "_" & NDX(0, 5) & " " & TOOL_VAR(NHD, NDX(0, 2), 3) & " " & TOOL_VAR(NHD, NDX(0, 2), 4)
+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)
-Erase NDX
+M10 = INPUT_NUM(NND, "M10", M10, ACT_MOD)
 M11 = INPUT_NUM(NND, "M11", M11, ACT_MOD)
 M12 = INPUT_NUM(NND, "M12", M12, ACT_MOD)
 
-Function MR_Y(ByVal VALORE As Double, ByVal DY As Double, ByVal ACT As Byte) As Double
+VV = Val(Replace(INFO_DAT(NND, 0, 7), "P", ""))
 
-Select Case ACT
+
 '************************************* SCRITTURA LISTATO
-MR_Y = VALORE
+
 Select Case VV
-MR_Y = DY - VALORE
+
 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)
-MsgBox ("ERRORE"), vbCritical, ("MR_Y")
+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)
-Function MR_X(ByVal VALORE As Double, ByVal DX As Double, ByVal ACT As Byte) As Double
+R07 = T_RECT1(25 - 16, 25 + 16, H - 3, H + 7) & T_RECT1(25 - 16 + M3, 25 + 16 + M3, H - 3, H + 7)
 
-Select Case ACT
+
 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)
-MR_X = VALORE
+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)
-MR_X = DX - VALORE
+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)
-MsgBox ("ERRORE"), vbCritical, ("MR_X")
+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)
-Function T_BLQ(ByVal XI As Double, ByVal YI As Double, ByVal Xf As Double, ByVal YF As Double, ByVal SVPI As Double, ByVal SVPF As Double) As String
+R02 = T_RECT2(M4, 13, 50, 36) & T_RECT2(M4 + M5, 13, 50, 36) & T_RECT2(M4 + 2 * M5, 13, 50, 36)
-'FUNZIONE PER IL TAGLIO OBLIQUO DA FARE E VERIFICARE
+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)
-T_BLQ = TG_R(7.5, XI, YI, Xf, YF, SVPI, SVPF)
+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 ind = 0 Then
+If M10 > 0 Then
-'G90 = "G90/X" & X & "/Y" & Y & "/" & LAB_TOOL & "/>"
+R06 = R06 & T_CIRC(M12 - M10, H - 21, 9)
 R07 = R07 & T_RECT1(M12 - M10 - 16, M12 - M10 + 16, H - 3, H + 7)
-'G90 = "G90/X" & X & "/Y" & Y & "/" & LAB_TOOL & "C" & ind & "./>"
+
 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
-Function TG_R(ByVal DU As Double, ByVal XI As Double, ByVal YI As Double, ByVal Xf As Double, ByVal YF As Double, ByVal SVPI As Double, ByVal SVPF As Double) As String
+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)
-'DU  = LATO DELL'UTENSILE QUADRO UTILIZZATO PER IL TAGLIO OBLIQUO    ; SI GIRA INTORNO AL PUNZONE IN SENSO ANTIORARIO
+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)
-Select Case DU
+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)
-Case 7.5
+R06 = T_CIRC(L - M12, H - 21, 9) & T_CIRC(L - M12 - M3, H - 21, 9)
-LAB = LAB_3("7SQ", 0) '45
+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)
-Case 20
+If M10 > 0 Then
-LAB = LAB_2(20, 20)
+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)
-MsgBox ("ERRORE UTENSILE QUADRO X TAGLIO OBLIQUO"), vbCritical
+
 If M11 > 0 Then
 R06 = R06 & T_CIRC(L - M12 + M11, H - 21, 9)
-ANG = 9999
+R07 = R07 & T_RECT1(L - M12 - 16 + M11, L - M12 + 16 + M11, H - 3, H + 7)
-If Xf > XI And YI = YF Then ANG = 0
+
-If Xf = XI And YI < YF Then ANG = 90
+
-If Xf < XI And YI = YF Then ANG = 180
+
-If Xf = XI And YI > YF Then ANG = 270
+MsgBox "ERRORE VERSIONE SU " & ACT_MOD
-If Not ANG = 9999 Then GoTo NNG
+
 
-EEA = (YF - YI) / (Xf - XI)
+
-ANG = (Atn(EEA) * 180) / 3.14159265358979
+P1 = M1 + 100
-ANG = Round(ANG, 5)
+P2 = L - M1
 MVAL = 500
-If Xf > XI And YF > YI Then ANG = ANG
+
-If Xf < XI And YF > YI Then ANG = 180 + ANG
+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
-If Xf < XI And YF < YI Then ANG = ANG + 180
+Call SAVE_SUB(NND, STRINGA)
-If Xf > XI And YF < YI Then ANG = 360 + ANG
+
-If ANG = 360 Then ANG = 0
+Call FVTPT(4, NND, "")
-NNG:
+
 ACT_MOD = ""
-ANG = 360 - ANG
+End Sub
-DR = DU / 2
+
-ANG_R = (ANG * 3.14159265358979) / 180
+
 Sub V_1006951(ByVal NND As Integer)
-DXI = SVPI * Cos(ANG_R)
+ACT_MOD = "1006951"
-DYI = SVPI * Sin(ANG_R)
+NHD = 2
-DXF = SVPF * Cos(ANG_R)
+
-DYFF = SVPF * Sin(ANG_R)
+'MsgBox ("CONTROLLARE PARAMENTO CODICE " & ACT_MOD)
 ' AGGIUSTATO 23/03/2017
-LTA = Round(((YF - YI) ^ 2 + (Xf - XI) ^ 2) ^ (0.5), 2)
+'************************************* INPUT
-XXX = (Xf + XI) / 2
+If NND > 0 Then ON_MD = 2 Else ON_MD = 1
-YYY = (YF + YI) / 2
+Select Case ON_MD
 Case 1
-XI = XI - DXI
+comm = INPUT_STR(NND, "COMMESSA", comm, ACT_MOD)
-YI = YI + DYI
+
-Xf = Xf + DXF
+comm = INFO_DAT(NND, 0, 2)
-YF = YF - DYFF
+RAGG = INFO_DAT(NND, 0, 3)
 QTT = INFO_DAT(NND, 0, 4)
-LT = Round(((YF - YI) ^ 2 + (Xf - XI) ^ 2) ^ (0.5), 2)
+CODR = INFO_DAT(NND, 0, 10) & " - " & INFO_DAT(NND, 0, 11) & " - " & INFO_DAT(NND, 0, 12)
-''If DU > LT Then DU = LT
+If INFO_DAT(NND, 0, 9) <> "0" Then MsgBox "INDICE DI REVISIONE ERRATO SU CODICE " & ACT_MOD
-NN = Int(LT / DU)
+
 MsgBox "ERRORE", , ACT_MOD
-PP = Round((LT - DU) / NN, 3)    'PASSO RODITURA
+
-AU = 90 - ANG                    'ANGOLOUTENSILE
+
-AR = ANG                         'ANGOLORODITURA
+L = INPUT_NUM(NND, "L", 0, ACT_MOD)
 H = INPUT_NUM(NND, "H", H, ACT_MOD)
-XC = XI + DR * (Cos(ANG_R) + Sin(ANG_R))
+SPS = INPUT_NUM(NND, "SPS", SPS, ACT_MOD)
-YC = YI + DR * (-Sin(ANG_R) + Cos(ANG_R))
+M1 = INPUT_NUM(NND, "M1", M1, ACT_MOD)
 M2 = INPUT_NUM(NND, "M2", M2, ACT_MOD)
-XC = Jcdf(Round(XC, 2))
+M3 = INPUT_NUM(NND, "M3", M3, ACT_MOD)
-YC = Jcdf(Round(YC, 2))
+M4 = INPUT_NUM(NND, "M4", M4, ACT_MOD)
-AR = Jcdf(Round(AR, 2))
+
-AU = Jcdf(Round(AU, 0))
+'************************************* SCRITTURA LISTATO
 
-If LTA > DU Then
+'R01A = T_SPECIAL(L - M2 + 10, H - 55 + 5, "23G0S", "C180.") & T_SPECIAL(L - M2 - M3 + 10, H - 55 + 5, "23G0S", "C180.")
-ST1 = ST64("G90/X" & XC & "/Y" & YC & "/" & LAB & AU & "./>")
+'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.")
-ST2 = ST64("G28/I" & PP & "/J-" & AR & "./K" & NN & "/" & LAB & AU & "./>")
+'R01 = R01A & R01B
 'R02 = T_CIRC(L - M2 - 3 * M3 + 35, H - 53, 8.5)
 
-XKK = Jcdf(Round(XXX + DR * Sin(ANG_R), 2))
+R01A = T_SPECIAL(M2 - 10, H - 55 + 6, "23G0S", "C180.") & T_SPECIAL(M2 + M3 - 10, H - 55 + 6, "23G0S", "C180.")
-YKK = Jcdf(Round(YYY + DR * Cos(ANG_R), 2))
+R01B = T_SPECIAL(M2 + 2 * M3 - 10, H - 55 + 6, "23G0S", "C180.") & T_SPECIAL(M2 + 3 * M3 - 10, H - 55 + 6, "23G0S", "C180.")
-ST1 = ST64("G90/X" & XKK & "/Y" & YKK & "/" & LAB & AU & "./>")
+R01 = R01A & R01B
-ST2 = ""
+
 R02 = T_CIRC(M2 + 3 * M3 - 35, H - 53, 8.5)
-TG_R = ST1 & ST2
+
 
 '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)
-Function T_PUNCH(ByVal X As Double, ByVal Y As Double, ByVal LAB As String, ByVal ind As Double) As String
+R03C = TG_R(20, L - 14, H, L, H - 14, 8, 8)
-'ESEGUE UNA LAVORAZIONE  A COLPO SINGOLO SECONDO ETICHETTA STABILITA
+R03D = TG_R(20, L, 14, L - 14, 0, 8, 8)
 R03 = R03A & R03B & R03C & R03D
 
-LAB_TOOL = LAB
+P1 = 200
 P2 = L - 250
 MVAL = 500
-If ind = 0 Then
+
-G90 = "G90/X" & X & "/Y" & Y & "/" & LAB_TOOL & "/>"
+STRINGA = R000_vpr(NHD, CTT, SPS / 10, L, H, P1, P2, QTT, comm, RAGG, CODR, MVAL, INFO_DAT(NND, 0, 5)) & R01 & R02 & R03
 
-G90 = "G90/X" & X & "/Y" & Y & "/" & LAB_TOOL & "C" & ind & "./>"
+Call SAVE_SUB(NND, STRINGA)
 
 ACT_MOD = ""
-T_PUNCH = ST64(Jcdf(G90))
+End Sub
 
 
 Sub V_1006951C(ByVal NND As Integer)
 ACT_MOD = "1006951"
 NHD = 2
-Function T_DATAMATRIX(ByVal VALORE As String, ByVal X0 As Double, ByVal Y0 As Double, ByVal VERSO As String)
+
 '************************************* INPUT
-PS = 2.5 'PASSO
+If NND > 0 Then ON_MD = 2 Else ON_MD = 1
 Select Case ON_MD
 Case 1
-Dim R(18) As String
+comm = INPUT_STR(NND, "COMMESSA", comm, ACT_MOD)
-Dim RC(18, 18) As Byte
+
-Dim RC2(18, 18) As Byte
+comm = INFO_DAT(NND, 0, 2)
 RAGG = INFO_DAT(NND, 0, 3)
-    '-------------------------------------------------------
+QTT = INFO_DAT(NND, 0, 4)
-    ' Dichiarazione dell'oggetto array di stringhe
+CODR = INFO_DAT(NND, 0, 10) & " - " & INFO_DAT(NND, 0, 11) & " - " & INFO_DAT(NND, 0, 12)
-    Dim DATA_MAT() As String
+
-    Dim fn As Object
+MsgBox "ERRORE", , ACT_MOD
 End Select
 
-    ' Creazione dell'oggetto esterno per la logica
+L = INPUT_NUM(NND, "L", 0, ACT_MOD)
-    Set fn = CreateObject("Wittur.Amada.Utils.Datamatix")
+H = INPUT_NUM(NND, "H", H, ACT_MOD)
-    ' Viene richiamata la funzione di conversione
+SPS = INPUT_NUM(NND, "SPS", SPS, ACT_MOD)
-    ' 1° Parametro = codice a 8 cifre da decodificare
+M1 = INPUT_NUM(NND, "M1", M1, ACT_MOD)
-    ' 2° Parametro = valore booleano che indica se è necessario escludere il perimetro esterno fisso
+M2 = INPUT_NUM(NND, "M2", M2, ACT_MOD)
 M3 = INPUT_NUM(NND, "M3", M3, ACT_MOD)
 M4 = INPUT_NUM(NND, "M4", M4, ACT_MOD)
-    DATA_MAT = fn.GetBinaryMatrix(VALORE, False, True) 'CONSIDERO ANCHE IL CONTORNO - (CODICE A 8 CIFRE, CONTORNO, QUADRATO O RETTANGOLARE)
+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.")
-Select Case VERSO
+R01B = T_SPECIAL(M2 + 2 * M3 - 10, H - 55 + 6, "23G0S", "C180.") & T_SPECIAL(M2 + 3 * M3 - 10, H - 55 + 6, "23G0S", "C180.")
-Case "V"
+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
-For TY = 0 To 7
+
-R(TY + 1) = DATA_MAT(TY) 'RIGA MATRICE DATAMATRIX
+R02 = T_CIRC(M2 + 3 * M3 - 35, H - 53, 8.5)
-Next TY
+
 
 'ATTENZIONE NELLA LAVORAZIONE R03: ADESSO LAVORA BENE, MA LA QUOTA 14 E' SBAGLIATA QUELLA GIUSTA E' 4.
-Q_INT = ""
+'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
-NORIPET = ""
+R03A = TG_R(20, 14, 0, 0, 14, 8, 8)
 R03B = TG_R(20, 0, H - 14, 14, H, 8, 8)
-For TC = 1 To 8 'RIGA
+R03C = TG_R(20, L - 14, H, L, H - 14, 8, 8)
-For TC1 = 1 To Len(R(TC)) 'COLONNA
+R03D = TG_R(20, L, 14, L - 14, 0, 8, 8)
-RC2(TC, TC1) = Mid(R(TC), TC1, 1) 'MATRICE PUNTO PER PUNTO
+R03 = R03A & R03B & R03C & R03D
-Next TC1
+
-Next TC
+P1 = 200
 P2 = L - 250
 MVAL = 500
-For TR = 1 To 18 'FACCIO LA TRASPOSTA DELLA MATRICE
+
-For TR2 = 1 To 8
+STRINGA = R000_vpr(NHD, CTT, SPS / 10, L, H, P1, P2, QTT, comm, RAGG, CODR, MVAL, INFO_DAT(NND, 0, 5)) & R01 & R02 & R03
-RC(TR, TR2) = RC2(TR2, TR)
+
-Next TR2
+Call SAVE_SUB(NND, STRINGA)
-Next TR
+
 ACT_MOD = ""
 End Sub
-For kk = 1 To 18  'CONTATORE DI RIGA
+
-For NN = 1 To 8 'CONTATORE DI COLONNA
+
 Sub V_1023836A(ByVal NND As Integer)
-'GoTo NOASOLE
+ACT_MOD = "1023836"
-'***************************************************************************************ASOLA VERTICALE
+NHD = 1
 
-If Not kk > 16 Then
+'MsgBox ("CONTROLLARE PARAMENTO CODICE " & ACT_MOD) 23/05/2017
 ' AGGIUSTATO 23/03/2017
-If Not (InStr(1, NORIPET, "_" & kk & NN & "_") > 0 Or InStr(1, NORIPET, "_" & kk + 1 & NN & "_") > 0 Or InStr(1, NORIPET, "_" & kk + 2 & NN & "_") > 0) Then
+'************************************* INPUT
-If RC(kk, NN) = 1 And RC(kk + 1, NN) = 1 And RC(kk + 2, NN) = 1 Then
+If NND > 0 Then ON_MD = 2 Else ON_MD = 1
-Q_INT = Q_INT & T_SLOT(X0 + (NN - 1) * PS, Y0 + (kk + 1) * PS, 7, 2, 90)
+Select Case ON_MD
-NORIPET = NORIPET & "_" & kk & NN & "_" & kk + 1 & NN & "_" & kk + 2 & NN & "_"
+
 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)
-'***************************************************************************************ASOLA ORIZZONTALE
+CODR = INFO_DAT(NND, 0, 10) & " - " & INFO_DAT(NND, 0, 11) & " - " & INFO_DAT(NND, 0, 12)
 Case Else
-If Not NN > 6 Then
+MsgBox "ERRORE", , ACT_MOD
 End Select
 
-If Not (InStr(1, NORIPET, "_" & kk & NN & "_") > 0 Or InStr(1, NORIPET, "_" & kk & NN + 1 & "_") > 0 Or InStr(1, NORIPET, "_" & kk & NN + 2 & "_") > 0) Then
+L = INPUT_NUM(NND, "L", 0, ACT_MOD)
-If RC(kk, NN) = 1 And RC(kk, NN + 1) = 1 And RC(kk, NN + 2) = 1 Then
+H = INPUT_NUM(NND, "H", H, ACT_MOD)
-Q_INT = Q_INT & T_SLOT(X0 + (NN) * PS, Y0 + (kk) * PS, 7, 2, 0)
+SPS = INPUT_NUM(NND, "SPS", SPS, ACT_MOD)
-NORIPET = NORIPET & "_" & kk & NN & "_" & kk & NN + 1 & "_" & kk & NN + 2 & "_"
+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
-NOASOLE:
+
-'*****************************************************************************************TONDO
+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.")
-If Not InStr(1, NORIPET, "_" & kk & NN & "_") > 0 Then
+R01 = R01A & R01B
-If RC(kk, NN) = 1 Then Q_INT = Q_INT & T_CIRC(X0 + (NN - 1) * PS, Y0 + (kk) * PS, 2)
+
 R02 = T_CIRC(M2 + 3 * M3 - 35, H - 53, 8.5)
 
 
-Next NN
+R03A = TG_R(20, 14, 0, 0, 14, 8, 8)
-Next kk
+R03B = TG_R(20, 0, H - 14, 14, H, 8, 8)
 R03C = TG_R(20, L - 14, H, L, H - 14, 8, 8)
-T_DATAMATRIX = QORIGINE & QASSEY & QASSEX & Q_INT & QTM_Y & QTM_X
+R03D = TG_R(20, L, 14, L - 14, 0, 8, 8)
 R03 = R03A & R03B & R03C & R03D
 
 P1 = 200
-Case "O"
+P2 = L - 250
 MVAL = 500
-For TY = 0 To 7
+
-R(TY + 1) = DATA_MAT(TY) 'RIGA MATRICE DATAMATRIX
+STRINGA = R000_vpr(NHD, CTT, SPS / 10, L, H, P1, P2, QTT, comm, RAGG, CODR, MVAL, INFO_DAT(NND, 0, 5)) & R01 & R02 & R03
-Next TY
+
 Call SAVE_SUB(NND, STRINGA)
 
-Q_INT = ""
+ACT_MOD = ""
-NORIPET = ""
+End Sub
 
 
-For TC = 1 To 8 'RIGA
+Sub V_1007889B(ByVal NND As Integer) 'revisione B
-For TC1 = 1 To Len(R(TC)) 'COLONNA
+ACT_MOD = "1007889"
-RC(TC, TC1) = Mid(R(TC), TC1, 1) 'MATRICE PUNTO PER PUNTO
+NHD = 10
-Next TC1
+
-Next TC
+'MsgBox ("CONTROLLARE " & ACT_MOD)
 '************************************* INPUT
 If NND > 0 Then ON_MD = 2 Else ON_MD = 1
 Select Case ON_MD
-For kk = 1 To 8  'CONTATORE DI RIGA
+
-For NN = 1 To 18 'CONTATORE DI COLONNA
+comm = INPUT_STR(NND, "COMMESSA", comm, ACT_MOD)
 Case 2
-'GoTo NOASOLE2
+comm = INFO_DAT(NND, 0, 2)
-'***************************************************************************************ASOLA VERTICALE
+RAGG = INFO_DAT(NND, 0, 3)
 QTT = INFO_DAT(NND, 0, 4)
-If Not kk > 6 Then
+CODR = INFO_DAT(NND, 0, 10) & " - " & INFO_DAT(NND, 0, 11) & " - " & INFO_DAT(NND, 0, 12)
 
-If Not (InStr(1, NORIPET, "_" & kk & NN & "_") > 0 Or InStr(1, NORIPET, "_" & kk + 1 & NN & "_") > 0 Or InStr(1, NORIPET, "_" & kk + 2 & NN & "_") > 0) Then
+
-If RC(kk, NN) = 1 And RC(kk + 1, NN) = 1 And RC(kk + 2, NN) = 1 Then
+MsgBox "ERRORE", , ACT_MOD
-Q_INT = Q_INT & T_SLOT(X0 + (NN - 1) * PS, Y0 + (8 - kk - 1) * PS, 7, 2, 90)
+
-NORIPET = NORIPET & "_" & kk & NN & "_" & kk + 1 & NN & "_" & kk + 2 & NN & "_"
+
 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)
-'***************************************************************************************ASOLA ORIZZONTALE
+M3 = INPUT_NUM(NND, "M3", M3, ACT_MOD)
 M4 = INPUT_NUM(NND, "M4", M4, ACT_MOD)
-If Not NN > 16 Then
+M5 = INPUT_NUM(NND, "M5", M5, ACT_MOD)
 M6 = INPUT_NUM(NND, "M6", M6, ACT_MOD)
-If Not (InStr(1, NORIPET, "_" & kk & NN & "_") > 0 Or InStr(1, NORIPET, "_" & kk & NN + 1 & "_") > 0 Or InStr(1, NORIPET, "_" & kk & NN + 2 & "_") > 0) Then
+M7 = INPUT_NUM(NND, "M7", M7, ACT_MOD)
-If RC(kk, NN) = 1 And RC(kk, NN + 1) = 1 And RC(kk, NN + 2) = 1 Then
+M8 = INPUT_NUM(NND, "M8", M8, ACT_MOD)
-Q_INT = Q_INT & T_SLOT(X0 + (NN) * PS, Y0 + (8 - kk) * PS, 7, 2, 0)
+M9 = INPUT_NUM(NND, "M9", M9, ACT_MOD)
-NORIPET = NORIPET & "_" & kk & NN & "_" & kk & NN + 1 & "_" & kk & NN + 2 & "_"
+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)
-NOASOLE2:
+M15 = INPUT_NUM(NND, "M15", M15, ACT_MOD)
-'*****************************************************************************************TONDO
+M16 = INPUT_NUM(NND, "M16", M16, ACT_MOD)
 'M17 = INPUT_NUM(NND, "M17", M17, ACT_MOD)
-If Not InStr(1, NORIPET, "_" & kk & NN & "_") > 0 Then
+'M18 = INPUT_NUM(NND, "M18", M18, ACT_MOD)
-If RC(kk, NN) = 1 Then Q_INT = Q_INT & T_CIRC(X0 + (NN - 1) * PS, Y0 + (8 - kk) * PS, 2)
+'M19 = INPUT_NUM(NND, "M19", M19, ACT_MOD)
 VV = INPUT_NUM(NND, "VER.", VV, ACT_MOD)
 
 
 
-Next NN
+'************************************* SCRITTURA LISTATO
-Next kk
+
 
-T_DATAMATRIX = QORIGINE & QASSEY & QASSEX & Q_INT & QTM_Y & QTM_X
+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)
-MsgBox ("ERRORE VERSO DATAMATRIX")
+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)
-Function T_RAD(ByVal XC As Double, ByVal YC As Double, ANGOLO As String)
+
-'RAGGIATURA
+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)
-Select Case ANGOLO
+R06 = T_RECT1(-6, M13, M1 + 10 - 6, H + 6) & T_RECT1(L - M14, 6, -6, M1 + 10 - 6)
-Case "1"
+
-ANGOLO = "-90"
+Case 3, 7
-Case "2"
+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)
-ANGOLO = "0"
+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)
-Case "3"
+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)
-ANGOLO = "90"
+
-Case "4"
+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)
-ANGOLO = "180"
+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)
-MsgBox ("errore")
+
 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)
-Offset = 0.65
+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)
-Select Case ANGOLO
+
-Case "0"
+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)
-T_RAD = T_SPECIAL(XC - Offset, YC + Offset, "RAG-3", "C0.")
+R05 = T_SLOT(M13 + M3 + 3 * M4 - 35, H - 10, 15, 9, 90)
-Case "180"
+R06 = T_RECT1(-6, M13, M1 + 10 - 6, H + 6) & T_RECT1(L - M14, 6, M1 + 10 - 6, H + 6)
-T_RAD = T_SPECIAL(XC + Offset, YC - Offset, "RAG-3", "C0.")
+
-Case "90"
+
-T_RAD = T_SPECIAL(XC - Offset, YC - Offset, "RAG-3", "C0.")
+
-Case "-90"
+MsgBox "ERRORE VERSIONE SU " & ACT_MOD
-T_RAD = T_SPECIAL(XC + Offset, YC + Offset, "RAG-3", "C0.")
+
 
-MsgBox (("ERROR ANGLE 5RD"))
+
 
 P1 = L / 2 - M7 / 2 + 100
 P2 = L / 2 + M7 / 2 - 100
 MVAL = 500
 
-Function T_RAG(ByVal X As Double, ByVal Y As Double, ByVal LATO As Integer)
+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
 
-DSP = 2.9 '2.6
+Call SAVE_SUB(NND, STRINGA)
-Select Case LATO
+
-Case 1 'BASSO SINISTRO
+ACT_MOD = ""
-Y = Y - DSP
+
-X = X - DSP
+End Sub
-Case 2 'ALTO SINISTRO
+
-Y = Y + DSP
+
-X = X - DSP
+Sub V_1007889A(ByVal NND As Integer) 'revisione A
-Case 3 'ALTO DESTRO
+ACT_MOD = "1007889"
-Y = Y + DSP
+NHD = 10
-X = X + DSP
+
-Case 4 'BASSO DESTRO
+'MsgBox ("CONTROLLARE " & ACT_MOD)
-Y = Y - DSP
+'************************************* INPUT
-X = X + DSP
+If NND > 0 Then ON_MD = 2 Else ON_MD = 1
 Select Case ON_MD
-MsgBox ("ERRORE NELL'ANGOLO DEL RAGGIATORE")
+
 comm = INPUT_STR(NND, "COMMESSA", comm, ACT_MOD)
 Case 2
-T_RAG = T_SPECIAL(X, Y, "3S", "C0.")
+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