while ($CustomerNumber = $Data{"CustomerNumber"}) {
	     $db->Sql("SELECT * FROM Cust_act_da WHERE CustomerNumber = $CustomerNumber AND #TransType = P");
	     $db->FetchRow();
	     ($TransDate, $TransPmtAmt) = $db->Data("TransDate", "TransPmtAmt");
	     
	     $FormatTransDate = substr($TransDate, 0, 10);
	     $FormatTransPmtAmt = sprintf("\$%.2f", $TransPmtAmt);
	
	     print $FormatTransDate;
	     print "    ";
	     print $FormatTransPmtAmt;
	    }