home *** CD-ROM | disk | FTP | other *** search
/ Piper's Pit BBS/FTP: ibm 0010 - 0019 / ibm0010-0019 / ibm0010.tar / ibm0010 / MSWBASE4.ZIP / INVENTRY / REPVAL2.SBP < prev    next >
Encoding:
Text File  |  1989-08-31  |  1.7 KB  |  60 lines
  1. SBP
  2.   ╜ repval2   - STOCK VALUATION REPORT
  3.   │ _ werrt
  4.  
  5.   ╜ ********************* Modify the printit field to act as a flag ****************
  6.   ╜ ******* in this case warn '*' if no sales this period and '***' if no sales this year
  7.  
  8.  x$ "printit;VTX CLC RDO;5 C;23;60;": ╜ ***** the field definition string
  9.  y$ "(Sales_Val_per.product = 0 AND Sales_Val_yr.product >0) ? ~*~:(sales_val_yr.product = 0) ? ~***~:~~": ╜ *** the calc string
  10.  
  11.  
  12.   «printit.product,x$,y$
  13.  
  14.  
  15.   ╜ *********************************************************************************
  16.  
  17.   ┬"REPORT TO PRINTER?","",1,a%
  18.   ía% p ╣;
  19.   ┴Stock_list_Val.PRODUCT
  20.   } ┴
  21.   {@59;"==============="
  22.   {@39;"Total Stock Value:";@61&9.2( lStock_list_Val.PRODUCT)
  23.   {@59;"==============="
  24.   Æ ┴
  25.  
  26.   ƒ
  27.   {@18;"STOCK VALUATION REPORT (Warn no Sales)";@58;&15 ( Q,"mm-0d-yy")
  28.   {
  29.   {@33;"In Stock  On Order    Allocated  Free"
  30.   {@38;"Pricing                    Margin"
  31.   {
  32.   Æ ƒ
  33.  
  34.   Ü3
  35.   {
  36.   {@33;&15"-"  H( ( ▌,"999")) "-"
  37.   {
  38.   Æ Ü
  39.  
  40.   ₧Product_Group.PRODUCT,Stock_list_Val.PRODUCT
  41.   } ₧Product_Group.PRODUCT
  42.   {@59;"---------------"
  43.   {@31;"Value for";@41 ₧@61&9.2( lStock_list_Val.PRODUCT)
  44.   {@59;"---------------"
  45.   æ
  46.   Æ ₧
  47.  
  48.   ╔@2;&8Product_Code.PRODUCT;@12;&60Description.PRODUCT@12;"Group:";@19;&3Product_Group.PRODUCT;
  49.  @34;&8In_Stock.PRODUCT;@44;&8On_Order.PRODUCT;@55;&8Allocated.PRODUCT;@65;&8Free_stock.PRODUCT
  50.  @31;&9Unit_Price.PRODUCT;@43;&9Unit_Cost.PRODUCT;@55Profit_Margin.PRODUCT »@18;"Sales Period:";
  51.  @33;Sales_Val_per.PRODUCT;@43;"Sales Year:";@55Sales_Val_yr.PRODUCT,,printit.product »@51;"Total Value:";
  52.  @65&9.2Stock_list_Val.PRODUCT
  53.   ╡Product_Group.PRODUCT
  54.  
  55.   ╧ ¢3
  56. getout:  ¿"stkcntrl"
  57.  
  58. errt:  ygetout
  59.  
  60.