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