API tools faq
paste
View difference between Paste ID: Sv5qZ6XZ and Hgd6WYGE
SHOW: | | - or go back to the newest paste.
1-
Prd Esterna
1+
'Prd Interna
2
3-
Dim STR_RIGA(1000, 11) As String

3+
Sub PROG_MAC_S4()

4-
'Dim codfnl(2000, 2) As String

4+
5-
Dim COD_WRITE(2000, 2) As String

5+
VPRSS = 0

6
str_no_repet = ""

7-
Sub EXTERNAL_PROD()

7+
8
For CFL = 1 To NM_DT

9
10
ACT_MOD = ""

11-
'STR_DXF = "+"

11+
'PROGRAMMI EMZ

12-
'

12+
If INFO_DAT(CFL, 0, 6) = "9999999" Then Call S_9999999(CFL)

13-
''****************************FAI I DXF CHE NON ESISTONO

13+
14-
'For NFGG = 1 To NM_DT

14+
If VAR_ACCORP = True And InStr(1, STR_VR_ACC, INFO_DAT(CFL, 0, 6)) = 0 Then GoTo NO_PROD_INT

15-
'

15+
If VAR_ACCORP = True And InStr(1, STR_VR_FIBRA, INFO_DAT(CFL, 0, 6)) > 0 Then GoTo NO_PROD_INT

16-
'If INFO_DAT(NFGG, 0, 23) > 0 And INFO_DAT(NFGG, 0, 28) = 0 And INFO_DAT(NFGG, 0, 11) = "1.8" Then GoTo FAI_DXF

16+
17-
'If INFO_DAT(NFGG, 0, 23) > 0 And INFO_DAT(NFGG, 0, 29) = 0 And INFO_DAT(NFGG, 0, 11) = "1.5" Then

17+
'**************************COPRIFESSURA

18-
'

18+
If INFO_DAT(CFL, 0, 6) & INFO_DAT(CFL, 0, 9) = "1014688A" Then Call S_1014688A(CFL)

19-
'FAI_DXF:

19+
If INFO_DAT(CFL, 0, 6) & INFO_DAT(CFL, 0, 9) = "1007069A" Then Call S_1007069A(CFL)

20-
'If InStr(1, STR_DXF, INFO_DAT(NFGG, 0, 16)) = 0 Then

20+
If INFO_DAT(CFL, 0, 6) & INFO_DAT(CFL, 0, 9) = "10288740" Then Call S_10288740(CFL)

21-
'Call MODEL_SUB(NFGG, 2)

21+
If INFO_DAT(CFL, 0, 6) & INFO_DAT(CFL, 0, 9) = "1026845A" Then Call S_1026845A(CFL)

22-
'Call READ_DXF(OUTPUT_FOLDER & Right(INFO_DAT(NFGG, 0, 3), 13) & ".DXF", NFGG)

22+
23-
'STR_DXF = STR_DXF & "+" & INFO_DAT(NFGG, 0, 16) & "+"

23+
If INFO_DAT(CFL, 0, 6) & INFO_DAT(CFL, 0, 9) = "10328000" Then Call S_10328000(CFL)

24-
'If INFO_DAT(NFGG, 0, 11) = "1.8" Then FileCopy OUTPUT_FOLDER & Right(INFO_DAT(NFGG, 0, 3), 13) & ".DXF", DXF_ANTE_18 & Right(INFO_DAT(NFGG, 0, 3), 13) & ".DXF" 'DA TESTARE

24+
If INFO_DAT(CFL, 0, 6) & INFO_DAT(CFL, 0, 9) = "10269010" Then Call S_10269010(CFL)

25-
'If INFO_DAT(NFGG, 0, 11) = "1.5" Then FileCopy OUTPUT_FOLDER & Right(INFO_DAT(NFGG, 0, 3), 13) & ".DXF", DXF_ANTE_15 & Right(INFO_DAT(NFGG, 0, 3), 13) & ".DXF" 'DA TESTARE

25+
If INFO_DAT(CFL, 0, 6) & INFO_DAT(CFL, 0, 9) = "1026901A" Then Call S_1026901A(CFL)

26-
'

26+
If INFO_DAT(CFL, 0, 6) & INFO_DAT(CFL, 0, 9) = "10287960" Then Call S_10287960(CFL)

27-
'End If

27+
28-
'End If

28+
'************************************** RINFORZI/COMPONENTI

29-
'Next NFGG

29+
If INFO_DAT(CFL, 0, 6) & INFO_DAT(CFL, 0, 9) = "10228760" Then Call S_10228760(CFL)

30-
''*****************************************************

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-
Call WRITE_REPORT 'SCRIVO IL REPORT PER LA PRODUZINE ESTERNA

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-
Sub WRITE_REPORT() 'CREAZIONE REPORT PER PRODUZIONE ESTERNA

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-
''Call upld_fnl_ante 'CARICA I CODICI

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-
KJ = 0

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-
For RP = 1 To 2

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-
'For WW = 1 To 2

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-
'Select Case WW

51+
If INFO_DAT(CFL, 0, 6) & INFO_DAT(CFL, 0, 9) = "1016517A" Then Call S_1016517A(CFL)

52-
'Case 1

52+
If INFO_DAT(CFL, 0, 6) & INFO_DAT(CFL, 0, 9) = "1016517B" Then Call S_1016517B(CFL)

53-
'PRG_AVL = "_1_2_3_"

53+
If INFO_DAT(CFL, 0, 6) & INFO_DAT(CFL, 0, 9) = "1016517C" Then Call S_1016517C(CFL)

54-
'Case 2

54+
If INFO_DAT(CFL, 0, 6) & INFO_DAT(CFL, 0, 9) = "1016517D" Then Call S_1016517C(CFL)

55-
'PRG_AVL = "_4_5_"

55+
If INFO_DAT(CFL, 0, 6) & INFO_DAT(CFL, 0, 9) = "1016517E" Then Call S_1016517E(CFL)

56-
'End Select

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-
PRIMO_PRG = ""

58+
'**************************************

59-
PRG_TOT2 = ""

59+
60-
For PT = 1 To 5

60+
61-
If PRG_NUM(PT) = "" Then Exit For

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

62-
'If InStr(PRG_AVL, Right(PRG_NUM(PT), 1)) > 0 Then

62+
NHD = 17

63-
If PRIMO_PRG = "" Then

63+
If INFO_DAT(CFL, 0, 6) & INFO_DAT(CFL, 0, 9) = "1006616A" Then Call S_1006616A(CFL)

64-
PRIMO_PRG = PRG_NUM(PT)

64+
If INFO_DAT(CFL, 0, 6) & INFO_DAT(CFL, 0, 9) = "1006619A" Then Call S_1006619A(CFL)

65-
PRG_TOT2 = PRIMO_PRG

65+
If INFO_DAT(CFL, 0, 6) & INFO_DAT(CFL, 0, 9) = "1006629E" Then Call S_1006629E(CFL)

66-
Else

66+
If INFO_DAT(CFL, 0, 6) & INFO_DAT(CFL, 0, 9) = "1006632B" Then Call S_1006632B(CFL)

67-
PRG_TOT2 = PRIMO_PRG & PRG_NUM(PT)

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-
'End If

69+
If INFO_DAT(CFL, 0, 6) & INFO_DAT(CFL, 0, 9) = "1006707B" Then Call S_1006707A(CFL)

70-
Next PT

70+
If INFO_DAT(CFL, 0, 6) & INFO_DAT(CFL, 0, 9) = "1006711A" Then Call S_1006711A(CFL)

71-
PRG_TOT2 = Replace(PRG_TOT2, "-", "")

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 PRG_TOT2 <> "" Then

75+
If INFO_DAT(CFL, 0, 6) & INFO_DAT(CFL, 0, 9) = "1015448C" Then Call S_1015448C(CFL)

76-
For NM = 1 To NN_MAT 'MATERIALE

76+
If INFO_DAT(CFL, 0, 6) & INFO_DAT(CFL, 0, 9) = "1015607C" Then Call S_1015607C(CFL)

77-
Erase STR_RIGA

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 RP = 2 Then SUFF = "_4AN" Else SUFF = "_2AN"

79+
If INFO_DAT(CFL, 0, 6) & INFO_DAT(CFL, 0, 9) = "1017011A" Then Call S_1017011A(CFL)

80-
NAMEFL = "FNL-" & PRG_TOT2 & "-" & Replace(STR_MTR(NM), " ", "") & "-OS" & SUFF & ".xlsx"

80+
If INFO_DAT(CFL, 0, 6) & INFO_DAT(CFL, 0, 9) = "1017132A" Then Call S_1017132A(CFL)

81-
NAMEFLPTH = OUTPUT_FOLDER & NAMEFL

81+
If INFO_DAT(CFL, 0, 6) & INFO_DAT(CFL, 0, 9) = "10253920" Then Call S_1025392A(CFL)

82-
'FINO QUA PER DARE IL TITOLO

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-
If Len(Dir(NAMEFLPTH)) > 0 Then Kill NAMEFLPTH

85+
86-
Dim wb As Workbook

86+
'**************************PIASTRONI

87-
Set wb = Workbooks.Add()

87+
NHD = 15 'CAMBIO TESTA PER PIASTRONI E PARAMENTI

88-
wb.SaveAs fileName:=NAMEFLPTH

88+
If INFO_DAT(CFL, 0, 6) & INFO_DAT(CFL, 0, 9) = "1005784C" Then Call S_1005784C(CFL)

89-
Workbooks.Open fileName:=NAMEFLPTH

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-
Cells(1 + 1, 1) = "MATERIALE"

91+
If INFO_DAT(CFL, 0, 6) & INFO_DAT(CFL, 0, 9) = "1005785A" Then Call S_1005785A(CFL)

92-
Cells(1 + 1, 2) = "QTOT"

92+
If INFO_DAT(CFL, 0, 6) & INFO_DAT(CFL, 0, 9) = "1005785B" Then Call S_1005785B(CFL)

93-
Cells(1 + 1, 3) = "COD"

93+
If INFO_DAT(CFL, 0, 6) & INFO_DAT(CFL, 0, 9) = "1006615C" Then Call S_1006615C(CFL)

94-
Cells(1 + 1, 4) = "Controllo"

94+
If INFO_DAT(CFL, 0, 6) & INFO_DAT(CFL, 0, 9) = "1006615D" Then Call S_1006615E(CFL)

95-
Cells(1 + 1, 5) = "ALS"

95+
If INFO_DAT(CFL, 0, 6) & INFO_DAT(CFL, 0, 9) = "1006615E" Then Call S_1006615E(CFL)

96-
Cells(1 + 1, 6) = "AVS"

96+
If INFO_DAT(CFL, 0, 6) & INFO_DAT(CFL, 0, 9) = "1006615F" Then Call S_1006615F(CFL)

97-
Cells(1 + 1, 7) = "AVD"

97+
If INFO_DAT(CFL, 0, 6) & INFO_DAT(CFL, 0, 9) = "1006615G" Then Call S_1006615G(CFL)

98-
Cells(1 + 1, 8) = "ALD"

98+
If INFO_DAT(CFL, 0, 6) & INFO_DAT(CFL, 0, 9) = "1006615H" Then Call S_1006615H(CFL)

99-
Cells(1 + 1, 9) = "COMMESSA"

99+
If INFO_DAT(CFL, 0, 6) & INFO_DAT(CFL, 0, 9) = "1006715D" Then Call S_1006715D(CFL)

100-
Cells(1 + 1, 10) = "COD PROG"

100+
If INFO_DAT(CFL, 0, 6) & INFO_DAT(CFL, 0, 9) = "1006715E" Then Call S_1006715E(CFL)

101-
Cells(1 + 1, 11) = "Omega"

101+
If INFO_DAT(CFL, 0, 6) & INFO_DAT(CFL, 0, 9) = "1006715F" Then Call S_1006715F(CFL)

102-
Cells(1 + 1, 12) = "SEQ"

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-
'Cells(1, 11) = "TURNO"

104+
If INFO_DAT(CFL, 0, 6) & INFO_DAT(CFL, 0, 9) = "0902895F" Then Call S_0902895F(CFL)

105-
Columns("I:I").NumberFormat = "@"

105+
If INFO_DAT(CFL, 0, 6) & INFO_DAT(CFL, 0, 9) = "0902895G" Then Call S_0902895G(CFL)

106-
Columns("J:J").NumberFormat = "@"

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-
Columns("A:A").ColumnWidth = 12

108+
If INFO_DAT(CFL, 0, 6) & INFO_DAT(CFL, 0, 9) = "0902920D" Then Call S_0902920D(CFL)

109-
Columns("B:B").ColumnWidth = 6.5

109+
If INFO_DAT(CFL, 0, 6) & INFO_DAT(CFL, 0, 9) = "0902920F" Then Call S_0902920F(CFL)

110-
Columns("C:C").ColumnWidth = 18

110+
If INFO_DAT(CFL, 0, 6) & INFO_DAT(CFL, 0, 9) = "0902935C" Then Call S_0902935C(CFL)

111-
Columns("D:D").ColumnWidth = 10

111+
If INFO_DAT(CFL, 0, 6) & INFO_DAT(CFL, 0, 9) = "0902935D" Then Call S_0902935D(CFL)

112-
Columns("E:E").ColumnWidth = 8

112+
'***********************************

113-
Columns("F:F").ColumnWidth = 8

113+
'**************************PARAMENTI

114-
Columns("G:G").ColumnWidth = 8

114+
If INFO_DAT(CFL, 0, 6) = "1007305" Then Call S_1007305(CFL)

115-
Columns("H:H").ColumnWidth = 8

115+
If INFO_DAT(CFL, 0, 6) = "1007303" Then Call S_1007303(CFL)

116-
Columns("I:I").ColumnWidth = 30

116+
If INFO_DAT(CFL, 0, 6) = "1007236" Then Call S_1007236(CFL)

117-
Columns("J:J").ColumnWidth = 12

117+
If INFO_DAT(CFL, 0, 6) & INFO_DAT(CFL, 0, 9) = "1023836A" Then Call S_1023836A(CFL)

118-
Columns("K:K").ColumnWidth = 8

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-
    Columns("H:H").Select

120+
If INFO_DAT(CFL, 0, 6) & INFO_DAT(CFL, 0, 9) = "1006951C" Then Call S_1006951C(CFL)

121-
    With Selection

121+
'***********************************

122-
        .HorizontalAlignment = xlCenter

122+
'****************************ENTRANCE -->attesa utensile asola

123-
        .VerticalAlignment = xlBottom

123+
NHD = 16 'CAMBIO TESTA PER ENTRANCE

124-
        .WrapText = False

124+
If INFO_DAT(CFL, 0, 6) & INFO_DAT(CFL, 0, 9) = "1012500B" Then Call S_1012500(CFL)

125-
        .Orientation = 0

125+
If INFO_DAT(CFL, 0, 6) & INFO_DAT(CFL, 0, 9) = "1012499B" Then Call S_1012499(CFL) 'OK GALLONI

126-
        .AddIndent = False

126+
If INFO_DAT(CFL, 0, 6) & INFO_DAT(CFL, 0, 9) = "1011908B" Then Call S_1011908(CFL)

127-
        .IndentLevel = 0

127+
If INFO_DAT(CFL, 0, 6) & INFO_DAT(CFL, 0, 9) = "1011067E" Then Call S_1011067(CFL) 'OK GALLONI

128-
        .ShrinkToFit = False

128+
If INFO_DAT(CFL, 0, 6) & INFO_DAT(CFL, 0, 9) = "1011060C" Then Call S_1011060(CFL) 'OK GALLONI

129-
        .ReadingOrder = xlContext

129+
130-
        .MergeCells = False

130+
'If INFO_DAT(CFL, 0, 6) & INFO_DAT(CFL, 0, 9) = "1037319B" Then Call S_1037319B(CFL)

131-
    End With

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-
Cells(2, 1).Select

134+
If INFO_DAT(CFL, 0, 6) & INFO_DAT(CFL, 0, 9) = "1037258E" Then Call S_1037258E(CFL)

135-
ActiveCell.Select

135+
If INFO_DAT(CFL, 0, 6) & INFO_DAT(CFL, 0, 9) = "1037258F" Then Call S_1037258F(CFL)

136-
    With Selection

136+
If INFO_DAT(CFL, 0, 6) & INFO_DAT(CFL, 0, 9) = "1042991A" Then Call S_1042991A(CFL)

137-
        .HorizontalAlignment = xlLeft

137+
If INFO_DAT(CFL, 0, 6) & INFO_DAT(CFL, 0, 9) = "1042991C" Then Call S_1042991C(CFL)

138-
        .VerticalAlignment = xlBottom

138+
If INFO_DAT(CFL, 0, 6) & INFO_DAT(CFL, 0, 9) = "1042991C01" Then Call S_1042991C(CFL)

139-
        .WrapText = False

139+
If INFO_DAT(CFL, 0, 6) & INFO_DAT(CFL, 0, 9) = "1042991D" Then Call S_1042991D(CFL)

140-
        .Orientation = 0

140+
If INFO_DAT(CFL, 0, 6) & INFO_DAT(CFL, 0, 9) = "1036865A" Then Call S_1036865A(CFL)

141-
        .AddIndent = False

141+
If INFO_DAT(CFL, 0, 6) & INFO_DAT(CFL, 0, 9) = "1036865B" Then Call S_1036865B(CFL)

142-
        .ShrinkToFit = False

142+
If INFO_DAT(CFL, 0, 6) & INFO_DAT(CFL, 0, 9) = "1036865C" Then Call S_1036865C(CFL)

143-
        .MergeCells = False

143+
If INFO_DAT(CFL, 0, 6) & INFO_DAT(CFL, 0, 9) = "10483620" Then Call S_10483620(CFL)

144-
    End With

144+
If INFO_DAT(CFL, 0, 6) & INFO_DAT(CFL, 0, 9) = "1048362A" Then Call S_1048362A(CFL)

145-
       

145+
If INFO_DAT(CFL, 0, 6) & INFO_DAT(CFL, 0, 9) = "10429030" Then Call S_10429030(CFL)

146-
    With ActiveSheet.PageSetup

146+
If INFO_DAT(CFL, 0, 6) & INFO_DAT(CFL, 0, 9) = "10429030-MOD" Then Call S_10429030(CFL)

147-
        .PrintTitleRows = ""

147+
If INFO_DAT(CFL, 0, 6) & INFO_DAT(CFL, 0, 9) = "1042903B" Then Call S_1042903B(CFL)

148-
        .PrintTitleColumns = ""

148+
If INFO_DAT(CFL, 0, 6) & INFO_DAT(CFL, 0, 9) = "1036714A" Then Call S_1036714A(CFL)

149-
    End With

149+
If INFO_DAT(CFL, 0, 6) & INFO_DAT(CFL, 0, 9) = "1036714B" Then Call S_1036714A(CFL)

150-
    ActiveSheet.PageSetup.PrintArea = ""

150+
If INFO_DAT(CFL, 0, 6) & INFO_DAT(CFL, 0, 9) = "10428730" Then Call S_10428730(CFL)

151-
    With ActiveSheet.PageSetup

151+
If INFO_DAT(CFL, 0, 6) & INFO_DAT(CFL, 0, 9) = "1042873A" Then Call S_1042873A(CFL)

152-
        .LeftHeader = "PROGRAMMA FNL-" & STR_MTR(NM) & "-OS" & SUFF & " FORNITURA ESTERNA"

152+
If INFO_DAT(CFL, 0, 6) & INFO_DAT(CFL, 0, 9) = "1042873A02" Then Call S_1042873A(CFL)

153-
        .CenterHeader = ""

153+
154-
        .RightHeader = "Doc 1.SK.U.STM501"

154+
If INFO_DAT(CFL, 0, 6) & INFO_DAT(CFL, 0, 9) = "1036629A" Then Call S_1036629A(CFL)

155-
        .LeftFooter = "&F"

155+
If INFO_DAT(CFL, 0, 6) & INFO_DAT(CFL, 0, 9) = "1036629B" Then Call S_1036629A(CFL)

156-
        .CenterFooter = ""

156+
If INFO_DAT(CFL, 0, 6) & INFO_DAT(CFL, 0, 9) = "1036629D" Then Call S_1036629D(CFL)

157-
        .RightFooter = "Pag. " & "&P" & " \ " & "&N"

157+
If INFO_DAT(CFL, 0, 6) & INFO_DAT(CFL, 0, 9) = "1036629E" Then Call S_1036629E(CFL)

158-
        .LeftMargin = Application.InchesToPoints(0.33)

158+
If INFO_DAT(CFL, 0, 6) & INFO_DAT(CFL, 0, 9) = "1036629F" Then Call S_1036629F(CFL)

159-
        .RightMargin = Application.InchesToPoints(0.33)

159+
If INFO_DAT(CFL, 0, 6) & INFO_DAT(CFL, 0, 9) = "10414310" Then Call S_10414310(CFL)

160-
        .TopMargin = Application.InchesToPoints(0.38)

160+
If INFO_DAT(CFL, 0, 6) & INFO_DAT(CFL, 0, 9) = "1041431A" Then Call S_1041431A(CFL)

161-
        .BottomMargin = Application.InchesToPoints(0.44)

161+
If INFO_DAT(CFL, 0, 6) & INFO_DAT(CFL, 0, 9) = "1041431B" Then Call S_1041431B(CFL)

162-
        .HeaderMargin = Application.InchesToPoints(0.17)

162+
If INFO_DAT(CFL, 0, 6) & INFO_DAT(CFL, 0, 9) = "1041431C" Then Call S_1041431C(CFL)

163-
        .FooterMargin = Application.InchesToPoints(0.2)

163+
If INFO_DAT(CFL, 0, 6) & INFO_DAT(CFL, 0, 9) = "1041431D" Then Call S_1041431D(CFL)

164-
        .PrintHeadings = False

164+
NHD = 14

165-
        .PrintGridlines = False

165+
'************************************

166-
        .PrintComments = xlPrintNoComments

166+
167-
        .CenterHorizontally = False

167+
168-
        .CenterVertically = False

168+
If INFO_DAT(CFL, 0, 6) & INFO_DAT(CFL, 0, 9) = "10068260" Then Call S_10068260(CFL)

169-
        .Orientation = xlLandscape

169+
If INFO_DAT(CFL, 0, 6) & INFO_DAT(CFL, 0, 9) = "1006897B" Then Call S_1006897C(CFL)

170-
        .Draft = False

170+
If INFO_DAT(CFL, 0, 6) & INFO_DAT(CFL, 0, 9) = "1006897C" Then Call S_1006897C(CFL)

171-
        .PaperSize = xlPaperA4

171+
If INFO_DAT(CFL, 0, 6) & INFO_DAT(CFL, 0, 9) = "1006897D" Then Call S_1006897D(CFL)

172-
        .FirstPageNumber = xlAutomatic

172+
If INFO_DAT(CFL, 0, 6) & INFO_DAT(CFL, 0, 9) = "1006897E" Then Call S_1006897E(CFL)

173-
        .Order = xlDownThenOver

173+
If INFO_DAT(CFL, 0, 6) & INFO_DAT(CFL, 0, 9) = "1006897H" Then Call S_1006897H(CFL)

174-
        .BlackAndWhite = False

174+
If INFO_DAT(CFL, 0, 6) & INFO_DAT(CFL, 0, 9) = "1007098C" Then Call S_1007098C(CFL)

175-
        .Zoom = 80

175+
If INFO_DAT(CFL, 0, 6) & INFO_DAT(CFL, 0, 9) = "1007098D" Then Call S_1007098D(CFL)

176-
    End With

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-
For NN = 1 To NN_CODE 'COMMESSE ANTE

181+
If INFO_DAT(CFL, 0, 6) & INFO_DAT(CFL, 0, 9) = "1014657E" Then Call S_1014657E(CFL)

182-
For I3 = 1 To 1000 'NUMERO DATI GESTITI

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 InStr(1, PRG_AVL, Right(INFO_DAT(I3, 0, 0), 1)) > 0 Then 'NUMERO PROGRAMMA

184+
If INFO_DAT(CFL, 0, 6) & INFO_DAT(CFL, 0, 9) = "1015357A" Then Call S_10153570(CFL)

185-
If INFO_DAT(I3, 0, 25) = STR_MTR(NM) Then

185+
If INFO_DAT(CFL, 0, 6) & INFO_DAT(CFL, 0, 9) = "10155310" Then Call S_10155310(CFL)

186-
If INFO_DAT(I3, 0, 2) = STR_COD(NN) And INFO_DAT(I3, 0, 23) > 0 Then

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-
STR_RIGA(NN, 3) = INFO_DAT(I3, 0, 24) 'CODICE ANTE

188+
'If INFO_DAT(cfl, 0, 6) & INFO_DAT(cfl, 0, 9) = "1016520A" Then Call S_1016520A(cfl) 'fondello -- fare dxf

189-
STR_RIGA(NN, 1) = INFO_DAT(I3, 0, 25) 'CODICE MATERIALE

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-
STR_RIGA(NN, 3 + INFO_DAT(I3, 0, 23)) = INFO_DAT(I3, 0, 26) & Chr(10) & Chr(13) & INFO_DAT(I3, 0, 13) & "x" & Round(Val(INFO_DAT(I3, 0, 12)), 0)  'CODICE RAGGRUPPAMENTO

192+
If INFO_DAT(CFL, 0, 6) & INFO_DAT(CFL, 0, 9) = "1020445B" Then Call S_1020445B(CFL)

193-
STR_RIGA(NN, 2) = Val(INFO_DAT(I3, 0, 4)) 'QUANTITà

193+
If INFO_DAT(CFL, 0, 6) & INFO_DAT(CFL, 0, 9) = "1020445C" Then Call S_1020445B(CFL)

194-
STR_RIGA(NN, 8) = INFO_DAT(I3, 0, 2) 'COMMESSA

194+
If INFO_DAT(CFL, 0, 6) & INFO_DAT(CFL, 0, 9) = "10202990" Then Call S_10202990(CFL)

195-
STR_RIGA(NN, 9) = INFO_DAT(I3, 0, 32) 'PRG

195+
If INFO_DAT(CFL, 0, 6) & INFO_DAT(CFL, 0, 9) = "1020299A" Then Call S_1020299A(CFL)

196-
STR_RIGA(NN, 10) = INFO_DAT(I3, 0, 36) 'SHIFT

196+
If INFO_DAT(CFL, 0, 6) & INFO_DAT(CFL, 0, 9) = "1020299B" Then Call S_1020299B(CFL)

197-
STR_RIGA(NN, 11) = INFO_DAT(I3, 0, 6) 'CODICE DISEGNO

197+
If INFO_DAT(CFL, 0, 6) & INFO_DAT(CFL, 0, 9) = "10206680" Then Call S_10206680(CFL)

198-
''If InStr(1, STR_RIGA(NN, 8), INFO_DAT(I3, 0, 2)) = 0 Then

198+
If INFO_DAT(CFL, 0, 6) & INFO_DAT(CFL, 0, 9) = "1020668B" Then Call S_1020668B(CFL)

199-
''STR_RIGA(NN, 8) = STR_RIGA(NN, 8) & " " & INFO_DAT(I3, 0, 2) & "-" & INFO_DAT(I3, 0, 4) 'COMMESSE + QUANTITà

199+
If INFO_DAT(CFL, 0, 6) & INFO_DAT(CFL, 0, 9) = "1020668C" Then Call S_1020668B(CFL)

200-
''STR_RIGA(NN, 2) = Val(STR_RIGA(NN, 2)) + Val(INFO_DAT(I3, 0, 4)) 'QUANTITà

200+
If INFO_DAT(CFL, 0, 6) & INFO_DAT(CFL, 0, 9) = "10206400" Then Call S_10206400(CFL)

201-
''End If

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-
'End If

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-
Next I3

207+
If INFO_DAT(CFL, 0, 6) & INFO_DAT(CFL, 0, 9) = "10339350" Then Call S_10339350(CFL)

208-
Next NN

208+
If INFO_DAT(CFL, 0, 6) & INFO_DAT(CFL, 0, 9) = "1033935A" Then Call S_1033935A(CFL)

209-
''''*******************************************************************************

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-
''For RR2 = 1 To NN_CODE 'SOMMA COMMESSE UGUALI

211+
If INFO_DAT(CFL, 0, 6) & INFO_DAT(CFL, 0, 9) = "10269750" Then Call S_10269750(CFL)

212-
''For RR3 = 1 + RR2 To NN_CODE

212+
If INFO_DAT(CFL, 0, 6) & INFO_DAT(CFL, 0, 9) = "10284540" Then Call S_10284540(CFL)

213-
''

213+
If INFO_DAT(CFL, 0, 6) & INFO_DAT(CFL, 0, 9) = "10285220" Then Call S_10285220(CFL)

214-
''If STR_RIGA(RR2, 4) = STR_RIGA(RR3, 4) And STR_RIGA(RR2, 5) = STR_RIGA(RR3, 5) And STR_RIGA(RR2, 6) = STR_RIGA(RR3, 6) And STR_RIGA(RR2, 7) = STR_RIGA(RR3, 7) Then

214+
If INFO_DAT(CFL, 0, 6) & INFO_DAT(CFL, 0, 9) = "1028522A" Then Call S_10285220(CFL)

215-
''

215+
If INFO_DAT(CFL, 0, 6) & INFO_DAT(CFL, 0, 9) = "1026712A" Then Call S_1026712A(CFL)

216-
''STR_RIGA(RR2, 2) = Val(STR_RIGA(RR2, 2)) + Val(STR_RIGA(RR3, 2))

216+
If INFO_DAT(CFL, 0, 6) & INFO_DAT(CFL, 0, 9) = "1026633A" Then Call S_1026633A(CFL)

217-
''STR_RIGA(RR2, 8) = STR_RIGA(RR2, 8) & "  " & STR_RIGA(RR3, 8)

217+
If INFO_DAT(CFL, 0, 6) & INFO_DAT(CFL, 0, 9) = "1026633B" Then Call S_1026633A(CFL)

218-
''

218+
219-
''STR_RIGA(RR3, 1) = ""

219+
If INFO_DAT(CFL, 0, 6) & INFO_DAT(CFL, 0, 9) = "10458640" Then Call S_10458640(CFL)

220-
''STR_RIGA(RR3, 2) = ""

220+
If INFO_DAT(CFL, 0, 6) & INFO_DAT(CFL, 0, 9) = "1045864A" Then Call S_1045864A(CFL)

221-
''STR_RIGA(RR3, 3) = ""

221+
If INFO_DAT(CFL, 0, 6) & INFO_DAT(CFL, 0, 9) = "1045864B" Then Call S_1045864A(CFL)

222-
''STR_RIGA(RR3, 4) = ""

222+
223-
''STR_RIGA(RR3, 5) = ""

223+
'If INFO_DAT(cfl, 0, 6) = "1007233" Then Call S_1007233(cfl)

224-
''STR_RIGA(RR3, 6) = ""

224+
'If INFO_DAT(cfl, 0, 6) = "1007253" Then Call S_1007253(cfl)

225-
''STR_RIGA(RR3, 7) = ""

225+
'If INFO_DAT(cfl, 0, 6) & INFO_DAT(cfl, 0, 9) = "1007889C" Then Call S_1007889C(cfl)

226-
''STR_RIGA(RR3, 8) = ""

226+
'If INFO_DAT(cfl, 0, 6) & INFO_DAT(cfl, 0, 9) = "1007896B" Then Call S_1007896B(cfl)

227-
''Else

227+
'If INFO_DAT(cfl, 0, 6) & INFO_DAT(cfl, 0, 9) = "1007909G" Then Call S_1007909G(cfl)

228-
''Exit For

228+
'If INFO_DAT(cfl, 0, 6) & INFO_DAT(cfl, 0, 9) = "1007093D" Then Call S_1007093D(cfl)

229-
''End If

229+
'If INFO_DAT(cfl, 0, 6) & INFO_DAT(cfl, 0, 9) = "1006927A" Then Call S_1006927A(cfl)

230-
''Next RR3

230+
'If INFO_DAT(cfl, 0, 6) = "1011763" Then Call S_1011763(cfl)

231-
''Next RR2

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-
''''*******************************************************************************

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-
RR = 1 ' 0

235+
236-
''For SH = 2 To 1 Step -1

236+
237-
'For SQ = 300 To 1 Step -1

237+
238-
For SQ = 1 To 300

238+
'********************************OUTPUT DXF ***********************

239-
For NN1 = 1 To UBound(STR_RIGA)

239+
240
If InStr(1, str_no_repet, INFO_DAT(CFL, 0, 3)) = 0 Then

241-
''If Val(STR_RIGA(NN1, 10)) = SH Then

241+
242-
If Val(STR_RIGA(NN1, 9)) = SQ Then

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-
If STR_RIGA(NN1, 3) <> "" Then

243+
cd_dxf = cd_dxf & "_1045862_1045866_1045872_1046016_1014512_1016520_1007896_1078916_1078917_1016517_"

244
cd_mag = "_3212155519_"

245-
RR = RR + 1

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-
Cells(RR + 1, 1) = STR_RIGA(NN1, 1)

246+
str_no_repet = str_no_repet & "-" & INFO_DAT(CFL, 0, 3) & "_"

247-
Cells(RR + 1, 2) = STR_RIGA(NN1, 2)

247+
248-
Cells(RR + 1, 3) = STR_RIGA(NN1, 3)

248+
249-
Cells(RR + 1, 4 + 1) = STR_RIGA(NN1, 4)

249+
If INFO_DAT(CFL, 0, 6) = "1006908" And INFO_DAT(CFL, 0, 19) = 0 Then Call MODEL_SUB(CFL, 1)

250-
Cells(RR + 1, 5 + 1) = STR_RIGA(NN1, 5)

250+
If INFO_DAT(CFL, 0, 6) = "1006914" And INFO_DAT(CFL, 0, 19) = 0 Then Call MODEL_SUB(CFL, 1)

251-
Cells(RR + 1, 6 + 1) = STR_RIGA(NN1, 6)

251+
If INFO_DAT(CFL, 0, 6) = "1006930" And INFO_DAT(CFL, 0, 19) = 0 Then Call MODEL_SUB(CFL, 1)

252-
Cells(RR + 1, 7 + 1) = STR_RIGA(NN1, 7)

252+
If INFO_DAT(CFL, 0, 6) = "1007161" And INFO_DAT(CFL, 0, 19) = 0 Then Call MODEL_SUB(CFL, 1)

253-
Cells(RR + 1, 8 + 1) = STR_RIGA(NN1, 8)

253+
If INFO_DAT(CFL, 0, 6) = "1007886" And INFO_DAT(CFL, 0, 19) = 0 Then Call MODEL_SUB(CFL, 1)

254-
If InStr(1, comm_omg_spc, STR_RIGA(NN1, 8)) > 0 Then

254+
255-
Cells(RR + 1, 10 + 1) = "SI"

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-
Cells(RR + 1, 12) = STR_RIGA(NN1, 9)

257+
''If INFO_DAT(CFL, 0, 6) = "1011908" And INFO_DAT(CFL, 0, 19) = 0 Then Call MODEL_SUB(CFL, 1)

258-
Cells(RR + 1, 9 + 1) = COD_PIEGA(STR_RIGA(NN1, 3), STR_RIGA(NN1, 11))

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-
'Cells(RR + 1, 11) = STR_RIGA(NN1, 10)

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-
'''''**************************************************************GENERO IL NUOVO CODICE DI IDENTIFICAZIONE

263+
If INFO_DAT(CFL, 0, 6) = "1007253" And INFO_DAT(CFL, 0, 19) = 0 Then Call MODEL_SUB(CFL, 1)

264-
''''VVV = Cells(RR + 1, 4 + 1) & Cells(RR + 1, 5 + 1) & Cells(RR + 1, 6 + 1) & Cells(RR + 1, 7 + 1)

264+
265-
''''

265+
266-
''''

266+
If INFO_DAT(CFL, 0, 6) = "1020145" And INFO_DAT(CFL, 0, 19) = 0 Then Call MODEL_SUB(CFL, 1)

267-
''''If Cells(RR + 1, 4 + 1) = "" Then

267+
If INFO_DAT(CFL, 0, 6) = "1022168" And INFO_DAT(CFL, 0, 19) = 0 Then Call MODEL_SUB(CFL, 1)

268-
''''CC1 = "N"

268+
If INFO_DAT(CFL, 0, 6) = "1020979" And INFO_DAT(CFL, 0, 19) = 0 Then Call MODEL_SUB(CFL, 1)

269-
''''Else

269+
If INFO_DAT(CFL, 0, 6) = "1020899" And INFO_DAT(CFL, 0, 19) = 0 Then Call MODEL_SUB(CFL, 1)

270-
''''CC1 = Right(Cells(RR + 1, 4 + 1), 2)

270+
If INFO_DAT(CFL, 0, 6) = "1023837" And INFO_DAT(CFL, 0, 19) = 0 Then Call MODEL_SUB(CFL, 1)

271-
''''End If

271+
272-
''''If Cells(RR + 1, 5 + 1) = "" Then

272+
If INFO_DAT(CFL, 0, 6) = "1016520" And INFO_DAT(CFL, 0, 19) = 0 Then Call MODEL_SUB(CFL, 1)

273-
''''CC2 = "N"

273+
274-
''''Else

274+
If INFO_DAT(CFL, 0, 6) = "1045862" And INFO_DAT(CFL, 0, 19) = 0 Then Call MODEL_SUB(CFL, 1)

275-
''''CC2 = Right(Cells(RR + 1, 5 + 1), 2)

275+
If INFO_DAT(CFL, 0, 6) = "1045866" And INFO_DAT(CFL, 0, 19) = 0 Then Call MODEL_SUB(CFL, 1)

276-
''''End If

276+
If INFO_DAT(CFL, 0, 6) = "1045872" And INFO_DAT(CFL, 0, 19) = 0 Then Call MODEL_SUB(CFL, 1)

277-
''''If Cells(RR + 1, 6 + 1) = "" Then

277+
If INFO_DAT(CFL, 0, 6) = "1046016" And INFO_DAT(CFL, 0, 19) = 0 Then Call MODEL_SUB(CFL, 1)

278-
''''CC3 = "N"

278+
If INFO_DAT(CFL, 0, 6) = "1078916" And INFO_DAT(CFL, 0, 19) = 0 Then Call MODEL_SUB(CFL, 1)

279-
''''Else

279+
If INFO_DAT(CFL, 0, 6) = "1078917" And INFO_DAT(CFL, 0, 19) = 0 Then Call MODEL_SUB(CFL, 1)

280-
''''CC3 = Right(Cells(RR + 1, 6 + 1), 2)

280+
281-
''''End If

281+
282-
''''If Cells(RR + 1, 7 + 1) = "" Then

282+
283-
''''CC4 = "N"

283+
284-
''''Else

284+
If InStr(1, str_no_repet, INFO_DAT(CFL, 0, 3)) = 0 Then 'CHECK SU MODULO O DXF MANCANTE

285-
''''CC4 = Right(Cells(RR + 1, 7 + 1), 2)

285+
If ACT_MOD = "" Then MsgBox ("MODULO " & INFO_DAT(CFL, 0, 6) & " MANCANTE")

286-
''''End If

286+
287-
''''CCC = CC1 & CC2 & CC3 & CC4

287+
288-
''''

288+
ACT_MOD = ""

289-
''''

289+
NO_PROD_INT:

290-
''''NUM_CC = quanteVolte(CCC, "N")

290+
291-
''''Select Case NUM_CC

291+
Next CFL

292-
''''Case Is >= 2

292+
293-
''''If Cells(RR + 1, 4 + 1) = "" Then

293+
294-
''''CC1 = "N"

294+
VPRSS = 1

295-
''''Else

295+
For CFL = 1 To NM_DT

296-
''''CC1 = Right(Cells(RR + 1, 4 + 1), 3)

296+
297-
''''End If

297+
If INFO_DAT(CFL, 0, 6) & INFO_DAT(CFL, 0, 9) = "1014688A" Then Call V_1014688A(CFL)

298-
''''If Cells(RR + 1, 5 + 1) = "" Then

298+
If INFO_DAT(CFL, 0, 6) & INFO_DAT(CFL, 0, 9) = "1016428C" Then Call V_1016428C(CFL)

299-
''''CC2 = "N"

299+
If INFO_DAT(CFL, 0, 6) & INFO_DAT(CFL, 0, 9) = "1014512C" Then Call V_1014512C(CFL)

300-
''''Else

300+
If INFO_DAT(CFL, 0, 6) & INFO_DAT(CFL, 0, 9) = "10339490" Then Call V_10339490(CFL)

301-
''''CC2 = Right(Cells(RR + 1, 5 + 1), 3)

301+
If INFO_DAT(CFL, 0, 6) & INFO_DAT(CFL, 0, 9) = "1016416E" Then Call V_1016416E(CFL)

302-
''''End If

302+
If INFO_DAT(CFL, 0, 6) & INFO_DAT(CFL, 0, 9) = "10339850" Then Call V_1033985B(CFL)

303-
''''If Cells(RR + 1, 6 + 1) = "" Then

303+
If INFO_DAT(CFL, 0, 6) & INFO_DAT(CFL, 0, 9) = "1033985B" Then Call V_1033985B(CFL)

304-
''''CC3 = "N"

304+
If INFO_DAT(CFL, 0, 6) & INFO_DAT(CFL, 0, 9) = "1006951B" Then Call V_1006951(CFL)

305-
''''Else

305+
If INFO_DAT(CFL, 0, 6) & INFO_DAT(CFL, 0, 9) = "1006951C" Then Call V_1006951C(CFL)

306-
''''CC3 = Right(Cells(RR + 1, 6 + 1), 3)

306+
If INFO_DAT(CFL, 0, 6) & INFO_DAT(CFL, 0, 9) = "1023836A" Then Call V_1023836A(CFL)

307-
''''End If

307+
If INFO_DAT(CFL, 0, 6) & INFO_DAT(CFL, 0, 9) = "1007889B" Then Call V_1007889B(CFL)

308-
''''If Cells(RR + 1, 7 + 1) = "" Then

308+
If INFO_DAT(CFL, 0, 6) & INFO_DAT(CFL, 0, 9) = "1007889E" Then Call V_1007889E(CFL)

309-
''''CC4 = "N"

309+
310-
''''Else

310+
If INFO_DAT(CFL, 0, 6) & INFO_DAT(CFL, 0, 9) = "1007233" Then Call V_1007233(CFL)

311-
''''CC4 = Right(Cells(RR + 1, 7 + 1), 3)

311+
If INFO_DAT(CFL, 0, 6) & INFO_DAT(CFL, 0, 9) = "1007236" Then Call V_1007236(CFL)

312-
''''End If

312+
If INFO_DAT(CFL, 0, 6) & INFO_DAT(CFL, 0, 9) = "1007253" Then Call V_1007253(CFL)

313-
''''CCC = CC1 & CC2 & CC3 & CC4

313+
If INFO_DAT(CFL, 0, 6) & INFO_DAT(CFL, 0, 9) = "1007303" Then Call V_1007303(CFL)

314-
''''Case Is < 2

314+
If INFO_DAT(CFL, 0, 6) & INFO_DAT(CFL, 0, 9) = "1007305" Then Call V_1007305(CFL)

315-
''''

315+
If INFO_DAT(CFL, 0, 6) & INFO_DAT(CFL, 0, 9) = "1007896B" Then Call V_1007896B(CFL)

316-
''''CCC = CCC

316+
If INFO_DAT(CFL, 0, 6) & INFO_DAT(CFL, 0, 9) = "1007896C" Then Call V_1007896C(CFL)

317-
''''End Select

317+
If INFO_DAT(CFL, 0, 6) & INFO_DAT(CFL, 0, 9) = "1011763" Then Call V_1011763(CFL)

318-
''''

318+
If INFO_DAT(CFL, 0, 6) & INFO_DAT(CFL, 0, 9) = "1007909H" Then Call V_1007909H(CFL)

319-
'''''************************************CODICI DOPPI

319+
If INFO_DAT(CFL, 0, 6) & INFO_DAT(CFL, 0, 9) = "1006927A" Then Call V_1006927A(CFL)

320-
''''If Cells(RR + 1, 4 + 1) & Cells(RR + 1, 5 + 1) & Cells(RR + 1, 6 + 1) & Cells(RR + 1, 7 + 1) = "722514926051830524724342" Then CCC = "14512442B"

320+
If INFO_DAT(CFL, 0, 6) & INFO_DAT(CFL, 0, 9) = "1007093D" Then Call V_1007093D(CFL)

321-
''''If Cells(RR + 1, 4 + 1) & Cells(RR + 1, 5 + 1) & Cells(RR + 1, 6 + 1) & Cells(RR + 1, 7 + 1) = "724715830357935190722817" Then CCC = "15579017B"

321+
322-
''''If Cells(RR + 1, 4 + 1) & Cells(RR + 1, 5 + 1) & Cells(RR + 1, 6 + 1) & Cells(RR + 1, 7 + 1) = "714655945755945756714657" Then CCC = "55555657B"

322+
If INFO_DAT(CFL, 0, 6) & INFO_DAT(CFL, 0, 9) = "1016416F" Then Call V_1016416F(CFL)

323-
''''If Cells(RR + 1, 4 + 1) & Cells(RR + 1, 5 + 1) & Cells(RR + 1, 6 + 1) & Cells(RR + 1, 7 + 1) = "1022660102265910241651022429" Then CCC = "60596529B"

323+
If INFO_DAT(CFL, 0, 6) & INFO_DAT(CFL, 0, 9) = "1016428D" Then Call V_1016428D(CFL)

324-
''''If Cells(RR + 1, 4 + 1) & Cells(RR + 1, 5 + 1) & Cells(RR + 1, 6 + 1) & Cells(RR + 1, 7 + 1) = "1021337102133510213361021338" Then CCC = "37353638B"

324+
If INFO_DAT(CFL, 0, 6) & INFO_DAT(CFL, 0, 9) = "1007909J" Then Call V_1007909J(CFL)

325-
''''If Cells(RR + 1, 4 + 1) & Cells(RR + 1, 5 + 1) & Cells(RR + 1, 6 + 1) & Cells(RR + 1, 7 + 1) = "830531830533" Then CCC = "NN531533B"

325+
If INFO_DAT(CFL, 0, 6) & INFO_DAT(CFL, 0, 9) = "1007909M" Then Call V_1007909M(CFL)

326-
''''If Cells(RR + 1, 4 + 1) & Cells(RR + 1, 5 + 1) & Cells(RR + 1, 6 + 1) & Cells(RR + 1, 7 + 1) = "1022402102240110224001022403" Then CCC = "02010003B"

326+
If INFO_DAT(CFL, 0, 6) & INFO_DAT(CFL, 0, 9) = "1007909M-MOD" Then Call V_1007909J(CFL)

327-
''''If Cells(RR + 1, 4 + 1) & Cells(RR + 1, 5 + 1) & Cells(RR + 1, 6 + 1) & Cells(RR + 1, 7 + 1) = "1021337102553610213361021338" Then CCC = "37363638B"

327+
If INFO_DAT(CFL, 0, 6) & INFO_DAT(CFL, 0, 9) = "1007909N" Then Call V_1007909M(CFL)

328-
'''''************************************************

328+
If INFO_DAT(CFL, 0, 6) & INFO_DAT(CFL, 0, 9) = "1007889F" Then Call V_1007889F(CFL)

329-
''''Cells(RR + 1, 9 + 1) = CCC

329+
If INFO_DAT(CFL, 0, 6) & INFO_DAT(CFL, 0, 9) = "1007889G" Then Call V_1007889H(CFL)

330-
''''

330+
If INFO_DAT(CFL, 0, 6) & INFO_DAT(CFL, 0, 9) = "1007889H" Then Call V_1007889H(CFL)

331-
''''

331+
332-
''''

332+
333-
''''ATT = 0

333+
334-
''''For G1 = 1 To Val(codfnl(0, 0))

334+
'If INFO_DAT(CFL, 0, 6) & INFO_DAT(CFL, 0, 9) = "1014700" Then Call V_1014700(CFL)

335-
''''If CCC = codfnl(G1, 1) Then

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 VVV = codfnl(G1, 2) Then

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-
''''ATT = 1

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

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-
''''MsgBox ("ATTENZIONE CODICE PROGRAMMA " & CCC & " DOPPIO, NOMINARLO DIVERSAMENTE")

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-
''''End If

340+
341-
''''End If

341+
Next CFL

342-
''''Next G1

342+
343-
''''

343+
344-
''''If ATT = 0 Then

344+
345-
''''KJ = KJ + 1

345+
346-
''''COD_WRITE(KJ, 1) = CCC

346+
        

    


            


                                


        

            



                
    

        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!