SetPageSetup("Large")

Count = 0

!LoopBand=MasterBand,Reporter
MasterBandOk = FindFirst(@Clients)
While MasterBandOk
   !Band=MasterBand,Reporter
   !PreBandStart=MasterBand
      FirstForm = true
   !PreBandEnd=MasterBand

   MasterBand = AddBand(Reporter, 0)

   !LoopBand=DetailBand,MasterBand
   DetailBandOk = FindFirst(@TaxFormsForClients)
   While DetailBandOk Or FirstForm
      !Band=DetailBand,MasterBand
      DetailBand = AddBand(MasterBand, 0)

      !PreCellStart=DetailBand
         Count = Count + 1
      !PreCellEnd=DetailBand

      DetailBandCell = AddTextCell(DetailBand, Ref@Clients)
      SetCellPosition(DetailBandCell, 0, 0, 195, 30)
      SetCellWrapping(DetailBandCell, False)

      DetailBandCell = AddTextCell(DetailBand, Tfn@Clients)
      SetCellPosition(DetailBandCell, 190, 0, 190, 30)
      SetCellWrapping(DetailBandCell, False)

      DetailBandCell = AddTextCell(DetailBand, Estimate@TaxFormsForClients)
      SetCellPosition(DetailBandCell, 1515, 0, 205, 30)
      SetCellWrapping(DetailBandCell, False)

      DetailBandCell = AddTextCell(DetailBand, EndDate@TaxFormsForClients)
      SetCellPosition(DetailBandCell, 1890, 0, 175, 30)
      SetCellWrapping(DetailBandCell, False)

      DetailBandCell = AddTextCell(DetailBand, Abn@Clients)
      SetCellPosition(DetailBandCell, 375, 0, 190, 30)
      SetCellWrapping(DetailBandCell, False)

      DetailBandCell = AddTextCell(DetailBand, EMail@Clients)
      SetCellPosition(DetailBandCell, 565, 0, 250, 30)
      SetCellWrapping(DetailBandCell, False)

      DetailBandCell = AddTextCell(DetailBand, Casual@Clients)
      SetCellPosition(DetailBandCell, 1025, 0, 235, 30)
      SetCellWrapping(DetailBandCell, False)

      DetailBandCell = AddTextCell(DetailBand, LastName@Clients)
      SetCellPosition(DetailBandCell, 1255, 0, 265, 30)
      SetCellWrapping(DetailBandCell, False)

      DetailBandCell = AddTextCell(DetailBand, PartnerRef@Clients)
      SetCellPosition(DetailBandCell, 1720, 0, 170, 30)
      SetCellWrapping(DetailBandCell, False)

      DetailBandCell = AddTextCell(DetailBand, GetText("ANH"))
      SetCellPosition(DetailBandCell, 2605, 0, 260, 30)
      SetCellWrapping(DetailBandCell, False)

      DetailBandCell = AddTextCell(DetailBand, FormType@TaxFormsForClients)
      SetCellPosition(DetailBandCell, 2880, 0, 250, 30)

      DetailBandCell = AddTextCell(DetailBand, Fee@TaxFormsForClients)
      SetCellPosition(DetailBandCell, 3140, 0, 145, 30)

      DetailBandCell = AddTextCell(DetailBand, Refund@TaxFormsForClients)
      SetCellPosition(DetailBandCell, 3295, 0, 270, 30)

      DetailBandCell = AddTextCell(DetailBand, FirstName@Clients)
      SetCellPosition(DetailBandCell, 815, 0, 215, 30)

      DetailBandCell = AddTextCell(DetailBand, ManagerRef@Clients)
      SetCellPosition(DetailBandCell, 2375, 0, 230, 30)

      DetailBandCell = AddTextCell(DetailBand, StaffRef@Clients)
      SetCellPosition(DetailBandCell, 2215, 0, 160, 30)

      DetailBandCell = AddTextCell(DetailBand, OfficeRef@Clients)
      SetCellPosition(DetailBandCell, 2055, 0, 160, 30)

      DetailBandCell = AddTextCell(DetailBand, GetPhoneNumber(Ref@Clients, "M"))
      SetCellPosition(DetailBandCell, 3565, 0, 430, 30)

      !PostBandStart=DetailBand
         FirstForm = false
      !PostBandEnd=DetailBand
      DetailBandOk = FindNext(@TaxFormsForClients)
   EndWhile

   MasterBandOk = FindNext(@Clients)
EndWhile