API tools faq
paste
Advertisement
Dece111

Principale

Dece111
Feb 28th, 2024
119
0
Never
Add comment
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
VisualBasic 8.02 KB | None | 0 0
raw download clone embed print report diff
  1. 'Principale
  2.  
  3. Sub MAIN()
  4.  
  5. '***********IMPOSTAZIONI
  6. If InStr(1, PRG_TOT, "C") = 0 And InStr(1, PRG_TOT, "B") = 0 Then FNL_SEQUENCING = 1 Else FNL_SEQUENCING = 0  'ATTIVA O MENO LA SEQUENZA
  7. Call SETTING
  8.  
  9. If LISTA_MAT_FNL = 1 Then
  10. Call READ_DATA(PRG_NUM(1))
  11. Exit Sub
  12. End If
  13.  
  14. Call COD_DISEGNO_FNL
  15. Call DESC_MAT
  16.  
  17. Call LISTA_DXF 'LISTA DXF GIA' PRODOTTI ESTERNAMENTE
  18.  
  19. SPC_R_OLD = ""
  20. QCSP_OLD = 0
  21.  
  22.  
  23. '*******************************blocco dati
  24. Call VALIDAZIONE
  25. If kl = 1 Then Exit Sub
  26. '*******************************
  27. Call TORRETTE
  28. Call VALORI
  29.  
  30.  
  31.  
  32.  
  33. If VAR_APE = True Then '*************************************************************'PRODUZIONE ESTERNA
  34.  
  35. Call EXTERNAL_PROD
  36.  
  37. Else '********************************************************************************PRODUZIONE INTERNA
  38.  
  39.  
  40. If VCF = 6 Or VCF = 0 Then Call PROG_MAC_S4
  41. Call PUNCH_TOOL 'legge gli utensili per ogni pezzo
  42.  
  43.  
  44. VNP = MsgBox("VUOI NESTARE IL PROGRAMMA " & PRG_TOT & " ?", vbYesNo)
  45. If VNP = 6 Then
  46.  
  47. For MP = 1 To 11
  48. 'If MP <> 3 Then GoTo NO_NESTING
  49. '*****************************************************SETTAGGI MAPPATURA
  50. ''If MP = 1 And InStr(1, PRG_TOT, "R") = 0 And InStr(1, PRG_TOT, "C") = 0 Then GoTo NO_NESTING  'BLOCCO LE ANTE SE NON SONO UN REWORK
  51. If VAR_ACCORP = True And (MP <> 7 And MP <> 4 And MP <> 8 And MP <> 11) Then GoTo NO_NESTING  'PER ACCORPAMENTO
  52. If VAR_ACCORP = False And (MP = 7 Or MP = 4 Or MP = 8 Or MP = 11) Then GoTo NO_NESTING 'PER ACCORPAMENTO - NO CPR PER SINGOLO PROGRAMMA
  53. If VAR_PIASTRFIBRA = True And MP = 5 Then GoTo NO_NESTING
  54.  
  55.         Select Case MP
  56.         Case 1 'ante
  57.        NAMEMAP = NPAR_FLD & PRG_TOT & "ANTE.MNE"
  58.         NOME_REP = "ANTE"
  59.         STR_ACCESSO = ANTE
  60.         Case 2 'stipiti, lato battuta
  61.        NAMEMAP = NPAR_FLD & PRG_TOT & "STIPITI.MNE"
  62.         NOME_REP = "STIPITI"
  63.         STR_ACCESSO = STIPITI & TRAVERSA & LATO_BATTUTA
  64.         Case 3 'rivestimenti anta
  65.        NAMEMAP = NPAR_FLD & PRG_TOT & "RIVESTIMENTI.MNE"
  66.         NOME_REP = "RIV_ANTE"
  67.         STR_ACCESSO = RIVESTIMENTI_ANTA
  68.         Case 4 'rinforzi
  69.        NAMEMAP = NPAR_FLD & PRG_TOT & "RINFORZI.MNE"
  70.         NOME_REP = "RINFORZI"
  71.         STR_ACCESSO = RINFORZI_MTG & RINFORZI_SALD & ALTRO_EMZ
  72.         Case 5 'piastroni
  73.        NAMEMAP = NPAR_FLD & PRG_TOT & "PIASTRONI.MNE"
  74.         NOME_REP = "PIASTRONI"
  75.         STR_ACCESSO = PIASTRONI_LAND & PIASTRONI_CAR
  76.         Case 6 'PORTALI
  77.        NAMEMAP = NPAR_FLD & PRG_TOT & "PORTALI.MNE"
  78.         NOME_REP = "PORTALI"
  79.         STR_ACCESSO = STIPITI_PORTALI & TRAVERSA_PORTALE
  80.         Case 7 'coprifessura
  81.        NAMEMAP = NPAR_FLD & PRG_TOT & "CPR.MNE"
  82.         NOME_REP = "COPRIFESSURA"
  83.         STR_ACCESSO = COPRIFESSURA
  84.         Case 8 'PARAMENTI
  85.        NAMEMAP = NPAR_FLD & PRG_TOT & "PRM.MNE"
  86.         NOME_REP = "PARAMENTI"
  87.         STR_ACCESSO = PARAMENTI
  88.         Case 9 'slim
  89.        NAMEMAP = NPAR_FLD & PRG_TOT & "SLIM.MNE"
  90.         NOME_REP = "SLIM"
  91.         STR_ACCESSO = RIVESTIMENTI_SLIM
  92.         Case 10 'ENTRANCE
  93.        NAMEMAP = NPAR_FLD & PRG_TOT & "ENTR.MNE"
  94.         NOME_REP = "ENTRANCE"
  95.         STR_ACCESSO = ENTRANCE
  96.         Case 11 'componenti ENTRANCE
  97.        NAMEMAP = NPAR_FLD & PRG_TOT & "ENTR2.MNE"
  98.         NOME_REP = "ENTRANCE2"
  99.         STR_ACCESSO = ENTRANCE2
  100.         End Select
  101. '**************************************************************
  102.  
  103.         Select Case MP
  104.         Case 1 'ante 'OK PER ESTERNO
  105.        NHD = 17 '14
  106.        Call WRITE_REPORT
  107.         If InStr(1, PRG_TOT, "R") > 0 Or InStr(1, PRG_TOT, "C") > 0 Or InStr(1, PRG_TOT, "B") > 0 Then
  108.         Call MAPPATURA(NM_DT, MP, NAMEMAP) 'solo reworking
  109.        Else
  110.         Call NEST(MP, NAMEMAP, STR_ACCESSO)
  111.         End If
  112.        
  113.         Case 2 'stipiti basic 'OK
  114.        NHD = 14
  115.  
  116.         If FNL_SEQUENCING = 1 Then
  117.         Call NEST(MP, NAMEMAP, STR_ACCESSO)
  118.         Else
  119.         Call MAPPATURA(NM_DT, MP, NAMEMAP)
  120.         End If
  121.        
  122.         Case 3 'riv anta
  123.        NHD = 14
  124.        
  125.         If FNL_SEQUENCING = 1 Then
  126.         Call NEST(MP, NAMEMAP, STR_ACCESSO)
  127.         Else
  128.         Call MAPPATURA(NM_DT, MP, NAMEMAP)
  129.         End If
  130.        
  131.         Case 4 'rinforzi 'OK
  132.        NHD = 14
  133.         Call MAPPATURA(NM_DT, MP, NAMEMAP)
  134.        
  135.         Case 5 'piastroni 'OK
  136.        NHD = 15
  137.        
  138.         If FNL_SEQUENCING = 1 Then
  139. '        Call NEST(MP, NAMEMAP, STR_ACCESSO)
  140.        Call MAPPATURA(NM_DT, MP, NAMEMAP)
  141.         Else
  142.         Call MAPPATURA(NM_DT, MP, NAMEMAP)
  143.         End If
  144.        
  145.         Case 6 'portali 'OK
  146.        NHD = 14
  147.        
  148.         If FNL_SEQUENCING = 1 Then
  149.         Call NEST(MP, NAMEMAP, STR_ACCESSO)
  150.         Else
  151.         Call MAPPATURA(NM_DT, MP, NAMEMAP)
  152.         End If
  153.        
  154.         Case 7 'cpr 'OK
  155.        NHD = 14
  156.         Call MAPPATURA(NM_DT, MP, NAMEMAP)
  157.        
  158.         Case 8 'PRM 'OK
  159.        NHD = 15
  160.         Call MAPPATURA(NM_DT, MP, NAMEMAP)
  161.        
  162.         Case 9 'SLIM
  163.        NHD = 14
  164.         Call MAPPATURA(NM_DT, MP, NAMEMAP)
  165.        
  166.         Case 10 'ENTRANCE
  167.        NHD = 16
  168.         Call MAPPATURA(NM_DT, MP, NAMEMAP)
  169.        
  170.         Case 11 'componenti ENTRANCE
  171.        NHD = 16
  172.         Call MAPPATURA(NM_DT, MP, NAMEMAP)
  173.        
  174.         End Select
  175.  
  176.  
  177.         If Len(Dir(NAMEMAP)) > 0 Then
  178.         Call MM4(NAMEMAP)
  179.         For XX = 1 To INST(0, 0, 0, 0, 2)
  180.         Call NESTING2(XX, NOME_REP)
  181.         Next XX
  182. '        Call TIEMPO
  183.        Call RAW_MATERIAL(NOME_REP)
  184.         End If
  185.        
  186. NO_NESTING:
  187. Next MP
  188.  
  189. Call TIEMPO
  190. End If
  191.  
  192. Call EXTERNAL_PROD
  193. 'Call LISTA_MATERIALI_KSL 'no lista unica
  194.  
  195.  
  196.  
  197. BBBB = MsgBox("VUOI STAMPARE LE ETICHETTE ?", vbYesNo)
  198. If BBBB = 6 Then
  199. 'REPORT***********************************************************
  200. For RP = 1 To 5
  201. If PRG_NUM(RP) = "" Then Exit For
  202. Call VPR_FNL1(INPUT_FOLDER, PRG_NUM(RP), OUTPUT_FOLDER)
  203. Next RP
  204. '*****************************************************************
  205. End If
  206.  
  207.  
  208.  
  209.  
  210. '''LISTA PIASTRONI
  211. '''************************************
  212. ''If Dir(NPAR_FLD & PRG_TOT & "PIASTRONI.MNE") <> "" Then
  213. ''Application.ScreenUpdating = False
  214. ''For RP = 1 To 5
  215. ''If PRG_NUM(RP) = "" Then Exit For
  216. ''Workbooks.Open "\\NT1\CUT-VAULT\ARCHIVIO\lista_FNL_PIAST.xlsm"
  217. ''Application.Run "lista_FNL_PIAST.xlsm!VALORI", PRG_NUM(RP), OUTPUT_FOLDER, INPUT_FOLDER
  218. ''Workbooks("lista_FNL_PIAST.xlsm").Close savechanges:=False
  219. ''Next RP
  220. ''Application.ScreenUpdating = True
  221. ''End If
  222. '''************************************
  223.  
  224.  
  225. '***************WRITE REPORT SPACCHI
  226. If RP > 0 Then
  227. NAM = OUTPUT_FOLDER & "\REPORT_SPACCHI.TXT"
  228. NFK = FreeFile
  229. Open NAM For Output As NFK
  230. For JJ1 = 1 To RP
  231. If RPT_SPC(JJ1, 1, 1) <> "" Then
  232. For JJ2 = 1 To 20
  233. If RPT_SPC(JJ1, JJ2, 1) <> "" Then
  234.  
  235. Print #NFK, RPT_SPC(JJ1, JJ2, 2)
  236. Print #NFK, RPT_SPC(JJ1, JJ2, 1)
  237.  
  238. End If
  239. Print #NFK, ""
  240. Next JJ2
  241. End If
  242. Next JJ1
  243. Close #NFK
  244. End If
  245. '***********************************
  246.  
  247. '********************************* WRITE REPORT ULTIMO FOGLIO
  248. If ULTF > 0 Then
  249. NAM = OUTPUT_FOLDER & "\SCARICO_RECUPERO_FOGLIO.TXT"
  250. NFK = FreeFile
  251. Open NAM For Output As NFK
  252. For JJ1 = 1 To ULTF
  253. If ULTF2(JJ1) <> "" Then
  254. 'For JJ2 = 1 To 20
  255. 'If RPT_SPC(JJ1, JJ2, 1) <> "" Then
  256.  
  257. Print #NFK, ULTF2(JJ1)
  258. 'Print #NFK, RPT_SPC(JJ1, JJ2, 1)
  259.  
  260. 'End If
  261. 'Next JJ1
  262. Print #NFK, ""
  263. 'Next JJ2
  264. End If
  265. Next JJ1
  266. Close #NFK
  267. End If
  268. '*********************************
  269.  
  270.  
  271. End If '***************************************************************************'FINE FINELINE
  272.  
  273.  
  274. MsgBox ("ELABORAZIONE TERMINATA")
  275. End Sub
  276.  
  277.  
  278. 'Sub LISTA_MATERIALI_KSL()
  279. '
  280. 'FileNamesList = FILELIST(NPAR_FLD, True, "MNE")
  281. '
  282. 'NFDATA33 = FreeFile
  283. 'NF_DAT33 = NPAR_FLD & "\" & PROG_NUMB & "_TEMP.MNE"
  284. 'Open NF_DAT33 For Output As #NFDATA33
  285. '
  286. '
  287. 'For MM = 1 To UBound(FileNamesList)
  288. '
  289. '
  290. 'NFDATA44 = FreeFile
  291. 'NF_DAT44 = FileNamesList(MM)
  292. '
  293. 'Open NF_DAT44 For Input As #NFDATA44
  294. '
  295. 'Do While Not EOF(NFDATA44)
  296. 'Line Input #NFDATA44, VVV
  297. '
  298. 'Print #NFDATA33, VVV
  299. 'Loop
  300. 'Close #NFDATA44
  301. ''Kill (NF_DAT44)
  302. '
  303. 'Next MM
  304. 'Close #NFDATA33
  305. '
  306. 'Call MM4(NF_DAT33)
  307. 'Call RAW_MATERIAL
  308. '
  309. 'Kill (NF_DAT33)
  310. '
  311. 'End Sub
  312. '
  313.  
  314.  
  315.  
  316.  
  317.  
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!