home *** CD-ROM | disk | FTP | other *** search
/ Piper's Pit BBS/FTP: ibm 0010 - 0019 / ibm0010-0019 / ibm0010.tar / ibm0010 / MSWBASE4.ZIP / INVENTRY / PRODUCT.SBD < prev    next >
Encoding:
Text File  |  1989-09-19  |  2.5 KB  |  40 lines
  1. Product_Code   ;TXT     REQ IXU ;8 U                   ;0  ;0  ;
  2. Description    ;TXT             ;60                    ;1  ;1  ;
  3. Location       ;TXT             ;12                    ;3  ;16 ;
  4. Bin            ;TXT             ;4 U                   ;3  ;39 ;
  5. Unit           ;TXT             ;12                    ;3  ;51 ;
  6. Unit_Price     ;NUM     REQ     ;999999.00             ;5  ;37 ;
  7. Unit_Cost      ;NUM             ;999999.00             ;5  ;15 ;
  8. Price_5off     ;NUM             ;999999.00             ;6  ;37 ;
  9. Price10off     ;NUM             ;999999.00             ;7  ;37 ;
  10. Price25off     ;NUM             ;999999.00             ;8  ;37 ;
  11. Supplier_Code  ;TXT VAL     IXD ;8 U                   ;10 ;0  ;>
  12. LEN (Supplier_Code) > 0 AND LOOKUP (Supplier_Code.PRODUCT,Supplier_Code.SUPPLIER) ELSE REQUEST "Supplier File","Please Select a Supplier",20,,Supplier_Code.PRODUCT,60,Supplier_Code.SUPPLIER,Supplier_Name.SUPPLIER,SupState.SUPPLIER
  13. Lead_days      ;TXT             ;10                    ;10 ;51 ;
  14. In_Stock       ;NUM             ;-999999.              ;12 ;17 ;
  15. On_Order       ;NUM             ;-999999.              ;12 ;0  ;
  16. Allocated      ;NUM             ;-999999.              ;12 ;34 ;
  17. Free_stock     ;NUM CLC RDO     ;-999999.              ;12 ;52 ;>
  18. In_Stock - Allocated
  19. Max_level      ;NUM             ;999999.               ;14 ;23 ;
  20. Min_level      ;NUM             ;999999.               ;15 ;23 ;
  21. Reorder_flag   ;VTX CLC RDO     ;1 U                   ;16 ;20 ;>
  22. Free_stock <= Min_level ? "*":" "
  23. Profit_Margin  ;VNU CLC RDO     ;999999.00             ;19 ;1  ;>
  24. 100 * (Unit_Price - Unit_Cost) / Unit_Price
  25. Stock_list_Val ;VNU CLC RDO     ;999999.00             ;20 ;0  ;>
  26. Free_stock * Unit_Price
  27. Sales_Val_per  ;NUM             ;999999.00             ;19 ;50 ;
  28. Sales_Val_yr   ;NUM             ;999999.00             ;20 ;51 ;
  29. Sales_QTY_per  ;NUM             ;999999.               ;19 ;28 ;
  30. Sales_QTY_yr   ;NUM             ;999999.               ;20 ;29 ;
  31. Taxable        ;TXT VAL REQ     ;1 U                   ;7  ;17 ;>
  32. Taxable.PRODUCT LIKE "[yn]" ELSE "Must be 'Y' or 'N'"
  33. Product_Group  ;TXT VAL     IXD ;3 U                   ;23 ;11 ;>
  34. LEN (Product_Group) > 0 AND LOOKUP (Product_Group.PRODUCT,ProdGroup_Code.PRGROUP) ELSE REQUEST "Product Group File","Please Select a Product Group",20,,Product_Group.PRODUCT,40,ProdGroup_Code.PRGROUP,Description.PRGROUP
  35. printit        ;VTX CLC RDO     ;5 C                   ;23 ;60 ;>
  36. (Profit_Margin.PRODUCT = 0) ? "*":(Profit_Margin.PRODUCT < 0) ? "***":""
  37.  
  38. Product_Code
  39. Free_stock
  40.