'autore: rossano praderi
"Kreato: 07/02/2024
****************************************************************************************************************************************************************************************************************************************************************
'Sie können den Ausgabepfad ändern, indem Sie csvpath unten bearbeiten - standardmäßig ist der Pfad identisch mit der Montagedatei
'csvpath = ("c:\Erfinder\") "Wenn Sie den Pfad ändern, denken Sie daran, eine \ am Ende zu halten
csvpath = string.concat(thisdoc.path, "\")
****************************************************************************************************************************************************************************************************************************************************************
aggiunto variabili per semplificazione
stl = "strutturata - tutti i livelli"
ssl = "strutturata - singolo livello"
sp = "solo parti"
wenn thisapplication.activedocumenttype = documenttypeenum.kassemblydocumentobject dann
dim odoc als Montagedokument = thisapplication.activedocument
dim obom as bom = odoc.componentdefinition.bom
bomexporter = inputlistbox("selezionare il tipo di bom da esportare: ", new string() { ", stl, "", ssl, ", sp }, d0, Titel := "bom export ", listname := "tipo bom")
wenn bomexporteur <> " dann
dim obomview als bomview
Wählen Sie Fall bomexport
Fall stl
'strebeturata tutti i livelli
obom.structuredviewfirstlevelonly = falsch
obom.structuredviewenabled = true
obomview = obom.bomviews.item("structured") ' verificare con versione italiana
Fall sl
'strebeturata primo livello
obom.structuredviewfirstlevelonly = true
obom.structuredviewenabled = true
obomview = obom.bomviews.item("structured") ' verificare con versione italiana
Fall sp
' solo partizip
obom.partsonlyviewenabled = true
obomview = obom.bomviews.item("parts only") ' verificare con versione italiana
Ende wählen
il nome del file cambia a seconda della tipologia di bom scelta
csvpath = string.concat(csvpath, thisdoc.filename(false), "_", bomexporter, ".xls")
Versuch
obomview.export(csvpath, kmicrosoftexcelformat)
Fang ex als System. Ausnahme
Nachrichtbox.show(ex.message)
Ende Versuch
Ende
andere
messagebox.show("devi essere in un assieme per esportare la lista materiali (bom)", "ilogic export")
Ende