home *** CD-ROM | disk | FTP | other *** search
/ Power-Programmierung / CD1.mdf / xbase / interpre / pbase / inventry.prg < prev    next >
Encoding:
Text File  |  1985-10-02  |  3.5 KB  |  87 lines
  1. * INVENTRY.PRG (08-11.a)
  2.  
  3. SHOW 'INVENTRY test program'
  4. SWITCH TALK OFF
  5. RESET DATABASE
  6. RESET REPORT
  7. DROP VARIABLE ALL
  8.  
  9. * initialize database and tables
  10. CREATE DATABASE inventry
  11. CREATE CURSOR 1 FOR inventry
  12. USE CURSOR 1
  13. CREATE TABLE inven (itemnum number,onhand number,backordr number,;
  14.   leadtime number,reorder number)
  15. CREATE TABLE vend (vid number,name char(30),addr char(25),city char(25),;
  16.   state char(2),rep char(25),phone char(20))
  17. CREATE TABLE goods (itemnum number,descr char(20),vid number,;
  18.   vitemnum char(15),price number,terms char(10))
  19. INSERT INTO inven (itemnum,onhand,backordr,leadtime,reorder);
  20.   VALUES(101,10,5,10,10)
  21. INSERT INTO inven (itemnum,onhand,backordr,leadtime,reorder);
  22.   VALUES(102,0,17,15,20)
  23. INSERT INTO inven (itemnum,onhand,backordr,leadtime,reorder);
  24.   VALUES(103,3,9,5,20)
  25. INSERT INTO inven (itemnum,onhand,backordr,leadtime,reorder);
  26.   VALUES(104,2,0,10,200)
  27. INSERT INTO inven (itemnum,onhand,backordr,leadtime,reorder);
  28.   VALUES(105,0,150,10,300)
  29. INSERT INTO inven (itemnum,onhand,backordr,leadtime,reorder);
  30.   VALUES(106,6,12,30,30)
  31. INSERT INTO vend (vid,name,addr,city,state,rep,phone);
  32.   VALUES(1001,'Paper Distributors','271 Landon','St.Louis','MO','Gibson','(999) 123-4567')
  33. INSERT INTO vend (vid,name,addr,city,state,rep,phone);
  34.   VALUES(1002,'Paper Company','123 Venice','Los Angeles','CA','Johnson','(999) 123-4567')
  35. INSERT INTO vend (vid,name,addr,city,state,rep,phone);
  36.   VALUES(1003,'Paper and Pen Company','1 Washington','San Francisco','CA','Warren','(888) 123-4567')
  37. INSERT INTO vend (vid,name,addr,city,state,rep,phone);
  38.   VALUES(1004,'Tablets and Stuff','2341 Madison Ave.','New York','NY','Davis','(888) 123-4567')
  39. INSERT INTO goods (itemnum,descr,vid,vitemnum,price,terms);
  40.   VALUES (101,'Bridgeport Pens',1001,'BP 132-001',1.500000,'10/n30')
  41. INSERT INTO goods (itemnum,descr,vid,vitemnum,price,terms);
  42.   VALUES (102,'Silly Erasers',1002,'1324-a',1.520000,'10/n30')
  43. INSERT INTO goods (itemnum,descr,vid,vitemnum,price,terms);
  44.   VALUES (103,'Ponderosa Paper',1002,'1324-a',1.520000,'10/n30')
  45. INSERT INTO goods (itemnum,descr,vid,vitemnum,price,terms);
  46.   VALUES (104,'Current Copy',1002,'1324-a',1.520000,'10/n30')
  47. INSERT INTO goods (itemnum,descr,vid,vitemnum,price,terms);
  48.   VALUES (105,'Small Things',1002,'1324-a',1.520000,'10/n30')
  49. INSERT INTO goods (itemnum,descr,vid,vitemnum,price,terms);
  50.   VALUES (106,'Good Stuff',1002,'1324-a',1.520000,'10/n30')
  51.  
  52. * print an inventory status report
  53. SELECT goods.descr,inven.itemnum,inven.onhand,;
  54.   inven.backordr,inven.leadtime,inven.reorder;
  55.   FROM goods,inven;
  56.   WHERE goods.itemnum=inven.itemnum
  57. DOREPORT
  58.   REPORT output
  59.     TO CONSOLE
  60.     END
  61.   REPORT page heading
  62.     PRINT TAB 20 '*********************'
  63.     PRINT TAB 20 '*  Inventory Report *'
  64.     PRINT TAB 20 '*********************'
  65.     PRINT SKIP 'Item' TAB 32 'On' TAB 37 'Back' TAB 45 'Lead Time' TAB 55 'Reorder'
  66.     PRINT TAB 32 'Hand' TAB 37 'Ordered' TAB 45 '(days)' TAB 55 'Point' SKIP 2
  67.     END
  68.   REPORT footing break at itemnum
  69.     IF onhand < reorder
  70.       PRINT SKIP
  71.       ENDIF
  72.     END
  73.   REPORT page detail
  74.     PRINT descr TAB 32 onhand PICTURE '^^^^' TAB 37 backordr PICTURE '^^^^';
  75.       TAB 45 leadtime PICTURE '^^^^' TAB 55 reorder PICTURE '^^^^' SKIP 0
  76.     IF onhand < reorder
  77.       PRINT ' **reorder**'
  78.     ELSE
  79.       PRINT
  80.     ENDIF
  81.     END
  82.   ENDREPORT
  83. DROP CURSOR 1
  84. DROP VARIABLE ALL
  85. DROP DATABASE inventry
  86. SWITCH DEFAULT
  87.