*Ok, then can You make it so that those 17 possible Fields are the
  *first 17 Fields in Your database structure?
 
*Report
 *Variable Definition
 *  Name        Value to Store  Initial Value   Reset    Calculate
 *group1band       1               0             Source    Nothing
 *group2band       2               0             Account   Nothing
 *group3band       3               0             Part No.  Nothing
 *group4band       4               0             Buyer     Nothing
 
*!*******************************************************************
*! Function..........: NoBlanks()
*! Author............: dkb
*! Project...........: Any
*! Created...........: Dec-04-1996
*! Copyright.........: (c) 1996
*! Version...........: 1.01
*! Last revised......: Dec-22-1996
*) Description.......: Called by Report Writer in Printer Driver Setup
*)                   : as User Procedure at Start Line to eliminate
*)                   : unwanted blank lines in Reports when the User
*)                   : chooses not to subtotal some of the data groups
*! Syntax............: Must create the 4 flags from the User selected
*!                   : Fields in the calling Program that wants to
*!                   : Print a Report and set to .T. if subtotaled.
*! Parameter list....: group1subt - first grouped field flag
*!                   : group2subt - second grouped field flag
*!                   : group3subt - third grouped field flag
*!                   : group4subt - fourth grouped field flag
*! Platform..........: DOS
*! Major change list.: Change Else to Case
*! Called by.........: Report Writer
*! Calls.............: Nothing
*!*******************************************************************
FUNC NoBlanks
PARA group1subt, group2subt, group3subt, group4subt
PRIVATE band_break, curentband, new_band, ;
        group1band, group2band, group3band, group4band
PUBLIC  group1subt, group2subt, group3subt, group4subt
 
  Do Case
     Case group1band  0
     new_band = group1band
     Case group2band  0
     new_band = group2band
     Case group3band  0
     new_band = group3band
     Case group4band  0
     new_band = group4band
  EndCase
 
  ? IIf(curentband  new_band, band_break = .T., band_break = .F.)
 
  Do Case
     Case band_break = .T. and group1band = 1 and group1subt = .F.
     _PLINENO = _PLINENO + 1
     Case band_break = .T. and group2band = 2 and group2subt = .F.
     _PLINENO = _PLINENO + 1
     Case band_break = .T. and group3band = 3 and group3subt = .F.
     _PLINENO = _PLINENO + 1
     Case band_break = .T. and group4band = 4 and group4subt = .F.
     _PLINENO = _PLINENO + 1
  EndCase
  curentband = new_band
  Return
--- QuickBBS 2.85 (Beta-4a) GoldBase
---------------