} elsif ($cmd eq "orderIDCard")
{ 
get "Id==* IDfederation==$Landfed", "basket";
$count=$_amount; # Anzahl Einträge ermitteln
$zaehler=0; # Zählerstand auf Null setzen
$Orderp=datum("jetzt","Monat0.Jahr");
while (get_next("basket"))
{
 $zaehler++; # Zählerstand um 1 erhöhen in der Schleife
 mod "KartenNr==$CardIDb IDfederation==$Landfed",["OrderDate","$Orderp"],"member";
   put ["CardIDo","$CardIDb","Nameo","$Nameb","Vornameo","$Vornameb","Gbdateo","$Gbdateb","Endcardo","$Endcard","IDfederation","$IDfederation"],"order";
###### Kopierte Datei löschen
}
if ($zaehler==$count) # Zählerstand vergleich mit geholten Einträgen
{
del "Id==* IDfederation==$IDfederation","basket";
out "ID-Card order O.K.";
}
}