// von Prae_Einstell.txt
repeat
	AutoNachmessungenAuswahl=inquireList("Bitte Waehlen", "Nachmessungen_auswaehlen", "Nachmessungen_loeschen")
	selectCase AutoNachmessungenAuswahl
		case "Nachmessungen_auswaehlen"
			runPCMFile("AutoNachmessungWaehlen.txt")
			if keineNachmessungGewaehlt <> true then
				setRecordHead("u_bemerkungu", "NM "+M_TeiIdent[B])
				Messungswahl=M_UMessung[B]
				if M_UMessung[B] == "Freigabe" then
					runPCMFile("AutoNachmAbgleichKomp.txt")
					u_messung = "Freigabe-Messung"
					runPCMFile("ProtokollkopfSchreiben.txt")
				endif
				if M_UMessung[B] == "PFU" then
					runPCMFile("AutoNachmAbgleichPFU.txt")
					u_messung = "Serien-Nachmessung"
					runPCMFile("ProtokollkopfSchreiben.txt")
					setRecordHead("u_field5", ZeichnungsNr+"-"+AFO_Serie)
				endif
				if M_UMessung[B] == "Komplett" then
					runPCMFile("AutoNachmAbgleichKomp.txt")
				endif
				deleteFile(PfadAutoParaUndListe+M_ListData[B])
				addToFile("Uebergabe.txt", "M_NameList["+B+"]="+qm()+"-"+qm())
				addToFile("Uebergabe.txt", "M_ListData["+B+"]="+qm()+"-"+qm())
				addToFile("Uebergabe.txt", "M_Maschine["+B+"]="+qm()+"-"+qm())
				addToFile("Uebergabe.txt", "M_UMessung["+B+"]="+qm()+"-"+qm())
				addToFile("Uebergabe.txt", "M_TeiIdent["+B+"]="+qm()+"-"+qm())
				runPCMFile("AutoSelectNachmessungVorbereiten.txt")
				AutoNachmessungenAuswahl = "Ende"
			else
				if confirm("Abbruch?") == true then
					AutoNachmessungenAuswahl = "Ende"
					message("Ablauf wird abgebrochen")
					endInspection("NO_DATA_OUTPUT",1)
				endif
			endif
		case "Nachmessungen_loeschen"
			runPCMFile("AutoNachmessungenLoeschen.txt")
		caseElse
			AutoNachmessungenAuswahl = "Ende"
			message("Ablauf wird abgebrochen")
			endInspection("NO_DATA_OUTPUT",1)
	endSelect
until AutoNachmessungenAuswahl == "Ende"