<AccountBasedExpenseLineDetail>
          <AccountRef name="Cash Over and Short">65</AccountRef>
          <BillableStatus>NotBillable</BillableStatus>
          <TaxCodeRef>3</TaxCodeRef>
        </AccountBasedExpenseLineDetail>
      </Line>
      <AccountRef name="Test Purchase Bank Account">61</AccountRef>
      <PaymentType>Cash</PaymentType>
      <EntityRef name="Mr V3 Service Customer Jr2">1</EntityRef>
      <TotalAmt>11.00</TotalAmt>
      <GlobalTaxCalculation>TaxInclusive</GlobalTaxCalculation>
    */
    if ($id = $PurchaseService->add($Context, $realm, $Purchase)) {
        print 'New purchase check id is: ' . $id;
    } else {
        print 'Error creating check: ' . $IPP->lastError($Context) . '';
    }
    /*
    print("\n\n\n\n");
    print('Request [' . $IPP->lastRequest() . ']');
    print("\n\n\n\n");
    print('Response [' . $IPP->lastResponse() . ']');
    print("\n\n\n\n");
    */
} else {
    die('Unable to load a context...?');
}
?>

</pre>