$Sql="SELECT * FROM Cust_act_da WHERE CustomerNumber = $CustomerNumber AND TransType = 'P'";
	print $Sql;
	$db->SQL( $sql );

##</code><code>##

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