*Report
 *Variable Definition
 *  Name        Value to Store  Initial Value   Reset       Calculate
 *group1band       1               0             pickfield1  Nothing
 *group2band       2               0             pickfield2  Nothing
 *group3band       3               0             pickfield3  Nothing
 *group4band       4               0             pickfield4  Nothing
*!*******************************************************************
*! Function..........: NoBlanks()
*! Author............: dkb
*! Project...........: Any
*! Created...........: Dec-04-1996
*! Copyright.........: (c) 1996 dBA
*! Version...........: 1.02
*! Last revised......: Jan-20-1997
*) 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 and initialize the 4 vars
*!                   : from the User selected Fields in the calling
*!                   : Program that wants to Print a Report, with up to
*!                   : 4 groupings 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
*!                   : pickfield1 - name of first selected field
*!                   : pickfield2 - name of second selected field
*!                   : pickfield3 - name of third selected field
*!                   : pickfield4 - name of forth selected field
*! Platform..........: DOS
*! Major change list.: Add Variables for selected Field names
*! Called by.........: Report Writer
*! Calls.............: Nothing
*! Procs & Fncts.....: None
*! Uses..............: Yourdata.DBF
*! Example...........:
*) Notes.............:
*!*******************************************************************
FUNC NoBlanks
PARA group1subt, group2subt, group3subt, group4subt ;
     pickfield1, pickfield2, pickfield3, pickfield4
PRIVATE band_break, curentband, new_band, ;
        group1band, group2band, group3band, group4band
PUBLIC  group1subt, group2subt, group3subt, group4subt ;
        pickfield1, pickfield2, pickfield3, pickfield4
  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
--- TMail v1.31.5
---------------