let kurz := "naverGM";
let suche := kurz + "-" + Nat;
suche := suche + "-" + Kondi_naver;
let l1 := length(suche) - 1;
if substr(suche, l1) = "-" then
	suche := suche + "N"
end;
let my := this;
let new := (create 'Aufträge');
new.(Kunden := my);
new.(Kundennummer := my.Kundennummer);
new.(Name := my.Name);
new.('Straße' := my.'Straße');
new.(PLZ := my.PLZ);
new.(Stadt := my.Stadt);
new.(Land := my.Land);
new.(UStIdNr := my.'Ust.-IdNr.');
new.('e-mail-AB' := my.'e-mail AB');
new.('e-mail-Rg' := my.'e-mail Rg.');
new.(Tel := my.Tel);
new.('Lieferadresse (mz)' := my.'Lieferadresse (mz)');
new.('Name Rg' := my.'Name Rechnung');
new.('Straße Rg' := my.'Straße Rechnung');
new.('PLZ Rg' := my.'PLZ Rechnung');
new.('Stadt Rg' := my.'Stadt Rechnung');
new.('Land Rg' := my.'Land Rechnung');
new.('Hersteller kurz' := kurz);
new.(HerstSuchwort := suche);
let wahl := (select Hersteller where suche = 'Herst-code');
new.('Name Herst' := first(wahl.Firma));
new.('Straße Herst' := first(wahl.'Straße'));
new.('PLZ Herst' := first(wahl.PLZ));
new.('Stadt Herst' := first(wahl.Stadt));
new.('Land Herst' := first(wahl.Land));
new.('UStIdNr Herst' := first(wahl.UStIdNr));
new.('Händlerrabatt' := first(wahl.'Händlerrabatt'));
new.(Sonderrabatt := first(wahl.Sonderrabatt));
new.(Sonderrabattgrund := first(wahl.Sonderrabattgrund));
new.(Zahlung := first(wahl.Zahlung));
new.(Lieferung := first(wahl.Lieferung));
new.(Valuta := first(wahl.Valuta));
new.('USt-satz' := first(wahl.'USt-satz'));
popupRecord(last(select 'Aufträge'))