API tools faq
paste
View difference between Paste ID: TCFCmfLQ and Nn2gKpcV
SHOW: | | - or go back to the newest paste.
1-
'Funzioni
1+
'VRB Pubbliche
2
3-
Function def_posintab(ByVal NNN As Integer)

3+
Option Explicit

4
5-
GRUP_PEZ = INFO_DAT(NNN, 0, 31)

5+
Public PRG_NUM(5) As String 'MATRICE CON NUMERI DI PROGRAMMA

6-
Select Case GRUP_PEZ

6+
Public PRG_TOT As String 'NUMERO PROGRAMMA FINALE

7-
Case "1"

7+
Public YEARS As Integer 'ANNO

8-
def_posintab = 0

8+
9-
def_posintab = INFO_DAT(NNN, 0, 35)

9+
Public INPUT_FOLDER As String 'CARTELLE

10-
If def_posintab = 0 Then MsgBox ("ERRORE POSIZIONAMENTO SCARICO SU COD. " & INFO_DAT(NNN, 0, 5))

10+
Public OUTPUT_FOLDER As String

11
Public SLD_PTH As String

12-
Case "2"

12+
Public DXF_FOLD As String

13-
def_posintab = 0

13+
Public DXF_CFOLD As String

14-
def_posintab = INFO_DAT(NNN, 0, 35)

14+
Public NST_FOLD As String

15-
If def_posintab = 0 Then MsgBox ("ERRORE POSIZIONAMENTO SCARICO SU COD. " & INFO_DAT(NNN, 0, 5))

15+
'Public NST_FOLD2 As String

16
Public SPC_FOLD As String

17
Public FNLANTE_FOLDER As String

18-
Case "3"

18+
Public DXF_ANTE_18 As String

19-
def_posintab = 5

19+
Public DXF_ANTE_15 As String

20
21-
Case "4"

21+
22-
def_posintab = 1

22+
Public NN_CODE As Integer 'NUMERO CODICI PER PRODUZIONE ESTERNA

23-
Case "5"

23+
Public NN_MAT As Integer 'NUMERO MATERIALI PER PRODUZIONE ESTERNA

24-
def_posintab = 1

24+
Public STR_COD(1000) As String 'MATRICE CON I CODICI DELLE PORTE

25
Public STR_MTR(40) As String 'MATRICE CON MATERIALI

26-
Case "6" 'ante

26+
27
28-
pstb = ""

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-
pstb = pos_ante(INFO_DAT(NNN, 0, 6), INFO_DAT(NNN, 0, 7))

29+
Public INFO_DAT(5000, 2, 100) As String                  'MATRICE DATI COMPLESSIVA:IL 1°INDICE E'PROGRESSIVO FILE GLI ALTRI SONO INFO _VAR

30-
If pstb = "" Then MsgBox ("errore posizionamento anta")

30+
Public INFO_PST(5000, 2, 100) As String                  'MATRICE DATI FILE CSV PIASTRONI FIBRA

31-
def_posintab = "1" & pstb

31+
Public NM_DT As Integer                                  'NUMERO DATI TOTALI

32-
If InStr(1, ANTE_2, INFO_DAT(NNN, 0, 6)) > 0 Then def_posintab = "2" & pstb Else def_posintab = "1" & pstb

32+
33
Public DXF_LST As Variant, I2 As Integer                 'LISTE DXF INTERNI, DXF ESTERNI E PROGRAMMI S4

34-
Case "7" 'RIV ANTA

34+
'Public DXF_LST_EXT As Variant, I1 As Integer

35-
'def_posintab = "1" & INFO_DAT(NNN, 0, 35)

35+
'Public DXF_LST_EXT2 As Variant, I12 As Integer

36-
If InStr(1, RIV_2, ACT_MOD) > 0 Then

36+
Public DXF_OUT As Variant, I3 As Integer

37-
def_posintab = INFO_DAT(NNN, 0, 35)

37+
'Public DXF_18 As Variant, I4 As Integer

38-
Else

38+
'Public DXF_15 As Variant, I5 As Integer

39-
Select Case INFO_DAT(NNN, 0, 35)

39+
40-
Case "1"

40+
41-
def_posintab = "1"

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

42-
Case "2"

42+
Public VCF As Integer

43-
def_posintab = "2"

43+
44-
Case "3"

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

45-
def_posintab = "2"

45+
46-
Case "4"

46+
47-
def_posintab = "1"

47+
Public ACT_MOD As String

48-
End Select

48+
Public NHD As Integer

49-
End If

49+
50
51
52-
Case "8"

52+
Public QCSP As Single

53-
def_posintab = 1

53+
Public PULS_TYPE As Byte

54-
Case "9"

54+
Public INDIC_TYPE As Byte

55-
def_posintab = 2

55+
Public CUR_COM As String

56
57-
If Val(INFO_DAT(NNN, 0, 13)) < 500 Then

57+
58-
def_posintab = 15

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

59-
End If

59+
Public kl As Integer

60
61-
Case "10"

61+
'**************************************************************************************************************

62-
def_posintab = 3

62+
63-
Case "11"

63+
Public MAT_NST(20, 1000, 4, 3) As String 'MATRICE PER IL NESTING

64-
def_posintab = 3

64+
Public MATNEST(20, 200, 10) As String

65
66-
Case "12"

66+
Public ANT_NST(20, 1000, 8, 3) As String 'MATRICE PER IL NESTING ANTE

67-
def_posintab = 2

67+
Public ANTNST(20, 500, 2) As String

68-
Case "13"

68+
69-
def_posintab = 2

69+
70-
Case "14"

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

71-
def_posintab = 2

71+
72
'(0,0,0,0,1) = NUMERO PROGRAMMA

73-
Case "15"

73+
'(0,0,0,0,2) = NUMERO MATERIALI PRESENTI DA NESTRARE

74-
def_posintab = 3

74+
'(0,0,0,0,3) = DIMENSIONE TAGLIO IN X

75
'(0,0,0,0,4) = DIMENSIONE TAGLIO IN Y

76-
Case "16"

76+
'(0,0,0,0,5) = MASSIMO SVUOTAMENTO IN X A DX DEL PEZZO

77-
def_posintab = 2

77+
'(0,0,0,0,6) = MASSIMO RIFILO IN X A SX DEI PEZZI OLTRE IL QUALE IL FOGLIO VIENE TAGLIATO

78-
Case "17"

78+
'(NM,0,0,0,0) = NOME DEL MATERIALE NM

79-
def_posintab = 2

79+
'(NM,0,0,0,1) = NUMERO DI NESTING NEL MATERILAE NM

80-
Case "18"

80+
'(NM,0,0,0,2) = SPESSORE DEL MATERIALE

81-
def_posintab = 2

81+
82-
Case "19"

82+
'(NM,NN,0,0,0) = NOME DEL N-ESIMO NESTING DEL MATERIALE NM

83-
def_posintab = 2

83+
'(NM,NN,0,0,1) = TESTA DEL N-ESIMO NESTING DEL MATERIALE NM

84-
Case "20"

84+
'(NM,NN,0,0,2) = QUANTITà DEL N-ESIMO NESTING DEL MATERIALE NM

85-
def_posintab = 4

85+
'(NM,NN,0,0,3) = DIMENSIONE Y DEL N-ESIMO NESTING DEL MATERIALE NM

86-
If Val(INFO_DAT(NNN, 0, 13)) < 500 Then

86+
'(NM,NN,0,0,4) = DIMENSIONE X DEL N-ESIMO NESTING DEL MATERIALE NM

87-
def_posintab = 15

87+
'(NM,NN,0,0,5) = NUMERO RIGHE DEL N-ESIMO NESTING DEL MATERIALE NM

88-
End If

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-
Case "21" 'PIAST CABINA

90+
'(MN,NN,0,0,9) = BANDELLA IN PINZA O IN ALTO

91-
def_posintab = 31 '1

91+
'(MN,NN,0,0,10) = SVUOTAMENTO LATERALE MINIMO DEL MATERIALE MN, DEL NESTING NN

92-
Case "22" 'PIAST PIANO

92+
'(MN,NN,0,0,11) = NUMERO COMPLESSIVO PEZZI CONTENUTI UN NESTING

93-
def_posintab = 32 '2

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-
If INFO_DAT(NNN, 0, 6) = "0902935" Then def_posintab = 33 'PIASTRONE PIANO 4 ANTE

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-
Case "23"

96+
'(NM,NN,RR,0,0) = NUMERO DI COLONNE DELLA N-ESIMA RIGA DEL N-ESIMO NESTING DEL N-ESIMO MATERIALE

97-
def_posintab = 1

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-
Case Else

99+
'(MN,NN,RR,0,11) = SPOSTAMENTO LATERALE SINISTRO DEL MATERIALE MN, DEL NESTING NN E DELLA RIGA RR

100-
MsgBox ("ERRORE POSIZIONAMETO TAVOLA DI SCARICO")

100+
'(MN,NN,RR,0,12) = DIMENSIONE IN X DELLA RIGA RR, DEL NESTING NN E DEL MATERIALE MN

101-
def_posintab = 1

101+
102-
End Select

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-
End Function

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-
Function TablePosition(ByVal H As Double, ByVal L As Double, ByVal Xf As Double, ByVal YF As Double, ByVal PartType As Byte) As String

109+
'(NM,NN,RR,CC,9) = COORDINATA X FINALE DELLA PARTE

110-
    Dim Xb As Double

110+
'(NM,NN,RR,CC,10) = COORDINATA Y SUP DELLA PARTE

111-
    Dim Yb As Double

111+
'(MN,NN,RR,CC,8) = COMMESSA DELLA PARTE

112-
    Dim XM As Double

112+
'(MN,NN,RR,CC,7) = CODICE DISEGNO DELLA PARTE

113-
    Dim YM As Double

113+
'(MN,NN,RR,CC,11) = COORDINATA SCARICO DELLA PARTE

114-
    Dim limite As Double

114+
115-
    

115+
116-
    limite = 590

116+
Public STR_OUT(32) As String 'COMANDI DI SCARICO PER PAR

117-
    Select Case PartType

117+
Public CLAMP As Integer 'COMANDI PER PEZZO IN PINZA O NO

118-
        Case 1: 'LAP - DX

118+
Public PUNCHING_MACHINE As String

119-
            Xb = 3400 - 30

119+
120-
            Yb = 1400 / 4

120+
'TOOL

121-
            If L > limite Then

121+
Public TL_CUT_V As String

122-
                Yb = Yb + (L - limite) / 2

122+
Public TL_CUT_V2 As String

123-
            End If

123+
Public LUTV As Double

124-
        Case 2: 'LC - SX

124+
Public LUTV2 As Double

125-
            Xb = 3400 - 30

125+
Public TL_CUT_O As String

126-
            Yb = 1400 * 3 / 4

126+
Public LUTH As Double

127-
            If L > limite Then

127+
Public TL_CUT_SQ1 As String

128-
                Yb = Yb - (L - limite) / 2

128+
Public TL_CLN As String

129-
            End If

129+
Public TL_MCRG As String

130-
        Case 3: 'TOP

130+
Public TCUT As Double

131-
            Xb = 585

131+
Public H_SQ1 As Double

132-
            Yb = 1400 / 2

132+
Public OFS_TRAV As Double

133-
        Case 4: 'componentistica

133+
Public LRC As Double

134-
            Xb = 3400 / 2

134+
Public RRC As Double

135-
            Yb = 1400 * 3 / 4

135+
Public x_LRC As Double

136-
        Case 5: 'LATO BATTUTA

136+
137-
            Xb = 3400 - 50

137+
'RIFILI

138-
            Yb = 1400 * 2 / 4

138+
Public RIF_SUP As Double

139-
            

139+
Public RIF_SX As Double

140-
            

140+
Public RIF_DX As Double

141-
        Case 11: 'anta

141+
Public RIF_ANT As Double

142-
            Xb = 3400 - 80

142+
Public BANDL As Double

143-
            Yb = 1000 '1400 / 4 ''40 '1400 / 4 - CPM

143+
Public MCR_X As Double

144-
            If L > limite Then

144+
Public MCR_Y As Double

145-
                Yb = Yb + (L - limite) / 2

145+
146-
            End If

146+
Public POS_PINZE As String

147-
        Case 12: 'anta

147+
148-
            Xb = 3400 - 80

148+
149-
            Yb = 500 '1400 / 2 - 30 '390 - 20 '1400 * 2 / 4 - CPM

149+
Public NPAR_FLD As String

150-
            If L > limite Then

150+
Public PAR_FLD As String

151-
                Yb = Yb - (L - limite) / 2

151+
Public VPR_FLD As String

152-
            End If

152+
Public PDF_FLD As String

153-
        Case 13: 'anta

153+
Public IN_FLD As String

154-
            Xb = 3400 - 80

154+
Public VIPROS_FLD As String

155-
            Yb = 500 '1400 * 3 / 4 - 60 '740 - 50 '1400 * 3 / 4 - CPM

155+
Public PAR_DXF_FLD As String

156-
            If L > limite Then

156+
157-
                Yb = Yb - (L - limite) / 2

157+
Public STIPITI As String

158-
            End If

158+
Public STIPITI_PORTALI As String

159-
        Case 14: 'anta

159+
Public LATO_BATTUTA As String

160-
            Xb = 3400 - 80

160+
Public STIPITI_SLIM As String

161-
            Yb = 1000 '1400 - 90 '1090 - 70 '1400 * 4 / 4 - CPM

161+
Public RIVESTIMENTI_SLIM As String

162-
            If L < 215 Then Yb = Yb - 25

162+
Public ANTE As String

163-
            If L > limite Then

163+
Public ANTE_2 As String

164-
                Yb = Yb - (L - limite) / 2

164+
Public RIV_2 As String

165-
            End If

165+
Public RIVESTIMENTI_ANTA As String

166-
            

166+
Public RINFORZI_SALD As String

167-
         Case 21: 'anta 2

167+
Public RINFORZI_MTG As String

168-
            Xb = 3400 - 80

168+
Public TRAVERSA As String

169-
            Yb = 1000

169+
Public TRAVERSA_PORTALE As String

170-
            If L > limite Then

170+
Public SOTTOSOGLIA As String

171-
                Yb = Yb + (L - limite) / 2

171+
Public RINFORZI_TRF As String

172-
            End If

172+
Public STAFFE As String

173-
        Case 22: 'anta 2

173+
Public COPRIFESSURA As String

174-
            Xb = 3400 - 80

174+
Public PARAMENTI As String

175-
            Yb = 500

175+
Public ENTRANCE As String

176-
            If L > limite Then

176+
Public ALTRO_TRF As String

177-
                Yb = Yb - (L - limite) / 2

177+
Public ALTRO_VPR As String

178-
            End If

178+
Public ALTRO_EMZ As String

179-
        Case 23: 'anta 2

179+
Public PIASTRONI_CAR As String

180-
            Xb = 3400 - 80

180+
Public PIASTRONI_LAND As String

181-
            Yb = 500

181+
Public ENTRANCE_2 As String

182-
            If L > limite Then

182+
183-
                Yb = Yb - (L - limite) / 2

183+
184-
            End If

184+
Public PREV As String

185-
        Case 24: 'anta 2

185+
Public FORMATISS(200, 8) As String

186-
            Xb = 3400 - 80

186+
Public BONOS(1500, 2) As String

187-
            Yb = 1000

187+
Public YYERR As String

188-
            If L < 215 Then Yb = Yb - 25

188+
189-
            If L > limite Then

189+
190-
                Yb = Yb - (L - limite) / 2

190+
Public DSCM(200, 2) As String

191-
            End If

191+
Public INFO_MAT(200, 11) As String

192-
                 

192+
Public tiemp(200, 2) As String

193-
        Case 15: 'rinforzi piccoli

193+
194-
            Xb = 1500

194+
Public SPC_R_OLD As String

195-
            Yb = (1400 * 3 / 4) - 100

195+
Public QCSP_OLD As Single

196-
            If L < 215 Then Yb = Yb - 25

196+
Public VAR_ACCORP As Integer

197-
            If L > limite Then

197+
Public VAR_PIASTRFIBRA As Integer

198-
                Yb = Yb - (L - limite) / 2

198+
Public VAR_ERRACC As Integer

199-
            End If

199+
200-
            

200+
Public TL_PUNCH(2000, 200) As String

201-
            

201+
Public tool_use(50, 2) As String

202-
        Case 31: 'PIASTRONI

202+
203-
            Xb = 200

203+
Public FNL_SEQUENCING As Integer

204-
            Yb = 900

204+
205-
        Case 32: 'PIASTRONI

205+
Public RPT_SPC(100, 20, 3) As String  'REPORT PER INSERIEMNTO VALORI SPACCHI MANUALMENTE

206-
            Xb = 200

206+
Public RP  As Integer                  'CONTATORE RIGHE REPORT

207-
            Yb = 530

207+
Public RP2  As Integer                 'CONTATORE RIGHE REPORT

208-
        Case 33: 'PIASTRONI

208+
209-
            Xb = 200

209+
Public VPRSS As Integer

210-
            Yb = 100

210+
211-
            

211+
Public comm_omg_spc As String

212-
            

212+
213-
        Case Else:

213+
Public COD_ETICHETTATI As String

214-
            MsgBox "Error of part type in table position"

214+
Public STR_VR_ACC As String

215-
    End Select

215+
Public STR_VR_FIBRA As String

216-
    

216+
217-
    Select Case PartType

217+
Public LISTA_MAT_FNL As Integer

218-
        Case 1, 2, 4, 5, 6:

218+
219-
            XM = Xb + Xf - H

219+
Public FGL_REC As Integer

220-
            YM = Yb + YF - L / 2

220+
Public MAT_FGL_RECUPERO As String

221-
        Case 3:

221+
222-
            XM = Xb + Xf - H / 2

222+
Public ULTF As Integer

223-
            YM = Yb + YF - L / 2

223+
Public ULTF2(300) As String

224-
         Case 11, 12, 13, 14, 21, 22, 23, 24, 15:

224+
        

    


            


                                


        

            



                
    

        Public Pastes
    

    
            

    

                    

        

    





    


    
    
    
    
    
    
    
    




    


    



                

            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!