[Ooc-checkins] libpobj/src InvestmentDemo.Mod,1.20,1.21
Brought to you by:
mva
Menu
▾
▴
[Ooc-checkins] libpobj/src InvestmentDemo.Mod,1.20,1.21
|
From: Michael v. A. <mv...@us...> - 2006-06-27 08:35:21
|
Update of /cvsroot/ooc/libpobj/src In directory sc8-pr-cvs3.sourceforge.net:/tmp/cvs-serv1200/src Modified Files: InvestmentDemo.Mod Log Message: rebuild Index: InvestmentDemo.Mod =================================================================== RCS file: /cvsroot/ooc/libpobj/src/InvestmentDemo.Mod,v retrieving revision 1.20 retrieving revision 1.21 diff -u -d -r1.20 -r1.21 --- InvestmentDemo.Mod 21 Nov 2004 20:32:00 -0000 1.20 +++ InvestmentDemo.Mod 27 Jun 2006 08:35:18 -0000 1.21 @@ -5,11 +5,20 @@ (*--- MARK END IMPORT ---*) <*WITH Warnings:=FALSE DO*> PObjObject:=Object, PObjBoxed:=Object:Boxed, PObjBigInt:=Object:BigInt, - PObj, PObjMD:=PObj:MetaData, PObjDBI:=PObj:DBI; + PObj, PObjMD:=PObj:MetaData, PObjDBI:=PObj:DBI, PObjPostgres:=PObj:PostgresDBI; <*END*> TYPE Currency* = POINTER TO CurrencyDesc; + CurrencyList* = PObjObject.ObjectArrayPtr(Currency); + StockExchange* = POINTER TO StockExchangeDesc; + StockExchangeList* = PObjObject.ObjectArrayPtr(StockExchange); + Stock* = POINTER TO StockDesc; + StockList* = PObjObject.ObjectArrayPtr(Stock); + Transaction* = POINTER TO TransactionDesc; + TransactionList* = PObjObject.ObjectArrayPtr(Transaction); + +TYPE CurrencyDesc* = RECORD (PObj.ObjectDesc) shortName: STRING; @@ -21,7 +30,6 @@ currencyLongName-: PObjMD.Field; TYPE - StockExchange* = POINTER TO StockExchangeDesc; StockExchangeDesc* = RECORD (PObj.ObjectDesc) shortName: STRING; @@ -33,7 +41,6 @@ stockExchangeLongName-: PObjMD.Field; TYPE - Stock* = POINTER TO StockDesc; StockDesc* = RECORD (PObj.ObjectDesc) name: STRING; @@ -45,7 +52,6 @@ stockWkn-: PObjMD.Field; TYPE - Transaction* = POINTER TO TransactionDesc; TransactionDesc* = RECORD (PObj.ObjectDesc) transactionDate: STRING; @@ -435,7 +441,8 @@ <*WITH Warnings:=FALSE DO*> VAR id: PObjMD.IdField; - f, fl: PObjMD.FieldList; + f: PObjMD.ColumnList; + fl: PObjMD.FieldList; c: PObjMD.ConstraintList; idx: PObjMD.IndexList; t: PObjMD.Type; @@ -451,25 +458,25 @@ 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'); - currencyShortName := f[0]; + 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'); - currencyLongName := f[1]; + currencyLongName := f[1](PObjMD.Field); NEW(c, 2); NEW(fl, 1); - fl[0] := f[0]; + fl[0] := f[0](PObjMD.Field); c[0] := NEW(PObjMD.Unique, 'uq_Currency_short_name', fl, NIL); NEW(fl, 1); - fl[0] := f[1]; + fl[0] := f[1](PObjMD.Field); c[1] := NEW(PObjMD.Unique, 'uq_Currency_long_name', fl, NIL); NEW(idx, 2); NEW(fl, 1); NEW(fl, 1); - fl[0] := f[0]; + fl[0] := f[0](PObjMD.Field); idx[0] := NEW(PObjMD.Index, 'uq_Currency_short_name', fl, NIL, TRUE); NEW(fl, 1); NEW(fl, 1); - fl[0] := f[1]; + fl[0] := f[1](PObjMD.Field); idx[1] := NEW(PObjMD.Index, 'uq_Currency_long_name', fl, NIL, TRUE); currency := NEW(PObjMD.Class, 'Currency', 'Currency', 'Currency', id, NIL, FALSE, FALSE, FALSE, f, c, idx, NIL); currency.ResolveTypeName('InvestmentDemo'); @@ -479,25 +486,25 @@ 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'); - stockExchangeShortName := f[0]; + 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'); - stockExchangeLongName := f[1]; + stockExchangeLongName := f[1](PObjMD.Field); NEW(c, 2); NEW(fl, 1); - fl[0] := f[0]; + fl[0] := f[0](PObjMD.Field); c[0] := NEW(PObjMD.Unique, 'uq_Stock_Exchange_short_name', fl, NIL); NEW(fl, 1); - fl[0] := f[1]; + fl[0] := f[1](PObjMD.Field); c[1] := NEW(PObjMD.Unique, 'uq_Stock_Exchange_long_name', fl, NIL); NEW(idx, 2); NEW(fl, 1); NEW(fl, 1); - fl[0] := f[0]; + fl[0] := f[0](PObjMD.Field); idx[0] := NEW(PObjMD.Index, 'uq_Stock_Exchange_short_name', fl, NIL, TRUE); NEW(fl, 1); NEW(fl, 1); - fl[0] := f[1]; + fl[0] := f[1](PObjMD.Field); idx[1] := NEW(PObjMD.Index, 'uq_Stock_Exchange_long_name', fl, NIL, TRUE); stockExchange := NEW(PObjMD.Class, 'StockExchange', 'Stock_Exchange', 'StockExchange', id, NIL, FALSE, FALSE, FALSE, f, c, idx, NIL); stockExchange.ResolveTypeName('InvestmentDemo'); @@ -507,25 +514,25 @@ 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'); - stockName := f[0]; + 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'); - stockWkn := f[1]; + stockWkn := f[1](PObjMD.Field); NEW(c, 2); NEW(fl, 1); - fl[0] := f[0]; + fl[0] := f[0](PObjMD.Field); c[0] := NEW(PObjMD.Unique, 'uq_Stock_name', fl, NIL); NEW(fl, 1); - fl[0] := f[1]; + fl[0] := f[1](PObjMD.Field); c[1] := NEW(PObjMD.Unique, 'uq_Stock_wkn', fl, NIL); NEW(idx, 2); NEW(fl, 1); NEW(fl, 1); - fl[0] := f[0]; + fl[0] := f[0](PObjMD.Field); idx[0] := NEW(PObjMD.Index, 'uq_Stock_name', fl, NIL, TRUE); NEW(fl, 1); NEW(fl, 1); - fl[0] := f[1]; + fl[0] := f[1](PObjMD.Field); idx[1] := NEW(PObjMD.Index, 'uq_Stock_wkn', fl, NIL, TRUE); stock := NEW(PObjMD.Class, 'Stock', 'Stock', 'Stock', id, NIL, FALSE, FALSE, FALSE, f, c, idx, NIL); stock.ResolveTypeName('InvestmentDemo'); @@ -535,40 +542,40 @@ 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'); - transactionTransactionDate := f[0]; + transactionTransactionDate := f[0](PObjMD.Field); t := NEW(PObjMD.RefType, NIL, NIL, 'StockExchange', NIL, PObjMD.onDeleteRestrict, PObjMD.onUpdateRestrict); f[1] := NEW(PObjMD.Field, 'exchange', 'exchange', t, FALSE, FALSE, 'Exchange', 'Exch.'); - transactionExchange := f[1]; + transactionExchange := f[1](PObjMD.Field); t := NEW(PObjMD.RefType, NIL, NIL, 'Stock', NIL, PObjMD.onDeleteRestrict, PObjMD.onUpdateRestrict); f[2] := NEW(PObjMD.Field, 'stock', 'stock', t, FALSE, FALSE, 'Stock', 'Stock'); - transactionStock := f[2]; + transactionStock := f[2](PObjMD.Field); t := NEW(PObjMD.RefType, NIL, NIL, 'Currency', NIL, PObjMD.onDeleteRestrict, PObjMD.onUpdateRestrict); f[3] := NEW(PObjMD.Field, 'currency', 'currency', t, FALSE, FALSE, 'Currency', 'Curr.'); - transactionCurrency := f[3]; + 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'); - transactionPrice := f[4]; + transactionPrice := f[4](PObjMD.Field); t := NEW(PObjMD.Int32, NIL); f[5] := NEW(PObjMD.Field, 'shares', 'shares', t, FALSE, FALSE, 'Shares', '#'); - transactionShares := f[5]; + 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'); - transactionCommission := f[6]; + 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'); - transactionBrokerCommission := f[7]; + 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'); - transactionOtherExpenses := f[8]; + transactionOtherExpenses := f[8](PObjMD.Field); NEW(c, 3); NEW(fl, 1); - fl[0] := f[1]; + fl[0] := f[1](PObjMD.Field); c[0] := NEW(PObjMD.ForeignKeyConstraint, 'fk_Transaction_exchange', TRUE, fl, NIL, NIL); NEW(fl, 1); - fl[0] := f[2]; + fl[0] := f[2](PObjMD.Field); c[1] := NEW(PObjMD.ForeignKeyConstraint, 'fk_Transaction_stock', TRUE, fl, NIL, NIL); NEW(fl, 1); - fl[0] := f[3]; + fl[0] := f[3](PObjMD.Field); c[2] := NEW(PObjMD.ForeignKeyConstraint, 'fk_Transaction_currency', TRUE, fl, NIL, NIL); NEW(idx, 0); transaction := NEW(PObjMD.Class, 'Transaction', 'Transaction', 'Transaction', id, NIL, FALSE, FALSE, FALSE, f, c, idx, NIL); |
