Create a new version of paste:

'VRB Pubbliche

Option Explicit

Public PRG_NUM(5) As String 'MATRICE CON NUMERI DI PROGRAMMA
Public PRG_TOT As String 'NUMERO PROGRAMMA FINALE
Public YEARS As Integer 'ANNO

Public INPUT_FOLDER As String 'CARTELLE
Public OUTPUT_FOLDER As String
Public SLD_PTH As String
Public DXF_FOLD As String
Public DXF_CFOLD As String
Public NST_FOLD As String
'Public NST_FOLD2 As String
Public SPC_FOLD As String
Public FNLANTE_FOLDER As String
Public DXF_ANTE_18 As String
Public DXF_ANTE_15 As String


Public NN_CODE As Integer 'NUMERO CODICI PER PRODUZIONE ESTERNA
Public NN_MAT As Integer 'NUMERO MATERIALI PER PRODUZIONE ESTERNA
Public STR_COD(1000) As String 'MATRICE CON I CODICI DELLE PORTE
Public STR_MTR(40) As String 'MATRICE CON MATERIALI


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
Public INFO_DAT(5000, 2, 100) As String                  'MATRICE DATI COMPLESSIVA:IL 1°INDICE E'PROGRESSIVO FILE GLI ALTRI SONO INFO _VAR
Public INFO_PST(5000, 2, 100) As String                  'MATRICE DATI FILE CSV PIASTRONI FIBRA
Public NM_DT As Integer                                  'NUMERO DATI TOTALI

Public DXF_LST As Variant, I2 As Integer                 'LISTE DXF INTERNI, DXF ESTERNI E PROGRAMMI S4
'Public DXF_LST_EXT As Variant, I1 As Integer
'Public DXF_LST_EXT2 As Variant, I12 As Integer
Public DXF_OUT As Variant, I3 As Integer
'Public DXF_18 As Variant, I4 As Integer
'Public DXF_15 As Variant, I5 As Integer


Public VAR_APE As Integer                                'VARIABILE CHE DICE SE PRODURRE INTERNAMENTE O ESTERNAMENTE
Public VCF As Integer

Public TOOL_VAR(20, 100, 7) As String                   'MATRICE DATI TORRETTA CARICATA DAL FOGLIO TOOLS


Public ACT_MOD As String
Public NHD As Integer


Public QCSP As Single
Public PULS_TYPE As Byte
Public INDIC_TYPE As Byte
Public CUR_COM As String


Public BLC_DAT(5000, 10, 100) As String 'matrice e variabili per validazione dati fineline
Public kl As Integer

'**************************************************************************************************************

Public MAT_NST(20, 1000, 4, 3) As String 'MATRICE PER IL NESTING
Public MATNEST(20, 200, 10) As String

Public ANT_NST(20, 1000, 8, 3) As String 'MATRICE PER IL NESTING ANTE
Public ANTNST(20, 500, 2) As String


Public INST(17, 150, 40, 40, 14) As String              'MATRICE INFO NESTING

'(0,0,0,0,1) = NUMERO PROGRAMMA
'(0,0,0,0,2) = NUMERO MATERIALI PRESENTI DA NESTRARE
'(0,0,0,0,3) = DIMENSIONE TAGLIO IN X
'(0,0,0,0,4) = DIMENSIONE TAGLIO IN Y
'(0,0,0,0,5) = MASSIMO SVUOTAMENTO IN X A DX DEL PEZZO
'(0,0,0,0,6) = MASSIMO RIFILO IN X A SX DEI PEZZI OLTRE IL QUALE IL FOGLIO VIENE TAGLIATO
'(NM,0,0,0,0) = NOME DEL MATERIALE NM
'(NM,0,0,0,1) = NUMERO DI NESTING NEL MATERILAE NM
'(NM,0,0,0,2) = SPESSORE DEL MATERIALE

'(NM,NN,0,0,0) = NOME DEL N-ESIMO NESTING DEL MATERIALE NM
'(NM,NN,0,0,1) = TESTA DEL N-ESIMO NESTING DEL MATERIALE NM
'(NM,NN,0,0,2) = QUANTITà DEL N-ESIMO NESTING DEL MATERIALE NM
'(NM,NN,0,0,3) = DIMENSIONE Y DEL N-ESIMO NESTING DEL MATERIALE NM
'(NM,NN,0,0,4) = DIMENSIONE X DEL N-ESIMO NESTING DEL MATERIALE NM
'(NM,NN,0,0,5) = NUMERO RIGHE DEL N-ESIMO NESTING DEL MATERIALE NM
'(NM,NN,0,0,6) = STRINGA DEL N-ESIMO NESTING DEL N-ESIMO MATERIALE
'(MN,NN,0,0,8) = ALTEZZA TOP DEL MATERIALE MN E DEL NESTING NN
'(MN,NN,0,0,9) = BANDELLA IN PINZA O IN ALTO
'(MN,NN,0,0,10) = SVUOTAMENTO LATERALE MINIMO DEL MATERIALE MN, DEL NESTING NN
'(MN,NN,0,0,11) = NUMERO COMPLESSIVO PEZZI CONTENUTI UN NESTING
'(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)
'(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

'(NM,NN,RR,0,0) = NUMERO DI COLONNE DELLA N-ESIMA RIGA DEL N-ESIMO NESTING DEL N-ESIMO MATERIALE
'(NM,NN,RR,0,7) = ALTEZZA DELLA RIGA RR, NESTING NN E MATERIALE NM
'(MN,NN,RR,0,10) = SVUOTAMENTO LATERALE DESTRO DEL MATERIALE MN, DEL NESTING NN E DELLA RIGA RR
'(MN,NN,RR,0,11) = SPOSTAMENTO LATERALE SINISTRO DEL MATERIALE MN, DEL NESTING NN E DELLA RIGA RR
'(MN,NN,RR,0,12) = DIMENSIONE IN X DELLA RIGA RR, DEL NESTING NN E DEL MATERIALE MN

'(NM,NN,RR,CC,0) = NOME DELLA PARTE
'(NM,NN,RR,CC,1) = DIMENSIONE X DELLA PARTE
'(NM,NN,RR,CC,2) = DIMENSIONE Y DELLA PARTE
'(NM,NN,RR,CC,3) = COORDINATA X DELLA PARTE
'(NM,NN,RR,CC,4)= COORDINATA Y DELLA PARTE
'(MN,NN,RR,CC,5) = SPESSORE DELLA PARTE
'(MN,NN,RR,CC,6) = CONTROLLO TESTA DELLA PARTE
'(NM,NN,RR,CC,9) = COORDINATA X FINALE DELLA PARTE
'(NM,NN,RR,CC,10) = COORDINATA Y SUP DELLA PARTE
'(MN,NN,RR,CC,8) = COMMESSA DELLA PARTE
'(MN,NN,RR,CC,7) = CODICE DISEGNO DELLA PARTE
'(MN,NN,RR,CC,11) = COORDINATA SCARICO DELLA PARTE


Public STR_OUT(32) As String 'COMANDI DI SCARICO PER PAR
Public CLAMP As Integer 'COMANDI PER PEZZO IN PINZA O NO
Public PUNCHING_MACHINE As String

'TOOL
Public TL_CUT_V As String
Public TL_CUT_V2 As String
Public LUTV As Double
Public LUTV2 As Double
Public TL_CUT_O As String
Public LUTH As Double
Public TL_CUT_SQ1 As String
Public TL_CLN As String
Public TL_MCRG As String
Public TCUT As Double
Public H_SQ1 As Double
Public OFS_TRAV As Double
Public LRC As Double
Public RRC As Double
Public x_LRC As Double

'RIFILI
Public RIF_SUP As Double
Public RIF_SX As Double
Public RIF_DX As Double
Public RIF_ANT As Double
Public BANDL As Double
Public MCR_X As Double
Public MCR_Y As Double

Public POS_PINZE As String


Public NPAR_FLD As String
Public PAR_FLD As String
Public VPR_FLD As String
Public PDF_FLD As String
Public IN_FLD As String
Public VIPROS_FLD As String
Public PAR_DXF_FLD As String

Public STIPITI As String
Public STIPITI_PORTALI As String
Public LATO_BATTUTA As String
Public STIPITI_SLIM As String
Public RIVESTIMENTI_SLIM As String
Public ANTE As String
Public ANTE_2 As String
Public RIV_2 As String
Public RIVESTIMENTI_ANTA As String
Public RINFORZI_SALD As String
Public RINFORZI_MTG As String
Public TRAVERSA As String
Public TRAVERSA_PORTALE As String
Public SOTTOSOGLIA As String
Public RINFORZI_TRF As String
Public STAFFE As String
Public COPRIFESSURA As String
Public PARAMENTI As String
Public ENTRANCE As String
Public ALTRO_TRF As String
Public ALTRO_VPR As String
Public ALTRO_EMZ As String
Public PIASTRONI_CAR As String
Public PIASTRONI_LAND As String
Public ENTRANCE_2 As String


Public PREV As String
Public FORMATISS(200, 8) As String
Public BONOS(1500, 2) As String
Public YYERR As String


Public DSCM(200, 2) As String
Public INFO_MAT(200, 11) As String
Public tiemp(200, 2) As String

Public SPC_R_OLD As String
Public QCSP_OLD As Single
Public VAR_ACCORP As Integer
Public VAR_PIASTRFIBRA As Integer
Public VAR_ERRACC As Integer

Public TL_PUNCH(2000, 200) As String
Public tool_use(50, 2) As String

Public FNL_SEQUENCING As Integer

Public RPT_SPC(100, 20, 3) As String  'REPORT PER INSERIEMNTO VALORI SPACCHI MANUALMENTE
Public RP  As Integer                  'CONTATORE RIGHE REPORT
Public RP2  As Integer                 'CONTATORE RIGHE REPORT

Public VPRSS As Integer

Public comm_omg_spc As String

Public COD_ETICHETTATI As String
Public STR_VR_ACC As String
Public STR_VR_FIBRA As String

Public LISTA_MAT_FNL As Integer

Public FGL_REC As Integer
Public MAT_FGL_RECUPERO As String

Public ULTF As Integer
Public ULTF2(300) As String