[Ooc-checkins] libpobj/src InvestmentDemo.Mod,1.23,1.24
Brought to you by:
mva
From: Michael v. A. <mv...@us...> - 2009-01-06 15:10:39
|
Update of /cvsroot/ooc/libpobj/src In directory 23jxhf1.ch3.sourceforge.com:/tmp/cvs-serv17944/src Modified Files: InvestmentDemo.Mod Log Message: get "make test" working again Index: InvestmentDemo.Mod =================================================================== RCS file: /cvsroot/ooc/libpobj/src/InvestmentDemo.Mod,v retrieving revision 1.23 retrieving revision 1.24 diff -u -d -r1.23 -r1.24 --- InvestmentDemo.Mod 15 Jan 2007 20:03:21 -0000 1.23 +++ InvestmentDemo.Mod 6 Jan 2009 15:10:35 -0000 1.24 @@ -456,11 +456,11 @@ t := NEW(PObjMD.Int32, "pe.base.pobjects.Id"); id := NEW(PObjMD.IdField, 'id', 'id', t, NEW(PObjMD.Sequence, 'Seq_Currency')); NEW(f, 2); - t := NEW(PObjMD.String, NIL, 3, FALSE, PObjMD.restrictToAnything, NIL, 0); - f[0] := NEW(PObjMD.Field, 'shortName', 'short_name', t, FALSE, TRUE, 'ISO Code', 'ISO'); + t := NEW(PObjMD.String, NIL, 3, FALSE, PObjMD.restrictToAnything, NIL, 0, NIL); + f[0] := NEW(PObjMD.Field, 'shortName', 'short_name', t, FALSE, TRUE, FALSE, 'ISO Code', 'ISO'); currencyShortName := f[0](PObjMD.Field); - t := NEW(PObjMD.String, NIL, 128, FALSE, PObjMD.restrictToAnything, NIL, 0); - f[1] := NEW(PObjMD.Field, 'longName', 'long_name', t, FALSE, TRUE, 'Name', 'Name'); + t := NEW(PObjMD.String, NIL, 128, FALSE, PObjMD.restrictToAnything, NIL, 0, NIL); + f[1] := NEW(PObjMD.Field, 'longName', 'long_name', t, FALSE, TRUE, FALSE, 'Name', 'Name'); currencyLongName := f[1](PObjMD.Field); NEW(c, 2); NEW(fl, 1); @@ -482,11 +482,11 @@ t := NEW(PObjMD.Int32, "pe.base.pobjects.Id"); id := NEW(PObjMD.IdField, 'id', 'id', t, NEW(PObjMD.Sequence, 'Seq_Stock_Exchange')); NEW(f, 2); - t := NEW(PObjMD.String, NIL, 6, FALSE, PObjMD.restrictToAnything, NIL, 0); - f[0] := NEW(PObjMD.Field, 'shortName', 'short_name', t, FALSE, TRUE, 'ID', 'ID'); + t := NEW(PObjMD.String, NIL, 6, FALSE, PObjMD.restrictToAnything, NIL, 0, NIL); + f[0] := NEW(PObjMD.Field, 'shortName', 'short_name', t, FALSE, TRUE, FALSE, 'ID', 'ID'); stockExchangeShortName := f[0](PObjMD.Field); - t := NEW(PObjMD.String, NIL, 128, FALSE, PObjMD.restrictToAnything, NIL, 0); - f[1] := NEW(PObjMD.Field, 'longName', 'long_name', t, FALSE, TRUE, 'Name', 'Name'); + t := NEW(PObjMD.String, NIL, 128, FALSE, PObjMD.restrictToAnything, NIL, 0, NIL); + f[1] := NEW(PObjMD.Field, 'longName', 'long_name', t, FALSE, TRUE, FALSE, 'Name', 'Name'); stockExchangeLongName := f[1](PObjMD.Field); NEW(c, 2); NEW(fl, 1); @@ -508,11 +508,11 @@ t := NEW(PObjMD.Int32, "pe.base.pobjects.Id"); id := NEW(PObjMD.IdField, 'id', 'id', t, NEW(PObjMD.Sequence, 'Seq_Stock')); NEW(f, 2); - t := NEW(PObjMD.String, NIL, 128, FALSE, PObjMD.restrictToAnything, NIL, 0); - f[0] := NEW(PObjMD.Field, 'name', 'name', t, FALSE, TRUE, 'Name', 'Name'); + t := NEW(PObjMD.String, NIL, 128, FALSE, PObjMD.restrictToAnything, NIL, 0, NIL); + f[0] := NEW(PObjMD.Field, 'name', 'name', t, FALSE, TRUE, FALSE, 'Name', 'Name'); stockName := f[0](PObjMD.Field); - t := NEW(PObjMD.String, NIL, 6, FALSE, PObjMD.restrictToAnything, NIL, 0); - f[1] := NEW(PObjMD.Field, 'wkn', 'wkn', t, FALSE, TRUE, 'Wertpapierkennummer', 'WKN'); + t := NEW(PObjMD.String, NIL, 6, FALSE, PObjMD.restrictToAnything, NIL, 0, NIL); + f[1] := NEW(PObjMD.Field, 'wkn', 'wkn', t, FALSE, TRUE, FALSE, 'Wertpapierkennummer', 'WKN'); stockWkn := f[1](PObjMD.Field); NEW(c, 2); NEW(fl, 1); @@ -534,32 +534,32 @@ t := NEW(PObjMD.Int32, "pe.base.pobjects.Id"); id := NEW(PObjMD.IdField, 'id', 'id', t, NEW(PObjMD.Sequence, 'Seq_Transaction')); NEW(f, 9); - t := NEW(PObjMD.String, NIL, 8, FALSE, PObjMD.restrictToAnything, NIL, 0); - f[0] := NEW(PObjMD.Field, 'transactionDate', 'transaction_date', t, FALSE, FALSE, 'Transaction Date', 'Date'); + t := NEW(PObjMD.String, NIL, 8, FALSE, PObjMD.restrictToAnything, NIL, 0, NIL); + f[0] := NEW(PObjMD.Field, 'transactionDate', 'transaction_date', t, FALSE, FALSE, FALSE, 'Transaction Date', 'Date'); transactionTransactionDate := f[0](PObjMD.Field); t := NEW(PObjMD.RefType, NIL, NIL, 'StockExchange', NIL, PObjMD.onDeleteRestrict, PObjMD.onUpdateRestrict, PObjMD.roleNone); - f[1] := NEW(PObjMD.Field, 'exchange', 'exchange', t, FALSE, FALSE, 'Exchange', 'Exch.'); + f[1] := NEW(PObjMD.Field, 'exchange', 'exchange', t, FALSE, FALSE, FALSE, 'Exchange', 'Exch.'); transactionExchange := f[1](PObjMD.Field); t := NEW(PObjMD.RefType, NIL, NIL, 'Stock', NIL, PObjMD.onDeleteRestrict, PObjMD.onUpdateRestrict, PObjMD.roleNone); - f[2] := NEW(PObjMD.Field, 'stock', 'stock', t, FALSE, FALSE, 'Stock', 'Stock'); + f[2] := NEW(PObjMD.Field, 'stock', 'stock', t, FALSE, FALSE, FALSE, 'Stock', 'Stock'); transactionStock := f[2](PObjMD.Field); t := NEW(PObjMD.RefType, NIL, NIL, 'Currency', NIL, PObjMD.onDeleteRestrict, PObjMD.onUpdateRestrict, PObjMD.roleNone); - f[3] := NEW(PObjMD.Field, 'currency', 'currency', t, FALSE, FALSE, 'Currency', 'Curr.'); + f[3] := NEW(PObjMD.Field, 'currency', 'currency', t, FALSE, FALSE, FALSE, 'Currency', 'Curr.'); transactionCurrency := f[3](PObjMD.Field); t := NEW(PObjMD.Numeric, NIL, 9, 2, NIL, NIL); - f[4] := NEW(PObjMD.Field, 'price', 'price', t, FALSE, FALSE, 'Price', 'Price'); + f[4] := NEW(PObjMD.Field, 'price', 'price', t, FALSE, FALSE, FALSE, 'Price', 'Price'); transactionPrice := f[4](PObjMD.Field); t := NEW(PObjMD.Int32, NIL); - f[5] := NEW(PObjMD.Field, 'shares', 'shares', t, FALSE, FALSE, 'Shares', '#'); + f[5] := NEW(PObjMD.Field, 'shares', 'shares', t, FALSE, FALSE, FALSE, 'Shares', '#'); transactionShares := f[5](PObjMD.Field); t := NEW(PObjMD.Numeric, NIL, 9, 2, NIL, NIL); - f[6] := NEW(PObjMD.Field, 'commission', 'commission', t, FALSE, FALSE, 'Commission', 'C'); + f[6] := NEW(PObjMD.Field, 'commission', 'commission', t, FALSE, FALSE, FALSE, 'Commission', 'C'); transactionCommission := f[6](PObjMD.Field); t := NEW(PObjMD.Numeric, NIL, 9, 2, NIL, NIL); - f[7] := NEW(PObjMD.Field, 'brokerCommission', 'broker_commission', t, FALSE, FALSE, 'Broker Commission', 'BC'); + f[7] := NEW(PObjMD.Field, 'brokerCommission', 'broker_commission', t, FALSE, FALSE, FALSE, 'Broker Commission', 'BC'); transactionBrokerCommission := f[7](PObjMD.Field); t := NEW(PObjMD.Numeric, NIL, 9, 2, NIL, NIL); - f[8] := NEW(PObjMD.Field, 'otherExpenses', 'other_expenses', t, FALSE, FALSE, 'Other Expenses', 'OE'); + f[8] := NEW(PObjMD.Field, 'otherExpenses', 'other_expenses', t, FALSE, FALSE, FALSE, 'Other Expenses', 'OE'); transactionOtherExpenses := f[8](PObjMD.Field); NEW(c, 3); NEW(fl, 1); |