while (@a = $A->fetchrow_array) 
    { 
	#-------------------------
	# File öffnen
	#----------------------------- 
	$pdfdir        = $zeile[6];
	$pdfpath       = $zeile[5];
			
	$filename = "xxxxxxx_" . $a[0] . ".pdf";
			
	$pdfname  = $filename;
						
	&newPage_Quer();
	&head();
			
	$seite         = 1;
	$hoch          = "490";
	$abda          = "30";				
			
	&writeLine  ( $abda, $hoch, "Helvetica", 12, $a[0],  "left");
	$hoch = $hoch - 20;
	&writeLine  ( $abda, $hoch, "Helvetica", 12, "xxxxxxxx",  "left");
								
			
			
        $pdf->saveas($pdfpath . $pdfname);
        $pdf->end; 
					
	if ($a[1] ne '')
	  {
	     &sendEmail($a[1],$filename,$a[0]);
   	  }; 
			
  };