[Top][All Lists]
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
gnue/gnue-config base/currency/classes/currency...
From: |
Neil Tiffin |
Subject: |
gnue/gnue-config base/currency/classes/currency... |
Date: |
Fri, 04 May 2001 17:35:09 -0700 |
CVSROOT: /home/cvs
Module name: gnue
Changes by: Neil Tiffin <address@hidden> 01/05/04 17:35:09
Modified files:
gnue-config/base/currency/classes: currency.gcd
gnue-config/base/location/classes: address.gcd
gnue-config/base/units/classes: units.gcd
gnue-config/supply-chain/item/classes: item.gcd
gnue-config/supply-chain/purchasing/classes: purchasing.gcd
gnue-config/supply-chain/receiving/classes: receiving.gcd
gnue-config/supply-chain/shipping/classes: shipping.gcd
gnue-config/supply-chain/vendor/classes: vendor.gcd
gnue-config/supply-chain/warehouse/classes: warehouse.gcd
Log message:
Update gcd files to pass gcd parser.
CVSWeb URLs:
http://savannah.gnu.org/cgi-bin/viewcvs/gnue/gnue-config/base/currency/classes/currency.gcd.diff?cvsroot=OldCVS&tr1=1.10&tr2=1.11&r1=text&r2=text
http://savannah.gnu.org/cgi-bin/viewcvs/gnue/gnue-config/base/location/classes/address.gcd.diff?cvsroot=OldCVS&tr1=1.7&tr2=1.8&r1=text&r2=text
http://savannah.gnu.org/cgi-bin/viewcvs/gnue/gnue-config/base/units/classes/units.gcd.diff?cvsroot=OldCVS&tr1=1.14&tr2=1.15&r1=text&r2=text
http://savannah.gnu.org/cgi-bin/viewcvs/gnue/gnue-config/supply-chain/item/classes/item.gcd.diff?cvsroot=OldCVS&tr1=1.8&tr2=1.9&r1=text&r2=text
http://savannah.gnu.org/cgi-bin/viewcvs/gnue/gnue-config/supply-chain/purchasing/classes/purchasing.gcd.diff?cvsroot=OldCVS&tr1=1.4&tr2=1.5&r1=text&r2=text
http://savannah.gnu.org/cgi-bin/viewcvs/gnue/gnue-config/supply-chain/receiving/classes/receiving.gcd.diff?cvsroot=OldCVS&tr1=1.1&tr2=1.2&r1=text&r2=text
http://savannah.gnu.org/cgi-bin/viewcvs/gnue/gnue-config/supply-chain/shipping/classes/shipping.gcd.diff?cvsroot=OldCVS&tr1=1.1&tr2=1.2&r1=text&r2=text
http://savannah.gnu.org/cgi-bin/viewcvs/gnue/gnue-config/supply-chain/vendor/classes/vendor.gcd.diff?cvsroot=OldCVS&tr1=1.9&tr2=1.10&r1=text&r2=text
http://savannah.gnu.org/cgi-bin/viewcvs/gnue/gnue-config/supply-chain/warehouse/classes/warehouse.gcd.diff?cvsroot=OldCVS&tr1=1.3&tr2=1.4&r1=text&r2=text
Patches:
Index: gnue/gnue-config/base/currency/classes/currency.gcd
diff -u gnue/gnue-config/base/currency/classes/currency.gcd:1.10
gnue/gnue-config/base/currency/classes/currency.gcd:1.11
--- gnue/gnue-config/base/currency/classes/currency.gcd:1.10 Tue May 1
13:17:46 2001
+++ gnue/gnue-config/base/currency/classes/currency.gcd Fri May 4 17:35:08 2001
@@ -22,7 +22,7 @@
#
# This file originally written by Neil Tiffin (address@hidden).
#
-# $Revision: 1.10 $ $Date: 2001/05/01 20:17:46 $ $Author: ntiffin $
+# $Revision: 1.11 $ $Date: 2001/05/05 00:35:08 $ $Author: ntiffin $
#
# ===========================================================================
@@ -61,7 +61,7 @@
# select the system configured default currency
#INITIALISE code = currency_reference(code =
- $system.default_currency_code );
+ # $system.default_currency_code );
# read the number of decimals from the selected
# currency object
#INITIALISE num_decimals = code.default_decimals;
@@ -88,7 +88,7 @@
class conversion
{
currency::currency *base;
- currency::conversion_rule [] *rule;
+ currency::conversion_rule [] rule;
};
};
Index: gnue/gnue-config/base/location/classes/address.gcd
diff -u gnue/gnue-config/base/location/classes/address.gcd:1.7
gnue/gnue-config/base/location/classes/address.gcd:1.8
--- gnue/gnue-config/base/location/classes/address.gcd:1.7 Tue May 1
13:17:47 2001
+++ gnue/gnue-config/base/location/classes/address.gcd Fri May 4 17:35:08 2001
@@ -22,7 +22,7 @@
#
# This file originally written by Neil Tiffin (address@hidden).
#
-# $Revision: 1.7 $ $Date: 2001/05/01 20:17:47 $ $Author: ntiffin $
+# $Revision: 1.8 $ $Date: 2001/05/05 00:35:08 $ $Author: ntiffin $
#
include "validstatecodes.gcd"
@@ -30,6 +30,9 @@
module location
{
+ # -------------------------------------------------------------------------
+ # address - definition of physical addresses.
+ # -------------------------------------------------------------------------
type address
{
char desc<35>; # of this address (work, home,
business etc.)
Index: gnue/gnue-config/base/units/classes/units.gcd
diff -u gnue/gnue-config/base/units/classes/units.gcd:1.14
gnue/gnue-config/base/units/classes/units.gcd:1.15
--- gnue/gnue-config/base/units/classes/units.gcd:1.14 Tue May 1 13:17:47 2001
+++ gnue/gnue-config/base/units/classes/units.gcd Fri May 4 17:35:08 2001
@@ -22,7 +22,7 @@
#
# This file originally written by Neil Tiffin (address@hidden).
#
-# $Revision: 1.14 $ $Date: 2001/05/01 20:17:47 $ $Author: ntiffin $
+# $Revision: 1.15 $ $Date: 2001/05/05 00:35:08 $ $Author: ntiffin $
#
module unit
@@ -71,7 +71,7 @@
{ # convert between
# different
- unit::conversion_unit [] *units; # units.
+ unit::conversion_unit [] units; # units.
quantity convert( unit::quantity source, unit::unit destination);
};
};
Index: gnue/gnue-config/supply-chain/item/classes/item.gcd
diff -u gnue/gnue-config/supply-chain/item/classes/item.gcd:1.8
gnue/gnue-config/supply-chain/item/classes/item.gcd:1.9
--- gnue/gnue-config/supply-chain/item/classes/item.gcd:1.8 Tue May 1
13:17:47 2001
+++ gnue/gnue-config/supply-chain/item/classes/item.gcd Fri May 4 17:35:08 2001
@@ -22,7 +22,7 @@
#
# This file originally written by Neil Tiffin (address@hidden).
#
-# $Revision: 1.8 $ $Date: 2001/05/01 20:17:47 $ $Author: ntiffin $
+# $Revision: 1.9 $ $Date: 2001/05/05 00:35:08 $ $Author: ntiffin $
#
module inventory {
@@ -41,7 +41,15 @@
ORDER BY code;
};
-
+ # -------------------------------------------------------------------------
+ # stock_quantity -
+ # -------------------------------------------------------------------------
+ type stock_quantity
+ {
+ units::quantity quantity; # various types of quantities
+ char quantity_type<20>; # on-hand, scrap, on order etc.
+ };
+
# -------------------------------------------------------------------------
# stock_item -
# -------------------------------------------------------------------------
@@ -50,8 +58,7 @@
#replenishment_code_type code;
char replenishment_code<8>;
- units::quantity [] quantity; # various types of quantities
- char [] quantity_type<20>; # on-hand, scrap, on order etc.
+ inventory::stock_quantity [] quantity; # various types of quantities
units::quantity weight;
units::quantity volume;
Index: gnue/gnue-config/supply-chain/purchasing/classes/purchasing.gcd
diff -u gnue/gnue-config/supply-chain/purchasing/classes/purchasing.gcd:1.4
gnue/gnue-config/supply-chain/purchasing/classes/purchasing.gcd:1.5
--- gnue/gnue-config/supply-chain/purchasing/classes/purchasing.gcd:1.4 Wed Apr
18 18:34:33 2001
+++ gnue/gnue-config/supply-chain/purchasing/classes/purchasing.gcd Fri May
4 17:35:09 2001
@@ -22,80 +22,106 @@
#
# This file originally written by Neil Tiffin (address@hidden).
#
-# $Revision: 1.4 $ $Date: 2001/04/19 01:34:33 $ $Author: ntiffin $
+# $Revision: 1.5 $ $Date: 2001/05/05 00:35:09 $ $Author: ntiffin $
#
+include "../../../base/units/classes/units.gcd"
+include "../../../supply-chain/vendor/classes/vendor.gcd"
-module Purchasing {
+module Purchasing
+{
- EXTEND Vendor {
- text purchasing_notes;
-
- help en purchasing_notes "These notes will show up in the purchasing
form"
- "with an option to print on the purchase
order.";
- };
-
- EXTEND Item {
- char buyer_code<8>;
- text purch_text;
- char purch_desc<100>;
-
-
- help en buyer_code "The buyer code is a reference to the buyer
responsible"
- "for purchasing this product.";
- help en purch_text "The purchasing text is text that appears on a
line item"
- "on the purchase order. It would normally be
used for"
- "special notes.";
- help en purch_desc "The purchasing description replaces the normal
item"
- "description for purchase orders only.";
- };
-
- EXTEND ItemType {
- char buyer_code<8>;
- help en buyer_code "The buyer code is a reference to the buyer
responsible"
- "for purchasing this type of products.";
- };
+ # -------------------------------------------------------------------------
+ #
+ # -------------------------------------------------------------------------
+ # EXTEND vendor::vendor
+ class purchasing_vendor : vendor::vendor
+ {
+ text purchasing_notes;
+
+ help en purchasing_notes "These notes will show up in the purchasing form"
+ "with an option to print on the purchase order.";
+ };
- class Buyer {
- char employee_id<8>;
- char buyer_code<8>;
- };
+ # -------------------------------------------------------------------------
+ #
+ # -------------------------------------------------------------------------
+ # EXTEND inventory::stock_item
+ class purchasing_item : inventory::stock_item
+ {
+ char buyer_code<8>;
+ text purch_text;
+ char purch_desc<100>;
+
+ help en buyer_code "The buyer code is a reference to the buyer
responsible"
+ "for purchasing this product.";
+ help en purch_text "The purchasing text is text that appears on a line
item"
+ "on the purchase order. It would normally be used for"
+ "special notes.";
+ help en purch_desc "The purchasing description replaces the normal item"
+ "description for purchase orders only.";
+ };
+
+ # -------------------------------------------------------------------------
+ #
+ # -------------------------------------------------------------------------
+ class buyer {
+ char employee_id<8>;
+ char buyer_code<8>;
+ };
- class StandardText {
- char id<8>;
- text text; # for keeping standard text that is not by item
- # normally for various special conditions
- };
-
- class RecommendedVendor {
- char item_number<25>;
- char vendor_id<5>;
- };
+ # -------------------------------------------------------------------------
+ # this is standard text that can be referenced by id and copied to p.o.
+ # ------------------------------------------------------------------------
+ class purchasing_text
+ {
+ char id<8>; # is unique for id+buyer
+ char buyer<8>; # buyer code
+ text text; # for keeping standard text that is not by item
+ # normally for various special conditions
+ };
+
+ # -------------------------------------------------------------------------
+ #
+ # -------------------------------------------------------------------------
+ class recommended_vendor
+ {
+ char item_number<25>;
+ char vendor_id<5>;
+ };
- class PurchaseOrderDetail {
- char po_number<5>;
- int line_number; # the line on the po
- char item_number<25>; # the item ordered
- char purch_desc<100>;
- text purch_text; # for free form notes by item.
- Money price;
- Quantity quantity;
- char units_code<3>;
- Date required_date;
- };
+ # -------------------------------------------------------------------------
+ #
+ # -------------------------------------------------------------------------
+ class purchase_order_detail
+ {
+ char po_number<5>;
+ int line_number; # the line on the po
+ char item_number<25>; # the item ordered
+ char purch_desc<100>;
+ text purch_text; # for free form notes by item.
+ float price; # should be changed to currency
+ units::quantity quantity;
+ char units_code<3>;
+ date required_date;
+ };
- class PurchaseOrderHeader {
- char po_number<5>;
- char vendor_id<5>;
+ # -------------------------------------------------------------------------
+ #
+ # -------------------------------------------------------------------------
+ class purchase_order_header
+ {
+ char po_number<5>;
+ char vendor_id<5>;
- char payment_terms<25>;
- char delivery_terms<25>;
+ char payment_terms<25>;
+ char delivery_terms<25>;
- Date date_placed;
- Date date_completed;
+ date date_placed;
+ date date_completed;
- text po_notes; # free form notes for the total purchase order
+ text po_notes; # free form notes for the total purchase order
- help en po_notes "These notes will show up in the purchasing form"
- "with an option to print on the purchase order.";
- };
+ help en po_notes "These notes will show up in the purchasing form"
+ "with an option to print on the purchase order.";
+ };
};
Index: gnue/gnue-config/supply-chain/receiving/classes/receiving.gcd
diff -u gnue/gnue-config/supply-chain/receiving/classes/receiving.gcd:1.1
gnue/gnue-config/supply-chain/receiving/classes/receiving.gcd:1.2
--- gnue/gnue-config/supply-chain/receiving/classes/receiving.gcd:1.1 Sun Mar
18 09:37:06 2001
+++ gnue/gnue-config/supply-chain/receiving/classes/receiving.gcd Fri May
4 17:35:09 2001
@@ -22,11 +22,13 @@
#
# This file originally written by Neil Tiffin (address@hidden).
#
-# $Revision: 1.1 $ $Date: 2001/03/18 17:37:06 $ $Author: ntiffin $
+# $Revision: 1.2 $ $Date: 2001/05/05 00:35:09 $ $Author: ntiffin $
#
-module receiving {
-
-
+module receiving
+{
+ class receiving
+ {
+ char dummy<8>;
+ };
};
-
Index: gnue/gnue-config/supply-chain/shipping/classes/shipping.gcd
diff -u gnue/gnue-config/supply-chain/shipping/classes/shipping.gcd:1.1
gnue/gnue-config/supply-chain/shipping/classes/shipping.gcd:1.2
--- gnue/gnue-config/supply-chain/shipping/classes/shipping.gcd:1.1 Sun Mar
18 09:38:03 2001
+++ gnue/gnue-config/supply-chain/shipping/classes/shipping.gcd Fri May 4
17:35:09 2001
@@ -22,11 +22,13 @@
#
# This file originally written by Neil Tiffin (address@hidden).
#
-# $Id: shipping.gcd,v 1.1 2001/03/18 17:38:03 ntiffin Exp $
+# $Id: shipping.gcd,v 1.2 2001/05/05 00:35:09 ntiffin Exp $
#
-module shipping {
-
-
+module shipping
+{
+ class shipping
+ {
+ char dummy<8>;
+ };
};
-
Index: gnue/gnue-config/supply-chain/vendor/classes/vendor.gcd
diff -u gnue/gnue-config/supply-chain/vendor/classes/vendor.gcd:1.9
gnue/gnue-config/supply-chain/vendor/classes/vendor.gcd:1.10
--- gnue/gnue-config/supply-chain/vendor/classes/vendor.gcd:1.9 Sun Mar 11
09:36:18 2001
+++ gnue/gnue-config/supply-chain/vendor/classes/vendor.gcd Fri May 4
17:35:09 2001
@@ -22,73 +22,103 @@
#
# This file originally written by Neil Tiffin (address@hidden).
#
-# $Revision: 1.9 $ $Date: 2001/03/11 17:36:18 $ $Author: ntiffin $
+# $Revision: 1.10 $ $Date: 2001/05/05 00:35:09 $ $Author: ntiffin $
#
+include "../../../base/location/classes/address.gcd"
-module vendor {
- type vendor_id = char<8>;
-
- type status_code = char<8>;
- type type_code = char<8>;
- type contact_code = char<8>;
- type address_code = char<8>;
+module vendor
+{
+ #type vendor_id = char<8>;
+ #type status_code = char<8>;
+ #type type_code = char<8>;
+ #type contact_code = char<8>;
+ #type address_code = char<8>;
- class status {
- status_code code;
- char description<25>;
-
- INDEX (code);
- };
+ # -------------------------------------------------------------------------
+ # vendor status i.e. approved, dont use, special purchase only
+ # -------------------------------------------------------------------------
+ class status
+ {
+ #status_code code;
+ char code<8>;
+ char description<25>;
+ INDEX (code);
+ };
- class type {
- type_code code;
- char description<25>;
+ # -------------------------------------------------------------------------
+ # type of vendor. service, raw material, labor.
+ # -------------------------------------------------------------------------
+ class type
+ {
+ char code<8>; # vendor type
+ char description<25>;
- INDEX (code);
- };
+ INDEX (code);
+ };
- class contact_type {
- contact_code code;
- char description<25>;
-
- INDEX (code);
- };
-
- class address_type {
- address_code code;
- char description<25>;
-
- INDEX (code);
- };
-
- class contacts {
- vendor_id id;
- person::person contact;
- contact_code code;
+ # -------------------------------------------------------------------------
+ #
+ # -------------------------------------------------------------------------
+ class contact_type
+ {
+ char code<8>;
+ char description<25>;
+
+ INDEX (code);
+ };
+
+ # -------------------------------------------------------------------------
+ #
+ # -------------------------------------------------------------------------
+ class address_type
+ {
+ char code<8>;
+ char description<25>;
+
+ INDEX (code);
+ };
+
+ # -------------------------------------------------------------------------
+ #
+ # -------------------------------------------------------------------------
+ class contact
+ {
+ vendor_id id;
+ person::person contact;
+ contact_code code;
- INDEX (id);
- };
+ INDEX (id);
+ };
- class addresses {
- vendor_id id;
- address::ddress address;
- address_code code;
+ # -------------------------------------------------------------------------
+ #
+ # -------------------------------------------------------------------------
+ class address
+ {
+ address::address address;
+ char description;
- INDEX (id);
- };
+ INDEX (id);
+ };
- class vendor {
- vendor_id id; # NOT NULL UNIQUE
- text companyname; # NOT NULL
+ # -------------------------------------------------------------------------
+ #
+ # -------------------------------------------------------------------------
+ class vendor
+ {
+ vendor_id id; # NOT NULL UNIQUE
+ text companyname; # NOT NULL
+ vendor::vendor_address [] address;
+ vendor::contact [] contact;
- vendor_status_code code; # Approved, dont use etc.
- LOOKUP status : Vendor::VendorStatus(code).description = statuscode;
+ #vendor_status_code code; # Approved, dont use etc.
+ #LOOKUP status : vendor::vendorStatus(code).description = statuscode;
- vendor_type_code code; # Service, manufacturer, office
supplies etc.
- LOOKUP type : Vendor::VendorType(code).description = typecode;
+ #vendor_type_code code; # Service, manufacturer, office supplies
etc.
+ #LOOKUP type : vendor::VendorType(code).description = typecode;
- INDEX (companyname);
- };
+ INDEX (companyname);
+ };
};
Index: gnue/gnue-config/supply-chain/warehouse/classes/warehouse.gcd
diff -u gnue/gnue-config/supply-chain/warehouse/classes/warehouse.gcd:1.3
gnue/gnue-config/supply-chain/warehouse/classes/warehouse.gcd:1.4
--- gnue/gnue-config/supply-chain/warehouse/classes/warehouse.gcd:1.3 Tue May
1 13:17:47 2001
+++ gnue/gnue-config/supply-chain/warehouse/classes/warehouse.gcd Fri May
4 17:35:09 2001
@@ -22,17 +22,18 @@
#
# This file originally written by Neil Tiffin (address@hidden).
#
-# $Revision: 1.3 $ $Date: 2001/05/01 20:17:47 $ $Author: ntiffin $
+# $Revision: 1.4 $ $Date: 2001/05/05 00:35:09 $ $Author: ntiffin $
#
-module Warehouse {
+module warehouse
+{
- class Location {
- char part_number<25>;
- text location_desc; # todo expand this to
int floor, row, column, bin
- int on_hand_qty;
- int reserve_qty;
- int un_usable_qty;
- char location_status<2> # the status of the location
can use, dont use, etc.
- };
+ class location {
+ char part_number<25>;
+ text location_desc; # todo expand this to int
floor, row, column, bin
+ int on_hand_qty;
+ int reserve_qty;
+ int un_usable_qty;
+ char location_status<2>; # the status of the location can use,
dont use, etc.
+ };
};
[Prev in Thread] |
Current Thread |
[Next in Thread] |
- gnue/gnue-config base/currency/classes/currency...,
Neil Tiffin <=