home *** CD-ROM | disk | FTP | other *** search
/ DOS Wares / doswares.zip / doswares / DATABASE / DBASE4NL / SAMPLES.ZIP / BESTEL.MDX (.txt) < prev    next >
Encoding:
dBase Multiple Index  |  1993-05-18  |  4.0 KB  |  79 lines
  1. BESTEL
  2. ENDIF
  3. *-- Min
  4. ENDIF
  5. *-- Sum
  6. *-- Std deviation
  7. *-- Variance
  8. r_sum
  9. =r_sum
  10. && sum of squares
  11. r_sum
  12. =r_sum
  13. && sum
  14. r_sum
  15. =r_sum
  16. && count
  17. r_sum
  18. =r_sum
  19. /r_sum
  20. && average
  21. *-- variance
  22. =(r_sum
  23. BESTEL
  24. ))/r_sum
  25. =SQRT(
  26. && std deviation
  27. RECNO()
  28. r_foot
  29. <<.>L
  30. *-- Determine height of group bands and detail band for widow checking
  31. FUNCTION Gheight
  32. PARAMETER Group_Band
  33. retval=0              && return value
  34. IF Group_Band <= 
  35.    retval = retval +
  36.  gn_pspace
  37. ENDIF
  38. *-- add height of detail band
  39. retval = retval + 
  40. gn_pspace
  41. RETURN retval
  42. * EOP: Gheight
  43. r_mvar
  44. =r_mvar
  45. <<.%P
  46. (_pspacing * 
  47.  + 1)
  48. (_pspacing + 1)
  49. klant_nr+DTOC(dat_trans)+magazn_nr
  50. A0000104-03-9370005
  51. C0000111-04-8857050
  52. A0000104-03-9370005
  53. A0000105-03-9270010
  54. A1002502-03-8844084q
  55. A1002510-03-9246088
  56. A1002516-02-8843002
  57. C0000101-03-9254331D
  58. C0000102-03-9355501
  59. C0000111-04-8857050
  60. )@ !99999
  61. +Typ klantnummer van zes cijfers, beginnend 
  62. $met een letter, of annuleer met Esc.
  63. Klanten
  64. lookupid
  65. 'Ongeldig klantnr.; voer ander nummer in
  66. !Voer datum van deze bestelling in
  67. Voer nummer van klant in
  68. (Typ een onderdeelnr. of annuleer met Esc
  69. Goederen
  70.     Onderdeel
  71. lookupid
  72. +Ongeldig onderdeelnr.; voer ander nummer in
  73. )@ 999
  74. &Voer het aantal bestelde onderdelen in
  75. )@ 999-99-9999
  76. )Typ een personeelsnr. of annuleer met Esc
  77. Personel
  78.     Werknemer
  79.