// PCM-Script zum Kopieren der Protokollkopffelder (Zusatzdaten)
// bei Autorun-Palettenmessungen
//
// VARIANTE FÜR STICHPROBENMESSUNG (Nestnummer wird NICHT hochgezählt!)
//

aktplatz=getRecordHead("palletlocationnumber")
ersterplatz=getRecordHead("firstpalletlocationnumber")
letzterplatz=getRecordHead("lastpalletlocationnumber")

// Produktionsdatum 		= u_field12
// Auftragsnummer / WE-Nummer 	= u_field11
// Nestnummer			= u_field7
// Prüfer			= operid
// Nummer Produktionsmaschine	= u_field13
// Werkzeugnummer		= u_field6
// Bemerkung			= vda_remark




if ersterplatz <> letzterplatz then

	if aktplatz == ersterplatz then
		deleteFile("pallet_vars.txt")

		wr=getRecordHead("u_field12")
		addToFile("pallet_vars.txt","setRecordHead(",chr(34),"u_field12",chr(34),",",chr(34),wr,chr(34),")")


		wr=getRecordHead("u_field11")
		addToFile("pallet_vars.txt","setRecordHead(",chr(34),"u_field11",chr(34),",",chr(34),wr,chr(34),")")


		wr=getRecordHead("u_field7")
		addToFile("pallet_vars.txt","setRecordHead(",chr(34),"u_field7",chr(34),",",chr(34),wr,chr(34),")")


		wr=getRecordHead("operid")
		addToFile("pallet_vars.txt","setRecordHead(",chr(34),"operid",chr(34),",",chr(34),wr,chr(34),")")


		wr=getRecordHead("u_field13")
		addToFile("pallet_vars.txt","setRecordHead(",chr(34),"u_field13",chr(34),",",chr(34),wr,chr(34),")")


//   Wkz-Nr. auslassen
//		wr=getRecordHead("u_field6")
//		addToFile("pallet_vars.txt","setRecordHead(",chr(34),"u_field6",chr(34),",",chr(34),wr,chr(34),")")


		wr=getRecordHead("vda_remark")
		addToFile("pallet_vars.txt","setRecordHead(",chr(34),"vda_remark",chr(34),",",chr(34),wr,chr(34),")")


	else

		runPCMFile("pallet_vars.txt")

	endif	

endif