while ($CustomerNumber = $Data{"CustomerNumber"}) {
	     $db->Sql("SELECT * FROM Cust_act_da WHERE CustomerNumber = $CustomerNumber AND TransType = 'P'");