API tools faq
paste
Advertisement
Dece111

VRB Pubbliche

Dece111
Feb 28th, 2024
117
0
Never
Add comment
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
VisualBasic 7.53 KB | None | 0 0
raw download clone embed print report diff
  1. 'VRB Pubbliche
  2.  
  3. Option Explicit
  4.  
  5. Public PRG_NUM(5) As String 'MATRICE CON NUMERI DI PROGRAMMA
  6. Public PRG_TOT As String 'NUMERO PROGRAMMA FINALE
  7. Public YEARS As Integer 'ANNO
  8.  
  9. Public INPUT_FOLDER As String 'CARTELLE
  10. Public OUTPUT_FOLDER As String
  11. Public SLD_PTH As String
  12. Public DXF_FOLD As String
  13. Public DXF_CFOLD As String
  14. Public NST_FOLD As String
  15. 'Public NST_FOLD2 As String
  16. Public SPC_FOLD As String
  17. Public FNLANTE_FOLDER As String
  18. Public DXF_ANTE_18 As String
  19. Public DXF_ANTE_15 As String
  20.  
  21.  
  22. Public NN_CODE As Integer 'NUMERO CODICI PER PRODUZIONE ESTERNA
  23. Public NN_MAT As Integer 'NUMERO MATERIALI PER PRODUZIONE ESTERNA
  24. Public STR_COD(1000) As String 'MATRICE CON I CODICI DELLE PORTE
  25. Public STR_MTR(40) As String 'MATRICE CON MATERIALI
  26.  
  27.  
  28. Public INFO_VAR(4, 100) As String                        'MATRICE TRASPORTO DATI; LA RIGA 0 CONTIENE I DATI GENERALI LA RIGA 1 CONTIENE LE ETICHETTE, LA RIGA 2 I CORRISPONDENTI VALORI
  29. Public INFO_DAT(5000, 2, 100) As String                  'MATRICE DATI COMPLESSIVA:IL 1°INDICE E'PROGRESSIVO FILE GLI ALTRI SONO INFO _VAR
  30. Public INFO_PST(5000, 2, 100) As String                  'MATRICE DATI FILE CSV PIASTRONI FIBRA
  31. Public NM_DT As Integer                                  'NUMERO DATI TOTALI
  32.  
  33. Public DXF_LST As Variant, I2 As Integer                 'LISTE DXF INTERNI, DXF ESTERNI E PROGRAMMI S4
  34. 'Public DXF_LST_EXT As Variant, I1 As Integer
  35. 'Public DXF_LST_EXT2 As Variant, I12 As Integer
  36. Public DXF_OUT As Variant, I3 As Integer
  37. 'Public DXF_18 As Variant, I4 As Integer
  38. 'Public DXF_15 As Variant, I5 As Integer
  39.  
  40.  
  41. Public VAR_APE As Integer                                'VARIABILE CHE DICE SE PRODURRE INTERNAMENTE O ESTERNAMENTE
  42. Public VCF As Integer
  43.  
  44. Public TOOL_VAR(20, 100, 7) As String                   'MATRICE DATI TORRETTA CARICATA DAL FOGLIO TOOLS
  45.  
  46.  
  47. Public ACT_MOD As String
  48. Public NHD As Integer
  49.  
  50.  
  51.  
  52. Public QCSP As Single
  53. Public PULS_TYPE As Byte
  54. Public INDIC_TYPE As Byte
  55. Public CUR_COM As String
  56.  
  57.  
  58. Public BLC_DAT(5000, 10, 100) As String 'matrice e variabili per validazione dati fineline
  59. Public kl As Integer
  60.  
  61. '**************************************************************************************************************
  62.  
  63. Public MAT_NST(20, 1000, 4, 3) As String 'MATRICE PER IL NESTING
  64. Public MATNEST(20, 200, 10) As String
  65.  
  66. Public ANT_NST(20, 1000, 8, 3) As String 'MATRICE PER IL NESTING ANTE
  67. Public ANTNST(20, 500, 2) As String
  68.  
  69.  
  70. Public INST(17, 150, 40, 40, 14) As String              'MATRICE INFO NESTING
  71.  
  72. '(0,0,0,0,1) = NUMERO PROGRAMMA
  73. '(0,0,0,0,2) = NUMERO MATERIALI PRESENTI DA NESTRARE
  74. '(0,0,0,0,3) = DIMENSIONE TAGLIO IN X
  75. '(0,0,0,0,4) = DIMENSIONE TAGLIO IN Y
  76. '(0,0,0,0,5) = MASSIMO SVUOTAMENTO IN X A DX DEL PEZZO
  77. '(0,0,0,0,6) = MASSIMO RIFILO IN X A SX DEI PEZZI OLTRE IL QUALE IL FOGLIO VIENE TAGLIATO
  78. '(NM,0,0,0,0) = NOME DEL MATERIALE NM
  79. '(NM,0,0,0,1) = NUMERO DI NESTING NEL MATERILAE NM
  80. '(NM,0,0,0,2) = SPESSORE DEL MATERIALE
  81.  
  82. '(NM,NN,0,0,0) = NOME DEL N-ESIMO NESTING DEL MATERIALE NM
  83. '(NM,NN,0,0,1) = TESTA DEL N-ESIMO NESTING DEL MATERIALE NM
  84. '(NM,NN,0,0,2) = QUANTITà DEL N-ESIMO NESTING DEL MATERIALE NM
  85. '(NM,NN,0,0,3) = DIMENSIONE Y DEL N-ESIMO NESTING DEL MATERIALE NM
  86. '(NM,NN,0,0,4) = DIMENSIONE X DEL N-ESIMO NESTING DEL MATERIALE NM
  87. '(NM,NN,0,0,5) = NUMERO RIGHE DEL N-ESIMO NESTING DEL MATERIALE NM
  88. '(NM,NN,0,0,6) = STRINGA DEL N-ESIMO NESTING DEL N-ESIMO MATERIALE
  89. '(MN,NN,0,0,8) = ALTEZZA TOP DEL MATERIALE MN E DEL NESTING NN
  90. '(MN,NN,0,0,9) = BANDELLA IN PINZA O IN ALTO
  91. '(MN,NN,0,0,10) = SVUOTAMENTO LATERALE MINIMO DEL MATERIALE MN, DEL NESTING NN
  92. '(MN,NN,0,0,11) = NUMERO COMPLESSIVO PEZZI CONTENUTI UN NESTING
  93. '(MN,NN,0,0,12) = SHIFT Y DEL NESTING (SI USA IN CASO DI UTILIZZO PARZIALE IN Y DEL FOGLIO, I PEZZI VENGONO ALLONTANATI DALLE PINZE DELLA QUANTITA' SHIFT Y)
  94. '(MN,NN,0,0,13) = MINORE SPOSTAMENTO LATERALE SINISTRO DEL MATERIALE MN, DEL NESTING NN E DELLA RIGA RR MA > 250 - PER BANDELLA LATERALE DX
  95.  
  96. '(NM,NN,RR,0,0) = NUMERO DI COLONNE DELLA N-ESIMA RIGA DEL N-ESIMO NESTING DEL N-ESIMO MATERIALE
  97. '(NM,NN,RR,0,7) = ALTEZZA DELLA RIGA RR, NESTING NN E MATERIALE NM
  98. '(MN,NN,RR,0,10) = SVUOTAMENTO LATERALE DESTRO DEL MATERIALE MN, DEL NESTING NN E DELLA RIGA RR
  99. '(MN,NN,RR,0,11) = SPOSTAMENTO LATERALE SINISTRO DEL MATERIALE MN, DEL NESTING NN E DELLA RIGA RR
  100. '(MN,NN,RR,0,12) = DIMENSIONE IN X DELLA RIGA RR, DEL NESTING NN E DEL MATERIALE MN
  101.  
  102. '(NM,NN,RR,CC,0) = NOME DELLA PARTE
  103. '(NM,NN,RR,CC,1) = DIMENSIONE X DELLA PARTE
  104. '(NM,NN,RR,CC,2) = DIMENSIONE Y DELLA PARTE
  105. '(NM,NN,RR,CC,3) = COORDINATA X DELLA PARTE
  106. '(NM,NN,RR,CC,4)= COORDINATA Y DELLA PARTE
  107. '(MN,NN,RR,CC,5) = SPESSORE DELLA PARTE
  108. '(MN,NN,RR,CC,6) = CONTROLLO TESTA DELLA PARTE
  109. '(NM,NN,RR,CC,9) = COORDINATA X FINALE DELLA PARTE
  110. '(NM,NN,RR,CC,10) = COORDINATA Y SUP DELLA PARTE
  111. '(MN,NN,RR,CC,8) = COMMESSA DELLA PARTE
  112. '(MN,NN,RR,CC,7) = CODICE DISEGNO DELLA PARTE
  113. '(MN,NN,RR,CC,11) = COORDINATA SCARICO DELLA PARTE
  114.  
  115.  
  116. Public STR_OUT(32) As String 'COMANDI DI SCARICO PER PAR
  117. Public CLAMP As Integer 'COMANDI PER PEZZO IN PINZA O NO
  118. Public PUNCHING_MACHINE As String
  119.  
  120. 'TOOL
  121. Public TL_CUT_V As String
  122. Public TL_CUT_V2 As String
  123. Public LUTV As Double
  124. Public LUTV2 As Double
  125. Public TL_CUT_O As String
  126. Public LUTH As Double
  127. Public TL_CUT_SQ1 As String
  128. Public TL_CLN As String
  129. Public TL_MCRG As String
  130. Public TCUT As Double
  131. Public H_SQ1 As Double
  132. Public OFS_TRAV As Double
  133. Public LRC As Double
  134. Public RRC As Double
  135. Public x_LRC As Double
  136.  
  137. 'RIFILI
  138. Public RIF_SUP As Double
  139. Public RIF_SX As Double
  140. Public RIF_DX As Double
  141. Public RIF_ANT As Double
  142. Public BANDL As Double
  143. Public MCR_X As Double
  144. Public MCR_Y As Double
  145.  
  146. Public POS_PINZE As String
  147.  
  148.  
  149. Public NPAR_FLD As String
  150. Public PAR_FLD As String
  151. Public VPR_FLD As String
  152. Public PDF_FLD As String
  153. Public IN_FLD As String
  154. Public VIPROS_FLD As String
  155. Public PAR_DXF_FLD As String
  156.  
  157. Public STIPITI As String
  158. Public STIPITI_PORTALI As String
  159. Public LATO_BATTUTA As String
  160. Public STIPITI_SLIM As String
  161. Public RIVESTIMENTI_SLIM As String
  162. Public ANTE As String
  163. Public ANTE_2 As String
  164. Public RIV_2 As String
  165. Public RIVESTIMENTI_ANTA As String
  166. Public RINFORZI_SALD As String
  167. Public RINFORZI_MTG As String
  168. Public TRAVERSA As String
  169. Public TRAVERSA_PORTALE As String
  170. Public SOTTOSOGLIA As String
  171. Public RINFORZI_TRF As String
  172. Public STAFFE As String
  173. Public COPRIFESSURA As String
  174. Public PARAMENTI As String
  175. Public ENTRANCE As String
  176. Public ALTRO_TRF As String
  177. Public ALTRO_VPR As String
  178. Public ALTRO_EMZ As String
  179. Public PIASTRONI_CAR As String
  180. Public PIASTRONI_LAND As String
  181. Public ENTRANCE_2 As String
  182.  
  183.  
  184. Public PREV As String
  185. Public FORMATISS(200, 8) As String
  186. Public BONOS(1500, 2) As String
  187. Public YYERR As String
  188.  
  189.  
  190. Public DSCM(200, 2) As String
  191. Public INFO_MAT(200, 11) As String
  192. Public tiemp(200, 2) As String
  193.  
  194. Public SPC_R_OLD As String
  195. Public QCSP_OLD As Single
  196. Public VAR_ACCORP As Integer
  197. Public VAR_PIASTRFIBRA As Integer
  198. Public VAR_ERRACC As Integer
  199.  
  200. Public TL_PUNCH(2000, 200) As String
  201. Public tool_use(50, 2) As String
  202.  
  203. Public FNL_SEQUENCING As Integer
  204.  
  205. Public RPT_SPC(100, 20, 3) As String  'REPORT PER INSERIEMNTO VALORI SPACCHI MANUALMENTE
  206. Public RP  As Integer                  'CONTATORE RIGHE REPORT
  207. Public RP2  As Integer                 'CONTATORE RIGHE REPORT
  208.  
  209. Public VPRSS As Integer
  210.  
  211. Public comm_omg_spc As String
  212.  
  213. Public COD_ETICHETTATI As String
  214. Public STR_VR_ACC As String
  215. Public STR_VR_FIBRA As String
  216.  
  217. Public LISTA_MAT_FNL As Integer
  218.  
  219. Public FGL_REC As Integer
  220. Public MAT_FGL_RECUPERO As String
  221.  
  222. Public ULTF As Integer
  223. Public ULTF2(300) As String
  224.  
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!