View difference between Paste ID: Nn2gKpcV and tVxfrEnE

-'Codici Disegno
+'Funzioni
 
-Sub COD_DISEGNO_FNL()
+Function def_posintab(ByVal NNN As Integer)
 
 GRUP_PEZ = INFO_DAT(NNN, 0, 31)
-STIPITI = "_1006897_1045864_" '--> 1 'nest ok -EMZ
+Select Case GRUP_PEZ
-STIPITI_PORTALI = "_1020640_1020668_1020299_1020445_1020374_" '--> 2 'nest ok -EMZ
+Case "1"
-LATO_BATTUTA = "_1010304_1007098__1033935_1033922_" '--> 3 'nest ok -EMZ
+def_posintab = 0
-STIPITI_SLIM = "" '--> 4  'prodotti esternamente
+def_posintab = INFO_DAT(NNN, 0, 35)
-RIVESTIMENTI_SLIM = "_1026712_1026975_1028454_1028522_" '_1026633_" '--> 5 'EMZ
+If def_posintab = 0 Then MsgBox ("ERRORE POSIZIONAMENTO SCARICO SU COD. " & INFO_DAT(NNN, 0, 5))
-ANTE_SPC_VTR = "_1025392_1025682_"
+
-ANTE = "_1017132_1017011_1015591_1015607_1015627_1015448_1015390_1015353_1013096_1012829_1006711_1006707_1006704_1006702_1006632_1006629_1006619_1006616_" & ANTE_SPC_VTR '--> 6 'nest ok 'ESTERNI
+Case "2"
-ANTE_2 = "_1006707_1006711_1006616_1006619_1006704_1006702_1006632_1006629_" 'ESTERNI
+def_posintab = 0
-RIVESTIMENTI_ANTA = "_1015534_1015531_1015357_1013098_1006826_" & "_1025741_1027540" '--> 7 'EMZ
+def_posintab = INFO_DAT(NNN, 0, 35)
-RIV_2 = "_1006826_"
+If def_posintab = 0 Then MsgBox ("ERRORE POSIZIONAMENTO SCARICO SU COD. " & INFO_DAT(NNN, 0, 5))
 
-RINFORZI_SALD = "_1022876_1006718_1006820_" & "_1026716_1027588_1026699_" '--> 8 'nest ksl -EMZ
+
-RNF_ANTA_SPC_VTR = "_1028084_1027762"
+Case "3"
-RINFORZI_MTG = "_1026633_1022975_1011069_1020085_1019999_1006720_1013300_1035736_1017690_" & RNF_ANTA_SPC_VTR '--> 9 'nest ksl -EMZ 'ATTENZIONE!!!!!!!!!!
+def_posintab = 5
 
 Case "4"
-TRAVERSA = "_1014657_1051969_" '--> 10 'nest ok -EMZ
+def_posintab = 1
-TRAVERSA_PORTALE = "_1020092_1020237_" '--> 11 'nest ok -EMZ
+Case "5"
 def_posintab = 1
-SOTTOSOGLIA = "_1016416_1016428_1014700_1007909_1007093_1006927_1011763_1014512_1007889_1023837_1014660_" & "_1032836_1028188_1026632_" & "_1023240_" '--> 12 'dxf-trumpf
+
 Case "6" 'ante
-RINFORZI_TRF = "_1007233_1007253_1006908_1022168_1006930_1007886_" '--> 13 'dxf-trumpf
+
-STAFFE = "_1006914_1020899_1020979_1020145_" '--> 14 'dxf-trumpf
+pstb = ""
-COPRIFESSURA = "_1014688_1007069_" & "_1032800_1026901_1028796_1028874_1026845_" '--> 15 -->emz con foglio girato
+pstb = pos_ante(INFO_DAT(NNN, 0, 6), INFO_DAT(NNN, 0, 7))
 If pstb = "" Then MsgBox ("errore posizionamento anta")
-PARAMENTI = "_1007305_1007303_1007236_1023836_1006951_" '--> 16 'nest ok -EMZ
+def_posintab = "1" & pstb
-'ENTRANCE = "_1037319_1037258_1036629_" & "_1011067_1011908_1012499_1012500_1011060_" & "_1036865_1036714_" & "_1041431_1042991_1042873_1048362_1042903_" '--> 17 'dxf-trumpf
+If InStr(1, ANTE_2, INFO_DAT(NNN, 0, 6)) > 0 Then def_posintab = "2" & pstb Else def_posintab = "1" & pstb
-'ENTRANCE_2 = "_1036865_1036714_" & "_1048362_1042903_1042873_"
+
-ENTRANCE_2 = "_1036865_1036714_" & "_1048362_1042903_1042873__1037319_1037258_1036629_" & "_1011067_1011908_1012499_1012500_1011060_" & "_1036865_1036714_" & "_1041431_1042991_1042873_1048362_1042903_"
+Case "7" 'RIV ANTA
 'def_posintab = "1" & INFO_DAT(NNN, 0, 35)
 If InStr(1, RIV_2, ACT_MOD) > 0 Then
-ALTRO_TRF = "_1007161_3212155519_1016520_1016400_" & "_1025782_1078916_1078917"
+def_posintab = INFO_DAT(NNN, 0, 35)
-ALTRO_TRF = ALTRO_TRF & "_1045862_1045866_1045872_1046016_"
+Else
-ALTRO_VPR = "_1007896_" '--> 19 'vipros ????? sono coprisoglia
+Select Case INFO_DAT(NNN, 0, 35)
-ALTRO_EMZ = "_1017452_1016517_1016390_3201155358_" '& "_1036865_1036714_" '--> 20 -EMZ + PARTICLARI ENTRANCE
+Case "1"
 def_posintab = "1"
-PIASTRONI_CAR = "_0902920_0902895_1006615_1006715_" '--> 21 -EMZ
+Case "2"
-PIASTRONI_LAND = "_0902935_1005785_1005784_" '--> 22 -EMZ
+def_posintab = "2"
 Case "3"
 def_posintab = "2"
-COD_ETICHETTATI = SOTTOSOGLIA & STAFFE & COPRIFESSURA & ALTRO_VPR & ALTRO_EMZ & ALTRO_TRF & PARAMENTI & RINFORZI_TRF & RINFORZI_MTG
+Case "4"
-STR_VR_ACC = COPRIFESSURA & SOTTOSOGLIA & ALTRO_TRF & ALTRO_EMZ & RINFORZI_TRF & ALTRO_VPR & STAFFE & RINFORZI_MTG & PARAMENTI & RINFORZI_SALD & ENTRANCE_2
+def_posintab = "1"
-STR_VR_FIBRA = PIASTRONI_CAR & PIASTRONI_LAND
+End Select
 End If
 
 
 Case "8"
-Sub DRAWING_CODE(ByVal tot_pz As Double)
+def_posintab = 1
 Case "9"
-For dc = 1 To tot_pz
+def_posintab = 2
 
-INFO_DAT(dc, 0, 31) = "0"
+If Val(INFO_DAT(NNN, 0, 13)) < 500 Then
-If InStr(1, STIPITI, INFO_DAT(dc, 0, 6)) > 0 Then INFO_DAT(dc, 0, 31) = "1"
+def_posintab = 15
-If InStr(1, STIPITI_PORTALI, INFO_DAT(dc, 0, 6)) > 0 Then INFO_DAT(dc, 0, 31) = "2"
+End If
-If InStr(1, LATO_BATTUTA, INFO_DAT(dc, 0, 6)) > 0 Then INFO_DAT(dc, 0, 31) = "3"
+
-If InStr(1, STIPITI_SLIM, INFO_DAT(dc, 0, 6)) > 0 Then INFO_DAT(dc, 0, 31) = "4"
+Case "10"
-If InStr(1, RIVESTIMENTI_SLIM, INFO_DAT(dc, 0, 6)) > 0 Then INFO_DAT(dc, 0, 31) = "5"
+def_posintab = 3
-If InStr(1, ANTE, INFO_DAT(dc, 0, 6)) > 0 Then INFO_DAT(dc, 0, 31) = "6"
+Case "11"
-If InStr(1, RIVESTIMENTI_ANTA, INFO_DAT(dc, 0, 6)) > 0 Then INFO_DAT(dc, 0, 31) = "7"
+def_posintab = 3
-If InStr(1, RINFORZI_SALD, INFO_DAT(dc, 0, 6)) > 0 Then INFO_DAT(dc, 0, 31) = "8"
+
-If InStr(1, RINFORZI_MTG, INFO_DAT(dc, 0, 6)) > 0 Then INFO_DAT(dc, 0, 31) = "9"
+Case "12"
-If InStr(1, TRAVERSA, INFO_DAT(dc, 0, 6)) > 0 Then INFO_DAT(dc, 0, 31) = "10"
+def_posintab = 2
-If InStr(1, TRAVERSA_PORTALE, INFO_DAT(dc, 0, 6)) > 0 Then INFO_DAT(dc, 0, 31) = "11"
+Case "13"
-If InStr(1, SOTTOSOGLIA, INFO_DAT(dc, 0, 6)) > 0 Then INFO_DAT(dc, 0, 31) = "12"
+def_posintab = 2
-If InStr(1, RINFORZI_TRF, INFO_DAT(dc, 0, 6)) > 0 Then INFO_DAT(dc, 0, 31) = "13"
+Case "14"
-If InStr(1, STAFFE, INFO_DAT(dc, 0, 6)) > 0 Then INFO_DAT(dc, 0, 31) = "14"
+def_posintab = 2
-If InStr(1, COPRIFESSURA, INFO_DAT(dc, 0, 6)) > 0 Then INFO_DAT(dc, 0, 31) = "15"
+
-If InStr(1, PARAMENTI, INFO_DAT(dc, 0, 6)) > 0 Then INFO_DAT(dc, 0, 31) = "16"
+Case "15"
-If InStr(1, ENTRANCE, INFO_DAT(dc, 0, 6)) > 0 Then INFO_DAT(dc, 0, 31) = "17"
+def_posintab = 3
-If InStr(1, ALTRO_TRF, INFO_DAT(dc, 0, 6)) > 0 Then INFO_DAT(dc, 0, 31) = "18"
+
-If InStr(1, ALTRO_VPR, INFO_DAT(dc, 0, 6)) > 0 Then INFO_DAT(dc, 0, 31) = "19"
+Case "16"
-If InStr(1, ALTRO_EMZ, INFO_DAT(dc, 0, 6)) > 0 Then INFO_DAT(dc, 0, 31) = "20"
+def_posintab = 2
-If InStr(1, PIASTRONI_CAR, INFO_DAT(dc, 0, 6)) > 0 Then INFO_DAT(dc, 0, 31) = "21"
+Case "17"
-If InStr(1, PIASTRONI_LAND, INFO_DAT(dc, 0, 6)) > 0 Then INFO_DAT(dc, 0, 31) = "22"
+def_posintab = 2
-If InStr(1, ENTRANCE_2, INFO_DAT(dc, 0, 6)) > 0 Then INFO_DAT(dc, 0, 31) = "23"
+Case "18"
-If INFO_DAT(dc, 0, 31) = "0" Then MsgBox ("IL CODICE " & INFO_DAT(dc, 0, 6) & " NON E' INSERITO NEL DATABASE")
+def_posintab = 2
 Case "19"
-Next dc
+def_posintab = 2
 Case "20"
 def_posintab = 4
 If Val(INFO_DAT(NNN, 0, 13)) < 500 Then
 def_posintab = 15
 End If
 
 Case "21" 'PIAST CABINA
 def_posintab = 31 '1
 Case "22" 'PIAST PIANO
 def_posintab = 32 '2
 If INFO_DAT(NNN, 0, 6) = "0902935" Then def_posintab = 33 'PIASTRONE PIANO 4 ANTE
 
 Case "23"
 def_posintab = 1
 
 Case Else
 MsgBox ("ERRORE POSIZIONAMETO TAVOLA DI SCARICO")
 def_posintab = 1
 End Select
 
 
 End Function
 
 
 
 Function TablePosition(ByVal H As Double, ByVal L As Double, ByVal Xf As Double, ByVal YF As Double, ByVal PartType As Byte) As String
     Dim Xb As Double
     Dim Yb As Double
     Dim XM As Double
     Dim YM As Double
     Dim limite As Double
 
     limite = 590
     Select Case PartType
         Case 1: 'LAP - DX
             Xb = 3400 - 30
             Yb = 1400 / 4
             If L > limite Then
                 Yb = Yb + (L - limite) / 2
             End If
         Case 2: 'LC - SX
             Xb = 3400 - 30
             Yb = 1400 * 3 / 4
             If L > limite Then
                 Yb = Yb - (L - limite) / 2
             End If
         Case 3: 'TOP
             Xb = 585
             Yb = 1400 / 2
         Case 4: 'componentistica
             Xb = 3400 / 2
             Yb = 1400 * 3 / 4
         Case 5: 'LATO BATTUTA
             Xb = 3400 - 50
             Yb = 1400 * 2 / 4
 
 
         Case 11: 'anta
             Xb = 3400 - 80
             Yb = 1000 '1400 / 4 ''40 '1400 / 4 - CPM
             If L > limite Then
                 Yb = Yb + (L - limite) / 2
             End If
         Case 12: 'anta
             Xb = 3400 - 80
             Yb = 500 '1400 / 2 - 30 '390 - 20 '1400 * 2 / 4 - CPM
             If L > limite Then
                 Yb = Yb - (L - limite) / 2
             End If
         Case 13: 'anta
             Xb = 3400 - 80
             Yb = 500 '1400 * 3 / 4 - 60 '740 - 50 '1400 * 3 / 4 - CPM
             If L > limite Then
                 Yb = Yb - (L - limite) / 2
             End If
         Case 14: 'anta
             Xb = 3400 - 80
             Yb = 1000 '1400 - 90 '1090 - 70 '1400 * 4 / 4 - CPM
             If L < 215 Then Yb = Yb - 25
             If L > limite Then
                 Yb = Yb - (L - limite) / 2
             End If
 
          Case 21: 'anta 2
             Xb = 3400 - 80
             Yb = 1000
             If L > limite Then
                 Yb = Yb + (L - limite) / 2
             End If
         Case 22: 'anta 2
             Xb = 3400 - 80
             Yb = 500
             If L > limite Then
                 Yb = Yb - (L - limite) / 2
             End If
         Case 23: 'anta 2
             Xb = 3400 - 80
             Yb = 500
             If L > limite Then
                 Yb = Yb - (L - limite) / 2
             End If
         Case 24: 'anta 2
             Xb = 3400 - 80
             Yb = 1000
             If L < 215 Then Yb = Yb - 25
             If L > limite Then
                 Yb = Yb - (L - limite) / 2
             End If
 
         Case 15: 'rinforzi piccoli
             Xb = 1500
             Yb = (1400 * 3 / 4) - 100
             If L < 215 Then Yb = Yb - 25
             If L > limite Then
                 Yb = Yb - (L - limite) / 2
             End If
 
 
         Case 31: 'PIASTRONI
             Xb = 200
             Yb = 900
         Case 32: 'PIASTRONI
             Xb = 200
             Yb = 530
         Case 33: 'PIASTRONI
             Xb = 200
             Yb = 100
 
 
         Case Else:
             MsgBox "Error of part type in table position"
     End Select
 
     Select Case PartType
         Case 1, 2, 4, 5, 6:
             XM = Xb + Xf - H
             YM = Yb + YF - L / 2
         Case 3:
             XM = Xb + Xf - H / 2
             YM = Yb + YF - L / 2
          Case 11, 12, 13, 14, 21, 22, 23, 24, 15:
             XM = Xb + Xf - H
             YM = Yb + YF - L / 2
             If YM > 1025 Then YM = 1025 'SOLO PER RIV ANTA
         Case 31, 32, 33:
             XM = Xb '+ Xf - H
             YM = Yb '+ YF - L / 2
 
     End Select
     TablePosition = ",1," & Jcdf(XM) & "," & Jcdf(YM) & ",1,1,0,1,0,0)"
 End Function
 
 
 
 Function UNLOADER(ByVal ACTY As Byte, ByVal DIM_X As Single, ByVal DIM_Y As Single, ByVal OFFSET_Y As Double, ByVal OFFSET_X As Double) As String
 
 
     If ACT_MOD = "1036865" Then
     OFFSET_Y = 17 'OFFSET PER CODICE DISEGNO
     OFFSET_X = -5
     End If
     If ACT_MOD = "1036714" Then
     OFFSET_Y = 0 'OFFSET PER CODICE DISEGNO
     OFFSET_X = 40
     End If
 
 
     UNLOADER = ""
     DIM_Y = Int(DIM_Y)
 
     dst_x = 0
     If DIM_Y < 75 And DIM_X > 1800 Then 'trascinamento
     dst_x = DIM_X - 748
     UNLOADER = "(1," & Jcdf(dst_x) & ",16,4,1,3,5,7,200,2,0,0,0,0,1,1,0,0,TPAR0)))"
     Exit Function
     End If
 
     If InStr(1, RIVESTIMENTI_ANTA, ACT_MOD) > 0 And DIM_X > 2000 And DIM_Y < 200 Then
         OFFSET_X = 280
     End If
 
 
 
     DIVARICO = DIM_Y - 220
     If DIM_Y >= 700 Then DIVARICO = DIM_Y - 400
 
     If DIVARICO <= 200 Then DIVARICO = 200
         If (DIM_Y > 400) Then UNLOADER = Jcdf(53 + 25 + OFFSET_Y) & ",32,1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21,22,23,24,25,26,27,28,29,30,31,32,"
         If (DIM_Y > 375 And DIM_Y <= 400) Then UNLOADER = Jcdf(27.6 + OFFSET_Y) & ",32,1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21,22,23,24,25,26,27,28,29,30,31,32,"
         If (DIM_Y > 350 And DIM_Y <= 375) Then UNLOADER = Jcdf(27.6 + OFFSET_Y) & ",32,1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21,22,23,24,25,26,27,28,29,30,31,32,"
         If (DIM_Y > 325 And DIM_Y <= 350) Then UNLOADER = Jcdf(25 + OFFSET_Y) & ",32,1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21,22,23,24,25,26,27,28,29,30,31,32,"
         If (DIM_Y > 300 And DIM_Y <= 325) Then UNLOADER = Jcdf(27 + OFFSET_Y) & ",32,1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21,22,23,24,25,26,27,28,29,30,31,32,"
         If (DIM_Y > 275 And DIM_Y <= 300) Then UNLOADER = Jcdf(28.2 + OFFSET_Y) & ",32,1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21,22,23,24,25,26,27,28,29,30,31,32,"
         If (DIM_Y > 250 And DIM_Y <= 275) Then UNLOADER = Jcdf(24.3 + OFFSET_Y) & ",32,1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21,22,23,24,25,26,27,28,29,30,31,32,"
         If (DIM_Y > 200 And DIM_Y <= 250) Then UNLOADER = Jcdf(27 + OFFSET_Y) & ",15,1,2,3,4,5,6,7,8,9,10,11,12,13,14,15," '",32,1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21,22,23,24,25,26,27,28,29,30,31,32,"
         If (DIM_Y > 115 And DIM_Y <= 200) Then UNLOADER = Jcdf(23 + OFFSET_Y) & ",11,1,2,3,4,5,6,7,8,9,11,14," '",32,1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21,22,23,24,25,26,27,28,29,30,31,32,"
         If (DIM_Y > 80 And DIM_Y <= 115) Then UNLOADER = Jcdf(16 + OFFSET_Y) & ",7,1,3,5,7,9,11,14," '",32,1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21,22,23,24,25,26,27,28,29,30,31,32,"
 
         If (DIM_Y > 65 And DIM_Y <= 80) Then
         If DIM_X < 500 Then
             UNLOADER = Jcdf(16 + OFFSET_Y) & ",2,1,3,"
         Else
             UNLOADER = Jcdf(16 + OFFSET_Y) & ",32,1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21,22,23,24,25,26,27,28,29,30,31,32,"
         End If
         End If
 
         If (DIM_Y > 38 And DIM_Y <= 65) Then
         If DIM_X < 300 Then
         UNLOADER = Jcdf(16 + OFFSET_Y) & ",1,1,"
         Else
 '        UNLOADER = Jcdf(16 + OFFSET_Y) & ",2,1,3,"
         UNLOADER = Jcdf(16 + OFFSET_Y) & ",4,1,3,5,7,"
         End If
         End If
 
 
     If UNLOADER = "" Then Exit Function
 
     If InStr(1, TRAVERSA, ACT_MOD) > 0 Or InStr(1, TRAVERSA_PORTALE, ACT_MOD) > 0 Then
     XX = 80 + OFFSET_X
     Else
     XX = 90 + OFFSET_X
     End If
 
     Select Case ACTY
         Case 1     '*********************** PEZZO NON IN PINZA
             UNLOADER = "(1," & XX & "," & UNLOADER & DIVARICO & ",2,0,0,0,0,1,1,0,0,TPAR0)" & "))"
         Case 2     '*********************** PEZZO IN PINZA
             UNLOADER = "(7," & XX & "," & UNLOADER & DIVARICO & ",2,1,1,1,0,1,-1,0,0,TPAR0)"
     End Select
 
 End Function
 
 
 
 Function UnloadOutline(ByVal FCX As Double, ByVal FCY As Double, ByVal X1 As Double, ByVal Y1 As Double, ByVal Xmax As Double, ByVal Ymax As Double) As String
     Dim FcOuX As Double
     Dim FcOuy As Double
     'FCX and FCY are the dimensions of the final cut tool
     'X1 and Y1 are the position of the left and down corner of the final cut
     'Hmax and Ymax are the dimensions of the piece
 
     FcOuX = -FCX / 2 - X1 + 6
     FcOuy = -FCY / 2 - Y1
     UnloadOutline = "'INIZIO GEOMSCARICO=" & Jcdf(FcOuX) & "," & Jcdf(FcOuy) & ",1,0" & vbCrLf & "RET(0,0," & Jcdf(Xmax) & "," & Jcdf(Ymax) & ",SN,0)" & vbCrLf & "'FINE GEOMSCARICO"
 End Function
 
 
 Function INPUT_VAL(ByVal ACTIV_MODE As Byte, ByVal PROMT As String, ByVal DEFAULT As String, ByVal TITLE As String) As Double  'FUNZIONE X GLI INPUT NUMERICI
 Select Case ACTIV_MODE
 Case 1
 BEGIN_LAB:
 RHC = InputBox(PROMT, TITLE, DEFAULT)
 '*******************************************
 RP2 = RP2 + 1
 RPT_SPC(RP, RP2, 1) = RHC
 RPT_SPC(RP, RP2, 2) = PROMT
 '*******************************************
 If RHC = "" Then GoTo BEGIN_LAB
 
 INPUT_VAL = Vbdf(RHC)
 
 Case 2
 For i = 1 To 100
 If INFO_VAR(1, i) = PROMT Then
 RTD = Vbdf(INFO_VAR(2, i))
 If RTD = "" Then
 Stop
 MsgBox "ERRORE: MANCA VALORE DATO " & PROMT & "  " & INFO_VAR(0, 2) & "   SARA' ASSEGNATO VALORE 0 ALLA VARIABILE"
 RTD = 0
 End If
 INPUT_VAL = RTD
 End If
 Next i
 End Select
 
 End Function
 
 
 Function T_SMUS(ByVal XC As Double, ByVal YC As Double)
 
 T_SMUS = T_SPECIAL(XC, YC, "7SQ", "0")
 'FARE FUNZIONE PER LO SMUSSO CON QUADRO A 45°
 
 End Function
 
 Function T_SMUS_ST(ByVal XC As Double, ByVal YC As Double)
 
 T_SMUS_ST = T_PUNCH(XC, YC, "T335", "0")
 'FARE FUNZIONE PER LO SMUSSO CON QUADRO A 45°
 
 End Function
 
 Sub CUT_END_S(ByVal H As Double, ByVal L As Double, ByVal VAR_BP As String, ByVal POSINTAB As Double)
 
 Erase STR_OUT
 
 If InStr(1, PIASTRONI_LAND, ACT_MOD) > 0 Or InStr(1, PIASTRONI_CAR, ACT_MOD) > 0 Then PPSS = 1 Else PPSS = 0
 
 If InStr(1, STIPITI, ACT_MOD) > 0 Then
 OFFSET_XX = 25
 Else
 OFFSET_XX = 0
 End If
 
 
 Select Case VAR_BP
 Case "0"
     STR_OUT(0) = TablePosition(H, L, 0, 0, POSINTAB)
     STR_OUT(1) = TL_CUT_O
     STR_OUT(2) = "TOOLANGLE(0)"
     STR_OUT(3) = "MIDCUT(N)"
     If H > 1250 Or PPSS = 1 Then
     STR_OUT(4) = UnloadOutline(110, 6, 230, -6, H, L)
     STR_OUT(5) = "PUN(LIN" & CNLV_GEO & "(P," & 230 & "," & -LUTH & ",0," & -LUTH & ",-6,-6,0,M0))"
     STR_OUT(6) = "PUN(LIN" & CNLV_GEO & "(P," & Jcdf(H) & "," & -LUTH & ",230," & -LUTH & ",-6,-6,0,M0,UNLDR" & UNLOADER(1, H, L, 0, OFFSET_XX)
     Else
     If InStr(1, TRAVERSA, ACT_MOD) > 0 Or InStr(1, TRAVERSA_PORTALE, ACT_MOD) > 0 Then
     STR_OUT(4) = UnloadOutline(110, 6, -4, -6, H, L)
     STR_OUT(5) = "PUN(LIN" & CNLV_GEO & "(P," & Jcdf(H) & "," & -LUTH & ",0," & -LUTH & ",-6,-10,0,M0,UNLDR" & UNLOADER(1, H, L, 0, OFFSET_XX)
     Else
     STR_OUT(4) = UnloadOutline(110, 6, 0, -6, H, L)
     STR_OUT(5) = "PUN(LIN" & CNLV_GEO & "(P," & Jcdf(H) & "," & -LUTH & ",0," & -LUTH & ",-6,-6,0,M0,UNLDR" & UNLOADER(1, H, L, 0, OFFSET_XX)
     End If
     End If
 Case "B"
     STR_OUT(0) = TablePosition(H, L, 0, 0, POSINTAB)
     STR_OUT(1) = UnloadOutline(0, 0, 0, 0, H, L)
 
 Case "C"
     Call CUT_END_T(H, L, 0, 0, "0", POSINTAB)
 
 Case Else
     MsgBox ("ERRORE VAR_BP")
 End Select
 
 End Sub
 
 
 Sub CUT_END_S_RV(ByVal H As Double, ByVal L As Double, ByVal VAR_BP As String, ByVal POSINTAB As Double)
 
 Erase STR_OUT
 
 
 Select Case VAR_BP
 Case "0"
     STR_OUT(0) = TablePosition(H, L, 0, 0, POSINTAB)
     STR_OUT(1) = TL_CUT_O
     STR_OUT(2) = "TOOLANGLE(0)"
     STR_OUT(3) = "MIDCUT(N)"
     STR_OUT(4) = UnloadOutline(110, 6, 0, -6, H, L)
     STR_OUT(5) = "PUN(LIN" & CNLV_GEO & "(P," & Jcdf(H) & "," & -LUTH & ",0," & -LUTH & ",-6,-6,0,M0,UNLDR" & UNLOADER(1, H, L, 0, 0)
 
 Case "B"
     STR_OUT(0) = TablePosition(H, L, 0, 0, POSINTAB)
     STR_OUT(1) = UnloadOutline(0, 0, 0, 0, H, L)
 
 Case "C"
     Call CUT_END_T(H, L, 0, 0, "0", POSINTAB)
 
 Case Else
     MsgBox ("ERRORE VAR_BP")
 End Select
 
 End Sub
 
 
 Sub CUT_END_S_PORT(ByVal H As Double, ByVal L As Double, ByVal INTGL As Double, ByVal VAR_BP As String, ByVal POSINTAB As Double)
 
 Erase STR_OUT
 
 
 
 Select Case VAR_BP
 Case "0"
     STR_OUT(0) = TablePosition(H, L, 0, 0, POSINTAB)
     STR_OUT(1) = TL_CUT_O
     STR_OUT(2) = "TOOLANGLE(0)"
     STR_OUT(3) = "MIDCUT(N)"
     STR_OUT(4) = UnloadOutline(110, 6, INTGL, -6, H, L)
     STR_OUT(5) = "PUN(LIN" & CNLV_GEO & "(P," & Jcdf(INTGL) & "," & -LUTH & ",0," & -LUTH & ",-6,-6,0,M0))"
     STR_OUT(6) = "PUN(LIN" & CNLV_GEO & "(P," & Jcdf(H) & "," & -LUTH & "," & Jcdf(INTGL) & "," & -LUTH & ",-6,-6,0,M0,UNLDR" & UNLOADER(1, H, L, 0, 0)
 
 Case "B"
     STR_OUT(0) = TablePosition(H, L, 0, 0, POSINTAB)
     STR_OUT(1) = UnloadOutline(0, 0, 0, 0, H, L)
 
 
 Case Else
     MsgBox ("ERRORE VAR_BP")
 End Select
 
 End Sub
 
 
 Sub CUT_END_T(ByVal H As Double, ByVal L As Double, ByVal SCN_X As Double, ByVal SCN_Y As Double, ByVal VAR_BP As String, ByVal POSINTAB As Double)
 
 Erase STR_OUT
 
 
 If InStr(1, STIPITI, ACT_MOD) > 0 Then
 OFFSET_XX = 25
 Else
 OFFSET_XX = 0
 End If
 
 
 Select Case VAR_BP
 Case "0"
 
 If L < 110 Then
 
 If L < 38 Then MsgBox ("ATTENZIONE PEZZO " & ACT_MOD & " INFERIORE A 38mm, NON FATTIBILE"), vbCritical
 
 
     STR_OUT(0) = TablePosition(H, L, 0, 0, POSINTAB)
     STR_OUT(1) = "'INIZIO BLOCCO=ABABAB"
     STR_OUT(2) = TL_CUT_V2
     STR_OUT(3) = "TOOLANGLE(90)"
     STR_OUT(4) = "MIDCUT(N)"
     STR_OUT(5) = "PUN(LIN" & CNLV_GEO & "(P," & "0" & "," & Jcdf(L - SCN_Y) & "," & "0" & "," & SCN_Y & ",-6,-6,0,M0))"
     STR_OUT(6) = TL_CUT_O
     STR_OUT(7) = "TOOLANGLE(0)"
     STR_OUT(8) = "MIDCUT(N)"
     STR_OUT(9) = UnloadOutline(110, 6, SCN_X, -6, H, L)
     STR_OUT(10) = "PUN(LIN" & CNLV_GEO & "(P," & Jcdf(H - SCN_X) & "," & -LUTH & "," & Jcdf(SCN_X) & "," & -LUTH & ",-6,-6,0,M0,UNLDR" & UNLOADER(1, H, L, 0, OFFSET_XX)
     STR_OUT(11) = "'FINE BLOCCO"
 
 Else
     STR_OUT(0) = TablePosition(H, L, 0, 0, POSINTAB)
     STR_OUT(1) = "'INIZIO BLOCCO=ABABAB"
     STR_OUT(2) = TL_CUT_O
     STR_OUT(3) = "TOOLANGLE(0)"
     STR_OUT(4) = "MIDCUT(N)"
     STR_OUT(5) = "PUN(LIN" & CNLV_GEO & "(P," & Jcdf(H - SCN_X) & ",-6," & Jcdf(SCN_X) & ",-6,-6,-6,0,M0))"
     STR_OUT(6) = TL_CUT_V
     STR_OUT(7) = "TOOLANGLE(90)"
     STR_OUT(8) = "MIDCUT(N)"
     STR_OUT(9) = UnloadOutline(10, 110, 0, SCN_Y, H, L)
     STR_OUT(10) = "PUN(LIN" & CNLV_GEO & "(P," & "0" & "," & Jcdf(L - SCN_Y) & "," & "0" & "," & SCN_Y & ",-6,-6,0,M0,UNLDR" & UNLOADER(1, H, L, 0, OFFSET_XX)
     STR_OUT(11) = "'FINE BLOCCO"
 End If
 
 Case "C"
     STR_OUT(0) = TablePosition(H, L, 0, 0, POSINTAB)
     STR_OUT(1) = TL_CUT_O
     STR_OUT(2) = "TOOLANGLE(0)"
     STR_OUT(3) = "MIDCUT(N)"
     STR_OUT(4) = UnloadOutline(110, 6, SCN_X, -6, H, L)
     STR_OUT(5) = "PUN(LIN" & CNLV_GEO & "(P," & Jcdf(H - SCN_X) & "," & -LUTH & "," & Jcdf(SCN_X) & "," & -LUTH & ",-6,-6,0,M0,UNLDR" & UNLOADER(1, H, L, 0, OFFSET_XX)
 
 Case Else
     MsgBox ("ERRORE VAR_BP")
 End Select
 
 End Sub
 
 
 
 Sub CUT_END_T_special(ByVal H As Double, ByVal L As Double, ByVal SCN_X As Double, ByVal SCN_Y As Double, ByVal VAR_BP As String, ByVal POSINTAB As Double)
 
 'If InStr(1, STR_STAF, ACT_MOD) = 0 Then
 'If H < L Then
 'H1 = H
 'L1 = L
 'H = L1
 'L = H1
 'End If
 'End If
 
 
 Erase STR_OUT
 
     STR_OUT(0) = TablePosition(H, L, 0, 0, POSINTAB)
     STR_OUT(1) = "'INIZIO BLOCCO=ABABAB"
     STR_OUT(2) = TL_CUT_V
     STR_OUT(3) = "TOOLANGLE(90)"
     STR_OUT(4) = "MIDCUT(N)"
     STR_OUT(5) = "PUN(LIN" & CNLV_GEO & "(P," & "0" & "," & Jcdf(L - SCN_Y) & "," & "0" & "," & SCN_Y & ",-6,-6,0,M0))"
     STR_OUT(6) = TL_CUT_O
     STR_OUT(7) = "TOOLANGLE(0)"
     STR_OUT(8) = "MIDCUT(N)"
     STR_OUT(9) = UnloadOutline(110, 6, SCN_X, -6, H, L)
     STR_OUT(10) = "PUN(LIN" & CNLV_GEO & "(P," & Jcdf(H - SCN_X) & "," & -LUTH & "," & Jcdf(SCN_X) & "," & -LUTH & ",-6,-6,0,M0,UNLDR" & UNLOADER(1, H, L, 0, 0)
     STR_OUT(11) = "'FINE BLOCCO"
 
 
 
 End Sub
 
 
 
 Sub CUT_END_TSVU(ByVal H As Double, ByVal L As Double, ByVal SVU_X1 As Double, ByVal SVU_X2 As Double, ByVal SVU_Y1 As Double, ByVal SVU_Y2 As Double, ByVal VAR_BP As String, ByVal POSINTAB As Double)
 
 SVU_Y = SVU_Y1
 If SVU_X1 > SVU_X2 Then
 
 Else
 SVU_P1 = SVU_X1
 SVU_P2 = SVU_X2
 SVU_X1 = SVU_P2
 SVU_X2 = SVU_P1
 End If
 
 'If InStr(1, STR_STAF, ACT_MOD) = 0 Then
 'If H < L Then
 'H1 = H
 'L1 = L
 'H = L1
 'L = H1
 'End If
 'End If
 
 Erase STR_OUT
 SCN_X = 0
 SCN_Y = 0
 
 Select Case VAR_BP
 Case "C"
     STR_OUT(0) = TablePosition(H, L, 0, 0, POSINTAB)
     STR_OUT(1) = "'INIZIO BLOCCO=ABABAB"
     STR_OUT(2) = TL_CLN
     STR_OUT(3) = "TOOLANGLE(0)"
     STR_OUT(4) = "MIDCUT(N)"
     STR_OUT(5) = "PUN(LIN" & CNLV_GEO & "(P," & Jcdf(SVU_X1) & "," & Jcdf(SVU_Y) & "," & Jcdf(SVU_X2) & "," & Jcdf(SVU_Y) & ",0,0,0,M0))"
     STR_OUT(6) = TL_CUT_O
     STR_OUT(7) = "TOOLANGLE(0)"
     STR_OUT(8) = "MIDCUT(N)"
     STR_OUT(9) = "PUN(LIN" & CNLV_GEO & "(P," & Jcdf(H - SCN_X) & ",-6," & Jcdf(SCN_X) & ",-6,-6,-6,0,M0))"
     If L < 110 Then
     STR_OUT(10) = TL_CUT_V2
     STR_OUT(11) = "TOOLANGLE(90)"
     STR_OUT(12) = "MIDCUT(N)"
     STR_OUT(13) = UnloadOutline(5, 50, 0, SCN_Y, H, L)
     STR_OUT(14) = "PUN(LIN" & CNLV_GEO & "(P," & "0" & "," & Jcdf(L - SCN_Y) & "," & "0" & "," & SCN_Y & ",-6,-6,0,M0,UNLDR" & UNLOADER(1, H, L, 0, 0)
     STR_OUT(15) = "'FINE BLOCCO"
 
     Else
     STR_OUT(10) = TL_CUT_V
     STR_OUT(11) = "TOOLANGLE(90)"
     STR_OUT(12) = "MIDCUT(N)"
     STR_OUT(13) = UnloadOutline(10, 110, 0, SCN_Y, H, L)
     STR_OUT(14) = "PUN(LIN" & CNLV_GEO & "(P," & "0" & "," & Jcdf(L - SCN_Y) & "," & "0" & "," & SCN_Y & ",-6,-6,0,M0,UNLDR" & UNLOADER(1, H, L, 0, 0)
     STR_OUT(15) = "'FINE BLOCCO"
     End If
 
 Case "0"
     STR_OUT(0) = TablePosition(H, L, 0, 0, POSINTAB)
     STR_OUT(1) = "'INIZIO BLOCCO=ABABAB"
     STR_OUT(2) = TL_CLN
     STR_OUT(3) = "TOOLANGLE(0)"
     STR_OUT(4) = "MIDCUT(N)"
     STR_OUT(5) = "PUN(LIN" & CNLV_GEO & "(P," & Jcdf(SVU_X1) & "," & Jcdf(SVU_Y) & "," & Jcdf(SVU_X2) & "," & Jcdf(SVU_Y) & ",0,0,0,M0))"
     STR_OUT(6) = TL_CUT_O
     STR_OUT(7) = "TOOLANGLE(0)"
     STR_OUT(8) = "MIDCUT(N)"
     STR_OUT(9) = UnloadOutline(110, 6, SCN_X, -6, H, L)
     STR_OUT(10) = "PUN(LIN" & CNLV_GEO & "(P," & Jcdf(H - SCN_X) & "," & -LUTH & "," & Jcdf(SCN_X) & "," & -LUTH & ",-6,-6,0,M0,UNLDR" & UNLOADER(1, H, L, 0, 0)
     STR_OUT(11) = "'FINE BLOCCO"
 
 Case Else
     MsgBox ("ERRORE VAR_BP")
 End Select
 
 End Sub
 
 
 Sub CUT_END_TSVU_PST(ByVal H As Double, ByVal L As Double, ByVal SVU_X1 As Double, ByVal SVU_X2 As Double, ByVal SVU_Y1 As Double, ByVal SVU_Y2 As Double, ByVal VAR_BP As String, ByVal POSINTAB As Double)
 
 SVU_Y = SVU_Y1
 If SVU_X1 > SVU_X2 Then
 
 Else
 SVU_P1 = SVU_X1
 SVU_P2 = SVU_X2
 SVU_X1 = SVU_P2
 SVU_X2 = SVU_P1
 End If
 
 
 Erase STR_OUT
 SCN_X = 0
 SCN_Y = 0
 
 Select Case VAR_BP
 Case "C"
     STR_OUT(0) = TablePosition(H, L, 0, 0, POSINTAB)
     STR_OUT(1) = "'INIZIO BLOCCO=ABABAB"
     STR_OUT(2) = TL_CLN
     STR_OUT(3) = "TOOLANGLE(0)"
     STR_OUT(4) = "MIDCUT(N)"
     STR_OUT(5) = "PUN(LIN" & CNLV_GEO & "(P," & Jcdf(0) & "," & Jcdf(SVU_Y) & "," & Jcdf(250) & "," & Jcdf(SVU_Y) & ",0,0,0,M0))"
     STR_OUT(6) = "PUN(LIN" & CNLV_GEO & "(P," & Jcdf(H - 250) & "," & Jcdf(SVU_Y) & "," & Jcdf(0) & "," & Jcdf(SVU_Y) & ",0,0,0,M0))"
     STR_OUT(7) = "PUN(LIN" & CNLV_GEO & "(P," & Jcdf(SVU_X1) & "," & Jcdf(SVU_Y) & "," & Jcdf(SVU_X2) & "," & Jcdf(SVU_Y) & ",0,0,0,M0))"
     STR_OUT(8) = TL_CUT_O
     STR_OUT(9) = "TOOLANGLE(0)"
     STR_OUT(10) = "MIDCUT(N)"
     STR_OUT(11) = "PUN(LIN" & CNLV_GEO & "(P," & Jcdf(H - SCN_X) & ",-6," & Jcdf(SCN_X) & ",-6,-6,-6,0,M0))"
     STR_OUT(12) = TL_CUT_V
     STR_OUT(13) = "TOOLANGLE(90)"
     STR_OUT(14) = "MIDCUT(N)"
     STR_OUT(15) = UnloadOutline(10, 110, 0, SCN_Y, H, L)
     STR_OUT(16) = "PUN(LIN" & CNLV_GEO & "(P," & "0" & "," & Jcdf(L - SCN_Y) & "," & "0" & "," & SCN_Y & ",-6,-6,0,M0,UNLDR" & UNLOADER(1, H, L, 0, 0)
     STR_OUT(17) = "'FINE BLOCCO"
 
 Case "0"
     STR_OUT(0) = TablePosition(H, L, 0, 0, POSINTAB)
     STR_OUT(1) = "'INIZIO BLOCCO=ABABAB"
     STR_OUT(2) = TL_CLN
     STR_OUT(3) = "TOOLANGLE(0)"
     STR_OUT(4) = "MIDCUT(N)"
     STR_OUT(5) = "PUN(LIN" & CNLV_GEO & "(P," & Jcdf(0) & "," & Jcdf(SVU_Y) & "," & Jcdf(250) & "," & Jcdf(SVU_Y) & ",0,0,0,M0))"
     STR_OUT(6) = "PUN(LIN" & CNLV_GEO & "(P," & Jcdf(H - 250) & "," & Jcdf(SVU_Y) & "," & Jcdf(0) & "," & Jcdf(SVU_Y) & ",0,0,0,M0))"
     STR_OUT(7) = "PUN(LIN" & CNLV_GEO & "(P," & Jcdf(SVU_X1) & "," & Jcdf(SVU_Y) & "," & Jcdf(SVU_X2) & "," & Jcdf(SVU_Y) & ",0,0,0,M0))"
     STR_OUT(8) = TL_CUT_O
     STR_OUT(9) = "TOOLANGLE(0)"
     STR_OUT(10) = "MIDCUT(N)"
     STR_OUT(11) = UnloadOutline(110, 6, SCN_X, -6, H, L)
     STR_OUT(12) = "PUN(LIN" & CNLV_GEO & "(P," & Jcdf(H - SCN_X) & "," & -LUTH & "," & Jcdf(SCN_X) & "," & -LUTH & ",-6,-6,0,M0,UNLDR" & UNLOADER(1, H, L, 0, 0)
     STR_OUT(13) = "'FINE BLOCCO"
 
 Case Else
     MsgBox ("ERRORE VAR_BP")
 End Select
 
 End Sub
 
 Sub CUT_mcrj(ByVal H As Double, ByVal L As Double, ByVal SCN As Double, ByVal VAR_BP As String)
 
 ''If InStr(1, STR_STAF, ACT_MOD) = 0 Then
 'If H < L Then
 'H1 = H
 'L1 = L
 'H = L1
 'L = H1
 ''End If
 'End If
 
 Erase STR_OUT
 
 If L < 38 Then MsgBox ("ATTENZIONE PEZZO " & ACT_MOD & " INFERIORE A 38mm, NON FATTIBILE"), vbCritical
 
 MICROUN = 0.25
 Select Case VAR_BP
 Case "0"
     STR_OUT(1) = TL_CUT_O
     STR_OUT(2) = "TOOLANGLE(0)"
     STR_OUT(3) = "MIDCUT(N)"
     STR_OUT(4) = "PUN(LIN" & CNLV_GEO & "(P," & Jcdf(0) & "," & Jcdf(0) & "," & Jcdf(H - MICROUN) & "," & Jcdf(0) & ",-6,0,0,M0))"
     STR_OUT(5) = "PUN(LIN" & CNLV_GEO & "(P," & Jcdf(H) & "," & Jcdf(L) & "," & Jcdf(MICROUN) & "," & Jcdf(L) & ",-6,0,0,M0))"
     If L < 110 Then STR_OUT(6) = TL_CUT_V2 Else STR_OUT(6) = TL_CUT_V
     STR_OUT(7) = "TOOLANGLE(90)"
     STR_OUT(8) = "MIDCUT(N)"
     If L < 110 Then
     STR_OUT(9) = "PUN(LIN" & CNLV_GEO & "(P," & Jcdf(-5) & "," & Jcdf(0) & "," & Jcdf(-5) & "," & Jcdf(L - MICROUN - SCN) & ",-6,0,0,M0))"
     STR_OUT(10) = "PUN(LIN" & CNLV_GEO & "(P," & Jcdf(H + 5) & "," & Jcdf(L) & "," & Jcdf(H + 5) & "," & Jcdf(MICROUN) & ",-6,0,0,M0))"
     Else
     STR_OUT(9) = "PUN(LIN" & CNLV_GEO & "(P," & Jcdf(-10) & "," & Jcdf(0) & "," & Jcdf(-10) & "," & Jcdf(L - MICROUN - SCN) & ",-6,0,0,M0))"
     STR_OUT(10) = "PUN(LIN" & CNLV_GEO & "(P," & Jcdf(H + 10) & "," & Jcdf(L) & "," & Jcdf(H + 10) & "," & Jcdf(MICROUN) & ",-6,0,0,M0))"
     End If
 
 
 Case Else
     MsgBox ("ERRORE VAR_BP")
 End Select
 
 End Sub