// Userfield 10 ist Artikelnummer 
// Über Artikelnummer wird Zeichnungsnummer, Gravurplan, Index definiert
Zus=getRecordHead("u_field10")
Zusatz=Zus+"_Glas"+"\"
Verz=StandVerz+Zusatz
Verz1=StandVerz1+Zusatz

// Zusatz für Qdas nach Artikelnummer wegspeichern
StandVerz2="X:\Abteilungen\Gehaeusefertigung_drehen_fraesen_144111\Oeffentlich\QDAS\"
// Testpfad
// "C:\Users\Public\Documents\Zeiss\CALYPSO 6.4\workarea\qdas\"

Zusatz1=Zus+"_Glas_PCM"+"\"
Verz2=StandVerz2+Zusatz1


// Abfrage welche Artikelnummer angewählt und Belegung der Protkopfdaten,Zeichnungsnummer und Index (Userfield 11)
if 	Zus == ("IWIWA12607") then
		Zeichnungsnummer = ("IWA12607")
		setRecordHead("drawingno",Zeichnungsnummer)
		Index=("H")
		setRecordHead("u_field11",Index)
		Durchmesser=37.89
		ToleranzUn=-0.01
		ToleranzOb=0.01
endif