API tools faq
paste
Advertisement
Dece111

STP Orona

Dece111
Feb 28th, 2024
111
0
Never
Add comment
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
VisualBasic 58.63 KB | None | 0 0
raw download clone embed print report diff
  1. 'STP Orona
  2.  
  3. Sub S_1006897D(ByVal NND As Integer)
  4. ACT_MOD = "1006897"
  5. CLAMP = 0
  6.  
  7.  
  8. L = INPUT_NUM(NND, "L", L, ACT_MOD)
  9. H = INPUT_NUM(NND, "H", H, ACT_MOD)
  10. SPS = INPUT_NUM(NND, "SPS", SPS, ACT_MOD) / 10
  11. M1 = INPUT_NUM(NND, "M1", M1, ACT_MOD)
  12. M2 = INPUT_NUM(NND, "M2", M2, ACT_MOD)
  13. M3 = INPUT_NUM(NND, "M3", M3, ACT_MOD)
  14. M4 = INPUT_NUM(NND, "M4", M4, ACT_MOD)
  15. M5 = INPUT_NUM(NND, "M5", M5, ACT_MOD)
  16. M6 = INPUT_NUM(NND, "M6", M6, ACT_MOD)
  17. M7 = INPUT_NUM(NND, "M7", M7, ACT_MOD)
  18. M8 = INPUT_NUM(NND, "M8", M8, ACT_MOD)
  19. M9 = INPUT_NUM(NND, "M9", M9, ACT_MOD)
  20. M10 = INPUT_NUM(NND, "M10", M10, ACT_MOD)
  21. M11 = INPUT_NUM(NND, "M11", M11, ACT_MOD)
  22. M12 = INPUT_NUM(NND, "M12", M12, ACT_MOD)
  23.  
  24.  
  25. DF = INPUT_NUM(NND, "DF", DF, ACT_MOD)
  26. sf = INPUT_NUM(NND, "SF", sf, ACT_MOD)
  27. SB = INPUT_NUM(NND, "SB", SB, ACT_MOD)
  28. LH = INPUT_NUM(NND, "LH", LH, ACT_MOD)
  29. CD_SP = INPUT_NUM(NND, "SPC.", CD_SP, ACT_MOD)
  30. VV = INPUT_STR(NND, "VER.", VV, ACT_MOD)
  31. BNB = INPUT_NUM(NND, "BNB", BNB, ACT_MOD)
  32. ODP = INFO_DAT(NND, 0, 5)
  33.  
  34. OFSS = 0 '0.5
  35.  
  36.  
  37. If Val(LH) = 0 Then
  38. SP = M1 + 50
  39. LH = H - SP
  40. End If
  41.  
  42.  
  43. If VV = "1" Or VV = "3" Or VV = "5" Or VV = "7" Then    'PINZE
  44. If CD_SP = 0 Then
  45. If SP = 90 And LH = 2000 Then
  46. 'CLAMP = 1
  47. End If
  48. End If
  49. End If
  50.  
  51.  
  52. VV = Replace(VV, "H", "")
  53.  
  54. If VV > 8 Then MsgBox "ERRORE VERSIONE SU " & ACT_MOD, vbCritical
  55.  
  56.  
  57. SCS = 6
  58.  
  59.  
  60. sf = 1 * sf '+ 1 * SB
  61. If sf = 0 Then
  62. sf = 1 * SB
  63. MsgBox "ERRORE DATI SB-SF IN " & ACT_MOD
  64. End If
  65.  
  66.  
  67.  
  68. Select Case VV
  69. Case 2, 4, 6, 8
  70.  
  71.  
  72. '*******************************************SPACCO
  73. If CD_SP <> "" And CD_SP <> "0" Then
  74. R01 = SPC_PULS(NND, CD_SP, 25 + DF - 4.8, H, L, 2, sf, 0) 'MODIFICATO DA 25 A 15mm
  75.  
  76. If DF >= 40 Then M5 = DF - 25 Else M5 = 0
  77.  
  78.  
  79. If CD_SP = "50522" Or CD_SP = "50522" Or CD_SP = "50522" Then
  80. R02 = T_CIRC(H - M11, L - 5.2, 5.5) & T_CIRC(H - M11 - 375.5, L - 5.2, 5.5)
  81. R02 = R02 & T_CIRC(H - M12, L - 5.2, 5.5) & T_CIRC(H - M12 - 275.5, L - 5.2, 5.5)
  82. R02 = R02 & T_SLOT(H - M11, 24.1, 8, 5, 90) & T_SLOT(H - M11, 24.1 + M5, 8, 5, 90)
  83. R02 = R02 & T_SLOT(H - M11 - 375.5, 24.1, 8, 5, 90) & T_SLOT(H - M11 - 375.5, 24.1 + M5, 8, 5, 90)
  84. R02 = R02 & T_SLOT(H - M12, 24.1, 8, 5, 90) & T_SLOT(H - M12, 24.1 + M5, 8, 5, 90)
  85. R02 = R02 & T_SLOT(H - M12 - 275.5, 24.1, 8, 5, 90) & T_SLOT(H - M12 - 275.5, 24.1 + M5, 8, 5, 90)
  86.  
  87. Else
  88. R02 = T_CIRC(QCSP + 187.75, L - 5.2, 5.5)
  89. R02 = R02 & T_CIRC(QCSP - 187.75, L - 5.2, 5.5)
  90. R02 = R02 & T_SLOT(QCSP + 187.75, 24.1, 8, 5, 90)
  91. R02 = R02 & T_SLOT(QCSP + 187.75, 24.1 + M5, 8, 5, 90)
  92. R02 = R02 & T_SLOT(QCSP - 187.75, 24.1, 8, 5, 90)
  93. R02 = R02 & T_SLOT(QCSP - 187.75, 24.1 + M5, 8, 5, 90)
  94. End If
  95.  
  96. If M3 = 0 Then
  97.  
  98. MsgBox "M3=0"
  99. Select Case LH
  100.  
  101. Case 1900
  102. If H - QCSP < 1030 Then M3 = H - QCSP - 530
  103. If H - QCSP > 1080 Then M3 = (H - QCSP) / 2 - 40
  104. If (H - QCSP >= 1030 And H - QCSP <= 1080) Then M3 = 500
  105.  
  106. Case 1950
  107. If H - QCSP < 1055 Then M3 = H - QCSP - 530
  108. If H - QCSP > 1130 Then M3 = (H - QCSP) / 2 - 40
  109. If (H - QCSP >= 1055 And H - QCSP <= 1130) Then M3 = 525
  110.  
  111. Case 2000
  112. If H - QCSP < 1080 Then M3 = H - QCSP - 530
  113. If H - QCSP > 1180 Then M3 = (H - QCSP) / 2 - 40
  114. If (H - QCSP >= 1080 And H - QCSP <= 1180) Then M3 = 550
  115.  
  116. Case 2050
  117. If H - QCSP < 1105 Then M3 = H - QCSP - 530
  118. If H - QCSP > 1230 Then M3 = (H - QCSP) / 2 - 40
  119. If (H - QCSP >= 1105 And H - QCSP <= 1230) Then M3 = 575
  120.  
  121. Case 2100
  122. If H - QCSP < 1130 Then M3 = H - QCSP - 530
  123. If H - QCSP > 1280 Then M3 = (H - QCSP) / 2 - 40
  124. If (H - QCSP >= 1130 And H - QCSP <= 1280) Then M3 = 600
  125.  
  126. Case Else
  127. MsgBox "ERRORE VALORE LH " & ACT_MOD, vbCritical
  128. End Select
  129.  
  130. End If
  131. Else
  132. R01 = ""
  133. R02 = ""
  134. End If
  135. '*******************************************************
  136.  
  137.  
  138. R03 = T_RECT1(-SCS, M2, L - 26.6, L + SCS)
  139. R03 = R03 & T_RECT1(-SCS, M2, -SCS, 16.6)
  140. R03 = R03 & T_RECT1(H - 70, H + SCS, -SCS, 16.6)
  141.  
  142. R03 = R03 & T_RECT1(H - 345, H - 290, 12.5, 17.5)
  143. R03 = R03 & T_RECT1(H - (345 + M3), H - (290 + M3), 12.5, 17.5)
  144. If CD_SP = "50522" Or CD_SP = "50522" Or CD_SP = "50522" Then
  145. R03 = R03 & T_RECT1(H - (345 + M3 + M10), H - (290 + M3 + M10), 12.5, 17.5)
  146. Else
  147. R03 = R03 & T_RECT1(H - (345 + 2 * M3), H - (290 + 2 * M3), 12.5, 17.5)
  148. End If
  149. R03 = R03 & T_RECT1(M2 + 20, M2 + 75, 12.5, 17.5)
  150.  
  151. R03 = R03 & T_SLOT(H - 25, DF - 18 + 15 - 2.4, 8, 5, 90)
  152. R03 = R03 & T_SLOT(H - 55, DF - 18 + 15 - 2.4, 8, 5, 90)
  153.  
  154. R03 = R03 & T_CIRC(20, DF / 2 + 15 - 2.4, 7.2)
  155. R03 = R03 & T_CIRC(20 + M1, DF / 2 + 15 - 2.4, 7.2)
  156. R03 = R03 & T_CIRC(20, L - (DF / 2 + 25 - 2.4), 7.2)
  157. R03 = R03 & T_CIRC(20 + M1, L - (DF / 2 + 25 - 2.4), 7.2)
  158.  
  159. R03 = R03 & T_SLOT(H - 25, L - 9.5, 8, 5, 90)
  160. R03 = R03 & T_SLOT(H - 55, L - 9.5, 8, 5, 90)
  161.  
  162. R03 = R03 & T_CIRC(H - 283, L - 10, 8.5)
  163. R03 = R03 & T_CIRC(H - (283 + 34), L - 10, 8.5)
  164. R03 = R03 & T_CIRC(H - (283 + M3), L - 10, 8.5)
  165. R03 = R03 & T_CIRC(H - (283 + 34 + M3), L - 10, 8.5)
  166. If CD_SP = "50522" Or CD_SP = "50522" Or CD_SP = "50522" Then
  167. R03 = R03 & T_CIRC(H - (283 + M3 + M10), L - 10, 8.5)
  168. R03 = R03 & T_CIRC(H - (283 + 34 + M3 + M10), L - 10, 8.5)
  169. Else
  170. R03 = R03 & T_CIRC(H - (283 + 2 * M3), L - 10, 8.5)
  171. R03 = R03 & T_CIRC(H - (283 + 34 + 2 * M3), L - 10, 8.5)
  172. End If
  173. R03 = R03 & T_CIRC(M2 + 82, L - 10, 8.5)
  174. R03 = R03 & T_CIRC(M2 + 82 - 34, L - 10, 8.5)
  175.  
  176.  
  177. If M6 > 0 Then R04 = T_CIRC(H - 1500, 15 + M6 - 2.4, 22) Else R04 = ""
  178.  
  179. 'SMUSSI
  180. R05 = T_RAD(0 - OFSS, 15 + 4 - 2.4 - OFSS, 3)
  181. R05 = R05 & T_RAD(M2 - OFSS, 0 - OFSS, 3)
  182. R05 = R05 & T_RAD(0 - OFSS, L - (25 + 4 - 2.4) + OFSS, 2)
  183. R05 = R05 & T_RAD(M2 - OFSS, L + OFSS, 2)
  184. R05 = R05 & T_RAD(H - 70 + OFSS, 0 - OFSS, 4)
  185. R05 = R05 & T_RAD(H + OFSS, 15 + 4 - 2.4 - OFSS, 4)
  186. R05 = R05 & T_RAD(H + OFSS, L + OFSS, 1)
  187.  
  188. 'Print #NF, T_BLQ(H - 1000 - 5.65, L, H - 1000, L - 5.65, 1, 0)
  189. 'Print #NF, T_BLQ(H - 1000, L - 5.65, H - 1000 + 5.65, L, 0, 1)
  190. R06 = T_SMUS(H - 1000, L + 0.2)
  191. 'Print #NF, T_CIRC(H - 1000, L, 3.3)
  192.  
  193. R11 = T_DATAMATRIX(ODP, H - 283 + 10, 15 + 2.5, "O")
  194.  
  195. R12 = ""
  196. If M7 > 0 Then
  197. R12 = T_HEX(H - M7, 15 + 28.5 - 2.4, 11) & T_HEX(H - M7 - 859, 15 + 28.5 - 2.4, 11) & T_HEX(H - M7 - 859 - 398, 15 + 28.5 - 2.4, 11)
  198. End If
  199. If M8 > 0 Then
  200. R12 = R12 & T_HEX(H - M8 - 1257, 15 + 28.5 - 2.4, 11) & T_HEX(H - M8, 15 + 28.5 - 2.4, 11)
  201. End If
  202. If M9 > 0 Then
  203. R12 = R12 & T_HEX(H - M9, 15 + 28.5 - 2.4, 11)
  204. End If
  205.  
  206.  
  207.  
  208. Case 1, 3, 5, 7
  209.  
  210. '*******************************************SPACCO
  211. If CD_SP <> "" And CD_SP <> "0" Then
  212. R01 = SPC_PULS(NND, CD_SP, 25 + DF - 4.8, H, L, 1, sf, 0)
  213.  
  214.  
  215. If DF >= 40 Then M5 = DF - 25 Else M5 = 0
  216.  
  217.  
  218. If CD_SP = "50522" Or CD_SP = "50522" Or CD_SP = "50522" Then
  219. R02 = T_CIRC(H - M11, 5.2, 5.5) & T_CIRC(H - M11 - 375.5, 5.2, 5.5)
  220. R02 = R02 & T_CIRC(H - M12, 5.2, 5.5) & T_CIRC(H - M12 - 275.5, 5.2, 5.5)
  221. R02 = R02 & T_SLOT(H - M11, L - 24.1, 8, 5, 90) & T_SLOT(H - M11, L - 24.1 - M5, 8, 5, 90)
  222. R02 = R02 & T_SLOT(H - M11 - 375.5, L - 24.1, 8, 5, 90) & T_SLOT(H - M11 - 375.5, L - 24.1 - M5, 8, 5, 90)
  223. R02 = R02 & T_SLOT(H - M12, L - 24.1, 8, 5, 90) & T_SLOT(H - M12, L - 24.1 - M5, 8, 5, 90)
  224. R02 = R02 & T_SLOT(H - M12 - 275.5, L - 24.1, 8, 5, 90) & T_SLOT(H - M12 - 275.5, L - 24.1 - M5, 8, 5, 90)
  225.  
  226. Else
  227. R02 = T_CIRC(QCSP + 187.75, 5.2, 5.5)
  228. R02 = R02 & T_CIRC(QCSP - 187.75, 5.2, 5.5)
  229. R02 = R02 & T_SLOT(QCSP + 187.75, L - 24.1, 8, 5, 90)
  230. R02 = R02 & T_SLOT(QCSP + 187.75, L - 24.1 - M5, 8, 5, 90)
  231. R02 = R02 & T_SLOT(QCSP - 187.75, L - 24.1, 8, 5, 90)
  232. R02 = R02 & T_SLOT(QCSP - 187.75, L - 24.1 - M5, 8, 5, 90)
  233. End If
  234.  
  235.  
  236.  
  237. If M3 = 0 Then
  238. Select Case LH
  239.  
  240. Case 1900
  241. If H - QCSP < 1030 Then M3 = H - QCSP - 530
  242. If H - QCSP > 1080 Then M3 = (H - QCSP) / 2 - 40
  243. If (H - QCSP >= 1030 And H - QCSP <= 1080) Then M3 = 500
  244.  
  245. Case 1950
  246. If H - QCSP < 1055 Then M3 = H - QCSP - 530
  247. If H - QCSP > 1130 Then M3 = (H - QCSP) / 2 - 40
  248. If (H - QCSP >= 1055 And H - QCSP <= 1130) Then M3 = 525
  249.  
  250. Case 2000
  251. If H - QCSP < 1080 Then M3 = H - QCSP - 530
  252. If H - QCSP > 1180 Then M3 = (H - QCSP) / 2 - 40
  253. If (H - QCSP >= 1080 And H - QCSP <= 1180) Then M3 = 550
  254.  
  255. Case 2050
  256. If H - QCSP < 1105 Then M3 = H - QCSP - 530
  257. If H - QCSP > 1230 Then M3 = (H - QCSP) / 2 - 40
  258. If (H - QCSP >= 1105 And H - QCSP <= 1230) Then M3 = 575
  259.  
  260. Case 2100
  261. If H - QCSP < 1130 Then M3 = H - QCSP - 530
  262. If H - QCSP > 1280 Then M3 = (H - QCSP) / 2 - 40
  263. If (H - QCSP >= 1130 And H - QCSP <= 1280) Then M3 = 600
  264.  
  265. Case Else
  266. MsgBox "ERRORE VALORE LH " & ACT_MOD, vbCritical
  267. End Select
  268.  
  269. End If
  270. Else
  271. R01 = ""
  272. R02 = ""
  273. End If
  274. '************************************************
  275.  
  276. R03 = R03 & T_RECT1(-SCS, M2, -SCS, 26.6)
  277. R03 = R03 & T_RECT1(-SCS, M2, L - 16.6, L + SCS)
  278. R03 = R03 & T_RECT1(H - 70, H + SCS, L - 16.6, L + SCS)
  279.  
  280. R03 = R03 & T_RECT1(H - 345, H - 290, L - 17.5, L - 12.5)
  281. R03 = R03 & T_RECT1(H - (345 + M3), H - (290 + M3), L - 17.5, L - 12.5)
  282. If CD_SP = "50522" Or CD_SP = "50522" Or CD_SP = "50522" Then
  283. R03 = R03 & T_RECT1(H - (345 + M3 + M10), H - (290 + M3 + M10), L - 17.5, L - 12.5)
  284. Else
  285. R03 = R03 & T_RECT1(H - (345 + 2 * M3), H - (290 + 2 * M3), L - 17.5, L - 12.5)
  286. End If
  287. R03 = R03 & T_RECT1(M2 + 20, M2 + 75, L - 17.5, L - 12.5)
  288.  
  289. R03 = R03 & T_SLOT(H - 25, L - (DF - 18 + 15 - 2.4), 8, 5, 90)
  290. R03 = R03 & T_SLOT(H - 55, L - (DF - 18 + 15 - 2.4), 8, 5, 90)
  291. R03 = R03 & T_CIRC(20, L - (DF / 2 + 15 - 2.4), 7.2)
  292. R03 = R03 & T_CIRC(20 + M1, L - (DF / 2 + 15 - 2.4), 7.2)
  293. R03 = R03 & T_CIRC(20, DF / 2 + 25 - 2.4, 7.2)
  294. R03 = R03 & T_CIRC(20 + M1, DF / 2 + 25 - 2.4, 7.2)
  295. R03 = R03 & T_SLOT(H - 25, 9.5, 8, 5, 90)
  296. R03 = R03 & T_SLOT(H - 55, 9.5, 8, 5, 90)
  297. R03 = R03 & T_CIRC(H - 283, 10, 8.5)
  298. R03 = R03 & T_CIRC(H - (283 + 34), 10, 8.5)
  299. R03 = R03 & T_CIRC(H - (283 + M3), 10, 8.5)
  300. R03 = R03 & T_CIRC(H - (283 + 34 + M3), 10, 8.5)
  301. If CD_SP = "50522" Or CD_SP = "50522" Or CD_SP = "50522" Then
  302. R03 = R03 & T_CIRC(H - (283 + M3 + M10), 10, 8.5)
  303. R03 = R03 & T_CIRC(H - (283 + 34 + M3 + M10), 10, 8.5)
  304. Else
  305. R03 = R03 & T_CIRC(H - (283 + 2 * M3), 10, 8.5)
  306. R03 = R03 & T_CIRC(H - (283 + 34 + 2 * M3), 10, 8.5)
  307. End If
  308. R03 = R03 & T_CIRC(M2 + 82, 10, 8.5)
  309. R03 = R03 & T_CIRC(M2 + 82 - 34, 10, 8.5)
  310.  
  311. If M6 > 0 Then R04 = T_CIRC(H - 1500, L - (15 + M6 - 2.4), 22) Else R04 = ""
  312.  
  313. 'SMUSSI
  314. R05 = T_RAD(0 - OFSS, L - (15 + 4 - 2.4) + OFSS, 2)
  315. R05 = R05 & T_RAD(M2 - OFSS, L + OFSS, 2)
  316. R05 = R05 & T_RAD(0 - OFSS, 25 + 4 - 2.4 - OFSS, 3)
  317. R05 = R05 & T_RAD(M2 - OFSS, 0 - OFSS, 3)
  318. R05 = R05 & T_RAD(H - 70 + OFSS, L + OFSS, 1)
  319. R05 = R05 & T_RAD(H + OFSS, L - (15 + 4 - 2.4) + OFSS, 1)
  320. R05 = R05 & T_RAD(H + OFSS, 0 - OFSS, 4)
  321.  
  322. 'Print #NF, T_BLQ(H - 1000, 5.65, H - 1000 - 5.65, 0, 0, 1)
  323. 'Print #NF, T_BLQ(H - 1000 + 5.65, 0, H - 1000, 5.65, 1, 0)
  324. R06 = T_SMUS(H - 1000, -0.2)
  325. 'Print #NF, T_CIRC(H - 1000, 0, 3.3)
  326.  
  327. R11 = T_DATAMATRIX(ODP, H - 283 + 10, L - 15 - 2.5 - 20, "O")
  328.  
  329. R12 = ""
  330. If M7 > 0 Then
  331. R12 = T_HEX(H - M7, L - (15 + 28.5 - 2.4), 11) & T_HEX(H - M7 - 859, L - (15 + 28.5 - 2.4), 11) & T_HEX(H - M7 - 859 - 398, L - (15 + 28.5 - 2.4), 11)
  332. End If
  333. If M8 > 0 Then
  334. R12 = R12 & T_HEX(H - M8 - 1257, L - (15 + 28.5 - 2.4), 11) & T_HEX(H - M8, L - (15 + 28.5 - 2.4), 11)
  335. End If
  336. If M9 > 0 Then
  337. R12 = R12 & T_HEX(H - M9, L - (15 + 28.5 - 2.4), 11)
  338. End If
  339.  
  340.  
  341. Case Else
  342. MsgBox "ERRORE VALORE VV " & ACT_MOD, vbCritical
  343. End Select
  344.  
  345. fn = R01 & R02 & R03 & R04 & R05 & R06 & R11 & R12
  346.  
  347.  
  348. P1 = 250
  349. P2 = H - 400
  350. MVAL = 500
  351. STRINGA = R000(NHD, NND, SPS, H, L, P1, P2, MVAL) & fn
  352.  
  353. Call SAVE_SUB(NND, STRINGA)
  354.  
  355. POSINTAB = def_posintab(NND)
  356. Call CUT_END_S(H, L, "0", POSINTAB)
  357. Call FVTPT(3, NND, "")
  358. Call CUT_END_S(H, L, "B", POSINTAB)
  359. Call FVTPT(3, NND, "B")
  360. Call CUT_END_S(H, L, "C", POSINTAB)
  361. Call FVTPT(3, NND, "C")
  362.  
  363.  
  364. End Sub
  365.  
  366.  
  367.  
  368. Sub S_1006897E(ByVal NND As Integer)
  369. ACT_MOD = "1006897"
  370. CLAMP = 0
  371.  
  372.  
  373. L = INPUT_NUM(NND, "L", L, ACT_MOD)
  374. H = INPUT_NUM(NND, "H", H, ACT_MOD)
  375. SPS = INPUT_NUM(NND, "SPS", SPS, ACT_MOD) / 10
  376. M1 = INPUT_NUM(NND, "M1", M1, ACT_MOD)
  377. M2 = INPUT_NUM(NND, "M2", M2, ACT_MOD)
  378. M3 = INPUT_NUM(NND, "M3", M3, ACT_MOD)
  379. M4 = INPUT_NUM(NND, "M4", M4, ACT_MOD)
  380. M5 = INPUT_NUM(NND, "M5", M5, ACT_MOD)
  381. M6 = INPUT_NUM(NND, "M6", M6, ACT_MOD)
  382. M7 = INPUT_NUM(NND, "M7", M7, ACT_MOD)
  383. M8 = INPUT_NUM(NND, "M8", M8, ACT_MOD)
  384. M9 = INPUT_NUM(NND, "M9", M9, ACT_MOD)
  385. M10 = INPUT_NUM(NND, "M10", M10, ACT_MOD)
  386. M11 = INPUT_NUM(NND, "M11", M11, ACT_MOD)
  387. M12 = INPUT_NUM(NND, "M12", M12, ACT_MOD)
  388. M13 = INPUT_NUM(NND, "M13", M13, ACT_MOD)
  389. M14 = INPUT_NUM(NND, "M14", M14, ACT_MOD)
  390.  
  391. DF = INPUT_NUM(NND, "DF", DF, ACT_MOD)
  392. sf = INPUT_NUM(NND, "SF", sf, ACT_MOD)
  393. SB = INPUT_NUM(NND, "SB", SB, ACT_MOD)
  394. LH = INPUT_NUM(NND, "LH", LH, ACT_MOD)
  395. CD_SP = INPUT_NUM(NND, "SPC.", CD_SP, ACT_MOD)
  396. VV = INPUT_STR(NND, "VER.", VV, ACT_MOD)
  397. BNB = INPUT_NUM(NND, "BNB", BNB, ACT_MOD)
  398. ODP = INFO_DAT(NND, 0, 5)
  399.  
  400. OFSS = 0 '0.5
  401.  
  402.  
  403. If Val(LH) = 0 Then
  404. SP = M1 + 50
  405. LH = H - SP
  406. End If
  407.  
  408.  
  409. If VV = "1" Or VV = "3" Or VV = "5" Or VV = "7" Then    'PINZE
  410. If CD_SP = 0 Then
  411. If SP = 90 And LH = 2000 Then
  412. 'CLAMP = 1
  413. End If
  414. End If
  415. End If
  416.  
  417.  
  418. VV = Replace(VV, "H", "")
  419.  
  420. If VV > 8 Then MsgBox "ERRORE VERSIONE SU " & ACT_MOD, vbCritical
  421.  
  422.  
  423. SCS = 6
  424.  
  425.  
  426. sf = 1 * sf '+ 1 * SB
  427. If sf = 0 Then
  428. sf = 1 * SB
  429. MsgBox "ERRORE DATI SB-SF IN " & ACT_MOD
  430. End If
  431.  
  432.  
  433.  
  434. Select Case VV
  435. Case 2, 4, 6, 8
  436.  
  437.  
  438. '*******************************************SPACCO
  439. If CD_SP <> "" And CD_SP <> "0" Then
  440. R01 = SPC_PULS(NND, CD_SP, 25 + DF - 4.8, H, L, 2, sf, 0) 'MODIFICATO DA 25 A 15mm
  441.  
  442. If DF >= 40 Then M5 = DF - 25 Else M5 = 0
  443.  
  444.  
  445. If CD_SP = "50522" Or CD_SP = "50522" Or CD_SP = "50522" Or CD_SP = "50948" Or CD_SP = "50950" Then
  446. R02 = T_CIRC(H - M11, L - 5.2, 5.5) & T_CIRC(H - M11 - 375.5, L - 5.2, 5.5)
  447. R02 = R02 & T_CIRC(H - M12, L - 5.2, 5.5) & T_CIRC(H - M12 - 275.5, L - 5.2, 5.5)
  448. R02 = R02 & T_SLOT(H - M11, 24.1, 8, 5, 90) & T_SLOT(H - M11, 24.1 + M5, 8, 5, 90)
  449. R02 = R02 & T_SLOT(H - M11 - 375.5, 24.1, 8, 5, 90) & T_SLOT(H - M11 - 375.5, 24.1 + M5, 8, 5, 90)
  450. R02 = R02 & T_SLOT(H - M12, 24.1, 8, 5, 90) & T_SLOT(H - M12, 24.1 + M5, 8, 5, 90)
  451. R02 = R02 & T_SLOT(H - M12 - 275.5, 24.1, 8, 5, 90) & T_SLOT(H - M12 - 275.5, 24.1 + M5, 8, 5, 90)
  452.  
  453. Else
  454. R02 = T_CIRC(QCSP + 187.75, L - 5.2, 5.5)
  455. R02 = R02 & T_CIRC(QCSP - 187.75, L - 5.2, 5.5)
  456. R02 = R02 & T_SLOT(QCSP + 187.75, 24.1, 8, 5, 90)
  457. R02 = R02 & T_SLOT(QCSP + 187.75, 24.1 + M5, 8, 5, 90)
  458. R02 = R02 & T_SLOT(QCSP - 187.75, 24.1, 8, 5, 90)
  459. R02 = R02 & T_SLOT(QCSP - 187.75, 24.1 + M5, 8, 5, 90)
  460. End If
  461.  
  462. If M3 = 0 Then
  463.  
  464. MsgBox "M3=0"
  465. Select Case LH
  466.  
  467. Case 1900
  468. If H - QCSP < 1030 Then M3 = H - QCSP - 530
  469. If H - QCSP > 1080 Then M3 = (H - QCSP) / 2 - 40
  470. If (H - QCSP >= 1030 And H - QCSP <= 1080) Then M3 = 500
  471.  
  472. Case 1950
  473. If H - QCSP < 1055 Then M3 = H - QCSP - 530
  474. If H - QCSP > 1130 Then M3 = (H - QCSP) / 2 - 40
  475. If (H - QCSP >= 1055 And H - QCSP <= 1130) Then M3 = 525
  476.  
  477. Case 2000
  478. If H - QCSP < 1080 Then M3 = H - QCSP - 530
  479. If H - QCSP > 1180 Then M3 = (H - QCSP) / 2 - 40
  480. If (H - QCSP >= 1080 And H - QCSP <= 1180) Then M3 = 550
  481.  
  482. Case 2050
  483. If H - QCSP < 1105 Then M3 = H - QCSP - 530
  484. If H - QCSP > 1230 Then M3 = (H - QCSP) / 2 - 40
  485. If (H - QCSP >= 1105 And H - QCSP <= 1230) Then M3 = 575
  486.  
  487. Case 2100
  488. If H - QCSP < 1130 Then M3 = H - QCSP - 530
  489. If H - QCSP > 1280 Then M3 = (H - QCSP) / 2 - 40
  490. If (H - QCSP >= 1130 And H - QCSP <= 1280) Then M3 = 600
  491.  
  492. Case Else
  493. MsgBox "ERRORE VALORE LH " & ACT_MOD, vbCritical
  494. End Select
  495.  
  496. End If
  497. Else
  498. R01 = ""
  499. R02 = ""
  500. End If
  501. '*******************************************************
  502.  
  503.  
  504. R03 = T_RECT1(-SCS, M2, L - 26.6, L + SCS)
  505. R03 = R03 & T_RECT1(-SCS, M2, -SCS, 16.6)
  506. R03 = R03 & T_RECT1(H - 70, H + SCS, -SCS, 16.6)
  507.  
  508. R03 = R03 & T_RECT1(H - 345, H - 290, 12.5, 17.5)
  509. R03 = R03 & T_RECT1(H - (345 + M3), H - (290 + M3), 12.5, 17.5)
  510. If CD_SP = "50522" Or CD_SP = "50522" Or CD_SP = "50522" Then
  511. R03 = R03 & T_RECT1(H - (345 + M3 + M10), H - (290 + M3 + M10), 12.5, 17.5)
  512. Else
  513. R03 = R03 & T_RECT1(H - (345 + 2 * M3), H - (290 + 2 * M3), 12.5, 17.5)
  514. End If
  515. R03 = R03 & T_RECT1(M2 + 20, M2 + 75, 12.5, 17.5)
  516.  
  517. R03 = R03 & T_SLOT(H - 25, DF - 18 + 15 - 2.4, 8, 5, 90)
  518. R03 = R03 & T_SLOT(H - 55, DF - 18 + 15 - 2.4, 8, 5, 90)
  519.  
  520. R03 = R03 & T_CIRC(M13, DF / 2 + 15 - 2.4, 7.2)
  521. R03 = R03 & T_CIRC(M13 + M1, DF / 2 + 15 - 2.4, 7.2)
  522. R03 = R03 & T_CIRC(M13, L - (DF / 2 + 25 - 2.4), 7.2)
  523. R03 = R03 & T_CIRC(M13 + M1, L - (DF / 2 + 25 - 2.4), 7.2)
  524. If M14 > 0 Then
  525. R03 = R03 & T_CIRC(M13 + M1 / 2, L - (DF / 2 + 25 - 2.4), 20.2)
  526. End If
  527. R03 = R03 & T_SLOT(H - 25, L - 9.5, 8, 5, 90)
  528. R03 = R03 & T_SLOT(H - 55, L - 9.5, 8, 5, 90)
  529.  
  530. R03 = R03 & T_CIRC(H - 283, L - 10, 8.5)
  531. R03 = R03 & T_CIRC(H - (283 + 34), L - 10, 8.5)
  532. R03 = R03 & T_CIRC(H - (283 + M3), L - 10, 8.5)
  533. R03 = R03 & T_CIRC(H - (283 + 34 + M3), L - 10, 8.5)
  534. If CD_SP = "50522" Or CD_SP = "50522" Or CD_SP = "50522" Then
  535. R03 = R03 & T_CIRC(H - (283 + M3 + M10), L - 10, 8.5)
  536. R03 = R03 & T_CIRC(H - (283 + 34 + M3 + M10), L - 10, 8.5)
  537. Else
  538. R03 = R03 & T_CIRC(H - (283 + 2 * M3), L - 10, 8.5)
  539. R03 = R03 & T_CIRC(H - (283 + 34 + 2 * M3), L - 10, 8.5)
  540. End If
  541. R03 = R03 & T_CIRC(M2 + 82, L - 10, 8.5)
  542. R03 = R03 & T_CIRC(M2 + 82 - 34, L - 10, 8.5)
  543.  
  544.  
  545. If M6 > 0 Then R04 = T_CIRC(H - 1500, 15 + M6 - 2.4, 22) Else R04 = ""
  546.  
  547. 'SMUSSI
  548. R05 = T_RAD(0 - OFSS, 15 + 4 - 2.4 - OFSS, 3)
  549. R05 = R05 & T_RAD(M2 - OFSS, 0 - OFSS, 3)
  550. R05 = R05 & T_RAD(0 - OFSS, L - (25 + 4 - 2.4) + OFSS, 2)
  551. R05 = R05 & T_RAD(M2 - OFSS, L + OFSS, 2)
  552. R05 = R05 & T_RAD(H - 70 + OFSS, 0 - OFSS, 4)
  553. R05 = R05 & T_RAD(H + OFSS, 15 + 4 - 2.4 - OFSS, 4)
  554. R05 = R05 & T_RAD(H + OFSS, L + OFSS, 1)
  555.  
  556. 'Print #NF, T_BLQ(H - 1000 - 5.65, L, H - 1000, L - 5.65, 1, 0)
  557. 'Print #NF, T_BLQ(H - 1000, L - 5.65, H - 1000 + 5.65, L, 0, 1)
  558. R06 = T_SMUS(H - 1000, L + 0.2)
  559. 'Print #NF, T_CIRC(H - 1000, L, 3.3)
  560.  
  561. R11 = T_DATAMATRIX(ODP, H - 100 - 40, 15 + 4, "O")
  562.  
  563. R12 = ""
  564. If M7 > 0 Then
  565. R12 = T_HEX(H - M7, 15 + 28.5 - 2.4, 11) & T_HEX(H - M7 - 859, 15 + 28.5 - 2.4, 11) & T_HEX(H - M7 - 859 - 398, 15 + 28.5 - 2.4, 11)
  566. End If
  567. If M8 > 0 Then
  568. R12 = R12 & T_HEX(H - M8 - 1257, 15 + 28.5 - 2.4, 11) & T_HEX(H - M8, 15 + 28.5 - 2.4, 11)
  569. End If
  570. If M9 > 0 Then
  571. R12 = R12 & T_HEX(H - M9, 15 + 28.5 - 2.4, 11)
  572. End If
  573.  
  574.  
  575.  
  576. Case 1, 3, 5, 7
  577.  
  578. '*******************************************SPACCO
  579. If CD_SP <> "" And CD_SP <> "0" Then
  580. R01 = SPC_PULS(NND, CD_SP, 25 + DF - 4.8, H, L, 1, sf, 0)
  581.  
  582.  
  583. If DF >= 40 Then M5 = DF - 25 Else M5 = 0
  584.  
  585.  
  586. If CD_SP = "50522" Or CD_SP = "50522" Or CD_SP = "50522" Then
  587. R02 = T_CIRC(H - M11, 5.2, 5.5) & T_CIRC(H - M11 - 375.5, 5.2, 5.5)
  588. R02 = R02 & T_CIRC(H - M12, 5.2, 5.5) & T_CIRC(H - M12 - 275.5, 5.2, 5.5)
  589. R02 = R02 & T_SLOT(H - M11, L - 24.1, 8, 5, 90) & T_SLOT(H - M11, L - 24.1 - M5, 8, 5, 90)
  590. R02 = R02 & T_SLOT(H - M11 - 375.5, L - 24.1, 8, 5, 90) & T_SLOT(H - M11 - 375.5, L - 24.1 - M5, 8, 5, 90)
  591. R02 = R02 & T_SLOT(H - M12, L - 24.1, 8, 5, 90) & T_SLOT(H - M12, L - 24.1 - M5, 8, 5, 90)
  592. R02 = R02 & T_SLOT(H - M12 - 275.5, L - 24.1, 8, 5, 90) & T_SLOT(H - M12 - 275.5, L - 24.1 - M5, 8, 5, 90)
  593.  
  594. Else
  595. R02 = T_CIRC(QCSP + 187.75, 5.2, 5.5)
  596. R02 = R02 & T_CIRC(QCSP - 187.75, 5.2, 5.5)
  597. R02 = R02 & T_SLOT(QCSP + 187.75, L - 24.1, 8, 5, 90)
  598. R02 = R02 & T_SLOT(QCSP + 187.75, L - 24.1 - M5, 8, 5, 90)
  599. R02 = R02 & T_SLOT(QCSP - 187.75, L - 24.1, 8, 5, 90)
  600. R02 = R02 & T_SLOT(QCSP - 187.75, L - 24.1 - M5, 8, 5, 90)
  601. End If
  602.  
  603.  
  604.  
  605. If M3 = 0 Then
  606. Select Case LH
  607.  
  608. Case 1900
  609. If H - QCSP < 1030 Then M3 = H - QCSP - 530
  610. If H - QCSP > 1080 Then M3 = (H - QCSP) / 2 - 40
  611. If (H - QCSP >= 1030 And H - QCSP <= 1080) Then M3 = 500
  612.  
  613. Case 1950
  614. If H - QCSP < 1055 Then M3 = H - QCSP - 530
  615. If H - QCSP > 1130 Then M3 = (H - QCSP) / 2 - 40
  616. If (H - QCSP >= 1055 And H - QCSP <= 1130) Then M3 = 525
  617.  
  618. Case 2000
  619. If H - QCSP < 1080 Then M3 = H - QCSP - 530
  620. If H - QCSP > 1180 Then M3 = (H - QCSP) / 2 - 40
  621. If (H - QCSP >= 1080 And H - QCSP <= 1180) Then M3 = 550
  622.  
  623. Case 2050
  624. If H - QCSP < 1105 Then M3 = H - QCSP - 530
  625. If H - QCSP > 1230 Then M3 = (H - QCSP) / 2 - 40
  626. If (H - QCSP >= 1105 And H - QCSP <= 1230) Then M3 = 575
  627.  
  628. Case 2100
  629. If H - QCSP < 1130 Then M3 = H - QCSP - 530
  630. If H - QCSP > 1280 Then M3 = (H - QCSP) / 2 - 40
  631. If (H - QCSP >= 1130 And H - QCSP <= 1280) Then M3 = 600
  632.  
  633. Case Else
  634. MsgBox "ERRORE VALORE LH " & ACT_MOD, vbCritical
  635. End Select
  636.  
  637. End If
  638. Else
  639. R01 = ""
  640. R02 = ""
  641. End If
  642. '************************************************
  643.  
  644. R03 = R03 & T_RECT1(-SCS, M2, -SCS, 26.6)
  645. R03 = R03 & T_RECT1(-SCS, M2, L - 16.6, L + SCS)
  646. R03 = R03 & T_RECT1(H - 70, H + SCS, L - 16.6, L + SCS)
  647.  
  648. R03 = R03 & T_RECT1(H - 345, H - 290, L - 17.5, L - 12.5)
  649. R03 = R03 & T_RECT1(H - (345 + M3), H - (290 + M3), L - 17.5, L - 12.5)
  650. If CD_SP = "50522" Or CD_SP = "50522" Or CD_SP = "50522" Then
  651. R03 = R03 & T_RECT1(H - (345 + M3 + M10), H - (290 + M3 + M10), L - 17.5, L - 12.5)
  652. Else
  653. R03 = R03 & T_RECT1(H - (345 + 2 * M3), H - (290 + 2 * M3), L - 17.5, L - 12.5)
  654. End If
  655. R03 = R03 & T_RECT1(M2 + 20, M2 + 75, L - 17.5, L - 12.5)
  656.  
  657. R03 = R03 & T_SLOT(H - 25, L - (DF - 18 + 15 - 2.4), 8, 5, 90)
  658. R03 = R03 & T_SLOT(H - 55, L - (DF - 18 + 15 - 2.4), 8, 5, 90)
  659.  
  660. 'R03 = R03 & T_CIRC(20, L - (DF / 2 + 15 - 2.4), 7.2)
  661. 'R03 = R03 & T_CIRC(20 + M1, L - (DF / 2 + 15 - 2.4), 7.2)
  662. 'R03 = R03 & T_CIRC(20, DF / 2 + 25 - 2.4, 7.2)
  663. 'R03 = R03 & T_CIRC(20 + M1, DF / 2 + 25 - 2.4, 7.2)
  664. R03 = R03 & T_CIRC(M13, L - (DF / 2 + 15 - 2.4), 7.2)
  665. R03 = R03 & T_CIRC(M13 + M1, L - (DF / 2 + 15 - 2.4), 7.2)
  666. R03 = R03 & T_CIRC(M13, DF / 2 + 25 - 2.4, 7.2)
  667. R03 = R03 & T_CIRC(M13 + M1, DF / 2 + 25 - 2.4, 7.2)
  668.  
  669. If M14 > 0 Then
  670. R03 = R03 & T_CIRC(M13 + M1 / 2, L - (DF / 2 + 25 - 2.4), 20.2)
  671.  
  672. End If
  673.  
  674. R03 = R03 & T_SLOT(H - 25, 9.5, 8, 5, 90)
  675. R03 = R03 & T_SLOT(H - 55, 9.5, 8, 5, 90)
  676. R03 = R03 & T_CIRC(H - 283, 10, 8.5)
  677. R03 = R03 & T_CIRC(H - (283 + 34), 10, 8.5)
  678. R03 = R03 & T_CIRC(H - (283 + M3), 10, 8.5)
  679. R03 = R03 & T_CIRC(H - (283 + 34 + M3), 10, 8.5)
  680. If CD_SP = "50522" Or CD_SP = "50522" Or CD_SP = "50522" Then
  681. R03 = R03 & T_CIRC(H - (283 + M3 + M10), 10, 8.5)
  682. R03 = R03 & T_CIRC(H - (283 + 34 + M3 + M10), 10, 8.5)
  683. Else
  684. R03 = R03 & T_CIRC(H - (283 + 2 * M3), 10, 8.5)
  685. R03 = R03 & T_CIRC(H - (283 + 34 + 2 * M3), 10, 8.5)
  686. End If
  687. R03 = R03 & T_CIRC(M2 + 82, 10, 8.5)
  688. R03 = R03 & T_CIRC(M2 + 82 - 34, 10, 8.5)
  689.  
  690. If M6 > 0 Then R04 = T_CIRC(H - 1500, L - (15 + M6 - 2.4), 22) Else R04 = ""
  691.  
  692. 'SMUSSI
  693. R05 = T_RAD(0 - OFSS, L - (15 + 4 - 2.4) + OFSS, 2)
  694. R05 = R05 & T_RAD(M2 - OFSS, L + OFSS, 2)
  695. R05 = R05 & T_RAD(0 - OFSS, 25 + 4 - 2.4 - OFSS, 3)
  696. R05 = R05 & T_RAD(M2 - OFSS, 0 - OFSS, 3)
  697. R05 = R05 & T_RAD(H - 70 + OFSS, L + OFSS, 1)
  698. R05 = R05 & T_RAD(H + OFSS, L - (15 + 4 - 2.4) + OFSS, 1)
  699. R05 = R05 & T_RAD(H + OFSS, 0 - OFSS, 4)
  700.  
  701. 'Print #NF, T_BLQ(H - 1000, 5.65, H - 1000 - 5.65, 0, 0, 1)
  702. 'Print #NF, T_BLQ(H - 1000 + 5.65, 0, H - 1000, 5.65, 1, 0)
  703. R06 = T_SMUS(H - 1000, -0.2)
  704. 'Print #NF, T_CIRC(H - 1000, 0, 3.3)
  705.  
  706. R11 = T_DATAMATRIX(ODP, H - 100 - 40, L - 15 - 4 - 17.5, "O")
  707.  
  708. R12 = ""
  709. If M7 > 0 Then
  710. R12 = T_HEX(H - M7, L - (15 + 28.5 - 2.4), 11) & T_HEX(H - M7 - 859, L - (15 + 28.5 - 2.4), 11) & T_HEX(H - M7 - 859 - 398, L - (15 + 28.5 - 2.4), 11)
  711. End If
  712. If M8 > 0 Then
  713. R12 = R12 & T_HEX(H - M8 - 1257, L - (15 + 28.5 - 2.4), 11) & T_HEX(H - M8, L - (15 + 28.5 - 2.4), 11)
  714. End If
  715. If M9 > 0 Then
  716. R12 = R12 & T_HEX(H - M9, L - (15 + 28.5 - 2.4), 11)
  717. End If
  718.  
  719.  
  720. Case Else
  721. MsgBox "ERRORE VALORE VV " & ACT_MOD, vbCritical
  722. End Select
  723.  
  724. fn = R01 & R02 & R03 & R04 & R05 & R06 & R11 & R12
  725.  
  726.  
  727. P1 = 250
  728. P2 = H - 400
  729. MVAL = 500
  730. STRINGA = R000(NHD, NND, SPS, H, L, P1, P2, MVAL) & fn
  731.  
  732. Call SAVE_SUB(NND, STRINGA)
  733.  
  734. POSINTAB = def_posintab(NND)
  735. Call CUT_END_S(H, L, "0", POSINTAB)
  736. Call FVTPT(3, NND, "")
  737. Call CUT_END_S(H, L, "B", POSINTAB)
  738. Call FVTPT(3, NND, "B")
  739. Call CUT_END_S(H, L, "C", POSINTAB)
  740. Call FVTPT(3, NND, "C")
  741.  
  742.  
  743. End Sub
  744.  
  745. Sub S_1006897H(ByVal NND As Integer)
  746. ACT_MOD = "1006897"
  747. CLAMP = 0
  748.  
  749.  
  750. L = INPUT_NUM(NND, "L", L, ACT_MOD)
  751. H = INPUT_NUM(NND, "H", H, ACT_MOD)
  752. SPS = INPUT_NUM(NND, "SPS", SPS, ACT_MOD) / 10
  753. M1 = INPUT_NUM(NND, "M1", M1, ACT_MOD)
  754. M2 = INPUT_NUM(NND, "M2", M2, ACT_MOD)
  755. M3 = INPUT_NUM(NND, "M3", M3, ACT_MOD)
  756. M4 = INPUT_NUM(NND, "M4", M4, ACT_MOD)
  757. M5 = INPUT_NUM(NND, "M5", M5, ACT_MOD)
  758. M6 = INPUT_NUM(NND, "M6", M6, ACT_MOD)
  759. M7 = INPUT_NUM(NND, "M7", M7, ACT_MOD)
  760. M8 = INPUT_NUM(NND, "M8", M8, ACT_MOD)
  761. M9 = INPUT_NUM(NND, "M9", M9, ACT_MOD)
  762. M10 = INPUT_NUM(NND, "M10", M10, ACT_MOD)
  763. M11 = INPUT_NUM(NND, "M11", M11, ACT_MOD)
  764. M12 = INPUT_NUM(NND, "M12", M12, ACT_MOD)
  765. M13 = INPUT_NUM(NND, "M13", M13, ACT_MOD)
  766. M14 = INPUT_NUM(NND, "M14", M14, ACT_MOD)
  767. M15 = INPUT_NUM(NND, "M15", M15, ACT_MOD)
  768. M16 = INPUT_NUM(NND, "M16", M16, ACT_MOD)
  769. M17 = INPUT_NUM(NND, "M17", M17, ACT_MOD)
  770. M18 = INPUT_NUM(NND, "M18", M18, ACT_MOD)
  771.  
  772.  
  773. DF = INPUT_NUM(NND, "DF", DF, ACT_MOD)
  774. sf = INPUT_NUM(NND, "SF", sf, ACT_MOD)
  775. SB = INPUT_NUM(NND, "SB", SB, ACT_MOD)
  776. LH = INPUT_NUM(NND, "LH", LH, ACT_MOD)
  777. CD_SP = INPUT_NUM(NND, "SPC.", CD_SP, ACT_MOD)
  778. VV = INPUT_STR(NND, "VER.", VV, ACT_MOD)
  779. BNB = INPUT_NUM(NND, "BNB", BNB, ACT_MOD)
  780. ODP = INFO_DAT(NND, 0, 5)
  781.  
  782. OFSS = 0 '0.5
  783.  
  784. SPCOTIS = "_50948_50949_50974_50952_50953_51001_50956_50957_50960_51005_50964_50965_50968_51007_"
  785. If Val(LH) = 0 Then
  786. SP = M1 + 50
  787. LH = H - SP
  788. End If
  789.  
  790.  
  791. If VV = "1" Or VV = "3" Or VV = "5" Or VV = "7" Then    'PINZE
  792. If CD_SP = 0 Then
  793. If SP = 90 And LH = 2000 Then
  794. 'CLAMP = 1
  795. End If
  796. End If
  797. End If
  798.  
  799.  
  800. VV = Replace(VV, "H", "")
  801.  
  802. If VV > 8 Then MsgBox "ERRORE VERSIONE SU " & ACT_MOD, vbCritical
  803.  
  804.  
  805. SCS = 6
  806.  
  807.  
  808. sf = 1 * sf '+ 1 * SB
  809. If sf = 0 Then
  810. sf = 1 * SB
  811. MsgBox "ERRORE DATI SB-SF IN " & ACT_MOD
  812. End If
  813.  
  814. If VV = "1" Or VV = "2" Or VV = "5" Or VV = "6" Then
  815. M16 = 20
  816. M17 = 48
  817. End If
  818.  
  819.  
  820. Select Case VV
  821. Case 2, 4, 6, 8
  822.  
  823.  
  824. '*******************************************SPACCO
  825. If CD_SP <> "" And CD_SP <> "0" Then
  826. R01 = SPC_PULS(NND, CD_SP, 25 + DF - 4.8, H, L, 2, sf, 0) 'MODIFICATO DA 25 A 15mm
  827.  
  828. If DF >= 40 Then M5 = DF - 25 Else M5 = 0
  829.  
  830. 'LISTA CODICI SPACCHI OTIS
  831. CD_SP_OTIS = "_50948_50949_50950_50951_50952_50953_50954_51004_50956_50957_50958_50959_50960_51005_50962_51006_50964_50965_50966_50967_50968_51007_50970_51008_50972_50973_50981_50982_50983_50991_50992_50984_50985_50986_50987_50988_50989_50990_50995_50996_50997_50998_50999_50974_50975_51000_51001_"
  832.  
  833. If CD_SP = "50522" Or CD_SP = "50523" Or CD_SP = "50524" Or InStr(1, CD_SP_OTIS, CD_SP) > 0 Then
  834.  
  835. If M15 > 0 And M11 > 0 Then
  836. R02 = T_CIRC(H - M11, L - 5.2, 5.5) & T_CIRC(H - M11 - M15, L - 5.2, 5.5)
  837. R02 = R02 & T_SLOT(H - M11, 24.1, 8, 5, 90) & T_SLOT(H - M11, 24.1 + M5, 8, 5, 90)
  838. R02 = R02 & T_SLOT(H - M11 - M15, 24.1, 8, 5, 90) & T_SLOT(H - M11 - M15, 24.1 + M5, 8, 5, 90)
  839. End If
  840.  
  841.  
  842.  
  843. If M12 > 0 And M18 > 0 Then
  844. R02 = R02 & T_CIRC(H - M12, L - 5.2, 5.5) & T_CIRC(H - M12 - M18, L - 5.2, 5.5)
  845. R02 = R02 & T_SLOT(H - M12, 24.1, 8, 5, 90) & T_SLOT(H - M12, 24.1 + M5, 8, 5, 90)
  846. R02 = R02 & T_SLOT(H - M12 - M18, 24.1, 8, 5, 90) & T_SLOT(H - M12 - M18, 24.1 + M5, 8, 5, 90)
  847. End If
  848.  
  849.  
  850. Else
  851. R02 = T_CIRC(QCSP + 187.75, L - 5.2, 5.5)
  852. R02 = R02 & T_CIRC(QCSP - 187.75, L - 5.2, 5.5)
  853. R02 = R02 & T_SLOT(QCSP + 187.75, 24.1, 8, 5, 90)
  854. R02 = R02 & T_SLOT(QCSP + 187.75, 24.1 + M5, 8, 5, 90)
  855. R02 = R02 & T_SLOT(QCSP - 187.75, 24.1, 8, 5, 90)
  856. R02 = R02 & T_SLOT(QCSP - 187.75, 24.1 + M5, 8, 5, 90)
  857. End If
  858.  
  859. If M3 = 0 Then
  860.  
  861. MsgBox "M3=0"
  862. Select Case LH
  863.  
  864. Case 1900
  865. If H - QCSP < 1030 Then M3 = H - QCSP - 530
  866. If H - QCSP > 1080 Then M3 = (H - QCSP) / 2 - 40
  867. If (H - QCSP >= 1030 And H - QCSP <= 1080) Then M3 = 500
  868.  
  869. Case 1950
  870. If H - QCSP < 1055 Then M3 = H - QCSP - 530
  871. If H - QCSP > 1130 Then M3 = (H - QCSP) / 2 - 40
  872. If (H - QCSP >= 1055 And H - QCSP <= 1130) Then M3 = 525
  873.  
  874. Case 2000
  875. If H - QCSP < 1080 Then M3 = H - QCSP - 530
  876. If H - QCSP > 1180 Then M3 = (H - QCSP) / 2 - 40
  877. If (H - QCSP >= 1080 And H - QCSP <= 1180) Then M3 = 550
  878.  
  879. Case 2050
  880. If H - QCSP < 1105 Then M3 = H - QCSP - 530
  881. If H - QCSP > 1230 Then M3 = (H - QCSP) / 2 - 40
  882. If (H - QCSP >= 1105 And H - QCSP <= 1230) Then M3 = 575
  883.  
  884. Case 2100
  885. If H - QCSP < 1130 Then M3 = H - QCSP - 530
  886. If H - QCSP > 1280 Then M3 = (H - QCSP) / 2 - 40
  887. If (H - QCSP >= 1130 And H - QCSP <= 1280) Then M3 = 600
  888.  
  889. Case Else
  890. MsgBox "ERRORE VALORE LH " & ACT_MOD, vbCritical
  891. End Select
  892.  
  893. End If
  894. Else
  895. R01 = ""
  896. R02 = ""
  897. End If
  898. '*******************************************************
  899.  
  900.  
  901. R03 = T_RECT1(-SCS, M2, L - 26.6, L + SCS)
  902. R03 = R03 & T_RECT1(-SCS, M2, -SCS, 16.6)
  903. R03 = R03 & T_RECT1(H - 70, H + SCS, -SCS, 16.6)
  904.  
  905. R03 = R03 & T_RECT1(H - 345, H - 290, 12.5, 17.5)
  906. R03 = R03 & T_RECT1(H - (345 + M3), H - (290 + M3), 12.5, 17.5)
  907. If CD_SP = "50522" Or CD_SP = "50522" Or CD_SP = "50522" Then
  908. R03 = R03 & T_RECT1(H - (345 + M3 + M10), H - (290 + M3 + M10), 12.5, 17.5)
  909. Else
  910. R03 = R03 & T_RECT1(H - (345 + 2 * M3), H - (290 + 2 * M3), 12.5, 17.5)
  911. End If
  912. R03 = R03 & T_RECT1(M2 + M16, M2 + 75, 12.5, 17.5)
  913.  
  914. R03 = R03 & T_SLOT(H - 25, DF - 18 + 15 - 2.4, 8, 5, 90)
  915. R03 = R03 & T_SLOT(H - 55, DF - 18 + 15 - 2.4, 8, 5, 90)
  916.  
  917. R03 = R03 & T_CIRC(M13, DF / 2 + 15 - 2.4, 7.2)
  918. R03 = R03 & T_CIRC(M13 + M1, DF / 2 + 15 - 2.4, 7.2)
  919. R03 = R03 & T_CIRC(M13, L - (DF / 2 + 25 - 2.4), 7.2)
  920. R03 = R03 & T_CIRC(M13 + M1, L - (DF / 2 + 25 - 2.4), 7.2)
  921. If M14 > 0 Then
  922. R03 = R03 & T_CIRC(M13 + M1 / 2, L - (DF / 2 + 25 - 2.4), 20.2)
  923. End If
  924. R03 = R03 & T_SLOT(H - 25, L - 9.5, 8, 5, 90)
  925. R03 = R03 & T_SLOT(H - 55, L - 9.5, 8, 5, 90)
  926.  
  927. R03 = R03 & T_CIRC(H - 283, L - 10, 8.5)
  928. R03 = R03 & T_CIRC(H - (283 + 34), L - 10, 8.5)
  929. R03 = R03 & T_CIRC(H - (283 + M3), L - 10, 8.5)
  930. R03 = R03 & T_CIRC(H - (283 + 34 + M3), L - 10, 8.5)
  931. If CD_SP = "50522" Or CD_SP = "50522" Or CD_SP = "50522" Then
  932. R03 = R03 & T_CIRC(H - (283 + M3 + M10), L - 10, 8.5)
  933. R03 = R03 & T_CIRC(H - (283 + 34 + M3 + M10), L - 10, 8.5)
  934. Else
  935. R03 = R03 & T_CIRC(H - (283 + 2 * M3), L - 10, 8.5)
  936. R03 = R03 & T_CIRC(H - (283 + 34 + 2 * M3), L - 10, 8.5)
  937. End If
  938. R03 = R03 & T_CIRC(M2 + M17 + 34, L - 10, 8.5)
  939. R03 = R03 & T_CIRC(M2 + M17 + 34 - 34, L - 10, 8.5)
  940.  
  941.  
  942. If M6 > 0 Then R04 = T_CIRC(H - 1500, 15 + M6 - 2.4, 22) Else R04 = ""
  943.  
  944. 'SMUSSI
  945. R05 = T_RAD(0 - OFSS, 15 + 4 - 2.4 - OFSS, 3)
  946. R05 = R05 & T_RAD(M2 - OFSS, 0 - OFSS, 3)
  947. R05 = R05 & T_RAD(0 - OFSS, L - (25 + 4 - 2.4) + OFSS, 2)
  948. R05 = R05 & T_RAD(M2 - OFSS, L + OFSS, 2)
  949. R05 = R05 & T_RAD(H - 70 + OFSS, 0 - OFSS, 4)
  950. R05 = R05 & T_RAD(H + OFSS, 15 + 4 - 2.4 - OFSS, 4)
  951. R05 = R05 & T_RAD(H + OFSS, L + OFSS, 1)
  952.  
  953. 'Print #NF, T_BLQ(H - 1000 - 5.65, L, H - 1000, L - 5.65, 1, 0)
  954. 'Print #NF, T_BLQ(H - 1000, L - 5.65, H - 1000 + 5.65, L, 0, 1)
  955. R06 = T_SMUS(H - 1000, L + 0.2)
  956. 'Print #NF, T_CIRC(H - 1000, L, 3.3)
  957.  
  958. R11 = T_DATAMATRIX(ODP, H - 100 - 40, 15 + 4, "O")
  959.  
  960. R12 = ""
  961. If M7 > 0 Then
  962. R12 = T_HEX(H - M7, 15 + 28.5 - 2.4, 11) & T_HEX(H - M7 - 859, 15 + 28.5 - 2.4, 11) & T_HEX(H - M7 - 859 - 398, 15 + 28.5 - 2.4, 11)
  963. End If
  964. If M8 > 0 Then
  965. R12 = R12 & T_HEX(H - M8 - 1257, 15 + 28.5 - 2.4, 11) & T_HEX(H - M8, 15 + 28.5 - 2.4, 11)
  966. End If
  967. If M9 > 0 Then
  968. R12 = R12 & T_HEX(H - M9, 15 + 28.5 - 2.4, 11)
  969. End If
  970.  
  971.  
  972.  
  973. Case 1, 3, 5, 7
  974.  
  975. '*******************************************SPACCO
  976. If CD_SP <> "" And CD_SP <> "0" Then
  977. R01 = SPC_PULS(NND, CD_SP, 25 + DF - 4.8, H, L, 1, sf, 0)
  978.  
  979.  
  980. If DF >= 40 Then M5 = DF - 25 Else M5 = 0
  981.  
  982. 'LISTA CODICI SPACCHI OTIS
  983. CD_SP_OTIS = "_50948_50949_50950_50951_50952_50953_50954_51004_50956_50957_50958_50959_50960_51005_50962_51006_50964_50965_50966_50967_50968_51007_50970_51008_50972_50973_50981_50982_50983_50991_50992_50984_50985_50986_50987_50988_50989_50990_50995_50996_50997_50998_50999_50974_50975_51000_51001_"
  984.  
  985. If CD_SP = "50522" Or CD_SP = "50523" Or CD_SP = "50524" Or InStr(1, CD_SP_OTIS, CD_SP) > 0 Then
  986.  
  987. If M15 > 0 And M11 > 0 Then
  988. R02 = T_CIRC(H - M11, 5.2, 5.5) & T_CIRC(H - M11 - M15, 5.2, 5.5)
  989. R02 = R02 & T_SLOT(H - M11, L - 24.1, 8, 5, 90) & T_SLOT(H - M11, L - 24.1 - M5, 8, 5, 90)
  990. R02 = R02 & T_SLOT(H - M11 - M15, L - 24.1, 8, 5, 90) & T_SLOT(H - M11 - M15, L - 24.1 - M5, 8, 5, 90)
  991. End If
  992.  
  993. If M12 > 0 And M18 > 0 Then
  994. R02 = R02 & T_SLOT(H - M12, L - 24.1, 8, 5, 90) & T_SLOT(H - M12, L - 24.1 - M5, 8, 5, 90)
  995. R02 = R02 & T_SLOT(H - M12 - M18, L - 24.1, 8, 5, 90) & T_SLOT(H - M12 - M18, L - 24.1 - M5, 8, 5, 90)
  996. R02 = R02 & T_CIRC(H - M12, 5.2, 5.5) & T_CIRC(H - M12 - M18, 5.2, 5.5)
  997. End If
  998.  
  999. Else
  1000. R02 = T_CIRC(QCSP + 187.75, 5.2, 5.5)
  1001. R02 = R02 & T_CIRC(QCSP - 187.75, 5.2, 5.5)
  1002. R02 = R02 & T_SLOT(QCSP + 187.75, L - 24.1, 8, 5, 90)
  1003. R02 = R02 & T_SLOT(QCSP + 187.75, L - 24.1 - M5, 8, 5, 90)
  1004. R02 = R02 & T_SLOT(QCSP - 187.75, L - 24.1, 8, 5, 90)
  1005. R02 = R02 & T_SLOT(QCSP - 187.75, L - 24.1 - M5, 8, 5, 90)
  1006. End If
  1007.  
  1008.  
  1009.  
  1010. If M3 = 0 Then
  1011. Select Case LH
  1012.  
  1013. Case 1900
  1014. If H - QCSP < 1030 Then M3 = H - QCSP - 530
  1015. If H - QCSP > 1080 Then M3 = (H - QCSP) / 2 - 40
  1016. If (H - QCSP >= 1030 And H - QCSP <= 1080) Then M3 = 500
  1017.  
  1018. Case 1950
  1019. If H - QCSP < 1055 Then M3 = H - QCSP - 530
  1020. If H - QCSP > 1130 Then M3 = (H - QCSP) / 2 - 40
  1021. If (H - QCSP >= 1055 And H - QCSP <= 1130) Then M3 = 525
  1022.  
  1023. Case 2000
  1024. If H - QCSP < 1080 Then M3 = H - QCSP - 530
  1025. If H - QCSP > 1180 Then M3 = (H - QCSP) / 2 - 40
  1026. If (H - QCSP >= 1080 And H - QCSP <= 1180) Then M3 = 550
  1027.  
  1028. Case 2050
  1029. If H - QCSP < 1105 Then M3 = H - QCSP - 530
  1030. If H - QCSP > 1230 Then M3 = (H - QCSP) / 2 - 40
  1031. If (H - QCSP >= 1105 And H - QCSP <= 1230) Then M3 = 575
  1032.  
  1033. Case 2100
  1034. If H - QCSP < 1130 Then M3 = H - QCSP - 530
  1035. If H - QCSP > 1280 Then M3 = (H - QCSP) / 2 - 40
  1036. If (H - QCSP >= 1130 And H - QCSP <= 1280) Then M3 = 600
  1037.  
  1038. Case Else
  1039. MsgBox "ERRORE VALORE LH " & ACT_MOD, vbCritical
  1040. End Select
  1041.  
  1042. End If
  1043. Else
  1044. R01 = ""
  1045. R02 = ""
  1046. End If
  1047. '************************************************
  1048.  
  1049. R03 = R03 & T_RECT1(-SCS, M2, -SCS, 26.6)
  1050. R03 = R03 & T_RECT1(-SCS, M2, L - 16.6, L + SCS)
  1051. R03 = R03 & T_RECT1(H - 70, H + SCS, L - 16.6, L + SCS)
  1052.  
  1053. R03 = R03 & T_RECT1(H - 345, H - 290, L - 17.5, L - 12.5)
  1054. R03 = R03 & T_RECT1(H - (345 + M3), H - (290 + M3), L - 17.5, L - 12.5)
  1055. If CD_SP = "50522" Or CD_SP = "50523" Or CD_SP = "50524" Then
  1056. R03 = R03 & T_RECT1(H - (345 + M3 + M10), H - (290 + M3 + M10), L - 17.5, L - 12.5)
  1057. Else
  1058. R03 = R03 & T_RECT1(H - (345 + 2 * M3), H - (290 + 2 * M3), L - 17.5, L - 12.5)
  1059. End If
  1060. R03 = R03 & T_RECT1(M2 + M16, M2 + 75, L - 17.5, L - 12.5)
  1061.  
  1062. R03 = R03 & T_SLOT(H - 25, L - (DF - 18 + 15 - 2.4), 8, 5, 90)
  1063. R03 = R03 & T_SLOT(H - 55, L - (DF - 18 + 15 - 2.4), 8, 5, 90)
  1064.  
  1065. 'R03 = R03 & T_CIRC(20, L - (DF / 2 + 15 - 2.4), 7.2)
  1066. 'R03 = R03 & T_CIRC(20 + M1, L - (DF / 2 + 15 - 2.4), 7.2)
  1067. 'R03 = R03 & T_CIRC(20, DF / 2 + 25 - 2.4, 7.2)
  1068. 'R03 = R03 & T_CIRC(20 + M1, DF / 2 + 25 - 2.4, 7.2)
  1069. R03 = R03 & T_CIRC(M13, L - (DF / 2 + 15 - 2.4), 7.2)
  1070. R03 = R03 & T_CIRC(M13 + M1, L - (DF / 2 + 15 - 2.4), 7.2)
  1071. R03 = R03 & T_CIRC(M13, DF / 2 + 25 - 2.4, 7.2)
  1072. R03 = R03 & T_CIRC(M13 + M1, DF / 2 + 25 - 2.4, 7.2)
  1073.  
  1074. If M14 > 0 Then
  1075. R03 = R03 & T_CIRC(M13 + M1 / 2, L - (DF / 2 + 25 - 2.4), 20.2)
  1076.  
  1077. End If
  1078.  
  1079. R03 = R03 & T_SLOT(H - 25, 9.5, 8, 5, 90)
  1080. R03 = R03 & T_SLOT(H - 55, 9.5, 8, 5, 90)
  1081. R03 = R03 & T_CIRC(H - 283, 10, 8.5)
  1082. R03 = R03 & T_CIRC(H - (283 + 34), 10, 8.5)
  1083. R03 = R03 & T_CIRC(H - (283 + M3), 10, 8.5)
  1084. R03 = R03 & T_CIRC(H - (283 + 34 + M3), 10, 8.5)
  1085. If CD_SP = "50522" Or CD_SP = "50523" Or CD_SP = "50524" Then
  1086. R03 = R03 & T_CIRC(H - (283 + M3 + M10), 10, 8.5)
  1087. R03 = R03 & T_CIRC(H - (283 + 34 + M3 + M10), 10, 8.5)
  1088. Else
  1089. R03 = R03 & T_CIRC(H - (283 + 2 * M3), 10, 8.5)
  1090. R03 = R03 & T_CIRC(H - (283 + 34 + 2 * M3), 10, 8.5)
  1091. End If
  1092. R03 = R03 & T_CIRC(M2 + M17 + 34, 10, 8.5)
  1093. R03 = R03 & T_CIRC(M2 + M17 + 34 - 34, 10, 8.5)
  1094.  
  1095. If M6 > 0 Then R04 = T_CIRC(H - 1500, L - (15 + M6 - 2.4), 22) Else R04 = ""
  1096.  
  1097. 'SMUSSI
  1098. R05 = T_RAD(0 - OFSS, L - (15 + 4 - 2.4) + OFSS, 2)
  1099. R05 = R05 & T_RAD(M2 - OFSS, L + OFSS, 2)
  1100. R05 = R05 & T_RAD(0 - OFSS, 25 + 4 - 2.4 - OFSS, 3)
  1101. R05 = R05 & T_RAD(M2 - OFSS, 0 - OFSS, 3)
  1102. R05 = R05 & T_RAD(H - 70 + OFSS, L + OFSS, 1)
  1103. R05 = R05 & T_RAD(H + OFSS, L - (15 + 4 - 2.4) + OFSS, 1)
  1104. R05 = R05 & T_RAD(H + OFSS, 0 - OFSS, 4)
  1105.  
  1106. 'Print #NF, T_BLQ(H - 1000, 5.65, H - 1000 - 5.65, 0, 0, 1)
  1107. 'Print #NF, T_BLQ(H - 1000 + 5.65, 0, H - 1000, 5.65, 1, 0)
  1108. R06 = T_SMUS(H - 1000, -0.2)
  1109. 'Print #NF, T_CIRC(H - 1000, 0, 3.3)
  1110.  
  1111. R11 = T_DATAMATRIX(ODP, H - 100 - 40, L - 15 - 4 - 17.5, "O")
  1112.  
  1113. R12 = ""
  1114. If M7 > 0 Then
  1115. R12 = T_HEX(H - M7, L - (15 + 28.5 - 2.4), 11) & T_HEX(H - M7 - 859, L - (15 + 28.5 - 2.4), 11) & T_HEX(H - M7 - 859 - 398, L - (15 + 28.5 - 2.4), 11)
  1116. End If
  1117. If M8 > 0 Then
  1118. R12 = R12 & T_HEX(H - M8 - 1257, L - (15 + 28.5 - 2.4), 11) & T_HEX(H - M8, L - (15 + 28.5 - 2.4), 11)
  1119. End If
  1120. If M9 > 0 Then
  1121. R12 = R12 & T_HEX(H - M9, L - (15 + 28.5 - 2.4), 11)
  1122. End If
  1123.  
  1124.  
  1125. Case Else
  1126. MsgBox "ERRORE VALORE VV " & ACT_MOD, vbCritical
  1127. End Select
  1128.  
  1129. fn = R01 & R02 & R03 & R04 & R05 & R06 & R11 & R12
  1130.  
  1131.  
  1132. P1 = 250
  1133. P2 = H - 400
  1134. MVAL = 500
  1135. STRINGA = R000(NHD, NND, SPS, H, L, P1, P2, MVAL) & fn
  1136.  
  1137. Call SAVE_SUB(NND, STRINGA)
  1138.  
  1139. POSINTAB = def_posintab(NND)
  1140. Call CUT_END_S(H, L, "0", POSINTAB)
  1141. Call FVTPT(3, NND, "")
  1142. Call CUT_END_S(H, L, "B", POSINTAB)
  1143. Call FVTPT(3, NND, "B")
  1144. Call CUT_END_S(H, L, "C", POSINTAB)
  1145. Call FVTPT(3, NND, "C")
  1146.  
  1147.  
  1148. End Sub
  1149.  
  1150.  
  1151.  
  1152. Sub S_1007098D(ByVal NND As Integer)
  1153. ACT_MOD = "1007098"
  1154.  
  1155.  
  1156.  
  1157. L = INPUT_NUM(NND, "L", L, ACT_MOD)
  1158. H = INPUT_NUM(NND, "H", H, ACT_MOD)
  1159. SPS = INPUT_NUM(NND, "SPS", SPS, ACT_MOD) / 10
  1160. 'M1 = INPUT_NUM(NND, "M1", M1, ACT_MOD)
  1161. M2 = INPUT_NUM(NND, "M2", M2, ACT_MOD)
  1162. M3 = INPUT_NUM(NND, "M3", M3, ACT_MOD)
  1163. CD_SP = INPUT_NUM(NND, "SPC.", CD_SP, ACT_MOD)
  1164. VV = INPUT_STR(NND, "VER.", VV, ACT_MOD)
  1165. BNB = INPUT_NUM(NND, "BNB", BNB, ACT_MOD)
  1166. ODP = INFO_DAT(NND, 0, 5)
  1167.  
  1168. VV = Replace(VV, "P", "")
  1169.  
  1170. 'If VV <> 1 And VV <> 2 Then MsgBox "ERRORE VERSIONE SU " & ACT_MOD, vbCritical
  1171. If VV > 4 Then MsgBox "ERRORE VERSIONE SU " & ACT_MOD, vbCritical
  1172.  
  1173.  
  1174. SCS = 6
  1175.  
  1176. LH = H - 22
  1177.  
  1178. If CD_SP <> "0" Then
  1179. QCSP = DEFINE_QCSP(COD_SPC, NND, H)
  1180. If QCSP <> 0 Then QCSP = H - QCSP
  1181. If QCSP = 0 Then QCSP = InputBox("INSERIRE QUOTA CENTRO SPACCO DA PAVIMENTO" & Chr(13) & "**USARE LA , E NON IL .**", "COMMESSA " & INFO_DAT(NND, 0, 2))
  1182. Else
  1183. QCSP = 0
  1184. End If
  1185. QCSP = Int(QCSP)
  1186.  
  1187. Select Case LH
  1188.  
  1189. Case 1900
  1190. If QCSP < 1030 Then M1 = QCSP - 530
  1191. If QCSP > 1080 Then M1 = QCSP / 2 - 40
  1192. If (QCSP >= 1030 And QCSP <= 1080) Then M1 = 500
  1193. If QCSP = 0 Then M1 = 500
  1194.  
  1195. Case 1950
  1196. If QCSP < 1055 Then M1 = QCSP - 530
  1197. If QCSP > 1130 Then M1 = QCSP / 2 - 40
  1198. If (QCSP >= 1055 And QCSP <= 1130) Then M1 = 525
  1199. If QCSP = 0 Then M1 = 525
  1200.  
  1201. Case 2000
  1202. If QCSP < 1080 Then M1 = QCSP - 530
  1203. If QCSP > 1180 Then M1 = QCSP / 2 - 40
  1204. If (QCSP >= 1080 And QCSP <= 1180) Then M1 = 550
  1205. If QCSP = 0 Then M1 = 550
  1206.  
  1207. Case 2050
  1208. If QCSP < 1105 Then M1 = QCSP - 530
  1209. If QCSP > 1230 Then M1 = QCSP / 2 - 40
  1210. If (QCSP >= 1105 And QCSP <= 1230) Then M1 = 575
  1211. If QCSP = 0 Then M1 = 575
  1212.  
  1213. Case 2100
  1214. If QCSP < 1130 Then M1 = QCSP - 530
  1215. If QCSP > 1280 Then M1 = QCSP / 2 - 40
  1216. If (QCSP >= 1130 And QCSP <= 1280) Then M1 = 600
  1217. If QCSP = 0 Then M1 = 600
  1218.  
  1219. Case Else
  1220. MsgBox "ERRORE VALORE LH " & ACT_MOD, vbCritical
  1221. End Select
  1222.  
  1223.  
  1224. If CD_SP = "W50522" Or CD_SP = "W50523" Or CD_SP = "W50524" Then MsgBox ("SPACCHI ORONA, CONTROLLARE FORATURA SU LATO BATTUTA " & ACT_MOD)
  1225.  
  1226.  
  1227. Select Case VV
  1228. Case 2, 4
  1229.  
  1230.  
  1231. 'R01 = T_CIRC(25, L - 10 - 1.5, 12) & T_CIRC(25, L - 10 + 1.5, 12) & T_CIRC(25, L - 10, 12)
  1232. 'R01 = R01 & T_CIRC(25 + 30, L - 10 - 1.5, 12) & T_CIRC(25 + 30, L - 10 + 1.5, 12) & T_CIRC(25 + 30, L - 10, 12)
  1233. R01 = T_RECT1(19, 19 + 22, L - 27 + 6, L - 27 + 6 + 17) & T_RECT1(19 + 22 + 8, 19 + 22 + 8 + 22, L - 27 + 6, L - 27 + 6 + 17)
  1234.  
  1235.  
  1236.  
  1237. R02 = T_SLOT(283, L - 12, 15, 5, 90)
  1238. R02 = R02 & T_SLOT(283 + 34, L - 12, 15, 5, 90)
  1239. R02 = R02 & T_SLOT(283 + M1, L - 12, 15, 5, 90)
  1240. R02 = R02 & T_SLOT(283 + 34 + M1, L - 12, 15, 5, 90)
  1241. R02 = R02 & T_SLOT(283 + (2 * M1), L - 12, 15, 5, 90)
  1242. R02 = R02 & T_SLOT(283 + 34 + (2 * M1), L - 12, 15, 5, 90)
  1243. 'Print #NF, T_SLOT(283 + (3 * M1), L - 10, 10, 5, 90)        ' se necessario attivare la lavorazione
  1244. 'Print #NF, T_SLOT(283 + 34 + (3 * M1), L - 10, 10, 5, 90)   ' se necessario attivare la lavorazione
  1245. R02 = R02 & T_SLOT(H - 99, L - 12, 15, 5, 90)
  1246. R02 = R02 & T_SLOT(H - 99 + 34, L - 12, 15, 5, 90)
  1247.  
  1248. If M2 <> 0 Or M3 <> 0 Then
  1249. R03 = T_CIRC(283 + 34 + M2, L - 12, 12)
  1250. R03 = R03 & T_CIRC(283 + 34 + M2 + M3, L - 12, 12)
  1251. R03 = R03 & T_CIRC(283 + M1 + 34 + M2, L - 12, 12)
  1252. R03 = R03 & T_CIRC(283 + M1 + 34 + M2 + M3, L - 12, 12)
  1253. R03 = R03 & T_CIRC(283 + 2 * M1 + 34 + M2, L - 12, 12)
  1254. R03 = R03 & T_CIRC(283 + 2 * M1 + 34 + M2 + M3, L - 12, 12)
  1255. Else
  1256. R03 = ""
  1257. End If
  1258.  
  1259. R04 = T_RECT1(H - 22, H + 3, L - 20 - 27 + 3.5, L - 20)
  1260. R04 = R04 & T_RECT1(H - 22, H - 3.5, L - 20 - 27, L - 20 - 27 + 10)
  1261.  
  1262. R05 = T_DATAMATRIX(ODP, 55 + 15 + 10, L - 25 + 3 + 1.5 + 0.5, "O")
  1263.  
  1264.  
  1265. Case 1, 3
  1266.  
  1267. R04 = T_RECT1(-3, 22, L - 20 - 27 + 3.5, L - 20)
  1268. R04 = R04 & T_RECT1(3.5, 22, L - 20 - 27, L - 20 - 27 + 10)
  1269.  
  1270. 'R01 = T_CIRC(H - 25, L - 10 - 1.5, 12) & T_CIRC(H - 25, L - 10 + 1.5, 12) & T_CIRC(H - 25, L - 10, 12)
  1271. 'R01 = R01 & T_CIRC(H - 25 - 30, L - 10 - 1.5, 12) & T_CIRC(H - 25 - 30, L - 10 + 1.5, 12) & T_CIRC(H - 25 - 30, L - 10, 12)
  1272. R01 = T_RECT1(H - 19, H - (19 + 22), L - 27 + 6, L - 27 + 6 + 17) & T_RECT1(H - (19 + 22 + 8), H - (19 + 22 + 8 + 22), L - 27 + 6, L - 27 + 6 + 17)
  1273.  
  1274.  
  1275. R02 = T_SLOT(99 - 34, L - 12, 15, 5, 90)
  1276. R02 = R02 & T_SLOT(99, L - 12, 15, 5, 90)
  1277. 'Print #NF, T_SLOT(H - 283 - 34 - 3 * M1, L - 10, 10, 5, 90)   ' se necessario attivare la lavorazione
  1278. 'Print #NF, T_SLOT(H - 283 - 3 * M1, L - 10, 10, 5, 90)        ' se necessario attivare la lavorazione
  1279. R02 = R02 & T_SLOT(H - 283 - 34 - 2 * M1, L - 12, 15, 5, 90)
  1280. R02 = R02 & T_SLOT(H - 283 - 2 * M1, L - 12, 15, 5, 90)
  1281. R02 = R02 & T_SLOT(H - 283 - 34 - M1, L - 12, 15, 5, 90)
  1282. R02 = R02 & T_SLOT(H - 283 - M1, L - 12, 15, 5, 90)
  1283. R02 = R02 & T_SLOT(H - 283, L - 12, 15, 5, 90)
  1284. R02 = R02 & T_SLOT(H - 283 - 34, L - 12, 15, 5, 90)
  1285.  
  1286.  
  1287.  
  1288.  
  1289.  
  1290. If M2 <> 0 Or M3 <> 0 Then
  1291. R03 = T_CIRC(H - 283 - 34 - M2, L - 12, 12)
  1292. R03 = R03 & T_CIRC(H - 283 - 34 - M2 - M3, L - 12, 12)
  1293. R03 = R03 & T_CIRC(H - 283 - M1 - 34 - M2, L - 12, 12)
  1294. R03 = R03 & T_CIRC(H - 283 - M1 - 34 - M2 - M3, L - 12, 12)
  1295. R03 = R03 & T_CIRC(H - 283 - 2 * M1 - 34 - M2, L - 12, 12)
  1296. R03 = R03 & T_CIRC(H - 283 - 2 * M1 - 34 - M2 - M3, L - 12, 12)
  1297. End If
  1298.  
  1299. R05 = T_DATAMATRIX(ODP, H - 55 - 15 - 10 - 45, L - 25 + 3 + 1.5 + 0.5, "O")
  1300.  
  1301. Case Else
  1302. MsgBox "ERRORE VALORE VV " & ACT_MOD, vbCritical
  1303. End Select
  1304.  
  1305. R06 = T_RAD(0, 0, 3) & T_RAD(H, 0, 4) & T_RAD(0, L, 2) & T_RAD(H, L, 1)
  1306.  
  1307.  
  1308. fn = R01 & R02 & R03 & R04 & R05 & R06
  1309.  
  1310. P1 = 250
  1311. P2 = H - 400
  1312. MVAL = 500
  1313. STRINGA = R000(NHD, NND, SPS, H, L, P1, P2, MVAL) & fn
  1314.  
  1315. Call SAVE_SUB(NND, STRINGA)
  1316.  
  1317. POSINTAB = def_posintab(NND)
  1318. Call CUT_END_S(H, L, "0", POSINTAB)
  1319. Call FVTPT(3, NND, "")
  1320. Call CUT_END_S(H, L, "B", POSINTAB)
  1321. Call FVTPT(3, NND, "B")
  1322. Call CUT_END_S(H, L, "C", POSINTAB)
  1323. Call FVTPT(3, NND, "C")
  1324.  
  1325.  
  1326. End Sub
  1327.  
  1328.  
  1329. Sub S_1010304C(ByVal NND As Integer)
  1330. ACT_MOD = "1010304"
  1331.  
  1332.  
  1333.  
  1334. L = INPUT_NUM(NND, "L", L, ACT_MOD)
  1335. H = INPUT_NUM(NND, "H", H, ACT_MOD)
  1336. SPS = INPUT_NUM(NND, "SPS", SPS, ACT_MOD) / 10
  1337. 'M1 = INPUT_NUM(NND, "M1", M1, ACT_MOD)
  1338. M2 = INPUT_NUM(NND, "M2", M2, ACT_MOD)
  1339. M3 = INPUT_NUM(NND, "M3", M3, ACT_MOD)
  1340. CD_SP = INPUT_NUM(NND, "SPC.", CD_SP, ACT_MOD)
  1341. VV = INPUT_STR(NND, "VER.", VV, ACT_MOD)
  1342. BNB = INPUT_NUM(NND, "BNB", BNB, ACT_MOD)
  1343. ODP = INFO_DAT(NND, 0, 5)
  1344.  
  1345. VV = Replace(VV, "P", "")
  1346.  
  1347.  
  1348. If VV > 4 Then MsgBox "ERRORE VERSIONE SU " & ACT_MOD, vbCritical
  1349.  
  1350.  
  1351. SCS = 6
  1352.  
  1353.  
  1354. LH = H - 22
  1355.  
  1356. If CD_SP <> "0" Then
  1357. QCSP = DEFINE_QCSP(COD_SPC, NND, H)
  1358. If QCSP <> 0 Then QCSP = H - QCSP
  1359. If QCSP = 0 Then QCSP = InputBox("INSERIRE QUOTA CENTRO SPACCO DA PAVIMENTO" & Chr(13) & "**USARE LA , E NON IL .**", "COMMESSA " & INFO_DAT(NND, 0, 2))
  1360. Else
  1361. QCSP = 0
  1362. End If
  1363. QCSP = Int(QCSP)
  1364.  
  1365.  
  1366. Select Case LH
  1367.  
  1368. Case 1900
  1369. If QCSP < 1030 Then M1 = QCSP - 530
  1370. If QCSP > 1080 Then M1 = QCSP / 2 - 40
  1371. If (QCSP >= 1030 And QCSP <= 1080) Then M1 = 500
  1372. If QCSP = 0 Then M1 = 500
  1373.  
  1374. Case 1950
  1375. If QCSP < 1055 Then M1 = QCSP - 530
  1376. If QCSP > 1130 Then M1 = QCSP / 2 - 40
  1377. If (QCSP >= 1055 And QCSP <= 1130) Then M1 = 525
  1378. If QCSP = 0 Then M1 = 525
  1379.  
  1380. Case 2000
  1381. If QCSP < 1080 Then M1 = QCSP - 530
  1382. If QCSP > 1180 Then M1 = QCSP / 2 - 40
  1383. If (QCSP >= 1080 And QCSP <= 1180) Then M1 = 550
  1384. If QCSP = 0 Then M1 = 550
  1385.  
  1386. Case 2050
  1387. If QCSP < 1105 Then M1 = QCSP - 530
  1388. If QCSP > 1230 Then M1 = QCSP / 2 - 40
  1389. If (QCSP >= 1105 And QCSP <= 1230) Then M1 = 575
  1390. If QCSP = 0 Then M1 = 575
  1391.  
  1392. Case 2100
  1393. If QCSP < 1130 Then M1 = QCSP - 530
  1394. If QCSP > 1280 Then M1 = QCSP / 2 - 40
  1395. If (QCSP >= 1130 And QCSP <= 1280) Then M1 = 600
  1396. If QCSP = 0 Then M1 = 600
  1397.  
  1398. Case Else
  1399. MsgBox "ERRORE VALORE LH " & ACT_MOD, vbCritical
  1400. End Select
  1401.  
  1402.  
  1403.  
  1404. If CD_SP = "W50522" Or CD_SP = "W50523" Or CD_SP = "W50524" Then MsgBox ("SPACCHI ORONA, CONTROLLARE FORATURA SU LATO BATTUTA " & ACT_MOD)
  1405.  
  1406.  
  1407. Select Case VV
  1408. Case 2, 4
  1409.  
  1410. ''R01 = T_CIRC(25, L - 10 - 1.5, 12) & T_CIRC(25, L - 10 + 1.5, 12) & T_CIRC(25, L - 10, 12)  'T_RECT2(25, L - 10, 12, 15)
  1411. ''R01 = R01 & T_CIRC(25 + 30, L - 10 - 1.5, 12) & T_CIRC(25 + 30, L - 10 + 1.5, 12) & T_CIRC(25 + 30, L - 10, 12) 'T_RECT2(25 + 30, L - 10, 12, 15)
  1412. R01 = T_RECT1(19, 19 + 22, L - 21, L - 4) & T_RECT1(19 + 22 + 8, 19 + 22 + 8 + 22, L - 21, L - 4)
  1413.  
  1414.  
  1415. R01 = R01 & T_RECT1(H - 22, H + 0.6, L - 43.3, L - 10)
  1416. R01 = R01 & T_RECT1(H - 22, H - 3.5, L - 47.3, L - 47.3 + 10)
  1417.  
  1418. R01 = R01 & T_SLOT(283, L - 12, 15, 5, 90)
  1419. R01 = R01 & T_SLOT(283 + 34, L - 12, 15, 5, 90)
  1420. R01 = R01 & T_SLOT(283 + M1, L - 12, 15, 5, 90)
  1421. R01 = R01 & T_SLOT(283 + 34 + M1, L - 12, 15, 5, 90)
  1422. R01 = R01 & T_SLOT(283 + (2 * M1), L - 12, 15, 5, 90)
  1423. R01 = R01 & T_SLOT(283 + 34 + (2 * M1), L - 12, 15, 5, 90)
  1424. 'Print #NF, T_SLOT(283 + (3 * M1), L - 10, 10, 5, 90)        ' se necessario attivare la lavorazione
  1425. 'Print #NF, T_SLOT(283 + 34 + (3 * M1), L - 10, 10, 5, 90)   ' se necessario attivare la lavorazione
  1426. R01 = R01 & T_SLOT(H - 99, L - 12, 15, 5, 90)
  1427. R01 = R01 & T_SLOT(H - 99 + 34, L - 12, 15, 5, 90)
  1428.  
  1429.  
  1430. If M2 <> 0 Or M3 <> 0 Then
  1431. R02 = T_CIRC(283 + 34 + M2, L - 12, 12)
  1432. R02 = R02 & T_CIRC(283 + 34 + M2 + M3, L - 12, 12)
  1433. R02 = R02 & T_CIRC(283 + M1 + 34 + M2, L - 12, 12)
  1434. R02 = R02 & T_CIRC(283 + M1 + 34 + M2 + M3, L - 12, 12)
  1435. R02 = R02 & T_CIRC(283 + 2 * M1 + 34 + M2, L - 12, 12)
  1436. R02 = R02 & T_CIRC(283 + 2 * M1 + 34 + M2 + M3, L - 12, 12)
  1437. Else
  1438. R02 = ""
  1439. End If
  1440.  
  1441.  
  1442. R05 = T_DATAMATRIX(ODP, 55 + 15 + 10, L - 25 + 3 + 2, "O")
  1443.  
  1444.  
  1445. Case 1, 3
  1446.  
  1447.  
  1448. R01 = T_RECT1(H - 19, H - (19 + 22), L - 21, L - 4) & T_RECT1(H - (19 + 22 + 8), H - (19 + 22 + 8 + 22), L - 21, L - 4)
  1449.  
  1450. R01 = R01 & T_RECT1(-0.6, 22, L - 43.3, L - 10)
  1451. R01 = R01 & T_RECT1(3.5, 22, L - 47.3, L - 47.3 + 10)
  1452.  
  1453. 'R01 = R01 & T_CIRC(H - 25, L - 10 - 1.5, 12) & T_CIRC(H - 25, L - 10 + 1.5, 12) & T_CIRC(H - 25, L - 10, 12)
  1454. 'R01 = R01 & T_CIRC(H - 25 - 30, L - 10 - 1.5, 12) & T_CIRC(H - 25 - 30, L - 10 + 1.5, 12) & T_CIRC(H - 25 - 30, L - 10, 12)
  1455.  
  1456. R01 = R01 & T_SLOT(99 - 34, L - 12, 15, 5, 90)
  1457. R01 = R01 & T_SLOT(99, L - 12, 15, 5, 90)
  1458. 'Print #NF, T_SLOT(H - 283 - 34 - 3 * M1, L - 10, 10, 5, 90)   ' se necessario attivare la lavorazione
  1459. 'Print #NF, T_SLOT(H - 283 - 3 * M1, L - 10, 10, 5, 90)        ' se necessario attivare la lavorazione
  1460. R01 = R01 & T_SLOT(H - 283 - 34 - 2 * M1, L - 12, 15, 5, 90)
  1461. R01 = R01 & T_SLOT(H - 283 - 2 * M1, L - 12, 15, 5, 90)
  1462. R01 = R01 & T_SLOT(H - 283 - 34 - M1, L - 12, 15, 5, 90)
  1463. R01 = R01 & T_SLOT(H - 283 - M1, L - 12, 15, 5, 90)
  1464. R01 = R01 & T_SLOT(H - 283, L - 12, 15, 5, 90)
  1465. R01 = R01 & T_SLOT(H - 283 - 34, L - 12, 15, 5, 90)
  1466.  
  1467.  
  1468. If M2 <> 0 Or M3 <> 0 Then
  1469. R02 = T_CIRC(H - 283 - 34 - M2, L - 12, 12)
  1470. R02 = R02 & T_CIRC(H - 283 - 34 - M2 - M3, L - 12, 12)
  1471. R02 = R02 & T_CIRC(H - 283 - M1 - 34 - M2, L - 12, 12)
  1472. R02 = R02 & T_CIRC(H - 283 - M1 - 34 - M2 - M3, L - 12, 12)
  1473. R02 = R02 & T_CIRC(H - 283 - 2 * M1 - 34 - M2, L - 12, 12)
  1474. R02 = R02 & T_CIRC(H - 283 - 2 * M1 - 34 - M2 - M3, L - 12, 12)
  1475. Else
  1476. R02 = ""
  1477. End If
  1478.  
  1479.  
  1480. R05 = T_DATAMATRIX(ODP, H - 55 - 15 - 45 - 10, L - 25 + 3 + 2, "O")
  1481.  
  1482. Case Else
  1483. MsgBox "ERRORE VALORE VV " & ACT_MOD, vbCritical
  1484. End Select
  1485.  
  1486.  
  1487. R06 = T_RAD(0, 0, 3) & T_RAD(0, L, 2) & T_RAD(H, 0, 4) & T_RAD(H, L, 1)
  1488.  
  1489. fn = R01 & R02 & R05 & R06
  1490. P1 = 250
  1491. P2 = H - 400
  1492. MVAL = 500
  1493. STRINGA = R000(NHD, NND, SPS, H, L, P1, P2, MVAL) & fn
  1494.  
  1495. Call SAVE_SUB(NND, STRINGA)
  1496.  
  1497. POSINTAB = def_posintab(NND)
  1498. Call CUT_END_S(H, L, "0", POSINTAB)
  1499. Call FVTPT(3, NND, "")
  1500. Call CUT_END_S(H, L, "B", POSINTAB)
  1501. Call FVTPT(3, NND, "B")
  1502. Call CUT_END_S(H, L, "C", POSINTAB)
  1503. Call FVTPT(3, NND, "C")
  1504.  
  1505. End Sub
  1506.  
  1507. Sub S_1020668B(ByVal NND As Integer)
  1508. ACT_MOD = "1020668"
  1509. CLAMP = 0
  1510.  
  1511.  
  1512. L = INPUT_NUM(NND, "L", L, ACT_MOD)
  1513. H = INPUT_NUM(NND, "H", H, ACT_MOD)
  1514. SPS = INPUT_NUM(NND, "SPS", SPS, ACT_MOD) / 10
  1515. M1 = INPUT_NUM(NND, "M1", M1, ACT_MOD)
  1516. M2 = INPUT_NUM(NND, "M2", M2, ACT_MOD)
  1517. M3 = INPUT_NUM(NND, "M3", M3, ACT_MOD)
  1518. M4 = INPUT_NUM(NND, "M4", M4, ACT_MOD)
  1519. M5 = INPUT_NUM(NND, "M5", M5, ACT_MOD)
  1520. M6 = INPUT_NUM(NND, "M6", M6, ACT_MOD)
  1521. M7 = INPUT_NUM(NND, "M7", M7, ACT_MOD)
  1522. M8 = INPUT_NUM(NND, "M8", M8, ACT_MOD)
  1523. M9 = INPUT_NUM(NND, "M9", M9, ACT_MOD)
  1524. M10 = INPUT_NUM(NND, "M10", M10, ACT_MOD)
  1525. M11 = INPUT_NUM(NND, "M11", M11, ACT_MOD)
  1526. M12 = INPUT_NUM(NND, "M12", M12, ACT_MOD)
  1527. M13 = INPUT_NUM(NND, "M13", M13, ACT_MOD)
  1528. M14 = INPUT_NUM(NND, "M14", M14, ACT_MOD)
  1529. M15 = INPUT_NUM(NND, "M15", M15, ACT_MOD)
  1530.  
  1531. DF = INPUT_NUM(NND, "DF", DF, ACT_MOD)
  1532. sf = INPUT_NUM(NND, "SF", sf, ACT_MOD)
  1533. SB = INPUT_NUM(NND, "SB", SB, ACT_MOD)
  1534. LH = INPUT_NUM(NND, "LH", LH, ACT_MOD)
  1535. CD_SP = INPUT_NUM(NND, "SPC", CD_SP, ACT_MOD)
  1536. VV = INPUT_STR(NND, "VER", VV, ACT_MOD)
  1537. BNB = INPUT_NUM(NND, "BNB", BNB, ACT_MOD)
  1538. ODP = INFO_DAT(NND, 0, 5)
  1539.  
  1540. If Val(LH) = 0 Then
  1541. SP = M1 + 50
  1542. LH = H - SP
  1543. End If
  1544.  
  1545.  
  1546.  
  1547. VV = Replace(VV, "H", "")
  1548. VV = Val(VV)
  1549. If VV > 8 Then MsgBox "ERRORE VERSIONE SU " & ACT_MOD, vbCritical
  1550.  
  1551.  
  1552. SCS = 6
  1553.  
  1554.  
  1555. sf = 1 * sf '+ 1 * SB
  1556. If sf = 0 Then
  1557. sf = 1 * SB
  1558. MsgBox "ERRORE DATI SB-SF IN " & ACT_MOD
  1559. End If
  1560.  
  1561.  
  1562. Select Case VV
  1563. Case 2, 4, 6, 8
  1564.  
  1565.  
  1566. '**************************************SPACCO
  1567. If CD_SP <> "" And CD_SP <> "0" Then
  1568. R01 = SPC_PULS(NND, CD_SP, 25 + DF - 4.8, H, L, 2, sf, 0)
  1569.  
  1570. If DF >= 40 Then M5 = DF - 25 Else M5 = 0
  1571.  
  1572.  
  1573. If CD_SP = "50522" Or CD_SP = "50522" Or CD_SP = "50522" Then
  1574. R02 = T_CIRC(H - M14, L - 5.2, 5.5) & T_CIRC(H - M14 - 375.5, L - 5.2, 5.5)
  1575. R02 = R02 & T_CIRC(H - M15, L - 5.2, 5.5) & T_CIRC(H - M15 - 275.5, L - 5.2, 5.5)
  1576. R02 = R02 & T_SLOT(H - M14, 24.1, 8, 5, 90) & T_SLOT(H - M14, 24.1 + M5, 8, 5, 90)
  1577. R02 = R02 & T_SLOT(H - M14 - 375.5, 24.1, 8, 5, 90) & T_SLOT(H - M14 - 375.5, 24.1 + M5, 8, 5, 90)
  1578. R02 = R02 & T_SLOT(H - M15, 24.1, 8, 5, 90) & T_SLOT(H - M15, 24.1 + M5, 8, 5, 90)
  1579. R02 = R02 & T_SLOT(H - M15 - 275.5, 24.1, 8, 5, 90) & T_SLOT(H - M15 - 275.5, 24.1 + M5, 8, 5, 90)
  1580.  
  1581. Else
  1582. R02 = T_CIRC(QCSP + 187.75, L - 5.2, 5.5)
  1583. R02 = R02 & T_CIRC(QCSP - 187.75, L - 5.2, 5.5)
  1584. R02 = R02 & T_SLOT(QCSP + 187.75, 24.1, 8, 5, 90)
  1585. R02 = R02 & T_SLOT(QCSP + 187.75, 24.1 + M5, 8, 5, 90)
  1586. R02 = R02 & T_SLOT(QCSP - 187.75, 24.1, 8, 5, 90)
  1587. R02 = R02 & T_SLOT(QCSP - 187.75, 24.1 + M5, 8, 5, 90)
  1588. End If
  1589.  
  1590.  
  1591.  
  1592. If M3 = 0 Then
  1593.  
  1594. MsgBox "M3=0"
  1595. Select Case LH
  1596.  
  1597. Case 1900
  1598. If H - QCSP < 1030 Then M3 = H - QCSP - 530
  1599. If H - QCSP > 1080 Then M3 = (H - QCSP) / 2 - 40
  1600. If (H - QCSP >= 1030 And H - QCSP <= 1080) Then M3 = 500
  1601.  
  1602. Case 1950
  1603. If H - QCSP < 1055 Then M3 = H - QCSP - 530
  1604. If H - QCSP > 1130 Then M3 = (H - QCSP) / 2 - 40
  1605. If (H - QCSP >= 1055 And H - QCSP <= 1130) Then M3 = 525
  1606.  
  1607. Case 2000
  1608. If H - QCSP < 1080 Then M3 = H - QCSP - 530
  1609. If H - QCSP > 1180 Then M3 = (H - QCSP) / 2 - 40
  1610. If (H - QCSP >= 1080 And H - QCSP <= 1180) Then M3 = 550
  1611.  
  1612. Case 2050
  1613. If H - QCSP < 1105 Then M3 = H - QCSP - 530
  1614. If H - QCSP > 1230 Then M3 = (H - QCSP) / 2 - 40
  1615. If (H - QCSP >= 1105 And H - QCSP <= 1230) Then M3 = 575
  1616.  
  1617. Case 2100
  1618. If H - QCSP < 1130 Then M3 = H - QCSP - 530
  1619. If H - QCSP > 1280 Then M3 = (H - QCSP) / 2 - 40
  1620. If (H - QCSP >= 1130 And H - QCSP <= 1280) Then M3 = 600
  1621.  
  1622. Case Else
  1623. MsgBox "ERRORE VALORE LH " & ACT_MOD, vbCritical
  1624. End Select
  1625. End If
  1626.  
  1627. Else
  1628. R01 = ""
  1629. R02 = ""
  1630. End If
  1631. '***********************************************
  1632.  
  1633. R03 = T_RECT1(-SCS, M2, L - 26.6, L + SCS)
  1634. R03 = R03 & T_RECT1(-SCS, M2, -SCS, 16.6)
  1635. R03 = R03 & T_RECT1(H - 70, H + SCS, -SCS, 16.6)
  1636.  
  1637. R03 = R03 & T_RECT1(H - 345, H - 290, 12.5, 17.5)
  1638. R03 = R03 & T_RECT1(H - (345 + M3), H - (290 + M3), 12.5, 17.5)
  1639.  
  1640. If CD_SP = "50522" Or CD_SP = "50522" Or CD_SP = "50522" Then
  1641. R03 = R03 & T_RECT1(H - (345 + M3 + M13), H - (290 + M3 + M13), 12.5, 17.5)
  1642. Else
  1643. R03 = R03 & T_RECT1(H - (345 + 2 * M3), H - (290 + 2 * M3), 12.5, 17.5)
  1644. End If
  1645.  
  1646. R03 = R03 & T_RECT1(M2 + 20, M2 + 75, 12.5, 17.5)
  1647.  
  1648. R03 = R03 & T_SLOT(H - 25, DF - 18 + 15 - 2.4, 8, 5, 90)
  1649. R03 = R03 & T_SLOT(H - 55, DF - 18 + 15 - 2.4, 8, 5, 90)
  1650.  
  1651. R04 = T_CIRC(30, DF / 2 + 15 - 2.4, 7.2)
  1652. If M8 > 0 Then R05 = T_CIRC(30 + M8, DF / 2 + 15 - 2.4, 7.2) Else R05 = ""
  1653. R06 = T_CIRC(30 + M1, DF / 2 + 15 - 2.4, 7.2)
  1654. R06 = R06 & T_CIRC(30 + M1 - M7, DF / 2 + 15 - 2.4, 7.2)
  1655. R06 = R06 & T_CIRC(30, L - (DF / 2 + 25 - 2.4), 7.2)
  1656. If M8 > 0 Then R07 = T_CIRC(30 + M8, L - (DF / 2 + 25 - 2.4), 7.2) Else R07 = ""
  1657. R08 = T_CIRC(30 + M1, L - (DF / 2 + 25 - 2.4), 7.2)
  1658. R08 = R08 & T_CIRC(30 + M1 - M7, L - (DF / 2 + 25 - 2.4), 7.2)
  1659. If M6 > 0 Then
  1660. R09 = T_CIRC(M6, L - (DF - 19.2 + 25 - 2.4), 15)
  1661. R09 = R09 & T_CIRC(M6 + 140, L - (DF - 19.2 + 25 - 2.4), 15)
  1662. Else
  1663. R09 = ""
  1664. End If
  1665.  
  1666. R10 = T_SLOT(H - 25, L - 9.5, 8, 5, 90)
  1667. R10 = R10 & T_SLOT(H - 55, L - 9.5, 8, 5, 90)
  1668. R10 = R10 & T_CIRC(H - 283, L - 10, 8.5)
  1669. R10 = R10 & T_CIRC(H - (283 + 34), L - 10, 8.5)
  1670. R10 = R10 & T_CIRC(H - (283 + M3), L - 10, 8.5)
  1671. R10 = R10 & T_CIRC(H - (283 + 34 + M3), L - 10, 8.5)
  1672.  
  1673. If CD_SP = "50522" Or CD_SP = "50522" Or CD_SP = "50522" Then
  1674. R10 = R10 & T_CIRC(H - (283 + M3 + M13), L - 10, 8.5)
  1675. R10 = R10 & T_CIRC(H - (283 + 34 + M3 + M13), L - 10, 8.5)
  1676. Else
  1677. R10 = R10 & T_CIRC(H - (283 + 2 * M3), L - 10, 8.5)
  1678. R10 = R10 & T_CIRC(H - (283 + 34 + 2 * M3), L - 10, 8.5)
  1679. End If
  1680.  
  1681. R10 = R10 & T_CIRC(M2 + 82, L - 10, 8.5)
  1682. R10 = R10 & T_CIRC(M2 + 82 - 34, L - 10, 8.5)
  1683.  
  1684. R11 = T_DATAMATRIX(ODP, H - 100 - 40, 15 + 10, "O")
  1685.  
  1686. R12 = ""
  1687. If M10 > 0 Then
  1688. R12 = T_HEX(H - M10, 41.1, 11) & T_HEX(H - M10 - 859, 41.1, 11) & T_HEX(H - M10 - 859 - 398, 41.1, 11)
  1689. End If
  1690. If M11 > 0 Then
  1691. R12 = R12 & T_HEX(H - M11, 41.1, 11) & T_HEX(H - M11 - 1257, 41.1, 11)
  1692. End If
  1693. If M12 > 0 Then
  1694. R12 = R12 & T_HEX(H - M12, 41.1, 11)
  1695. End If
  1696.  
  1697.  
  1698.  
  1699. R13 = T_RAD(0, 15 + 4 - 2.4, 3)
  1700. R13 = R13 & T_RAD(M2, 0, 3)
  1701. R13 = R13 & T_RAD(0, L - (25 + 4 - 2.4), 2)
  1702. R13 = R13 & T_RAD(M2, L, 2)
  1703. R13 = R13 & T_RAD(H - 70, 0, 4)
  1704. R13 = R13 & T_RAD(H, 15 + 4 - 2.4, 4)
  1705. R13 = R13 & T_RAD(H, L, 1)
  1706.  
  1707.  
  1708.  
  1709.  
  1710. Case 1, 3, 5, 7
  1711.  
  1712. '***************************************SPACCO
  1713. If CD_SP <> "" And CD_SP <> "0" Then
  1714. R01 = SPC_PULS(NND, CD_SP, 25 + DF - 4.8, H, L, 1, sf, 0)
  1715.  
  1716.  
  1717. If DF >= 40 Then M5 = DF - 25 Else M5 = 0
  1718.  
  1719.  
  1720. If CD_SP = "50522" Or CD_SP = "50522" Or CD_SP = "50522" Then
  1721. R02 = T_CIRC(H - M14, 5.2, 5.5) & T_CIRC(H - M14 - 375.5, 5.2, 5.5)
  1722. R02 = R02 & T_CIRC(H - M15, 5.2, 5.5) & T_CIRC(H - M15 - 275.5, 5.2, 5.5)
  1723. R02 = R02 & T_SLOT(H - M14, L - 24.1, 8, 5, 90) & T_SLOT(H - M14, L - 24.1 - M5, 8, 5, 90)
  1724. R02 = R02 & T_SLOT(H - M14 - 375.5, L - 24.1, 8, 5, 90) & T_SLOT(H - M14 - 375.5, L - 24.1 - M5, 8, 5, 90)
  1725. R02 = R02 & T_SLOT(H - M15, L - 24.1, 8, 5, 90) & T_SLOT(H - M15, L - 24.1 - M5, 8, 5, 90)
  1726. R02 = R02 & T_SLOT(H - M15 - 275.5, L - 24.1, 8, 5, 90) & T_SLOT(H - M15 - 275.5, L - 24.1 - M5, 8, 5, 90)
  1727. Else
  1728. R02 = T_CIRC(QCSP + 187.75, 5.2, 5.5)
  1729. R02 = R02 & T_CIRC(QCSP - 187.75, 5.2, 5.5)
  1730. R02 = R02 & T_SLOT(QCSP + 187.75, L - 24.1, 8, 5, 90)
  1731. R02 = R02 & T_SLOT(QCSP + 187.75, L - 24.1 - M5, 8, 5, 90)
  1732. R02 = R02 & T_SLOT(QCSP - 187.75, L - 24.1, 8, 5, 90)
  1733. R02 = R02 & T_SLOT(QCSP - 187.75, L - 24.1 - M5, 8, 5, 90)
  1734. End If
  1735.  
  1736.  
  1737. If M3 = 0 Then
  1738. Select Case LH
  1739.  
  1740. Case 1900
  1741. If H - QCSP < 1030 Then M3 = H - QCSP - 530
  1742. If H - QCSP > 1080 Then M3 = (H - QCSP) / 2 - 40
  1743. If (H - QCSP >= 1030 And H - QCSP <= 1080) Then M3 = 500
  1744.  
  1745. Case 1950
  1746. If H - QCSP < 1055 Then M3 = H - QCSP - 530
  1747. If H - QCSP > 1130 Then M3 = (H - QCSP) / 2 - 40
  1748. If (H - QCSP >= 1055 And H - QCSP <= 1130) Then M3 = 525
  1749.  
  1750. Case 2000
  1751. If H - QCSP < 1080 Then M3 = H - QCSP - 530
  1752. If H - QCSP > 1180 Then M3 = (H - QCSP) / 2 - 40
  1753. If (H - QCSP >= 1080 And H - QCSP <= 1180) Then M3 = 550
  1754.  
  1755. Case 2050
  1756. If H - QCSP < 1105 Then M3 = H - QCSP - 530
  1757. If H - QCSP > 1230 Then M3 = (H - QCSP) / 2 - 40
  1758. If (H - QCSP >= 1105 And H - QCSP <= 1230) Then M3 = 575
  1759.  
  1760. Case 2100
  1761. If H - QCSP < 1130 Then M3 = H - QCSP - 530
  1762. If H - QCSP > 1280 Then M3 = (H - QCSP) / 2 - 40
  1763. If (H - QCSP >= 1130 And H - QCSP <= 1280) Then M3 = 600
  1764.  
  1765. Case Else
  1766. MsgBox "ERRORE VALORE LH " & ACT_MOD, vbCritical
  1767. End Select
  1768. End If
  1769.  
  1770. Else
  1771. R01 = ""
  1772. R02 = ""
  1773. End If
  1774. '***********************************************
  1775.  
  1776. R03 = T_RECT1(-SCS, M2, -SCS, 26.6)
  1777. R03 = R03 & T_RECT1(-SCS, M2, L - 16.6, L + SCS)
  1778. R03 = R03 & T_RECT1(H - 70, H + SCS, L - 16.6, L + SCS)
  1779.  
  1780. R03 = R03 & T_RECT1(H - 345, H - 290, L - 17.5, L - 12.5)
  1781. R03 = R03 & T_RECT1(H - (345 + M3), H - (290 + M3), L - 17.5, L - 12.5)
  1782.  
  1783. If CD_SP = "50522" Or CD_SP = "50522" Or CD_SP = "50522" Then
  1784. R03 = R03 & T_RECT1(H - (345 + M3 + M13), H - (290 + M3 + M13), L - 17.5, L - 12.5)
  1785. Else
  1786. R03 = R03 & T_RECT1(H - (345 + M3 * 2), H - (290 + M3 * 2), L - 17.5, L - 12.5)
  1787. End If
  1788.  
  1789. R03 = R03 & T_RECT1(M2 + 20, M2 + 75, L - 17.5, L - 12.5)
  1790.  
  1791. R03 = R03 & T_SLOT(H - 25, L - (DF - 18 + 15 - 2.4), 8, 5, 90)
  1792. R03 = R03 & T_SLOT(H - 55, L - (DF - 18 + 15 - 2.4), 8, 5, 90)
  1793.  
  1794. R04 = T_CIRC(30, L - (DF / 2 + 15 - 2.4), 7.2)
  1795. If M8 > 0 Then R05 = T_CIRC(30 + M8, L - (DF / 2 + 15 - 2.4), 7.2) Else R05 = ""
  1796. R06 = T_CIRC(30 + M1, L - (DF / 2 + 15 - 2.4), 7.2)
  1797. R06 = R06 & T_CIRC(30 + M1 - M7, L - (DF / 2 + 15 - 2.4), 7.2)
  1798. R06 = R06 & T_CIRC(30, DF / 2 + 25 - 2.4, 7.2)
  1799. If M8 > 0 Then R07 = T_CIRC(30 + M8, DF / 2 + 25 - 2.4, 7.2) Else R07 = ""
  1800. R08 = T_CIRC(30 + M1, DF / 2 + 25 - 2.4, 7.2)
  1801. R08 = R08 & T_CIRC(30 + M1 - M7, DF / 2 + 25 - 2.4, 7.2)
  1802. If M6 > 0 Then
  1803. R09 = T_CIRC(M6 + 140, DF - 19.2 + 25 - 2.4, 15)
  1804. R09 = R09 & T_CIRC(M6, DF - 19.2 + 25 - 2.4, 15)
  1805. Else
  1806. R09 = ""
  1807. End If
  1808.  
  1809. R10 = T_SLOT(H - 25, 9.5, 8, 5, 90)
  1810. R10 = R10 & T_SLOT(H - 55, 9.5, 8, 5, 90)
  1811. R10 = R10 & T_CIRC(H - 283, 10, 8.5)
  1812. R10 = R10 & T_CIRC(H - (283 + 34), 10, 8.5)
  1813. R10 = R10 & T_CIRC(H - (283 + M3), 10, 8.5)
  1814. R10 = R10 & T_CIRC(H - (283 + 34 + M3), 10, 8.5)
  1815. If CD_SP = "50522" Or CD_SP = "50522" Or CD_SP = "50522" Then
  1816. R10 = R10 & T_CIRC(H - (283 + M13 + M3), 10, 8.5)
  1817. R10 = R10 & T_CIRC(H - (283 + 34 + M13 + M3), 10, 8.5)
  1818. Else
  1819. R10 = R10 & T_CIRC(H - (283 + 2 * M3), 10, 8.5)
  1820. R10 = R10 & T_CIRC(H - (283 + 34 + 2 * M3), 10, 8.5)
  1821. End If
  1822. R10 = R10 & T_CIRC(M2 + 82, 10, 8.5)
  1823. R10 = R10 & T_CIRC(M2 + 82 - 34, 10, 8.5)
  1824.  
  1825. R11 = T_DATAMATRIX(ODP, H - 100 - 40, L - 15 - 10 - 20, "O")
  1826.  
  1827. R12 = ""
  1828. If M10 > 0 Then
  1829. R12 = T_HEX(H - M10, L - 41.1, 11) & T_HEX(H - M10 - 859, L - 41.1, 11) & T_HEX(H - M10 - 859 - 398, L - 41.1, 11)
  1830. End If
  1831. If M11 > 0 Then
  1832. R12 = R12 & T_HEX(H - M11, L - 41.1, 11) & T_HEX(H - M11 - 1257, L - 41.1, 11)
  1833. End If
  1834. If M12 > 0 Then
  1835. R12 = R12 & T_HEX(H - M12, L - 41.1, 11)
  1836. End If
  1837.  
  1838.  
  1839. R13 = T_RAD(0, L - (15 + 4 - 2.4), 2)
  1840. R13 = R13 & T_RAD(M2, L, 2)
  1841. R13 = R13 & T_RAD(0, 25 + 4 - 2.4, 3)
  1842. R13 = R13 & T_RAD(M2, 0, 3)
  1843. R13 = R13 & T_RAD(H - 70, L, 1)
  1844. R13 = R13 & T_RAD(H, L - (15 + 4 - 2.4), 1)
  1845. R13 = R13 & T_RAD(H, 0, 4)
  1846.  
  1847.  
  1848. Case Else
  1849. MsgBox "ERRORE VALORE VV " & ACT_MOD, vbCritical
  1850. End Select
  1851.  
  1852. fn = R01 & R02 & R03 & R04 & R05 & R06 & R07 & R08 & R09 & R10 & R11 & R12 & R13
  1853.  
  1854. P1 = 250
  1855. P2 = H - 400
  1856. MVAL = 500
  1857. STRINGA = R000(NHD, NND, SPS, H, L, P1, P2, MVAL) & fn
  1858.  
  1859. Call SAVE_SUB(NND, STRINGA)
  1860.  
  1861. POSINTAB = def_posintab(NND)
  1862. Call CUT_END_S_PORT(H, L, M2, "0", POSINTAB)
  1863. Call FVTPT(3, NND, "")
  1864. Call CUT_END_S(H, L, "B", POSINTAB)
  1865. Call FVTPT(3, NND, "B")
  1866.  
  1867.  
  1868. End Sub
  1869.  
  1870.  
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement
Public Pastes
Advertisement
We use cookies for various purposes including analytics. By continuing to use Pastebin, you agree to our use of cookies as described in the Cookies Policy.  OK, I Understand
Not a member of Pastebin yet?
Sign Up, it unlocks many cool features!