API tools faq
paste
Advertisement
Dece111

Prd Interna

Dece111
Feb 28th, 2024
103
0
Never
Add comment
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
VisualBasic 23.34 KB | None | 0 0
raw download clone embed print report diff
  1. 'Prd Interna
  2.  
  3. Sub PROG_MAC_S4()
  4.  
  5. VPRSS = 0
  6. str_no_repet = ""
  7.  
  8. For CFL = 1 To NM_DT
  9.  
  10. ACT_MOD = ""
  11. 'PROGRAMMI EMZ
  12. If INFO_DAT(CFL, 0, 6) = "9999999" Then Call S_9999999(CFL)
  13.  
  14. If VAR_ACCORP = True And InStr(1, STR_VR_ACC, INFO_DAT(CFL, 0, 6)) = 0 Then GoTo NO_PROD_INT
  15. If VAR_ACCORP = True And InStr(1, STR_VR_FIBRA, INFO_DAT(CFL, 0, 6)) > 0 Then GoTo NO_PROD_INT
  16.  
  17. '**************************COPRIFESSURA
  18. If INFO_DAT(CFL, 0, 6) & INFO_DAT(CFL, 0, 9) = "1014688A" Then Call S_1014688A(CFL)
  19. If INFO_DAT(CFL, 0, 6) & INFO_DAT(CFL, 0, 9) = "1007069A" Then Call S_1007069A(CFL)
  20. If INFO_DAT(CFL, 0, 6) & INFO_DAT(CFL, 0, 9) = "10288740" Then Call S_10288740(CFL)
  21. If INFO_DAT(CFL, 0, 6) & INFO_DAT(CFL, 0, 9) = "1026845A" Then Call S_1026845A(CFL)
  22.  
  23. If INFO_DAT(CFL, 0, 6) & INFO_DAT(CFL, 0, 9) = "10328000" Then Call S_10328000(CFL)
  24. If INFO_DAT(CFL, 0, 6) & INFO_DAT(CFL, 0, 9) = "10269010" Then Call S_10269010(CFL)
  25. If INFO_DAT(CFL, 0, 6) & INFO_DAT(CFL, 0, 9) = "1026901A" Then Call S_1026901A(CFL)
  26. If INFO_DAT(CFL, 0, 6) & INFO_DAT(CFL, 0, 9) = "10287960" Then Call S_10287960(CFL)
  27.  
  28. '************************************** RINFORZI/COMPONENTI
  29. If INFO_DAT(CFL, 0, 6) & INFO_DAT(CFL, 0, 9) = "10228760" Then Call S_10228760(CFL)
  30. If INFO_DAT(CFL, 0, 6) & INFO_DAT(CFL, 0, 9) = "1006718A" Then Call S_1006718A(CFL)
  31. If INFO_DAT(CFL, 0, 6) & INFO_DAT(CFL, 0, 9) = "1006718B" Then Call S_1006718B(CFL)
  32. If INFO_DAT(CFL, 0, 6) & INFO_DAT(CFL, 0, 9) = "10068200" Then Call S_10068200(CFL)
  33. If INFO_DAT(CFL, 0, 6) & INFO_DAT(CFL, 0, 9) = "1006820A" Then Call S_1006820A(CFL)
  34. If INFO_DAT(CFL, 0, 6) & INFO_DAT(CFL, 0, 9) = "1026716A" Then Call S_1026716A(CFL)
  35. If INFO_DAT(CFL, 0, 6) & INFO_DAT(CFL, 0, 9) = "1026716B" Then Call S_1026716A(CFL)
  36. If INFO_DAT(CFL, 0, 6) & INFO_DAT(CFL, 0, 9) = "1027588A" Then Call S_1027588A(CFL)
  37. If INFO_DAT(CFL, 0, 6) & INFO_DAT(CFL, 0, 9) = "1027588C" Then Call S_1027588C(CFL)
  38. If INFO_DAT(CFL, 0, 6) & INFO_DAT(CFL, 0, 9) = "1026699A" Then Call S_1026699A(CFL)
  39. If INFO_DAT(CFL, 0, 6) & INFO_DAT(CFL, 0, 9) = "10280840" Then Call S_10280840(CFL)
  40. If INFO_DAT(CFL, 0, 6) & INFO_DAT(CFL, 0, 9) = "10277620" Then Call S_10277620(CFL)
  41. If INFO_DAT(CFL, 0, 6) & INFO_DAT(CFL, 0, 9) = "1011069A" Then Call S_1011069A(CFL)
  42. If INFO_DAT(CFL, 0, 6) & INFO_DAT(CFL, 0, 9) = "1020085B" Then Call S_1020085B(CFL)
  43. If INFO_DAT(CFL, 0, 6) & INFO_DAT(CFL, 0, 9) = "1020085C" Then Call S_1020085B(CFL)
  44. If INFO_DAT(CFL, 0, 6) & INFO_DAT(CFL, 0, 9) = "1019999A" Then Call S_1019999A(CFL)
  45. If INFO_DAT(CFL, 0, 6) & INFO_DAT(CFL, 0, 9) = "10067200" Then Call S_10067200(CFL)
  46. If INFO_DAT(CFL, 0, 6) & INFO_DAT(CFL, 0, 9) = "1013300C" Then Call S_1013300C(CFL)
  47. If INFO_DAT(CFL, 0, 6) & INFO_DAT(CFL, 0, 9) = "1017690A" Then Call S_1017690A(CFL)
  48. If INFO_DAT(CFL, 0, 6) & INFO_DAT(CFL, 0, 9) = "1017690B" Then Call S_1017690B(CFL)
  49. If INFO_DAT(CFL, 0, 6) = "3201155358" Then Call S_3201155358(CFL)
  50. If INFO_DAT(CFL, 0, 6) & INFO_DAT(CFL, 0, 9) = "10163900" Then Call S_10163900(CFL)
  51. If INFO_DAT(CFL, 0, 6) & INFO_DAT(CFL, 0, 9) = "1016517A" Then Call S_1016517A(CFL)
  52. If INFO_DAT(CFL, 0, 6) & INFO_DAT(CFL, 0, 9) = "1016517B" Then Call S_1016517B(CFL)
  53. If INFO_DAT(CFL, 0, 6) & INFO_DAT(CFL, 0, 9) = "1016517C" Then Call S_1016517C(CFL)
  54. If INFO_DAT(CFL, 0, 6) & INFO_DAT(CFL, 0, 9) = "1016517D" Then Call S_1016517C(CFL)
  55. If INFO_DAT(CFL, 0, 6) & INFO_DAT(CFL, 0, 9) = "1016517E" Then Call S_1016517E(CFL)
  56. If INFO_DAT(CFL, 0, 6) & INFO_DAT(CFL, 0, 9) = "10174520" Then Call S_10174520(CFL)
  57. If INFO_DAT(CFL, 0, 6) & INFO_DAT(CFL, 0, 9) = "10357360" Then Call S_10357360(CFL)
  58. '**************************************
  59.  
  60.  
  61. '**********************ANTE
  62. NHD = 17
  63. If INFO_DAT(CFL, 0, 6) & INFO_DAT(CFL, 0, 9) = "1006616A" Then Call S_1006616A(CFL)
  64. If INFO_DAT(CFL, 0, 6) & INFO_DAT(CFL, 0, 9) = "1006619A" Then Call S_1006619A(CFL)
  65. If INFO_DAT(CFL, 0, 6) & INFO_DAT(CFL, 0, 9) = "1006629E" Then Call S_1006629E(CFL)
  66. If INFO_DAT(CFL, 0, 6) & INFO_DAT(CFL, 0, 9) = "1006632B" Then Call S_1006632B(CFL)
  67. If INFO_DAT(CFL, 0, 6) & INFO_DAT(CFL, 0, 9) = "1006702A" Then Call S_1006702A(CFL)
  68. If INFO_DAT(CFL, 0, 6) & INFO_DAT(CFL, 0, 9) = "1006704A" Then Call S_1006704A(CFL)
  69. If INFO_DAT(CFL, 0, 6) & INFO_DAT(CFL, 0, 9) = "1006707B" Then Call S_1006707A(CFL)
  70. If INFO_DAT(CFL, 0, 6) & INFO_DAT(CFL, 0, 9) = "1006711A" Then Call S_1006711A(CFL)
  71. If INFO_DAT(CFL, 0, 6) & INFO_DAT(CFL, 0, 9) = "10128290" Then Call S_10128290(CFL)
  72. If INFO_DAT(CFL, 0, 6) & INFO_DAT(CFL, 0, 9) = "10130960" Then Call S_10130960(CFL)
  73. If INFO_DAT(CFL, 0, 6) & INFO_DAT(CFL, 0, 9) = "1015353A" Then Call S_1015353A(CFL)
  74. If INFO_DAT(CFL, 0, 6) & INFO_DAT(CFL, 0, 9) = "1015390A" Then Call S_1015390A(CFL)
  75. If INFO_DAT(CFL, 0, 6) & INFO_DAT(CFL, 0, 9) = "1015448C" Then Call S_1015448C(CFL)
  76. If INFO_DAT(CFL, 0, 6) & INFO_DAT(CFL, 0, 9) = "1015607C" Then Call S_1015607C(CFL)
  77. If INFO_DAT(CFL, 0, 6) & INFO_DAT(CFL, 0, 9) = "1015627A" Then Call S_1015627A(CFL)
  78. If INFO_DAT(CFL, 0, 6) & INFO_DAT(CFL, 0, 9) = "1015591A" Then Call S_1015591A(CFL)
  79. If INFO_DAT(CFL, 0, 6) & INFO_DAT(CFL, 0, 9) = "1017011A" Then Call S_1017011A(CFL)
  80. If INFO_DAT(CFL, 0, 6) & INFO_DAT(CFL, 0, 9) = "1017132A" Then Call S_1017132A(CFL)
  81. If INFO_DAT(CFL, 0, 6) & INFO_DAT(CFL, 0, 9) = "10253920" Then Call S_1025392A(CFL)
  82. If INFO_DAT(CFL, 0, 6) & INFO_DAT(CFL, 0, 9) = "1025682A" Then Call S_1025682A(CFL)
  83. If INFO_DAT(CFL, 0, 6) & INFO_DAT(CFL, 0, 9) = "1025392A" Then Call S_1025392A(CFL)
  84. '**************************
  85.  
  86. '**************************PIASTRONI
  87. NHD = 15 'CAMBIO TESTA PER PIASTRONI E PARAMENTI
  88. If INFO_DAT(CFL, 0, 6) & INFO_DAT(CFL, 0, 9) = "1005784C" Then Call S_1005784C(CFL)
  89. If INFO_DAT(CFL, 0, 6) & INFO_DAT(CFL, 0, 9) = "1005784D" Then Call S_1005784C(CFL)
  90. If INFO_DAT(CFL, 0, 6) & INFO_DAT(CFL, 0, 9) = "1005784E" Then Call S_1005784E(CFL)
  91. If INFO_DAT(CFL, 0, 6) & INFO_DAT(CFL, 0, 9) = "1005785A" Then Call S_1005785A(CFL)
  92. If INFO_DAT(CFL, 0, 6) & INFO_DAT(CFL, 0, 9) = "1005785B" Then Call S_1005785B(CFL)
  93. If INFO_DAT(CFL, 0, 6) & INFO_DAT(CFL, 0, 9) = "1006615C" Then Call S_1006615C(CFL)
  94. If INFO_DAT(CFL, 0, 6) & INFO_DAT(CFL, 0, 9) = "1006615D" Then Call S_1006615E(CFL)
  95. If INFO_DAT(CFL, 0, 6) & INFO_DAT(CFL, 0, 9) = "1006615E" Then Call S_1006615E(CFL)
  96. If INFO_DAT(CFL, 0, 6) & INFO_DAT(CFL, 0, 9) = "1006615F" Then Call S_1006615F(CFL)
  97. If INFO_DAT(CFL, 0, 6) & INFO_DAT(CFL, 0, 9) = "1006615G" Then Call S_1006615G(CFL)
  98. If INFO_DAT(CFL, 0, 6) & INFO_DAT(CFL, 0, 9) = "1006615H" Then Call S_1006615H(CFL)
  99. If INFO_DAT(CFL, 0, 6) & INFO_DAT(CFL, 0, 9) = "1006715D" Then Call S_1006715D(CFL)
  100. If INFO_DAT(CFL, 0, 6) & INFO_DAT(CFL, 0, 9) = "1006715E" Then Call S_1006715E(CFL)
  101. If INFO_DAT(CFL, 0, 6) & INFO_DAT(CFL, 0, 9) = "1006715F" Then Call S_1006715F(CFL)
  102. If INFO_DAT(CFL, 0, 6) & INFO_DAT(CFL, 0, 9) = "0902895D" Then Call S_0902895D(CFL)
  103. If INFO_DAT(CFL, 0, 6) & INFO_DAT(CFL, 0, 9) = "0902895E" Then Call S_0902895E(CFL)
  104. If INFO_DAT(CFL, 0, 6) & INFO_DAT(CFL, 0, 9) = "0902895F" Then Call S_0902895F(CFL)
  105. If INFO_DAT(CFL, 0, 6) & INFO_DAT(CFL, 0, 9) = "0902895G" Then Call S_0902895G(CFL)
  106. If INFO_DAT(CFL, 0, 6) & INFO_DAT(CFL, 0, 9) = "0902895J" Then Call S_0902895J(CFL)
  107. If INFO_DAT(CFL, 0, 6) & INFO_DAT(CFL, 0, 9) = "0902920C" Then Call S_0902920C(CFL)
  108. If INFO_DAT(CFL, 0, 6) & INFO_DAT(CFL, 0, 9) = "0902920D" Then Call S_0902920D(CFL)
  109. If INFO_DAT(CFL, 0, 6) & INFO_DAT(CFL, 0, 9) = "0902920F" Then Call S_0902920F(CFL)
  110. If INFO_DAT(CFL, 0, 6) & INFO_DAT(CFL, 0, 9) = "0902935C" Then Call S_0902935C(CFL)
  111. If INFO_DAT(CFL, 0, 6) & INFO_DAT(CFL, 0, 9) = "0902935D" Then Call S_0902935D(CFL)
  112. '***********************************
  113. '**************************PARAMENTI
  114. If INFO_DAT(CFL, 0, 6) = "1007305" Then Call S_1007305(CFL)
  115. If INFO_DAT(CFL, 0, 6) = "1007303" Then Call S_1007303(CFL)
  116. If INFO_DAT(CFL, 0, 6) = "1007236" Then Call S_1007236(CFL)
  117. If INFO_DAT(CFL, 0, 6) & INFO_DAT(CFL, 0, 9) = "1023836A" Then Call S_1023836A(CFL)
  118. If INFO_DAT(CFL, 0, 6) & INFO_DAT(CFL, 0, 9) = "1023836B" Then Call S_1023836B(CFL)
  119. If INFO_DAT(CFL, 0, 6) & INFO_DAT(CFL, 0, 9) = "1006951B" Then Call S_1006951(CFL)
  120. If INFO_DAT(CFL, 0, 6) & INFO_DAT(CFL, 0, 9) = "1006951C" Then Call S_1006951C(CFL)
  121. '***********************************
  122. '****************************ENTRANCE -->attesa utensile asola
  123. NHD = 16 'CAMBIO TESTA PER ENTRANCE
  124. If INFO_DAT(CFL, 0, 6) & INFO_DAT(CFL, 0, 9) = "1012500B" Then Call S_1012500(CFL)
  125. If INFO_DAT(CFL, 0, 6) & INFO_DAT(CFL, 0, 9) = "1012499B" Then Call S_1012499(CFL) 'OK GALLONI
  126. If INFO_DAT(CFL, 0, 6) & INFO_DAT(CFL, 0, 9) = "1011908B" Then Call S_1011908(CFL)
  127. If INFO_DAT(CFL, 0, 6) & INFO_DAT(CFL, 0, 9) = "1011067E" Then Call S_1011067(CFL) 'OK GALLONI
  128. If INFO_DAT(CFL, 0, 6) & INFO_DAT(CFL, 0, 9) = "1011060C" Then Call S_1011060(CFL) 'OK GALLONI
  129.  
  130. 'If INFO_DAT(CFL, 0, 6) & INFO_DAT(CFL, 0, 9) = "1037319B" Then Call S_1037319B(CFL)
  131. If INFO_DAT(CFL, 0, 6) & INFO_DAT(CFL, 0, 9) = "1037258B" Then Call S_1037258B(CFL)
  132. If INFO_DAT(CFL, 0, 6) & INFO_DAT(CFL, 0, 9) = "1037258C" Then Call S_1037258C(CFL)
  133. If INFO_DAT(CFL, 0, 6) & INFO_DAT(CFL, 0, 9) = "1037258D" Then Call S_1037258C(CFL)
  134. If INFO_DAT(CFL, 0, 6) & INFO_DAT(CFL, 0, 9) = "1037258E" Then Call S_1037258E(CFL)
  135. If INFO_DAT(CFL, 0, 6) & INFO_DAT(CFL, 0, 9) = "1037258F" Then Call S_1037258F(CFL)
  136. If INFO_DAT(CFL, 0, 6) & INFO_DAT(CFL, 0, 9) = "1042991A" Then Call S_1042991A(CFL)
  137. If INFO_DAT(CFL, 0, 6) & INFO_DAT(CFL, 0, 9) = "1042991C" Then Call S_1042991C(CFL)
  138. If INFO_DAT(CFL, 0, 6) & INFO_DAT(CFL, 0, 9) = "1042991C01" Then Call S_1042991C(CFL)
  139. If INFO_DAT(CFL, 0, 6) & INFO_DAT(CFL, 0, 9) = "1042991D" Then Call S_1042991D(CFL)
  140. If INFO_DAT(CFL, 0, 6) & INFO_DAT(CFL, 0, 9) = "1036865A" Then Call S_1036865A(CFL)
  141. If INFO_DAT(CFL, 0, 6) & INFO_DAT(CFL, 0, 9) = "1036865B" Then Call S_1036865B(CFL)
  142. If INFO_DAT(CFL, 0, 6) & INFO_DAT(CFL, 0, 9) = "1036865C" Then Call S_1036865C(CFL)
  143. If INFO_DAT(CFL, 0, 6) & INFO_DAT(CFL, 0, 9) = "10483620" Then Call S_10483620(CFL)
  144. If INFO_DAT(CFL, 0, 6) & INFO_DAT(CFL, 0, 9) = "1048362A" Then Call S_1048362A(CFL)
  145. If INFO_DAT(CFL, 0, 6) & INFO_DAT(CFL, 0, 9) = "10429030" Then Call S_10429030(CFL)
  146. If INFO_DAT(CFL, 0, 6) & INFO_DAT(CFL, 0, 9) = "10429030-MOD" Then Call S_10429030(CFL)
  147. If INFO_DAT(CFL, 0, 6) & INFO_DAT(CFL, 0, 9) = "1042903B" Then Call S_1042903B(CFL)
  148. If INFO_DAT(CFL, 0, 6) & INFO_DAT(CFL, 0, 9) = "1036714A" Then Call S_1036714A(CFL)
  149. If INFO_DAT(CFL, 0, 6) & INFO_DAT(CFL, 0, 9) = "1036714B" Then Call S_1036714A(CFL)
  150. If INFO_DAT(CFL, 0, 6) & INFO_DAT(CFL, 0, 9) = "10428730" Then Call S_10428730(CFL)
  151. If INFO_DAT(CFL, 0, 6) & INFO_DAT(CFL, 0, 9) = "1042873A" Then Call S_1042873A(CFL)
  152. If INFO_DAT(CFL, 0, 6) & INFO_DAT(CFL, 0, 9) = "1042873A02" Then Call S_1042873A(CFL)
  153.  
  154. If INFO_DAT(CFL, 0, 6) & INFO_DAT(CFL, 0, 9) = "1036629A" Then Call S_1036629A(CFL)
  155. If INFO_DAT(CFL, 0, 6) & INFO_DAT(CFL, 0, 9) = "1036629B" Then Call S_1036629A(CFL)
  156. If INFO_DAT(CFL, 0, 6) & INFO_DAT(CFL, 0, 9) = "1036629D" Then Call S_1036629D(CFL)
  157. If INFO_DAT(CFL, 0, 6) & INFO_DAT(CFL, 0, 9) = "1036629E" Then Call S_1036629E(CFL)
  158. If INFO_DAT(CFL, 0, 6) & INFO_DAT(CFL, 0, 9) = "1036629F" Then Call S_1036629F(CFL)
  159. If INFO_DAT(CFL, 0, 6) & INFO_DAT(CFL, 0, 9) = "10414310" Then Call S_10414310(CFL)
  160. If INFO_DAT(CFL, 0, 6) & INFO_DAT(CFL, 0, 9) = "1041431A" Then Call S_1041431A(CFL)
  161. If INFO_DAT(CFL, 0, 6) & INFO_DAT(CFL, 0, 9) = "1041431B" Then Call S_1041431B(CFL)
  162. If INFO_DAT(CFL, 0, 6) & INFO_DAT(CFL, 0, 9) = "1041431C" Then Call S_1041431C(CFL)
  163. If INFO_DAT(CFL, 0, 6) & INFO_DAT(CFL, 0, 9) = "1041431D" Then Call S_1041431D(CFL)
  164. NHD = 14
  165. '************************************
  166.  
  167.  
  168. If INFO_DAT(CFL, 0, 6) & INFO_DAT(CFL, 0, 9) = "10068260" Then Call S_10068260(CFL)
  169. If INFO_DAT(CFL, 0, 6) & INFO_DAT(CFL, 0, 9) = "1006897B" Then Call S_1006897C(CFL)
  170. If INFO_DAT(CFL, 0, 6) & INFO_DAT(CFL, 0, 9) = "1006897C" Then Call S_1006897C(CFL)
  171. If INFO_DAT(CFL, 0, 6) & INFO_DAT(CFL, 0, 9) = "1006897D" Then Call S_1006897D(CFL)
  172. If INFO_DAT(CFL, 0, 6) & INFO_DAT(CFL, 0, 9) = "1006897E" Then Call S_1006897E(CFL)
  173. If INFO_DAT(CFL, 0, 6) & INFO_DAT(CFL, 0, 9) = "1006897H" Then Call S_1006897H(CFL)
  174. If INFO_DAT(CFL, 0, 6) & INFO_DAT(CFL, 0, 9) = "1007098C" Then Call S_1007098C(CFL)
  175. If INFO_DAT(CFL, 0, 6) & INFO_DAT(CFL, 0, 9) = "1007098D" Then Call S_1007098D(CFL)
  176. If INFO_DAT(CFL, 0, 6) & INFO_DAT(CFL, 0, 9) = "1007098E" Then Call S_1007098D(CFL)
  177. If INFO_DAT(CFL, 0, 6) & INFO_DAT(CFL, 0, 9) = "1010304B" Then Call S_1010304B(CFL)
  178. If INFO_DAT(CFL, 0, 6) & INFO_DAT(CFL, 0, 9) = "1010304C" Then Call S_1010304C(CFL)
  179. If INFO_DAT(CFL, 0, 6) & INFO_DAT(CFL, 0, 9) = "10130980" Then Call S_10130980(CFL)
  180. If INFO_DAT(CFL, 0, 6) & INFO_DAT(CFL, 0, 9) = "1014657D" Then Call S_1014657D(CFL)
  181. If INFO_DAT(CFL, 0, 6) & INFO_DAT(CFL, 0, 9) = "1014657E" Then Call S_1014657E(CFL)
  182. If INFO_DAT(CFL, 0, 6) & INFO_DAT(CFL, 0, 9) = "10519690" Then Call S_10519690(CFL)
  183. If INFO_DAT(CFL, 0, 6) & INFO_DAT(CFL, 0, 9) = "10153570" Then Call S_10153570(CFL)
  184. If INFO_DAT(CFL, 0, 6) & INFO_DAT(CFL, 0, 9) = "1015357A" Then Call S_10153570(CFL)
  185. If INFO_DAT(CFL, 0, 6) & INFO_DAT(CFL, 0, 9) = "10155310" Then Call S_10155310(CFL)
  186. If INFO_DAT(CFL, 0, 6) & INFO_DAT(CFL, 0, 9) = "10155340" Then Call S_10155340(CFL)
  187. If INFO_DAT(CFL, 0, 6) & INFO_DAT(CFL, 0, 9) = "1016400A" Then Call S_1016400A(CFL)
  188. 'If INFO_DAT(cfl, 0, 6) & INFO_DAT(cfl, 0, 9) = "1016520A" Then Call S_1016520A(cfl) 'fondello -- fare dxf
  189. If INFO_DAT(CFL, 0, 6) & INFO_DAT(CFL, 0, 9) = "1020374B" Then Call S_1020374B(CFL)
  190. If INFO_DAT(CFL, 0, 6) & INFO_DAT(CFL, 0, 9) = "1020374C" Then Call S_1020374B(CFL)
  191. If INFO_DAT(CFL, 0, 6) & INFO_DAT(CFL, 0, 9) = "1020445A" Then Call S_1020445A(CFL)
  192. If INFO_DAT(CFL, 0, 6) & INFO_DAT(CFL, 0, 9) = "1020445B" Then Call S_1020445B(CFL)
  193. If INFO_DAT(CFL, 0, 6) & INFO_DAT(CFL, 0, 9) = "1020445C" Then Call S_1020445B(CFL)
  194. If INFO_DAT(CFL, 0, 6) & INFO_DAT(CFL, 0, 9) = "10202990" Then Call S_10202990(CFL)
  195. If INFO_DAT(CFL, 0, 6) & INFO_DAT(CFL, 0, 9) = "1020299A" Then Call S_1020299A(CFL)
  196. If INFO_DAT(CFL, 0, 6) & INFO_DAT(CFL, 0, 9) = "1020299B" Then Call S_1020299B(CFL)
  197. If INFO_DAT(CFL, 0, 6) & INFO_DAT(CFL, 0, 9) = "10206680" Then Call S_10206680(CFL)
  198. If INFO_DAT(CFL, 0, 6) & INFO_DAT(CFL, 0, 9) = "1020668B" Then Call S_1020668B(CFL)
  199. If INFO_DAT(CFL, 0, 6) & INFO_DAT(CFL, 0, 9) = "1020668C" Then Call S_1020668B(CFL)
  200. If INFO_DAT(CFL, 0, 6) & INFO_DAT(CFL, 0, 9) = "10206400" Then Call S_10206400(CFL)
  201. If INFO_DAT(CFL, 0, 6) & INFO_DAT(CFL, 0, 9) = "1020640A" Then Call S_10206400(CFL)
  202. If INFO_DAT(CFL, 0, 6) & INFO_DAT(CFL, 0, 9) = "1020237A" Then Call S_10202370(CFL)
  203. If INFO_DAT(CFL, 0, 6) & INFO_DAT(CFL, 0, 9) = "1020092A" Then Call S_1020092A(CFL)
  204. If INFO_DAT(CFL, 0, 6) & INFO_DAT(CFL, 0, 9) = "10229750" Then Call S_10229750(CFL)
  205. If INFO_DAT(CFL, 0, 6) & INFO_DAT(CFL, 0, 9) = "10257410" Then Call S_10257410(CFL)
  206. If INFO_DAT(CFL, 0, 6) & INFO_DAT(CFL, 0, 9) = "10275400" Then Call S_10275400(CFL)
  207. If INFO_DAT(CFL, 0, 6) & INFO_DAT(CFL, 0, 9) = "10339350" Then Call S_10339350(CFL)
  208. If INFO_DAT(CFL, 0, 6) & INFO_DAT(CFL, 0, 9) = "1033935A" Then Call S_1033935A(CFL)
  209. If INFO_DAT(CFL, 0, 6) & INFO_DAT(CFL, 0, 9) = "10339220" Then Call S_10339220(CFL)
  210. If INFO_DAT(CFL, 0, 6) & INFO_DAT(CFL, 0, 9) = "1033922A" Then Call S_1033922A(CFL)
  211. If INFO_DAT(CFL, 0, 6) & INFO_DAT(CFL, 0, 9) = "10269750" Then Call S_10269750(CFL)
  212. If INFO_DAT(CFL, 0, 6) & INFO_DAT(CFL, 0, 9) = "10284540" Then Call S_10284540(CFL)
  213. If INFO_DAT(CFL, 0, 6) & INFO_DAT(CFL, 0, 9) = "10285220" Then Call S_10285220(CFL)
  214. If INFO_DAT(CFL, 0, 6) & INFO_DAT(CFL, 0, 9) = "1028522A" Then Call S_10285220(CFL)
  215. If INFO_DAT(CFL, 0, 6) & INFO_DAT(CFL, 0, 9) = "1026712A" Then Call S_1026712A(CFL)
  216. If INFO_DAT(CFL, 0, 6) & INFO_DAT(CFL, 0, 9) = "1026633A" Then Call S_1026633A(CFL)
  217. If INFO_DAT(CFL, 0, 6) & INFO_DAT(CFL, 0, 9) = "1026633B" Then Call S_1026633A(CFL)
  218.  
  219. If INFO_DAT(CFL, 0, 6) & INFO_DAT(CFL, 0, 9) = "10458640" Then Call S_10458640(CFL)
  220. If INFO_DAT(CFL, 0, 6) & INFO_DAT(CFL, 0, 9) = "1045864A" Then Call S_1045864A(CFL)
  221. If INFO_DAT(CFL, 0, 6) & INFO_DAT(CFL, 0, 9) = "1045864B" Then Call S_1045864A(CFL)
  222.  
  223. 'If INFO_DAT(cfl, 0, 6) = "1007233" Then Call S_1007233(cfl)
  224. 'If INFO_DAT(cfl, 0, 6) = "1007253" Then Call S_1007253(cfl)
  225. 'If INFO_DAT(cfl, 0, 6) & INFO_DAT(cfl, 0, 9) = "1007889C" Then Call S_1007889C(cfl)
  226. 'If INFO_DAT(cfl, 0, 6) & INFO_DAT(cfl, 0, 9) = "1007896B" Then Call S_1007896B(cfl)
  227. 'If INFO_DAT(cfl, 0, 6) & INFO_DAT(cfl, 0, 9) = "1007909G" Then Call S_1007909G(cfl)
  228. 'If INFO_DAT(cfl, 0, 6) & INFO_DAT(cfl, 0, 9) = "1007093D" Then Call S_1007093D(cfl)
  229. 'If INFO_DAT(cfl, 0, 6) & INFO_DAT(cfl, 0, 9) = "1006927A" Then Call S_1006927A(cfl)
  230. 'If INFO_DAT(cfl, 0, 6) = "1011763" Then Call S_1011763(cfl)
  231. 'If INFO_DAT(cfl, 0, 6) & INFO_DAT(cfl, 0, 9) = "1014512C" Then Call S_1014512C(cfl)
  232. 'If INFO_DAT(cfl, 0, 6) = "1014700" Then Call S_1014700(cfl)
  233. 'If INFO_DAT(cfl, 0, 6) & INFO_DAT(cfl, 0, 9) = "1016416D" Then Call S_1016416D(cfl)
  234. 'If INFO_DAT(cfl, 0, 6) & INFO_DAT(cfl, 0, 9) = "1016428B" Then Call S_1016428B(cfl)
  235.  
  236.  
  237.  
  238. '********************************OUTPUT DXF ***********************
  239.  
  240. If InStr(1, str_no_repet, INFO_DAT(CFL, 0, 3)) = 0 Then
  241.  
  242. cd_dxf = "_1006908_1006914_1006930_1007161_1007886_1011060_1011067_1011908_1011069_1012499_1012500_1007909_1016416_1016428_1007253_1020145_1022168_1020979_1020899_1023837_1023240_"
  243. cd_dxf = cd_dxf & "_1045862_1045866_1045872_1046016_1014512_1016520_1007896_1078916_1078917_1016517_"
  244. cd_mag = "_3212155519_"
  245. If InStr(1, cd_dxf, INFO_DAT(CFL, 0, 6)) > 0 Or InStr(1, cd_mag, INFO_DAT(CFL, 0, 6)) > 0 Then
  246. str_no_repet = str_no_repet & "-" & INFO_DAT(CFL, 0, 3) & "_"
  247. End If
  248.  
  249. If INFO_DAT(CFL, 0, 6) = "1006908" And INFO_DAT(CFL, 0, 19) = 0 Then Call MODEL_SUB(CFL, 1)
  250. If INFO_DAT(CFL, 0, 6) = "1006914" And INFO_DAT(CFL, 0, 19) = 0 Then Call MODEL_SUB(CFL, 1)
  251. If INFO_DAT(CFL, 0, 6) = "1006930" And INFO_DAT(CFL, 0, 19) = 0 Then Call MODEL_SUB(CFL, 1)
  252. If INFO_DAT(CFL, 0, 6) = "1007161" And INFO_DAT(CFL, 0, 19) = 0 Then Call MODEL_SUB(CFL, 1)
  253. If INFO_DAT(CFL, 0, 6) = "1007886" And INFO_DAT(CFL, 0, 19) = 0 Then Call MODEL_SUB(CFL, 1)
  254.  
  255. ''If INFO_DAT(CFL, 0, 6) = "1011060" And INFO_DAT(CFL, 0, 19) = 0 Then Call MODEL_SUB(CFL, 1) 'ENTRANCE
  256. ''If INFO_DAT(CFL, 0, 6) = "1011067" And INFO_DAT(CFL, 0, 19) = 0 Then Call MODEL_SUB(CFL, 1)
  257. ''If INFO_DAT(CFL, 0, 6) = "1011908" And INFO_DAT(CFL, 0, 19) = 0 Then Call MODEL_SUB(CFL, 1)
  258. ''If INFO_DAT(CFL, 0, 6) = "1012499" And INFO_DAT(CFL, 0, 19) = 0 Then Call MODEL_SUB(CFL, 1)
  259. ''If INFO_DAT(CFL, 0, 6) = "1012500" And INFO_DAT(CFL, 0, 19) = 0 Then Call MODEL_SUB(CFL, 1)
  260.  
  261. 'If INFO_DAT(CFL, 0, 6) = "1007909" And INFO_DAT(CFL, 0, 19) = 0 Then Call MODEL_SUB(CFL, 1)
  262. 'If INFO_DAT(CFL, 0, 6) = "1016416" And INFO_DAT(CFL, 0, 19) = 0 Then Call MODEL_SUB(CFL, 1)
  263. If INFO_DAT(CFL, 0, 6) = "1007253" And INFO_DAT(CFL, 0, 19) = 0 Then Call MODEL_SUB(CFL, 1)
  264.  
  265.  
  266. If INFO_DAT(CFL, 0, 6) = "1020145" And INFO_DAT(CFL, 0, 19) = 0 Then Call MODEL_SUB(CFL, 1)
  267. If INFO_DAT(CFL, 0, 6) = "1022168" And INFO_DAT(CFL, 0, 19) = 0 Then Call MODEL_SUB(CFL, 1)
  268. If INFO_DAT(CFL, 0, 6) = "1020979" And INFO_DAT(CFL, 0, 19) = 0 Then Call MODEL_SUB(CFL, 1)
  269. If INFO_DAT(CFL, 0, 6) = "1020899" And INFO_DAT(CFL, 0, 19) = 0 Then Call MODEL_SUB(CFL, 1)
  270. If INFO_DAT(CFL, 0, 6) = "1023837" And INFO_DAT(CFL, 0, 19) = 0 Then Call MODEL_SUB(CFL, 1)
  271.  
  272. If INFO_DAT(CFL, 0, 6) = "1016520" And INFO_DAT(CFL, 0, 19) = 0 Then Call MODEL_SUB(CFL, 1)
  273.  
  274. If INFO_DAT(CFL, 0, 6) = "1045862" And INFO_DAT(CFL, 0, 19) = 0 Then Call MODEL_SUB(CFL, 1)
  275. If INFO_DAT(CFL, 0, 6) = "1045866" And INFO_DAT(CFL, 0, 19) = 0 Then Call MODEL_SUB(CFL, 1)
  276. If INFO_DAT(CFL, 0, 6) = "1045872" And INFO_DAT(CFL, 0, 19) = 0 Then Call MODEL_SUB(CFL, 1)
  277. If INFO_DAT(CFL, 0, 6) = "1046016" And INFO_DAT(CFL, 0, 19) = 0 Then Call MODEL_SUB(CFL, 1)
  278. If INFO_DAT(CFL, 0, 6) = "1078916" And INFO_DAT(CFL, 0, 19) = 0 Then Call MODEL_SUB(CFL, 1)
  279. If INFO_DAT(CFL, 0, 6) = "1078917" And INFO_DAT(CFL, 0, 19) = 0 Then Call MODEL_SUB(CFL, 1)
  280.  
  281. End If
  282.  
  283.  
  284. If InStr(1, str_no_repet, INFO_DAT(CFL, 0, 3)) = 0 Then 'CHECK SU MODULO O DXF MANCANTE
  285. If ACT_MOD = "" Then MsgBox ("MODULO " & INFO_DAT(CFL, 0, 6) & " MANCANTE")
  286. End If
  287.  
  288. ACT_MOD = ""
  289. NO_PROD_INT:
  290.  
  291. Next CFL
  292.  
  293.  
  294. VPRSS = 1
  295. For CFL = 1 To NM_DT
  296.  
  297. If INFO_DAT(CFL, 0, 6) & INFO_DAT(CFL, 0, 9) = "1014688A" Then Call V_1014688A(CFL)
  298. If INFO_DAT(CFL, 0, 6) & INFO_DAT(CFL, 0, 9) = "1016428C" Then Call V_1016428C(CFL)
  299. If INFO_DAT(CFL, 0, 6) & INFO_DAT(CFL, 0, 9) = "1014512C" Then Call V_1014512C(CFL)
  300. If INFO_DAT(CFL, 0, 6) & INFO_DAT(CFL, 0, 9) = "10339490" Then Call V_10339490(CFL)
  301. If INFO_DAT(CFL, 0, 6) & INFO_DAT(CFL, 0, 9) = "1016416E" Then Call V_1016416E(CFL)
  302. If INFO_DAT(CFL, 0, 6) & INFO_DAT(CFL, 0, 9) = "10339850" Then Call V_1033985B(CFL)
  303. If INFO_DAT(CFL, 0, 6) & INFO_DAT(CFL, 0, 9) = "1033985B" Then Call V_1033985B(CFL)
  304. If INFO_DAT(CFL, 0, 6) & INFO_DAT(CFL, 0, 9) = "1006951B" Then Call V_1006951(CFL)
  305. If INFO_DAT(CFL, 0, 6) & INFO_DAT(CFL, 0, 9) = "1006951C" Then Call V_1006951C(CFL)
  306. If INFO_DAT(CFL, 0, 6) & INFO_DAT(CFL, 0, 9) = "1023836A" Then Call V_1023836A(CFL)
  307. If INFO_DAT(CFL, 0, 6) & INFO_DAT(CFL, 0, 9) = "1007889B" Then Call V_1007889B(CFL)
  308. If INFO_DAT(CFL, 0, 6) & INFO_DAT(CFL, 0, 9) = "1007889E" Then Call V_1007889E(CFL)
  309.  
  310. If INFO_DAT(CFL, 0, 6) & INFO_DAT(CFL, 0, 9) = "1007233" Then Call V_1007233(CFL)
  311. If INFO_DAT(CFL, 0, 6) & INFO_DAT(CFL, 0, 9) = "1007236" Then Call V_1007236(CFL)
  312. If INFO_DAT(CFL, 0, 6) & INFO_DAT(CFL, 0, 9) = "1007253" Then Call V_1007253(CFL)
  313. If INFO_DAT(CFL, 0, 6) & INFO_DAT(CFL, 0, 9) = "1007303" Then Call V_1007303(CFL)
  314. If INFO_DAT(CFL, 0, 6) & INFO_DAT(CFL, 0, 9) = "1007305" Then Call V_1007305(CFL)
  315. If INFO_DAT(CFL, 0, 6) & INFO_DAT(CFL, 0, 9) = "1007896B" Then Call V_1007896B(CFL)
  316. If INFO_DAT(CFL, 0, 6) & INFO_DAT(CFL, 0, 9) = "1007896C" Then Call V_1007896C(CFL)
  317. If INFO_DAT(CFL, 0, 6) & INFO_DAT(CFL, 0, 9) = "1011763" Then Call V_1011763(CFL)
  318. If INFO_DAT(CFL, 0, 6) & INFO_DAT(CFL, 0, 9) = "1007909H" Then Call V_1007909H(CFL)
  319. If INFO_DAT(CFL, 0, 6) & INFO_DAT(CFL, 0, 9) = "1006927A" Then Call V_1006927A(CFL)
  320. If INFO_DAT(CFL, 0, 6) & INFO_DAT(CFL, 0, 9) = "1007093D" Then Call V_1007093D(CFL)
  321.  
  322. If INFO_DAT(CFL, 0, 6) & INFO_DAT(CFL, 0, 9) = "1016416F" Then Call V_1016416F(CFL)
  323. If INFO_DAT(CFL, 0, 6) & INFO_DAT(CFL, 0, 9) = "1016428D" Then Call V_1016428D(CFL)
  324. If INFO_DAT(CFL, 0, 6) & INFO_DAT(CFL, 0, 9) = "1007909J" Then Call V_1007909J(CFL)
  325. If INFO_DAT(CFL, 0, 6) & INFO_DAT(CFL, 0, 9) = "1007909M" Then Call V_1007909M(CFL)
  326. If INFO_DAT(CFL, 0, 6) & INFO_DAT(CFL, 0, 9) = "1007909M-MOD" Then Call V_1007909J(CFL)
  327. If INFO_DAT(CFL, 0, 6) & INFO_DAT(CFL, 0, 9) = "1007909N" Then Call V_1007909M(CFL)
  328. If INFO_DAT(CFL, 0, 6) & INFO_DAT(CFL, 0, 9) = "1007889F" Then Call V_1007889F(CFL)
  329. If INFO_DAT(CFL, 0, 6) & INFO_DAT(CFL, 0, 9) = "1007889G" Then Call V_1007889H(CFL)
  330. If INFO_DAT(CFL, 0, 6) & INFO_DAT(CFL, 0, 9) = "1007889H" Then Call V_1007889H(CFL)
  331.  
  332.  
  333.  
  334. 'If INFO_DAT(CFL, 0, 6) & INFO_DAT(CFL, 0, 9) = "1014700" Then Call V_1014700(CFL)
  335. If INFO_DAT(CFL, 0, 6) & INFO_DAT(CFL, 0, 9) = "1014700C" Then MsgBox ("chiedere dxf a Galloni cod. " & INFO_DAT(CFL, 0, 6))
  336. If INFO_DAT(CFL, 0, 6) & INFO_DAT(CFL, 0, 9) = "1023837A" Then MsgBox ("chiedere dxf a Galloni cod. " & INFO_DAT(CFL, 0, 6)) 'Call S_1023837A(CFL)
  337. If INFO_DAT(CFL, 0, 6) & INFO_DAT(CFL, 0, 9) = "1014660A" Then MsgBox ("chiedere dxf a Galloni cod. " & INFO_DAT(CFL, 0, 6))
  338. If INFO_DAT(CFL, 0, 6) & INFO_DAT(CFL, 0, 9) = "1023240B" Then MsgBox ("chiedere dxf a Galloni cod. " & INFO_DAT(CFL, 0, 6))
  339. If INFO_DAT(CFL, 0, 6) & INFO_DAT(CFL, 0, 9) = "1023240C" Then MsgBox ("chiedere dxf a Galloni cod. " & INFO_DAT(CFL, 0, 6))
  340.  
  341. Next CFL
  342.  
  343.  
  344. End Sub
  345.  
  346.  
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!