---

Hallo DBworks-Forum!
Ich habe leider ein paar Newbie-Fragen zum DBworks.
Ich hab selbst nur die 2002er Version installiert (und auch schon das manual durchgeackert) *uff* aber brauch leider Infos über Funktionen in der 2004er.
Wär super wenn's ihr mir da etwas unter die Arme greifen könntet:

Ist es möglich in DBworks(aktulelle Version) ab einer bestimmten positionsnummer zu beginnen  (z.b immer mit 101, 102, 103...)?

Wenn ein Teil aus einer ASM gelöscht wird, kann DBworks dann diese alten Positionsnummern "umgehen" damit die nachfolgenden Teile die alten pos.-Nummern in der Stüli behalten?

Ist es möglich Zusatzinformationen in eine 2te Zeile zu schreiben?
-sprich dass man einer Positionsnummer 2 Zeilen zu Verfügung stellt?

last but not least:
Kann ich Normteilen (aus der Toolbox) auch Artikelnummern vergeben?

mfg
WB8

------------------
->dream believe dare do!<-

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

1 Pos Nr
Wir übertragen die Nummer bei Kunden auf eine Excel Vorlage.
Dies ist ein Programm.
Hier können wir auch die Regeln definieren.
Die DBWorks Funktionen Excel-Bom sind ebenfalls vbs Skripte .
Hier müßt Ihr die gewünschte Änderung einbringen.

2. Toolbox
Wenn Ihr eine Zuweisung findet zwischen den dollen SWX Namen (bzw. Konf. Namen) und eurer Nummer kann das in OnSave.lst oder in Dataentr.lst zugewiesen werden.

Bernd

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Zitat:

---

Original erstellt von BerndB:
1 Pos Nr
Wir übertragen die Nummer bei Kunden auf eine Excel Vorlage.
Dies ist ein Programm.
Hier können wir auch die Regeln definieren.
Die DBWorks Funktionen Excel-Bom sind ebenfalls vbs Skripte .
Hier müßt Ihr die gewünschte Änderung einbringen.
Bernd

---

Dass heißt, ihr habt hier die vorhandenen Skripts abgeändert...
Und in diesen Skripts kann man auch die anderen Punkte einbringen?
Wie z.B. erst ab Pos.101 beginnen, 2te Zeile für eine Position verwenden etc... - hab ich das richtig verstanden?

Zitat:

---

Original erstellt von BerndB:

2. Toolbox
Wenn Ihr eine Zuweisung findet zwischen den dollen SWX Namen (bzw. Konf. Namen) und eurer Nummer kann das in OnSave.lst oder in Dataentr.lst zugewiesen werden.
Bernd

---

Danke für die rasche Antwort.

------------------
->dream believe dare do!<-

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Beispielbefehle:

call DBWShell("AssignBomPositionNumber  childUID  parentUID  BomPos [okBomItem]")

In der API von Mechworks

unter DBWorks\Dbworks Command Shell.chm

Datei für Funktion Excel_BOM:

Custom_BOM.vbs im lst Verzeichnis.

BEISPIEL:

Dim objXL,xlbook
Dim xlobj 
Dim xlWindow 

Sub main()
Dim fs
Dim WSHShell
DBWinit(TRUE)

BomPath="C:\dbwtest\"
CreateFolder (BomPath)
Label=Ucase(DBWLookup("TITLE_MAKE_BUY"))
call DBWShell( "CurrentDocument" )

if (okDBW = False) then exit sub

docId = DBWResult( "@DOCUMENT_ID_NOSPACE" ) & _
" " & _
DBWResult( "@DOCUMENT_TYPE" )

Doctype = DBWResult( "@DOCUMENT_TYPE" )
if Doctype <>"A" then
MsgBox "Must select an assembly"
exit sub
end if

'MsgBox( "DOCUMENT ID: " & docId )
fName = DBWQuery( docId , DBWLookup("NAME_FIELD_FILE_NAME") )

if (okDBW = False) then exit sub

fDir = DBWQuery( docId , DBWLookup("NAME_FIELD_FILE_DIRECTORY") )

if (okDBW = False) then exit sub

'MsgBox( "DOCUMENT PATH: " & fDir & fName )

BomFile=BomPath & fName & ".txt"

' Create the child tree for that assembly ( switch DBWorks to the Tree page )

call DBWShell( "ChildTree")

if (okDBW = False) then exit sub

' Create the buy list for the root of the tree

call DBWShell( "BuyList")

if (okDBW = False) then exit sub

excelFile = DBWResult( "@EXCEL_FILE_PATH" )
call DBWShell( "Wait")

'call DBWShell( "Wait")

'MsgBox( "BUYLIST OUTPUT AVAILABLE IN: " & excelFile )

OpenXLWorkBook(excelFile)
'MsgBox xlobj.Sheets(2).Range("A1").Value
hierarchy=0
Do
hierarchy=hierarchy+1
cellRangeH= Chr(64+Hierarchy) & "1"
labelexcel=xlobj.Sheets(2).Range(cellRangeH).Value
Loop Until Ucase(labelexcel) = Label
hierarchy=hierarchy-4
numRecords=0

Do
numRecords=numRecords+1
cellRangeH= Chr(64+Hierarchy) & CStr(numRecords)
'MsgBox xlobj.Sheets(2).Range(cellRangeH).Value

Loop Until xlobj.Sheets(2).Range(cellRangeH).Value = ""

'MsgBox "hier =" & hierarchy & " numrec= " & numRecords

Set fs = CreateObject("Scripting.FileSystemObject")
Set a = fs.OpenTextFile( BomFile, ForWriting, True )

cellCode="A2"
mainAssembly=xlobj.Sheets(2).Range(cellCode).Value

nr=1
Do
  nr=nr+1
      cellRangeCode = "B" & CStr(nr)
code=xlobj.Sheets(2).Range(cellRangeCode).Value
'MsgBox "code= " & code
if code<>"" then
qtyCell= Chr(64+Hierarchy) & CStr(nr)
qty=xlobj.Sheets(2).Range(qtyCell).Value
outstring=mainAssembly & "," & code & "," & qty
'MsgBox "outstring  " & outstring
a.WriteLine( outstring )
end if
    Loop Until nr > numRecords

if hierarchy >  3 then

'loop through other levels of hierarchy
previousH=1
nextH=3
indiceSubAss=0
Do
previousH=previousH+1
nr=1
do

nr=nr+1
cellSubAss=Chr(64+previousH) & CStr(nr)

code=xlobj.Sheets(2).Range(cellSubAss).Value
'MsgBox "code= " & code
subnr=nr
if code<>"" then
indiceSubAss=nr
Do
indiceSubAss=indiceSubAss+1
nextsubassemblycell= Chr(64+previousH+1) & CStr(indiceSubAss)
'MsgBox nextsubassemblycell
'MsgBox "next sub " &  xlobj.Sheets(2).Range(nextsubassemblycell).Value
Loop Until xlobj.Sheets(2).Range(nextsubassemblycell).Value =""

do
'MsgBox CStr(indiceSubAss-nr)
subnr=subnr+1
subassemblycell= Chr(64+previousH+1) & CStr(subnr)
qtyCell= Chr(64+Hierarchy) & CStr(subnr)
subassemblycode=xlobj.Sheets(2).Range(subassemblycell).Value
qty=xlobj.Sheets(2).Range(qtyCell).Value
if subassemblycode<>"" then
outstring=code & "," & subassemblycode & "," & qty
'MsgBox "outstring  " & outstring
a.WriteLine( outstring )
end if
Loop Until subnr > indiceSubAss-1
end if

    Loop Until nr > numRecords
    Loop Until previousH = hierarchy-2

end if

' Close the file and the Excel istance
a.Close
xlobj.Close True
Set xlobj = Nothing

' Select again the document in the Document page ( use '|' char for spaces )

call DBWShell( "SelectById " & docId )

if (okDBW = False) then exit sub

res=MsgBox ("Do you want to view the customized BOM ?",4)
if res=6 then
Set WSHShell = CreateObject("WScript.Shell")
WshShell.Run ("notepad " & Bomfile)
end if

End Sub

Function CreateFolder (folder)
Dim fso, f
Set fso = CreateObject("Scripting.FileSystemObject")
If  Not (fso.FolderExists(folder)) Then
Set f = fso.CreateFolder(folder)
CreateFolder = f.Path
end if
End Function

Sub OpenXLWorkBook (Path)

   
    'Check to see if the file name passed in to the procedure is valid
   
        Set xlobj = GetObject(Path)
       
        'Show the Excel Application Window
        'xlobj.Parent.Visible = True

       
        'Unhide each window in the WorkBook
        'For Each xlWindow In xlobj.Windows
          ' xlWindow.Visible = True
        'Next
       
        'Prevent Excel from prompting to save changes
        'to the workbook when the user exits
        xlobj.Saved = True

End Sub

MfG

Bern

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Na bum...
Danke für das ausführliche Makro.
Werd mal schaun ob das wirklich was macht.

Auf alle Fälle Dankeschön!

mfg
WB8

------------------
->dream believe dare do!<-

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP